w8 · tx · 9fi···g5C

tx · 9fi483GsF9ZhNr6H7uRVV5ED8zGK3uBMxi2DJPyGVg5C

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.01300000 Waves

2023.03.23 16:47 [2502728] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9fi483GsF9ZhNr6H7uRVV5ED8zGK3uBMxi2DJPyGVg5C",
    "fee": 1300000,
    "feeAssetId": null,
    "timestamp": 1679579367777,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "4LshKb4AFNNbNVU6ZuX5ZL6wsj8djgcmKFwMsYNvsVQxsjcQyd42QeR55EVv6eMorGC4hxr3hQ2ukFpSvVJDQcU3"
    ],
    "script": "base64:BgJHCAISBAoCCAgSBAoCCAESAwoBCBIGCgQICAgIEgUKAwgICBIDCgECEgQKAggBEgMKAQgSBgoECAEBARIECgIBARIDCgEBEgAcAA5jb2xsZWN0aW9uTmFtZQkBEUBleHRyTmF0aXZlKDEwNTgpAQIOY29sbGVjdGlvbk5hbWUABnN5bWJvbAkBEUBleHRyTmF0aXZlKDEwNTgpAQIGc3ltYm9sAAtkZXNjcmlwdGlvbgkBEUBleHRyTmF0aXZlKDEwNTgpAQILZGVzY3JpcHRpb24AC3RvdGFsQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAgt0b3RhbEFtb3VudAAHYmFzZVVSSQkBEUBleHRyTmF0aXZlKDEwNTgpAQIHYmFzZVVSSQAIZEFwcEpzb24JAQdBZGRyZXNzAQkA2QQBAiMzTXJHYVpWUmhrbkVHZkhKMTl0dFVQTm5EUm9GcWNIaFZONwAMdG9rZW5QYXltZW50CQERQGV4dHJOYXRpdmUoMTA1NykBAgx0b2tlblBheW1lbnQAEXRva2VuUGF5bWVudEFzc2V0CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkBEUBleHRyTmF0aXZlKDEwNTcpAQIMdG9rZW5QYXltZW50AiN0b2tlbiBwYXltZW50IGFzc2V0IGRvZXNuJ3QgY29ubmVjdAAJbGVuZENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAglsZW5kQ291bnQAEGxlbmRDdXJyZW50Q291bnQJARFAZXh0ck5hdGl2ZSgxMDU1KQECEGxlbmRDdXJyZW50Q291bnQAC2h1bmRyZWRMaXN0CQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICAAUDbmlsAQ5wYXJzZUlkdG9Bc3NldAEHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUHYXNzZXRJZAIcQ2FuJ3QgZmluZCBhc3NldCBieSBhc3NldCBpZAENdHJhbnNmZXJPck5vdAMCdG8GYW1vdW50B2Fzc2V0SWQDCQAAAgUCdG8FBHRoaXMJAQtTdHJpbmdFbnRyeQICBHNtdGgCBHNtdGgJAQ5TY3JpcHRUcmFuc2ZlcgMFAnRvBQZhbW91bnQFB2Fzc2V0SWQBC2dldExlbmRKc29uAQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgIFbGVuZC0FDGxlbmRJZFN0cmluZwEGZ2V0S2V5AghsZW5kSnNvbgNrZXkED3RpbWVVbml0U2Vjb25kcwoAAUAJAPwHBAUIZEFwcEpzb24CDXJlYWRCeUpTT05LZXkJAMwIAgUIbGVuZEpzb24JAMwIAgUDa2V5BQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUPdGltZVVuaXRTZWNvbmRzBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgEMZ2V0UmVudENvdW50AQZsZW5kSWQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcBDGNhbGNMZW5kQ29zdAIGbGVuZElkD3RpbWVVbml0U2Vjb25kcwQIbGVuZEpzb24JAQtnZXRMZW5kSnNvbgEFBmxlbmRJZAQTdGltZVVuaXRQcmljZVN0cmluZwkBBmdldEtleQIFCGxlbmRKc29uAg10aW1lVW5pdFByaWNlAwkAAAIFE3RpbWVVbml0UHJpY2VTdHJpbmcFE3RpbWVVbml0UHJpY2VTdHJpbmcEDXRpbWVVbml0UHJpY2UJAQ1wYXJzZUludFZhbHVlAQUTdGltZVVuaXRQcmljZVN0cmluZwkAaAIFD3RpbWVVbml0U2Vjb25kcwUNdGltZVVuaXRQcmljZQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgELZ2V0TGVuZENvc3QBBmxlbmRJZAkBC3ZhbHVlT3JFbHNlAgkAnwgBCQCsAgICCmxlbmQtY29zdC0JAKQDAQUGbGVuZElkAAABDG9ubHlJbnRlcm5hbAEGY2FsbGVyAwkAAAIFBmNhbGxlcgUEdGhpcwUEdW5pdAkAAgECEk9ubHkgaW50ZXJuYWwgY2FsbAEVcmVkdWNlckdldERlbGV0ZUVudHJ5AgVhY2N1bQRuZXh0BAskdDAyNTQyMjU5MgUFYWNjdW0ECWRlbGV0aW9ucwgFCyR0MDI1NDIyNTkyAl8xBAdjdXJyZW50CAULJHQwMjU0MjI1OTICXzIECG1heENvdW50CAULJHQwMjU0MjI1OTICXzMEBmxlbmRJZAgFCyR0MDI1NDIyNTkyAl80AwkAZgIFCG1heENvdW50BQdjdXJyZW50CQCWCgQJAM0IAgUJZGVsZXRpb25zCQELRGVsZXRlRW50cnkBCQCsAgIJAKwCAgkArAICAgpsZW5kLXJlbnQtBQZsZW5kSWQCAS0JAKQDAQUHY3VycmVudAkAZAIFB2N1cnJlbnQAAQUIbWF4Q291bnQFBmxlbmRJZAUFYWNjdW0BEnJlZHVjZXJDb25jYXRMaXN0cwIFYWNjdW0EbmV4dAkAzQgCBQVhY2N1bQUEbmV4dAEYcmVkdWNlckNvbmNhdExpc3RzU3RyaW5nAgVhY2N1bQRuZXh0CQDNCAIFBWFjY3VtBQRuZXh0ARNyZWR1Y2VyTGlzdFRvU3RyaW5nAgVhY2N1bQRuZXh0CQCsAgIJAKwCAgUFYWNjdW0CAS0FBG5leHQBC3JlZHVjZXJUZXN0AgVhY2N1bQRuZXh0BAskdDAzMjIwMzI3MAUFYWNjdW0ECWRlbGV0aW9ucwgFCyR0MDMyMjAzMjcwAl8xBAdjdXJyZW50CAULJHQwMzIyMDMyNzACXzIECG1heENvdW50CAULJHQwMzIyMDMyNzACXzMEBmxlbmRJZAgFCyR0MDMyMjAzMjcwAl80AwkAZgIFCG1heENvdW50BQdjdXJyZW50CQCWCgQJAM0IAgUJZGVsZXRpb25zCQCsAgIJAKwCAgkArAICAgpsZW5kLXJlbnQtBQZsZW5kSWQCAS0JAKQDAQUHY3VycmVudAkAZAIFB2N1cnJlbnQAAQUIbWF4Q291bnQFBmxlbmRJZAkAlgoEBQlkZWxldGlvbnMFB2N1cnJlbnQFCG1heENvdW50BQZsZW5kSWQBD2NoZWNrQXNzZXRPd25lcgIGY2FsbGVyB2Fzc2V0SWQDCQAAAgkA8AcCBQZjYWxsZXIJANkEAQUHYXNzZXRJZAABBQR1bml0CQACAQIQT25seSBhc3NldCBvd25lcgEMY2hlY2tQYXltZW50AghwYXltZW50cwZhbW91bnQDCQBnAggJAJEDAgUIcGF5bWVudHMAAAZhbW91bnQFBmFtb3VudAUEdW5pdAkAAgECFWFtb3VudCBsZXNzIHRoZW4gbmVlZAEQY2hlY2tBc3NldEV4aXN0cwEHYXNzZXRJZAMJAQt2YWx1ZU9yRWxzZQIJAKAIAQUHYXNzZXRJZAcJAAIBAhZ0aGlzIHRva2VuIGFscmVhZHkgdXNlBQR1bml0AQ5jaGVja0xlbmRPd25lcgIGY2FsbGVyBmxlbmRJZAMJAQIhPQIJAQZnZXRLZXkCCQELZ2V0TGVuZEpzb24BBQZsZW5kSWQCBW93bmVyCQClCAEFBmNhbGxlcgkAAgECEXlvdSBoYXZlbid0IHBlcm1zBQR1bml0DAFpAQlzZXRTdHJpbmcCBF9rZXkGX3ZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBBnNldEludAIEX2tleQZfdmFsdWUJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBDEludGVnZXJFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBC2RlbGV0ZUVudHJ5AQRfa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFBF9rZXkFA25pbAFpAQRpbml0BA9fY29sbGVjdGlvbk5hbWUHX3N5bWJvbAxfZGVzY3JpcHRpb24IX2Jhc2VVUkkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFD19jb2xsZWN0aW9uTmFtZQkAzAgCCQELU3RyaW5nRW50cnkCAgZzeW1ib2wFB19zeW1ib2wJAMwIAgkBC1N0cmluZ0VudHJ5AgILZGVzY3JpcHRpb24FDF9kZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAkAzAgCCQELU3RyaW5nRW50cnkCAgdiYXNlVVJJBQhfYmFzZVVSSQUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBC2Fzc2V0QmluYXJ5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtCaW5hcnlFbnRyeQICDHRva2VuUGF5bWVudAULYXNzZXRCaW5hcnkFA25pbAFpAQptaW50VG9rZW5zAgJ0bwZhbW91bnQEBnJlaXN1ZQkBB1JlaXNzdWUDBQx0b2tlblBheW1lbnQFBmFtb3VudAYECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QDBQl0b0FkZHJlc3MFBmFtb3VudAUMdG9rZW5QYXltZW50AwkAAAIFCHRyYW5zZmVyBQh0cmFuc2ZlcgkAzAgCBQh0cmFuc2ZlcgkAzAgCBQZyZWlzdWUFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQdtaW50TkZUAQJ0bwQHdG9rZW5JZAkAZAIFC3RvdGFsQW1vdW50AAEEDXRva2VuSWRTdHJpbmcJAKQDAQUHdG9rZW5JZAQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwUNdG9rZW5JZFN0cmluZwQEbmFtZQMJAGcCABAJALECAQUHcHJlTmFtZQUHcHJlTmFtZQUNdG9rZW5JZFN0cmluZwQIdG9rZW5VUkkJAKwCAgUHYmFzZVVSSQUNdG9rZW5JZFN0cmluZwQEanNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIdG9rZW5VUkkFA25pbAkAzAgCCQDMCAIFCHRva2VuVVJJBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwQFYXNzZXQJAMMIBwUEbmFtZQUEanNvbgABAAAHBQR1bml0BQZoZWlnaHQEB2Fzc2V0SWQJALgIAQUFYXNzZXQECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QDBQl0b0FkZHJlc3MAAQUHYXNzZXRJZAMJAAACBQh0cmFuc2ZlcgUIdHJhbnNmZXIJAMwIAgUFYXNzZXQJAMwIAgUIdHJhbnNmZXIJAMwIAgkBDEludGVnZXJFbnRyeQICC3RvdGFsQW1vdW50BQd0b2tlbklkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBG5hbWUFCHRva2VuVVJJBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdExlbmQEB2Fzc2V0SWQPdGltZVVuaXRTZWNvbmRzDXRpbWVVbml0UHJpY2UNdGltZVVuaXRDb3VudAkBC3ZhbHVlT3JFbHNlAgkBD2NoZWNrQXNzZXRPd25lcgIIBQFpBmNhbGxlcgUHYXNzZXRJZAkBC3ZhbHVlT3JFbHNlAgkBEGNoZWNrQXNzZXRFeGlzdHMBBQdhc3NldElkBAVhc3NldAkBDnBhcnNlSWR0b0Fzc2V0AQUHYXNzZXRJZAQIdG9rZW5VUkkKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIIBQVhc3NldAtkZXNjcmlwdGlvbgkAzAgCAgh0b2tlblVSSQUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFCHRva2VuVVJJBQh0b2tlblVSSQQIbGVuZEpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICEnN1cHBvcnRlZEludGVyZmFjZQkAzAgCAghhc3NldGRJZAkAzAgCAgh0b2tlblVSSQkAzAgCAgVvd25lcgkAzAgCAg90aW1lVW5pdFNlY29uZHMJAMwIAgINdGltZVVuaXRQcmljZQkAzAgCAg10aW1lVW5pdENvdW50CQDMCAICDnN0YXJ0VGltZXN0YW1wCQDMCAICDGVuZFRpbWVzdGFtcAkAzAgCAgdkZXBvc2l0CQDMCAICB2NsYWltZWQFA25pbAkAzAgCCQDMCAICATAJAMwIAgUHYXNzZXRJZAkAzAgCBQh0b2tlblVSSQkAzAgCCQClCAEIBQFpBmNhbGxlcgkAzAgCCQCkAwEFD3RpbWVVbml0U2Vjb25kcwkAzAgCCQCkAwEFDXRpbWVVbml0UHJpY2UJAMwIAgkApAMBBQ10aW1lVW5pdENvdW50CQDMCAIJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkApAMBCQBkAggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAGgCBQ90aW1lVW5pdFNlY29uZHMFDXRpbWVVbml0Q291bnQJAMwIAgIBMAkAzAgCAgEwBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQhsZW5kSnNvbgUIbGVuZEpzb24EDGxlbmRJZFN0cmluZwkApAMBBQlsZW5kQ291bnQJAMwIAgkBDEludGVnZXJFbnRyeQICCWxlbmRDb3VudAkAZAIFCWxlbmRDb3VudAABCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhBsZW5kQ3VycmVudENvdW50CQBkAgUQbGVuZEN1cnJlbnRDb3VudAABCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICD2xlbmQtcmVudENvdW50LQUMbGVuZElkU3RyaW5nAAAJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nBQhsZW5kSnNvbgkAzAgCCQEMQm9vbGVhbkVudHJ5AgUHYXNzZXRJZAYFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQhpbml0UmVudAIGbGVuZElkDXRpbWVVbml0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAQxjaGVja1BheW1lbnQCCAUBaQhwYXltZW50cwkBDGNhbGNMZW5kQ29zdAIFBmxlbmRJZAUNdGltZVVuaXRDb3VudAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAQIbGVuZEpzb24JARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgIFbGVuZC0FDGxlbmRJZFN0cmluZwQGcmVudElkCQEMZ2V0UmVudENvdW50AQUGbGVuZElkBAxyZW50SWRTdHJpbmcJAKQDAQUGcmVudElkBA90aW1lVW5pdFNlY29uZHMKAAFACQD8BwQFCGRBcHBKc29uAg1yZWFkQnlKU09OS2V5CQDMCAIFCGxlbmRKc29uCQDMCAICD3RpbWVVbml0U2Vjb25kcwUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nAwkAAAIFD3RpbWVVbml0U2Vjb25kcwUPdGltZVVuaXRTZWNvbmRzBBJ0aW1lVW5pdFNlY29uZHNJbnQJAQ1wYXJzZUludFZhbHVlAQUPdGltZVVuaXRTZWNvbmRzAwkAAAIFEnRpbWVVbml0U2Vjb25kc0ludAUSdGltZVVuaXRTZWNvbmRzSW50BAhyZW50SnNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIY3VzdG9tZXIJAMwIAgINdGltZVVuaXRDb3VudAkAzAgCAg5zdGFydFRpbWVzdGFtcAkAzAgCAgxlbmRUaW1lc3RhbXAJAMwIAgIGY2xvc2VkBQNuaWwJAMwIAgkAzAgCCQClCAEIBQFpBmNhbGxlcgkAzAgCCQCkAwEFDXRpbWVVbml0Q291bnQJAMwIAgkApAMBCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQCkAwEJAGQCCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAaAIFEnRpbWVVbml0U2Vjb25kc0ludAUNdGltZVVuaXRDb3VudAkAzAgCAgEwBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQhyZW50SnNvbgUIcmVudEpzb24JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcJAGQCBQZyZW50SWQAAQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkArAICAgpsZW5kLXJlbnQtBQxsZW5kSWRTdHJpbmcCAS0FDHJlbnRJZFN0cmluZwUIcmVudEpzb24JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIKbGVuZC1jb3N0LQUMbGVuZElkU3RyaW5nCQBkAgkBDGNhbGNMZW5kQ29zdAIFBmxlbmRJZAUNdGltZVVuaXRDb3VudAkBC2dldExlbmRDb3N0AQUGbGVuZElkBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEJY2xvc2VMZW5kAQZsZW5kSWQJAQt2YWx1ZU9yRWxzZQIJAQ5jaGVja0xlbmRPd25lcgIIBQFpBmNhbGxlcgUGbGVuZElkBAxsZW5kSWRTdHJpbmcJAKQDAQUGbGVuZElkBAlyZW50Q291bnQJARFAZXh0ck5hdGl2ZSgxMDU1KQEJAKwCAgIPbGVuZC1yZW50Q291bnQtBQxsZW5kSWRTdHJpbmcED2RlbGV0ZUVudHJ5TGlzdAgKAAIkbAULaHVuZHJlZExpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAAABQlyZW50Q291bnQFDGxlbmRJZFN0cmluZwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEVcmVkdWNlckdldERlbGV0ZUVudHJ5AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAJfMQQHYXNzZXRJZAkBBmdldEtleQIJAQtnZXRMZW5kSnNvbgEFBmxlbmRJZAIHYXNzZXRJZAQJdHhMaXN0UmF3BQNuaWwFCXR4TGlzdFJhdwFpAQR0ZXN0AAQEZGF0YQkAzAgCAgExCQDMCAICATIJAMwIAgIBMwUDbmlsBARsaXN0CAoAAiRsBQtodW5kcmVkTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJYKBAUEZGF0YQAAAAUCATUKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC3JlZHVjZXJUZXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAJfMQkAzAgCCQELU3RyaW5nRW50cnkCAgVEZWJ1ZwoAAiRsBQRsaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAIACgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARNyZWR1Y2VyTGlzdFRvU3RyaW5nAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhVMaXN0IHNpemUgZXhjZWVkcyAxMDAJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyADMANAA1ADYANwA4ADkAOgA7ADwAPQA+AD8AQABBAEIAQwBEAEUARgBHAEgASQBKAEsATABNAE4ATwBQAFEAUgBTAFQAVQBWAFcAWABZAFoAWwBcAF0AXgBfAGAAYQBiAGMAZAUDbmlsAM75sRo=",
    "height": 2502728,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: A59LuMSAHaHBUkiRjLWwkGtF13LsXNmb6PWvv5Jk6Y9k
Next: 8XqoXKQCLq4ybEWrWmfy54vtJDScREcGUKemJTh7sfnx

Diff: 
Old New Differences
286 286          else throw("List size exceeds 100")
287 287  
288 288      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
289 +     let assetId = getKey(getLendJson(lendId), "assetId")
289 290      let txListRaw = nil
290 291      txListRaw
291 292      })
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 tokenPayment = getBinaryValue("tokenPayment")
17 17  
18 18  let tokenPaymentAsset = valueOrErrorMessage(assetInfo(getBinaryValue("tokenPayment")), "token payment asset doesn't connect")
19 19  
20 20  let lendCount = getIntegerValue("lendCount")
21 21  
22 22  let lendCurrentCount = getIntegerValue("lendCurrentCount")
23 23  
24 24  let hundredList = ["", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""]
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 transferOrNot (to,amount,assetId) = if ((to == this))
30 30      then StringEntry("smth", "smth")
31 31      else ScriptTransfer(to, amount, assetId)
32 32  
33 33  
34 34  func getLendJson (lendId) = {
35 35      let lendIdString = toString(lendId)
36 36      getStringValue(("lend-" + lendIdString))
37 37      }
38 38  
39 39  
40 40  func getKey (lendJson,key) = {
41 41      let timeUnitSeconds = {
42 42          let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
43 43          if ($isInstanceOf(@, "String"))
44 44              then @
45 45              else throw(($getType(@) + " couldn't be cast to String"))
46 46          }
47 47      if ((timeUnitSeconds == timeUnitSeconds))
48 48          then timeUnitSeconds
49 49          else throw("Strict value is not equal to itself.")
50 50      }
51 51  
52 52  
53 53  func getRentCount (lendId) = {
54 54      let lendIdString = toString(lendId)
55 55      getIntegerValue(("lend-rentCount-" + lendIdString))
56 56      }
57 57  
58 58  
59 59  func calcLendCost (lendId,timeUnitSeconds) = {
60 60      let lendJson = getLendJson(lendId)
61 61      let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
62 62      if ((timeUnitPriceString == timeUnitPriceString))
63 63          then {
64 64              let timeUnitPrice = parseIntValue(timeUnitPriceString)
65 65              (timeUnitSeconds * timeUnitPrice)
66 66              }
67 67          else throw("Strict value is not equal to itself.")
68 68      }
69 69  
70 70  
71 71  func getLendCost (lendId) = valueOrElse(getInteger(("lend-cost-" + toString(lendId))), 0)
72 72  
73 73  
74 74  func onlyInternal (caller) = if ((caller == this))
75 75      then unit
76 76      else throw("Only internal call")
77 77  
78 78  
79 79  func reducerGetDeleteEntry (accum,next) = {
80 80      let $t025422592 = accum
81 81      let deletions = $t025422592._1
82 82      let current = $t025422592._2
83 83      let maxCount = $t025422592._3
84 84      let lendId = $t025422592._4
85 85      if ((maxCount > current))
86 86          then $Tuple4((deletions :+ DeleteEntry(((("lend-rent-" + lendId) + "-") + toString(current)))), (current + 1), maxCount, lendId)
87 87          else accum
88 88      }
89 89  
90 90  
91 91  func reducerConcatLists (accum,next) = (accum :+ next)
92 92  
93 93  
94 94  func reducerConcatListsString (accum,next) = (accum :+ next)
95 95  
96 96  
97 97  func reducerListToString (accum,next) = ((accum + "-") + next)
98 98  
99 99  
100 100  func reducerTest (accum,next) = {
101 101      let $t032203270 = accum
102 102      let deletions = $t032203270._1
103 103      let current = $t032203270._2
104 104      let maxCount = $t032203270._3
105 105      let lendId = $t032203270._4
106 106      if ((maxCount > current))
107 107          then $Tuple4((deletions :+ ((("lend-rent-" + lendId) + "-") + toString(current))), (current + 1), maxCount, lendId)
108 108          else $Tuple4(deletions, current, maxCount, lendId)
109 109      }
110 110  
111 111  
112 112  func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
113 113      then unit
114 114      else throw("Only asset owner")
115 115  
116 116  
117 117  func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
118 118      then unit
119 119      else throw("amount less then need")
120 120  
121 121  
122 122  func checkAssetExists (assetId) = if (valueOrElse(getBoolean(assetId), false))
123 123      then throw("this token already use")
124 124      else unit
125 125  
126 126  
127 127  func checkLendOwner (caller,lendId) = if ((getKey(getLendJson(lendId), "owner") != toString(caller)))
128 128      then throw("you haven't perms")
129 129      else unit
130 130  
131 131  
132 132  @Callable(i)
133 133  func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
134 134  
135 135  
136 136  
137 137  @Callable(i)
138 138  func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
139 139  
140 140  
141 141  
142 142  @Callable(i)
143 143  func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
144 144  
145 145  
146 146  
147 147  @Callable(i)
148 148  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)])
149 149  
150 150  
151 151  
152 152  @Callable(i)
153 153  func setUser (assetId,user,expires) = {
154 154      let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
155 155      if ((res == res))
156 156          then $Tuple2([StringEntry(("userOf-" + assetId), {
157 157              let @ = res
158 158              if ($isInstanceOf(@, "String"))
159 159                  then @
160 160                  else throw(($getType(@) + " couldn't be cast to String"))
161 161              })], res)
162 162          else throw("Strict value is not equal to itself.")
163 163      }
164 164  
165 165  
166 166  
167 167  @Callable(i)
168 168  func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
169 169  
170 170  
171 171  
172 172  @Callable(i)
173 173  func mintTokens (to,amount) = {
174 174      let reisue = Reissue(tokenPayment, amount, true)
175 175      let toAddress = Address(fromBase58String(to))
176 176      let transfer = transferOrNot(toAddress, amount, tokenPayment)
177 177      if ((transfer == transfer))
178 178          then [transfer, reisue]
179 179          else throw("Strict value is not equal to itself.")
180 180      }
181 181  
182 182  
183 183  
184 184  @Callable(i)
185 185  func mintNFT (to) = {
186 186      let tokenId = (totalAmount + 1)
187 187      let tokenIdString = toString(tokenId)
188 188      let preName = ((symbol + "#") + tokenIdString)
189 189      let name = if ((16 >= size(preName)))
190 190          then preName
191 191          else tokenIdString
192 192      let tokenURI = (baseURI + tokenIdString)
193 193      let json = {
194 194          let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
195 195          if ($isInstanceOf(@, "String"))
196 196              then @
197 197              else throw(($getType(@) + " couldn't be cast to String"))
198 198          }
199 199      let asset = Issue(name, json, 1, 0, false, unit, height)
200 200      let assetId = calculateAssetId(asset)
201 201      let toAddress = Address(fromBase58String(to))
202 202      let transfer = transferOrNot(toAddress, 1, assetId)
203 203      if ((transfer == transfer))
204 204          then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
205 205          else throw("Strict value is not equal to itself.")
206 206      }
207 207  
208 208  
209 209  
210 210  @Callable(i)
211 211  func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
212 212      let asset = parseIdtoAsset(assetId)
213 213      let tokenURI = {
214 214          let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
215 215          if ($isInstanceOf(@, "String"))
216 216              then @
217 217              else throw(($getType(@) + " couldn't be cast to String"))
218 218          }
219 219      if ((tokenURI == tokenURI))
220 220          then {
221 221              let lendJson = {
222 222                  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)
223 223                  if ($isInstanceOf(@, "String"))
224 224                      then @
225 225                      else throw(($getType(@) + " couldn't be cast to String"))
226 226                  }
227 227              if ((lendJson == lendJson))
228 228                  then {
229 229                      let lendIdString = toString(lendCount)
230 230  [IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
231 231                      }
232 232                  else throw("Strict value is not equal to itself.")
233 233              }
234 234          else throw("Strict value is not equal to itself.")
235 235      }))
236 236  
237 237  
238 238  
239 239  @Callable(i)
240 240  func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
241 241      let lendIdString = toString(lendId)
242 242      let lendJson = getStringValue(("lend-" + lendIdString))
243 243      let rentId = getRentCount(lendId)
244 244      let rentIdString = toString(rentId)
245 245      let timeUnitSeconds = {
246 246          let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
247 247          if ($isInstanceOf(@, "String"))
248 248              then @
249 249              else throw(($getType(@) + " couldn't be cast to String"))
250 250          }
251 251      if ((timeUnitSeconds == timeUnitSeconds))
252 252          then {
253 253              let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
254 254              if ((timeUnitSecondsInt == timeUnitSecondsInt))
255 255                  then {
256 256                      let rentJson = {
257 257                          let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
258 258                          if ($isInstanceOf(@, "String"))
259 259                              then @
260 260                              else throw(($getType(@) + " couldn't be cast to String"))
261 261                          }
262 262                      if ((rentJson == rentJson))
263 263                          then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson), IntegerEntry(("lend-cost-" + lendIdString), (calcLendCost(lendId, timeUnitCount) + getLendCost(lendId)))]
264 264                          else throw("Strict value is not equal to itself.")
265 265                      }
266 266                  else throw("Strict value is not equal to itself.")
267 267              }
268 268          else throw("Strict value is not equal to itself.")
269 269      })
270 270  
271 271  
272 272  
273 273  @Callable(i)
274 274  func closeLend (lendId) = valueOrElse(checkLendOwner(i.caller, lendId), {
275 275      let lendIdString = toString(lendId)
276 276      let rentCount = getIntegerValue(("lend-rentCount-" + lendIdString))
277 277      let deleteEntryList = (    let $l = hundredList
278 278      let $s = size($l)
279 279      let $acc0 = $Tuple4(nil, 0, rentCount, lendIdString)
280 280      func $f0_1 ($a,$i) =     if (($i >= $s))
281 281          then $a
282 282          else reducerGetDeleteEntry($a, $l[$i])
283 283  
284 284      func $f0_2 ($a,$i) =     if (($i >= $s))
285 285          then $a
286 286          else throw("List size exceeds 100")
287 287  
288 288      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
289 +     let assetId = getKey(getLendJson(lendId), "assetId")
289 290      let txListRaw = nil
290 291      txListRaw
291 292      })
292 293  
293 294  
294 295  
295 296  @Callable(i)
296 297  func test () = {
297 298      let data = ["1", "2", "3"]
298 299      let list = (    let $l = hundredList
299 300      let $s = size($l)
300 301      let $acc0 = $Tuple4(data, 0, 5, "5")
301 302      func $f0_1 ($a,$i) =     if (($i >= $s))
302 303          then $a
303 304          else reducerTest($a, $l[$i])
304 305  
305 306      func $f0_2 ($a,$i) =     if (($i >= $s))
306 307          then $a
307 308          else throw("List size exceeds 100")
308 309  
309 310      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
310 311  [StringEntry("Debug", {
311 312          let $l = list
312 313          let $s = size($l)
313 314          let $acc0 = ""
314 315          func $f1_1 ($a,$i) =         if (($i >= $s))
315 316              then $a
316 317              else reducerListToString($a, $l[$i])
317 318  
318 319          func $f1_2 ($a,$i) =         if (($i >= $s))
319 320              then $a
320 321              else throw("List size exceeds 100")
321 322  
322 323          $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
323 324          })]
324 325      }
325 326  
326 327

Old	New		Differences
286	286		else throw("List size exceeds 100")
287	287
288	288		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
	289	+	let assetId = getKey(getLendJson(lendId), "assetId")
289	290		let txListRaw = nil
290	291		txListRaw
291	292		})

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 tokenPayment = getBinaryValue("tokenPayment")
17	17
18	18		let tokenPaymentAsset = valueOrErrorMessage(assetInfo(getBinaryValue("tokenPayment")), "token payment asset doesn't connect")
19	19
20	20		let lendCount = getIntegerValue("lendCount")
21	21
22	22		let lendCurrentCount = getIntegerValue("lendCurrentCount")
23	23
24	24		let hundredList = ["", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""]
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 transferOrNot (to,amount,assetId) = if ((to == this))
30	30		then StringEntry("smth", "smth")
31	31		else ScriptTransfer(to, amount, assetId)
32	32
33	33
34	34		func getLendJson (lendId) = {
35	35		let lendIdString = toString(lendId)
36	36		getStringValue(("lend-" + lendIdString))
37	37		}
38	38
39	39
40	40		func getKey (lendJson,key) = {
41	41		let timeUnitSeconds = {
42	42		let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
43	43		if ($isInstanceOf(@, "String"))
44	44		then @
45	45		else throw(($getType(@) + " couldn't be cast to String"))
46	46		}
47	47		if ((timeUnitSeconds == timeUnitSeconds))
48	48		then timeUnitSeconds
49	49		else throw("Strict value is not equal to itself.")
50	50		}
51	51
52	52
53	53		func getRentCount (lendId) = {
54	54		let lendIdString = toString(lendId)
55	55		getIntegerValue(("lend-rentCount-" + lendIdString))
56	56		}
57	57
58	58
59	59		func calcLendCost (lendId,timeUnitSeconds) = {
60	60		let lendJson = getLendJson(lendId)
61	61		let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
62	62		if ((timeUnitPriceString == timeUnitPriceString))
63	63		then {
64	64		let timeUnitPrice = parseIntValue(timeUnitPriceString)
65	65		(timeUnitSeconds * timeUnitPrice)
66	66		}
67	67		else throw("Strict value is not equal to itself.")
68	68		}
69	69
70	70
71	71		func getLendCost (lendId) = valueOrElse(getInteger(("lend-cost-" + toString(lendId))), 0)
72	72
73	73
74	74		func onlyInternal (caller) = if ((caller == this))
75	75		then unit
76	76		else throw("Only internal call")
77	77
78	78
79	79		func reducerGetDeleteEntry (accum,next) = {
80	80		let $t025422592 = accum
81	81		let deletions = $t025422592._1
82	82		let current = $t025422592._2
83	83		let maxCount = $t025422592._3
84	84		let lendId = $t025422592._4
85	85		if ((maxCount > current))
86	86		then $Tuple4((deletions :+ DeleteEntry(((("lend-rent-" + lendId) + "-") + toString(current)))), (current + 1), maxCount, lendId)
87	87		else accum
88	88		}
89	89
90	90
91	91		func reducerConcatLists (accum,next) = (accum :+ next)
92	92
93	93
94	94		func reducerConcatListsString (accum,next) = (accum :+ next)
95	95
96	96
97	97		func reducerListToString (accum,next) = ((accum + "-") + next)
98	98
99	99
100	100		func reducerTest (accum,next) = {
101	101		let $t032203270 = accum
102	102		let deletions = $t032203270._1
103	103		let current = $t032203270._2
104	104		let maxCount = $t032203270._3
105	105		let lendId = $t032203270._4
106	106		if ((maxCount > current))
107	107		then $Tuple4((deletions :+ ((("lend-rent-" + lendId) + "-") + toString(current))), (current + 1), maxCount, lendId)
108	108		else $Tuple4(deletions, current, maxCount, lendId)
109	109		}
110	110
111	111
112	112		func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
113	113		then unit
114	114		else throw("Only asset owner")
115	115
116	116
117	117		func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
118	118		then unit
119	119		else throw("amount less then need")
120	120
121	121
122	122		func checkAssetExists (assetId) = if (valueOrElse(getBoolean(assetId), false))
123	123		then throw("this token already use")
124	124		else unit
125	125
126	126
127	127		func checkLendOwner (caller,lendId) = if ((getKey(getLendJson(lendId), "owner") != toString(caller)))
128	128		then throw("you haven't perms")
129	129		else unit
130	130
131	131
132	132		@Callable(i)
133	133		func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
134	134
135	135
136	136
137	137		@Callable(i)
138	138		func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
139	139
140	140
141	141
142	142		@Callable(i)
143	143		func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
144	144
145	145
146	146
147	147		@Callable(i)
148	148		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)])
149	149
150	150
151	151
152	152		@Callable(i)
153	153		func setUser (assetId,user,expires) = {
154	154		let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
155	155		if ((res == res))
156	156		then $Tuple2([StringEntry(("userOf-" + assetId), {
157	157		let @ = res
158	158		if ($isInstanceOf(@, "String"))
159	159		then @
160	160		else throw(($getType(@) + " couldn't be cast to String"))
161	161		})], res)
162	162		else throw("Strict value is not equal to itself.")
163	163		}
164	164
165	165
166	166
167	167		@Callable(i)
168	168		func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
169	169
170	170
171	171
172	172		@Callable(i)
173	173		func mintTokens (to,amount) = {
174	174		let reisue = Reissue(tokenPayment, amount, true)
175	175		let toAddress = Address(fromBase58String(to))
176	176		let transfer = transferOrNot(toAddress, amount, tokenPayment)
177	177		if ((transfer == transfer))
178	178		then [transfer, reisue]
179	179		else throw("Strict value is not equal to itself.")
180	180		}
181	181
182	182
183	183
184	184		@Callable(i)
185	185		func mintNFT (to) = {
186	186		let tokenId = (totalAmount + 1)
187	187		let tokenIdString = toString(tokenId)
188	188		let preName = ((symbol + "#") + tokenIdString)
189	189		let name = if ((16 >= size(preName)))
190	190		then preName
191	191		else tokenIdString
192	192		let tokenURI = (baseURI + tokenIdString)
193	193		let json = {
194	194		let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
195	195		if ($isInstanceOf(@, "String"))
196	196		then @
197	197		else throw(($getType(@) + " couldn't be cast to String"))
198	198		}
199	199		let asset = Issue(name, json, 1, 0, false, unit, height)
200	200		let assetId = calculateAssetId(asset)
201	201		let toAddress = Address(fromBase58String(to))
202	202		let transfer = transferOrNot(toAddress, 1, assetId)
203	203		if ((transfer == transfer))
204	204		then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
205	205		else throw("Strict value is not equal to itself.")
206	206		}
207	207
208	208
209	209
210	210		@Callable(i)
211	211		func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
212	212		let asset = parseIdtoAsset(assetId)
213	213		let tokenURI = {
214	214		let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
215	215		if ($isInstanceOf(@, "String"))
216	216		then @
217	217		else throw(($getType(@) + " couldn't be cast to String"))
218	218		}
219	219		if ((tokenURI == tokenURI))
220	220		then {
221	221		let lendJson = {
222	222		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)
223	223		if ($isInstanceOf(@, "String"))
224	224		then @
225	225		else throw(($getType(@) + " couldn't be cast to String"))
226	226		}
227	227		if ((lendJson == lendJson))
228	228		then {
229	229		let lendIdString = toString(lendCount)
230	230		[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
231	231		}
232	232		else throw("Strict value is not equal to itself.")
233	233		}
234	234		else throw("Strict value is not equal to itself.")
235	235		}))
236	236
237	237
238	238
239	239		@Callable(i)
240	240		func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
241	241		let lendIdString = toString(lendId)
242	242		let lendJson = getStringValue(("lend-" + lendIdString))
243	243		let rentId = getRentCount(lendId)
244	244		let rentIdString = toString(rentId)
245	245		let timeUnitSeconds = {
246	246		let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
247	247		if ($isInstanceOf(@, "String"))
248	248		then @
249	249		else throw(($getType(@) + " couldn't be cast to String"))
250	250		}
251	251		if ((timeUnitSeconds == timeUnitSeconds))
252	252		then {
253	253		let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
254	254		if ((timeUnitSecondsInt == timeUnitSecondsInt))
255	255		then {
256	256		let rentJson = {
257	257		let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
258	258		if ($isInstanceOf(@, "String"))
259	259		then @
260	260		else throw(($getType(@) + " couldn't be cast to String"))
261	261		}
262	262		if ((rentJson == rentJson))
263	263		then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson), IntegerEntry(("lend-cost-" + lendIdString), (calcLendCost(lendId, timeUnitCount) + getLendCost(lendId)))]
264	264		else throw("Strict value is not equal to itself.")
265	265		}
266	266		else throw("Strict value is not equal to itself.")
267	267		}
268	268		else throw("Strict value is not equal to itself.")
269	269		})
270	270
271	271
272	272
273	273		@Callable(i)
274	274		func closeLend (lendId) = valueOrElse(checkLendOwner(i.caller, lendId), {
275	275		let lendIdString = toString(lendId)
276	276		let rentCount = getIntegerValue(("lend-rentCount-" + lendIdString))
277	277		let deleteEntryList = ( let $l = hundredList
278	278		let $s = size($l)
279	279		let $acc0 = $Tuple4(nil, 0, rentCount, lendIdString)
280	280		func $f0_1 ($a,$i) = if (($i >= $s))
281	281		then $a
282	282		else reducerGetDeleteEntry($a, $l[$i])
283	283
284	284		func $f0_2 ($a,$i) = if (($i >= $s))
285	285		then $a
286	286		else throw("List size exceeds 100")
287	287
288	288		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
	289	+	let assetId = getKey(getLendJson(lendId), "assetId")
289	290		let txListRaw = nil
290	291		txListRaw
291	292		})
292	293
293	294
294	295
295	296		@Callable(i)
296	297		func test () = {
297	298		let data = ["1", "2", "3"]
298	299		let list = ( let $l = hundredList
299	300		let $s = size($l)
300	301		let $acc0 = $Tuple4(data, 0, 5, "5")
301	302		func $f0_1 ($a,$i) = if (($i >= $s))
302	303		then $a
303	304		else reducerTest($a, $l[$i])
304	305
305	306		func $f0_2 ($a,$i) = if (($i >= $s))
306	307		then $a
307	308		else throw("List size exceeds 100")
308	309
309	310		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100))._1
310	311		[StringEntry("Debug", {
311	312		let $l = list
312	313		let $s = size($l)
313	314		let $acc0 = ""
314	315		func $f1_1 ($a,$i) = if (($i >= $s))
315	316		then $a
316	317		else reducerListToString($a, $l[$i])
317	318
318	319		func $f1_2 ($a,$i) = if (($i >= $s))
319	320		then $a
320	321		else throw("List size exceeds 100")
321	322
322	323		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
323	324		})]
324	325		}
325	326
326	327

github/deemru/w8io/026f985 
46.61 ms ◑