w8 · tx · BJn···UZs

tx · BJnm5oQvDfV72Px4VJ8oF74cpayXzqz5ry8A4JhLwUZs

3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV:  -0.00400000 Waves

2022.08.10 10:18 [3243549] smart account 3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BJnm5oQvDfV72Px4VJ8oF74cpayXzqz5ry8A4JhLwUZs",
    "fee": 400000,
    "feeAssetId": null,
    "timestamp": 1660115941374,
    "version": 2,
    "chainId": 87,
    "sender": "3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV",
    "senderPublicKey": "5SevHzYFiymbFWe1GPt6nNYccPnfTbMft1DqZWfRH8GN",
    "proofs": [
        "4PQPrc6kBZ4jhGmvXGs3MJXzuRo4N3F1HjDNGRCJKRKD2JDZ8mLamptgP9z2nhQcRPHB88HrqhxpEU66GH9zmvf4"
    ],
    "script": "base64:BgIXCAISAwoBCBIECgIIARIDCgEIEgMKAQERARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJ0IAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQIAAQx0cnlHZXRTdHJpbmcBA2tleQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgUEdGhpcwUDa2V5AQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQlnZXRPcmFjbGUACQEHQWRkcmVzcwEJANkEAQkBDHRyeUdldFN0cmluZwECFHN0YXRpY19vcmFjbGVBZGRyZXNzARFnZXRSZWJpcnRoQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIVc3RhdGljX3JlYmlydGhBZGRyZXNzARNnZXRJbmN1YmF0b3JBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhdzdGF0aWNfaW5jdWJhdG9yQWRkcmVzcwERZ2V0RmFybWluZ0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFXN0YXRpY19mYXJtaW5nQWRkcmVzcwESZ2V0R2FtZURhcHBBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfZ2FtZURhcHBBZGRyZXNzAQ5nZXRCdXJuQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAISc3RhdGljX2J1cm5BZGRyZXNzARJnZXRCYWJ5ZHVja0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFnN0YXRpY19iYWJ5RHVja0FkZHJlc3MBEmdldEJyZWVkaW5nQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIec3RhdGljX2JhYnlEdWNrQnJlZWRpbmdBZGRyZXNzAAh3QWNjUEtleQkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgkBCWdldE9yYWNsZQACD3N0YXRpY193YXJzUEtleQIbc3RhdGljX3dhcnNQS2V5IG5vdCBkZWZpbmVkAA9zY0NhblVzZUNvdXBvbnMJAMwIAgkBEWdldFJlYmlydGhBZGRyZXNzAAkAzAgCCQETZ2V0SW5jdWJhdG9yQWRkcmVzcwAJAMwIAgkBEWdldEZhcm1pbmdBZGRyZXNzAAkAzAgCCQESZ2V0R2FtZURhcHBBZGRyZXNzAAkAzAgCCQESZ2V0QmFieWR1Y2tBZGRyZXNzAAkAzAgCCQESZ2V0QnJlZWRpbmdBZGRyZXNzAAUDbmlsARBjb3Vwb25zVXNlclNwZW5kAQR1c2VyCQCsAgIFBHVzZXICBl9zcGVuZAERY291cG9uc1VzZXJBY3RpdmUBBHVzZXIJAKwCAgUEdXNlcgIHX2FjdGl2ZQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBHVzZXIJAKwCAgkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgIEX29sZAESYWRkQ291cG9uc0ludGVybmFsAgR1c2VyBmFtb3VudAQGa2V5T2xkCQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBQR1c2VyBANrZXkJARFjb3Vwb25zVXNlckFjdGl2ZQEFBHVzZXIECmNvdXBvbnNPbGQJAQ10cnlHZXRJbnRlZ2VyAQUDa2V5BAdjb3Vwb25zCQBkAgUKY291cG9uc09sZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZrZXlPbGQFCmNvdXBvbnNPbGQJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQUHY291cG9ucwUDbmlsBAFpAQ9jb25maWd1cmVPcmFjbGUBBm9yYWNsZQMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECD0NDTzogYWRtaW4gb25seQkAzAgCCQELU3RyaW5nRW50cnkCAhRzdGF0aWNfb3JhY2xlQWRkcmVzcwUGb3JhY2xlBQNuaWwBaQEKYWRkQ291cG9ucwIEdXNlcgZhbW91bnQDAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQECIT0CCAUBaQ9jYWxsZXJQdWJsaWNLZXkFCHdBY2NQS2V5BwkAAgECD0NBQzogYWRtaW4gb25seQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAFpAQ9hZGRDb3Vwb25zQmF0Y2gBBWJhdGNoAwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkBAiE9AggFAWkPY2FsbGVyUHVibGljS2V5BQh3QWNjUEtleQcJAAIBAg9DQUM6IGFkbWluIG9ubHkEC2NvdXBvbnNMaXN0CQC1CQIFBWJhdGNoAgE7CgEMaGFuZGxlQ291cG9uAgNhY2MGY291cG9uBApzcGxpdEFycmF5CQC1CQIFBmNvdXBvbgIBOgQEdXNlcgkAkQMCBQpzcGxpdEFycmF5AAAEBmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCnNwbGl0QXJyYXkAAQQIYnVybkNhbGwJAPwHBAkBDmdldEJ1cm5BZGRyZXNzAAIMYnVybkJ5SW52b2tlCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUIYnVybkNhbGwFCGJ1cm5DYWxsCQDOCAIFA2FjYwkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoAAiRsBQtjb3Vwb25zTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMaGFuZGxlQ291cG9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQBaQEKdXNlQ291cG9ucwERYW1vdW50VHJ5aW5nVG9QYXkECmludm9raW5nU2MIBQFpBmNhbGxlcgMJAGYCAAAFEWFtb3VudFRyeWluZ1RvUGF5CQACAQIvQ1VDOiBPbmx5IHBvc2l0aXZlIGFtb3VudCBvZiBtb25leSBjYW4gYmUgcGFpZCEDCQEBIQEJAQ9jb250YWluc0VsZW1lbnQCBQ9zY0NhblVzZUNvdXBvbnMFCmludm9raW5nU2MJAAIBAj1DVUM6IE9ubHkgY2VydGFpbiBzbWFydCBjb250cmFjdHMgY2FuIHVzZSB0aGlzIGNvdXBvbiBtb2R1bGUhBAR1c2VyCQClCAEIBQFpDG9yaWdpbkNhbGxlcgQJa2V5QWN0aXZlCQERY291cG9uc1VzZXJBY3RpdmUBBQR1c2VyBBBhdmFpbGFibGVDb3Vwb25zCQENdHJ5R2V0SW50ZWdlcgEFCWtleUFjdGl2ZQQJbGVmdFRvUGF5AwkAZgIFEWFtb3VudFRyeWluZ1RvUGF5BRBhdmFpbGFibGVDb3Vwb25zCQBlAgURYW1vdW50VHJ5aW5nVG9QYXkFEGF2YWlsYWJsZUNvdXBvbnMAAAQKYW1vdW50UGFpZAkAZQIFEWFtb3VudFRyeWluZ1RvUGF5BQlsZWZ0VG9QYXkEFGF2YWlsYWJsZUNvdXBvbnNMZWZ0CQBlAgUQYXZhaWxhYmxlQ291cG9ucwUKYW1vdW50UGFpZAQIa2V5U3BlbmQJARBjb3Vwb25zVXNlclNwZW5kAQUEdXNlcgQGa2V5T2xkCQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBQR1c2VyBAp0b3RhbFNwZW5kCQBkAgkBDXRyeUdldEludGVnZXIBBQhrZXlTcGVuZAUKYW1vdW50UGFpZAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQhrZXlTcGVuZAUKdG90YWxTcGVuZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUGa2V5T2xkBRBhdmFpbGFibGVDb3Vwb25zCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQlrZXlBY3RpdmUFFGF2YWlsYWJsZUNvdXBvbnNMZWZ0BQNuaWwFCmFtb3VudFBhaWQAcG7VnQ==",
    "height": 3243549,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

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

Diff: 
Old New Differences
38 38  func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_burnAddress")))
39 39  
40 40  
41 - func getBabyduckAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX")))
41 + func getBabyduckAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_babyDuckAddress")))
42 42  
43 43  
44 44  func getBreedingAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_babyDuckBreedingAddress")))
Full: 
Old New Differences
1 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 38  func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_burnAddress")))
39 39  
40 40  
41 - func getBabyduckAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX")))
41 + func getBabyduckAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_babyDuckAddress")))
42 42  
43 43  
44 44  func getBreedingAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_babyDuckBreedingAddress")))
45 45  
46 46  
47 47  let wAccPKey = fromBase58String(valueOrErrorMessage(getString(getOracle(), "static_warsPKey"), "static_warsPKey not defined"))
48 48  
49 49  let scCanUseCoupons = [getRebirthAddress(), getIncubatorAddress(), getFarmingAddress(), getGameDappAddress(), getBabyduckAddress(), getBreedingAddress()]
50 50  
51 51  func couponsUserSpend (user) = (user + "_spend")
52 52  
53 53  
54 54  func couponsUserActive (user) = (user + "_active")
55 55  
56 56  
57 57  func couponsUserActiveOld (user) = (couponsUserActive(user) + "_old")
58 58  
59 59  
60 60  func addCouponsInternal (user,amount) = {
61 61      let keyOld = couponsUserActiveOld(user)
62 62      let key = couponsUserActive(user)
63 63      let couponsOld = tryGetInteger(key)
64 64      let coupons = (couponsOld + amount)
65 65  [IntegerEntry(keyOld, couponsOld), IntegerEntry(key, coupons)]
66 66      }
67 67  
68 68  
69 69  @Callable(i)
70 70  func configureOracle (oracle) = if ((i.caller != this))
71 71      then throw("CCO: admin only")
72 72      else [StringEntry("static_oracleAddress", oracle)]
73 73  
74 74  
75 75  
76 76  @Callable(i)
77 77  func addCoupons (user,amount) = if (if ((i.caller != this))
78 78      then (i.callerPublicKey != wAccPKey)
79 79      else false)
80 80      then throw("CAC: admin only")
81 81      else addCouponsInternal(user, amount)
82 82  
83 83  
84 84  
85 85  @Callable(i)
86 86  func addCouponsBatch (batch) = if (if ((i.caller != this))
87 87      then (i.callerPublicKey != wAccPKey)
88 88      else false)
89 89      then throw("CAC: admin only")
90 90      else {
91 91          let couponsList = split(batch, ";")
92 92          func handleCoupon (acc,coupon) =         {
93 93              let splitArray = split(coupon, ":")
94 94              let user = splitArray[0]
95 95              let amount = parseIntValue(splitArray[1])
96 96              let burnCall = invoke(getBurnAddress(), "burnByInvoke", [amount], nil)
97 97              if ((burnCall == burnCall))
98 98                  then (acc ++ addCouponsInternal(user, amount))
99 99                  else throw("Strict value is not equal to itself.")
100 100              }
101 101  
102 102          let $l = couponsList
103 103          let $s = size($l)
104 104          let $acc0 = nil
105 105          func $f0_1 ($a,$i) =         if (($i >= $s))
106 106              then $a
107 107              else handleCoupon($a, $l[$i])
108 108  
109 109          func $f0_2 ($a,$i) =         if (($i >= $s))
110 110              then $a
111 111              else throw("List size exceeds 20")
112 112  
113 113          $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)
114 114          }
115 115  
116 116  
117 117  
118 118  @Callable(i)
119 119  func useCoupons (amountTryingToPay) = {
120 120      let invokingSc = i.caller
121 121      if ((0 > amountTryingToPay))
122 122          then throw("CUC: Only positive amount of money can be paid!")
123 123          else if (!(containsElement(scCanUseCoupons, invokingSc)))
124 124              then throw("CUC: Only certain smart contracts can use this coupon module!")
125 125              else {
126 126                  let user = toString(i.originCaller)
127 127                  let keyActive = couponsUserActive(user)
128 128                  let availableCoupons = tryGetInteger(keyActive)
129 129                  let leftToPay = if ((amountTryingToPay > availableCoupons))
130 130                      then (amountTryingToPay - availableCoupons)
131 131                      else 0
132 132                  let amountPaid = (amountTryingToPay - leftToPay)
133 133                  let availableCouponsLeft = (availableCoupons - amountPaid)
134 134                  let keySpend = couponsUserSpend(user)
135 135                  let keyOld = couponsUserActiveOld(user)
136 136                  let totalSpend = (tryGetInteger(keySpend) + amountPaid)
137 137                  $Tuple2([IntegerEntry(keySpend, totalSpend), IntegerEntry(keyOld, availableCoupons), IntegerEntry(keyActive, availableCouponsLeft)], amountPaid)
138 138                  }
139 139      }
140 140  
141 141

Old	New		Differences
38	38		func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_burnAddress")))
39	39
40	40
41		-	func getBabyduckAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "~~3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX~~")))
	41	+	func getBabyduckAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_babyDuckAddress")))
42	42
43	43
44	44		func getBreedingAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_babyDuckBreedingAddress")))

Old	New		Differences
1	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	38		func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_burnAddress")))
39	39
40	40
41		-	func getBabyduckAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "~~3PKwLVb8jYk58oYbfXxs2dUjD3YEKeqGWrX~~")))
	41	+	func getBabyduckAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_babyDuckAddress")))
42	42
43	43
44	44		func getBreedingAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), "static_babyDuckBreedingAddress")))
45	45
46	46
47	47		let wAccPKey = fromBase58String(valueOrErrorMessage(getString(getOracle(), "static_warsPKey"), "static_warsPKey not defined"))
48	48
49	49		let scCanUseCoupons = [getRebirthAddress(), getIncubatorAddress(), getFarmingAddress(), getGameDappAddress(), getBabyduckAddress(), getBreedingAddress()]
50	50
51	51		func couponsUserSpend (user) = (user + "_spend")
52	52
53	53
54	54		func couponsUserActive (user) = (user + "_active")
55	55
56	56
57	57		func couponsUserActiveOld (user) = (couponsUserActive(user) + "_old")
58	58
59	59
60	60		func addCouponsInternal (user,amount) = {
61	61		let keyOld = couponsUserActiveOld(user)
62	62		let key = couponsUserActive(user)
63	63		let couponsOld = tryGetInteger(key)
64	64		let coupons = (couponsOld + amount)
65	65		[IntegerEntry(keyOld, couponsOld), IntegerEntry(key, coupons)]
66	66		}
67	67
68	68
69	69		@Callable(i)
70	70		func configureOracle (oracle) = if ((i.caller != this))
71	71		then throw("CCO: admin only")
72	72		else [StringEntry("static_oracleAddress", oracle)]
73	73
74	74
75	75
76	76		@Callable(i)
77	77		func addCoupons (user,amount) = if (if ((i.caller != this))
78	78		then (i.callerPublicKey != wAccPKey)
79	79		else false)
80	80		then throw("CAC: admin only")
81	81		else addCouponsInternal(user, amount)
82	82
83	83
84	84
85	85		@Callable(i)
86	86		func addCouponsBatch (batch) = if (if ((i.caller != this))
87	87		then (i.callerPublicKey != wAccPKey)
88	88		else false)
89	89		then throw("CAC: admin only")
90	90		else {
91	91		let couponsList = split(batch, ";")
92	92		func handleCoupon (acc,coupon) = {
93	93		let splitArray = split(coupon, ":")
94	94		let user = splitArray[0]
95	95		let amount = parseIntValue(splitArray[1])
96	96		let burnCall = invoke(getBurnAddress(), "burnByInvoke", [amount], nil)
97	97		if ((burnCall == burnCall))
98	98		then (acc ++ addCouponsInternal(user, amount))
99	99		else throw("Strict value is not equal to itself.")
100	100		}
101	101
102	102		let $l = couponsList
103	103		let $s = size($l)
104	104		let $acc0 = nil
105	105		func $f0_1 ($a,$i) = if (($i >= $s))
106	106		then $a
107	107		else handleCoupon($a, $l[$i])
108	108
109	109		func $f0_2 ($a,$i) = if (($i >= $s))
110	110		then $a
111	111		else throw("List size exceeds 20")
112	112
113	113		$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)
114	114		}
115	115
116	116
117	117
118	118		@Callable(i)
119	119		func useCoupons (amountTryingToPay) = {
120	120		let invokingSc = i.caller
121	121		if ((0 > amountTryingToPay))
122	122		then throw("CUC: Only positive amount of money can be paid!")
123	123		else if (!(containsElement(scCanUseCoupons, invokingSc)))
124	124		then throw("CUC: Only certain smart contracts can use this coupon module!")
125	125		else {
126	126		let user = toString(i.originCaller)
127	127		let keyActive = couponsUserActive(user)
128	128		let availableCoupons = tryGetInteger(keyActive)
129	129		let leftToPay = if ((amountTryingToPay > availableCoupons))
130	130		then (amountTryingToPay - availableCoupons)
131	131		else 0
132	132		let amountPaid = (amountTryingToPay - leftToPay)
133	133		let availableCouponsLeft = (availableCoupons - amountPaid)
134	134		let keySpend = couponsUserSpend(user)
135	135		let keyOld = couponsUserActiveOld(user)
136	136		let totalSpend = (tryGetInteger(keySpend) + amountPaid)
137	137		$Tuple2([IntegerEntry(keySpend, totalSpend), IntegerEntry(keyOld, availableCoupons), IntegerEntry(keyActive, availableCouponsLeft)], amountPaid)
138	138		}
139	139		}
140	140
141	141

github/deemru/w8io/3ef1775 
29.73 ms ◑