w8 · tx · 9zK···M2c

tx · 9zK53V8p3B82trZKwWwonxBbLph4qpARzEMhAat1gM2c

3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb:  -0.00500000 Waves

2023.03.16 23:26 [2493060] smart account 3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9zK53V8p3B82trZKwWwonxBbLph4qpARzEMhAat1gM2c",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1678998404948,
    "version": 2,
    "chainId": 84,
    "sender": "3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb",
    "senderPublicKey": "2VQGRNRWyFAZvjDtkgZwdZcTwZvBJJ61n8zJfYYxm5eK",
    "proofs": [
        "4WmEDzjotdfCmXp491hJbLXYHrekVMAM9GkLpoLnZZtog889Yu15QK73JLuZNYi1bbVKkvQ9ssEQTo9YvsYESe47"
    ],
    "script": "base64:BgJHCAISBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIEgQKAggIEgUKAwgICBIDCgECEgMKAQgSBQoDCAgIEgQKAggIEgYKBAgBAQEKAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQEHQWRkcmVzcwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAg7QutC+0YHRgtGL0LvRjAIO0LrQvtGB0YLRi9C70YwJAQ5TY3JpcHRUcmFuc2ZlcgMFAnRvAAEFB2Fzc2V0SWQBDnBhcnNlSWR0b0Fzc2V0AQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQdhc3NldElkAhxDYW4ndCBmaW5kIGFzc2V0IGJ5IGFzc2V0IGlkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXILAWkBEG1ha2VKU09OSW50ZXJuYWwCB2FycktleXMJYXJyVmFsdWVzCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIFB2FycktleXMJAMwIAgUJYXJyVmFsdWVzBQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFhZGRUb0pTT05JbnRlcm5hbAMEanNvbgdhcnJLZXlzCWFyclZhbHVlcwkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAglhZGRUb0pTT04JAMwIAgUEanNvbgkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEVcmVhZEJ5SlNPTktleUludGVybmFsAgRqc29uA2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARdkZWxldGVCeUpTT05LZXlJbnRlcm5hbAIEanNvbgNrZXkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEA3JlcwkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARNzdG9yYWdlSnNvbkludGVybmFsAgdqc29uS2V5Cmpzb25TdHJpbmcJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgUHanNvbktleQUKanNvblN0cmluZwUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC0JpbmFyeUVudHJ5AgIMdG9rZW5QYXltZW50BQdhc3NldElkBQNuaWwBaQEQZGVsZXRlVmFsdWVCeUtleQEDa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFA2tleQUDbmlsAWkBBGluaXQDDmNvbGxlY3Rpb25OYW1lBnN5bWJvbAtkZXNjcmlwdGlvbgkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCAg5jb2xsZWN0aW9uTmFtZQUOY29sbGVjdGlvbk5hbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgIGc3ltYm9sBQZzeW1ib2wJAMwIAgkBC1N0cmluZ0VudHJ5AgILZGVzY3JpcHRpb24FC2Rlc2NyaXB0aW9uCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAAABQNuaWwBaQEEbWludAICdG8IdG9rZW5VUkkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEB3Rva2VuSWQJAGQCBQt0b3RhbEFtb3VudAABBAdwcmVOYW1lCQCsAgIJAKwCAgUGc3ltYm9sAgEjCQCkAwEFB3Rva2VuSWQEBG5hbWUDCQBnAgAQCQCxAgEFB3ByZU5hbWUFB3ByZU5hbWUJAKQDAQUHdG9rZW5JZAQFYXNzZXQJAMMIBwUEbmFtZQkArAICCQCsAgICBnt1cmk6IgUIdG9rZW5VUkkCAiJ9AAEAAAcFBHVuaXQFBmhlaWdodAQHYXNzZXRJZAkAuAgBBQVhc3NldAQJdG9BZGRyZXNzCQEHQWRkcmVzcwEJANkEAQUCdG8ECHRyYW5zZmVyCQENdHJhbnNmZXJPck5vdAIFCXRvQWRkcmVzcwUHYXNzZXRJZAMJAAACBQh0cmFuc2ZlcgUIdHJhbnNmZXIJAMwIAgUFYXNzZXQJAMwIAgUIdHJhbnNmZXIJAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50BQd0b2tlbklkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBG5hbWUFCHRva2VuVVJJBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdExlbmQEB2Fzc2V0SWQPdGltZVVuaXRTZWNvbmRzDXRpbWVVbml0UHJpY2UNdGltZVVuaXRDb3VudAkBC3ZhbHVlT3JFbHNlAgkBD2NoZWNrQXNzZXRPd25lcgIIBQFpBmNhbGxlcgUHYXNzZXRJZAQFYXNzZXQJAQ5wYXJzZUlkdG9Bc3NldAEFB2Fzc2V0SWQECHRva2VuVXJpCAUFYXNzZXQLZGVzY3JpcHRpb24EBWxlbmRzCQERQGV4dHJOYXRpdmUoMTA1OCkBAgVMZW5kcwQEcmVhZAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQVsZW5kcwkAzAgCAgVjb3VudAUDbmlsBQNuaWwEBmxlbmRJZAoAAUAFBHJlYWQDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBAhuZXdDb3VudAkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBBQZsZW5kSWQAAQQEbWFrZQkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAhJzdXBwb3J0ZWRJbnRlcmZhY2UJAMwIAgIIYXNzZXRkSWQJAMwIAgIIdG9rZW5VcmkJAMwIAgIFb3duZXIJAMwIAgIPdGltZVVuaXRTZWNvbmRzCQDMCAICDXRpbWVVbml0UHJpY2UJAMwIAgINdGltZVVuaXRDb3VudAkAzAgCAg5zdGFydFRpbWVzdGFtcAkAzAgCAgxlbmRUaW1lc3RhbXAJAMwIAgIHZGVwb3NpdAkAzAgCAgdjbGFpbWVkCQDMCAICBXJlbnRzBQNuaWwJAMwIAgkAzAgCAgEwCQDMCAIFB2Fzc2V0SWQJAMwIAgUIdG9rZW5VcmkJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ90aW1lVW5pdFNlY29uZHMJAMwIAgkApAMBBQ10aW1lVW5pdFByaWNlCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdENvdW50CQDMCAICATAJAMwIAgIBMAkAzAgCAg17ImNvdW50IjoiMCJ9BQNuaWwFA25pbAUDbmlsAwkAAAIFBG1ha2UFBG1ha2UEBmluc2VydAkA/AcEBQhkQXBwSnNvbgIJYWRkVG9KU09OCQDMCAIFBWxlbmRzCQDMCAIJAMwIAgUGbGVuZElkCQDMCAICBWNvdW50BQNuaWwJAMwIAgkAzAgCCgABQAUEbWFrZQMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJAMwIAgUIbmV3Q291bnQFA25pbAUDbmlsBQNuaWwDCQAAAgUGaW5zZXJ0BQZpbnNlcnQJAMwIAgkBC1N0cmluZ0VudHJ5AgIFTGVuZHMKAAFABQZpbnNlcnQDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AbN8IBA==",
    "height": 2493060,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AzG15Z8MkcRXB4y1aLntZyXmMW1hku4FQgGrknePZZ9o
Next: CnbQNz64Ar6p7e7kJYDNuLQayds5h6ev1Rkvga62PNAU

Diff: 
Old New Differences
97 97  
98 98  
99 99  @Callable(i)
100 + func deleteValueByKey (key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(key)])
101 + 
102 + 
103 + 
104 + @Callable(i)
100 105  func init (collectionName,symbol,description) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", collectionName), StringEntry("symbol", symbol), StringEntry("description", description), IntegerEntry("totalAmount", 0)])
101 106  
102 107  
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 dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
13 13  
14 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 24  
25 25  
26 26  func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
27 27  
28 28  
29 29  func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
30 30      then unit
31 31      else throw("Only asset owner")
32 32  
33 33  
34 34  @Callable(i)
35 35  func makeJSONInternal (arrKeys,arrValues) = valueOrElse(onlyInternal(i.caller), {
36 36      let res = invoke(dAppJson, "makeJSON", [arrKeys, arrValues], nil)
37 37      if ((res == res))
38 38          then $Tuple2(nil, res)
39 39          else throw("Strict value is not equal to itself.")
40 40      })
41 41  
42 42  
43 43  
44 44  @Callable(i)
45 45  func addToJSONInternal (json,arrKeys,arrValues) = valueOrElse(onlyInternal(i.caller), {
46 46      let res = invoke(dAppJson, "addToJSON", [json, arrKeys, arrValues], nil)
47 47      if ((res == res))
48 48          then $Tuple2(nil, res)
49 49          else throw("Strict value is not equal to itself.")
50 50      })
51 51  
52 52  
53 53  
54 54  @Callable(i)
55 55  func readByJSONKeyInternal (json,key) = valueOrElse(onlyInternal(i.caller), {
56 56      let res = invoke(dAppJson, "readByJSONKey", [json, key], nil)
57 57      if ((res == res))
58 58          then $Tuple2(nil, res)
59 59          else throw("Strict value is not equal to itself.")
60 60      })
61 61  
62 62  
63 63  
64 64  @Callable(i)
65 65  func deleteByJSONKeyInternal (json,key) = valueOrElse(onlyInternal(i.caller), {
66 66      let res = invoke(dAppJson, "deleteByJSONKey", [json, key], nil)
67 67      if ((res == res))
68 68          then $Tuple2(nil, res)
69 69          else throw("Strict value is not equal to itself.")
70 70      })
71 71  
72 72  
73 73  
74 74  @Callable(i)
75 75  func storageJsonInternal (jsonKey,jsonString) = valueOrElse(onlyInternal(i.caller), [StringEntry(jsonKey, jsonString)])
76 76  
77 77  
78 78  
79 79  @Callable(i)
80 80  func setUser (assetId,user,expires) = {
81 81      let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
82 82      if ((res == res))
83 83          then $Tuple2([StringEntry(("userOf-" + assetId), {
84 84              let @ = res
85 85              if ($isInstanceOf(@, "String"))
86 86                  then @
87 87                  else throw(($getType(@) + " couldn't be cast to String"))
88 88              })], res)
89 89          else throw("Strict value is not equal to itself.")
90 90      }
91 91  
92 92  
93 93  
94 94  @Callable(i)
95 95  func setTokenPayment (assetId) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetId)])
96 96  
97 97  
98 98  
99 99  @Callable(i)
100 + func deleteValueByKey (key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(key)])
101 + 
102 + 
103 + 
104 + @Callable(i)
100 105  func init (collectionName,symbol,description) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", collectionName), StringEntry("symbol", symbol), StringEntry("description", description), IntegerEntry("totalAmount", 0)])
101 106  
102 107  
103 108  
104 109  @Callable(i)
105 110  func mint (to,tokenURI) = valueOrElse(onlyInternal(i.caller), {
106 111      let tokenId = (totalAmount + 1)
107 112      let preName = ((symbol + "#") + toString(tokenId))
108 113      let name = if ((16 >= size(preName)))
109 114          then preName
110 115          else toString(tokenId)
111 116      let asset = Issue(name, (("{uri:\"" + tokenURI) + "\"}"), 1, 0, false, unit, height)
112 117      let assetId = calculateAssetId(asset)
113 118      let toAddress = Address(fromBase58String(to))
114 119      let transfer = transferOrNot(toAddress, assetId)
115 120      if ((transfer == transfer))
116 121          then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
117 122          else throw("Strict value is not equal to itself.")
118 123      })
119 124  
120 125  
121 126  
122 127  @Callable(i)
123 128  func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
124 129      let asset = parseIdtoAsset(assetId)
125 130      let tokenUri = asset.description
126 131      let lends = getStringValue("Lends")
127 132      let read = invoke(dAppJson, "readByJSONKey", [lends, "count"], nil)
128 133      let lendId = {
129 134          let @ = read
130 135          if ($isInstanceOf(@, "String"))
131 136              then @
132 137              else throw(($getType(@) + " couldn't be cast to String"))
133 138          }
134 139      let newCount = toString((parseIntValue(lendId) + 1))
135 140      let make = invoke(dAppJson, "makeJSON", [["supportedInterface", "assetdId", "tokenUri", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], ["0", assetId, tokenUri, toString(i.caller), toString(timeUnitSeconds), toString(timeUnitPrice), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSeconds * timeUnitCount))), "0", "0", "{\"count\":\"0\"}"]], nil)
136 141      if ((make == make))
137 142          then {
138 143              let insert = invoke(dAppJson, "addToJSON", [lends, [lendId, "count"], [{
139 144                  let @ = make
140 145                  if ($isInstanceOf(@, "String"))
141 146                      then @
142 147                      else throw(($getType(@) + " couldn't be cast to String"))
143 148                  }, newCount]], nil)
144 149              if ((insert == insert))
145 150                  then [StringEntry("Lends", {
146 151                      let @ = insert
147 152                      if ($isInstanceOf(@, "String"))
148 153                          then @
149 154                          else throw(($getType(@) + " couldn't be cast to String"))
150 155                      })]
151 156                  else throw("Strict value is not equal to itself.")
152 157              }
153 158          else throw("Strict value is not equal to itself.")
154 159      })
155 160  
156 161

Old	New		Differences
97	97
98	98
99	99		@Callable(i)
	100	+	func deleteValueByKey (key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(key)])
	101	+
	102	+
	103	+
	104	+	@Callable(i)
100	105		func init (collectionName,symbol,description) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", collectionName), StringEntry("symbol", symbol), StringEntry("description", description), IntegerEntry("totalAmount", 0)])
101	106
102	107

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 dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
13	13
14	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	24
25	25
26	26		func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
27	27
28	28
29	29		func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
30	30		then unit
31	31		else throw("Only asset owner")
32	32
33	33
34	34		@Callable(i)
35	35		func makeJSONInternal (arrKeys,arrValues) = valueOrElse(onlyInternal(i.caller), {
36	36		let res = invoke(dAppJson, "makeJSON", [arrKeys, arrValues], nil)
37	37		if ((res == res))
38	38		then $Tuple2(nil, res)
39	39		else throw("Strict value is not equal to itself.")
40	40		})
41	41
42	42
43	43
44	44		@Callable(i)
45	45		func addToJSONInternal (json,arrKeys,arrValues) = valueOrElse(onlyInternal(i.caller), {
46	46		let res = invoke(dAppJson, "addToJSON", [json, arrKeys, arrValues], nil)
47	47		if ((res == res))
48	48		then $Tuple2(nil, res)
49	49		else throw("Strict value is not equal to itself.")
50	50		})
51	51
52	52
53	53
54	54		@Callable(i)
55	55		func readByJSONKeyInternal (json,key) = valueOrElse(onlyInternal(i.caller), {
56	56		let res = invoke(dAppJson, "readByJSONKey", [json, key], nil)
57	57		if ((res == res))
58	58		then $Tuple2(nil, res)
59	59		else throw("Strict value is not equal to itself.")
60	60		})
61	61
62	62
63	63
64	64		@Callable(i)
65	65		func deleteByJSONKeyInternal (json,key) = valueOrElse(onlyInternal(i.caller), {
66	66		let res = invoke(dAppJson, "deleteByJSONKey", [json, key], nil)
67	67		if ((res == res))
68	68		then $Tuple2(nil, res)
69	69		else throw("Strict value is not equal to itself.")
70	70		})
71	71
72	72
73	73
74	74		@Callable(i)
75	75		func storageJsonInternal (jsonKey,jsonString) = valueOrElse(onlyInternal(i.caller), [StringEntry(jsonKey, jsonString)])
76	76
77	77
78	78
79	79		@Callable(i)
80	80		func setUser (assetId,user,expires) = {
81	81		let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
82	82		if ((res == res))
83	83		then $Tuple2([StringEntry(("userOf-" + assetId), {
84	84		let @ = res
85	85		if ($isInstanceOf(@, "String"))
86	86		then @
87	87		else throw(($getType(@) + " couldn't be cast to String"))
88	88		})], res)
89	89		else throw("Strict value is not equal to itself.")
90	90		}
91	91
92	92
93	93
94	94		@Callable(i)
95	95		func setTokenPayment (assetId) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetId)])
96	96
97	97
98	98
99	99		@Callable(i)
	100	+	func deleteValueByKey (key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(key)])
	101	+
	102	+
	103	+
	104	+	@Callable(i)
100	105		func init (collectionName,symbol,description) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", collectionName), StringEntry("symbol", symbol), StringEntry("description", description), IntegerEntry("totalAmount", 0)])
101	106
102	107
103	108
104	109		@Callable(i)
105	110		func mint (to,tokenURI) = valueOrElse(onlyInternal(i.caller), {
106	111		let tokenId = (totalAmount + 1)
107	112		let preName = ((symbol + "#") + toString(tokenId))
108	113		let name = if ((16 >= size(preName)))
109	114		then preName
110	115		else toString(tokenId)
111	116		let asset = Issue(name, (("{uri:\"" + tokenURI) + "\"}"), 1, 0, false, unit, height)
112	117		let assetId = calculateAssetId(asset)
113	118		let toAddress = Address(fromBase58String(to))
114	119		let transfer = transferOrNot(toAddress, assetId)
115	120		if ((transfer == transfer))
116	121		then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
117	122		else throw("Strict value is not equal to itself.")
118	123		})
119	124
120	125
121	126
122	127		@Callable(i)
123	128		func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
124	129		let asset = parseIdtoAsset(assetId)
125	130		let tokenUri = asset.description
126	131		let lends = getStringValue("Lends")
127	132		let read = invoke(dAppJson, "readByJSONKey", [lends, "count"], nil)
128	133		let lendId = {
129	134		let @ = read
130	135		if ($isInstanceOf(@, "String"))
131	136		then @
132	137		else throw(($getType(@) + " couldn't be cast to String"))
133	138		}
134	139		let newCount = toString((parseIntValue(lendId) + 1))
135	140		let make = invoke(dAppJson, "makeJSON", [["supportedInterface", "assetdId", "tokenUri", "owner", "timeUnitSeconds", "timeUnitPrice", "timeUnitCount", "startTimestamp", "endTimestamp", "deposit", "claimed", "rents"], ["0", assetId, tokenUri, toString(i.caller), toString(timeUnitSeconds), toString(timeUnitPrice), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSeconds * timeUnitCount))), "0", "0", "{\"count\":\"0\"}"]], nil)
136	141		if ((make == make))
137	142		then {
138	143		let insert = invoke(dAppJson, "addToJSON", [lends, [lendId, "count"], [{
139	144		let @ = make
140	145		if ($isInstanceOf(@, "String"))
141	146		then @
142	147		else throw(($getType(@) + " couldn't be cast to String"))
143	148		}, newCount]], nil)
144	149		if ((insert == insert))
145	150		then [StringEntry("Lends", {
146	151		let @ = insert
147	152		if ($isInstanceOf(@, "String"))
148	153		then @
149	154		else throw(($getType(@) + " couldn't be cast to String"))
150	155		})]
151	156		else throw("Strict value is not equal to itself.")
152	157		}
153	158		else throw("Strict value is not equal to itself.")
154	159		})
155	160
156	161

github/deemru/w8io/169f3d6 
30.56 ms ◑