w8 · tx · G9E···8zn

tx · G9E7mAEmFQB7o8wUZmqGQy1zURKxxCYr1xKTrCVGr8zn

3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk:  -0.01000000 Waves

2022.07.31 23:05 [2164458] smart account 3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "G9E7mAEmFQB7o8wUZmqGQy1zURKxxCYr1xKTrCVGr8zn",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1659297970485,
    "version": 2,
    "chainId": 84,
    "sender": "3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk",
    "senderPublicKey": "AR4BeE6hYADMvKxgRQs4ADN3krEqb2j8WE3WfJxzL3zE",
    "proofs": [
        "5gu9koPuhKBEeNHQkxr8BzU9r8uWvZczdbFX7feK3qcgp9Ecge5jD887DxrrdAVsmBRkXFk81yoe6vD6MfKK3fGT"
    ],
    "script": "base64:BgIjCAISAwoBCBIAEgUKAwgIARIECgIIARIAEgUKAwgICBIAEgAQAAV3YXZlcwCAwtcvAA50aWNrZXRQcmljZUludADAhD0AC3RpY2tldFByaWNlBQ50aWNrZXRQcmljZUludAAGaW52RmVlAKDCHgASd2l0aGRyYXdGZWVQZXJjZW50AAUAFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkCE2ZlZUNvbGxlY3RvckFkZHJlc3MADmRlcG9zaXRBc3NldElkAiw1dWUxZml1VjZqNlVCcjZYZjI4UW1zNnk1RnF6S3RxdmF4eGh3dTdoVFE1OAENdHJ5R2V0SW50ZWdlcgEDa2V5BAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAESZ2V0VGlja2V0c0NvdW50S2V5AQ1hZGRyZXNzU3RyaW5nCQCsAgIFDWFkZHJlc3NTdHJpbmcCDV90aWNrZXRzQ291bnQBDWdhbWVXaW5uZXJLZXkBBmdhbWVJZAkArAICBQZnYW1lSWQCB193aW5uZXIBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAg9fYXZhaWxhYmxlRnVuZHMBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCEV90b3RhbExvY2tlZEZ1bmRzARlhZGRyZXNzTG9ja2VkRnVuZHNGb3JHYW1lAgdhZGRyZXNzBmdhbWVJZAkArAICCQCsAgIFB2FkZHJlc3MCDV9sb2NrZWRGdW5kc18FBmdhbWVJZAEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIRX2F2YWlsYWJsZVJld2FyZHMBD2dldFRpY2tldHNDb3VudAENYWRkcmVzc1N0cmluZwkBDXRyeUdldEludGVnZXIBCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNYWRkcmVzc1N0cmluZwENY29uc3VtZVRpY2tldAEKcGxheWVyQWRkcgQSY3VycmVudFRpY2tldENvdW50CQEPZ2V0VGlja2V0c0NvdW50AQUKcGxheWVyQWRkcgQVbmV3Q3VycmVudFRpY2tldENvdW50CQBlAgUSY3VycmVudFRpY2tldENvdW50AAEDCQBmAgAABRVuZXdDdXJyZW50VGlja2V0Q291bnQAAAUVbmV3Q3VycmVudFRpY2tldENvdW50CAFpARZzZXRGZWVDb2xsZWN0b3JBZGRyZXNzAQ1jb2xsZWN0b3JBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQkAzAgCCQELU3RyaW5nRW50cnkCBRZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5BQ1jb2xsZWN0b3JBZGRyBQNuaWwBaQEMZGVwb3NpdEZ1bmRzAAQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQIhUGxlYXNlIGF0dGFjaCBleGFjdGx5IG9uZSBwYXltZW50AwkBAiE9AggFA3BtdAdhc3NldElkCQDZBAEFDmRlcG9zaXRBc3NldElkCQACAQIZWW91IGNhbiBvbmx5IGRlcG9zaXQgVVNETgQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIJARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBBQ1jYWxsZXJBZGRyU3RyCAUDcG10BmFtb3VudAUDbmlsAAEBaQEOcGxheWVyRXhpdEdhbWUDBmdhbWVJZApwbGF5ZXJBZGRyD2V4aXRTdGFja0Ftb3VudAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECCkFkbWluIE9ubHkEF2N1cnJlbnRUb3RhbExvY2tlZEZ1bmRzCQENdHJ5R2V0SW50ZWdlcgEJARphZGRyZXNzVG90YWxMb2NrZWRGdW5kc0tleQEFCnBsYXllckFkZHIEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUKcGxheWVyQWRkcgQgY3VycmVudEdhbWVMb2NrZWRBbW91bnRGb3JQbGF5ZXIJAQ10cnlHZXRJbnRlZ2VyAQkBGWFkZHJlc3NMb2NrZWRGdW5kc0ZvckdhbWUCBQpwbGF5ZXJBZGRyBQZnYW1lSWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFCnBsYXllckFkZHIJAGQCBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMFD2V4aXRTdGFja0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUKcGxheWVyQWRkcgkAZQIFF2N1cnJlbnRUb3RhbExvY2tlZEZ1bmRzBSBjdXJyZW50R2FtZUxvY2tlZEFtb3VudEZvclBsYXllcgUDbmlsAAEBaQEQbG9ja0Z1bmRzRm9yR2FtZQIGZ2FtZUlkDGFtb3VudFRvTG9jawQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBVjdXJyZW50QXZhaWxhYmxlRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIEF2N1cnJlbnRUb3RhbExvY2tlZEZ1bmRzCQENdHJ5R2V0SW50ZWdlcgEJARphZGRyZXNzVG90YWxMb2NrZWRGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIDCQBmAgUMYW1vdW50VG9Mb2NrBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMJAAIBAiJOb3QgZW5vdWdoIGF2YWlsYWJsZSBmdW5kcyB0byBsb2NrCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIJARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBBQ1jYWxsZXJBZGRyU3RyCQBlAgUVY3VycmVudEF2YWlsYWJsZUZ1bmRzBQxhbW91bnRUb0xvY2sJAMwIAgkBDEludGVnZXJFbnRyeQIJARphZGRyZXNzVG90YWxMb2NrZWRGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIJAGQCBRdjdXJyZW50VG90YWxMb2NrZWRGdW5kcwUMYW1vdW50VG9Mb2NrCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEZYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZQIFDWNhbGxlckFkZHJTdHIFBmdhbWVJZAUMYW1vdW50VG9Mb2NrBQNuaWwAAQFpAQ13aXRoZHJhd0Z1bmRzAAQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBBmZWVDb2xsZWN0b3JBZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBCQERQGV4dHJOYXRpdmUoMTA1OCkBBRZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5BBVjdXJyZW50QXZhaWxhYmxlRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIEC3dpdGhkcmF3RmVlCQBrAwUVY3VycmVudEF2YWlsYWJsZUZ1bmRzBRJ3aXRoZHJhd0ZlZVBlcmNlbnQAZAQUYWN0dWFsQXZhaWxhYmxlRnVuZHMJAGUCBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMFC3dpdGhkcmF3RmVlAwkAZwIAAAUUYWN0dWFsQXZhaWxhYmxlRnVuZHMJAAIBAh5ObyBhdmFpbGFibGUgZnVuZHMgdG8gd2l0aGRyYXcJAMwIAgkBDEludGVnZXJFbnRyeQIJARhhZGRyZXNzQXZhaWxhYmxlRnVuZHNLZXkBBQ1jYWxsZXJBZGRyU3RyAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRRhY3R1YWxBdmFpbGFibGVGdW5kcwkA2QQBBQ5kZXBvc2l0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRBmZWVDb2xsZWN0b3JBZGRyBQt3aXRoZHJhd0ZlZQkA2QQBBQ5kZXBvc2l0QXNzZXRJZAUDbmlsAWkBEHNldFdpbm5lckhlYWRzVXADBmdhbWVJZA13aW5uZXJBZGRyU3RyD290aGVyUGxheWVyQWRkcgMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECCkFkbWluIE9ubHkEE2F2YWlsYWJsZVJld2FyZHNLZXkJARphZGRyZXNzQXZhaWxhYmxlUmV3YXJkc0tleQEFDXdpbm5lckFkZHJTdHIEF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzCQENdHJ5R2V0SW50ZWdlcgEFE2F2YWlsYWJsZVJld2FyZHNLZXkEFG5ld1RpY2tldENvdW50V2lubmVyCQENY29uc3VtZVRpY2tldAEFDXdpbm5lckFkZHJTdHIEGW5ld1RpY2tldENvdW50T3RoZXJQbGF5ZXIJAQ1jb25zdW1lVGlja2V0AQUPb3RoZXJQbGF5ZXJBZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ1nYW1lV2lubmVyS2V5AQUGZ2FtZUlkBQ13aW5uZXJBZGRyU3RyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNhdmFpbGFibGVSZXdhcmRzS2V5CQBkAgUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAGgCBQt0aWNrZXRQcmljZQACCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNd2lubmVyQWRkclN0cgUUbmV3VGlja2V0Q291bnRXaW5uZXIJAMwIAgkBDEludGVnZXJFbnRyeQIJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ9vdGhlclBsYXllckFkZHIFGW5ld1RpY2tldENvdW50T3RoZXJQbGF5ZXIFA25pbAFpAQ93aXRoZHJhd1Jld2FyZHMABA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEEGZlZUNvbGxlY3RvckFkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDU4KQEFFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkEF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzCQENdHJ5R2V0SW50ZWdlcgEJARphZGRyZXNzQXZhaWxhYmxlUmV3YXJkc0tleQEFDWNhbGxlckFkZHJTdHIEC3dpdGhkcmF3RmVlCQBrAwUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMFEndpdGhkcmF3RmVlUGVyY2VudABkBBZhY3R1YWxBdmFpbGFibGVSZXdhcmRzCQBlAgkAZQIFF2N1cnJlbnRBdmFpbGFibGVSZXdhcmRzBQZpbnZGZWUFC3dpdGhkcmF3RmVlAwkAZwIAAAUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAAIBAiBObyBhdmFpbGFibGUgcmV3YXJkcyB0byB3aXRoZHJhdwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNY2FsbGVyQWRkclN0cgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUWYWN0dWFsQXZhaWxhYmxlUmV3YXJkcwUEdW5pdAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBRBmZWVDb2xsZWN0b3JBZGRyBQt3aXRoZHJhd0ZlZQUEdW5pdAUDbmlsAWkBCmJ1eVRpY2tldHMABANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAiFQbGVhc2UgYXR0YWNoIGV4YWN0bHkgb25lIHBheW1lbnQDCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkCQACAQInVGlja2V0cyBjYW4gb25seSBpYmUgcHVyY2hhc2VkIGluIFdhdmVzAwkBAiE9AggFA3BtdAZhbW91bnQFC3RpY2tldFByaWNlCQACAQkArAICCQCsAgICH1RoZSBwYXltZW50IG11c3QgYmUgb2YgZXhhY3RseSAJAKQDAQUOdGlja2V0UHJpY2VJbnQCBiB3YXZlcwQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBNjdXJyZW50VGlja2V0c0NvdW50CQENdHJ5R2V0SW50ZWdlcgEJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ1jYWxsZXJBZGRyU3RyCQCUCgIJAMwIAgkBDEludGVnZXJFbnRyeQIJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ1jYWxsZXJBZGRyU3RyCQBkAgUTY3VycmVudFRpY2tldHNDb3VudAABBQNuaWwAAQECdHgBBnZlcmlmeQAJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXmX6UoV",
    "height": 2164458,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AAmTN5xueLrTJjg2SimCEibNohR1izAXPjbBxJ9R38uX
Next: Fum6ZVSHg9VPpiEhcUF2LVRWQU3AESLzubWh5suo88Hr

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

Old	New		Differences
12	12		let withdrawFeePercent = 5
13	13
14	14		let feeCollectorAddressKey = "feeCollectorAddress"
	15	+
	16	+	let depositAssetId = "5ue1fiuV6j6UBr6Xf28Qms6y5FqzKtqvaxxhwu7hTQ58"
15	17
16	18		func tryGetInteger (key) = match getInteger(this, key) {
17	19		case b: Int =>

63	65		let pmt = if ((size(i.payments) == 1))
64	66		then i.payments[0]
65	67		else throw("Please attach exactly one payment")
66		-	if (~~isDefined~~(pmt.assetId))
	68	+	if ((pmt.assetId != fromBase58String(depositAssetId)))
67	69		then throw("You can only deposit USDN")
68	70		else {
69	71		let callerAddrStr = toBase58String(i.caller.bytes)

106	108		let actualAvailableFunds = (currentAvailableFunds - withdrawFee)
107	109		if ((0 >= actualAvailableFunds))
108	110		then throw("No available funds to withdraw")
109		-	else [IntegerEntry(addressAvailableFundsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableFunds, ~~unit~~), ScriptTransfer(feeCollectorAddr, withdrawFee, ~~unit~~)]
	111	+	else [IntegerEntry(addressAvailableFundsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableFunds, fromBase58String(depositAssetId)), ScriptTransfer(feeCollectorAddr, withdrawFee, fromBase58String(depositAssetId))]
110	112		}
111	113
112	114

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

github/deemru/w8io/169f3d6 
31.04 ms ◑