w8 · tx · 7ik···yzX

tx · 7ikwBsbKT3LvtVg9jsZSrQGQkjHiAP4uMCb64TA12yzX

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.00500000 Waves

2023.03.21 17:50 [2499914] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7ikwBsbKT3LvtVg9jsZSrQGQkjHiAP4uMCb64TA12yzX",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1679410230487,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "5frZYHrKoaEMrru6mEfid18YMvSQDSEUc3NvsNKEHSEzTCSLitDhMmvs5fRAamsuaZyFaX4wCTBGBoHTk2Z1K6B6"
    ],
    "script": "base64:BgIpCAISBAoCCAgSBAoCCAESBgoECAgICBIDCgEIEgYKBAgBAQESBAoCAQEMAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAHYmFzZVVSSQkBEUBleHRyTmF0aXZlKDEwNTgpAQIHYmFzZVVSSQAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAJbGVuZENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAglsZW5kQ291bnQBDG9ubHlJbnRlcm5hbAEGY2FsbGVyAwkAAAIFBmNhbGxlcgUEdGhpcwUEdW5pdAkAAgECEk9ubHkgaW50ZXJuYWwgY2FsbAENdHJhbnNmZXJPck5vdAICdG8HYXNzZXRJZAMJAAACBQJ0bwUEdGhpcwkBC1N0cmluZ0VudHJ5AgIEc210aAIEc210aAkBDlNjcmlwdFRyYW5zZmVyAwUCdG8AAQUHYXNzZXRJZAEOcGFyc2VJZHRvQXNzZXQBB2Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFB2Fzc2V0SWQCHENhbid0IGZpbmQgYXNzZXQgYnkgYXNzZXQgaWQBD2NoZWNrQXNzZXRPd25lcgIGY2FsbGVyB2Fzc2V0SWQDCQAAAgkA8AcCBQZjYWxsZXIJANkEAQUHYXNzZXRJZAABBQR1bml0CQACAQIQT25seSBhc3NldCBvd25lcgEMZ2V0UmVudENvdW50AQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcGAWkBCXNldFN0cmluZwIEX2tleQZfdmFsdWUJAMwIAgkBC1N0cmluZ0VudHJ5AgUEX2tleQUGX3ZhbHVlBQNuaWwBaQEGc2V0SW50AgRfa2V5Bl92YWx1ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUEX2tleQUGX3ZhbHVlBQNuaWwBaQEEaW5pdAQPX2NvbGxlY3Rpb25OYW1lB19zeW1ib2wMX2Rlc2NyaXB0aW9uCF9iYXNlVVJJCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQICDmNvbGxlY3Rpb25OYW1lBQ9fY29sbGVjdGlvbk5hbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgIGc3ltYm9sBQdfc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQxfZGVzY3JpcHRpb24JAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50AAAJAMwIAgkBC1N0cmluZ0VudHJ5AgIHYmFzZVVSSQUIX2Jhc2VVUkkFA25pbAFpAQRtaW50AQJ0bwQHdG9rZW5JZAkAZAIFC3RvdGFsQW1vdW50AAEEDXRva2VuSWRTdHJpbmcJAKQDAQUHdG9rZW5JZAQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwUNdG9rZW5JZFN0cmluZwQEbmFtZQMJAGcCABAJALECAQUHcHJlTmFtZQUHcHJlTmFtZQUNdG9rZW5JZFN0cmluZwQIdG9rZW5VUkkJAKwCAgUHYmFzZVVSSQUNdG9rZW5JZFN0cmluZwQEanNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIdG9rZW5VUkkFA25pbAkAzAgCCQDMCAIFCHRva2VuVVJJBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwQFYXNzZXQJAMMIBwUEbmFtZQUEanNvbgABAAAHBQR1bml0BQZoZWlnaHQEB2Fzc2V0SWQJALgIAQUFYXNzZXQECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QCBQl0b0FkZHJlc3MFB2Fzc2V0SWQDCQAAAgUIdHJhbnNmZXIFCHRyYW5zZmVyCQDMCAIFBWFzc2V0CQDMCAIFCHRyYW5zZmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAUHdG9rZW5JZAkAzAgCCQELU3RyaW5nRW50cnkCBQRuYW1lBQh0b2tlblVSSQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRMZW5kBAdhc3NldElkD3RpbWVVbml0U2Vjb25kcw10aW1lVW5pdFByaWNlDXRpbWVVbml0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAQ9jaGVja0Fzc2V0T3duZXICCAUBaQZjYWxsZXIFB2Fzc2V0SWQEBWFzc2V0CQEOcGFyc2VJZHRvQXNzZXQBBQdhc3NldElkBAh0b2tlblVSSQoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAggFBWFzc2V0C2Rlc2NyaXB0aW9uCQDMCAICCHRva2VuVVJJBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIdG9rZW5VUkkFCHRva2VuVVJJBAhsZW5kSnNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgISc3VwcG9ydGVkSW50ZXJmYWNlCQDMCAICCGFzc2V0ZElkCQDMCAICCHRva2VuVVJJCQDMCAICBW93bmVyCQDMCAICD3RpbWVVbml0U2Vjb25kcwkAzAgCAg10aW1lVW5pdFByaWNlCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICB2RlcG9zaXQJAMwIAgIHY2xhaW1lZAUDbmlsCQDMCAIJAMwIAgIBMAkAzAgCBQdhc3NldElkCQDMCAIFCHRva2VuVVJJCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUPdGltZVVuaXRTZWNvbmRzCQDMCAIJAKQDAQUNdGltZVVuaXRQcmljZQkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRDb3VudAkAzAgCAgEwCQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCGxlbmRKc29uBQhsZW5kSnNvbgQMbGVuZElkU3RyaW5nCQCkAwEFCWxlbmRDb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgIJbGVuZENvdW50CQBkAgUJbGVuZENvdW50AAEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcAAAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcFCGxlbmRKc29uBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdFJlbnQCBmxlbmRJZA10aW1lVW5pdENvdW50BAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkBAhsZW5kSnNvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nBAZyZW50SWQJAQxnZXRSZW50Q291bnQBBQZsZW5kSWQEDHJlbnRJZFN0cmluZwkApAMBBQZyZW50SWQED3RpbWVVbml0U2Vjb25kcwoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAgUIbGVuZEpzb24JAMwIAgIPdGltZVVuaXRTZWNvbmRzBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMEEnRpbWVVbml0U2Vjb25kc0ludAkBDXBhcnNlSW50VmFsdWUBBQ90aW1lVW5pdFNlY29uZHMDCQAAAgUSdGltZVVuaXRTZWNvbmRzSW50BRJ0aW1lVW5pdFNlY29uZHNJbnQECHJlbnRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAghjdXN0b21lcgkAzAgCAg10aW1lVW5pdENvdW50CQDMCAICDnN0YXJ0VGltZXN0YW1wCQDMCAICDGVuZFRpbWVzdGFtcAkAzAgCAgZjbG9zZWQFA25pbAkAzAgCCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFEnRpbWVVbml0U2Vjb25kc0ludAUNdGltZVVuaXRDb3VudAkAzAgCAgEwBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQhyZW50SnNvbgUIcmVudEpzb24JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcJAGQCBQZyZW50SWQAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICAgpsZW5kLXJlbnQtBQxsZW5kSWRTdHJpbmcCAS0FDHJlbnRJZFN0cmluZwUIcmVudEpzb24FA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgCypDE5",
    "height": 2499914,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5bQqQ852P1NQkftgDpNq4M64z7PCpmmDPHfYMfR7ZCUT
Next: 5D4csGQEgnVfYtnWxw2QUrq1HTDCKsEi3kAf1fzBKRr1

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

Old	New		Differences
127	127		if ((timeUnitSecondsInt == timeUnitSecondsInt))
128	128		then {
129	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)
	130	+	let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), timeUnitCount, toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
131	131		if ($isInstanceOf(@, "String"))
132	132		then @
133	133		else throw(($getType(@) + " couldn't be cast to String"))

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

github/deemru/w8io/026f985 
66.65 ms ◑