tx · 8DqSp5opZYUHy7yMWoxhrpXVudpiyZmMBXNKfGyyWFkE

3Mu92NUVTLMYPb15GPf9UVK1YECWGnB9DrP:  -0.01000000 Waves

2022.09.11 23:56 [2224945] smart account 3Mu92NUVTLMYPb15GPf9UVK1YECWGnB9DrP > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "8DqSp5opZYUHy7yMWoxhrpXVudpiyZmMBXNKfGyyWFkE",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1662929794665,
    "version": 2,
    "chainId": 84,
    "sender": "3Mu92NUVTLMYPb15GPf9UVK1YECWGnB9DrP",
    "senderPublicKey": "FaA8VpKGTNsUCYtvTWzNdijwTo4VJooP8yLh6o2xxpqs",
    "proofs": [
        "2JnhwzadYyDpZYb4j8mj5ASe7ExhMbRi1Kk1Gb4HQTi5VswFdVz5rXx9dq7coAk1geR8uzmCNNTbcW448XUohzeV"
    ],
    "script": "base64:BgInCAISAwoBCBIAEgMKAQgSBQoDCAgBEgMKAQgSABIFCgMICAgSABIAFAAFd2F2ZXMAgMLXLwAOdGlja2V0UHJpY2VJbnQAwIQ9AAt0aWNrZXRQcmljZQUOdGlja2V0UHJpY2VJbnQABmludkZlZQCgwh4AEndpdGhkcmF3RmVlUGVyY2VudAAFABZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5AhNmZWVDb2xsZWN0b3JBZGRyZXNzAA5kZXBvc2l0QXNzZXRJZAIsNXVlMWZpdVY2ajZVQnI2WGYyOFFtczZ5NUZxekt0cXZheHhod3U3aFRRNTgBDXRyeUdldEludGVnZXIBA2tleQQHJG1hdGNoMAkAmggCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIDSW50BAFiBQckbWF0Y2gwBQFiAAABEmdldFRpY2tldHNDb3VudEtleQENYWRkcmVzc1N0cmluZwkArAICBQ1hZGRyZXNzU3RyaW5nAg1fdGlja2V0c0NvdW50ARh0b3VybmFtZW50UHJpemVBbW91bnRLZXkBDHRvdXJuYW1lbnRJZAkArAICBQx0b3VybmFtZW50SWQCFl90b3VybmFtZW50UHJpemVBbW91bnQBGXRvdXJuYW1lbnRQcml6ZUFzc2V0SWRLZXkBDHRvdXJuYW1lbnRJZAkArAICBQx0b3VybmFtZW50SWQCF190b3VybmFtZW50UHJpemVBc3NldElkARN0b3VybmFtZW50U3RhdHVzS2V5AQx0b3VybmFtZW50SWQJAKwCAgUMdG91cm5hbWVudElkAhFfdG91cm5hbWVudFN0YXR1cwENZ2FtZVdpbm5lcktleQEGZ2FtZUlkCQCsAgIFBmdhbWVJZAIHX3dpbm5lcgEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCD19hdmFpbGFibGVGdW5kcwEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIRX3RvdGFsTG9ja2VkRnVuZHMBIWFkZHJlc3NMb2NrZWRGdW5kc1RvdGFsSGlzdG9yeUtleQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhhfbG9ja2VkRnVuZHNUb3RhbEhpc3RvcnkBHGFkZHJlc3NMb2NrZWRGdW5kc0ZvckdhbWVLZXkCB2FkZHJlc3MGZ2FtZUlkCQCsAgIJAKwCAgUHYWRkcmVzcwINX2xvY2tlZEZ1bmRzXwUGZ2FtZUlkARphZGRyZXNzQXZhaWxhYmxlUmV3YXJkc0tleQEHYWRkcmVzcwkArAICBQdhZGRyZXNzAhFfYXZhaWxhYmxlUmV3YXJkcwEPZ2V0VGlja2V0c0NvdW50AQ1hZGRyZXNzU3RyaW5nCQENdHJ5R2V0SW50ZWdlcgEJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ1hZGRyZXNzU3RyaW5nAQ1jb25zdW1lVGlja2V0AQpwbGF5ZXJBZGRyBBJjdXJyZW50VGlja2V0Q291bnQJAQ9nZXRUaWNrZXRzQ291bnQBBQpwbGF5ZXJBZGRyBBVuZXdDdXJyZW50VGlja2V0Q291bnQJAGUCBRJjdXJyZW50VGlja2V0Q291bnQAAQMJAGYCAAAFFW5ld0N1cnJlbnRUaWNrZXRDb3VudAAABRVuZXdDdXJyZW50VGlja2V0Q291bnQJAWkBFnNldEZlZUNvbGxlY3RvckFkZHJlc3MBDWNvbGxlY3RvckFkZHIDCQECIT0CCAUBaQZjYWxsZXIFBHRoaXMJAAIBAgpBZG1pbiBPbmx5CQDMCAIJAQtTdHJpbmdFbnRyeQIFFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkFDWNvbGxlY3RvckFkZHIFA25pbAFpAQxkZXBvc2l0RnVuZHMABANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAiFQbGVhc2UgYXR0YWNoIGV4YWN0bHkgb25lIHBheW1lbnQDCQECIT0CCAUDcG10B2Fzc2V0SWQJANkEAQUOZGVwb3NpdEFzc2V0SWQJAAIBAhlZb3UgY2FuIG9ubHkgZGVwb3NpdCBVU0ROBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgkAlAoCCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgkAZAIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwgFA3BtdAZhbW91bnQFA25pbAABAWkBEGNyZWF0ZVRvdXJuYW1lbnQBDHRvdXJuYW1lbnRJZAQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQIhUGxlYXNlIGF0dGFjaCBleGFjdGx5IG9uZSBwYXltZW50BAxwcml6ZUFzc2V0SWQEByRtYXRjaDAIBQNwbXQHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgRVbml0BAFiBQckbWF0Y2gwAgADCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQBYgUHJG1hdGNoMAkA2AQBBQFiCQACAQILTWF0Y2ggZXJyb3IJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGHRvdXJuYW1lbnRQcml6ZUFtb3VudEtleQEFDHRvdXJuYW1lbnRJZAgFA3BtdAZhbW91bnQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBGXRvdXJuYW1lbnRQcml6ZUFzc2V0SWRLZXkBBQx0b3VybmFtZW50SWQFDHByaXplQXNzZXRJZAkAzAgCCQELU3RyaW5nRW50cnkCCQETdG91cm5hbWVudFN0YXR1c0tleQEFDHRvdXJuYW1lbnRJZAIMcmVnaXN0cmF0aW9uBQNuaWwAAQFpAQ5wbGF5ZXJFeGl0R2FtZQMGZ2FtZUlkCnBsYXllckFkZHIPZXhpdFN0YWNrQW1vdW50AwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQXY3VycmVudFRvdGFsTG9ja2VkRnVuZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUKcGxheWVyQWRkcgQgY3VycmVudEdhbWVMb2NrZWRBbW91bnRGb3JQbGF5ZXIJAQ10cnlHZXRJbnRlZ2VyAQkBHGFkZHJlc3NMb2NrZWRGdW5kc0ZvckdhbWVLZXkCBQpwbGF5ZXJBZGRyBQZnYW1lSWQJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUKcGxheWVyQWRkcgkAZQIFF2N1cnJlbnRUb3RhbExvY2tlZEZ1bmRzBSBjdXJyZW50R2FtZUxvY2tlZEFtb3VudEZvclBsYXllcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBHGFkZHJlc3NMb2NrZWRGdW5kc0ZvckdhbWVLZXkCBQpwbGF5ZXJBZGRyBQZnYW1lSWQAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQpwbGF5ZXJBZGRyBQ9leGl0U3RhY2tBbW91bnQJANkEAQUOZGVwb3NpdEFzc2V0SWQFA25pbAABAWkBEGxvY2tGdW5kc0ZvckdhbWUBBmdhbWVJZAQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQIhUGxlYXNlIGF0dGFjaCBleGFjdGx5IG9uZSBwYXltZW50AwkBAiE9AggFA3BtdAdhc3NldElkCQDZBAEFDmRlcG9zaXRBc3NldElkCQACAQIZWW91IGNhbiBvbmx5IGRlcG9zaXQgVVNETgQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBdjdXJyZW50VG90YWxMb2NrZWRGdW5kcwkBDXRyeUdldEludGVnZXIBCQEaYWRkcmVzc1RvdGFsTG9ja2VkRnVuZHNLZXkBBQ1jYWxsZXJBZGRyU3RyBB5jdXJyZW50TG9ja2VkRnVuZHNUb3RhbEhpc3RvcnkJAQ10cnlHZXRJbnRlZ2VyAQkBIWFkZHJlc3NMb2NrZWRGdW5kc1RvdGFsSGlzdG9yeUtleQEFDWNhbGxlckFkZHJTdHIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGmFkZHJlc3NUb3RhbExvY2tlZEZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgkAZAIFF2N1cnJlbnRUb3RhbExvY2tlZEZ1bmRzCAUDcG10BmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBIWFkZHJlc3NMb2NrZWRGdW5kc1RvdGFsSGlzdG9yeUtleQEFDWNhbGxlckFkZHJTdHIJAGQCBR5jdXJyZW50TG9ja2VkRnVuZHNUb3RhbEhpc3RvcnkIBQNwbXQGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEcYWRkcmVzc0xvY2tlZEZ1bmRzRm9yR2FtZUtleQIFDWNhbGxlckFkZHJTdHIFBmdhbWVJZAgFA3BtdAZhbW91bnQFA25pbAABAWkBDXdpdGhkcmF3RnVuZHMABA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEEGZlZUNvbGxlY3RvckFkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJARFAZXh0ck5hdGl2ZSgxMDU4KQEFFmZlZUNvbGxlY3RvckFkZHJlc3NLZXkEFWN1cnJlbnRBdmFpbGFibGVGdW5kcwkBDXRyeUdldEludGVnZXIBCQEYYWRkcmVzc0F2YWlsYWJsZUZ1bmRzS2V5AQUNY2FsbGVyQWRkclN0cgQLd2l0aGRyYXdGZWUJAGsDBRVjdXJyZW50QXZhaWxhYmxlRnVuZHMFEndpdGhkcmF3RmVlUGVyY2VudABkBBRhY3R1YWxBdmFpbGFibGVGdW5kcwkAZQIFFWN1cnJlbnRBdmFpbGFibGVGdW5kcwULd2l0aGRyYXdGZWUDCQBnAgAABRRhY3R1YWxBdmFpbGFibGVGdW5kcwkAAgECHk5vIGF2YWlsYWJsZSBmdW5kcyB0byB3aXRoZHJhdwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGFkZHJlc3NBdmFpbGFibGVGdW5kc0tleQEFDWNhbGxlckFkZHJTdHIAAAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFFGFjdHVhbEF2YWlsYWJsZUZ1bmRzCQDZBAEFDmRlcG9zaXRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFEGZlZUNvbGxlY3RvckFkZHIFC3dpdGhkcmF3RmVlCQDZBAEFDmRlcG9zaXRBc3NldElkBQNuaWwBaQEQc2V0V2lubmVySGVhZHNVcAMGZ2FtZUlkDXdpbm5lckFkZHJTdHIPb3RoZXJQbGF5ZXJBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQTYXZhaWxhYmxlUmV3YXJkc0tleQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNd2lubmVyQWRkclN0cgQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQUTYXZhaWxhYmxlUmV3YXJkc0tleQQUbmV3VGlja2V0Q291bnRXaW5uZXIJAQ1jb25zdW1lVGlja2V0AQUNd2lubmVyQWRkclN0cgQZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgkBDWNvbnN1bWVUaWNrZXQBBQ9vdGhlclBsYXllckFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDWdhbWVXaW5uZXJLZXkBBQZnYW1lSWQFDXdpbm5lckFkZHJTdHIJAMwIAgkBDEludGVnZXJFbnRyeQIFE2F2YWlsYWJsZVJld2FyZHNLZXkJAGQCBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAaAIFC3RpY2tldFByaWNlAAIJAMwIAgkBDEludGVnZXJFbnRyeQIJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ13aW5uZXJBZGRyU3RyBRRuZXdUaWNrZXRDb3VudFdpbm5lcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFD290aGVyUGxheWVyQWRkcgUZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgUDbmlsAWkBD3dpdGhkcmF3UmV3YXJkcwAEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQQZmVlQ29sbGVjdG9yQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNY2FsbGVyQWRkclN0cgQLd2l0aGRyYXdGZWUJAGsDBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwUSd2l0aGRyYXdGZWVQZXJjZW50AGQEFmFjdHVhbEF2YWlsYWJsZVJld2FyZHMJAGUCCQBlAgUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMFBmludkZlZQULd2l0aGRyYXdGZWUDCQBnAgAABRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAAgECIE5vIGF2YWlsYWJsZSByZXdhcmRzIHRvIHdpdGhkcmF3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ1jYWxsZXJBZGRyU3RyAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRZhY3R1YWxBdmFpbGFibGVSZXdhcmRzBQR1bml0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFEGZlZUNvbGxlY3RvckFkZHIFC3dpdGhkcmF3RmVlBQR1bml0BQNuaWwBaQEKYnV5VGlja2V0cwAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECIVBsZWFzZSBhdHRhY2ggZXhhY3RseSBvbmUgcGF5bWVudAMJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQJAAIBAidUaWNrZXRzIGNhbiBvbmx5IGliZSBwdXJjaGFzZWQgaW4gV2F2ZXMDCQECIT0CCAUDcG10BmFtb3VudAULdGlja2V0UHJpY2UJAAIBCQCsAgIJAKwCAgIfVGhlIHBheW1lbnQgbXVzdCBiZSBvZiBleGFjdGx5IAkApAMBBQ50aWNrZXRQcmljZUludAIGIHdhdmVzBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEE2N1cnJlbnRUaWNrZXRzQ291bnQJAQ10cnlHZXRJbnRlZ2VyAQkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAGQCBRNjdXJyZW50VGlja2V0c0NvdW50AAEFA25pbAABAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tleWB/O8M=",
    "height": 2224945,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: none

Full: 

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