tx · BsCrNyVKeMHgGDJcaeAF4GMprBkgQ72cvqucJ1g9ftAC

3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb:  -0.00500000 Waves

2023.03.16 22:57 [2493028] smart account 3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BsCrNyVKeMHgGDJcaeAF4GMprBkgQ72cvqucJ1g9ftAC",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1678996672583,
    "version": 2,
    "chainId": 84,
    "sender": "3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb",
    "senderPublicKey": "2VQGRNRWyFAZvjDtkgZwdZcTwZvBJJ61n8zJfYYxm5eK",
    "proofs": [
        "3ZksZ9hJjo4kvK4yf5XFMtsFYN2wqK4yMCB8u3TbLxQoHcQDkohnWL9SYdcW7benkNEFh2ZaA6ePfvvM7GBr8VNu"
    ],
    "script": "base64:BgJCCAISBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIEgQKAggIEgUKAwgICBIDCgECEgUKAwgICBIECgIICBIGCgQIAQEBCgAOY29sbGVjdGlvbk5hbWUJARFAZXh0ck5hdGl2ZSgxMDU4KQECDmNvbGxlY3Rpb25OYW1lAAZzeW1ib2wJARFAZXh0ck5hdGl2ZSgxMDU4KQECBnN5bWJvbAALZGVzY3JpcHRpb24JARFAZXh0ck5hdGl2ZSgxMDU4KQECC2Rlc2NyaXB0aW9uAAt0b3RhbEFtb3VudAkBEUBleHRyTmF0aXZlKDEwNTUpAQILdG90YWxBbW91bnQACGRBcHBKc29uCQEHQWRkcmVzcwEJANkEAQIjM01yR2FaVlJoa25FR2ZISjE5dHRVUE5uRFJvRnFjSGhWTjcADHRva2VuUGF5bWVudAkBB0FkZHJlc3MBCQERQGV4dHJOYXRpdmUoMTA1NykBAgx0b2tlblBheW1lbnQBDG9ubHlJbnRlcm5hbAEGY2FsbGVyAwkAAAIFBmNhbGxlcgUEdGhpcwUEdW5pdAkAAgECEk9ubHkgaW50ZXJuYWwgY2FsbAENdHJhbnNmZXJPck5vdAICdG8HYXNzZXRJZAMJAAACBQJ0bwUEdGhpcwkBC1N0cmluZ0VudHJ5AgIO0LrQvtGB0YLRi9C70YwCDtC60L7RgdGC0YvQu9GMCQEOU2NyaXB0VHJhbnNmZXIDBQJ0bwABBQdhc3NldElkAQ5wYXJzZUlkdG9Bc3NldAEHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUHYXNzZXRJZAIcQ2FuJ3QgZmluZCBhc3NldCBieSBhc3NldCBpZAEPY2hlY2tBc3NldE93bmVyAgZjYWxsZXIHYXNzZXRJZAMJAAACCQDwBwIFBmNhbGxlcgkA2QQBBQdhc3NldElkAAEFBHVuaXQJAAIBAhBPbmx5IGFzc2V0IG93bmVyCgFpARBtYWtlSlNPTkludGVybmFsAgdhcnJLZXlzCWFyclZhbHVlcwkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQERYWRkVG9KU09OSW50ZXJuYWwDBGpzb24HYXJyS2V5cwlhcnJWYWx1ZXMJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEA3JlcwkA/AcEBQhkQXBwSnNvbgIJYWRkVG9KU09OCQDMCAIFBGpzb24JAMwIAgUHYXJyS2V5cwkAzAgCBQlhcnJWYWx1ZXMFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQCUCgIFA25pbAUDcmVzCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBFXJlYWRCeUpTT05LZXlJbnRlcm5hbAIEanNvbgNrZXkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEA3JlcwkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQRqc29uCQDMCAIFA2tleQUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEXZGVsZXRlQnlKU09OS2V5SW50ZXJuYWwCBGpzb24Da2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBANyZXMJAPwHBAUIZEFwcEpzb24CD2RlbGV0ZUJ5SlNPTktleQkAzAgCBQRqc29uCQDMCAIFA2tleQUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQETc3RvcmFnZUpzb25JbnRlcm5hbAIHanNvbktleQpqc29uU3RyaW5nCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFB2pzb25LZXkFCmpzb25TdHJpbmcFA25pbAFpAQdzZXRVc2VyAwdhc3NldElkBHVzZXIHZXhwaXJlcwQDcmVzCQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICBHVzZXIJAMwIAgIHZXhwaXJlcwUDbmlsCQDMCAIJAMwIAgUEdXNlcgkAzAgCBQdleHBpcmVzBQNuaWwFA25pbAUDbmlsAwkAAAIFA3JlcwUDcmVzCQCUCgIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICAgd1c2VyT2YtBQdhc3NldElkCgABQAUDcmVzAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEPc2V0VG9rZW5QYXltZW50AQdhc3NldElkCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtCaW5hcnlFbnRyeQICDHRva2VuUGF5bWVudAUHYXNzZXRJZAUDbmlsAWkBBGluaXQDDmNvbGxlY3Rpb25OYW1lBnN5bWJvbAtkZXNjcmlwdGlvbgkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCAg5jb2xsZWN0aW9uTmFtZQUOY29sbGVjdGlvbk5hbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgIGc3ltYm9sBQZzeW1ib2wJAMwIAgkBC1N0cmluZ0VudHJ5AgILZGVzY3JpcHRpb24FC2Rlc2NyaXB0aW9uCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAAABQNuaWwBaQEEbWludAICdG8IdG9rZW5VUkkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEB3Rva2VuSWQJAGQCBQt0b3RhbEFtb3VudAABBAdwcmVOYW1lCQCsAgIJAKwCAgUGc3ltYm9sAgEjCQCkAwEFB3Rva2VuSWQEBG5hbWUDCQBnAgAQCQCxAgEFB3ByZU5hbWUFB3ByZU5hbWUJAKQDAQUHdG9rZW5JZAQFYXNzZXQJAMMIBwUEbmFtZQkArAICCQCsAgICBnt1cmk6IgUIdG9rZW5VUkkCAiJ9AAEAAAcFBHVuaXQFBmhlaWdodAQHYXNzZXRJZAkAuAgBBQVhc3NldAQJdG9BZGRyZXNzCQEHQWRkcmVzcwEJANkEAQUCdG8ECHRyYW5zZmVyCQENdHJhbnNmZXJPck5vdAIFCXRvQWRkcmVzcwUHYXNzZXRJZAMJAAACBQh0cmFuc2ZlcgUIdHJhbnNmZXIJAMwIAgUFYXNzZXQJAMwIAgUIdHJhbnNmZXIJAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50BQd0b2tlbklkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBG5hbWUFCHRva2VuVVJJBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdExlbmQEB2Fzc2V0SWQPdGltZVVuaXRTZWNvbmRzDXRpbWVVbml0UHJpY2UNdGltZVVuaXRDb3VudAkBC3ZhbHVlT3JFbHNlAgkBD2NoZWNrQXNzZXRPd25lcgIIBQFpBmNhbGxlcgUHYXNzZXRJZAQFYXNzZXQJAQ5wYXJzZUlkdG9Bc3NldAEFB2Fzc2V0SWQECHRva2VuVXJpCAUFYXNzZXQLZGVzY3JpcHRpb24EBWxlbmRzCQERQGV4dHJOYXRpdmUoMTA1OCkBAgVMZW5kcwQEcmVzMQkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQVsZW5kcwkAzAgCAgVjb3VudAUDbmlsBQNuaWwEBmxlbmRJZAkAZAIJAQ1wYXJzZUludFZhbHVlAQoAAUAFBHJlczEDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAAEEBHJlczIJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgISc3VwcG9ydGVkSW50ZXJmYWNlCQDMCAICCGFzc2V0ZElkCQDMCAICCHRva2VuVXJpCQDMCAICBW93bmVyCQDMCAICD3RpbWVVbml0U2Vjb25kcwkAzAgCAg10aW1lVW5pdFByaWNlCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICB2RlcG9zaXQJAMwIAgIHY2xhaW1lZAkAzAgCAgVyZW50cwUDbmlsCQDMCAIJAMwIAgAACQDMCAIFB2Fzc2V0SWQJAMwIAgUIdG9rZW5VcmkJAMwIAggFAWkGY2FsbGVyCQDMCAIFD3RpbWVVbml0U2Vjb25kcwkAzAgCBQ10aW1lVW5pdFByaWNlCQDMCAIFDXRpbWVVbml0Q291bnQJAMwIAggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdENvdW50CQDMCAIAAAkAzAgCBwkAzAgCAg17ImNvdW50IjoiMCJ9BQNuaWwFA25pbAUDbmlsAwkAAAIFBHJlczIFBHJlczIJAMwIAgkBC1N0cmluZ0VudHJ5AgIFTGVuZHMKAAFABQRyZXMyAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAOLBJvU=",
    "height": 2493028,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: Hc5NxFAYykVAm27kKY7w7DS2j7HxHbS1vmksieSEwRUH
Next: eRhpXC1HR3iWSD4wiDgDYADB4ytQ2WHGmfswn29dGJz

Diff: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
-
let collectionName = getStringValue(this, "collectionName")
4
+
let collectionName = getStringValue("collectionName")
5
5
 
6
-
let symbol = getStringValue(this, "symbol")
6
+
let symbol = getStringValue("symbol")
7
7
 
8
-
let description = getStringValue(this, "description")
8
+
let description = getStringValue("description")
9
9
 
10
-
let totalAmount = getIntegerValue(this, "totalAmount")
10
+
let totalAmount = getIntegerValue("totalAmount")
11
11
 
12
12
 
let dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
13
13
 
14
-
let tokenPayment = Address(getBinaryValue(this, "tokenPayment"))
14
+
let tokenPayment = Address(getBinaryValue("tokenPayment"))
15
15
 
16
16
 
func onlyInternal (caller) = if ((caller == this))
17
17
 
    then unit
21
21
 
func transferOrNot (to,assetId) = if ((to == this))
22
22
 
    then StringEntry("костыль", "костыль")
23
23
 
    else ScriptTransfer(to, 1, assetId)
24
+
25
+
26
+
func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
27
+
28
+
29
+
func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
30
+
    then unit
31
+
    else throw("Only asset owner")
24
32
 
25
33
 
26
34
 
@Callable(i)
34
42
 
35
43
 
36
44
 
@Callable(i)
37
-
func addToJSONInternal (arrKeys,arrValues) = valueOrElse(onlyInternal(i.caller), {
38
-
    let res = invoke(dAppJson, "addToJSON", [arrKeys, arrValues], nil)
45
+
func addToJSONInternal (json,arrKeys,arrValues) = valueOrElse(onlyInternal(i.caller), {
46
+
    let res = invoke(dAppJson, "addToJSON", [json, arrKeys, arrValues], nil)
39
47
 
    if ((res == res))
40
48
 
        then $Tuple2(nil, res)
41
49
 
        else throw("Strict value is not equal to itself.")
44
52
 
45
53
 
46
54
 
@Callable(i)
47
-
func readByJSONKeyInternal (key) = valueOrElse(onlyInternal(i.caller), {
48
-
    let res = invoke(dAppJson, "readByJSONKey", [key], nil)
55
+
func readByJSONKeyInternal (json,key) = valueOrElse(onlyInternal(i.caller), {
56
+
    let res = invoke(dAppJson, "readByJSONKey", [json, key], nil)
49
57
 
    if ((res == res))
50
58
 
        then $Tuple2(nil, res)
51
59
 
        else throw("Strict value is not equal to itself.")
54
62
 
55
63
 
56
64
 
@Callable(i)
57
-
func deleteByJSONKeyInternal (key) = valueOrElse(onlyInternal(i.caller), {
58
-
    let res = invoke(dAppJson, "deleteByJSONKey", [key], nil)
65
+
func deleteByJSONKeyInternal (json,key) = valueOrElse(onlyInternal(i.caller), {
66
+
    let res = invoke(dAppJson, "deleteByJSONKey", [json, key], nil)
59
67
 
    if ((res == res))
60
68
 
        then $Tuple2(nil, res)
61
69
 
        else throw("Strict value is not equal to itself.")
69
77
 
70
78
 
71
79
 
@Callable(i)
72
-
func setUser (assetId,user,expires) = valueOrElse(onlyInternal(i.caller), {
80
+
func setUser (assetId,user,expires) = {
73
81
 
    let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
74
82
 
    if ((res == res))
75
83
 
        then $Tuple2([StringEntry(("userOf-" + assetId), {
79
87
 
                else throw(($getType(@) + " couldn't be cast to String"))
80
88
 
            })], res)
81
89
 
        else throw("Strict value is not equal to itself.")
82
-
    })
90
+
    }
83
91
 
84
92
 
85
93
 
110
118
 
    })
111
119
 
112
120
 
121
+
122
+
@Callable(i)
123
+
func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
124
+
    let asset = parseIdtoAsset(assetId)
125
+
    let tokenUri = asset.description
126
+
    let lends = getStringValue("Lends")
127
+
    let res1 = invoke(dAppJson, "readByJSONKey", [lends, "count"], nil)
128
+
    let lendId = (parseIntValue({
129
+
        let @ = res1
130
+
        if ($isInstanceOf(@, "String"))
131
+
            then @
132
+
            else throw(($getType(@) + " couldn't be cast to String"))
133
+
        }) + 1)
134
+
    let res2 = invoke(dAppJson, "makeJSON", [["supportedInterface", "assetdId", "tokenUri", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], [0, assetId, tokenUri, i.caller, timeUnitSeconds, timeUnitPrice, timeUnitCount, lastBlock.timestamp, (lastBlock.timestamp + (timeUnitSeconds * timeUnitCount)), 0, false, "{\"count\":\"0\"}"]], nil)
135
+
    if ((res2 == res2))
136
+
        then [StringEntry("Lends", {
137
+
            let @ = res2
138
+
            if ($isInstanceOf(@, "String"))
139
+
                then @
140
+
                else throw(($getType(@) + " couldn't be cast to String"))
141
+
            })]
142
+
        else throw("Strict value is not equal to itself.")
143
+
    })
144
+
145
+

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

github/deemru/w8io/873ac7e 
36.10 ms ◑