w8 · tx · 61K···asf

tx · 61K8EJMb7QZuiRvbfMnn3JxonErjhrkh61cg5XtGXasf

3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV:  -0.00900000 Waves

2023.09.19 15:29 [3828044] smart account 3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "61K8EJMb7QZuiRvbfMnn3JxonErjhrkh61cg5XtGXasf",
    "fee": 900000,
    "feeAssetId": null,
    "timestamp": 1695126547040,
    "version": 2,
    "chainId": 87,
    "sender": "3P7aVqHv6fXkYuS4sRW2K17ENZMsbXi3sPV",
    "senderPublicKey": "5SevHzYFiymbFWe1GPt6nNYccPnfTbMft1DqZWfRH8GN",
    "proofs": [
        "3xgkFE4YVUsQbLqFkFLhP6SDCygapHoTbS6bsvCwuxQt9VVRQTVmAD8wtk4N6mP7bH6JBzyfDbBqFrswXRtqRAYX"
    ],
    "script": "base64:BgIdCAISAwoBCBIECgIIARIDCgEIEgQKAggBEgMKAQEZARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIHYWRkcmVzcwNrZXkEByRtYXRjaDAJAJ0IAgUHYWRkcmVzcwUDa2V5AwkAAQIFByRtYXRjaDACBlN0cmluZwQBYQUHJG1hdGNoMAUBYQIAAQx0cnlHZXRTdHJpbmcBA2tleQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgUEdGhpcwUDa2V5AQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQlnZXRPcmFjbGUACQEHQWRkcmVzcwEJANkEAQkBDHRyeUdldFN0cmluZwECFHN0YXRpY19vcmFjbGVBZGRyZXNzAR5zdGF0aWNLZXlfdHVydGxlU3Rha2luZ0FkZHJlc3MAAhtzdGF0aWNfdHVydGxlU3Rha2luZ0FkZHJlc3MBHnN0YXRpY0tleV90dXJ0bGVSZWJpcnRoQWRkcmVzcwACG3N0YXRpY190dXJ0bGVSZWJpcnRoQWRkcmVzcwEVc3RhdGljS2V5X3JvcGVBZGRyZXNzAAISc3RhdGljX3JvcGVBZGRyZXNzARFnZXRSZWJpcnRoQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIVc3RhdGljX3JlYmlydGhBZGRyZXNzARNnZXRJbmN1YmF0b3JBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhdzdGF0aWNfaW5jdWJhdG9yQWRkcmVzcwERZ2V0RmFybWluZ0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFXN0YXRpY19mYXJtaW5nQWRkcmVzcwESZ2V0R2FtZURhcHBBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfZ2FtZURhcHBBZGRyZXNzAQ5nZXRCdXJuQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAISc3RhdGljX2J1cm5BZGRyZXNzARJnZXRCYWJ5ZHVja0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQACFnN0YXRpY19iYWJ5RHVja0FkZHJlc3MBEmdldEJyZWVkaW5nQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAIVc3RhdGljX2JyZWVkZXJBZGRyZXNzARBnZXRNYXN0ZXJBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUAAhZzdGF0aWNfY2ZNYXN0ZXJBZGRyZXNzARdnZXRUdXJ0bGVTdGFraW5nQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAkBHnN0YXRpY0tleV90dXJ0bGVTdGFraW5nQWRkcmVzcwABF2dldFR1cnRsZVJlYmlydGhBZGRyZXNzAAkBB0FkZHJlc3MBCQDZBAEJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIJAQlnZXRPcmFjbGUACQEec3RhdGljS2V5X3R1cnRsZVJlYmlydGhBZGRyZXNzAAEOZ2V0Um9wZUFkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQAJARVzdGF0aWNLZXlfcm9wZUFkZHJlc3MAAAh3QWNjUEtleQkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgkBCWdldE9yYWNsZQACD3N0YXRpY193YXJzUEtleQIbc3RhdGljX3dhcnNQS2V5IG5vdCBkZWZpbmVkAA9zY0NhblVzZUNvdXBvbnMJAMwIAgkBEWdldFJlYmlydGhBZGRyZXNzAAkAzAgCCQETZ2V0SW5jdWJhdG9yQWRkcmVzcwAJAMwIAgkBEWdldEZhcm1pbmdBZGRyZXNzAAkAzAgCCQESZ2V0R2FtZURhcHBBZGRyZXNzAAkAzAgCCQESZ2V0QmFieWR1Y2tBZGRyZXNzAAkAzAgCCQESZ2V0QnJlZWRpbmdBZGRyZXNzAAkAzAgCCQEXZ2V0VHVydGxlU3Rha2luZ0FkZHJlc3MACQDMCAIJARdnZXRUdXJ0bGVSZWJpcnRoQWRkcmVzcwAJAMwIAgkBDmdldFJvcGVBZGRyZXNzAAUDbmlsARBjb3Vwb25zVXNlclNwZW5kAQR1c2VyCQCsAgIFBHVzZXICBl9zcGVuZAERY291cG9uc1VzZXJBY3RpdmUBBHVzZXIJAKwCAgUEdXNlcgIHX2FjdGl2ZQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBHVzZXIJAKwCAgkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgIEX29sZAEQY291cG9uc1NwZW5kT25TYwECc2MJAKwCAgUCc2MCD19zcGVuZF9ieV91c2luZwESYWRkQ291cG9uc0ludGVybmFsAgR1c2VyBmFtb3VudAQGa2V5T2xkCQEUY291cG9uc1VzZXJBY3RpdmVPbGQBBQR1c2VyBANrZXkJARFjb3Vwb25zVXNlckFjdGl2ZQEFBHVzZXIECmNvdXBvbnNPbGQJAQ10cnlHZXRJbnRlZ2VyAQUDa2V5BAdjb3Vwb25zCQBkAgUKY291cG9uc09sZAUGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQZrZXlPbGQFCmNvdXBvbnNPbGQJAMwIAgkBDEludGVnZXJFbnRyeQIFA2tleQUHY291cG9ucwUDbmlsBQFpAQ9jb25maWd1cmVPcmFjbGUBBm9yYWNsZQMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECD0NDTzogYWRtaW4gb25seQkAzAgCCQELU3RyaW5nRW50cnkCAhRzdGF0aWNfb3JhY2xlQWRkcmVzcwUGb3JhY2xlBQNuaWwBaQEKYWRkQ291cG9ucwIEdXNlcgZhbW91bnQDAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQECIT0CCAUBaQ9jYWxsZXJQdWJsaWNLZXkFCHdBY2NQS2V5BwkAAgECD0NBQzogYWRtaW4gb25seQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAFpAQ9hZGRDb3Vwb25zQmF0Y2gBBWJhdGNoAwMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkBAiE9AggFAWkPY2FsbGVyUHVibGljS2V5BQh3QWNjUEtleQcJAAIBAg9DQUM6IGFkbWluIG9ubHkEC2NvdXBvbnNMaXN0CQC1CQIFBWJhdGNoAgE7CgEMaGFuZGxlQ291cG9uAgNhY2MGY291cG9uBApzcGxpdEFycmF5CQC1CQIFBmNvdXBvbgIBOgQEdXNlcgkAkQMCBQpzcGxpdEFycmF5AAAEBmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCnNwbGl0QXJyYXkAAQQIYnVybkNhbGwJAPwHBAkBDmdldEJ1cm5BZGRyZXNzAAIMYnVybkJ5SW52b2tlCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwDCQAAAgUIYnVybkNhbGwFCGJ1cm5DYWxsCQDOCAIFA2FjYwkBEmFkZENvdXBvbnNJbnRlcm5hbAIFBHVzZXIFBmFtb3VudAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgoAAiRsBQtjb3Vwb25zTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMaGFuZGxlQ291cG9uAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAyMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQBaQEIQ0ZSZWZ1bmQCCXJlY2lwaWVudAZhbW91bnQECWNmQWRkcmVzcwkBEUBleHRyTmF0aXZlKDEwNTMpAggFAWkGY2FsbGVyAgpDRl9BRERSRVNTBANrZXkJAKwCAgkArAICAgJmXwUJY2ZBZGRyZXNzAg5fc3Rha2VfYWRkcmVzcwQMc3Rha2VBZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA1MykCCQEQZ2V0TWFzdGVyQWRkcmVzcwAFA2tleQMJAQIhPQIFDHN0YWtlQWRkcmVzcwkApQgBCAUBaQZjYWxsZXIJAAIBAiZDQ1I6IFRoaXMgaXMgc29tZXRoaW5nIGZpc2h5IGdvaW5nIG9uIQkBEmFkZENvdXBvbnNJbnRlcm5hbAIFCXJlY2lwaWVudAUGYW1vdW50AWkBCnVzZUNvdXBvbnMBEWFtb3VudFRyeWluZ1RvUGF5BAppbnZva2luZ1NjCAUBaQZjYWxsZXIDCQBmAgAABRFhbW91bnRUcnlpbmdUb1BheQkAAgECL0NVQzogT25seSBwb3NpdGl2ZSBhbW91bnQgb2YgbW9uZXkgY2FuIGJlIHBhaWQhAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgUPc2NDYW5Vc2VDb3Vwb25zBQppbnZva2luZ1NjCQACAQI9Q1VDOiBPbmx5IGNlcnRhaW4gc21hcnQgY29udHJhY3RzIGNhbiB1c2UgdGhpcyBjb3Vwb24gbW9kdWxlIQQEdXNlcgkApQgBCAUBaQxvcmlnaW5DYWxsZXIECWtleUFjdGl2ZQkBEWNvdXBvbnNVc2VyQWN0aXZlAQUEdXNlcgQQYXZhaWxhYmxlQ291cG9ucwkBDXRyeUdldEludGVnZXIBBQlrZXlBY3RpdmUDCQBmAgAABRBhdmFpbGFibGVDb3Vwb25zCQACAQIOQ1VDOiBHZXQgcmVrdCEECWxlZnRUb1BheQMJAGYCBRFhbW91bnRUcnlpbmdUb1BheQUQYXZhaWxhYmxlQ291cG9ucwkAZQIFEWFtb3VudFRyeWluZ1RvUGF5BRBhdmFpbGFibGVDb3Vwb25zAAAECmFtb3VudFBhaWQJAGUCBRFhbW91bnRUcnlpbmdUb1BheQUJbGVmdFRvUGF5BBRhdmFpbGFibGVDb3Vwb25zTGVmdAkAZQIFEGF2YWlsYWJsZUNvdXBvbnMFCmFtb3VudFBhaWQDCQBmAgAABRRhdmFpbGFibGVDb3Vwb25zTGVmdAkAAgECGkNVQzogWW91IHRyeSB0byBvdmVyc3BlbmQhBAhrZXlTcGVuZAkBEGNvdXBvbnNVc2VyU3BlbmQBBQR1c2VyBAZrZXlPbGQJARRjb3Vwb25zVXNlckFjdGl2ZU9sZAEFBHVzZXIECmtleVNwZW5kU2MJARBjb3Vwb25zU3BlbmRPblNjAQkApQgBCAUBaQZjYWxsZXIECnRvdGFsU3BlbmQJAGQCCQENdHJ5R2V0SW50ZWdlcgEFCGtleVNwZW5kBQphbW91bnRQYWlkBAx0b3RhbFNwZW5kU2MJAGQCCQENdHJ5R2V0SW50ZWdlcgEFCmtleVNwZW5kU2MFCmFtb3VudFBhaWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgUIa2V5U3BlbmQFCnRvdGFsU3BlbmQJAMwIAgkBDEludGVnZXJFbnRyeQIFBmtleU9sZAUQYXZhaWxhYmxlQ291cG9ucwkAzAgCCQEMSW50ZWdlckVudHJ5AgUJa2V5QWN0aXZlBRRhdmFpbGFibGVDb3Vwb25zTGVmdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUKa2V5U3BlbmRTYwUMdG90YWxTcGVuZFNjBQNuaWwFCmFtb3VudFBhaWQAWMVzcg==",
    "height": 3828044,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: jhh7zQh2EbHbgn3RE3jkgfUTWQX1H3hSARgNm4T3iSL
Next: CtUcoCUrmegun4Tnr6vYP9uvZi2PTzCVVPK1rDFPhAZN

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

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

github/deemru/w8io/3ef1775 
33.11 ms ◑