w8 · tx · Ac7···T1Y

tx · Ac7KgJShdfGeVRyAYi9gHEqRks3d8tp4u92cfn2k2T1Y

3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb:  -0.00700000 Waves

2023.03.17 20:55 [2494331] smart account 3MrQ4g9YCsAN2Wr4QUXiWAPhNPv7DGdQNWb > SELF 0.00000000 Waves

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

View: original | compacted
Prev: 6UizN46Thsu4CYNoex9qvHATgwUN7amsVoqCP5Rq1qar
Next: EQZN1EEdtDPHomxxqmvoqMPn7SsQTjvCmy7aNtj9J2c

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

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

github/deemru/w8io/169f3d6 
32.02 ms ◑