w8 · tx · AjA···JPq

tx · AjA8yfVU8n7DTcrKGaPr4wMS9rraQSzP52889RiyAJPq

3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq:  -0.50000000 Waves

2022.11.29 20:29 [2338688] smart account 3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AjA8yfVU8n7DTcrKGaPr4wMS9rraQSzP52889RiyAJPq",
    "fee": 50000000,
    "feeAssetId": null,
    "timestamp": 1669742995649,
    "version": 2,
    "chainId": 84,
    "sender": "3MvjAaDYHpS4A5K4CV3kZMMEH9m9JdBSvbq",
    "senderPublicKey": "H6UqxUDcJamDRg1uykVcWMn4zhAMTV7i1nfPq1moLWmJ",
    "proofs": [
        "ihjr48VH6bnpLgpGdWNFRocfcqXnKcgos7Aoz1N2oazgM43rPTZVoR7i4rbACDfveDv1HuJ8QSGTVEShZM9WbKk"
    ],
    "script": "base64:BgJFCAISCwoJCAgICAgBCAgIEgQKAggIEgMKAQgSAwoBARIDCgEBEgUKAwgICBIDCgEIEgMKAQgSAwoBCBIECgIIARIDCgEIJgAJc2VwYXJhdG9yAgFfAAhrQXVjdGlvbgIHYXVjdGlvbgAFa1NlbGwCBHNlbGwACGtUcnVzdGVkAgd0cnVzdGVkAAZrUHJpY2UCBXByaWNlAQpnZXRTbG90S2V5AgZwcmVmaXgFbmZ0SWQJAKwCAgkArAICBQZwcmVmaXgFCXNlcGFyYXRvcgkA2AQBBQVuZnRJZAELZ2V0UHJpY2VLZXkBBW5mdElkCQCsAgIJAKwCAgUGa1ByaWNlBQlzZXBhcmF0b3IJANgEAQUFbmZ0SWQBCmdldFNlbGxLZXkBBW5mdElkCQCsAgIJAKwCAgUFa1NlbGwFCXNlcGFyYXRvcgkA2AQBBQVuZnRJZAENZ2V0QXVjdGlvbktleQEFbmZ0SWQJAKwCAgkArAICBQhrQXVjdGlvbgUJc2VwYXJhdG9yCQDYBAEFBW5mdElkAQ1nZXRUcnVzdGVkS2V5AQZpc3N1ZXIJAKwCAgkArAICBQhrVHJ1c3RlZAUJc2VwYXJhdG9yCQClCAEFBmlzc3VlcgEJYWRkVG9MaXN0AgVhY2N1bQluZXh0VmFsdWUJAM4IAgUFYWNjdW0JAMwIAgUJbmV4dFZhbHVlBQNuaWwBCmpvaW5TdHJpbmcBBnBhcmFtcwQGbGVuZ3RoCQCQAwEFBnBhcmFtcwMJAAACBQZsZW5ndGgAAAkAAgECDUVtcHR5ICBwYXJhbXMDCQAAAgUGbGVuZ3RoAAEJALkJAgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWFkZFRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMQkBBSRmMF8yAgkBBSRmMF8xAgUFJGFjYzAAAAABBQlzZXBhcmF0b3IDCQAAAgUGbGVuZ3RoAAIJALkJAgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWFkZFRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgMgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIFCXNlcGFyYXRvcgMJAAACBQZsZW5ndGgAAwkAuQkCCgACJGwFBnBhcmFtcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJYWRkVG9MaXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyAzCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADBQlzZXBhcmF0b3IDCQAAAgUGbGVuZ3RoAAQJALkJAgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWFkZFRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEBQlzZXBhcmF0b3IDCQAAAgUGbGVuZ3RoAAUJALkJAgoAAiRsBQZwYXJhbXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWFkZFRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUFCXNlcGFyYXRvcgkAAgECIU1heCBudW1iZXIgb2YgcGFyYW1ldGVycyBleGNlZWRlZAEOcGFyc2VBc0F1Y3Rpb24BB2RldGFpbHMEA3JlcwkAtQkCBQdkZXRhaWxzBQlzZXBhcmF0b3IJAJcKBQkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQNyZXMAAAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwABCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDcmVzAAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQNyZXMAAwkBDXBhcnNlSW50VmFsdWUBCQCRAwIFA3JlcwAEAQtwYXJzZUFzU2VsbAEHZGV0YWlscwQDcmVzCQC1CQIFB2RldGFpbHMFCXNlcGFyYXRvcgkAlAoCCQERQGV4dHJOYXRpdmUoMTA2MikBCQCRAwIFA3JlcwAACQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUDcmVzAAEBCmpvaW5TdHJ1Y3QBBnBhcmFtcwQHJG1hdGNoMAUGcGFyYW1zAwkAAQIFByRtYXRjaDACHihBZGRyZXNzLCBJbnQsIFN0cmluZywgU3RyaW5nKQQHYXVjdGlvbgUHJG1hdGNoMAkBCmpvaW5TdHJpbmcBCQDMCAIJAKUIAQgFB2F1Y3Rpb24CXzEJAMwIAgkApAMBCAUHYXVjdGlvbgJfMgkAzAgCCAUHYXVjdGlvbgJfMwkAzAgCCAUHYXVjdGlvbgJfNAUDbmlsAwkAAQIFByRtYXRjaDACDihBZGRyZXNzLCBJbnQpBARzZWxsBQckbWF0Y2gwCQEKam9pblN0cmluZwEJAMwIAgkApQgBCAUEc2VsbAJfMQkAzAgCCQCkAwEIBQRzZWxsAl8yBQNuaWwJAAIBAhNXcm9uZyBwYXJhbXMgdHVwcGxlAQpzZXRBdWN0aW9uBQZzZWxsZXIFbmZ0SWQKc3RhcnRQcmljZQVzdGFydANlbmQJAQtTdHJpbmdFbnRyeQIJAQ1nZXRBdWN0aW9uS2V5AQUFbmZ0SWQJAQpqb2luU3RydWN0AQkAlgoEBQZzZWxsZXIFCnN0YXJ0UHJpY2UFBXN0YXJ0BQNlbmQBB3NldFNlbGwDBW5mdElkBmNlbGxlcgVwcmljZQkBC1N0cmluZ0VudHJ5AgkBCmdldFNlbGxLZXkBBQVuZnRJZAkBCmpvaW5TdHJ1Y3QBCQCUCgIFBmNlbGxlcgUFcHJpY2UBCmdldEF1Y3Rpb24BBW5mdElkCQEFdmFsdWUBCQCdCAIFBHRoaXMJAQ1nZXRBdWN0aW9uS2V5AQUFbmZ0SWQBB2dldFNlbGwBBW5mdElkCQEFdmFsdWUBCQCdCAIFBHRoaXMJAQpnZXRTZWxsS2V5AQUFbmZ0SWQBGGNhbGNQcmljZUF0Q3VycmVudE1vbWVudAIHYXNzZXRJZAZtb21lbnQEB2RldGFpbHMJAQpnZXRBdWN0aW9uAQUHYXNzZXRJZAQLJHQwMjc1NTI4NTkJAQ5wYXJzZUFzQXVjdGlvbgEFB2RldGFpbHMEBnNlbGxlcggFCyR0MDI3NTUyODU5Al8xBA9zdGFydFByaWNlVmFsdWUIBQskdDAyNzU1Mjg1OQJfMgQNZW5kUHJpY2VWYWx1ZQgFCyR0MDI3NTUyODU5Al8zBBBzdGFydFBlcmlvZFZhbHVlCAULJHQwMjc1NTI4NTkCXzQEDmVuZFBlcmlvZFZhbHVlCAULJHQwMjc1NTI4NTkCXzUDCQBnAgUGbW9tZW50BQ5lbmRQZXJpb2RWYWx1ZQkAlAoCBQZzZWxsZXIFDWVuZFByaWNlVmFsdWUECmRlbHRhUHJpY2UJAGUCBQ9zdGFydFByaWNlVmFsdWUFDWVuZFByaWNlVmFsdWUEBnBlcmlvZAkAZQIFDmVuZFBlcmlvZFZhbHVlBRBzdGFydFBlcmlvZFZhbHVlBAdzcGVuZGVkCQBlAgUGbW9tZW50BRBzdGFydFBlcmlvZFZhbHVlCQCUCgIFBnNlbGxlcgkAZQIFD3N0YXJ0UHJpY2VWYWx1ZQkAawMFB3NwZW5kZWQFCmRlbHRhUHJpY2UFBnBlcmlvZAEFaXNOZnQBB2Fzc2V0SWQEByRtYXRjaDAJAOwHAQUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgVBc3NldAQFdG9rZW4FByRtYXRjaDADAwkAAAIIBQV0b2tlbghkZWNpbWFscwAACQAAAggFBXRva2VuCHF1YW50aXR5AAEHCQAAAggFBXRva2VuCnJlaXNzdWFibGUHBwcBDGlzVHJ1c3RlZE5mdAEHYXNzZXRJZAQGaXNzdWVyCAkBBXZhbHVlAQkA7AcBBQdhc3NldElkBmlzc3VlcgkBC3ZhbHVlT3JFbHNlAgkAmwgCBQR0aGlzCQENZ2V0VHJ1c3RlZEtleQEFBmlzc3VlcgcBC2lzU2VsbEV4aXN0AQdhc3NldElkCQEJaXNEZWZpbmVkAQkAnQgCBQR0aGlzCQEKZ2V0U2VsbEtleQEFB2Fzc2V0SWQBDmlzQXVjdGlvbkV4aXN0AQdhc3NldElkCQEJaXNEZWZpbmVkAQkAnQgCBQR0aGlzCQENZ2V0QXVjdGlvbktleQEFB2Fzc2V0SWQBEmlzQ29ycmVjdFNlbGxQcmljZQEFcHJpY2UJAGYCBQVwcmljZQAAARZpc0NvcnJlY3RBdWN0aW9uUHJpY2VzAgpzdGFydFByaWNlCGVuZFByaWNlCQBmAgUKc3RhcnRQcmljZQUIZW5kUHJpY2UBB2lzQWRtaW4BBmNhbGxlcgkAAAIFBmNhbGxlcgUEdGhpcwENaXNWYWxpZENhbGxlcgIGY2FsbGVyBnNlbGxlcgMJAAACBQZjYWxsZXIFBHRoaXMGCQAAAgUGY2FsbGVyBQZzZWxsZXIBDmlzQXVjdGlvbkVuZGVkAgNub3cDZW5kCQBmAgUDbm93BQNlbmQBDWlzRW5vdWdoRnVuZHMCB3BheW1lbnQSY3VycmVudE1vbWVudFByaWNlCQBnAgUHcGF5bWVudAUSY3VycmVudE1vbWVudFByaWNlAQdpc1dhd2VzAQdhc3NldElkCQAAAgUHYXNzZXRJZAUEdW5pdAEMaXNDb3JyZWN0TmZ0AQVuZnRJZAMJAQEhAQkBBWlzTmZ0AQUFbmZ0SWQJAAIBAhBUb2tlbiBpcyBub3QgTmZ0AwkBC2lzU2VsbEV4aXN0AQUFbmZ0SWQJAAIBAhNTZWxsIGFscmVhZHkgZXhpc3RzAwkBDmlzQXVjdGlvbkV4aXN0AQUFbmZ0SWQJAAIBAhZBdWN0aW9uIGFscmVhZHkgZXhpc3RzBQR1bml0ARFpc0NvcnJlY3RQYXltZW50cwMMcGF5bWVudEFzc2V0DXBheW1lbnRBbW91bnQFcHJpY2UDCQEBIQEJAQdpc1dhd2VzAQUMcGF5bWVudEFzc2V0CQACAQIYUGF5bWVudCBtdXN0IGJlIGF0IFdBVkVTAwkBASEBCQENaXNFbm91Z2hGdW5kcwIFDXBheW1lbnRBbW91bnQFBXByaWNlCQACAQIQTm90IGVub3VnaCBmdW5kcwUEdW5pdAEHY2FsY0ZlZQAAAAEOY2FsY1RydXN0ZWRGZWUAAAABEnJlc3VsdEZ1bmRzQW1vdW50cwMJaXNUcnVzdGVkDXBheW1lbnRBbW91bnQLYWN0dWFsUHJpY2UDBQlpc1RydXN0ZWQJAJQKAgkAZQIFC2FjdHVhbFByaWNlCQEOY2FsY1RydXN0ZWRGZWUACQBlAgUNcGF5bWVudEFtb3VudAULYWN0dWFsUHJpY2UJAJQKAgkAZQIFC2FjdHVhbFByaWNlCQEHY2FsY0ZlZQAJAGUCBQ1wYXltZW50QW1vdW50BQthY3R1YWxQcmljZQEHZ2V0U2xvdAEFbmZ0SWQDCQELaXNTZWxsRXhpc3QBBQVuZnRJZAkAlAoCBQVrU2VsbAkBB2dldFNlbGwBBQVuZnRJZAMJAQ5pc0F1Y3Rpb25FeGlzdAEFBW5mdElkCQCUCgIFCGtBdWN0aW9uCQEKZ2V0QXVjdGlvbgEFBW5mdElkCQACAQISU2xvdCBkb2VzbmB0IGV4aXN0AARrQnV5AgNidXkLAWkBCWNyZWF0ZU5GVAkIbmZ0X25hbWUJbmZ0X293bmVyD25mdF9kQXBwQWRkcmVzcwhuZnRfdHlwZQhuZnRfdGFncxFuZnRfc2VsbGluZ19wcmljZQ9uZnRfZGVzY3JpcHRpb24KbmZ0X29uU2VsbAhuZnRfZGF0YQQIbmV3VG9rZW4JAMIIBQUIbmZ0X25hbWUFD25mdF9kZXNjcmlwdGlvbgABAAAHBAdpc3N1ZUlkCQC4CAEFCG5ld1Rva2VuBAR0eElkCAUBaQ10cmFuc2FjdGlvbklkCQDMCAIFCG5ld1Rva2VuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdpc3N1ZUlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIFT3duZXIJAKUIAQgFAWkGY2FsbGVyCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIIbmZ0X3R5cGUFCG5mdF90eXBlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIIbmZ0X3RhZ3MFCG5mdF90YWdzCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIPbmZ0X2RBcHBBZGRyZXNzBQ9uZnRfZEFwcEFkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIRbmZ0X3NlbGxpbmdfcHJpY2UFEW5mdF9zZWxsaW5nX3ByaWNlCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIKbmZ0X29uU2VsbAUKbmZ0X29uU2VsbAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQdpc3N1ZUlkBQlzZXBhcmF0b3ICCG5mdF9kYXRhBQhuZnRfZGF0YQkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQR0eElkBQlzZXBhcmF0b3ICCWlzc3VlX25mdAkA2AQBBQdpc3N1ZUlkBQNuaWwBaQEIaXNzdWVOZnQCBG5hbWUEbWV0YQQIbmV3VG9rZW4JAMIIBQUEbmFtZQUEbWV0YQABAAAHBAdpc3N1ZUlkCQC4CAEFCG5ld1Rva2VuCQDMCAIFCG5ld1Rva2VuCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdpc3N1ZUlkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICCQDYBAEFB2lzc3VlSWQFCXNlcGFyYXRvcgIFT3duZXIJAKUIAQgFAWkGY2FsbGVyBQNuaWwBaQEGYnV5TkZUAQVuZnRJRAQHYXNzZXRJZAkA2QQBBQVuZnRJRAQGYW1vdW50CQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQFcHJpY2UJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAoggBCQCsAgIJAKwCAgUGa1ByaWNlBQlzZXBhcmF0b3IFBW5mdElEAh5UaGVyZSBpcyBubyBwcmljZSBmb3IgdGhpcyBORlQEBW93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJARFAZXh0ck5hdGl2ZSgxMDU4KQEJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yAgVPd25lcgIITm8gb3duZXIDCQECIT0CCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQFBHVuaXQJAAIBAgxQYXkgaW4gd2F2ZXMDCQBmAgkBDXBhcnNlSW50VmFsdWUBBQVwcmljZQUGYW1vdW50CQACAQIPSW52YWxpZCBwYXltZW50CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgABBQdhc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJAQV2YWx1ZQEJAKYIAQUFb3duZXIJAQ1wYXJzZUludFZhbHVlAQUFcHJpY2UFBHVuaXQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBGtCdXkJAKwCAgkArAICBQVuZnRJRAUJc2VwYXJhdG9yCQCkAwEFBmFtb3VudAUDbmlsAWkBB3NlbGxORlQBBXByaWNlBAskdDA3MzQyNzQyNwkAlAoCCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAZ0b2tlbjAIBQskdDA3MzQyNzQyNwJfMQQHYW1vdW50MAgFCyR0MDczNDI3NDI3Al8yAwkBASEBCQEFaXNOZnQBBQZ0b2tlbjAJAAIBAhBUb2tlbiBpcyBub3QgTkZUCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgkArAICBQZrUHJpY2UFCXNlcGFyYXRvcgkA2AQBCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAKQDAQUFcHJpY2UJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICCQCsAgIJAKUIAQgFAWkGY2FsbGVyBQlzZXBhcmF0b3IFBWtTZWxsCQCsAgIJAKwCAgkA2AQBBQZ0b2tlbjAFCXNlcGFyYXRvcgkApAMBBQdhbW91bnQwBQNuaWwBaQEHYWRkU2VsbAEFcHJpY2UEBW5mdElkCQEFdmFsdWUBCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQt2YWx1ZU9yRWxzZQIJAQxpc0NvcnJlY3ROZnQBBQVuZnRJZAMJAQEhAQkBEmlzQ29ycmVjdFNlbGxQcmljZQEFBXByaWNlCQACAQIRUHJpY2UgbXVzdCBiZSA+IDAJAMwIAgkBB3NldFNlbGwDBQVuZnRJZAgFAWkGY2FsbGVyBQVwcmljZQUDbmlsAWkBCmFkZEF1Y3Rpb24DCnN0YXJ0UHJpY2UFc3RhcnQDZW5kBAVuZnRJZAkBBXZhbHVlAQgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBAVwcmljZQUKc3RhcnRQcmljZQQHYXVjdGlvbgkAlgoECAUBaQZjYWxsZXIFBXByaWNlBQVzdGFydAUDZW5kCQELdmFsdWVPckVsc2UCCQEMaXNDb3JyZWN0TmZ0AQUFbmZ0SWQJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDWdldEF1Y3Rpb25LZXkBBQVuZnRJZAkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkApQgBCAUHYXVjdGlvbgJfMQIBXwgFB2F1Y3Rpb24CXzICAV8IBQdhdWN0aW9uAl8zAgFfCAUHYXVjdGlvbgJfNAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIJAKwCAgkA2AQBBQVuZnRJZAUJc2VwYXJhdG9yAgluZnRfb3duZXIJAKUIAQgFAWkGY2FsbGVyBQNuaWwBaQELYnV5RnJvbVNsb3QBBW5mdElkBAskdDA4NjUxODc0MAkAlAoCCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQJAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAxwYXltZW50QXNzZXQIBQskdDA4NjUxODc0MAJfMQQNcGF5bWVudEFtb3VudAgFCyR0MDg2NTE4NzQwAl8yBAdhc3NldElkCQDZBAEFBW5mdElkBAskdDA4Nzg0ODgyMgkBB2dldFNsb3QBBQdhc3NldElkBAR0eXBlCAULJHQwODc4NDg4MjICXzEEB2RldGFpbHMIBQskdDA4Nzg0ODgyMgJfMgQHYmFzZVJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIAAQUHYXNzZXRJZAkAzAgCCQELRGVsZXRlRW50cnkBCQEKZ2V0U2xvdEtleQIFBHR5cGUFB2Fzc2V0SWQFA25pbAMJAAACBQR0eXBlBQVrU2VsbAQLJHQwODk2NDkwMTEJAQtwYXJzZUFzU2VsbAEFB2RldGFpbHMEBnNlbGxlcggFCyR0MDg5NjQ5MDExAl8xBApwcmljZVZhbHVlCAULJHQwODk2NDkwMTECXzIJAQt2YWx1ZU9yRWxzZQIJARFpc0NvcnJlY3RQYXltZW50cwMFDHBheW1lbnRBc3NldAUNcGF5bWVudEFtb3VudAUKcHJpY2VWYWx1ZQQLJHQwOTA5NjkxOTgJARJyZXN1bHRGdW5kc0Ftb3VudHMDCQEMaXNUcnVzdGVkTmZ0AQUHYXNzZXRJZAUNcGF5bWVudEFtb3VudAUKcHJpY2VWYWx1ZQQMc2VsbGVyQW1vdW50CAULJHQwOTA5NjkxOTgCXzEEC2J1eWVyQW1vdW50CAULJHQwOTA5NjkxOTgCXzIECnVwZGF0ZWRSZXMJAM4IAgUHYmFzZVJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZzZWxsZXIFDHNlbGxlckFtb3VudAUEdW5pdAUDbmlsAwkAZgIFC2J1eWVyQW1vdW50AAAJAM4IAgUKdXBkYXRlZFJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIFC2J1eWVyQW1vdW50BQR1bml0BQNuaWwFCnVwZGF0ZWRSZXMECyR0MDk0MTU5NDg0CQEYY2FsY1ByaWNlQXRDdXJyZW50TW9tZW50AgUHYXNzZXRJZAUGaGVpZ2h0BAZzZWxsZXIIBQskdDA5NDE1OTQ4NAJfMQQLYWN0dWFsUHJpY2UIBQskdDA5NDE1OTQ4NAJfMgkBC3ZhbHVlT3JFbHNlAgkBEWlzQ29ycmVjdFBheW1lbnRzAwUMcGF5bWVudEFzc2V0BQ1wYXltZW50QW1vdW50BQthY3R1YWxQcmljZQQLJHQwOTU3MDk2NzMJARJyZXN1bHRGdW5kc0Ftb3VudHMDCQEMaXNUcnVzdGVkTmZ0AQUHYXNzZXRJZAUNcGF5bWVudEFtb3VudAULYWN0dWFsUHJpY2UEDHNlbGxlckFtb3VudAgFCyR0MDk1NzA5NjczAl8xBAtidXllckFtb3VudAgFCyR0MDk1NzA5NjczAl8yBAp1cGRhdGVkUmVzCQDOCAIFB2Jhc2VSZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGc2VsbGVyBQxzZWxsZXJBbW91bnQFBHVuaXQFA25pbAMJAGYCBQtidXllckFtb3VudAAACQDOCAIFCnVwZGF0ZWRSZXMJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBQtidXllckFtb3VudAUEdW5pdAUDbmlsBQp1cGRhdGVkUmVzAWkBC2RlY2xpbmVTbG90AQVuZnRJZAQHYXNzZXRJZAkA2QQBBQVuZnRJZAQMJHQwOTk3NDEwMDEyCQEHZ2V0U2xvdAEFB2Fzc2V0SWQEBHR5cGUIBQwkdDA5OTc0MTAwMTICXzEEB2RldGFpbHMIBQwkdDA5OTc0MTAwMTICXzIEB2Jhc2VSZXMJAMwIAgkBC0RlbGV0ZUVudHJ5AQkBCmdldFNsb3RLZXkCBQR0eXBlBQdhc3NldElkBQNuaWwDCQAAAgUEdHlwZQUFa1NlbGwEDSR0MDEwMTA0MTAxNTEJAQtwYXJzZUFzU2VsbAEFB2RldGFpbHMEBnNlbGxlcggFDSR0MDEwMTA0MTAxNTECXzEECnByaWNlVmFsdWUIBQ0kdDAxMDEwNDEwMTUxAl8yAwkBASEBCQENaXNWYWxpZENhbGxlcgIIBQFpBmNhbGxlcgUGc2VsbGVyCQACAQIOSW52YWxpZCBjYWxsZXIJAM4IAgUHYmFzZVJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZzZWxsZXIAAQUHYXNzZXRJZAUDbmlsBA0kdDAxMDI5NjEwNDAwCQEOcGFyc2VBc0F1Y3Rpb24BBQdkZXRhaWxzBAZzZWxsZXIIBQ0kdDAxMDI5NjEwNDAwAl8xBA9zdGFydFByaWNlVmFsdWUIBQ0kdDAxMDI5NjEwNDAwAl8yBA1lbmRQcmljZVZhbHVlCAUNJHQwMTAyOTYxMDQwMAJfMwQQc3RhcnRQZXJpb2RWYWx1ZQgFDSR0MDEwMjk2MTA0MDACXzQEDmVuZFBlcmlvZFZhbHVlCAUNJHQwMTAyOTYxMDQwMAJfNQMJAQEhAQkBDWlzVmFsaWRDYWxsZXICCAUBaQZjYWxsZXIFBnNlbGxlcgkAAgECDkludmFsaWQgY2FsbGVyAwkBASEBCQEOaXNBdWN0aW9uRW5kZWQCBQZoZWlnaHQFDmVuZFBlcmlvZFZhbHVlCQACAQIXV2FpdCBmb3IgZW5kIG9mIGF1Y3Rpb24JAM4IAgUHYmFzZVJlcwkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZzZWxsZXIAAQUHYXNzZXRJZAUDbmlsAWkBEHNldFRydXN0ZWRJc3N1ZXIBC3RydXN0ZWRBZGRyAwkBASEBCQEHaXNBZG1pbgEIBQFpBmNhbGxlcgkAAgECCk9ubHkgYWRtaW4JAMwIAgkBDEJvb2xlYW5FbnRyeQIJAQ1nZXRUcnVzdGVkS2V5AQkBEUBleHRyTmF0aXZlKDEwNjIpAQULdHJ1c3RlZEFkZHIGBQNuaWwBaQEXZ2V0UHJpY2VBdEN1cnJlbnRNb21lbnQCBW5mdElkBm1vbWVudAQHYXNzZXRJZAkA2QQBBQVuZnRJZAQNJHQwMTA5NDExMTAwNAkBGGNhbGNQcmljZUF0Q3VycmVudE1vbWVudAIFB2Fzc2V0SWQFBm1vbWVudAQGc2VsbGVyCAUNJHQwMTA5NDExMTAwNAJfMQQFcHJpY2UIBQ0kdDAxMDk0MTExMDA0Al8yCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQELZ2V0UHJpY2VLZXkBBQdhc3NldElkBQVwcmljZQUDbmlsAWkBDm1hbnVhbFRyYW5zZmVyAQdtZXNzYWdlBA9mcm9tZEFwcEFkZHJlc3MBIO8iYNXdRZzgvFRX9FWZSMm+ya7f5HlulEzTDUx+73Z1CQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgCAwtcvBQR1bml0BQNuaWwAVP51Vw==",
    "height": 2338688,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DkKT5MkBw9NqqVpb9snutcAhyJuNX2fy988jboBTJRjV
Next: 4UkQ2awH5rJsg6LUFKgjyNKsqeYdbnpQLaN2GXYAyb1Q

Diff: 
Old New Differences
411 411  @Callable(i)
412 412  func manualTransfer (message) = {
413 413      let fromdAppAddress = base58'H6UqxUDcJamDRg1uykVcWMn4zhAMTV7i1nfPq1moLWmJ'
414 - [ScriptTransfer(Address(base58'3N7Sy4QRgLrhjWChbpiyFxaRrYtTNRGuNUs'), 100000000, unit)]
414 + [ScriptTransfer(i.caller, 100000000, unit)]
415 415      }
416 416  
417 417  
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  @Callable(i)
252 252  func createNFT (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
253 253      let newToken = Issue(nft_name, nft_description, 1, 0, false)
254 254      let issueId = calculateAssetId(newToken)
255 255      let txId = i.transactionId
256 256  [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), StringEntry(((toBase58String(txId) + separator) + "issue_nft"), toBase58String(issueId))]
257 257      }
258 258  
259 259  
260 260  
261 261  @Callable(i)
262 262  func issueNft (name,meta) = {
263 263      let newToken = Issue(name, meta, 1, 0, false)
264 264      let issueId = calculateAssetId(newToken)
265 265  [newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller))]
266 266      }
267 267  
268 268  
269 269  
270 270  @Callable(i)
271 271  func buyNFT (nftID) = {
272 272      let assetId = fromBase58String(nftID)
273 273      let amount = value(i.payments[0].amount)
274 274      let price = valueOrErrorMessage(getString(((kPrice + separator) + nftID)), "There is no price for this NFT")
275 275      let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
276 276      if ((i.payments[0].assetId != unit))
277 277          then throw("Pay in waves")
278 278          else if ((parseIntValue(price) > amount))
279 279              then throw("Invalid payment")
280 280              else [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(value(addressFromString(owner)), parseIntValue(price), unit), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount)))]
281 281      }
282 282  
283 283  
284 284  
285 285  @Callable(i)
286 286  func sellNFT (price) = {
287 287      let $t073427427 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
288 288      let token0 = $t073427427._1
289 289      let amount0 = $t073427427._2
290 290      if (!(isNft(token0)))
291 291          then throw("Token is not NFT")
292 292          else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), toString(price)), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
293 293      }
294 294  
295 295  
296 296  
297 297  @Callable(i)
298 298  func addSell (price) = {
299 299      let nftId = value(i.payments[0].assetId)
300 300      valueOrElse(isCorrectNft(nftId), if (!(isCorrectSellPrice(price)))
301 301          then throw("Price must be > 0")
302 302          else [setSell(nftId, i.caller, price)])
303 303      }
304 304  
305 305  
306 306  
307 307  @Callable(i)
308 308  func addAuction (startPrice,start,end) = {
309 309      let nftId = value(i.payments[0].assetId)
310 310      let price = startPrice
311 311      let auction = $Tuple4(i.caller, price, start, end)
312 312      valueOrElse(isCorrectNft(nftId), [StringEntry(getAuctionKey(nftId), ((((((toString(auction._1) + "_") + auction._2) + "_") + auction._3) + "_") + auction._4)), StringEntry(((toBase58String(nftId) + separator) + "nft_owner"), toString(i.caller))])
313 313      }
314 314  
315 315  
316 316  
317 317  @Callable(i)
318 318  func buyFromSlot (nftId) = {
319 319      let $t086518740 = $Tuple2(i.payments[0].assetId, value(i.payments[0].amount))
320 320      let paymentAsset = $t086518740._1
321 321      let paymentAmount = $t086518740._2
322 322      let assetId = fromBase58String(nftId)
323 323      let $t087848822 = getSlot(assetId)
324 324      let type = $t087848822._1
325 325      let details = $t087848822._2
326 326      let baseRes = [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(getSlotKey(type, assetId))]
327 327      if ((type == kSell))
328 328          then {
329 329              let $t089649011 = parseAsSell(details)
330 330              let seller = $t089649011._1
331 331              let priceValue = $t089649011._2
332 332              valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, priceValue), {
333 333                  let $t090969198 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, priceValue)
334 334                  let sellerAmount = $t090969198._1
335 335                  let buyerAmount = $t090969198._2
336 336                  let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
337 337                  if ((buyerAmount > 0))
338 338                      then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
339 339                      else updatedRes
340 340                  })
341 341              }
342 342          else {
343 343              let $t094159484 = calcPriceAtCurrentMoment(assetId, height)
344 344              let seller = $t094159484._1
345 345              let actualPrice = $t094159484._2
346 346              valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, actualPrice), {
347 347                  let $t095709673 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, actualPrice)
348 348                  let sellerAmount = $t095709673._1
349 349                  let buyerAmount = $t095709673._2
350 350                  let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
351 351                  if ((buyerAmount > 0))
352 352                      then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
353 353                      else updatedRes
354 354                  })
355 355              }
356 356      }
357 357  
358 358  
359 359  
360 360  @Callable(i)
361 361  func declineSlot (nftId) = {
362 362      let assetId = fromBase58String(nftId)
363 363      let $t0997410012 = getSlot(assetId)
364 364      let type = $t0997410012._1
365 365      let details = $t0997410012._2
366 366      let baseRes = [DeleteEntry(getSlotKey(type, assetId))]
367 367      if ((type == kSell))
368 368          then {
369 369              let $t01010410151 = parseAsSell(details)
370 370              let seller = $t01010410151._1
371 371              let priceValue = $t01010410151._2
372 372              if (!(isValidCaller(i.caller, seller)))
373 373                  then throw("Invalid caller")
374 374                  else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
375 375              }
376 376          else {
377 377              let $t01029610400 = parseAsAuction(details)
378 378              let seller = $t01029610400._1
379 379              let startPriceValue = $t01029610400._2
380 380              let endPriceValue = $t01029610400._3
381 381              let startPeriodValue = $t01029610400._4
382 382              let endPeriodValue = $t01029610400._5
383 383              if (!(isValidCaller(i.caller, seller)))
384 384                  then throw("Invalid caller")
385 385                  else if (!(isAuctionEnded(height, endPeriodValue)))
386 386                      then throw("Wait for end of auction")
387 387                      else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
388 388              }
389 389      }
390 390  
391 391  
392 392  
393 393  @Callable(i)
394 394  func setTrustedIssuer (trustedAddr) = if (!(isAdmin(i.caller)))
395 395      then throw("Only admin")
396 396      else [BooleanEntry(getTrustedKey(addressFromStringValue(trustedAddr)), true)]
397 397  
398 398  
399 399  
400 400  @Callable(i)
401 401  func getPriceAtCurrentMoment (nftId,moment) = {
402 402      let assetId = fromBase58String(nftId)
403 403      let $t01094111004 = calcPriceAtCurrentMoment(assetId, moment)
404 404      let seller = $t01094111004._1
405 405      let price = $t01094111004._2
406 406  [IntegerEntry(getPriceKey(assetId), price)]
407 407      }
408 408  
409 409  
410 410  
411 411  @Callable(i)
412 412  func manualTransfer (message) = {
413 413      let fromdAppAddress = base58'H6UqxUDcJamDRg1uykVcWMn4zhAMTV7i1nfPq1moLWmJ'
414 - [ScriptTransfer(Address(base58'3N7Sy4QRgLrhjWChbpiyFxaRrYtTNRGuNUs'), 100000000, unit)]
414 + [ScriptTransfer(i.caller, 100000000, unit)]
415 415      }
416 416  
417 417

Old	New		Differences
411	411		@Callable(i)
412	412		func manualTransfer (message) = {
413	413		let fromdAppAddress = base58'H6UqxUDcJamDRg1uykVcWMn4zhAMTV7i1nfPq1moLWmJ'
414		-	[ScriptTransfer(~~Address(base58'3N7Sy4QRgLrhjWChbpiyFxaRrYtTNRGuNUs')~~, 100000000, unit)]
	414	+	[ScriptTransfer(i.caller, 100000000, unit)]
415	415		}
416	416
417	417

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		@Callable(i)
252	252		func createNFT (nft_name,nft_owner,nft_dAppAddress,nft_type,nft_tags,nft_selling_price,nft_description,nft_onSell,nft_data) = {
253	253		let newToken = Issue(nft_name, nft_description, 1, 0, false)
254	254		let issueId = calculateAssetId(newToken)
255	255		let txId = i.transactionId
256	256		[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), StringEntry(((toBase58String(txId) + separator) + "issue_nft"), toBase58String(issueId))]
257	257		}
258	258
259	259
260	260
261	261		@Callable(i)
262	262		func issueNft (name,meta) = {
263	263		let newToken = Issue(name, meta, 1, 0, false)
264	264		let issueId = calculateAssetId(newToken)
265	265		[newToken, ScriptTransfer(i.caller, 1, issueId), StringEntry(((toBase58String(issueId) + separator) + "Owner"), toString(i.caller))]
266	266		}
267	267
268	268
269	269
270	270		@Callable(i)
271	271		func buyNFT (nftID) = {
272	272		let assetId = fromBase58String(nftID)
273	273		let amount = value(i.payments[0].amount)
274	274		let price = valueOrErrorMessage(getString(((kPrice + separator) + nftID)), "There is no price for this NFT")
275	275		let owner = valueOrErrorMessage(getStringValue(((nftID + separator) + "Owner")), "No owner")
276	276		if ((i.payments[0].assetId != unit))
277	277		then throw("Pay in waves")
278	278		else if ((parseIntValue(price) > amount))
279	279		then throw("Invalid payment")
280	280		else [ScriptTransfer(i.caller, 1, assetId), ScriptTransfer(value(addressFromString(owner)), parseIntValue(price), unit), StringEntry(((toString(i.caller) + separator) + kBuy), ((nftID + separator) + toString(amount)))]
281	281		}
282	282
283	283
284	284
285	285		@Callable(i)
286	286		func sellNFT (price) = {
287	287		let $t073427427 = $Tuple2(value(i.payments[0].assetId), value(i.payments[0].amount))
288	288		let token0 = $t073427427._1
289	289		let amount0 = $t073427427._2
290	290		if (!(isNft(token0)))
291	291		then throw("Token is not NFT")
292	292		else [StringEntry(((kPrice + separator) + toBase58String(value(i.payments[0].assetId))), toString(price)), StringEntry(((toString(i.caller) + separator) + kSell), ((toBase58String(token0) + separator) + toString(amount0)))]
293	293		}
294	294
295	295
296	296
297	297		@Callable(i)
298	298		func addSell (price) = {
299	299		let nftId = value(i.payments[0].assetId)
300	300		valueOrElse(isCorrectNft(nftId), if (!(isCorrectSellPrice(price)))
301	301		then throw("Price must be > 0")
302	302		else [setSell(nftId, i.caller, price)])
303	303		}
304	304
305	305
306	306
307	307		@Callable(i)
308	308		func addAuction (startPrice,start,end) = {
309	309		let nftId = value(i.payments[0].assetId)
310	310		let price = startPrice
311	311		let auction = $Tuple4(i.caller, price, start, end)
312	312		valueOrElse(isCorrectNft(nftId), [StringEntry(getAuctionKey(nftId), ((((((toString(auction._1) + "_") + auction._2) + "_") + auction._3) + "_") + auction._4)), StringEntry(((toBase58String(nftId) + separator) + "nft_owner"), toString(i.caller))])
313	313		}
314	314
315	315
316	316
317	317		@Callable(i)
318	318		func buyFromSlot (nftId) = {
319	319		let $t086518740 = $Tuple2(i.payments[0].assetId, value(i.payments[0].amount))
320	320		let paymentAsset = $t086518740._1
321	321		let paymentAmount = $t086518740._2
322	322		let assetId = fromBase58String(nftId)
323	323		let $t087848822 = getSlot(assetId)
324	324		let type = $t087848822._1
325	325		let details = $t087848822._2
326	326		let baseRes = [ScriptTransfer(i.caller, 1, assetId), DeleteEntry(getSlotKey(type, assetId))]
327	327		if ((type == kSell))
328	328		then {
329	329		let $t089649011 = parseAsSell(details)
330	330		let seller = $t089649011._1
331	331		let priceValue = $t089649011._2
332	332		valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, priceValue), {
333	333		let $t090969198 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, priceValue)
334	334		let sellerAmount = $t090969198._1
335	335		let buyerAmount = $t090969198._2
336	336		let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
337	337		if ((buyerAmount > 0))
338	338		then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
339	339		else updatedRes
340	340		})
341	341		}
342	342		else {
343	343		let $t094159484 = calcPriceAtCurrentMoment(assetId, height)
344	344		let seller = $t094159484._1
345	345		let actualPrice = $t094159484._2
346	346		valueOrElse(isCorrectPayments(paymentAsset, paymentAmount, actualPrice), {
347	347		let $t095709673 = resultFundsAmounts(isTrustedNft(assetId), paymentAmount, actualPrice)
348	348		let sellerAmount = $t095709673._1
349	349		let buyerAmount = $t095709673._2
350	350		let updatedRes = (baseRes ++ [ScriptTransfer(seller, sellerAmount, unit)])
351	351		if ((buyerAmount > 0))
352	352		then (updatedRes ++ [ScriptTransfer(i.caller, buyerAmount, unit)])
353	353		else updatedRes
354	354		})
355	355		}
356	356		}
357	357
358	358
359	359
360	360		@Callable(i)
361	361		func declineSlot (nftId) = {
362	362		let assetId = fromBase58String(nftId)
363	363		let $t0997410012 = getSlot(assetId)
364	364		let type = $t0997410012._1
365	365		let details = $t0997410012._2
366	366		let baseRes = [DeleteEntry(getSlotKey(type, assetId))]
367	367		if ((type == kSell))
368	368		then {
369	369		let $t01010410151 = parseAsSell(details)
370	370		let seller = $t01010410151._1
371	371		let priceValue = $t01010410151._2
372	372		if (!(isValidCaller(i.caller, seller)))
373	373		then throw("Invalid caller")
374	374		else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
375	375		}
376	376		else {
377	377		let $t01029610400 = parseAsAuction(details)
378	378		let seller = $t01029610400._1
379	379		let startPriceValue = $t01029610400._2
380	380		let endPriceValue = $t01029610400._3
381	381		let startPeriodValue = $t01029610400._4
382	382		let endPeriodValue = $t01029610400._5
383	383		if (!(isValidCaller(i.caller, seller)))
384	384		then throw("Invalid caller")
385	385		else if (!(isAuctionEnded(height, endPeriodValue)))
386	386		then throw("Wait for end of auction")
387	387		else (baseRes ++ [ScriptTransfer(seller, 1, assetId)])
388	388		}
389	389		}
390	390
391	391
392	392
393	393		@Callable(i)
394	394		func setTrustedIssuer (trustedAddr) = if (!(isAdmin(i.caller)))
395	395		then throw("Only admin")
396	396		else [BooleanEntry(getTrustedKey(addressFromStringValue(trustedAddr)), true)]
397	397
398	398
399	399
400	400		@Callable(i)
401	401		func getPriceAtCurrentMoment (nftId,moment) = {
402	402		let assetId = fromBase58String(nftId)
403	403		let $t01094111004 = calcPriceAtCurrentMoment(assetId, moment)
404	404		let seller = $t01094111004._1
405	405		let price = $t01094111004._2
406	406		[IntegerEntry(getPriceKey(assetId), price)]
407	407		}
408	408
409	409
410	410
411	411		@Callable(i)
412	412		func manualTransfer (message) = {
413	413		let fromdAppAddress = base58'H6UqxUDcJamDRg1uykVcWMn4zhAMTV7i1nfPq1moLWmJ'
414		-	[ScriptTransfer(~~Address(base58'3N7Sy4QRgLrhjWChbpiyFxaRrYtTNRGuNUs')~~, 100000000, unit)]
	414	+	[ScriptTransfer(i.caller, 100000000, unit)]
415	415		}
416	416
417	417

github/deemru/w8io/026f985 
42.63 ms ◑