w8 · tx · 3u4···nyx

tx · 3u4MqWFpo79MyPqXPF7Q9ofjw2BY9hm7SRauNoSRhnyx

3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk:  -0.01000000 Waves

2022.08.15 22:39 [2186012] smart account 3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "3u4MqWFpo79MyPqXPF7Q9ofjw2BY9hm7SRauNoSRhnyx",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1660592366058,
    "version": 2,
    "chainId": 84,
    "sender": "3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk",
    "senderPublicKey": "AR4BeE6hYADMvKxgRQs4ADN3krEqb2j8WE3WfJxzL3zE",
    "proofs": [
        "3d99AyYuTBW67iZLUvFWZqDjqAhAvh3Kp8jvJcGDcoi4JFTHz3urpz3s24KLAxc9M6LGyj8uvGDHdDRadWGGGz1Y"
    ],
    "script": "base64:BgIiCAISAwoBCBIAEgUKAwgIARIDCgEIEgASBQoDCAgIEgASABEABXdhdmVzAIDC1y8ADnRpY2tldFByaWNlSW50AMCEPQALdGlja2V0UHJpY2UFDnRpY2tldFByaWNlSW50AAZpbnZGZWUAoMIeABJ3aXRoZHJhd0ZlZVBlcmNlbnQABQAWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQITZmVlQ29sbGVjdG9yQWRkcmVzcwAOZGVwb3NpdEFzc2V0SWQCLDV1ZTFmaXVWNmo2VUJyNlhmMjhRbXM2eTVGcXpLdHF2YXh4aHd1N2hUUTU4AQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAARJnZXRUaWNrZXRzQ291bnRLZXkBDWFkZHJlc3NTdHJpbmcJAKwCAgUNYWRkcmVzc1N0cmluZwINX3RpY2tldHNDb3VudAENZ2FtZVdpbm5lcktleQEGZ2FtZUlkCQCsAgIFBmdhbWVJZAIHX3dpbm5lcgEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCD19hdmFpbGFibGVGdW5kcwEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIRX3RvdGFsTG9ja2VkRnVuZHMBIWFkZHJlc3NMb2NrZWRGdW5kc1RvdGFsSGlzdG9yeUtleQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhhfbG9ja2VkRnVuZHNUb3RhbEhpc3RvcnkBHGFkZHJlc3NMb2NrZWRGdW5kc0ZvckdhbWVLZXkCB2FkZHJlc3MGZ2FtZUlkCQCsAgIJAKwCAgUHYWRkcmVzcwINX2xvY2tlZEZ1bmRzXwUGZ2FtZUlkARphZGRyZXNzQXZhaWxhYmxlUmV3YXJkc0tleQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhFfYXZhaWxhYmxlUmV3YXJkcwEPZ2V0VGlja2V0c0NvdW50AQ1hZGRyZXNzU3RyaW5nCQENdHJ5R2V0SW50ZWdlcgEJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ1hZGRyZXNzU3RyaW5nAQ1jb25zdW1lVGlja2V0AQpwbGF5ZXJBZGRyBBJjdXJyZW50VGlja2V0Q291bnQJAQ9nZXRUaWNrZXRzQ291bnQBBQpwbGF5ZXJBZGRyBBVuZXdDdXJyZW50VGlja2V0Q291bnQJAGUCBRJjdXJyZW50VGlja2V0Q291bnQAAQMJAGYCAAAFFW5ld0N1cnJlbnRUaWNrZXRDb3VudAAABRVuZXdDdXJyZW50VGlja2V0Q291bnQIAWkBFnNldEZlZUNvbGxlY3RvckFkZHJlc3MBDWNvbGxlY3RvckFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgpBZG1pbiBPbmx5CQDMCAIJAQtTdHJpbmdFbnRyeQIFFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkFDWNvbGxlY3RvckFkZHIFA25pbAFpAQxkZXBvc2l0RnVuZHMABANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAiFQbGVhc2UgYXR0YWNoIGV4YWN0bHkgb25lIHBheW1lbnQDCQECIT0CCAUDcG10B2Fzc2V0SWQJANkEAQUOZGVwb3NpdEFzc2V0SWQJAAIBAhlZb3UgY2FuIG9ubHkgZGVwb3NpdCBVU0ROBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgkAZAIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwgFA3BtdAZhbW91bnQFA25pbAABAWkBDnBsYXllckV4aXRHYW1lAwZnYW1lSWQKcGxheWVyQWRkcg9leGl0U3RhY2tBbW91bnQDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgpBZG1pbiBPbmx5BBdjdXJyZW50VG90YWxMb2NrZWRGdW5kcwkBDXRyeUdldEludGVnZXIBCQEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBBQpwbGF5ZXJBZGRyBCBjdXJyZW50R2FtZUxvY2tlZEFtb3VudEZvclBsYXllcgkBDXRyeUdldEludGVnZXIBCQEcYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZUtleQIFCnBsYXllckFkZHIFBmdhbWVJZAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBBQpwbGF5ZXJBZGRyCQBlAgUXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMFIGN1cnJlbnRHYW1lTG9ja2VkQW1vdW50Rm9yUGxheWVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEcYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZUtleQIFCnBsYXllckFkZHIFBmdhbWVJZAAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCnBsYXllckFkZHIFD2V4aXRTdGFja0Ftb3VudAkA2QQBBQ5kZXBvc2l0QXNzZXRJZAUDbmlsAAEBaQEQbG9ja0Z1bmRzRm9yR2FtZQEGZ2FtZUlkBANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAiFQbGVhc2UgYXR0YWNoIGV4YWN0bHkgb25lIHBheW1lbnQDCQECIT0CCAUDcG10B2Fzc2V0SWQJANkEAQUOZGVwb3NpdEFzc2V0SWQJAAIBAhlZb3UgY2FuIG9ubHkgZGVwb3NpdCBVU0ROBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEF2N1cnJlbnRUb3RhbExvY2tlZEZ1bmRzCQENdHJ5R2V0SW50ZWdlcgEJARphZGRyZXNzVG90YWxMb2NrZWRGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIEHmN1cnJlbnRMb2NrZWRGdW5kc1RvdGFsSGlzdG9yeQkBDXRyeUdldEludGVnZXIBCQEhYWRkcmVzc0xvY2tlZEZ1bmRzVG90YWxIaXN0b3J5S2V5AQUNY2FsbGVyQWRkclN0cgkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBBQ1jYWxsZXJBZGRyU3RyCQBkAgUXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMIBQNwbXQGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEhYWRkcmVzc0xvY2tlZEZ1bmRzVG90YWxIaXN0b3J5S2V5AQUNY2FsbGVyQWRkclN0cgkAZAIFHmN1cnJlbnRMb2NrZWRGdW5kc1RvdGFsSGlzdG9yeQgFA3BtdAZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJARxhZGRyZXNzTG9ja2VkRnVuZHNGb3JHYW1lS2V5AgUNY2FsbGVyQWRkclN0cgUGZ2FtZUlkCAUDcG10BmFtb3VudAUDbmlsAAEBaQENd2l0aGRyYXdGdW5kcwAEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQQZmVlQ29sbGVjdG9yQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQQVY3VycmVudEF2YWlsYWJsZUZ1bmRzCQENdHJ5R2V0SW50ZWdlcgEJARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBBQ1jYWxsZXJBZGRyU3RyBAt3aXRoZHJhd0ZlZQkAawMFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwUSd2l0aGRyYXdGZWVQZXJjZW50AGQEFGFjdHVhbEF2YWlsYWJsZUZ1bmRzCQBlAgUVY3VycmVudEF2YWlsYWJsZUZ1bmRzBQt3aXRoZHJhd0ZlZQMJAGcCAAAFFGFjdHVhbEF2YWlsYWJsZUZ1bmRzCQACAQIeTm8gYXZhaWxhYmxlIGZ1bmRzIHRvIHdpdGhkcmF3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUUYWN0dWFsQXZhaWxhYmxlRnVuZHMJANkEAQUOZGVwb3NpdEFzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUQZmVlQ29sbGVjdG9yQWRkcgULd2l0aGRyYXdGZWUJANkEAQUOZGVwb3NpdEFzc2V0SWQFA25pbAFpARBzZXRXaW5uZXJIZWFkc1VwAwZnYW1lSWQNd2lubmVyQWRkclN0cg9vdGhlclBsYXllckFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgpBZG1pbiBPbmx5BBNhdmFpbGFibGVSZXdhcmRzS2V5CQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ13aW5uZXJBZGRyU3RyBBdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkBDXRyeUdldEludGVnZXIBBRNhdmFpbGFibGVSZXdhcmRzS2V5BBRuZXdUaWNrZXRDb3VudFdpbm5lcgkBDWNvbnN1bWVUaWNrZXQBBQ13aW5uZXJBZGRyU3RyBBluZXdUaWNrZXRDb3VudE90aGVyUGxheWVyCQENY29uc3VtZVRpY2tldAEFD290aGVyUGxheWVyQWRkcgkAzAgCCQELU3RyaW5nRW50cnkCCQENZ2FtZVdpbm5lcktleQEFBmdhbWVJZAUNd2lubmVyQWRkclN0cgkAzAgCCQEMSW50ZWdlckVudHJ5AgUTYXZhaWxhYmxlUmV3YXJkc0tleQkAZAIFF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzCQBoAgULdGlja2V0UHJpY2UAAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFDXdpbm5lckFkZHJTdHIFFG5ld1RpY2tldENvdW50V2lubmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQESZ2V0VGlja2V0c0NvdW50S2V5AQUPb3RoZXJQbGF5ZXJBZGRyBRluZXdUaWNrZXRDb3VudE90aGVyUGxheWVyBQNuaWwBaQEPd2l0aGRyYXdSZXdhcmRzAAQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBBmZWVDb2xsZWN0b3JBZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBRZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5BBdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkBDXRyeUdldEludGVnZXIBCQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ1jYWxsZXJBZGRyU3RyBAt3aXRoZHJhd0ZlZQkAawMFF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzBRJ3aXRoZHJhd0ZlZVBlcmNlbnQAZAQWYWN0dWFsQXZhaWxhYmxlUmV3YXJkcwkAZQIJAGUCBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwUGaW52RmVlBQt3aXRoZHJhd0ZlZQMJAGcCAAAFF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzCQACAQIgTm8gYXZhaWxhYmxlIHJld2FyZHMgdG8gd2l0aGRyYXcJAMwIAgkBDEludGVnZXJFbnRyeQIJARphZGRyZXNzQXZhaWxhYmxlUmV3YXJkc0tleQEFDWNhbGxlckFkZHJTdHIAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFFmFjdHVhbEF2YWlsYWJsZVJld2FyZHMFBHVuaXQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUQZmVlQ29sbGVjdG9yQWRkcgULd2l0aGRyYXdGZWUFBHVuaXQFA25pbAFpAQpidXlUaWNrZXRzAAQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQIhUGxlYXNlIGF0dGFjaCBleGFjdGx5IG9uZSBwYXltZW50AwkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAkAAgECJ1RpY2tldHMgY2FuIG9ubHkgaWJlIHB1cmNoYXNlZCBpbiBXYXZlcwMJAQIhPQIIBQNwbXQGYW1vdW50BQt0aWNrZXRQcmljZQkAAgEJAKwCAgkArAICAh9UaGUgcGF5bWVudCBtdXN0IGJlIG9mIGV4YWN0bHkgCQCkAwEFDnRpY2tldFByaWNlSW50AgYgd2F2ZXMEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQTY3VycmVudFRpY2tldHNDb3VudAkBDXRyeUdldEludGVnZXIBCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNY2FsbGVyQWRkclN0cgkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNY2FsbGVyQWRkclN0cgkAZAIFE2N1cnJlbnRUaWNrZXRzQ291bnQAAQUDbmlsAAEBAnR4AQZ2ZXJpZnkACQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5iVMufA==",
    "height": 2186012,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: F7DASibMaqREShmHN5RRKvJA9KxLtHHhas9U5AtHWq3q
Next: 7hhhdBvWtzv2sqPH73XXbCDchLUHBw8Lqi5f8Bsj7tPS

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

Old	New		Differences
84	84		then throw("Admin Only")
85	85		else {
86	86		let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(playerAddr))
87		-	let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(playerAddr))
88	87		let currentGameLockedAmountForPlayer = tryGetInteger(addressLockedFundsForGameKey(playerAddr, gameId))
89		-	$Tuple2([~~IntegerEntry(addressAvailableFundsKey(playerAddr), (currentAvailableFunds + exitStackAmount)),~~ IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer)), IntegerEntry(addressLockedFundsForGameKey(playerAddr, gameId), 0)], 1)
	88	+	$Tuple2([IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer)), IntegerEntry(addressLockedFundsForGameKey(playerAddr, gameId), 0), ScriptTransfer(addressFromStringValue(playerAddr), exitStackAmount, fromBase58String(depositAssetId))], 1)
90	89		}
91	90
92	91
93	92
94	93		@Callable(i)
95		-	func lockFundsForGame (gameId,amountToLock) = {
96		-	let callerAddrStr = toBase58String(i.caller.bytes)
97		-	let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(callerAddrStr))
98		-	let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(callerAddrStr))
99		-	let currentLockedFundsTotalHistory = tryGetInteger(addressLockedFundsTotalHistoryKey(callerAddrStr))
100		-	if ((amountToLock > currentAvailableFunds))
101		-	then throw("Not enough available funds to lock")
102		-	else $Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), (currentAvailableFunds - amountToLock)), IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + amountToLock)), IntegerEntry(addressLockedFundsTotalHistoryKey(callerAddrStr), (currentLockedFundsTotalHistory + amountToLock)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), amountToLock)], 1)
	94	+	func lockFundsForGame (gameId) = {
	95	+	let pmt = if ((size(i.payments) == 1))
	96	+	then i.payments[0]
	97	+	else throw("Please attach exactly one payment")
	98	+	if ((pmt.assetId != fromBase58String(depositAssetId)))
	99	+	then throw("You can only deposit USDN")
	100	+	else {
	101	+	let callerAddrStr = toBase58String(i.caller.bytes)
	102	+	let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(callerAddrStr))
	103	+	let currentLockedFundsTotalHistory = tryGetInteger(addressLockedFundsTotalHistoryKey(callerAddrStr))
	104	+	$Tuple2([IntegerEntry(addressTotalLockedFundsKey(callerAddrStr), (currentTotalLockedFunds + pmt.amount)), IntegerEntry(addressLockedFundsTotalHistoryKey(callerAddrStr), (currentLockedFundsTotalHistory + pmt.amount)), IntegerEntry(addressLockedFundsForGameKey(callerAddrStr, gameId), pmt.amount)], 1)
	105	+	}
103	106		}
104	107
105	108

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

github/deemru/w8io/169f3d6 
54.92 ms ◑