w8 · tx · 7i9···HyB

tx · 7i9HBD4VLQZ31CGA3GmNnsVvDVfM4wDrnBEMSQ4viHyB

3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV:  -0.00900000 Waves

2023.09.11 18:13 [3816654] smart account 3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7i9HBD4VLQZ31CGA3GmNnsVvDVfM4wDrnBEMSQ4viHyB",
    "fee": 900000,
    "feeAssetId": null,
    "timestamp": 1694445266576,
    "version": 2,
    "chainId": 87,
    "sender": "3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV",
    "senderPublicKey": "5SevHzYFiymbFWe1GPt6nNYccPnfTbMft1DqZWfRH8GN",
    "proofs": [
        "58faiNUcWxm1SnbGqmdTUd3HZtR9vGEg5iAvukY3WDRWWP9zKB2AufAw9iQgVQLwsU8EDMWDyHn7jh6YBsZKqGkF"
    ],
    "script": "base64:BgIdCAISAwoBCBIECgIIARIDCgEIEgQKAggBEgMKAQESARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJ0IAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQIAAQx0cnlHZXRTdHJpbmcBA2tleQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgUEdGhpcwUDa2V5AQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQlnZXRPcmFjbGUACQEHQWRkcmVzcwEJANkEAQkBDHRyeUdldFN0cmluZwECFHN0YXRpY19vcmFjbGVBZGRyZXNzARFnZXRSZWJpcnRoQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIVc3RhdGljX3JlYmlydGhBZGRyZXNzARNnZXRJbmN1YmF0b3JBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhdzdGF0aWNfaW5jdWJhdG9yQWRkcmVzcwERZ2V0RmFybWluZ0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFXN0YXRpY19mYXJtaW5nQWRkcmVzcwESZ2V0R2FtZURhcHBBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfZ2FtZURhcHBBZGRyZXNzAQ5nZXRCdXJuQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAISc3RhdGljX2J1cm5BZGRyZXNzARJnZXRCYWJ5ZHVja0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFnN0YXRpY19iYWJ5RHVja0FkZHJlc3MBEmdldEJyZWVkaW5nQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIVc3RhdGljX2JyZWVkZXJBZGRyZXNzARBnZXRNYXN0ZXJBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfY2ZNYXN0ZXJBZGRyZXNzAAh3QWNjUEtleQkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgkBCWdldE9yYWNsZQACD3N0YXRpY193YXJzUEtleQIbc3RhdGljX3dhcnNQS2V5IG5vdCBkZWZpbmVkAA9zY0NhblVzZUNvdXBvbnMJAMwIAgkBEWdldFJlYmlydGhBZGRyZXNzAAkAzAgCCQETZ2V0SW5jdWJhdG9yQWRkcmVzcwAJAMwIAgkBEWdldEZhcm1pbmdBZGRyZXNzAAkAzAgCCQESZ2V0R2FtZURhcHBBZGRyZXNzAAkAzAgCCQESZ2V0QmFieWR1Y2tBZGRyZXNzAAkAzAgCCQESZ2V0QnJlZWRpbmdBZGRyZXNzAAUDbmlsARBjb3Vwb25zVXNlclNwZW5kAQR1c2VyCQCsAgIFBHVzZXICBl9zcGVuZAERY291cG9uc1VzZXJBY3RpdmUBBHVzZXIJAKwCAgUEdXNlcgIHX2FjdGl2ZQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBHVzZXIJAKwCAgkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgIEX29sZAESYWRkQ291cG9uc0ludGVybmFsAgR1c2VyBmFtb3VudAQGa2V5T2xkCQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBQR1c2VyBANrZXkJARFjb3Vwb25zVXNlckFjdGl2ZQEFBHVzZXIECmNvdXBvbnNPbGQJAQ10cnlHZXRJbnRlZ2VyAQUDa2V5BAdjb3Vwb25zCQBkAgUKY291cG9uc09sZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZrZXlPbGQFCmNvdXBvbnNPbGQJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQUHY291cG9ucwUDbmlsBQFpAQ9jb25maWd1cmVPcmFjbGUBBm9yYWNsZQMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECD0NDTzogYWRtaW4gb25seQkAzAgCCQELU3RyaW5nRW50cnkCAhRzdGF0aWNfb3JhY2xlQWRkcmVzcwUGb3JhY2xlBQNuaWwBaQEKYWRkQ291cG9ucwIEdXNlcgZhbW91bnQDAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQECIT0CCAUBaQ9jYWxsZXJQdWJsaWNLZXkFCHdBY2NQS2V5BwkAAgECD0NBQzogYWRtaW4gb25seQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAFpAQ9hZGRDb3Vwb25zQmF0Y2gBBWJhdGNoAwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkBAiE9AggFAWkPY2FsbGVyUHVibGljS2V5BQh3QWNjUEtleQcJAAIBAg9DQUM6IGFkbWluIG9ubHkEC2NvdXBvbnNMaXN0CQC1CQIFBWJhdGNoAgE7CgEMaGFuZGxlQ291cG9uAgNhY2MGY291cG9uBApzcGxpdEFycmF5CQC1CQIFBmNvdXBvbgIBOgQEdXNlcgkAkQMCBQpzcGxpdEFycmF5AAAEBmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCnNwbGl0QXJyYXkAAQQIYnVybkNhbGwJAPwHBAkBDmdldEJ1cm5BZGRyZXNzAAIMYnVybkJ5SW52b2tlCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUIYnVybkNhbGwFCGJ1cm5DYWxsCQDOCAIFA2FjYwkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoAAiRsBQtjb3Vwb25zTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMaGFuZGxlQ291cG9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQBaQEIQ0ZSZWZ1bmQCCXJlY2lwaWVudAZhbW91bnQECWNmQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNTMpAggFAWkGY2FsbGVyAgpDRl9BRERSRVNTBANrZXkJAKwCAgkArAICAgJmXwUJY2ZBZGRyZXNzAg5fc3Rha2VfYWRkcmVzcwQMc3Rha2VBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA1MykCCQEQZ2V0TWFzdGVyQWRkcmVzcwAFA2tleQMJAQIhPQIFDHN0YWtlQWRkcmVzcwkApQgBCAUBaQZjYWxsZXIJAAIBAiZDQ1I6IFRoaXMgaXMgc29tZXRoaW5nIGZpc2h5IGdvaW5nIG9uIQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFCXJlY2lwaWVudAUGYW1vdW50AWkBCnVzZUNvdXBvbnMBEWFtb3VudFRyeWluZ1RvUGF5BAppbnZva2luZ1NjCAUBaQZjYWxsZXIDCQBmAgAABRFhbW91bnRUcnlpbmdUb1BheQkAAgECL0NVQzogT25seSBwb3NpdGl2ZSBhbW91bnQgb2YgbW9uZXkgY2FuIGJlIHBhaWQhAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgUPc2NDYW5Vc2VDb3Vwb25zBQppbnZva2luZ1NjCQACAQI9Q1VDOiBPbmx5IGNlcnRhaW4gc21hcnQgY29udHJhY3RzIGNhbiB1c2UgdGhpcyBjb3Vwb24gbW9kdWxlIQQEdXNlcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIECWtleUFjdGl2ZQkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgQQYXZhaWxhYmxlQ291cG9ucwkBDXRyeUdldEludGVnZXIBBQlrZXlBY3RpdmUDCQBmAgAABRBhdmFpbGFibGVDb3Vwb25zCQACAQIOQ1VDOiBHZXQgcmVrdCEECWxlZnRUb1BheQMJAGYCBRFhbW91bnRUcnlpbmdUb1BheQUQYXZhaWxhYmxlQ291cG9ucwkAZQIFEWFtb3VudFRyeWluZ1RvUGF5BRBhdmFpbGFibGVDb3Vwb25zAAAECmFtb3VudFBhaWQJAGUCBRFhbW91bnRUcnlpbmdUb1BheQUJbGVmdFRvUGF5BBRhdmFpbGFibGVDb3Vwb25zTGVmdAkAZQIFEGF2YWlsYWJsZUNvdXBvbnMFCmFtb3VudFBhaWQDCQBmAgAABRRhdmFpbGFibGVDb3Vwb25zTGVmdAkAAgECGkNVQzogWW91IHRyeSB0byBvdmVyc3BlbmQhBAhrZXlTcGVuZAkBEGNvdXBvbnNVc2VyU3BlbmQBBQR1c2VyBAZrZXlPbGQJARRjb3Vwb25zVXNlckFjdGl2ZU9sZAEFBHVzZXIECnRvdGFsU3BlbmQJAGQCCQENdHJ5R2V0SW50ZWdlcgEFCGtleVNwZW5kBQphbW91bnRQYWlkCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIFCGtleVNwZW5kBQp0b3RhbFNwZW5kCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZrZXlPbGQFEGF2YWlsYWJsZUNvdXBvbnMJAMwIAgkBDEludGVnZXJFbnRyeQIFCWtleUFjdGl2ZQUUYXZhaWxhYmxlQ291cG9uc0xlZnQFA25pbAUKYW1vdW50UGFpZADQN6qe",
    "height": 3816654,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AtYJQoVFnSfhh4S9KgGn1JepvQ5iJmoo6SBFUiS8ptqx
Next: 42WjEFn5WQB1KhieLPk6QbpGCZkQwgyNvTG7wuHNHRac

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

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

github/deemru/w8io/3ef1775 
32.39 ms ◑