tx · FKmQH5HajZT8GtbBeQoKnmJcj4LtXs7tZp2b9izT8df6

3N1H2FmF7pnHCD5cpufDjL5ZP31vJKdd99n:  -0.00400000 Waves

2022.09.02 16:55 [2211593] smart account 3N1H2FmF7pnHCD5cpufDjL5ZP31vJKdd99n > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FKmQH5HajZT8GtbBeQoKnmJcj4LtXs7tZp2b9izT8df6",
    "fee": 400000,
    "feeAssetId": null,
    "timestamp": 1662126925225,
    "version": 2,
    "chainId": 84,
    "sender": "3N1H2FmF7pnHCD5cpufDjL5ZP31vJKdd99n",
    "senderPublicKey": "B5cKstuYv9omxFFgsVdkJDpEgdh31sdp5S9kvVsUp3Kc",
    "proofs": [
        "3ENDGtapu7fmR2MeRHJZMQ8EnGxLXMmuzMAzMJw4uhJqYcoGQS4ZC5FK5YfTcJTaE3a7TspNhVucGj7txWHEjZib"
    ],
    "script": "base64:BgIdCAISAwoBCBIECgIIARIDCgEIEgQKAggBEgMKAQEQARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJ0IAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQIAAQx0cnlHZXRTdHJpbmcBA2tleQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgUEdGhpcwUDa2V5AQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQlnZXRPcmFjbGUACQEHQWRkcmVzcwEJANkEAQkBDHRyeUdldFN0cmluZwECFHN0YXRpY19vcmFjbGVBZGRyZXNzARFnZXRSZWJpcnRoQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIVc3RhdGljX3JlYmlydGhBZGRyZXNzARNnZXRJbmN1YmF0b3JBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhdzdGF0aWNfaW5jdWJhdG9yQWRkcmVzcwERZ2V0RmFybWluZ0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFXN0YXRpY19mYXJtaW5nQWRkcmVzcwESZ2V0R2FtZURhcHBBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfZ2FtZURhcHBBZGRyZXNzAQ5nZXRCdXJuQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAISc3RhdGljX2J1cm5BZGRyZXNzARBnZXRNYXN0ZXJBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfY2ZNYXN0ZXJBZGRyZXNzAAh3QWNjUEtleQkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgkBCWdldE9yYWNsZQACD3N0YXRpY193YXJzUEtleQIbc3RhdGljX3dhcnNQS2V5IG5vdCBkZWZpbmVkAA9zY0NhblVzZUNvdXBvbnMJAMwIAgkBEWdldFJlYmlydGhBZGRyZXNzAAkAzAgCCQETZ2V0SW5jdWJhdG9yQWRkcmVzcwAJAMwIAgkBEWdldEZhcm1pbmdBZGRyZXNzAAkAzAgCCQESZ2V0R2FtZURhcHBBZGRyZXNzAAUDbmlsARBjb3Vwb25zVXNlclNwZW5kAQR1c2VyCQCsAgIFBHVzZXICBl9zcGVuZAERY291cG9uc1VzZXJBY3RpdmUBBHVzZXIJAKwCAgUEdXNlcgIHX2FjdGl2ZQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBHVzZXIJAKwCAgkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgIEX29sZAESYWRkQ291cG9uc0ludGVybmFsAgR1c2VyBmFtb3VudAQGa2V5T2xkCQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBQR1c2VyBANrZXkJARFjb3Vwb25zVXNlckFjdGl2ZQEFBHVzZXIECmNvdXBvbnNPbGQJAQ10cnlHZXRJbnRlZ2VyAQUDa2V5BAdjb3Vwb25zCQBkAgUKY291cG9uc09sZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZrZXlPbGQFCmNvdXBvbnNPbGQJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQUHY291cG9ucwUDbmlsBQFpAQ9jb25maWd1cmVPcmFjbGUBBm9yYWNsZQMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECD0NDTzogYWRtaW4gb25seQkAzAgCCQELU3RyaW5nRW50cnkCAhRzdGF0aWNfb3JhY2xlQWRkcmVzcwUGb3JhY2xlBQNuaWwBaQEKYWRkQ291cG9ucwIEdXNlcgZhbW91bnQDAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQECIT0CCAUBaQ9jYWxsZXJQdWJsaWNLZXkFCHdBY2NQS2V5BwkAAgECD0NBQzogYWRtaW4gb25seQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAFpAQ9hZGRDb3Vwb25zQmF0Y2gBBWJhdGNoAwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkBAiE9AggFAWkPY2FsbGVyUHVibGljS2V5BQh3QWNjUEtleQcJAAIBAg9DQUM6IGFkbWluIG9ubHkEC2NvdXBvbnNMaXN0CQC1CQIFBWJhdGNoAgE7CgEMaGFuZGxlQ291cG9uAgNhY2MGY291cG9uBApzcGxpdEFycmF5CQC1CQIFBmNvdXBvbgIBOgQEdXNlcgkAkQMCBQpzcGxpdEFycmF5AAAEBmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCnNwbGl0QXJyYXkAAQQIYnVybkNhbGwJAPwHBAkBDmdldEJ1cm5BZGRyZXNzAAIMYnVybkJ5SW52b2tlCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUIYnVybkNhbGwFCGJ1cm5DYWxsCQDOCAIFA2FjYwkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoAAiRsBQtjb3Vwb25zTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMaGFuZGxlQ291cG9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQBaQEIQ0ZSZWZ1bmQCCXJlY2lwaWVudAZhbW91bnQECWNmQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNTMpAggFAWkGY2FsbGVyAgpDRl9BRERSRVNTBANrZXkJAKwCAgkArAICAgJmXwUJY2ZBZGRyZXNzAg5fc3Rha2VfYWRkcmVzcwQMc3Rha2VBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA1MykCCQEQZ2V0TWFzdGVyQWRkcmVzcwAFA2tleQMJAQIhPQIFDHN0YWtlQWRkcmVzcwkApQgBCAUBaQZjYWxsZXIJAAIBAiZDQ1I6IFRoaXMgaXMgc29tZXRoaW5nIGZpc2h5IGdvaW5nIG9uIQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFCXJlY2lwaWVudAUGYW1vdW50AWkBCnVzZUNvdXBvbnMBEWFtb3VudFRyeWluZ1RvUGF5BAppbnZva2luZ1NjCAUBaQZjYWxsZXIDCQBmAgAABRFhbW91bnRUcnlpbmdUb1BheQkAAgECL0NVQzogT25seSBwb3NpdGl2ZSBhbW91bnQgb2YgbW9uZXkgY2FuIGJlIHBhaWQhAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgUPc2NDYW5Vc2VDb3Vwb25zBQppbnZva2luZ1NjCQACAQI9Q1VDOiBPbmx5IGNlcnRhaW4gc21hcnQgY29udHJhY3RzIGNhbiB1c2UgdGhpcyBjb3Vwb24gbW9kdWxlIQQEdXNlcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIECWtleUFjdGl2ZQkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgQQYXZhaWxhYmxlQ291cG9ucwkBDXRyeUdldEludGVnZXIBBQlrZXlBY3RpdmUECWxlZnRUb1BheQMJAGYCBRFhbW91bnRUcnlpbmdUb1BheQUQYXZhaWxhYmxlQ291cG9ucwkAZQIFEWFtb3VudFRyeWluZ1RvUGF5BRBhdmFpbGFibGVDb3Vwb25zAAAECmFtb3VudFBhaWQJAGUCBRFhbW91bnRUcnlpbmdUb1BheQUJbGVmdFRvUGF5BBRhdmFpbGFibGVDb3Vwb25zTGVmdAkAZQIFEGF2YWlsYWJsZUNvdXBvbnMFCmFtb3VudFBhaWQECGtleVNwZW5kCQEQY291cG9uc1VzZXJTcGVuZAEFBHVzZXIEBmtleU9sZAkBFGNvdXBvbnNVc2VyQWN0aXZlT2xkAQUEdXNlcgQKdG90YWxTcGVuZAkAZAIJAQ10cnlHZXRJbnRlZ2VyAQUIa2V5U3BlbmQFCmFtb3VudFBhaWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUIa2V5U3BlbmQFCnRvdGFsU3BlbmQJAMwIAgkBDEludGVnZXJFbnRyeQIFBmtleU9sZAUQYXZhaWxhYmxlQ291cG9ucwkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa2V5QWN0aXZlBRRhdmFpbGFibGVDb3Vwb25zTGVmdAUDbmlsBQphbW91bnRQYWlkAErpA08=",
    "height": 2211593,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: none

Full: 

OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 6 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+func tryGetStringExternal (address,key) = match getString(address, key) {
5+    case a: String => 
6+        a
7+    case _ => 
8+        ""
9+}
10+
11+
12+func tryGetString (key) = tryGetStringExternal(this, key)
13+
14+
15+func tryGetInteger (key) = match getInteger(this, key) {
16+    case b: Int => 
17+        b
18+    case _ => 
19+        0
20+}
21+
22+
23+func getOracle () = Address(fromBase58String(tryGetString("static_oracleAddress")))
24+
25+
26+func getRebirthAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_rebirthAddress")))
27+
28+
29+func getIncubatorAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_incubatorAddress")))
30+
31+
32+func getFarmingAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_farmingAddress")))
33+
34+
35+func getGameDappAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_gameDappAddress")))
36+
37+
38+func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_burnAddress")))
39+
40+
41+func getMasterAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_cfMasterAddress")))
42+
43+
44+let wAccPKey = fromBase58String(valueOrErrorMessage(getString(getOracle(), "static_warsPKey"), "static_warsPKey not defined"))
45+
46+let scCanUseCoupons = [getRebirthAddress(), getIncubatorAddress(), getFarmingAddress(), getGameDappAddress()]
47+
48+func couponsUserSpend (user) = (user + "_spend")
49+
50+
51+func couponsUserActive (user) = (user + "_active")
52+
53+
54+func couponsUserActiveOld (user) = (couponsUserActive(user) + "_old")
55+
56+
57+func addCouponsInternal (user,amount) = {
58+    let keyOld = couponsUserActiveOld(user)
59+    let key = couponsUserActive(user)
60+    let couponsOld = tryGetInteger(key)
61+    let coupons = (couponsOld + amount)
62+[IntegerEntry(keyOld, couponsOld), IntegerEntry(key, coupons)]
63+    }
64+
65+
66+@Callable(i)
67+func configureOracle (oracle) = if ((i.caller != this))
68+    then throw("CCO: admin only")
69+    else [StringEntry("static_oracleAddress", oracle)]
70+
71+
72+
73+@Callable(i)
74+func addCoupons (user,amount) = if (if ((i.caller != this))
75+    then (i.callerPublicKey != wAccPKey)
76+    else false)
77+    then throw("CAC: admin only")
78+    else addCouponsInternal(user, amount)
79+
80+
81+
82+@Callable(i)
83+func addCouponsBatch (batch) = if (if ((i.caller != this))
84+    then (i.callerPublicKey != wAccPKey)
85+    else false)
86+    then throw("CAC: admin only")
87+    else {
88+        let couponsList = split(batch, ";")
89+        func handleCoupon (acc,coupon) =         {
90+            let splitArray = split(coupon, ":")
91+            let user = splitArray[0]
92+            let amount = parseIntValue(splitArray[1])
93+            let burnCall = invoke(getBurnAddress(), "burnByInvoke", [amount], nil)
94+            if ((burnCall == burnCall))
95+                then (acc ++ addCouponsInternal(user, amount))
96+                else throw("Strict value is not equal to itself.")
97+            }
98+
99+        let $l = couponsList
100+        let $s = size($l)
101+        let $acc0 = nil
102+        func $f0_1 ($a,$i) =         if (($i >= $s))
103+            then $a
104+            else handleCoupon($a, $l[$i])
105+
106+        func $f0_2 ($a,$i) =         if (($i >= $s))
107+            then $a
108+            else throw("List size exceeds 20")
109+
110+        $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)
111+        }
112+
113+
114+
115+@Callable(i)
116+func CFRefund (recipient,amount) = {
117+    let cfAddress = getStringValue(i.caller, "CF_ADDRESS")
118+    let key = (("f_" + cfAddress) + "_stake_address")
119+    let stakeAddress = getStringValue(getMasterAddress(), key)
120+    if ((stakeAddress != toString(i.caller)))
121+        then throw("CCR: This is something fishy going on!")
122+        else addCouponsInternal(recipient, amount)
123+    }
124+
125+
126+
127+@Callable(i)
128+func useCoupons (amountTryingToPay) = {
129+    let invokingSc = i.caller
130+    if ((0 > amountTryingToPay))
131+        then throw("CUC: Only positive amount of money can be paid!")
132+        else if (!(containsElement(scCanUseCoupons, invokingSc)))
133+            then throw("CUC: Only certain smart contracts can use this coupon module!")
134+            else {
135+                let user = toString(i.originCaller)
136+                let keyActive = couponsUserActive(user)
137+                let availableCoupons = tryGetInteger(keyActive)
138+                let leftToPay = if ((amountTryingToPay > availableCoupons))
139+                    then (amountTryingToPay - availableCoupons)
140+                    else 0
141+                let amountPaid = (amountTryingToPay - leftToPay)
142+                let availableCouponsLeft = (availableCoupons - amountPaid)
143+                let keySpend = couponsUserSpend(user)
144+                let keyOld = couponsUserActiveOld(user)
145+                let totalSpend = (tryGetInteger(keySpend) + amountPaid)
146+                $Tuple2([IntegerEntry(keySpend, totalSpend), IntegerEntry(keyOld, availableCoupons), IntegerEntry(keyActive, availableCouponsLeft)], amountPaid)
147+                }
148+    }
149+
150+
github/deemru/w8io/026f985 
21.97 ms ◑