w8 · tx · 6uP···r9T

tx · 6uPa5yEntiaaophNBuq8KACnTVDJkV8mwqYdzj7kzr9T

3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb:  -0.00600000 Waves

2023.03.17 20:16 [2494293] smart account 3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6uPa5yEntiaaophNBuq8KACnTVDJkV8mwqYdzj7kzr9T",
    "fee": 600000,
    "feeAssetId": null,
    "timestamp": 1679073415746,
    "version": 2,
    "chainId": 84,
    "sender": "3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb",
    "senderPublicKey": "2VQGRNRWyFAZvjDtkgZwdZcTwZvBJJ61n8zJfYYxm5eK",
    "proofs": [
        "2nJS6XHisu2HRUGkSdJpLnXpaPozhHMwtxwLB1WhzYgf76YgHm3sfAAZY5NcCikFJ3VcUqaoUEAFUFTEo5PC19Br"
    ],
    "script": "base64:BgJTCAISBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIEgQKAggIEgUKAwgICBIDCgECEgMKAQgSBAoCCAgSBQoDCAgIEgQKAggIEgYKBAgBAQESBAoCAQEKAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQEHQWRkcmVzcwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAg7QutC+0YHRgtGL0LvRjAIO0LrQvtGB0YLRi9C70YwJAQ5TY3JpcHRUcmFuc2ZlcgMFAnRvAAEFB2Fzc2V0SWQBDnBhcnNlSWR0b0Fzc2V0AQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQdhc3NldElkAhxDYW4ndCBmaW5kIGFzc2V0IGJ5IGFzc2V0IGlkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXINAWkBEG1ha2VKU09OSW50ZXJuYWwCB2FycktleXMJYXJyVmFsdWVzCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIFB2FycktleXMJAMwIAgUJYXJyVmFsdWVzBQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFhZGRUb0pTT05JbnRlcm5hbAMEanNvbgdhcnJLZXlzCWFyclZhbHVlcwkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAglhZGRUb0pTT04JAMwIAgUEanNvbgkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEVcmVhZEJ5SlNPTktleUludGVybmFsAgRqc29uA2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARdkZWxldGVCeUpTT05LZXlJbnRlcm5hbAIEanNvbgNrZXkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEA3JlcwkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARNzdG9yYWdlSnNvbkludGVybmFsAgdqc29uS2V5Cmpzb25TdHJpbmcJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgUHanNvbktleQUKanNvblN0cmluZwUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC0JpbmFyeUVudHJ5AgIMdG9rZW5QYXltZW50BQdhc3NldElkBQNuaWwBaQEQZGVsZXRlVmFsdWVCeUtleQEDa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFA2tleQUDbmlsAWkBCXNldFN0cmluZwIDa2V5BXZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFA2tleQUFdmFsdWUFA25pbAFpAQRpbml0Aw5jb2xsZWN0aW9uTmFtZQZzeW1ib2wLZGVzY3JpcHRpb24JAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFDmNvbGxlY3Rpb25OYW1lCQDMCAIJAQtTdHJpbmdFbnRyeQICBnN5bWJvbAUGc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQtkZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAUDbmlsAWkBBG1pbnQCAnRvCHRva2VuVVJJBAd0b2tlbklkCQBkAgULdG90YWxBbW91bnQAAQQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwkApAMBBQd0b2tlbklkBARuYW1lAwkAZwIAEAkAsQIBBQdwcmVOYW1lBQdwcmVOYW1lCQCkAwEFB3Rva2VuSWQEBGpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCHRva2VuVVJJBQNuaWwJAMwIAgkAzAgCBQh0b2tlblVSSQUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcEBWFzc2V0CQDDCAcFBG5hbWUFBGpzb24AAQAABwUEdW5pdAUGaGVpZ2h0BAdhc3NldElkCQC4CAEFBWFzc2V0BAl0b0FkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQJ0bwQIdHJhbnNmZXIJAQ10cmFuc2Zlck9yTm90AgUJdG9BZGRyZXNzBQdhc3NldElkAwkAAAIFCHRyYW5zZmVyBQh0cmFuc2ZlcgkAzAgCBQVhc3NldAkAzAgCBQh0cmFuc2ZlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQFB3Rva2VuSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUEbmFtZQUIdG9rZW5VUkkFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0TGVuZAQHYXNzZXRJZA90aW1lVW5pdFNlY29uZHMNdGltZVVuaXRQcmljZQ10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEPY2hlY2tBc3NldE93bmVyAggFAWkGY2FsbGVyBQdhc3NldElkBAVhc3NldAkBDnBhcnNlSWR0b0Fzc2V0AQUHYXNzZXRJZAQIdG9rZW5VUkkKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIIBQVhc3NldAtkZXNjcmlwdGlvbgkAzAgCAgh0b2tlblVSSQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHRva2VuVVJJBQh0b2tlblVSSQQFbGVuZHMJARFAZXh0ck5hdGl2ZSgxMDU4KQECBUxlbmRzBAZkZWxldGUKAAFACQD8BwQFCGRBcHBKc29uAg9kZWxldGVCeUpTT05LZXkJAMwIAgUFbGVuZHMJAMwIAgIJbGVuZENvdW50BQNuaWwFA25pbAMJAAECBQFAAhAoU3RyaW5nLCBTdHJpbmcpBQFACQACAQkArAICCQADAQUBQAIlIGNvdWxkbid0IGJlIGNhc3QgdG8gKFN0cmluZywgU3RyaW5nKQMJAAACBQZkZWxldGUFBmRlbGV0ZQQGbGVuZElkCAUGZGVsZXRlAl8xBAhuZXdDb3VudAkApAMBCQBkAgkBDXBhcnNlSW50VmFsdWUBBQZsZW5kSWQAAQQEbWFrZQoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgISc3VwcG9ydGVkSW50ZXJmYWNlCQDMCAICCGFzc2V0ZElkCQDMCAICCHRva2VuVVJJCQDMCAICBW93bmVyCQDMCAICD3RpbWVVbml0U2Vjb25kcwkAzAgCAg10aW1lVW5pdFByaWNlCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICB2RlcG9zaXQJAMwIAgIHY2xhaW1lZAkAzAgCAgVyZW50cwUDbmlsCQDMCAIJAMwIAgIBMAkAzAgCBQdhc3NldElkCQDMCAIFCHRva2VuVVJJCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAKQDAQUPdGltZVVuaXRTZWNvbmRzCQDMCAIJAKQDAQUNdGltZVVuaXRQcmljZQkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRDb3VudAkAzAgCAgEwCQDMCAICATAJAMwIAgIReyJyZW50Q291bnQiOiIwIn0FA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFBG1ha2UFBG1ha2UEBmluc2VydAoAAUAJAPwHBAUIZEFwcEpzb24CCWFkZFRvSlNPTgkAzAgCCAUGZGVsZXRlAl8yCQDMCAIJAMwIAgUGbGVuZElkCQDMCAICCWxlbmRDb3VudAUDbmlsCQDMCAIJAMwIAgUEbWFrZQkAzAgCBQhuZXdDb3VudAUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUGaW5zZXJ0BQZpbnNlcnQJAMwIAgkBC1N0cmluZ0VudHJ5AgIFTGVuZHMFBmluc2VydAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRSZW50AgZsZW5kSWQNdGltZVVuaXRDb3VudAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAQFbGVuZHMJARFAZXh0ck5hdGl2ZSgxMDU4KQECBUxlbmRzBA9kZWxldGVMZW5kQ291bnQKAAFACQD8BwQFCGRBcHBKc29uAg9kZWxldGVCeUpTT05LZXkJAMwIAgUFbGVuZHMJAMwIAgIJbGVuZENvdW50BQNuaWwFA25pbAMJAAECBQFAAhAoU3RyaW5nLCBTdHJpbmcpBQFACQACAQkArAICCQADAQUBQAIlIGNvdWxkbid0IGJlIGNhc3QgdG8gKFN0cmluZywgU3RyaW5nKQMJAAACBQ9kZWxldGVMZW5kQ291bnQFD2RlbGV0ZUxlbmRDb3VudAQKZGVsZXRlTGVuZAoAAUAJAPwHBAUIZEFwcEpzb24CD2RlbGV0ZUJ5SlNPTktleQkAzAgCCAUPZGVsZXRlTGVuZENvdW50Al8yCQDMCAIFDGxlbmRJZFN0cmluZwUDbmlsBQNuaWwDCQABAgUBQAIQKFN0cmluZywgU3RyaW5nKQUBQAkAAgEJAKwCAgkAAwEFAUACJSBjb3VsZG4ndCBiZSBjYXN0IHRvIChTdHJpbmcsIFN0cmluZykDCQAAAgUKZGVsZXRlTGVuZAUKZGVsZXRlTGVuZAkAzAgCCQELU3RyaW5nRW50cnkCAgVEZWJ1ZwgFCmRlbGV0ZUxlbmQCXzEFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAZ7qul",
    "height": 2494293,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DEt3DHRnHmnntKVSFm6VG69gSPvzDgXAePB8hT6AXAsF
Next: 5ePwyLUvGRHR4bwQoovrdAtJdy13eAJeerPTexFMZ6YL

Diff: 
Old New Differences
203 203                      else throw(($getType(@) + " couldn't be cast to (String, String)"))
204 204                  }
205 205              if ((deleteLend == deleteLend))
206 -                 then nil
206 +                 then [StringEntry("Debug", deleteLend._1)]
207 207                  else throw("Strict value is not equal to itself.")
208 208              }
209 209          else throw("Strict value is not equal to itself.")
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 100  func deleteValueByKey (key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(key)])
101 101  
102 102  
103 103  
104 104  @Callable(i)
105 105  func setString (key,value) = valueOrElse(onlyInternal(i.caller), [StringEntry(key, value)])
106 106  
107 107  
108 108  
109 109  @Callable(i)
110 110  func init (collectionName,symbol,description) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", collectionName), StringEntry("symbol", symbol), StringEntry("description", description), IntegerEntry("totalAmount", 0)])
111 111  
112 112  
113 113  
114 114  @Callable(i)
115 115  func mint (to,tokenURI) = {
116 116      let tokenId = (totalAmount + 1)
117 117      let preName = ((symbol + "#") + toString(tokenId))
118 118      let name = if ((16 >= size(preName)))
119 119          then preName
120 120          else toString(tokenId)
121 121      let json = {
122 122          let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
123 123          if ($isInstanceOf(@, "String"))
124 124              then @
125 125              else throw(($getType(@) + " couldn't be cast to String"))
126 126          }
127 127      let asset = Issue(name, json, 1, 0, false, unit, height)
128 128      let assetId = calculateAssetId(asset)
129 129      let toAddress = Address(fromBase58String(to))
130 130      let transfer = transferOrNot(toAddress, assetId)
131 131      if ((transfer == transfer))
132 132          then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
133 133          else throw("Strict value is not equal to itself.")
134 134      }
135 135  
136 136  
137 137  
138 138  @Callable(i)
139 139  func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
140 140      let asset = parseIdtoAsset(assetId)
141 141      let tokenURI = {
142 142          let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
143 143          if ($isInstanceOf(@, "String"))
144 144              then @
145 145              else throw(($getType(@) + " couldn't be cast to String"))
146 146          }
147 147      if ((tokenURI == tokenURI))
148 148          then {
149 149              let lends = getStringValue("Lends")
150 150              let delete = {
151 151                  let @ = invoke(dAppJson, "deleteByJSONKey", [lends, "lendCount"], nil)
152 152                  if ($isInstanceOf(@, "(String, String)"))
153 153                      then @
154 154                      else throw(($getType(@) + " couldn't be cast to (String, String)"))
155 155                  }
156 156              if ((delete == delete))
157 157                  then {
158 158                      let lendId = delete._1
159 159                      let newCount = toString((parseIntValue(lendId) + 1))
160 160                      let make = {
161 161                          let @ = 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", "{\"rentCount\":\"0\"}"]], nil)
162 162                          if ($isInstanceOf(@, "String"))
163 163                              then @
164 164                              else throw(($getType(@) + " couldn't be cast to String"))
165 165                          }
166 166                      if ((make == make))
167 167                          then {
168 168                              let insert = {
169 169                                  let @ = invoke(dAppJson, "addToJSON", [delete._2, [lendId, "lendCount"], [make, newCount]], nil)
170 170                                  if ($isInstanceOf(@, "String"))
171 171                                      then @
172 172                                      else throw(($getType(@) + " couldn't be cast to String"))
173 173                                  }
174 174                              if ((insert == insert))
175 175                                  then [StringEntry("Lends", insert)]
176 176                                  else throw("Strict value is not equal to itself.")
177 177                              }
178 178                          else throw("Strict value is not equal to itself.")
179 179                      }
180 180                  else throw("Strict value is not equal to itself.")
181 181              }
182 182          else throw("Strict value is not equal to itself.")
183 183      })
184 184  
185 185  
186 186  
187 187  @Callable(i)
188 188  func initRent (lendId,timeUnitCount) = {
189 189      let lendIdString = toString(lendId)
190 190      let lends = getStringValue("Lends")
191 191      let deleteLendCount = {
192 192          let @ = invoke(dAppJson, "deleteByJSONKey", [lends, "lendCount"], nil)
193 193          if ($isInstanceOf(@, "(String, String)"))
194 194              then @
195 195              else throw(($getType(@) + " couldn't be cast to (String, String)"))
196 196          }
197 197      if ((deleteLendCount == deleteLendCount))
198 198          then {
199 199              let deleteLend = {
200 200                  let @ = invoke(dAppJson, "deleteByJSONKey", [deleteLendCount._2, lendIdString], nil)
201 201                  if ($isInstanceOf(@, "(String, String)"))
202 202                      then @
203 203                      else throw(($getType(@) + " couldn't be cast to (String, String)"))
204 204                  }
205 205              if ((deleteLend == deleteLend))
206 -                 then nil
206 +                 then [StringEntry("Debug", deleteLend._1)]
207 207                  else throw("Strict value is not equal to itself.")
208 208              }
209 209          else throw("Strict value is not equal to itself.")
210 210      }
211 211  
212 212

Old	New		Differences
203	203		else throw(($getType(@) + " couldn't be cast to (String, String)"))
204	204		}
205	205		if ((deleteLend == deleteLend))
206		-	then ~~nil~~
	206	+	then [StringEntry("Debug", deleteLend._1)]
207	207		else throw("Strict value is not equal to itself.")
208	208		}
209	209		else throw("Strict value is not equal to itself.")

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	100		func deleteValueByKey (key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(key)])
101	101
102	102
103	103
104	104		@Callable(i)
105	105		func setString (key,value) = valueOrElse(onlyInternal(i.caller), [StringEntry(key, value)])
106	106
107	107
108	108
109	109		@Callable(i)
110	110		func init (collectionName,symbol,description) = valueOrElse(onlyInternal(i.caller), [StringEntry("collectionName", collectionName), StringEntry("symbol", symbol), StringEntry("description", description), IntegerEntry("totalAmount", 0)])
111	111
112	112
113	113
114	114		@Callable(i)
115	115		func mint (to,tokenURI) = {
116	116		let tokenId = (totalAmount + 1)
117	117		let preName = ((symbol + "#") + toString(tokenId))
118	118		let name = if ((16 >= size(preName)))
119	119		then preName
120	120		else toString(tokenId)
121	121		let json = {
122	122		let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
123	123		if ($isInstanceOf(@, "String"))
124	124		then @
125	125		else throw(($getType(@) + " couldn't be cast to String"))
126	126		}
127	127		let asset = Issue(name, json, 1, 0, false, unit, height)
128	128		let assetId = calculateAssetId(asset)
129	129		let toAddress = Address(fromBase58String(to))
130	130		let transfer = transferOrNot(toAddress, assetId)
131	131		if ((transfer == transfer))
132	132		then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
133	133		else throw("Strict value is not equal to itself.")
134	134		}
135	135
136	136
137	137
138	138		@Callable(i)
139	139		func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
140	140		let asset = parseIdtoAsset(assetId)
141	141		let tokenURI = {
142	142		let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
143	143		if ($isInstanceOf(@, "String"))
144	144		then @
145	145		else throw(($getType(@) + " couldn't be cast to String"))
146	146		}
147	147		if ((tokenURI == tokenURI))
148	148		then {
149	149		let lends = getStringValue("Lends")
150	150		let delete = {
151	151		let @ = invoke(dAppJson, "deleteByJSONKey", [lends, "lendCount"], nil)
152	152		if ($isInstanceOf(@, "(String, String)"))
153	153		then @
154	154		else throw(($getType(@) + " couldn't be cast to (String, String)"))
155	155		}
156	156		if ((delete == delete))
157	157		then {
158	158		let lendId = delete._1
159	159		let newCount = toString((parseIntValue(lendId) + 1))
160	160		let make = {
161	161		let @ = 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", "{\"rentCount\":\"0\"}"]], nil)
162	162		if ($isInstanceOf(@, "String"))
163	163		then @
164	164		else throw(($getType(@) + " couldn't be cast to String"))
165	165		}
166	166		if ((make == make))
167	167		then {
168	168		let insert = {
169	169		let @ = invoke(dAppJson, "addToJSON", [delete._2, [lendId, "lendCount"], [make, newCount]], nil)
170	170		if ($isInstanceOf(@, "String"))
171	171		then @
172	172		else throw(($getType(@) + " couldn't be cast to String"))
173	173		}
174	174		if ((insert == insert))
175	175		then [StringEntry("Lends", insert)]
176	176		else throw("Strict value is not equal to itself.")
177	177		}
178	178		else throw("Strict value is not equal to itself.")
179	179		}
180	180		else throw("Strict value is not equal to itself.")
181	181		}
182	182		else throw("Strict value is not equal to itself.")
183	183		})
184	184
185	185
186	186
187	187		@Callable(i)
188	188		func initRent (lendId,timeUnitCount) = {
189	189		let lendIdString = toString(lendId)
190	190		let lends = getStringValue("Lends")
191	191		let deleteLendCount = {
192	192		let @ = invoke(dAppJson, "deleteByJSONKey", [lends, "lendCount"], nil)
193	193		if ($isInstanceOf(@, "(String, String)"))
194	194		then @
195	195		else throw(($getType(@) + " couldn't be cast to (String, String)"))
196	196		}
197	197		if ((deleteLendCount == deleteLendCount))
198	198		then {
199	199		let deleteLend = {
200	200		let @ = invoke(dAppJson, "deleteByJSONKey", [deleteLendCount._2, lendIdString], nil)
201	201		if ($isInstanceOf(@, "(String, String)"))
202	202		then @
203	203		else throw(($getType(@) + " couldn't be cast to (String, String)"))
204	204		}
205	205		if ((deleteLend == deleteLend))
206		-	then ~~nil~~
	206	+	then [StringEntry("Debug", deleteLend._1)]
207	207		else throw("Strict value is not equal to itself.")
208	208		}
209	209		else throw("Strict value is not equal to itself.")
210	210		}
211	211
212	212

github/deemru/w8io/026f985 
32.36 ms ◑