w8 · tx · AQt···dnz

tx · AQtQxdP5ab8qSZef7zuvLCC6AtEqJJyDhzSpWeu9jdnz

3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk:  -0.01000000 Waves

2022.08.02 00:03 [2165941] smart account 3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AQtQxdP5ab8qSZef7zuvLCC6AtEqJJyDhzSpWeu9jdnz",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1659387832968,
    "version": 2,
    "chainId": 84,
    "sender": "3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk",
    "senderPublicKey": "AR4BeE6hYADMvKxgRQs4ADN3krEqb2j8WE3WfJxzL3zE",
    "proofs": [
        "4NQvZv5bqQBEekyHqkgYSbV2NPGzvGVbdkjZ6TWydXWouovPkaF2ohhHs8vYRKe1tMYPg3gXKerzwGTUvwf7Gqu"
    ],
    "script": "base64:BgIjCAISAwoBCBIAEgUKAwgIARIECgIIARIAEgUKAwgICBIAEgAQAAV3YXZlcwCAwtcvAA50aWNrZXRQcmljZUludADAhD0AC3RpY2tldFByaWNlBQ50aWNrZXRQcmljZUludAAGaW52RmVlAKDCHgASd2l0aGRyYXdGZWVQZXJjZW50AAUAFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkCE2ZlZUNvbGxlY3RvckFkZHJlc3MADmRlcG9zaXRBc3NldElkAiw1dWUxZml1VjZqNlVCcjZYZjI4UW1zNnk1RnF6S3RxdmF4eGh3dTdoVFE1OAENdHJ5R2V0SW50ZWdlcgEDa2V5BAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAESZ2V0VGlja2V0c0NvdW50S2V5AQ1hZGRyZXNzU3RyaW5nCQCsAgIFDWFkZHJlc3NTdHJpbmcCDV90aWNrZXRzQ291bnQBDWdhbWVXaW5uZXJLZXkBBmdhbWVJZAkArAICBQZnYW1lSWQCB193aW5uZXIBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAg9fYXZhaWxhYmxlRnVuZHMBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCEV90b3RhbExvY2tlZEZ1bmRzARxhZGRyZXNzTG9ja2VkRnVuZHNGb3JHYW1lS2V5AgdhZGRyZXNzBmdhbWVJZAkArAICCQCsAgIFB2FkZHJlc3MCDV9sb2NrZWRGdW5kc18FBmdhbWVJZAEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIRX2F2YWlsYWJsZVJld2FyZHMBD2dldFRpY2tldHNDb3VudAENYWRkcmVzc1N0cmluZwkBDXRyeUdldEludGVnZXIBCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNYWRkcmVzc1N0cmluZwENY29uc3VtZVRpY2tldAEKcGxheWVyQWRkcgQSY3VycmVudFRpY2tldENvdW50CQEPZ2V0VGlja2V0c0NvdW50AQUKcGxheWVyQWRkcgQVbmV3Q3VycmVudFRpY2tldENvdW50CQBlAgUSY3VycmVudFRpY2tldENvdW50AAEDCQBmAgAABRVuZXdDdXJyZW50VGlja2V0Q291bnQAAAUVbmV3Q3VycmVudFRpY2tldENvdW50CAFpARZzZXRGZWVDb2xsZWN0b3JBZGRyZXNzAQ1jb2xsZWN0b3JBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQkAzAgCCQELU3RyaW5nRW50cnkCBRZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5BQ1jb2xsZWN0b3JBZGRyBQNuaWwBaQEMZGVwb3NpdEZ1bmRzAAQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQIhUGxlYXNlIGF0dGFjaCBleGFjdGx5IG9uZSBwYXltZW50AwkBAiE9AggFA3BtdAdhc3NldElkCQDZBAEFDmRlcG9zaXRBc3NldElkCQACAQIZWW91IGNhbiBvbmx5IGRlcG9zaXQgVVNETgQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBVjdXJyZW50QXZhaWxhYmxlRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIJAGQCBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMIBQNwbXQGYW1vdW50BQNuaWwAAQFpAQ5wbGF5ZXJFeGl0R2FtZQMGZ2FtZUlkCnBsYXllckFkZHIPZXhpdFN0YWNrQW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUKcGxheWVyQWRkcgQVY3VycmVudEF2YWlsYWJsZUZ1bmRzCQENdHJ5R2V0SW50ZWdlcgEJARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBBQpwbGF5ZXJBZGRyBCBjdXJyZW50R2FtZUxvY2tlZEFtb3VudEZvclBsYXllcgkBDXRyeUdldEludGVnZXIBCQEcYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZUtleQIFCnBsYXllckFkZHIFBmdhbWVJZAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUKcGxheWVyQWRkcgkAZAIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwUPZXhpdFN0YWNrQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBBQpwbGF5ZXJBZGRyCQBlAgUXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMFIGN1cnJlbnRHYW1lTG9ja2VkQW1vdW50Rm9yUGxheWVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEcYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZUtleQIFCnBsYXllckFkZHIFBmdhbWVJZAAABQNuaWwAAQFpARBsb2NrRnVuZHNGb3JHYW1lAgZnYW1lSWQMYW1vdW50VG9Mb2NrBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgQXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgMJAGYCBQxhbW91bnRUb0xvY2sFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkAAgECIk5vdCBlbm91Z2ggYXZhaWxhYmxlIGZ1bmRzIHRvIGxvY2sJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIJAGUCBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMFDGFtb3VudFRvTG9jawkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgkAZAIFF2N1cnJlbnRUb3RhbExvY2tlZEZ1bmRzBQxhbW91bnRUb0xvY2sJAMwIAgkBDEludGVnZXJFbnRyeQIJARxhZGRyZXNzTG9ja2VkRnVuZHNGb3JHYW1lS2V5AgUNY2FsbGVyQWRkclN0cgUGZ2FtZUlkBQxhbW91bnRUb0xvY2sFA25pbAABAWkBDXdpdGhkcmF3RnVuZHMABA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEEGZlZUNvbGxlY3RvckFkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDU4KQEFFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgQLd2l0aGRyYXdGZWUJAGsDBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMFEndpdGhkcmF3RmVlUGVyY2VudABkBBRhY3R1YWxBdmFpbGFibGVGdW5kcwkAZQIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwULd2l0aGRyYXdGZWUDCQBnAgAABRRhY3R1YWxBdmFpbGFibGVGdW5kcwkAAgECHk5vIGF2YWlsYWJsZSBmdW5kcyB0byB3aXRoZHJhdwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFFGFjdHVhbEF2YWlsYWJsZUZ1bmRzCQDZBAEFDmRlcG9zaXRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFEGZlZUNvbGxlY3RvckFkZHIFC3dpdGhkcmF3RmVlCQDZBAEFDmRlcG9zaXRBc3NldElkBQNuaWwBaQEQc2V0V2lubmVySGVhZHNVcAMGZ2FtZUlkDXdpbm5lckFkZHJTdHIPb3RoZXJQbGF5ZXJBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQTYXZhaWxhYmxlUmV3YXJkc0tleQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNd2lubmVyQWRkclN0cgQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQUTYXZhaWxhYmxlUmV3YXJkc0tleQQUbmV3VGlja2V0Q291bnRXaW5uZXIJAQ1jb25zdW1lVGlja2V0AQUNd2lubmVyQWRkclN0cgQZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgkBDWNvbnN1bWVUaWNrZXQBBQ9vdGhlclBsYXllckFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDWdhbWVXaW5uZXJLZXkBBQZnYW1lSWQFDXdpbm5lckFkZHJTdHIJAMwIAgkBDEludGVnZXJFbnRyeQIFE2F2YWlsYWJsZVJld2FyZHNLZXkJAGQCBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAaAIFC3RpY2tldFByaWNlAAIJAMwIAgkBDEludGVnZXJFbnRyeQIJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ13aW5uZXJBZGRyU3RyBRRuZXdUaWNrZXRDb3VudFdpbm5lcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFD290aGVyUGxheWVyQWRkcgUZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgUDbmlsAWkBD3dpdGhkcmF3UmV3YXJkcwAEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQQZmVlQ29sbGVjdG9yQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNY2FsbGVyQWRkclN0cgQLd2l0aGRyYXdGZWUJAGsDBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwUSd2l0aGRyYXdGZWVQZXJjZW50AGQEFmFjdHVhbEF2YWlsYWJsZVJld2FyZHMJAGUCCQBlAgUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMFBmludkZlZQULd2l0aGRyYXdGZWUDCQBnAgAABRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAAgECIE5vIGF2YWlsYWJsZSByZXdhcmRzIHRvIHdpdGhkcmF3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ1jYWxsZXJBZGRyU3RyAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRZhY3R1YWxBdmFpbGFibGVSZXdhcmRzBQR1bml0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFEGZlZUNvbGxlY3RvckFkZHIFC3dpdGhkcmF3RmVlBQR1bml0BQNuaWwBaQEKYnV5VGlja2V0cwAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECIVBsZWFzZSBhdHRhY2ggZXhhY3RseSBvbmUgcGF5bWVudAMJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQJAAIBAidUaWNrZXRzIGNhbiBvbmx5IGliZSBwdXJjaGFzZWQgaW4gV2F2ZXMDCQECIT0CCAUDcG10BmFtb3VudAULdGlja2V0UHJpY2UJAAIBCQCsAgIJAKwCAgIfVGhlIHBheW1lbnQgbXVzdCBiZSBvZiBleGFjdGx5IAkApAMBBQ50aWNrZXRQcmljZUludAIGIHdhdmVzBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEE2N1cnJlbnRUaWNrZXRzQ291bnQJAQ10cnlHZXRJbnRlZ2VyAQkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAGQCBRNjdXJyZW50VGlja2V0c0NvdW50AAEFA25pbAABAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tleY/Ww58=",
    "height": 2165941,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Fum6ZVSHg9VPpiEhcUF2LVRWQU3AESLzubWh5suo88Hr
Next: FTFWuXbYyq8zjwFy9HFTPir7s42q8cQTr4SsL67f7j3V

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

Old	New		Differences
35	35		func addressTotalLockedFundsKey (address) = (address + "_totalLockedFunds")
36	36
37	37
38		-	func ~~addressLockedFundsForGame~~ (address,gameId) = ((address + "_lockedFunds_") + gameId)
	38	+	func addressLockedFundsForGameKey (address,gameId) = ((address + "_lockedFunds_") + gameId)
39	39
40	40
41	41		func addressAvailableRewardsKey (address) = (address + "_availableRewards")

82	82		else {
83	83		let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(playerAddr))
84	84		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(playerAddr))
85		-	let currentGameLockedAmountForPlayer = tryGetInteger(~~addressLockedFundsForGame~~(playerAddr, gameId))
86		-	$Tuple2([IntegerEntry(addressAvailableFundsKey(playerAddr), (currentAvailableFunds + exitStackAmount)), IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer))], 1)
	85	+	let currentGameLockedAmountForPlayer = tryGetInteger(addressLockedFundsForGameKey(playerAddr, gameId))
	86	+	$Tuple2([IntegerEntry(addressAvailableFundsKey(playerAddr), (currentAvailableFunds + exitStackAmount)), IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer)), IntegerEntry(addressLockedFundsForGameKey(playerAddr, gameId), 0)], 1)
87	87		}
88	88
89	89

95	95		let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(callerAddrStr))
96	96		if ((amountToLock > currentAvailableFunds))
97	97		then throw("Not enough available funds to lock")
98		-	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(~~addressLockedFundsForGame~~(callerAddrStr, gameId), amountToLock)], 1)
	98	+	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
99	99		}
100	100
101	101

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	36
37	37
38		-	func ~~addressLockedFundsForGame~~ (address,gameId) = ((address + "_lockedFunds_") + gameId)
	38	+	func addressLockedFundsForGameKey (address,gameId) = ((address + "_lockedFunds_") + gameId)
39	39
40	40
41	41		func addressAvailableRewardsKey (address) = (address + "_availableRewards")
42	42
43	43
44	44		func getTicketsCount (addressString) = tryGetInteger(getTicketsCountKey(addressString))
45	45
46	46
47	47		func consumeTicket (playerAddr) = {
48	48		let currentTicketCount = getTicketsCount(playerAddr)
49	49		let newCurrentTicketCount = (currentTicketCount - 1)
50	50		if ((0 > newCurrentTicketCount))
51	51		then 0
52	52		else newCurrentTicketCount
53	53		}
54	54
55	55
56	56		@Callable(i)
57	57		func setFeeCollectorAddress (collectorAddr) = if ((i.caller != this))
58	58		then throw("Admin Only")
59	59		else [StringEntry(feeCollectorAddressKey, collectorAddr)]
60	60
61	61
62	62
63	63		@Callable(i)
64	64		func depositFunds () = {
65	65		let pmt = if ((size(i.payments) == 1))
66	66		then i.payments[0]
67	67		else throw("Please attach exactly one payment")
68	68		if ((pmt.assetId != fromBase58String(depositAssetId)))
69	69		then throw("You can only deposit USDN")
70	70		else {
71	71		let callerAddrStr = toBase58String(i.caller.bytes)
72	72		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
73	73		$Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds + pmt.amount))], 1)
74	74		}
75	75		}
76	76
77	77
78	78
79	79		@Callable(i)
80	80		func playerExitGame (gameId,playerAddr,exitStackAmount) = if ((i.caller != this))
81	81		then throw("Admin Only")
82	82		else {
83	83		let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(playerAddr))
84	84		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(playerAddr))
85		-	let currentGameLockedAmountForPlayer = tryGetInteger(~~addressLockedFundsForGame~~(playerAddr, gameId))
86		-	$Tuple2([IntegerEntry(addressAvailableFundsKey(playerAddr), (currentAvailableFunds + exitStackAmount)), IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer))], 1)
	85	+	let currentGameLockedAmountForPlayer = tryGetInteger(addressLockedFundsForGameKey(playerAddr, gameId))
	86	+	$Tuple2([IntegerEntry(addressAvailableFundsKey(playerAddr), (currentAvailableFunds + exitStackAmount)), IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer)), IntegerEntry(addressLockedFundsForGameKey(playerAddr, gameId), 0)], 1)
87	87		}
88	88
89	89
90	90
91	91		@Callable(i)
92	92		func lockFundsForGame (gameId,amountToLock) = {
93	93		let callerAddrStr = toBase58String(i.caller.bytes)
94	94		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
95	95		let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(callerAddrStr))
96	96		if ((amountToLock > currentAvailableFunds))
97	97		then throw("Not enough available funds to lock")
98		-	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(~~addressLockedFundsForGame~~(callerAddrStr, gameId), amountToLock)], 1)
	98	+	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
99	99		}
100	100
101	101
102	102
103	103		@Callable(i)
104	104		func withdrawFunds () = {
105	105		let callerAddrStr = toBase58String(i.caller.bytes)
106	106		let feeCollectorAddr = addressFromStringValue(getStringValue(feeCollectorAddressKey))
107	107		let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
108	108		let withdrawFee = fraction(currentAvailableFunds, withdrawFeePercent, 100)
109	109		let actualAvailableFunds = (currentAvailableFunds - withdrawFee)
110	110		if ((0 >= actualAvailableFunds))
111	111		then throw("No available funds to withdraw")
112	112		else [IntegerEntry(addressAvailableFundsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableFunds, fromBase58String(depositAssetId)), ScriptTransfer(feeCollectorAddr, withdrawFee, fromBase58String(depositAssetId))]
113	113		}
114	114
115	115
116	116
117	117		@Callable(i)
118	118		func setWinnerHeadsUp (gameId,winnerAddrStr,otherPlayerAddr) = if ((i.caller != this))
119	119		then throw("Admin Only")
120	120		else {
121	121		let availableRewardsKey = addressAvailableRewardsKey(winnerAddrStr)
122	122		let currentAvailableRewards = tryGetInteger(availableRewardsKey)
123	123		let newTicketCountWinner = consumeTicket(winnerAddrStr)
124	124		let newTicketCountOtherPlayer = consumeTicket(otherPlayerAddr)
125	125		[StringEntry(gameWinnerKey(gameId), winnerAddrStr), IntegerEntry(availableRewardsKey, (currentAvailableRewards + (ticketPrice * 2))), IntegerEntry(getTicketsCountKey(winnerAddrStr), newTicketCountWinner), IntegerEntry(getTicketsCountKey(otherPlayerAddr), newTicketCountOtherPlayer)]
126	126		}
127	127
128	128
129	129
130	130		@Callable(i)
131	131		func withdrawRewards () = {
132	132		let callerAddrStr = toBase58String(i.caller.bytes)
133	133		let feeCollectorAddr = addressFromStringValue(getStringValue(feeCollectorAddressKey))
134	134		let currentAvailableRewards = tryGetInteger(addressAvailableRewardsKey(callerAddrStr))
135	135		let withdrawFee = fraction(currentAvailableRewards, withdrawFeePercent, 100)
136	136		let actualAvailableRewards = ((currentAvailableRewards - invFee) - withdrawFee)
137	137		if ((0 >= currentAvailableRewards))
138	138		then throw("No available rewards to withdraw")
139	139		else [IntegerEntry(addressAvailableRewardsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableRewards, unit), ScriptTransfer(feeCollectorAddr, withdrawFee, unit)]
140	140		}
141	141
142	142
143	143
144	144		@Callable(i)
145	145		func buyTickets () = {
146	146		let pmt = if ((size(i.payments) == 1))
147	147		then i.payments[0]
148	148		else throw("Please attach exactly one payment")
149	149		if (isDefined(pmt.assetId))
150	150		then throw("Tickets can only ibe purchased in Waves")
151	151		else if ((pmt.amount != ticketPrice))
152	152		then throw((("The payment must be of exactly " + toString(ticketPriceInt)) + " waves"))
153	153		else {
154	154		let callerAddrStr = toBase58String(i.caller.bytes)
155	155		let currentTicketsCount = tryGetInteger(getTicketsCountKey(callerAddrStr))
156	156		$Tuple2([IntegerEntry(getTicketsCountKey(callerAddrStr), (currentTicketsCount + 1))], 1)
157	157		}
158	158		}
159	159
160	160
161	161		@Verifier(tx)
162	162		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
163	163

github/deemru/w8io/3ef1775 
60.22 ms ◑