w8 · tx · F7D···q3q

tx · F7DASibMaqREShmHN5RRKvJA9KxLtHHhas9U5AtHWq3q

3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk:  -0.01000000 Waves

2022.08.03 02:45 [2167554] smart account 3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "F7DASibMaqREShmHN5RRKvJA9KxLtHHhas9U5AtHWq3q",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1659483990709,
    "version": 2,
    "chainId": 84,
    "sender": "3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk",
    "senderPublicKey": "AR4BeE6hYADMvKxgRQs4ADN3krEqb2j8WE3WfJxzL3zE",
    "proofs": [
        "3KLWtGoF1k4ebfKuqjiNFtW8mDQtvUW5uP38nhEbwQyqk4wrZv1NVhw9ymnAdWCc8frig6rwiwaiUzL3J6rK3P5r"
    ],
    "script": "base64:BgIjCAISAwoBCBIAEgUKAwgIARIECgIIARIAEgUKAwgICBIAEgARAAV3YXZlcwCAwtcvAA50aWNrZXRQcmljZUludADAhD0AC3RpY2tldFByaWNlBQ50aWNrZXRQcmljZUludAAGaW52RmVlAKDCHgASd2l0aGRyYXdGZWVQZXJjZW50AAUAFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkCE2ZlZUNvbGxlY3RvckFkZHJlc3MADmRlcG9zaXRBc3NldElkAiw1dWUxZml1VjZqNlVCcjZYZjI4UW1zNnk1RnF6S3RxdmF4eGh3dTdoVFE1OAENdHJ5R2V0SW50ZWdlcgEDa2V5BAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAESZ2V0VGlja2V0c0NvdW50S2V5AQ1hZGRyZXNzU3RyaW5nCQCsAgIFDWFkZHJlc3NTdHJpbmcCDV90aWNrZXRzQ291bnQBDWdhbWVXaW5uZXJLZXkBBmdhbWVJZAkArAICBQZnYW1lSWQCB193aW5uZXIBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAg9fYXZhaWxhYmxlRnVuZHMBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCEV90b3RhbExvY2tlZEZ1bmRzASFhZGRyZXNzTG9ja2VkRnVuZHNUb3RhbEhpc3RvcnlLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIYX2xvY2tlZEZ1bmRzVG90YWxIaXN0b3J5ARxhZGRyZXNzTG9ja2VkRnVuZHNGb3JHYW1lS2V5AgdhZGRyZXNzBmdhbWVJZAkArAICCQCsAgIFB2FkZHJlc3MCDV9sb2NrZWRGdW5kc18FBmdhbWVJZAEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIRX2F2YWlsYWJsZVJld2FyZHMBD2dldFRpY2tldHNDb3VudAENYWRkcmVzc1N0cmluZwkBDXRyeUdldEludGVnZXIBCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNYWRkcmVzc1N0cmluZwENY29uc3VtZVRpY2tldAEKcGxheWVyQWRkcgQSY3VycmVudFRpY2tldENvdW50CQEPZ2V0VGlja2V0c0NvdW50AQUKcGxheWVyQWRkcgQVbmV3Q3VycmVudFRpY2tldENvdW50CQBlAgUSY3VycmVudFRpY2tldENvdW50AAEDCQBmAgAABRVuZXdDdXJyZW50VGlja2V0Q291bnQAAAUVbmV3Q3VycmVudFRpY2tldENvdW50CAFpARZzZXRGZWVDb2xsZWN0b3JBZGRyZXNzAQ1jb2xsZWN0b3JBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQkAzAgCCQELU3RyaW5nRW50cnkCBRZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5BQ1jb2xsZWN0b3JBZGRyBQNuaWwBaQEMZGVwb3NpdEZ1bmRzAAQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQIhUGxlYXNlIGF0dGFjaCBleGFjdGx5IG9uZSBwYXltZW50AwkBAiE9AggFA3BtdAdhc3NldElkCQDZBAEFDmRlcG9zaXRBc3NldElkCQACAQIZWW91IGNhbiBvbmx5IGRlcG9zaXQgVVNETgQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBVjdXJyZW50QXZhaWxhYmxlRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIJAGQCBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMIBQNwbXQGYW1vdW50BQNuaWwAAQFpAQ5wbGF5ZXJFeGl0R2FtZQMGZ2FtZUlkCnBsYXllckFkZHIPZXhpdFN0YWNrQW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUKcGxheWVyQWRkcgQVY3VycmVudEF2YWlsYWJsZUZ1bmRzCQENdHJ5R2V0SW50ZWdlcgEJARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBBQpwbGF5ZXJBZGRyBCBjdXJyZW50R2FtZUxvY2tlZEFtb3VudEZvclBsYXllcgkBDXRyeUdldEludGVnZXIBCQEcYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZUtleQIFCnBsYXllckFkZHIFBmdhbWVJZAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUKcGxheWVyQWRkcgkAZAIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwUPZXhpdFN0YWNrQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBBQpwbGF5ZXJBZGRyCQBlAgUXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMFIGN1cnJlbnRHYW1lTG9ja2VkQW1vdW50Rm9yUGxheWVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEcYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZUtleQIFCnBsYXllckFkZHIFBmdhbWVJZAAABQNuaWwAAQFpARBsb2NrRnVuZHNGb3JHYW1lAgZnYW1lSWQMYW1vdW50VG9Mb2NrBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgQXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgQeY3VycmVudExvY2tlZEZ1bmRzVG90YWxIaXN0b3J5CQENdHJ5R2V0SW50ZWdlcgEJASFhZGRyZXNzTG9ja2VkRnVuZHNUb3RhbEhpc3RvcnlLZXkBBQ1jYWxsZXJBZGRyU3RyAwkAZgIFDGFtb3VudFRvTG9jawUVY3VycmVudEF2YWlsYWJsZUZ1bmRzCQACAQIiTm90IGVub3VnaCBhdmFpbGFibGUgZnVuZHMgdG8gbG9jawkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgkAZQIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwUMYW1vdW50VG9Mb2NrCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBBQ1jYWxsZXJBZGRyU3RyCQBkAgUXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMFDGFtb3VudFRvTG9jawkAzAgCCQEMSW50ZWdlckVudHJ5AgkBIWFkZHJlc3NMb2NrZWRGdW5kc1RvdGFsSGlzdG9yeUtleQEFDWNhbGxlckFkZHJTdHIJAGQCBR5jdXJyZW50TG9ja2VkRnVuZHNUb3RhbEhpc3RvcnkFDGFtb3VudFRvTG9jawkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHGFkZHJlc3NMb2NrZWRGdW5kc0ZvckdhbWVLZXkCBQ1jYWxsZXJBZGRyU3RyBQZnYW1lSWQFDGFtb3VudFRvTG9jawUDbmlsAAEBaQENd2l0aGRyYXdGdW5kcwAEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQQZmVlQ29sbGVjdG9yQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQQVY3VycmVudEF2YWlsYWJsZUZ1bmRzCQENdHJ5R2V0SW50ZWdlcgEJARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBBQ1jYWxsZXJBZGRyU3RyBAt3aXRoZHJhd0ZlZQkAawMFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwUSd2l0aGRyYXdGZWVQZXJjZW50AGQEFGFjdHVhbEF2YWlsYWJsZUZ1bmRzCQBlAgUVY3VycmVudEF2YWlsYWJsZUZ1bmRzBQt3aXRoZHJhd0ZlZQMJAGcCAAAFFGFjdHVhbEF2YWlsYWJsZUZ1bmRzCQACAQIeTm8gYXZhaWxhYmxlIGZ1bmRzIHRvIHdpdGhkcmF3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUUYWN0dWFsQXZhaWxhYmxlRnVuZHMJANkEAQUOZGVwb3NpdEFzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUQZmVlQ29sbGVjdG9yQWRkcgULd2l0aGRyYXdGZWUJANkEAQUOZGVwb3NpdEFzc2V0SWQFA25pbAFpARBzZXRXaW5uZXJIZWFkc1VwAwZnYW1lSWQNd2lubmVyQWRkclN0cg9vdGhlclBsYXllckFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgpBZG1pbiBPbmx5BBNhdmFpbGFibGVSZXdhcmRzS2V5CQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ13aW5uZXJBZGRyU3RyBBdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkBDXRyeUdldEludGVnZXIBBRNhdmFpbGFibGVSZXdhcmRzS2V5BBRuZXdUaWNrZXRDb3VudFdpbm5lcgkBDWNvbnN1bWVUaWNrZXQBBQ13aW5uZXJBZGRyU3RyBBluZXdUaWNrZXRDb3VudE90aGVyUGxheWVyCQENY29uc3VtZVRpY2tldAEFD290aGVyUGxheWVyQWRkcgkAzAgCCQELU3RyaW5nRW50cnkCCQENZ2FtZVdpbm5lcktleQEFBmdhbWVJZAUNd2lubmVyQWRkclN0cgkAzAgCCQEMSW50ZWdlckVudHJ5AgUTYXZhaWxhYmxlUmV3YXJkc0tleQkAZAIFF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzCQBoAgULdGlja2V0UHJpY2UAAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFDXdpbm5lckFkZHJTdHIFFG5ld1RpY2tldENvdW50V2lubmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQESZ2V0VGlja2V0c0NvdW50S2V5AQUPb3RoZXJQbGF5ZXJBZGRyBRluZXdUaWNrZXRDb3VudE90aGVyUGxheWVyBQNuaWwBaQEPd2l0aGRyYXdSZXdhcmRzAAQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBBmZWVDb2xsZWN0b3JBZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBRZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5BBdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkBDXRyeUdldEludGVnZXIBCQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ1jYWxsZXJBZGRyU3RyBAt3aXRoZHJhd0ZlZQkAawMFF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzBRJ3aXRoZHJhd0ZlZVBlcmNlbnQAZAQWYWN0dWFsQXZhaWxhYmxlUmV3YXJkcwkAZQIJAGUCBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwUGaW52RmVlBQt3aXRoZHJhd0ZlZQMJAGcCAAAFF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzCQACAQIgTm8gYXZhaWxhYmxlIHJld2FyZHMgdG8gd2l0aGRyYXcJAMwIAgkBDEludGVnZXJFbnRyeQIJARphZGRyZXNzQXZhaWxhYmxlUmV3YXJkc0tleQEFDWNhbGxlckFkZHJTdHIAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFFmFjdHVhbEF2YWlsYWJsZVJld2FyZHMFBHVuaXQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUQZmVlQ29sbGVjdG9yQWRkcgULd2l0aGRyYXdGZWUFBHVuaXQFA25pbAFpAQpidXlUaWNrZXRzAAQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQIhUGxlYXNlIGF0dGFjaCBleGFjdGx5IG9uZSBwYXltZW50AwkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAkAAgECJ1RpY2tldHMgY2FuIG9ubHkgaWJlIHB1cmNoYXNlZCBpbiBXYXZlcwMJAQIhPQIIBQNwbXQGYW1vdW50BQt0aWNrZXRQcmljZQkAAgEJAKwCAgkArAICAh9UaGUgcGF5bWVudCBtdXN0IGJlIG9mIGV4YWN0bHkgCQCkAwEFDnRpY2tldFByaWNlSW50AgYgd2F2ZXMEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQTY3VycmVudFRpY2tldHNDb3VudAkBDXRyeUdldEludGVnZXIBCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNY2FsbGVyQWRkclN0cgkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNY2FsbGVyQWRkclN0cgkAZAIFE2N1cnJlbnRUaWNrZXRzQ291bnQAAQUDbmlsAAEBAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5OqYpag==",
    "height": 2167554,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FTFWuXbYyq8zjwFy9HFTPir7s42q8cQTr4SsL67f7j3V
Next: 3u4MqWFpo79MyPqXPF7Q9ofjw2BY9hm7SRauNoSRhnyx

Diff: 
Old New Differences
33 33  
34 34  
35 35  func addressTotalLockedFundsKey (address) = (address + "_totalLockedFunds")
36 + 
37 + 
38 + func addressLockedFundsTotalHistoryKey (address) = (address + "_lockedFundsTotalHistory")
36 39  
37 40  
38 41  func addressLockedFundsForGameKey (address,gameId) = ((address + "_lockedFunds_") + gameId)
93 96      let callerAddrStr = toBase58String(i.caller.bytes)
94 97      let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
95 98      let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(callerAddrStr))
99 +     let currentLockedFundsTotalHistory = tryGetInteger(addressLockedFundsTotalHistoryKey(callerAddrStr))
96 100      if ((amountToLock > currentAvailableFunds))
97 101          then throw("Not enough available funds to lock")
98 -         else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
102 +         else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsTotalHistoryKey(callerAddrStr), (currentLockedFundsTotalHistory + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
99 103      }
100 104  
101 105  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let waves = 100000000
5 5  
6 6  let ticketPriceInt = 1000000
7 7  
8 8  let ticketPrice = ticketPriceInt
9 9  
10 10  let invFee = 500000
11 11  
12 12  let withdrawFeePercent = 5
13 13  
14 14  let feeCollectorAddressKey = "feeCollectorAddress"
15 15  
16 16  let depositAssetId = "5ue1fiuV6j6UBr6Xf28Qms6y5FqzKtqvaxxhwu7hTQ58"
17 17  
18 18  func tryGetInteger (key) = match getInteger(this, key) {
19 19      case b: Int => 
20 20          b
21 21      case _ => 
22 22          0
23 23  }
24 24  
25 25  
26 26  func getTicketsCountKey (addressString) = (addressString + "_ticketsCount")
27 27  
28 28  
29 29  func gameWinnerKey (gameId) = (gameId + "_winner")
30 30  
31 31  
32 32  func addressAvailableFundsKey (address) = (address + "_availableFunds")
33 33  
34 34  
35 35  func addressTotalLockedFundsKey (address) = (address + "_totalLockedFunds")
36 + 
37 + 
38 + func addressLockedFundsTotalHistoryKey (address) = (address + "_lockedFundsTotalHistory")
36 39  
37 40  
38 41  func addressLockedFundsForGameKey (address,gameId) = ((address + "_lockedFunds_") + gameId)
39 42  
40 43  
41 44  func addressAvailableRewardsKey (address) = (address + "_availableRewards")
42 45  
43 46  
44 47  func getTicketsCount (addressString) = tryGetInteger(getTicketsCountKey(addressString))
45 48  
46 49  
47 50  func consumeTicket (playerAddr) = {
48 51      let currentTicketCount = getTicketsCount(playerAddr)
49 52      let newCurrentTicketCount = (currentTicketCount - 1)
50 53      if ((0 > newCurrentTicketCount))
51 54          then 0
52 55          else newCurrentTicketCount
53 56      }
54 57  
55 58  
56 59  @Callable(i)
57 60  func setFeeCollectorAddress (collectorAddr) = if ((i.caller != this))
58 61      then throw("Admin Only")
59 62      else [StringEntry(feeCollectorAddressKey, collectorAddr)]
60 63  
61 64  
62 65  
63 66  @Callable(i)
64 67  func depositFunds () = {
65 68      let pmt = if ((size(i.payments) == 1))
66 69          then i.payments[0]
67 70          else throw("Please attach exactly one payment")
68 71      if ((pmt.assetId != fromBase58String(depositAssetId)))
69 72          then throw("You can only deposit USDN")
70 73          else {
71 74              let callerAddrStr = toBase58String(i.caller.bytes)
72 75              let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
73 76              $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds + pmt.amount))], 1)
74 77              }
75 78      }
76 79  
77 80  
78 81  
79 82  @Callable(i)
80 83  func playerExitGame (gameId,playerAddr,exitStackAmount) = if ((i.caller != this))
81 84      then throw("Admin Only")
82 85      else {
83 86          let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(playerAddr))
84 87          let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(playerAddr))
85 88          let currentGameLockedAmountForPlayer = tryGetInteger(addressLockedFundsForGameKey(playerAddr, gameId))
86 89          $Tuple2([IntegerEntry(addressAvailableFundsKey(playerAddr), (currentAvailableFunds + exitStackAmount)), IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer)), IntegerEntry(addressLockedFundsForGameKey(playerAddr, gameId), 0)], 1)
87 90          }
88 91  
89 92  
90 93  
91 94  @Callable(i)
92 95  func lockFundsForGame (gameId,amountToLock) = {
93 96      let callerAddrStr = toBase58String(i.caller.bytes)
94 97      let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
95 98      let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(callerAddrStr))
99 +     let currentLockedFundsTotalHistory = tryGetInteger(addressLockedFundsTotalHistoryKey(callerAddrStr))
96 100      if ((amountToLock > currentAvailableFunds))
97 101          then throw("Not enough available funds to lock")
98 -         else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
102 +         else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsTotalHistoryKey(callerAddrStr), (currentLockedFundsTotalHistory + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
99 103      }
100 104  
101 105  
102 106  
103 107  @Callable(i)
104 108  func withdrawFunds () = {
105 109      let callerAddrStr = toBase58String(i.caller.bytes)
106 110      let feeCollectorAddr = addressFromStringValue(getStringValue(feeCollectorAddressKey))
107 111      let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
108 112      let withdrawFee = fraction(currentAvailableFunds, withdrawFeePercent, 100)
109 113      let actualAvailableFunds = (currentAvailableFunds - withdrawFee)
110 114      if ((0 >= actualAvailableFunds))
111 115          then throw("No available funds to withdraw")
112 116          else [IntegerEntry(addressAvailableFundsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableFunds, fromBase58String(depositAssetId)), ScriptTransfer(feeCollectorAddr, withdrawFee, fromBase58String(depositAssetId))]
113 117      }
114 118  
115 119  
116 120  
117 121  @Callable(i)
118 122  func setWinnerHeadsUp (gameId,winnerAddrStr,otherPlayerAddr) = if ((i.caller != this))
119 123      then throw("Admin Only")
120 124      else {
121 125          let availableRewardsKey = addressAvailableRewardsKey(winnerAddrStr)
122 126          let currentAvailableRewards = tryGetInteger(availableRewardsKey)
123 127          let newTicketCountWinner = consumeTicket(winnerAddrStr)
124 128          let newTicketCountOtherPlayer = consumeTicket(otherPlayerAddr)
125 129  [StringEntry(gameWinnerKey(gameId), winnerAddrStr), IntegerEntry(availableRewardsKey, (currentAvailableRewards + (ticketPrice * 2))), IntegerEntry(getTicketsCountKey(winnerAddrStr), newTicketCountWinner), IntegerEntry(getTicketsCountKey(otherPlayerAddr), newTicketCountOtherPlayer)]
126 130          }
127 131  
128 132  
129 133  
130 134  @Callable(i)
131 135  func withdrawRewards () = {
132 136      let callerAddrStr = toBase58String(i.caller.bytes)
133 137      let feeCollectorAddr = addressFromStringValue(getStringValue(feeCollectorAddressKey))
134 138      let currentAvailableRewards = tryGetInteger(addressAvailableRewardsKey(callerAddrStr))
135 139      let withdrawFee = fraction(currentAvailableRewards, withdrawFeePercent, 100)
136 140      let actualAvailableRewards = ((currentAvailableRewards - invFee) - withdrawFee)
137 141      if ((0 >= currentAvailableRewards))
138 142          then throw("No available rewards to withdraw")
139 143          else [IntegerEntry(addressAvailableRewardsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableRewards, unit), ScriptTransfer(feeCollectorAddr, withdrawFee, unit)]
140 144      }
141 145  
142 146  
143 147  
144 148  @Callable(i)
145 149  func buyTickets () = {
146 150      let pmt = if ((size(i.payments) == 1))
147 151          then i.payments[0]
148 152          else throw("Please attach exactly one payment")
149 153      if (isDefined(pmt.assetId))
150 154          then throw("Tickets can only ibe purchased in Waves")
151 155          else if ((pmt.amount != ticketPrice))
152 156              then throw((("The payment must be of exactly " + toString(ticketPriceInt)) + " waves"))
153 157              else {
154 158                  let callerAddrStr = toBase58String(i.caller.bytes)
155 159                  let currentTicketsCount = tryGetInteger(getTicketsCountKey(callerAddrStr))
156 160                  $Tuple2([IntegerEntry(getTicketsCountKey(callerAddrStr), (currentTicketsCount + 1))], 1)
157 161                  }
158 162      }
159 163  
160 164  
161 165  @Verifier(tx)
162 166  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
163 167

Old	New		Differences
33	33
34	34
35	35		func addressTotalLockedFundsKey (address) = (address + "_totalLockedFunds")
	36	+
	37	+
	38	+	func addressLockedFundsTotalHistoryKey (address) = (address + "_lockedFundsTotalHistory")
36	39
37	40
38	41		func addressLockedFundsForGameKey (address,gameId) = ((address + "_lockedFunds_") + gameId)

93	96		let callerAddrStr = toBase58String(i.caller.bytes)
94	97		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
95	98		let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(callerAddrStr))
	99	+	let currentLockedFundsTotalHistory = tryGetInteger(addressLockedFundsTotalHistoryKey(callerAddrStr))
96	100		if ((amountToLock > currentAvailableFunds))
97	101		then throw("Not enough available funds to lock")
98		-	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
	102	+	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsTotalHistoryKey(callerAddrStr), (currentLockedFundsTotalHistory + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
99	103		}
100	104
101	105

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let waves = 100000000
5	5
6	6		let ticketPriceInt = 1000000
7	7
8	8		let ticketPrice = ticketPriceInt
9	9
10	10		let invFee = 500000
11	11
12	12		let withdrawFeePercent = 5
13	13
14	14		let feeCollectorAddressKey = "feeCollectorAddress"
15	15
16	16		let depositAssetId = "5ue1fiuV6j6UBr6Xf28Qms6y5FqzKtqvaxxhwu7hTQ58"
17	17
18	18		func tryGetInteger (key) = match getInteger(this, key) {
19	19		case b: Int =>
20	20		b
21	21		case _ =>
22	22		0
23	23		}
24	24
25	25
26	26		func getTicketsCountKey (addressString) = (addressString + "_ticketsCount")
27	27
28	28
29	29		func gameWinnerKey (gameId) = (gameId + "_winner")
30	30
31	31
32	32		func addressAvailableFundsKey (address) = (address + "_availableFunds")
33	33
34	34
35	35		func addressTotalLockedFundsKey (address) = (address + "_totalLockedFunds")
	36	+
	37	+
	38	+	func addressLockedFundsTotalHistoryKey (address) = (address + "_lockedFundsTotalHistory")
36	39
37	40
38	41		func addressLockedFundsForGameKey (address,gameId) = ((address + "_lockedFunds_") + gameId)
39	42
40	43
41	44		func addressAvailableRewardsKey (address) = (address + "_availableRewards")
42	45
43	46
44	47		func getTicketsCount (addressString) = tryGetInteger(getTicketsCountKey(addressString))
45	48
46	49
47	50		func consumeTicket (playerAddr) = {
48	51		let currentTicketCount = getTicketsCount(playerAddr)
49	52		let newCurrentTicketCount = (currentTicketCount - 1)
50	53		if ((0 > newCurrentTicketCount))
51	54		then 0
52	55		else newCurrentTicketCount
53	56		}
54	57
55	58
56	59		@Callable(i)
57	60		func setFeeCollectorAddress (collectorAddr) = if ((i.caller != this))
58	61		then throw("Admin Only")
59	62		else [StringEntry(feeCollectorAddressKey, collectorAddr)]
60	63
61	64
62	65
63	66		@Callable(i)
64	67		func depositFunds () = {
65	68		let pmt = if ((size(i.payments) == 1))
66	69		then i.payments[0]
67	70		else throw("Please attach exactly one payment")
68	71		if ((pmt.assetId != fromBase58String(depositAssetId)))
69	72		then throw("You can only deposit USDN")
70	73		else {
71	74		let callerAddrStr = toBase58String(i.caller.bytes)
72	75		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
73	76		$Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds + pmt.amount))], 1)
74	77		}
75	78		}
76	79
77	80
78	81
79	82		@Callable(i)
80	83		func playerExitGame (gameId,playerAddr,exitStackAmount) = if ((i.caller != this))
81	84		then throw("Admin Only")
82	85		else {
83	86		let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(playerAddr))
84	87		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(playerAddr))
85	88		let currentGameLockedAmountForPlayer = tryGetInteger(addressLockedFundsForGameKey(playerAddr, gameId))
86	89		$Tuple2([IntegerEntry(addressAvailableFundsKey(playerAddr), (currentAvailableFunds + exitStackAmount)), IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer)), IntegerEntry(addressLockedFundsForGameKey(playerAddr, gameId), 0)], 1)
87	90		}
88	91
89	92
90	93
91	94		@Callable(i)
92	95		func lockFundsForGame (gameId,amountToLock) = {
93	96		let callerAddrStr = toBase58String(i.caller.bytes)
94	97		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
95	98		let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(callerAddrStr))
	99	+	let currentLockedFundsTotalHistory = tryGetInteger(addressLockedFundsTotalHistoryKey(callerAddrStr))
96	100		if ((amountToLock > currentAvailableFunds))
97	101		then throw("Not enough available funds to lock")
98		-	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
	102	+	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsTotalHistoryKey(callerAddrStr), (currentLockedFundsTotalHistory + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
99	103		}
100	104
101	105
102	106
103	107		@Callable(i)
104	108		func withdrawFunds () = {
105	109		let callerAddrStr = toBase58String(i.caller.bytes)
106	110		let feeCollectorAddr = addressFromStringValue(getStringValue(feeCollectorAddressKey))
107	111		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
108	112		let withdrawFee = fraction(currentAvailableFunds, withdrawFeePercent, 100)
109	113		let actualAvailableFunds = (currentAvailableFunds - withdrawFee)
110	114		if ((0 >= actualAvailableFunds))
111	115		then throw("No available funds to withdraw")
112	116		else [IntegerEntry(addressAvailableFundsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableFunds, fromBase58String(depositAssetId)), ScriptTransfer(feeCollectorAddr, withdrawFee, fromBase58String(depositAssetId))]
113	117		}
114	118
115	119
116	120
117	121		@Callable(i)
118	122		func setWinnerHeadsUp (gameId,winnerAddrStr,otherPlayerAddr) = if ((i.caller != this))
119	123		then throw("Admin Only")
120	124		else {
121	125		let availableRewardsKey = addressAvailableRewardsKey(winnerAddrStr)
122	126		let currentAvailableRewards = tryGetInteger(availableRewardsKey)
123	127		let newTicketCountWinner = consumeTicket(winnerAddrStr)
124	128		let newTicketCountOtherPlayer = consumeTicket(otherPlayerAddr)
125	129		[StringEntry(gameWinnerKey(gameId), winnerAddrStr), IntegerEntry(availableRewardsKey, (currentAvailableRewards + (ticketPrice * 2))), IntegerEntry(getTicketsCountKey(winnerAddrStr), newTicketCountWinner), IntegerEntry(getTicketsCountKey(otherPlayerAddr), newTicketCountOtherPlayer)]
126	130		}
127	131
128	132
129	133
130	134		@Callable(i)
131	135		func withdrawRewards () = {
132	136		let callerAddrStr = toBase58String(i.caller.bytes)
133	137		let feeCollectorAddr = addressFromStringValue(getStringValue(feeCollectorAddressKey))
134	138		let currentAvailableRewards = tryGetInteger(addressAvailableRewardsKey(callerAddrStr))
135	139		let withdrawFee = fraction(currentAvailableRewards, withdrawFeePercent, 100)
136	140		let actualAvailableRewards = ((currentAvailableRewards - invFee) - withdrawFee)
137	141		if ((0 >= currentAvailableRewards))
138	142		then throw("No available rewards to withdraw")
139	143		else [IntegerEntry(addressAvailableRewardsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableRewards, unit), ScriptTransfer(feeCollectorAddr, withdrawFee, unit)]
140	144		}
141	145
142	146
143	147
144	148		@Callable(i)
145	149		func buyTickets () = {
146	150		let pmt = if ((size(i.payments) == 1))
147	151		then i.payments[0]
148	152		else throw("Please attach exactly one payment")
149	153		if (isDefined(pmt.assetId))
150	154		then throw("Tickets can only ibe purchased in Waves")
151	155		else if ((pmt.amount != ticketPrice))
152	156		then throw((("The payment must be of exactly " + toString(ticketPriceInt)) + " waves"))
153	157		else {
154	158		let callerAddrStr = toBase58String(i.caller.bytes)
155	159		let currentTicketsCount = tryGetInteger(getTicketsCountKey(callerAddrStr))
156	160		$Tuple2([IntegerEntry(getTicketsCountKey(callerAddrStr), (currentTicketsCount + 1))], 1)
157	161		}
158	162		}
159	163
160	164
161	165		@Verifier(tx)
162	166		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
163	167

github/deemru/w8io/169f3d6 
44.56 ms ◑