tx · 5bQqQ852P1NQkftgDpNq4M64z7PCpmmDPHfYMfR7ZCUT

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.00500000 Waves

2023.03.21 17:49 [2499913] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5bQqQ852P1NQkftgDpNq4M64z7PCpmmDPHfYMfR7ZCUT",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1679410206986,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "47fC2bkjGrd6WqPz26a29byfWYqweJft1nA7Nfxum42c4wFYMV9TARLovbGzV4D5rVswtbQbtnUyL8b64cdTnXDq"
    ],
    "script": "base64:BgIpCAISBAoCCAgSBAoCCAESBgoECAgICBIDCgEIEgYKBAgBAQESBAoCAQEMAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAHYmFzZVVSSQkBEUBleHRyTmF0aXZlKDEwNTgpAQIHYmFzZVVSSQAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAJbGVuZENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAglsZW5kQ291bnQBDG9ubHlJbnRlcm5hbAEGY2FsbGVyAwkAAAIFBmNhbGxlcgUEdGhpcwUEdW5pdAkAAgECEk9ubHkgaW50ZXJuYWwgY2FsbAENdHJhbnNmZXJPck5vdAICdG8HYXNzZXRJZAMJAAACBQJ0bwUEdGhpcwkBC1N0cmluZ0VudHJ5AgIEc210aAIEc210aAkBDlNjcmlwdFRyYW5zZmVyAwUCdG8AAQUHYXNzZXRJZAEOcGFyc2VJZHRvQXNzZXQBB2Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFB2Fzc2V0SWQCHENhbid0IGZpbmQgYXNzZXQgYnkgYXNzZXQgaWQBD2NoZWNrQXNzZXRPd25lcgIGY2FsbGVyB2Fzc2V0SWQDCQAAAgkA8AcCBQZjYWxsZXIJANkEAQUHYXNzZXRJZAABBQR1bml0CQACAQIQT25seSBhc3NldCBvd25lcgEMZ2V0UmVudENvdW50AQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcGAWkBCXNldFN0cmluZwIEX2tleQZfdmFsdWUJAMwIAgkBC1N0cmluZ0VudHJ5AgUEX2tleQUGX3ZhbHVlBQNuaWwBaQEGc2V0SW50AgRfa2V5Bl92YWx1ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUEX2tleQUGX3ZhbHVlBQNuaWwBaQEEaW5pdAQPX2NvbGxlY3Rpb25OYW1lB19zeW1ib2wMX2Rlc2NyaXB0aW9uCF9iYXNlVVJJCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQICDmNvbGxlY3Rpb25OYW1lBQ9fY29sbGVjdGlvbk5hbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgIGc3ltYm9sBQdfc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQxfZGVzY3JpcHRpb24JAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50AAAJAMwIAgkBC1N0cmluZ0VudHJ5AgIHYmFzZVVSSQUIX2Jhc2VVUkkFA25pbAFpAQRtaW50AQJ0bwQHdG9rZW5JZAkAZAIFC3RvdGFsQW1vdW50AAEEDXRva2VuSWRTdHJpbmcJAKQDAQUHdG9rZW5JZAQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwUNdG9rZW5JZFN0cmluZwQEbmFtZQMJAGcCABAJALECAQUHcHJlTmFtZQUHcHJlTmFtZQUNdG9rZW5JZFN0cmluZwQIdG9rZW5VUkkJAKwCAgUHYmFzZVVSSQUNdG9rZW5JZFN0cmluZwQEanNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIdG9rZW5VUkkFA25pbAkAzAgCCQDMCAIFCHRva2VuVVJJBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwQFYXNzZXQJAMMIBwUEbmFtZQUEanNvbgABAAAHBQR1bml0BQZoZWlnaHQEB2Fzc2V0SWQJALgIAQUFYXNzZXQECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QCBQl0b0FkZHJlc3MFB2Fzc2V0SWQDCQAAAgUIdHJhbnNmZXIFCHRyYW5zZmVyCQDMCAIFBWFzc2V0CQDMCAIFCHRyYW5zZmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAUHdG9rZW5JZAkAzAgCCQELU3RyaW5nRW50cnkCBQRuYW1lBQh0b2tlblVSSQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRMZW5kBAdhc3NldElkD3RpbWVVbml0U2Vjb25kcw10aW1lVW5pdFByaWNlDXRpbWVVbml0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAQ9jaGVja0Fzc2V0T3duZXICCAUBaQZjYWxsZXIFB2Fzc2V0SWQEBWFzc2V0CQEOcGFyc2VJZHRvQXNzZXQBBQdhc3NldElkBAh0b2tlblVSSQoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAggFBWFzc2V0C2Rlc2NyaXB0aW9uCQDMCAICCHRva2VuVVJJBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIdG9rZW5VUkkFCHRva2VuVVJJBAhsZW5kSnNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgISc3VwcG9ydGVkSW50ZXJmYWNlCQDMCAICCGFzc2V0ZElkCQDMCAICCHRva2VuVVJJCQDMCAICBW93bmVyCQDMCAICD3RpbWVVbml0U2Vjb25kcwkAzAgCAg10aW1lVW5pdFByaWNlCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICB2RlcG9zaXQJAMwIAgIHY2xhaW1lZAUDbmlsCQDMCAIJAMwIAgIBMAkAzAgCBQdhc3NldElkCQDMCAIFCHRva2VuVVJJCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUPdGltZVVuaXRTZWNvbmRzCQDMCAIJAKQDAQUNdGltZVVuaXRQcmljZQkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRDb3VudAkAzAgCAgEwCQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCGxlbmRKc29uBQhsZW5kSnNvbgQMbGVuZElkU3RyaW5nCQCkAwEFCWxlbmRDb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgIJbGVuZENvdW50CQBkAgUJbGVuZENvdW50AAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcFCGxlbmRKc29uBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdFJlbnQCBmxlbmRJZA10aW1lVW5pdENvdW50BAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkBAhsZW5kSnNvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nBAZyZW50SWQJAQxnZXRSZW50Q291bnQBBQZsZW5kSWQEDHJlbnRJZFN0cmluZwkApAMBBQZyZW50SWQED3RpbWVVbml0U2Vjb25kcwoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAgUIbGVuZEpzb24JAMwIAgIPdGltZVVuaXRTZWNvbmRzBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMEEnRpbWVVbml0U2Vjb25kc0ludAkBDXBhcnNlSW50VmFsdWUBBQ90aW1lVW5pdFNlY29uZHMDCQAAAgUSdGltZVVuaXRTZWNvbmRzSW50BRJ0aW1lVW5pdFNlY29uZHNJbnQECHJlbnRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAghjdXN0b21lcgkAzAgCAg10aW1lVW5pdENvdW50CQDMCAICDnN0YXJ0VGltZXN0YW1wCQDMCAICDGVuZFRpbWVzdGFtcAkAzAgCAgZjbG9zZWQFA25pbAkAzAgCCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAICATAJAMwIAgUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUSdGltZVVuaXRTZWNvbmRzSW50BQ10aW1lVW5pdENvdW50CQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHJlbnRKc29uBQhyZW50SnNvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwkAZAIFBnJlbnRJZAABCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQCsAgICCmxlbmQtcmVudC0FDGxlbmRJZFN0cmluZwIBLQUMcmVudElkU3RyaW5nBQhyZW50SnNvbgUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuABgLPUE=",
    "height": 2499913,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EFwX1sBM6eKFBMNbFWHCbDxu6NSF8Ww7WeQSKX8ppeaX
Next: 7ikwBsbKT3LvtVg9jsZSrQGQkjHiAP4uMCb64TA12yzX

Diff: 
Old
New
Differences
122
122
 
            else throw(($getType(@) + " couldn't be cast to String"))
123
123
 
        }
124
124
 
    if ((timeUnitSeconds == timeUnitSeconds))
125
-
        then [StringEntry("debug", timeUnitSeconds)]
125
+
        then {
126
+
            let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
127
+
            if ((timeUnitSecondsInt == timeUnitSecondsInt))
128
+
                then {
129
+
                    let rentJson = {
130
+
                        let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), "0", timeUnitCount, toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
131
+
                        if ($isInstanceOf(@, "String"))
132
+
                            then @
133
+
                            else throw(($getType(@) + " couldn't be cast to String"))
134
+
                        }
135
+
                    if ((rentJson == rentJson))
136
+
                        then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
137
+
                        else throw("Strict value is not equal to itself.")
138
+
                    }
139
+
                else throw("Strict value is not equal to itself.")
140
+
            }
126
141
 
        else throw("Strict value is not equal to itself.")
127
142
 
    }
128
143
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let collectionName = getStringValue("collectionName")
5
5
 
6
6
 
let symbol = getStringValue("symbol")
7
7
 
8
8
 
let description = getStringValue("description")
9
9
 
10
10
 
let totalAmount = getIntegerValue("totalAmount")
11
11
 
12
12
 
let baseURI = getStringValue("baseURI")
13
13
 
14
14
 
let dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
15
15
 
16
16
 
let lendCount = getIntegerValue("lendCount")
17
17
 
18
18
 
func onlyInternal (caller) = if ((caller == this))
19
19
 
    then unit
20
20
 
    else throw("Only internal call")
21
21
 
22
22
 
23
23
 
func transferOrNot (to,assetId) = if ((to == this))
24
24
 
    then StringEntry("smth", "smth")
25
25
 
    else ScriptTransfer(to, 1, assetId)
26
26
 
27
27
 
28
28
 
func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
29
29
 
30
30
 
31
31
 
func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
32
32
 
    then unit
33
33
 
    else throw("Only asset owner")
34
34
 
35
35
 
36
36
 
func getRentCount (lendId) = {
37
37
 
    let lendIdString = toString(lendId)
38
38
 
    getIntegerValue(("lend-rentCount-" + lendIdString))
39
39
 
    }
40
40
 
41
41
 
42
42
 
@Callable(i)
43
43
 
func setString (_key,_value) = [StringEntry(_key, _value)]
44
44
 
45
45
 
46
46
 
47
47
 
@Callable(i)
48
48
 
func setInt (_key,_value) = [IntegerEntry(_key, _value)]
49
49
 
50
50
 
51
51
 
52
52
 
@Callable(i)
53
53
 
func init (_collectionName,_symbol,_description,_baseURI) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", _collectionName), StringEntry("symbol", _symbol), StringEntry("description", _description), IntegerEntry("totalAmount", 0), StringEntry("baseURI", _baseURI)])
54
54
 
55
55
 
56
56
 
57
57
 
@Callable(i)
58
58
 
func mint (to) = {
59
59
 
    let tokenId = (totalAmount + 1)
60
60
 
    let tokenIdString = toString(tokenId)
61
61
 
    let preName = ((symbol + "#") + tokenIdString)
62
62
 
    let name = if ((16 >= size(preName)))
63
63
 
        then preName
64
64
 
        else tokenIdString
65
65
 
    let tokenURI = (baseURI + tokenIdString)
66
66
 
    let json = {
67
67
 
        let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
68
68
 
        if ($isInstanceOf(@, "String"))
69
69
 
            then @
70
70
 
            else throw(($getType(@) + " couldn't be cast to String"))
71
71
 
        }
72
72
 
    let asset = Issue(name, json, 1, 0, false, unit, height)
73
73
 
    let assetId = calculateAssetId(asset)
74
74
 
    let toAddress = Address(fromBase58String(to))
75
75
 
    let transfer = transferOrNot(toAddress, assetId)
76
76
 
    if ((transfer == transfer))
77
77
 
        then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
78
78
 
        else throw("Strict value is not equal to itself.")
79
79
 
    }
80
80
 
81
81
 
82
82
 
83
83
 
@Callable(i)
84
84
 
func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
85
85
 
    let asset = parseIdtoAsset(assetId)
86
86
 
    let tokenURI = {
87
87
 
        let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
88
88
 
        if ($isInstanceOf(@, "String"))
89
89
 
            then @
90
90
 
            else throw(($getType(@) + " couldn't be cast to String"))
91
91
 
        }
92
92
 
    if ((tokenURI == tokenURI))
93
93
 
        then {
94
94
 
            let lendJson = {
95
95
 
                let @ = invoke(dAppJson, "makeJSON", [["supportedInterface", "assetdId", "tokenURI", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed"], ["0", assetId, tokenURI, toString(i.caller), toString(timeUnitSeconds), toString(timeUnitPrice), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSeconds * timeUnitCount))), "0", "0"]], nil)
96
96
 
                if ($isInstanceOf(@, "String"))
97
97
 
                    then @
98
98
 
                    else throw(($getType(@) + " couldn't be cast to String"))
99
99
 
                }
100
100
 
            if ((lendJson == lendJson))
101
101
 
                then {
102
102
 
                    let lendIdString = toString(lendCount)
103
103
 
[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson)]
104
104
 
                    }
105
105
 
                else throw("Strict value is not equal to itself.")
106
106
 
            }
107
107
 
        else throw("Strict value is not equal to itself.")
108
108
 
    })
109
109
 
110
110
 
111
111
 
112
112
 
@Callable(i)
113
113
 
func initRent (lendId,timeUnitCount) = {
114
114
 
    let lendIdString = toString(lendId)
115
115
 
    let lendJson = getStringValue(("lend-" + lendIdString))
116
116
 
    let rentId = getRentCount(lendId)
117
117
 
    let rentIdString = toString(rentId)
118
118
 
    let timeUnitSeconds = {
119
119
 
        let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
120
120
 
        if ($isInstanceOf(@, "String"))
121
121
 
            then @
122
122
 
            else throw(($getType(@) + " couldn't be cast to String"))
123
123
 
        }
124
124
 
    if ((timeUnitSeconds == timeUnitSeconds))
125
-
        then [StringEntry("debug", timeUnitSeconds)]
125
+
        then {
126
+
            let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
127
+
            if ((timeUnitSecondsInt == timeUnitSecondsInt))
128
+
                then {
129
+
                    let rentJson = {
130
+
                        let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), "0", timeUnitCount, toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
131
+
                        if ($isInstanceOf(@, "String"))
132
+
                            then @
133
+
                            else throw(($getType(@) + " couldn't be cast to String"))
134
+
                        }
135
+
                    if ((rentJson == rentJson))
136
+
                        then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
137
+
                        else throw("Strict value is not equal to itself.")
138
+
                    }
139
+
                else throw("Strict value is not equal to itself.")
140
+
            }
126
141
 
        else throw("Strict value is not equal to itself.")
127
142
 
    }
128
143
 
129
144
 

github/deemru/w8io/026f985 
43.49 ms ◑