w8 · tx · CXJ···M8K

tx · CXJmdU2aeRn9m3mL3kgqttfZ7wMpz8YwZ91xQMQSMM8K

3PKx4fQ6hT9ejY51h7426tqmMgWSfnrtBcx:  -0.01200000 Waves

2023.11.16 16:14 [3911803] smart account 3PKx4fQ6hT9ejY51h7426tqmMgWSfnrtBcx > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CXJmdU2aeRn9m3mL3kgqttfZ7wMpz8YwZ91xQMQSMM8K",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1700140563126,
    "version": 2,
    "chainId": 87,
    "sender": "3PKx4fQ6hT9ejY51h7426tqmMgWSfnrtBcx",
    "senderPublicKey": "2hjYvNQhP4gLEQFqgDQgodZKmeWT2EjkxqMc4bKS6hEn",
    "proofs": [
        "2iu4vvYoZxmYKirF9m3dqgRoFM2xC7ME1XsudJWesXfh8ego211Ayzw7KdiGuHFZCMotXBsd4vvkoV5DjPZZw4rC"
    ],
    "script": "base64:BgIeCAISAwoBGBIDCgEYEgQKAgIYEgQKAgIYEgQKAgIYJwAJc2VwYXJhdG9yAgJfXwAHY2hhaW5JZAkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQAIY2hhaW5JZFQBAVQACGNoYWluSWRXAQFXAQttdXN0QWRkcmVzcwIBaQdhZGRyZXNzAwkAAAIIBQFpBmNhbGxlcgUHYWRkcmVzcwYJAAIBAhFwZXJtaXNzaW9uIGRlbmllZAEIbXVzdFRoaXMBAWkJAQttdXN0QWRkcmVzcwIFAWkFBHRoaXMAA1NFUAICX18ABVdBVkVTAgVXQVZFUwAQY29udHJhY3RGaWxlbmFtZQIVd3hkYW9fY2FsY3VsYXRvci5yaWRlAAVtdWx0OACAwtcvAAZtdWx0MTgJALYCAQCAgJC7utat8A0ADXdhdmVzRGVjaW1hbHMACAAMdXNkdERlY2ltYWxzAAYBBXRvWDE4AgdvcmlnVmFsDW9yaWdTY2FsZU11bHQJALwCAwkAtgIBBQdvcmlnVmFsBQZtdWx0MTgJALYCAQUNb3JpZ1NjYWxlTXVsdAEHZnJvbVgxOAIDdmFsD3Jlc3VsdFNjYWxlTXVsdAkAoAMBCQC8AgMFA3ZhbAkAtgIBBQ9yZXN1bHRTY2FsZU11bHQFBm11bHQxOAEHd3JhcEVycgEBcwkArAICCQCsAgIFEGNvbnRyYWN0RmlsZW5hbWUCAjogBQFzAQh0aHJvd0VycgEBcwkAAgEJAQd3cmFwRXJyAQUBcwEQa2V5Q3VycmVudFBlcmlvZAAJALkJAgkAzAgCAgIlcwkAzAgCAg1jdXJyZW50UGVyaW9kBQNuaWwFA1NFUAEWa2V5U3RhcnRIZWlnaHRCeVBlcmlvZAEGcGVyaW9kCQC5CQIJAMwIAgIEJXMlZAkAzAgCAgtzdGFydEhlaWdodAkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABD2tleVBlcmlvZExlbmd0aAAJALkJAgkAzAgCAgIlcwkAzAgCAgxwZXJpb2RMZW5ndGgFA25pbAUDU0VQARhrZXlUcmVhc3VyeVZhbHVlQnlQZXJpb2QBBnBlcmlvZAkAuQkCCQDMCAICBCVzJWQJAMwIAgINdHJlYXN1cnlWYWx1ZQkAzAgCCQCkAwEFBnBlcmlvZAUDbmlsBQNTRVABFWtleVBvd2VyQ29uZmlnQWRkcmVzcwACFiVzX19wb3dlckNvbmZpZ0FkZHJlc3MBEnBvd2VyQ29uZmlnQWRkcmVzcwEOZmFjdG9yeUFkZHJlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgQHJG1hdGNoMAkAnQgCBQ5mYWN0b3J5QWRkcmVzcwkBFWtleVBvd2VyQ29uZmlnQWRkcmVzcwADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQCmCAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yCQEHd3JhcEVycgECHGludmFsaWQgcG93ZXIgY29uZmlnIGFkZHJlc3MBD2tleVBvd2VyQXNzZXRJZAACDHBvd2VyQXNzZXRJZAEPZ2V0UG93ZXJBc3NldElkAQ5mYWN0b3J5QWRkcmVzcwkA2QQBCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgkBEnBvd2VyQ29uZmlnQWRkcmVzcwEFDmZhY3RvcnlBZGRyZXNzCQEPa2V5UG93ZXJBc3NldElkAAkBB3dyYXBFcnIBAhZpbnZhbGlkIHBvd2VyIGFzc2V0IGlkARdrZXlQb3dlckNvbnRyYWN0QWRkcmVzcwACGCVzX19wb3dlckNvbnRyYWN0QWRkcmVzcwEUcG93ZXJDb250cmFjdEFkZHJlc3MBDmZhY3RvcnlBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIEByRtYXRjaDAJAJ0IAgUOZmFjdG9yeUFkZHJlc3MJARdrZXlQb3dlckNvbnRyYWN0QWRkcmVzcwADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQCmCAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yCQEHd3JhcEVycgECHmludmFsaWQgcG93ZXIgY29udHJhY3QgYWRkcmVzcwEWa2V5UG9vbHNGYWN0b3J5QWRkcmVzcwACFyVzX19wb29sc0ZhY3RvcnlBZGRyZXNzARZnZXRQb29sc0ZhY3RvcnlBZGRyZXNzAQ5mYWN0b3J5QWRkcmVzcwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCBAckbWF0Y2gwCQCdCAIFDmZhY3RvcnlBZGRyZXNzCQEWa2V5UG9vbHNGYWN0b3J5QWRkcmVzcwADCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFzBQckbWF0Y2gwCQCmCAEFAXMDCQABAgUHJG1hdGNoMAIEVW5pdAUEdW5pdAkAAgECC01hdGNoIGVycm9yCQEHd3JhcEVycgECHWludmFsaWQgcG9vbHMgZmFjdG9yeSBhZGRyZXNzARJrZXlUcmVhc3VyeUFkZHJlc3MAAhMlc19fdHJlYXN1cnlBZGRyZXNzARJnZXRUcmVhc3VyeUFkZHJlc3MBDmZhY3RvcnlBZGRyZXNzCQETdmFsdWVPckVycm9yTWVzc2FnZQIEByRtYXRjaDAJAJ0IAgUOZmFjdG9yeUFkZHJlc3MJARJrZXlUcmVhc3VyeUFkZHJlc3MAAwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAkApggBBQFzAwkAAQIFByRtYXRjaDACBFVuaXQFBHVuaXQJAAIBAgtNYXRjaCBlcnJvcgkBB3dyYXBFcnIBAhhpbnZhbGlkIHRyZWFzdXJ5IGFkZHJlc3MBCWtleUFzc2V0cwACCiVzX19hc3NldHMBDGdldEFzc2V0c1N0cgEOZmFjdG9yeUFkZHJlc3MJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ5mYWN0b3J5QWRkcmVzcwkBCWtleUFzc2V0cwAJAQd3cmFwRXJyAQIOaW52YWxpZCBhc3NldHMBDGtleUxwQXNzZXRJZAACDSVzX19scEFzc2V0SWQBDGdldExwQXNzZXRJZAEOZmFjdG9yeUFkZHJlc3MJANkEAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFDmZhY3RvcnlBZGRyZXNzCQEMa2V5THBBc3NldElkAAkBB3dyYXBFcnIBAhNpbnZhbGlkIGxwIGFzc2V0IGlkARJnZXRBc3NldEluZm9PckZhaWwBB2Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBBQdhc3NldElkCQEHd3JhcEVycgECEmludmFsaWQgYXNzZXQgaW5mbwERZ2V0QXNzZXRzQmFsYW5jZXMCDXRhcmdldEFkZHJlc3MLYXNzZXRJZExpc3QKAQNtYXACA2FjYw5uZXh0QXNzZXRJZFN0cgQHYmFsYW5jZQMJAAACBQ5uZXh0QXNzZXRJZFN0cgUFV0FWRVMJAQV0b1gxOAIICQDvBwEFDXRhcmdldEFkZHJlc3MJYXZhaWxhYmxlCQBsBgAKAAAFDXdhdmVzRGVjaW1hbHMAAAAABQRET1dOBAdhc3NldElkCQDZBAEFDm5leHRBc3NldElkU3RyBA1hc3NldERlY2ltYWxzCAkBEmdldEFzc2V0SW5mb09yRmFpbAEFB2Fzc2V0SWQIZGVjaW1hbHMJAQV0b1gxOAIJAPAHAgUNdGFyZ2V0QWRkcmVzcwUHYXNzZXRJZAkAbAYACgAABQ1hc3NldERlY2ltYWxzAAAAAAUERE9XTgkAzQgCBQNhY2MFB2JhbGFuY2UKAAIkbAULYXNzZXRJZExpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgEPZ2V0QXNzZXRzUHJpY2VzAhNwb29sc0ZhY3RvcnlBZGRyZXNzC2Fzc2V0SWRMaXN0AwkAAAIFB2NoYWluSWQFCGNoYWluSWRXBBN3YXZlc1VzZHRBZGRyZXNzU3RyAiMzUEtmcnVwRXlkVTJuWkFnaFZqWkFmdkN3TUJrenVSMUY1MgQOd2F2ZXNVc2R0UHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgUTd2F2ZXNVc2R0QWRkcmVzc1N0cgUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBBJ3YXZlc1h0bkFkZHJlc3NTdHICIzNQUFpXZ0ZOUktITHZNNTFwd1M5MzRDOFZaN2QyRjRaNThnBA13YXZlc1h0blByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFEndhdmVzWHRuQWRkcmVzc1N0cgUDbmlsBQNuaWwDCQABAgUBQAIGU3RyaW5nBQFACQACAQkArAICCQADAQUBQAIbIGNvdWxkbid0IGJlIGNhc3QgdG8gU3RyaW5nBAx4dG5Vc2R0UHJpY2UJALwCAwUOd2F2ZXNVc2R0UHJpY2UFBm11bHQxOAUNd2F2ZXNYdG5QcmljZQoBA21hcAIDYWNjC25leHRBc3NldElkBAVwcmljZQQHJG1hdGNoMAULbmV4dEFzc2V0SWQDCQAAAgIsMnRoc0FDdUhtekRNdU5lelBNMzJ3ZzlhM0J3VXpCV0RlU0tha2d6M2N3MjEFByRtYXRjaDAEEnB3cldhdmVzQWRkcmVzc1N0cgIjM1BEaTdRcThwTFFZdnRLeVRmUXVxcVBVV3lob1liVTk1N3QEDXB3cldhdmVzUHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgUScHdyV2F2ZXNBZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJALwCAwUNcHdyV2F2ZXNQcmljZQUOd2F2ZXNVc2R0UHJpY2UFBm11bHQxOAMJAAACAixBdHF2NTlFWXpqRkd1aXRLVm5NUms2SDhGdWtqb1Yza3RQb3JiRXlzMjVvbgUHJG1hdGNoMAQRd3hXYXZlc0FkZHJlc3NTdHICIzNQRnphSDJnaHB3QU5IRmdqZXZhODNOMXl4ekVyRUx4MmVoBAx3eFdhdmVzUHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgURd3hXYXZlc0FkZHJlc3NTdHIFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAvAIDBQx3eFdhdmVzUHJpY2UFDndhdmVzVXNkdFByaWNlBQZtdWx0MTgDCQAAAgIsMzROOVljRUVUTFduOTNxWVE2NEVzUDF4ODl0U3J1SlU0NFJyRU1TWFhFUEoFByRtYXRjaDAEFHVzZHR3eGdYdG5BZGRyZXNzU3RyAiMzUDhLTXlBSkNQV05jeWVkcXJteW14YWVXb252bWtoR2F1egQPdXNkdHd4Z1h0blByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFFHVzZHR3eGdYdG5BZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJALwCAwUPdXNkdHd4Z1h0blByaWNlBQx4dG5Vc2R0UHJpY2UFBm11bHQxOAMJAAACAiw2WHRIanBYYnM5UlJKUDJTcjlHVXlWcXpBQ2NieTlUa1RoSFhualZDNUNESgUHJG1hdGNoMAQWd2F2ZXNVc2Rjd3hnQWRkcmVzc1N0cgIjM1AzZzNlaXBmRzJOWktLUUU4RFpYdDJFOXRSSnFpaTlqY1gEEXdhdmVzVXNkY3d4Z1ByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFFndhdmVzVXNkY3d4Z0FkZHJlc3NTdHIFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAvAIDBQ53YXZlc1VzZHRQcmljZQUGbXVsdDE4BRF3YXZlc1VzZGN3eGdQcmljZQMJAAACAixIWmsxbWJmdUpwbXhVMUZzNEFYNU1XTFZZdGN0c05jZzZlMkM2VktxSzh6awUHJG1hdGNoMAQTbHRjd3hnWHRuQWRkcmVzc1N0cgIjM1A5NHd2dTVnQTdWaGpQZ0FCM3R3YWVxZHdIQ3dOSzJ2c24EDmx0Y3d4Z1h0blByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFE2x0Y3d4Z1h0bkFkZHJlc3NTdHIFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAvAIDBQ5sdGN3eGdYdG5QcmljZQUMeHRuVXNkdFByaWNlBQZtdWx0MTgDCQAAAgIsNDc0alRlWXgycjJWYTM1Nzk0dENTY0FYV0pHOWhVMkhjZ3h6TW93YVpVbnUFByRtYXRjaDAEFWV0aHd4Z1dhdmVzQWRkcmVzc1N0cgIjM1AzWEdUTjZzMjkyZzlpd1loczNURXFKcUhpZmZRWW9qdUUEEGV0aHd4Z1dhdmVzUHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgUVZXRod3hnV2F2ZXNBZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcJALwCAwUQZXRod3hnV2F2ZXNQcmljZQUOd2F2ZXNVc2R0UHJpY2UFBm11bHQxOAMJAAACAiw4TFFXOGY3UDVkNVBaTTdHdFpFQmdhcVJQR1N6UzNEZlB1aVhyVVJKNEFKUwUHJG1hdGNoMAQTYnRjd3hnWHRuQWRkcmVzc1N0cgIjM1BDQldEVEE2anJGc3dkN2dRZ2FFM1hrN2dMTTVSS29mdnAEDmJ0Y3d4Z1h0blByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFE2J0Y3d4Z1h0bkFkZHJlc3NTdHIFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwkAvAIDBQ5idGN3eGdYdG5QcmljZQUMeHRuVXNkdFByaWNlBQZtdWx0MTgJAQh0aHJvd0VycgECEGludmFsaWQgYXNzZXQgaWQJAM0IAgUDYWNjBQVwcmljZQoAAiRsBQthc3NldElkTGlzdAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEDbWFwAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAwkAAAIFB2NoYWluSWQFCGNoYWluSWRUCgEDbWFwAgNhY2MLbmV4dEFzc2V0SWQEBXByaWNlBAckbWF0Y2gwBQtuZXh0QXNzZXRJZAMJAAACAixFTUFNTHhEbnYzeGl6OFJYZzhCdGozM2pjRXczd0xjekwzSktZWW11dWJwYwUHJG1hdGNoMAQQd3hVc2R0QWRkcmVzc1N0cgIjM01yVUxRUkxjNTJHV3JKRjF0TWNBbTRNNzhmUGU1N285S3QEC3d4VXNkdFByaWNlCQCnAwEKAAFACQD8BwQFE3Bvb2xzRmFjdG9yeUFkZHJlc3MCCGdldFByaWNlCQDMCAIFEHd4VXNkdEFkZHJlc3NTdHIFA25pbAUDbmlsAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwULd3hVc2R0UHJpY2UDCQAAAgIsQTdLc2g3Zlh5cW0xS2hLQWlLM2JBQjJhaVBTaXRRUUY2djFweXU5U1MzRlIFByRtYXRjaDAEEnVzZGNVc2R0QWRkcmVzc1N0cgIjM016S1NkVEgyakZieXBMc29OZnJIN1Fna3pTYngzRVl3Q0EEDXVzZGNVc2R0UHJpY2UJAKcDAQoAAUAJAPwHBAUTcG9vbHNGYWN0b3J5QWRkcmVzcwIIZ2V0UHJpY2UJAMwIAgUSdXNkY1VzZHRBZGRyZXNzU3RyBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcFDXVzZGNVc2R0UHJpY2UDCQAAAgIsOFE2U0UyQU5lYnVmdzhKdVBqSlZSalpENmRyRDhpaGpOak04eGFHVVNmZFIFByRtYXRjaDAEBXByaWNlAIDC1y8FBXByaWNlCQEIdGhyb3dFcnIBAhBpbnZhbGlkIGFzc2V0IGlkCQDNCAIFA2FjYwUFcHJpY2UKAAIkbAULYXNzZXRJZExpc3QKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkBCHRocm93RXJyAQIQaW52YWxpZCBjaGFpbiBpZAERY2FsY1RyZWFzdXJ5VmFsdWUBDmZhY3RvcnlBZGRyZXNzBA90cmVhc3VyeUFkZHJlc3MJARJnZXRUcmVhc3VyeUFkZHJlc3MBBQ5mYWN0b3J5QWRkcmVzcwQTcG9vbHNGYWN0b3J5QWRkcmVzcwkBFmdldFBvb2xzRmFjdG9yeUFkZHJlc3MBBQ5mYWN0b3J5QWRkcmVzcwQJYXNzZXRzU3RyCQC1CQIJAQxnZXRBc3NldHNTdHIBBQ5mYWN0b3J5QWRkcmVzcwUDU0VQBA5hc3NldHNCYWxhbmNlcwkBEWdldEFzc2V0c0JhbGFuY2VzAgUPdHJlYXN1cnlBZGRyZXNzBQlhc3NldHNTdHIEDGFzc2V0c1ByaWNlcwkBD2dldEFzc2V0c1ByaWNlcwIFE3Bvb2xzRmFjdG9yeUFkZHJlc3MFCWFzc2V0c1N0cgoBBnJlZHVjZQIDYWNjDm5leHRBc3NldElkU3RyBAdhc3NldElkCQDZBAEFDm5leHRBc3NldElkU3RyBAVpbmRleAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDPCAIFCWFzc2V0c1N0cgUObmV4dEFzc2V0SWRTdHIJAQd3cmFwRXJyAQIQaW52YWxpZCBhc3NldCBpZAQHYmFsYW5jZQkAkQMCBQ5hc3NldHNCYWxhbmNlcwUFaW5kZXgEBXByaWNlCQCRAwIFDGFzc2V0c1ByaWNlcwUFaW5kZXgECmFzc2V0VmFsdWUJALwCAwUHYmFsYW5jZQUFcHJpY2UFBm11bHQxOAkAtwICBQNhY2MFCmFzc2V0VmFsdWUEDXRyZWFzdXJ5VmFsdWUKAAIkbAUJYXNzZXRzU3RyCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAtgIBAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBnJlZHVjZQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgUNdHJlYXN1cnlWYWx1ZQUBaQEId2l0aGRyYXcBBGFyZ3MECXJlY2lwaWVudAkBEUBleHRyTmF0aXZlKDEwNjIpAQkAkQMCBQRhcmdzAAAEBmFtb3VudAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGFyZ3MAAQQGcmVzdWx0CQD8BwQIBQFpBmNhbGxlcgINdHJhbnNmZXJXYXZlcwkAzAgCCAUJcmVjaXBpZW50BWJ5dGVzCQDMCAIFBmFtb3VudAUDbmlsBQNuaWwJAJQKAgUDbmlsBQZyZXN1bHQBaQELc2V0SW50UGFyYW0BBGFyZ3MEA2tleQkAkQMCBQRhcmdzAAAEA3ZhbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBGFyZ3MAAQQGcmVzdWx0CQD8BwQIBQFpBmNhbGxlcgIMaW50ZWdlckVudHJ5CQDMCAIFA2tleQkAzAgCBQN2YWwFA25pbAUDbmlsCQCUCgIFA25pbAUGcmVzdWx0AWkBBHN3YXACD2NhbGxlclB1YmxpY0tleQRhcmdzBA5mYWN0b3J5QWRkcmVzcwgFAWkGY2FsbGVyBAt1c2VyQWRkcmVzcwkApwgBBQ9jYWxsZXJQdWJsaWNLZXkEB3BheW1lbnQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAQh0aHJvd0VycgECFTEgcGF5bWVudCBpcyByZXF1aXJlZAQDZXJyCQEHd3JhcEVycgECGGludmFsaWQgcGF5bWVudCBhc3NldCBpZAQOcGF5bWVudEFzc2V0SWQDCQAAAgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUHcGF5bWVudAdhc3NldElkBQNlcnIJAQxnZXRMcEFzc2V0SWQBBQ5mYWN0b3J5QWRkcmVzcwkBBXZhbHVlAQgFB3BheW1lbnQHYXNzZXRJZAkBCHRocm93RXJyAQUDZXJyBAhwd3JQcmljZQBkBAlwd3JBbW91bnQJAGkCCAUHcGF5bWVudAZhbW91bnQFCHB3clByaWNlBAlhc3NldHNTdHIJALUJAgkBDGdldEFzc2V0c1N0cgEFDmZhY3RvcnlBZGRyZXNzBQNTRVAECnB3ckJhbGFuY2UJAPAHAgUOZmFjdG9yeUFkZHJlc3MJAQ9nZXRQb3dlckFzc2V0SWQBBQ5mYWN0b3J5QWRkcmVzcwMJAAACBQpwd3JCYWxhbmNlBQpwd3JCYWxhbmNlBA90cmVhc3VyeUFkZHJlc3MJARJnZXRUcmVhc3VyeUFkZHJlc3MBBQ5mYWN0b3J5QWRkcmVzcwQOYXNzZXRzQmFsYW5jZXMJARFnZXRBc3NldHNCYWxhbmNlcwIFD3RyZWFzdXJ5QWRkcmVzcwUJYXNzZXRzU3RyCgEDbWFwAgNhY2MObmV4dEFzc2V0SWRTdHIEB2Fzc2V0SWQJANkEAQUObmV4dEFzc2V0SWRTdHIEBWluZGV4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAM8IAgUJYXNzZXRzU3RyBQ5uZXh0QXNzZXRJZFN0cgkBB3dyYXBFcnIBAhVpbnZhbGlkIGFzc2V0IGJhbGFuY2UEDWFzc2V0RGVjaW1hbHMICQESZ2V0QXNzZXRJbmZvT3JGYWlsAQUHYXNzZXRJZAhkZWNpbWFscwQHYmFsYW5jZQkBB2Zyb21YMTgCCQCRAwIFDmFzc2V0c0JhbGFuY2VzBQVpbmRleAkAbAYACgAABQ1hc3NldERlY2ltYWxzAAAAAAUERE9XTgQGYW1vdW50CQBrAwUHYmFsYW5jZQUJcHdyQW1vdW50BQpwd3JCYWxhbmNlAwkAZgIFBmFtb3VudAAACQCUCgIJAM0IAggFA2FjYwJfMQUHYXNzZXRJZAkAzQgCCAUDYWNjAl8yBQZhbW91bnQFA2FjYwQJdHJhbnNmZXJzCgACJGwFCWFzc2V0c1N0cgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA21hcAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgMJAAACBQl0cmFuc2ZlcnMFCXRyYW5zZmVycwQUYWRkaXRpb25hbExvY2tSb3VuZHMAAAQOZmFjdG9yeUFjdGlvbnMJAM4IAgkAzAgCCQD8BwQFDmZhY3RvcnlBZGRyZXNzAiBjb21taXRBZnRlclN0YXJ0V2l0aExvY2tSb3VuZEZvcgkAzAgCCQClCAEJARRwb3dlckNvbnRyYWN0QWRkcmVzcwEFDmZhY3RvcnlBZGRyZXNzCQDMCAIJAKUIAQUOZmFjdG9yeUFkZHJlc3MJAMwIAgkApQgBBQt1c2VyQWRkcmVzcwkAzAgCBRRhZGRpdGlvbmFsTG9ja1JvdW5kcwkAzAgCCQEPZ2V0UG93ZXJBc3NldElkAQUOZmFjdG9yeUFkZHJlc3MJAMwIAgUJcHdyQW1vdW50BQNuaWwFA25pbAUDbmlsAwkAAAIJAJADAQgFCXRyYW5zZmVycwJfMQAABQNuaWwJAMwIAgkA/AcEBQ5mYWN0b3J5QWRkcmVzcwIOdHJhbnNmZXJBc3NldHMJAMwIAggFC3VzZXJBZGRyZXNzBWJ5dGVzCQDMCAIIBQl0cmFuc2ZlcnMCXzEJAMwIAggFCXRyYW5zZmVycwJfMgUDbmlsBQNuaWwFA25pbAkAlAoCCQDMCAIJAQRCdXJuAgUOcGF5bWVudEFzc2V0SWQIBQdwYXltZW50BmFtb3VudAUDbmlsBQ5mYWN0b3J5QWN0aW9ucwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQVwcmljZQIPY2FsbGVyUHVibGljS2V5BGFyZ3MEDmZhY3RvcnlBZGRyZXNzCAUBaQZjYWxsZXIEE3Bvb2xzRmFjdG9yeUFkZHJlc3MJARZnZXRQb29sc0ZhY3RvcnlBZGRyZXNzAQUOZmFjdG9yeUFkZHJlc3MEDWN1cnJlbnRQZXJpb2QJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQ5mYWN0b3J5QWRkcmVzcwkBEGtleUN1cnJlbnRQZXJpb2QACQEHd3JhcEVycgECFmludmFsaWQgY3VycmVudCBwZXJpb2QEEnN0YXJ0VHJlYXN1cnlWYWx1ZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFDmZhY3RvcnlBZGRyZXNzCQEYa2V5VHJlYXN1cnlWYWx1ZUJ5UGVyaW9kAQUNY3VycmVudFBlcmlvZAkBB3dyYXBFcnIBCQCsAgICImludmFsaWQgdHJlYXN1cnkgdmFsdWUgZm9yIHBlcmlvZCAJAKQDAQUNY3VycmVudFBlcmlvZAQNdHJlYXN1cnlWYWx1ZQkBB2Zyb21YMTgCCQERY2FsY1RyZWFzdXJ5VmFsdWUBBQ5mYWN0b3J5QWRkcmVzcwkAbAYACgAABQx1c2R0RGVjaW1hbHMAAAAABQRET1dOBBF0cmVhc3VyeVZhbHVlRGlmZgkAZQIFDXRyZWFzdXJ5VmFsdWUFEnN0YXJ0VHJlYXN1cnlWYWx1ZQQLcHdyUHJpY2VSYXcJAJEDAgkBD2dldEFzc2V0c1ByaWNlcwIFE3Bvb2xzRmFjdG9yeUFkZHJlc3MJAMwIAgkA2AQBCQEPZ2V0UG93ZXJBc3NldElkAQUOZmFjdG9yeUFkZHJlc3MFA25pbAAABAhwd3JQcmljZQMJAL8CAgULcHdyUHJpY2VSYXcJALYCAQAACQEHZnJvbVgxOAIFC3B3clByaWNlUmF3CQBsBgAKAAAFDHVzZHREZWNpbWFscwAAAAAFBERPV04JAQh0aHJvd0VycgECEWludmFsaWQgUFdSIHByaWNlBAVwcmljZQMJAGYCAAAFEXRyZWFzdXJ5VmFsdWVEaWZmCQBpAgUIcHdyUHJpY2UAZAkAaQIJAGQCCQBrAwURdHJlYXN1cnlWYWx1ZURpZmYAAgCQTgUIcHdyUHJpY2UAZAkAlAoCBQNuaWwFBXByaWNlAWkBEGdldFRyZWFzdXJ5VmFsdWUCD2NhbGxlclB1YmxpY0tleQRhcmdzBA5mYWN0b3J5QWRkcmVzcwgFAWkGY2FsbGVyBA10cmVhc3VyeVZhbHVlCQERY2FsY1RyZWFzdXJ5VmFsdWUBBQ5mYWN0b3J5QWRkcmVzcwkAlAoCBQNuaWwFDXRyZWFzdXJ5VmFsdWUBAnR4AQZ2ZXJpZnkACQAAAgUHY2hhaW5JZAUIY2hhaW5JZFQesAiq",
    "height": 3911803,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 6dRZYaj5Az99hasF1ZZgYJbq85LN9eBzaBZsk6DTZWjE
Next: none

Diff: 
Old New Differences
211 211                                  else if (("6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ" == $match0))
212 212                                      then {
213 213                                          let wavesUsdcwxgAddressStr = "3P3g3eipfG2NZKKQE8DZXt2E9tRJqii9jcX"
214 -                                         let usdcwxgXtnPrice = parseBigIntValue({
214 +                                         let wavesUsdcwxgPrice = parseBigIntValue({
215 215                                              let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdcwxgAddressStr], nil)
216 216                                              if ($isInstanceOf(@, "String"))
217 217                                                  then @
218 218                                                  else throw(($getType(@) + " couldn't be cast to String"))
219 219                                              })
220 -                                         fraction(wavesUsdtPrice, mult18, usdcwxgXtnPrice)
220 +                                         fraction(wavesUsdtPrice, mult18, wavesUsdcwxgPrice)
221 221                                          }
222 222                                      else if (("HZk1mbfuJpmxU1Fs4AX5MWLVYtctsNcg6e2C6VKqK8zk" == $match0))
223 223                                          then {
232 232                                              }
233 233                                          else if (("474jTeYx2r2Va35794tCScAXWJG9hU2HcgxzMowaZUnu" == $match0))
234 234                                              then {
235 -                                                 let ethwxgXtnAddressStr = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
236 -                                                 let ethwxgXtnPrice = parseBigIntValue({
237 -                                                     let @ = invoke(poolsFactoryAddress, "getPrice", [ethwxgXtnAddressStr], nil)
235 +                                                 let ethwxgWavesAddressStr = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
236 +                                                 let ethwxgWavesPrice = parseBigIntValue({
237 +                                                     let @ = invoke(poolsFactoryAddress, "getPrice", [ethwxgWavesAddressStr], nil)
238 238                                                      if ($isInstanceOf(@, "String"))
239 239                                                          then @
240 240                                                          else throw(($getType(@) + " couldn't be cast to String"))
241 241                                                      })
242 -                                                 fraction(ethwxgXtnPrice, wavesUsdtPrice, mult18)
242 +                                                 fraction(ethwxgWavesPrice, wavesUsdtPrice, mult18)
243 243                                                  }
244 244                                              else if (("8LQW8f7P5d5PZM7GtZEBgaqRPGSzS3DfPuiXrURJ4AJS" == $match0))
245 245                                                  then {
250 250                                                              then @
251 251                                                              else throw(($getType(@) + " couldn't be cast to String"))
252 252                                                          })
253 -                                                     fraction(btcwxgXtnPrice, wavesUsdtPrice, mult18)
253 +                                                     fraction(btcwxgXtnPrice, xtnUsdtPrice, mult18)
254 254                                                      }
255 255                                                  else throwErr("invalid asset id")
256 256              }
463 463      }
464 464  
465 465  
466 + @Verifier(tx)
467 + func verify () = (chainId == chainIdT)
468 + 
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 chainId = take(drop(this.bytes, 1), 1)
7 7  
8 8  let chainIdT = base58'2T'
9 9  
10 10  let chainIdW = base58'2W'
11 11  
12 12  func mustAddress (i,address) = if ((i.caller == address))
13 13      then true
14 14      else throw("permission denied")
15 15  
16 16  
17 17  func mustThis (i) = mustAddress(i, this)
18 18  
19 19  
20 20  let SEP = "__"
21 21  
22 22  let WAVES = "WAVES"
23 23  
24 24  let contractFilename = "wxdao_calculator.ride"
25 25  
26 26  let mult8 = 100000000
27 27  
28 28  let mult18 = toBigInt(1000000000000000000)
29 29  
30 30  let wavesDecimals = 8
31 31  
32 32  let usdtDecimals = 6
33 33  
34 34  func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), mult18, toBigInt(origScaleMult))
35 35  
36 36  
37 37  func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), mult18))
38 38  
39 39  
40 40  func wrapErr (s) = ((contractFilename + ": ") + s)
41 41  
42 42  
43 43  func throwErr (s) = throw(wrapErr(s))
44 44  
45 45  
46 46  func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
47 47  
48 48  
49 49  func keyStartHeightByPeriod (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
50 50  
51 51  
52 52  func keyPeriodLength () = makeString(["%s", "periodLength"], SEP)
53 53  
54 54  
55 55  func keyTreasuryValueByPeriod (period) = makeString(["%s%d", "treasuryValue", toString(period)], SEP)
56 56  
57 57  
58 58  func keyPowerConfigAddress () = "%s__powerConfigAddress"
59 59  
60 60  
61 61  func powerConfigAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPowerConfigAddress()) {
62 62      case s: String => 
63 63          addressFromString(s)
64 64      case _: Unit => 
65 65          unit
66 66      case _ => 
67 67          throw("Match error")
68 68  }, wrapErr("invalid power config address"))
69 69  
70 70  
71 71  func keyPowerAssetId () = "powerAssetId"
72 72  
73 73  
74 74  func getPowerAssetId (factoryAddress) = fromBase58String(valueOrErrorMessage(getString(powerConfigAddress(factoryAddress), keyPowerAssetId()), wrapErr("invalid power asset id")))
75 75  
76 76  
77 77  func keyPowerContractAddress () = "%s__powerContractAddress"
78 78  
79 79  
80 80  func powerContractAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPowerContractAddress()) {
81 81      case s: String => 
82 82          addressFromString(s)
83 83      case _: Unit => 
84 84          unit
85 85      case _ => 
86 86          throw("Match error")
87 87  }, wrapErr("invalid power contract address"))
88 88  
89 89  
90 90  func keyPoolsFactoryAddress () = "%s__poolsFactoryAddress"
91 91  
92 92  
93 93  func getPoolsFactoryAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPoolsFactoryAddress()) {
94 94      case s: String => 
95 95          addressFromString(s)
96 96      case _: Unit => 
97 97          unit
98 98      case _ => 
99 99          throw("Match error")
100 100  }, wrapErr("invalid pools factory address"))
101 101  
102 102  
103 103  func keyTreasuryAddress () = "%s__treasuryAddress"
104 104  
105 105  
106 106  func getTreasuryAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyTreasuryAddress()) {
107 107      case s: String => 
108 108          addressFromString(s)
109 109      case _: Unit => 
110 110          unit
111 111      case _ => 
112 112          throw("Match error")
113 113  }, wrapErr("invalid treasury address"))
114 114  
115 115  
116 116  func keyAssets () = "%s__assets"
117 117  
118 118  
119 119  func getAssetsStr (factoryAddress) = valueOrErrorMessage(getString(factoryAddress, keyAssets()), wrapErr("invalid assets"))
120 120  
121 121  
122 122  func keyLpAssetId () = "%s__lpAssetId"
123 123  
124 124  
125 125  func getLpAssetId (factoryAddress) = fromBase58String(valueOrErrorMessage(getString(factoryAddress, keyLpAssetId()), wrapErr("invalid lp asset id")))
126 126  
127 127  
128 128  func getAssetInfoOrFail (assetId) = valueOrErrorMessage(assetInfo(assetId), wrapErr("invalid asset info"))
129 129  
130 130  
131 131  func getAssetsBalances (targetAddress,assetIdList) = {
132 132      func map (acc,nextAssetIdStr) =     {
133 133          let balance = if ((nextAssetIdStr == WAVES))
134 134              then toX18(wavesBalance(targetAddress).available, pow(10, 0, wavesDecimals, 0, 0, DOWN))
135 135              else {
136 136                  let assetId = fromBase58String(nextAssetIdStr)
137 137                  let assetDecimals = getAssetInfoOrFail(assetId).decimals
138 138                  toX18(assetBalance(targetAddress, assetId), pow(10, 0, assetDecimals, 0, 0, DOWN))
139 139                  }
140 140          (acc :+ balance)
141 141          }
142 142  
143 143      let $l = assetIdList
144 144      let $s = size($l)
145 145      let $acc0 = nil
146 146      func $f0_1 ($a,$i) =     if (($i >= $s))
147 147          then $a
148 148          else map($a, $l[$i])
149 149  
150 150      func $f0_2 ($a,$i) =     if (($i >= $s))
151 151          then $a
152 152          else throw("List size exceeds 10")
153 153  
154 154      $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
155 155      }
156 156  
157 157  
158 158  func getAssetsPrices (poolsFactoryAddress,assetIdList) = if ((chainId == chainIdW))
159 159      then {
160 160          let wavesUsdtAddressStr = "3PKfrupEydU2nZAghVjZAfvCwMBkzuR1F52"
161 161          let wavesUsdtPrice = parseBigIntValue({
162 162              let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdtAddressStr], nil)
163 163              if ($isInstanceOf(@, "String"))
164 164                  then @
165 165                  else throw(($getType(@) + " couldn't be cast to String"))
166 166              })
167 167          let wavesXtnAddressStr = "3PPZWgFNRKHLvM51pwS934C8VZ7d2F4Z58g"
168 168          let wavesXtnPrice = parseBigIntValue({
169 169              let @ = invoke(poolsFactoryAddress, "getPrice", [wavesXtnAddressStr], nil)
170 170              if ($isInstanceOf(@, "String"))
171 171                  then @
172 172                  else throw(($getType(@) + " couldn't be cast to String"))
173 173              })
174 174          let xtnUsdtPrice = fraction(wavesUsdtPrice, mult18, wavesXtnPrice)
175 175          func map (acc,nextAssetId) =         {
176 176              let price =             match nextAssetId {
177 177                  case _ => 
178 178                      if (("2thsACuHmzDMuNezPM32wg9a3BwUzBWDeSKakgz3cw21" == $match0))
179 179                          then {
180 180                              let pwrWavesAddressStr = "3PDi7Qq8pLQYvtKyTfQuqqPUWyhoYbU957t"
181 181                              let pwrWavesPrice = parseBigIntValue({
182 182                                  let @ = invoke(poolsFactoryAddress, "getPrice", [pwrWavesAddressStr], nil)
183 183                                  if ($isInstanceOf(@, "String"))
184 184                                      then @
185 185                                      else throw(($getType(@) + " couldn't be cast to String"))
186 186                                  })
187 187                              fraction(pwrWavesPrice, wavesUsdtPrice, mult18)
188 188                              }
189 189                          else if (("Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on" == $match0))
190 190                              then {
191 191                                  let wxWavesAddressStr = "3PFzaH2ghpwANHFgjeva83N1yxzErELx2eh"
192 192                                  let wxWavesPrice = parseBigIntValue({
193 193                                      let @ = invoke(poolsFactoryAddress, "getPrice", [wxWavesAddressStr], nil)
194 194                                      if ($isInstanceOf(@, "String"))
195 195                                          then @
196 196                                          else throw(($getType(@) + " couldn't be cast to String"))
197 197                                      })
198 198                                  fraction(wxWavesPrice, wavesUsdtPrice, mult18)
199 199                                  }
200 200                              else if (("34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ" == $match0))
201 201                                  then {
202 202                                      let usdtwxgXtnAddressStr = "3P8KMyAJCPWNcyedqrmymxaeWonvmkhGauz"
203 203                                      let usdtwxgXtnPrice = parseBigIntValue({
204 204                                          let @ = invoke(poolsFactoryAddress, "getPrice", [usdtwxgXtnAddressStr], nil)
205 205                                          if ($isInstanceOf(@, "String"))
206 206                                              then @
207 207                                              else throw(($getType(@) + " couldn't be cast to String"))
208 208                                          })
209 209                                      fraction(usdtwxgXtnPrice, xtnUsdtPrice, mult18)
210 210                                      }
211 211                                  else if (("6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ" == $match0))
212 212                                      then {
213 213                                          let wavesUsdcwxgAddressStr = "3P3g3eipfG2NZKKQE8DZXt2E9tRJqii9jcX"
214 -                                         let usdcwxgXtnPrice = parseBigIntValue({
214 +                                         let wavesUsdcwxgPrice = parseBigIntValue({
215 215                                              let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdcwxgAddressStr], nil)
216 216                                              if ($isInstanceOf(@, "String"))
217 217                                                  then @
218 218                                                  else throw(($getType(@) + " couldn't be cast to String"))
219 219                                              })
220 -                                         fraction(wavesUsdtPrice, mult18, usdcwxgXtnPrice)
220 +                                         fraction(wavesUsdtPrice, mult18, wavesUsdcwxgPrice)
221 221                                          }
222 222                                      else if (("HZk1mbfuJpmxU1Fs4AX5MWLVYtctsNcg6e2C6VKqK8zk" == $match0))
223 223                                          then {
224 224                                              let ltcwxgXtnAddressStr = "3P94wvu5gA7VhjPgAB3twaeqdwHCwNK2vsn"
225 225                                              let ltcwxgXtnPrice = parseBigIntValue({
226 226                                                  let @ = invoke(poolsFactoryAddress, "getPrice", [ltcwxgXtnAddressStr], nil)
227 227                                                  if ($isInstanceOf(@, "String"))
228 228                                                      then @
229 229                                                      else throw(($getType(@) + " couldn't be cast to String"))
230 230                                                  })
231 231                                              fraction(ltcwxgXtnPrice, xtnUsdtPrice, mult18)
232 232                                              }
233 233                                          else if (("474jTeYx2r2Va35794tCScAXWJG9hU2HcgxzMowaZUnu" == $match0))
234 234                                              then {
235 -                                                 let ethwxgXtnAddressStr = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
236 -                                                 let ethwxgXtnPrice = parseBigIntValue({
237 -                                                     let @ = invoke(poolsFactoryAddress, "getPrice", [ethwxgXtnAddressStr], nil)
235 +                                                 let ethwxgWavesAddressStr = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
236 +                                                 let ethwxgWavesPrice = parseBigIntValue({
237 +                                                     let @ = invoke(poolsFactoryAddress, "getPrice", [ethwxgWavesAddressStr], nil)
238 238                                                      if ($isInstanceOf(@, "String"))
239 239                                                          then @
240 240                                                          else throw(($getType(@) + " couldn't be cast to String"))
241 241                                                      })
242 -                                                 fraction(ethwxgXtnPrice, wavesUsdtPrice, mult18)
242 +                                                 fraction(ethwxgWavesPrice, wavesUsdtPrice, mult18)
243 243                                                  }
244 244                                              else if (("8LQW8f7P5d5PZM7GtZEBgaqRPGSzS3DfPuiXrURJ4AJS" == $match0))
245 245                                                  then {
246 246                                                      let btcwxgXtnAddressStr = "3PCBWDTA6jrFswd7gQgaE3Xk7gLM5RKofvp"
247 247                                                      let btcwxgXtnPrice = parseBigIntValue({
248 248                                                          let @ = invoke(poolsFactoryAddress, "getPrice", [btcwxgXtnAddressStr], nil)
249 249                                                          if ($isInstanceOf(@, "String"))
250 250                                                              then @
251 251                                                              else throw(($getType(@) + " couldn't be cast to String"))
252 252                                                          })
253 -                                                     fraction(btcwxgXtnPrice, wavesUsdtPrice, mult18)
253 +                                                     fraction(btcwxgXtnPrice, xtnUsdtPrice, mult18)
254 254                                                      }
255 255                                                  else throwErr("invalid asset id")
256 256              }
257 257              (acc :+ price)
258 258              }
259 259  
260 260          let $l = assetIdList
261 261          let $s = size($l)
262 262          let $acc0 = nil
263 263          func $f0_1 ($a,$i) =         if (($i >= $s))
264 264              then $a
265 265              else map($a, $l[$i])
266 266  
267 267          func $f0_2 ($a,$i) =         if (($i >= $s))
268 268              then $a
269 269              else throw("List size exceeds 10")
270 270  
271 271          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
272 272          }
273 273      else if ((chainId == chainIdT))
274 274          then {
275 275              func map (acc,nextAssetId) =             {
276 276                  let price =                 match nextAssetId {
277 277                      case _ => 
278 278                          if (("EMAMLxDnv3xiz8RXg8Btj33jcEw3wLczL3JKYYmuubpc" == $match0))
279 279                              then {
280 280                                  let wxUsdtAddressStr = "3MrULQRLc52GWrJF1tMcAm4M78fPe57o9Kt"
281 281                                  let wxUsdtPrice = parseBigIntValue({
282 282                                      let @ = invoke(poolsFactoryAddress, "getPrice", [wxUsdtAddressStr], nil)
283 283                                      if ($isInstanceOf(@, "String"))
284 284                                          then @
285 285                                          else throw(($getType(@) + " couldn't be cast to String"))
286 286                                      })
287 287                                  wxUsdtPrice
288 288                                  }
289 289                              else if (("A7Ksh7fXyqm1KhKAiK3bAB2aiPSitQQF6v1pyu9SS3FR" == $match0))
290 290                                  then {
291 291                                      let usdcUsdtAddressStr = "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA"
292 292                                      let usdcUsdtPrice = parseBigIntValue({
293 293                                          let @ = invoke(poolsFactoryAddress, "getPrice", [usdcUsdtAddressStr], nil)
294 294                                          if ($isInstanceOf(@, "String"))
295 295                                              then @
296 296                                              else throw(($getType(@) + " couldn't be cast to String"))
297 297                                          })
298 298                                      usdcUsdtPrice
299 299                                      }
300 300                                  else if (("8Q6SE2ANebufw8JuPjJVRjZD6drD8ihjNjM8xaGUSfdR" == $match0))
301 301                                      then {
302 302                                          let price = 100000000
303 303                                          price
304 304                                          }
305 305                                      else throwErr("invalid asset id")
306 306                  }
307 307                  (acc :+ price)
308 308                  }
309 309  
310 310              let $l = assetIdList
311 311              let $s = size($l)
312 312              let $acc0 = nil
313 313              func $f0_1 ($a,$i) =             if (($i >= $s))
314 314                  then $a
315 315                  else map($a, $l[$i])
316 316  
317 317              func $f0_2 ($a,$i) =             if (($i >= $s))
318 318                  then $a
319 319                  else throw("List size exceeds 10")
320 320  
321 321              $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
322 322              }
323 323          else throwErr("invalid chain id")
324 324  
325 325  
326 326  func calcTreasuryValue (factoryAddress) = {
327 327      let treasuryAddress = getTreasuryAddress(factoryAddress)
328 328      let poolsFactoryAddress = getPoolsFactoryAddress(factoryAddress)
329 329      let assetsStr = split(getAssetsStr(factoryAddress), SEP)
330 330      let assetsBalances = getAssetsBalances(treasuryAddress, assetsStr)
331 331      let assetsPrices = getAssetsPrices(poolsFactoryAddress, assetsStr)
332 332      func reduce (acc,nextAssetIdStr) =     {
333 333          let assetId = fromBase58String(nextAssetIdStr)
334 334          let index = valueOrErrorMessage(indexOf(assetsStr, nextAssetIdStr), wrapErr("invalid asset id"))
335 335          let balance = assetsBalances[index]
336 336          let price = assetsPrices[index]
337 337          let assetValue = fraction(balance, price, mult18)
338 338          (acc + assetValue)
339 339          }
340 340  
341 341      let treasuryValue = {
342 342          let $l = assetsStr
343 343          let $s = size($l)
344 344          let $acc0 = toBigInt(0)
345 345          func $f0_1 ($a,$i) =         if (($i >= $s))
346 346              then $a
347 347              else reduce($a, $l[$i])
348 348  
349 349          func $f0_2 ($a,$i) =         if (($i >= $s))
350 350              then $a
351 351              else throw("List size exceeds 10")
352 352  
353 353          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
354 354          }
355 355      treasuryValue
356 356      }
357 357  
358 358  
359 359  @Callable(i)
360 360  func withdraw (args) = {
361 361      let recipient = addressFromStringValue(args[0])
362 362      let amount = parseIntValue(args[1])
363 363      let result = invoke(i.caller, "transferWaves", [recipient.bytes, amount], nil)
364 364      $Tuple2(nil, result)
365 365      }
366 366  
367 367  
368 368  
369 369  @Callable(i)
370 370  func setIntParam (args) = {
371 371      let key = args[0]
372 372      let val = parseIntValue(args[1])
373 373      let result = invoke(i.caller, "integerEntry", [key, val], nil)
374 374      $Tuple2(nil, result)
375 375      }
376 376  
377 377  
378 378  
379 379  @Callable(i)
380 380  func swap (callerPublicKey,args) = {
381 381      let factoryAddress = i.caller
382 382      let userAddress = addressFromPublicKey(callerPublicKey)
383 383      let payment = if ((size(i.payments) == 1))
384 384          then i.payments[0]
385 385          else throwErr("1 payment is required")
386 386      let err = wrapErr("invalid payment asset id")
387 387      let paymentAssetId = if ((valueOrErrorMessage(payment.assetId, err) == getLpAssetId(factoryAddress)))
388 388          then value(payment.assetId)
389 389          else throwErr(err)
390 390      let pwrPrice = 100
391 391      let pwrAmount = (payment.amount / pwrPrice)
392 392      let assetsStr = split(getAssetsStr(factoryAddress), SEP)
393 393      let pwrBalance = assetBalance(factoryAddress, getPowerAssetId(factoryAddress))
394 394      if ((pwrBalance == pwrBalance))
395 395          then {
396 396              let treasuryAddress = getTreasuryAddress(factoryAddress)
397 397              let assetsBalances = getAssetsBalances(treasuryAddress, assetsStr)
398 398              func map (acc,nextAssetIdStr) =             {
399 399                  let assetId = fromBase58String(nextAssetIdStr)
400 400                  let index = valueOrErrorMessage(indexOf(assetsStr, nextAssetIdStr), wrapErr("invalid asset balance"))
401 401                  let assetDecimals = getAssetInfoOrFail(assetId).decimals
402 402                  let balance = fromX18(assetsBalances[index], pow(10, 0, assetDecimals, 0, 0, DOWN))
403 403                  let amount = fraction(balance, pwrAmount, pwrBalance)
404 404                  if ((amount > 0))
405 405                      then $Tuple2((acc._1 :+ assetId), (acc._2 :+ amount))
406 406                      else acc
407 407                  }
408 408  
409 409              let transfers = {
410 410                  let $l = assetsStr
411 411                  let $s = size($l)
412 412                  let $acc0 = $Tuple2(nil, nil)
413 413                  func $f0_1 ($a,$i) =                 if (($i >= $s))
414 414                      then $a
415 415                      else map($a, $l[$i])
416 416  
417 417                  func $f0_2 ($a,$i) =                 if (($i >= $s))
418 418                      then $a
419 419                      else throw("List size exceeds 6")
420 420  
421 421                  $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
422 422                  }
423 423              if ((transfers == transfers))
424 424                  then {
425 425                      let additionalLockRounds = 0
426 426                      let factoryActions = ([invoke(factoryAddress, "commitAfterStartWithLockRoundFor", [toString(powerContractAddress(factoryAddress)), toString(factoryAddress), toString(userAddress), additionalLockRounds, getPowerAssetId(factoryAddress), pwrAmount], nil)] ++ (if ((size(transfers._1) == 0))
427 427                          then nil
428 428                          else [invoke(factoryAddress, "transferAssets", [userAddress.bytes, transfers._1, transfers._2], nil)]))
429 429                      $Tuple2([Burn(paymentAssetId, payment.amount)], factoryActions)
430 430                      }
431 431                  else throw("Strict value is not equal to itself.")
432 432              }
433 433          else throw("Strict value is not equal to itself.")
434 434      }
435 435  
436 436  
437 437  
438 438  @Callable(i)
439 439  func price (callerPublicKey,args) = {
440 440      let factoryAddress = i.caller
441 441      let poolsFactoryAddress = getPoolsFactoryAddress(factoryAddress)
442 442      let currentPeriod = valueOrErrorMessage(getInteger(factoryAddress, keyCurrentPeriod()), wrapErr("invalid current period"))
443 443      let startTreasuryValue = valueOrErrorMessage(getInteger(factoryAddress, keyTreasuryValueByPeriod(currentPeriod)), wrapErr(("invalid treasury value for period " + toString(currentPeriod))))
444 444      let treasuryValue = fromX18(calcTreasuryValue(factoryAddress), pow(10, 0, usdtDecimals, 0, 0, DOWN))
445 445      let treasuryValueDiff = (treasuryValue - startTreasuryValue)
446 446      let pwrPriceRaw = getAssetsPrices(poolsFactoryAddress, [toBase58String(getPowerAssetId(factoryAddress))])[0]
447 447      let pwrPrice = if ((pwrPriceRaw > toBigInt(0)))
448 448          then fromX18(pwrPriceRaw, pow(10, 0, usdtDecimals, 0, 0, DOWN))
449 449          else throwErr("invalid PWR price")
450 450      let price = if ((0 > treasuryValueDiff))
451 451          then (pwrPrice / 100)
452 452          else ((fraction(treasuryValueDiff, 2, 10000) + pwrPrice) / 100)
453 453      $Tuple2(nil, price)
454 454      }
455 455  
456 456  
457 457  
458 458  @Callable(i)
459 459  func getTreasuryValue (callerPublicKey,args) = {
460 460      let factoryAddress = i.caller
461 461      let treasuryValue = calcTreasuryValue(factoryAddress)
462 462      $Tuple2(nil, treasuryValue)
463 463      }
464 464  
465 465  
466 + @Verifier(tx)
467 + func verify () = (chainId == chainIdT)
468 +

Old	New		Differences
211	211		else if (("6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ" == $match0))
212	212		then {
213	213		let wavesUsdcwxgAddressStr = "3P3g3eipfG2NZKKQE8DZXt2E9tRJqii9jcX"
214		-	let ~~usdcwxgXtnPrice~~ = parseBigIntValue({
	214	+	let wavesUsdcwxgPrice = parseBigIntValue({
215	215		let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdcwxgAddressStr], nil)
216	216		if ($isInstanceOf(@, "String"))
217	217		then @
218	218		else throw(($getType(@) + " couldn't be cast to String"))
219	219		})
220		-	fraction(wavesUsdtPrice, mult18, ~~usdcwxgXtnPrice~~)
	220	+	fraction(wavesUsdtPrice, mult18, wavesUsdcwxgPrice)
221	221		}
222	222		else if (("HZk1mbfuJpmxU1Fs4AX5MWLVYtctsNcg6e2C6VKqK8zk" == $match0))
223	223		then {

232	232		}
233	233		else if (("474jTeYx2r2Va35794tCScAXWJG9hU2HcgxzMowaZUnu" == $match0))
234	234		then {
235		-	let ~~ethwxgXtnAddressStr~~ = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
236		-	let ~~ethwxgXtnPrice~~ = parseBigIntValue({
237		-	let @ = invoke(poolsFactoryAddress, "getPrice", [~~ethwxgXtnAddressStr~~], nil)
	235	+	let ethwxgWavesAddressStr = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
	236	+	let ethwxgWavesPrice = parseBigIntValue({
	237	+	let @ = invoke(poolsFactoryAddress, "getPrice", [ethwxgWavesAddressStr], nil)
238	238		if ($isInstanceOf(@, "String"))
239	239		then @
240	240		else throw(($getType(@) + " couldn't be cast to String"))
241	241		})
242		-	fraction(~~ethwxgXtnPrice~~, wavesUsdtPrice, mult18)
	242	+	fraction(ethwxgWavesPrice, wavesUsdtPrice, mult18)
243	243		}
244	244		else if (("8LQW8f7P5d5PZM7GtZEBgaqRPGSzS3DfPuiXrURJ4AJS" == $match0))
245	245		then {

250	250		then @
251	251		else throw(($getType(@) + " couldn't be cast to String"))
252	252		})
253		-	fraction(btcwxgXtnPrice, ~~wavesUsdtPrice~~, mult18)
	253	+	fraction(btcwxgXtnPrice, xtnUsdtPrice, mult18)
254	254		}
255	255		else throwErr("invalid asset id")
256	256		}

463	463		}
464	464
465	465
	466	+	@Verifier(tx)
	467	+	func verify () = (chainId == chainIdT)
	468	+

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 chainId = take(drop(this.bytes, 1), 1)
7	7
8	8		let chainIdT = base58'2T'
9	9
10	10		let chainIdW = base58'2W'
11	11
12	12		func mustAddress (i,address) = if ((i.caller == address))
13	13		then true
14	14		else throw("permission denied")
15	15
16	16
17	17		func mustThis (i) = mustAddress(i, this)
18	18
19	19
20	20		let SEP = "__"
21	21
22	22		let WAVES = "WAVES"
23	23
24	24		let contractFilename = "wxdao_calculator.ride"
25	25
26	26		let mult8 = 100000000
27	27
28	28		let mult18 = toBigInt(1000000000000000000)
29	29
30	30		let wavesDecimals = 8
31	31
32	32		let usdtDecimals = 6
33	33
34	34		func toX18 (origVal,origScaleMult) = fraction(toBigInt(origVal), mult18, toBigInt(origScaleMult))
35	35
36	36
37	37		func fromX18 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), mult18))
38	38
39	39
40	40		func wrapErr (s) = ((contractFilename + ": ") + s)
41	41
42	42
43	43		func throwErr (s) = throw(wrapErr(s))
44	44
45	45
46	46		func keyCurrentPeriod () = makeString(["%s", "currentPeriod"], SEP)
47	47
48	48
49	49		func keyStartHeightByPeriod (period) = makeString(["%s%d", "startHeight", toString(period)], SEP)
50	50
51	51
52	52		func keyPeriodLength () = makeString(["%s", "periodLength"], SEP)
53	53
54	54
55	55		func keyTreasuryValueByPeriod (period) = makeString(["%s%d", "treasuryValue", toString(period)], SEP)
56	56
57	57
58	58		func keyPowerConfigAddress () = "%s__powerConfigAddress"
59	59
60	60
61	61		func powerConfigAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPowerConfigAddress()) {
62	62		case s: String =>
63	63		addressFromString(s)
64	64		case _: Unit =>
65	65		unit
66	66		case _ =>
67	67		throw("Match error")
68	68		}, wrapErr("invalid power config address"))
69	69
70	70
71	71		func keyPowerAssetId () = "powerAssetId"
72	72
73	73
74	74		func getPowerAssetId (factoryAddress) = fromBase58String(valueOrErrorMessage(getString(powerConfigAddress(factoryAddress), keyPowerAssetId()), wrapErr("invalid power asset id")))
75	75
76	76
77	77		func keyPowerContractAddress () = "%s__powerContractAddress"
78	78
79	79
80	80		func powerContractAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPowerContractAddress()) {
81	81		case s: String =>
82	82		addressFromString(s)
83	83		case _: Unit =>
84	84		unit
85	85		case _ =>
86	86		throw("Match error")
87	87		}, wrapErr("invalid power contract address"))
88	88
89	89
90	90		func keyPoolsFactoryAddress () = "%s__poolsFactoryAddress"
91	91
92	92
93	93		func getPoolsFactoryAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyPoolsFactoryAddress()) {
94	94		case s: String =>
95	95		addressFromString(s)
96	96		case _: Unit =>
97	97		unit
98	98		case _ =>
99	99		throw("Match error")
100	100		}, wrapErr("invalid pools factory address"))
101	101
102	102
103	103		func keyTreasuryAddress () = "%s__treasuryAddress"
104	104
105	105
106	106		func getTreasuryAddress (factoryAddress) = valueOrErrorMessage(match getString(factoryAddress, keyTreasuryAddress()) {
107	107		case s: String =>
108	108		addressFromString(s)
109	109		case _: Unit =>
110	110		unit
111	111		case _ =>
112	112		throw("Match error")
113	113		}, wrapErr("invalid treasury address"))
114	114
115	115
116	116		func keyAssets () = "%s__assets"
117	117
118	118
119	119		func getAssetsStr (factoryAddress) = valueOrErrorMessage(getString(factoryAddress, keyAssets()), wrapErr("invalid assets"))
120	120
121	121
122	122		func keyLpAssetId () = "%s__lpAssetId"
123	123
124	124
125	125		func getLpAssetId (factoryAddress) = fromBase58String(valueOrErrorMessage(getString(factoryAddress, keyLpAssetId()), wrapErr("invalid lp asset id")))
126	126
127	127
128	128		func getAssetInfoOrFail (assetId) = valueOrErrorMessage(assetInfo(assetId), wrapErr("invalid asset info"))
129	129
130	130
131	131		func getAssetsBalances (targetAddress,assetIdList) = {
132	132		func map (acc,nextAssetIdStr) = {
133	133		let balance = if ((nextAssetIdStr == WAVES))
134	134		then toX18(wavesBalance(targetAddress).available, pow(10, 0, wavesDecimals, 0, 0, DOWN))
135	135		else {
136	136		let assetId = fromBase58String(nextAssetIdStr)
137	137		let assetDecimals = getAssetInfoOrFail(assetId).decimals
138	138		toX18(assetBalance(targetAddress, assetId), pow(10, 0, assetDecimals, 0, 0, DOWN))
139	139		}
140	140		(acc :+ balance)
141	141		}
142	142
143	143		let $l = assetIdList
144	144		let $s = size($l)
145	145		let $acc0 = nil
146	146		func $f0_1 ($a,$i) = if (($i >= $s))
147	147		then $a
148	148		else map($a, $l[$i])
149	149
150	150		func $f0_2 ($a,$i) = if (($i >= $s))
151	151		then $a
152	152		else throw("List size exceeds 10")
153	153
154	154		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
155	155		}
156	156
157	157
158	158		func getAssetsPrices (poolsFactoryAddress,assetIdList) = if ((chainId == chainIdW))
159	159		then {
160	160		let wavesUsdtAddressStr = "3PKfrupEydU2nZAghVjZAfvCwMBkzuR1F52"
161	161		let wavesUsdtPrice = parseBigIntValue({
162	162		let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdtAddressStr], nil)
163	163		if ($isInstanceOf(@, "String"))
164	164		then @
165	165		else throw(($getType(@) + " couldn't be cast to String"))
166	166		})
167	167		let wavesXtnAddressStr = "3PPZWgFNRKHLvM51pwS934C8VZ7d2F4Z58g"
168	168		let wavesXtnPrice = parseBigIntValue({
169	169		let @ = invoke(poolsFactoryAddress, "getPrice", [wavesXtnAddressStr], nil)
170	170		if ($isInstanceOf(@, "String"))
171	171		then @
172	172		else throw(($getType(@) + " couldn't be cast to String"))
173	173		})
174	174		let xtnUsdtPrice = fraction(wavesUsdtPrice, mult18, wavesXtnPrice)
175	175		func map (acc,nextAssetId) = {
176	176		let price = match nextAssetId {
177	177		case _ =>
178	178		if (("2thsACuHmzDMuNezPM32wg9a3BwUzBWDeSKakgz3cw21" == $match0))
179	179		then {
180	180		let pwrWavesAddressStr = "3PDi7Qq8pLQYvtKyTfQuqqPUWyhoYbU957t"
181	181		let pwrWavesPrice = parseBigIntValue({
182	182		let @ = invoke(poolsFactoryAddress, "getPrice", [pwrWavesAddressStr], nil)
183	183		if ($isInstanceOf(@, "String"))
184	184		then @
185	185		else throw(($getType(@) + " couldn't be cast to String"))
186	186		})
187	187		fraction(pwrWavesPrice, wavesUsdtPrice, mult18)
188	188		}
189	189		else if (("Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on" == $match0))
190	190		then {
191	191		let wxWavesAddressStr = "3PFzaH2ghpwANHFgjeva83N1yxzErELx2eh"
192	192		let wxWavesPrice = parseBigIntValue({
193	193		let @ = invoke(poolsFactoryAddress, "getPrice", [wxWavesAddressStr], nil)
194	194		if ($isInstanceOf(@, "String"))
195	195		then @
196	196		else throw(($getType(@) + " couldn't be cast to String"))
197	197		})
198	198		fraction(wxWavesPrice, wavesUsdtPrice, mult18)
199	199		}
200	200		else if (("34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ" == $match0))
201	201		then {
202	202		let usdtwxgXtnAddressStr = "3P8KMyAJCPWNcyedqrmymxaeWonvmkhGauz"
203	203		let usdtwxgXtnPrice = parseBigIntValue({
204	204		let @ = invoke(poolsFactoryAddress, "getPrice", [usdtwxgXtnAddressStr], nil)
205	205		if ($isInstanceOf(@, "String"))
206	206		then @
207	207		else throw(($getType(@) + " couldn't be cast to String"))
208	208		})
209	209		fraction(usdtwxgXtnPrice, xtnUsdtPrice, mult18)
210	210		}
211	211		else if (("6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ" == $match0))
212	212		then {
213	213		let wavesUsdcwxgAddressStr = "3P3g3eipfG2NZKKQE8DZXt2E9tRJqii9jcX"
214		-	let ~~usdcwxgXtnPrice~~ = parseBigIntValue({
	214	+	let wavesUsdcwxgPrice = parseBigIntValue({
215	215		let @ = invoke(poolsFactoryAddress, "getPrice", [wavesUsdcwxgAddressStr], nil)
216	216		if ($isInstanceOf(@, "String"))
217	217		then @
218	218		else throw(($getType(@) + " couldn't be cast to String"))
219	219		})
220		-	fraction(wavesUsdtPrice, mult18, ~~usdcwxgXtnPrice~~)
	220	+	fraction(wavesUsdtPrice, mult18, wavesUsdcwxgPrice)
221	221		}
222	222		else if (("HZk1mbfuJpmxU1Fs4AX5MWLVYtctsNcg6e2C6VKqK8zk" == $match0))
223	223		then {
224	224		let ltcwxgXtnAddressStr = "3P94wvu5gA7VhjPgAB3twaeqdwHCwNK2vsn"
225	225		let ltcwxgXtnPrice = parseBigIntValue({
226	226		let @ = invoke(poolsFactoryAddress, "getPrice", [ltcwxgXtnAddressStr], nil)
227	227		if ($isInstanceOf(@, "String"))
228	228		then @
229	229		else throw(($getType(@) + " couldn't be cast to String"))
230	230		})
231	231		fraction(ltcwxgXtnPrice, xtnUsdtPrice, mult18)
232	232		}
233	233		else if (("474jTeYx2r2Va35794tCScAXWJG9hU2HcgxzMowaZUnu" == $match0))
234	234		then {
235		-	let ~~ethwxgXtnAddressStr~~ = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
236		-	let ~~ethwxgXtnPrice~~ = parseBigIntValue({
237		-	let @ = invoke(poolsFactoryAddress, "getPrice", [~~ethwxgXtnAddressStr~~], nil)
	235	+	let ethwxgWavesAddressStr = "3P3XGTN6s292g9iwYhs3TEqJqHiffQYojuE"
	236	+	let ethwxgWavesPrice = parseBigIntValue({
	237	+	let @ = invoke(poolsFactoryAddress, "getPrice", [ethwxgWavesAddressStr], nil)
238	238		if ($isInstanceOf(@, "String"))
239	239		then @
240	240		else throw(($getType(@) + " couldn't be cast to String"))
241	241		})
242		-	fraction(~~ethwxgXtnPrice~~, wavesUsdtPrice, mult18)
	242	+	fraction(ethwxgWavesPrice, wavesUsdtPrice, mult18)
243	243		}
244	244		else if (("8LQW8f7P5d5PZM7GtZEBgaqRPGSzS3DfPuiXrURJ4AJS" == $match0))
245	245		then {
246	246		let btcwxgXtnAddressStr = "3PCBWDTA6jrFswd7gQgaE3Xk7gLM5RKofvp"
247	247		let btcwxgXtnPrice = parseBigIntValue({
248	248		let @ = invoke(poolsFactoryAddress, "getPrice", [btcwxgXtnAddressStr], nil)
249	249		if ($isInstanceOf(@, "String"))
250	250		then @
251	251		else throw(($getType(@) + " couldn't be cast to String"))
252	252		})
253		-	fraction(btcwxgXtnPrice, ~~wavesUsdtPrice~~, mult18)
	253	+	fraction(btcwxgXtnPrice, xtnUsdtPrice, mult18)
254	254		}
255	255		else throwErr("invalid asset id")
256	256		}
257	257		(acc :+ price)
258	258		}
259	259
260	260		let $l = assetIdList
261	261		let $s = size($l)
262	262		let $acc0 = nil
263	263		func $f0_1 ($a,$i) = if (($i >= $s))
264	264		then $a
265	265		else map($a, $l[$i])
266	266
267	267		func $f0_2 ($a,$i) = if (($i >= $s))
268	268		then $a
269	269		else throw("List size exceeds 10")
270	270
271	271		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
272	272		}
273	273		else if ((chainId == chainIdT))
274	274		then {
275	275		func map (acc,nextAssetId) = {
276	276		let price = match nextAssetId {
277	277		case _ =>
278	278		if (("EMAMLxDnv3xiz8RXg8Btj33jcEw3wLczL3JKYYmuubpc" == $match0))
279	279		then {
280	280		let wxUsdtAddressStr = "3MrULQRLc52GWrJF1tMcAm4M78fPe57o9Kt"
281	281		let wxUsdtPrice = parseBigIntValue({
282	282		let @ = invoke(poolsFactoryAddress, "getPrice", [wxUsdtAddressStr], nil)
283	283		if ($isInstanceOf(@, "String"))
284	284		then @
285	285		else throw(($getType(@) + " couldn't be cast to String"))
286	286		})
287	287		wxUsdtPrice
288	288		}
289	289		else if (("A7Ksh7fXyqm1KhKAiK3bAB2aiPSitQQF6v1pyu9SS3FR" == $match0))
290	290		then {
291	291		let usdcUsdtAddressStr = "3MzKSdTH2jFbypLsoNfrH7QgkzSbx3EYwCA"
292	292		let usdcUsdtPrice = parseBigIntValue({
293	293		let @ = invoke(poolsFactoryAddress, "getPrice", [usdcUsdtAddressStr], nil)
294	294		if ($isInstanceOf(@, "String"))
295	295		then @
296	296		else throw(($getType(@) + " couldn't be cast to String"))
297	297		})
298	298		usdcUsdtPrice
299	299		}
300	300		else if (("8Q6SE2ANebufw8JuPjJVRjZD6drD8ihjNjM8xaGUSfdR" == $match0))
301	301		then {
302	302		let price = 100000000
303	303		price
304	304		}
305	305		else throwErr("invalid asset id")
306	306		}
307	307		(acc :+ price)
308	308		}
309	309
310	310		let $l = assetIdList
311	311		let $s = size($l)
312	312		let $acc0 = nil
313	313		func $f0_1 ($a,$i) = if (($i >= $s))
314	314		then $a
315	315		else map($a, $l[$i])
316	316
317	317		func $f0_2 ($a,$i) = if (($i >= $s))
318	318		then $a
319	319		else throw("List size exceeds 10")
320	320
321	321		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
322	322		}
323	323		else throwErr("invalid chain id")
324	324
325	325
326	326		func calcTreasuryValue (factoryAddress) = {
327	327		let treasuryAddress = getTreasuryAddress(factoryAddress)
328	328		let poolsFactoryAddress = getPoolsFactoryAddress(factoryAddress)
329	329		let assetsStr = split(getAssetsStr(factoryAddress), SEP)
330	330		let assetsBalances = getAssetsBalances(treasuryAddress, assetsStr)
331	331		let assetsPrices = getAssetsPrices(poolsFactoryAddress, assetsStr)
332	332		func reduce (acc,nextAssetIdStr) = {
333	333		let assetId = fromBase58String(nextAssetIdStr)
334	334		let index = valueOrErrorMessage(indexOf(assetsStr, nextAssetIdStr), wrapErr("invalid asset id"))
335	335		let balance = assetsBalances[index]
336	336		let price = assetsPrices[index]
337	337		let assetValue = fraction(balance, price, mult18)
338	338		(acc + assetValue)
339	339		}
340	340
341	341		let treasuryValue = {
342	342		let $l = assetsStr
343	343		let $s = size($l)
344	344		let $acc0 = toBigInt(0)
345	345		func $f0_1 ($a,$i) = if (($i >= $s))
346	346		then $a
347	347		else reduce($a, $l[$i])
348	348
349	349		func $f0_2 ($a,$i) = if (($i >= $s))
350	350		then $a
351	351		else throw("List size exceeds 10")
352	352
353	353		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
354	354		}
355	355		treasuryValue
356	356		}
357	357
358	358
359	359		@Callable(i)
360	360		func withdraw (args) = {
361	361		let recipient = addressFromStringValue(args[0])
362	362		let amount = parseIntValue(args[1])
363	363		let result = invoke(i.caller, "transferWaves", [recipient.bytes, amount], nil)
364	364		$Tuple2(nil, result)
365	365		}
366	366
367	367
368	368
369	369		@Callable(i)
370	370		func setIntParam (args) = {
371	371		let key = args[0]
372	372		let val = parseIntValue(args[1])
373	373		let result = invoke(i.caller, "integerEntry", [key, val], nil)
374	374		$Tuple2(nil, result)
375	375		}
376	376
377	377
378	378
379	379		@Callable(i)
380	380		func swap (callerPublicKey,args) = {
381	381		let factoryAddress = i.caller
382	382		let userAddress = addressFromPublicKey(callerPublicKey)
383	383		let payment = if ((size(i.payments) == 1))
384	384		then i.payments[0]
385	385		else throwErr("1 payment is required")
386	386		let err = wrapErr("invalid payment asset id")
387	387		let paymentAssetId = if ((valueOrErrorMessage(payment.assetId, err) == getLpAssetId(factoryAddress)))
388	388		then value(payment.assetId)
389	389		else throwErr(err)
390	390		let pwrPrice = 100
391	391		let pwrAmount = (payment.amount / pwrPrice)
392	392		let assetsStr = split(getAssetsStr(factoryAddress), SEP)
393	393		let pwrBalance = assetBalance(factoryAddress, getPowerAssetId(factoryAddress))
394	394		if ((pwrBalance == pwrBalance))
395	395		then {
396	396		let treasuryAddress = getTreasuryAddress(factoryAddress)
397	397		let assetsBalances = getAssetsBalances(treasuryAddress, assetsStr)
398	398		func map (acc,nextAssetIdStr) = {
399	399		let assetId = fromBase58String(nextAssetIdStr)
400	400		let index = valueOrErrorMessage(indexOf(assetsStr, nextAssetIdStr), wrapErr("invalid asset balance"))
401	401		let assetDecimals = getAssetInfoOrFail(assetId).decimals
402	402		let balance = fromX18(assetsBalances[index], pow(10, 0, assetDecimals, 0, 0, DOWN))
403	403		let amount = fraction(balance, pwrAmount, pwrBalance)
404	404		if ((amount > 0))
405	405		then $Tuple2((acc._1 :+ assetId), (acc._2 :+ amount))
406	406		else acc
407	407		}
408	408
409	409		let transfers = {
410	410		let $l = assetsStr
411	411		let $s = size($l)
412	412		let $acc0 = $Tuple2(nil, nil)
413	413		func $f0_1 ($a,$i) = if (($i >= $s))
414	414		then $a
415	415		else map($a, $l[$i])
416	416
417	417		func $f0_2 ($a,$i) = if (($i >= $s))
418	418		then $a
419	419		else throw("List size exceeds 6")
420	420
421	421		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
422	422		}
423	423		if ((transfers == transfers))
424	424		then {
425	425		let additionalLockRounds = 0
426	426		let factoryActions = ([invoke(factoryAddress, "commitAfterStartWithLockRoundFor", [toString(powerContractAddress(factoryAddress)), toString(factoryAddress), toString(userAddress), additionalLockRounds, getPowerAssetId(factoryAddress), pwrAmount], nil)] ++ (if ((size(transfers._1) == 0))
427	427		then nil
428	428		else [invoke(factoryAddress, "transferAssets", [userAddress.bytes, transfers._1, transfers._2], nil)]))
429	429		$Tuple2([Burn(paymentAssetId, payment.amount)], factoryActions)
430	430		}
431	431		else throw("Strict value is not equal to itself.")
432	432		}
433	433		else throw("Strict value is not equal to itself.")
434	434		}
435	435
436	436
437	437
438	438		@Callable(i)
439	439		func price (callerPublicKey,args) = {
440	440		let factoryAddress = i.caller
441	441		let poolsFactoryAddress = getPoolsFactoryAddress(factoryAddress)
442	442		let currentPeriod = valueOrErrorMessage(getInteger(factoryAddress, keyCurrentPeriod()), wrapErr("invalid current period"))
443	443		let startTreasuryValue = valueOrErrorMessage(getInteger(factoryAddress, keyTreasuryValueByPeriod(currentPeriod)), wrapErr(("invalid treasury value for period " + toString(currentPeriod))))
444	444		let treasuryValue = fromX18(calcTreasuryValue(factoryAddress), pow(10, 0, usdtDecimals, 0, 0, DOWN))
445	445		let treasuryValueDiff = (treasuryValue - startTreasuryValue)
446	446		let pwrPriceRaw = getAssetsPrices(poolsFactoryAddress, [toBase58String(getPowerAssetId(factoryAddress))])[0]
447	447		let pwrPrice = if ((pwrPriceRaw > toBigInt(0)))
448	448		then fromX18(pwrPriceRaw, pow(10, 0, usdtDecimals, 0, 0, DOWN))
449	449		else throwErr("invalid PWR price")
450	450		let price = if ((0 > treasuryValueDiff))
451	451		then (pwrPrice / 100)
452	452		else ((fraction(treasuryValueDiff, 2, 10000) + pwrPrice) / 100)
453	453		$Tuple2(nil, price)
454	454		}
455	455
456	456
457	457
458	458		@Callable(i)
459	459		func getTreasuryValue (callerPublicKey,args) = {
460	460		let factoryAddress = i.caller
461	461		let treasuryValue = calcTreasuryValue(factoryAddress)
462	462		$Tuple2(nil, treasuryValue)
463	463		}
464	464
465	465
	466	+	@Verifier(tx)
	467	+	func verify () = (chainId == chainIdT)
	468	+

github/deemru/w8io/0e76f2f 
59.94 ms ◑