w8 · tx · Bz2···q9n

tx · Bz2T2jRARzgyDGz7McSDnuVUqwxpWNKS6LZbaPSJXq9n

3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx:  -0.10000000 Waves

2022.11.28 08:35 [2336528] smart account 3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Bz2T2jRARzgyDGz7McSDnuVUqwxpWNKS6LZbaPSJXq9n",
    "fee": 10000000,
    "feeAssetId": null,
    "timestamp": 1669613793577,
    "version": 2,
    "chainId": 84,
    "sender": "3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx",
    "senderPublicKey": "EKZmHJ5bK3qKKgRdq8rAamt9qrDbVMLARzRqXoQW258v",
    "proofs": [
        "5x8DoEAsho8AuwGhWsK9DL52kihAE3Px2KPe3ntyD5kV4cBRHqiYNBjkvjSN1CEF55p6Svw9YbYbJ4JQtHQUXNQW"
    ],
    "script": "base64:BgJACAISCwoJCAgICAgBCAgIEgQKAggIEgMKAQgSAwoBARIDCgEBEgUKAwEICBIDCgEIEgMKAQgSAwoBCBIECgIIAScACXNlcGFyYXRvcgIBXwAIa0F1Y3Rpb24CB2F1Y3Rpb24ABWtTZWxsAgRzZWxsAAhrVHJ1c3RlZAIHdHJ1c3RlZAAGa1ByaWNlAgVwcmljZQEKZ2V0U2xvdEtleQIGcHJlZml4BW5mdElkCQCsAgIJAKwCAgUGcHJlZml4BQlzZXBhcmF0b3IJANgEAQUFbmZ0SWQBC2dldFByaWNlS2V5AQVuZnRJZAkArAICCQCsAgIFBmtQcmljZQUJc2VwYXJhdG9yCQDYBAEFBW5mdElkAQpnZXRTZWxsS2V5AQVuZnRJZAkArAICCQCsAgIFBWtTZWxsBQlzZXBhcmF0b3IJANgEAQUFbmZ0SWQBDWdldEF1Y3Rpb25LZXkBBW5mdElkCQCsAgIJAKwCAgUIa0F1Y3Rpb24FCXNlcGFyYXRvcgkA2AQBBQVuZnRJZAENZ2V0VHJ1c3RlZEtleQEGaXNzdWVyCQCsAgIJAKwCAgUIa1RydXN0ZWQFCXNlcGFyYXRvcgkApQgBBQZpc3N1ZXIBCWFkZFRvTGlzdAIFYWNjdW0JbmV4dFZhbHVlCQDOCAIFBWFjY3VtCQDMCAIFCW5leHRWYWx1ZQUDbmlsAQpqb2luU3RyaW5nAQZwYXJhbXMEBmxlbmd0aAkAkAMBBQZwYXJhbXMDCQAAAgUGbGVuZ3RoAAAJAAIBAg1FbXB0eSAgcGFyYW1zAwkAAAIFBmxlbmd0aAABCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDEJAQUkZjBfMgIJAQUkZjBfMQIFBSRhY2MwAAAAAQUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAACCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDIJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACBQlzZXBhcmF0b3IDCQAAAgUGbGVuZ3RoAAMJALkJAgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWFkZFRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMwkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAAECQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDQJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAAFCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFBQlzZXBhcmF0b3IJAAIBAiFNYXggbnVtYmVyIG9mIHBhcmFtZXRlcnMgZXhjZWVkZWQBDnBhcnNlQXNBdWN0aW9uAQdkZXRhaWxzBANyZXMJALUJAgUHZGV0YWlscwUJc2VwYXJhdG9yCQCXCgUJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUDcmVzAAAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMAAQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwACCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDcmVzAAMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMABAELcGFyc2VBc1NlbGwBB2RldGFpbHMEA3JlcwkAtQkCBQdkZXRhaWxzBQlzZXBhcmF0b3IJAJQKAgkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQNyZXMAAAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwABAQpqb2luU3RydWN0AQZwYXJhbXMEByRtYXRjaDAFBnBhcmFtcwMJAAECBQckbWF0Y2gwAh4oQWRkcmVzcywgSW50LCBTdHJpbmcsIFN0cmluZykEB2F1Y3Rpb24FByRtYXRjaDAJAQpqb2luU3RyaW5nAQkAzAgCCQClCAEIBQdhdWN0aW9uAl8xCQDMCAIJAKQDAQgFB2F1Y3Rpb24CXzIJAMwIAggFB2F1Y3Rpb24CXzMJAMwIAggFB2F1Y3Rpb24CXzQFA25pbAMJAAECBQckbWF0Y2gwAg4oQWRkcmVzcywgSW50KQQEc2VsbAUHJG1hdGNoMAkBCmpvaW5TdHJpbmcBCQDMCAIJAKUIAQgFBHNlbGwCXzEJAMwIAgkApAMBCAUEc2VsbAJfMgUDbmlsCQACAQITV3JvbmcgcGFyYW1zIHR1cHBsZQEKc2V0QXVjdGlvbgUGc2VsbGVyBW5mdElkCnN0YXJ0UHJpY2UFc3RhcnQDZW5kCQELU3RyaW5nRW50cnkCCQENZ2V0QXVjdGlvbktleQEFBW5mdElkCQEKam9pblN0cnVjdAEJAJYKBAUGc2VsbGVyBQpzdGFydFByaWNlBQVzdGFydAUDZW5kAQdzZXRTZWxsAwVuZnRJZAZjZWxsZXIFcHJpY2UJAQtTdHJpbmdFbnRyeQIJAQpnZXRTZWxsS2V5AQUFbmZ0SWQJAQpqb2luU3RydWN0AQkAlAoCBQZjZWxsZXIFBXByaWNlAQpnZXRBdWN0aW9uAQVuZnRJZAkBBXZhbHVlAQkAnQgCBQR0aGlzCQENZ2V0QXVjdGlvbktleQEFBW5mdElkAQdnZXRTZWxsAQVuZnRJZAkBBXZhbHVlAQkAnQgCBQR0aGlzCQEKZ2V0U2VsbEtleQEFBW5mdElkARhjYWxjUHJpY2VBdEN1cnJlbnRNb21lbnQCB2Fzc2V0SWQGbW9tZW50BAdkZXRhaWxzCQEKZ2V0QXVjdGlvbgEFB2Fzc2V0SWQECyR0MDI3NTUyODU5CQEOcGFyc2VBc0F1Y3Rpb24BBQdkZXRhaWxzBAZzZWxsZXIIBQskdDAyNzU1Mjg1OQJfMQQPc3RhcnRQcmljZVZhbHVlCAULJHQwMjc1NTI4NTkCXzIEDWVuZFByaWNlVmFsdWUIBQskdDAyNzU1Mjg1OQJfMwQQc3RhcnRQZXJpb2RWYWx1ZQgFCyR0MDI3NTUyODU5Al80BA5lbmRQZXJpb2RWYWx1ZQgFCyR0MDI3NTUyODU5Al81AwkAZwIFBm1vbWVudAUOZW5kUGVyaW9kVmFsdWUJAJQKAgUGc2VsbGVyBQ1lbmRQcmljZVZhbHVlBApkZWx0YVByaWNlCQBlAgUPc3RhcnRQcmljZVZhbHVlBQ1lbmRQcmljZVZhbHVlBAZwZXJpb2QJAGUCBQ5lbmRQZXJpb2RWYWx1ZQUQc3RhcnRQZXJpb2RWYWx1ZQQHc3BlbmRlZAkAZQIFBm1vbWVudAUQc3RhcnRQZXJpb2RWYWx1ZQkAlAoCBQZzZWxsZXIJAGUCBQ9zdGFydFByaWNlVmFsdWUJAGsDBQdzcGVuZGVkBQpkZWx0YVByaWNlBQZwZXJpb2QBBWlzTmZ0AQdhc3NldElkBAckbWF0Y2gwCQDsBwEFB2Fzc2V0SWQDCQABAgUHJG1hdGNoMAIFQXNzZXQEBXRva2VuBQckbWF0Y2gwAwMJAAACCAUFdG9rZW4IZGVjaW1hbHMAAAkAAAIIBQV0b2tlbghxdWFudGl0eQABBwkAAAIIBQV0b2tlbgpyZWlzc3VhYmxlBwcHAQxpc1RydXN0ZWROZnQBB2Fzc2V0SWQEBmlzc3VlcggJAQV2YWx1ZQEJAOwHAQUHYXNzZXRJZAZpc3N1ZXIJAQt2YWx1ZU9yRWxzZQIJAJsIAgUEdGhpcwkBDWdldFRydXN0ZWRLZXkBBQZpc3N1ZXIHAQtpc1NlbGxFeGlzdAEHYXNzZXRJZAkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwkBCmdldFNlbGxLZXkBBQdhc3NldElkAQ5pc0F1Y3Rpb25FeGlzdAEHYXNzZXRJZAkBCWlzRGVmaW5lZAEJAJ0IAgUEdGhpcwkBDWdldEF1Y3Rpb25LZXkBBQdhc3NldElkARJpc0NvcnJlY3RTZWxsUHJpY2UBBXByaWNlCQBmAgUFcHJpY2UAAAEWaXNDb3JyZWN0QXVjdGlvblByaWNlcwIKc3RhcnRQcmljZQhlbmRQcmljZQkAZgIFCnN0YXJ0UHJpY2UFCGVuZFByaWNlAQdpc0FkbWluAQZjYWxsZXIJAAACBQZjYWxsZXIFBHRoaXMBDWlzVmFsaWRDYWxsZXICBmNhbGxlcgZzZWxsZXIDCQAAAgUGY2FsbGVyBQR0aGlzBgkAAAIFBmNhbGxlcgUGc2VsbGVyAQ5pc0F1Y3Rpb25FbmRlZAIDbm93A2VuZAkAZgIFA25vdwUDZW5kAQ1pc0Vub3VnaEZ1bmRzAgdwYXltZW50EmN1cnJlbnRNb21lbnRQcmljZQkAZwIFB3BheW1lbnQFEmN1cnJlbnRNb21lbnRQcmljZQEHaXNXYXdlcwEHYXNzZXRJZAkAAAIFB2Fzc2V0SWQFBHVuaXQBDGlzQ29ycmVjdE5mdAEFbmZ0SWQDCQEBIQEJAQVpc05mdAEFBW5mdElkCQACAQIQVG9rZW4gaXMgbm90IE5mdAMJAQtpc1NlbGxFeGlzdAEFBW5mdElkCQACAQITU2VsbCBhbHJlYWR5IGV4aXN0cwMJAQ5pc0F1Y3Rpb25FeGlzdAEFBW5mdElkCQACAQIWQXVjdGlvbiBhbHJlYWR5IGV4aXN0cwUEdW5pdAERaXNDb3JyZWN0UGF5bWVudHMDDHBheW1lbnRBc3NldA1wYXltZW50QW1vdW50BXByaWNlAwkBASEBCQEHaXNXYXdlcwEFDHBheW1lbnRBc3NldAkAAgECGFBheW1lbnQgbXVzdCBiZSBhdCBXQVZFUwMJAQEhAQkBDWlzRW5vdWdoRnVuZHMCBQ1wYXltZW50QW1vdW50BQVwcmljZQkAAgECEE5vdCBlbm91Z2ggZnVuZHMFBHVuaXQBB2NhbGNGZWUAAAABDmNhbGNUcnVzdGVkRmVlAAAAARJyZXN1bHRGdW5kc0Ftb3VudHMDCWlzVHJ1c3RlZA1wYXltZW50QW1vdW50C2FjdHVhbFByaWNlAwUJaXNUcnVzdGVkCQCUCgIJAGUCBQthY3R1YWxQcmljZQkBDmNhbGNUcnVzdGVkRmVlAAkAZQIFDXBheW1lbnRBbW91bnQFC2FjdHVhbFByaWNlCQCUCgIJAGUCBQthY3R1YWxQcmljZQkBB2NhbGNGZWUACQBlAgUNcGF5bWVudEFtb3VudAULYWN0dWFsUHJpY2UBB2dldFNsb3QBBW5mdElkAwkBC2lzU2VsbEV4aXN0AQUFbmZ0SWQJAJQKAgUFa1NlbGwJAQdnZXRTZWxsAQUFbmZ0SWQDCQEOaXNBdWN0aW9uRXhpc3QBBQVuZnRJZAkAlAoCBQhrQXVjdGlvbgkBCmdldEF1Y3Rpb24BBQVuZnRJZAkAAgECElNsb3QgZG9lc25gdCBleGlzdAAEa0J1eQIDYnV5AAtBU0lNSV9UT0tFTgEgyfO3KK1nQRdNMgY1dCxkhGzviOKkmyfHFOqpH9CNn1QKAWkBCWNyZWF0ZU5mdAkIbmZ0X25hbWUJbmZ0X293bmVyD25mdF9kQXBwQWRkcmVzcwhuZnRfdHlwZQhuZnRfdGFncxFuZnRfc2VsbGluZ19wcmljZQ9uZnRfZGVzY3JpcHRpb24KbmZ0X29uU2VsbAhuZnRfZGF0YQQIbmV3VG9rZW4JAMIIBQUIbmZ0X25hbWUFD25mdF9kZXNjcmlwdGlvbgABAAAHBAdpc3N1ZUlkCQC4CAEFCG5ld1Rva2VuCQDMCAIFCG5ld1Rva2VuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdpc3N1ZUlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIFT3duZXIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIIbmZ0X3R5cGUFCG5mdF90eXBlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIIbmZ0X3RhZ3MFCG5mdF90YWdzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIPbmZ0X2RBcHBBZGRyZXNzBQ9uZnRfZEFwcEFkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIRbmZ0X3NlbGxpbmdfcHJpY2UFEW5mdF9zZWxsaW5nX3ByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIKbmZ0X29uU2VsbAUKbmZ0X29uU2VsbAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICCG5mdF9kYXRhBQhuZnRfZGF0YQUDbmlsAWkBCGlzc3VlTmZ0AgRuYW1lBG1ldGEECG5ld1Rva2VuCQDCCAUFBG5hbWUFBG1ldGEAAQAABwQHaXNzdWVJZAkAuAgBBQhuZXdUb2tlbgkAzAgCBQhuZXdUb2tlbgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQUHaXNzdWVJZAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICBU93bmVyCQClCAEIBQFpBmNhbGxlcgUDbmlsAWkBBmJ1eU5GVAEFbmZ0SUQEB2Fzc2V0SWQJANkEAQUFbmZ0SUQEBmFtb3VudAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEB2Ftb3VudDEJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAEGYW1vdW50BAVwcmljZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCiCAEJAKwCAgkArAICBQZrUHJpY2UFCXNlcGFyYXRvcgUFbmZ0SUQCHlRoZXJlIGlzIG5vIHByaWNlIGZvciB0aGlzIE5GVAQFb3duZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICCQCsAgIFBW5mdElEBQlzZXBhcmF0b3ICBU93bmVyAghObyBvd25lcgMJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUEdW5pdAkAAgECDFBheSBpbiB3YXZlcwMJAQIhPQIICQCRAwIIBQFpCHBheW1lbnRzAAEHYXNzZXRJZAULQVNJTUlfVE9LRU4JAAIBAgxQYXkgaW4gQVNJTUkDCQBmAgkBDXBhcnNlSW50VmFsdWUBBQVwcmljZQUGYW1vdW50CQACAQIVSW52YWxpZCBwYXltZW50IFdBVkVTCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdhc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQV2YWx1ZQEJAKYIAQUFb3duZXIJAQ1wYXJzZUludFZhbHVlAQUFcHJpY2UFBHVuaXQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBGtCdXkJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yCQCkAwEFBmFtb3VudAUDbmlsAWkBB3NlbGxORlQBBXByaWNlBAskdDA3NDExNzQ5NgkAlAoCCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAZ0b2tlbjAIBQskdDA3NDExNzQ5NgJfMQQHYW1vdW50MAgFCyR0MDc0MTE3NDk2Al8yAwkBASEBCQEFaXNOZnQBBQZ0b2tlbjAJAAIBAhBUb2tlbiBpcyBub3QgTkZUCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICBQZrUHJpY2UFCXNlcGFyYXRvcgkA2AQBCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAKQDAQUFcHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBWtTZWxsCQCsAgIJAKwCAgkA2AQBBQZ0b2tlbjAFCXNlcGFyYXRvcgkApAMBBQdhbW91bnQwBQNuaWwBaQEHYWRkU2VsbAEFcHJpY2UEBW5mdElkCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxpc0NvcnJlY3ROZnQBBQVuZnRJZAMJAQEhAQkBEmlzQ29ycmVjdFNlbGxQcmljZQEFBXByaWNlCQACAQIRUHJpY2UgbXVzdCBiZSA+IDAJAMwIAgkBB3NldFNlbGwDBQVuZnRJZAgFAWkGY2FsbGVyBQVwcmljZQUDbmlsAWkBCmFkZEF1Y3Rpb24DCnN0YXJ0UHJpY2UFc3RhcnQDZW5kBAVuZnRJZAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkCQELdmFsdWVPckVsc2UCCQEMaXNDb3JyZWN0TmZ0AQUFbmZ0SWQJAMwIAgkBCnNldEF1Y3Rpb24FCAUBaQZjYWxsZXIFBW5mdElkBQpzdGFydFByaWNlBQVzdGFydAUDZW5kCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFBW5mdElkBQlzZXBhcmF0b3ICCW5mdF9vd25lcgkApQgBCAUBaQZjYWxsZXIFA25pbAFpAQtidXlGcm9tU2xvdAEFbmZ0SWQECyR0MDg0MTY4NTA1CQCUCgIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEDHBheW1lbnRBc3NldAgFCyR0MDg0MTY4NTA1Al8xBA1wYXltZW50QW1vdW50CAULJHQwODQxNjg1MDUCXzIEB2Fzc2V0SWQJANkEAQUFbmZ0SWQECyR0MDg1NDk4NTg3CQEHZ2V0U2xvdAEFB2Fzc2V0SWQEBHR5cGUIBQskdDA4NTQ5ODU4NwJfMQQHZGV0YWlscwgFCyR0MDg1NDk4NTg3Al8yBAdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdhc3NldElkCQDMCAIJAQtEZWxldGVFbnRyeQEJAQpnZXRTbG90S2V5AgUEdHlwZQUHYXNzZXRJZAUDbmlsAwkAAAIFBHR5cGUFBWtTZWxsBAskdDA4NzI5ODc3NgkBC3BhcnNlQXNTZWxsAQUHZGV0YWlscwQGc2VsbGVyCAULJHQwODcyOTg3NzYCXzEECnByaWNlVmFsdWUIBQskdDA4NzI5ODc3NgJfMgkBC3ZhbHVlT3JFbHNlAgkBEWlzQ29ycmVjdFBheW1lbnRzAwUMcGF5bWVudEFzc2V0BQ1wYXltZW50QW1vdW50BQpwcmljZVZhbHVlBAskdDA4ODYxODk2MwkBEnJlc3VsdEZ1bmRzQW1vdW50cwMJAQxpc1RydXN0ZWROZnQBBQdhc3NldElkBQ1wYXltZW50QW1vdW50BQpwcmljZVZhbHVlBAxzZWxsZXJBbW91bnQIBQskdDA4ODYxODk2MwJfMQQLYnV5ZXJBbW91bnQIBQskdDA4ODYxODk2MwJfMgQKdXBkYXRlZFJlcwkAzggCBQdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBnNlbGxlcgUMc2VsbGVyQW1vdW50BQR1bml0BQNuaWwDCQBmAgULYnV5ZXJBbW91bnQAAAkAzggCBQp1cGRhdGVkUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYnV5ZXJBbW91bnQFBHVuaXQFA25pbAUKdXBkYXRlZFJlcwQLJHQwOTE4MDkyNDkJARhjYWxjUHJpY2VBdEN1cnJlbnRNb21lbnQCBQdhc3NldElkBQZoZWlnaHQEBnNlbGxlcggFCyR0MDkxODA5MjQ5Al8xBAthY3R1YWxQcmljZQgFCyR0MDkxODA5MjQ5Al8yCQELdmFsdWVPckVsc2UCCQERaXNDb3JyZWN0UGF5bWVudHMDBQxwYXltZW50QXNzZXQFDXBheW1lbnRBbW91bnQFC2FjdHVhbFByaWNlBAskdDA5MzM1OTQzOAkBEnJlc3VsdEZ1bmRzQW1vdW50cwMJAQxpc1RydXN0ZWROZnQBBQdhc3NldElkBQ1wYXltZW50QW1vdW50BQthY3R1YWxQcmljZQQMc2VsbGVyQW1vdW50CAULJHQwOTMzNTk0MzgCXzEEC2J1eWVyQW1vdW50CAULJHQwOTMzNTk0MzgCXzIECnVwZGF0ZWRSZXMJAM4IAgUHYmFzZVJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZzZWxsZXIFDHNlbGxlckFtb3VudAUEdW5pdAUDbmlsAwkAZgIFC2J1eWVyQW1vdW50AAAJAM4IAgUKdXBkYXRlZFJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2J1eWVyQW1vdW50BQR1bml0BQNuaWwFCnVwZGF0ZWRSZXMBaQELZGVjbGluZVNsb3QBBW5mdElkBAdhc3NldElkCQDZBAEFBW5mdElkBAskdDA5NzM5OTc3NwkBB2dldFNsb3QBBQdhc3NldElkBAR0eXBlCAULJHQwOTczOTk3NzcCXzEEB2RldGFpbHMIBQskdDA5NzM5OTc3NwJfMgQHYmFzZVJlcwkAzAgCCQELRGVsZXRlRW50cnkBCQEKZ2V0U2xvdEtleQIFBHR5cGUFB2Fzc2V0SWQFA25pbAMJAAACBQR0eXBlBQVrU2VsbAQLJHQwOTg2OTk5MTYJAQtwYXJzZUFzU2VsbAEFB2RldGFpbHMEBnNlbGxlcggFCyR0MDk4Njk5OTE2Al8xBApwcmljZVZhbHVlCAULJHQwOTg2OTk5MTYCXzIDCQEBIQEJAQ1pc1ZhbGlkQ2FsbGVyAggFAWkGY2FsbGVyBQZzZWxsZXIJAAIBAg5JbnZhbGlkIGNhbGxlcgkAzggCBQdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBnNlbGxlcgABBQdhc3NldElkBQNuaWwEDSR0MDEwMDYxMTAxNjUJAQ5wYXJzZUFzQXVjdGlvbgEFB2RldGFpbHMEBnNlbGxlcggFDSR0MDEwMDYxMTAxNjUCXzEED3N0YXJ0UHJpY2VWYWx1ZQgFDSR0MDEwMDYxMTAxNjUCXzIEDWVuZFByaWNlVmFsdWUIBQ0kdDAxMDA2MTEwMTY1Al8zBBBzdGFydFBlcmlvZFZhbHVlCAUNJHQwMTAwNjExMDE2NQJfNAQOZW5kUGVyaW9kVmFsdWUIBQ0kdDAxMDA2MTEwMTY1Al81AwkBASEBCQENaXNWYWxpZENhbGxlcgIIBQFpBmNhbGxlcgUGc2VsbGVyCQACAQIOSW52YWxpZCBjYWxsZXIDCQEBIQEJAQ5pc0F1Y3Rpb25FbmRlZAIFBmhlaWdodAUOZW5kUGVyaW9kVmFsdWUJAAIBAhdXYWl0IGZvciBlbmQgb2YgYXVjdGlvbgkAzggCBQdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBnNlbGxlcgABBQdhc3NldElkBQNuaWwBaQEQc2V0VHJ1c3RlZElzc3VlcgELdHJ1c3RlZEFkZHIDCQEBIQEJAQdpc0FkbWluAQgFAWkGY2FsbGVyCQACAQIKT25seSBhZG1pbgkAzAgCCQEMQm9vbGVhbkVudHJ5AgkBDWdldFRydXN0ZWRLZXkBCQERQGV4dHJOYXRpdmUoMTA2MikBBQt0cnVzdGVkQWRkcgYFA25pbAFpARdnZXRQcmljZUF0Q3VycmVudE1vbWVudAIFbmZ0SWQGbW9tZW50BAdhc3NldElkCQDZBAEFBW5mdElkBA0kdDAxMDcwNjEwNzY5CQEYY2FsY1ByaWNlQXRDdXJyZW50TW9tZW50AgUHYXNzZXRJZAUGbW9tZW50BAZzZWxsZXIIBQ0kdDAxMDcwNjEwNzY5Al8xBAVwcmljZQgFDSR0MDEwNzA2MTA3NjkCXzIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQtnZXRQcmljZUtleQEFB2Fzc2V0SWQFBXByaWNlBQNuaWwAT06XRQ==",
    "height": 2336528,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GAVjSyw788D5FD3fn21cAdgK7oG8eLzEHkbqjJFBnxBE
Next: 4XqNuttoRMYG8CqB3ie5iGsnFZsKV7ryYbixjYR9uHfZ

Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let separator = "_"
5 5  
6 6  let kAuction = "auction"
7 7  
8 8  let kSell = "sell"
9 9  
10 10  let kTrusted = "trusted"
11 11  
12 12  let kPrice = "price"
13 13  
14 14  func getSlotKey (prefix,nftId) = ((prefix + separator) + toBase58String(nftId))
15 15  
16 16  
17 17  func getPriceKey (nftId) = ((kPrice + separator) + toBase58String(nftId))
18 18  
19 19  
20 20  func getSellKey (nftId) = ((kSell + separator) + toBase58String(nftId))
21 21  
22 22  
23 23  func getAuctionKey (nftId) = ((kAuction + separator) + toBase58String(nftId))
24 24  
25 25  
26 26  func getTrustedKey (issuer) = ((kTrusted + separator) + toString(issuer))
27 27  
28 28  
29 29  func addToList (accum,nextValue) = (accum ++ [nextValue])
30 30  
31 31  
32 32  func joinString (params) = {
33 33      let length = size(params)
34 34      if ((length == 0))
35 35          then throw("Empty  params")
36 36          else if ((length == 1))
37 37              then makeString({
38 38                  let $l = params
39 39                  let $s = size($l)
40 40                  let $acc0 = nil
41 41                  func $f0_1 ($a,$i) =                 if (($i >= $s))
42 42                      then $a
43 43                      else addToList($a, $l[$i])
44 44  
45 45                  func $f0_2 ($a,$i) =                 if (($i >= $s))
46 46                      then $a
47 47                      else throw("List size exceeds 1")
48 48  
49 49                  $f0_2($f0_1($acc0, 0), 1)
50 50                  }, separator)
51 51              else if ((length == 2))
52 52                  then makeString({
53 53                      let $l = params
54 54                      let $s = size($l)
55 55                      let $acc0 = nil
56 56                      func $f0_1 ($a,$i) =                     if (($i >= $s))
57 57                          then $a
58 58                          else addToList($a, $l[$i])
59 59  
60 60                      func $f0_2 ($a,$i) =                     if (($i >= $s))
61 61                          then $a
62 62                          else throw("List size exceeds 2")
63 63  
64 64                      $f0_2($f0_1($f0_1($acc0, 0), 1), 2)
65 65                      }, separator)
66 66                  else if ((length == 3))
67 67                      then makeString({
68 68                          let $l = params
69 69                          let $s = size($l)
70 70                          let $acc0 = nil
71 71                          func $f0_1 ($a,$i) =                         if (($i >= $s))
72 72                              then $a
73 73                              else addToList($a, $l[$i])
74 74  
75 75                          func $f0_2 ($a,$i) =                         if (($i >= $s))
76 76                              then $a
77 77                              else throw("List size exceeds 3")
78 78  
79 79                          $f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
80 80                          }, separator)
81 81                      else if ((length == 4))
82 82                          then makeString({
83 83                              let $l = params
84 84                              let $s = size($l)
85 85                              let $acc0 = nil
86 86                              func $f0_1 ($a,$i) =                             if (($i >= $s))
87 87                                  then $a
88 88                                  else addToList($a, $l[$i])
89 89  
90 90                              func $f0_2 ($a,$i) =                             if (($i >= $s))
91 91                                  then $a
92 92                                  else throw("List size exceeds 4")
93 93  
94 94                              $f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
95 95                              }, separator)
96 96                          else if ((length == 5))
97 97                              then makeString({
98 98                                  let $l = params
99 99                                  let $s = size($l)
100 100                                  let $acc0 = nil
101 101                                  func $f0_1 ($a,$i) =                                 if (($i >= $s))
102 102                                      then $a
103 103                                      else addToList($a, $l[$i])
104 104  
105 105                                  func $f0_2 ($a,$i) =                                 if (($i >= $s))
106 106                                      then $a
107 107                                      else throw("List size exceeds 5")
108 108  
109 109                                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
110 110                                  }, separator)
111 111                              else throw("Max number of parameters exceeded")
112 112      }
113 113  
114 114  
115 115  func parseAsAuction (details) = {
116 116      let res = split(details, separator)
117 117      $Tuple5(addressFromStringValue(res[0]), parseIntValue(res[1]), parseIntValue(res[2]), parseIntValue(res[3]), parseIntValue(res[4]))
118 118      }
119 119  
120 120  
121 121  func parseAsSell (details) = {
122 122      let res = split(details, separator)
123 123      $Tuple2(addressFromStringValue(res[0]), parseIntValue(res[1]))
124 124      }
125 125  
126 126  
127 127  func joinStruct (params) = match params {
128 128      case auction: (Address, Int, String, String) => 
129 129          joinString([toString(auction._1), toString(auction._2), auction._3, auction._4])
130 130      case sell: (Address, Int) => 
131 131          joinString([toString(sell._1), toString(sell._2)])
132 132      case _ => 
133 133          throw("Wrong params tupple")
134 134  }
135 135  
136 136  
137 137  func setAuction (seller,nftId,startPrice,start,end) = StringEntry(getAuctionKey(nftId), joinStruct($Tuple4(seller, startPrice, start, end)))
138 138  
139 139  
140 140  func setSell (nftId,celler,price) = StringEntry(getSellKey(nftId), joinStruct($Tuple2(celler, price)))
141 141  
142 142  
143 143  func getAuction (nftId) = value(getString(this, getAuctionKey(nftId)))
144 144  
145 145  
146 146  func getSell (nftId) = value(getString(this, getSellKey(nftId)))
147 147  
148 148  
149 149  func calcPriceAtCurrentMoment (assetId,moment) = {
150 150      let details = getAuction(assetId)
151 151      let $t027552859 = parseAsAuction(details)
152 152      let seller = $t027552859._1
153 153      let startPriceValue = $t027552859._2
154 154      let endPriceValue = $t027552859._3
155 155      let startPeriodValue = $t027552859._4
156 156      let endPeriodValue = $t027552859._5
157 157      if ((moment >= endPeriodValue))
158 158          then $Tuple2(seller, endPriceValue)
159 159          else {
160 160              let deltaPrice = (startPriceValue - endPriceValue)
161 161              let period = (endPeriodValue - startPeriodValue)
162 162              let spended = (moment - startPeriodValue)
163 163              $Tuple2(seller, (startPriceValue - fraction(spended, deltaPrice, period)))
164 164              }
165 165      }
166 166  
167 167  
168 168  func isNft (assetId) = match assetInfo(assetId) {
169 169      case token: Asset => 
170 170          if (if ((token.decimals == 0))
171 171              then (token.quantity == 1)
172 172              else false)
173 173              then (token.reissuable == false)
174 174              else false
175 175      case _ => 
176 176          false
177 177  }
178 178  
179 179  
180 180  func isTrustedNft (assetId) = {
181 181      let issuer = value(assetInfo(assetId)).issuer
182 182      valueOrElse(getBoolean(this, getTrustedKey(issuer)), false)
183 183      }
184 184  
185 185  
186 186  func isSellExist (assetId) = isDefined(getString(this, getSellKey(assetId)))
187 187  
188 188  
189 189  func isAuctionExist (assetId) = isDefined(getString(this, getAuctionKey(assetId)))
190 190  
191 191  
192 192  func isCorrectSellPrice (price) = (price > 0)
193 193  
194 194  
195 195  func isCorrectAuctionPrices (startPrice,endPrice) = (startPrice > endPrice)
196 196  
197 197  
198 198  func isAdmin (caller) = (caller == this)
199 199  
200 200  
201 201  func isValidCaller (caller,seller) = if ((caller == this))
202 202      then true
203 203      else (caller == seller)
204 204  
205 205  
206 206  func isAuctionEnded (now,end) = (now > end)
207 207  
208 208  
209 209  func isEnoughFunds (payment,currentMomentPrice) = (payment >= currentMomentPrice)
210 210  
211 211  
212 212  func isWawes (assetId) = (assetId == unit)
213 213  
214 214  
215 215  func isCorrectNft (nftId) = if (!(isNft(nftId)))
216 216      then throw("Token is not Nft")
217 217      else if (isSellExist(nftId))
218 218          then throw("Sell already exists")
219 219          else if (isAuctionExist(nftId))
220 220              then throw("Auction already exists")
221 221              else unit
222 222  
223 223  
224 224  func isCorrectPayments (paymentAsset,paymentAmount,price) = if (!(isWawes(paymentAsset)))
225 225      then throw("Payment must be at WAVES")
226 226      else if (!(isEnoughFunds(paymentAmount, price)))
227 227          then throw("Not enough funds")
228 228          else unit
229 229  
230 230  
231 231  func calcFee () = 0
232 232  
233 233  
234 234  func calcTrustedFee () = 0
235 235  
236 236  
237 237  func resultFundsAmounts (isTrusted,paymentAmount,actualPrice) = if (isTrusted)
238 238      then $Tuple2((actualPrice - calcTrustedFee()), (paymentAmount - actualPrice))
239 239      else $Tuple2((actualPrice - calcFee()), (paymentAmount - actualPrice))
240 240  
241 241  
242 242  func getSlot (nftId) = if (isSellExist(nftId))
243 243      then $Tuple2(kSell, getSell(nftId))
244 244      else if (isAuctionExist(nftId))
245 245          then $Tuple2(kAuction, getAuction(nftId))
246 246          else throw("Slot doesn`t exist")
247 247  
248 248  
249 249  let kBuy = "buy"
250 250  
251 251  let ASIMI_TOKEN = base58'EbLVSrAi6vS3AkLwBinzZCvAXP2yYiFJEzj1MBVHcwZ5'
252 252  
253 253  @Callable(i)
254 254  func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
255 255      let newToken = Issue(nft_name, nft_description, 1, 0, false)
256 256      let issueId = calculateAssetId(newToken)
257 257  [newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller)), StringEntry(((toBase58String(issueId) + separator) + "nft_type"), nft_type), StringEntry(((toBase58String(issueId) + separator) + "nft_tags"), nft_tags), StringEntry(((toBase58String(issueId) + separator) + "nft_dAppAddress"), nft_dAppAddress), IntegerEntry(((toBase58String(issueId) + separator) + "nft_selling_price"), nft_selling_price), StringEntry(((toBase58String(issueId) + separator) + "nft_onSell"), nft_onSell), StringEntry(((toBase58String(issueId) + separator) + "nft_data"), nft_data)]
258 258      }
259 259  
260 260  
261 261  
262 262  @Callable(i)
263 263  func issueNft (name,meta) = {
264 264      let newToken = Issue(name, meta, 1, 0, false)
265 265      let issueId = calculateAssetId(newToken)
266 266  [newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller))]
267 267      }
268 268  
269 269  
270 270  
271 271  @Callable(i)
272 272  func buyNFT (nftID) = {
273 273      let assetId = fromBase58String(nftID)
274 274      let amount = value(i.payments[0].amount)
275 275      let amount1 = value(i.payments[1].amount)
276 276      let price = valueOrErrorMessage(getString(((kPrice + separator) + nftID)), "There is no price for this NFT")
277 277      let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
278 278      if ((i.payments[0].assetId != unit))
279 279          then throw("Pay in waves")
280 280          else if ((i.payments[1].assetId != ASIMI_TOKEN))
281 281              then throw("Pay in ASIMI")
282 282              else if ((parseIntValue(price) > amount))
283 283                  then throw("Invalid payment WAVES")
284 284                  else [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(value(addressFromString(owner)), parseIntValue(price), unit), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount)))]
285 285      }
286 286  
287 287  
288 288  
289 289  @Callable(i)
290 290  func sellNFT (price) = {
291 291      let $t074117496 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
292 292      let token0 = $t074117496._1
293 293      let amount0 = $t074117496._2
294 294      if (!(isNft(token0)))
295 295          then throw("Token is not NFT")
296 296          else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), toString(price)), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
297 297      }
298 298  
299 299  
300 300  
301 301  @Callable(i)
302 302  func addSell (price) = {
303 303      let nftId = value(i.payments[0].assetId)
304 304      valueOrElse(isCorrectNft(nftId), if (!(isCorrectSellPrice(price)))
305 305          then throw("Price must be > 0")
306 306          else [setSell(nftId, i.caller, price)])
307 307      }
308 308  
309 309  
310 310  
311 311  @Callable(i)
312 312  func addAuction (startPrice,start,end) = {
313 313      let nftId = value(i.payments[0].assetId)
314 314      valueOrElse(isCorrectNft(nftId), [setAuction(i.caller, nftId, startPrice, start, end), StringEntry(((toBase58String(nftId) + separator) + "nft_owner"), toString(i.caller))])
315 315      }
316 316  
317 317  
318 318  
319 319  @Callable(i)
320 320  func buyFromSlot (nftId) = {
321 321      let $t084168505 = $Tuple2(i.payments[0].assetId, value(i.payments[0].amount))
322 322      let paymentAsset = $t084168505._1
323 323      let paymentAmount = $t084168505._2
324 324      let assetId = fromBase58String(nftId)
325 325      let $t085498587 = getSlot(assetId)
326 326      let type = $t085498587._1
327 327      let details = $t085498587._2
328 328      let baseRes = [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(getSlotKey(type, assetId))]
329 329      if ((type == kSell))
330 330          then {
331 331              let $t087298776 = parseAsSell(details)
332 332              let seller = $t087298776._1
333 333              let priceValue = $t087298776._2
334 334              valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, priceValue), {
335 335                  let $t088618963 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, priceValue)
336 336                  let sellerAmount = $t088618963._1
337 337                  let buyerAmount = $t088618963._2
338 338                  let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
339 339                  if ((buyerAmount > 0))
340 340                      then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
341 341                      else updatedRes
342 342                  })
343 343              }
344 344          else {
345 345              let $t091809249 = calcPriceAtCurrentMoment(assetId, height)
346 346              let seller = $t091809249._1
347 347              let actualPrice = $t091809249._2
348 348              valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, actualPrice), {
349 349                  let $t093359438 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, actualPrice)
350 350                  let sellerAmount = $t093359438._1
351 351                  let buyerAmount = $t093359438._2
352 352                  let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
353 353                  if ((buyerAmount > 0))
354 354                      then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
355 355                      else updatedRes
356 356                  })
357 357              }
358 358      }
359 359  
360 360  
361 361  
362 362  @Callable(i)
363 363  func declineSlot (nftId) = {
364 364      let assetId = fromBase58String(nftId)
365 365      let $t097399777 = getSlot(assetId)
366 366      let type = $t097399777._1
367 367      let details = $t097399777._2
368 368      let baseRes = [DeleteEntry(getSlotKey(type, assetId))]
369 369      if ((type == kSell))
370 370          then {
371 371              let $t098699916 = parseAsSell(details)
372 372              let seller = $t098699916._1
373 373              let priceValue = $t098699916._2
374 374              if (!(isValidCaller(i.caller, seller)))
375 375                  then throw("Invalid caller")
376 376                  else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
377 377              }
378 378          else {
379 379              let $t01006110165 = parseAsAuction(details)
380 380              let seller = $t01006110165._1
381 381              let startPriceValue = $t01006110165._2
382 382              let endPriceValue = $t01006110165._3
383 383              let startPeriodValue = $t01006110165._4
384 384              let endPeriodValue = $t01006110165._5
385 385              if (!(isValidCaller(i.caller, seller)))
386 386                  then throw("Invalid caller")
387 387                  else if (!(isAuctionEnded(height, endPeriodValue)))
388 388                      then throw("Wait for end of auction")
389 389                      else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
390 390              }
391 391      }
392 392  
393 393  
394 394  
395 395  @Callable(i)
396 396  func setTrustedIssuer (trustedAddr) = if (!(isAdmin(i.caller)))
397 397      then throw("Only admin")
398 398      else [BooleanEntry(getTrustedKey(addressFromStringValue(trustedAddr)), true)]
399 399  
400 400  
401 401  
402 402  @Callable(i)
403 403  func getPriceAtCurrentMoment (nftId,moment) = {
404 404      let assetId = fromBase58String(nftId)
405 405      let $t01070610769 = calcPriceAtCurrentMoment(assetId, moment)
406 406      let seller = $t01070610769._1
407 407      let price = $t01070610769._2
408 408  [IntegerEntry(getPriceKey(assetId), price)]
409 409      }
410 410  
411 411

Old	New	Differences
1	1	{-# STDLIB_VERSION 6 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let separator = "_"
5	5
6	6	let kAuction = "auction"
7	7
8	8	let kSell = "sell"
9	9
10	10	let kTrusted = "trusted"
11	11
12	12	let kPrice = "price"
13	13
14	14	func getSlotKey (prefix,nftId) = ((prefix + separator) + toBase58String(nftId))
15	15
16	16
17	17	func getPriceKey (nftId) = ((kPrice + separator) + toBase58String(nftId))
18	18
19	19
20	20	func getSellKey (nftId) = ((kSell + separator) + toBase58String(nftId))
21	21
22	22
23	23	func getAuctionKey (nftId) = ((kAuction + separator) + toBase58String(nftId))
24	24
25	25
26	26	func getTrustedKey (issuer) = ((kTrusted + separator) + toString(issuer))
27	27
28	28
29	29	func addToList (accum,nextValue) = (accum ++ [nextValue])
30	30
31	31
32	32	func joinString (params) = {
33	33	let length = size(params)
34	34	if ((length == 0))
35	35	then throw("Empty params")
36	36	else if ((length == 1))
37	37	then makeString({
38	38	let $l = params
39	39	let $s = size($l)
40	40	let $acc0 = nil
41	41	func $f0_1 ($a,$i) = if (($i >= $s))
42	42	then $a
43	43	else addToList($a, $l[$i])
44	44
45	45	func $f0_2 ($a,$i) = if (($i >= $s))
46	46	then $a
47	47	else throw("List size exceeds 1")
48	48
49	49	$f0_2($f0_1($acc0, 0), 1)
50	50	}, separator)
51	51	else if ((length == 2))
52	52	then makeString({
53	53	let $l = params
54	54	let $s = size($l)
55	55	let $acc0 = nil
56	56	func $f0_1 ($a,$i) = if (($i >= $s))
57	57	then $a
58	58	else addToList($a, $l[$i])
59	59
60	60	func $f0_2 ($a,$i) = if (($i >= $s))
61	61	then $a
62	62	else throw("List size exceeds 2")
63	63
64	64	$f0_2($f0_1($f0_1($acc0, 0), 1), 2)
65	65	}, separator)
66	66	else if ((length == 3))
67	67	then makeString({
68	68	let $l = params
69	69	let $s = size($l)
70	70	let $acc0 = nil
71	71	func $f0_1 ($a,$i) = if (($i >= $s))
72	72	then $a
73	73	else addToList($a, $l[$i])
74	74
75	75	func $f0_2 ($a,$i) = if (($i >= $s))
76	76	then $a
77	77	else throw("List size exceeds 3")
78	78
79	79	$f0_2($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3)
80	80	}, separator)
81	81	else if ((length == 4))
82	82	then makeString({
83	83	let $l = params
84	84	let $s = size($l)
85	85	let $acc0 = nil
86	86	func $f0_1 ($a,$i) = if (($i >= $s))
87	87	then $a
88	88	else addToList($a, $l[$i])
89	89
90	90	func $f0_2 ($a,$i) = if (($i >= $s))
91	91	then $a
92	92	else throw("List size exceeds 4")
93	93
94	94	$f0_2($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4)
95	95	}, separator)
96	96	else if ((length == 5))
97	97	then makeString({
98	98	let $l = params
99	99	let $s = size($l)
100	100	let $acc0 = nil
101	101	func $f0_1 ($a,$i) = if (($i >= $s))
102	102	then $a
103	103	else addToList($a, $l[$i])
104	104
105	105	func $f0_2 ($a,$i) = if (($i >= $s))
106	106	then $a
107	107	else throw("List size exceeds 5")
108	108
109	109	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
110	110	}, separator)
111	111	else throw("Max number of parameters exceeded")
112	112	}
113	113
114	114
115	115	func parseAsAuction (details) = {
116	116	let res = split(details, separator)
117	117	$Tuple5(addressFromStringValue(res[0]), parseIntValue(res[1]), parseIntValue(res[2]), parseIntValue(res[3]), parseIntValue(res[4]))
118	118	}
119	119
120	120
121	121	func parseAsSell (details) = {
122	122	let res = split(details, separator)
123	123	$Tuple2(addressFromStringValue(res[0]), parseIntValue(res[1]))
124	124	}
125	125
126	126
127	127	func joinStruct (params) = match params {
128	128	case auction: (Address, Int, String, String) =>
129	129	joinString([toString(auction._1), toString(auction._2), auction._3, auction._4])
130	130	case sell: (Address, Int) =>
131	131	joinString([toString(sell._1), toString(sell._2)])
132	132	case _ =>
133	133	throw("Wrong params tupple")
134	134	}
135	135
136	136
137	137	func setAuction (seller,nftId,startPrice,start,end) = StringEntry(getAuctionKey(nftId), joinStruct($Tuple4(seller, startPrice, start, end)))
138	138
139	139
140	140	func setSell (nftId,celler,price) = StringEntry(getSellKey(nftId), joinStruct($Tuple2(celler, price)))
141	141
142	142
143	143	func getAuction (nftId) = value(getString(this, getAuctionKey(nftId)))
144	144
145	145
146	146	func getSell (nftId) = value(getString(this, getSellKey(nftId)))
147	147
148	148
149	149	func calcPriceAtCurrentMoment (assetId,moment) = {
150	150	let details = getAuction(assetId)
151	151	let $t027552859 = parseAsAuction(details)
152	152	let seller = $t027552859._1
153	153	let startPriceValue = $t027552859._2
154	154	let endPriceValue = $t027552859._3
155	155	let startPeriodValue = $t027552859._4
156	156	let endPeriodValue = $t027552859._5
157	157	if ((moment >= endPeriodValue))
158	158	then $Tuple2(seller, endPriceValue)
159	159	else {
160	160	let deltaPrice = (startPriceValue - endPriceValue)
161	161	let period = (endPeriodValue - startPeriodValue)
162	162	let spended = (moment - startPeriodValue)
163	163	$Tuple2(seller, (startPriceValue - fraction(spended, deltaPrice, period)))
164	164	}
165	165	}
166	166
167	167
168	168	func isNft (assetId) = match assetInfo(assetId) {
169	169	case token: Asset =>
170	170	if (if ((token.decimals == 0))
171	171	then (token.quantity == 1)
172	172	else false)
173	173	then (token.reissuable == false)
174	174	else false
175	175	case _ =>
176	176	false
177	177	}
178	178
179	179
180	180	func isTrustedNft (assetId) = {
181	181	let issuer = value(assetInfo(assetId)).issuer
182	182	valueOrElse(getBoolean(this, getTrustedKey(issuer)), false)
183	183	}
184	184
185	185
186	186	func isSellExist (assetId) = isDefined(getString(this, getSellKey(assetId)))
187	187
188	188
189	189	func isAuctionExist (assetId) = isDefined(getString(this, getAuctionKey(assetId)))
190	190
191	191
192	192	func isCorrectSellPrice (price) = (price > 0)
193	193
194	194
195	195	func isCorrectAuctionPrices (startPrice,endPrice) = (startPrice > endPrice)
196	196
197	197
198	198	func isAdmin (caller) = (caller == this)
199	199
200	200
201	201	func isValidCaller (caller,seller) = if ((caller == this))
202	202	then true
203	203	else (caller == seller)
204	204
205	205
206	206	func isAuctionEnded (now,end) = (now > end)
207	207
208	208
209	209	func isEnoughFunds (payment,currentMomentPrice) = (payment >= currentMomentPrice)
210	210
211	211
212	212	func isWawes (assetId) = (assetId == unit)
213	213
214	214
215	215	func isCorrectNft (nftId) = if (!(isNft(nftId)))
216	216	then throw("Token is not Nft")
217	217	else if (isSellExist(nftId))
218	218	then throw("Sell already exists")
219	219	else if (isAuctionExist(nftId))
220	220	then throw("Auction already exists")
221	221	else unit
222	222
223	223
224	224	func isCorrectPayments (paymentAsset,paymentAmount,price) = if (!(isWawes(paymentAsset)))
225	225	then throw("Payment must be at WAVES")
226	226	else if (!(isEnoughFunds(paymentAmount, price)))
227	227	then throw("Not enough funds")
228	228	else unit
229	229
230	230
231	231	func calcFee () = 0
232	232
233	233
234	234	func calcTrustedFee () = 0
235	235
236	236
237	237	func resultFundsAmounts (isTrusted,paymentAmount,actualPrice) = if (isTrusted)
238	238	then $Tuple2((actualPrice - calcTrustedFee()), (paymentAmount - actualPrice))
239	239	else $Tuple2((actualPrice - calcFee()), (paymentAmount - actualPrice))
240	240
241	241
242	242	func getSlot (nftId) = if (isSellExist(nftId))
243	243	then $Tuple2(kSell, getSell(nftId))
244	244	else if (isAuctionExist(nftId))
245	245	then $Tuple2(kAuction, getAuction(nftId))
246	246	else throw("Slot doesn`t exist")
247	247
248	248
249	249	let kBuy = "buy"
250	250
251	251	let ASIMI_TOKEN = base58'EbLVSrAi6vS3AkLwBinzZCvAXP2yYiFJEzj1MBVHcwZ5'
252	252
253	253	@Callable(i)
254	254	func createNft (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
255	255	let newToken = Issue(nft_name, nft_description, 1, 0, false)
256	256	let issueId = calculateAssetId(newToken)
257	257	[newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller)), StringEntry(((toBase58String(issueId) + separator) + "nft_type"), nft_type), StringEntry(((toBase58String(issueId) + separator) + "nft_tags"), nft_tags), StringEntry(((toBase58String(issueId) + separator) + "nft_dAppAddress"), nft_dAppAddress), IntegerEntry(((toBase58String(issueId) + separator) + "nft_selling_price"), nft_selling_price), StringEntry(((toBase58String(issueId) + separator) + "nft_onSell"), nft_onSell), StringEntry(((toBase58String(issueId) + separator) + "nft_data"), nft_data)]
258	258	}
259	259
260	260
261	261
262	262	@Callable(i)
263	263	func issueNft (name,meta) = {
264	264	let newToken = Issue(name, meta, 1, 0, false)
265	265	let issueId = calculateAssetId(newToken)
266	266	[newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller))]
267	267	}
268	268
269	269
270	270
271	271	@Callable(i)
272	272	func buyNFT (nftID) = {
273	273	let assetId = fromBase58String(nftID)
274	274	let amount = value(i.payments[0].amount)
275	275	let amount1 = value(i.payments[1].amount)
276	276	let price = valueOrErrorMessage(getString(((kPrice + separator) + nftID)), "There is no price for this NFT")
277	277	let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
278	278	if ((i.payments[0].assetId != unit))
279	279	then throw("Pay in waves")
280	280	else if ((i.payments[1].assetId != ASIMI_TOKEN))
281	281	then throw("Pay in ASIMI")
282	282	else if ((parseIntValue(price) > amount))
283	283	then throw("Invalid payment WAVES")
284	284	else [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(value(addressFromString(owner)), parseIntValue(price), unit), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount)))]
285	285	}
286	286
287	287
288	288
289	289	@Callable(i)
290	290	func sellNFT (price) = {
291	291	let $t074117496 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
292	292	let token0 = $t074117496._1
293	293	let amount0 = $t074117496._2
294	294	if (!(isNft(token0)))
295	295	then throw("Token is not NFT")
296	296	else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), toString(price)), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
297	297	}
298	298
299	299
300	300
301	301	@Callable(i)
302	302	func addSell (price) = {
303	303	let nftId = value(i.payments[0].assetId)
304	304	valueOrElse(isCorrectNft(nftId), if (!(isCorrectSellPrice(price)))
305	305	then throw("Price must be > 0")
306	306	else [setSell(nftId, i.caller, price)])
307	307	}
308	308
309	309
310	310
311	311	@Callable(i)
312	312	func addAuction (startPrice,start,end) = {
313	313	let nftId = value(i.payments[0].assetId)
314	314	valueOrElse(isCorrectNft(nftId), [setAuction(i.caller, nftId, startPrice, start, end), StringEntry(((toBase58String(nftId) + separator) + "nft_owner"), toString(i.caller))])
315	315	}
316	316
317	317
318	318
319	319	@Callable(i)
320	320	func buyFromSlot (nftId) = {
321	321	let $t084168505 = $Tuple2(i.payments[0].assetId, value(i.payments[0].amount))
322	322	let paymentAsset = $t084168505._1
323	323	let paymentAmount = $t084168505._2
324	324	let assetId = fromBase58String(nftId)
325	325	let $t085498587 = getSlot(assetId)
326	326	let type = $t085498587._1
327	327	let details = $t085498587._2
328	328	let baseRes = [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(getSlotKey(type, assetId))]
329	329	if ((type == kSell))
330	330	then {
331	331	let $t087298776 = parseAsSell(details)
332	332	let seller = $t087298776._1
333	333	let priceValue = $t087298776._2
334	334	valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, priceValue), {
335	335	let $t088618963 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, priceValue)
336	336	let sellerAmount = $t088618963._1
337	337	let buyerAmount = $t088618963._2
338	338	let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
339	339	if ((buyerAmount > 0))
340	340	then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
341	341	else updatedRes
342	342	})
343	343	}
344	344	else {
345	345	let $t091809249 = calcPriceAtCurrentMoment(assetId, height)
346	346	let seller = $t091809249._1
347	347	let actualPrice = $t091809249._2
348	348	valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, actualPrice), {
349	349	let $t093359438 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, actualPrice)
350	350	let sellerAmount = $t093359438._1
351	351	let buyerAmount = $t093359438._2
352	352	let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
353	353	if ((buyerAmount > 0))
354	354	then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
355	355	else updatedRes
356	356	})
357	357	}
358	358	}
359	359
360	360
361	361
362	362	@Callable(i)
363	363	func declineSlot (nftId) = {
364	364	let assetId = fromBase58String(nftId)
365	365	let $t097399777 = getSlot(assetId)
366	366	let type = $t097399777._1
367	367	let details = $t097399777._2
368	368	let baseRes = [DeleteEntry(getSlotKey(type, assetId))]
369	369	if ((type == kSell))
370	370	then {
371	371	let $t098699916 = parseAsSell(details)
372	372	let seller = $t098699916._1
373	373	let priceValue = $t098699916._2
374	374	if (!(isValidCaller(i.caller, seller)))
375	375	then throw("Invalid caller")
376	376	else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
377	377	}
378	378	else {
379	379	let $t01006110165 = parseAsAuction(details)
380	380	let seller = $t01006110165._1
381	381	let startPriceValue = $t01006110165._2
382	382	let endPriceValue = $t01006110165._3
383	383	let startPeriodValue = $t01006110165._4
384	384	let endPeriodValue = $t01006110165._5
385	385	if (!(isValidCaller(i.caller, seller)))
386	386	then throw("Invalid caller")
387	387	else if (!(isAuctionEnded(height, endPeriodValue)))
388	388	then throw("Wait for end of auction")
389	389	else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
390	390	}
391	391	}
392	392
393	393
394	394
395	395	@Callable(i)
396	396	func setTrustedIssuer (trustedAddr) = if (!(isAdmin(i.caller)))
397	397	then throw("Only admin")
398	398	else [BooleanEntry(getTrustedKey(addressFromStringValue(trustedAddr)), true)]
399	399
400	400
401	401
402	402	@Callable(i)
403	403	func getPriceAtCurrentMoment (nftId,moment) = {
404	404	let assetId = fromBase58String(nftId)
405	405	let $t01070610769 = calcPriceAtCurrentMoment(assetId, moment)
406	406	let seller = $t01070610769._1
407	407	let price = $t01070610769._2
408	408	[IntegerEntry(getPriceKey(assetId), price)]
409	409	}
410	410
411	411

github/deemru/w8io/026f985 
107.35 ms ◑