w8 · tx · BBR···dTp

tx · BBRtwmHQQYD8ago7UMtxpMDxV9kLiFPRFx35jBmQgdTp

3Mqx3EbkFTCmig4pAcR9ZJE7Mhv1hPKdGsJ:  -0.00900000 Waves

2024.10.03 19:55 [3310932] smart account 3Mqx3EbkFTCmig4pAcR9ZJE7Mhv1hPKdGsJ > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BBRtwmHQQYD8ago7UMtxpMDxV9kLiFPRFx35jBmQgdTp",
    "fee": 900000,
    "feeAssetId": null,
    "timestamp": 1727974554294,
    "version": 2,
    "chainId": 84,
    "sender": "3Mqx3EbkFTCmig4pAcR9ZJE7Mhv1hPKdGsJ",
    "senderPublicKey": "4xhh2o8LRDLF2yUUw8RkUT5JsPYrPJfLLeWkTdkSeVnS",
    "proofs": [
        "pQ5i3E64kbm9dFtdNLW88rqWJobNKif5UrjiYaoV56EZKGhAo4YitY75ERHsC9febSZdH3GRjtf157SdFm8FosR"
    ],
    "script": "base64:BgIWCAISAwoBCBIDCgEBEgQKAgEBEgASABgAC1NUQVJUX1BSSUNFAKDCHgAIUVVPVElFTlQAAgAIREVDSU1BTFMAgMLXLwEXc3RhdGljS2V5X29yYWNsZUFkZHJlc3MAAhRzdGF0aWNfb3JhY2xlQWRkcmVzcwEUc3RhdGljS2V5X2VnZ0Fzc2V0SWQAAhFzdGF0aWNfZWdnQXNzZXRJZAESc3RhdGljS2V5X2V4dHJhRmVlAAIPc3RhdGljX2V4dHJhRmVlARdzdGF0aWNLZXlfZmVlQWdncmVnYXRvcgACFHN0YXRpY19mZWVBZ2dyZWdhdG9yARhzdGF0aWNLZXlfY291cG9uc0FkZHJlc3MAAhVzdGF0aWNfY291cG9uc0FkZHJlc3MBFXN0YXRpY0tleV9idXJuQWRkcmVzcwACEnN0YXRpY19idXJuQWRkcmVzcwEOa2V5VXNlckFkZHJlc3MBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIGX2xldmVsARNrZXlVc2VyU3BlbnRPbkxldmVsAQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCDV9zcGVudE9uTGV2ZWwBFmtleVVzZXJTa2lsbFJlc2V0VGltZXMBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIRX3NraWxsc1Jlc2V0VGltZXMBE2tleVVzZXJTcGVudE9uUmVzZXQBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwINX3NwZW50T25SZXNldAENdHJ5R2V0SW50ZWdlcgEDa2V5BAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCB2FkZHJlc3MDa2V5BAckbWF0Y2gwCQCdCAIFB2FkZHJlc3MFA2tleQMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAWEFByRtYXRjaDAFAWECAAEMdHJ5R2V0U3RyaW5nAQNrZXkJARR0cnlHZXRTdHJpbmdFeHRlcm5hbAIFBHRoaXMFA2tleQEJZ2V0T3JhY2xlAAkBB0FkZHJlc3MBCQDZBAEJAQx0cnlHZXRTdHJpbmcBCQEXc3RhdGljS2V5X29yYWNsZUFkZHJlc3MAAQ1nZXRFZ2dBc3NldElkAAkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAkBFHN0YXRpY0tleV9lZ2dBc3NldElkAAEQZ2V0RmVlQWdncmVnYXRvcgAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAkBF3N0YXRpY0tleV9mZWVBZ2dyZWdhdG9yAAERZ2V0Q291cG9uc0FkZHJlc3MACQEHQWRkcmVzcwEJANkEAQkBFHRyeUdldFN0cmluZ0V4dGVybmFsAgkBCWdldE9yYWNsZQAJARhzdGF0aWNLZXlfY291cG9uc0FkZHJlc3MAAQ5nZXRCdXJuQWRkcmVzcwAJAQdBZGRyZXNzAQkA2QQBCQEUdHJ5R2V0U3RyaW5nRXh0ZXJuYWwCCQEJZ2V0T3JhY2xlAAkBFXN0YXRpY0tleV9idXJuQWRkcmVzcwABEGNhbGN1bGF0ZUxldmVsVXABC2Z1dHVyZUxldmVsBAJwMQkAbAYFC1NUQVJUX1BSSUNFAAgJAGkCAJBOBQtmdXR1cmVMZXZlbAAEAAgFB0NFSUxJTkcEAnAyCQBsBgULZnV0dXJlTGV2ZWwAAAkAaQIAkE4FCFFVT1RJRU5UAAQACAUHQ0VJTElORwQFdG90YWwJAGsDBQJwMQUCcDIFCERFQ0lNQUxTBAVkZWJ1ZwkAuQkCCQDMCAIJAKwCAgIJbmV3TGV2ZWw9CQCkAwEFC2Z1dHVyZUxldmVsCQDMCAIJAKwCAgIDcDE9CQCkAwEFAnAxCQDMCAIJAKwCAgIDcDI9CQCkAwEFAnAyCQDMCAIJAKwCAgIGdG90YWw9CQCkAwEFBXRvdGFsBQNuaWwCATsJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCAgVERUJVRwUFZGVidWcFA25pbAUFdG90YWwBDmNhbGN1bGF0ZVJlc2V0AgxjdXJyZW50TGV2ZWwKcmVzZXRUaW1lcwQHREVWSURFUgAEBA9yZXNldFRpbWVzVG9Vc2UJAGQCBQpyZXNldFRpbWVzAAEEBnJlc3VsdAkAawMFD3Jlc2V0VGltZXNUb1VzZQkAaAIFDGN1cnJlbnRMZXZlbAUIREVDSU1BTFMFB0RFVklERVIEBWRlYnVnCQC5CQIJAMwIAgkArAICAgZsZXZlbD0JAKQDAQUMY3VycmVudExldmVsCQDMCAIJAKwCAgILcmVzZXRUaW1lcz0JAKQDAQUKcmVzZXRUaW1lcwkAzAgCCQCsAgICEHJlc2V0VGltZXNUb1VzZT0JAKQDAQUPcmVzZXRUaW1lc1RvVXNlCQDMCAIJAKwCAgIHcmVzdWx0PQkApAMBBQZyZXN1bHQFA25pbAIBOwkAlAoCCQDMCAIJAQtTdHJpbmdFbnRyeQICBURFQlVHBQVkZWJ1ZwUDbmlsBQZyZXN1bHQBFmNoZWNrQWRkaXRpb25hbFBheW1lbnQBB3BheW1lbnQDCQEJaXNEZWZpbmVkAQgFB3BheW1lbnQHYXNzZXRJZAkAAgECGkxTQ0FQOiBQbGVhc2UgYXR0YWNoIHdhdmVzBAlmZWVBbW91bnQJARFAZXh0ck5hdGl2ZSgxMDUwKQIJAQlnZXRPcmFjbGUACQESc3RhdGljS2V5X2V4dHJhRmVlAAMJAQIhPQIIBQdwYXltZW50BmFtb3VudAUJZmVlQW1vdW50CQACAQkArAICCQCsAgICHUxTQ0FQOiBQbGVhc2UgYXR0YWNoIGV4YWN0bHkgCQCkAwEFCWZlZUFtb3VudAITIGFtb3VudCBvZiB3YXZlbGV0cwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQEQZ2V0RmVlQWdncmVnYXRvcgAFCWZlZUFtb3VudAUEdW5pdAUDbmlsBQFpAQ9jb25maWd1cmVPcmFjbGUBBm9yYWNsZQMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECD1JDTzogYWRtaW4gb25seQkAzAgCCQELU3RyaW5nRW50cnkCCQEXc3RhdGljS2V5X29yYWNsZUFkZHJlc3MABQZvcmFjbGUFA25pbAFpAQtsZXZlbFVwTWF0aAELZnV0dXJlTGV2ZWwJARBjYWxjdWxhdGVMZXZlbFVwAQULZnV0dXJlTGV2ZWwBaQEPcmVzZXRTa2lsbHNNYXRoAgxjdXJyZW50TGV2ZWwKcmVzZXRUaW1lcwkBDmNhbGN1bGF0ZVJlc2V0AgUMY3VycmVudExldmVsBQpyZXNldFRpbWVzAWkBB2xldmVsVXAABBRrZXlVc2VyQWRkcmVzc0ZpbGxlZAkBDmtleVVzZXJBZGRyZXNzAQkApQgBCAUBaQZjYWxsZXIEGWtleVVzZXJTcGVudE9uTGV2ZWxGaWxsZWQJARNrZXlVc2VyU3BlbnRPbkxldmVsAQkApQgBCAUBaQZjYWxsZXIEC2xldmVsT2ZVc2VyCQENdHJ5R2V0SW50ZWdlcgEFFGtleVVzZXJBZGRyZXNzRmlsbGVkBA50b3RhbFNwZW50VXNlcgkBDXRyeUdldEludGVnZXIBBRlrZXlVc2VyU3BlbnRPbkxldmVsRmlsbGVkBAlwcmljZUNhbGMJARBjYWxjdWxhdGVMZXZlbFVwAQkAZAIFC2xldmVsT2ZVc2VyAAEEBXByaWNlCAUJcHJpY2VDYWxjAl8yBAxmaXJzdFBheW1lbnQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQGYW1vdW50CAUMZmlyc3RQYXltZW50BmFtb3VudAMJAQIhPQIIBQxmaXJzdFBheW1lbnQHYXNzZXRJZAkBDWdldEVnZ0Fzc2V0SWQACQACAQkArAICAkFMTFU6IFlvdSBjYW4gYXR0YWNoIG9ubHkgRUdHIHRva2VucyB3aXRoIHRoZSBmb2xsb3dpbmcgYXNzZXQgaWQ6IAkA2AQBCQENZ2V0RWdnQXNzZXRJZAADCQECIT0CBQZhbW91bnQFBXByaWNlCQACAQkArAICAilMTFU6IFBsZWFzZSBhdHRhY2ggdGhlIGV4YWN0IGFzc2V0IGFtb3VudAkApAMBBQVwcmljZQQMcmVjb3JkQWN0aW9uCQD8BwQJARFnZXRDb3Vwb25zQWRkcmVzcwACDHJlY29yZEFjdGlvbgkAzAgCAgdMRVZFTFVQBQNuaWwFA25pbAMJAAACBQxyZWNvcmRBY3Rpb24FDHJlY29yZEFjdGlvbgQIYnVybkNhbGwJAPwHBAkBDmdldEJ1cm5BZGRyZXNzAAIUYnVybkF0dGFjaGVkUGF5bWVudHMFA25pbAkAzAgCCQEPQXR0YWNoZWRQYXltZW50AgkBDWdldEVnZ0Fzc2V0SWQABQZhbW91bnQFA25pbAMJAAACBQhidXJuQ2FsbAUIYnVybkNhbGwJAM4IAgkAzggCCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRrZXlVc2VyQWRkcmVzc0ZpbGxlZAkAZAIFC2xldmVsT2ZVc2VyAAEJAMwIAgkBDEludGVnZXJFbnRyeQIFGWtleVVzZXJTcGVudE9uTGV2ZWxGaWxsZWQJAGQCBQ50b3RhbFNwZW50VXNlcgUGYW1vdW50BQNuaWwIBQlwcmljZUNhbGMCXzEJARZjaGVja0FkZGl0aW9uYWxQYXltZW50AQkAkQMCCAUBaQhwYXltZW50cwABCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBBXJlc2V0AAQUa2V5VXNlckFkZHJlc3NGaWxsZWQJAQ5rZXlVc2VyQWRkcmVzcwEJAKUIAQgFAWkGY2FsbGVyBAtsZXZlbE9mVXNlcgkBDXRyeUdldEludGVnZXIBBRRrZXlVc2VyQWRkcmVzc0ZpbGxlZAQca2V5VXNlclNraWxsUmVzZXRUaW1lc0ZpbGxlZAkBFmtleVVzZXJTa2lsbFJlc2V0VGltZXMBCQClCAEIBQFpBmNhbGxlcgQMcmVzZXRzT2ZVc2VyCQENdHJ5R2V0SW50ZWdlcgEFHGtleVVzZXJTa2lsbFJlc2V0VGltZXNGaWxsZWQEGWtleVVzZXJTcGVudE9uUmVzZXRGaWxsZWQJARNrZXlVc2VyU3BlbnRPblJlc2V0AQkApQgBCAUBaQZjYWxsZXIEFGFtb3VudE9mU3BlbmRPblJlc2V0CQENdHJ5R2V0SW50ZWdlcgEFGWtleVVzZXJTcGVudE9uUmVzZXRGaWxsZWQEGGNhbGN1bGF0ZVJlc2V0Q2FsY3VsYXRlZAkBDmNhbGN1bGF0ZVJlc2V0AgULbGV2ZWxPZlVzZXIFDHJlc2V0c09mVXNlcgQFcHJpY2UIBRhjYWxjdWxhdGVSZXNldENhbGN1bGF0ZWQCXzIEDGZpcnN0UGF5bWVudAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABAZhbW91bnQIBQxmaXJzdFBheW1lbnQGYW1vdW50AwkBAiE9AggFDGZpcnN0UGF5bWVudAdhc3NldElkCQENZ2V0RWdnQXNzZXRJZAAJAAIBCQCsAgICQExSOiBZb3UgY2FuIGF0dGFjaCBvbmx5IEVHRyB0b2tlbnMgd2l0aCB0aGUgZm9sbG93aW5nIGFzc2V0IGlkOiAJANgEAQkBDWdldEVnZ0Fzc2V0SWQAAwkBAiE9AgUGYW1vdW50BQVwcmljZQkAAgEJAKwCAgIoTFI6IFBsZWFzZSBhdHRhY2ggdGhlIGV4YWN0IGFzc2V0IGFtb3VudAkApAMBBQVwcmljZQkAzggCCQDOCAIJAMwIAgkBDEludGVnZXJFbnRyeQIFHGtleVVzZXJTa2lsbFJlc2V0VGltZXNGaWxsZWQJAGQCBQxyZXNldHNPZlVzZXIAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgUZa2V5VXNlclNwZW50T25SZXNldEZpbGxlZAkAZAIFFGFtb3VudE9mU3BlbmRPblJlc2V0BQZhbW91bnQFA25pbAgFGGNhbGN1bGF0ZVJlc2V0Q2FsY3VsYXRlZAJfMQkBFmNoZWNrQWRkaXRpb25hbFBheW1lbnQBCQCRAwIIBQFpCHBheW1lbnRzAAEAwU9mJQ==",
    "height": 3310932,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FcvMxqSuYQnRSvsiAS2Yrg9Zrh6pfeP7GVtSrfYQJmKx
Next: none

Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let START_PRICE = 500000
5 5  
6 6  let QUOTIENT = 2
7 7  
8 8  let DECIMALS = 100000000
9 9  
10 10  func staticKey_oracleAddress () = "static_oracleAddress"
11 11  
12 12  
13 13  func staticKey_eggAssetId () = "static_eggAssetId"
14 14  
15 15  
16 16  func staticKey_extraFee () = "static_extraFee"
17 17  
18 18  
19 19  func staticKey_feeAggregator () = "static_feeAggregator"
20 20  
21 21  
22 22  func staticKey_couponsAddress () = "static_couponsAddress"
23 23  
24 24  
25 25  func staticKey_burnAddress () = "static_burnAddress"
26 26  
27 27  
28 28  func keyUserAddress (address) = (address + "_level")
29 29  
30 30  
31 31  func keyUserSpentOnLevel (address) = (address + "_spentOnLevel")
32 32  
33 33  
34 34  func keyUserSkillResetTimes (address) = (address + "_skillsResetTimes")
35 35  
36 36  
37 37  func keyUserSpentOnReset (address) = (address + "_spentOnReset")
38 38  
39 39  
40 40  func tryGetInteger (key) = match getInteger(this, key) {
41 41      case b: Int => 
42 42          b
43 43      case _ => 
44 44          0
45 45  }
46 46  
47 47  
48 48  func tryGetStringExternal (address,key) = match getString(address, key) {
49 49      case a: String => 
50 50          a
51 51      case _ => 
52 52          ""
53 53  }
54 54  
55 55  
56 56  func tryGetString (key) = tryGetStringExternal(this, key)
57 57  
58 58  
59 59  func getOracle () = Address(fromBase58String(tryGetString(staticKey_oracleAddress())))
60 60  
61 61  
62 62  func getEggAssetId () = fromBase58String(tryGetStringExternal(getOracle(), staticKey_eggAssetId()))
63 63  
64 64  
65 65  func getFeeAggregator () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_feeAggregator())))
66 66  
67 67  
68 68  func getCouponsAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_couponsAddress())))
69 69  
70 70  
71 71  func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_burnAddress())))
72 72  
73 73  
74 74  func calculateLevelUp (futureLevel) = {
75 75      let p1 = pow(START_PRICE, 8, (10000 / futureLevel), 4, 8, CEILING)
76 76      let p2 = pow(futureLevel, 0, (10000 / QUOTIENT), 4, 8, CEILING)
77 77      let total = fraction(p1, p2, DECIMALS)
78 78      let debug = makeString([("newLevel=" + toString(futureLevel)), ("p1=" + toString(p1)), ("p2=" + toString(p2)), ("total=" + toString(total))], ";")
79 79      $Tuple2([StringEntry("DEBUG", debug)], total)
80 80      }
81 81  
82 82  
83 83  func calculateReset (currentLevel,resetTimes) = {
84 84      let DEVIDER = 4
85 85      let resetTimesToUse = (resetTimes + 1)
86 86      let result = fraction(resetTimesToUse, (currentLevel * DECIMALS), DEVIDER)
87 87      let debug = makeString([("level=" + toString(currentLevel)), ("resetTimes=" + toString(resetTimes)), ("resetTimesToUse=" + toString(resetTimesToUse)), ("result=" + toString(result))], ";")
88 88      $Tuple2([StringEntry("DEBUG", debug)], result)
89 89      }
90 90  
91 91  
92 92  func checkAdditionalPayment (payment) = if (isDefined(payment.assetId))
93 93      then throw("LSCAP: Please attach waves")
94 94      else {
95 95          let feeAmount = getIntegerValue(getOracle(), staticKey_extraFee())
96 96          if ((payment.amount != feeAmount))
97 97              then throw((("LSCAP: Please attach exactly " + toString(feeAmount)) + " amount of wavelets"))
98 98              else [ScriptTransfer(getFeeAggregator(), feeAmount, unit)]
99 99          }
100 100  
101 101  
102 102  @Callable(i)
103 103  func configureOracle (oracle) = if ((i.caller != this))
104 104      then throw("RCO: admin only")
105 105      else [StringEntry(staticKey_oracleAddress(), oracle)]
106 106  
107 107  
108 108  
109 109  @Callable(i)
110 110  func levelUpMath (futureLevel) = calculateLevelUp(futureLevel)
111 111  
112 112  
113 113  
114 114  @Callable(i)
115 115  func resetSkillsMath (currentLevel,resetTimes) = calculateReset(currentLevel, resetTimes)
116 116  
117 117  
118 118  
119 119  @Callable(i)
120 120  func levelUp () = {
121 121      let keyUserAddressFilled = keyUserAddress(toString(i.caller))
122 122      let keyUserSpentOnLevelFilled = keyUserSpentOnLevel(toString(i.caller))
123 123      let levelOfUser = tryGetInteger(keyUserAddressFilled)
124 124      let totalSpentUser = tryGetInteger(keyUserSpentOnLevelFilled)
125 125      let priceCalc = calculateLevelUp((levelOfUser + 1))
126 126      let price = priceCalc._2
127 127      let firstPayment = value(i.payments[0])
128 128      let amount = firstPayment.amount
129 129      if ((firstPayment.assetId != getEggAssetId()))
130 130          then throw(("LLU: You can attach only EGG tokens with the following asset id: " + toBase58String(getEggAssetId())))
131 131          else if ((amount != price))
132 132              then throw(("LLU: Please attach the exact asset amount" + toString(price)))
133 133              else {
134 134                  let recordAction = invoke(getCouponsAddress(), "recordAction", ["LEVELUP"], nil)
135 135                  if ((recordAction == recordAction))
136 136                      then {
137 137                          let burnCall = invoke(getBurnAddress(), "burnAttachedPayments", nil, [AttachedPayment(getEggAssetId(), amount)])
138 138                          if ((burnCall == burnCall))
139 139                              then (([IntegerEntry(keyUserAddressFilled, (levelOfUser + 1)), IntegerEntry(keyUserSpentOnLevelFilled, (totalSpentUser + amount))] ++ priceCalc._1) ++ checkAdditionalPayment(i.payments[1]))
140 140                              else throw("Strict value is not equal to itself.")
141 141                          }
142 142                      else throw("Strict value is not equal to itself.")
143 143                  }
144 144      }
145 145  
146 146  
147 147  
148 148  @Callable(i)
149 149  func reset () = {
150 150      let keyUserAddressFilled = keyUserAddress(toString(i.caller))
151 151      let levelOfUser = tryGetInteger(keyUserAddressFilled)
152 152      let keyUserSkillResetTimesFilled = keyUserSkillResetTimes(toString(i.caller))
153 153      let resetsOfUser = tryGetInteger(keyUserSkillResetTimesFilled)
154 154      let keyUserSpentOnResetFilled = keyUserSpentOnReset(toString(i.caller))
155 155      let amountOfSpendOnReset = tryGetInteger(keyUserSpentOnResetFilled)
156 156      let calculateResetCalculated = calculateReset(levelOfUser, resetsOfUser)
157 157      let price = calculateResetCalculated._2
158 158      let firstPayment = value(i.payments[0])
159 159      let amount = firstPayment.amount
160 160      if ((firstPayment.assetId != getEggAssetId()))
161 161          then throw(("LR: You can attach only EGG tokens with the following asset id: " + toBase58String(getEggAssetId())))
162 162          else if ((amount != price))
163 163              then throw(("LR: Please attach the exact asset amount" + toString(price)))
164 164              else (([IntegerEntry(keyUserSkillResetTimesFilled, (resetsOfUser + 1)), IntegerEntry(keyUserSpentOnResetFilled, (amountOfSpendOnReset + amount))] ++ calculateResetCalculated._1) ++ checkAdditionalPayment(i.payments[1]))
165 165      }
166 166  
167 167

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let START_PRICE = 500000
5	5
6	6	let QUOTIENT = 2
7	7
8	8	let DECIMALS = 100000000
9	9
10	10	func staticKey_oracleAddress () = "static_oracleAddress"
11	11
12	12
13	13	func staticKey_eggAssetId () = "static_eggAssetId"
14	14
15	15
16	16	func staticKey_extraFee () = "static_extraFee"
17	17
18	18
19	19	func staticKey_feeAggregator () = "static_feeAggregator"
20	20
21	21
22	22	func staticKey_couponsAddress () = "static_couponsAddress"
23	23
24	24
25	25	func staticKey_burnAddress () = "static_burnAddress"
26	26
27	27
28	28	func keyUserAddress (address) = (address + "_level")
29	29
30	30
31	31	func keyUserSpentOnLevel (address) = (address + "_spentOnLevel")
32	32
33	33
34	34	func keyUserSkillResetTimes (address) = (address + "_skillsResetTimes")
35	35
36	36
37	37	func keyUserSpentOnReset (address) = (address + "_spentOnReset")
38	38
39	39
40	40	func tryGetInteger (key) = match getInteger(this, key) {
41	41	case b: Int =>
42	42	b
43	43	case _ =>
44	44	0
45	45	}
46	46
47	47
48	48	func tryGetStringExternal (address,key) = match getString(address, key) {
49	49	case a: String =>
50	50	a
51	51	case _ =>
52	52	""
53	53	}
54	54
55	55
56	56	func tryGetString (key) = tryGetStringExternal(this, key)
57	57
58	58
59	59	func getOracle () = Address(fromBase58String(tryGetString(staticKey_oracleAddress())))
60	60
61	61
62	62	func getEggAssetId () = fromBase58String(tryGetStringExternal(getOracle(), staticKey_eggAssetId()))
63	63
64	64
65	65	func getFeeAggregator () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_feeAggregator())))
66	66
67	67
68	68	func getCouponsAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_couponsAddress())))
69	69
70	70
71	71	func getBurnAddress () = Address(fromBase58String(tryGetStringExternal(getOracle(), staticKey_burnAddress())))
72	72
73	73
74	74	func calculateLevelUp (futureLevel) = {
75	75	let p1 = pow(START_PRICE, 8, (10000 / futureLevel), 4, 8, CEILING)
76	76	let p2 = pow(futureLevel, 0, (10000 / QUOTIENT), 4, 8, CEILING)
77	77	let total = fraction(p1, p2, DECIMALS)
78	78	let debug = makeString([("newLevel=" + toString(futureLevel)), ("p1=" + toString(p1)), ("p2=" + toString(p2)), ("total=" + toString(total))], ";")
79	79	$Tuple2([StringEntry("DEBUG", debug)], total)
80	80	}
81	81
82	82
83	83	func calculateReset (currentLevel,resetTimes) = {
84	84	let DEVIDER = 4
85	85	let resetTimesToUse = (resetTimes + 1)
86	86	let result = fraction(resetTimesToUse, (currentLevel * DECIMALS), DEVIDER)
87	87	let debug = makeString([("level=" + toString(currentLevel)), ("resetTimes=" + toString(resetTimes)), ("resetTimesToUse=" + toString(resetTimesToUse)), ("result=" + toString(result))], ";")
88	88	$Tuple2([StringEntry("DEBUG", debug)], result)
89	89	}
90	90
91	91
92	92	func checkAdditionalPayment (payment) = if (isDefined(payment.assetId))
93	93	then throw("LSCAP: Please attach waves")
94	94	else {
95	95	let feeAmount = getIntegerValue(getOracle(), staticKey_extraFee())
96	96	if ((payment.amount != feeAmount))
97	97	then throw((("LSCAP: Please attach exactly " + toString(feeAmount)) + " amount of wavelets"))
98	98	else [ScriptTransfer(getFeeAggregator(), feeAmount, unit)]
99	99	}
100	100
101	101
102	102	@Callable(i)
103	103	func configureOracle (oracle) = if ((i.caller != this))
104	104	then throw("RCO: admin only")
105	105	else [StringEntry(staticKey_oracleAddress(), oracle)]
106	106
107	107
108	108
109	109	@Callable(i)
110	110	func levelUpMath (futureLevel) = calculateLevelUp(futureLevel)
111	111
112	112
113	113
114	114	@Callable(i)
115	115	func resetSkillsMath (currentLevel,resetTimes) = calculateReset(currentLevel, resetTimes)
116	116
117	117
118	118
119	119	@Callable(i)
120	120	func levelUp () = {
121	121	let keyUserAddressFilled = keyUserAddress(toString(i.caller))
122	122	let keyUserSpentOnLevelFilled = keyUserSpentOnLevel(toString(i.caller))
123	123	let levelOfUser = tryGetInteger(keyUserAddressFilled)
124	124	let totalSpentUser = tryGetInteger(keyUserSpentOnLevelFilled)
125	125	let priceCalc = calculateLevelUp((levelOfUser + 1))
126	126	let price = priceCalc._2
127	127	let firstPayment = value(i.payments[0])
128	128	let amount = firstPayment.amount
129	129	if ((firstPayment.assetId != getEggAssetId()))
130	130	then throw(("LLU: You can attach only EGG tokens with the following asset id: " + toBase58String(getEggAssetId())))
131	131	else if ((amount != price))
132	132	then throw(("LLU: Please attach the exact asset amount" + toString(price)))
133	133	else {
134	134	let recordAction = invoke(getCouponsAddress(), "recordAction", ["LEVELUP"], nil)
135	135	if ((recordAction == recordAction))
136	136	then {
137	137	let burnCall = invoke(getBurnAddress(), "burnAttachedPayments", nil, [AttachedPayment(getEggAssetId(), amount)])
138	138	if ((burnCall == burnCall))
139	139	then (([IntegerEntry(keyUserAddressFilled, (levelOfUser + 1)), IntegerEntry(keyUserSpentOnLevelFilled, (totalSpentUser + amount))] ++ priceCalc._1) ++ checkAdditionalPayment(i.payments[1]))
140	140	else throw("Strict value is not equal to itself.")
141	141	}
142	142	else throw("Strict value is not equal to itself.")
143	143	}
144	144	}
145	145
146	146
147	147
148	148	@Callable(i)
149	149	func reset () = {
150	150	let keyUserAddressFilled = keyUserAddress(toString(i.caller))
151	151	let levelOfUser = tryGetInteger(keyUserAddressFilled)
152	152	let keyUserSkillResetTimesFilled = keyUserSkillResetTimes(toString(i.caller))
153	153	let resetsOfUser = tryGetInteger(keyUserSkillResetTimesFilled)
154	154	let keyUserSpentOnResetFilled = keyUserSpentOnReset(toString(i.caller))
155	155	let amountOfSpendOnReset = tryGetInteger(keyUserSpentOnResetFilled)
156	156	let calculateResetCalculated = calculateReset(levelOfUser, resetsOfUser)
157	157	let price = calculateResetCalculated._2
158	158	let firstPayment = value(i.payments[0])
159	159	let amount = firstPayment.amount
160	160	if ((firstPayment.assetId != getEggAssetId()))
161	161	then throw(("LR: You can attach only EGG tokens with the following asset id: " + toBase58String(getEggAssetId())))
162	162	else if ((amount != price))
163	163	then throw(("LR: Please attach the exact asset amount" + toString(price)))
164	164	else (([IntegerEntry(keyUserSkillResetTimesFilled, (resetsOfUser + 1)), IntegerEntry(keyUserSpentOnResetFilled, (amountOfSpendOnReset + amount))] ++ calculateResetCalculated._1) ++ checkAdditionalPayment(i.payments[1]))
165	165	}
166	166
167	167

github/deemru/w8io/c3f4982 
20.29 ms ◑