2022.07.11 09:48 [3200326] smart account 3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4Mmqdffx7PsEp4zZGxbg8Xa1wKoVPHf63q82kTV25MNT",
    "fee": 800000,
    "feeAssetId": null,
    "timestamp": 1657522159589,
    "version": 2,
    "chainId": 87,
    "sender": "3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV",
    "senderPublicKey": "5SevHzYFiymbFWe1GPt6nNYccPnfTbMft1DqZWfRH8GN",
    "proofs": [
        "51wZ1p1QgiGdLcJ4GXiUTbMvJEUPeKkhb7RGMNbJ67bGtxoKm9URctsuPQsEzswsFHvvvXMrzJSCiEVnrNw1Qm8e"
    ],
    "script": "base64:BgIXCAISAwoBCBIECgIIARIDCgEIEgMKAQEOARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJ0IAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQIAAQx0cnlHZXRTdHJpbmcBA2tleQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgUEdGhpcwUDa2V5AQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQlnZXRPcmFjbGUACQEHQWRkcmVzcwEJANkEAQkBDHRyeUdldFN0cmluZwECFHN0YXRpY19vcmFjbGVBZGRyZXNzARFnZXRSZWJpcnRoQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIVc3RhdGljX3JlYmlydGhBZGRyZXNzARNnZXRJbmN1YmF0b3JBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhdzdGF0aWNfaW5jdWJhdG9yQWRkcmVzcwERZ2V0RmFybWluZ0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFXN0YXRpY19mYXJtaW5nQWRkcmVzcwESZ2V0R2FtZURhcHBBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfZ2FtZURhcHBBZGRyZXNzAAh3QWNjUEtleQkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgkBCWdldE9yYWNsZQACD3N0YXRpY193YXJzUEtleQIbc3RhdGljX3dhcnNQS2V5IG5vdCBkZWZpbmVkAA9zY0NhblVzZUNvdXBvbnMJAMwIAgkBEWdldFJlYmlydGhBZGRyZXNzAAkAzAgCCQETZ2V0SW5jdWJhdG9yQWRkcmVzcwAJAMwIAgkBEWdldEZhcm1pbmdBZGRyZXNzAAkAzAgCCQESZ2V0R2FtZURhcHBBZGRyZXNzAAUDbmlsARBjb3Vwb25zVXNlclNwZW5kAQR1c2VyCQCsAgIFBHVzZXICBl9zcGVuZAERY291cG9uc1VzZXJBY3RpdmUBBHVzZXIJAKwCAgUEdXNlcgIHX2FjdGl2ZQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBHVzZXIJAKwCAgkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgIEX29sZAESYWRkQ291cG9uc0ludGVybmFsAgR1c2VyBmFtb3VudAQGa2V5T2xkCQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBQR1c2VyBANrZXkJARFjb3Vwb25zVXNlckFjdGl2ZQEFBHVzZXIECmNvdXBvbnNPbGQJAQ10cnlHZXRJbnRlZ2VyAQUDa2V5BAdjb3Vwb25zCQBkAgUKY291cG9uc09sZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZrZXlPbGQFCmNvdXBvbnNPbGQJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQUHY291cG9ucwUDbmlsBAFpAQ9jb25maWd1cmVPcmFjbGUBBm9yYWNsZQMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECD0NDTzogYWRtaW4gb25seQkAzAgCCQELU3RyaW5nRW50cnkCAhRzdGF0aWNfb3JhY2xlQWRkcmVzcwUGb3JhY2xlBQNuaWwBaQEKYWRkQ291cG9ucwIEdXNlcgZhbW91bnQDAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQECIT0CCAUBaQ9jYWxsZXJQdWJsaWNLZXkFCHdBY2NQS2V5BwkAAgECD0NBQzogYWRtaW4gb25seQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAFpAQ9hZGRDb3Vwb25zQmF0Y2gBBWJhdGNoAwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkBAiE9AggFAWkPY2FsbGVyUHVibGljS2V5BQh3QWNjUEtleQcJAAIBAg9DQUM6IGFkbWluIG9ubHkEC2NvdXBvbnNMaXN0CQC1CQIFBWJhdGNoAgE7CgEMaGFuZGxlQ291cG9uAgNhY2MGY291cG9uBApzcGxpdEFycmF5CQC1CQIFBmNvdXBvbgIBOgQEdXNlcgkAkQMCBQpzcGxpdEFycmF5AAAEBmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCnNwbGl0QXJyYXkAAQkAzggCBQNhY2MJARJhZGRDb3Vwb25zSW50ZXJuYWwCBQR1c2VyBQZhbW91bnQKAAIkbAULY291cG9uc0xpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBDGhhbmRsZUNvdXBvbgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUAWkBCnVzZUNvdXBvbnMBEWFtb3VudFRyeWluZ1RvUGF5BAppbnZva2luZ1NjCAUBaQZjYWxsZXIDCQBmAgAABRFhbW91bnRUcnlpbmdUb1BheQkAAgECL0NVQzogT25seSBwb3NpdGl2ZSBhbW91bnQgb2YgbW9uZXkgY2FuIGJlIHBhaWQhAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgUPc2NDYW5Vc2VDb3Vwb25zBQppbnZva2luZ1NjCQACAQI9Q1VDOiBPbmx5IGNlcnRhaW4gc21hcnQgY29udHJhY3RzIGNhbiB1c2UgdGhpcyBjb3Vwb24gbW9kdWxlIQQEdXNlcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIECWtleUFjdGl2ZQkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgQQYXZhaWxhYmxlQ291cG9ucwkBDXRyeUdldEludGVnZXIBBQlrZXlBY3RpdmUECWxlZnRUb1BheQMJAGYCBRFhbW91bnRUcnlpbmdUb1BheQUQYXZhaWxhYmxlQ291cG9ucwkAZQIFEWFtb3VudFRyeWluZ1RvUGF5BRBhdmFpbGFibGVDb3Vwb25zAAAECmFtb3VudFBhaWQJAGUCBRFhbW91bnRUcnlpbmdUb1BheQUJbGVmdFRvUGF5BBRhdmFpbGFibGVDb3Vwb25zTGVmdAkAZQIFEGF2YWlsYWJsZUNvdXBvbnMFCmFtb3VudFBhaWQECGtleVNwZW5kCQEQY291cG9uc1VzZXJTcGVuZAEFBHVzZXIEBmtleU9sZAkBFGNvdXBvbnNVc2VyQWN0aXZlT2xkAQUEdXNlcgQKdG90YWxTcGVuZAkAZAIJAQ10cnlHZXRJbnRlZ2VyAQUIa2V5U3BlbmQFCmFtb3VudFBhaWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUIa2V5U3BlbmQFCnRvdGFsU3BlbmQJAMwIAgkBDEludGVnZXJFbnRyeQIFBmtleU9sZAUQYXZhaWxhYmxlQ291cG9ucwkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa2V5QWN0aXZlBRRhdmFpbGFibGVDb3Vwb25zTGVmdAUDbmlsBQphbW91bnRQYWlkAA38guA=",
    "height": 3200326,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8FASBu54pwbPHFsKgRvX8o2rAz2Ua1cdcVZoY89TZE7j
Next: qh8P6jRSmvFkFcTEPpoeadrMRCeG31jr6ucdauYMyF9

Diff: 
Old
New
Differences
1
-
{-# STDLIB_VERSION 5 #-}
1
+
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
func tryGetStringExternal (address,key) = match getString(address, key) {
35
35
 
func getGameDappAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_gameDappAddress")))
36
36
 
37
37
 
38
+
let wAccPKey = fromBase58String(valueOrErrorMessage(getString(getOracle(), "static_warsPKey"), "static_warsPKey not defined"))
39
+
38
40
 
let scCanUseCoupons = [getRebirthAddress(), getIncubatorAddress(), getFarmingAddress(), getGameDappAddress()]
39
41
 
40
42
 
func couponsUserSpend (user) = (user + "_spend")
46
48
 
func couponsUserActiveOld (user) = (couponsUserActive(user) + "_old")
47
49
 
48
50
 
51
+
func addCouponsInternal (user,amount) = {
52
+
    let keyOld = couponsUserActiveOld(user)
53
+
    let key = couponsUserActive(user)
54
+
    let couponsOld = tryGetInteger(key)
55
+
    let coupons = (couponsOld + amount)
56
+
[IntegerEntry(keyOld, couponsOld), IntegerEntry(key, coupons)]
57
+
    }
58
+
59
+
49
60
 
@Callable(i)
50
61
 
func configureOracle (oracle) = if ((i.caller != this))
51
-
    then throw("admin only")
62
+
    then throw("CCO: admin only")
52
63
 
    else [StringEntry("static_oracleAddress", oracle)]
53
64
 
54
65
 
55
66
 
56
67
 
@Callable(i)
57
-
func addCoupons (user,amount) = if ((i.caller != this))
58
-
    then throw("admin only")
68
+
func addCoupons (user,amount) = if (if ((i.caller != this))
69
+
    then (i.callerPublicKey != wAccPKey)
70
+
    else false)
71
+
    then throw("CAC: admin only")
72
+
    else addCouponsInternal(user, amount)
73
+
74
+
75
+
76
+
@Callable(i)
77
+
func addCouponsBatch (batch) = if (if ((i.caller != this))
78
+
    then (i.callerPublicKey != wAccPKey)
79
+
    else false)
80
+
    then throw("CAC: admin only")
59
81
 
    else {
60
-
        let keyOld = couponsUserActiveOld(user)
61
-
        let key = couponsUserActive(user)
62
-
        let couponsOld = tryGetInteger(key)
63
-
        let coupons = (couponsOld + amount)
64
-
[IntegerEntry(keyOld, couponsOld), IntegerEntry(key, coupons)]
82
+
        let couponsList = split(batch, ";")
83
+
        func handleCoupon (acc,coupon) =         {
84
+
            let splitArray = split(coupon, ":")
85
+
            let user = splitArray[0]
86
+
            let amount = parseIntValue(splitArray[1])
87
+
            (acc ++ addCouponsInternal(user, amount))
88
+
            }
89
+
90
+
        let $l = couponsList
91
+
        let $s = size($l)
92
+
        let $acc0 = nil
93
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
94
+
            then $a
95
+
            else handleCoupon($a, $l[$i])
96
+
97
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
98
+
            then $a
99
+
            else throw("List size exceeds 20")
100
+
101
+
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
65
102
 
        }
66
103
 
67
104
 
70
107
 
func useCoupons (amountTryingToPay) = {
71
108
 
    let invokingSc = i.caller
72
109
 
    if ((0 > amountTryingToPay))
73
-
        then throw("Only positive amount of money can be paid!")
110
+
        then throw("CUC: Only positive amount of money can be paid!")
74
111
 
        else if (!(containsElement(scCanUseCoupons, invokingSc)))
75
-
            then throw("Only certain smart contracts can use this coupon module!")
112
+
            then throw("CUC: Only certain smart contracts can use this coupon module!")
76
113
 
            else {
77
114
 
                let user = toString(i.originCaller)
78
115
 
                let keyActive = couponsUserActive(user)
Full: 
Old
New
Differences
1
-
{-# STDLIB_VERSION 5 #-}
1
+
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
func tryGetStringExternal (address,key) = match getString(address, key) {
5
5
 
    case a: String => 
6
6
 
        a
7
7
 
    case _ => 
8
8
 
        ""
9
9
 
}
10
10
 
11
11
 
12
12
 
func tryGetString (key) = tryGetStringExternal(this, key)
13
13
 
14
14
 
15
15
 
func tryGetInteger (key) = match getInteger(this, key) {
16
16
 
    case b: Int => 
17
17
 
        b
18
18
 
    case _ => 
19
19
 
        0
20
20
 
}
21
21
 
22
22
 
23
23
 
func getOracle () = Address(fromBase58String(tryGetString("static_oracleAddress")))
24
24
 
25
25
 
26
26
 
func getRebirthAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_rebirthAddress")))
27
27
 
28
28
 
29
29
 
func getIncubatorAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_incubatorAddress")))
30
30
 
31
31
 
32
32
 
func getFarmingAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_farmingAddress")))
33
33
 
34
34
 
35
35
 
func getGameDappAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_gameDappAddress")))
36
36
 
37
37
 
38
+
let wAccPKey = fromBase58String(valueOrErrorMessage(getString(getOracle(), "static_warsPKey"), "static_warsPKey not defined"))
39
+
38
40
 
let scCanUseCoupons = [getRebirthAddress(), getIncubatorAddress(), getFarmingAddress(), getGameDappAddress()]
39
41
 
40
42
 
func couponsUserSpend (user) = (user + "_spend")
41
43
 
42
44
 
43
45
 
func couponsUserActive (user) = (user + "_active")
44
46
 
45
47
 
46
48
 
func couponsUserActiveOld (user) = (couponsUserActive(user) + "_old")
47
49
 
48
50
 
51
+
func addCouponsInternal (user,amount) = {
52
+
    let keyOld = couponsUserActiveOld(user)
53
+
    let key = couponsUserActive(user)
54
+
    let couponsOld = tryGetInteger(key)
55
+
    let coupons = (couponsOld + amount)
56
+
[IntegerEntry(keyOld, couponsOld), IntegerEntry(key, coupons)]
57
+
    }
58
+
59
+
49
60
 
@Callable(i)
50
61
 
func configureOracle (oracle) = if ((i.caller != this))
51
-
    then throw("admin only")
62
+
    then throw("CCO: admin only")
52
63
 
    else [StringEntry("static_oracleAddress", oracle)]
53
64
 
54
65
 
55
66
 
56
67
 
@Callable(i)
57
-
func addCoupons (user,amount) = if ((i.caller != this))
58
-
    then throw("admin only")
68
+
func addCoupons (user,amount) = if (if ((i.caller != this))
69
+
    then (i.callerPublicKey != wAccPKey)
70
+
    else false)
71
+
    then throw("CAC: admin only")
72
+
    else addCouponsInternal(user, amount)
73
+
74
+
75
+
76
+
@Callable(i)
77
+
func addCouponsBatch (batch) = if (if ((i.caller != this))
78
+
    then (i.callerPublicKey != wAccPKey)
79
+
    else false)
80
+
    then throw("CAC: admin only")
59
81
 
    else {
60
-
        let keyOld = couponsUserActiveOld(user)
61
-
        let key = couponsUserActive(user)
62
-
        let couponsOld = tryGetInteger(key)
63
-
        let coupons = (couponsOld + amount)
64
-
[IntegerEntry(keyOld, couponsOld), IntegerEntry(key, coupons)]
82
+
        let couponsList = split(batch, ";")
83
+
        func handleCoupon (acc,coupon) =         {
84
+
            let splitArray = split(coupon, ":")
85
+
            let user = splitArray[0]
86
+
            let amount = parseIntValue(splitArray[1])
87
+
            (acc ++ addCouponsInternal(user, amount))
88
+
            }
89
+
90
+
        let $l = couponsList
91
+
        let $s = size($l)
92
+
        let $acc0 = nil
93
+
        func $f0_1 ($a,$i) =         if (($i >= $s))
94
+
            then $a
95
+
            else handleCoupon($a, $l[$i])
96
+
97
+
        func $f0_2 ($a,$i) =         if (($i >= $s))
98
+
            then $a
99
+
            else throw("List size exceeds 20")
100
+
101
+
        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
65
102
 
        }
66
103
 
67
104
 
68
105
 
69
106
 
@Callable(i)
70
107
 
func useCoupons (amountTryingToPay) = {
71
108
 
    let invokingSc = i.caller
72
109
 
    if ((0 > amountTryingToPay))
73
-
        then throw("Only positive amount of money can be paid!")
110
+
        then throw("CUC: Only positive amount of money can be paid!")
74
111
 
        else if (!(containsElement(scCanUseCoupons, invokingSc)))
75
-
            then throw("Only certain smart contracts can use this coupon module!")
112
+
            then throw("CUC: Only certain smart contracts can use this coupon module!")
76
113
 
            else {
77
114
 
                let user = toString(i.originCaller)
78
115
 
                let keyActive = couponsUserActive(user)
79
116
 
                let availableCoupons = tryGetInteger(keyActive)
80
117
 
                let leftToPay = if ((amountTryingToPay > availableCoupons))
81
118
 
                    then (amountTryingToPay - availableCoupons)
82
119
 
                    else 0
83
120
 
                let amountPaid = (amountTryingToPay - leftToPay)
84
121
 
                let availableCouponsLeft = (availableCoupons - amountPaid)
85
122
 
                let keySpend = couponsUserSpend(user)
86
123
 
                let keyOld = couponsUserActiveOld(user)
87
124
 
                let totalSpend = (tryGetInteger(keySpend) + amountPaid)
88
125
 
                $Tuple2([IntegerEntry(keySpend, totalSpend), IntegerEntry(keyOld, availableCoupons), IntegerEntry(keyActive, availableCouponsLeft)], amountPaid)
89
126
 
                }
90
127
 
    }
91
128
 
92
129
 

github/deemru/w8io/786bc32 
37.21 ms ◑