w8 · tx · AAm···8uX

tx · AAmTN5xueLrTJjg2SimCEibNohR1izAXPjbBxJ9R38uX

3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk:  -0.00500000 Waves

2022.07.31 02:49 [2163238] smart account 3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AAmTN5xueLrTJjg2SimCEibNohR1izAXPjbBxJ9R38uX",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1659224992466,
    "version": 2,
    "chainId": 84,
    "sender": "3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk",
    "senderPublicKey": "AR4BeE6hYADMvKxgRQs4ADN3krEqb2j8WE3WfJxzL3zE",
    "proofs": [
        "4Yb1TZkVVo2mxfCtFZBGzMMDjgSNc1VBxyewzXq8ixsR2fa5E7kupc3kv3jrMwBDwnPUMzTbAaCfwaEPT7zwd75k"
    ],
    "script": "base64:BgIjCAISAwoBCBIAEgUKAwgIARIECgIIARIAEgUKAwgICBIAEgAPAAV3YXZlcwCAwtcvAA50aWNrZXRQcmljZUludADAhD0AC3RpY2tldFByaWNlBQ50aWNrZXRQcmljZUludAAGaW52RmVlAKDCHgASd2l0aGRyYXdGZWVQZXJjZW50AAUAFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkCE2ZlZUNvbGxlY3RvckFkZHJlc3MBDXRyeUdldEludGVnZXIBA2tleQQHJG1hdGNoMAkAmggCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIDSW50BAFiBQckbWF0Y2gwBQFiAAABEmdldFRpY2tldHNDb3VudEtleQENYWRkcmVzc1N0cmluZwkArAICBQ1hZGRyZXNzU3RyaW5nAg1fdGlja2V0c0NvdW50AQ1nYW1lV2lubmVyS2V5AQZnYW1lSWQJAKwCAgUGZ2FtZUlkAgdfd2lubmVyARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIPX2F2YWlsYWJsZUZ1bmRzARphZGRyZXNzVG90YWxMb2NrZWRGdW5kc0tleQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhFfdG90YWxMb2NrZWRGdW5kcwEZYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZQIHYWRkcmVzcwZnYW1lSWQJAKwCAgkArAICBQdhZGRyZXNzAg1fbG9ja2VkRnVuZHNfBQZnYW1lSWQBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCEV9hdmFpbGFibGVSZXdhcmRzAQ9nZXRUaWNrZXRzQ291bnQBDWFkZHJlc3NTdHJpbmcJAQ10cnlHZXRJbnRlZ2VyAQkBEmdldFRpY2tldHNDb3VudEtleQEFDWFkZHJlc3NTdHJpbmcBDWNvbnN1bWVUaWNrZXQBCnBsYXllckFkZHIEEmN1cnJlbnRUaWNrZXRDb3VudAkBD2dldFRpY2tldHNDb3VudAEFCnBsYXllckFkZHIEFW5ld0N1cnJlbnRUaWNrZXRDb3VudAkAZQIFEmN1cnJlbnRUaWNrZXRDb3VudAABAwkAZgIAAAUVbmV3Q3VycmVudFRpY2tldENvdW50AAAFFW5ld0N1cnJlbnRUaWNrZXRDb3VudAgBaQEWc2V0RmVlQ29sbGVjdG9yQWRkcmVzcwENY29sbGVjdG9yQWRkcgMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECCkFkbWluIE9ubHkJAMwIAgkBC1N0cmluZ0VudHJ5AgUWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQUNY29sbGVjdG9yQWRkcgUDbmlsAWkBDGRlcG9zaXRGdW5kcwAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECIVBsZWFzZSBhdHRhY2ggZXhhY3RseSBvbmUgcGF5bWVudAMJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQJAAIBAhlZb3UgY2FuIG9ubHkgZGVwb3NpdCBVU0ROBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIIBQNwbXQGYW1vdW50BQNuaWwAAQFpAQ5wbGF5ZXJFeGl0R2FtZQMGZ2FtZUlkCnBsYXllckFkZHIPZXhpdFN0YWNrQW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUKcGxheWVyQWRkcgQVY3VycmVudEF2YWlsYWJsZUZ1bmRzCQENdHJ5R2V0SW50ZWdlcgEJARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBBQpwbGF5ZXJBZGRyBCBjdXJyZW50R2FtZUxvY2tlZEFtb3VudEZvclBsYXllcgkBDXRyeUdldEludGVnZXIBCQEZYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZQIFCnBsYXllckFkZHIFBmdhbWVJZAkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUKcGxheWVyQWRkcgkAZAIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwUPZXhpdFN0YWNrQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBBQpwbGF5ZXJBZGRyCQBlAgUXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMFIGN1cnJlbnRHYW1lTG9ja2VkQW1vdW50Rm9yUGxheWVyBQNuaWwAAQFpARBsb2NrRnVuZHNGb3JHYW1lAgZnYW1lSWQMYW1vdW50VG9Mb2NrBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgQXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgMJAGYCBQxhbW91bnRUb0xvY2sFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkAAgECIk5vdCBlbm91Z2ggYXZhaWxhYmxlIGZ1bmRzIHRvIGxvY2sJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIJAGUCBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMFDGFtb3VudFRvTG9jawkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgkAZAIFF2N1cnJlbnRUb3RhbExvY2tlZEZ1bmRzBQxhbW91bnRUb0xvY2sJAMwIAgkBDEludGVnZXJFbnRyeQIJARlhZGRyZXNzTG9ja2VkRnVuZHNGb3JHYW1lAgUNY2FsbGVyQWRkclN0cgUGZ2FtZUlkBQxhbW91bnRUb0xvY2sFA25pbAABAWkBDXdpdGhkcmF3RnVuZHMABA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEEGZlZUNvbGxlY3RvckFkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDU4KQEFFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgQLd2l0aGRyYXdGZWUJAGsDBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMFEndpdGhkcmF3RmVlUGVyY2VudABkBBRhY3R1YWxBdmFpbGFibGVGdW5kcwkAZQIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwULd2l0aGRyYXdGZWUDCQBnAgAABRRhY3R1YWxBdmFpbGFibGVGdW5kcwkAAgECHk5vIGF2YWlsYWJsZSBmdW5kcyB0byB3aXRoZHJhdwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFFGFjdHVhbEF2YWlsYWJsZUZ1bmRzBQR1bml0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFEGZlZUNvbGxlY3RvckFkZHIFC3dpdGhkcmF3RmVlBQR1bml0BQNuaWwBaQEQc2V0V2lubmVySGVhZHNVcAMGZ2FtZUlkDXdpbm5lckFkZHJTdHIPb3RoZXJQbGF5ZXJBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQTYXZhaWxhYmxlUmV3YXJkc0tleQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNd2lubmVyQWRkclN0cgQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQUTYXZhaWxhYmxlUmV3YXJkc0tleQQUbmV3VGlja2V0Q291bnRXaW5uZXIJAQ1jb25zdW1lVGlja2V0AQUNd2lubmVyQWRkclN0cgQZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgkBDWNvbnN1bWVUaWNrZXQBBQ9vdGhlclBsYXllckFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDWdhbWVXaW5uZXJLZXkBBQZnYW1lSWQFDXdpbm5lckFkZHJTdHIJAMwIAgkBDEludGVnZXJFbnRyeQIFE2F2YWlsYWJsZVJld2FyZHNLZXkJAGQCBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAaAIFC3RpY2tldFByaWNlAAIJAMwIAgkBDEludGVnZXJFbnRyeQIJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ13aW5uZXJBZGRyU3RyBRRuZXdUaWNrZXRDb3VudFdpbm5lcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFD290aGVyUGxheWVyQWRkcgUZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgUDbmlsAWkBD3dpdGhkcmF3UmV3YXJkcwAEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQQZmVlQ29sbGVjdG9yQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNY2FsbGVyQWRkclN0cgQLd2l0aGRyYXdGZWUJAGsDBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwUSd2l0aGRyYXdGZWVQZXJjZW50AGQEFmFjdHVhbEF2YWlsYWJsZVJld2FyZHMJAGUCCQBlAgUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMFBmludkZlZQULd2l0aGRyYXdGZWUDCQBnAgAABRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAAgECIE5vIGF2YWlsYWJsZSByZXdhcmRzIHRvIHdpdGhkcmF3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ1jYWxsZXJBZGRyU3RyAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRZhY3R1YWxBdmFpbGFibGVSZXdhcmRzBQR1bml0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFEGZlZUNvbGxlY3RvckFkZHIFC3dpdGhkcmF3RmVlBQR1bml0BQNuaWwBaQEKYnV5VGlja2V0cwAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECIVBsZWFzZSBhdHRhY2ggZXhhY3RseSBvbmUgcGF5bWVudAMJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQJAAIBAidUaWNrZXRzIGNhbiBvbmx5IGliZSBwdXJjaGFzZWQgaW4gV2F2ZXMDCQECIT0CCAUDcG10BmFtb3VudAULdGlja2V0UHJpY2UJAAIBCQCsAgIJAKwCAgIfVGhlIHBheW1lbnQgbXVzdCBiZSBvZiBleGFjdGx5IAkApAMBBQ50aWNrZXRQcmljZUludAIGIHdhdmVzBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEE2N1cnJlbnRUaWNrZXRzQ291bnQJAQ10cnlHZXRJbnRlZ2VyAQkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAGQCBRNjdXJyZW50VGlja2V0c0NvdW50AAEFA25pbAABAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tleZjeCqA=",
    "height": 2163238,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: D7jnBhUFhJ2cbCEEHRXR6wcBdVX587wXSiaQ2B1URxSW
Next: G9E7mAEmFQB7o8wUZmqGQy1zURKxxCYr1xKTrCVGr8zn

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

Old	New		Differences
70	70		$Tuple2([IntegerEntry(addressAvailableFundsKey(callerAddrStr), pmt.amount)], 1)
71	71		}
72	72		}
	73	+
	74	+
	75	+
	76	+	@Callable(i)
	77	+	func playerExitGame (gameId,playerAddr,exitStackAmount) = if ((i.caller != this))
	78	+	then throw("Admin Only")
	79	+	else {
	80	+	let currentTotalLockedFunds = tryGetInteger(addressTotalLockedFundsKey(playerAddr))
	81	+	let currentAvailableFunds = tryGetInteger(addressAvailableFundsKey(playerAddr))
	82	+	let currentGameLockedAmountForPlayer = tryGetInteger(addressLockedFundsForGame(playerAddr, gameId))
	83	+	$Tuple2([IntegerEntry(addressAvailableFundsKey(playerAddr), (currentAvailableFunds + exitStackAmount)), IntegerEntry(addressTotalLockedFundsKey(playerAddr), (currentTotalLockedFunds - currentGameLockedAmountForPlayer))], 1)
	84	+	}
73	85
74	86
75	87

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

github/deemru/w8io/169f3d6 
23.58 ms ◑