tx · BDrp6kfmtDErqeTgAwUZMtJFEuxuThcewtCmA1qkfTaR

3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk:  -0.00300000 Waves

2022.07.12 00:32 [2135621] smart account 3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BDrp6kfmtDErqeTgAwUZMtJFEuxuThcewtCmA1qkfTaR",
    "fee": 300000,
    "feeAssetId": null,
    "timestamp": 1657575190552,
    "version": 2,
    "chainId": 84,
    "sender": "3N3dmyiBdj7pmjnQrzTTvmfzKSqndSzCMmk",
    "senderPublicKey": "AR4BeE6hYADMvKxgRQs4ADN3krEqb2j8WE3WfJxzL3zE",
    "proofs": [
        "5QotEC8AHSY1ReNbKLZ9y5ZFjor8actvSoeaYPvBEPVd9vq1NG2RMtkwf1dRnZQkDmrbM8ELqVB5sLqunJekSWx2"
    ],
    "script": "base64:BgISCAISAwoBCBIFCgMICAgSABIADAAFd2F2ZXMAgMLXLwAOdGlja2V0UHJpY2VJbnQAwIQ9AAt0aWNrZXRQcmljZQUOdGlja2V0UHJpY2VJbnQABmludkZlZQDQhgMAEndpdGhkcmF3RmVlUGVyY2VudAAFABZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5AhNmZWVDb2xsZWN0b3JBZGRyZXNzAQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAARJnZXRUaWNrZXRzQ291bnRLZXkBDWFkZHJlc3NTdHJpbmcJAKwCAgUNYWRkcmVzc1N0cmluZwINX3RpY2tldHNDb3VudAENZ2FtZVdpbm5lcktleQEGZ2FtZUlkCQCsAgIFBmdhbWVJZAIHX3dpbm5lcgEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBB2FkZHJlc3MJAKwCAgUHYWRkcmVzcwIRX2F2YWlsYWJsZVJld2FyZHMBD2dldFRpY2tldHNDb3VudAENYWRkcmVzc1N0cmluZwkBDXRyeUdldEludGVnZXIBCQESZ2V0VGlja2V0c0NvdW50S2V5AQUNYWRkcmVzc1N0cmluZwENY29uc3VtZVRpY2tldAEKcGxheWVyQWRkcgQSY3VycmVudFRpY2tldENvdW50CQEPZ2V0VGlja2V0c0NvdW50AQUKcGxheWVyQWRkcgQVbmV3Q3VycmVudFRpY2tldENvdW50CQBlAgUSY3VycmVudFRpY2tldENvdW50AAEDCQBmAgAABRVuZXdDdXJyZW50VGlja2V0Q291bnQAAAUVbmV3Q3VycmVudFRpY2tldENvdW50BAFpARZzZXRGZWVDb2xsZWN0b3JBZGRyZXNzAQ1jb2xsZWN0b3JBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQkAzAgCCQELU3RyaW5nRW50cnkCBRZmZWVDb2xsZWN0b3JBZGRyZXNzS2V5BQ1jb2xsZWN0b3JBZGRyBQNuaWwBaQEQc2V0V2lubmVySGVhZHNVcAMGZ2FtZUlkDXdpbm5lckFkZHJTdHIPb3RoZXJQbGF5ZXJBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIKQWRtaW4gT25seQQTYXZhaWxhYmxlUmV3YXJkc0tleQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNd2lubmVyQWRkclN0cgQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQUTYXZhaWxhYmxlUmV3YXJkc0tleQQUbmV3VGlja2V0Q291bnRXaW5uZXIJAQ1jb25zdW1lVGlja2V0AQUNd2lubmVyQWRkclN0cgQZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgkBDWNvbnN1bWVUaWNrZXQBBQ9vdGhlclBsYXllckFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDWdhbWVXaW5uZXJLZXkBBQZnYW1lSWQFDXdpbm5lckFkZHJTdHIJAMwIAgkBDEludGVnZXJFbnRyeQIFE2F2YWlsYWJsZVJld2FyZHNLZXkJAGQCBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAaAIFC3RpY2tldFByaWNlAAIJAMwIAgkBDEludGVnZXJFbnRyeQIJARJnZXRUaWNrZXRzQ291bnRLZXkBBQ13aW5uZXJBZGRyU3RyBRRuZXdUaWNrZXRDb3VudFdpbm5lcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFD290aGVyUGxheWVyQWRkcgUZbmV3VGlja2V0Q291bnRPdGhlclBsYXllcgUDbmlsAWkBD3dpdGhkcmF3UmV3YXJkcwAEDWNhbGxlckFkZHJTdHIJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQQZmVlQ29sbGVjdG9yQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBEUBleHRyTmF0aXZlKDEwNTgpAQUWZmVlQ29sbGVjdG9yQWRkcmVzc0tleQQXY3VycmVudEF2YWlsYWJsZVJld2FyZHMJAQ10cnlHZXRJbnRlZ2VyAQkBGmFkZHJlc3NBdmFpbGFibGVSZXdhcmRzS2V5AQUNY2FsbGVyQWRkclN0cgQLd2l0aGRyYXdGZWUJAGsDBRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwUSd2l0aGRyYXdGZWVQZXJjZW50AGQEFmFjdHVhbEF2YWlsYWJsZVJld2FyZHMJAGUCCQBlAgUXY3VycmVudEF2YWlsYWJsZVJld2FyZHMFBmludkZlZQULd2l0aGRyYXdGZWUDCQBnAgAABRdjdXJyZW50QXZhaWxhYmxlUmV3YXJkcwkAAgECIE5vIGF2YWlsYWJsZSByZXdhcmRzIHRvIHdpdGhkcmF3CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEaYWRkcmVzc0F2YWlsYWJsZVJld2FyZHNLZXkBBQ1jYWxsZXJBZGRyU3RyAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRZhY3R1YWxBdmFpbGFibGVSZXdhcmRzBQR1bml0CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFEGZlZUNvbGxlY3RvckFkZHIFC3dpdGhkcmF3RmVlBQR1bml0BQNuaWwBaQEKYnV5VGlja2V0cwAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECIVBsZWFzZSBhdHRhY2ggZXhhY3RseSBvbmUgcGF5bWVudAMJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQJAAIBAidUaWNrZXRzIGNhbiBvbmx5IGliZSBwdXJjaGFzZWQgaW4gV2F2ZXMDCQECIT0CCAUDcG10BmFtb3VudAULdGlja2V0UHJpY2UJAAIBCQCsAgIJAKwCAgIfVGhlIHBheW1lbnQgbXVzdCBiZSBvZiBleGFjdGx5IAkApAMBBQ50aWNrZXRQcmljZUludAIGIHdhdmVzBA1jYWxsZXJBZGRyU3RyCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEE2N1cnJlbnRUaWNrZXRzQ291bnQJAQ10cnlHZXRJbnRlZ2VyAQkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAJQKAgkAzAgCCQEMSW50ZWdlckVudHJ5AgkBEmdldFRpY2tldHNDb3VudEtleQEFDWNhbGxlckFkZHJTdHIJAGQCBRNjdXJyZW50VGlja2V0c0NvdW50AAEFA25pbAABAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tled30S/g=",
    "height": 2135621,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DxnMfjvnroe6WCyLmeEwXi3LxxsJdTAgcoUW9vay7pWu
Next: 96q9tLcqzXgeP58DkXszr1ejzF7jhHkWZeXNHS8FJon2

Diff: 
Old
New
Differences
10
10
 
let invFee = 50000
11
11
 
12
12
 
let withdrawFeePercent = 5
13
+
14
+
let feeCollectorAddressKey = "feeCollectorAddress"
13
15
 
14
16
 
func tryGetInteger (key) = match getInteger(this, key) {
15
17
 
    case b: Int => 
41
43
 
42
44
 
43
45
 
@Callable(i)
46
+
func setFeeCollectorAddress (collectorAddr) = if ((i.caller != this))
47
+
    then throw("Admin Only")
48
+
    else [StringEntry(feeCollectorAddressKey, collectorAddr)]
49
+
50
+
51
+
52
+
@Callable(i)
44
53
 
func setWinnerHeadsUp (gameId,winnerAddrStr,otherPlayerAddr) = if ((i.caller != this))
45
54
 
    then throw("Admin Only")
46
55
 
    else {
56
65
 
@Callable(i)
57
66
 
func withdrawRewards () = {
58
67
 
    let callerAddrStr = toBase58String(i.caller.bytes)
68
+
    let feeCollectorAddr = addressFromStringValue(getStringValue(feeCollectorAddressKey))
59
69
 
    let currentAvailableRewards = tryGetInteger(addressAvailableRewardsKey(callerAddrStr))
60
-
    let actualAvailableRewards = ((currentAvailableRewards - invFee) - fraction(currentAvailableRewards, withdrawFeePercent, 100))
70
+
    let withdrawFee = fraction(currentAvailableRewards, withdrawFeePercent, 100)
71
+
    let actualAvailableRewards = ((currentAvailableRewards - invFee) - withdrawFee)
61
72
 
    if ((0 >= currentAvailableRewards))
62
73
 
        then throw("No available rewards to withdraw")
63
-
        else [IntegerEntry(addressAvailableRewardsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableRewards, unit)]
74
+
        else [IntegerEntry(addressAvailableRewardsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableRewards, unit), ScriptTransfer(feeCollectorAddr, withdrawFee, unit)]
64
75
 
    }
65
76
 
66
77
 

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 = 50000
11
11
 
12
12
 
let withdrawFeePercent = 5
13
+
14
+
let feeCollectorAddressKey = "feeCollectorAddress"
13
15
 
14
16
 
func tryGetInteger (key) = match getInteger(this, key) {
15
17
 
    case b: Int => 
16
18
 
        b
17
19
 
    case _ => 
18
20
 
        0
19
21
 
}
20
22
 
21
23
 
22
24
 
func getTicketsCountKey (addressString) = (addressString + "_ticketsCount")
23
25
 
24
26
 
25
27
 
func gameWinnerKey (gameId) = (gameId + "_winner")
26
28
 
27
29
 
28
30
 
func addressAvailableRewardsKey (address) = (address + "_availableRewards")
29
31
 
30
32
 
31
33
 
func getTicketsCount (addressString) = tryGetInteger(getTicketsCountKey(addressString))
32
34
 
33
35
 
34
36
 
func consumeTicket (playerAddr) = {
35
37
 
    let currentTicketCount = getTicketsCount(playerAddr)
36
38
 
    let newCurrentTicketCount = (currentTicketCount - 1)
37
39
 
    if ((0 > newCurrentTicketCount))
38
40
 
        then 0
39
41
 
        else newCurrentTicketCount
40
42
 
    }
41
43
 
42
44
 
43
45
 
@Callable(i)
46
+
func setFeeCollectorAddress (collectorAddr) = if ((i.caller != this))
47
+
    then throw("Admin Only")
48
+
    else [StringEntry(feeCollectorAddressKey, collectorAddr)]
49
+
50
+
51
+
52
+
@Callable(i)
44
53
 
func setWinnerHeadsUp (gameId,winnerAddrStr,otherPlayerAddr) = if ((i.caller != this))
45
54
 
    then throw("Admin Only")
46
55
 
    else {
47
56
 
        let availableRewardsKey = addressAvailableRewardsKey(winnerAddrStr)
48
57
 
        let currentAvailableRewards = tryGetInteger(availableRewardsKey)
49
58
 
        let newTicketCountWinner = consumeTicket(winnerAddrStr)
50
59
 
        let newTicketCountOtherPlayer = consumeTicket(otherPlayerAddr)
51
60
 
[StringEntry(gameWinnerKey(gameId), winnerAddrStr), IntegerEntry(availableRewardsKey, (currentAvailableRewards + (ticketPrice * 2))), IntegerEntry(getTicketsCountKey(winnerAddrStr), newTicketCountWinner), IntegerEntry(getTicketsCountKey(otherPlayerAddr), newTicketCountOtherPlayer)]
52
61
 
        }
53
62
 
54
63
 
55
64
 
56
65
 
@Callable(i)
57
66
 
func withdrawRewards () = {
58
67
 
    let callerAddrStr = toBase58String(i.caller.bytes)
68
+
    let feeCollectorAddr = addressFromStringValue(getStringValue(feeCollectorAddressKey))
59
69
 
    let currentAvailableRewards = tryGetInteger(addressAvailableRewardsKey(callerAddrStr))
60
-
    let actualAvailableRewards = ((currentAvailableRewards - invFee) - fraction(currentAvailableRewards, withdrawFeePercent, 100))
70
+
    let withdrawFee = fraction(currentAvailableRewards, withdrawFeePercent, 100)
71
+
    let actualAvailableRewards = ((currentAvailableRewards - invFee) - withdrawFee)
61
72
 
    if ((0 >= currentAvailableRewards))
62
73
 
        then throw("No available rewards to withdraw")
63
-
        else [IntegerEntry(addressAvailableRewardsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableRewards, unit)]
74
+
        else [IntegerEntry(addressAvailableRewardsKey(callerAddrStr), 0), ScriptTransfer(i.caller, actualAvailableRewards, unit), ScriptTransfer(feeCollectorAddr, withdrawFee, unit)]
64
75
 
    }
65
76
 
66
77
 
67
78
 
68
79
 
@Callable(i)
69
80
 
func buyTickets () = {
70
81
 
    let pmt = if ((size(i.payments) == 1))
71
82
 
        then i.payments[0]
72
83
 
        else throw("Please attach exactly one payment")
73
84
 
    if (isDefined(pmt.assetId))
74
85
 
        then throw("Tickets can only ibe purchased in Waves")
75
86
 
        else if ((pmt.amount != ticketPrice))
76
87
 
            then throw((("The payment must be of exactly " + toString(ticketPriceInt)) + " waves"))
77
88
 
            else {
78
89
 
                let callerAddrStr = toBase58String(i.caller.bytes)
79
90
 
                let currentTicketsCount = tryGetInteger(getTicketsCountKey(callerAddrStr))
80
91
 
                $Tuple2([IntegerEntry(getTicketsCountKey(callerAddrStr), (currentTicketsCount + 1))], 1)
81
92
 
                }
82
93
 
    }
83
94
 
84
95
 
85
96
 
@Verifier(tx)
86
97
 
func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
87
98
 

github/deemru/w8io/6500d08 
50.57 ms ◑