tx · H4qvvjZ7GMKzo1iYDnR7pZVRGCetyQqCtBEBxDdAbU8u

3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx:  -0.10000000 Waves

2022.11.28 09:00 [2336553] smart account 3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx > SELF 0.00000000 Waves

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

View: original | compacted
Prev: 6iM3qqrBqBgVWmVVNA7BoosoTmGmvBbbtpuUDWpZFwGq
Next: 8vJ95KSdYM9d79fzHnoSv3WANopfch5na3hTYAJVCGzF

Diff: 

OldNewDifferences
33 {-# CONTENT_TYPE DAPP #-}
44 let a = "_"
55 
6-let b = "buy"
6+let b = "auction"
77 
88 let c = "sell"
99 
10-let d = "price"
10+let d = "trusted"
1111 
12-func e (f) = {
13-    let g = assetInfo(f)
14-    if ($isInstanceOf(g, "Asset"))
12+let e = "price"
13+
14+func f (g,h) = ((g + a) + toBase58String(h))
15+
16+
17+func i (h) = ((e + a) + toBase58String(h))
18+
19+
20+func j (h) = ((c + a) + toBase58String(h))
21+
22+
23+func k (h) = ((b + a) + toBase58String(h))
24+
25+
26+func l (m) = ((d + a) + toString(m))
27+
28+
29+func n (o,p) = (o ++ [p])
30+
31+
32+func q (r) = {
33+    let s = size(r)
34+    if ((s == 0))
35+        then throw("Empty  params")
36+        else if ((s == 1))
37+            then makeString({
38+                let t = r
39+                let u = size(t)
40+                let v = nil
41+                func w (x,y) =                 if ((y >= u))
42+                    then x
43+                    else n(x, t[y])
44+
45+                func z (x,y) =                 if ((y >= u))
46+                    then x
47+                    else throw("List size exceeds 1")
48+
49+                z(w(v, 0), 1)
50+                }, a)
51+            else if ((s == 2))
52+                then makeString({
53+                    let t = r
54+                    let u = size(t)
55+                    let v = nil
56+                    func w (x,y) =                     if ((y >= u))
57+                        then x
58+                        else n(x, t[y])
59+
60+                    func z (x,y) =                     if ((y >= u))
61+                        then x
62+                        else throw("List size exceeds 2")
63+
64+                    z(w(w(v, 0), 1), 2)
65+                    }, a)
66+                else if ((s == 3))
67+                    then makeString({
68+                        let t = r
69+                        let u = size(t)
70+                        let v = nil
71+                        func w (x,y) =                         if ((y >= u))
72+                            then x
73+                            else n(x, t[y])
74+
75+                        func z (x,y) =                         if ((y >= u))
76+                            then x
77+                            else throw("List size exceeds 3")
78+
79+                        z(w(w(w(v, 0), 1), 2), 3)
80+                        }, a)
81+                    else if ((s == 4))
82+                        then makeString({
83+                            let t = r
84+                            let u = size(t)
85+                            let v = nil
86+                            func w (x,y) =                             if ((y >= u))
87+                                then x
88+                                else n(x, t[y])
89+
90+                            func z (x,y) =                             if ((y >= u))
91+                                then x
92+                                else throw("List size exceeds 4")
93+
94+                            z(w(w(w(w(v, 0), 1), 2), 3), 4)
95+                            }, a)
96+                        else if ((s == 5))
97+                            then makeString({
98+                                let t = r
99+                                let u = size(t)
100+                                let v = nil
101+                                func w (x,y) =                                 if ((y >= u))
102+                                    then x
103+                                    else n(x, t[y])
104+
105+                                func z (x,y) =                                 if ((y >= u))
106+                                    then x
107+                                    else throw("List size exceeds 5")
108+
109+                                z(w(w(w(w(w(v, 0), 1), 2), 3), 4), 5)
110+                                }, a)
111+                            else throw("Max number of parameters exceeded")
112+    }
113+
114+
115+func A (B) = {
116+    let C = split(B, a)
117+    $Tuple5(addressFromStringValue(C[0]), parseIntValue(C[1]), parseIntValue(C[2]), parseIntValue(C[3]), parseIntValue(C[4]))
118+    }
119+
120+
121+func D (B) = {
122+    let C = split(B, a)
123+    $Tuple2(addressFromStringValue(C[0]), parseIntValue(C[1]))
124+    }
125+
126+
127+func E (r) = {
128+    let F = r
129+    if ($isInstanceOf(F, "(Address, Int, String, String)"))
15130         then {
16-            let h = g
17-            if (if ((h.decimals == 0))
18-                then (h.quantity == 1)
131+            let G = F
132+            q([toString(G._1), toString(G._2), G._3, G._4])
133+            }
134+        else if ($isInstanceOf(F, "(Address, Int)"))
135+            then {
136+                let H = F
137+                q([toString(H._1), toString(H._2)])
138+                }
139+            else throw("Wrong params tupple")
140+    }
141+
142+
143+func I (J,h,K,L,M) = StringEntry(k(h), E($Tuple4(J, K, L, M)))
144+
145+
146+func N (h,O,P) = StringEntry(j(h), E($Tuple2(O, P)))
147+
148+
149+func Q (h) = value(getString(this, k(h)))
150+
151+
152+func R (h) = value(getString(this, j(h)))
153+
154+
155+func S (T,U) = {
156+    let B = Q(T)
157+    let V = A(B)
158+    let J = V._1
159+    let W = V._2
160+    let X = V._3
161+    let Y = V._4
162+    let Z = V._5
163+    if ((U >= Z))
164+        then $Tuple2(J, X)
165+        else {
166+            let aa = (W - X)
167+            let ab = (Z - Y)
168+            let ac = (U - Y)
169+            $Tuple2(J, (W - fraction(ac, aa, ab)))
170+            }
171+    }
172+
173+
174+func ad (T) = {
175+    let F = assetInfo(T)
176+    if ($isInstanceOf(F, "Asset"))
177+        then {
178+            let ae = F
179+            if (if ((ae.decimals == 0))
180+                then (ae.quantity == 1)
19181                 else false)
20-                then (h.reissuable == false)
182+                then (ae.reissuable == false)
21183                 else false
22184             }
23185         else false
24186     }
25187 
26188 
27-@Callable(i)
28-func createNft (j,k,l,m,n,o,p,q,r) = {
29-    let s = Issue(j, p, 1, 0, false)
30-    let t = calculateAssetId(s)
31-[s, ScriptTransfer(i.caller, 1, t), StringEntry(((toBase58String(t) + a) + "Owner"), toString(i.caller)), StringEntry(((toBase58String(t) + a) + "nft_type"), m), StringEntry(((toBase58String(t) + a) + "nft_tags"), n), StringEntry(((toBase58String(t) + a) + "nft_dAppAddress"), l), IntegerEntry(((toBase58String(t) + a) + "nft_selling_price"), o), StringEntry(((toBase58String(t) + a) + "nft_onSell"), q), StringEntry(((toBase58String(t) + a) + "nft_data"), r)]
189+func af (T) = {
190+    let m = value(assetInfo(T)).issuer
191+    valueOrElse(getBoolean(this, l(m)), false)
192+    }
193+
194+
195+func ag (T) = isDefined(getString(this, j(T)))
196+
197+
198+func ah (T) = isDefined(getString(this, k(T)))
199+
200+
201+func ai (P) = (P > 0)
202+
203+
204+func aj (K,ak) = (K > ak)
205+
206+
207+func al (am) = (am == this)
208+
209+
210+func an (am,J) = if ((am == this))
211+    then true
212+    else (am == J)
213+
214+
215+func ao (ap,M) = (ap > M)
216+
217+
218+func aq (ar,as) = (ar >= as)
219+
220+
221+func at (T) = (T == unit)
222+
223+
224+func au (h) = if (!(ad(h)))
225+    then throw("Token is not Nft")
226+    else if (ag(h))
227+        then throw("Sell already exists")
228+        else if (ah(h))
229+            then throw("Auction already exists")
230+            else unit
231+
232+
233+func av (aw,ax,P) = if (!(at(aw)))
234+    then throw("Payment must be at WAVES")
235+    else if (!(aq(ax, P)))
236+        then throw("Not enough funds")
237+        else unit
238+
239+
240+func ay () = 0
241+
242+
243+func az () = 0
244+
245+
246+func aA (aB,ax,aC) = if (aB)
247+    then $Tuple2((aC - az()), (ax - aC))
248+    else $Tuple2((aC - ay()), (ax - aC))
249+
250+
251+func aD (h) = if (ag(h))
252+    then $Tuple2(c, R(h))
253+    else if (ah(h))
254+        then $Tuple2(b, Q(h))
255+        else throw("Slot doesn`t exist")
256+
257+
258+let aE = "buy"
259+
260+let aF = base58'EbLVSrAi6vS3AkLwBinzZCvAXP2yYiFJEzj1MBVHcwZ5'
261+
262+@Callable(aG)
263+func createNft (aH,aI,aJ,aK,aL,aM,aN,aO,aP) = {
264+    let aQ = Issue(aH, aN, 1, 0, false)
265+    let aR = calculateAssetId(aQ)
266+[aQ, ScriptTransfer(aG.caller, 1, aR), StringEntry(((toBase58String(aR) + a) + "Owner"), toString(aG.caller)), StringEntry(((toBase58String(aR) + a) + "nft_type"), aK), StringEntry(((toBase58String(aR) + a) + "nft_tags"), aL), StringEntry(((toBase58String(aR) + a) + "nft_dAppAddress"), aJ), IntegerEntry(((toBase58String(aR) + a) + "nft_selling_price"), aM), StringEntry(((toBase58String(aR) + a) + "nft_onSell"), aO), StringEntry(((toBase58String(aR) + a) + "nft_data"), aP)]
32267     }
33268 
34269 
35270 
36-@Callable(i)
37-func issueNft (u,v) = {
38-    let s = Issue(u, v, 1, 0, false)
39-    let t = calculateAssetId(s)
40-[s, ScriptTransfer(i.caller, 1, t), StringEntry(((toBase58String(t) + a) + "Owner"), toString(i.caller))]
271+@Callable(aG)
272+func issueNft (aS,aT) = {
273+    let aQ = Issue(aS, aT, 1, 0, false)
274+    let aR = calculateAssetId(aQ)
275+[aQ, ScriptTransfer(aG.caller, 1, aR), StringEntry(((toBase58String(aR) + a) + "Owner"), toString(aG.caller))]
41276     }
42277 
43278 
44279 
45-@Callable(i)
46-func buyNFT (w) = {
47-    let f = fromBase58String(w)
48-    let x = value(i.payments[0].amount)
49-    let y = valueOrErrorMessage(getString(((d + a) + w)), "There is no price for this NFT")
50-    let z = valueOrErrorMessage(getStringValue(((w + a) + "Owner")), "No owner")
51-    if ((i.payments[0].assetId != unit))
280+@Callable(aG)
281+func buyNFT (aU) = {
282+    let T = fromBase58String(aU)
283+    let aV = value(aG.payments[0].amount)
284+    let aW = value(aG.payments[1].amount)
285+    let P = valueOrErrorMessage(getString(((e + a) + aU)), "There is no price for this NFT")
286+    let aX = valueOrErrorMessage(getStringValue(((aU + a) + "Owner")), "No owner")
287+    if ((aG.payments[0].assetId != unit))
52288         then throw("Pay in waves")
53-        else if ((parseIntValue(y) > x))
54-            then throw("Invalid payment")
55-            else [ScriptTransfer(i.caller, 1, f), ScriptTransfer(value(addressFromString(z)), parseIntValue(y), unit), StringEntry(((toString(i.caller) + a) + b), ((w + a) + toString(x)))]
289+        else if ((aG.payments[1].assetId != aF))
290+            then throw("Pay in ASIMI")
291+            else if ((parseIntValue(P) > aV))
292+                then throw("Invalid payment WAVES")
293+                else [ScriptTransfer(aG.caller, 1, T), ScriptTransfer(value(addressFromString(aX)), parseIntValue(P), unit), StringEntry(((toString(aG.caller) + a) + aE), ((aU + a) + toString(aV)))]
56294     }
57295 
58296 
59297 
60-@Callable(i)
61-func sellNFT (y) = {
62-    let A = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
63-    let B = A._1
64-    let C = A._2
65-    if (!(e(B)))
298+@Callable(aG)
299+func sellNFT (P) = {
300+    let aY = $Tuple2(value(aG.payments[0].assetId), value(aG.payments[0].amount))
301+    let aZ = aY._1
302+    let ba = aY._2
303+    if (!(ad(aZ)))
66304         then throw("Token is not NFT")
67-        else [StringEntry(((d + a) + toBase58String(value(i.payments[0].assetId))), toString(y)), StringEntry(((toString(i.caller) + a) + c), ((toBase58String(B) + a) + toString(C)))]
305+        else [StringEntry(((e + a) + toBase58String(value(aG.payments[0].assetId))), toString(P)), StringEntry(((toString(aG.caller) + a) + c), ((toBase58String(aZ) + a) + toString(ba)))]
306+    }
307+
308+
309+
310+@Callable(aG)
311+func addSell (P) = {
312+    let h = value(aG.payments[0].assetId)
313+    valueOrElse(au(h), if (!(ai(P)))
314+        then throw("Price must be > 0")
315+        else [N(h, aG.caller, P)])
316+    }
317+
318+
319+
320+@Callable(aG)
321+func addAuction (K,L,M) = {
322+    let h = value(aG.payments[0].assetId)
323+    valueOrElse(au(h), [I(aG.caller, h, K, L, M), StringEntry(((toBase58String(h) + a) + "nft_owner"), toString(aG.caller))])
324+    }
325+
326+
327+
328+@Callable(aG)
329+func buyFromSlot (h) = {
330+    let bb = $Tuple2(aG.payments[0].assetId, value(aG.payments[0].amount))
331+    let aw = bb._1
332+    let ax = bb._2
333+    let T = fromBase58String(h)
334+    let bc = aD(T)
335+    let bd = bc._1
336+    let B = bc._2
337+    let be = [ScriptTransfer(aG.caller, 1, T), DeleteEntry(f(bd, T))]
338+    if ((bd == c))
339+        then {
340+            let bf = D(B)
341+            let J = bf._1
342+            let bg = bf._2
343+            valueOrElse(av(aw, ax, bg), {
344+                let bh = aA(af(T), ax, bg)
345+                let bi = bh._1
346+                let bj = bh._2
347+                let bk = (be ++ [ScriptTransfer(J, bi, unit)])
348+                if ((bj > 0))
349+                    then (bk ++ [ScriptTransfer(aG.caller, bj, unit)])
350+                    else bk
351+                })
352+            }
353+        else {
354+            let bl = S(T, height)
355+            let J = bl._1
356+            let aC = bl._2
357+            valueOrElse(av(aw, ax, aC), {
358+                let bm = aA(af(T), ax, aC)
359+                let bi = bm._1
360+                let bj = bm._2
361+                let bk = (be ++ [ScriptTransfer(J, bi, unit)])
362+                if ((bj > 0))
363+                    then (bk ++ [ScriptTransfer(aG.caller, bj, unit)])
364+                    else bk
365+                })
366+            }
367+    }
368+
369+
370+
371+@Callable(aG)
372+func declineSlot (h) = {
373+    let T = fromBase58String(h)
374+    let bn = aD(T)
375+    let bd = bn._1
376+    let B = bn._2
377+    let be = [DeleteEntry(f(bd, T))]
378+    if ((bd == c))
379+        then {
380+            let bo = D(B)
381+            let J = bo._1
382+            let bg = bo._2
383+            if (!(an(aG.caller, J)))
384+                then throw("Invalid caller")
385+                else (be ++ [ScriptTransfer(J, 1, T)])
386+            }
387+        else {
388+            let bp = A(B)
389+            let J = bp._1
390+            let W = bp._2
391+            let X = bp._3
392+            let Y = bp._4
393+            let Z = bp._5
394+            if (!(an(aG.caller, J)))
395+                then throw("Invalid caller")
396+                else if (!(ao(height, Z)))
397+                    then throw("Wait for end of auction")
398+                    else (be ++ [ScriptTransfer(J, 1, T)])
399+            }
400+    }
401+
402+
403+
404+@Callable(aG)
405+func setTrustedIssuer (bq) = if (!(al(aG.caller)))
406+    then throw("Only admin")
407+    else [BooleanEntry(l(addressFromStringValue(bq)), true)]
408+
409+
410+
411+@Callable(aG)
412+func getPriceAtCurrentMoment (h,U) = {
413+    let T = fromBase58String(h)
414+    let br = S(T, U)
415+    let J = br._1
416+    let P = br._2
417+[IntegerEntry(i(T), P)]
68418     }
69419 
70420 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let a = "_"
55 
6-let b = "buy"
6+let b = "auction"
77 
88 let c = "sell"
99 
10-let d = "price"
10+let d = "trusted"
1111 
12-func e (f) = {
13-    let g = assetInfo(f)
14-    if ($isInstanceOf(g, "Asset"))
12+let e = "price"
13+
14+func f (g,h) = ((g + a) + toBase58String(h))
15+
16+
17+func i (h) = ((e + a) + toBase58String(h))
18+
19+
20+func j (h) = ((c + a) + toBase58String(h))
21+
22+
23+func k (h) = ((b + a) + toBase58String(h))
24+
25+
26+func l (m) = ((d + a) + toString(m))
27+
28+
29+func n (o,p) = (o ++ [p])
30+
31+
32+func q (r) = {
33+    let s = size(r)
34+    if ((s == 0))
35+        then throw("Empty  params")
36+        else if ((s == 1))
37+            then makeString({
38+                let t = r
39+                let u = size(t)
40+                let v = nil
41+                func w (x,y) =                 if ((y >= u))
42+                    then x
43+                    else n(x, t[y])
44+
45+                func z (x,y) =                 if ((y >= u))
46+                    then x
47+                    else throw("List size exceeds 1")
48+
49+                z(w(v, 0), 1)
50+                }, a)
51+            else if ((s == 2))
52+                then makeString({
53+                    let t = r
54+                    let u = size(t)
55+                    let v = nil
56+                    func w (x,y) =                     if ((y >= u))
57+                        then x
58+                        else n(x, t[y])
59+
60+                    func z (x,y) =                     if ((y >= u))
61+                        then x
62+                        else throw("List size exceeds 2")
63+
64+                    z(w(w(v, 0), 1), 2)
65+                    }, a)
66+                else if ((s == 3))
67+                    then makeString({
68+                        let t = r
69+                        let u = size(t)
70+                        let v = nil
71+                        func w (x,y) =                         if ((y >= u))
72+                            then x
73+                            else n(x, t[y])
74+
75+                        func z (x,y) =                         if ((y >= u))
76+                            then x
77+                            else throw("List size exceeds 3")
78+
79+                        z(w(w(w(v, 0), 1), 2), 3)
80+                        }, a)
81+                    else if ((s == 4))
82+                        then makeString({
83+                            let t = r
84+                            let u = size(t)
85+                            let v = nil
86+                            func w (x,y) =                             if ((y >= u))
87+                                then x
88+                                else n(x, t[y])
89+
90+                            func z (x,y) =                             if ((y >= u))
91+                                then x
92+                                else throw("List size exceeds 4")
93+
94+                            z(w(w(w(w(v, 0), 1), 2), 3), 4)
95+                            }, a)
96+                        else if ((s == 5))
97+                            then makeString({
98+                                let t = r
99+                                let u = size(t)
100+                                let v = nil
101+                                func w (x,y) =                                 if ((y >= u))
102+                                    then x
103+                                    else n(x, t[y])
104+
105+                                func z (x,y) =                                 if ((y >= u))
106+                                    then x
107+                                    else throw("List size exceeds 5")
108+
109+                                z(w(w(w(w(w(v, 0), 1), 2), 3), 4), 5)
110+                                }, a)
111+                            else throw("Max number of parameters exceeded")
112+    }
113+
114+
115+func A (B) = {
116+    let C = split(B, a)
117+    $Tuple5(addressFromStringValue(C[0]), parseIntValue(C[1]), parseIntValue(C[2]), parseIntValue(C[3]), parseIntValue(C[4]))
118+    }
119+
120+
121+func D (B) = {
122+    let C = split(B, a)
123+    $Tuple2(addressFromStringValue(C[0]), parseIntValue(C[1]))
124+    }
125+
126+
127+func E (r) = {
128+    let F = r
129+    if ($isInstanceOf(F, "(Address, Int, String, String)"))
15130         then {
16-            let h = g
17-            if (if ((h.decimals == 0))
18-                then (h.quantity == 1)
131+            let G = F
132+            q([toString(G._1), toString(G._2), G._3, G._4])
133+            }
134+        else if ($isInstanceOf(F, "(Address, Int)"))
135+            then {
136+                let H = F
137+                q([toString(H._1), toString(H._2)])
138+                }
139+            else throw("Wrong params tupple")
140+    }
141+
142+
143+func I (J,h,K,L,M) = StringEntry(k(h), E($Tuple4(J, K, L, M)))
144+
145+
146+func N (h,O,P) = StringEntry(j(h), E($Tuple2(O, P)))
147+
148+
149+func Q (h) = value(getString(this, k(h)))
150+
151+
152+func R (h) = value(getString(this, j(h)))
153+
154+
155+func S (T,U) = {
156+    let B = Q(T)
157+    let V = A(B)
158+    let J = V._1
159+    let W = V._2
160+    let X = V._3
161+    let Y = V._4
162+    let Z = V._5
163+    if ((U >= Z))
164+        then $Tuple2(J, X)
165+        else {
166+            let aa = (W - X)
167+            let ab = (Z - Y)
168+            let ac = (U - Y)
169+            $Tuple2(J, (W - fraction(ac, aa, ab)))
170+            }
171+    }
172+
173+
174+func ad (T) = {
175+    let F = assetInfo(T)
176+    if ($isInstanceOf(F, "Asset"))
177+        then {
178+            let ae = F
179+            if (if ((ae.decimals == 0))
180+                then (ae.quantity == 1)
19181                 else false)
20-                then (h.reissuable == false)
182+                then (ae.reissuable == false)
21183                 else false
22184             }
23185         else false
24186     }
25187 
26188 
27-@Callable(i)
28-func createNft (j,k,l,m,n,o,p,q,r) = {
29-    let s = Issue(j, p, 1, 0, false)
30-    let t = calculateAssetId(s)
31-[s, ScriptTransfer(i.caller, 1, t), StringEntry(((toBase58String(t) + a) + "Owner"), toString(i.caller)), StringEntry(((toBase58String(t) + a) + "nft_type"), m), StringEntry(((toBase58String(t) + a) + "nft_tags"), n), StringEntry(((toBase58String(t) + a) + "nft_dAppAddress"), l), IntegerEntry(((toBase58String(t) + a) + "nft_selling_price"), o), StringEntry(((toBase58String(t) + a) + "nft_onSell"), q), StringEntry(((toBase58String(t) + a) + "nft_data"), r)]
189+func af (T) = {
190+    let m = value(assetInfo(T)).issuer
191+    valueOrElse(getBoolean(this, l(m)), false)
192+    }
193+
194+
195+func ag (T) = isDefined(getString(this, j(T)))
196+
197+
198+func ah (T) = isDefined(getString(this, k(T)))
199+
200+
201+func ai (P) = (P > 0)
202+
203+
204+func aj (K,ak) = (K > ak)
205+
206+
207+func al (am) = (am == this)
208+
209+
210+func an (am,J) = if ((am == this))
211+    then true
212+    else (am == J)
213+
214+
215+func ao (ap,M) = (ap > M)
216+
217+
218+func aq (ar,as) = (ar >= as)
219+
220+
221+func at (T) = (T == unit)
222+
223+
224+func au (h) = if (!(ad(h)))
225+    then throw("Token is not Nft")
226+    else if (ag(h))
227+        then throw("Sell already exists")
228+        else if (ah(h))
229+            then throw("Auction already exists")
230+            else unit
231+
232+
233+func av (aw,ax,P) = if (!(at(aw)))
234+    then throw("Payment must be at WAVES")
235+    else if (!(aq(ax, P)))
236+        then throw("Not enough funds")
237+        else unit
238+
239+
240+func ay () = 0
241+
242+
243+func az () = 0
244+
245+
246+func aA (aB,ax,aC) = if (aB)
247+    then $Tuple2((aC - az()), (ax - aC))
248+    else $Tuple2((aC - ay()), (ax - aC))
249+
250+
251+func aD (h) = if (ag(h))
252+    then $Tuple2(c, R(h))
253+    else if (ah(h))
254+        then $Tuple2(b, Q(h))
255+        else throw("Slot doesn`t exist")
256+
257+
258+let aE = "buy"
259+
260+let aF = base58'EbLVSrAi6vS3AkLwBinzZCvAXP2yYiFJEzj1MBVHcwZ5'
261+
262+@Callable(aG)
263+func createNft (aH,aI,aJ,aK,aL,aM,aN,aO,aP) = {
264+    let aQ = Issue(aH, aN, 1, 0, false)
265+    let aR = calculateAssetId(aQ)
266+[aQ, ScriptTransfer(aG.caller, 1, aR), StringEntry(((toBase58String(aR) + a) + "Owner"), toString(aG.caller)), StringEntry(((toBase58String(aR) + a) + "nft_type"), aK), StringEntry(((toBase58String(aR) + a) + "nft_tags"), aL), StringEntry(((toBase58String(aR) + a) + "nft_dAppAddress"), aJ), IntegerEntry(((toBase58String(aR) + a) + "nft_selling_price"), aM), StringEntry(((toBase58String(aR) + a) + "nft_onSell"), aO), StringEntry(((toBase58String(aR) + a) + "nft_data"), aP)]
32267     }
33268 
34269 
35270 
36-@Callable(i)
37-func issueNft (u,v) = {
38-    let s = Issue(u, v, 1, 0, false)
39-    let t = calculateAssetId(s)
40-[s, ScriptTransfer(i.caller, 1, t), StringEntry(((toBase58String(t) + a) + "Owner"), toString(i.caller))]
271+@Callable(aG)
272+func issueNft (aS,aT) = {
273+    let aQ = Issue(aS, aT, 1, 0, false)
274+    let aR = calculateAssetId(aQ)
275+[aQ, ScriptTransfer(aG.caller, 1, aR), StringEntry(((toBase58String(aR) + a) + "Owner"), toString(aG.caller))]
41276     }
42277 
43278 
44279 
45-@Callable(i)
46-func buyNFT (w) = {
47-    let f = fromBase58String(w)
48-    let x = value(i.payments[0].amount)
49-    let y = valueOrErrorMessage(getString(((d + a) + w)), "There is no price for this NFT")
50-    let z = valueOrErrorMessage(getStringValue(((w + a) + "Owner")), "No owner")
51-    if ((i.payments[0].assetId != unit))
280+@Callable(aG)
281+func buyNFT (aU) = {
282+    let T = fromBase58String(aU)
283+    let aV = value(aG.payments[0].amount)
284+    let aW = value(aG.payments[1].amount)
285+    let P = valueOrErrorMessage(getString(((e + a) + aU)), "There is no price for this NFT")
286+    let aX = valueOrErrorMessage(getStringValue(((aU + a) + "Owner")), "No owner")
287+    if ((aG.payments[0].assetId != unit))
52288         then throw("Pay in waves")
53-        else if ((parseIntValue(y) > x))
54-            then throw("Invalid payment")
55-            else [ScriptTransfer(i.caller, 1, f), ScriptTransfer(value(addressFromString(z)), parseIntValue(y), unit), StringEntry(((toString(i.caller) + a) + b), ((w + a) + toString(x)))]
289+        else if ((aG.payments[1].assetId != aF))
290+            then throw("Pay in ASIMI")
291+            else if ((parseIntValue(P) > aV))
292+                then throw("Invalid payment WAVES")
293+                else [ScriptTransfer(aG.caller, 1, T), ScriptTransfer(value(addressFromString(aX)), parseIntValue(P), unit), StringEntry(((toString(aG.caller) + a) + aE), ((aU + a) + toString(aV)))]
56294     }
57295 
58296 
59297 
60-@Callable(i)
61-func sellNFT (y) = {
62-    let A = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
63-    let B = A._1
64-    let C = A._2
65-    if (!(e(B)))
298+@Callable(aG)
299+func sellNFT (P) = {
300+    let aY = $Tuple2(value(aG.payments[0].assetId), value(aG.payments[0].amount))
301+    let aZ = aY._1
302+    let ba = aY._2
303+    if (!(ad(aZ)))
66304         then throw("Token is not NFT")
67-        else [StringEntry(((d + a) + toBase58String(value(i.payments[0].assetId))), toString(y)), StringEntry(((toString(i.caller) + a) + c), ((toBase58String(B) + a) + toString(C)))]
305+        else [StringEntry(((e + a) + toBase58String(value(aG.payments[0].assetId))), toString(P)), StringEntry(((toString(aG.caller) + a) + c), ((toBase58String(aZ) + a) + toString(ba)))]
306+    }
307+
308+
309+
310+@Callable(aG)
311+func addSell (P) = {
312+    let h = value(aG.payments[0].assetId)
313+    valueOrElse(au(h), if (!(ai(P)))
314+        then throw("Price must be > 0")
315+        else [N(h, aG.caller, P)])
316+    }
317+
318+
319+
320+@Callable(aG)
321+func addAuction (K,L,M) = {
322+    let h = value(aG.payments[0].assetId)
323+    valueOrElse(au(h), [I(aG.caller, h, K, L, M), StringEntry(((toBase58String(h) + a) + "nft_owner"), toString(aG.caller))])
324+    }
325+
326+
327+
328+@Callable(aG)
329+func buyFromSlot (h) = {
330+    let bb = $Tuple2(aG.payments[0].assetId, value(aG.payments[0].amount))
331+    let aw = bb._1
332+    let ax = bb._2
333+    let T = fromBase58String(h)
334+    let bc = aD(T)
335+    let bd = bc._1
336+    let B = bc._2
337+    let be = [ScriptTransfer(aG.caller, 1, T), DeleteEntry(f(bd, T))]
338+    if ((bd == c))
339+        then {
340+            let bf = D(B)
341+            let J = bf._1
342+            let bg = bf._2
343+            valueOrElse(av(aw, ax, bg), {
344+                let bh = aA(af(T), ax, bg)
345+                let bi = bh._1
346+                let bj = bh._2
347+                let bk = (be ++ [ScriptTransfer(J, bi, unit)])
348+                if ((bj > 0))
349+                    then (bk ++ [ScriptTransfer(aG.caller, bj, unit)])
350+                    else bk
351+                })
352+            }
353+        else {
354+            let bl = S(T, height)
355+            let J = bl._1
356+            let aC = bl._2
357+            valueOrElse(av(aw, ax, aC), {
358+                let bm = aA(af(T), ax, aC)
359+                let bi = bm._1
360+                let bj = bm._2
361+                let bk = (be ++ [ScriptTransfer(J, bi, unit)])
362+                if ((bj > 0))
363+                    then (bk ++ [ScriptTransfer(aG.caller, bj, unit)])
364+                    else bk
365+                })
366+            }
367+    }
368+
369+
370+
371+@Callable(aG)
372+func declineSlot (h) = {
373+    let T = fromBase58String(h)
374+    let bn = aD(T)
375+    let bd = bn._1
376+    let B = bn._2
377+    let be = [DeleteEntry(f(bd, T))]
378+    if ((bd == c))
379+        then {
380+            let bo = D(B)
381+            let J = bo._1
382+            let bg = bo._2
383+            if (!(an(aG.caller, J)))
384+                then throw("Invalid caller")
385+                else (be ++ [ScriptTransfer(J, 1, T)])
386+            }
387+        else {
388+            let bp = A(B)
389+            let J = bp._1
390+            let W = bp._2
391+            let X = bp._3
392+            let Y = bp._4
393+            let Z = bp._5
394+            if (!(an(aG.caller, J)))
395+                then throw("Invalid caller")
396+                else if (!(ao(height, Z)))
397+                    then throw("Wait for end of auction")
398+                    else (be ++ [ScriptTransfer(J, 1, T)])
399+            }
400+    }
401+
402+
403+
404+@Callable(aG)
405+func setTrustedIssuer (bq) = if (!(al(aG.caller)))
406+    then throw("Only admin")
407+    else [BooleanEntry(l(addressFromStringValue(bq)), true)]
408+
409+
410+
411+@Callable(aG)
412+func getPriceAtCurrentMoment (h,U) = {
413+    let T = fromBase58String(h)
414+    let br = S(T, U)
415+    let J = br._1
416+    let P = br._2
417+[IntegerEntry(i(T), P)]
68418     }
69419 
70420 
github/deemru/w8io/169f3d6 
45.57 ms ◑