tx · BhHvUrkn4svEepqwYLXerfYHcoNLUrzwYaYWEwXQpXtC

3N5epK5cZtfRGbMDwbtDK3D2rzrYXLRD36A:  -0.01000000 Waves

2022.07.03 22:24 [2123900] smart account 3N5epK5cZtfRGbMDwbtDK3D2rzrYXLRD36A > SELF 0.00000000 Waves

{ "type": 13, "id": "BhHvUrkn4svEepqwYLXerfYHcoNLUrzwYaYWEwXQpXtC", "fee": 1000000, "feeAssetId": null, "timestamp": 1656876274591, "version": 2, "chainId": 84, "sender": "3N5epK5cZtfRGbMDwbtDK3D2rzrYXLRD36A", "senderPublicKey": "5sFLrTgYvPRz6zX3DY6nf71QdBgeskq6DawCX7vA53cJ", "proofs": [ "5tW1aNfK81jzCvGNqiMZjncfURQyiUabLx6HL1d2X4L5qdLopzSi9ifnNrT5BYrP89tBLxaJwZckCKVjgf8tHJTn" ], "script": "base64:BgINCAISBQoDCAEIEgASAAgABXdhdmVzAIDC1y8AC3RpY2tldFByaWNlCQBoAgABBQV3YXZlcwENdHJ5R2V0SW50ZWdlcgEDa2V5BAckbWF0Y2gwCQCaCAIFBHRoaXMFA2tleQMJAAECBQckbWF0Y2gwAgNJbnQEAWIFByRtYXRjaDAFAWIAAAESZ2V0VGlja2V0c0NvdW50S2V5AQ1hZGRyZXNzU3RyaW5nCQCsAgIFDWFkZHJlc3NTdHJpbmcCDV90aWNrZXRzQ291bnQBDWdhbWVXaW5uZXJLZXkBBmdhbWVJZAkArAICBQZnYW1lSWQCB193aW5uZXIBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQdhZGRyZXNzCQCsAgIFB2FkZHJlc3MCEV9hdmFpbGFibGVSZXdhcmRzAQ9nZXRUaWNrZXRzQ291bnQBDWFkZHJlc3NTdHJpbmcJAQ10cnlHZXRJbnRlZ2VyAQkBEmdldFRpY2tldHNDb3VudEtleQEFDWFkZHJlc3NTdHJpbmcBDWNvbnN1bWVUaWNrZXQBCnBsYXllckFkZHIEEmN1cnJlbnRUaWNrZXRDb3VudAkBD2dldFRpY2tldHNDb3VudAEFCnBsYXllckFkZHIEFW5ld0N1cnJlbnRUaWNrZXRDb3VudAkAZQIFEmN1cnJlbnRUaWNrZXRDb3VudAABAwkAZgIAAAUSY3VycmVudFRpY2tldENvdW50CQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFCnBsYXllckFkZHIAAAkBDEludGVnZXJFbnRyeQIJARJnZXRUaWNrZXRzQ291bnRLZXkBBQpwbGF5ZXJBZGRyBRJjdXJyZW50VGlja2V0Q291bnQDAWkBCXNldFdpbm5lcgMGZ2FtZUlkDHBsYXllcnNDb3VudA13aW5uZXJBZGRyU3RyBBNhdmFpbGFibGVSZXdhcmRzS2V5CQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ13aW5uZXJBZGRyU3RyBBdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkBDXRyeUdldEludGVnZXIBBRNhdmFpbGFibGVSZXdhcmRzS2V5CQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ1nYW1lV2lubmVyS2V5AQUGZ2FtZUlkBQ13aW5uZXJBZGRyU3RyCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRNhdmFpbGFibGVSZXdhcmRzS2V5CQBkAgUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAGgCBQt0aWNrZXRQcmljZQUMcGxheWVyc0NvdW50BQNuaWwBaQEPd2l0aGRyYXdSZXdhcmRzAAQNY2FsbGVyQWRkclN0cgkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBBdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkBDXRyeUdldEludGVnZXIBCQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ1jYWxsZXJBZGRyU3RyAwkAZwIAAAUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAAIBAiBObyBhdmFpbGFibGUgcmV3YXJkcyB0byB3aXRoZHJhdwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNY2FsbGVyQWRkclN0cgAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMFBHVuaXQFA25pbAFpAQlidXlUaWNrZXQABANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAiFQbGVhc2UgYXR0YWNoIGV4YWN0bHkgb25lIHBheW1lbnQDCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkCQACAQInVGlja2V0cyBjYW4gb25seSBpYmUgcHVyY2hhc2VkIGluIFdhdmVzAwkBAiE9AggFA3BtdAZhbW91bnQFC3RpY2tldFByaWNlCQACAQkArAICCQCsAgICH1RoZSBwYXltZW50IG11c3QgYmUgb2YgZXhhY3RseSAJAKQDAQkAaQIFC3RpY2tldFByaWNlBQV3YXZlcwIGIHdhdmVzCQCUCgIFA25pbAABAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tleRfHZW0=", "height": 2123900, "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 ticketPrice = (1 * waves)
7+
8+func tryGetInteger (key) = match getInteger(this, key) {
9+ case b: Int =>
10+ b
11+ case _ =>
12+ 0
13+}
14+
15+
16+func getTicketsCountKey (addressString) = (addressString + "_ticketsCount")
17+
18+
19+func gameWinnerKey (gameId) = (gameId + "_winner")
20+
21+
22+func addressAvailableRewardsKey (address) = (address + "_availableRewards")
23+
24+
25+func getTicketsCount (addressString) = tryGetInteger(getTicketsCountKey(addressString))
26+
27+
28+func consumeTicket (playerAddr) = {
29+ let currentTicketCount = getTicketsCount(playerAddr)
30+ let newCurrentTicketCount = (currentTicketCount - 1)
31+ if ((0 > currentTicketCount))
32+ then IntegerEntry(getTicketsCountKey(playerAddr), 0)
33+ else IntegerEntry(getTicketsCountKey(playerAddr), currentTicketCount)
34+ }
35+
36+
37+@Callable(i)
38+func setWinner (gameId,playersCount,winnerAddrStr) = {
39+ let availableRewardsKey = addressAvailableRewardsKey(winnerAddrStr)
40+ let currentAvailableRewards = tryGetInteger(availableRewardsKey)
41+[StringEntry(gameWinnerKey(gameId), winnerAddrStr), IntegerEntry(availableRewardsKey, (currentAvailableRewards + (ticketPrice * playersCount)))]
42+ }
43+
44+
45+
46+@Callable(i)
47+func withdrawRewards () = {
48+ let callerAddrStr = toBase58String(i.caller.bytes)
49+ let currentAvailableRewards = tryGetInteger(addressAvailableRewardsKey(callerAddrStr))
50+ if ((0 >= currentAvailableRewards))
51+ then throw("No available rewards to withdraw")
52+ else [IntegerEntry(addressAvailableRewardsKey(callerAddrStr), 0), ScriptTransfer(i.caller, currentAvailableRewards, unit)]
53+ }
54+
55+
56+
57+@Callable(i)
58+func buyTicket () = {
59+ let pmt = if ((size(i.payments) == 1))
60+ then i.payments[0]
61+ else throw("Please attach exactly one payment")
62+ if (isDefined(pmt.assetId))
63+ then throw("Tickets can only ibe purchased in Waves")
64+ else if ((pmt.amount != ticketPrice))
65+ then throw((("The payment must be of exactly " + toString((ticketPrice / waves))) + " waves"))
66+ else $Tuple2(nil, 1)
67+ }
68+
69+
70+@Verifier(tx)
71+func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
72+

github/deemru/w8io/169f3d6 
21.35 ms