w8 · tx · D3U···7uY

tx · D3UmK9TR6FXZkNJwPHevMih5rAtW51kCyFWDyxkDS7uY

3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV:  -0.01000000 Waves

2023.09.17 18:27 [3825338] smart account 3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "D3UmK9TR6FXZkNJwPHevMih5rAtW51kCyFWDyxkDS7uY",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1694964505504,
    "version": 2,
    "chainId": 87,
    "sender": "3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV",
    "senderPublicKey": "5SevHzYFiymbFWe1GPt6nNYccPnfTbMft1DqZWfRH8GN",
    "proofs": [
        "S7nhFeJaqBBXiuBdtERQK9U7TGnXogWuu3fB9ywzTrZVumhzcuMAt8JkKHh1AS3ZqB3gtahHLCfgua11U1FVfxt"
    ],
    "script": "base64:BgIdCAISAwoBCBIECgIIARIDCgEIEgQKAggBEgMKAQEXARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJ0IAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQIAAQx0cnlHZXRTdHJpbmcBA2tleQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgUEdGhpcwUDa2V5AQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQlnZXRPcmFjbGUACQEHQWRkcmVzcwEJANkEAQkBDHRyeUdldFN0cmluZwECFHN0YXRpY19vcmFjbGVBZGRyZXNzAR5zdGF0aWNLZXlfdHVydGxlU3Rha2luZ0FkZHJlc3MAAhtzdGF0aWNfdHVydGxlU3Rha2luZ0FkZHJlc3MBHnN0YXRpY0tleV90dXJ0bGVSZWJpcnRoQWRkcmVzcwACG3N0YXRpY190dXJ0bGVSZWJpcnRoQWRkcmVzcwERZ2V0UmViaXJ0aEFkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFXN0YXRpY19yZWJpcnRoQWRkcmVzcwETZ2V0SW5jdWJhdG9yQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIXc3RhdGljX2luY3ViYXRvckFkZHJlc3MBEWdldEZhcm1pbmdBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhVzdGF0aWNfZmFybWluZ0FkZHJlc3MBEmdldEdhbWVEYXBwQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIWc3RhdGljX2dhbWVEYXBwQWRkcmVzcwEOZ2V0QnVybkFkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACEnN0YXRpY19idXJuQWRkcmVzcwESZ2V0QmFieWR1Y2tBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfYmFieUR1Y2tBZGRyZXNzARJnZXRCcmVlZGluZ0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFXN0YXRpY19icmVlZGVyQWRkcmVzcwEQZ2V0TWFzdGVyQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIWc3RhdGljX2NmTWFzdGVyQWRkcmVzcwEXZ2V0VHVydGxlU3Rha2luZ0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQAJAR5zdGF0aWNLZXlfdHVydGxlU3Rha2luZ0FkZHJlc3MAARdnZXRUdXJ0bGVSZWJpcnRoQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAkBHnN0YXRpY0tleV90dXJ0bGVSZWJpcnRoQWRkcmVzcwAACHdBY2NQS2V5CQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCCQEJZ2V0T3JhY2xlAAIPc3RhdGljX3dhcnNQS2V5AhtzdGF0aWNfd2Fyc1BLZXkgbm90IGRlZmluZWQAD3NjQ2FuVXNlQ291cG9ucwkAzAgCCQERZ2V0UmViaXJ0aEFkZHJlc3MACQDMCAIJARNnZXRJbmN1YmF0b3JBZGRyZXNzAAkAzAgCCQERZ2V0RmFybWluZ0FkZHJlc3MACQDMCAIJARJnZXRHYW1lRGFwcEFkZHJlc3MACQDMCAIJARJnZXRCYWJ5ZHVja0FkZHJlc3MACQDMCAIJARJnZXRCcmVlZGluZ0FkZHJlc3MACQDMCAIJARdnZXRUdXJ0bGVTdGFraW5nQWRkcmVzcwAJAMwIAgkBF2dldFR1cnRsZVJlYmlydGhBZGRyZXNzAAUDbmlsARBjb3Vwb25zVXNlclNwZW5kAQR1c2VyCQCsAgIFBHVzZXICBl9zcGVuZAERY291cG9uc1VzZXJBY3RpdmUBBHVzZXIJAKwCAgUEdXNlcgIHX2FjdGl2ZQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBHVzZXIJAKwCAgkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgIEX29sZAEQY291cG9uc1NwZW5kT25TYwECc2MJAKwCAgUCc2MCD19zcGVuZF9ieV91c2luZwESYWRkQ291cG9uc0ludGVybmFsAgR1c2VyBmFtb3VudAQGa2V5T2xkCQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBQR1c2VyBANrZXkJARFjb3Vwb25zVXNlckFjdGl2ZQEFBHVzZXIECmNvdXBvbnNPbGQJAQ10cnlHZXRJbnRlZ2VyAQUDa2V5BAdjb3Vwb25zCQBkAgUKY291cG9uc09sZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZrZXlPbGQFCmNvdXBvbnNPbGQJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQUHY291cG9ucwUDbmlsBQFpAQ9jb25maWd1cmVPcmFjbGUBBm9yYWNsZQMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECD0NDTzogYWRtaW4gb25seQkAzAgCCQELU3RyaW5nRW50cnkCAhRzdGF0aWNfb3JhY2xlQWRkcmVzcwUGb3JhY2xlBQNuaWwBaQEKYWRkQ291cG9ucwIEdXNlcgZhbW91bnQDAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQECIT0CCAUBaQ9jYWxsZXJQdWJsaWNLZXkFCHdBY2NQS2V5BwkAAgECD0NBQzogYWRtaW4gb25seQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAFpAQ9hZGRDb3Vwb25zQmF0Y2gBBWJhdGNoAwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkBAiE9AggFAWkPY2FsbGVyUHVibGljS2V5BQh3QWNjUEtleQcJAAIBAg9DQUM6IGFkbWluIG9ubHkEC2NvdXBvbnNMaXN0CQC1CQIFBWJhdGNoAgE7CgEMaGFuZGxlQ291cG9uAgNhY2MGY291cG9uBApzcGxpdEFycmF5CQC1CQIFBmNvdXBvbgIBOgQEdXNlcgkAkQMCBQpzcGxpdEFycmF5AAAEBmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCnNwbGl0QXJyYXkAAQQIYnVybkNhbGwJAPwHBAkBDmdldEJ1cm5BZGRyZXNzAAIMYnVybkJ5SW52b2tlCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUIYnVybkNhbGwFCGJ1cm5DYWxsCQDOCAIFA2FjYwkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoAAiRsBQtjb3Vwb25zTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMaGFuZGxlQ291cG9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQBaQEIQ0ZSZWZ1bmQCCXJlY2lwaWVudAZhbW91bnQECWNmQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNTMpAggFAWkGY2FsbGVyAgpDRl9BRERSRVNTBANrZXkJAKwCAgkArAICAgJmXwUJY2ZBZGRyZXNzAg5fc3Rha2VfYWRkcmVzcwQMc3Rha2VBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA1MykCCQEQZ2V0TWFzdGVyQWRkcmVzcwAFA2tleQMJAQIhPQIFDHN0YWtlQWRkcmVzcwkApQgBCAUBaQZjYWxsZXIJAAIBAiZDQ1I6IFRoaXMgaXMgc29tZXRoaW5nIGZpc2h5IGdvaW5nIG9uIQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFCXJlY2lwaWVudAUGYW1vdW50AWkBCnVzZUNvdXBvbnMBEWFtb3VudFRyeWluZ1RvUGF5BAppbnZva2luZ1NjCAUBaQZjYWxsZXIDCQBmAgAABRFhbW91bnRUcnlpbmdUb1BheQkAAgECL0NVQzogT25seSBwb3NpdGl2ZSBhbW91bnQgb2YgbW9uZXkgY2FuIGJlIHBhaWQhAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgUPc2NDYW5Vc2VDb3Vwb25zBQppbnZva2luZ1NjCQACAQI9Q1VDOiBPbmx5IGNlcnRhaW4gc21hcnQgY29udHJhY3RzIGNhbiB1c2UgdGhpcyBjb3Vwb24gbW9kdWxlIQQEdXNlcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIECWtleUFjdGl2ZQkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgQQYXZhaWxhYmxlQ291cG9ucwkBDXRyeUdldEludGVnZXIBBQlrZXlBY3RpdmUDCQBmAgAABRBhdmFpbGFibGVDb3Vwb25zCQACAQIOQ1VDOiBHZXQgcmVrdCEECWxlZnRUb1BheQMJAGYCBRFhbW91bnRUcnlpbmdUb1BheQUQYXZhaWxhYmxlQ291cG9ucwkAZQIFEWFtb3VudFRyeWluZ1RvUGF5BRBhdmFpbGFibGVDb3Vwb25zAAAECmFtb3VudFBhaWQJAGUCBRFhbW91bnRUcnlpbmdUb1BheQUJbGVmdFRvUGF5BBRhdmFpbGFibGVDb3Vwb25zTGVmdAkAZQIFEGF2YWlsYWJsZUNvdXBvbnMFCmFtb3VudFBhaWQDCQBmAgAABRRhdmFpbGFibGVDb3Vwb25zTGVmdAkAAgECGkNVQzogWW91IHRyeSB0byBvdmVyc3BlbmQhBAhrZXlTcGVuZAkBEGNvdXBvbnNVc2VyU3BlbmQBBQR1c2VyBAZrZXlPbGQJARRjb3Vwb25zVXNlckFjdGl2ZU9sZAEFBHVzZXIECmtleVNwZW5kU2MJARBjb3Vwb25zU3BlbmRPblNjAQkApQgBCAUBaQZjYWxsZXIECnRvdGFsU3BlbmQJAGQCCQENdHJ5R2V0SW50ZWdlcgEFCGtleVNwZW5kBQphbW91bnRQYWlkBAx0b3RhbFNwZW5kU2MJAGQCCQENdHJ5R2V0SW50ZWdlcgEFCmtleVNwZW5kU2MFCmFtb3VudFBhaWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUIa2V5U3BlbmQFCnRvdGFsU3BlbmQJAMwIAgkBDEludGVnZXJFbnRyeQIFBmtleU9sZAUQYXZhaWxhYmxlQ291cG9ucwkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa2V5QWN0aXZlBRRhdmFpbGFibGVDb3Vwb25zTGVmdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUKa2V5U3BlbmRTYwUMdG90YWxTcGVuZFNjBQNuaWwFCmFtb3VudFBhaWQA46tQaQ==",
    "height": 3825338,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7L3RzXCyu7oG7ZrrF4UL3Bgc9NCN7tmudpewEtPMJYyW
Next: 9QB2iRUPMPudweMpGTuxbXZioc1yToLHxZVJt3r3BpMX

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

Old	New		Differences
70	70
71	71
72	72		func couponsUserActiveOld (user) = (couponsUserActive(user) + "_old")
	73	+
	74	+
	75	+	func couponsSpendOnSc (sc) = (sc + "_spend_by_using")
73	76
74	77
75	78		func addCouponsInternal (user,amount) = {

166	169		else {
167	170		let keySpend = couponsUserSpend(user)
168	171		let keyOld = couponsUserActiveOld(user)
	172	+	let keySpendSc = couponsSpendOnSc(toString(i.caller))
169	173		let totalSpend = (tryGetInteger(keySpend) + amountPaid)
170		-	$Tuple2([IntegerEntry(keySpend, totalSpend), IntegerEntry(keyOld, availableCoupons), IntegerEntry(keyActive, availableCouponsLeft)], amountPaid)
	174	+	let totalSpendSc = (tryGetInteger(keySpendSc) + amountPaid)
	175	+	$Tuple2([IntegerEntry(keySpend, totalSpend), IntegerEntry(keyOld, availableCoupons), IntegerEntry(keyActive, availableCouponsLeft), IntegerEntry(keySpendSc, totalSpendSc)], amountPaid)
171	176		}
172	177		}
173	178		}

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

github/deemru/w8io/3ef1775 
40.86 ms ◑