tx · 6UizN46Thsu4CYNoex9qvHATgwUN7amsVoqCP5Rq1qar

3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb:  -0.00700000 Waves

2023.03.17 20:50 [2494327] smart account 3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6UizN46Thsu4CYNoex9qvHATgwUN7amsVoqCP5Rq1qar",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1679075428756,
    "version": 2,
    "chainId": 84,
    "sender": "3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb",
    "senderPublicKey": "2VQGRNRWyFAZvjDtkgZwdZcTwZvBJJ61n8zJfYYxm5eK",
    "proofs": [
        "5byEuysrUEHRgWeeqoddwcF9GyN4um5mP4LKkWuDe345zf879rtdPGjx6dev7FL7uKseXYDb8GAVjaQYCYtxL9dz"
    ],
    "script": "base64:BgJTCAISBAoCGBgSBQoDCBgYEgQKAggIEgQKAggIEgQKAggIEgUKAwgICBIDCgECEgMKAQgSBAoCCAgSBQoDCAgIEgQKAggIEgYKBAgBAQESBAoCAQEKAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQEHQWRkcmVzcwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAg7QutC+0YHRgtGL0LvRjAIO0LrQvtGB0YLRi9C70YwJAQ5TY3JpcHRUcmFuc2ZlcgMFAnRvAAEFB2Fzc2V0SWQBDnBhcnNlSWR0b0Fzc2V0AQdhc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQdhc3NldElkAhxDYW4ndCBmaW5kIGFzc2V0IGJ5IGFzc2V0IGlkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXINAWkBEG1ha2VKU09OSW50ZXJuYWwCB2FycktleXMJYXJyVmFsdWVzCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIFB2FycktleXMJAMwIAgUJYXJyVmFsdWVzBQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFhZGRUb0pTT05JbnRlcm5hbAMEanNvbgdhcnJLZXlzCWFyclZhbHVlcwkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAglhZGRUb0pTT04JAMwIAgUEanNvbgkAzAgCBQdhcnJLZXlzCQDMCAIFCWFyclZhbHVlcwUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgUDbmlsBQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEVcmVhZEJ5SlNPTktleUludGVybmFsAgRqc29uA2tleQkBC3ZhbHVlT3JFbHNlAgkBDG9ubHlJbnRlcm5hbAEIBQFpBmNhbGxlcgQDcmVzCQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARdkZWxldGVCeUpTT05LZXlJbnRlcm5hbAIEanNvbgNrZXkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIEA3JlcwkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIFBGpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAACBQNyZXMFA3JlcwkAlAoCBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARNzdG9yYWdlSnNvbkludGVybmFsAgdqc29uS2V5Cmpzb25TdHJpbmcJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgUHanNvbktleQUKanNvblN0cmluZwUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC0JpbmFyeUVudHJ5AgIMdG9rZW5QYXltZW50BQdhc3NldElkBQNuaWwBaQEQZGVsZXRlVmFsdWVCeUtleQEDa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFA2tleQUDbmlsAWkBCXNldFN0cmluZwIDa2V5BXZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFA2tleQUFdmFsdWUFA25pbAFpAQRpbml0Aw5jb2xsZWN0aW9uTmFtZQZzeW1ib2wLZGVzY3JpcHRpb24JAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFDmNvbGxlY3Rpb25OYW1lCQDMCAIJAQtTdHJpbmdFbnRyeQICBnN5bWJvbAUGc3ltYm9sCQDMCAIJAQtTdHJpbmdFbnRyeQICC2Rlc2NyaXB0aW9uBQtkZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAUDbmlsAWkBBG1pbnQCAnRvCHRva2VuVVJJBAd0b2tlbklkCQBkAgULdG90YWxBbW91bnQAAQQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwkApAMBBQd0b2tlbklkBARuYW1lAwkAZwIAEAkAsQIBBQdwcmVOYW1lBQdwcmVOYW1lCQCkAwEFB3Rva2VuSWQEBGpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCHRva2VuVVJJBQNuaWwJAMwIAgkAzAgCBQh0b2tlblVSSQUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcEBWFzc2V0CQDDCAcFBG5hbWUFBGpzb24AAQAABwUEdW5pdAUGaGVpZ2h0BAdhc3NldElkCQC4CAEFBWFzc2V0BAl0b0FkZHJlc3MJAQdBZGRyZXNzAQkA2QQBBQJ0bwQIdHJhbnNmZXIJAQ10cmFuc2Zlck9yTm90AgUJdG9BZGRyZXNzBQdhc3NldElkAwkAAAIFCHRyYW5zZmVyBQh0cmFuc2ZlcgkAzAgCBQVhc3NldAkAzAgCBQh0cmFuc2ZlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQFB3Rva2VuSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgUEbmFtZQUIdG9rZW5VUkkFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0TGVuZAQHYXNzZXRJZA90aW1lVW5pdFNlY29uZHMNdGltZVVuaXRQcmljZQ10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEPY2hlY2tBc3NldE93bmVyAggFAWkGY2FsbGVyBQdhc3NldElkBAVhc3NldAkBDnBhcnNlSWR0b0Fzc2V0AQUHYXNzZXRJZAQIdG9rZW5VUkkKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIIBQVhc3NldAtkZXNjcmlwdGlvbgkAzAgCAgh0b2tlblVSSQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHRva2VuVVJJBQh0b2tlblVSSQQFbGVuZHMJARFAZXh0ck5hdGl2ZSgxMDU4KQECBUxlbmRzBAZkZWxldGUKAAFACQD8BwQFCGRBcHBKc29uAg9kZWxldGVCeUpTT05LZXkJAMwIAgUFbGVuZHMJAMwIAgIJbGVuZENvdW50BQNuaWwFA25pbAMJAAECBQFAAhAoU3RyaW5nLCBTdHJpbmcpBQFACQACAQkArAICCQADAQUBQAIlIGNvdWxkbid0IGJlIGNhc3QgdG8gKFN0cmluZywgU3RyaW5nKQMJAAACBQZkZWxldGUFBmRlbGV0ZQQGbGVuZElkCAUGZGVsZXRlAl8xCQDMCAIJAQtTdHJpbmdFbnRyeQICBURlYnVnBQZsZW5kSWQFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0UmVudAIGbGVuZElkDXRpbWVVbml0Q291bnQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQEBWxlbmRzCQERQGV4dHJOYXRpdmUoMTA1OCkBAgVMZW5kcwQPZGVsZXRlTGVuZENvdW50CgABQAkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIFBWxlbmRzCQDMCAICCWxlbmRDb3VudAUDbmlsBQNuaWwDCQABAgUBQAIQKFN0cmluZywgU3RyaW5nKQUBQAkAAgEJAKwCAgkAAwEFAUACJSBjb3VsZG4ndCBiZSBjYXN0IHRvIChTdHJpbmcsIFN0cmluZykDCQAAAgUPZGVsZXRlTGVuZENvdW50BQ9kZWxldGVMZW5kQ291bnQECmRlbGV0ZUxlbmQKAAFACQD8BwQFCGRBcHBKc29uAg9kZWxldGVCeUpTT05LZXkJAMwIAggFD2RlbGV0ZUxlbmRDb3VudAJfMgkAzAgCBQxsZW5kSWRTdHJpbmcFA25pbAUDbmlsAwkAAQIFAUACEChTdHJpbmcsIFN0cmluZykFAUAJAAIBCQCsAgIJAAMBBQFAAiUgY291bGRuJ3QgYmUgY2FzdCB0byAoU3RyaW5nLCBTdHJpbmcpAwkAAAIFCmRlbGV0ZUxlbmQFCmRlbGV0ZUxlbmQEC2RlbGV0ZVJlbnRzCgABQAkA/AcEBQhkQXBwSnNvbgIPZGVsZXRlQnlKU09OS2V5CQDMCAIIBQpkZWxldGVMZW5kAl8xCQDMCAICBXJlbnRzBQNuaWwFA25pbAMJAAECBQFAAhAoU3RyaW5nLCBTdHJpbmcpBQFACQACAQkArAICCQADAQUBQAIlIGNvdWxkbid0IGJlIGNhc3QgdG8gKFN0cmluZywgU3RyaW5nKQMJAAACBQtkZWxldGVSZW50cwULZGVsZXRlUmVudHMED2RlbGV0ZVJlbnRDb3VudAoAAUAJAPwHBAUIZEFwcEpzb24CD2RlbGV0ZUJ5SlNPTktleQkAzAgCCAULZGVsZXRlUmVudHMCXzEJAMwIAgIJcmVudENvdW50BQNuaWwFA25pbAMJAAECBQFAAhAoU3RyaW5nLCBTdHJpbmcpBQFACQACAQkArAICCQADAQUBQAIlIGNvdWxkbid0IGJlIGNhc3QgdG8gKFN0cmluZywgU3RyaW5nKQMJAAACBQ9kZWxldGVSZW50Q291bnQFD2RlbGV0ZVJlbnRDb3VudAQGcmVudElkCAUPZGVsZXRlUmVudENvdW50Al8xBAxuZXdMZW5kQ291bnQJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQgFD2RlbGV0ZUxlbmRDb3VudAJfMQABBAxuZXdSZW50Q291bnQJAKQDAQkAZAIJAQ1wYXJzZUludFZhbHVlAQUGcmVudElkAAEED3RpbWVVbml0U2Vjb25kcwkBDXBhcnNlSW50VmFsdWUBCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCCAULZGVsZXRlUmVudHMCXzIJAMwIAgIPdGltZVVuaXRTZWNvbmRzBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMECHJlbnRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAghjdXN0b21lcgkAzAgCAg10aW1lVW5pdENvdW50CQDMCAICDnN0YXJ0VGltZXN0YW1wCQDMCAICDGVuZFRpbWVzdGFtcAkAzAgCAgZjbG9zZWQFA25pbAkAzAgCCQDMCAIJAKUIAQgFAWkGY2FsbGVyCQDMCAICATAJAMwIAgUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdENvdW50CQDMCAICATAFA25pbAUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHJlbnRKc29uBQhyZW50SnNvbgQMbmV3UmVudHNKc29uCQD8BwQFCGRBcHBKc29uAglhZGRUb0pTT04JAMwIAggFD2RlbGV0ZVJlbnRDb3VudAJfMgkAzAgCCQDMCAIFBnJlbnRJZAkAzAgCAglyZW50Q291bnQFA25pbAkAzAgCCQDMCAIFCHJlbnRKc29uCQDMCAIFDG5ld1JlbnRDb3VudAUDbmlsBQNuaWwFA25pbAMJAAACBQxuZXdSZW50c0pzb24FDG5ld1JlbnRzSnNvbgQLbmV3TGVuZEpzb24JAPwHBAUIZEFwcEpzb24CCWFkZFRvSlNPTgkAzAgCCAULZGVsZXRlUmVudHMCXzIJAMwIAgkAzAgCAgVyZW50cwUDbmlsCQDMCAIJAMwIAgUMbmV3UmVudHNKc29uBQNuaWwFA25pbAUDbmlsAwkAAAIFC25ld0xlbmRKc29uBQtuZXdMZW5kSnNvbgQGaW5zZXJ0CgABQAkA/AcEBQhkQXBwSnNvbgIJYWRkVG9KU09OCQDMCAIIBQpkZWxldGVMZW5kAl8yCQDMCAIJAMwIAgUGbGVuZElkCQDMCAICCWxlbmRDb3VudAUDbmlsCQDMCAIJAMwIAgULbmV3TGVuZEpzb24JAMwIAgUMbmV3TGVuZENvdW50BQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQZpbnNlcnQFBmluc2VydAkAzAgCCQELU3RyaW5nRW50cnkCAgVMZW5kcwUGaW5zZXJ0BQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AyMIqnQ==",
    "height": 2494327,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EoYXaCXCFLuJZWJCV1wBATPTUHo4SKcbf5PTQNyMA3Bj
Next: Ac7KgJShdfGeVRyAYi9gHEqRks3d8tp4u92cfn2k2T1Y

Diff: 
Old
New
Differences
156
156
 
            if ((delete == delete))
157
157
 
                then {
158
158
 
                    let lendId = delete._1
159
-
                    let newCount = toString((parseIntValue(lendId) + 1))
160
-
                    let make = {
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", "{\"name\":\"Rents\",\"rentCount\":\"0\"}"]], nil)
162
-
                        if ($isInstanceOf(@, "String"))
163
-
                            then @
164
-
                            else throw(($getType(@) + " couldn't be cast to String"))
165
-
                        }
166
-
                    if ((make == make))
167
-
                        then {
168
-
                            let insert = {
169
-
                                let @ = invoke(dAppJson, "addToJSON", [delete._2, [lendId, "lendCount"], [make, newCount]], nil)
170
-
                                if ($isInstanceOf(@, "String"))
171
-
                                    then @
172
-
                                    else throw(($getType(@) + " couldn't be cast to String"))
173
-
                                }
174
-
                            if ((insert == insert))
175
-
                                then [StringEntry("Lends", insert)]
176
-
                                else throw("Strict value is not equal to itself.")
177
-
                            }
178
-
                        else throw("Strict value is not equal to itself.")
159
+
[StringEntry("Debug", lendId)]
179
160
 
                    }
180
161
 
                else throw("Strict value is not equal to itself.")
181
162
 
            }
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
-
                    let newCount = toString((parseIntValue(lendId) + 1))
160
-
                    let make = {
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", "{\"name\":\"Rents\",\"rentCount\":\"0\"}"]], nil)
162
-
                        if ($isInstanceOf(@, "String"))
163
-
                            then @
164
-
                            else throw(($getType(@) + " couldn't be cast to String"))
165
-
                        }
166
-
                    if ((make == make))
167
-
                        then {
168
-
                            let insert = {
169
-
                                let @ = invoke(dAppJson, "addToJSON", [delete._2, [lendId, "lendCount"], [make, newCount]], nil)
170
-
                                if ($isInstanceOf(@, "String"))
171
-
                                    then @
172
-
                                    else throw(($getType(@) + " couldn't be cast to String"))
173
-
                                }
174
-
                            if ((insert == insert))
175
-
                                then [StringEntry("Lends", insert)]
176
-
                                else throw("Strict value is not equal to itself.")
177
-
                            }
178
-
                        else throw("Strict value is not equal to itself.")
159
+
[StringEntry("Debug", lendId)]
179
160
 
                    }
180
161
 
                else throw("Strict value is not equal to itself.")
181
162
 
            }
182
163
 
        else throw("Strict value is not equal to itself.")
183
164
 
    })
184
165
 
185
166
 
186
167
 
187
168
 
@Callable(i)
188
169
 
func initRent (lendId,timeUnitCount) = {
189
170
 
    let lendIdString = toString(lendId)
190
171
 
    let lends = getStringValue("Lends")
191
172
 
    let deleteLendCount = {
192
173
 
        let @ = invoke(dAppJson, "deleteByJSONKey", [lends, "lendCount"], nil)
193
174
 
        if ($isInstanceOf(@, "(String, String)"))
194
175
 
            then @
195
176
 
            else throw(($getType(@) + " couldn't be cast to (String, String)"))
196
177
 
        }
197
178
 
    if ((deleteLendCount == deleteLendCount))
198
179
 
        then {
199
180
 
            let deleteLend = {
200
181
 
                let @ = invoke(dAppJson, "deleteByJSONKey", [deleteLendCount._2, lendIdString], nil)
201
182
 
                if ($isInstanceOf(@, "(String, String)"))
202
183
 
                    then @
203
184
 
                    else throw(($getType(@) + " couldn't be cast to (String, String)"))
204
185
 
                }
205
186
 
            if ((deleteLend == deleteLend))
206
187
 
                then {
207
188
 
                    let deleteRents = {
208
189
 
                        let @ = invoke(dAppJson, "deleteByJSONKey", [deleteLend._1, "rents"], nil)
209
190
 
                        if ($isInstanceOf(@, "(String, String)"))
210
191
 
                            then @
211
192
 
                            else throw(($getType(@) + " couldn't be cast to (String, String)"))
212
193
 
                        }
213
194
 
                    if ((deleteRents == deleteRents))
214
195
 
                        then {
215
196
 
                            let deleteRentCount = {
216
197
 
                                let @ = invoke(dAppJson, "deleteByJSONKey", [deleteRents._1, "rentCount"], nil)
217
198
 
                                if ($isInstanceOf(@, "(String, String)"))
218
199
 
                                    then @
219
200
 
                                    else throw(($getType(@) + " couldn't be cast to (String, String)"))
220
201
 
                                }
221
202
 
                            if ((deleteRentCount == deleteRentCount))
222
203
 
                                then {
223
204
 
                                    let rentId = deleteRentCount._1
224
205
 
                                    let newLendCount = toString((parseIntValue(deleteLendCount._1) + 1))
225
206
 
                                    let newRentCount = toString((parseIntValue(rentId) + 1))
226
207
 
                                    let timeUnitSeconds = parseIntValue({
227
208
 
                                        let @ = invoke(dAppJson, "readByJSONKey", [deleteRents._2, "timeUnitSeconds"], nil)
228
209
 
                                        if ($isInstanceOf(@, "String"))
229
210
 
                                            then @
230
211
 
                                            else throw(($getType(@) + " couldn't be cast to String"))
231
212
 
                                        })
232
213
 
                                    if ((timeUnitSeconds == timeUnitSeconds))
233
214
 
                                        then {
234
215
 
                                            let rentJson = {
235
216
 
                                                let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), "0", timeUnitCount, toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSeconds * timeUnitCount))), "0"]], nil)
236
217
 
                                                if ($isInstanceOf(@, "String"))
237
218
 
                                                    then @
238
219
 
                                                    else throw(($getType(@) + " couldn't be cast to String"))
239
220
 
                                                }
240
221
 
                                            if ((rentJson == rentJson))
241
222
 
                                                then {
242
223
 
                                                    let newRentsJson = invoke(dAppJson, "addToJSON", [deleteRentCount._2, [rentId, "rentCount"], [rentJson, newRentCount]], nil)
243
224
 
                                                    if ((newRentsJson == newRentsJson))
244
225
 
                                                        then {
245
226
 
                                                            let newLendJson = invoke(dAppJson, "addToJSON", [deleteRents._2, ["rents"], [newRentsJson]], nil)
246
227
 
                                                            if ((newLendJson == newLendJson))
247
228
 
                                                                then {
248
229
 
                                                                    let insert = {
249
230
 
                                                                        let @ = invoke(dAppJson, "addToJSON", [deleteLend._2, [lendId, "lendCount"], [newLendJson, newLendCount]], nil)
250
231
 
                                                                        if ($isInstanceOf(@, "String"))
251
232
 
                                                                            then @
252
233
 
                                                                            else throw(($getType(@) + " couldn't be cast to String"))
253
234
 
                                                                        }
254
235
 
                                                                    if ((insert == insert))
255
236
 
                                                                        then [StringEntry("Lends", insert)]
256
237
 
                                                                        else throw("Strict value is not equal to itself.")
257
238
 
                                                                    }
258
239
 
                                                                else throw("Strict value is not equal to itself.")
259
240
 
                                                            }
260
241
 
                                                        else throw("Strict value is not equal to itself.")
261
242
 
                                                    }
262
243
 
                                                else throw("Strict value is not equal to itself.")
263
244
 
                                            }
264
245
 
                                        else throw("Strict value is not equal to itself.")
265
246
 
                                    }
266
247
 
                                else throw("Strict value is not equal to itself.")
267
248
 
                            }
268
249
 
                        else throw("Strict value is not equal to itself.")
269
250
 
                    }
270
251
 
                else throw("Strict value is not equal to itself.")
271
252
 
            }
272
253
 
        else throw("Strict value is not equal to itself.")
273
254
 
    }
274
255
 
275
256
 

github/deemru/w8io/169f3d6 
36.15 ms ◑