2022.11.09 07:02 [3374477] smart account 3PBmmxKhFcDhb8PrDdCdvw2iGMPnp7VuwPy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "55DQMx8Xr4f29hFRthvsedZhQEXVfiS7Aoj8xpaXMZA",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1667966582020,
    "version": 2,
    "chainId": 87,
    "sender": "3PBmmxKhFcDhb8PrDdCdvw2iGMPnp7VuwPy",
    "senderPublicKey": "61mmdp2FdTQGQT6Rc3y2uY4cC5LkkG4SUiXj7d4g52FT",
    "proofs": [
        "tVaG17e9kDnbjevxZ9gsipt3djVMcfr7pdsAWLCG49M58zgHQ7QFm6S1JxTUZ33AJbspdWR7dvaFPcNS7jTTesD"
    ],
    "script": "base64:AAIFAAAAAAAAABMIAhIDCgEIEgMKAQgSAwoBCBIAAAAACQAAAAAGQUlOVElECQACWQAAAAECAAAALEJ2dXpKTkI2cVVydkVtekd0MVBNQloxUUNuQk5uMkw3ZXpYSGhnUUtNeHI3AAAAAApXQVZFU0lEU1RSAgAAAAVXQVZFUwAAAAAHV0FWRVNJRAkAAlkAAAABBQAAAApXQVZFU0lEU1RSAAAAAAVNVUxUOAAAAAAABfXhAAAAAAAJUFJJQ0VTVEVQCQAAaQAAAAIFAAAABU1VTFQ4AAAAAAAAAABkAAAAAANTRVACAAAAAl9fAQAAABVrZXlCZW5lZmljaWFyeUFkZHJlc3MAAAAAAgAAABYlc19fYmVuZWZpY2lhcnlBZGRyZXNzAQAAAAhrZXlQcmljZQAAAAACAAAACSVzX19wcmljZQEAAAAHa2V5VGllcgAAAAACAAAACCVzX190aWVyAAAABAAAAAFpAQAAAAtjb25zdHJ1Y3RvcgAAAAEAAAAXYmVuZWZpY2lhcnlBZGRyZXNzU3RyNTgDCQEAAAACIT0AAAACBQAAAAR0aGlzCAUAAAABaQAAAAZjYWxsZXIJAAACAAAAAQIAAAAScGVybWlzc2lvbnMgZGVuaWVkBAAAABJiZW5lZmljaWFyeUFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAAF2JlbmVmaWNpYXJ5QWRkcmVzc1N0cjU4BAAAAAVwcmljZQUAAAAFTVVMVDgEAAAABHRpZXIJAABoAAAAAgUAAAAFTVVMVDgAAAAAAAAAAAoJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAAFWtleUJlbmVmaWNpYXJ5QWRkcmVzcwAAAAAJAAQlAAAAAQUAAAASYmVuZWZpY2lhcnlBZGRyZXNzCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACCQEAAAAHa2V5VGllcgAAAAAFAAAABHRpZXIJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAAhrZXlQcmljZQAAAAAFAAAABXByaWNlBQAAAANuaWwAAAABaQEAAAAHZGVwb3NpdAAAAAEAAAAEaGFzaAQAAAADcG10CQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAABAAAAApwbXRBc3NldElkCQEAAAALdmFsdWVPckVsc2UAAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB1dBVkVTSUQEAAAABmFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQDCQEAAAACIT0AAAACCQABkAAAAAEIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAABCQAAAgAAAAECAAAAIGV4YWN0IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkAwkBAAAAAiE9AAAAAgUAAAAKcG10QXNzZXRJZAUAAAAHV0FWRVNJRAkAAAIAAAABAgAAACFvbmx5IFdBVkVTIGNhbiBiZSB1c2VkIGluIHBheW1lbnQEAAAAA2tleQkAASwAAAACAgAAAAQlc19fCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgQAAAADdmFsCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAGJXMlc19fBQAAAARoYXNoBQAAAANTRVAJAAGkAAAAAQUAAAAGaGVpZ2h0BQAAAANTRVAJAAGkAAAAAQUAAAAGYW1vdW50CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAAA2tleQUAAAADdmFsBQAAAANuaWwAAAABaQEAAAAGcmVmdW5kAAAAAQAAAAZzZWNyZXQEAAAAA2tleQkAASwAAAACAgAAAAQlc19fCQAEJQAAAAEIBQAAAAFpAAAABmNhbGxlcgQAAAADdmFsCQEAAAARQGV4dHJOYXRpdmUoMTA1OCkAAAABBQAAAANrZXkEAAAABGhhc2gJAAGRAAAAAgkABLUAAAACBQAAAAN2YWwFAAAAA1NFUAAAAAAAAAAAAQQAAAABaAkAAaAAAAABCQABpwAAAAEJAAGRAAAAAgkABLUAAAACBQAAAAN2YWwFAAAAA1NFUAAAAAAAAAAAAgQAAAAGYW1vdW50CQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgkABLUAAAACBQAAAAN2YWwFAAAAA1NFUAAAAAAAAAAAAwMJAQAAAAIhPQAAAAIJAAJYAAAAAQkAAfUAAAABCQAB9gAAAAEJAAGbAAAAAQUAAAAGc2VjcmV0BQAAAARoYXNoCQAAAgAAAAECAAAAD3NlY3JldCBpcyB3cm9uZwMJAABmAAAAAgAAAAAAAAAAPAkAAGUAAAACBQAAAAZoZWlnaHQFAAAAAWgJAAACAAAAAQIAAAATdG9vIGVhcmx5IHRvIHJlZnVuZAkABEwAAAACCQEAAAALRGVsZXRlRW50cnkAAAABBQAAAANrZXkJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAZhbW91bnQFAAAAB1dBVkVTSUQFAAAAA25pbAAAAAFpAQAAAARtaW50AAAAAAQAAAADcG10CQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAABAAAAApwbXRBc3NldElkCQEAAAALdmFsdWVPckVsc2UAAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB1dBVkVTSUQEAAAABmFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQDCQEAAAACIT0AAAACCQABkAAAAAEIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAABCQAAAgAAAAECAAAAIGV4YWN0IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkAwkBAAAAAiE9AAAAAgUAAAAKcG10QXNzZXRJZAUAAAAHV0FWRVNJRAkAAAIAAAABAgAAACFvbmx5IFdBVkVTIGNhbiBiZSB1c2VkIGluIHBheW1lbnQEAAAABXByaWNlCQEAAAARQGV4dHJOYXRpdmUoMTA1NSkAAAABCQEAAAAIa2V5UHJpY2UAAAAABAAAAAR0aWVyCQEAAAARQGV4dHJOYXRpdmUoMTA1NSkAAAABCQEAAAAHa2V5VGllcgAAAAAEAAAAEmFkZHJlc3NCZW5lZmljaWFyeQkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkBAAAAEUBleHRyTmF0aXZlKDEwNTgpAAAAAQkBAAAAFWtleUJlbmVmaWNpYXJ5QWRkcmVzcwAAAAAEAAAACmFtb3VudEFpbnQJAABrAAAAAwUAAAAGYW1vdW50BQAAAAVNVUxUOAUAAAAFcHJpY2UEAAAAD2Ftb3VudEFpbnRGaW5hbAMJAABmAAAAAgUAAAAEdGllcgUAAAAKYW1vdW50QWludAUAAAAKYW1vdW50QWludAUAAAAEdGllcgQAAAAHdGllck5ldwMJAABmAAAAAgUAAAAEdGllcgUAAAAKYW1vdW50QWludAkAAGUAAAACBQAAAAR0aWVyBQAAAAphbW91bnRBaW50CQAAaAAAAAIFAAAABU1VTFQ4AAAAAAAAAAAKBAAAAAhwcmljZU5ldwMJAABmAAAAAgUAAAAEdGllcgUAAAAKYW1vdW50QWludAUAAAAFcHJpY2UJAABkAAAAAgUAAAAFcHJpY2UFAAAACVBSSUNFU1RFUAQAAAAMcmV0dXJuQW1vdW50AwkAAGcAAAACBQAAAAR0aWVyBQAAAAphbW91bnRBaW50AAAAAAAAAAAACQAAZQAAAAIFAAAABmFtb3VudAkAAGsAAAADBQAAAA9hbW91bnRBaW50RmluYWwFAAAABXByaWNlBQAAAAVNVUxUOAQAAAASYW1vdW50QmVuZWZpY2lyYXJ5AwkAAGYAAAACBQAAAAR0aWVyBQAAAAphbW91bnRBaW50BQAAAAZhbW91bnQJAABlAAAAAgUAAAAGYW1vdW50BQAAAAxyZXR1cm5BbW91bnQEAAAAAnN0CQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAD2Ftb3VudEFpbnRGaW5hbAUAAAAGQUlOVElEBAAAAApwcmVFeGVjdXRlCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAPYW1vdW50QWludEZpbmFsBQAAAAZBSU5USUQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAASYWRkcmVzc0JlbmVmaWNpYXJ5BQAAABJhbW91bnRCZW5lZmljaXJhcnkFAAAABHVuaXQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAAdrZXlUaWVyAAAAAAUAAAAHdGllck5ldwUAAAADbmlsBAAAAAdleGVjdXRlAwkAAGYAAAACBQAAAAR0aWVyBQAAAAphbW91bnRBaW50BQAAAApwcmVFeGVjdXRlCQAETgAAAAIFAAAACnByZUV4ZWN1dGUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAAAhrZXlQcmljZQAAAAAFAAAACHByaWNlTmV3CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAMcmV0dXJuQW1vdW50BQAAAAR1bml0BQAAAANuaWwFAAAAB2V4ZWN1dGUAAAAA2dPtWQ==",
    "height": 3374477,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: H8QscYt1jjHKf9X3LKVDYdzRvAFunEeetM39Vz3qWu1d
Next: DowAto9WZzUmj56e69S7MGXkFK7jRvGmbrDTntQupaib

Diff: 
Old
New
Differences
99
99
 
                    else (amount - returnAmount)
100
100
 
                let st = ScriptTransfer(i.caller, amountAintFinal, AINTID)
101
101
 
                let preExecute = [ScriptTransfer(i.caller, amountAintFinal, AINTID), ScriptTransfer(addressBeneficiary, amountBeneficirary, unit), IntegerEntry(keyTier(), tierNew)]
102
-
                let execute = if ((tier >= amountAint))
102
+
                let execute = if ((tier > amountAint))
103
103
 
                    then preExecute
104
104
 
                    else (preExecute ++ [IntegerEntry(keyPrice(), priceNew), ScriptTransfer(i.caller, returnAmount, unit)])
105
105
 
                execute
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let AINTID = fromBase58String("BvuzJNB6qUrvEmzGt1PMBZ1QCnBNn2L7ezXHhgQKMxr7")
5
5
 
6
6
 
let WAVESIDSTR = "WAVES"
7
7
 
8
8
 
let WAVESID = fromBase58String(WAVESIDSTR)
9
9
 
10
10
 
let MULT8 = 100000000
11
11
 
12
12
 
let PRICESTEP = (MULT8 / 100)
13
13
 
14
14
 
let SEP = "__"
15
15
 
16
16
 
func keyBeneficiaryAddress () = "%s__beneficiaryAddress"
17
17
 
18
18
 
19
19
 
func keyPrice () = "%s__price"
20
20
 
21
21
 
22
22
 
func keyTier () = "%s__tier"
23
23
 
24
24
 
25
25
 
@Callable(i)
26
26
 
func constructor (beneficiaryAddressStr58) = if ((this != i.caller))
27
27
 
    then throw("permissions denied")
28
28
 
    else {
29
29
 
        let beneficiaryAddress = addressFromStringValue(beneficiaryAddressStr58)
30
30
 
        let price = MULT8
31
31
 
        let tier = (MULT8 * 10)
32
32
 
[StringEntry(keyBeneficiaryAddress(), toString(beneficiaryAddress)), IntegerEntry(keyTier(), tier), IntegerEntry(keyPrice(), price)]
33
33
 
        }
34
34
 
35
35
 
36
36
 
37
37
 
@Callable(i)
38
38
 
func deposit (hash) = {
39
39
 
    let pmt = i.payments[0]
40
40
 
    let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
41
41
 
    let amount = pmt.amount
42
42
 
    if ((size(i.payments) != 1))
43
43
 
        then throw("exact 1 payment must be attached")
44
44
 
        else if ((pmtAssetId != WAVESID))
45
45
 
            then throw("only WAVES can be used in payment")
46
46
 
            else {
47
47
 
                let key = ("%s__" + toString(i.caller))
48
48
 
                let val = ((((("%s%s__" + hash) + SEP) + toString(height)) + SEP) + toString(amount))
49
49
 
[StringEntry(key, val)]
50
50
 
                }
51
51
 
    }
52
52
 
53
53
 
54
54
 
55
55
 
@Callable(i)
56
56
 
func refund (secret) = {
57
57
 
    let key = ("%s__" + toString(i.caller))
58
58
 
    let val = getStringValue(key)
59
59
 
    let hash = split(val, SEP)[1]
60
60
 
    let h = toInt(parseBigIntValue(split(val, SEP)[2]))
61
61
 
    let amount = parseIntValue(split(val, SEP)[3])
62
62
 
    if ((toBase58String(keccak256(blake2b256(toBytes(secret)))) != hash))
63
63
 
        then throw("secret is wrong")
64
64
 
        else if ((60 > (height - h)))
65
65
 
            then throw("too early to refund")
66
66
 
            else [DeleteEntry(key), ScriptTransfer(i.caller, amount, WAVESID)]
67
67
 
    }
68
68
 
69
69
 
70
70
 
71
71
 
@Callable(i)
72
72
 
func mint () = {
73
73
 
    let pmt = i.payments[0]
74
74
 
    let pmtAssetId = valueOrElse(pmt.assetId, WAVESID)
75
75
 
    let amount = pmt.amount
76
76
 
    if ((size(i.payments) != 1))
77
77
 
        then throw("exact 1 payment must be attached")
78
78
 
        else if ((pmtAssetId != WAVESID))
79
79
 
            then throw("only WAVES can be used in payment")
80
80
 
            else {
81
81
 
                let price = getIntegerValue(keyPrice())
82
82
 
                let tier = getIntegerValue(keyTier())
83
83
 
                let addressBeneficiary = addressFromStringValue(getStringValue(keyBeneficiaryAddress()))
84
84
 
                let amountAint = fraction(amount, MULT8, price)
85
85
 
                let amountAintFinal = if ((tier > amountAint))
86
86
 
                    then amountAint
87
87
 
                    else tier
88
88
 
                let tierNew = if ((tier > amountAint))
89
89
 
                    then (tier - amountAint)
90
90
 
                    else (MULT8 * 10)
91
91
 
                let priceNew = if ((tier > amountAint))
92
92
 
                    then price
93
93
 
                    else (price + PRICESTEP)
94
94
 
                let returnAmount = if ((tier >= amountAint))
95
95
 
                    then 0
96
96
 
                    else (amount - fraction(amountAintFinal, price, MULT8))
97
97
 
                let amountBeneficirary = if ((tier > amountAint))
98
98
 
                    then amount
99
99
 
                    else (amount - returnAmount)
100
100
 
                let st = ScriptTransfer(i.caller, amountAintFinal, AINTID)
101
101
 
                let preExecute = [ScriptTransfer(i.caller, amountAintFinal, AINTID), ScriptTransfer(addressBeneficiary, amountBeneficirary, unit), IntegerEntry(keyTier(), tierNew)]
102
-
                let execute = if ((tier >= amountAint))
102
+
                let execute = if ((tier > amountAint))
103
103
 
                    then preExecute
104
104
 
                    else (preExecute ++ [IntegerEntry(keyPrice(), priceNew), ScriptTransfer(i.caller, returnAmount, unit)])
105
105
 
                execute
106
106
 
                }
107
107
 
    }
108
108
 
109
109
 

github/deemru/w8io/786bc32 
47.02 ms ◑