w8 · tx · C73···4VE

tx · C73KUhjcNi623LgtNESZtvhkBZTtC1StbT787SQ1P4VE

3MstAuJdjcstykakArWP8VxVKifwLG2W9yA:  -0.02100000 Waves

2024.10.30 14:08 [3349522] smart account 3MstAuJdjcstykakArWP8VxVKifwLG2W9yA > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "C73KUhjcNi623LgtNESZtvhkBZTtC1StbT787SQ1P4VE",
    "fee": 2100000,
    "feeAssetId": null,
    "timestamp": 1730286513302,
    "version": 2,
    "chainId": 84,
    "sender": "3MstAuJdjcstykakArWP8VxVKifwLG2W9yA",
    "senderPublicKey": "DkbjqNkpZ5vgvUbWEZFoHUdgUFK8ziLVtw4Fox2YR2gz",
    "proofs": [
        "4Bu52MefPh7xMXZpNoiSEHo4jsRy7T3HtSkP21PsadMjHPiJuZV9FpZBkXFM6iabV3ayvHNwcMkWDcPQSgqKANHg"
    ],
    "script": "base64:BgItCAISBwoFCAgICAESBwoFCAgICAESABIDCgEIEgQKAggBEgUKAwgIARIDCgEIRwAHVkVSU0lPTgIIUE0tMC44LjAACWNvbmZpZ1N0cgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzAg1jb25maWdBZGRyZXNzAiMzTjkxZTd3SGlWN1FhZERzeDNSVUpReHgxZXRxY0FLcmZIagAOQ09ORklHX0FERFJFU1MDCQAAAgUJY29uZmlnU3RyAgAFBHRoaXMJAQdBZGRyZXNzAQkA2QQBBQljb25maWdTdHIAFUFzc2V0c1dlaWdodHNEZWNpbWFscwAEAAVTY2FsZQCQTgAGU2NhbGU4AIDC1y8AB1NjYWxlMTYAgICE/qbe4REACEZlZVNjYWxlAJBOABFQb29sVG9rZW5EZWNpbWFscwAIAA5Qb29sVG9rZW5TY2FsZQkAbAYACgAABRFQb29sVG9rZW5EZWNpbWFscwAAAAAFBkhBTEZVUAAQTUlOX1NURVBTX0FNT1VOVAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ5DT05GSUdfQUREUkVTUwIQbWluX3N0ZXBzX2Ftb3VudAABABBNQVhfU1RFUFNfQU1PVU5UCQELdmFsdWVPckVsc2UCCQCaCAIFDkNPTkZJR19BRERSRVNTAhBtYXhfc3RlcHNfYW1vdW50APQDABJNSU5fU1RFUFNfSU5URVJWQUwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOQ09ORklHX0FERFJFU1MCEm1pbl9zdGVwc19pbnRlcnZhbAABABJNQVhfU1RFUFNfSU5URVJWQUwJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOQ09ORklHX0FERFJFU1MCEm1heF9zdGVwc19pbnRlcnZhbACQTgAKTUlOX1dFSUdIVAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ5DT05GSUdfQUREUkVTUwIKbWluX3dlaWdodABkAApNQVhfV0VJR0hUCQELdmFsdWVPckVsc2UCCQCaCAIFDkNPTkZJR19BRERSRVNTAgptYXhfd2VpZ2h0AKxNAQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQx0cnlHZXRCaW5hcnkBA2tleQQHJG1hdGNoMAkAnAgCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQBYgUHJG1hdGNoMAUBYgEAAQx0cnlHZXRTdHJpbmcBA2tleQQHJG1hdGNoMAkAnQgCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiAgABE3RyeUdldFN0cmluZ09yVGhyb3cBA2tleQQHJG1hdGNoMAkAnQgCBQR0aGlzBQNrZXkDCQABAgUHJG1hdGNoMAIGU3RyaW5nBAFiBQckbWF0Y2gwBQFiCQACAQkArAICAh1ubyBzdWNoIGtleSBpbiBkYXRhIHN0b3JhZ2U6IAUDa2V5AQ5nZXRBc3NldFN0cmluZwEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWICBVdBVkVTAQ1nZXRBc3NldEJ5dGVzAQphc3NldElkU3RyAwkAAAIFCmFzc2V0SWRTdHICBVdBVkVTBQR1bml0CQDZBAEFCmFzc2V0SWRTdHIBD2dldFRva2VuQmFsYW5jZQEHYXNzZXRJZAQHJG1hdGNoMAUHYXNzZXRJZAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAF0BQckbWF0Y2gwCQDwBwIFBHRoaXMFAXQICQDvBwEFBHRoaXMJYXZhaWxhYmxlARNhZGRBc3NldEJ5dGVzVG9MaXN0AgVhY2N1bQRpdGVtCQDOCAIFBWFjY3VtCQDMCAIJAQ1nZXRBc3NldEJ5dGVzAQUEaXRlbQUDbmlsARRhZGRBc3NldFdlaWdodFRvTGlzdAIFYWNjdW0EaXRlbQkAzggCBQVhY2N1bQkAzAgCCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICAgdzdGF0aWNfCQEOZ2V0QXNzZXRTdHJpbmcBBQRpdGVtAgdfd2VpZ2h0BQNuaWwBF2FkZEFzc2V0V2VpZ2h0VG9TdHJMaXN0AgVhY2N1bQRpdGVtCQDOCAIFBWFjY3VtCQDMCAIJAKQDAQkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIHc3RhdGljXwUEaXRlbQIHX3dlaWdodAUDbmlsARZhZGRBc3NldERlY2ltYWxzVG9MaXN0AgVhY2N1bQRpdGVtCQDOCAIFBWFjY3VtCQDMCAIJAQ10cnlHZXRJbnRlZ2VyAQkArAICCQCsAgICB3N0YXRpY18JAQ5nZXRBc3NldFN0cmluZwEFBGl0ZW0CCV9kZWNpbWFscwUDbmlsARNhZGRBc3NldFNjYWxlVG9MaXN0AgVhY2N1bQRpdGVtCQDOCAIFBWFjY3VtCQDMCAIJAQ10cnlHZXRJbnRlZ2VyAQkArAICCQCsAgICB3N0YXRpY18JAQ5nZXRBc3NldFN0cmluZwEFBGl0ZW0CBl9zY2FsZQUDbmlsAQxhZGRJbnRUb0xpc3QCBWFjY3VtBGl0ZW0JAM4IAgUFYWNjdW0JAMwIAgkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBQNuaWwADnVzZG5Bc3NldElkU3RyCQELdmFsdWVPckVsc2UCCQCdCAIFDkNPTkZJR19BRERSRVNTAg51c2RuQXNzZXRJZFN0cgIsREcyeEZrUGREd0tVb0JrekdBaFF0THBTR3pmWExpQ1lQRXplS0gyQWQyNHAAEHB1enpsZUFzc2V0SWRTdHIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUOQ09ORklHX0FERFJFU1MCEHB1enpsZUFzc2V0SWRTdHICLEhFQjhRYXc5eHJXcFdzOHRIc2lBVFlHQldEQnRQMlM3a2NQQUxyTXU0M0FTAA51c2R0QXNzZXRJZFN0cgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ5DT05GSUdfQUREUkVTUwIOdXNkdEFzc2V0SWRTdHICLDM0TjlZY0VFVExXbjkzcVlRNjRFc1AxeDg5dFNydUpVNDRSckVNU1hYRVBKABF1c2R0UHB0QXNzZXRJZFN0cgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ5DT05GSUdfQUREUkVTUwIRdXNkdFBwdEFzc2V0SWRTdHICLDl3YzNMWE5BNFRFQnNYeUt0b0xFOW1yYkREN1dNSFh2WHJDalp2YWJMQXNpAA5yb21lQXNzZXRJZFN0cgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ5DT05GSUdfQUREUkVTUwIOcm9tZUFzc2V0SWRTdHICLEFQNENiNXhMWUdINlppZ0hyZUNaSG9YcFFUV0RrUHNHMkJIcWZEVXg2dGFKAA93YXZlc0Fzc2V0SWRTdHICBVdBVkVTAAt1c2RuQXNzZXRJZAkA2QQBBQ51c2RuQXNzZXRJZFN0cgANcHV6emxlQXNzZXRJZAkA2QQBBRBwdXp6bGVBc3NldElkU3RyAAt1c2R0QXNzZXRJZAkA2QQBBQ51c2R0QXNzZXRJZFN0cgAOdXNkdFBwdEFzc2V0SWQJANkEAQURdXNkdFBwdEFzc2V0SWRTdHIAC3JvbWVBc3NldElkCQDZBAEFDnJvbWVBc3NldElkU3RyAAx3YXZlc0Fzc2V0SWQFBHVuaXQAFXN1cHBvcnRlZEZlZUFzc2V0c1N0cgkAzAgCBQ51c2RuQXNzZXRJZFN0cgkAzAgCBRBwdXp6bGVBc3NldElkU3RyCQDMCAIFDnVzZHRBc3NldElkU3RyCQDMCAIFEXVzZHRQcHRBc3NldElkU3RyCQDMCAIFD3dhdmVzQXNzZXRJZFN0cgkAzAgCBQ5yb21lQXNzZXRJZFN0cgUDbmlsAA1vcmFjbGVBZGRyZXNzCQEHQWRkcmVzcwEJANkEAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ5DT05GSUdfQUREUkVTUwINb3JhY2xlQWRkcmVzcwIjM045MWU3d0hpVjdRYWREc3gzUlVKUXh4MWV0cWNBS3JmSGoAC2ZlZXNBZGRyZXNzCQEHQWRkcmVzcwEJANkEAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ5DT05GSUdfQUREUkVTUwILZmVlc0FkZHJlc3MCIzNOOTFlN3dIaVY3UWFkRHN4M1JVSlF4eDFldHFjQUtyZkhqABJzaHV0ZG93bkFkZHJlc3NTdHIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUOQ09ORklHX0FERFJFU1MCD3NodXRkb3duQWRkcmVzcwIjM045MWU3d0hpVjdRYWREc3gzUlVKUXh4MWV0cWNBS3JmSGoAD2xheWVyMkFkZHJlc3NlcwkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ5DT05GSUdfQUREUkVTUwIPbGF5ZXIyQWRkcmVzc2VzAiMzTjkxZTd3SGlWN1FhZERzeDNSVUpReHgxZXRxY0FLcmZIagARY29sZE1hc3RlckFkZHJlc3MJAQdBZGRyZXNzAQkA2QQBCQELdmFsdWVPckVsc2UCCQCdCAIFDkNPTkZJR19BRERSRVNTAhFjb2xkTWFzdGVyQWRkcmVzcwIjM045MWU3d0hpVjdRYWREc3gzUlVKUXh4MWV0cWNBS3JmSGoAEWNhbGN1bGF0b3JBY2NvdW50CQEHQWRkcmVzcwEJANkEAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ5DT05GSUdfQUREUkVTUwIOZmFjdG9yeUFkZHJlc3MCIzNOMXl0QVV5aHRpZzlYNkYyaEhIczFqYnpZeHI0N1lwOEZyAA5mYWN0b3J5QWNjb3VudAkBB0FkZHJlc3MBCQDZBAEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUOQ09ORklHX0FERFJFU1MCDmZhY3RvcnlBZGRyZXNzAiMzTXNnemJ0Umc4TkVrYlRjSEJ5d3R3VGRDZTlCUnhNUW81VAAMbWFzdGVyUHViS2V5CQDZBAEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUOQ09ORklHX0FERFJFU1MCDG1hc3RlclB1YktleQIsNHo4Q0tTWVFCS2t6eDdQQmI1dUJQMVlQYTZZQUhSTlRBcFcxc1FWSFQ1ZVUAAVQJAQ10cnlHZXRJbnRlZ2VyAQITc3RhdGljX3Rva2Vuc0Ftb3VudAAIYXNzZXRJZHMKAAIkbAkAtQkCCQEMdHJ5R2V0U3RyaW5nAQIPc3RhdGljX3Rva2VuSWRzAgEsCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARNhZGRBc3NldEJ5dGVzVG9MaXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAA1Bc3NldHNXZWlnaHRzCgACJGwFCGFzc2V0SWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARRhZGRBc3NldFdlaWdodFRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgAIRGVjaW1hbHMKAAIkbAUIYXNzZXRJZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjJfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBFmFkZEFzc2V0RGVjaW1hbHNUb0xpc3QCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjJfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYyXzICCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECCQEFJGYyXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoABlNjYWxlcwoAAiRsBQhhc3NldElkcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmM18xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQETYWRkQXNzZXRTY2FsZVRvTGlzdAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmM18yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjNfMgIJAQUkZjNfMQIJAQUkZjNfMQIJAQUkZjNfMQIJAQUkZjNfMQIJAQUkZjNfMQIJAQUkZjNfMQIJAQUkZjNfMQIJAQUkZjNfMQIJAQUkZjNfMQIJAQUkZjNfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgADRmVlCQENdHJ5R2V0SW50ZWdlcgECCnN0YXRpY19mZWUADGVhcm5lZEFzc2V0cwUIYXNzZXRJZHMBDWdldFBvb2xTdGF0dXMABAZwb29sSWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOZmFjdG9yeUFjY291bnQJAKwCAgIGcG9vbF9fCQClCAEFBHRoaXMAAAQGc3RhdHVzCQELdmFsdWVPckVsc2UCCQCaCAIFDmZhY3RvcnlBY2NvdW50CQCsAgICDnBvb2xfX3N0YXR1c19fCQCkAwEFBnBvb2xJZAACBQZzdGF0dXMBCmdldFNldHRpbmcBA2tleQkBEUBleHRyTmF0aXZlKDEwNTApAgUOZmFjdG9yeUFjY291bnQJAKwCAgIHc2V0dXBfXwUDa2V5ABRJbml0YWxXYXZlc0xpcXVpZGl0eQkBCmdldFNldHRpbmcBAhB2aXJ0dWFsTGlxdWlkaXR5AAtDcmVhdGlvbkZlZQkBCmdldFNldHRpbmcBAgtjcmVhdGlvbkZlZQALQ3VydmVUYXJnZXQJAQpnZXRTZXR0aW5nAQILY3VydmVUYXJnZXQBCmlzU2h1dGRvd24ABA9zaHV0ZG93bkFkZHJlc3MJAKYIAQUSc2h1dGRvd25BZGRyZXNzU3RyAwkAAAIFD3NodXRkb3duQWRkcmVzcwUEdW5pdAcEByRtYXRjaDAJAJsIAgkBBXZhbHVlAQUPc2h1dGRvd25BZGRyZXNzAgtpc19zaHV0ZG93bgMJAAECBQckbWF0Y2gwAgdCb29sZWFuBAF4BQckbWF0Y2gwBQF4BwESZ2V0UHJpY2VGcm9tT3JhY2xlAQphc3NldElkU3RyBAckbWF0Y2gwCQCaCAIFDW9yYWNsZUFkZHJlc3MJAKwCAgUKYXNzZXRJZFN0cgIHX3R3YXA1QgMJAAECBQckbWF0Y2gwAgNJbnQEAXgFByRtYXRjaDAFAXgAwIQ9ARFjYWxjdWxhdGVVc2RWYWx1ZQMHYXNzZXRJZAZhbW91bnQIYUJhbGFuY2UEC2Fzc2V0V2VpZ2h0CQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICAgdzdGF0aWNfCQEOZ2V0QXNzZXRTdHJpbmcBBQdhc3NldElkAgdfd2VpZ2h0BAtmZWVBc3NldFN0cgkBDHRyeUdldFN0cmluZwECD3N0YXRpY19mZWVUb2tlbgQNZmVlQXNzZXRTY2FsZQkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwkArAICCQCsAgICB3N0YXRpY18FC2ZlZUFzc2V0U3RyAgZfc2NhbGUEC2ZlZUFzc2V0TnVtCQEFdmFsdWUBCQDPCAIFCGFzc2V0SWRzCQENZ2V0QXNzZXRCeXRlcwEFC2ZlZUFzc2V0U3RyBA5mZWVBc3NldFdlaWdodAkAkQMCBQ1Bc3NldHNXZWlnaHRzBQtmZWVBc3NldE51bQQPZmVlQXNzZXRCYWxhbmNlCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICAgdnbG9iYWxfBQtmZWVBc3NldFN0cgIIX2JhbGFuY2UEDXZhbEluRmVlQXNzZXQJAGsDBQZhbW91bnQJAGkCBQ9mZWVBc3NldEJhbGFuY2UFDmZlZUFzc2V0V2VpZ2h0CQBpAgUIYUJhbGFuY2UFC2Fzc2V0V2VpZ2h0BA1mZWVBc3NldFByaWNlCQESZ2V0UHJpY2VGcm9tT3JhY2xlAQULZmVlQXNzZXRTdHIJAGsDBQ12YWxJbkZlZUFzc2V0BQ1mZWVBc3NldFByaWNlBQ1mZWVBc3NldFNjYWxlARJjYWxjdWxhdGVPdXRBbW91bnQFCEFtb3VudEluB2Fzc2V0SW4IYXNzZXRPdXQJQmFsYW5jZUluCkJhbGFuY2VPdXQEB0luZGV4SW4JAQV2YWx1ZQEJAM8IAgUIYXNzZXRJZHMFB2Fzc2V0SW4ECEluZGV4T3V0CQEFdmFsdWUBCQDPCAIFCGFzc2V0SWRzBQhhc3NldE91dAMJAAACBQdJbmRleEluBQhJbmRleE91dAUIQW1vdW50SW4JAG4EBQpCYWxhbmNlT3V0CQBlAgkAaAIFBlNjYWxlOAUGU2NhbGU4CQCgAwEJAHYGCQC9AgQJALkCAgkAtgIBBQlCYWxhbmNlSW4JALYCAQCQTgkAtgIBCQBoAgUGU2NhbGU4BQZTY2FsZTgJALkCAgkAtgIBCQBkAgUJQmFsYW5jZUluBQhBbW91bnRJbgkAtgIBAJBOBQZIQUxGVVAAEAkAtgIBCQBrAwkAkQMCBQ1Bc3NldHNXZWlnaHRzBQdJbmRleEluAICglKWNHQkAkQMCBQ1Bc3NldHNXZWlnaHRzBQhJbmRleE91dAAMABAFB0NFSUxJTkcJAGgCBQZTY2FsZTgFBlNjYWxlOAUISEFMRkVWRU4BHWNhbGN1bGF0ZUN1cnJlbnRBc3NldEludGVyZXN0BAdhc3NldElkCmFzc2V0SWRTdHIIYUJhbGFuY2UWdG9rZW5FYXJuaW5nc0xhc3RDaGVjawQLdG90YWxTdGFrZWQJAQ10cnlHZXRJbnRlZ2VyAQISZ2xvYmFsX2luZGV4U3Rha2VkBBV0b2tlbkJhbGFuY2VMYXN0Q2hlY2sFFnRva2VuRWFybmluZ3NMYXN0Q2hlY2sEE2N1cnJlbnRCYWxhbmNlRGVsdGEJAGUCCQEPZ2V0VG9rZW5CYWxhbmNlAQUHYXNzZXRJZAUIYUJhbGFuY2UEFGN1cnJlbnRUb2tlbkVhcm5pbmdzAwkAZgIFE2N1cnJlbnRCYWxhbmNlRGVsdGEFFXRva2VuQmFsYW5jZUxhc3RDaGVjawUTY3VycmVudEJhbGFuY2VEZWx0YQUVdG9rZW5CYWxhbmNlTGFzdENoZWNrBAtuZXdFYXJuaW5ncwkAZQIFFGN1cnJlbnRUb2tlbkVhcm5pbmdzBRV0b2tlbkJhbGFuY2VMYXN0Q2hlY2sEC25ld0ludGVyZXN0AwkAAAIFC3RvdGFsU3Rha2VkAAAAAAkAawMFC25ld0Vhcm5pbmdzBQZTY2FsZTgFC3RvdGFsU3Rha2VkBBFsYXN0Q2hlY2tJbnRlcmVzdAkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIRZ2xvYmFsX2xhc3RDaGVja18FCmFzc2V0SWRTdHICCV9pbnRlcmVzdAkAZAIFEWxhc3RDaGVja0ludGVyZXN0BQtuZXdJbnRlcmVzdAELY2xhaW1SZXN1bHQBB2FkZHJlc3MECmFkZHJlc3NTdHIJAKUIAQUHYWRkcmVzcwQMcHV6emxlQW1vdW50CQENdHJ5R2V0SW50ZWdlcgEJAKwCAgUKYWRkcmVzc1N0cgIMX2luZGV4U3Rha2VkCgEHaGFuZGxlcgIFYWNjdW0HYXNzZXRJZAQKYXNzZXRJZFN0cgkBDmdldEFzc2V0U3RyaW5nAQUHYXNzZXRJZAQIYUJhbGFuY2UJAQ10cnlHZXRJbnRlZ2VyAQkArAICCQCsAgICB2dsb2JhbF8JAQ5nZXRBc3NldFN0cmluZwEFB2Fzc2V0SWQCCF9iYWxhbmNlBBZ0b2tlbkVhcm5pbmdzTGFzdENoZWNrCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICAhFnbG9iYWxfbGFzdENoZWNrXwUKYXNzZXRJZFN0cgIJX2Vhcm5pbmdzBBRjdXJyZW50VG9rZW5JbnRlcmVzdAkBHWNhbGN1bGF0ZUN1cnJlbnRBc3NldEludGVyZXN0BAUHYXNzZXRJZAUKYXNzZXRJZFN0cgUIYUJhbGFuY2UFFnRva2VuRWFybmluZ3NMYXN0Q2hlY2sEFGN1cnJlbnRUb2tlbkVhcm5pbmdzCQCWAwEJAMwIAgUWdG9rZW5FYXJuaW5nc0xhc3RDaGVjawkAzAgCCQBlAgkBD2dldFRva2VuQmFsYW5jZQEFB2Fzc2V0SWQFCGFCYWxhbmNlBQNuaWwEDHJld2FyZEFtb3VudAkAawMFDHB1enpsZUFtb3VudAkAZQIFFGN1cnJlbnRUb2tlbkludGVyZXN0CQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICCQCsAgIFCmFkZHJlc3NTdHICC19sYXN0Q2hlY2tfBQphc3NldElkU3RyAglfaW50ZXJlc3QFBlNjYWxlOAQIdHJhbnNmZXIDCQAAAgUMcmV3YXJkQW1vdW50AAAFA25pbAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQdhZGRyZXNzBQxyZXdhcmRBbW91bnQFB2Fzc2V0SWQFA25pbAkAlAoCCQDOCAIJAM4IAggFBWFjY3VtAl8xBQh0cmFuc2ZlcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgICEWdsb2JhbF9sYXN0Q2hlY2tfBQphc3NldElkU3RyAglfZWFybmluZ3MJAGUCBRRjdXJyZW50VG9rZW5FYXJuaW5ncwUMcmV3YXJkQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgIRZ2xvYmFsX2xhc3RDaGVja18FCmFzc2V0SWRTdHICCV9pbnRlcmVzdAUUY3VycmVudFRva2VuSW50ZXJlc3QJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgIFCmFkZHJlc3NTdHICC19sYXN0Q2hlY2tfBQphc3NldElkU3RyAglfaW50ZXJlc3QFFGN1cnJlbnRUb2tlbkludGVyZXN0BQNuaWwJAGQCCAUFYWNjdW0CXzIJARFjYWxjdWxhdGVVc2RWYWx1ZQMFB2Fzc2V0SWQFDHJld2FyZEFtb3VudAUIYUJhbGFuY2UEBWFjY3VtCgACJGwFDGVhcm5lZEFzc2V0cwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsAAAKAQUkZjRfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBB2hhbmRsZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjRfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGY0XzICCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAJQKAgkAzggCCAUFYWNjdW0CXzEJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYWRkcmVzc1N0cgIRX2NsYWltZWRSZXdhcmRVU0QJAGQCCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgUKYWRkcmVzc1N0cgIRX2NsYWltZWRSZXdhcmRVU0QIBQVhY2N1bQJfMgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphZGRyZXNzU3RyAgpfbGFzdENsYWltCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAUDbmlsCAUFYWNjdW0CXzIBA3N1bQIFYWNjdW0BbgkAZAIFBWFjY3VtCQENcGFyc2VJbnRWYWx1ZQEFAW4BDWNoZWNrRmVlQXNzZXQCBWFjY3VtBG5leHQDAwkBAiE9AgkAzwgCBRVzdXBwb3J0ZWRGZWVBc3NldHNTdHIFBG5leHQFBHVuaXQJAAACBQVhY2N1bQIABwUEbmV4dAUFYWNjdW0BDHN3YXBJbnRlcm5hbAUHYXNzZXRJbghhc3NldE91dAhhbW91bnRJbgdtaW5pbXVtFHJlY2VpcGllbnRBZGRyZXNzU3RyBAhBbW91bnRJbgUIYW1vdW50SW4EB0Fzc2V0SW4JAQ1nZXRBc3NldEJ5dGVzAQUHYXNzZXRJbgQIQXNzZXRPdXQJAQ1nZXRBc3NldEJ5dGVzAQUIYXNzZXRPdXQEB3NjYWxlSW4JAGkCBQZTY2FsZTgJAQ10cnlHZXRJbnRlZ2VyAQkArAICCQCsAgICB3N0YXRpY18FB2Fzc2V0SW4CBl9zY2FsZQQIc2NhbGVPdXQJAGkCBQZTY2FsZTgJAQ10cnlHZXRJbnRlZ2VyAQkArAICCQCsAgICB3N0YXRpY18FCGFzc2V0T3V0AgZfc2NhbGUEDmZlZUFzc2V0T3V0U3RyCQEMdHJ5R2V0U3RyaW5nAQIPc3RhdGljX2ZlZVRva2VuBAtmZWVBc3NldE91dAMJAAACBQ5mZWVBc3NldE91dFN0cgIABQx3YXZlc0Fzc2V0SWQJAQ1nZXRBc3NldEJ5dGVzAQUOZmVlQXNzZXRPdXRTdHIEDkFzc2V0SW5CYWxhbmNlCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICAgdnbG9iYWxfCQEOZ2V0QXNzZXRTdHJpbmcBBQdBc3NldEluAghfYmFsYW5jZQQPQXNzZXRPdXRCYWxhbmNlCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgkArAICAgdnbG9iYWxfBQhhc3NldE91dAIIX2JhbGFuY2UEFEFzc2V0SW5CYWxhbmNlU2NhbGVkCQBoAgUOQXNzZXRJbkJhbGFuY2UFB3NjYWxlSW4EFUFzc2V0T3V0QmFsYW5jZVNjYWxlZAkAaAIFD0Fzc2V0T3V0QmFsYW5jZQUIc2NhbGVPdXQEC2ZlZUFtb3VudEluCQBrAwUIQW1vdW50SW4FA0ZlZQUIRmVlU2NhbGUEDWNsZWFuQW1vdW50SW4JAGUCBQhBbW91bnRJbgULZmVlQW1vdW50SW4EE2NsZWFuQW1vdW50SW5TY2FsZWQJAGgCBQ1jbGVhbkFtb3VudEluBQdzY2FsZUluBApBbW91bnRPdXQxCQESY2FsY3VsYXRlT3V0QW1vdW50BQUTY2xlYW5BbW91bnRJblNjYWxlZAUHQXNzZXRJbgUIQXNzZXRPdXQFFEFzc2V0SW5CYWxhbmNlU2NhbGVkBRVBc3NldE91dEJhbGFuY2VTY2FsZWQECUFtb3VudE91dAkAawMFCkFtb3VudE91dDEAAQUIc2NhbGVPdXQEEEFzc2V0T3V0QmFsYW5jZTIJAGUCBQ9Bc3NldE91dEJhbGFuY2UFCUFtb3VudE91dAQPQXNzZXRJbkJhbGFuY2UyCQBkAgUOQXNzZXRJbkJhbGFuY2UFDWNsZWFuQW1vdW50SW4EEmZlZUFzc2V0T3V0QmFsYW5jZQMJAAACBQtmZWVBc3NldE91dAUHQXNzZXRJbgUPQXNzZXRJbkJhbGFuY2UyAwkAAAIFC2ZlZUFzc2V0T3V0BQhBc3NldE91dAUQQXNzZXRPdXRCYWxhbmNlMgkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIHZ2xvYmFsXwkBDmdldEFzc2V0U3RyaW5nAQULZmVlQXNzZXRPdXQCCF9iYWxhbmNlBAxmZWVBbW91bnRPdXQJARJjYWxjdWxhdGVPdXRBbW91bnQFBQtmZWVBbW91bnRJbgUHQXNzZXRJbgULZmVlQXNzZXRPdXQFDkFzc2V0SW5CYWxhbmNlBRJmZWVBc3NldE91dEJhbGFuY2UDCQBmAgUHbWluaW11bQUJQW1vdW50T3V0CQACAQIpYW1vdW50IHRvIHJlY2lldmUgaXMgbG93ZXIgdGhhbiBnaXZlbiBvbmUDCQAAAgUIQXNzZXRPdXQFB0Fzc2V0SW4JAAIBAhh0aGlzIHN3YXAgaXMgbm90IGFsbG93ZWQDCQBmAgAACQBlAgUPQXNzZXRPdXRCYWxhbmNlBQlBbW91bnRPdXQJAAIBAhtjb250cmFjdCBpcyBvdXQgb2YgcmVzZXJ2ZXMDCQEKaXNTaHV0ZG93bgAJAAIBAhNjb250cmFjdCBpcyBvbiBzdG9wBApjcmVhdG9yRmVlCQBrAwUMZmVlQW1vdW50T3V0AAEACgQLcHJvdG9jb2xGZWUJAGsDBQxmZWVBbW91bnRPdXQABAAKBAxuZXdCYWxhbmNlSW4FD0Fzc2V0SW5CYWxhbmNlMgQNbmV3QmFsYW5jZU91dAkAZQIFEEFzc2V0T3V0QmFsYW5jZTIDCQAAAgUIQXNzZXRPdXQFC2ZlZUFzc2V0T3V0BQxmZWVBbW91bnRPdXQAAAQSbmV3QmFsYW5jZUZlZUFzc2V0AwMJAQIhPQIFC2ZlZUFzc2V0T3V0BQdBc3NldEluCQECIT0CBQtmZWVBc3NldE91dAUIQXNzZXRPdXQHCQBlAgUSZmVlQXNzZXRPdXRCYWxhbmNlBQxmZWVBbW91bnRPdXQFBHVuaXQEDWFzc2V0SW5DaGFuZ2UJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgIHZ2xvYmFsXwkBDmdldEFzc2V0U3RyaW5nAQUHQXNzZXRJbgIIX2JhbGFuY2UFDG5ld0JhbGFuY2VJbgQOYXNzZXRPdXRDaGFuZ2UJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgIHZ2xvYmFsXwUIYXNzZXRPdXQCCF9iYWxhbmNlBQ1uZXdCYWxhbmNlT3V0BBFmZWVBc3NldE91dENoYW5nZQMJAQIhPQIFEm5ld0JhbGFuY2VGZWVBc3NldAUEdW5pdAkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAgdnbG9iYWxfCQEOZ2V0QXNzZXRTdHJpbmcBBQtmZWVBc3NldE91dAIIX2JhbGFuY2UJAQV2YWx1ZQEFEm5ld0JhbGFuY2VGZWVBc3NldAkBC1N0cmluZ0VudHJ5AgIFaGVsbG8CBXdvcmxkBA92b2x1bWVVc2RVcGRhdGUJARFjYWxjdWxhdGVVc2RWYWx1ZQMFB0Fzc2V0SW4FCEFtb3VudEluBQ5Bc3NldEluQmFsYW5jZQkAlAoCCQDMCAIFDmFzc2V0T3V0Q2hhbmdlCQDMCAIFDWFzc2V0SW5DaGFuZ2UJAMwIAgURZmVlQXNzZXRPdXRDaGFuZ2UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUUcmVjZWlwaWVudEFkZHJlc3NTdHIFCUFtb3VudE91dAUIQXNzZXRPdXQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBDHRyeUdldFN0cmluZwECEHN0YXRpY19wb29sT3duZXIFCmNyZWF0b3JGZWUFC2ZlZUFzc2V0T3V0CQDMCAIJAQxJbnRlZ2VyRW50cnkCAhRnbG9iYWxfZWFybmVkQnlPd25lcgkAZAIJAQ10cnlHZXRJbnRlZ2VyAQIUZ2xvYmFsX2Vhcm5lZEJ5T3duZXIFCmNyZWF0b3JGZWUJAMwIAgkBDEludGVnZXJFbnRyeQICEWdsb2JhbF92b2x1bWVfdXNkCQBkAgkBDXRyeUdldEludGVnZXIBAhFnbG9iYWxfdm9sdW1lX3VzZAUPdm9sdW1lVXNkVXBkYXRlCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFC2ZlZXNBZGRyZXNzBQtwcm90b2NvbEZlZQULZmVlQXNzZXRPdXQFA25pbAUJQW1vdW50T3V0BwFpAQhpbml0UG9vbAUKcG9vbERvbWFpbglwb29sT3duZXIJdG9rZW5OYW1lCXRva2VuRGVzYw10b2tlblF1YW50aXR5CgEZY2FsY3VsYXRlUG9vbFRva2Vuc0Ftb3VudAEIcGF5bWVudHMKAQdoYW5kbGVyAgVhY2N1bQNwbXQEB2Fzc2V0SWQIBQNwbXQHYXNzZXRJZAoBCGhhbmRsZXIyAgVhY2N1bQFuAwkAAAIFAW4FB2Fzc2V0SWQJAQV2YWx1ZQEJAM8IAgUIYXNzZXRJZHMFAW4FBWFjY3VtBAVUb2tlbgoAAiRsBQhhc3NldElkcwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAQoBBSRmNF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIaGFuZGxlcjICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjRfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGY0XzICCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECCQEFJGY0XzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAGsDBQVhY2N1bQkAbAYIBQNwbXQGYW1vdW50CQCRAwIFCERlY2ltYWxzBQVUb2tlbgkAkQMCBQ1Bc3NldHNXZWlnaHRzBQVUb2tlbgUVQXNzZXRzV2VpZ2h0c0RlY2ltYWxzAAgFBUZMT09SBQZTY2FsZTgKAAIkbAUIcGF5bWVudHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQ5Qb29sVG9rZW5TY2FsZQoBBSRmNF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEHaGFuZGxlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmNF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjRfMgIJAQUkZjRfMQIJAQUkZjRfMQIJAQUkZjRfMQIJAQUkZjRfMQIJAQUkZjRfMQIJAQUkZjRfMQIJAQUkZjRfMQIJAQUkZjRfMQIJAQUkZjRfMQIJAQUkZjRfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgQEbWVtZQkAwggFBQl0b2tlbk5hbWUFCXRva2VuRGVzYwUNdG9rZW5RdWFudGl0eQAIBwQGbWVtZUlkCQC4CAEFBG1lbWUECW1lbWVJZFN0cgkBDmdldEFzc2V0U3RyaW5nAQUGbWVtZUlkBA9hc3NldFdlaWdodHNTdHICCTUwMDAsNTAwMAQOYmFzZVRva2VuSWRTdHICBVdBVkVTBBBwb29sT3duZXJBZGRyZXNzCQEHQWRkcmVzcwEJANkEAQUJcG9vbE93bmVyBAthc3NldElkc1N0cgkArAICAgZXQVZFUywFCW1lbWVJZFN0cgQNYXNzZXRJZHNTdHJMaQkAtQkCBQthc3NldElkc1N0cgIBLAQKYXNzZXRJZHNMaQoAAiRsBQ1hc3NldElkc1N0ckxpCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGY0XzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJARNhZGRBc3NldEJ5dGVzVG9MaXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGY0XzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmNF8yAgkBBSRmNF8xAgkBBSRmNF8xAgkBBSRmNF8xAgkBBSRmNF8xAgkBBSRmNF8xAgkBBSRmNF8xAgkBBSRmNF8xAgkBBSRmNF8xAgkBBSRmNF8xAgkBBSRmNF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKBANmZWUAZAQLZmVlQXNzZXRTdHIKAAIkbAUNYXNzZXRJZHNTdHJMaQoAAiRzCQCQAwEFAiRsCgAFJGFjYzACAAoBBSRmNV8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQENY2hlY2tGZWVBc3NldAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmNV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjVfMgIJAQUkZjVfMQIJAQUkZjVfMQIJAQUkZjVfMQIJAQUkZjVfMQIJAQUkZjVfMQIJAQUkZjVfMQIJAQUkZjVfMQIJAQUkZjVfMQIJAQUkZjVfMQIJAQUkZjVfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEBmFtb3VudAgFA3BtdAZhbW91bnQECHBtdEFzc2V0AwkAAAIIBQNwbXQHYXNzZXRJZAUEdW5pdAIFV0FWRVMJAAIBAh15b3UgaGF2ZSB0byBhdHRhY2ggc29tZSBXQVZFUwMJAQIhPQIFBHRoaXMFBHRoaXMJAAIBAhBzZWxmLWludm9rZSBvbmx5AwkAAAIFC2ZlZUFzc2V0U3RyAgAJAAIBAkFwb29sIG11c3QgaGF2ZSBvbmUgb2YgdGhlIHN1cHBvcnRlZCBmZWUgYXNzZXRzIGluIHRoZSBjb21wb3NpdGlvbgMJAGYCCQCxAgEFCnBvb2xEb21haW4ADQkAAgECFXRvbyBsYXJnZSBwb29sIGRvbWFpbgMDCQBmAgUDZmVlAPQDBgkAZgIAAAUDZmVlCQACAQItZmVlIHZhbHVlIG11c3QgYmUgYmV0d2VlbiA1MCBhbmQgNTAwICgwLjUtNSUpAwkBCmlzU2h1dGRvd24ACQACAQITY29udHJhY3QgaXMgb24gc3RvcAQRYXNzZXRXZWlnaHRzU3RyTGkJALUJAgUPYXNzZXRXZWlnaHRzU3RyAgEsBA9hc3NldFdlaWdodHNTdW0KAAIkbAURYXNzZXRXZWlnaHRzU3RyTGkKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjZfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA3N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmNl8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjZfMgIJAQUkZjZfMQIJAQUkZjZfMQIJAQUkZjZfMQIJAQUkZjZfMQIJAQUkZjZfMQIJAQUkZjZfMQIJAQUkZjZfMQIJAQUkZjZfMQIJAQUkZjZfMQIJAQUkZjZfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgoBE2FkZFRva2VuRGF0YUVudHJpZXMCBWFjY3VtCGFzc2V0TnVtAwkAZwIFCGFzc2V0TnVtCQCQAwEFCmFzc2V0SWRzTGkFBWFjY3VtBA1hc3NldERlY2ltYWxzAAgJAM4IAgUFYWNjdW0JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAgdzdGF0aWNfCQCRAwIFDWFzc2V0SWRzU3RyTGkFCGFzc2V0TnVtAgZfc2NhbGUJAGwGAAoAAAUNYXNzZXREZWNpbWFscwAAAAAFBERPV04JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAgdzdGF0aWNfCQCRAwIFDWFzc2V0SWRzU3RyTGkFCGFzc2V0TnVtAglfZGVjaW1hbHMFDWFzc2V0RGVjaW1hbHMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICAgdzdGF0aWNfCQCRAwIFDWFzc2V0SWRzU3RyTGkFCGFzc2V0TnVtAgdfd2VpZ2h0CQEFdmFsdWUBCQC2CQEJAJEDAgURYXNzZXRXZWlnaHRzU3RyTGkFCGFzc2V0TnVtBQNuaWwEEWluaXRpYWxQb29sVG9rZW5zCQEZY2FsY3VsYXRlUG9vbFRva2Vuc0Ftb3VudAEIBQFpCHBheW1lbnRzAwkBAiE9AgUPYXNzZXRXZWlnaHRzU3VtAJBOCQACAQIrc3VtIG9mIHRva2VuIHdlaWdodHMgbXVzdCBiZSBlcXVhbCB0byAxMDAwMAMJAAACBRFpbml0aWFsUG9vbFRva2VucwAACQACAQIyeW91IG5lZWQgYSBiaWdnZXIgdG9rZW5zIGFtb3VudCB0byBsYXVuY2ggdGhlIHBvb2wEDnBvb2xUb2tlbklzc3VlCQDDCAcJAKwCAgIDUFogBQpwb29sRG9tYWluAh1QdXp6bGUgU3dhcDogcG9vbCBpbmRleCB0b2tlbgURaW5pdGlhbFBvb2xUb2tlbnMFEVBvb2xUb2tlbkRlY2ltYWxzBgUEdW5pdAAABAtwb29sVG9rZW5JZAkAuAgBBQ5wb29sVG9rZW5Jc3N1ZQkAlAoCCQDOCAIJAM4IAgkAzggCCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjdfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBE2FkZFRva2VuRGF0YUVudHJpZXMCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjdfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGY3XzICCQEFJGY3XzECCQEFJGY3XzECCQEFJGY3XzECCQEFJGY3XzECCQEFJGY3XzECCQEFJGY3XzECCQEFJGY3XzECCQEFJGY3XzECCQEFJGY3XzECCQEFJGY3XzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAMwIAgUEbWVtZQkAzAgCCQELU3RyaW5nRW50cnkCAg9zdGF0aWNfdG9rZW5JZHMFC2Fzc2V0SWRzU3RyCQDMCAIJAQtTdHJpbmdFbnRyeQICD3N0YXRpY19mZWVUb2tlbgULZmVlQXNzZXRTdHIJAMwIAgkBC1N0cmluZ0VudHJ5AgITc3RhdGljX3Rva2VuV2VpZ2h0cwUPYXNzZXRXZWlnaHRzU3RyCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhNzdGF0aWNfdG9rZW5zQW1vdW50CQCQAwEFCmFzc2V0SWRzTGkJAMwIAgkBC1N0cmluZ0VudHJ5AgIRc3RhdGljX3Bvb2xEb21haW4FCnBvb2xEb21haW4JAMwIAgkBC1N0cmluZ0VudHJ5AgISc3RhdGljX2Jhc2VUb2tlbklkBQ5iYXNlVG9rZW5JZFN0cgkAzAgCCQELU3RyaW5nRW50cnkCAhBzdGF0aWNfcG9vbE93bmVyBQlwb29sT3duZXIJAMwIAgkBDEludGVnZXJFbnRyeQICCnN0YXRpY19mZWUFA2ZlZQkAzAgCCQEMSW50ZWdlckVudHJ5AgIMc3RhdGljX0tNdWx0BQdTY2FsZTE2CQDMCAIJAQxJbnRlZ2VyRW50cnkCAhNnbG9iYWxfd2FzUHJlSW5pdGVkAAEFA25pbAkAzAgCCQEMSW50ZWdlckVudHJ5AgIUZ2xvYmFsX1dBVkVTX2JhbGFuY2UFFEluaXRhbFdhdmVzTGlxdWlkaXR5CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgIHZ2xvYmFsXwUJbWVtZUlkU3RyAghfYmFsYW5jZQUNdG9rZW5RdWFudGl0eQUDbmlsCQDMCAIFDnBvb2xUb2tlbklzc3VlCQDMCAIJAQxJbnRlZ2VyRW50cnkCAhdnbG9iYWxfcG9vbFRva2VuX2Ftb3VudAURaW5pdGlhbFBvb2xUb2tlbnMJAMwIAgkBDEludGVnZXJFbnRyeQICEGdsb2JhbF93YXNJbml0ZWQAAQkAzAgCCQELQmluYXJ5RW50cnkCAhNnbG9iYWxfcG9vbFRva2VuX2lkBQtwb29sVG9rZW5JZAkAzAgCCQELU3RyaW5nRW50cnkCAhZzdGF0aWNfcG9vbFRva2VuX2lkU3RyCQEOZ2V0QXNzZXRTdHJpbmcBBQtwb29sVG9rZW5JZAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQClCAEIBQFpBmNhbGxlcgIMX2luZGV4U3Rha2VkBRFpbml0aWFsUG9vbFRva2VucwkAzAgCCQEMSW50ZWdlckVudHJ5AgISZ2xvYmFsX2luZGV4U3Rha2VkBRFpbml0aWFsUG9vbFRva2VucwUDbmlsBQltZW1lSWRTdHIBaQEEaW5pdAUKcG9vbERvbWFpbglwb29sT3duZXIJdG9rZW5OYW1lCXRva2VuRGVzYw10b2tlblF1YW50aXR5AwkBAiE9AggFAWkGY2FsbGVyBQ5mYWN0b3J5QWNjb3VudAkAAgECCmFkbWluIG9ubHkEBGludjEJAPwHBAUEdGhpcwIIaW5pdFBvb2wJAMwIAgUKcG9vbERvbWFpbgkAzAgCBQlwb29sT3duZXIJAMwIAgUJdG9rZW5OYW1lCQDMCAIFCXRva2VuRGVzYwkAzAgCBQ10b2tlblF1YW50aXR5BQNuaWwFA25pbAMJAAACBQRpbnYxBQRpbnYxBAltZW1lSWRTdHIKAAFABQRpbnYxAwkAAQIFAUACBlN0cmluZwUBQAkAAgEJAKwCAgkAAwEFAUACGyBjb3VsZG4ndCBiZSBjYXN0IHRvIFN0cmluZwgJAQxzd2FwSW50ZXJuYWwFAgVXQVZFUwUJbWVtZUlkU3RyCQBlAggJAJEDAggFAWkIcGF5bWVudHMAAAZhbW91bnQFC0NyZWF0aW9uRmVlAAAJAKUIAQgFAWkGY2FsbGVyAl8xCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEWNsYWltSW5kZXhSZXdhcmRzAAMJAQppc1NodXRkb3duAAkAAgECE2NvbnRyYWN0IGlzIG9uIHN0b3AJAQtjbGFpbVJlc3VsdAEIBQFpBmNhbGxlcgFpAQ1ldmFsdWF0ZUNsYWltAQR1c2VyCQCUCgIFA25pbAgJAQtjbGFpbVJlc3VsdAEJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBHVzZXICXzIBaQEEc3dhcAIIYXNzZXRPdXQHbWluaW11bQQGc3RhdHVzCQENZ2V0UG9vbFN0YXR1cwADCQBmAgACBQZzdGF0dXMEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECIXBsZWFzZSBhdHRhY2ggZXhhY3RseSBvbmUgcGF5bWVudAQIQW1vdW50SW4JAQV2YWx1ZQEICQCRAwIIBQFpCHBheW1lbnRzAAAGYW1vdW50BAdBc3NldEluCAkAkQMCCAUBaQhwYXltZW50cwAAB2Fzc2V0SWQEA3JlcwkBDHN3YXBJbnRlcm5hbAUJAQ5nZXRBc3NldFN0cmluZwEFB0Fzc2V0SW4FCGFzc2V0T3V0BQhBbW91bnRJbgUHbWluaW11bQkApQgBCAUBaQZjYWxsZXIDCQBmAgkBEUBleHRyTmF0aXZlKDEwNTUpAQIUZ2xvYmFsX1dBVkVTX2JhbGFuY2UFC0N1cnZlVGFyZ2V0BAlub3RpZnlJbnYJAPwHBAUOZmFjdG9yeUFjY291bnQCEm5vdGlmeVN0YXR1c1VwZGF0ZQkAzAgCAAIFA25pbAUDbmlsAwkAAAIFCW5vdGlmeUludgUJbm90aWZ5SW52BQNyZXMJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4FA3JlcwkAAgECPnBvb2wgaXMgc3RvcHBlZDogbW9zdCBwcm9iYWJseSBpdCByZWFjaGVkIHRoZSB0YXJnZXQgbGlxdWlkaXR5AWkBDHN3YXBSZWFkT25seQMHYXNzZXRJbghhc3NldE91dAhBbW91bnRJbgQHQXNzZXRJbgkBDWdldEFzc2V0Qnl0ZXMBBQdhc3NldEluBAhBc3NldE91dAkBDWdldEFzc2V0Qnl0ZXMBBQhhc3NldE91dAQHc2NhbGVJbgkAaQIFBlNjYWxlOAkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIHc3RhdGljXwUHYXNzZXRJbgIGX3NjYWxlBAhzY2FsZU91dAkAaQIFBlNjYWxlOAkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIHc3RhdGljXwUIYXNzZXRPdXQCBl9zY2FsZQQOZmVlQXNzZXRPdXRTdHIJAQx0cnlHZXRTdHJpbmcBAg9zdGF0aWNfZmVlVG9rZW4EC2ZlZUFzc2V0T3V0AwkAAAIFDmZlZUFzc2V0T3V0U3RyAgAFC3VzZG5Bc3NldElkCQENZ2V0QXNzZXRCeXRlcwEFDmZlZUFzc2V0T3V0U3RyBA5Bc3NldEluQmFsYW5jZQkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIHZ2xvYmFsXwkBDmdldEFzc2V0U3RyaW5nAQUHQXNzZXRJbgIIX2JhbGFuY2UED0Fzc2V0T3V0QmFsYW5jZQkBDXRyeUdldEludGVnZXIBCQCsAgIJAKwCAgIHZ2xvYmFsXwUIYXNzZXRPdXQCCF9iYWxhbmNlBBRBc3NldEluQmFsYW5jZVNjYWxlZAkAaAIFDkFzc2V0SW5CYWxhbmNlBQdzY2FsZUluBBVBc3NldE91dEJhbGFuY2VTY2FsZWQJAGgCBQ9Bc3NldE91dEJhbGFuY2UFCHNjYWxlT3V0BAtmZWVBbW91bnRJbgkAawMFCEFtb3VudEluBQNGZWUFCEZlZVNjYWxlBA1jbGVhbkFtb3VudEluCQBlAgUIQW1vdW50SW4FC2ZlZUFtb3VudEluBBNjbGVhbkFtb3VudEluU2NhbGVkCQBoAgUNY2xlYW5BbW91bnRJbgUHc2NhbGVJbgQKQW1vdW50T3V0MQkBEmNhbGN1bGF0ZU91dEFtb3VudAUFE2NsZWFuQW1vdW50SW5TY2FsZWQFB0Fzc2V0SW4FCEFzc2V0T3V0BRRBc3NldEluQmFsYW5jZVNjYWxlZAUVQXNzZXRPdXRCYWxhbmNlU2NhbGVkBAlBbW91bnRPdXQJAGsDBQpBbW91bnRPdXQxAAEFCHNjYWxlT3V0BBBBc3NldE91dEJhbGFuY2UyCQBlAgUPQXNzZXRPdXRCYWxhbmNlBQlBbW91bnRPdXQED0Fzc2V0SW5CYWxhbmNlMgkAZAIFDkFzc2V0SW5CYWxhbmNlBQ1jbGVhbkFtb3VudEluBBJmZWVBc3NldE91dEJhbGFuY2UDCQAAAgULZmVlQXNzZXRPdXQFB0Fzc2V0SW4FD0Fzc2V0SW5CYWxhbmNlMgMJAAACBQtmZWVBc3NldE91dAUIQXNzZXRPdXQFEEFzc2V0T3V0QmFsYW5jZTIJAQ10cnlHZXRJbnRlZ2VyAQkArAICCQCsAgICB2dsb2JhbF8JAQ5nZXRBc3NldFN0cmluZwEFC2ZlZUFzc2V0T3V0AghfYmFsYW5jZQQMZmVlQW1vdW50T3V0CQESY2FsY3VsYXRlT3V0QW1vdW50BQULZmVlQW1vdW50SW4FB0Fzc2V0SW4FC2ZlZUFzc2V0T3V0BQ5Bc3NldEluQmFsYW5jZQUSZmVlQXNzZXRPdXRCYWxhbmNlAwkAAAIFCEFzc2V0T3V0BQdBc3NldEluCQACAQIYdGhpcyBzd2FwIGlzIG5vdCBhbGxvd2VkAwkAZgIAAAkAZQIFD0Fzc2V0T3V0QmFsYW5jZQUJQW1vdW50T3V0CQACAQIbY29udHJhY3QgaXMgb3V0IG9mIHJlc2VydmVzAwkBCmlzU2h1dGRvd24ACQACAQITY29udHJhY3QgaXMgb24gc3RvcAkAlAoCBQNuaWwFCUFtb3VudE91dAFpARF0cmFuc2Zlck93bmVyc2hpcAEPbmV3T3duZXJBZGRyZXNzAwkBAiE9AgkApQgBCAUBaQZjYWxsZXIJAQx0cnlHZXRTdHJpbmcBAhBzdGF0aWNfcG9vbE93bmVyCQACAQIndGhpcyBjYWxsIGF2YWlsYWJsZSBvbmx5IGZvciBwb29sIG93bmVyCQDMCAIJAQtTdHJpbmdFbnRyeQICEHN0YXRpY19wb29sT3duZXIFD25ld093bmVyQWRkcmVzcwUDbmlsAGGkg4U=",
    "height": 3349522,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7MT5SuCVSV77LwmoEV9BgQLhJnd5wiVNRke6KNfqTAPt
Next: 5KLLaKwpTwm9CVFVosAhkaWi9YGR8iqW3swFL9spnSpX

Diff: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 - let VERSION = "PM-0.4.0"
4 + let VERSION = "PM-0.8.0"
5 5  
6 6  let configStr = valueOrElse(getString(this, "configAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")
7 7  
22 22  let PoolTokenDecimals = 8
23 23  
24 24  let PoolTokenScale = pow(10, 0, PoolTokenDecimals, 0, 0, HALFUP)
25 - 
26 - let InitalWavesLiquidity = Scale8
27 25  
28 26  let MIN_STEPS_AMOUNT = valueOrElse(getInteger(CONFIG_ADDRESS, "min_steps_amount"), 1)
29 27  
90 88  }
91 89  
92 90  
93 - func addAssetBytesToList (accum,item) = if ((item != ""))
94 -     then (accum ++ [getAssetBytes(item)])
95 -     else accum
91 + func addAssetBytesToList (accum,item) = (accum ++ [getAssetBytes(item)])
96 92  
97 93  
98 94  func addAssetWeightToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_weight"))])
146 142  
147 143  let coldMasterAddress = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "coldMasterAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")))
148 144  
149 - let factoryAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3MvowVxVnqTUZZyRL6i3vkHNGabjmFxkHBr")))
145 + let calculatorAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr")))
146 + 
147 + let factoryAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3MsgzbtRg8NEkbTcHBywtwTdCe9BRxMQo5T")))
150 148  
151 149  let masterPubKey = fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "masterPubKey"), "4z8CKSYQBKkzx7PBb5uBP1YPa6YAHRNTApW1sQVHT5eU"))
152 150  
216 214  
217 215  let earnedAssets = assetIds
218 216  
217 + func getPoolStatus () = {
218 +     let poolId = valueOrElse(getInteger(factoryAccount, ("pool__" + toString(this))), 0)
219 +     let status = valueOrElse(getInteger(factoryAccount, ("pool__status__" + toString(poolId))), 2)
220 +     status
221 +     }
222 + 
223 + 
224 + func getSetting (key) = getIntegerValue(factoryAccount, ("setup__" + key))
225 + 
226 + 
227 + let InitalWavesLiquidity = getSetting("virtualLiquidity")
228 + 
229 + let CreationFee = getSetting("creationFee")
230 + 
231 + let CurveTarget = getSetting("curveTarget")
232 + 
219 233  func isShutdown () = {
220 234      let shutdownAddress = addressFromString(shutdownAddressStr)
221 235      if ((shutdownAddress == unit))
227 241                  false
228 242          }
229 243      }
230 - 
231 - 
232 - func getCurrentTokenBalance (tokenNum) = {
233 -     let tokenIdStr = getAssetString(assetIds[tokenNum])
234 -     tryGetInteger((("global_" + tokenIdStr) + "_balance"))
235 -     }
236 - 
237 - 
238 - func getKMult () = match getInteger("static_KMult") {
239 -     case x: Int => 
240 -         x
241 -     case _ => 
242 -         Scale16
243 - }
244 - 
245 - 
246 - func getVirtualPoolTokenAmount () = fraction(tryGetInteger("global_poolToken_amount"), getKMult(), Scale16)
247 244  
248 245  
249 246  func getPriceFromOracle (assetIdStr) = match getInteger(oracleAddress, (assetIdStr + "_twap5B")) {
264 261      let valInFeeAsset = fraction(amount, (feeAssetBalance / feeAssetWeight), (aBalance / assetWeight))
265 262      let feeAssetPrice = getPriceFromOracle(feeAssetStr)
266 263      fraction(valInFeeAsset, feeAssetPrice, feeAssetScale)
267 -     }
268 - 
269 - 
270 - func handlePoolTokensRedeem (PRedeemed,userAddress) = {
271 -     func handleTokenRedeem (accum,tokenId) =     {
272 -         let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
273 -         let PSupply = getVirtualPoolTokenAmount()
274 -         let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
275 -         let psuppl = fraction((toBigInt((PSupply - PRedeemed)) * toBigInt(Scale8)), toBigInt(Scale8), toBigInt(PSupply), DOWN)
276 -         let amount = toInt(fraction((toBigInt(Scale16) - psuppl), toBigInt(Bk), toBigInt(Scale16), CEILING))
277 -         (accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount)), ScriptTransfer(userAddress, amount, tokenId)])
278 -         }
279 - 
280 -     let $l = assetIds
281 -     let $s = size($l)
282 -     let $acc0 = nil
283 -     func $f4_1 ($a,$i) =     if (($i >= $s))
284 -         then $a
285 -         else handleTokenRedeem($a, $l[$i])
286 - 
287 -     func $f4_2 ($a,$i) =     if (($i >= $s))
288 -         then $a
289 -         else throw("List size exceeds 10")
290 - 
291 -     $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
292 264      }
293 265  
294 266  
351 323      }
352 324  
353 325  
354 - func indexStakeResult (addressStr,amount) = {
355 -     let li = claimResult(addressFromStringValue(addressStr))._1
356 -     (li ++ [IntegerEntry((addressStr + "_indexStaked"), (tryGetInteger((addressStr + "_indexStaked")) + amount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") + amount))])
357 -     }
358 - 
359 - 
360 326  func sum (accum,n) = (accum + parseIntValue(n))
361 327  
362 328  
365 331      else false)
366 332      then next
367 333      else accum
368 - 
369 - 
370 - func getTmpRebalanceIds (newAssetIdsLi) = {
371 -     let currentAssetIdsLi = split(tryGetString("static_tokenIds"), ",")
372 -     let result = newAssetIdsLi
373 -     func f (accum,assetId) =     if ((indexOf(result, assetId) == unit))
374 -         then (accum ++ [assetId])
375 -         else accum
376 - 
377 -     let $l = currentAssetIdsLi
378 -     let $s = size($l)
379 -     let $acc0 = result
380 -     func $f4_1 ($a,$i) =     if (($i >= $s))
381 -         then $a
382 -         else f($a, $l[$i])
383 - 
384 -     func $f4_2 ($a,$i) =     if (($i >= $s))
385 -         then $a
386 -         else throw("List size exceeds 10")
387 - 
388 -     $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
389 -     }
390 - 
391 - 
392 - func checkTokensChange (newAssetIdsLi) = {
393 -     let currentAssetIdsLi = split(tryGetString("static_tokenIds"), ",")
394 -     func rem (accum,assetId) =     if ((indexOf(newAssetIdsLi, assetId) == unit))
395 -         then (accum + 1)
396 -         else accum
397 - 
398 -     func add (accum,assetId) =     if ((indexOf(currentAssetIdsLi, assetId) == unit))
399 -         then (accum + 1)
400 -         else accum
401 - 
402 -     let removed = {
403 -         let $l = currentAssetIdsLi
404 -         let $s = size($l)
405 -         let $acc0 = 0
406 -         func $f4_1 ($a,$i) =         if (($i >= $s))
407 -             then $a
408 -             else rem($a, $l[$i])
409 - 
410 -         func $f4_2 ($a,$i) =         if (($i >= $s))
411 -             then $a
412 -             else throw("List size exceeds 10")
413 - 
414 -         $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
415 -         }
416 -     let added = {
417 -         let $l = newAssetIdsLi
418 -         let $s = size($l)
419 -         let $acc0 = 0
420 -         func $f5_1 ($a,$i) =         if (($i >= $s))
421 -             then $a
422 -             else add($a, $l[$i])
423 - 
424 -         func $f5_2 ($a,$i) =         if (($i >= $s))
425 -             then $a
426 -             else throw("List size exceeds 10")
427 - 
428 -         $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
429 -         }
430 -     (removed + added)
431 -     }
432 - 
433 - 
434 - func validatePayments (assetsList,payments) = {
435 -     func getPaymentAssets (accum,next) =     if ((0 >= next.amount))
436 -         then throw(((("Too low payment amount for " + getAssetString(next.assetId)) + ": ") + toString(next.amount)))
437 -         else (accum ++ [getAssetString(next.assetId)])
438 - 
439 -     let paymentList = {
440 -         let $l = payments
441 -         let $s = size($l)
442 -         let $acc0 = nil
443 -         func $f4_1 ($a,$i) =         if (($i >= $s))
444 -             then $a
445 -             else getPaymentAssets($a, $l[$i])
446 - 
447 -         func $f4_2 ($a,$i) =         if (($i >= $s))
448 -             then $a
449 -             else throw("List size exceeds 10")
450 - 
451 -         $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
452 -         }
453 -     func f1 (accum,next) =     if ((indexOf(assetsList, next) == unit))
454 -         then throw(((next + " asset is present in payments, but is not in new assets: ") + makeString(assetsList, ",")))
455 -         else (accum + 1)
456 - 
457 -     func f2 (accum,next) =     if ((indexOf(paymentList, next) == unit))
458 -         then throw(((next + " asset is present in new assets, but is not in payments: ") + makeString(paymentList, ",")))
459 -         else (accum + 1)
460 - 
461 -     let a1 = {
462 -         let $l = paymentList
463 -         let $s = size($l)
464 -         let $acc0 = 0
465 -         func $f5_1 ($a,$i) =         if (($i >= $s))
466 -             then $a
467 -             else f1($a, $l[$i])
468 - 
469 -         func $f5_2 ($a,$i) =         if (($i >= $s))
470 -             then $a
471 -             else throw("List size exceeds 10")
472 - 
473 -         $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
474 -         }
475 -     let a2 = {
476 -         let $l = assetsList
477 -         let $s = size($l)
478 -         let $acc0 = 0
479 -         func $f6_1 ($a,$i) =         if (($i >= $s))
480 -             then $a
481 -             else f2($a, $l[$i])
482 - 
483 -         func $f6_2 ($a,$i) =         if (($i >= $s))
484 -             then $a
485 -             else throw("List size exceeds 10")
486 - 
487 -         $f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
488 -         }
489 -     (a1 + a2)
490 -     }
491 334  
492 335  
493 336  func swapInternal (assetIn,assetOut,amountIn,minimum,receipientAddressStr) = {
546 389                          $Tuple2([assetOutChange, assetInChange, feeAssetOutChange, ScriptTransfer(addressFromStringValue(receipientAddressStr), AmountOut, AssetOut), ScriptTransfer(addressFromStringValue(tryGetString("static_poolOwner")), creatorFee, feeAssetOut), IntegerEntry("global_earnedByOwner", (tryGetInteger("global_earnedByOwner") + creatorFee)), IntegerEntry("global_volume_usd", (tryGetInteger("global_volume_usd") + volumeUsdUpdate)), ScriptTransfer(feesAddress, protocolFee, feeAssetOut)], AmountOut)
547 390                          }
548 391      }
549 - 
550 - 
551 - @Callable(i)
552 - func deInit () = if (isShutdown())
553 -     then throw("contract is on stop")
554 -     else if ((i.caller != this))
555 -         then throw("admin only")
556 -         else [IntegerEntry("global_wasInited", 0)]
557 - 
558 392  
559 393  
560 394  @Callable(i)
640 474          then "WAVES"
641 475          else throw("you have to attach some WAVES")
642 476      if ((this != this))
643 -         then throw("admin only")
477 +         then throw("self-invoke only")
644 478          else if ((feeAssetStr == ""))
645 479              then throw("pool must have one of the supported fee assets in the composition")
646 480              else if ((size(poolDomain) > 13))
715 549                          then @
716 550                          else throw(($getType(@) + " couldn't be cast to String"))
717 551                      }
718 -                 swapInternal("WAVES", memeIdStr, (i.payments[0].amount - InitalWavesLiquidity), 0, toString(i.caller))._1
552 +                 swapInternal("WAVES", memeIdStr, (i.payments[0].amount - CreationFee), 0, toString(i.caller))._1
719 553                  }
720 554              else throw("Strict value is not equal to itself.")
721 555          }
722 - 
723 - 
724 - 
725 - @Callable(i)
726 - func redeemIndex (sendToOrigin) = {
727 -     let pmt = i.payments[0]
728 -     if ((pmt.assetId != tryGetBinary("global_poolToken_id")))
729 -         then throw("please attach pool share token")
730 -         else if (isShutdown())
731 -             then throw("contract is on stop")
732 -             else {
733 -                 let PRedeemedWithMult = pmt.amount
734 -                 let PRedeemedWithNoMult = fraction(PRedeemedWithMult, getKMult(), Scale16, DOWN)
735 -                 let result = handlePoolTokensRedeem(PRedeemedWithNoMult, if (sendToOrigin)
736 -                     then i.originCaller
737 -                     else i.caller)
738 -                 (result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemedWithMult), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemedWithMult))])
739 -                 }
740 -     }
741 - 
742 - 
743 - 
744 - @Callable(i)
745 - func stakeIndex () = {
746 -     let addressStr = toString(i.originCaller)
747 -     let pmt = i.payments[0]
748 -     if ((value(pmt.assetId) != tryGetBinary("global_poolToken_id")))
749 -         then throw("wrong asset attached")
750 -         else indexStakeResult(addressStr, pmt.amount)
751 -     }
752 - 
753 - 
754 - 
755 - @Callable(i)
756 - func stakeIndexFor (addressStr) = {
757 -     let pmt = i.payments[0]
758 -     if ((value(pmt.assetId) != tryGetBinary("global_poolToken_id")))
759 -         then throw("wrong asset attached")
760 -         else indexStakeResult(addressStr, pmt.amount)
761 -     }
762 - 
763 - 
764 - 
765 - @Callable(i)
766 - func unstakeIndex (indexAmount) = {
767 -     let addressStr = if ((indexOf(layer2Addresses, toString(i.caller)) != unit))
768 -         then toString(i.originCaller)
769 -         else toString(i.caller)
770 -     let indexAvailable = tryGetInteger((addressStr + "_indexStaked"))
771 -     if (isShutdown())
772 -         then throw("contract is on stop")
773 -         else if ((indexAmount > indexAvailable))
774 -             then throw("you don't have index tokens available")
775 -             else if (isShutdown())
776 -                 then throw("contract is on stop")
777 -                 else (claimResult(addressFromStringValue(addressStr))._1 ++ [IntegerEntry((addressStr + "_indexStaked"), (indexAvailable - indexAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - indexAmount)), ScriptTransfer(i.caller, indexAmount, getBinaryValue("global_poolToken_id"))])
778 -     }
779 556  
780 557  
781 558  
793 570  
794 571  @Callable(i)
795 572  func swap (assetOut,minimum) = {
796 -     let pmt = if ((size(i.payments) == 1))
797 -         then value(i.payments[0])
798 -         else throw("please attach exactly one payment")
799 -     let AmountIn = value(i.payments[0].amount)
800 -     let AssetIn = i.payments[0].assetId
801 -     swapInternal(getAssetString(AssetIn), assetOut, AmountIn, minimum, toString(i.caller))
573 +     let status = getPoolStatus()
574 +     if ((2 > status))
575 +         then {
576 +             let pmt = if ((size(i.payments) == 1))
577 +                 then value(i.payments[0])
578 +                 else throw("please attach exactly one payment")
579 +             let AmountIn = value(i.payments[0].amount)
580 +             let AssetIn = i.payments[0].assetId
581 +             let res = swapInternal(getAssetString(AssetIn), assetOut, AmountIn, minimum, toString(i.caller))
582 +             if ((getIntegerValue("global_WAVES_balance") > CurveTarget))
583 +                 then {
584 +                     let notifyInv = invoke(factoryAccount, "notifyStatusUpdate", [2], nil)
585 +                     if ((notifyInv == notifyInv))
586 +                         then res
587 +                         else throw("Strict value is not equal to itself.")
588 +                     }
589 +                 else res
590 +             }
591 +         else throw("pool is stopped: most probably it reached the target liquidity")
802 592      }
803 593  
804 594  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 - let VERSION = "PM-0.4.0"
4 + let VERSION = "PM-0.8.0"
5 5  
6 6  let configStr = valueOrElse(getString(this, "configAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")
7 7  
8 8  let CONFIG_ADDRESS = if ((configStr == ""))
9 9      then this
10 10      else Address(fromBase58String(configStr))
11 11  
12 12  let AssetsWeightsDecimals = 4
13 13  
14 14  let Scale = 10000
15 15  
16 16  let Scale8 = 100000000
17 17  
18 18  let Scale16 = 10000000000000000
19 19  
20 20  let FeeScale = 10000
21 21  
22 22  let PoolTokenDecimals = 8
23 23  
24 24  let PoolTokenScale = pow(10, 0, PoolTokenDecimals, 0, 0, HALFUP)
25 - 
26 - let InitalWavesLiquidity = Scale8
27 25  
28 26  let MIN_STEPS_AMOUNT = valueOrElse(getInteger(CONFIG_ADDRESS, "min_steps_amount"), 1)
29 27  
30 28  let MAX_STEPS_AMOUNT = valueOrElse(getInteger(CONFIG_ADDRESS, "max_steps_amount"), 500)
31 29  
32 30  let MIN_STEPS_INTERVAL = valueOrElse(getInteger(CONFIG_ADDRESS, "min_steps_interval"), 1)
33 31  
34 32  let MAX_STEPS_INTERVAL = valueOrElse(getInteger(CONFIG_ADDRESS, "max_steps_interval"), 10000)
35 33  
36 34  let MIN_WEIGHT = valueOrElse(getInteger(CONFIG_ADDRESS, "min_weight"), 100)
37 35  
38 36  let MAX_WEIGHT = valueOrElse(getInteger(CONFIG_ADDRESS, "max_weight"), 9900)
39 37  
40 38  func tryGetInteger (key) = match getInteger(this, key) {
41 39      case b: Int => 
42 40          b
43 41      case _ => 
44 42          0
45 43  }
46 44  
47 45  
48 46  func tryGetBinary (key) = match getBinary(this, key) {
49 47      case b: ByteVector => 
50 48          b
51 49      case _ => 
52 50          base58''
53 51  }
54 52  
55 53  
56 54  func tryGetString (key) = match getString(this, key) {
57 55      case b: String => 
58 56          b
59 57      case _ => 
60 58          ""
61 59  }
62 60  
63 61  
64 62  func tryGetStringOrThrow (key) = match getString(this, key) {
65 63      case b: String => 
66 64          b
67 65      case _ => 
68 66          throw(("no such key in data storage: " + key))
69 67  }
70 68  
71 69  
72 70  func getAssetString (assetId) = match assetId {
73 71      case b: ByteVector => 
74 72          toBase58String(b)
75 73      case _ => 
76 74          "WAVES"
77 75  }
78 76  
79 77  
80 78  func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
81 79      then unit
82 80      else fromBase58String(assetIdStr)
83 81  
84 82  
85 83  func getTokenBalance (assetId) = match assetId {
86 84      case t: ByteVector => 
87 85          assetBalance(this, t)
88 86      case _ => 
89 87          wavesBalance(this).available
90 88  }
91 89  
92 90  
93 - func addAssetBytesToList (accum,item) = if ((item != ""))
94 -     then (accum ++ [getAssetBytes(item)])
95 -     else accum
91 + func addAssetBytesToList (accum,item) = (accum ++ [getAssetBytes(item)])
96 92  
97 93  
98 94  func addAssetWeightToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_weight"))])
99 95  
100 96  
101 97  func addAssetWeightToStrList (accum,item) = (accum ++ [toString(tryGetInteger((("static_" + item) + "_weight")))])
102 98  
103 99  
104 100  func addAssetDecimalsToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_decimals"))])
105 101  
106 102  
107 103  func addAssetScaleToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_scale"))])
108 104  
109 105  
110 106  func addIntToList (accum,item) = (accum ++ [parseIntValue(item)])
111 107  
112 108  
113 109  let usdnAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "usdnAssetIdStr"), "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p")
114 110  
115 111  let puzzleAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "puzzleAssetIdStr"), "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS")
116 112  
117 113  let usdtAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "usdtAssetIdStr"), "34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ")
118 114  
119 115  let usdtPptAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "usdtPptAssetIdStr"), "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi")
120 116  
121 117  let romeAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "romeAssetIdStr"), "AP4Cb5xLYGH6ZigHreCZHoXpQTWDkPsG2BHqfDUx6taJ")
122 118  
123 119  let wavesAssetIdStr = "WAVES"
124 120  
125 121  let usdnAssetId = fromBase58String(usdnAssetIdStr)
126 122  
127 123  let puzzleAssetId = fromBase58String(puzzleAssetIdStr)
128 124  
129 125  let usdtAssetId = fromBase58String(usdtAssetIdStr)
130 126  
131 127  let usdtPptAssetId = fromBase58String(usdtPptAssetIdStr)
132 128  
133 129  let romeAssetId = fromBase58String(romeAssetIdStr)
134 130  
135 131  let wavesAssetId = unit
136 132  
137 133  let supportedFeeAssetsStr = [usdnAssetIdStr, puzzleAssetIdStr, usdtAssetIdStr, usdtPptAssetIdStr, wavesAssetIdStr, romeAssetIdStr]
138 134  
139 135  let oracleAddress = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "oracleAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")))
140 136  
141 137  let feesAddress = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "feesAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")))
142 138  
143 139  let shutdownAddressStr = valueOrElse(getString(CONFIG_ADDRESS, "shutdownAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")
144 140  
145 141  let layer2Addresses = valueOrElse(getString(CONFIG_ADDRESS, "layer2Addresses"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")
146 142  
147 143  let coldMasterAddress = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "coldMasterAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")))
148 144  
149 - let factoryAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3MvowVxVnqTUZZyRL6i3vkHNGabjmFxkHBr")))
145 + let calculatorAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr")))
146 + 
147 + let factoryAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3MsgzbtRg8NEkbTcHBywtwTdCe9BRxMQo5T")))
150 148  
151 149  let masterPubKey = fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "masterPubKey"), "4z8CKSYQBKkzx7PBb5uBP1YPa6YAHRNTApW1sQVHT5eU"))
152 150  
153 151  let T = tryGetInteger("static_tokensAmount")
154 152  
155 153  let assetIds = {
156 154      let $l = split(tryGetString("static_tokenIds"), ",")
157 155      let $s = size($l)
158 156      let $acc0 = nil
159 157      func $f0_1 ($a,$i) =     if (($i >= $s))
160 158          then $a
161 159          else addAssetBytesToList($a, $l[$i])
162 160  
163 161      func $f0_2 ($a,$i) =     if (($i >= $s))
164 162          then $a
165 163          else throw("List size exceeds 10")
166 164  
167 165      $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)
168 166      }
169 167  
170 168  let AssetsWeights = {
171 169      let $l = assetIds
172 170      let $s = size($l)
173 171      let $acc0 = nil
174 172      func $f1_1 ($a,$i) =     if (($i >= $s))
175 173          then $a
176 174          else addAssetWeightToList($a, $l[$i])
177 175  
178 176      func $f1_2 ($a,$i) =     if (($i >= $s))
179 177          then $a
180 178          else throw("List size exceeds 10")
181 179  
182 180      $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
183 181      }
184 182  
185 183  let Decimals = {
186 184      let $l = assetIds
187 185      let $s = size($l)
188 186      let $acc0 = nil
189 187      func $f2_1 ($a,$i) =     if (($i >= $s))
190 188          then $a
191 189          else addAssetDecimalsToList($a, $l[$i])
192 190  
193 191      func $f2_2 ($a,$i) =     if (($i >= $s))
194 192          then $a
195 193          else throw("List size exceeds 10")
196 194  
197 195      $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
198 196      }
199 197  
200 198  let Scales = {
201 199      let $l = assetIds
202 200      let $s = size($l)
203 201      let $acc0 = nil
204 202      func $f3_1 ($a,$i) =     if (($i >= $s))
205 203          then $a
206 204          else addAssetScaleToList($a, $l[$i])
207 205  
208 206      func $f3_2 ($a,$i) =     if (($i >= $s))
209 207          then $a
210 208          else throw("List size exceeds 10")
211 209  
212 210      $f3_2($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
213 211      }
214 212  
215 213  let Fee = tryGetInteger("static_fee")
216 214  
217 215  let earnedAssets = assetIds
218 216  
217 + func getPoolStatus () = {
218 +     let poolId = valueOrElse(getInteger(factoryAccount, ("pool__" + toString(this))), 0)
219 +     let status = valueOrElse(getInteger(factoryAccount, ("pool__status__" + toString(poolId))), 2)
220 +     status
221 +     }
222 + 
223 + 
224 + func getSetting (key) = getIntegerValue(factoryAccount, ("setup__" + key))
225 + 
226 + 
227 + let InitalWavesLiquidity = getSetting("virtualLiquidity")
228 + 
229 + let CreationFee = getSetting("creationFee")
230 + 
231 + let CurveTarget = getSetting("curveTarget")
232 + 
219 233  func isShutdown () = {
220 234      let shutdownAddress = addressFromString(shutdownAddressStr)
221 235      if ((shutdownAddress == unit))
222 236          then false
223 237          else         match getBoolean(value(shutdownAddress), "is_shutdown") {
224 238              case x: Boolean => 
225 239                  x
226 240              case _ => 
227 241                  false
228 242          }
229 243      }
230 - 
231 - 
232 - func getCurrentTokenBalance (tokenNum) = {
233 -     let tokenIdStr = getAssetString(assetIds[tokenNum])
234 -     tryGetInteger((("global_" + tokenIdStr) + "_balance"))
235 -     }
236 - 
237 - 
238 - func getKMult () = match getInteger("static_KMult") {
239 -     case x: Int => 
240 -         x
241 -     case _ => 
242 -         Scale16
243 - }
244 - 
245 - 
246 - func getVirtualPoolTokenAmount () = fraction(tryGetInteger("global_poolToken_amount"), getKMult(), Scale16)
247 244  
248 245  
249 246  func getPriceFromOracle (assetIdStr) = match getInteger(oracleAddress, (assetIdStr + "_twap5B")) {
250 247      case x: Int => 
251 248          x
252 249      case _ => 
253 250          1000000
254 251  }
255 252  
256 253  
257 254  func calculateUsdValue (assetId,amount,aBalance) = {
258 255      let assetWeight = tryGetInteger((("static_" + getAssetString(assetId)) + "_weight"))
259 256      let feeAssetStr = tryGetString("static_feeToken")
260 257      let feeAssetScale = getIntegerValue(this, (("static_" + feeAssetStr) + "_scale"))
261 258      let feeAssetNum = value(indexOf(assetIds, getAssetBytes(feeAssetStr)))
262 259      let feeAssetWeight = AssetsWeights[feeAssetNum]
263 260      let feeAssetBalance = tryGetInteger((("global_" + feeAssetStr) + "_balance"))
264 261      let valInFeeAsset = fraction(amount, (feeAssetBalance / feeAssetWeight), (aBalance / assetWeight))
265 262      let feeAssetPrice = getPriceFromOracle(feeAssetStr)
266 263      fraction(valInFeeAsset, feeAssetPrice, feeAssetScale)
267 -     }
268 - 
269 - 
270 - func handlePoolTokensRedeem (PRedeemed,userAddress) = {
271 -     func handleTokenRedeem (accum,tokenId) =     {
272 -         let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
273 -         let PSupply = getVirtualPoolTokenAmount()
274 -         let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
275 -         let psuppl = fraction((toBigInt((PSupply - PRedeemed)) * toBigInt(Scale8)), toBigInt(Scale8), toBigInt(PSupply), DOWN)
276 -         let amount = toInt(fraction((toBigInt(Scale16) - psuppl), toBigInt(Bk), toBigInt(Scale16), CEILING))
277 -         (accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount)), ScriptTransfer(userAddress, amount, tokenId)])
278 -         }
279 - 
280 -     let $l = assetIds
281 -     let $s = size($l)
282 -     let $acc0 = nil
283 -     func $f4_1 ($a,$i) =     if (($i >= $s))
284 -         then $a
285 -         else handleTokenRedeem($a, $l[$i])
286 - 
287 -     func $f4_2 ($a,$i) =     if (($i >= $s))
288 -         then $a
289 -         else throw("List size exceeds 10")
290 - 
291 -     $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
292 264      }
293 265  
294 266  
295 267  func calculateOutAmount (AmountIn,assetIn,assetOut,BalanceIn,BalanceOut) = {
296 268      let IndexIn = value(indexOf(assetIds, assetIn))
297 269      let IndexOut = value(indexOf(assetIds, assetOut))
298 270      if ((IndexIn == IndexOut))
299 271          then AmountIn
300 272          else fraction(BalanceOut, ((Scale8 * Scale8) - toInt(pow(fraction((toBigInt(BalanceIn) * toBigInt(10000)), toBigInt((Scale8 * Scale8)), (toBigInt((BalanceIn + AmountIn)) * toBigInt(10000)), HALFUP), 16, toBigInt(fraction(AssetsWeights[IndexIn], 1000000000000, AssetsWeights[IndexOut])), 12, 16, CEILING))), (Scale8 * Scale8), HALFEVEN)
301 273      }
302 274  
303 275  
304 276  func calculateCurrentAssetInterest (assetId,assetIdStr,aBalance,tokenEarningsLastCheck) = {
305 277      let totalStaked = tryGetInteger("global_indexStaked")
306 278      let tokenBalanceLastCheck = tokenEarningsLastCheck
307 279      let currentBalanceDelta = (getTokenBalance(assetId) - aBalance)
308 280      let currentTokenEarnings = if ((currentBalanceDelta > tokenBalanceLastCheck))
309 281          then currentBalanceDelta
310 282          else tokenBalanceLastCheck
311 283      let newEarnings = (currentTokenEarnings - tokenBalanceLastCheck)
312 284      let newInterest = if ((totalStaked == 0))
313 285          then 0
314 286          else fraction(newEarnings, Scale8, totalStaked)
315 287      let lastCheckInterest = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_interest"))
316 288      (lastCheckInterest + newInterest)
317 289      }
318 290  
319 291  
320 292  func claimResult (address) = {
321 293      let addressStr = toString(address)
322 294      let puzzleAmount = tryGetInteger((addressStr + "_indexStaked"))
323 295      func handler (accum,assetId) =     {
324 296          let assetIdStr = getAssetString(assetId)
325 297          let aBalance = tryGetInteger((("global_" + getAssetString(assetId)) + "_balance"))
326 298          let tokenEarningsLastCheck = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_earnings"))
327 299          let currentTokenInterest = calculateCurrentAssetInterest(assetId, assetIdStr, aBalance, tokenEarningsLastCheck)
328 300          let currentTokenEarnings = max([tokenEarningsLastCheck, (getTokenBalance(assetId) - aBalance)])
329 301          let rewardAmount = fraction(puzzleAmount, (currentTokenInterest - tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))), Scale8)
330 302          let transfer = if ((rewardAmount == 0))
331 303              then nil
332 304              else [ScriptTransfer(address, rewardAmount, assetId)]
333 305          $Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdValue(assetId, rewardAmount, aBalance)))
334 306          }
335 307  
336 308      let accum = {
337 309          let $l = earnedAssets
338 310          let $s = size($l)
339 311          let $acc0 = $Tuple2(nil, 0)
340 312          func $f4_1 ($a,$i) =         if (($i >= $s))
341 313              then $a
342 314              else handler($a, $l[$i])
343 315  
344 316          func $f4_2 ($a,$i) =         if (($i >= $s))
345 317              then $a
346 318              else throw("List size exceeds 10")
347 319  
348 320          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
349 321          }
350 322      $Tuple2((accum._1 ++ [IntegerEntry((addressStr + "_claimedRewardUSD"), (tryGetInteger((addressStr + "_claimedRewardUSD")) + accum._2)), IntegerEntry((addressStr + "_lastClaim"), lastBlock.timestamp)]), accum._2)
351 323      }
352 324  
353 325  
354 - func indexStakeResult (addressStr,amount) = {
355 -     let li = claimResult(addressFromStringValue(addressStr))._1
356 -     (li ++ [IntegerEntry((addressStr + "_indexStaked"), (tryGetInteger((addressStr + "_indexStaked")) + amount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") + amount))])
357 -     }
358 - 
359 - 
360 326  func sum (accum,n) = (accum + parseIntValue(n))
361 327  
362 328  
363 329  func checkFeeAsset (accum,next) = if (if ((indexOf(supportedFeeAssetsStr, next) != unit))
364 330      then (accum == "")
365 331      else false)
366 332      then next
367 333      else accum
368 - 
369 - 
370 - func getTmpRebalanceIds (newAssetIdsLi) = {
371 -     let currentAssetIdsLi = split(tryGetString("static_tokenIds"), ",")
372 -     let result = newAssetIdsLi
373 -     func f (accum,assetId) =     if ((indexOf(result, assetId) == unit))
374 -         then (accum ++ [assetId])
375 -         else accum
376 - 
377 -     let $l = currentAssetIdsLi
378 -     let $s = size($l)
379 -     let $acc0 = result
380 -     func $f4_1 ($a,$i) =     if (($i >= $s))
381 -         then $a
382 -         else f($a, $l[$i])
383 - 
384 -     func $f4_2 ($a,$i) =     if (($i >= $s))
385 -         then $a
386 -         else throw("List size exceeds 10")
387 - 
388 -     $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
389 -     }
390 - 
391 - 
392 - func checkTokensChange (newAssetIdsLi) = {
393 -     let currentAssetIdsLi = split(tryGetString("static_tokenIds"), ",")
394 -     func rem (accum,assetId) =     if ((indexOf(newAssetIdsLi, assetId) == unit))
395 -         then (accum + 1)
396 -         else accum
397 - 
398 -     func add (accum,assetId) =     if ((indexOf(currentAssetIdsLi, assetId) == unit))
399 -         then (accum + 1)
400 -         else accum
401 - 
402 -     let removed = {
403 -         let $l = currentAssetIdsLi
404 -         let $s = size($l)
405 -         let $acc0 = 0
406 -         func $f4_1 ($a,$i) =         if (($i >= $s))
407 -             then $a
408 -             else rem($a, $l[$i])
409 - 
410 -         func $f4_2 ($a,$i) =         if (($i >= $s))
411 -             then $a
412 -             else throw("List size exceeds 10")
413 - 
414 -         $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
415 -         }
416 -     let added = {
417 -         let $l = newAssetIdsLi
418 -         let $s = size($l)
419 -         let $acc0 = 0
420 -         func $f5_1 ($a,$i) =         if (($i >= $s))
421 -             then $a
422 -             else add($a, $l[$i])
423 - 
424 -         func $f5_2 ($a,$i) =         if (($i >= $s))
425 -             then $a
426 -             else throw("List size exceeds 10")
427 - 
428 -         $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
429 -         }
430 -     (removed + added)
431 -     }
432 - 
433 - 
434 - func validatePayments (assetsList,payments) = {
435 -     func getPaymentAssets (accum,next) =     if ((0 >= next.amount))
436 -         then throw(((("Too low payment amount for " + getAssetString(next.assetId)) + ": ") + toString(next.amount)))
437 -         else (accum ++ [getAssetString(next.assetId)])
438 - 
439 -     let paymentList = {
440 -         let $l = payments
441 -         let $s = size($l)
442 -         let $acc0 = nil
443 -         func $f4_1 ($a,$i) =         if (($i >= $s))
444 -             then $a
445 -             else getPaymentAssets($a, $l[$i])
446 - 
447 -         func $f4_2 ($a,$i) =         if (($i >= $s))
448 -             then $a
449 -             else throw("List size exceeds 10")
450 - 
451 -         $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
452 -         }
453 -     func f1 (accum,next) =     if ((indexOf(assetsList, next) == unit))
454 -         then throw(((next + " asset is present in payments, but is not in new assets: ") + makeString(assetsList, ",")))
455 -         else (accum + 1)
456 - 
457 -     func f2 (accum,next) =     if ((indexOf(paymentList, next) == unit))
458 -         then throw(((next + " asset is present in new assets, but is not in payments: ") + makeString(paymentList, ",")))
459 -         else (accum + 1)
460 - 
461 -     let a1 = {
462 -         let $l = paymentList
463 -         let $s = size($l)
464 -         let $acc0 = 0
465 -         func $f5_1 ($a,$i) =         if (($i >= $s))
466 -             then $a
467 -             else f1($a, $l[$i])
468 - 
469 -         func $f5_2 ($a,$i) =         if (($i >= $s))
470 -             then $a
471 -             else throw("List size exceeds 10")
472 - 
473 -         $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
474 -         }
475 -     let a2 = {
476 -         let $l = assetsList
477 -         let $s = size($l)
478 -         let $acc0 = 0
479 -         func $f6_1 ($a,$i) =         if (($i >= $s))
480 -             then $a
481 -             else f2($a, $l[$i])
482 - 
483 -         func $f6_2 ($a,$i) =         if (($i >= $s))
484 -             then $a
485 -             else throw("List size exceeds 10")
486 - 
487 -         $f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
488 -         }
489 -     (a1 + a2)
490 -     }
491 334  
492 335  
493 336  func swapInternal (assetIn,assetOut,amountIn,minimum,receipientAddressStr) = {
494 337      let AmountIn = amountIn
495 338      let AssetIn = getAssetBytes(assetIn)
496 339      let AssetOut = getAssetBytes(assetOut)
497 340      let scaleIn = (Scale8 / tryGetInteger((("static_" + assetIn) + "_scale")))
498 341      let scaleOut = (Scale8 / tryGetInteger((("static_" + assetOut) + "_scale")))
499 342      let feeAssetOutStr = tryGetString("static_feeToken")
500 343      let feeAssetOut = if ((feeAssetOutStr == ""))
501 344          then wavesAssetId
502 345          else getAssetBytes(feeAssetOutStr)
503 346      let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
504 347      let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
505 348      let AssetInBalanceScaled = (AssetInBalance * scaleIn)
506 349      let AssetOutBalanceScaled = (AssetOutBalance * scaleOut)
507 350      let feeAmountIn = fraction(AmountIn, Fee, FeeScale)
508 351      let cleanAmountIn = (AmountIn - feeAmountIn)
509 352      let cleanAmountInScaled = (cleanAmountIn * scaleIn)
510 353      let AmountOut1 = calculateOutAmount(cleanAmountInScaled, AssetIn, AssetOut, AssetInBalanceScaled, AssetOutBalanceScaled)
511 354      let AmountOut = fraction(AmountOut1, 1, scaleOut)
512 355      let AssetOutBalance2 = (AssetOutBalance - AmountOut)
513 356      let AssetInBalance2 = (AssetInBalance + cleanAmountIn)
514 357      let feeAssetOutBalance = if ((feeAssetOut == AssetIn))
515 358          then AssetInBalance2
516 359          else if ((feeAssetOut == AssetOut))
517 360              then AssetOutBalance2
518 361              else tryGetInteger((("global_" + getAssetString(feeAssetOut)) + "_balance"))
519 362      let feeAmountOut = calculateOutAmount(feeAmountIn, AssetIn, feeAssetOut, AssetInBalance, feeAssetOutBalance)
520 363      if ((minimum > AmountOut))
521 364          then throw("amount to recieve is lower than given one")
522 365          else if ((AssetOut == AssetIn))
523 366              then throw("this swap is not allowed")
524 367              else if ((0 > (AssetOutBalance - AmountOut)))
525 368                  then throw("contract is out of reserves")
526 369                  else if (isShutdown())
527 370                      then throw("contract is on stop")
528 371                      else {
529 372                          let creatorFee = fraction(feeAmountOut, 1, 10)
530 373                          let protocolFee = fraction(feeAmountOut, 4, 10)
531 374                          let newBalanceIn = AssetInBalance2
532 375                          let newBalanceOut = (AssetOutBalance2 - (if ((AssetOut == feeAssetOut))
533 376                              then feeAmountOut
534 377                              else 0))
535 378                          let newBalanceFeeAsset = if (if ((feeAssetOut != AssetIn))
536 379                              then (feeAssetOut != AssetOut)
537 380                              else false)
538 381                              then (feeAssetOutBalance - feeAmountOut)
539 382                              else unit
540 383                          let assetInChange = IntegerEntry((("global_" + getAssetString(AssetIn)) + "_balance"), newBalanceIn)
541 384                          let assetOutChange = IntegerEntry((("global_" + assetOut) + "_balance"), newBalanceOut)
542 385                          let feeAssetOutChange = if ((newBalanceFeeAsset != unit))
543 386                              then IntegerEntry((("global_" + getAssetString(feeAssetOut)) + "_balance"), value(newBalanceFeeAsset))
544 387                              else StringEntry("hello", "world")
545 388                          let volumeUsdUpdate = calculateUsdValue(AssetIn, AmountIn, AssetInBalance)
546 389                          $Tuple2([assetOutChange, assetInChange, feeAssetOutChange, ScriptTransfer(addressFromStringValue(receipientAddressStr), AmountOut, AssetOut), ScriptTransfer(addressFromStringValue(tryGetString("static_poolOwner")), creatorFee, feeAssetOut), IntegerEntry("global_earnedByOwner", (tryGetInteger("global_earnedByOwner") + creatorFee)), IntegerEntry("global_volume_usd", (tryGetInteger("global_volume_usd") + volumeUsdUpdate)), ScriptTransfer(feesAddress, protocolFee, feeAssetOut)], AmountOut)
547 390                          }
548 391      }
549 - 
550 - 
551 - @Callable(i)
552 - func deInit () = if (isShutdown())
553 -     then throw("contract is on stop")
554 -     else if ((i.caller != this))
555 -         then throw("admin only")
556 -         else [IntegerEntry("global_wasInited", 0)]
557 - 
558 392  
559 393  
560 394  @Callable(i)
561 395  func initPool (poolDomain,poolOwner,tokenName,tokenDesc,tokenQuantity) = {
562 396      func calculatePoolTokensAmount (payments) =     {
563 397          func handler (accum,pmt) =         {
564 398              let assetId = pmt.assetId
565 399              func handler2 (accum,n) =             if ((n == assetId))
566 400                  then value(indexOf(assetIds, n))
567 401                  else accum
568 402  
569 403              let Token = {
570 404                  let $l = assetIds
571 405                  let $s = size($l)
572 406                  let $acc0 = 1
573 407                  func $f4_1 ($a,$i) =                 if (($i >= $s))
574 408                      then $a
575 409                      else handler2($a, $l[$i])
576 410  
577 411                  func $f4_2 ($a,$i) =                 if (($i >= $s))
578 412                      then $a
579 413                      else throw("List size exceeds 10")
580 414  
581 415                  $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
582 416                  }
583 417              fraction(accum, pow(pmt.amount, Decimals[Token], AssetsWeights[Token], AssetsWeightsDecimals, 8, FLOOR), Scale8)
584 418              }
585 419  
586 420          let $l = payments
587 421          let $s = size($l)
588 422          let $acc0 = PoolTokenScale
589 423          func $f4_1 ($a,$i) =         if (($i >= $s))
590 424              then $a
591 425              else handler($a, $l[$i])
592 426  
593 427          func $f4_2 ($a,$i) =         if (($i >= $s))
594 428              then $a
595 429              else throw("List size exceeds 10")
596 430  
597 431          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
598 432          }
599 433  
600 434      let meme = Issue(tokenName, tokenDesc, tokenQuantity, 8, false)
601 435      let memeId = calculateAssetId(meme)
602 436      let memeIdStr = getAssetString(memeId)
603 437      let assetWeightsStr = "5000,5000"
604 438      let baseTokenIdStr = "WAVES"
605 439      let poolOwnerAddress = Address(fromBase58String(poolOwner))
606 440      let assetIdsStr = ("WAVES," + memeIdStr)
607 441      let assetIdsStrLi = split(assetIdsStr, ",")
608 442      let assetIdsLi = {
609 443          let $l = assetIdsStrLi
610 444          let $s = size($l)
611 445          let $acc0 = nil
612 446          func $f4_1 ($a,$i) =         if (($i >= $s))
613 447              then $a
614 448              else addAssetBytesToList($a, $l[$i])
615 449  
616 450          func $f4_2 ($a,$i) =         if (($i >= $s))
617 451              then $a
618 452              else throw("List size exceeds 10")
619 453  
620 454          $f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
621 455          }
622 456      let fee = 100
623 457      let feeAssetStr = {
624 458          let $l = assetIdsStrLi
625 459          let $s = size($l)
626 460          let $acc0 = ""
627 461          func $f5_1 ($a,$i) =         if (($i >= $s))
628 462              then $a
629 463              else checkFeeAsset($a, $l[$i])
630 464  
631 465          func $f5_2 ($a,$i) =         if (($i >= $s))
632 466              then $a
633 467              else throw("List size exceeds 10")
634 468  
635 469          $f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
636 470          }
637 471      let pmt = i.payments[0]
638 472      let amount = pmt.amount
639 473      let pmtAsset = if ((pmt.assetId == unit))
640 474          then "WAVES"
641 475          else throw("you have to attach some WAVES")
642 476      if ((this != this))
643 -         then throw("admin only")
477 +         then throw("self-invoke only")
644 478          else if ((feeAssetStr == ""))
645 479              then throw("pool must have one of the supported fee assets in the composition")
646 480              else if ((size(poolDomain) > 13))
647 481                  then throw("too large pool domain")
648 482                  else if (if ((fee > 500))
649 483                      then true
650 484                      else (0 > fee))
651 485                      then throw("fee value must be between 50 and 500 (0.5-5%)")
652 486                      else if (isShutdown())
653 487                          then throw("contract is on stop")
654 488                          else {
655 489                              let assetWeightsStrLi = split(assetWeightsStr, ",")
656 490                              let assetWeightsSum = {
657 491                                  let $l = assetWeightsStrLi
658 492                                  let $s = size($l)
659 493                                  let $acc0 = 0
660 494                                  func $f6_1 ($a,$i) =                                 if (($i >= $s))
661 495                                      then $a
662 496                                      else sum($a, $l[$i])
663 497  
664 498                                  func $f6_2 ($a,$i) =                                 if (($i >= $s))
665 499                                      then $a
666 500                                      else throw("List size exceeds 10")
667 501  
668 502                                  $f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
669 503                                  }
670 504                              func addTokenDataEntries (accum,assetNum) =                             if ((assetNum >= size(assetIdsLi)))
671 505                                  then accum
672 506                                  else {
673 507                                      let assetDecimals = 8
674 508                                      (accum ++ [IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_scale"), pow(10, 0, assetDecimals, 0, 0, DOWN)), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_decimals"), assetDecimals), IntegerEntry((("static_" + assetIdsStrLi[assetNum]) + "_weight"), value(parseInt(assetWeightsStrLi[assetNum])))])
675 509                                      }
676 510  
677 511                              let initialPoolTokens = calculatePoolTokensAmount(i.payments)
678 512                              if ((assetWeightsSum != 10000))
679 513                                  then throw("sum of token weights must be equal to 10000")
680 514                                  else if ((initialPoolTokens == 0))
681 515                                      then throw("you need a bigger tokens amount to launch the pool")
682 516                                      else {
683 517                                          let poolTokenIssue = Issue(("PZ " + poolDomain), "Puzzle Swap: pool index token", initialPoolTokens, PoolTokenDecimals, true, unit, 0)
684 518                                          let poolTokenId = calculateAssetId(poolTokenIssue)
685 519                                          $Tuple2(((({
686 520                                              let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9]
687 521                                              let $s = size($l)
688 522                                              let $acc0 = nil
689 523                                              func $f7_1 ($a,$i) =                                             if (($i >= $s))
690 524                                                  then $a
691 525                                                  else addTokenDataEntries($a, $l[$i])
692 526  
693 527                                              func $f7_2 ($a,$i) =                                             if (($i >= $s))
694 528                                                  then $a
695 529                                                  else throw("List size exceeds 10")
696 530  
697 531                                              $f7_2($f7_1($f7_1($f7_1($f7_1($f7_1($f7_1($f7_1($f7_1($f7_1($f7_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
698 532                                              } ++ [meme, StringEntry("static_tokenIds", assetIdsStr), StringEntry("static_feeToken", feeAssetStr), StringEntry("static_tokenWeights", assetWeightsStr), IntegerEntry("static_tokensAmount", size(assetIdsLi)), StringEntry("static_poolDomain", poolDomain), StringEntry("static_baseTokenId", baseTokenIdStr), StringEntry("static_poolOwner", poolOwner), IntegerEntry("static_fee", fee), IntegerEntry("static_KMult", Scale16), IntegerEntry("global_wasPreInited", 1)]) ++ [IntegerEntry("global_WAVES_balance", InitalWavesLiquidity), IntegerEntry((("global_" + memeIdStr) + "_balance"), tokenQuantity)]) ++ [poolTokenIssue, IntegerEntry("global_poolToken_amount", initialPoolTokens), IntegerEntry("global_wasInited", 1), BinaryEntry("global_poolToken_id", poolTokenId), StringEntry("static_poolToken_idStr", getAssetString(poolTokenId)), IntegerEntry((toString(i.caller) + "_indexStaked"), initialPoolTokens), IntegerEntry("global_indexStaked", initialPoolTokens)]), memeIdStr)
699 533                                          }
700 534                              }
701 535      }
702 536  
703 537  
704 538  
705 539  @Callable(i)
706 540  func init (poolDomain,poolOwner,tokenName,tokenDesc,tokenQuantity) = if ((i.caller != factoryAccount))
707 541      then throw("admin only")
708 542      else {
709 543          let inv1 = invoke(this, "initPool", [poolDomain, poolOwner, tokenName, tokenDesc, tokenQuantity], nil)
710 544          if ((inv1 == inv1))
711 545              then {
712 546                  let memeIdStr = {
713 547                      let @ = inv1
714 548                      if ($isInstanceOf(@, "String"))
715 549                          then @
716 550                          else throw(($getType(@) + " couldn't be cast to String"))
717 551                      }
718 -                 swapInternal("WAVES", memeIdStr, (i.payments[0].amount - InitalWavesLiquidity), 0, toString(i.caller))._1
552 +                 swapInternal("WAVES", memeIdStr, (i.payments[0].amount - CreationFee), 0, toString(i.caller))._1
719 553                  }
720 554              else throw("Strict value is not equal to itself.")
721 555          }
722 - 
723 - 
724 - 
725 - @Callable(i)
726 - func redeemIndex (sendToOrigin) = {
727 -     let pmt = i.payments[0]
728 -     if ((pmt.assetId != tryGetBinary("global_poolToken_id")))
729 -         then throw("please attach pool share token")
730 -         else if (isShutdown())
731 -             then throw("contract is on stop")
732 -             else {
733 -                 let PRedeemedWithMult = pmt.amount
734 -                 let PRedeemedWithNoMult = fraction(PRedeemedWithMult, getKMult(), Scale16, DOWN)
735 -                 let result = handlePoolTokensRedeem(PRedeemedWithNoMult, if (sendToOrigin)
736 -                     then i.originCaller
737 -                     else i.caller)
738 -                 (result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemedWithMult), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemedWithMult))])
739 -                 }
740 -     }
741 - 
742 - 
743 - 
744 - @Callable(i)
745 - func stakeIndex () = {
746 -     let addressStr = toString(i.originCaller)
747 -     let pmt = i.payments[0]
748 -     if ((value(pmt.assetId) != tryGetBinary("global_poolToken_id")))
749 -         then throw("wrong asset attached")
750 -         else indexStakeResult(addressStr, pmt.amount)
751 -     }
752 - 
753 - 
754 - 
755 - @Callable(i)
756 - func stakeIndexFor (addressStr) = {
757 -     let pmt = i.payments[0]
758 -     if ((value(pmt.assetId) != tryGetBinary("global_poolToken_id")))
759 -         then throw("wrong asset attached")
760 -         else indexStakeResult(addressStr, pmt.amount)
761 -     }
762 - 
763 - 
764 - 
765 - @Callable(i)
766 - func unstakeIndex (indexAmount) = {
767 -     let addressStr = if ((indexOf(layer2Addresses, toString(i.caller)) != unit))
768 -         then toString(i.originCaller)
769 -         else toString(i.caller)
770 -     let indexAvailable = tryGetInteger((addressStr + "_indexStaked"))
771 -     if (isShutdown())
772 -         then throw("contract is on stop")
773 -         else if ((indexAmount > indexAvailable))
774 -             then throw("you don't have index tokens available")
775 -             else if (isShutdown())
776 -                 then throw("contract is on stop")
777 -                 else (claimResult(addressFromStringValue(addressStr))._1 ++ [IntegerEntry((addressStr + "_indexStaked"), (indexAvailable - indexAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - indexAmount)), ScriptTransfer(i.caller, indexAmount, getBinaryValue("global_poolToken_id"))])
778 -     }
779 556  
780 557  
781 558  
782 559  @Callable(i)
783 560  func claimIndexRewards () = if (isShutdown())
784 561      then throw("contract is on stop")
785 562      else claimResult(i.caller)
786 563  
787 564  
788 565  
789 566  @Callable(i)
790 567  func evaluateClaim (user) = $Tuple2(nil, claimResult(addressFromStringValue(user))._2)
791 568  
792 569  
793 570  
794 571  @Callable(i)
795 572  func swap (assetOut,minimum) = {
796 -     let pmt = if ((size(i.payments) == 1))
797 -         then value(i.payments[0])
798 -         else throw("please attach exactly one payment")
799 -     let AmountIn = value(i.payments[0].amount)
800 -     let AssetIn = i.payments[0].assetId
801 -     swapInternal(getAssetString(AssetIn), assetOut, AmountIn, minimum, toString(i.caller))
573 +     let status = getPoolStatus()
574 +     if ((2 > status))
575 +         then {
576 +             let pmt = if ((size(i.payments) == 1))
577 +                 then value(i.payments[0])
578 +                 else throw("please attach exactly one payment")
579 +             let AmountIn = value(i.payments[0].amount)
580 +             let AssetIn = i.payments[0].assetId
581 +             let res = swapInternal(getAssetString(AssetIn), assetOut, AmountIn, minimum, toString(i.caller))
582 +             if ((getIntegerValue("global_WAVES_balance") > CurveTarget))
583 +                 then {
584 +                     let notifyInv = invoke(factoryAccount, "notifyStatusUpdate", [2], nil)
585 +                     if ((notifyInv == notifyInv))
586 +                         then res
587 +                         else throw("Strict value is not equal to itself.")
588 +                     }
589 +                 else res
590 +             }
591 +         else throw("pool is stopped: most probably it reached the target liquidity")
802 592      }
803 593  
804 594  
805 595  
806 596  @Callable(i)
807 597  func swapReadOnly (assetIn,assetOut,AmountIn) = {
808 598      let AssetIn = getAssetBytes(assetIn)
809 599      let AssetOut = getAssetBytes(assetOut)
810 600      let scaleIn = (Scale8 / tryGetInteger((("static_" + assetIn) + "_scale")))
811 601      let scaleOut = (Scale8 / tryGetInteger((("static_" + assetOut) + "_scale")))
812 602      let feeAssetOutStr = tryGetString("static_feeToken")
813 603      let feeAssetOut = if ((feeAssetOutStr == ""))
814 604          then usdnAssetId
815 605          else getAssetBytes(feeAssetOutStr)
816 606      let AssetInBalance = tryGetInteger((("global_" + getAssetString(AssetIn)) + "_balance"))
817 607      let AssetOutBalance = tryGetInteger((("global_" + assetOut) + "_balance"))
818 608      let AssetInBalanceScaled = (AssetInBalance * scaleIn)
819 609      let AssetOutBalanceScaled = (AssetOutBalance * scaleOut)
820 610      let feeAmountIn = fraction(AmountIn, Fee, FeeScale)
821 611      let cleanAmountIn = (AmountIn - feeAmountIn)
822 612      let cleanAmountInScaled = (cleanAmountIn * scaleIn)
823 613      let AmountOut1 = calculateOutAmount(cleanAmountInScaled, AssetIn, AssetOut, AssetInBalanceScaled, AssetOutBalanceScaled)
824 614      let AmountOut = fraction(AmountOut1, 1, scaleOut)
825 615      let AssetOutBalance2 = (AssetOutBalance - AmountOut)
826 616      let AssetInBalance2 = (AssetInBalance + cleanAmountIn)
827 617      let feeAssetOutBalance = if ((feeAssetOut == AssetIn))
828 618          then AssetInBalance2
829 619          else if ((feeAssetOut == AssetOut))
830 620              then AssetOutBalance2
831 621              else tryGetInteger((("global_" + getAssetString(feeAssetOut)) + "_balance"))
832 622      let feeAmountOut = calculateOutAmount(feeAmountIn, AssetIn, feeAssetOut, AssetInBalance, feeAssetOutBalance)
833 623      if ((AssetOut == AssetIn))
834 624          then throw("this swap is not allowed")
835 625          else if ((0 > (AssetOutBalance - AmountOut)))
836 626              then throw("contract is out of reserves")
837 627              else if (isShutdown())
838 628                  then throw("contract is on stop")
839 629                  else $Tuple2(nil, AmountOut)
840 630      }
841 631  
842 632  
843 633  
844 634  @Callable(i)
845 635  func transferOwnership (newOwnerAddress) = if ((toString(i.caller) != tryGetString("static_poolOwner")))
846 636      then throw("this call available only for pool owner")
847 637      else [StringEntry("static_poolOwner", newOwnerAddress)]
848 638  
849 639

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let VERSION = "PM-0.4.0"
	4	+	let VERSION = "PM-0.8.0"
5	5
6	6		let configStr = valueOrElse(getString(this, "configAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")
7	7

22	22		let PoolTokenDecimals = 8
23	23
24	24		let PoolTokenScale = pow(10, 0, PoolTokenDecimals, 0, 0, HALFUP)
25		-
26		-	let InitalWavesLiquidity = Scale8
27	25
28	26		let MIN_STEPS_AMOUNT = valueOrElse(getInteger(CONFIG_ADDRESS, "min_steps_amount"), 1)
29	27

90	88		}
91	89
92	90
93		-	func addAssetBytesToList (accum,item) = if ((item != ""))
94		-	then (accum ++ [getAssetBytes(item)])
95		-	else accum
	91	+	func addAssetBytesToList (accum,item) = (accum ++ [getAssetBytes(item)])
96	92
97	93
98	94		func addAssetWeightToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_weight"))])

146	142
147	143		let coldMasterAddress = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "coldMasterAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")))
148	144
149		-	let factoryAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3MvowVxVnqTUZZyRL6i3vkHNGabjmFxkHBr")))
	145	+	let calculatorAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr")))
	146	+
	147	+	let factoryAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3MsgzbtRg8NEkbTcHBywtwTdCe9BRxMQo5T")))
150	148
151	149		let masterPubKey = fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "masterPubKey"), "4z8CKSYQBKkzx7PBb5uBP1YPa6YAHRNTApW1sQVHT5eU"))
152	150

216	214
217	215		let earnedAssets = assetIds
218	216
	217	+	func getPoolStatus () = {
	218	+	let poolId = valueOrElse(getInteger(factoryAccount, ("pool__" + toString(this))), 0)
	219	+	let status = valueOrElse(getInteger(factoryAccount, ("pool__status__" + toString(poolId))), 2)
	220	+	status
	221	+	}
	222	+
	223	+
	224	+	func getSetting (key) = getIntegerValue(factoryAccount, ("setup__" + key))
	225	+
	226	+
	227	+	let InitalWavesLiquidity = getSetting("virtualLiquidity")
	228	+
	229	+	let CreationFee = getSetting("creationFee")
	230	+
	231	+	let CurveTarget = getSetting("curveTarget")
	232	+
219	233		func isShutdown () = {
220	234		let shutdownAddress = addressFromString(shutdownAddressStr)
221	235		if ((shutdownAddress == unit))

227	241		false
228	242		}
229	243		}
230		-
231		-
232		-	func getCurrentTokenBalance (tokenNum) = {
233		-	let tokenIdStr = getAssetString(assetIds[tokenNum])
234		-	tryGetInteger((("global_" + tokenIdStr) + "_balance"))
235		-	}
236		-
237		-
238		-	func getKMult () = match getInteger("static_KMult") {
239		-	case x: Int =>
240		-	x
241		-	case _ =>
242		-	Scale16
243		-	}
244		-
245		-
246		-	func getVirtualPoolTokenAmount () = fraction(tryGetInteger("global_poolToken_amount"), getKMult(), Scale16)
247	244
248	245
249	246		func getPriceFromOracle (assetIdStr) = match getInteger(oracleAddress, (assetIdStr + "_twap5B")) {

264	261		let valInFeeAsset = fraction(amount, (feeAssetBalance / feeAssetWeight), (aBalance / assetWeight))
265	262		let feeAssetPrice = getPriceFromOracle(feeAssetStr)
266	263		fraction(valInFeeAsset, feeAssetPrice, feeAssetScale)
267		-	}
268		-
269		-
270		-	func handlePoolTokensRedeem (PRedeemed,userAddress) = {
271		-	func handleTokenRedeem (accum,tokenId) = {
272		-	let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
273		-	let PSupply = getVirtualPoolTokenAmount()
274		-	let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
275		-	let psuppl = fraction((toBigInt((PSupply - PRedeemed)) * toBigInt(Scale8)), toBigInt(Scale8), toBigInt(PSupply), DOWN)
276		-	let amount = toInt(fraction((toBigInt(Scale16) - psuppl), toBigInt(Bk), toBigInt(Scale16), CEILING))
277		-	(accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount)), ScriptTransfer(userAddress, amount, tokenId)])
278		-	}
279		-
280		-	let $l = assetIds
281		-	let $s = size($l)
282		-	let $acc0 = nil
283		-	func $f4_1 ($a,$i) = if (($i >= $s))
284		-	then $a
285		-	else handleTokenRedeem($a, $l[$i])
286		-
287		-	func $f4_2 ($a,$i) = if (($i >= $s))
288		-	then $a
289		-	else throw("List size exceeds 10")
290		-
291		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
292	264		}
293	265
294	266

351	323		}
352	324
353	325
354		-	func indexStakeResult (addressStr,amount) = {
355		-	let li = claimResult(addressFromStringValue(addressStr))._1
356		-	(li ++ [IntegerEntry((addressStr + "_indexStaked"), (tryGetInteger((addressStr + "_indexStaked")) + amount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") + amount))])
357		-	}
358		-
359		-
360	326		func sum (accum,n) = (accum + parseIntValue(n))
361	327
362	328

365	331		else false)
366	332		then next
367	333		else accum
368		-
369		-
370		-	func getTmpRebalanceIds (newAssetIdsLi) = {
371		-	let currentAssetIdsLi = split(tryGetString("static_tokenIds"), ",")
372		-	let result = newAssetIdsLi
373		-	func f (accum,assetId) = if ((indexOf(result, assetId) == unit))
374		-	then (accum ++ [assetId])
375		-	else accum
376		-
377		-	let $l = currentAssetIdsLi
378		-	let $s = size($l)
379		-	let $acc0 = result
380		-	func $f4_1 ($a,$i) = if (($i >= $s))
381		-	then $a
382		-	else f($a, $l[$i])
383		-
384		-	func $f4_2 ($a,$i) = if (($i >= $s))
385		-	then $a
386		-	else throw("List size exceeds 10")
387		-
388		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
389		-	}
390		-
391		-
392		-	func checkTokensChange (newAssetIdsLi) = {
393		-	let currentAssetIdsLi = split(tryGetString("static_tokenIds"), ",")
394		-	func rem (accum,assetId) = if ((indexOf(newAssetIdsLi, assetId) == unit))
395		-	then (accum + 1)
396		-	else accum
397		-
398		-	func add (accum,assetId) = if ((indexOf(currentAssetIdsLi, assetId) == unit))
399		-	then (accum + 1)
400		-	else accum
401		-
402		-	let removed = {
403		-	let $l = currentAssetIdsLi
404		-	let $s = size($l)
405		-	let $acc0 = 0
406		-	func $f4_1 ($a,$i) = if (($i >= $s))
407		-	then $a
408		-	else rem($a, $l[$i])
409		-
410		-	func $f4_2 ($a,$i) = if (($i >= $s))
411		-	then $a
412		-	else throw("List size exceeds 10")
413		-
414		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
415		-	}
416		-	let added = {
417		-	let $l = newAssetIdsLi
418		-	let $s = size($l)
419		-	let $acc0 = 0
420		-	func $f5_1 ($a,$i) = if (($i >= $s))
421		-	then $a
422		-	else add($a, $l[$i])
423		-
424		-	func $f5_2 ($a,$i) = if (($i >= $s))
425		-	then $a
426		-	else throw("List size exceeds 10")
427		-
428		-	$f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
429		-	}
430		-	(removed + added)
431		-	}
432		-
433		-
434		-	func validatePayments (assetsList,payments) = {
435		-	func getPaymentAssets (accum,next) = if ((0 >= next.amount))
436		-	then throw(((("Too low payment amount for " + getAssetString(next.assetId)) + ": ") + toString(next.amount)))
437		-	else (accum ++ [getAssetString(next.assetId)])
438		-
439		-	let paymentList = {
440		-	let $l = payments
441		-	let $s = size($l)
442		-	let $acc0 = nil
443		-	func $f4_1 ($a,$i) = if (($i >= $s))
444		-	then $a
445		-	else getPaymentAssets($a, $l[$i])
446		-
447		-	func $f4_2 ($a,$i) = if (($i >= $s))
448		-	then $a
449		-	else throw("List size exceeds 10")
450		-
451		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
452		-	}
453		-	func f1 (accum,next) = if ((indexOf(assetsList, next) == unit))
454		-	then throw(((next + " asset is present in payments, but is not in new assets: ") + makeString(assetsList, ",")))
455		-	else (accum + 1)
456		-
457		-	func f2 (accum,next) = if ((indexOf(paymentList, next) == unit))
458		-	then throw(((next + " asset is present in new assets, but is not in payments: ") + makeString(paymentList, ",")))
459		-	else (accum + 1)
460		-
461		-	let a1 = {
462		-	let $l = paymentList
463		-	let $s = size($l)
464		-	let $acc0 = 0
465		-	func $f5_1 ($a,$i) = if (($i >= $s))
466		-	then $a
467		-	else f1($a, $l[$i])
468		-
469		-	func $f5_2 ($a,$i) = if (($i >= $s))
470		-	then $a
471		-	else throw("List size exceeds 10")
472		-
473		-	$f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
474		-	}
475		-	let a2 = {
476		-	let $l = assetsList
477		-	let $s = size($l)
478		-	let $acc0 = 0
479		-	func $f6_1 ($a,$i) = if (($i >= $s))
480		-	then $a
481		-	else f2($a, $l[$i])
482		-
483		-	func $f6_2 ($a,$i) = if (($i >= $s))
484		-	then $a
485		-	else throw("List size exceeds 10")
486		-
487		-	$f6_2($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($f6_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
488		-	}
489		-	(a1 + a2)
490		-	}
491	334
492	335
493	336		func swapInternal (assetIn,assetOut,amountIn,minimum,receipientAddressStr) = {

546	389		$Tuple2([assetOutChange, assetInChange, feeAssetOutChange, ScriptTransfer(addressFromStringValue(receipientAddressStr), AmountOut, AssetOut), ScriptTransfer(addressFromStringValue(tryGetString("static_poolOwner")), creatorFee, feeAssetOut), IntegerEntry("global_earnedByOwner", (tryGetInteger("global_earnedByOwner") + creatorFee)), IntegerEntry("global_volume_usd", (tryGetInteger("global_volume_usd") + volumeUsdUpdate)), ScriptTransfer(feesAddress, protocolFee, feeAssetOut)], AmountOut)
547	390		}
548	391		}
549		-
550		-
551		-	@Callable(i)
552		-	func deInit () = if (isShutdown())
553		-	then throw("contract is on stop")
554		-	else if ((i.caller != this))
555		-	then throw("admin only")
556		-	else [IntegerEntry("global_wasInited", 0)]
557		-
558	392
559	393
560	394		@Callable(i)

640	474		then "WAVES"
641	475		else throw("you have to attach some WAVES")
642	476		if ((this != this))
643		-	then throw("~~admin~~ only")
	477	+	then throw("self-invoke only")
644	478		else if ((feeAssetStr == ""))
645	479		then throw("pool must have one of the supported fee assets in the composition")
646	480		else if ((size(poolDomain) > 13))

715	549		then @
716	550		else throw(($getType(@) + " couldn't be cast to String"))
717	551		}
718		-	swapInternal("WAVES", memeIdStr, (i.payments[0].amount - ~~InitalWavesLiquidity~~), 0, toString(i.caller))._1
	552	+	swapInternal("WAVES", memeIdStr, (i.payments[0].amount - CreationFee), 0, toString(i.caller))._1
719	553		}
720	554		else throw("Strict value is not equal to itself.")
721	555		}
722		-
723		-
724		-
725		-	@Callable(i)
726		-	func redeemIndex (sendToOrigin) = {
727		-	let pmt = i.payments[0]
728		-	if ((pmt.assetId != tryGetBinary("global_poolToken_id")))
729		-	then throw("please attach pool share token")
730		-	else if (isShutdown())
731		-	then throw("contract is on stop")
732		-	else {
733		-	let PRedeemedWithMult = pmt.amount
734		-	let PRedeemedWithNoMult = fraction(PRedeemedWithMult, getKMult(), Scale16, DOWN)
735		-	let result = handlePoolTokensRedeem(PRedeemedWithNoMult, if (sendToOrigin)
736		-	then i.originCaller
737		-	else i.caller)
738		-	(result ++ [Burn(tryGetBinary("global_poolToken_id"), PRedeemedWithMult), IntegerEntry("global_poolToken_amount", (tryGetInteger("global_poolToken_amount") - PRedeemedWithMult))])
739		-	}
740		-	}
741		-
742		-
743		-
744		-	@Callable(i)
745		-	func stakeIndex () = {
746		-	let addressStr = toString(i.originCaller)
747		-	let pmt = i.payments[0]
748		-	if ((value(pmt.assetId) != tryGetBinary("global_poolToken_id")))
749		-	then throw("wrong asset attached")
750		-	else indexStakeResult(addressStr, pmt.amount)
751		-	}
752		-
753		-
754		-
755		-	@Callable(i)
756		-	func stakeIndexFor (addressStr) = {
757		-	let pmt = i.payments[0]
758		-	if ((value(pmt.assetId) != tryGetBinary("global_poolToken_id")))
759		-	then throw("wrong asset attached")
760		-	else indexStakeResult(addressStr, pmt.amount)
761		-	}
762		-
763		-
764		-
765		-	@Callable(i)
766		-	func unstakeIndex (indexAmount) = {
767		-	let addressStr = if ((indexOf(layer2Addresses, toString(i.caller)) != unit))
768		-	then toString(i.originCaller)
769		-	else toString(i.caller)
770		-	let indexAvailable = tryGetInteger((addressStr + "_indexStaked"))
771		-	if (isShutdown())
772		-	then throw("contract is on stop")
773		-	else if ((indexAmount > indexAvailable))
774		-	then throw("you don't have index tokens available")
775		-	else if (isShutdown())
776		-	then throw("contract is on stop")
777		-	else (claimResult(addressFromStringValue(addressStr))._1 ++ [IntegerEntry((addressStr + "_indexStaked"), (indexAvailable - indexAmount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") - indexAmount)), ScriptTransfer(i.caller, indexAmount, getBinaryValue("global_poolToken_id"))])
778		-	}
779	556
780	557
781	558

793	570
794	571		@Callable(i)
795	572		func swap (assetOut,minimum) = {
796		-	let pmt = if ((size(i.payments) == 1))
797		-	then value(i.payments[0])
798		-	else throw("please attach exactly one payment")
799		-	let AmountIn = value(i.payments[0].amount)
800		-	let AssetIn = i.payments[0].assetId
801		-	swapInternal(getAssetString(AssetIn), assetOut, AmountIn, minimum, toString(i.caller))
	573	+	let status = getPoolStatus()
	574	+	if ((2 > status))
	575	+	then {
	576	+	let pmt = if ((size(i.payments) == 1))
	577	+	then value(i.payments[0])
	578	+	else throw("please attach exactly one payment")
	579	+	let AmountIn = value(i.payments[0].amount)
	580	+	let AssetIn = i.payments[0].assetId
	581	+	let res = swapInternal(getAssetString(AssetIn), assetOut, AmountIn, minimum, toString(i.caller))
	582	+	if ((getIntegerValue("global_WAVES_balance") > CurveTarget))
	583	+	then {
	584	+	let notifyInv = invoke(factoryAccount, "notifyStatusUpdate", [2], nil)
	585	+	if ((notifyInv == notifyInv))
	586	+	then res
	587	+	else throw("Strict value is not equal to itself.")
	588	+	}
	589	+	else res
	590	+	}
	591	+	else throw("pool is stopped: most probably it reached the target liquidity")
802	592		}
803	593
804	594

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let VERSION = "PM-0.4.0"
	4	+	let VERSION = "PM-0.8.0"
5	5
6	6		let configStr = valueOrElse(getString(this, "configAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")
7	7
8	8		let CONFIG_ADDRESS = if ((configStr == ""))
9	9		then this
10	10		else Address(fromBase58String(configStr))
11	11
12	12		let AssetsWeightsDecimals = 4
13	13
14	14		let Scale = 10000
15	15
16	16		let Scale8 = 100000000
17	17
18	18		let Scale16 = 10000000000000000
19	19
20	20		let FeeScale = 10000
21	21
22	22		let PoolTokenDecimals = 8
23	23
24	24		let PoolTokenScale = pow(10, 0, PoolTokenDecimals, 0, 0, HALFUP)
25		-
26		-	let InitalWavesLiquidity = Scale8
27	25
28	26		let MIN_STEPS_AMOUNT = valueOrElse(getInteger(CONFIG_ADDRESS, "min_steps_amount"), 1)
29	27
30	28		let MAX_STEPS_AMOUNT = valueOrElse(getInteger(CONFIG_ADDRESS, "max_steps_amount"), 500)
31	29
32	30		let MIN_STEPS_INTERVAL = valueOrElse(getInteger(CONFIG_ADDRESS, "min_steps_interval"), 1)
33	31
34	32		let MAX_STEPS_INTERVAL = valueOrElse(getInteger(CONFIG_ADDRESS, "max_steps_interval"), 10000)
35	33
36	34		let MIN_WEIGHT = valueOrElse(getInteger(CONFIG_ADDRESS, "min_weight"), 100)
37	35
38	36		let MAX_WEIGHT = valueOrElse(getInteger(CONFIG_ADDRESS, "max_weight"), 9900)
39	37
40	38		func tryGetInteger (key) = match getInteger(this, key) {
41	39		case b: Int =>
42	40		b
43	41		case _ =>
44	42		0
45	43		}
46	44
47	45
48	46		func tryGetBinary (key) = match getBinary(this, key) {
49	47		case b: ByteVector =>
50	48		b
51	49		case _ =>
52	50		base58''
53	51		}
54	52
55	53
56	54		func tryGetString (key) = match getString(this, key) {
57	55		case b: String =>
58	56		b
59	57		case _ =>
60	58		""
61	59		}
62	60
63	61
64	62		func tryGetStringOrThrow (key) = match getString(this, key) {
65	63		case b: String =>
66	64		b
67	65		case _ =>
68	66		throw(("no such key in data storage: " + key))
69	67		}
70	68
71	69
72	70		func getAssetString (assetId) = match assetId {
73	71		case b: ByteVector =>
74	72		toBase58String(b)
75	73		case _ =>
76	74		"WAVES"
77	75		}
78	76
79	77
80	78		func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
81	79		then unit
82	80		else fromBase58String(assetIdStr)
83	81
84	82
85	83		func getTokenBalance (assetId) = match assetId {
86	84		case t: ByteVector =>
87	85		assetBalance(this, t)
88	86		case _ =>
89	87		wavesBalance(this).available
90	88		}
91	89
92	90
93		-	func addAssetBytesToList (accum,item) = if ((item != ""))
94		-	then (accum ++ [getAssetBytes(item)])
95		-	else accum
	91	+	func addAssetBytesToList (accum,item) = (accum ++ [getAssetBytes(item)])
96	92
97	93
98	94		func addAssetWeightToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_weight"))])
99	95
100	96
101	97		func addAssetWeightToStrList (accum,item) = (accum ++ [toString(tryGetInteger((("static_" + item) + "_weight")))])
102	98
103	99
104	100		func addAssetDecimalsToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_decimals"))])
105	101
106	102
107	103		func addAssetScaleToList (accum,item) = (accum ++ [tryGetInteger((("static_" + getAssetString(item)) + "_scale"))])
108	104
109	105
110	106		func addIntToList (accum,item) = (accum ++ [parseIntValue(item)])
111	107
112	108
113	109		let usdnAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "usdnAssetIdStr"), "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p")
114	110
115	111		let puzzleAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "puzzleAssetIdStr"), "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS")
116	112
117	113		let usdtAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "usdtAssetIdStr"), "34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ")
118	114
119	115		let usdtPptAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "usdtPptAssetIdStr"), "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi")
120	116
121	117		let romeAssetIdStr = valueOrElse(getString(CONFIG_ADDRESS, "romeAssetIdStr"), "AP4Cb5xLYGH6ZigHreCZHoXpQTWDkPsG2BHqfDUx6taJ")
122	118
123	119		let wavesAssetIdStr = "WAVES"
124	120
125	121		let usdnAssetId = fromBase58String(usdnAssetIdStr)
126	122
127	123		let puzzleAssetId = fromBase58String(puzzleAssetIdStr)
128	124
129	125		let usdtAssetId = fromBase58String(usdtAssetIdStr)
130	126
131	127		let usdtPptAssetId = fromBase58String(usdtPptAssetIdStr)
132	128
133	129		let romeAssetId = fromBase58String(romeAssetIdStr)
134	130
135	131		let wavesAssetId = unit
136	132
137	133		let supportedFeeAssetsStr = [usdnAssetIdStr, puzzleAssetIdStr, usdtAssetIdStr, usdtPptAssetIdStr, wavesAssetIdStr, romeAssetIdStr]
138	134
139	135		let oracleAddress = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "oracleAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")))
140	136
141	137		let feesAddress = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "feesAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")))
142	138
143	139		let shutdownAddressStr = valueOrElse(getString(CONFIG_ADDRESS, "shutdownAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")
144	140
145	141		let layer2Addresses = valueOrElse(getString(CONFIG_ADDRESS, "layer2Addresses"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")
146	142
147	143		let coldMasterAddress = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "coldMasterAddress"), "3N91e7wHiV7QadDsx3RUJQxx1etqcAKrfHj")))
148	144
149		-	let factoryAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3MvowVxVnqTUZZyRL6i3vkHNGabjmFxkHBr")))
	145	+	let calculatorAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3N1ytAUyhtig9X6F2hHHs1jbzYxr47Yp8Fr")))
	146	+
	147	+	let factoryAccount = Address(fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "factoryAddress"), "3MsgzbtRg8NEkbTcHBywtwTdCe9BRxMQo5T")))
150	148
151	149		let masterPubKey = fromBase58String(valueOrElse(getString(CONFIG_ADDRESS, "masterPubKey"), "4z8CKSYQBKkzx7PBb5uBP1YPa6YAHRNTApW1sQVHT5eU"))
152	150
153	151		let T = tryGetInteger("static_tokensAmount")
154	152
155	153		let assetIds = {
156	154		let $l = split(tryGetString("static_tokenIds"), ",")
157	155		let $s = size($l)
158	156		let $acc0 = nil
159	157		func $f0_1 ($a,$i) = if (($i >= $s))
160	158		then $a
161	159		else addAssetBytesToList($a, $l[$i])
162	160
163	161		func $f0_2 ($a,$i) = if (($i >= $s))
164	162		then $a
165	163		else throw("List size exceeds 10")
166	164
167	165		$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)
168	166		}
169	167
170	168		let AssetsWeights = {
171	169		let $l = assetIds
172	170		let $s = size($l)
173	171		let $acc0 = nil
174	172		func $f1_1 ($a,$i) = if (($i >= $s))
175	173		then $a
176	174		else addAssetWeightToList($a, $l[$i])
177	175
178	176		func $f1_2 ($a,$i) = if (($i >= $s))
179	177		then $a
180	178		else throw("List size exceeds 10")
181	179
182	180		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
183	181		}
184	182
185	183		let Decimals = {
186	184		let $l = assetIds
187	185		let $s = size($l)
188	186		let $acc0 = nil
189	187		func $f2_1 ($a,$i) = if (($i >= $s))
190	188		then $a
191	189		else addAssetDecimalsToList($a, $l[$i])
192	190
193	191		func $f2_2 ($a,$i) = if (($i >= $s))
194	192		then $a
195	193		else throw("List size exceeds 10")
196	194
197	195		$f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
198	196		}
199	197
200	198		let Scales = {
201	199		let $l = assetIds
202	200		let $s = size($l)
203	201		let $acc0 = nil
204	202		func $f3_1 ($a,$i) = if (($i >= $s))
205	203		then $a
206	204		else addAssetScaleToList($a, $l[$i])
207	205
208	206		func $f3_2 ($a,$i) = if (($i >= $s))
209	207		then $a
210	208		else throw("List size exceeds 10")
211	209
212	210		$f3_2($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($f3_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
213	211		}
214	212
215	213		let Fee = tryGetInteger("static_fee")
216	214
217	215		let earnedAssets = assetIds
218	216
	217	+	func getPoolStatus () = {
	218	+	let poolId = valueOrElse(getInteger(factoryAccount, ("pool__" + toString(this))), 0)
	219	+	let status = valueOrElse(getInteger(factoryAccount, ("pool__status__" + toString(poolId))), 2)
	220	+	status
	221	+	}
	222	+
	223	+
	224	+	func getSetting (key) = getIntegerValue(factoryAccount, ("setup__" + key))
	225	+
	226	+
	227	+	let InitalWavesLiquidity = getSetting("virtualLiquidity")
	228	+
	229	+	let CreationFee = getSetting("creationFee")
	230	+
	231	+	let CurveTarget = getSetting("curveTarget")
	232	+
219	233		func isShutdown () = {
220	234		let shutdownAddress = addressFromString(shutdownAddressStr)
221	235		if ((shutdownAddress == unit))
222	236		then false
223	237		else match getBoolean(value(shutdownAddress), "is_shutdown") {
224	238		case x: Boolean =>
225	239		x
226	240		case _ =>
227	241		false
228	242		}
229	243		}
230		-
231		-
232		-	func getCurrentTokenBalance (tokenNum) = {
233		-	let tokenIdStr = getAssetString(assetIds[tokenNum])
234		-	tryGetInteger((("global_" + tokenIdStr) + "_balance"))
235		-	}
236		-
237		-
238		-	func getKMult () = match getInteger("static_KMult") {
239		-	case x: Int =>
240		-	x
241		-	case _ =>
242		-	Scale16
243		-	}
244		-
245		-
246		-	func getVirtualPoolTokenAmount () = fraction(tryGetInteger("global_poolToken_amount"), getKMult(), Scale16)
247	244
248	245
249	246		func getPriceFromOracle (assetIdStr) = match getInteger(oracleAddress, (assetIdStr + "_twap5B")) {
250	247		case x: Int =>
251	248		x
252	249		case _ =>
253	250		1000000
254	251		}
255	252
256	253
257	254		func calculateUsdValue (assetId,amount,aBalance) = {
258	255		let assetWeight = tryGetInteger((("static_" + getAssetString(assetId)) + "_weight"))
259	256		let feeAssetStr = tryGetString("static_feeToken")
260	257		let feeAssetScale = getIntegerValue(this, (("static_" + feeAssetStr) + "_scale"))
261	258		let feeAssetNum = value(indexOf(assetIds, getAssetBytes(feeAssetStr)))
262	259		let feeAssetWeight = AssetsWeights[feeAssetNum]
263	260		let feeAssetBalance = tryGetInteger((("global_" + feeAssetStr) + "_balance"))
264	261		let valInFeeAsset = fraction(amount, (feeAssetBalance / feeAssetWeight), (aBalance / assetWeight))
265	262		let feeAssetPrice = getPriceFromOracle(feeAssetStr)
266	263		fraction(valInFeeAsset, feeAssetPrice, feeAssetScale)
267		-	}
268		-
269		-
270		-	func handlePoolTokensRedeem (PRedeemed,userAddress) = {
271		-	func handleTokenRedeem (accum,tokenId) = {
272		-	let Bk = tryGetInteger((("global_" + getAssetString(tokenId)) + "_balance"))
273		-	let PSupply = getVirtualPoolTokenAmount()
274		-	let tokenDecimals = tryGetInteger((("static_" + getAssetString(tokenId)) + "_scale"))
275		-	let psuppl = fraction((toBigInt((PSupply - PRedeemed)) * toBigInt(Scale8)), toBigInt(Scale8), toBigInt(PSupply), DOWN)
276		-	let amount = toInt(fraction((toBigInt(Scale16) - psuppl), toBigInt(Bk), toBigInt(Scale16), CEILING))
277		-	(accum ++ [IntegerEntry((("global_" + getAssetString(tokenId)) + "_balance"), (Bk - amount)), ScriptTransfer(userAddress, amount, tokenId)])
278		-	}
279		-
280		-	let $l = assetIds
281		-	let $s = size($l)
282		-	let $acc0 = nil
283		-	func $f4_1 ($a,$i) = if (($i >= $s))
284		-	then $a
285		-	else handleTokenRedeem($a, $l[$i])
286		-
287		-	func $f4_2 ($a,$i) = if (($i >= $s))
288		-	then $a
289		-	else throw("List size exceeds 10")
290		-
291		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
292	264		}
293	265
294	266
295	267		func calculateOutAmount (AmountIn,assetIn,assetOut,BalanceIn,BalanceOut) = {
296	268		let IndexIn = value(indexOf(assetIds, assetIn))
297	269		let IndexOut = value(indexOf(assetIds, assetOut))
298	270		if ((IndexIn == IndexOut))
299	271		then AmountIn
300	272		else fraction(BalanceOut, ((Scale8 * Scale8) - toInt(pow(fraction((toBigInt(BalanceIn) * toBigInt(10000)), toBigInt((Scale8 * Scale8)), (toBigInt((BalanceIn + AmountIn)) * toBigInt(10000)), HALFUP), 16, toBigInt(fraction(AssetsWeights[IndexIn], 1000000000000, AssetsWeights[IndexOut])), 12, 16, CEILING))), (Scale8 * Scale8), HALFEVEN)
301	273		}
302	274
303	275
304	276		func calculateCurrentAssetInterest (assetId,assetIdStr,aBalance,tokenEarningsLastCheck) = {
305	277		let totalStaked = tryGetInteger("global_indexStaked")
306	278		let tokenBalanceLastCheck = tokenEarningsLastCheck
307	279		let currentBalanceDelta = (getTokenBalance(assetId) - aBalance)
308	280		let currentTokenEarnings = if ((currentBalanceDelta > tokenBalanceLastCheck))
309	281		then currentBalanceDelta
310	282		else tokenBalanceLastCheck
311	283		let newEarnings = (currentTokenEarnings - tokenBalanceLastCheck)
312	284		let newInterest = if ((totalStaked == 0))
313	285		then 0
314	286		else fraction(newEarnings, Scale8, totalStaked)
315	287		let lastCheckInterest = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_interest"))
316	288		(lastCheckInterest + newInterest)
317	289		}
318	290
319	291
320	292		func claimResult (address) = {
321	293		let addressStr = toString(address)
322	294		let puzzleAmount = tryGetInteger((addressStr + "_indexStaked"))
323	295		func handler (accum,assetId) = {
324	296		let assetIdStr = getAssetString(assetId)
325	297		let aBalance = tryGetInteger((("global_" + getAssetString(assetId)) + "_balance"))
326	298		let tokenEarningsLastCheck = tryGetInteger((("global_lastCheck_" + assetIdStr) + "_earnings"))
327	299		let currentTokenInterest = calculateCurrentAssetInterest(assetId, assetIdStr, aBalance, tokenEarningsLastCheck)
328	300		let currentTokenEarnings = max([tokenEarningsLastCheck, (getTokenBalance(assetId) - aBalance)])
329	301		let rewardAmount = fraction(puzzleAmount, (currentTokenInterest - tryGetInteger((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"))), Scale8)
330	302		let transfer = if ((rewardAmount == 0))
331	303		then nil
332	304		else [ScriptTransfer(address, rewardAmount, assetId)]
333	305		$Tuple2(((accum._1 ++ transfer) ++ [IntegerEntry((("global_lastCheck_" + assetIdStr) + "_earnings"), (currentTokenEarnings - rewardAmount)), IntegerEntry((("global_lastCheck_" + assetIdStr) + "_interest"), currentTokenInterest), IntegerEntry((((addressStr + "_lastCheck_") + assetIdStr) + "_interest"), currentTokenInterest)]), (accum._2 + calculateUsdValue(assetId, rewardAmount, aBalance)))
334	306		}
335	307
336	308		let accum = {
337	309		let $l = earnedAssets
338	310		let $s = size($l)
339	311		let $acc0 = $Tuple2(nil, 0)
340	312		func $f4_1 ($a,$i) = if (($i >= $s))
341	313		then $a
342	314		else handler($a, $l[$i])
343	315
344	316		func $f4_2 ($a,$i) = if (($i >= $s))
345	317		then $a
346	318		else throw("List size exceeds 10")
347	319
348	320		$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
349	321		}
350	322		$Tuple2((accum._1 ++ [IntegerEntry((addressStr + "_claimedRewardUSD"), (tryGetInteger((addressStr + "_claimedRewardUSD")) + accum._2)), IntegerEntry((addressStr + "_lastClaim"), lastBlock.timestamp)]), accum._2)
351	323		}
352	324
353	325
354		-	func indexStakeResult (addressStr,amount) = {
355		-	let li = claimResult(addressFromStringValue(addressStr))._1
356		-	(li ++ [IntegerEntry((addressStr + "_indexStaked"), (tryGetInteger((addressStr + "_indexStaked")) + amount)), IntegerEntry("global_indexStaked", (tryGetInteger("global_indexStaked") + amount))])
357		-	}
358		-
359		-
360	326		func sum (accum,n) = (accum + parseIntValue(n))
361	327
362	328
363	329		func checkFeeAsset (accum,next) = if (if ((indexOf(supportedFeeAssetsStr, next) != unit))
364	330		then (accum == "")
365	331		else false)
366	332		then next
367	333		else accum
368		-
369		-
370		-	func getTmpRebalanceIds (newAssetIdsLi) = {
371		-	let currentAssetIdsLi = split(tryGetString("static_tokenIds"), ",")
372		-	let result = newAssetIdsLi
373		-	func f (accum,assetId) = if ((indexOf(result, assetId) == unit))
374		-	then (accum ++ [assetId])
375		-	else accum
376		-
377		-	let $l = currentAssetIdsLi
378		-	let $s = size($l)
379		-	let $acc0 = result
380		-	func $f4_1 ($a,$i) = if (($i >= $s))
381		-	then $a
382		-	else f($a, $l[$i])
383		-
384		-	func $f4_2 ($a,$i) = if (($i >= $s))
385		-	then $a
386		-	else throw("List size exceeds 10")
387		-
388		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
389		-	}
390		-
391		-
392		-	func checkTokensChange (newAssetIdsLi) = {
393		-	let currentAssetIdsLi = split(tryGetString("static_tokenIds"), ",")
394		-	func rem (accum,assetId) = if ((indexOf(newAssetIdsLi, assetId) == unit))
395		-	then (accum + 1)
396		-	else accum
397		-
398		-	func add (accum,assetId) = if ((indexOf(currentAssetIdsLi, assetId) == unit))
399		-	then (accum + 1)
400		-	else accum
401		-
402		-	let removed = {
403		-	let $l = currentAssetIdsLi
404		-	let $s = size($l)
405		-	let $acc0 = 0
406		-	func $f4_1 ($a,$i) = if (($i >= $s))
407		-	then $a
408		-	else rem($a, $l[$i])
409		-
410		-	func $f4_2 ($a,$i) = if (($i >= $s))
411		-	then $a
412		-	else throw("List size exceeds 10")
413		-
414		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
415		-	}
416		-	let added = {
417		-	let $l = newAssetIdsLi
418		-	let $s = size($l)
419		-	let $acc0 = 0
420		-	func $f5_1 ($a,$i) = if (($i >= $s))
421		-	then $a
422		-	else add($a, $l[$i])
423		-
424		-	func $f5_2 ($a,$i) = if (($i >= $s))
425		-	then $a
426		-	else throw("List size exceeds 10")
427		-
428		-	$f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
429		-	}
430		-	(removed + added)
431		-	}
432		-
433		-
434		-	func validatePayments (assetsList,payments) = {
435		-	func getPaymentAssets (accum,next) = if ((0 >= next.amount))
436		-	then throw(((("Too low payment amount for " + getAssetString(next.assetId)) + ": ") + toString(next.amount)))
437		-	else (accum ++ [getAssetString(next.assetId)])
438		-
439		-	let paymentList = {
440		-	let $l = payments
441		-	let $s = size($l)
442		-	let $acc0 = nil
443		-	func $f4_1 ($a,$i) = if (($i >= $s))
444		-	then $a
445		-	else getPaymentAssets($a, $l[$i])
446		-
447		-	func $f4_2 ($a,$i) = if (($i >= $s))
448		-	then $a
449		-	else throw("List size exceeds 10")
450		-
451		-	$f4_2($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($f4_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
452		-	}
453		-	func f1 (accum,next) = if ((indexOf(assetsList, next) == unit))
454		-	then throw(((next + " asset is present in payments, but is not in new assets: ") + makeString(assetsList, ",")))
455		-	else (accum + 1)
456		-
457		-	func f2 (accum,next) = if ((indexOf(paymentList, next) == unit))
458		-	then throw(((next + " asset is present in new assets, but is not in payments: ") + makeString(paymentList, ",")))
459		-	else (accum + 1)
460		-
461		-	let a1 = {
462		-	let $l = paymentList
463		-	let $s = size($l)
464		-	let $acc0 = 0
465		-	func $f5_1 ($a,$i) = if (($i >= $s))
466		-	then $a
467		-	else f1($a, $l[$i])
468		-
469		-	func $f5_2 ($a,$i) = if (($i >= $s))
470		-	then $a
471		-	else throw("List size exceeds 10")
472		-
473		-	$f5_2($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($f5_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
474		-	}
475		-	let a2 = {
476		-	let $l = assetsList
477		-	let $s = size($l)
478		-	let $acc0 = 0
479		-	func $f6_1 ($a,$i) = if (($i >= $s))

github/deemru/w8io/026f985 
85.09 ms ◑