w8 · tx · 2kL···mQ2

tx · 2kLc7Dea6YGkCFy41HS1EUVFkFkcTcre4uvJWeic1mQ2

3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx:  -0.10000000 Waves

2022.11.24 08:56 [2330787] smart account 3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2kLc7Dea6YGkCFy41HS1EUVFkFkcTcre4uvJWeic1mQ2",
    "fee": 10000000,
    "feeAssetId": null,
    "timestamp": 1669269360270,
    "version": 2,
    "chainId": 84,
    "sender": "3N85YW6NZ9pLYvSdt1ASMQTGxvncnU1vUNx",
    "senderPublicKey": "EKZmHJ5bK3qKKgRdq8rAamt9qrDbVMLARzRqXoQW258v",
    "proofs": [
        "3Qx8YTg1vbQgZtSRWaY1hYJn2TKSTAT43pz2HAq6gdQAuxeAX7ZGNA5t35rfiVXZinrKQoLe2FfGUPTGpwkh1e9d"
    ],
    "script": "base64:BgJKCAISCwoJCAgICAgBCAgIEgQKAggIEgMKAQgSAwoBARIDCgEBEg8KDQEBAQEICAgICAEICAgSAwoBCBIDCgEIEgMKAQgSBAoCCAEnAAlzZXBhcmF0b3ICAV8ACGtBdWN0aW9uAgdhdWN0aW9uAAVrU2VsbAIEc2VsbAAIa1RydXN0ZWQCB3RydXN0ZWQABmtQcmljZQIFcHJpY2UBCmdldFNsb3RLZXkCBnByZWZpeAVuZnRJZAkArAICCQCsAgIFBnByZWZpeAUJc2VwYXJhdG9yCQDYBAEFBW5mdElkAQtnZXRQcmljZUtleQEFbmZ0SWQJAKwCAgkArAICBQZrUHJpY2UFCXNlcGFyYXRvcgkA2AQBBQVuZnRJZAEKZ2V0U2VsbEtleQEFbmZ0SWQJAKwCAgkArAICBQVrU2VsbAUJc2VwYXJhdG9yCQDYBAEFBW5mdElkAQ1nZXRBdWN0aW9uS2V5AQVuZnRJZAkArAICCQCsAgIFCGtBdWN0aW9uBQlzZXBhcmF0b3IJANgEAQUFbmZ0SWQBDWdldFRydXN0ZWRLZXkBBmlzc3VlcgkArAICCQCsAgIFCGtUcnVzdGVkBQlzZXBhcmF0b3IJAKUIAQUGaXNzdWVyAQlhZGRUb0xpc3QCBWFjY3VtCW5leHRWYWx1ZQkAzggCBQVhY2N1bQkAzAgCBQluZXh0VmFsdWUFA25pbAEKam9pblN0cmluZwEGcGFyYW1zBAZsZW5ndGgJAJADAQUGcGFyYW1zAwkAAAIFBmxlbmd0aAAACQACAQINRW1wdHkgIHBhcmFtcwMJAAACBQZsZW5ndGgAAQkAuQkCCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJYWRkVG9MaXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAxCQEFJGYwXzICCQEFJGYwXzECBQUkYWNjMAAAAAEFCXNlcGFyYXRvcgMJAAACBQZsZW5ndGgAAgkAuQkCCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJYWRkVG9MaXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAyCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgUJc2VwYXJhdG9yAwkAAAIFBmxlbmd0aAADCQC5CQIKAAIkbAUGcGFyYW1zCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQlhZGRUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDMJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMFCXNlcGFyYXRvcgMJAAACBQZsZW5ndGgABAkAuQkCCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJYWRkVG9MaXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA0CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQFCXNlcGFyYXRvcgMJAAACBQZsZW5ndGgABQkAuQkCCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJYWRkVG9MaXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA1CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQUJc2VwYXJhdG9yCQACAQIhTWF4IG51bWJlciBvZiBwYXJhbWV0ZXJzIGV4Y2VlZGVkAQ5wYXJzZUFzQXVjdGlvbgEHZGV0YWlscwQDcmVzCQC1CQIFB2RldGFpbHMFCXNlcGFyYXRvcgkAlwoFCQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFA3JlcwAACQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDcmVzAAEJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMAAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwADCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDcmVzAAQBC3BhcnNlQXNTZWxsAQdkZXRhaWxzBANyZXMJALUJAgUHZGV0YWlscwUJc2VwYXJhdG9yCQCUCgIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAJEDAgUDcmVzAAAJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMAAQEKam9pblN0cnVjdAEGcGFyYW1zBAckbWF0Y2gwBQZwYXJhbXMDCQABAgUHJG1hdGNoMAIdKEFkZHJlc3MsIEludCwgSW50LCBJbnQsIEludCkEB2F1Y3Rpb24FByRtYXRjaDAJAQpqb2luU3RyaW5nAQkAzAgCCQClCAEIBQdhdWN0aW9uAl8xCQDMCAIJAKQDAQgFB2F1Y3Rpb24CXzIJAMwIAgkApAMBCAUHYXVjdGlvbgJfMwkAzAgCCQCkAwEIBQdhdWN0aW9uAl80CQDMCAIJAKQDAQgFB2F1Y3Rpb24CXzUFA25pbAMJAAECBQckbWF0Y2gwAg4oQWRkcmVzcywgSW50KQQEc2VsbAUHJG1hdGNoMAkBCmpvaW5TdHJpbmcBCQDMCAIJAKUIAQgFBHNlbGwCXzEJAMwIAgkApAMBCAUEc2VsbAJfMgUDbmlsCQACAQITV3JvbmcgcGFyYW1zIHR1cHBsZQEKc2V0QXVjdGlvbgYGc2VsbGVyBW5mdElkCnN0YXJ0UHJpY2UIZW5kUHJpY2UFc3RhcnQDZW5kCQELU3RyaW5nRW50cnkCCQENZ2V0QXVjdGlvbktleQEFBW5mdElkCQEKam9pblN0cnVjdAEJAJcKBQUGc2VsbGVyBQpzdGFydFByaWNlBQhlbmRQcmljZQUFc3RhcnQFA2VuZAEHc2V0U2VsbAMFbmZ0SWQGY2VsbGVyBXByaWNlCQELU3RyaW5nRW50cnkCCQEKZ2V0U2VsbEtleQEFBW5mdElkCQEKam9pblN0cnVjdAEJAJQKAgUGY2VsbGVyBQVwcmljZQEKZ2V0QXVjdGlvbgEFbmZ0SWQJAQV2YWx1ZQEJAJ0IAgUEdGhpcwkBDWdldEF1Y3Rpb25LZXkBBQVuZnRJZAEHZ2V0U2VsbAEFbmZ0SWQJAQV2YWx1ZQEJAJ0IAgUEdGhpcwkBCmdldFNlbGxLZXkBBQVuZnRJZAEYY2FsY1ByaWNlQXRDdXJyZW50TW9tZW50Agdhc3NldElkBm1vbWVudAQHZGV0YWlscwkBCmdldEF1Y3Rpb24BBQdhc3NldElkBAskdDAyODE3MjkyMQkBDnBhcnNlQXNBdWN0aW9uAQUHZGV0YWlscwQGc2VsbGVyCAULJHQwMjgxNzI5MjECXzEED3N0YXJ0UHJpY2VWYWx1ZQgFCyR0MDI4MTcyOTIxAl8yBA1lbmRQcmljZVZhbHVlCAULJHQwMjgxNzI5MjECXzMEEHN0YXJ0UGVyaW9kVmFsdWUIBQskdDAyODE3MjkyMQJfNAQOZW5kUGVyaW9kVmFsdWUIBQskdDAyODE3MjkyMQJfNQMJAGcCBQZtb21lbnQFDmVuZFBlcmlvZFZhbHVlCQCUCgIFBnNlbGxlcgUNZW5kUHJpY2VWYWx1ZQQKZGVsdGFQcmljZQkAZQIFD3N0YXJ0UHJpY2VWYWx1ZQUNZW5kUHJpY2VWYWx1ZQQGcGVyaW9kCQBlAgUOZW5kUGVyaW9kVmFsdWUFEHN0YXJ0UGVyaW9kVmFsdWUEB3NwZW5kZWQJAGUCBQZtb21lbnQFEHN0YXJ0UGVyaW9kVmFsdWUJAJQKAgUGc2VsbGVyCQBlAgUPc3RhcnRQcmljZVZhbHVlCQBrAwUHc3BlbmRlZAUKZGVsdGFQcmljZQUGcGVyaW9kAQVpc05mdAEHYXNzZXRJZAQHJG1hdGNoMAkA7AcBBQdhc3NldElkAwkAAQIFByRtYXRjaDACBUFzc2V0BAV0b2tlbgUHJG1hdGNoMAMDCQAAAggFBXRva2VuCGRlY2ltYWxzAAAJAAACCAUFdG9rZW4IcXVhbnRpdHkAAQcJAAACCAUFdG9rZW4KcmVpc3N1YWJsZQcHBwEMaXNUcnVzdGVkTmZ0AQdhc3NldElkBAZpc3N1ZXIICQEFdmFsdWUBCQDsBwEFB2Fzc2V0SWQGaXNzdWVyCQELdmFsdWVPckVsc2UCCQCbCAIFBHRoaXMJAQ1nZXRUcnVzdGVkS2V5AQUGaXNzdWVyBwELaXNTZWxsRXhpc3QBB2Fzc2V0SWQJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMJAQpnZXRTZWxsS2V5AQUHYXNzZXRJZAEOaXNBdWN0aW9uRXhpc3QBB2Fzc2V0SWQJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMJAQ1nZXRBdWN0aW9uS2V5AQUHYXNzZXRJZAESaXNDb3JyZWN0U2VsbFByaWNlAQVwcmljZQkAZgIFBXByaWNlAAABFmlzQ29ycmVjdEF1Y3Rpb25QZXJpb2QCBXN0YXJ0A2VuZAkAZgIFA2VuZAUFc3RhcnQBFmlzQ29ycmVjdEF1Y3Rpb25QcmljZXMCCnN0YXJ0UHJpY2UIZW5kUHJpY2UJAGYCBQpzdGFydFByaWNlBQhlbmRQcmljZQEHaXNBZG1pbgEGY2FsbGVyCQAAAgUGY2FsbGVyBQR0aGlzAQ1pc1ZhbGlkQ2FsbGVyAgZjYWxsZXIGc2VsbGVyAwkAAAIFBmNhbGxlcgUEdGhpcwYJAAACBQZjYWxsZXIFBnNlbGxlcgEOaXNBdWN0aW9uRW5kZWQCA25vdwNlbmQJAGYCBQNub3cFA2VuZAENaXNFbm91Z2hGdW5kcwIHcGF5bWVudBJjdXJyZW50TW9tZW50UHJpY2UJAGcCBQdwYXltZW50BRJjdXJyZW50TW9tZW50UHJpY2UBB2lzV2F3ZXMBB2Fzc2V0SWQJAAACBQdhc3NldElkBQR1bml0AQxpc0NvcnJlY3ROZnQBBW5mdElkAwkBASEBCQEFaXNOZnQBBQVuZnRJZAkAAgECEFRva2VuIGlzIG5vdCBOZnQDCQELaXNTZWxsRXhpc3QBBQVuZnRJZAkAAgECE1NlbGwgYWxyZWFkeSBleGlzdHMDCQEOaXNBdWN0aW9uRXhpc3QBBQVuZnRJZAkAAgECFkF1Y3Rpb24gYWxyZWFkeSBleGlzdHMFBHVuaXQBEWlzQ29ycmVjdFBheW1lbnRzAwxwYXltZW50QXNzZXQNcGF5bWVudEFtb3VudAVwcmljZQMJAQEhAQkBB2lzV2F3ZXMBBQxwYXltZW50QXNzZXQJAAIBAhhQYXltZW50IG11c3QgYmUgYXQgV0FWRVMDCQEBIQEJAQ1pc0Vub3VnaEZ1bmRzAgUNcGF5bWVudEFtb3VudAUFcHJpY2UJAAIBAhBOb3QgZW5vdWdoIGZ1bmRzBQR1bml0AQdjYWxjRmVlAAAAAQ5jYWxjVHJ1c3RlZEZlZQAAAAEScmVzdWx0RnVuZHNBbW91bnRzAwlpc1RydXN0ZWQNcGF5bWVudEFtb3VudAthY3R1YWxQcmljZQMFCWlzVHJ1c3RlZAkAlAoCCQBlAgULYWN0dWFsUHJpY2UJAQ5jYWxjVHJ1c3RlZEZlZQAJAGUCBQ1wYXltZW50QW1vdW50BQthY3R1YWxQcmljZQkAlAoCCQBlAgULYWN0dWFsUHJpY2UJAQdjYWxjRmVlAAkAZQIFDXBheW1lbnRBbW91bnQFC2FjdHVhbFByaWNlAQdnZXRTbG90AQVuZnRJZAMJAQtpc1NlbGxFeGlzdAEFBW5mdElkCQCUCgIFBWtTZWxsCQEHZ2V0U2VsbAEFBW5mdElkAwkBDmlzQXVjdGlvbkV4aXN0AQUFbmZ0SWQJAJQKAgUIa0F1Y3Rpb24JAQpnZXRBdWN0aW9uAQUFbmZ0SWQJAAIBAhJTbG90IGRvZXNuYHQgZXhpc3QABGtCdXkCA2J1eQoBaQEJY3JlYXRlTmZ0CQhuZnRfbmFtZQluZnRfb3duZXIPbmZ0X2RBcHBBZGRyZXNzCG5mdF90eXBlCG5mdF90YWdzEW5mdF9zZWxsaW5nX3ByaWNlD25mdF9kZXNjcmlwdGlvbgpuZnRfb25TZWxsCG5mdF9kYXRhBAhuZXdUb2tlbgkAwggFBQhuZnRfbmFtZQUPbmZ0X2Rlc2NyaXB0aW9uAAEAAAcEB2lzc3VlSWQJALgIAQUIbmV3VG9rZW4JAMwIAgUIbmV3VG9rZW4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyAAEFB2lzc3VlSWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAgVPd25lcgkApQgBCAUBaQZjYWxsZXIJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAghuZnRfdHlwZQUIbmZ0X3R5cGUJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAghuZnRfdGFncwUIbmZ0X3RhZ3MJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAg9uZnRfZEFwcEFkZHJlc3MFD25mdF9kQXBwQWRkcmVzcwkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAhFuZnRfc2VsbGluZ19wcmljZQURbmZ0X3NlbGxpbmdfcHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUHaXNzdWVJZAUJc2VwYXJhdG9yAgpuZnRfb25TZWxsBQpuZnRfb25TZWxsCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIIbmZ0X2RhdGEFCG5mdF9kYXRhBQNuaWwBaQEIaXNzdWVOZnQCBG5hbWUEbWV0YQQIbmV3VG9rZW4JAMIIBQUEbmFtZQUEbWV0YQABAAAHBAdpc3N1ZUlkCQC4CAEFCG5ld1Rva2VuCQDMCAIFCG5ld1Rva2VuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdpc3N1ZUlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIFT3duZXIJAKUIAQgFAWkGY2FsbGVyBQNuaWwBaQEGYnV5TkZUAQVuZnRJRAQHYXNzZXRJZAkA2QQBBQVuZnRJRAQGYW1vdW50CQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQFcHJpY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQCsAgIJAKwCAgUGa1ByaWNlBQlzZXBhcmF0b3IFBW5mdElEAh5UaGVyZSBpcyBubyBwcmljZSBmb3IgdGhpcyBORlQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yAgVPd25lcgIITm8gb3duZXIDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQJAAIBAgxQYXkgaW4gd2F2ZXMDCQBmAgkBDXBhcnNlSW50VmFsdWUBBQVwcmljZQUGYW1vdW50CQACAQIPSW52YWxpZCBwYXltZW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdhc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQV2YWx1ZQEJAKYIAQUFb3duZXIJAQ1wYXJzZUludFZhbHVlAQUFcHJpY2UFBHVuaXQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBGtCdXkJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yCQCkAwEFBmFtb3VudAUDbmlsAWkBB3NlbGxORlQBBXByaWNlBAskdDA3MzM4NzQyMwkAlAoCCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAZ0b2tlbjAIBQskdDA3MzM4NzQyMwJfMQQHYW1vdW50MAgFCyR0MDczMzg3NDIzAl8yAwkBASEBCQEFaXNOZnQBBQZ0b2tlbjAJAAIBAhBUb2tlbiBpcyBub3QgTkZUCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICBQZrUHJpY2UFCXNlcGFyYXRvcgkA2AQBCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAKQDAQUFcHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBWtTZWxsCQCsAgIJAKwCAgkA2AQBBQZ0b2tlbjAFCXNlcGFyYXRvcgkApAMBBQdhbW91bnQwBQNuaWwBaQEHYWRkU2VsbAEFcHJpY2UEBW5mdElkCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxpc0NvcnJlY3ROZnQBBQVuZnRJZAMJAQEhAQkBEmlzQ29ycmVjdFNlbGxQcmljZQEFBXByaWNlCQACAQIRUHJpY2UgbXVzdCBiZSA+IDAJAMwIAgkBB3NldFNlbGwDBQVuZnRJZAgFAWkGY2FsbGVyBQVwcmljZQUDbmlsAWkBCmFkZEF1Y3Rpb24NCnN0YXJ0UHJpY2UIZW5kUHJpY2UFc3RhcnQDZW5kCG5mdF9uYW1lCW5mdF9vd25lcg9uZnRfZEFwcEFkZHJlc3MIbmZ0X3R5cGUIbmZ0X3RhZ3MRbmZ0X3NlbGxpbmdfcHJpY2UPbmZ0X2Rlc2NyaXB0aW9uCm5mdF9vblNlbGwIbmZ0X2RhdGEEBW5mdElkCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxpc0NvcnJlY3ROZnQBBQVuZnRJZAMJAQEhAQkBFmlzQ29ycmVjdEF1Y3Rpb25QZXJpb2QCBQVzdGFydAUDZW5kCQACAQIVUGVyaW9kIGlzIG5vdCBjb3JyZWN0AwkBASEBCQEWaXNDb3JyZWN0QXVjdGlvblByaWNlcwIFCnN0YXJ0UHJpY2UFCGVuZFByaWNlCQACAQIeU3RhcnQgcHJpY2UgbXVzdCBiZSA+IGVuZFByaWNlCQDMCAIJAQpzZXRBdWN0aW9uBggFAWkGY2FsbGVyBQVuZnRJZAUKc3RhcnRQcmljZQUIZW5kUHJpY2UFBXN0YXJ0BQNlbmQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUFbmZ0SWQFCXNlcGFyYXRvcgIJbmZ0X293bmVyCQClCAEIBQFpBmNhbGxlcgkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQVuZnRJZAUJc2VwYXJhdG9yAghuZnRfdHlwZQUIbmZ0X3R5cGUJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUFbmZ0SWQFCXNlcGFyYXRvcgIIbmZ0X3RhZ3MFCG5mdF90YWdzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFBW5mdElkBQlzZXBhcmF0b3ICD25mdF9kQXBwQWRkcmVzcwUPbmZ0X2RBcHBBZGRyZXNzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkA2AQBBQVuZnRJZAUJc2VwYXJhdG9yAhFuZnRfc2VsbGluZ19wcmljZQURbmZ0X3NlbGxpbmdfcHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJANgEAQUFbmZ0SWQFCXNlcGFyYXRvcgIKbmZ0X29uU2VsbAUKbmZ0X29uU2VsbAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQVuZnRJZAUJc2VwYXJhdG9yAghuZnRfZGF0YQUIbmZ0X2RhdGEFA25pbAFpAQtidXlGcm9tU2xvdAEFbmZ0SWQECyR0MDkyMjM5MzEyCQCUCgIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQEDHBheW1lbnRBc3NldAgFCyR0MDkyMjM5MzEyAl8xBA1wYXltZW50QW1vdW50CAULJHQwOTIyMzkzMTICXzIEB2Fzc2V0SWQJANkEAQUFbmZ0SWQECyR0MDkzNTY5Mzk0CQEHZ2V0U2xvdAEFB2Fzc2V0SWQEBHR5cGUIBQskdDA5MzU2OTM5NAJfMQQHZGV0YWlscwgFCyR0MDkzNTY5Mzk0Al8yBAdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdhc3NldElkCQDMCAIJAQtEZWxldGVFbnRyeQEJAQpnZXRTbG90S2V5AgUEdHlwZQUHYXNzZXRJZAUDbmlsAwkAAAIFBHR5cGUFBWtTZWxsBAskdDA5NTM2OTU4MwkBC3BhcnNlQXNTZWxsAQUHZGV0YWlscwQGc2VsbGVyCAULJHQwOTUzNjk1ODMCXzEECnByaWNlVmFsdWUIBQskdDA5NTM2OTU4MwJfMgkBC3ZhbHVlT3JFbHNlAgkBEWlzQ29ycmVjdFBheW1lbnRzAwUMcGF5bWVudEFzc2V0BQ1wYXltZW50QW1vdW50BQpwcmljZVZhbHVlBAskdDA5NjY4OTc3MAkBEnJlc3VsdEZ1bmRzQW1vdW50cwMJAQxpc1RydXN0ZWROZnQBBQdhc3NldElkBQ1wYXltZW50QW1vdW50BQpwcmljZVZhbHVlBAxzZWxsZXJBbW91bnQIBQskdDA5NjY4OTc3MAJfMQQLYnV5ZXJBbW91bnQIBQskdDA5NjY4OTc3MAJfMgQKdXBkYXRlZFJlcwkAzggCBQdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBnNlbGxlcgUMc2VsbGVyQW1vdW50BQR1bml0BQNuaWwDCQBmAgULYnV5ZXJBbW91bnQAAAkAzggCBQp1cGRhdGVkUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgULYnV5ZXJBbW91bnQFBHVuaXQFA25pbAUKdXBkYXRlZFJlcwQMJHQwOTk4NzEwMDU2CQEYY2FsY1ByaWNlQXRDdXJyZW50TW9tZW50AgUHYXNzZXRJZAUGaGVpZ2h0BAZzZWxsZXIIBQwkdDA5OTg3MTAwNTYCXzEEC2FjdHVhbFByaWNlCAUMJHQwOTk4NzEwMDU2Al8yCQELdmFsdWVPckVsc2UCCQERaXNDb3JyZWN0UGF5bWVudHMDBQxwYXltZW50QXNzZXQFDXBheW1lbnRBbW91bnQFC2FjdHVhbFByaWNlBA0kdDAxMDE0MjEwMjQ1CQEScmVzdWx0RnVuZHNBbW91bnRzAwkBDGlzVHJ1c3RlZE5mdAEFB2Fzc2V0SWQFDXBheW1lbnRBbW91bnQFC2FjdHVhbFByaWNlBAxzZWxsZXJBbW91bnQIBQ0kdDAxMDE0MjEwMjQ1Al8xBAtidXllckFtb3VudAgFDSR0MDEwMTQyMTAyNDUCXzIECnVwZGF0ZWRSZXMJAM4IAgUHYmFzZVJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZzZWxsZXIFDHNlbGxlckFtb3VudAUEdW5pdAUDbmlsAwkAZgIFC2J1eWVyQW1vdW50AAAJAM4IAgUKdXBkYXRlZFJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2J1eWVyQW1vdW50BQR1bml0BQNuaWwFCnVwZGF0ZWRSZXMBaQELZGVjbGluZVNsb3QBBW5mdElkBAdhc3NldElkCQDZBAEFBW5mdElkBA0kdDAxMDU0NjEwNTg0CQEHZ2V0U2xvdAEFB2Fzc2V0SWQEBHR5cGUIBQ0kdDAxMDU0NjEwNTg0Al8xBAdkZXRhaWxzCAUNJHQwMTA1NDYxMDU4NAJfMgQHYmFzZVJlcwkAzAgCCQELRGVsZXRlRW50cnkBCQEKZ2V0U2xvdEtleQIFBHR5cGUFB2Fzc2V0SWQFA25pbAMJAAACBQR0eXBlBQVrU2VsbAQNJHQwMTA2NzYxMDcyMwkBC3BhcnNlQXNTZWxsAQUHZGV0YWlscwQGc2VsbGVyCAUNJHQwMTA2NzYxMDcyMwJfMQQKcHJpY2VWYWx1ZQgFDSR0MDEwNjc2MTA3MjMCXzIDCQEBIQEJAQ1pc1ZhbGlkQ2FsbGVyAggFAWkGY2FsbGVyBQZzZWxsZXIJAAIBAg5JbnZhbGlkIGNhbGxlcgkAzggCBQdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBnNlbGxlcgABBQdhc3NldElkBQNuaWwEDSR0MDEwODY4MTA5NzIJAQ5wYXJzZUFzQXVjdGlvbgEFB2RldGFpbHMEBnNlbGxlcggFDSR0MDEwODY4MTA5NzICXzEED3N0YXJ0UHJpY2VWYWx1ZQgFDSR0MDEwODY4MTA5NzICXzIEDWVuZFByaWNlVmFsdWUIBQ0kdDAxMDg2ODEwOTcyAl8zBBBzdGFydFBlcmlvZFZhbHVlCAUNJHQwMTA4NjgxMDk3MgJfNAQOZW5kUGVyaW9kVmFsdWUIBQ0kdDAxMDg2ODEwOTcyAl81AwkBASEBCQENaXNWYWxpZENhbGxlcgIIBQFpBmNhbGxlcgUGc2VsbGVyCQACAQIOSW52YWxpZCBjYWxsZXIDCQEBIQEJAQ5pc0F1Y3Rpb25FbmRlZAIFBmhlaWdodAUOZW5kUGVyaW9kVmFsdWUJAAIBAhdXYWl0IGZvciBlbmQgb2YgYXVjdGlvbgkAzggCBQdiYXNlUmVzCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBnNlbGxlcgABBQdhc3NldElkBQNuaWwBaQEQc2V0VHJ1c3RlZElzc3VlcgELdHJ1c3RlZEFkZHIDCQEBIQEJAQdpc0FkbWluAQgFAWkGY2FsbGVyCQACAQIKT25seSBhZG1pbgkAzAgCCQEMQm9vbGVhbkVudHJ5AgkBDWdldFRydXN0ZWRLZXkBCQERQGV4dHJOYXRpdmUoMTA2MikBBQt0cnVzdGVkQWRkcgYFA25pbAFpARdnZXRQcmljZUF0Q3VycmVudE1vbWVudAIFbmZ0SWQGbW9tZW50BAdhc3NldElkCQDZBAEFBW5mdElkBA0kdDAxMTUxMzExNTc2CQEYY2FsY1ByaWNlQXRDdXJyZW50TW9tZW50AgUHYXNzZXRJZAUGbW9tZW50BAZzZWxsZXIIBQ0kdDAxMTUxMzExNTc2Al8xBAVwcmljZQgFDSR0MDExNTEzMTE1NzYCXzIJAMwIAgkBDEludGVnZXJFbnRyeQIJAQtnZXRQcmljZUtleQEFB2Fzc2V0SWQFBXByaWNlBQNuaWwAAqtGvg==",
    "height": 2330787,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EuPRMVBcKcTupp99mvg7TLGpFhufnwv9MAT6PYdK1Rnq
Next: 3aLiEufepWkoyptMSBoSfkSuPyhHsMzByBoghC7xB9Hf

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

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

github/deemru/w8io/c3f4982 
41.39 ms ◑