w8 · tx · 4Q4···5bv

tx · 4Q4yMXF3s6DtSkBqMmwJzGBXdyNSQHqyBhoxE47eP5bv

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.00700000 Waves

2023.03.21 21:26 [2500131] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4Q4yMXF3s6DtSkBqMmwJzGBXdyNSQHqyBhoxE47eP5bv",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1679423103563,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "5MBfem38Fe1mSuN37VfFV6N5fM5uyhsvZ4v429gUs6V6gciNcTMSR8VYERoSmXu8eFepnvNoLxzZBQePV5Rrkiup"
    ],
    "script": "base64:BgI/CAISBAoCCAgSBAoCCAESAwoBCBIGCgQICAgIEgUKAwgICBIDCgECEgMKAQgSBgoECAEBARIECgIBARIDCgEIFAAOY29sbGVjdGlvbk5hbWUJARFAZXh0ck5hdGl2ZSgxMDU4KQECDmNvbGxlY3Rpb25OYW1lAAZzeW1ib2wJARFAZXh0ck5hdGl2ZSgxMDU4KQECBnN5bWJvbAALZGVzY3JpcHRpb24JARFAZXh0ck5hdGl2ZSgxMDU4KQECC2Rlc2NyaXB0aW9uAAt0b3RhbEFtb3VudAkBEUBleHRyTmF0aXZlKDEwNTUpAQILdG90YWxBbW91bnQAB2Jhc2VVUkkJARFAZXh0ck5hdGl2ZSgxMDU4KQECB2Jhc2VVUkkACGRBcHBKc29uCQEHQWRkcmVzcwEJANkEAQIjM01yR2FaVlJoa25FR2ZISjE5dHRVUE5uRFJvRnFjSGhWTjcADHRva2VuUGF5bWVudAkBEUBleHRyTmF0aXZlKDEwNTcpAQIMdG9rZW5QYXltZW50ABF0b2tlblBheW1lbnRBc3NldAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAIjdG9rZW4gcGF5bWVudCBhc3NldCBkb2Vzbid0IGNvbm5lY3QACWxlbmRDb3VudAkBEUBleHRyTmF0aXZlKDEwNTUpAQIJbGVuZENvdW50ABBsZW5kQ3VycmVudENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAhBsZW5kQ3VycmVudENvdW50AQ5wYXJzZUlkdG9Bc3NldAEHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUHYXNzZXRJZAIcQ2FuJ3QgZmluZCBhc3NldCBieSBhc3NldCBpZAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAgRzbXRoAgRzbXRoCQEOU2NyaXB0VHJhbnNmZXIDBQJ0bwABBQdhc3NldElkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXIBDGNoZWNrUGF5bWVudAIIcGF5bWVudHMGYW1vdW50AwkAZwIICQCRAwIFCHBheW1lbnRzAAAGYW1vdW50BQZhbW91bnQFBHVuaXQJAAIBAhVhbW91bnQgbGVzcyB0aGVuIG5lZWQBEGNoZWNrQXNzZXRFeGlzdHMBB2Fzc2V0SWQDCQERQGV4dHJOYXRpdmUoMTA1NikBBQdhc3NldElkCQACAQIWdGhpcyB0b2tlbiBhbHJlYWR5IHVzZQUEdW5pdAELZ2V0TGVuZEpzb24BBmxlbmRJZAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nAQZnZXRLZXkCCGxlbmRKc29uA2tleQQPdGltZVVuaXRTZWNvbmRzCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQhsZW5kSnNvbgkAzAgCBQNrZXkFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwUPdGltZVVuaXRTZWNvbmRzCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQxnZXRSZW50Q291bnQBBmxlbmRJZAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAkBEUBleHRyTmF0aXZlKDEwNTUpAQkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwEMY2FsY0xlbmRDb3N0AgZsZW5kSWQPdGltZVVuaXRTZWNvbmRzBAhsZW5kSnNvbgkBC2dldExlbmRKc29uAQUGbGVuZElkBBN0aW1lVW5pdFByaWNlU3RyaW5nCQEGZ2V0S2V5AgUIbGVuZEpzb24CDXRpbWVVbml0UHJpY2UDCQAAAgUTdGltZVVuaXRQcmljZVN0cmluZwUTdGltZVVuaXRQcmljZVN0cmluZwQNdGltZVVuaXRQcmljZQkBDXBhcnNlSW50VmFsdWUBBRN0aW1lVW5pdFByaWNlU3RyaW5nCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdFByaWNlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCgFpAQlzZXRTdHJpbmcCBF9rZXkGX3ZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBBnNldEludAIEX2tleQZfdmFsdWUJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBDEludGVnZXJFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBC2RlbGV0ZUVudHJ5AQRfa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFBF9rZXkFA25pbAFpAQRpbml0BA9fY29sbGVjdGlvbk5hbWUHX3N5bWJvbAxfZGVzY3JpcHRpb24IX2Jhc2VVUkkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFD19jb2xsZWN0aW9uTmFtZQkAzAgCCQELU3RyaW5nRW50cnkCAgZzeW1ib2wFB19zeW1ib2wJAMwIAgkBC1N0cmluZ0VudHJ5AgILZGVzY3JpcHRpb24FDF9kZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAkAzAgCCQELU3RyaW5nRW50cnkCAgdiYXNlVVJJBQhfYmFzZVVSSQUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBC2Fzc2V0QmluYXJ5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtCaW5hcnlFbnRyeQICDHRva2VuUGF5bWVudAULYXNzZXRCaW5hcnkFA25pbAFpAQRtaW50AQJ0bwQHdG9rZW5JZAkAZAIFC3RvdGFsQW1vdW50AAEEDXRva2VuSWRTdHJpbmcJAKQDAQUHdG9rZW5JZAQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwUNdG9rZW5JZFN0cmluZwQEbmFtZQMJAGcCABAJALECAQUHcHJlTmFtZQUHcHJlTmFtZQUNdG9rZW5JZFN0cmluZwQIdG9rZW5VUkkJAKwCAgUHYmFzZVVSSQUNdG9rZW5JZFN0cmluZwQEanNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIdG9rZW5VUkkFA25pbAkAzAgCCQDMCAIFCHRva2VuVVJJBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwQFYXNzZXQJAMMIBwUEbmFtZQUEanNvbgABAAAHBQR1bml0BQZoZWlnaHQEB2Fzc2V0SWQJALgIAQUFYXNzZXQECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QCBQl0b0FkZHJlc3MFB2Fzc2V0SWQDCQAAAgUIdHJhbnNmZXIFCHRyYW5zZmVyCQDMCAIFBWFzc2V0CQDMCAIFCHRyYW5zZmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAUHdG9rZW5JZAkAzAgCCQELU3RyaW5nRW50cnkCBQRuYW1lBQh0b2tlblVSSQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRMZW5kBAdhc3NldElkD3RpbWVVbml0U2Vjb25kcw10aW1lVW5pdFByaWNlDXRpbWVVbml0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAQ9jaGVja0Fzc2V0T3duZXICCAUBaQZjYWxsZXIFB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJARBjaGVja0Fzc2V0RXhpc3RzAQUHYXNzZXRJZAQFYXNzZXQJAQ5wYXJzZUlkdG9Bc3NldAEFB2Fzc2V0SWQECHRva2VuVVJJCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCCAUFYXNzZXQLZGVzY3JpcHRpb24JAMwIAgIIdG9rZW5VUkkFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQh0b2tlblVSSQUIdG9rZW5VUkkECGxlbmRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAhJzdXBwb3J0ZWRJbnRlcmZhY2UJAMwIAgIIYXNzZXRkSWQJAMwIAgIIdG9rZW5VUkkJAMwIAgIFb3duZXIJAMwIAgIPdGltZVVuaXRTZWNvbmRzCQDMCAICDXRpbWVVbml0UHJpY2UJAMwIAgINdGltZVVuaXRDb3VudAkAzAgCAg5zdGFydFRpbWVzdGFtcAkAzAgCAgxlbmRUaW1lc3RhbXAJAMwIAgIHZGVwb3NpdAkAzAgCAgdjbGFpbWVkBQNuaWwJAMwIAgkAzAgCAgEwCQDMCAIFB2Fzc2V0SWQJAMwIAgUIdG9rZW5VUkkJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ90aW1lVW5pdFNlY29uZHMJAMwIAgkApAMBBQ10aW1lVW5pdFByaWNlCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdENvdW50CQDMCAICATAJAMwIAgIBMAUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIbGVuZEpzb24FCGxlbmRKc29uBAxsZW5kSWRTdHJpbmcJAKQDAQUJbGVuZENvdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCAglsZW5kQ291bnQJAGQCBQlsZW5kQ291bnQAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgIQbGVuZEN1cnJlbnRDb3VudAkAZAIFEGxlbmRDdXJyZW50Q291bnQAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwAACQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgIFbGVuZC0FDGxlbmRJZFN0cmluZwUIbGVuZEpzb24JAMwIAgkBDEJvb2xlYW5FbnRyeQIFB2Fzc2V0SWQGBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdFJlbnQCBmxlbmRJZA10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEMY2hlY2tQYXltZW50AggFAWkIcGF5bWVudHMJAQxjYWxjTGVuZENvc3QCBQZsZW5kSWQFDXRpbWVVbml0Q291bnQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQECGxlbmRKc29uCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcEBnJlbnRJZAkBDGdldFJlbnRDb3VudAEFBmxlbmRJZAQMcmVudElkU3RyaW5nCQCkAwEFBnJlbnRJZAQPdGltZVVuaXRTZWNvbmRzCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQhsZW5kSnNvbgkAzAgCAg90aW1lVW5pdFNlY29uZHMFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwQSdGltZVVuaXRTZWNvbmRzSW50CQENcGFyc2VJbnRWYWx1ZQEFD3RpbWVVbml0U2Vjb25kcwMJAAACBRJ0aW1lVW5pdFNlY29uZHNJbnQFEnRpbWVVbml0U2Vjb25kc0ludAQIcmVudEpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCGN1c3RvbWVyCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICBmNsb3NlZAUDbmlsCQDMCAIJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ10aW1lVW5pdENvdW50CQDMCAIJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkApAMBCQBkAggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAGgCBRJ0aW1lVW5pdFNlY29uZHNJbnQFDXRpbWVVbml0Q291bnQJAMwIAgIBMAUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIcmVudEpzb24FCHJlbnRKc29uCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICD2xlbmQtcmVudENvdW50LQUMbGVuZElkU3RyaW5nCQBkAgUGcmVudElkAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgIKbGVuZC1yZW50LQUMbGVuZElkU3RyaW5nAgEtBQxyZW50SWRTdHJpbmcFCHJlbnRKc29uBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEEdGVzdAEHYXNzZXRJZAkAzAgCCQEMQm9vbGVhbkVudHJ5AgIFRGVidWcJAQt2YWx1ZU9yRWxzZQIJAKAIAQUHYXNzZXRJZAcFA25pbADljnZL",
    "height": 2500131,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: FGCEb4exkkEBz5RQ3x9dq7jzfkVwHSf3xyySGcFzVqMg
Next: 2yDSbohKjDR9Eok1ngCVzy8CvuzKxNiGBhcCXiX9ZY6e

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  func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
25 25  
26 26  
27 27  func onlyInternal (caller) = if ((caller == this))
28 28      then unit
29 29      else throw("Only internal call")
30 30  
31 31  
32 32  func transferOrNot (to,assetId) = if ((to == this))
33 33      then StringEntry("smth", "smth")
34 34      else ScriptTransfer(to, 1, assetId)
35 35  
36 36  
37 37  func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
38 38      then unit
39 39      else throw("Only asset owner")
40 40  
41 41  
42 42  func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
43 43      then unit
44 44      else throw("amount less then need")
45 45  
46 46  
47 47  func checkAssetExists (assetId) = if (getBooleanValue(assetId))
48 48      then throw("this token already use")
49 49      else unit
50 50  
51 51  
52 52  func getLendJson (lendId) = {
53 53      let lendIdString = toString(lendId)
54 54      getStringValue(("lend-" + lendIdString))
55 55      }
56 56  
57 57  
58 58  func getKey (lendJson,key) = {
59 59      let timeUnitSeconds = {
60 60          let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
61 61          if ($isInstanceOf(@, "String"))
62 62              then @
63 63              else throw(($getType(@) + " couldn't be cast to String"))
64 64          }
65 65      if ((timeUnitSeconds == timeUnitSeconds))
66 66          then timeUnitSeconds
67 67          else throw("Strict value is not equal to itself.")
68 68      }
69 69  
70 70  
71 71  func getRentCount (lendId) = {
72 72      let lendIdString = toString(lendId)
73 73      getIntegerValue(("lend-rentCount-" + lendIdString))
74 74      }
75 75  
76 76  
77 77  func calcLendCost (lendId,timeUnitSeconds) = {
78 78      let lendJson = getLendJson(lendId)
79 79      let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
80 80      if ((timeUnitPriceString == timeUnitPriceString))
81 81          then {
82 82              let timeUnitPrice = parseIntValue(timeUnitPriceString)
83 83              (timeUnitSeconds * timeUnitPrice)
84 84              }
85 85          else throw("Strict value is not equal to itself.")
86 86      }
87 87  
88 88  
89 89  @Callable(i)
90 90  func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
91 91  
92 92  
93 93  
94 94  @Callable(i)
95 95  func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
96 96  
97 97  
98 98  
99 99  @Callable(i)
100 100  func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
101 101  
102 102  
103 103  
104 104  @Callable(i)
105 105  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)])
106 106  
107 107  
108 108  
109 109  @Callable(i)
110 110  func setUser (assetId,user,expires) = {
111 111      let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
112 112      if ((res == res))
113 113          then $Tuple2([StringEntry(("userOf-" + assetId), {
114 114              let @ = res
115 115              if ($isInstanceOf(@, "String"))
116 116                  then @
117 117                  else throw(($getType(@) + " couldn't be cast to String"))
118 118              })], res)
119 119          else throw("Strict value is not equal to itself.")
120 120      }
121 121  
122 122  
123 123  
124 124  @Callable(i)
125 125  func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
126 126  
127 127  
128 128  
129 129  @Callable(i)
130 130  func mint (to) = {
131 131      let tokenId = (totalAmount + 1)
132 132      let tokenIdString = toString(tokenId)
133 133      let preName = ((symbol + "#") + tokenIdString)
134 134      let name = if ((16 >= size(preName)))
135 135          then preName
136 136          else tokenIdString
137 137      let tokenURI = (baseURI + tokenIdString)
138 138      let json = {
139 139          let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
140 140          if ($isInstanceOf(@, "String"))
141 141              then @
142 142              else throw(($getType(@) + " couldn't be cast to String"))
143 143          }
144 144      let asset = Issue(name, json, 1, 0, false, unit, height)
145 145      let assetId = calculateAssetId(asset)
146 146      let toAddress = Address(fromBase58String(to))
147 147      let transfer = transferOrNot(toAddress, assetId)
148 148      if ((transfer == transfer))
149 149          then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
150 150          else throw("Strict value is not equal to itself.")
151 151      }
152 152  
153 153  
154 154  
155 155  @Callable(i)
156 156  func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
157 157      let asset = parseIdtoAsset(assetId)
158 158      let tokenURI = {
159 159          let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
160 160          if ($isInstanceOf(@, "String"))
161 161              then @
162 162              else throw(($getType(@) + " couldn't be cast to String"))
163 163          }
164 164      if ((tokenURI == tokenURI))
165 165          then {
166 166              let lendJson = {
167 167                  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)
168 168                  if ($isInstanceOf(@, "String"))
169 169                      then @
170 170                      else throw(($getType(@) + " couldn't be cast to String"))
171 171                  }
172 172              if ((lendJson == lendJson))
173 173                  then {
174 174                      let lendIdString = toString(lendCount)
175 175  [IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
176 176                      }
177 177                  else throw("Strict value is not equal to itself.")
178 178              }
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 initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
186 186      let lendIdString = toString(lendId)
187 187      let lendJson = getStringValue(("lend-" + lendIdString))
188 188      let rentId = getRentCount(lendId)
189 189      let rentIdString = toString(rentId)
190 190      let timeUnitSeconds = {
191 191          let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
192 192          if ($isInstanceOf(@, "String"))
193 193              then @
194 194              else throw(($getType(@) + " couldn't be cast to String"))
195 195          }
196 196      if ((timeUnitSeconds == timeUnitSeconds))
197 197          then {
198 198              let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
199 199              if ((timeUnitSecondsInt == timeUnitSecondsInt))
200 200                  then {
201 201                      let rentJson = {
202 202                          let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
203 203                          if ($isInstanceOf(@, "String"))
204 204                              then @
205 205                              else throw(($getType(@) + " couldn't be cast to String"))
206 206                          }
207 207                      if ((rentJson == rentJson))
208 208                          then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
209 209                          else throw("Strict value is not equal to itself.")
210 210                      }
211 211                  else throw("Strict value is not equal to itself.")
212 212              }
213 213          else throw("Strict value is not equal to itself.")
214 214      })
215 215  
216 216  
217 217  
218 218  @Callable(i)
219 219  func test (assetId) = [BooleanEntry("Debug", valueOrElse(getBoolean(assetId), false))]
220 220  
221 221

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	func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
25	25
26	26
27	27	func onlyInternal (caller) = if ((caller == this))
28	28	then unit
29	29	else throw("Only internal call")
30	30
31	31
32	32	func transferOrNot (to,assetId) = if ((to == this))
33	33	then StringEntry("smth", "smth")
34	34	else ScriptTransfer(to, 1, assetId)
35	35
36	36
37	37	func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
38	38	then unit
39	39	else throw("Only asset owner")
40	40
41	41
42	42	func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
43	43	then unit
44	44	else throw("amount less then need")
45	45
46	46
47	47	func checkAssetExists (assetId) = if (getBooleanValue(assetId))
48	48	then throw("this token already use")
49	49	else unit
50	50
51	51
52	52	func getLendJson (lendId) = {
53	53	let lendIdString = toString(lendId)
54	54	getStringValue(("lend-" + lendIdString))
55	55	}
56	56
57	57
58	58	func getKey (lendJson,key) = {
59	59	let timeUnitSeconds = {
60	60	let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
61	61	if ($isInstanceOf(@, "String"))
62	62	then @
63	63	else throw(($getType(@) + " couldn't be cast to String"))
64	64	}
65	65	if ((timeUnitSeconds == timeUnitSeconds))
66	66	then timeUnitSeconds
67	67	else throw("Strict value is not equal to itself.")
68	68	}
69	69
70	70
71	71	func getRentCount (lendId) = {
72	72	let lendIdString = toString(lendId)
73	73	getIntegerValue(("lend-rentCount-" + lendIdString))
74	74	}
75	75
76	76
77	77	func calcLendCost (lendId,timeUnitSeconds) = {
78	78	let lendJson = getLendJson(lendId)
79	79	let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
80	80	if ((timeUnitPriceString == timeUnitPriceString))
81	81	then {
82	82	let timeUnitPrice = parseIntValue(timeUnitPriceString)
83	83	(timeUnitSeconds * timeUnitPrice)
84	84	}
85	85	else throw("Strict value is not equal to itself.")
86	86	}
87	87
88	88
89	89	@Callable(i)
90	90	func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
91	91
92	92
93	93
94	94	@Callable(i)
95	95	func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
96	96
97	97
98	98
99	99	@Callable(i)
100	100	func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
101	101
102	102
103	103
104	104	@Callable(i)
105	105	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)])
106	106
107	107
108	108
109	109	@Callable(i)
110	110	func setUser (assetId,user,expires) = {
111	111	let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
112	112	if ((res == res))
113	113	then $Tuple2([StringEntry(("userOf-" + assetId), {
114	114	let @ = res
115	115	if ($isInstanceOf(@, "String"))
116	116	then @
117	117	else throw(($getType(@) + " couldn't be cast to String"))
118	118	})], res)
119	119	else throw("Strict value is not equal to itself.")
120	120	}
121	121
122	122
123	123
124	124	@Callable(i)
125	125	func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
126	126
127	127
128	128
129	129	@Callable(i)
130	130	func mint (to) = {
131	131	let tokenId = (totalAmount + 1)
132	132	let tokenIdString = toString(tokenId)
133	133	let preName = ((symbol + "#") + tokenIdString)
134	134	let name = if ((16 >= size(preName)))
135	135	then preName
136	136	else tokenIdString
137	137	let tokenURI = (baseURI + tokenIdString)
138	138	let json = {
139	139	let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
140	140	if ($isInstanceOf(@, "String"))
141	141	then @
142	142	else throw(($getType(@) + " couldn't be cast to String"))
143	143	}
144	144	let asset = Issue(name, json, 1, 0, false, unit, height)
145	145	let assetId = calculateAssetId(asset)
146	146	let toAddress = Address(fromBase58String(to))
147	147	let transfer = transferOrNot(toAddress, assetId)
148	148	if ((transfer == transfer))
149	149	then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
150	150	else throw("Strict value is not equal to itself.")
151	151	}
152	152
153	153
154	154
155	155	@Callable(i)
156	156	func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
157	157	let asset = parseIdtoAsset(assetId)
158	158	let tokenURI = {
159	159	let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
160	160	if ($isInstanceOf(@, "String"))
161	161	then @
162	162	else throw(($getType(@) + " couldn't be cast to String"))
163	163	}
164	164	if ((tokenURI == tokenURI))
165	165	then {
166	166	let lendJson = {
167	167	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)
168	168	if ($isInstanceOf(@, "String"))
169	169	then @
170	170	else throw(($getType(@) + " couldn't be cast to String"))
171	171	}
172	172	if ((lendJson == lendJson))
173	173	then {
174	174	let lendIdString = toString(lendCount)
175	175	[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
176	176	}
177	177	else throw("Strict value is not equal to itself.")
178	178	}
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 initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
186	186	let lendIdString = toString(lendId)
187	187	let lendJson = getStringValue(("lend-" + lendIdString))
188	188	let rentId = getRentCount(lendId)
189	189	let rentIdString = toString(rentId)
190	190	let timeUnitSeconds = {
191	191	let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
192	192	if ($isInstanceOf(@, "String"))
193	193	then @
194	194	else throw(($getType(@) + " couldn't be cast to String"))
195	195	}
196	196	if ((timeUnitSeconds == timeUnitSeconds))
197	197	then {
198	198	let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
199	199	if ((timeUnitSecondsInt == timeUnitSecondsInt))
200	200	then {
201	201	let rentJson = {
202	202	let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
203	203	if ($isInstanceOf(@, "String"))
204	204	then @
205	205	else throw(($getType(@) + " couldn't be cast to String"))
206	206	}
207	207	if ((rentJson == rentJson))
208	208	then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
209	209	else throw("Strict value is not equal to itself.")
210	210	}
211	211	else throw("Strict value is not equal to itself.")
212	212	}
213	213	else throw("Strict value is not equal to itself.")
214	214	})
215	215
216	216
217	217
218	218	@Callable(i)
219	219	func test (assetId) = [BooleanEntry("Debug", valueOrElse(getBoolean(assetId), false))]
220	220
221	221

github/deemru/w8io/169f3d6 
33.68 ms ◑