tx · GN8aZpT7zYNbuV1rdcFGWx7EwB8SXwvVKMB3CCP24huk

3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn:  -0.00700000 Waves

2023.03.21 21:17 [2500123] smart account 3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GN8aZpT7zYNbuV1rdcFGWx7EwB8SXwvVKMB3CCP24huk",
    "fee": 700000,
    "feeAssetId": null,
    "timestamp": 1679422702105,
    "version": 2,
    "chainId": 84,
    "sender": "3MxVYj6ScMArhAamy7nB6b342kh1Pso1LTn",
    "senderPublicKey": "CZeucjRLCKrkiP9zuj9KbLe23Wv9DywFzHBqNDnte51B",
    "proofs": [
        "48dc293hYV1zakRY8Wuo3cnnJB6mvxDRMuwGrvepwmBtcxBML4jYooaAJzfUo6eTQonaEFuX2tmhymr2Z2cSw2hr"
    ],
    "script": "base64:BgI/CAISBAoCCAgSBAoCCAESAwoBCBIGCgQICAgIEgUKAwgICBIDCgECEgMKAQgSBgoECAEBARIECgIBARIDCgEIFAAOY29sbGVjdGlvbk5hbWUJARFAZXh0ck5hdGl2ZSgxMDU4KQECDmNvbGxlY3Rpb25OYW1lAAZzeW1ib2wJARFAZXh0ck5hdGl2ZSgxMDU4KQECBnN5bWJvbAALZGVzY3JpcHRpb24JARFAZXh0ck5hdGl2ZSgxMDU4KQECC2Rlc2NyaXB0aW9uAAt0b3RhbEFtb3VudAkBEUBleHRyTmF0aXZlKDEwNTUpAQILdG90YWxBbW91bnQAB2Jhc2VVUkkJARFAZXh0ck5hdGl2ZSgxMDU4KQECB2Jhc2VVUkkACGRBcHBKc29uCQEHQWRkcmVzcwEJANkEAQIjM01yR2FaVlJoa25FR2ZISjE5dHRVUE5uRFJvRnFjSGhWTjcADHRva2VuUGF5bWVudAkBEUBleHRyTmF0aXZlKDEwNTcpAQIMdG9rZW5QYXltZW50ABF0b2tlblBheW1lbnRBc3NldAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJARFAZXh0ck5hdGl2ZSgxMDU3KQECDHRva2VuUGF5bWVudAIjdG9rZW4gcGF5bWVudCBhc3NldCBkb2Vzbid0IGNvbm5lY3QACWxlbmRDb3VudAkBEUBleHRyTmF0aXZlKDEwNTUpAQIJbGVuZENvdW50ABBsZW5kQ3VycmVudENvdW50CQERQGV4dHJOYXRpdmUoMTA1NSkBAhBsZW5kQ3VycmVudENvdW50AQ5wYXJzZUlkdG9Bc3NldAEHYXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUHYXNzZXRJZAIcQ2FuJ3QgZmluZCBhc3NldCBieSBhc3NldCBpZAEMb25seUludGVybmFsAQZjYWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBQR1bml0CQACAQIST25seSBpbnRlcm5hbCBjYWxsAQ10cmFuc2Zlck9yTm90AgJ0bwdhc3NldElkAwkAAAIFAnRvBQR0aGlzCQELU3RyaW5nRW50cnkCAgRzbXRoAgRzbXRoCQEOU2NyaXB0VHJhbnNmZXIDBQJ0bwABBQdhc3NldElkAQ9jaGVja0Fzc2V0T3duZXICBmNhbGxlcgdhc3NldElkAwkAAAIJAPAHAgUGY2FsbGVyCQDZBAEFB2Fzc2V0SWQAAQUEdW5pdAkAAgECEE9ubHkgYXNzZXQgb3duZXIBDGNoZWNrUGF5bWVudAIIcGF5bWVudHMGYW1vdW50AwkAZwIICQCRAwIFCHBheW1lbnRzAAAGYW1vdW50BQZhbW91bnQFBHVuaXQJAAIBAhVhbW91bnQgbGVzcyB0aGVuIG5lZWQBEGNoZWNrQXNzZXRFeGlzdHMBB2Fzc2V0SWQDCQERQGV4dHJOYXRpdmUoMTA1NikBBQdhc3NldElkCQACAQIWdGhpcyB0b2tlbiBhbHJlYWR5IHVzZQUEdW5pdAELZ2V0TGVuZEpzb24BBmxlbmRJZAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICAgVsZW5kLQUMbGVuZElkU3RyaW5nAQZnZXRLZXkCCGxlbmRKc29uA2tleQQPdGltZVVuaXRTZWNvbmRzCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQhsZW5kSnNvbgkAzAgCBQNrZXkFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwUPdGltZVVuaXRTZWNvbmRzCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAQxnZXRSZW50Q291bnQBBmxlbmRJZAQMbGVuZElkU3RyaW5nCQCkAwEFBmxlbmRJZAkBEUBleHRyTmF0aXZlKDEwNTUpAQkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwEMY2FsY0xlbmRDb3N0AgZsZW5kSWQPdGltZVVuaXRTZWNvbmRzBAhsZW5kSnNvbgkBC2dldExlbmRKc29uAQUGbGVuZElkBBN0aW1lVW5pdFByaWNlU3RyaW5nCQEGZ2V0S2V5AgUIbGVuZEpzb24CDXRpbWVVbml0UHJpY2UDCQAAAgUTdGltZVVuaXRQcmljZVN0cmluZwUTdGltZVVuaXRQcmljZVN0cmluZwQNdGltZVVuaXRQcmljZQkBDXBhcnNlSW50VmFsdWUBBRN0aW1lVW5pdFByaWNlU3RyaW5nCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdFByaWNlCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCgFpAQlzZXRTdHJpbmcCBF9rZXkGX3ZhbHVlCQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBBnNldEludAIEX2tleQZfdmFsdWUJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBDEludGVnZXJFbnRyeQIFBF9rZXkFBl92YWx1ZQUDbmlsAWkBC2RlbGV0ZUVudHJ5AQRfa2V5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtEZWxldGVFbnRyeQEFBF9rZXkFA25pbAFpAQRpbml0BA9fY29sbGVjdGlvbk5hbWUHX3N5bWJvbAxfZGVzY3JpcHRpb24IX2Jhc2VVUkkJAQt2YWx1ZU9yRWxzZQIJAQxvbmx5SW50ZXJuYWwBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgIOY29sbGVjdGlvbk5hbWUFD19jb2xsZWN0aW9uTmFtZQkAzAgCCQELU3RyaW5nRW50cnkCAgZzeW1ib2wFB19zeW1ib2wJAMwIAgkBC1N0cmluZ0VudHJ5AgILZGVzY3JpcHRpb24FDF9kZXNjcmlwdGlvbgkAzAgCCQEMSW50ZWdlckVudHJ5AgILdG90YWxBbW91bnQAAAkAzAgCCQELU3RyaW5nRW50cnkCAgdiYXNlVVJJBQhfYmFzZVVSSQUDbmlsAWkBB3NldFVzZXIDB2Fzc2V0SWQEdXNlcgdleHBpcmVzBANyZXMJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIEdXNlcgkAzAgCAgdleHBpcmVzBQNuaWwJAMwIAgkAzAgCBQR1c2VyCQDMCAIFB2V4cGlyZXMFA25pbAUDbmlsBQNuaWwDCQAAAgUDcmVzBQNyZXMJAJQKAgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgICB3VzZXJPZi0FB2Fzc2V0SWQKAAFABQNyZXMDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBQNuaWwFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ9zZXRUb2tlblBheW1lbnQBC2Fzc2V0QmluYXJ5CQELdmFsdWVPckVsc2UCCQEMb25seUludGVybmFsAQgFAWkGY2FsbGVyCQDMCAIJAQtCaW5hcnlFbnRyeQICDHRva2VuUGF5bWVudAULYXNzZXRCaW5hcnkFA25pbAFpAQRtaW50AQJ0bwQHdG9rZW5JZAkAZAIFC3RvdGFsQW1vdW50AAEEDXRva2VuSWRTdHJpbmcJAKQDAQUHdG9rZW5JZAQHcHJlTmFtZQkArAICCQCsAgIFBnN5bWJvbAIBIwUNdG9rZW5JZFN0cmluZwQEbmFtZQMJAGcCABAJALECAQUHcHJlTmFtZQUHcHJlTmFtZQUNdG9rZW5JZFN0cmluZwQIdG9rZW5VUkkJAKwCAgUHYmFzZVVSSQUNdG9rZW5JZFN0cmluZwQEanNvbgoAAUAJAPwHBAUIZEFwcEpzb24CCG1ha2VKU09OCQDMCAIJAMwIAgIIdG9rZW5VUkkFA25pbAkAzAgCCQDMCAIFCHRva2VuVVJJBQNuaWwFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwQFYXNzZXQJAMMIBwUEbmFtZQUEanNvbgABAAAHBQR1bml0BQZoZWlnaHQEB2Fzc2V0SWQJALgIAQUFYXNzZXQECXRvQWRkcmVzcwkBB0FkZHJlc3MBCQDZBAEFAnRvBAh0cmFuc2ZlcgkBDXRyYW5zZmVyT3JOb3QCBQl0b0FkZHJlc3MFB2Fzc2V0SWQDCQAAAgUIdHJhbnNmZXIFCHRyYW5zZmVyCQDMCAIFBWFzc2V0CQDMCAIFCHRyYW5zZmVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCAgt0b3RhbEFtb3VudAUHdG9rZW5JZAkAzAgCCQELU3RyaW5nRW50cnkCBQRuYW1lBQh0b2tlblVSSQUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBCGluaXRMZW5kBAdhc3NldElkD3RpbWVVbml0U2Vjb25kcw10aW1lVW5pdFByaWNlDXRpbWVVbml0Q291bnQJAQt2YWx1ZU9yRWxzZQIJAQ9jaGVja0Fzc2V0T3duZXICCAUBaQZjYWxsZXIFB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJARBjaGVja0Fzc2V0RXhpc3RzAQUHYXNzZXRJZAQFYXNzZXQJAQ5wYXJzZUlkdG9Bc3NldAEFB2Fzc2V0SWQECHRva2VuVVJJCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCCAUFYXNzZXQLZGVzY3JpcHRpb24JAMwIAgIIdG9rZW5VUkkFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQh0b2tlblVSSQUIdG9rZW5VUkkECGxlbmRKc29uCgABQAkA/AcEBQhkQXBwSnNvbgIIbWFrZUpTT04JAMwIAgkAzAgCAhJzdXBwb3J0ZWRJbnRlcmZhY2UJAMwIAgIIYXNzZXRkSWQJAMwIAgIIdG9rZW5VUkkJAMwIAgIFb3duZXIJAMwIAgIPdGltZVVuaXRTZWNvbmRzCQDMCAICDXRpbWVVbml0UHJpY2UJAMwIAgINdGltZVVuaXRDb3VudAkAzAgCAg5zdGFydFRpbWVzdGFtcAkAzAgCAgxlbmRUaW1lc3RhbXAJAMwIAgIHZGVwb3NpdAkAzAgCAgdjbGFpbWVkBQNuaWwJAMwIAgkAzAgCAgEwCQDMCAIFB2Fzc2V0SWQJAMwIAgUIdG9rZW5VUkkJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ90aW1lVW5pdFNlY29uZHMJAMwIAgkApAMBBQ10aW1lVW5pdFByaWNlCQDMCAIJAKQDAQUNdGltZVVuaXRDb3VudAkAzAgCCQCkAwEIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAKQDAQkAZAIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQBoAgUPdGltZVVuaXRTZWNvbmRzBQ10aW1lVW5pdENvdW50CQDMCAICATAJAMwIAgIBMAUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIbGVuZEpzb24FCGxlbmRKc29uBAxsZW5kSWRTdHJpbmcJAKQDAQUJbGVuZENvdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCAglsZW5kQ291bnQJAGQCBQlsZW5kQ291bnQAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgIQbGVuZEN1cnJlbnRDb3VudAkAZAIFEGxlbmRDdXJyZW50Q291bnQAAQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAg9sZW5kLXJlbnRDb3VudC0FDGxlbmRJZFN0cmluZwAACQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgIFbGVuZC0FDGxlbmRJZFN0cmluZwUIbGVuZEpzb24JAMwIAgkBDEJvb2xlYW5FbnRyeQIFB2Fzc2V0SWQGBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIaW5pdFJlbnQCBmxlbmRJZA10aW1lVW5pdENvdW50CQELdmFsdWVPckVsc2UCCQEMY2hlY2tQYXltZW50AggFAWkIcGF5bWVudHMJAQxjYWxjTGVuZENvc3QCBQZsZW5kSWQFDXRpbWVVbml0Q291bnQEDGxlbmRJZFN0cmluZwkApAMBBQZsZW5kSWQECGxlbmRKc29uCQERQGV4dHJOYXRpdmUoMTA1OCkBCQCsAgICBWxlbmQtBQxsZW5kSWRTdHJpbmcEBnJlbnRJZAkBDGdldFJlbnRDb3VudAEFBmxlbmRJZAQMcmVudElkU3RyaW5nCQCkAwEFBnJlbnRJZAQPdGltZVVuaXRTZWNvbmRzCgABQAkA/AcEBQhkQXBwSnNvbgINcmVhZEJ5SlNPTktleQkAzAgCBQhsZW5kSnNvbgkAzAgCAg90aW1lVW5pdFNlY29uZHMFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwMJAAACBQ90aW1lVW5pdFNlY29uZHMFD3RpbWVVbml0U2Vjb25kcwQSdGltZVVuaXRTZWNvbmRzSW50CQENcGFyc2VJbnRWYWx1ZQEFD3RpbWVVbml0U2Vjb25kcwMJAAACBRJ0aW1lVW5pdFNlY29uZHNJbnQFEnRpbWVVbml0U2Vjb25kc0ludAQIcmVudEpzb24KAAFACQD8BwQFCGRBcHBKc29uAghtYWtlSlNPTgkAzAgCCQDMCAICCGN1c3RvbWVyCQDMCAICDXRpbWVVbml0Q291bnQJAMwIAgIOc3RhcnRUaW1lc3RhbXAJAMwIAgIMZW5kVGltZXN0YW1wCQDMCAICBmNsb3NlZAUDbmlsCQDMCAIJAMwIAgkApQgBCAUBaQZjYWxsZXIJAMwIAgkApAMBBQ10aW1lVW5pdENvdW50CQDMCAIJAKQDAQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkApAMBCQBkAggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAGgCBRJ0aW1lVW5pdFNlY29uZHNJbnQFDXRpbWVVbml0Q291bnQJAMwIAgIBMAUDbmlsBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUIcmVudEpzb24FCHJlbnRKc29uCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICD2xlbmQtcmVudENvdW50LQUMbGVuZElkU3RyaW5nCQBkAgUGcmVudElkAAEJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKwCAgIKbGVuZC1yZW50LQUMbGVuZElkU3RyaW5nAgEtBQxyZW50SWRTdHJpbmcFCHJlbnRKc29uBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEEdGVzdAEHYXNzZXRJZAkAzAgCCQEMQm9vbGVhbkVudHJ5AgIFRGVidWcJARFAZXh0ck5hdGl2ZSgxMDU2KQEFB2Fzc2V0SWQFA25pbAAnM8+J",
    "height": 2500123,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9eQm5r9ytBKkbfx5ZpYvgkxYMgBh2DJ13Unkoze3U5EQ
Next: DoztwzHuEqVPwc8FXwc1h9AQbehbedTX8rhHemN6r8Za

Diff: 

OldNewDifferences
4242 func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
4343     then unit
4444     else throw("amount less then need")
45+
46+
47+func checkAssetExists (assetId) = if (getBooleanValue(assetId))
48+    then throw("this token already use")
49+    else unit
4550 
4651 
4752 func getLendJson (lendId) = {
148153 
149154 
150155 @Callable(i)
151-func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
156+func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
152157     let asset = parseIdtoAsset(assetId)
153158     let tokenURI = {
154159         let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
167172             if ((lendJson == lendJson))
168173                 then {
169174                     let lendIdString = toString(lendCount)
170-[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson)]
175+[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
171176                     }
172177                 else throw("Strict value is not equal to itself.")
173178             }
174179         else throw("Strict value is not equal to itself.")
175-    })
180+    }))
176181 
177182 
178183 
209214     })
210215 
211216 
217+
218+@Callable(i)
219+func test (assetId) = [BooleanEntry("Debug", getBooleanValue(assetId))]
220+
221+

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let collectionName = getStringValue("collectionName")
55 
66 let symbol = getStringValue("symbol")
77 
88 let description = getStringValue("description")
99 
1010 let totalAmount = getIntegerValue("totalAmount")
1111 
1212 let baseURI = getStringValue("baseURI")
1313 
1414 let dAppJson = Address(fromBase58String("3MrGaZVRhknEGfHJ19ttUPNnDRoFqcHhVN7"))
1515 
1616 let tokenPayment = getBinaryValue("tokenPayment")
1717 
1818 let tokenPaymentAsset = valueOrErrorMessage(assetInfo(getBinaryValue("tokenPayment")), "token payment asset doesn't connect")
1919 
2020 let lendCount = getIntegerValue("lendCount")
2121 
2222 let lendCurrentCount = getIntegerValue("lendCurrentCount")
2323 
2424 func parseIdtoAsset (assetId) = valueOrErrorMessage(assetInfo(fromBase58String(assetId)), "Can't find asset by asset id")
2525 
2626 
2727 func onlyInternal (caller) = if ((caller == this))
2828     then unit
2929     else throw("Only internal call")
3030 
3131 
3232 func transferOrNot (to,assetId) = if ((to == this))
3333     then StringEntry("smth", "smth")
3434     else ScriptTransfer(to, 1, assetId)
3535 
3636 
3737 func checkAssetOwner (caller,assetId) = if ((assetBalance(caller, fromBase58String(assetId)) == 1))
3838     then unit
3939     else throw("Only asset owner")
4040 
4141 
4242 func checkPayment (payments,amount) = if ((payments[0].amount >= amount))
4343     then unit
4444     else throw("amount less then need")
45+
46+
47+func checkAssetExists (assetId) = if (getBooleanValue(assetId))
48+    then throw("this token already use")
49+    else unit
4550 
4651 
4752 func getLendJson (lendId) = {
4853     let lendIdString = toString(lendId)
4954     getStringValue(("lend-" + lendIdString))
5055     }
5156 
5257 
5358 func getKey (lendJson,key) = {
5459     let timeUnitSeconds = {
5560         let @ = invoke(dAppJson, "readByJSONKey", [lendJson, key], nil)
5661         if ($isInstanceOf(@, "String"))
5762             then @
5863             else throw(($getType(@) + " couldn't be cast to String"))
5964         }
6065     if ((timeUnitSeconds == timeUnitSeconds))
6166         then timeUnitSeconds
6267         else throw("Strict value is not equal to itself.")
6368     }
6469 
6570 
6671 func getRentCount (lendId) = {
6772     let lendIdString = toString(lendId)
6873     getIntegerValue(("lend-rentCount-" + lendIdString))
6974     }
7075 
7176 
7277 func calcLendCost (lendId,timeUnitSeconds) = {
7378     let lendJson = getLendJson(lendId)
7479     let timeUnitPriceString = getKey(lendJson, "timeUnitPrice")
7580     if ((timeUnitPriceString == timeUnitPriceString))
7681         then {
7782             let timeUnitPrice = parseIntValue(timeUnitPriceString)
7883             (timeUnitSeconds * timeUnitPrice)
7984             }
8085         else throw("Strict value is not equal to itself.")
8186     }
8287 
8388 
8489 @Callable(i)
8590 func setString (_key,_value) = valueOrElse(onlyInternal(i.caller), [StringEntry(_key, _value)])
8691 
8792 
8893 
8994 @Callable(i)
9095 func setInt (_key,_value) = valueOrElse(onlyInternal(i.caller), [IntegerEntry(_key, _value)])
9196 
9297 
9398 
9499 @Callable(i)
95100 func deleteEntry (_key) = valueOrElse(onlyInternal(i.caller), [DeleteEntry(_key)])
96101 
97102 
98103 
99104 @Callable(i)
100105 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)])
101106 
102107 
103108 
104109 @Callable(i)
105110 func setUser (assetId,user,expires) = {
106111     let res = invoke(dAppJson, "makeJSON", [["user", "expires"], [user, expires]], nil)
107112     if ((res == res))
108113         then $Tuple2([StringEntry(("userOf-" + assetId), {
109114             let @ = res
110115             if ($isInstanceOf(@, "String"))
111116                 then @
112117                 else throw(($getType(@) + " couldn't be cast to String"))
113118             })], res)
114119         else throw("Strict value is not equal to itself.")
115120     }
116121 
117122 
118123 
119124 @Callable(i)
120125 func setTokenPayment (assetBinary) = valueOrElse(onlyInternal(i.caller), [BinaryEntry("tokenPayment", assetBinary)])
121126 
122127 
123128 
124129 @Callable(i)
125130 func mint (to) = {
126131     let tokenId = (totalAmount + 1)
127132     let tokenIdString = toString(tokenId)
128133     let preName = ((symbol + "#") + tokenIdString)
129134     let name = if ((16 >= size(preName)))
130135         then preName
131136         else tokenIdString
132137     let tokenURI = (baseURI + tokenIdString)
133138     let json = {
134139         let @ = invoke(dAppJson, "makeJSON", [["tokenURI"], [tokenURI]], nil)
135140         if ($isInstanceOf(@, "String"))
136141             then @
137142             else throw(($getType(@) + " couldn't be cast to String"))
138143         }
139144     let asset = Issue(name, json, 1, 0, false, unit, height)
140145     let assetId = calculateAssetId(asset)
141146     let toAddress = Address(fromBase58String(to))
142147     let transfer = transferOrNot(toAddress, assetId)
143148     if ((transfer == transfer))
144149         then [asset, transfer, IntegerEntry("totalAmount", tokenId), StringEntry(name, tokenURI)]
145150         else throw("Strict value is not equal to itself.")
146151     }
147152 
148153 
149154 
150155 @Callable(i)
151-func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), {
156+func initLend (assetId,timeUnitSeconds,timeUnitPrice,timeUnitCount) = valueOrElse(checkAssetOwner(i.caller, assetId), valueOrElse(checkAssetExists(assetId), {
152157     let asset = parseIdtoAsset(assetId)
153158     let tokenURI = {
154159         let @ = invoke(dAppJson, "readByJSONKey", [asset.description, "tokenURI"], nil)
155160         if ($isInstanceOf(@, "String"))
156161             then @
157162             else throw(($getType(@) + " couldn't be cast to String"))
158163         }
159164     if ((tokenURI == tokenURI))
160165         then {
161166             let lendJson = {
162167                 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)
163168                 if ($isInstanceOf(@, "String"))
164169                     then @
165170                     else throw(($getType(@) + " couldn't be cast to String"))
166171                 }
167172             if ((lendJson == lendJson))
168173                 then {
169174                     let lendIdString = toString(lendCount)
170-[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson)]
175+[IntegerEntry("lendCount", (lendCount + 1)), IntegerEntry("lendCurrentCount", (lendCurrentCount + 1)), IntegerEntry(("lend-rentCount-" + lendIdString), 0), StringEntry(("lend-" + lendIdString), lendJson), BooleanEntry(assetId, true)]
171176                     }
172177                 else throw("Strict value is not equal to itself.")
173178             }
174179         else throw("Strict value is not equal to itself.")
175-    })
180+    }))
176181 
177182 
178183 
179184 @Callable(i)
180185 func initRent (lendId,timeUnitCount) = valueOrElse(checkPayment(i.payments, calcLendCost(lendId, timeUnitCount)), {
181186     let lendIdString = toString(lendId)
182187     let lendJson = getStringValue(("lend-" + lendIdString))
183188     let rentId = getRentCount(lendId)
184189     let rentIdString = toString(rentId)
185190     let timeUnitSeconds = {
186191         let @ = invoke(dAppJson, "readByJSONKey", [lendJson, "timeUnitSeconds"], nil)
187192         if ($isInstanceOf(@, "String"))
188193             then @
189194             else throw(($getType(@) + " couldn't be cast to String"))
190195         }
191196     if ((timeUnitSeconds == timeUnitSeconds))
192197         then {
193198             let timeUnitSecondsInt = parseIntValue(timeUnitSeconds)
194199             if ((timeUnitSecondsInt == timeUnitSecondsInt))
195200                 then {
196201                     let rentJson = {
197202                         let @ = invoke(dAppJson, "makeJSON", [["customer", "timeUnitCount", "startTimestamp", "endTimestamp", "closed"], [toString(i.caller), toString(timeUnitCount), toString(lastBlock.timestamp), toString((lastBlock.timestamp + (timeUnitSecondsInt * timeUnitCount))), "0"]], nil)
198203                         if ($isInstanceOf(@, "String"))
199204                             then @
200205                             else throw(($getType(@) + " couldn't be cast to String"))
201206                         }
202207                     if ((rentJson == rentJson))
203208                         then [IntegerEntry(("lend-rentCount-" + lendIdString), (rentId + 1)), StringEntry(((("lend-rent-" + lendIdString) + "-") + rentIdString), rentJson)]
204209                         else throw("Strict value is not equal to itself.")
205210                     }
206211                 else throw("Strict value is not equal to itself.")
207212             }
208213         else throw("Strict value is not equal to itself.")
209214     })
210215 
211216 
217+
218+@Callable(i)
219+func test (assetId) = [BooleanEntry("Debug", getBooleanValue(assetId))]
220+
221+
github/deemru/w8io/169f3d6 
55.32 ms ◑