w8 · tx · DtM···xDQ

tx · DtMtJBkSCLWH3FuBJoTzHbk9HuMe8oATKPctiBQjrxDQ

3PHMz1nGiPAHCFHfPQcW18ovsb5VgCCGzfJ:  -0.03000000 Waves

2023.11.12 20:12 [3906284] smart account 3PHMz1nGiPAHCFHfPQcW18ovsb5VgCCGzfJ > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "DtMtJBkSCLWH3FuBJoTzHbk9HuMe8oATKPctiBQjrxDQ",
    "fee": 3000000,
    "feeAssetId": null,
    "timestamp": 1699809161396,
    "version": 2,
    "chainId": 87,
    "sender": "3PHMz1nGiPAHCFHfPQcW18ovsb5VgCCGzfJ",
    "senderPublicKey": "75XcdocCZDdHda5bUegEwkcDk2Tt4i8yZcUzZmwS1ooA",
    "proofs": [
        "2GaNm6rp9zC3wQP9TPJGGQUzribTVjgqGRN3NJ1CFFBRTkzaJGku8tDiJsZ4STg7erA35J3nNu7bSvgxLAdn4t4X"
    ],
    "script": "base64:BgIlCAISBAoCCAQSAwoBCBIDCgEIEgMKAQgSABIDCgEIEgMKAQgSACoABlNjYWxlOACAwtcvAAlzZW50aW5lbHMJAMwIAgkBB0FkZHJlc3MBARoBV9fhI1GOfKuIWtXXKJd12Ih104+uIwWm4QkAzAgCCQEHQWRkcmVzcwEBGgFX+Pr6AibAUYvsajtGM0nSHHGwdYv5pMqaCQDMCAIJAQdBZGRyZXNzAQEaAVdJARj2Q38/TGzhZ3Xlt+SXL95QLbKD3fEJAMwIAgkBB0FkZHJlc3MBARoBV0vDbM77M1hDWENREO7v7iEQF0vyeMt8MgUDbmlsAA1iYWNrZW5kQ2FsbGVyCQEHQWRkcmVzcwEBGgFXyRzX3kxfCwOAnK+8lTuIWsx/nKxErqNnAA9vcmRlcmJvb2tPcmFjbGUJAQdBZGRyZXNzAQEaAVfs5amJRv2jqqV4EvPVGpo1g91nsJ/FonYABXh0bklkASC2JinDBPXOU5GkDkt1JC9kjFGx+t+vVCm9SNIdKrKq0QAIeHRuSWRTdHICLERHMnhGa1BkRHdLVW9Ca3pHQWhRdExwU0d6ZlhMaUNZUEV6ZUtIMkFkMjRwAAZldGhTdHICLDNWdVY1V1RtRHo0N0RtZG4zUXBjWWp6YlNkaXBqUUU0Sk1kTmUxeFpwWDEzAAdzdGFibGVzCQDMCAICLDl3YzNMWE5BNFRFQnNYeUt0b0xFOW1yYkREN1dNSFh2WHJDalp2YWJMQXNpCQDMCAICLEhHZ2FiVHFVUzhXdFZGVUp6Zm1yVERNZ0VjY0p1WkxCUGhGZ1FGeHZuc29XBQNuaWwACHRva2VuSWRzCQDMCAICLDZuU3BWeU5IN3lNNjllZzQ0NndyUVI5NGlwYmJjbVpNVTFFTlB3YW5DOTdnCQDMCAICLEVoaWU1eFlwZU44b3AxQ2N0YzZhR1VycXg4anEzanRmMURTalhEYmZtN2FUCQDMCAICLDRMSEh2WUdOS0pVZzVoajY1YUdENXZnU2N2Q0JtTHBkUkZ0am9rdkNqU0w4CQDMCAICLEMxaVdzS0dxTHdqSFVuZGlRN2lYcGRtUHVtOVBlQ0RGZnlYQmRKSm9zRFJTCQDMCAICLDM0TjlZY0VFVExXbjkzcVlRNjRFc1AxeDg5dFNydUpVNDRSckVNU1hYRVBKCQDMCAICLDZYdEhqcFhiczlSUkpQMlNyOUdVeVZxekFDY2J5OVRrVGhIWG5qVkM1Q0RKCQDMCAICLEhFQjhRYXc5eHJXcFdzOHRIc2lBVFlHQldEQnRQMlM3a2NQQUxyTXU0M0FTCQDMCAICLEFqc282blRUanB0dTJVSEx4NmhmU1hWdEhGdFJCSkNrS1lkNVNBeWo3emY1CQDMCAICLERTYmJoTHNTVGVEZzVMc2l1ZmsyQW5laDNEalZxSnVQcjJNOXVVMWd3eTVwCQDMCAICLEF0cXY1OUVZempGR3VpdEtWbk1SazZIOEZ1a2pvVjNrdFBvcmJFeXMyNW9uCQDMCAICLDJ0aHNBQ3VIbXpETXVOZXpQTTMyd2c5YTNCd1V6QldEZVNLYWtnejNjdzIxCQDMCAICK1lpTmJvZkZ6QzE3akVISENNd3JSY3B5OU1ycmphYk1NTFp4ZzhnNXhtZjcJAMwIAgIsOHQ0RFBXVHdQenBhdEhBOUFrVHhXQUI0N1RIbll6QnNEbm9ZN2ZRcWJHOTEJAMwIAgIsQXQ4RDZORkZwaGVDYnZLVm5qVm9lTEw4NEVvOE5abjZvdk1hbnhmTGFGV0wJAMwIAgIsNnBoSzIyenRHQlcxMjdnVUZtZE1FSEtCM0NWZDZaaFdveDJXdHdKa2JxVHEJAMwIAgIsM1Z1VjVXVG1EejQ3RG1kbjNRcGNZanpiU2RpcGpRRTRKTWROZTF4WnBYMTMJAMwIAgIsOXdjM0xYTkE0VEVCc1h5S3RvTEU5bXJiREQ3V01IWHZYckNqWnZhYkxBc2kFA25pbAAQdG9rZW5Jc0Jhc2VBc3NldAkAzAgCBwkAzAgCBwkAzAgCBwkAzAgCBwkAzAgCBgkAzAgCBgkAzAgCBwkAzAgCBwkAzAgCBwkAzAgCBwkAzAgCBwkAzAgCBwkAzAgCBwkAzAgCBwkAzAgCBgkAzAgCBwkAzAgCBgkAzAgCBgUDbmlsAA10b2tlbkRlY2ltYWxzCQDMCAIAwIQ9CQDMCAIAgMLXLwkAzAgCAIDC1y8JAMwIAgCAwtcvCQDMCAIAwIQ9CQDMCAIAwIQ9CQDMCAIAgMLXLwkAzAgCAIDC1y8JAMwIAgCAwtcvCQDMCAIAgMLXLwkAzAgCAIDC1y8JAMwIAgCAwtcvCQDMCAIAgMLXLwkAzAgCAMCEPQkAzAgCAMCEPQkAzAgCAIDC1y8JAMwIAgDAhD0JAMwIAgDAhD0FA25pbAAPdG9rZW5XWFdhdmVzTFBzCQDMCAICLERaZUE3UmJWYWI5OHI2MWhWSDV6Y0ZaWHdOQUxQSkdncTFleUhhbmRzS0tXCQDMCAICLDcyRTRNTUZIbmdzaXhxQWtOWkNSSk1MVG1nQVA5bnVmZHNYZXhuUzVxeFZ4CQDMCAICLEZUVEpuQjZ4RzRDS1pFSk1nc2dxam1nYnpjeUg4eWEzdFY4TFFQMkdDRHM3CQDMCAICLDNVbnl0Tm5rZDQ4ZkhvZkhQQnA1OUJrcFpBMXVNU0o4UGRoV1VDdWVyaWNzCQDMCAICLEJ5SnRWdVlpNThDdGRqdGFzRHVUcXRnZXY4cVdrZEp5YkY3clkxeG9zbWhFCQDMCAICLEJvWHVmOWV3SlNFMVVNcktpYlptaWd6QzZ0Qnp2OFJGVGVabW9mRW9zMlpKCQDMCAICLDdHNjg3dWkzbTU5b0FkNnFreW5pMnZ0NzdiSEY0YmJBNnhjUGZEbzN1aVR1CQDMCAICLEVNc1pwcWNUOE51TVlaQ0VQSHp2cmhRQ1FLaGZYamRlZWtadmNXcEhzTnZoCQDMCAICLEUzWWhVUk5zQ21qVWFZTmlnSDZBYXlMeGJoOXU4MXVWR1UzWnZIS3puWTV2CQDMCAICLEJpU3pGZThuU0w3OG9aYWViZm9pbjV2Qlo1UHplNmQ3a2FlaWpMcXI1eFplCQDMCAICLEFLUXNFUW9laW5LUkZ0ZHg2cmhLV2Nwa0FNdTZjYkRMZHRTV25SOHRwQkNxCQDMCAICLERqZ3dXNENNSkVmcHpqN1NMRkZQaUNxZjF6Zm1BZ2YxTUQ1Z0FTOFNqS3Q0CQDMCAICAAkAzAgCAixGM3M5MlZSZHBwRXRMVkFQNjk3Q1RNNkF6WkpFQ1Jjb014NWtqMkZrR3Y0TQkAzAgCAiw2aU1CNkxLU3Jndjl3YUV2RW5ONllkeXg3ZGZ4UG5HY1R3ODMxOFdWbTViUgkAzAgCAixFNk1VR1NVaWVTc3E2UWlKY2JwNlJFZFFYeWpwNnVQV0xpdG5wOUdkdHN1aAkAzAgCAiw2S1dwbnBMazZHTmg1SEc5Y3Q5cE5EQ1lGV0pCb0FBc2hac3A0RDhqY0ZwVgkAzAgCAgAFA25pbAAPdG9rZW5XWFhUTlBvb2xzCQDMCAICAAkAzAgCAgAJAMwIAgIACQDMCAICIzNQM1kzOHp5bUNIb1RNNnFjRTlKY0VBOHJoYUdUUWJWTWd1CQDMCAICAAkAzAgCAgAJAMwIAgIjM1A2MTV5WGVROVF1NHFCTTFRR2ltR3ppeHlNUzVXNEt0dWcJAMwIAgIjM1BFa0Q1THVIR1doVWZnQlcxb3daRnhWeWRZb1dqVjZKaWEJAMwIAgIjM1A1SGpQb3dnaXBpVkIzVXZYcGhEaVB2S3M0MjRXQzl4UXcJAMwIAgIjM1BDRU5wRUtlOGF0d0VMWjdvQ1NtY2RFZmNSdUtUclV4OTkJAMwIAgIACQDMCAICAAkAzAgCAiMzUEg4MzJlS253NjdQRnZKZlVnOUtuejZCSE04N1F2ak1lTAkAzAgCAgAJAMwIAgIjM1BHY1l6b1VmUUVRa2hSZ3JCcW1HNVdwYzdBMW5jRnZSdE0JAMwIAgIACQDMCAICAAkAzAgCAgAFA25pbAAOdG9rZW5Td29wUG9vbHMJAMwIAgIjM1AyVjYzWGQ2QnZpRGtlTXp4aFV3MlNKeW9qQnlSejhhOG0JAMwIAgIjM1AyN1M5VjM2a3cyTWNqV1JaMzdBeFR4OGl3a2Q3SFh3NlcJAMwIAgIjM1A2RExkSlRQMkV5U3E5TUZkSnU2YmVVZXZyUWQyc1ZWQmgJAMwIAgIACQDMCAICAAkAzAgCAgAJAMwIAgIjM1BCSHlFd21FUlIxQ0VrclROYlBqMmJneWlzVGZQUnFmZWUJAMwIAgIjM1BEU1h3d0EyeEF0bXhlbzJiZWJEUDNBQTV5bloyS3JnbncJAMwIAgIjM1BKNDhQM3Ayd3ZXVWpnUWFRaVoyY0ZicjhxbXhNb2tCR2QJAMwIAgIjM1BLaTRHM1ZYMms0MlpTbU5Ocm12Z2RESDdKelJhVWhZN1IJAMwIAgIACQDMCAICAAkAzAgCAiMzUEN3dm5zMmRubW9iRDZaNGNSODZ2OThzN0xnTVpZeWdFeQkAzAgCAiMzUExwOUtyZHJiV0F2U0ZIR0pWRWFzelV1YnF1ejNNNm1mZQkAzAgCAgAJAMwIAgIACQDMCAICAAkAzAgCAgAFA25pbAAKbHBUb2tlbklkcwkAzAgCAiw5ZGJwU3I4ZDE4cVdReG41ZkpKU1MxTExROENtU1o2Z1ltanVQUnpnM1JCTQkAzAgCAiw5TUtpeFJ0OXJOUnlhSkNUMnBleGJYa3V2cFpCZEpSRWRUVTM2YkdpdDhpdwkAzAgCAiw2YlpiUm1vdTdNN3dYQnVuTVhRblo0Um02Nkh4WkYzS2ZNRWlGd2szd21uQQUDbmlsAAtscFRva2VuQmFzZQkAzAgCAixBdHF2NTlFWXpqRkd1aXRLVm5NUms2SDhGdWtqb1Yza3RQb3JiRXlzMjVvbgkAzAgCAgVXQVZFUwkAzAgCAgVXQVZFUwUDbmlsAAtscFRva2VuUG9vbAkAzAgCCQEHQWRkcmVzcwEBGgFXvqZKKL0AmV6HkDvqiEurumOAsX9RSwQNCQDMCAIJAQdBZGRyZXNzAQEaAVca7HBuLiyXrgDVM25HbSMR/1KgAnA91asJAMwIAgkBB0FkZHJlc3MBARoBV3d/C10uHsD5Iu4ETQIKuwPrdpc7IIHrJgUDbmlsABBscFRva2VuQmFzZVNoYXJlCQDMCAIAgIenDgkAzAgCAIDaxAkJAMwIAgCA2sQJBQNuaWwADHd4THBUb2tlbklkcwkAzAgCAityWk1RNmczMUxyN3NQQWFBb1ljNFUyUEhDVmF1VHVLVVN6VWJKdFV5UFpOBQNuaWwADnd4THBVbmRlcmx5aW5nCQDMCAIJAMwIAgIsOXdjM0xYTkE0VEVCc1h5S3RvTEU5bXJiREQ3V01IWHZYckNqWnZhYkxBc2kJAMwIAgIsSEdnYWJUcVVTOFd0VkZVSnpmbXJURE1nRWNjSnVaTEJQaEZnUUZ4dm5zb1cFA25pbAUDbmlsABF3eF9yZXN0QWRkcmVzc1N0cgIjM1A4TW9QbnNhdXJvZmsxVnloc2RBRmtlUTZpanBKWVhDcFcAC3d4X3Jlc3REYXBwCQERQGV4dHJOYXRpdmUoMTA2MikBBRF3eF9yZXN0QWRkcmVzc1N0cgAMc3dvcFJlc3REYXBwCQERQGV4dHJOYXRpdmUoMTA2MikBAiMzUDU2ak5RekVDWG5yV3BuYmJTSkt3N0Vvb282ZmtVYU1QcAAPb3JhY2xlVG9sZXJhbmNlAOgHAA9zaHV0ZG93blRyaWdnZXIAuBcAC3JldmlzaW9uTnVtAgAAA1NFUAICX18BCGFzU3RyaW5nAQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACBlN0cmluZwQBcwUHJG1hdGNoMAUBcwkAAgECGGZhaWwgdG8gY2FzdCBpbnRvIFN0cmluZwEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFpBQckbWF0Y2gwBQFpCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AQ10cnlHZXRJbnRlZ2VyAQNrZXkEByRtYXRjaDAJAJoIAgUEdGhpcwUDa2V5AwkAAQIFByRtYXRjaDACA0ludAQBYgUHJG1hdGNoMAUBYgAAAQ1nZXRBc3NldEJ5dGVzAQphc3NldElkU3RyAwkAAAIFCmFzc2V0SWRTdHICBVdBVkVTBQR1bml0CQDZBAEFCmFzc2V0SWRTdHIADmRvcmFBZGRyZXNzU3RyAiMzUEtrb2pLZGQ2QkJ6VGYxUlhiUVZmVURyYU5GWFhIS3pRRgALZG9yYUFkZHJlc3MJARFAZXh0ck5hdGl2ZSgxMDYyKQEFDmRvcmFBZGRyZXNzU3RyAA14dG5Vc2RQcmljZVg2CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgULZG9yYUFkZHJlc3MCFiVzJXNfX3ByaWNlX19VU0ROLVVTRFQCJERPUkEgZG9lc24ndCBjb250YWluIFVTRE4vVVNEVCBwcmljZQENZ2V0VG9rZW5QcmljZQIIdG9rZW5OdW0Pd2F2ZXNVc2RQcmljZVg2BAp0b2tlbklkU3RyCQCRAwIFCHRva2VuSWRzBQh0b2tlbk51bQQHdG9rZW5JZAkA2QQBBQp0b2tlbklkU3RyAwkBAiE9AgkAzwgCBQdzdGFibGVzBQp0b2tlbklkU3RyBQR1bml0CQCUCgIAwIQ9AhJzdGFibGUgdG9rZW4gcHJpY2UEDXd4X1QxV2F2ZXNfbHAJAJEDAgUPdG9rZW5XWFdhdmVzTFBzBQh0b2tlbk51bQQLJHQwNTgzMzY1NDkDCQAAAgUNd3hfVDFXYXZlc19scAIACQCUCgIAAAAABAx3eFJlc3RSZXN1bHQJALUJAgkBCGFzU3RyaW5nAQkA/AcEBQt3eF9yZXN0RGFwcAIRcG9vbFN0YXRzUkVBRE9OTFkJAMwIAgUNd3hfVDFXYXZlc19scAUDbmlsBQNuaWwCAl9fBAskdDA2MDU3NjE0OQMJAJEDAgUQdG9rZW5Jc0Jhc2VBc3NldAUIdG9rZW5OdW0JAJQKAgABAAIJAJQKAgACAAEEDndhdmVzSW5QYWlyTnVtCAULJHQwNjA1NzYxNDkCXzEEDnRva2VuSW5QYWlyTnVtCAULJHQwNjA1NzYxNDkCXzIEEnd4X1QxV2F2ZXNfV0FWRVN4OAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDHd4UmVzdFJlc3VsdAUOd2F2ZXNJblBhaXJOdW0ED3d4X1QxV2F2ZXNfVDF4OAkAawMJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQx3eFJlc3RSZXN1bHQFDnRva2VuSW5QYWlyTnVtAIDC1y8JAJEDAgUNdG9rZW5EZWNpbWFscwUIdG9rZW5OdW0EF3d4X1QxV2F2ZXNfVDFVc2RQcmljZVg2CQBrAwUSd3hfVDFXYXZlc19XQVZFU3g4BQ93YXZlc1VzZFByaWNlWDYFD3d4X1QxV2F2ZXNfVDF4OAQRd3hfVDFXYXZlc19XZWlnaHQFD3d4X1QxV2F2ZXNfVDF4OAkAlAoCBRd3eF9UMVdhdmVzX1QxVXNkUHJpY2VYNgURd3hfVDFXYXZlc19XZWlnaHQEF3d4X1QxV2F2ZXNfVDFVc2RQcmljZVg2CAULJHQwNTgzMzY1NDkCXzEEEXd4X1QxV2F2ZXNfV2VpZ2h0CAULJHQwNTgzMzY1NDkCXzIEE3d4X1QxWHRuX0FkZHJlc3NTdHIJAJEDAgUPdG9rZW5XWFhUTlBvb2xzBQh0b2tlbk51bQQLJHQwNjYxMTcwNDIDCQAAAgUTd3hfVDFYdG5fQWRkcmVzc1N0cgIACQCUCgIAAAAABBB3eF9UMVh0bl9BZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBRN3eF9UMVh0bl9BZGRyZXNzU3RyBA53eF9UMVh0bl9YVE54NgkA8AcCBRB3eF9UMVh0bl9BZGRyZXNzBQV4dG5JZAQNd3hfVDFYdG5fVDF4OAkA8AcCBRB3eF9UMVh0bl9BZGRyZXNzBQd0b2tlbklkCQCUCgIJAGsDCQBoAgUOd3hfVDFYdG5fWFROeDYJAGkCCQCRAwIFDXRva2VuRGVjaW1hbHMFCHRva2VuTnVtAMCEPQUNeHRuVXNkUHJpY2VYNgUNd3hfVDFYdG5fVDF4OAUNd3hfVDFYdG5fVDF4OAQVd3hfVDFYdG5fVDFVc2RQcmljZVg2CAULJHQwNjYxMTcwNDICXzEED3d4X1QxWHRuX1dlaWdodAgFCyR0MDY2MTE3MDQyAl8yBBVzd29wX1QxWHRuX0FkZHJlc3NTdHIJAJEDAgUOdG9rZW5Td29wUG9vbHMFCHRva2VuTnVtBAskdDA3MTA1NzcyMwMJAAACBRVzd29wX1QxWHRuX0FkZHJlc3NTdHICAAkAlAoCAAAAAAQSc3dvcF9UMVh0bl9BZGRyZXNzCQERQGV4dHJOYXRpdmUoMTA2MikBBRVzd29wX1QxWHRuX0FkZHJlc3NTdHIEF3N3b3BfVDFYdG5fVDFYdG5QcmljZVg2CQEFYXNJbnQBCQD8BwQFDHN3b3BSZXN0RGFwcAIRY2FsY0dldEFtb3VudENQTU0JAMwIAgUVc3dvcF9UMVh0bl9BZGRyZXNzU3RyCQDMCAICIzNQODhxazFLekYxQktqRDdmQzdMak5WQUtNNGV6ZmY1V0U2CQDMCAIFCnRva2VuSWRTdHIJAMwIAgkAkQMCBQ10b2tlbkRlY2ltYWxzBQh0b2tlbk51bQUDbmlsBQNuaWwEF3N3b3BfVDFYdG5fVDFVc2RQcmljZVg2CQBrAwUXc3dvcF9UMVh0bl9UMVh0blByaWNlWDYFDXh0blVzZFByaWNlWDYAwIQ9BBFzd29wX1QxWHRuX1dlaWdodAkBEUBleHRyTmF0aXZlKDEwNTApAgUSc3dvcF9UMVh0bl9BZGRyZXNzAg9BX2Fzc2V0X2JhbGFuY2UJAJQKAgUXc3dvcF9UMVh0bl9UMVVzZFByaWNlWDYFEXN3b3BfVDFYdG5fV2VpZ2h0BBdzd29wX1QxWHRuX1QxVXNkUHJpY2VYNggFCyR0MDcxMDU3NzIzAl8xBBFzd29wX1QxWHRuX1dlaWdodAgFCyR0MDcxMDU3NzIzAl8yBAFXCQBkAgkAZAIFEXd4X1QxV2F2ZXNfV2VpZ2h0BQ93eF9UMVh0bl9XZWlnaHQFEXN3b3BfVDFYdG5fV2VpZ2h0BAxUMVVzZFByaWNlWDYJAGQCCQBkAgkAawMFF3d4X1QxV2F2ZXNfVDFVc2RQcmljZVg2BRF3eF9UMVdhdmVzX1dlaWdodAUBVwkAawMFFXd4X1QxWHRuX1QxVXNkUHJpY2VYNgUPd3hfVDFYdG5fV2VpZ2h0BQFXCQBrAwUXc3dvcF9UMVh0bl9UMVVzZFByaWNlWDYFEXN3b3BfVDFYdG5fV2VpZ2h0BQFXBAVkZWJ1ZwkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg1UMVVzZFByaWNlWDY9CQCkAwEFDFQxVXNkUHJpY2VYNgIZIHd4X1QxV2F2ZXNfVDFVc2RQcmljZVg2PQkApAMBBRd3eF9UMVdhdmVzX1QxVXNkUHJpY2VYNgIXIHd4X1QxWHRuX1QxVXNkUHJpY2VYNj0JAKQDAQUVd3hfVDFYdG5fVDFVc2RQcmljZVg2Ahkgc3dvcF9UMVh0bl9UMVVzZFByaWNlWDY9CQCkAwEFF3N3b3BfVDFYdG5fVDFVc2RQcmljZVg2CQCUCgIFDFQxVXNkUHJpY2VYNgUFZGVidWcAE2xhc3RVcGRhdGVkQmxvY2tLZXkCEGxhc3RVcGRhdGVkQmxvY2sAB24xNUxpc3QJAMwIAgABCQDMCAIAAQkAzAgCAAEJAMwIAgABCQDMCAIAAQkAzAgCAAEJAMwIAgABCQDMCAIAAQkAzAgCAAEJAMwIAgABCQDMCAIAAQkAzAgCAAEJAMwIAgABCQDMCAIAAQkAzAgCAAEFA25pbAEPZ2V0UHJpY2VEYXRhS2V5AgVibG9jawd0b2tlbklkCQCsAgIJAKwCAgkArAICAgZibG9ja18JAKQDAQUFYmxvY2sCAV8FB3Rva2VuSWQBDWdldFByaWNlVmFsdWUCB3Rva2VuSWQFYmxvY2sJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPb3JkZXJib29rT3JhY2xlCQEPZ2V0UHJpY2VEYXRhS2V5AgUFYmxvY2sFB3Rva2VuSWQAAAETZ2V0TGFzdFVwZGF0ZWRCbG9jawAEEGxhc3RVcGRhdGVkQmxvY2sJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQ9vcmRlcmJvb2tPcmFjbGUFE2xhc3RVcGRhdGVkQmxvY2tLZXkCIExhc3QgdXBkYXRlZCBibG9jayBrZXkgbm90IGZvdW5kAwkAZwIAAAUQbGFzdFVwZGF0ZWRCbG9jawkAAgECE0ludmFsaWQgYmxvY2sgdmFsdWUDCQBmAgkAZQIFBmhlaWdodAUQbGFzdFVwZGF0ZWRCbG9jawAKCQACAQIuVGhlIHByaWNlIGhhcyBub3QgYmVlbiB1cGRhdGVkIGZvciBhIGxvbmcgdGltZQUQbGFzdFVwZGF0ZWRCbG9jawEMZ2V0UHJpY2VMaXN0AgVhY2N1bQRuZXh0BAskdDA5MTY0OTIwNQUFYWNjdW0EBnJlc3VsdAgFCyR0MDkxNjQ5MjA1Al8xBAVibG9jawgFCyR0MDkxNjQ5MjA1Al8yBAd0b2tlbklkCAULJHQwOTE2NDkyMDUCXzMEA3N1bQgFCyR0MDkxNjQ5MjA1Al80BApwcmljZVZhbHVlCQENZ2V0UHJpY2VWYWx1ZQIFB3Rva2VuSWQFBWJsb2NrBAluZXh0QmxvY2sJAGUCBQVibG9jawUEbmV4dAMJAGYCBQpwcmljZVZhbHVlAAAJAJYKBAkAzQgCBQZyZXN1bHQFCnByaWNlVmFsdWUFCW5leHRCbG9jawUHdG9rZW5JZAkAZAIFA3N1bQUKcHJpY2VWYWx1ZQkAlgoEBQZyZXN1bHQFCW5leHRCbG9jawUHdG9rZW5JZAUDc3VtARBnZXRPcmRlcmJvb2tUd2FwAQp0b2tlbklkU3RyBANpbnYJAPwHBAUEdGhpcwISZ2V0T3JkZXJib29rVHdhcDE1CQDMCAIFCnRva2VuSWRTdHIJAMwIAgcFA25pbAUDbmlsAwkAAAIFA2ludgUDaW52BA5vcmRlcmJvb2tQcmljZQoAAUAFA2ludgMJAAECBQFAAg4oSW50LCBCb29sZWFuKQUBQAkAAgEJAKwCAgkAAwEFAUACIyBjb3VsZG4ndCBiZSBjYXN0IHRvIChJbnQsIEJvb2xlYW4pAwkAAAIFDm9yZGVyYm9va1ByaWNlBQ5vcmRlcmJvb2tQcmljZQUOb3JkZXJib29rUHJpY2UJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4JAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4IAWkBEmdldE9yZGVyYm9va1R3YXAxNQIHdG9rZW5JZAVkZWJ1ZwQQbGFzdFVwZGF0ZWRCbG9jawkBE2dldExhc3RVcGRhdGVkQmxvY2sABAV0dXBsZQoAAiRsBQduMTVMaXN0CgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEBQNuaWwFEGxhc3RVcGRhdGVkQmxvY2sFB3Rva2VuSWQAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEMZ2V0UHJpY2VMaXN0AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwQKcHJpY2VzTGlzdAgFBXR1cGxlAl8xBANzdW0IBQV0dXBsZQJfNAQHYXZlcmFnZQkAawMFA3N1bQDAhD0JAGsDCQCQAwEFCnByaWNlc0xpc3QAwIQ9AAEECGlzTG9ja2VkCQELdmFsdWVPckVsc2UCCQCbCAIFD29yZGVyYm9va09yYWNsZQkArAICBQd0b2tlbklkAgdfbG9ja2VkBwMFBWRlYnVnCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICCWF2ZXJhZ2U6IAkApAMBBQdhdmVyYWdlAgwsIGlzTG9ja2VkOiAJAKUDAQUIaXNMb2NrZWQCAiwgAg9wcmljZUxpc3RTaXplOiAJAKQDAQkAkAMBBQpwcmljZXNMaXN0AgcsIHN1bTogCQCkAwEFA3N1bQkAlAoCBQNuaWwJAJQKAgUHYXZlcmFnZQUIaXNMb2NrZWQBaQEUdXBkYXRlV3hMcFRva2VuUHJpY2UBCmFzc2V0SWRTdHIECndhdmVzUHJpY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFC2RvcmFBZGRyZXNzAhclcyVzX19wcmljZV9fV0FWRVMtVVNEVAQIdG9rZW5OdW0JAQV2YWx1ZQEJAM8IAgUMd3hMcFRva2VuSWRzBQphc3NldElkU3RyBAp1bmRlcmx5aW5nCQCRAwIFDnd4THBVbmRlcmx5aW5nBQh0b2tlbk51bQQQdW5kZXJseWluZzFQcmljZQMJAAACCQCRAwIFCnVuZGVybHlpbmcAAAIFV0FWRVMFCndhdmVzUHJpY2UDCQECIT0CCQDPCAIFB3N0YWJsZXMJAJEDAgUKdW5kZXJseWluZwAABQR1bml0AMCEPQgJAQ1nZXRUb2tlblByaWNlAgkBBXZhbHVlAQkAzwgCBQh0b2tlbklkcwkAkQMCBQp1bmRlcmx5aW5nAAAFCndhdmVzUHJpY2UCXzEEE3VuZGVybHlpbmcxRGVjaW1hbHMDCQAAAgkAkQMCBQp1bmRlcmx5aW5nAAACBVdBVkVTAAgJAQV2YWx1ZQEICQEFdmFsdWUBCQDsBwEJANkEAQkAkQMCBQp1bmRlcmx5aW5nAAAIZGVjaW1hbHMEEHVuZGVybHlpbmcyUHJpY2UDCQAAAgkAkQMCBQp1bmRlcmx5aW5nAAECBVdBVkVTBQp3YXZlc1ByaWNlAwkBAiE9AgkAzwgCBQdzdGFibGVzCQCRAwIFCnVuZGVybHlpbmcAAQUEdW5pdADAhD0ICQENZ2V0VG9rZW5QcmljZQIJAQV2YWx1ZQEJAM8IAgUIdG9rZW5JZHMJAJEDAgUKdW5kZXJseWluZwABBQp3YXZlc1ByaWNlAl8xBBN1bmRlcmx5aW5nMkRlY2ltYWxzAwkAAAIJAJEDAgUKdW5kZXJseWluZwABAgVXQVZFUwAICQEFdmFsdWUBCAkBBXZhbHVlAQkA7AcBCQDZBAEJAJEDAgUKdW5kZXJseWluZwABCGRlY2ltYWxzBBB1bmRlcmx5aW5nMVNjYWxlAwkAAAIFE3VuZGVybHlpbmcxRGVjaW1hbHMACAUGU2NhbGU4AMCEPQQQdW5kZXJseWluZzJTY2FsZQMJAAACBRN1bmRlcmx5aW5nMkRlY2ltYWxzAAgFBlNjYWxlOADAhD0EA2ludgoAAUAJAPwHBAULd3hfcmVzdERhcHACF3Bvb2xFdmFsdWF0ZUdldFJFQURPTkxZCQDMCAIFCmFzc2V0SWRTdHIJAMwIAgCAwtcvBQNuaWwFA25pbAMJAAECBQFAAgZTdHJpbmcFAUAJAAIBCQCsAgIJAAMBBQFAAhsgY291bGRuJ3QgYmUgY2FzdCB0byBTdHJpbmcDCQAAAgUDaW52BQNpbnYEBHZhbHMJALUJAgUDaW52AgJfXwQRdW5kZXJseWluZzFBbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQR2YWxzAAEEEXVuZGVybHlpbmcyQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUEdmFscwACBAp0b2tlblByaWNlCQBkAgkAawMFEHVuZGVybHlpbmcxUHJpY2UFEXVuZGVybHlpbmcxQW1vdW50BRB1bmRlcmx5aW5nMVNjYWxlCQBrAwUQdW5kZXJseWluZzJQcmljZQURdW5kZXJseWluZzJBbW91bnQFEHVuZGVybHlpbmcyU2NhbGUECGxhc3RUd2FwCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgUKYXNzZXRJZFN0cgIHX3R3YXA1QgQKbGFzdEhlaWdodAkBDXRyeUdldEludGVnZXIBCQCsAgIFCmFzc2V0SWRTdHICCl9sYXN0QmxvY2sDCQECIT0CCAUBaQxvcmlnaW5DYWxsZXIFDWJhY2tlbmRDYWxsZXIJAAIBAhphdmFpbGFibGUgZm9yIGJhY2tlbmQgb25seQMJAGYCAAIJAGUCBQZoZWlnaHQFCmxhc3RIZWlnaHQFA25pbAMDCQAAAgUKbGFzdEhlaWdodAAABgkAZgIJAGUCBQZoZWlnaHQFCmxhc3RIZWlnaHQAZAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgdfdHdhcDVCBQp0b2tlblByaWNlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICCl9sYXN0QmxvY2sFBmhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICC19sYXN0UHJpY2VzCQCkAwEFCnRva2VuUHJpY2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIKX3Jpc2tMZXZlbAABBQNuaWwECmxhc3RQcmljZXMJALUJAgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICBQphc3NldElkU3RyAgtfbGFzdFByaWNlcwIBLAQJbmV3UHJpY2VzCQDMCAIJAKQDAQUKdG9rZW5QcmljZQUKbGFzdFByaWNlcwoBCnN1bUhhbmRsZXICBWFjY3VtBG5leHQJAGQCBQVhY2N1bQkBDXBhcnNlSW50VmFsdWUBBQRuZXh0BAduZXdUd2FwCQBpAgoAAiRsBQluZXdQcmljZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnN1bUhhbmRsZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJAJADAQUJbmV3UHJpY2VzBAlwcmljZURpZmYJAGsDBQp0b2tlblByaWNlAJBOCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKbGFzdFByaWNlcwkAZQIJAJADAQUKbGFzdFByaWNlcwABBAtwcmljZURpZmZPawMJAGYCCQBkAgCQTgUPc2h1dGRvd25UcmlnZ2VyBQlwcmljZURpZmYJAGYCBQlwcmljZURpZmYJAGUCAJBOBQ9zaHV0ZG93blRyaWdnZXIHBAlyaXNrTGV2ZWwDBQtwcmljZURpZmZPawABAAIDCQBnAgAFCQCQAwEFCW5ld1ByaWNlcwQJdXBkUHJpY2VzCQC5CQIFCW5ld1ByaWNlcwIBLAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgdfdHdhcDVCBQduZXdUd2FwCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICCl9sYXN0QmxvY2sFBmhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICC19sYXN0UHJpY2VzBQl1cGRQcmljZXMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIKX3Jpc2tMZXZlbAUJcmlza0xldmVsBQNuaWwECXVwZFByaWNlcwkAuQkCCQDRCAIFCW5ld1ByaWNlcwkAZQIJAJADAQUJbmV3UHJpY2VzAAECASwJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIHX3R3YXA1QgUHbmV3VHdhcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgpfbGFzdEJsb2NrBQZoZWlnaHQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQphc3NldElkU3RyAgtfbGFzdFByaWNlcwUJdXBkUHJpY2VzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICCl9yaXNrTGV2ZWwFCXJpc2tMZXZlbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEnVwZGF0ZUxwVG9rZW5QcmljZQEKYXNzZXRJZFN0cgQKd2F2ZXNQcmljZQkBEUBleHRyTmF0aXZlKDEwNTApAgULZG9yYUFkZHJlc3MCFyVzJXNfX3ByaWNlX19XQVZFUy1VU0RUBAh0b2tlbk51bQkBBXZhbHVlAQkAzwgCBQpscFRva2VuSWRzBQphc3NldElkU3RyBAliYXNlSWRTdHIJAJEDAgULbHBUb2tlbkJhc2UFCHRva2VuTnVtBAliYXNlUHJpY2UDCQAAAgUJYmFzZUlkU3RyAgVXQVZFUwUKd2F2ZXNQcmljZQgJAQ1nZXRUb2tlblByaWNlAgkBBXZhbHVlAQkAzwgCBQh0b2tlbklkcwUJYmFzZUlkU3RyBQp3YXZlc1ByaWNlAl8xBAxiYXNlUXVhbnRpdHkJARFAZXh0ck5hdGl2ZSgxMDUwKQIJAJEDAgULbHBUb2tlblBvb2wFCHRva2VuTnVtCQCsAgIJAKwCAgIHZ2xvYmFsXwUJYmFzZUlkU3RyAghfYmFsYW5jZQQNdG9rZW5RdWFudGl0eQgJAQV2YWx1ZQEJAOwHAQkBBXZhbHVlAQkBDWdldEFzc2V0Qnl0ZXMBBQphc3NldElkU3RyCHF1YW50aXR5BAp0b2tlblByaWNlCQBrAwkAawMJAGsDBQliYXNlUHJpY2UFDGJhc2VRdWFudGl0eQDAhD0FBlNjYWxlOAkAkQMCBRBscFRva2VuQmFzZVNoYXJlBQh0b2tlbk51bQDAhD0FDXRva2VuUXVhbnRpdHkECGxhc3RUd2FwCQENdHJ5R2V0SW50ZWdlcgEJAKwCAgUKYXNzZXRJZFN0cgIHX3R3YXA1QgQKbGFzdEhlaWdodAkBDXRyeUdldEludGVnZXIBCQCsAgIFCmFzc2V0SWRTdHICCl9sYXN0QmxvY2sDCQECIT0CCAUBaQxvcmlnaW5DYWxsZXIFDWJhY2tlbmRDYWxsZXIJAAIBAhphdmFpbGFibGUgZm9yIGJhY2tlbmQgb25seQMJAGYCAAIJAGUCBQZoZWlnaHQFCmxhc3RIZWlnaHQFA25pbAMDCQAAAgUKbGFzdEhlaWdodAAABgkAZgIJAGUCBQZoZWlnaHQFCmxhc3RIZWlnaHQAZAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgdfdHdhcDVCBQp0b2tlblByaWNlCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICCl9sYXN0QmxvY2sFBmhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICC19sYXN0UHJpY2VzCQCkAwEFCnRva2VuUHJpY2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIKX3Jpc2tMZXZlbAABBQNuaWwECmxhc3RQcmljZXMJALUJAgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICBQphc3NldElkU3RyAgtfbGFzdFByaWNlcwIBLAQJbmV3UHJpY2VzCQDMCAIJAKQDAQUKdG9rZW5QcmljZQUKbGFzdFByaWNlcwoBCnN1bUhhbmRsZXICBWFjY3VtBG5leHQJAGQCBQVhY2N1bQkBDXBhcnNlSW50VmFsdWUBBQRuZXh0BAduZXdUd2FwCQBpAgoAAiRsBQluZXdQcmljZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnN1bUhhbmRsZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJAJADAQUJbmV3UHJpY2VzBAlwcmljZURpZmYJAGsDBQp0b2tlblByaWNlAJBOCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKbGFzdFByaWNlcwkAZQIJAJADAQUKbGFzdFByaWNlcwABBAtwcmljZURpZmZPawMJAGYCCQBkAgCQTgUPc2h1dGRvd25UcmlnZ2VyBQlwcmljZURpZmYJAGYCBQlwcmljZURpZmYJAGUCAJBOBQ9zaHV0ZG93blRyaWdnZXIHBAlyaXNrTGV2ZWwDBQtwcmljZURpZmZPawABAAIDCQBnAgAFCQCQAwEFCW5ld1ByaWNlcwQJdXBkUHJpY2VzCQC5CQIFCW5ld1ByaWNlcwIBLAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgdfdHdhcDVCBQduZXdUd2FwCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICCl9sYXN0QmxvY2sFBmhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICC19sYXN0UHJpY2VzBQl1cGRQcmljZXMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIKX3Jpc2tMZXZlbAUJcmlza0xldmVsBQNuaWwECXVwZFByaWNlcwkAuQkCCQDRCAIFCW5ld1ByaWNlcwkAZQIJAJADAQUJbmV3UHJpY2VzAAECASwJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIHX3R3YXA1QgUHbmV3VHdhcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgpfbGFzdEJsb2NrBQZoZWlnaHQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQphc3NldElkU3RyAgtfbGFzdFByaWNlcwUJdXBkUHJpY2VzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICCl9yaXNrTGV2ZWwFCXJpc2tMZXZlbAUDbmlsAWkBEHVwZGF0ZVRva2VuUHJpY2UBCmFzc2V0SWRTdHIECndhdmVzUHJpY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFC2RvcmFBZGRyZXNzAhclcyVzX19wcmljZV9fV0FWRVMtVVNEVAQKdG9rZW5QcmljZQMJAAACBQphc3NldElkU3RyAgVXQVZFUwUKd2F2ZXNQcmljZQMJAAACBQphc3NldElkU3RyBQh4dG5JZFN0cgUNeHRuVXNkUHJpY2VYNgQMcHJpY2VJblBvb2xzCAkBDWdldFRva2VuUHJpY2UCCQEFdmFsdWUBCQDPCAIFCHRva2VuSWRzBQphc3NldElkU3RyBQp3YXZlc1ByaWNlAl8xAwkAAAIFCmFzc2V0SWRTdHIFBmV0aFN0cgQIZXRoUHJpY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFC2RvcmFBZGRyZXNzAhUlcyVzX19wcmljZV9fRVRILVVTRFQEBGNvbXAJAGsDBQxwcmljZUluUG9vbHMAkE4FCGV0aFByaWNlAwMJAGYCBQRjb21wCQBlAgCQTgUPb3JhY2xlVG9sZXJhbmNlCQBmAgkAZAIAkE4FD29yYWNsZVRvbGVyYW5jZQUEY29tcAcFDHByaWNlSW5Qb29scwkAAgECMmludGVybmFsIEVUSCBwcmljZSBkb2Vzbid0IG1hdGNoIHdpdGggZ2xvYmFsIHByaWNlAwkBAiE9AgkAzwgCBQdzdGFibGVzBQphc3NldElkU3RyBQR1bml0AMCEPQUMcHJpY2VJblBvb2xzBAhsYXN0VHdhcAkBDXRyeUdldEludGVnZXIBCQCsAgIFCmFzc2V0SWRTdHICB190d2FwNUIECmxhc3RIZWlnaHQJAQ10cnlHZXRJbnRlZ2VyAQkArAICBQphc3NldElkU3RyAgpfbGFzdEJsb2NrAwkBAiE9AggFAWkMb3JpZ2luQ2FsbGVyBQ1iYWNrZW5kQ2FsbGVyCQACAQIaYXZhaWxhYmxlIGZvciBiYWNrZW5kIG9ubHkDCQBmAgACCQBlAgUGaGVpZ2h0BQpsYXN0SGVpZ2h0BQNuaWwDAwkAAAIFCmxhc3RIZWlnaHQAAAYJAGYCCQBlAgUGaGVpZ2h0BQpsYXN0SGVpZ2h0AB4JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIHX3R3YXA1QgUKdG9rZW5QcmljZQkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgpfbGFzdEJsb2NrBQZoZWlnaHQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQphc3NldElkU3RyAgtfbGFzdFByaWNlcwkApAMBBQp0b2tlblByaWNlBQNuaWwECmxhc3RQcmljZXMJALUJAgkBEUBleHRyTmF0aXZlKDEwNTgpAQkArAICBQphc3NldElkU3RyAgtfbGFzdFByaWNlcwIBLAQJbmV3UHJpY2VzCQDMCAIJAKQDAQUKdG9rZW5QcmljZQUKbGFzdFByaWNlcwoBCnN1bUhhbmRsZXICBWFjY3VtBG5leHQJAGQCBQVhY2N1bQkBDXBhcnNlSW50VmFsdWUBBQRuZXh0BAduZXdUd2FwCQBpAgoAAiRsBQluZXdQcmljZXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCnN1bUhhbmRsZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYJAJADAQUJbmV3UHJpY2VzBBNvcmRlcmJvb2tUd2FwUmVzdWx0CQEQZ2V0T3JkZXJib29rVHdhcAEFCmFzc2V0SWRTdHIDCQAAAgUTb3JkZXJib29rVHdhcFJlc3VsdAUTb3JkZXJib29rVHdhcFJlc3VsdAQNJHQwMTgwNDcxODEwNQUTb3JkZXJib29rVHdhcFJlc3VsdAQNb3JkZXJib29rVHdhcAgFDSR0MDE4MDQ3MTgxMDUCXzEED29yZGVyYm9va0xvY2tlZAgFDSR0MDE4MDQ3MTgxMDUCXzIED3R3YXBzQ29tcGFyaXNvbgMJAQIhPQIFDW9yZGVyYm9va1R3YXAAAAkAawMFB25ld1R3YXAAkE4FDW9yZGVyYm9va1R3YXAJAAIBCQCsAgICGm9yZGVyYm9vayByZXN1bHQgemVybyBmb3IgBQphc3NldElkU3RyBAx0d2Fwc1NpbWlsYXIDCQBmAgUPdHdhcHNDb21wYXJpc29uCQBlAgCQTgUPb3JhY2xlVG9sZXJhbmNlCQBmAgkAZAIAkE4FD29yYWNsZVRvbGVyYW5jZQUPdHdhcHNDb21wYXJpc29uBwQJcHJpY2VEaWZmCQBrAwUKdG9rZW5QcmljZQCQTgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCmxhc3RQcmljZXMJAGUCCQCQAwEFCmxhc3RQcmljZXMAAQQLcHJpY2VEaWZmT2sDCQBmAgkAZAIAkE4FD3NodXRkb3duVHJpZ2dlcgUJcHJpY2VEaWZmCQBmAgUJcHJpY2VEaWZmCQBlAgCQTgUPc2h1dGRvd25UcmlnZ2VyBwQJcmlza0xldmVsCQBkAgkAZAIDBQx0d2Fwc1NpbWlsYXIAAQACAwUPb3JkZXJib29rTG9ja2VkAAEAAAMJAQEhAQULcHJpY2VEaWZmT2sAAQAAAwkBASEBBQx0d2Fwc1NpbWlsYXIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIKX3Jpc2tMZXZlbAUJcmlza0xldmVsBQNuaWwDCQBnAgAFCQCQAwEFCW5ld1ByaWNlcwQJdXBkUHJpY2VzCQC5CQIFCW5ld1ByaWNlcwIBLAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgdfdHdhcDVCBQduZXdUd2FwCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICCl9sYXN0QmxvY2sFBmhlaWdodAkAzAgCCQELU3RyaW5nRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICC19sYXN0UHJpY2VzBQl1cGRQcmljZXMJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIKX3Jpc2tMZXZlbAUJcmlza0xldmVsBQNuaWwECXVwZFByaWNlcwkAuQkCCQDRCAIFCW5ld1ByaWNlcwkAZQIJAJADAQUJbmV3UHJpY2VzAAECASwJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgUKYXNzZXRJZFN0cgIHX3R3YXA1QgUHbmV3VHdhcAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICBQphc3NldElkU3RyAgpfbGFzdEJsb2NrBQZoZWlnaHQJAMwIAgkBC1N0cmluZ0VudHJ5AgkArAICBQphc3NldElkU3RyAgtfbGFzdFByaWNlcwUJdXBkUHJpY2VzCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIFCmFzc2V0SWRTdHICCl9yaXNrTGV2ZWwFCXJpc2tMZXZlbAUDbmlsCQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBDHVwZGF0ZVRva2VucwADCQECIT0CCAUBaQxvcmlnaW5DYWxsZXIFDWJhY2tlbmRDYWxsZXIJAAIBAhphdmFpbGFibGUgZm9yIGJhY2tlbmQgb25seQQCaTEJAPwHBAUEdGhpcwIQdXBkYXRlVG9rZW5QcmljZQkAzAgCAgVXQVZFUwUDbmlsBQNuaWwDCQAAAgUCaTEFAmkxBAJpMgkA/AcEBQR0aGlzAhB1cGRhdGVUb2tlblByaWNlCQDMCAIFCHh0bklkU3RyBQNuaWwFA25pbAMJAAACBQJpMgUCaTIKAQVjYWxsdQIFYWNjdW0EbmV4dAQCaTMJAPwHBAUEdGhpcwIQdXBkYXRlVG9rZW5QcmljZQkAzAgCBQRuZXh0BQNuaWwFA25pbAMJAAACBQJpMwUCaTMFA25pbAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgQDcmVzCgACJGwFCHRva2VuSWRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVjYWxsdQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMjAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUAwkAAAIFA3JlcwUDcmVzBAJpNAkA/AcEBQR0aGlzAhJ1cGRhdGVMcFRva2VuUHJpY2UJAMwIAgkAkQMCBQpscFRva2VuSWRzAAAFA25pbAUDbmlsAwkAAAIFAmk0BQJpNAQCaTUJAPwHBAUEdGhpcwISdXBkYXRlTHBUb2tlblByaWNlCQDMCAIJAJEDAgUKbHBUb2tlbklkcwABBQNuaWwFA25pbAMJAAACBQJpNQUCaTUEAmk2CQD8BwQFBHRoaXMCEnVwZGF0ZUxwVG9rZW5QcmljZQkAzAgCCQCRAwIFCmxwVG9rZW5JZHMAAgUDbmlsBQNuaWwDCQAAAgUCaTYFAmk2BAJpNwkA/AcEBQR0aGlzAhR1cGRhdGVXeExwVG9rZW5QcmljZQkAzAgCCQCRAwIFDHd4THBUb2tlbklkcwAABQNuaWwFA25pbAMJAAACBQJpNwUCaTcFA3JlcwkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQ1pbml0TmV3TWFzdGVyAQZtYXN0ZXIECWFkZHJlc3NPSwQHJG1hdGNoMAkApggBBQZtYXN0ZXIDCQABAgUHJG1hdGNoMAIHQWRkcmVzcwQBYQUHJG1hdGNoMAYHAwkBASEBBQlhZGRyZXNzT0sJAAIBCQCsAgICEmluY29ycmVjdCBhZGRyZXNzIAUGbWFzdGVyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIcYXZhaWxhYmxlIGZvciBzZWxmIGNhbGwgb25seQkAzAgCCQELU3RyaW5nRW50cnkCAg92ZXJpZmllcl9tYXN0ZXIFBm1hc3RlcgUDbmlsAWkBEHJlcXVlc3ROZXdNYXN0ZXIBCW5ld01hc3RlcgQJYWRkcmVzc09LBAckbWF0Y2gwCQCmCAEFCW5ld01hc3RlcgMJAAECBQckbWF0Y2gwAgdBZGRyZXNzBAFhBQckbWF0Y2gwBgcDCQEBIQEFCWFkZHJlc3NPSwkAAgEJAKwCAgISaW5jb3JyZWN0IGFkZHJlc3MgBQluZXdNYXN0ZXIDCQAAAgkAzwgCBQlzZW50aW5lbHMIBQFpBmNhbGxlcgUEdW5pdAkAAgECDndoaXRlbGlzdCBvbmx5CQDMCAIJAQtTdHJpbmdFbnRyeQICEnZlcmlmaWVyX25ld01hc3RlcgUJbmV3TWFzdGVyCQDMCAIJAQxJbnRlZ2VyRW50cnkCAh92ZXJpZmllcl9uZXdNYXN0ZXJFbGlnaWJsZUFmdGVyCQBkAgUGaGVpZ2h0AJBOBQNuaWwBaQERYWN0aXZhdGVOZXdNYXN0ZXIABA5lbGlnaWJsZUhlaWdodAkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwIfdmVyaWZpZXJfbmV3TWFzdGVyRWxpZ2libGVBZnRlcgQJbmV3TWFzdGVyCQERQGV4dHJOYXRpdmUoMTA1MykCBQR0aGlzAhJ2ZXJpZmllcl9uZXdNYXN0ZXIDCQAAAgkAzwgCBQlzZW50aW5lbHMIBQFpBmNhbGxlcgUEdW5pdAkAAgECDndoaXRlbGlzdCBvbmx5AwkAZgIFDmVsaWdpYmxlSGVpZ2h0BQZoZWlnaHQJAAIBAiJuZXcgbWFzdGVyIGNhbm5vdCBiZSBhY3RpdmF0ZWQgeWV0CQDMCAIJAQtEZWxldGVFbnRyeQECEnZlcmlmaWVyX25ld01hc3RlcgkAzAgCCQELRGVsZXRlRW50cnkBAh92ZXJpZmllcl9uZXdNYXN0ZXJFbGlnaWJsZUFmdGVyCQDMCAIJAQtTdHJpbmdFbnRyeQICD3ZlcmlmaWVyX21hc3RlcgUJbmV3TWFzdGVyBQNuaWwBAnR4AQZ2ZXJpZnkABA1tYXN0ZXJBZGRyZXNzCQCiCAECD3ZlcmlmaWVyX21hc3RlcgQQYXBwcm92ZWRCeU1hc3RlcgQHJG1hdGNoMAUNbWFzdGVyQWRkcmVzcwMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXgFByRtYXRjaDAEByRtYXRjaDEJAJoIAgkBEUBleHRyTmF0aXZlKDEwNjIpAQUBeAkArAICAgthcHByb3ZlZFR4XwkA2AQBCAUCdHgCaWQDCQABAgUHJG1hdGNoMQIDSW50BAF5BQckbWF0Y2gxBQF5AAAAAQMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXkJAGYCBRBhcHByb3ZlZEJ5TWFzdGVyAAAH9qqe3A==",
    "height": 3906284,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 96vYVL7hP6bZe9hLB1g8eZd5vPqN2j4i73e2gApou5DF
Next: GvRdpbYnP1TfovLmyVRRxb5b29ZvErt7KyCYq9tPwZgm

Diff: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 - let reserveFundAddress = Address(base58'3P4kBiU4wr2yV1S5gMfu3MdkVvy7kxXHsKe')
4 + let Scale8 = 100000000
5 5  
6 - let reserveFund = 20
6 + let sentinels = [Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'), Address(base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o'), Address(base58'3P8auNWJkxxByyJtwErFXaxiXcGM45qQ1hA'), Address(base58'3P8qVX189qpoTJZQQQdKS9endHK5sxWsvrd')]
7 7  
8 - let oracleAddress = Address(base58'3P8d1E1BLKoD52y3bQJ1bDTd2TD1gpaLn9t')
8 + let backendCaller = Address(base58'3PLGH6sG6ND59GU6gFXHKQRuL5bdpWFs6U6')
9 9  
10 - let aggregatorAddress = Address(base58'3PGFHzVGT4NTigwCKP1NcwoXkodVZwvBuuU')
10 + let orderbookOracle = Address(base58'3PPXVKjN6nRMzXeegcYhfiic96pd2c98Ekm')
11 11  
12 - let wxStakingAddress = Address(base58'3PDDRRS5gKyDQRpJskzWTdxREHGu1FNpdwg')
12 + let xtnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
13 13  
14 - let shutdownWhitelist = [base58'3PBTPFGaKL7qEdj9Tz1QUqbvJUcPNu934j4', base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL', base58'3PAxdDSmN758L5SHSGRC5apEtQE2aApZotG', base58'3PJKmXoHJvVeQXjSJdhtkUcFDtdiQqMbUTD', base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o', base58'3PHbdpaKzz8EiAngGHaFu2hVuNCdsC67qh3', base58'3P6Ksahs71SiKQgQ4qaZuFAVhqncdi2nvJQ']
14 + let xtnIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
15 15  
16 - func verifyLiquidatorRights (address) = !(if (if ((address != Address(base58'3PCqdm1mAoQqR46oZotFanmqb5CLUvrKEo2')))
17 -     then (address != Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'))
18 -     else false)
19 -     then (address != Address(base58'3PHbdpaKzz8EiAngGHaFu2hVuNCdsC67qh3'))
20 -     else false)
16 + let ethStr = "3VuV5WTmDz47Dmdn3QpcYjzbSdipjQE4JMdNe1xZpX13"
21 17  
18 + let stables = ["9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi", "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"]
22 19  
23 - func getRateCurve (assetIdStr) = match assetIdStr {
20 + let tokenIds = ["6nSpVyNH7yM69eg446wrQR94ipbbcmZMU1ENPwanC97g", "Ehie5xYpeN8op1Cctc6aGUrqx8jq3jtf1DSjXDbfm7aT", "4LHHvYGNKJUg5hj65aGD5vgScvCBmLpdRFtjokvCjSL8", "C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS", "34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ", "6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ", "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS", "Ajso6nTTjptu2UHLx6hfSXVtHFtRBJCkKYd5SAyj7zf5", "DSbbhLsSTeDg5Lsiufk2Aneh3DjVqJuPr2M9uU1gwy5p", "Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on", "2thsACuHmzDMuNezPM32wg9a3BwUzBWDeSKakgz3cw21", "YiNbofFzC17jEHHCMwrRcpy9MrrjabMMLZxg8g5xmf7", "8t4DPWTwPzpatHA9AkTxWAB47THnYzBsDnoY7fQqbG91", "At8D6NFFpheCbvKVnjVoeLL84Eo8NZn6ovManxfLaFWL", "6phK22ztGBW127gUFmdMEHKB3CVd6ZhWox2WtwJkbqTq", "3VuV5WTmDz47Dmdn3QpcYjzbSdipjQE4JMdNe1xZpX13", "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi"]
21 + 
22 + let tokenIsBaseAsset = [false, false, false, false, true, true, false, false, false, false, false, false, false, false, true, false, true, true]
23 + 
24 + let tokenDecimals = [1000000, 100000000, 100000000, 100000000, 1000000, 1000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 1000000, 1000000, 100000000, 1000000, 1000000]
25 + 
26 + let tokenWXWavesLPs = ["DZeA7RbVab98r61hVH5zcFZXwNALPJGgq1eyHandsKKW", "72E4MMFHngsixqAkNZCRJMLTmgAP9nufdsXexnS5qxVx", "FTTJnB6xG4CKZEJMgsgqjmgbzcyH8ya3tV8LQP2GCDs7", "3UnytNnkd48fHofHPBp59BkpZA1uMSJ8PdhWUCuerics", "ByJtVuYi58CtdjtasDuTqtgev8qWkdJybF7rY1xosmhE", "BoXuf9ewJSE1UMrKibZmigzC6tBzv8RFTeZmofEos2ZJ", "7G687ui3m59oAd6qkyni2vt77bHF4bbA6xcPfDo3uiTu", "EMsZpqcT8NuMYZCEPHzvrhQCQKhfXjdeekZvcWpHsNvh", "E3YhURNsCmjUaYNigH6AayLxbh9u81uVGU3ZvHKznY5v", "BiSzFe8nSL78oZaebfoin5vBZ5Pze6d7kaeijLqr5xZe", "AKQsEQoeinKRFtdx6rhKWcpkAMu6cbDLdtSWnR8tpBCq", "DjgwW4CMJEfpzj7SLFFPiCqf1zfmAgf1MD5gAS8SjKt4", "", "F3s92VRdppEtLVAP697CTM6AzZJECRcoMx5kj2FkGv4M", "6iMB6LKSrgv9waEvEnN6Ydyx7dfxPnGcTw8318WVm5bR", "E6MUGSUieSsq6QiJcbp6REdQXyjp6uPWLitnp9Gdtsuh", "6KWpnpLk6GNh5HG9ct9pNDCYFWJBoAAshZsp4D8jcFpV", ""]
27 + 
28 + let tokenWXXTNPools = ["", "", "", "3P3Y38zymCHoTM6qcE9JcEA8rhaGTQbVMgu", "", "", "3P615yXeQ9Qu4qBM1QGimGzixyMS5W4Ktug", "3PEkD5LuHGWhUfgBW1owZFxVydYoWjV6Jia", "3P5HjPowgipiVB3UvXphDiPvKs424WC9xQw", "3PCENpEKe8atwELZ7oCSmcdEfcRuKTrUx99", "", "", "3PH832eKnw67PFvJfUg9Knz6BHM87QvjMeL", "", "3PGcYzoUfQEQkhRgrBqmG5Wpc7A1ncFvRtM", "", "", ""]
29 + 
30 + let tokenSwopPools = ["3P2V63Xd6BviDkeMzxhUw2SJyojByRz8a8m", "3P27S9V36kw2McjWRZ37AxTx8iwkd7HXw6W", "3P6DLdJTP2EySq9MFdJu6beUevrQd2sVVBh", "", "", "", "3PBHyEwmERR1CEkrTNbPj2bgyisTfPRqfee", "3PDSXwwA2xAtmxeo2bebDP3AA5ynZ2Krgnw", "3PJ48P3p2wvWUjgQaQiZ2cFbr8qmxMokBGd", "3PKi4G3VX2k42ZSmNNrmvgdDH7JzRaUhY7R", "", "", "3PCwvns2dnmobD6Z4cR86v98s7LgMZYygEy", "3PLp9KrdrbWAvSFHGJVEaszUubquz3M6mfe", "", "", "", ""]
31 + 
32 + let lpTokenIds = ["9dbpSr8d18qWQxn5fJJSS1LLQ8CmSZ6gYmjuPRzg3RBM", "9MKixRt9rNRyaJCT2pexbXkuvpZBdJREdTU36bGit8iw", "6bZbRmou7M7wXBunMXQnZ4Rm66HxZF3KfMEiFwk3wmnA"]
33 + 
34 + let lpTokenBase = ["Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on", "WAVES", "WAVES"]
35 + 
36 + let lpTokenPool = [Address(base58'3PKJxKhn9MrzcvZv689bUpZgh4rurEgoKC8'), Address(base58'3P4PFYKHyxitgwVb4WVWEcdH7ZsuR4GgcXC'), Address(base58'3PCpjLGo4wDuv23kjmGF6mHs86Bf3soYvAq')]
37 + 
38 + let lpTokenBaseShare = [30000000, 20000000, 20000000]
39 + 
40 + let wxLpTokenIds = ["rZMQ6g31Lr7sPAaAoYc4U2PHCVauTuKUSzUbJtUyPZN"]
41 + 
42 + let wxLpUnderlying = [["9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi", "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"]]
43 + 
44 + let wx_restAddressStr = "3P8MoPnsaurofk1VyhsdAFkeQ6ijpJYXCpW"
45 + 
46 + let wx_restDapp = addressFromStringValue(wx_restAddressStr)
47 + 
48 + let swopRestDapp = addressFromStringValue("3P56jNQzECXnrWpnbbSJKw7Eooo6fkUaMPp")
49 + 
50 + let oracleTolerance = 1000
51 + 
52 + let shutdownTrigger = 3000
53 + 
54 + let revisionNum = ""
55 + 
56 + let SEP = "__"
57 + 
58 + func asString (v) = match v {
59 +     case s: String => 
60 +         s
24 61      case _ => 
25 -         $Tuple4(20000000, 100000000, 60000000, 400000000)
62 +         throw("fail to cast into String")
26 63  }
27 64  
28 65  
29 - let sentinels = [Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'), Address(base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o'), Address(base58'3P8auNWJkxxByyJtwErFXaxiXcGM45qQ1hA'), Address(base58'3P8qVX189qpoTJZQQQdKS9endHK5sxWsvrd')]
30 - 
31 - let Scale8 = 100000000
32 - 
33 - let Scale10 = 10000000000
34 - 
35 - let Scale16 = (Scale8 * Scale8)
36 - 
37 - let dayBlocks = 1440
38 - 
39 - func liIntToStr (li) = {
40 -     func f (accum,next) =     ((accum + toString(next)) + ",")
41 - 
42 -     let $l = li
43 -     let $s = size($l)
44 -     let $acc0 = ""
45 -     func $f0_1 ($a,$i) =     if (($i >= $s))
46 -         then $a
47 -         else f($a, $l[$i])
48 - 
49 -     func $f0_2 ($a,$i) =     if (($i >= $s))
50 -         then $a
51 -         else throw("List size exceeds 12")
52 - 
53 -     $f0_2($f0_1($f0_1($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), 11), 12)
54 -     }
66 + func asInt (v) = match v {
67 +     case i: Int => 
68 +         i
69 +     case _ => 
70 +         throw("fail to cast into Int")
71 + }
55 72  
56 73  
57 74  func tryGetInteger (key) = match getInteger(this, key) {
62 79  }
63 80  
64 81  
65 - func tryGetBoolean (key) = match getBoolean(this, key) {
66 -     case b: Boolean => 
67 -         b
68 -     case _ => 
69 -         false
70 - }
71 - 
72 - 
73 - func tryGetString (key) = match getString(this, key) {
74 -     case b: String => 
75 -         b
76 -     case _ => 
77 -         ""
78 - }
79 - 
80 - 
81 - func tryGetBinary (key) = match getBinary(this, key) {
82 -     case b: ByteVector => 
83 -         b
84 -     case _ => 
85 -         base58''
86 - }
87 - 
88 - 
89 - func getAssetString (assetId) = match assetId {
90 -     case b: ByteVector => 
91 -         toBase58String(b)
92 -     case _ => 
93 -         "WAVES"
94 - }
95 - 
96 - 
97 82  func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
98 83      then unit
99 84      else fromBase58String(assetIdStr)
100 85  
101 86  
102 - func getBalance (assetIdStr) = if ((assetIdStr == "WAVES"))
103 -     then wavesBalance(this).available
104 -     else assetBalance(this, fromBase58String(assetIdStr))
87 + let doraAddressStr = "3PKkojKdd6BBzTf1RXbQVfUDraNFXXHKzQF"
105 88  
89 + let doraAddress = addressFromStringValue(doraAddressStr)
106 90  
107 - func getMarketAssets () = split(tryGetString("setup_tokens"), ",")
91 + let xtnUsdPriceX6 = valueOrErrorMessage(getInteger(doraAddress, "%s%s__price__USDN-USDT"), "DORA doesn't contain USDN/USDT price")
108 92  
109 - 
110 - func getAssetsMaxSupply () = {
111 -     let s = tryGetString("setup_maxSupply")
112 -     if ((s == ""))
113 -         then [-1, -1, -1, -1, -1, -1, -1]
114 -         else split(s, ",")
93 + func getTokenPrice (tokenNum,wavesUsdPriceX6) = {
94 +     let tokenIdStr = tokenIds[tokenNum]
95 +     let tokenId = fromBase58String(tokenIdStr)
96 +     if ((indexOf(stables, tokenIdStr) != unit))
97 +         then $Tuple2(1000000, "stable token price")
98 +         else {
99 +             let wx_T1Waves_lp = tokenWXWavesLPs[tokenNum]
100 +             let $t058336549 = if ((wx_T1Waves_lp == ""))
101 +                 then $Tuple2(0, 0)
102 +                 else {
103 +                     let wxRestResult = split(asString(invoke(wx_restDapp, "poolStatsREADONLY", [wx_T1Waves_lp], nil)), "__")
104 +                     let $t060576149 = if (tokenIsBaseAsset[tokenNum])
105 +                         then $Tuple2(1, 2)
106 +                         else $Tuple2(2, 1)
107 +                     let wavesInPairNum = $t060576149._1
108 +                     let tokenInPairNum = $t060576149._2
109 +                     let wx_T1Waves_WAVESx8 = parseIntValue(wxRestResult[wavesInPairNum])
110 +                     let wx_T1Waves_T1x8 = fraction(parseIntValue(wxRestResult[tokenInPairNum]), 100000000, tokenDecimals[tokenNum])
111 +                     let wx_T1Waves_T1UsdPriceX6 = fraction(wx_T1Waves_WAVESx8, wavesUsdPriceX6, wx_T1Waves_T1x8)
112 +                     let wx_T1Waves_Weight = wx_T1Waves_T1x8
113 +                     $Tuple2(wx_T1Waves_T1UsdPriceX6, wx_T1Waves_Weight)
114 +                     }
115 +             let wx_T1Waves_T1UsdPriceX6 = $t058336549._1
116 +             let wx_T1Waves_Weight = $t058336549._2
117 +             let wx_T1Xtn_AddressStr = tokenWXXTNPools[tokenNum]
118 +             let $t066117042 = if ((wx_T1Xtn_AddressStr == ""))
119 +                 then $Tuple2(0, 0)
120 +                 else {
121 +                     let wx_T1Xtn_Address = addressFromStringValue(wx_T1Xtn_AddressStr)
122 +                     let wx_T1Xtn_XTNx6 = assetBalance(wx_T1Xtn_Address, xtnId)
123 +                     let wx_T1Xtn_T1x8 = assetBalance(wx_T1Xtn_Address, tokenId)
124 +                     $Tuple2(fraction((wx_T1Xtn_XTNx6 * (tokenDecimals[tokenNum] / 1000000)), xtnUsdPriceX6, wx_T1Xtn_T1x8), wx_T1Xtn_T1x8)
125 +                     }
126 +             let wx_T1Xtn_T1UsdPriceX6 = $t066117042._1
127 +             let wx_T1Xtn_Weight = $t066117042._2
128 +             let swop_T1Xtn_AddressStr = tokenSwopPools[tokenNum]
129 +             let $t071057723 = if ((swop_T1Xtn_AddressStr == ""))
130 +                 then $Tuple2(0, 0)
131 +                 else {
132 +                     let swop_T1Xtn_Address = addressFromStringValue(swop_T1Xtn_AddressStr)
133 +                     let swop_T1Xtn_T1XtnPriceX6 = asInt(invoke(swopRestDapp, "calcGetAmountCPMM", [swop_T1Xtn_AddressStr, "3P88qk1KzF1BKjD7fC7LjNVAKM4ezff5WE6", tokenIdStr, tokenDecimals[tokenNum]], nil))
134 +                     let swop_T1Xtn_T1UsdPriceX6 = fraction(swop_T1Xtn_T1XtnPriceX6, xtnUsdPriceX6, 1000000)
135 +                     let swop_T1Xtn_Weight = getIntegerValue(swop_T1Xtn_Address, "A_asset_balance")
136 +                     $Tuple2(swop_T1Xtn_T1UsdPriceX6, swop_T1Xtn_Weight)
137 +                     }
138 +             let swop_T1Xtn_T1UsdPriceX6 = $t071057723._1
139 +             let swop_T1Xtn_Weight = $t071057723._2
140 +             let W = ((wx_T1Waves_Weight + wx_T1Xtn_Weight) + swop_T1Xtn_Weight)
141 +             let T1UsdPriceX6 = ((fraction(wx_T1Waves_T1UsdPriceX6, wx_T1Waves_Weight, W) + fraction(wx_T1Xtn_T1UsdPriceX6, wx_T1Xtn_Weight, W)) + fraction(swop_T1Xtn_T1UsdPriceX6, swop_T1Xtn_Weight, W))
142 +             let debug = ((((((("T1UsdPriceX6=" + toString(T1UsdPriceX6)) + " wx_T1Waves_T1UsdPriceX6=") + toString(wx_T1Waves_T1UsdPriceX6)) + " wx_T1Xtn_T1UsdPriceX6=") + toString(wx_T1Xtn_T1UsdPriceX6)) + " swop_T1Xtn_T1UsdPriceX6=") + toString(swop_T1Xtn_T1UsdPriceX6))
143 +             $Tuple2(T1UsdPriceX6, debug)
144 +             }
115 145      }
116 146  
117 147  
118 - func getOutdatedUr (assetIdStr) = {
119 -     let down = fraction(tryGetInteger(("total_supplied_" + assetIdStr)), tryGetInteger((assetIdStr + "_sRate")), Scale16)
120 -     if ((down == 0))
121 -         then 0
122 -         else fraction(Scale8, fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), tryGetInteger((assetIdStr + "_bRate")), Scale16), down)
148 + let lastUpdatedBlockKey = "lastUpdatedBlock"
149 + 
150 + let n15List = [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
151 + 
152 + func getPriceDataKey (block,tokenId) = ((("block_" + toString(block)) + "_") + tokenId)
153 + 
154 + 
155 + func getPriceValue (tokenId,block) = valueOrElse(getInteger(orderbookOracle, getPriceDataKey(block, tokenId)), 0)
156 + 
157 + 
158 + func getLastUpdatedBlock () = {
159 +     let lastUpdatedBlock = valueOrErrorMessage(getInteger(orderbookOracle, lastUpdatedBlockKey), "Last updated block key not found")
160 +     if ((0 >= lastUpdatedBlock))
161 +         then throw("Invalid block value")
162 +         else if (((height - lastUpdatedBlock) > 10))
163 +             then throw("The price has not been updated for a long time")
164 +             else lastUpdatedBlock
123 165      }
124 166  
125 167  
126 - func getInterest (assetIdStr) = {
127 -     let ur = getOutdatedUr(assetIdStr)
128 -     let curve = getRateCurve(assetIdStr)
129 -     let rate = (curve._1 + (if ((curve._3 >= ur))
130 -         then fraction(ur, curve._2, curve._3)
131 -         else (curve._2 + fraction((ur - curve._3), curve._4, (100000000 - curve._3)))))
132 -     max([fraction(rate, Scale8, (dayBlocks * 365)), 1])
168 + func getPriceList (accum,next) = {
169 +     let $t091649205 = accum
170 +     let result = $t091649205._1
171 +     let block = $t091649205._2
172 +     let tokenId = $t091649205._3
173 +     let sum = $t091649205._4
174 +     let priceValue = getPriceValue(tokenId, block)
175 +     let nextBlock = (block - next)
176 +     if ((priceValue > 0))
177 +         then $Tuple4((result :+ priceValue), nextBlock, tokenId, (sum + priceValue))
178 +         else $Tuple4(result, nextBlock, tokenId, sum)
133 179      }
134 180  
135 181  
136 - func tokenRatesRecalc (assetIdStr) = {
137 -     let interest = getInterest(assetIdStr)
138 -     let ur = getOutdatedUr(assetIdStr)
139 -     let lastRecalcHeight = tryGetInteger("lastRateHeight")
140 -     let lastBRate = max([tryGetInteger((assetIdStr + "_bRate")), Scale16])
141 -     let newBRate = (lastBRate + ((height - lastRecalcHeight) * interest))
142 -     let lastSRate = max([tryGetInteger((assetIdStr + "_sRate")), Scale16])
143 -     let newSRate = (lastSRate + ((((height - lastRecalcHeight) * fraction(interest, ur, Scale8)) * (100 - reserveFund)) / 100))
144 - [IntegerEntry((assetIdStr + "_sRate"), newSRate), IntegerEntry((assetIdStr + "_bRate"), newBRate), IntegerEntry("lastRateHeight", height)]
145 -     }
146 - 
147 - 
148 - func getActualRate (assetIdStr,rateType) = {
149 -     func f (accum,token) =     {
150 -         let recalc = tokenRatesRecalc(token)
151 -         $Tuple2(if ((token != assetIdStr))
152 -             then accum._1
153 -             else if ((rateType == "sRate"))
154 -                 then recalc[0].value
155 -                 else recalc[1].value, (accum._2 ++ recalc))
156 -         }
157 - 
158 -     let $l = getMarketAssets()
159 -     let $s = size($l)
160 -     let $acc0 = $Tuple2(0, nil)
161 -     func $f0_1 ($a,$i) =     if (($i >= $s))
162 -         then $a
163 -         else f($a, $l[$i])
164 - 
165 -     func $f0_2 ($a,$i) =     if (($i >= $s))
166 -         then $a
167 -         else throw("List size exceeds 12")
168 - 
169 -     $f0_2($f0_1($f0_1($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), 11), 12)
170 -     }
171 - 
172 - 
173 - func getUr (assetIdStr) = {
174 -     let rates = tokenRatesRecalc(assetIdStr)
175 -     let down = fraction(tryGetInteger(("total_supplied_" + assetIdStr)), rates[0].value, Scale16)
176 -     fraction(Scale8, fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), rates[1].value, Scale16), down)
177 -     }
178 - 
179 - 
180 - func ratesRecalc () = {
181 -     func f (accum,token) =     (accum ++ tokenRatesRecalc(token))
182 - 
183 -     let $l = getMarketAssets()
184 -     let $s = size($l)
185 -     let $acc0 = nil
186 -     func $f0_1 ($a,$i) =     if (($i >= $s))
187 -         then $a
188 -         else f($a, $l[$i])
189 - 
190 -     func $f0_2 ($a,$i) =     if (($i >= $s))
191 -         then $a
192 -         else throw("List size exceeds 12")
193 - 
194 -     $f0_2($f0_1($f0_1($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), 11), 12)
195 -     }
196 - 
197 - 
198 - func getTokenPriceWithRisk (assetIdStr,riskAversity) = if (if ((assetIdStr == "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi"))
199 -     then true
200 -     else (assetIdStr == "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"))
201 -     then $Tuple2(1000000, 1000000)
202 -     else {
203 -         let price = getIntegerValue(oracleAddress, (assetIdStr + "_twap5B"))
204 -         let riskLevel = getIntegerValue(oracleAddress, (assetIdStr + "_riskLevel"))
205 -         if ((riskAversity >= riskLevel))
206 -             then $Tuple2(price, price)
207 -             else throw((("oracle prices don't match: " + toString(price)) + " is the price, but risk is too high"))
208 -         }
209 - 
210 - 
211 - func getTokenPrice (assetIdStr) = getTokenPriceWithRisk(assetIdStr, 3)
212 - 
213 - 
214 - func calcAssetScale (assetIdStr) = {
215 -     let decimals = if ((assetIdStr == "WAVES"))
216 -         then 8
217 -         else value(assetInfo(fromBase58String(assetIdStr))).decimals
218 -     pow(10, 0, decimals, 0, 0, DOWN)
219 -     }
220 - 
221 - 
222 - func calcUserCollateral (address) = {
223 -     let userCollateralInvoke = invoke(this, "getUserCollateral", [false, address, true, ""], nil)
224 -     if ((userCollateralInvoke == userCollateralInvoke))
182 + func getOrderbookTwap (tokenIdStr) = {
183 +     let inv = invoke(this, "getOrderbookTwap15", [tokenIdStr, false], nil)
184 +     if ((inv == inv))
225 185          then {
226 -             let userCollateralValue =             match userCollateralInvoke {
227 -                 case x: Int => 
228 -                     x
229 -                 case _ => 
230 -                     throw("issue while doing in-dapp invocation")
231 -             }
232 -             if ((userCollateralValue == userCollateralValue))
233 -                 then userCollateralValue
186 +             let orderbookPrice = {
187 +                 let @ = inv
188 +                 if ($isInstanceOf(@, "(Int, Boolean)"))
189 +                     then @
190 +                     else throw(($getType(@) + " couldn't be cast to (Int, Boolean)"))
191 +                 }
192 +             if ((orderbookPrice == orderbookPrice))
193 +                 then orderbookPrice
234 194                  else throw("Strict value is not equal to itself.")
235 195              }
236 196          else throw("Strict value is not equal to itself.")
238 198  
239 199  
240 200  @Callable(i)
241 - func supply () = if (!(tryGetBoolean("setup_active")))
242 -     then throw("market is stopped")
243 -     else if (if ((size(i.payments) != 1))
244 -         then true
245 -         else (i.payments[0].amount == 0))
246 -         then throw("1 payment has to be attached")
247 -         else {
248 -             let assetIdStr = getAssetString(i.payments[0].assetId)
249 -             let assetAmount = i.payments[0].amount
250 -             let $t086588725 = getActualRate(assetIdStr, "sRate")
251 -             let sRate = $t086588725._1
252 -             let ratesRecalcResult = $t086588725._2
253 -             let amount = fraction(assetAmount, Scale16, sRate, DOWN)
254 -             let address = toString(i.caller)
255 -             let maxSupply =             match getString(("setup_maxSupply_" + assetIdStr)) {
256 -                 case x: String => 
257 -                     parseIntValue(x)
258 -                 case _ => 
259 -                     tryGetInteger(("setup_maxSupply_" + assetIdStr))
260 -             }
261 -             let assetPrice = getTokenPrice(assetIdStr)
262 -             let newAddressSupplied = (tryGetInteger(((address + "_supplied_") + assetIdStr)) + amount)
263 -             let newTotalSupplied = (tryGetInteger(("total_supplied_" + assetIdStr)) + amount)
264 -             let rate = getActualRate(assetIdStr, "sRate")._1
265 -             let assetScale = calcAssetScale(assetIdStr)
266 -             let newTotalSuppliedUsd = fraction(fraction(newTotalSupplied, rate, Scale16), assetPrice._1, assetScale)
267 -             if ((indexOf(tryGetString("setup_tokens"), assetIdStr) == unit))
268 -                 then throw("this asset is not supported by the market")
269 -                 else if (if ((maxSupply != 0))
270 -                     then (newTotalSuppliedUsd > maxSupply)
271 -                     else false)
272 -                     then throw("max total supply for this token reached in the pool")
273 -                     else if ((tryGetInteger(("setup_paused_" + assetIdStr)) > 0))
274 -                         then throw("this asset can't be supplied or borrowed")
275 -                         else {
276 -                             let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
277 -                                 then invoke(this, "stakeToken", [assetIdStr, assetAmount], nil)
278 -                                 else unit
279 -                             if ((inv == inv))
280 -                                 then ([IntegerEntry(((address + "_supplied_") + assetIdStr), newAddressSupplied), IntegerEntry(("total_supplied_" + assetIdStr), newTotalSupplied)] ++ ratesRecalcResult)
281 -                                 else throw("Strict value is not equal to itself.")
282 -                             }
283 -             }
201 + func getOrderbookTwap15 (tokenId,debug) = {
202 +     let lastUpdatedBlock = getLastUpdatedBlock()
203 +     let tuple = {
204 +         let $l = n15List
205 +         let $s = size($l)
206 +         let $acc0 = $Tuple4(nil, lastUpdatedBlock, tokenId, 0)
207 +         func $f0_1 ($a,$i) =         if (($i >= $s))
208 +             then $a
209 +             else getPriceList($a, $l[$i])
284 210  
211 +         func $f0_2 ($a,$i) =         if (($i >= $s))
212 +             then $a
213 +             else throw("List size exceeds 15")
285 214  
286 - 
287 - @Callable(i)
288 - func withdraw (assetIdStr,assetAmount) = {
289 -     let $t01028610353 = getActualRate(assetIdStr, "sRate")
290 -     let sRate = $t01028610353._1
291 -     let ratesRecalcResult = $t01028610353._2
292 -     let amount = fraction(assetAmount, Scale16, sRate, CEILING)
293 -     let address = toString(i.caller)
294 -     let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
295 -     let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
296 -     let userAssetSupplied = tryGetInteger(((address + "_supplied_") + assetIdStr))
297 -     let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
298 -     let collateralValueInv = invoke(this, "getUserCollateral", [false, address, true, ((assetIdStr + ",supplied,") + toString(-(amount)))], nil)
299 -     if ((collateralValueInv == collateralValueInv))
300 -         then {
301 -             let collateralValue =             match collateralValueInv {
302 -                 case x: Int => 
303 -                     x
304 -                 case _ => 
305 -                     throw("can't get user collateral value")
306 -             }
307 -             if (!(tryGetBoolean("setup_active")))
308 -                 then throw("market is stopped")
309 -                 else if ((0 > collateralValue))
310 -                     then throw("you dont have enough collateral for this operation")
311 -                     else if ((amount > (assetSupplied - assetBorrowed)))
312 -                         then throw("this amount is not available on the market")
313 -                         else if ((amount > (userAssetSupplied - userAssetBorrowed)))
314 -                             then throw("this amount is not available for this user")
315 -                             else {
316 -                                 let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
317 -                                     then invoke(this, "unstakeToken", [assetIdStr, assetAmount], nil)
318 -                                     else unit
319 -                                 if ((inv == inv))
320 -                                     then ([IntegerEntry(((address + "_supplied_") + assetIdStr), (tryGetInteger(((address + "_supplied_") + assetIdStr)) - amount)), IntegerEntry(("total_supplied_" + assetIdStr), (tryGetInteger(("total_supplied_" + assetIdStr)) - amount)), ScriptTransfer(i.caller, assetAmount, getAssetBytes(assetIdStr))] ++ ratesRecalcResult)
321 -                                     else throw("Strict value is not equal to itself.")
322 -                                 }
323 -             }
324 -         else throw("Strict value is not equal to itself.")
215 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
216 +         }
217 +     let pricesList = tuple._1
218 +     let sum = tuple._4
219 +     let average = fraction(sum, 1000000, fraction(size(pricesList), 1000000, 1))
220 +     let isLocked = valueOrElse(getBoolean(orderbookOracle, (tokenId + "_locked")), false)
221 +     if (debug)
222 +         then throw((((((((("average: " + toString(average)) + ", isLocked: ") + toString(isLocked)) + ", ") + "priceListSize: ") + toString(size(pricesList))) + ", sum: ") + toString(sum)))
223 +         else $Tuple2(nil, $Tuple2(average, isLocked))
325 224      }
326 225  
327 226  
328 227  
329 228  @Callable(i)
330 - func borrow (assetIdStr,assetAmount) = {
331 -     let address = toString(i.caller)
332 -     let $t01200912076 = getActualRate(assetIdStr, "bRate")
333 -     let bRate = $t01200912076._1
334 -     let ratesRecalcResult = $t01200912076._2
335 -     let amount = fraction(assetAmount, Scale16, bRate, CEILING)
336 -     let collateralValueInv = invoke(this, "getUserCollateral", [false, address, true, ((assetIdStr + ",borrowed,") + toString(amount))], nil)
337 -     if ((collateralValueInv == collateralValueInv))
229 + func updateWxLpTokenPrice (assetIdStr) = {
230 +     let wavesPrice = getIntegerValue(doraAddress, "%s%s__price__WAVES-USDT")
231 +     let tokenNum = value(indexOf(wxLpTokenIds, assetIdStr))
232 +     let underlying = wxLpUnderlying[tokenNum]
233 +     let underlying1Price = if ((underlying[0] == "WAVES"))
234 +         then wavesPrice
235 +         else if ((indexOf(stables, underlying[0]) != unit))
236 +             then 1000000
237 +             else getTokenPrice(value(indexOf(tokenIds, underlying[0])), wavesPrice)._1
238 +     let underlying1Decimals = if ((underlying[0] == "WAVES"))
239 +         then 8
240 +         else value(value(assetInfo(fromBase58String(underlying[0]))).decimals)
241 +     let underlying2Price = if ((underlying[1] == "WAVES"))
242 +         then wavesPrice
243 +         else if ((indexOf(stables, underlying[1]) != unit))
244 +             then 1000000
245 +             else getTokenPrice(value(indexOf(tokenIds, underlying[1])), wavesPrice)._1
246 +     let underlying2Decimals = if ((underlying[1] == "WAVES"))
247 +         then 8
248 +         else value(value(assetInfo(fromBase58String(underlying[1]))).decimals)
249 +     let underlying1Scale = if ((underlying1Decimals == 8))
250 +         then Scale8
251 +         else 1000000
252 +     let underlying2Scale = if ((underlying2Decimals == 8))
253 +         then Scale8
254 +         else 1000000
255 +     let inv = {
256 +         let @ = invoke(wx_restDapp, "poolEvaluateGetREADONLY", [assetIdStr, 100000000], nil)
257 +         if ($isInstanceOf(@, "String"))
258 +             then @
259 +             else throw(($getType(@) + " couldn't be cast to String"))
260 +         }
261 +     if ((inv == inv))
338 262          then {
339 -             let collateralValue =             match collateralValueInv {
340 -                 case x: Int => 
341 -                     x
342 -                 case _ => 
343 -                     throw("can't get user collateral value")
344 -             }
345 -             if (!(tryGetBoolean("setup_active")))
346 -                 then throw("market is stopped")
347 -                 else if ((0 > collateralValue))
348 -                     then throw("you have to supply more to borrow")
349 -                     else if ((tryGetInteger(("setup_paused_" + assetIdStr)) > 0))
350 -                         then throw("this asset can't be supplied or borrowed")
263 +             let vals = split(inv, "__")
264 +             let underlying1Amount = parseIntValue(vals[1])
265 +             let underlying2Amount = parseIntValue(vals[2])
266 +             let tokenPrice = (fraction(underlying1Price, underlying1Amount, underlying1Scale) + fraction(underlying2Price, underlying2Amount, underlying2Scale))
267 +             let lastTwap = tryGetInteger((assetIdStr + "_twap5B"))
268 +             let lastHeight = tryGetInteger((assetIdStr + "_lastBlock"))
269 +             if ((i.originCaller != backendCaller))
270 +                 then throw("available for backend only")
271 +                 else if ((2 > (height - lastHeight)))
272 +                     then nil
273 +                     else if (if ((lastHeight == 0))
274 +                         then true
275 +                         else ((height - lastHeight) > 100))
276 +                         then [IntegerEntry((assetIdStr + "_twap5B"), tokenPrice), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), toString(tokenPrice)), IntegerEntry((assetIdStr + "_riskLevel"), 1)]
351 277                          else {
352 -                             let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
353 -                             let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
354 -                             let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
355 -                             if ((amount > (assetSupplied - assetBorrowed)))
356 -                                 then throw("this amount is not available")
278 +                             let lastPrices = split(getStringValue((assetIdStr + "_lastPrices")), ",")
279 +                             let newPrices = toString(tokenPrice) :: lastPrices
280 +                             func sumHandler (accum,next) =                             (accum + parseIntValue(next))
281 + 
282 +                             let newTwap = ({
283 +                                 let $l = newPrices
284 +                                 let $s = size($l)
285 +                                 let $acc0 = 0
286 +                                 func $f0_1 ($a,$i) =                                 if (($i >= $s))
287 +                                     then $a
288 +                                     else sumHandler($a, $l[$i])
289 + 
290 +                                 func $f0_2 ($a,$i) =                                 if (($i >= $s))
291 +                                     then $a
292 +                                     else throw("List size exceeds 6")
293 + 
294 +                                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
295 +                                 } / size(newPrices))
296 +                             let priceDiff = fraction(tokenPrice, 10000, parseIntValue(lastPrices[(size(lastPrices) - 1)]))
297 +                             let priceDiffOk = if (((10000 + shutdownTrigger) > priceDiff))
298 +                                 then (priceDiff > (10000 - shutdownTrigger))
299 +                                 else false
300 +                             let riskLevel = if (priceDiffOk)
301 +                                 then 1
302 +                                 else 2
303 +                             if ((5 >= size(newPrices)))
304 +                                 then {
305 +                                     let updPrices = makeString(newPrices, ",")
306 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
307 +                                     }
357 308                                  else {
358 -                                     let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
359 -                                         then invoke(this, "unstakeToken", [assetIdStr, assetAmount], nil)
360 -                                         else unit
361 -                                     if ((inv == inv))
362 -                                         then ([IntegerEntry(((address + "_borrowed_") + assetIdStr), (userAssetBorrowed + amount)), IntegerEntry(("total_borrowed_" + assetIdStr), (assetBorrowed + amount)), ScriptTransfer(i.caller, assetAmount, getAssetBytes(assetIdStr))] ++ ratesRecalcResult)
363 -                                         else throw("Strict value is not equal to itself.")
309 +                                     let updPrices = makeString(removeByIndex(newPrices, (size(newPrices) - 1)), ",")
310 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
364 311                                      }
365 312                              }
366 313              }
370 317  
371 318  
372 319  @Callable(i)
373 - func repay () = if (!(tryGetBoolean("setup_active")))
374 -     then throw("market is stopped")
375 -     else if (if ((size(i.payments) != 1))
376 -         then true
377 -         else (i.payments[0].amount == 0))
378 -         then throw("1 payment has to be attached")
379 -         else {
380 -             let assetIdStr = getAssetString(i.payments[0].assetId)
381 -             let assetAmount = i.payments[0].amount
382 -             let $t01385213919 = getActualRate(assetIdStr, "bRate")
383 -             let bRate = $t01385213919._1
384 -             let ratesRecalcResult = $t01385213919._2
385 -             let amount = fraction(assetAmount, Scale16, bRate, CEILING)
386 -             let address = toString(i.caller)
387 -             let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
388 -             let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
389 -             let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
390 -             let amountLeft = (userAssetBorrowed - amount)
391 -             let repayAmount = if ((amountLeft >= 0))
392 -                 then amount
393 -                 else userAssetBorrowed
394 -             if ((indexOf(tryGetString("setup_tokens"), assetIdStr) == unit))
395 -                 then throw("this asset is not supported by the market")
320 + func updateLpTokenPrice (assetIdStr) = {
321 +     let wavesPrice = getIntegerValue(doraAddress, "%s%s__price__WAVES-USDT")
322 +     let tokenNum = value(indexOf(lpTokenIds, assetIdStr))
323 +     let baseIdStr = lpTokenBase[tokenNum]
324 +     let basePrice = if ((baseIdStr == "WAVES"))
325 +         then wavesPrice
326 +         else getTokenPrice(value(indexOf(tokenIds, baseIdStr)), wavesPrice)._1
327 +     let baseQuantity = getIntegerValue(lpTokenPool[tokenNum], (("global_" + baseIdStr) + "_balance"))
328 +     let tokenQuantity = value(assetInfo(value(getAssetBytes(assetIdStr)))).quantity
329 +     let tokenPrice = fraction(fraction(fraction(basePrice, baseQuantity, 1000000), Scale8, lpTokenBaseShare[tokenNum]), 1000000, tokenQuantity)
330 +     let lastTwap = tryGetInteger((assetIdStr + "_twap5B"))
331 +     let lastHeight = tryGetInteger((assetIdStr + "_lastBlock"))
332 +     if ((i.originCaller != backendCaller))
333 +         then throw("available for backend only")
334 +         else if ((2 > (height - lastHeight)))
335 +             then nil
336 +             else if (if ((lastHeight == 0))
337 +                 then true
338 +                 else ((height - lastHeight) > 100))
339 +                 then [IntegerEntry((assetIdStr + "_twap5B"), tokenPrice), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), toString(tokenPrice)), IntegerEntry((assetIdStr + "_riskLevel"), 1)]
396 340                  else {
397 -                     let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
398 -                         then invoke(this, "stakeToken", [assetIdStr, assetAmount], nil)
399 -                         else unit
400 -                     if ((inv == inv))
401 -                         then (([IntegerEntry(((address + "_borrowed_") + assetIdStr), (userAssetBorrowed - repayAmount)), IntegerEntry(("total_borrowed_" + assetIdStr), (assetBorrowed - repayAmount))] ++ ratesRecalcResult) ++ (if ((amountLeft >= 0))
402 -                             then nil
403 -                             else [ScriptTransfer(i.caller, -(amountLeft), i.payments[0].assetId)]))
404 -                         else throw("Strict value is not equal to itself.")
405 -                     }
406 -             }
341 +                     let lastPrices = split(getStringValue((assetIdStr + "_lastPrices")), ",")
342 +                     let newPrices = toString(tokenPrice) :: lastPrices
343 +                     func sumHandler (accum,next) =                     (accum + parseIntValue(next))
407 344  
345 +                     let newTwap = ({
346 +                         let $l = newPrices
347 +                         let $s = size($l)
348 +                         let $acc0 = 0
349 +                         func $f0_1 ($a,$i) =                         if (($i >= $s))
350 +                             then $a
351 +                             else sumHandler($a, $l[$i])
408 352  
353 +                         func $f0_2 ($a,$i) =                         if (($i >= $s))
354 +                             then $a
355 +                             else throw("List size exceeds 6")
409 356  
410 - @Callable(i)
411 - func repayFor (address) = if (!(tryGetBoolean("setup_active")))
412 -     then throw("market is stopped")
413 -     else if ((i.caller != Address(base58'3P4kBiU4wr2yV1S5gMfu3MdkVvy7kxXHsKe')))
414 -         then throw("available only for reserve fund address")
415 -         else if ((address == "global"))
416 -             then throw("you can't repay for everyone :_)")
417 -             else if (if ((size(i.payments) != 1))
418 -                 then true
419 -                 else (i.payments[0].amount == 0))
420 -                 then throw("1 payment has to be attached")
421 -                 else {
422 -                     let assetIdStr = getAssetString(i.payments[0].assetId)
423 -                     let assetAmount = i.payments[0].amount
424 -                     let $t01560415671 = getActualRate(assetIdStr, "bRate")
425 -                     let bRate = $t01560415671._1
426 -                     let ratesRecalcResult = $t01560415671._2
427 -                     let amount = fraction(assetAmount, Scale16, bRate, CEILING)
428 -                     let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
429 -                     let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
430 -                     let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
431 -                     let amountLeft = (userAssetBorrowed - amount)
432 -                     let repayAmount = if ((amountLeft >= 0))
433 -                         then amount
434 -                         else userAssetBorrowed
435 -                     if ((indexOf(tryGetString("setup_tokens"), assetIdStr) == unit))
436 -                         then throw("this asset is not supported by the market")
357 +                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
358 +                         } / size(newPrices))
359 +                     let priceDiff = fraction(tokenPrice, 10000, parseIntValue(lastPrices[(size(lastPrices) - 1)]))
360 +                     let priceDiffOk = if (((10000 + shutdownTrigger) > priceDiff))
361 +                         then (priceDiff > (10000 - shutdownTrigger))
362 +                         else false
363 +                     let riskLevel = if (priceDiffOk)
364 +                         then 1
365 +                         else 2
366 +                     if ((5 >= size(newPrices)))
367 +                         then {
368 +                             let updPrices = makeString(newPrices, ",")
369 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
370 +                             }
437 371                          else {
438 -                             let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
439 -                                 then invoke(this, "stakeToken", [assetIdStr, assetAmount], nil)
440 -                                 else unit
441 -                             if ((inv == inv))
442 -                                 then (([IntegerEntry(((address + "_borrowed_") + assetIdStr), (userAssetBorrowed - repayAmount)), IntegerEntry(("total_borrowed_" + assetIdStr), (assetBorrowed - repayAmount))] ++ ratesRecalcResult) ++ (if ((amountLeft >= 0))
443 -                                     then nil
444 -                                     else [ScriptTransfer(i.caller, -(amountLeft), i.payments[0].assetId)]))
445 -                                 else throw("Strict value is not equal to itself.")
372 +                             let updPrices = makeString(removeByIndex(newPrices, (size(newPrices) - 1)), ",")
373 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
446 374                              }
447 375                      }
448 - 
449 - 
450 - 
451 - @Callable(i)
452 - func stakeToken (assetIdStr,amount) = {
453 -     let wxStakerSupportedAssets = getStringValue(wxStakingAddress, "setup_supportedAssets")
454 -     if ((i.caller != this))
455 -         then throw("only for internal smart contract invocations")
456 -         else if ((indexOf(wxStakerSupportedAssets, assetIdStr) == unit))
457 -             then nil
458 -             else {
459 -                 let amountStaked = tryGetInteger(("autostake_amount_" + assetIdStr))
460 -                 let stakeInv = invoke(wxStakingAddress, "stakeLP", nil, [AttachedPayment(getAssetBytes(assetIdStr), amount)])
461 -                 if ((stakeInv == stakeInv))
462 -                     then [IntegerEntry(("autostake_amount_" + assetIdStr), (amountStaked + amount))]
463 -                     else throw("Strict value is not equal to itself.")
464 -                 }
465 376      }
466 377  
467 378  
468 379  
469 380  @Callable(i)
470 - func stakeTokenAll (assetIdStr) = if ((i.caller != this))
471 -     then throw("only for internal smart contract invocations")
472 -     else {
473 -         let amount = getBalance(assetIdStr)
474 -         let inv = invoke(this, "stakeToken", [assetIdStr, amount], nil)
475 -         if ((inv == inv))
381 + func updateTokenPrice (assetIdStr) = {
382 +     let wavesPrice = getIntegerValue(doraAddress, "%s%s__price__WAVES-USDT")
383 +     let tokenPrice = if ((assetIdStr == "WAVES"))
384 +         then wavesPrice
385 +         else if ((assetIdStr == xtnIdStr))
386 +             then xtnUsdPriceX6
387 +             else {
388 +                 let priceInPools = getTokenPrice(value(indexOf(tokenIds, assetIdStr)), wavesPrice)._1
389 +                 if ((assetIdStr == ethStr))
390 +                     then {
391 +                         let ethPrice = getIntegerValue(doraAddress, "%s%s__price__ETH-USDT")
392 +                         let comp = fraction(priceInPools, 10000, ethPrice)
393 +                         if (if ((comp > (10000 - oracleTolerance)))
394 +                             then ((10000 + oracleTolerance) > comp)
395 +                             else false)
396 +                             then priceInPools
397 +                             else throw("internal ETH price doesn't match with global price")
398 +                         }
399 +                     else if ((indexOf(stables, assetIdStr) != unit))
400 +                         then 1000000
401 +                         else priceInPools
402 +                 }
403 +     let lastTwap = tryGetInteger((assetIdStr + "_twap5B"))
404 +     let lastHeight = tryGetInteger((assetIdStr + "_lastBlock"))
405 +     if ((i.originCaller != backendCaller))
406 +         then throw("available for backend only")
407 +         else if ((2 > (height - lastHeight)))
476 408              then nil
477 -             else throw("Strict value is not equal to itself.")
478 -         }
409 +             else if (if ((lastHeight == 0))
410 +                 then true
411 +                 else ((height - lastHeight) > 30))
412 +                 then [IntegerEntry((assetIdStr + "_twap5B"), tokenPrice), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), toString(tokenPrice))]
413 +                 else {
414 +                     let lastPrices = split(getStringValue((assetIdStr + "_lastPrices")), ",")
415 +                     let newPrices = toString(tokenPrice) :: lastPrices
416 +                     func sumHandler (accum,next) =                     (accum + parseIntValue(next))
479 417  
418 +                     let newTwap = ({
419 +                         let $l = newPrices
420 +                         let $s = size($l)
421 +                         let $acc0 = 0
422 +                         func $f0_1 ($a,$i) =                         if (($i >= $s))
423 +                             then $a
424 +                             else sumHandler($a, $l[$i])
480 425  
426 +                         func $f0_2 ($a,$i) =                         if (($i >= $s))
427 +                             then $a
428 +                             else throw("List size exceeds 6")
481 429  
482 - @Callable(i)
483 - func unstakeToken (assetIdStr,amount) = {
484 -     let wxStakerSupportedAssets = getStringValue(wxStakingAddress, "setup_supportedAssets")
485 -     if ((i.caller != this))
486 -         then throw("only for internal smart contract invocations")
487 -         else if ((indexOf(wxStakerSupportedAssets, assetIdStr) == unit))
488 -             then nil
489 -             else {
490 -                 let amountStaked = tryGetInteger(("autostake_amount_" + assetIdStr))
491 -                 let stakeInv = invoke(wxStakingAddress, "unstakeLP", [assetIdStr, amount], nil)
492 -                 if ((stakeInv == stakeInv))
493 -                     then [IntegerEntry(("autostake_amount_" + assetIdStr), (amountStaked - amount))]
494 -                     else throw("Strict value is not equal to itself.")
495 -                 }
430 +                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
431 +                         } / size(newPrices))
432 +                     let orderbookTwapResult = getOrderbookTwap(assetIdStr)
433 +                     if ((orderbookTwapResult == orderbookTwapResult))
434 +                         then {
435 +                             let $t01804718105 = orderbookTwapResult
436 +                             let orderbookTwap = $t01804718105._1
437 +                             let orderbookLocked = $t01804718105._2
438 +                             let twapsComparison = if ((orderbookTwap != 0))
439 +                                 then fraction(newTwap, 10000, orderbookTwap)
440 +                                 else throw(("orderbook result zero for " + assetIdStr))
441 +                             let twapsSimilar = if ((twapsComparison > (10000 - oracleTolerance)))
442 +                                 then ((10000 + oracleTolerance) > twapsComparison)
443 +                                 else false
444 +                             let priceDiff = fraction(tokenPrice, 10000, parseIntValue(lastPrices[(size(lastPrices) - 1)]))
445 +                             let priceDiffOk = if (((10000 + shutdownTrigger) > priceDiff))
446 +                                 then (priceDiff > (10000 - shutdownTrigger))
447 +                                 else false
448 +                             let riskLevel = (((if (twapsSimilar)
449 +                                 then 1
450 +                                 else 2) + (if (orderbookLocked)
451 +                                 then 1
452 +                                 else 0)) + (if (!(priceDiffOk))
453 +                                 then 1
454 +                                 else 0))
455 +                             if (!(twapsSimilar))
456 +                                 then [IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
457 +                                 else if ((5 >= size(newPrices)))
458 +                                     then {
459 +                                         let updPrices = makeString(newPrices, ",")
460 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
461 +                                         }
462 +                                     else {
463 +                                         let updPrices = makeString(removeByIndex(newPrices, (size(newPrices) - 1)), ",")
464 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
465 +                                         }
466 +                             }
467 +                         else throw("Strict value is not equal to itself.")
468 +                     }
496 469      }
497 470  
498 471  
499 472  
500 473  @Callable(i)
501 - func addInterest (assetIdStr,amount) = if ((i.caller != this))
502 -     then throw("only for self invocation")
474 + func updateTokens () = if ((i.originCaller != backendCaller))
475 +     then throw("available for backend only")
503 476      else {
504 -         let earned = tryGetInteger(("autostake_lastEarned_" + assetIdStr))
505 -         let lastHeight = tryGetInteger(("autostake_lastBlock_" + assetIdStr))
506 -         let cleanAmount = fraction(amount, 80, 100)
507 -         let stateChanges = if (if ((lastHeight == height))
508 -             then true
509 -             else (amount == 0))
510 -             then nil
511 -             else [IntegerEntry(("autostake_preLastEarned_" + assetIdStr), earned), IntegerEntry(("autostake_preLastBlock_" + assetIdStr), lastHeight), IntegerEntry(("autostake_lastEarned_" + assetIdStr), (earned + cleanAmount)), IntegerEntry(("autostake_lastBlock_" + assetIdStr), height)]
512 -         (stateChanges ++ [IntegerEntry((assetIdStr + "_sRate"), (tryGetInteger((assetIdStr + "_sRate")) + fraction(Scale16, cleanAmount, tryGetInteger(("total_supplied_" + assetIdStr)))))])
513 -         }
477 +         let i1 = invoke(this, "updateTokenPrice", ["WAVES"], nil)
478 +         if ((i1 == i1))
479 +             then {
480 +                 let i2 = invoke(this, "updateTokenPrice", [xtnIdStr], nil)
481 +                 if ((i2 == i2))
482 +                     then {
483 +                         func callu (accum,next) =                         {
484 +                             let i3 = invoke(this, "updateTokenPrice", [next], nil)
485 +                             if ((i3 == i3))
486 +                                 then nil
487 +                                 else throw("Strict value is not equal to itself.")
488 +                             }
514 489  
490 +                         let res = {
491 +                             let $l = tokenIds
492 +                             let $s = size($l)
493 +                             let $acc0 = nil
494 +                             func $f0_1 ($a,$i) =                             if (($i >= $s))
495 +                                 then $a
496 +                                 else callu($a, $l[$i])
515 497  
498 +                             func $f0_2 ($a,$i) =                             if (($i >= $s))
499 +                                 then $a
500 +                                 else throw("List size exceeds 20")
516 501  
517 - @Callable(i)
518 - func addInterestEXTERNAL () = {
519 -     let amount = fraction(i.payments[0].amount, 80, 100)
520 -     let assetId = i.payments[0].assetId
521 -     let assetIdStr = getAssetString(assetId)
522 -     let earned = tryGetInteger(("autostake_lastEarned_" + assetIdStr))
523 -     let lastHeight = tryGetInteger(("autostake_lastBlock_" + assetIdStr))
524 -     let stateChanges = if (if ((lastHeight == height))
525 -         then true
526 -         else (amount == 0))
527 -         then nil
528 -         else [IntegerEntry(("autostake_preLastEarned_" + assetIdStr), earned), IntegerEntry(("autostake_preLastBlock_" + assetIdStr), lastHeight), IntegerEntry(("autostake_lastEarned_" + assetIdStr), (earned + amount)), IntegerEntry(("autostake_lastBlock_" + assetIdStr), height)]
529 -     (stateChanges ++ [IntegerEntry((assetIdStr + "_sRate"), (tryGetInteger((assetIdStr + "_sRate")) + fraction(Scale16, amount, tryGetInteger(("total_supplied_" + assetIdStr)))))])
530 -     }
531 - 
532 - 
533 - 
534 - @Callable(i)
535 - func preInit (tokens,ltvs,lts,penalties) = {
536 -     func f (accum,token) =     (accum ++ [IntegerEntry((token + "_bRate"), Scale16), IntegerEntry((token + "_sRate"), Scale16)])
537 - 
538 -     if ((i.caller != this))
539 -         then throw("admin only")
540 -         else {
541 -             let rates = {
542 -                 let $l = split(tokens, ",")
543 -                 let $s = size($l)
544 -                 let $acc0 = nil
545 -                 func $f0_1 ($a,$i) =                 if (($i >= $s))
546 -                     then $a
547 -                     else f($a, $l[$i])
548 - 
549 -                 func $f0_2 ($a,$i) =                 if (($i >= $s))
550 -                     then $a
551 -                     else throw("List size exceeds 12")
552 - 
553 -                 $f0_2($f0_1($f0_1($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), 11), 12)
554 -                 }
555 -             ([StringEntry("setup_tokens", tokens), StringEntry("setup_ltvs", ltvs), StringEntry("setup_lts", lts), StringEntry("setup_penalties", penalties), BooleanEntry("setup_active", true)] ++ rates)
556 -             }
557 -     }
558 - 
559 - 
560 - 
561 - @Callable(i)
562 - func initNewToken (token,ltv,lt,penalty) = if ((i.caller != this))
563 -     then throw("admin only")
564 -     else [StringEntry("setup_tokens", ((tryGetString("setup_tokens") + ",") + token)), StringEntry("setup_ltvs", ((tryGetString("setup_ltvs") + ",") + ltv)), StringEntry("setup_lts", ((tryGetString("setup_lts") + ",") + lt)), StringEntry("setup_penalties", ((tryGetString("setup_penalties") + ",") + penalty)), IntegerEntry((token + "_bRate"), Scale16), IntegerEntry((token + "_sRate"), Scale16)]
565 - 
566 - 
567 - 
568 - @Callable(i)
569 - func updateParameter (key,val) = if (if ((i.caller != this))
570 -     then (i.caller != Address(base58'3P3o9cLTV2u9N4nYNKRYL6gy6cUEU9DwXW8'))
571 -     else false)
572 -     then throw("admin only")
573 -     else [IntegerEntry(key, parseIntValue(val))]
574 - 
575 - 
576 - 
577 - @Callable(i)
578 - func updateString (key,val) = if (if ((i.caller != this))
579 -     then (i.caller != Address(base58'3P3o9cLTV2u9N4nYNKRYL6gy6cUEU9DwXW8'))
580 -     else false)
581 -     then throw("admin only")
582 -     else [StringEntry(key, val)]
583 - 
584 - 
585 - 
586 - @Callable(i)
587 - func claimToReserveFund (debug) = {
588 -     let assets = getMarketAssets()
589 -     let rates = getActualRate(assets[0], "sRate")._2
590 -     let li = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
591 -     func f (accum,n) =     if ((n >= size(assets)))
592 -         then accum
593 -         else {
594 -             let assetIdStr = assets[n]
595 -             let autostakeAmount = tryGetString(("autostake_amount_" + assetIdStr))
596 -             let amount = ((((getBalance(assetIdStr) + tryGetInteger(("autostake_amount_" + assetIdStr))) + (if ((autostakeAmount != ""))
597 -                 then parseIntValue(autostakeAmount)
598 -                 else 0)) + fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), rates[((n * 3) + 1)].value, Scale16)) - fraction(tryGetInteger(("total_supplied_" + assetIdStr)), rates[(n * 3)].value, Scale16))
599 -             let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
600 -                 then invoke(this, "unstakeToken", [assetIdStr, amount], nil)
601 -                 else unit
602 -             if ((inv == inv))
603 -                 then (accum ++ [amount])
604 -                 else throw("Strict value is not equal to itself.")
605 -             }
606 - 
607 -     let parameter = {
608 -         let $l = li
609 -         let $s = size($l)
610 -         let $acc0 = nil
611 -         func $f0_1 ($a,$i) =         if (($i >= $s))
612 -             then $a
613 -             else f($a, $l[$i])
614 - 
615 -         func $f0_2 ($a,$i) =         if (($i >= $s))
616 -             then $a
617 -             else throw("List size exceeds 12")
618 - 
619 -         $f0_2($f0_1($f0_1($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), 11), 12)
620 -         }
621 -     func f2 (accum,n) =     if ((n >= size(assets)))
622 -         then accum
623 -         else {
624 -             let assetIdStr = assets[n]
625 -             (accum ++ [ScriptTransfer(reserveFundAddress, max([parameter[n], 0]), getAssetBytes(assetIdStr))])
626 -             }
627 - 
628 -     if (debug)
629 -         then throw(liIntToStr(parameter))
630 -         else $Tuple2({
631 -             let $l = li
632 -             let $s = size($l)
633 -             let $acc0 = nil
634 -             func $f1_1 ($a,$i) =             if (($i >= $s))
635 -                 then $a
636 -                 else f2($a, $l[$i])
637 - 
638 -             func $f1_2 ($a,$i) =             if (($i >= $s))
639 -                 then $a
640 -                 else throw("List size exceeds 12")
641 - 
642 -             $f1_2($f1_1($f1_1($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), 11), 12)
643 -             }, parameter)
644 -     }
645 - 
646 - 
647 - 
648 - @Callable(i)
649 - func reSetup (assetIdStr) = {
650 -     let lastResetup = tryGetInteger("resetup_lastUpdate")
651 -     if ((dayBlocks > (height - lastResetup)))
652 -         then throw("can be updated only once per day")
653 -         else {
654 -             let lts = split(tryGetString("setup_lts"), ",")
655 -             let assets = getMarketAssets()
656 -             let ur = getUr(assetIdStr)
657 -             let tempLT = tryGetInteger((("setup_" + assetIdStr) + "_tempLT"))
658 -             let lt = parseIntValue(assets[value(indexOf(assets, assetIdStr))])
659 -             if ((ur > 90000000))
660 -                 then [IntegerEntry((("setup_" + assetIdStr) + "_tempLT"), fraction(tempLT, 9975, 10000))]
661 -                 else if (if ((lt > tempLT))
662 -                     then (90000000 > ur)
663 -                     else false)
664 -                     then [IntegerEntry((("setup_" + assetIdStr) + "_tempLT"), fraction(tempLT, 10025, 10000))]
665 -                     else nil
666 -             }
667 -     }
668 - 
669 - 
670 - 
671 - @Callable(i)
672 - func shutdown (shutdown) = if ((indexOf(shutdownWhitelist, i.caller.bytes) == unit))
673 -     then throw("user not in a whitelist")
674 -     else [BooleanEntry("setup_active", !(shutdown))]
675 - 
676 - 
677 - 
678 - @Callable(i)
679 - func liquidate (debug,address,assetAmount,sAssetIdStr,bAssetIdStr,routeStr) = if (!(verifyLiquidatorRights(i.caller)))
680 -     then throw("temporarily available for whitelist only")
681 -     else if (!(tryGetBoolean("setup_active")))
682 -         then throw("market is stopped")
683 -         else {
684 -             let userCollateral = calcUserCollateral(address)
685 -             if ((userCollateral == userCollateral))
686 -                 then {
687 -                     let $t02444224504 = getActualRate(sAssetIdStr, "sRate")
688 -                     let sRate = $t02444224504._1
689 -                     let ratesResult = $t02444224504._2
690 -                     let $t02450924578 = getActualRate(bAssetIdStr, "bRate")
691 -                     let bRate = $t02450924578._1
692 -                     let ratesRecalcResult2 = $t02450924578._2
693 -                     let sAssetAmount = fraction(assetAmount, Scale16, sRate)
694 -                     let currentSPosition = tryGetInteger(((address + "_supplied_") + sAssetIdStr))
695 -                     let currentBPositionVal = tryGetInteger(((address + "_borrowed_") + bAssetIdStr))
696 -                     let currentBPosition = if ((currentBPositionVal > 0))
697 -                         then currentBPositionVal
698 -                         else throw("user has no borrow in this token")
699 -                     if ((userCollateral > 0))
700 -                         then throw("user can't be liquidated")
701 -                         else if ((sAssetAmount > currentSPosition))
702 -                             then throw("position to liquidate is bigger than user's supply")
703 -                             else {
704 -                                 let balance0Before = getBalance(sAssetIdStr)
705 -                                 if ((balance0Before == balance0Before))
502 +                             $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
503 +                             }
504 +                         if ((res == res))
505 +                             then {
506 +                                 let i4 = invoke(this, "updateLpTokenPrice", [lpTokenIds[0]], nil)
507 +                                 if ((i4 == i4))
706 508                                      then {
707 -                                         let balance1Before = getBalance(bAssetIdStr)
708 -                                         if ((balance1Before == balance1Before))
509 +                                         let i5 = invoke(this, "updateLpTokenPrice", [lpTokenIds[1]], nil)
510 +                                         if ((i5 == i5))
709 511                                              then {
710 -                                                 let inv = if ((tryGetString(("setup_autostake_" + sAssetIdStr)) != ""))
711 -                                                     then invoke(this, "unstakeToken", [sAssetIdStr, sAssetAmount], nil)
712 -                                                     else unit
713 -                                                 if ((inv == inv))
512 +                                                 let i6 = invoke(this, "updateLpTokenPrice", [lpTokenIds[2]], nil)
513 +                                                 if ((i6 == i6))
714 514                                                      then {
715 -                                                         let exchangeInvoke = invoke(aggregatorAddress, "swap", [routeStr, 0], [AttachedPayment(getAssetBytes(sAssetIdStr), assetAmount)])
716 -                                                         if ((exchangeInvoke == exchangeInvoke))
717 -                                                             then {
718 -                                                                 let asset0Sold = (balance0Before - getBalance(sAssetIdStr))
719 -                                                                 if ((asset0Sold == asset0Sold))
720 -                                                                     then {
721 -                                                                         let asset1Bought = (getBalance(bAssetIdStr) - balance1Before)
722 -                                                                         if ((asset1Bought == asset1Bought))
723 -                                                                             then {
724 -                                                                                 let asset0Price = getTokenPrice(sAssetIdStr)._1
725 -                                                                                 let asset0Scale = calcAssetScale(sAssetIdStr)
726 -                                                                                 let asset0Usd = fraction(asset0Sold, asset0Price, asset0Scale)
727 -                                                                                 let asset1Price = getTokenPrice(bAssetIdStr)._2
728 -                                                                                 let asset1Scale = calcAssetScale(bAssetIdStr)
729 -                                                                                 let asset1Usd = fraction(asset1Bought, asset1Price, asset1Scale)
730 -                                                                                 let penalty = parseIntValue(split(tryGetString("setup_penalties"), ",")[value(indexOf(getMarketAssets(), bAssetIdStr))])
731 -                                                                                 let liquidationProfit = (asset1Usd - fraction(asset0Usd, (Scale8 - penalty), Scale8))
732 -                                                                                 let sAssetChange = fraction(asset0Sold, Scale16, sRate)
733 -                                                                                 let bAssetChange = fraction(fraction(asset1Bought, Scale16, bRate), (Scale8 - fraction(liquidationProfit, Scale8, asset1Usd)), Scale8)
734 -                                                                                 if ((asset0Sold > assetAmount))
735 -                                                                                     then throw("more assets exchanged than expected")
736 -                                                                                     else if ((0 > liquidationProfit))
737 -                                                                                         then throw("price impact is bigger than liquidation penalty")
738 -                                                                                         else [IntegerEntry(((address + "_supplied_") + sAssetIdStr), (currentSPosition - sAssetChange)), IntegerEntry(((address + "_borrowed_") + bAssetIdStr), (currentBPosition - bAssetChange)), IntegerEntry(("total_supplied_" + sAssetIdStr), (tryGetInteger(("total_supplied_" + sAssetIdStr)) - sAssetChange)), IntegerEntry(("total_borrowed_" + bAssetIdStr), (tryGetInteger(("total_borrowed_" + bAssetIdStr)) - bAssetChange))]
739 -                                                                                 }
740 -                                                                             else throw("Strict value is not equal to itself.")
741 -                                                                         }
742 -                                                                     else throw("Strict value is not equal to itself.")
743 -                                                                 }
515 +                                                         let i7 = invoke(this, "updateWxLpTokenPrice", [wxLpTokenIds[0]], nil)
516 +                                                         if ((i7 == i7))
517 +                                                             then res
744 518                                                              else throw("Strict value is not equal to itself.")
745 519                                                          }
746 520                                                      else throw("Strict value is not equal to itself.")
749 523                                          }
750 524                                      else throw("Strict value is not equal to itself.")
751 525                                  }
752 -                     }
753 -                 else throw("Strict value is not equal to itself.")
754 -             }
755 - 
756 - 
757 - 
758 - @Callable(i)
759 - func liquidateV2 (debug,address,sAssetIdStr) = if (!(verifyLiquidatorRights(i.caller)))
760 -     then throw("temporarily available for whitelist only")
761 -     else if (!(tryGetBoolean("setup_active")))
762 -         then throw("market is stopped")
763 -         else {
764 -             let bAssetId = i.payments[0].assetId
765 -             let bAssetIdStr = getAssetString(bAssetId)
766 -             let bAssetAmount = i.payments[0].amount
767 -             let userCollateral = calcUserCollateral(address)
768 -             if ((userCollateral == userCollateral))
769 -                 then if ((userCollateral > 0))
770 -                     then throw("user can't be liquidated")
771 -                     else {
772 -                         let marketAssets = getMarketAssets()
773 -                         let asset1Num = value(indexOf(marketAssets, bAssetIdStr))
774 -                         let asset0Num = value(indexOf(marketAssets, sAssetIdStr))
775 -                         let $t02790627968 = getActualRate(bAssetIdStr, "bRate")
776 -                         let bRate = $t02790627968._1
777 -                         let ratesResult = $t02790627968._2
778 -                         let asset1Price = getTokenPrice(bAssetIdStr)._2
779 -                         let asset1Scale = calcAssetScale(bAssetIdStr)
780 -                         let bAmountUsd = fraction(bAssetAmount, asset1Price, asset1Scale)
781 -                         let penalty = parseIntValue(value(split(tryGetString("setup_penalties"), ",")[asset1Num]))
782 -                         let asset0Price = getTokenPrice(sAssetIdStr)._1
783 -                         let asset0Scale = calcAssetScale(sAssetIdStr)
784 -                         let sAmountUsd = fraction(bAmountUsd, (Scale8 + penalty), Scale8)
785 -                         let sAssetAmount = fraction(sAmountUsd, asset0Scale, asset0Price)
786 -                         let bAmount = fraction(bAssetAmount, Scale16, bRate)
787 -                         let sAmount = fraction(sAssetAmount, Scale16, ratesResult[((asset0Num * 3) + 1)].value)
788 -                         let currentSPosition = tryGetInteger(((address + "_supplied_") + sAssetIdStr))
789 -                         let currentBPositionVal = tryGetInteger(((address + "_borrowed_") + bAssetIdStr))
790 -                         let currentBPosition = if ((currentBPositionVal > 0))
791 -                             then currentBPositionVal
792 -                             else throw("user has no borrow in this token")
793 -                         if ((sAmount > currentSPosition))
794 -                             then throw("position to liquidate is bigger than user's supply")
795 -                             else {
796 -                                 let inv = if ((tryGetString(("setup_autostake_" + sAssetIdStr)) != ""))
797 -                                     then invoke(this, "unstakeToken", [sAssetIdStr, sAssetAmount], nil)
798 -                                     else unit
799 -                                 if ((inv == inv))
800 -                                     then if (debug)
801 -                                         then throw("liquidation will pass")
802 -                                         else ([ScriptTransfer(i.caller, sAssetAmount, getAssetBytes(sAssetIdStr)), IntegerEntry(((address + "_supplied_") + sAssetIdStr), (currentSPosition - sAmount)), IntegerEntry(((address + "_borrowed_") + bAssetIdStr), (currentBPosition - bAmount)), IntegerEntry(("total_supplied_" + sAssetIdStr), (tryGetInteger(("total_supplied_" + sAssetIdStr)) - sAmount)), IntegerEntry(("total_borrowed_" + bAssetIdStr), (tryGetInteger(("total_borrowed_" + bAssetIdStr)) - bAmount))] ++ ratesResult)
803 -                                     else throw("Strict value is not equal to itself.")
804 -                                 }
526 +                             else throw("Strict value is not equal to itself.")
805 527                          }
806 -                 else throw("Strict value is not equal to itself.")
807 -             }
808 - 
809 - 
810 - 
811 - @Callable(i)
812 - func getUserCollateral (debug,address,minusBorrowed,afterChange) = {
813 -     let assets = getMarketAssets()
814 -     let ltvs = split(tryGetString("setup_ltvs"), ",")
815 -     let lts = split(tryGetString("setup_lts"), ",")
816 -     let rates = getActualRate(assets[0], "sRate")._2
817 -     let changeHandler = split(afterChange, ",")
818 -     func f (accum,next) =     if ((next >= size(assets)))
819 -         then accum
820 -         else {
821 -             let userSupplied = tryGetInteger(((address + "_supplied_") + assets[next]))
822 -             let userBorrowed = tryGetInteger(((address + "_borrowed_") + assets[next]))
823 -             let needTokenAccounting = if ((afterChange == ""))
824 -                 then if (if ((userBorrowed != 0))
825 -                     then true
826 -                     else (userSupplied != 0))
827 -                     then true
828 -                     else false
829 -                 else true
830 -             if (needTokenAccounting)
831 -                 then {
832 -                     let assetScale = calcAssetScale(assets[next])
833 -                     let assetPrice = getTokenPrice(assets[next])
834 -                     ((accum + fraction(fraction(fraction((userSupplied + (if (if (if ((afterChange != ""))
835 -                         then (changeHandler[0] == assets[next])
836 -                         else false)
837 -                         then (changeHandler[1] == "supplied")
838 -                         else false)
839 -                         then parseIntValue(changeHandler[2])
840 -                         else 0)), rates[(next * 3)].value, Scale16), parseIntValue(ltvs[next]), Scale8), assetPrice._1, assetScale)) - (if (minusBorrowed)
841 -                         then fraction(fraction(fraction((userBorrowed + (if (if (if ((afterChange != ""))
842 -                             then (changeHandler[0] == assets[next])
843 -                             else false)
844 -                             then (changeHandler[1] == "borrowed")
845 -                             else false)
846 -                             then parseIntValue(changeHandler[2])
847 -                             else 0)), rates[((next * 3) + 1)].value, Scale16), Scale8, parseIntValue(lts[next])), assetPrice._2, assetScale)
848 -                         else 0))
849 -                     }
850 -                 else accum
851 -             }
852 - 
853 -     let result = {
854 -         let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
855 -         let $s = size($l)
856 -         let $acc0 = 0
857 -         func $f0_1 ($a,$i) =         if (($i >= $s))
858 -             then $a
859 -             else f($a, $l[$i])
860 - 
861 -         func $f0_2 ($a,$i) =         if (($i >= $s))
862 -             then $a
863 -             else throw("List size exceeds 12")
864 - 
865 -         $f0_2($f0_1($f0_1($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), 11), 12)
528 +                     else throw("Strict value is not equal to itself.")
529 +                 }
530 +             else throw("Strict value is not equal to itself.")
866 531          }
867 -     if (debug)
868 -         then throw(toString(result))
869 -         else $Tuple2(rates, result)
870 -     }
871 - 
872 - 
873 - 
874 - @Callable(i)
875 - func getPrices (debug) = {
876 -     let assets = getMarketAssets()
877 -     func f (accum,next) =     if ((next >= size(assets)))
878 -         then accum
879 -         else {
880 -             let assetPrice = getTokenPriceWithRisk(assets[next], 3)
881 -             ((((accum + toString(assetPrice._1)) + ",") + toString(assetPrice._2)) + "|")
882 -             }
883 - 
884 -     let result = {
885 -         let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
886 -         let $s = size($l)
887 -         let $acc0 = ""
888 -         func $f0_1 ($a,$i) =         if (($i >= $s))
889 -             then $a
890 -             else f($a, $l[$i])
891 - 
892 -         func $f0_2 ($a,$i) =         if (($i >= $s))
893 -             then $a
894 -             else throw("List size exceeds 12")
895 - 
896 -         $f0_2($f0_1($f0_1($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), 11), 12)
897 -         }
898 -     if (debug)
899 -         then throw(result)
900 -         else $Tuple2(nil, result)
901 -     }
902 - 
903 - 
904 - 
905 - @Callable(i)
906 - func calculateUtilizationRatio (assetIdStr,debug) = if (debug)
907 -     then throw(toString(getUr(assetIdStr)))
908 -     else $Tuple2(nil, getUr(assetIdStr))
909 - 
910 - 
911 - 
912 - @Callable(i)
913 - func calculateOutdatedUR (assetIdStr,debug) = if (debug)
914 -     then throw(toString(getOutdatedUr(assetIdStr)))
915 -     else $Tuple2(nil, getOutdatedUr(assetIdStr))
916 - 
917 - 
918 - 
919 - @Callable(i)
920 - func calculateTokenRates (debug) = {
921 -     func f (accum,assetIdStr) =     {
922 -         let rates = tokenRatesRecalc(assetIdStr)
923 -         $Tuple2(((((accum._1 + toString(rates[1].value)) + "|") + toString(rates[0].value)) + ","), (accum._2 ++ rates))
924 -         }
925 - 
926 -     let parameter = {
927 -         let $l = getMarketAssets()
928 -         let $s = size($l)
929 -         let $acc0 = $Tuple2("", nil)
930 -         func $f0_1 ($a,$i) =         if (($i >= $s))
931 -             then $a
932 -             else f($a, $l[$i])
933 - 
934 -         func $f0_2 ($a,$i) =         if (($i >= $s))
935 -             then $a
936 -             else throw("List size exceeds 12")
937 - 
938 -         $f0_2($f0_1($f0_1($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), 11), 12)
939 -         }
940 -     if (debug)
941 -         then throw(parameter._1)
942 -         else $Tuple2(parameter._2, parameter._1)
943 -     }
944 - 
945 - 
946 - 
947 - @Callable(i)
948 - func calculateTokensInterest (debug) = {
949 -     func f (accum,assetIdStr) =     {
950 -         let rate = fraction(getInterest(assetIdStr), dayBlocks, Scale8)
951 -         ((accum + toString(rate)) + ",")
952 -         }
953 - 
954 -     let parameter = {
955 -         let $l = getMarketAssets()
956 -         let $s = size($l)
957 -         let $acc0 = ""
958 -         func $f0_1 ($a,$i) =         if (($i >= $s))
959 -             then $a
960 -             else f($a, $l[$i])
961 - 
962 -         func $f0_2 ($a,$i) =         if (($i >= $s))
963 -             then $a
964 -             else throw("List size exceeds 12")
965 - 
966 -         $f0_2($f0_1($f0_1($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), 11), 12)
967 -         }
968 -     if (debug)
969 -         then throw(parameter)
970 -         else $Tuple2(nil, parameter)
971 -     }
972 532  
973 533  
974 534  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 - let reserveFundAddress = Address(base58'3P4kBiU4wr2yV1S5gMfu3MdkVvy7kxXHsKe')
4 + let Scale8 = 100000000
5 5  
6 - let reserveFund = 20
6 + let sentinels = [Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'), Address(base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o'), Address(base58'3P8auNWJkxxByyJtwErFXaxiXcGM45qQ1hA'), Address(base58'3P8qVX189qpoTJZQQQdKS9endHK5sxWsvrd')]
7 7  
8 - let oracleAddress = Address(base58'3P8d1E1BLKoD52y3bQJ1bDTd2TD1gpaLn9t')
8 + let backendCaller = Address(base58'3PLGH6sG6ND59GU6gFXHKQRuL5bdpWFs6U6')
9 9  
10 - let aggregatorAddress = Address(base58'3PGFHzVGT4NTigwCKP1NcwoXkodVZwvBuuU')
10 + let orderbookOracle = Address(base58'3PPXVKjN6nRMzXeegcYhfiic96pd2c98Ekm')
11 11  
12 - let wxStakingAddress = Address(base58'3PDDRRS5gKyDQRpJskzWTdxREHGu1FNpdwg')
12 + let xtnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
13 13  
14 - let shutdownWhitelist = [base58'3PBTPFGaKL7qEdj9Tz1QUqbvJUcPNu934j4', base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL', base58'3PAxdDSmN758L5SHSGRC5apEtQE2aApZotG', base58'3PJKmXoHJvVeQXjSJdhtkUcFDtdiQqMbUTD', base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o', base58'3PHbdpaKzz8EiAngGHaFu2hVuNCdsC67qh3', base58'3P6Ksahs71SiKQgQ4qaZuFAVhqncdi2nvJQ']
14 + let xtnIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
15 15  
16 - func verifyLiquidatorRights (address) = !(if (if ((address != Address(base58'3PCqdm1mAoQqR46oZotFanmqb5CLUvrKEo2')))
17 -     then (address != Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'))
18 -     else false)
19 -     then (address != Address(base58'3PHbdpaKzz8EiAngGHaFu2hVuNCdsC67qh3'))
20 -     else false)
16 + let ethStr = "3VuV5WTmDz47Dmdn3QpcYjzbSdipjQE4JMdNe1xZpX13"
21 17  
18 + let stables = ["9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi", "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"]
22 19  
23 - func getRateCurve (assetIdStr) = match assetIdStr {
20 + let tokenIds = ["6nSpVyNH7yM69eg446wrQR94ipbbcmZMU1ENPwanC97g", "Ehie5xYpeN8op1Cctc6aGUrqx8jq3jtf1DSjXDbfm7aT", "4LHHvYGNKJUg5hj65aGD5vgScvCBmLpdRFtjokvCjSL8", "C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS", "34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ", "6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ", "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS", "Ajso6nTTjptu2UHLx6hfSXVtHFtRBJCkKYd5SAyj7zf5", "DSbbhLsSTeDg5Lsiufk2Aneh3DjVqJuPr2M9uU1gwy5p", "Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on", "2thsACuHmzDMuNezPM32wg9a3BwUzBWDeSKakgz3cw21", "YiNbofFzC17jEHHCMwrRcpy9MrrjabMMLZxg8g5xmf7", "8t4DPWTwPzpatHA9AkTxWAB47THnYzBsDnoY7fQqbG91", "At8D6NFFpheCbvKVnjVoeLL84Eo8NZn6ovManxfLaFWL", "6phK22ztGBW127gUFmdMEHKB3CVd6ZhWox2WtwJkbqTq", "3VuV5WTmDz47Dmdn3QpcYjzbSdipjQE4JMdNe1xZpX13", "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi"]
21 + 
22 + let tokenIsBaseAsset = [false, false, false, false, true, true, false, false, false, false, false, false, false, false, true, false, true, true]
23 + 
24 + let tokenDecimals = [1000000, 100000000, 100000000, 100000000, 1000000, 1000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 1000000, 1000000, 100000000, 1000000, 1000000]
25 + 
26 + let tokenWXWavesLPs = ["DZeA7RbVab98r61hVH5zcFZXwNALPJGgq1eyHandsKKW", "72E4MMFHngsixqAkNZCRJMLTmgAP9nufdsXexnS5qxVx", "FTTJnB6xG4CKZEJMgsgqjmgbzcyH8ya3tV8LQP2GCDs7", "3UnytNnkd48fHofHPBp59BkpZA1uMSJ8PdhWUCuerics", "ByJtVuYi58CtdjtasDuTqtgev8qWkdJybF7rY1xosmhE", "BoXuf9ewJSE1UMrKibZmigzC6tBzv8RFTeZmofEos2ZJ", "7G687ui3m59oAd6qkyni2vt77bHF4bbA6xcPfDo3uiTu", "EMsZpqcT8NuMYZCEPHzvrhQCQKhfXjdeekZvcWpHsNvh", "E3YhURNsCmjUaYNigH6AayLxbh9u81uVGU3ZvHKznY5v", "BiSzFe8nSL78oZaebfoin5vBZ5Pze6d7kaeijLqr5xZe", "AKQsEQoeinKRFtdx6rhKWcpkAMu6cbDLdtSWnR8tpBCq", "DjgwW4CMJEfpzj7SLFFPiCqf1zfmAgf1MD5gAS8SjKt4", "", "F3s92VRdppEtLVAP697CTM6AzZJECRcoMx5kj2FkGv4M", "6iMB6LKSrgv9waEvEnN6Ydyx7dfxPnGcTw8318WVm5bR", "E6MUGSUieSsq6QiJcbp6REdQXyjp6uPWLitnp9Gdtsuh", "6KWpnpLk6GNh5HG9ct9pNDCYFWJBoAAshZsp4D8jcFpV", ""]
27 + 
28 + let tokenWXXTNPools = ["", "", "", "3P3Y38zymCHoTM6qcE9JcEA8rhaGTQbVMgu", "", "", "3P615yXeQ9Qu4qBM1QGimGzixyMS5W4Ktug", "3PEkD5LuHGWhUfgBW1owZFxVydYoWjV6Jia", "3P5HjPowgipiVB3UvXphDiPvKs424WC9xQw", "3PCENpEKe8atwELZ7oCSmcdEfcRuKTrUx99", "", "", "3PH832eKnw67PFvJfUg9Knz6BHM87QvjMeL", "", "3PGcYzoUfQEQkhRgrBqmG5Wpc7A1ncFvRtM", "", "", ""]
29 + 
30 + let tokenSwopPools = ["3P2V63Xd6BviDkeMzxhUw2SJyojByRz8a8m", "3P27S9V36kw2McjWRZ37AxTx8iwkd7HXw6W", "3P6DLdJTP2EySq9MFdJu6beUevrQd2sVVBh", "", "", "", "3PBHyEwmERR1CEkrTNbPj2bgyisTfPRqfee", "3PDSXwwA2xAtmxeo2bebDP3AA5ynZ2Krgnw", "3PJ48P3p2wvWUjgQaQiZ2cFbr8qmxMokBGd", "3PKi4G3VX2k42ZSmNNrmvgdDH7JzRaUhY7R", "", "", "3PCwvns2dnmobD6Z4cR86v98s7LgMZYygEy", "3PLp9KrdrbWAvSFHGJVEaszUubquz3M6mfe", "", "", "", ""]
31 + 
32 + let lpTokenIds = ["9dbpSr8d18qWQxn5fJJSS1LLQ8CmSZ6gYmjuPRzg3RBM", "9MKixRt9rNRyaJCT2pexbXkuvpZBdJREdTU36bGit8iw", "6bZbRmou7M7wXBunMXQnZ4Rm66HxZF3KfMEiFwk3wmnA"]
33 + 
34 + let lpTokenBase = ["Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on", "WAVES", "WAVES"]
35 + 
36 + let lpTokenPool = [Address(base58'3PKJxKhn9MrzcvZv689bUpZgh4rurEgoKC8'), Address(base58'3P4PFYKHyxitgwVb4WVWEcdH7ZsuR4GgcXC'), Address(base58'3PCpjLGo4wDuv23kjmGF6mHs86Bf3soYvAq')]
37 + 
38 + let lpTokenBaseShare = [30000000, 20000000, 20000000]
39 + 
40 + let wxLpTokenIds = ["rZMQ6g31Lr7sPAaAoYc4U2PHCVauTuKUSzUbJtUyPZN"]
41 + 
42 + let wxLpUnderlying = [["9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi", "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"]]
43 + 
44 + let wx_restAddressStr = "3P8MoPnsaurofk1VyhsdAFkeQ6ijpJYXCpW"
45 + 
46 + let wx_restDapp = addressFromStringValue(wx_restAddressStr)
47 + 
48 + let swopRestDapp = addressFromStringValue("3P56jNQzECXnrWpnbbSJKw7Eooo6fkUaMPp")
49 + 
50 + let oracleTolerance = 1000
51 + 
52 + let shutdownTrigger = 3000
53 + 
54 + let revisionNum = ""
55 + 
56 + let SEP = "__"
57 + 
58 + func asString (v) = match v {
59 +     case s: String => 
60 +         s
24 61      case _ => 
25 -         $Tuple4(20000000, 100000000, 60000000, 400000000)
62 +         throw("fail to cast into String")
26 63  }
27 64  
28 65  
29 - let sentinels = [Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'), Address(base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o'), Address(base58'3P8auNWJkxxByyJtwErFXaxiXcGM45qQ1hA'), Address(base58'3P8qVX189qpoTJZQQQdKS9endHK5sxWsvrd')]
30 - 
31 - let Scale8 = 100000000
32 - 
33 - let Scale10 = 10000000000
34 - 
35 - let Scale16 = (Scale8 * Scale8)
36 - 
37 - let dayBlocks = 1440
38 - 
39 - func liIntToStr (li) = {
40 -     func f (accum,next) =     ((accum + toString(next)) + ",")
41 - 
42 -     let $l = li
43 -     let $s = size($l)
44 -     let $acc0 = ""
45 -     func $f0_1 ($a,$i) =     if (($i >= $s))
46 -         then $a
47 -         else f($a, $l[$i])
48 - 
49 -     func $f0_2 ($a,$i) =     if (($i >= $s))
50 -         then $a
51 -         else throw("List size exceeds 12")
52 - 
53 -     $f0_2($f0_1($f0_1($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), 11), 12)
54 -     }
66 + func asInt (v) = match v {
67 +     case i: Int => 
68 +         i
69 +     case _ => 
70 +         throw("fail to cast into Int")
71 + }
55 72  
56 73  
57 74  func tryGetInteger (key) = match getInteger(this, key) {
58 75      case b: Int => 
59 76          b
60 77      case _ => 
61 78          0
62 79  }
63 80  
64 81  
65 - func tryGetBoolean (key) = match getBoolean(this, key) {
66 -     case b: Boolean => 
67 -         b
68 -     case _ => 
69 -         false
70 - }
71 - 
72 - 
73 - func tryGetString (key) = match getString(this, key) {
74 -     case b: String => 
75 -         b
76 -     case _ => 
77 -         ""
78 - }
79 - 
80 - 
81 - func tryGetBinary (key) = match getBinary(this, key) {
82 -     case b: ByteVector => 
83 -         b
84 -     case _ => 
85 -         base58''
86 - }
87 - 
88 - 
89 - func getAssetString (assetId) = match assetId {
90 -     case b: ByteVector => 
91 -         toBase58String(b)
92 -     case _ => 
93 -         "WAVES"
94 - }
95 - 
96 - 
97 82  func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
98 83      then unit
99 84      else fromBase58String(assetIdStr)
100 85  
101 86  
102 - func getBalance (assetIdStr) = if ((assetIdStr == "WAVES"))
103 -     then wavesBalance(this).available
104 -     else assetBalance(this, fromBase58String(assetIdStr))
87 + let doraAddressStr = "3PKkojKdd6BBzTf1RXbQVfUDraNFXXHKzQF"
105 88  
89 + let doraAddress = addressFromStringValue(doraAddressStr)
106 90  
107 - func getMarketAssets () = split(tryGetString("setup_tokens"), ",")
91 + let xtnUsdPriceX6 = valueOrErrorMessage(getInteger(doraAddress, "%s%s__price__USDN-USDT"), "DORA doesn't contain USDN/USDT price")
108 92  
109 - 
110 - func getAssetsMaxSupply () = {
111 -     let s = tryGetString("setup_maxSupply")
112 -     if ((s == ""))
113 -         then [-1, -1, -1, -1, -1, -1, -1]
114 -         else split(s, ",")
93 + func getTokenPrice (tokenNum,wavesUsdPriceX6) = {
94 +     let tokenIdStr = tokenIds[tokenNum]
95 +     let tokenId = fromBase58String(tokenIdStr)
96 +     if ((indexOf(stables, tokenIdStr) != unit))
97 +         then $Tuple2(1000000, "stable token price")
98 +         else {
99 +             let wx_T1Waves_lp = tokenWXWavesLPs[tokenNum]
100 +             let $t058336549 = if ((wx_T1Waves_lp == ""))
101 +                 then $Tuple2(0, 0)
102 +                 else {
103 +                     let wxRestResult = split(asString(invoke(wx_restDapp, "poolStatsREADONLY", [wx_T1Waves_lp], nil)), "__")
104 +                     let $t060576149 = if (tokenIsBaseAsset[tokenNum])
105 +                         then $Tuple2(1, 2)
106 +                         else $Tuple2(2, 1)
107 +                     let wavesInPairNum = $t060576149._1
108 +                     let tokenInPairNum = $t060576149._2
109 +                     let wx_T1Waves_WAVESx8 = parseIntValue(wxRestResult[wavesInPairNum])
110 +                     let wx_T1Waves_T1x8 = fraction(parseIntValue(wxRestResult[tokenInPairNum]), 100000000, tokenDecimals[tokenNum])
111 +                     let wx_T1Waves_T1UsdPriceX6 = fraction(wx_T1Waves_WAVESx8, wavesUsdPriceX6, wx_T1Waves_T1x8)
112 +                     let wx_T1Waves_Weight = wx_T1Waves_T1x8
113 +                     $Tuple2(wx_T1Waves_T1UsdPriceX6, wx_T1Waves_Weight)
114 +                     }
115 +             let wx_T1Waves_T1UsdPriceX6 = $t058336549._1
116 +             let wx_T1Waves_Weight = $t058336549._2
117 +             let wx_T1Xtn_AddressStr = tokenWXXTNPools[tokenNum]
118 +             let $t066117042 = if ((wx_T1Xtn_AddressStr == ""))
119 +                 then $Tuple2(0, 0)
120 +                 else {
121 +                     let wx_T1Xtn_Address = addressFromStringValue(wx_T1Xtn_AddressStr)
122 +                     let wx_T1Xtn_XTNx6 = assetBalance(wx_T1Xtn_Address, xtnId)
123 +                     let wx_T1Xtn_T1x8 = assetBalance(wx_T1Xtn_Address, tokenId)
124 +                     $Tuple2(fraction((wx_T1Xtn_XTNx6 * (tokenDecimals[tokenNum] / 1000000)), xtnUsdPriceX6, wx_T1Xtn_T1x8), wx_T1Xtn_T1x8)
125 +                     }
126 +             let wx_T1Xtn_T1UsdPriceX6 = $t066117042._1
127 +             let wx_T1Xtn_Weight = $t066117042._2
128 +             let swop_T1Xtn_AddressStr = tokenSwopPools[tokenNum]
129 +             let $t071057723 = if ((swop_T1Xtn_AddressStr == ""))
130 +                 then $Tuple2(0, 0)
131 +                 else {
132 +                     let swop_T1Xtn_Address = addressFromStringValue(swop_T1Xtn_AddressStr)
133 +                     let swop_T1Xtn_T1XtnPriceX6 = asInt(invoke(swopRestDapp, "calcGetAmountCPMM", [swop_T1Xtn_AddressStr, "3P88qk1KzF1BKjD7fC7LjNVAKM4ezff5WE6", tokenIdStr, tokenDecimals[tokenNum]], nil))
134 +                     let swop_T1Xtn_T1UsdPriceX6 = fraction(swop_T1Xtn_T1XtnPriceX6, xtnUsdPriceX6, 1000000)
135 +                     let swop_T1Xtn_Weight = getIntegerValue(swop_T1Xtn_Address, "A_asset_balance")
136 +                     $Tuple2(swop_T1Xtn_T1UsdPriceX6, swop_T1Xtn_Weight)
137 +                     }
138 +             let swop_T1Xtn_T1UsdPriceX6 = $t071057723._1
139 +             let swop_T1Xtn_Weight = $t071057723._2
140 +             let W = ((wx_T1Waves_Weight + wx_T1Xtn_Weight) + swop_T1Xtn_Weight)
141 +             let T1UsdPriceX6 = ((fraction(wx_T1Waves_T1UsdPriceX6, wx_T1Waves_Weight, W) + fraction(wx_T1Xtn_T1UsdPriceX6, wx_T1Xtn_Weight, W)) + fraction(swop_T1Xtn_T1UsdPriceX6, swop_T1Xtn_Weight, W))
142 +             let debug = ((((((("T1UsdPriceX6=" + toString(T1UsdPriceX6)) + " wx_T1Waves_T1UsdPriceX6=") + toString(wx_T1Waves_T1UsdPriceX6)) + " wx_T1Xtn_T1UsdPriceX6=") + toString(wx_T1Xtn_T1UsdPriceX6)) + " swop_T1Xtn_T1UsdPriceX6=") + toString(swop_T1Xtn_T1UsdPriceX6))
143 +             $Tuple2(T1UsdPriceX6, debug)
144 +             }
115 145      }
116 146  
117 147  
118 - func getOutdatedUr (assetIdStr) = {
119 -     let down = fraction(tryGetInteger(("total_supplied_" + assetIdStr)), tryGetInteger((assetIdStr + "_sRate")), Scale16)
120 -     if ((down == 0))
121 -         then 0
122 -         else fraction(Scale8, fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), tryGetInteger((assetIdStr + "_bRate")), Scale16), down)
148 + let lastUpdatedBlockKey = "lastUpdatedBlock"
149 + 
150 + let n15List = [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
151 + 
152 + func getPriceDataKey (block,tokenId) = ((("block_" + toString(block)) + "_") + tokenId)
153 + 
154 + 
155 + func getPriceValue (tokenId,block) = valueOrElse(getInteger(orderbookOracle, getPriceDataKey(block, tokenId)), 0)
156 + 
157 + 
158 + func getLastUpdatedBlock () = {
159 +     let lastUpdatedBlock = valueOrErrorMessage(getInteger(orderbookOracle, lastUpdatedBlockKey), "Last updated block key not found")
160 +     if ((0 >= lastUpdatedBlock))
161 +         then throw("Invalid block value")
162 +         else if (((height - lastUpdatedBlock) > 10))
163 +             then throw("The price has not been updated for a long time")
164 +             else lastUpdatedBlock
123 165      }
124 166  
125 167  
126 - func getInterest (assetIdStr) = {
127 -     let ur = getOutdatedUr(assetIdStr)
128 -     let curve = getRateCurve(assetIdStr)
129 -     let rate = (curve._1 + (if ((curve._3 >= ur))
130 -         then fraction(ur, curve._2, curve._3)
131 -         else (curve._2 + fraction((ur - curve._3), curve._4, (100000000 - curve._3)))))
132 -     max([fraction(rate, Scale8, (dayBlocks * 365)), 1])
168 + func getPriceList (accum,next) = {
169 +     let $t091649205 = accum
170 +     let result = $t091649205._1
171 +     let block = $t091649205._2
172 +     let tokenId = $t091649205._3
173 +     let sum = $t091649205._4
174 +     let priceValue = getPriceValue(tokenId, block)
175 +     let nextBlock = (block - next)
176 +     if ((priceValue > 0))
177 +         then $Tuple4((result :+ priceValue), nextBlock, tokenId, (sum + priceValue))
178 +         else $Tuple4(result, nextBlock, tokenId, sum)
133 179      }
134 180  
135 181  
136 - func tokenRatesRecalc (assetIdStr) = {
137 -     let interest = getInterest(assetIdStr)
138 -     let ur = getOutdatedUr(assetIdStr)
139 -     let lastRecalcHeight = tryGetInteger("lastRateHeight")
140 -     let lastBRate = max([tryGetInteger((assetIdStr + "_bRate")), Scale16])
141 -     let newBRate = (lastBRate + ((height - lastRecalcHeight) * interest))
142 -     let lastSRate = max([tryGetInteger((assetIdStr + "_sRate")), Scale16])
143 -     let newSRate = (lastSRate + ((((height - lastRecalcHeight) * fraction(interest, ur, Scale8)) * (100 - reserveFund)) / 100))
144 - [IntegerEntry((assetIdStr + "_sRate"), newSRate), IntegerEntry((assetIdStr + "_bRate"), newBRate), IntegerEntry("lastRateHeight", height)]
145 -     }
146 - 
147 - 
148 - func getActualRate (assetIdStr,rateType) = {
149 -     func f (accum,token) =     {
150 -         let recalc = tokenRatesRecalc(token)
151 -         $Tuple2(if ((token != assetIdStr))
152 -             then accum._1
153 -             else if ((rateType == "sRate"))
154 -                 then recalc[0].value
155 -                 else recalc[1].value, (accum._2 ++ recalc))
156 -         }
157 - 
158 -     let $l = getMarketAssets()
159 -     let $s = size($l)
160 -     let $acc0 = $Tuple2(0, nil)
161 -     func $f0_1 ($a,$i) =     if (($i >= $s))
162 -         then $a
163 -         else f($a, $l[$i])
164 - 
165 -     func $f0_2 ($a,$i) =     if (($i >= $s))
166 -         then $a
167 -         else throw("List size exceeds 12")
168 - 
169 -     $f0_2($f0_1($f0_1($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), 11), 12)
170 -     }
171 - 
172 - 
173 - func getUr (assetIdStr) = {
174 -     let rates = tokenRatesRecalc(assetIdStr)
175 -     let down = fraction(tryGetInteger(("total_supplied_" + assetIdStr)), rates[0].value, Scale16)
176 -     fraction(Scale8, fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), rates[1].value, Scale16), down)
177 -     }
178 - 
179 - 
180 - func ratesRecalc () = {
181 -     func f (accum,token) =     (accum ++ tokenRatesRecalc(token))
182 - 
183 -     let $l = getMarketAssets()
184 -     let $s = size($l)
185 -     let $acc0 = nil
186 -     func $f0_1 ($a,$i) =     if (($i >= $s))
187 -         then $a
188 -         else f($a, $l[$i])
189 - 
190 -     func $f0_2 ($a,$i) =     if (($i >= $s))
191 -         then $a
192 -         else throw("List size exceeds 12")
193 - 
194 -     $f0_2($f0_1($f0_1($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), 11), 12)
195 -     }
196 - 
197 - 
198 - func getTokenPriceWithRisk (assetIdStr,riskAversity) = if (if ((assetIdStr == "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi"))
199 -     then true
200 -     else (assetIdStr == "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"))
201 -     then $Tuple2(1000000, 1000000)
202 -     else {
203 -         let price = getIntegerValue(oracleAddress, (assetIdStr + "_twap5B"))
204 -         let riskLevel = getIntegerValue(oracleAddress, (assetIdStr + "_riskLevel"))
205 -         if ((riskAversity >= riskLevel))
206 -             then $Tuple2(price, price)
207 -             else throw((("oracle prices don't match: " + toString(price)) + " is the price, but risk is too high"))
208 -         }
209 - 
210 - 
211 - func getTokenPrice (assetIdStr) = getTokenPriceWithRisk(assetIdStr, 3)
212 - 
213 - 
214 - func calcAssetScale (assetIdStr) = {
215 -     let decimals = if ((assetIdStr == "WAVES"))
216 -         then 8
217 -         else value(assetInfo(fromBase58String(assetIdStr))).decimals
218 -     pow(10, 0, decimals, 0, 0, DOWN)
219 -     }
220 - 
221 - 
222 - func calcUserCollateral (address) = {
223 -     let userCollateralInvoke = invoke(this, "getUserCollateral", [false, address, true, ""], nil)
224 -     if ((userCollateralInvoke == userCollateralInvoke))
182 + func getOrderbookTwap (tokenIdStr) = {
183 +     let inv = invoke(this, "getOrderbookTwap15", [tokenIdStr, false], nil)
184 +     if ((inv == inv))
225 185          then {
226 -             let userCollateralValue =             match userCollateralInvoke {
227 -                 case x: Int => 
228 -                     x
229 -                 case _ => 
230 -                     throw("issue while doing in-dapp invocation")
231 -             }
232 -             if ((userCollateralValue == userCollateralValue))
233 -                 then userCollateralValue
186 +             let orderbookPrice = {
187 +                 let @ = inv
188 +                 if ($isInstanceOf(@, "(Int, Boolean)"))
189 +                     then @
190 +                     else throw(($getType(@) + " couldn't be cast to (Int, Boolean)"))
191 +                 }
192 +             if ((orderbookPrice == orderbookPrice))
193 +                 then orderbookPrice
234 194                  else throw("Strict value is not equal to itself.")
235 195              }
236 196          else throw("Strict value is not equal to itself.")
237 197      }
238 198  
239 199  
240 200  @Callable(i)
241 - func supply () = if (!(tryGetBoolean("setup_active")))
242 -     then throw("market is stopped")
243 -     else if (if ((size(i.payments) != 1))
244 -         then true
245 -         else (i.payments[0].amount == 0))
246 -         then throw("1 payment has to be attached")
247 -         else {
248 -             let assetIdStr = getAssetString(i.payments[0].assetId)
249 -             let assetAmount = i.payments[0].amount
250 -             let $t086588725 = getActualRate(assetIdStr, "sRate")
251 -             let sRate = $t086588725._1
252 -             let ratesRecalcResult = $t086588725._2
253 -             let amount = fraction(assetAmount, Scale16, sRate, DOWN)
254 -             let address = toString(i.caller)
255 -             let maxSupply =             match getString(("setup_maxSupply_" + assetIdStr)) {
256 -                 case x: String => 
257 -                     parseIntValue(x)
258 -                 case _ => 
259 -                     tryGetInteger(("setup_maxSupply_" + assetIdStr))
260 -             }
261 -             let assetPrice = getTokenPrice(assetIdStr)
262 -             let newAddressSupplied = (tryGetInteger(((address + "_supplied_") + assetIdStr)) + amount)
263 -             let newTotalSupplied = (tryGetInteger(("total_supplied_" + assetIdStr)) + amount)
264 -             let rate = getActualRate(assetIdStr, "sRate")._1
265 -             let assetScale = calcAssetScale(assetIdStr)
266 -             let newTotalSuppliedUsd = fraction(fraction(newTotalSupplied, rate, Scale16), assetPrice._1, assetScale)
267 -             if ((indexOf(tryGetString("setup_tokens"), assetIdStr) == unit))
268 -                 then throw("this asset is not supported by the market")
269 -                 else if (if ((maxSupply != 0))
270 -                     then (newTotalSuppliedUsd > maxSupply)
271 -                     else false)
272 -                     then throw("max total supply for this token reached in the pool")
273 -                     else if ((tryGetInteger(("setup_paused_" + assetIdStr)) > 0))
274 -                         then throw("this asset can't be supplied or borrowed")
275 -                         else {
276 -                             let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
277 -                                 then invoke(this, "stakeToken", [assetIdStr, assetAmount], nil)
278 -                                 else unit
279 -                             if ((inv == inv))
280 -                                 then ([IntegerEntry(((address + "_supplied_") + assetIdStr), newAddressSupplied), IntegerEntry(("total_supplied_" + assetIdStr), newTotalSupplied)] ++ ratesRecalcResult)
281 -                                 else throw("Strict value is not equal to itself.")
282 -                             }
283 -             }
201 + func getOrderbookTwap15 (tokenId,debug) = {
202 +     let lastUpdatedBlock = getLastUpdatedBlock()
203 +     let tuple = {
204 +         let $l = n15List
205 +         let $s = size($l)
206 +         let $acc0 = $Tuple4(nil, lastUpdatedBlock, tokenId, 0)
207 +         func $f0_1 ($a,$i) =         if (($i >= $s))
208 +             then $a
209 +             else getPriceList($a, $l[$i])
284 210  
211 +         func $f0_2 ($a,$i) =         if (($i >= $s))
212 +             then $a
213 +             else throw("List size exceeds 15")
285 214  
286 - 
287 - @Callable(i)
288 - func withdraw (assetIdStr,assetAmount) = {
289 -     let $t01028610353 = getActualRate(assetIdStr, "sRate")
290 -     let sRate = $t01028610353._1
291 -     let ratesRecalcResult = $t01028610353._2
292 -     let amount = fraction(assetAmount, Scale16, sRate, CEILING)
293 -     let address = toString(i.caller)
294 -     let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
295 -     let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
296 -     let userAssetSupplied = tryGetInteger(((address + "_supplied_") + assetIdStr))
297 -     let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
298 -     let collateralValueInv = invoke(this, "getUserCollateral", [false, address, true, ((assetIdStr + ",supplied,") + toString(-(amount)))], nil)
299 -     if ((collateralValueInv == collateralValueInv))
300 -         then {
301 -             let collateralValue =             match collateralValueInv {
302 -                 case x: Int => 
303 -                     x
304 -                 case _ => 
305 -                     throw("can't get user collateral value")
306 -             }
307 -             if (!(tryGetBoolean("setup_active")))
308 -                 then throw("market is stopped")
309 -                 else if ((0 > collateralValue))
310 -                     then throw("you dont have enough collateral for this operation")
311 -                     else if ((amount > (assetSupplied - assetBorrowed)))
312 -                         then throw("this amount is not available on the market")
313 -                         else if ((amount > (userAssetSupplied - userAssetBorrowed)))
314 -                             then throw("this amount is not available for this user")
315 -                             else {
316 -                                 let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
317 -                                     then invoke(this, "unstakeToken", [assetIdStr, assetAmount], nil)
318 -                                     else unit
319 -                                 if ((inv == inv))
320 -                                     then ([IntegerEntry(((address + "_supplied_") + assetIdStr), (tryGetInteger(((address + "_supplied_") + assetIdStr)) - amount)), IntegerEntry(("total_supplied_" + assetIdStr), (tryGetInteger(("total_supplied_" + assetIdStr)) - amount)), ScriptTransfer(i.caller, assetAmount, getAssetBytes(assetIdStr))] ++ ratesRecalcResult)
321 -                                     else throw("Strict value is not equal to itself.")
322 -                                 }
323 -             }
324 -         else throw("Strict value is not equal to itself.")
215 +         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
216 +         }
217 +     let pricesList = tuple._1
218 +     let sum = tuple._4
219 +     let average = fraction(sum, 1000000, fraction(size(pricesList), 1000000, 1))
220 +     let isLocked = valueOrElse(getBoolean(orderbookOracle, (tokenId + "_locked")), false)
221 +     if (debug)
222 +         then throw((((((((("average: " + toString(average)) + ", isLocked: ") + toString(isLocked)) + ", ") + "priceListSize: ") + toString(size(pricesList))) + ", sum: ") + toString(sum)))
223 +         else $Tuple2(nil, $Tuple2(average, isLocked))
325 224      }
326 225  
327 226  
328 227  
329 228  @Callable(i)
330 - func borrow (assetIdStr,assetAmount) = {
331 -     let address = toString(i.caller)
332 -     let $t01200912076 = getActualRate(assetIdStr, "bRate")
333 -     let bRate = $t01200912076._1
334 -     let ratesRecalcResult = $t01200912076._2
335 -     let amount = fraction(assetAmount, Scale16, bRate, CEILING)
336 -     let collateralValueInv = invoke(this, "getUserCollateral", [false, address, true, ((assetIdStr + ",borrowed,") + toString(amount))], nil)
337 -     if ((collateralValueInv == collateralValueInv))
229 + func updateWxLpTokenPrice (assetIdStr) = {
230 +     let wavesPrice = getIntegerValue(doraAddress, "%s%s__price__WAVES-USDT")
231 +     let tokenNum = value(indexOf(wxLpTokenIds, assetIdStr))
232 +     let underlying = wxLpUnderlying[tokenNum]
233 +     let underlying1Price = if ((underlying[0] == "WAVES"))
234 +         then wavesPrice
235 +         else if ((indexOf(stables, underlying[0]) != unit))
236 +             then 1000000
237 +             else getTokenPrice(value(indexOf(tokenIds, underlying[0])), wavesPrice)._1
238 +     let underlying1Decimals = if ((underlying[0] == "WAVES"))
239 +         then 8
240 +         else value(value(assetInfo(fromBase58String(underlying[0]))).decimals)
241 +     let underlying2Price = if ((underlying[1] == "WAVES"))
242 +         then wavesPrice
243 +         else if ((indexOf(stables, underlying[1]) != unit))
244 +             then 1000000
245 +             else getTokenPrice(value(indexOf(tokenIds, underlying[1])), wavesPrice)._1
246 +     let underlying2Decimals = if ((underlying[1] == "WAVES"))
247 +         then 8
248 +         else value(value(assetInfo(fromBase58String(underlying[1]))).decimals)
249 +     let underlying1Scale = if ((underlying1Decimals == 8))
250 +         then Scale8
251 +         else 1000000
252 +     let underlying2Scale = if ((underlying2Decimals == 8))
253 +         then Scale8
254 +         else 1000000
255 +     let inv = {
256 +         let @ = invoke(wx_restDapp, "poolEvaluateGetREADONLY", [assetIdStr, 100000000], nil)
257 +         if ($isInstanceOf(@, "String"))
258 +             then @
259 +             else throw(($getType(@) + " couldn't be cast to String"))
260 +         }
261 +     if ((inv == inv))
338 262          then {
339 -             let collateralValue =             match collateralValueInv {
340 -                 case x: Int => 
341 -                     x
342 -                 case _ => 
343 -                     throw("can't get user collateral value")
344 -             }
345 -             if (!(tryGetBoolean("setup_active")))
346 -                 then throw("market is stopped")
347 -                 else if ((0 > collateralValue))
348 -                     then throw("you have to supply more to borrow")
349 -                     else if ((tryGetInteger(("setup_paused_" + assetIdStr)) > 0))
350 -                         then throw("this asset can't be supplied or borrowed")
263 +             let vals = split(inv, "__")
264 +             let underlying1Amount = parseIntValue(vals[1])
265 +             let underlying2Amount = parseIntValue(vals[2])
266 +             let tokenPrice = (fraction(underlying1Price, underlying1Amount, underlying1Scale) + fraction(underlying2Price, underlying2Amount, underlying2Scale))
267 +             let lastTwap = tryGetInteger((assetIdStr + "_twap5B"))
268 +             let lastHeight = tryGetInteger((assetIdStr + "_lastBlock"))
269 +             if ((i.originCaller != backendCaller))
270 +                 then throw("available for backend only")
271 +                 else if ((2 > (height - lastHeight)))
272 +                     then nil
273 +                     else if (if ((lastHeight == 0))
274 +                         then true
275 +                         else ((height - lastHeight) > 100))
276 +                         then [IntegerEntry((assetIdStr + "_twap5B"), tokenPrice), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), toString(tokenPrice)), IntegerEntry((assetIdStr + "_riskLevel"), 1)]
351 277                          else {
352 -                             let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
353 -                             let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
354 -                             let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
355 -                             if ((amount > (assetSupplied - assetBorrowed)))
356 -                                 then throw("this amount is not available")
278 +                             let lastPrices = split(getStringValue((assetIdStr + "_lastPrices")), ",")
279 +                             let newPrices = toString(tokenPrice) :: lastPrices
280 +                             func sumHandler (accum,next) =                             (accum + parseIntValue(next))
281 + 
282 +                             let newTwap = ({
283 +                                 let $l = newPrices
284 +                                 let $s = size($l)
285 +                                 let $acc0 = 0
286 +                                 func $f0_1 ($a,$i) =                                 if (($i >= $s))
287 +                                     then $a
288 +                                     else sumHandler($a, $l[$i])
289 + 
290 +                                 func $f0_2 ($a,$i) =                                 if (($i >= $s))
291 +                                     then $a
292 +                                     else throw("List size exceeds 6")
293 + 
294 +                                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
295 +                                 } / size(newPrices))
296 +                             let priceDiff = fraction(tokenPrice, 10000, parseIntValue(lastPrices[(size(lastPrices) - 1)]))
297 +                             let priceDiffOk = if (((10000 + shutdownTrigger) > priceDiff))
298 +                                 then (priceDiff > (10000 - shutdownTrigger))
299 +                                 else false
300 +                             let riskLevel = if (priceDiffOk)
301 +                                 then 1
302 +                                 else 2
303 +                             if ((5 >= size(newPrices)))
304 +                                 then {
305 +                                     let updPrices = makeString(newPrices, ",")
306 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
307 +                                     }
357 308                                  else {
358 -                                     let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
359 -                                         then invoke(this, "unstakeToken", [assetIdStr, assetAmount], nil)
360 -                                         else unit
361 -                                     if ((inv == inv))
362 -                                         then ([IntegerEntry(((address + "_borrowed_") + assetIdStr), (userAssetBorrowed + amount)), IntegerEntry(("total_borrowed_" + assetIdStr), (assetBorrowed + amount)), ScriptTransfer(i.caller, assetAmount, getAssetBytes(assetIdStr))] ++ ratesRecalcResult)
363 -                                         else throw("Strict value is not equal to itself.")
309 +                                     let updPrices = makeString(removeByIndex(newPrices, (size(newPrices) - 1)), ",")
310 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
364 311                                      }
365 312                              }
366 313              }
367 314          else throw("Strict value is not equal to itself.")
368 315      }
369 316  
370 317  
371 318  
372 319  @Callable(i)
373 - func repay () = if (!(tryGetBoolean("setup_active")))
374 -     then throw("market is stopped")
375 -     else if (if ((size(i.payments) != 1))
376 -         then true
377 -         else (i.payments[0].amount == 0))
378 -         then throw("1 payment has to be attached")
379 -         else {
380 -             let assetIdStr = getAssetString(i.payments[0].assetId)
381 -             let assetAmount = i.payments[0].amount
382 -             let $t01385213919 = getActualRate(assetIdStr, "bRate")
383 -             let bRate = $t01385213919._1
384 -             let ratesRecalcResult = $t01385213919._2
385 -             let amount = fraction(assetAmount, Scale16, bRate, CEILING)
386 -             let address = toString(i.caller)
387 -             let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
388 -             let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
389 -             let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
390 -             let amountLeft = (userAssetBorrowed - amount)
391 -             let repayAmount = if ((amountLeft >= 0))
392 -                 then amount
393 -                 else userAssetBorrowed
394 -             if ((indexOf(tryGetString("setup_tokens"), assetIdStr) == unit))
395 -                 then throw("this asset is not supported by the market")
320 + func updateLpTokenPrice (assetIdStr) = {
321 +     let wavesPrice = getIntegerValue(doraAddress, "%s%s__price__WAVES-USDT")
322 +     let tokenNum = value(indexOf(lpTokenIds, assetIdStr))
323 +     let baseIdStr = lpTokenBase[tokenNum]
324 +     let basePrice = if ((baseIdStr == "WAVES"))
325 +         then wavesPrice
326 +         else getTokenPrice(value(indexOf(tokenIds, baseIdStr)), wavesPrice)._1
327 +     let baseQuantity = getIntegerValue(lpTokenPool[tokenNum], (("global_" + baseIdStr) + "_balance"))
328 +     let tokenQuantity = value(assetInfo(value(getAssetBytes(assetIdStr)))).quantity
329 +     let tokenPrice = fraction(fraction(fraction(basePrice, baseQuantity, 1000000), Scale8, lpTokenBaseShare[tokenNum]), 1000000, tokenQuantity)
330 +     let lastTwap = tryGetInteger((assetIdStr + "_twap5B"))
331 +     let lastHeight = tryGetInteger((assetIdStr + "_lastBlock"))
332 +     if ((i.originCaller != backendCaller))
333 +         then throw("available for backend only")
334 +         else if ((2 > (height - lastHeight)))
335 +             then nil
336 +             else if (if ((lastHeight == 0))
337 +                 then true
338 +                 else ((height - lastHeight) > 100))
339 +                 then [IntegerEntry((assetIdStr + "_twap5B"), tokenPrice), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), toString(tokenPrice)), IntegerEntry((assetIdStr + "_riskLevel"), 1)]
396 340                  else {
397 -                     let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
398 -                         then invoke(this, "stakeToken", [assetIdStr, assetAmount], nil)
399 -                         else unit
400 -                     if ((inv == inv))
401 -                         then (([IntegerEntry(((address + "_borrowed_") + assetIdStr), (userAssetBorrowed - repayAmount)), IntegerEntry(("total_borrowed_" + assetIdStr), (assetBorrowed - repayAmount))] ++ ratesRecalcResult) ++ (if ((amountLeft >= 0))
402 -                             then nil
403 -                             else [ScriptTransfer(i.caller, -(amountLeft), i.payments[0].assetId)]))
404 -                         else throw("Strict value is not equal to itself.")
405 -                     }
406 -             }
341 +                     let lastPrices = split(getStringValue((assetIdStr + "_lastPrices")), ",")
342 +                     let newPrices = toString(tokenPrice) :: lastPrices
343 +                     func sumHandler (accum,next) =                     (accum + parseIntValue(next))
407 344  
345 +                     let newTwap = ({
346 +                         let $l = newPrices
347 +                         let $s = size($l)
348 +                         let $acc0 = 0
349 +                         func $f0_1 ($a,$i) =                         if (($i >= $s))
350 +                             then $a
351 +                             else sumHandler($a, $l[$i])
408 352  
353 +                         func $f0_2 ($a,$i) =                         if (($i >= $s))
354 +                             then $a
355 +                             else throw("List size exceeds 6")
409 356  
410 - @Callable(i)
411 - func repayFor (address) = if (!(tryGetBoolean("setup_active")))
412 -     then throw("market is stopped")
413 -     else if ((i.caller != Address(base58'3P4kBiU4wr2yV1S5gMfu3MdkVvy7kxXHsKe')))
414 -         then throw("available only for reserve fund address")
415 -         else if ((address == "global"))
416 -             then throw("you can't repay for everyone :_)")
417 -             else if (if ((size(i.payments) != 1))
418 -                 then true
419 -                 else (i.payments[0].amount == 0))
420 -                 then throw("1 payment has to be attached")
421 -                 else {
422 -                     let assetIdStr = getAssetString(i.payments[0].assetId)
423 -                     let assetAmount = i.payments[0].amount
424 -                     let $t01560415671 = getActualRate(assetIdStr, "bRate")
425 -                     let bRate = $t01560415671._1
426 -                     let ratesRecalcResult = $t01560415671._2
427 -                     let amount = fraction(assetAmount, Scale16, bRate, CEILING)
428 -                     let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
429 -                     let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
430 -                     let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
431 -                     let amountLeft = (userAssetBorrowed - amount)
432 -                     let repayAmount = if ((amountLeft >= 0))
433 -                         then amount
434 -                         else userAssetBorrowed
435 -                     if ((indexOf(tryGetString("setup_tokens"), assetIdStr) == unit))
436 -                         then throw("this asset is not supported by the market")
357 +                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
358 +                         } / size(newPrices))
359 +                     let priceDiff = fraction(tokenPrice, 10000, parseIntValue(lastPrices[(size(lastPrices) - 1)]))
360 +                     let priceDiffOk = if (((10000 + shutdownTrigger) > priceDiff))
361 +                         then (priceDiff > (10000 - shutdownTrigger))
362 +                         else false
363 +                     let riskLevel = if (priceDiffOk)
364 +                         then 1
365 +                         else 2
366 +                     if ((5 >= size(newPrices)))
367 +                         then {
368 +                             let updPrices = makeString(newPrices, ",")
369 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
370 +                             }
437 371                          else {
438 -                             let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
439 -                                 then invoke(this, "stakeToken", [assetIdStr, assetAmount], nil)
440 -                                 else unit
441 -                             if ((inv == inv))
442 -                                 then (([IntegerEntry(((address + "_borrowed_") + assetIdStr), (userAssetBorrowed - repayAmount)), IntegerEntry(("total_borrowed_" + assetIdStr), (assetBorrowed - repayAmount))] ++ ratesRecalcResult) ++ (if ((amountLeft >= 0))
443 -                                     then nil
444 -                                     else [ScriptTransfer(i.caller, -(amountLeft), i.payments[0].assetId)]))
445 -                                 else throw("Strict value is not equal to itself.")
372 +                             let updPrices = makeString(removeByIndex(newPrices, (size(newPrices) - 1)), ",")
373 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
446 374                              }
447 375                      }
448 - 
449 - 
450 - 
451 - @Callable(i)
452 - func stakeToken (assetIdStr,amount) = {
453 -     let wxStakerSupportedAssets = getStringValue(wxStakingAddress, "setup_supportedAssets")
454 -     if ((i.caller != this))
455 -         then throw("only for internal smart contract invocations")
456 -         else if ((indexOf(wxStakerSupportedAssets, assetIdStr) == unit))
457 -             then nil
458 -             else {
459 -                 let amountStaked = tryGetInteger(("autostake_amount_" + assetIdStr))
460 -                 let stakeInv = invoke(wxStakingAddress, "stakeLP", nil, [AttachedPayment(getAssetBytes(assetIdStr), amount)])
461 -                 if ((stakeInv == stakeInv))
462 -                     then [IntegerEntry(("autostake_amount_" + assetIdStr), (amountStaked + amount))]
463 -                     else throw("Strict value is not equal to itself.")
464 -                 }
465 376      }
466 377  
467 378  
468 379  
469 380  @Callable(i)
470 - func stakeTokenAll (assetIdStr) = if ((i.caller != this))
471 -     then throw("only for internal smart contract invocations")
472 -     else {
473 -         let amount = getBalance(assetIdStr)
474 -         let inv = invoke(this, "stakeToken", [assetIdStr, amount], nil)
475 -         if ((inv == inv))
381 + func updateTokenPrice (assetIdStr) = {
382 +     let wavesPrice = getIntegerValue(doraAddress, "%s%s__price__WAVES-USDT")
383 +     let tokenPrice = if ((assetIdStr == "WAVES"))
384 +         then wavesPrice
385 +         else if ((assetIdStr == xtnIdStr))
386 +             then xtnUsdPriceX6
387 +             else {
388 +                 let priceInPools = getTokenPrice(value(indexOf(tokenIds, assetIdStr)), wavesPrice)._1
389 +                 if ((assetIdStr == ethStr))
390 +                     then {
391 +                         let ethPrice = getIntegerValue(doraAddress, "%s%s__price__ETH-USDT")
392 +                         let comp = fraction(priceInPools, 10000, ethPrice)
393 +                         if (if ((comp > (10000 - oracleTolerance)))
394 +                             then ((10000 + oracleTolerance) > comp)
395 +                             else false)
396 +                             then priceInPools
397 +                             else throw("internal ETH price doesn't match with global price")
398 +                         }
399 +                     else if ((indexOf(stables, assetIdStr) != unit))
400 +                         then 1000000
401 +                         else priceInPools
402 +                 }
403 +     let lastTwap = tryGetInteger((assetIdStr + "_twap5B"))
404 +     let lastHeight = tryGetInteger((assetIdStr + "_lastBlock"))
405 +     if ((i.originCaller != backendCaller))
406 +         then throw("available for backend only")
407 +         else if ((2 > (height - lastHeight)))
476 408              then nil
477 -             else throw("Strict value is not equal to itself.")
478 -         }
409 +             else if (if ((lastHeight == 0))
410 +                 then true
411 +                 else ((height - lastHeight) > 30))
412 +                 then [IntegerEntry((assetIdStr + "_twap5B"), tokenPrice), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), toString(tokenPrice))]
413 +                 else {
414 +                     let lastPrices = split(getStringValue((assetIdStr + "_lastPrices")), ",")
415 +                     let newPrices = toString(tokenPrice) :: lastPrices
416 +                     func sumHandler (accum,next) =                     (accum + parseIntValue(next))
479 417  
418 +                     let newTwap = ({
419 +                         let $l = newPrices
420 +                         let $s = size($l)
421 +                         let $acc0 = 0
422 +                         func $f0_1 ($a,$i) =                         if (($i >= $s))
423 +                             then $a
424 +                             else sumHandler($a, $l[$i])
480 425  
426 +                         func $f0_2 ($a,$i) =                         if (($i >= $s))
427 +                             then $a
428 +                             else throw("List size exceeds 6")
481 429  
482 - @Callable(i)
483 - func unstakeToken (assetIdStr,amount) = {
484 -     let wxStakerSupportedAssets = getStringValue(wxStakingAddress, "setup_supportedAssets")
485 -     if ((i.caller != this))
486 -         then throw("only for internal smart contract invocations")
487 -         else if ((indexOf(wxStakerSupportedAssets, assetIdStr) == unit))
488 -             then nil
489 -             else {
490 -                 let amountStaked = tryGetInteger(("autostake_amount_" + assetIdStr))
491 -                 let stakeInv = invoke(wxStakingAddress, "unstakeLP", [assetIdStr, amount], nil)
492 -                 if ((stakeInv == stakeInv))
493 -                     then [IntegerEntry(("autostake_amount_" + assetIdStr), (amountStaked - amount))]
494 -                     else throw("Strict value is not equal to itself.")
495 -                 }
430 +                         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
431 +                         } / size(newPrices))
432 +                     let orderbookTwapResult = getOrderbookTwap(assetIdStr)
433 +                     if ((orderbookTwapResult == orderbookTwapResult))
434 +                         then {
435 +                             let $t01804718105 = orderbookTwapResult
436 +                             let orderbookTwap = $t01804718105._1
437 +                             let orderbookLocked = $t01804718105._2
438 +                             let twapsComparison = if ((orderbookTwap != 0))
439 +                                 then fraction(newTwap, 10000, orderbookTwap)
440 +                                 else throw(("orderbook result zero for " + assetIdStr))
441 +                             let twapsSimilar = if ((twapsComparison > (10000 - oracleTolerance)))
442 +                                 then ((10000 + oracleTolerance) > twapsComparison)
443 +                                 else false
444 +                             let priceDiff = fraction(tokenPrice, 10000, parseIntValue(lastPrices[(size(lastPrices) - 1)]))
445 +                             let priceDiffOk = if (((10000 + shutdownTrigger) > priceDiff))
446 +                                 then (priceDiff > (10000 - shutdownTrigger))
447 +                                 else false
448 +                             let riskLevel = (((if (twapsSimilar)
449 +                                 then 1
450 +                                 else 2) + (if (orderbookLocked)
451 +                                 then 1
452 +                                 else 0)) + (if (!(priceDiffOk))
453 +                                 then 1
454 +                                 else 0))
455 +                             if (!(twapsSimilar))
456 +                                 then [IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
457 +                                 else if ((5 >= size(newPrices)))
458 +                                     then {
459 +                                         let updPrices = makeString(newPrices, ",")
460 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
461 +                                         }
462 +                                     else {
463 +                                         let updPrices = makeString(removeByIndex(newPrices, (size(newPrices) - 1)), ",")
464 + [IntegerEntry((assetIdStr + "_twap5B"), newTwap), IntegerEntry((assetIdStr + "_lastBlock"), height), StringEntry((assetIdStr + "_lastPrices"), updPrices), IntegerEntry((assetIdStr + "_riskLevel"), riskLevel)]
465 +                                         }
466 +                             }
467 +                         else throw("Strict value is not equal to itself.")
468 +                     }
496 469      }
497 470  
498 471  
499 472  
500 473  @Callable(i)
501 - func addInterest (assetIdStr,amount) = if ((i.caller != this))
502 -     then throw("only for self invocation")
474 + func updateTokens () = if ((i.originCaller != backendCaller))
475 +     then throw("available for backend only")
503 476      else {
504 -         let earned = tryGetInteger(("autostake_lastEarned_" + assetIdStr))
505 -         let lastHeight = tryGetInteger(("autostake_lastBlock_" + assetIdStr))
506 -         let cleanAmount = fraction(amount, 80, 100)
507 -         let stateChanges = if (if ((lastHeight == height))
508 -             then true
509 -             else (amount == 0))
510 -             then nil
511 -             else [IntegerEntry(("autostake_preLastEarned_" + assetIdStr), earned), IntegerEntry(("autostake_preLastBlock_" + assetIdStr), lastHeight), IntegerEntry(("autostake_lastEarned_" + assetIdStr), (earned + cleanAmount)), IntegerEntry(("autostake_lastBlock_" + assetIdStr), height)]
512 -         (stateChanges ++ [IntegerEntry((assetIdStr + "_sRate"), (tryGetInteger((assetIdStr + "_sRate")) + fraction(Scale16, cleanAmount, tryGetInteger(("total_supplied_" + assetIdStr)))))])
513 -         }
477 +         let i1 = invoke(this, "updateTokenPrice", ["WAVES"], nil)
478 +         if ((i1 == i1))
479 +             then {
480 +                 let i2 = invoke(this, "updateTokenPrice", [xtnIdStr], nil)
481 +                 if ((i2 == i2))
482 +                     then {
483 +                         func callu (accum,next) =                         {
484 +                             let i3 = invoke(this, "updateTokenPrice", [next], nil)
485 +                             if ((i3 == i3))
486 +                                 then nil
487 +                                 else throw("Strict value is not equal to itself.")
488 +                             }
514 489  
490 +                         let res = {
491 +                             let $l = tokenIds
492 +                             let $s = size($l)
493 +                             let $acc0 = nil
494 +                             func $f0_1 ($a,$i) =                             if (($i >= $s))
495 +                                 then $a
496 +                                 else callu($a, $l[$i])
515 497  
498 +                             func $f0_2 ($a,$i) =                             if (($i >= $s))
499 +                                 then $a
500 +                                 else throw("List size exceeds 20")
516 501  
517 - @Callable(i)
518 - func addInterestEXTERNAL () = {
519 -     let amount = fraction(i.payments[0].amount, 80, 100)
520 -     let assetId = i.payments[0].assetId
521 -     let assetIdStr = getAssetString(assetId)
522 -     let earned = tryGetInteger(("autostake_lastEarned_" + assetIdStr))
523 -     let lastHeight = tryGetInteger(("autostake_lastBlock_" + assetIdStr))
524 -     let stateChanges = if (if ((lastHeight == height))
525 -         then true
526 -         else (amount == 0))
527 -         then nil
528 -         else [IntegerEntry(("autostake_preLastEarned_" + assetIdStr), earned), IntegerEntry(("autostake_preLastBlock_" + assetIdStr), lastHeight), IntegerEntry(("autostake_lastEarned_" + assetIdStr), (earned + amount)), IntegerEntry(("autostake_lastBlock_" + assetIdStr), height)]
529 -     (stateChanges ++ [IntegerEntry((assetIdStr + "_sRate"), (tryGetInteger((assetIdStr + "_sRate")) + fraction(Scale16, amount, tryGetInteger(("total_supplied_" + assetIdStr)))))])
530 -     }
531 - 
532 - 
533 - 
534 - @Callable(i)
535 - func preInit (tokens,ltvs,lts,penalties) = {
536 -     func f (accum,token) =     (accum ++ [IntegerEntry((token + "_bRate"), Scale16), IntegerEntry((token + "_sRate"), Scale16)])
537 - 
538 -     if ((i.caller != this))
539 -         then throw("admin only")
540 -         else {
541 -             let rates = {
542 -                 let $l = split(tokens, ",")
543 -                 let $s = size($l)
544 -                 let $acc0 = nil
545 -                 func $f0_1 ($a,$i) =                 if (($i >= $s))
546 -                     then $a
547 -                     else f($a, $l[$i])
548 - 
549 -                 func $f0_2 ($a,$i) =                 if (($i >= $s))
550 -                     then $a
551 -                     else throw("List size exceeds 12")
552 - 
553 -                 $f0_2($f0_1($f0_1($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), 11), 12)
554 -                 }
555 -             ([StringEntry("setup_tokens", tokens), StringEntry("setup_ltvs", ltvs), StringEntry("setup_lts", lts), StringEntry("setup_penalties", penalties), BooleanEntry("setup_active", true)] ++ rates)
556 -             }
557 -     }
558 - 
559 - 
560 - 
561 - @Callable(i)
562 - func initNewToken (token,ltv,lt,penalty) = if ((i.caller != this))
563 -     then throw("admin only")
564 -     else [StringEntry("setup_tokens", ((tryGetString("setup_tokens") + ",") + token)), StringEntry("setup_ltvs", ((tryGetString("setup_ltvs") + ",") + ltv)), StringEntry("setup_lts", ((tryGetString("setup_lts") + ",") + lt)), StringEntry("setup_penalties", ((tryGetString("setup_penalties") + ",") + penalty)), IntegerEntry((token + "_bRate"), Scale16), IntegerEntry((token + "_sRate"), Scale16)]
565 - 
566 - 
567 - 
568 - @Callable(i)
569 - func updateParameter (key,val) = if (if ((i.caller != this))
570 -     then (i.caller != Address(base58'3P3o9cLTV2u9N4nYNKRYL6gy6cUEU9DwXW8'))
571 -     else false)
572 -     then throw("admin only")
573 -     else [IntegerEntry(key, parseIntValue(val))]
574 - 
575 - 
576 - 
577 - @Callable(i)
578 - func updateString (key,val) = if (if ((i.caller != this))
579 -     then (i.caller != Address(base58'3P3o9cLTV2u9N4nYNKRYL6gy6cUEU9DwXW8'))
580 -     else false)
581 -     then throw("admin only")
582 -     else [StringEntry(key, val)]
583 - 
584 - 
585 - 
586 - @Callable(i)
587 - func claimToReserveFund (debug) = {
588 -     let assets = getMarketAssets()
589 -     let rates = getActualRate(assets[0], "sRate")._2
590 -     let li = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
591 -     func f (accum,n) =     if ((n >= size(assets)))
592 -         then accum
593 -         else {
594 -             let assetIdStr = assets[n]
595 -             let autostakeAmount = tryGetString(("autostake_amount_" + assetIdStr))
596 -             let amount = ((((getBalance(assetIdStr) + tryGetInteger(("autostake_amount_" + assetIdStr))) + (if ((autostakeAmount != ""))
597 -                 then parseIntValue(autostakeAmount)
598 -                 else 0)) + fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), rates[((n * 3) + 1)].value, Scale16)) - fraction(tryGetInteger(("total_supplied_" + assetIdStr)), rates[(n * 3)].value, Scale16))
599 -             let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
600 -                 then invoke(this, "unstakeToken", [assetIdStr, amount], nil)
601 -                 else unit
602 -             if ((inv == inv))
603 -                 then (accum ++ [amount])
604 -                 else throw("Strict value is not equal to itself.")
605 -             }
606 - 
607 -     let parameter = {
608 -         let $l = li
609 -         let $s = size($l)
610 -         let $acc0 = nil
611 -         func $f0_1 ($a,$i) =         if (($i >= $s))
612 -             then $a
613 -             else f($a, $l[$i])
614 - 
615 -         func $f0_2 ($a,$i) =         if (($i >= $s))
616 -             then $a
617 -             else throw("List size exceeds 12")
618 - 
619 -         $f0_2($f0_1($f0_1($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), 11), 12)
620 -         }
621 -     func f2 (accum,n) =     if ((n >= size(assets)))
622 -         then accum
623 -         else {
624 -             let assetIdStr = assets[n]
625 -             (accum ++ [ScriptTransfer(reserveFundAddress, max([parameter[n], 0]), getAssetBytes(assetIdStr))])
626 -             }
627 - 
628 -     if (debug)
629 -         then throw(liIntToStr(parameter))
630 -         else $Tuple2({
631 -             let $l = li
632 -             let $s = size($l)
633 -             let $acc0 = nil
634 -             func $f1_1 ($a,$i) =             if (($i >= $s))
635 -                 then $a
636 -                 else f2($a, $l[$i])
637 - 
638 -             func $f1_2 ($a,$i) =             if (($i >= $s))
639 -                 then $a
640 -                 else throw("List size exceeds 12")
641 - 
642 -             $f1_2($f1_1($f1_1($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), 11), 12)
643 -             }, parameter)
644 -     }
645 - 
646 - 
647 - 
648 - @Callable(i)
649 - func reSetup (assetIdStr) = {
650 -     let lastResetup = tryGetInteger("resetup_lastUpdate")
651 -     if ((dayBlocks > (height - lastResetup)))
652 -         then throw("can be updated only once per day")
653 -         else {
654 -             let lts = split(tryGetString("setup_lts"), ",")
655 -             let assets = getMarketAssets()
656 -             let ur = getUr(assetIdStr)
657 -             let tempLT = tryGetInteger((("setup_" + assetIdStr) + "_tempLT"))
658 -             let lt = parseIntValue(assets[value(indexOf(assets, assetIdStr))])
659 -             if ((ur > 90000000))
660 -                 then [IntegerEntry((("setup_" + assetIdStr) + "_tempLT"), fraction(tempLT, 9975, 10000))]
661 -                 else if (if ((lt > tempLT))
662 -                     then (90000000 > ur)
663 -                     else false)
664 -                     then [IntegerEntry((("setup_" + assetIdStr) + "_tempLT"), fraction(tempLT, 10025, 10000))]
665 -                     else nil
666 -             }
667 -     }
668 - 
669 - 
670 - 
671 - @Callable(i)
672 - func shutdown (shutdown) = if ((indexOf(shutdownWhitelist, i.caller.bytes) == unit))
673 -     then throw("user not in a whitelist")
674 -     else [BooleanEntry("setup_active", !(shutdown))]
675 - 
676 - 
677 - 
678 - @Callable(i)
679 - func liquidate (debug,address,assetAmount,sAssetIdStr,bAssetIdStr,routeStr) = if (!(verifyLiquidatorRights(i.caller)))
680 -     then throw("temporarily available for whitelist only")
681 -     else if (!(tryGetBoolean("setup_active")))
682 -         then throw("market is stopped")
683 -         else {
684 -             let userCollateral = calcUserCollateral(address)
685 -             if ((userCollateral == userCollateral))
686 -                 then {
687 -                     let $t02444224504 = getActualRate(sAssetIdStr, "sRate")
688 -                     let sRate = $t02444224504._1
689 -                     let ratesResult = $t02444224504._2
690 -                     let $t02450924578 = getActualRate(bAssetIdStr, "bRate")
691 -                     let bRate = $t02450924578._1
692 -                     let ratesRecalcResult2 = $t02450924578._2
693 -                     let sAssetAmount = fraction(assetAmount, Scale16, sRate)
694 -                     let currentSPosition = tryGetInteger(((address + "_supplied_") + sAssetIdStr))
695 -                     let currentBPositionVal = tryGetInteger(((address + "_borrowed_") + bAssetIdStr))
696 -                     let currentBPosition = if ((currentBPositionVal > 0))
697 -                         then currentBPositionVal
698 -                         else throw("user has no borrow in this token")
699 -                     if ((userCollateral > 0))
700 -                         then throw("user can't be liquidated")
701 -                         else if ((sAssetAmount > currentSPosition))
702 -                             then throw("position to liquidate is bigger than user's supply")
703 -                             else {
704 -                                 let balance0Before = getBalance(sAssetIdStr)
705 -                                 if ((balance0Before == balance0Before))
502 +                             $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20)
503 +                             }
504 +                         if ((res == res))
505 +                             then {
506 +                                 let i4 = invoke(this, "updateLpTokenPrice", [lpTokenIds[0]], nil)
507 +                                 if ((i4 == i4))
706 508                                      then {
707 -                                         let balance1Before = getBalance(bAssetIdStr)
708 -                                         if ((balance1Before == balance1Before))
509 +                                         let i5 = invoke(this, "updateLpTokenPrice", [lpTokenIds[1]], nil)
510 +                                         if ((i5 == i5))
709 511                                              then {
710 -                                                 let inv = if ((tryGetString(("setup_autostake_" + sAssetIdStr)) != ""))
711 -                                                     then invoke(this, "unstakeToken", [sAssetIdStr, sAssetAmount], nil)
712 -                                                     else unit
713 -                                                 if ((inv == inv))
512 +                                                 let i6 = invoke(this, "updateLpTokenPrice", [lpTokenIds[2]], nil)
513 +                                                 if ((i6 == i6))
714 514                                                      then {
715 -                                                         let exchangeInvoke = invoke(aggregatorAddress, "swap", [routeStr, 0], [AttachedPayment(getAssetBytes(sAssetIdStr), assetAmount)])
716 -                                                         if ((exchangeInvoke == exchangeInvoke))
717 -                                                             then {
718 -                                                                 let asset0Sold = (balance0Before - getBalance(sAssetIdStr))
719 -                                                                 if ((asset0Sold == asset0Sold))
720 -                                                                     then {
721 -                                                                         let asset1Bought = (getBalance(bAssetIdStr) - balance1Before)
722 -                                                                         if ((asset1Bought == asset1Bought))
723 -                                                                             then {
724 -                                                                                 let asset0Price = getTokenPrice(sAssetIdStr)._1
725 -                                                                                 let asset0Scale = calcAssetScale(sAssetIdStr)
726 -                                                                                 let asset0Usd = fraction(asset0Sold, asset0Price, asset0Scale)
727 -                                                                                 let asset1Price = getTokenPrice(bAssetIdStr)._2
728 -                                                                                 let asset1Scale = calcAssetScale(bAssetIdStr)
729 -                                                                                 let asset1Usd = fraction(asset1Bought, asset1Price, asset1Scale)
730 -                                                                                 let penalty = parseIntValue(split(tryGetString("setup_penalties"), ",")[value(indexOf(getMarketAssets(), bAssetIdStr))])
731 -                                                                                 let liquidationProfit = (asset1Usd - fraction(asset0Usd, (Scale8 - penalty), Scale8))
732 -                                                                                 let sAssetChange = fraction(asset0Sold, Scale16, sRate)
733 -                                                                                 let bAssetChange = fraction(fraction(asset1Bought, Scale16, bRate), (Scale8 - fraction(liquidationProfit, Scale8, asset1Usd)), Scale8)
734 -                                                                                 if ((asset0Sold > assetAmount))
735 -                                                                                     then throw("more assets exchanged than expected")
736 -                                                                                     else if ((0 > liquidationProfit))
737 -                                                                                         then throw("price impact is bigger than liquidation penalty")
738 -                                                                                         else [IntegerEntry(((address + "_supplied_") + sAssetIdStr), (currentSPosition - sAssetChange)), IntegerEntry(((address + "_borrowed_") + bAssetIdStr), (currentBPosition - bAssetChange)), IntegerEntry(("total_supplied_" + sAssetIdStr), (tryGetInteger(("total_supplied_" + sAssetIdStr)) - sAssetChange)), IntegerEntry(("total_borrowed_" + bAssetIdStr), (tryGetInteger(("total_borrowed_" + bAssetIdStr)) - bAssetChange))]
739 -                                                                                 }
740 -                                                                             else throw("Strict value is not equal to itself.")
741 -                                                                         }
742 -                                                                     else throw("Strict value is not equal to itself.")
743 -                                                                 }
515 +                                                         let i7 = invoke(this, "updateWxLpTokenPrice", [wxLpTokenIds[0]], nil)
516 +                                                         if ((i7 == i7))
517 +                                                             then res
744 518                                                              else throw("Strict value is not equal to itself.")
745 519                                                          }
746 520                                                      else throw("Strict value is not equal to itself.")
747 521                                                  }
748 522                                              else throw("Strict value is not equal to itself.")
749 523                                          }
750 524                                      else throw("Strict value is not equal to itself.")
751 525                                  }
752 -                     }
753 -                 else throw("Strict value is not equal to itself.")
754 -             }
755 - 
756 - 
757 - 
758 - @Callable(i)
759 - func liquidateV2 (debug,address,sAssetIdStr) = if (!(verifyLiquidatorRights(i.caller)))
760 -     then throw("temporarily available for whitelist only")
761 -     else if (!(tryGetBoolean("setup_active")))
762 -         then throw("market is stopped")
763 -         else {
764 -             let bAssetId = i.payments[0].assetId
765 -             let bAssetIdStr = getAssetString(bAssetId)
766 -             let bAssetAmount = i.payments[0].amount
767 -             let userCollateral = calcUserCollateral(address)
768 -             if ((userCollateral == userCollateral))
769 -                 then if ((userCollateral > 0))
770 -                     then throw("user can't be liquidated")
771 -                     else {
772 -                         let marketAssets = getMarketAssets()
773 -                         let asset1Num = value(indexOf(marketAssets, bAssetIdStr))
774 -                         let asset0Num = value(indexOf(marketAssets, sAssetIdStr))
775 -                         let $t02790627968 = getActualRate(bAssetIdStr, "bRate")
776 -                         let bRate = $t02790627968._1
777 -                         let ratesResult = $t02790627968._2
778 -                         let asset1Price = getTokenPrice(bAssetIdStr)._2
779 -                         let asset1Scale = calcAssetScale(bAssetIdStr)
780 -                         let bAmountUsd = fraction(bAssetAmount, asset1Price, asset1Scale)
781 -                         let penalty = parseIntValue(value(split(tryGetString("setup_penalties"), ",")[asset1Num]))
782 -                         let asset0Price = getTokenPrice(sAssetIdStr)._1
783 -                         let asset0Scale = calcAssetScale(sAssetIdStr)
784 -                         let sAmountUsd = fraction(bAmountUsd, (Scale8 + penalty), Scale8)
785 -                         let sAssetAmount = fraction(sAmountUsd, asset0Scale, asset0Price)
786 -                         let bAmount = fraction(bAssetAmount, Scale16, bRate)
787 -                         let sAmount = fraction(sAssetAmount, Scale16, ratesResult[((asset0Num * 3) + 1)].value)
788 -                         let currentSPosition = tryGetInteger(((address + "_supplied_") + sAssetIdStr))
789 -                         let currentBPositionVal = tryGetInteger(((address + "_borrowed_") + bAssetIdStr))
790 -                         let currentBPosition = if ((currentBPositionVal > 0))
791 -                             then currentBPositionVal
792 -                             else throw("user has no borrow in this token")
793 -                         if ((sAmount > currentSPosition))
794 -                             then throw("position to liquidate is bigger than user's supply")
795 -                             else {
796 -                                 let inv = if ((tryGetString(("setup_autostake_" + sAssetIdStr)) != ""))
797 -                                     then invoke(this, "unstakeToken", [sAssetIdStr, sAssetAmount], nil)
798 -                                     else unit
799 -                                 if ((inv == inv))
800 -                                     then if (debug)
801 -                                         then throw("liquidation will pass")
802 -                                         else ([ScriptTransfer(i.caller, sAssetAmount, getAssetBytes(sAssetIdStr)), IntegerEntry(((address + "_supplied_") + sAssetIdStr), (currentSPosition - sAmount)), IntegerEntry(((address + "_borrowed_") + bAssetIdStr), (currentBPosition - bAmount)), IntegerEntry(("total_supplied_" + sAssetIdStr), (tryGetInteger(("total_supplied_" + sAssetIdStr)) - sAmount)), IntegerEntry(("total_borrowed_" + bAssetIdStr), (tryGetInteger(("total_borrowed_" + bAssetIdStr)) - bAmount))] ++ ratesResult)
803 -                                     else throw("Strict value is not equal to itself.")
804 -                                 }
526 +                             else throw("Strict value is not equal to itself.")
805 527                          }
806 -                 else throw("Strict value is not equal to itself.")
807 -             }
808 - 
809 - 
810 - 
811 - @Callable(i)
812 - func getUserCollateral (debug,address,minusBorrowed,afterChange) = {
813 -     let assets = getMarketAssets()
814 -     let ltvs = split(tryGetString("setup_ltvs"), ",")
815 -     let lts = split(tryGetString("setup_lts"), ",")
816 -     let rates = getActualRate(assets[0], "sRate")._2
817 -     let changeHandler = split(afterChange, ",")
818 -     func f (accum,next) =     if ((next >= size(assets)))
819 -         then accum
820 -         else {
821 -             let userSupplied = tryGetInteger(((address + "_supplied_") + assets[next]))
822 -             let userBorrowed = tryGetInteger(((address + "_borrowed_") + assets[next]))
823 -             let needTokenAccounting = if ((afterChange == ""))
824 -                 then if (if ((userBorrowed != 0))
825 -                     then true
826 -                     else (userSupplied != 0))
827 -                     then true
828 -                     else false
829 -                 else true
830 -             if (needTokenAccounting)
831 -                 then {
832 -                     let assetScale = calcAssetScale(assets[next])
833 -                     let assetPrice = getTokenPrice(assets[next])
834 -                     ((accum + fraction(fraction(fraction((userSupplied + (if (if (if ((afterChange != ""))
835 -                         then (changeHandler[0] == assets[next])
836 -                         else false)
837 -                         then (changeHandler[1] == "supplied")
838 -                         else false)
839 -                         then parseIntValue(changeHandler[2])
840 -                         else 0)), rates[(next * 3)].value, Scale16), parseIntValue(ltvs[next]), Scale8), assetPrice._1, assetScale)) - (if (minusBorrowed)
841 -                         then fraction(fraction(fraction((userBorrowed + (if (if (if ((afterChange != ""))
842 -                             then (changeHandler[0] == assets[next])
843 -                             else false)
844 -                             then (changeHandler[1] == "borrowed")
845 -                             else false)
846 -                             then parseIntValue(changeHandler[2])
847 -                             else 0)), rates[((next * 3) + 1)].value, Scale16), Scale8, parseIntValue(lts[next])), assetPrice._2, assetScale)
848 -                         else 0))
849 -                     }
850 -                 else accum
851 -             }
852 - 
853 -     let result = {
854 -         let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
855 -         let $s = size($l)
856 -         let $acc0 = 0
857 -         func $f0_1 ($a,$i) =         if (($i >= $s))
858 -             then $a
859 -             else f($a, $l[$i])
860 - 
861 -         func $f0_2 ($a,$i) =         if (($i >= $s))
862 -             then $a
863 -             else throw("List size exceeds 12")
864 - 
865 -         $f0_2($f0_1($f0_1($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), 11), 12)
528 +                     else throw("Strict value is not equal to itself.")
529 +                 }
530 +             else throw("Strict value is not equal to itself.")
866 531          }
867 -     if (debug)
868 -         then throw(toString(result))
869 -         else $Tuple2(rates, result)
870 -     }
871 - 
872 - 
873 - 
874 - @Callable(i)
875 - func getPrices (debug) = {
876 -     let assets = getMarketAssets()
877 -     func f (accum,next) =     if ((next >= size(assets)))
878 -         then accum
879 -         else {
880 -             let assetPrice = getTokenPriceWithRisk(assets[next], 3)
881 -             ((((accum + toString(assetPrice._1)) + ",") + toString(assetPrice._2)) + "|")
882 -             }
883 - 
884 -     let result = {
885 -         let $l = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11]
886 -         let $s = size($l)
887 -         let $acc0 = ""
888 -         func $f0_1 ($a,$i) =         if (($i >= $s))
889 -             then $a
890 -             else f($a, $l[$i])
891 - 
892 -         func $f0_2 ($a,$i) =         if (($i >= $s))
893 -             then $a
894 -             else throw("List size exceeds 12")
895 - 
896 -         $f0_2($f0_1($f0_1($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), 11), 12)
897 -         }
898 -     if (debug)
899 -         then throw(result)
900 -         else $Tuple2(nil, result)
901 -     }
902 - 
903 - 
904 - 
905 - @Callable(i)
906 - func calculateUtilizationRatio (assetIdStr,debug) = if (debug)
907 -     then throw(toString(getUr(assetIdStr)))
908 -     else $Tuple2(nil, getUr(assetIdStr))
909 - 
910 - 
911 - 
912 - @Callable(i)
913 - func calculateOutdatedUR (assetIdStr,debug) = if (debug)
914 -     then throw(toString(getOutdatedUr(assetIdStr)))
915 -     else $Tuple2(nil, getOutdatedUr(assetIdStr))
916 - 
917 - 
918 - 
919 - @Callable(i)
920 - func calculateTokenRates (debug) = {
921 -     func f (accum,assetIdStr) =     {
922 -         let rates = tokenRatesRecalc(assetIdStr)
923 -         $Tuple2(((((accum._1 + toString(rates[1].value)) + "|") + toString(rates[0].value)) + ","), (accum._2 ++ rates))
924 -         }
925 - 
926 -     let parameter = {
927 -         let $l = getMarketAssets()
928 -         let $s = size($l)
929 -         let $acc0 = $Tuple2("", nil)
930 -         func $f0_1 ($a,$i) =         if (($i >= $s))
931 -             then $a
932 -             else f($a, $l[$i])
933 - 
934 -         func $f0_2 ($a,$i) =         if (($i >= $s))
935 -             then $a
936 -             else throw("List size exceeds 12")
937 - 
938 -         $f0_2($f0_1($f0_1($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), 11), 12)
939 -         }
940 -     if (debug)
941 -         then throw(parameter._1)
942 -         else $Tuple2(parameter._2, parameter._1)
943 -     }
944 - 
945 - 
946 - 
947 - @Callable(i)
948 - func calculateTokensInterest (debug) = {
949 -     func f (accum,assetIdStr) =     {
950 -         let rate = fraction(getInterest(assetIdStr), dayBlocks, Scale8)
951 -         ((accum + toString(rate)) + ",")
952 -         }
953 - 
954 -     let parameter = {
955 -         let $l = getMarketAssets()
956 -         let $s = size($l)
957 -         let $acc0 = ""
958 -         func $f0_1 ($a,$i) =         if (($i >= $s))
959 -             then $a
960 -             else f($a, $l[$i])
961 - 
962 -         func $f0_2 ($a,$i) =         if (($i >= $s))
963 -             then $a
964 -             else throw("List size exceeds 12")
965 - 
966 -         $f0_2($f0_1($f0_1($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), 11), 12)
967 -         }
968 -     if (debug)
969 -         then throw(parameter)
970 -         else $Tuple2(nil, parameter)
971 -     }
972 532  
973 533  
974 534  
975 535  @Callable(i)
976 536  func initNewMaster (master) = {
977 537      let addressOK =     match addressFromString(master) {
978 538          case a: Address => 
979 539              true
980 540          case _ => 
981 541              false
982 542      }
983 543      if (!(addressOK))
984 544          then throw(("incorrect address " + master))
985 545          else if ((i.caller != this))
986 546              then throw("available for self call only")
987 547              else [StringEntry("verifier_master", master)]
988 548      }
989 549  
990 550  
991 551  
992 552  @Callable(i)
993 553  func requestNewMaster (newMaster) = {
994 554      let addressOK =     match addressFromString(newMaster) {
995 555          case a: Address => 
996 556              true
997 557          case _ => 
998 558              false
999 559      }
1000 560      if (!(addressOK))
1001 561          then throw(("incorrect address " + newMaster))
1002 562          else if ((indexOf(sentinels, i.caller) == unit))
1003 563              then throw("whitelist only")
1004 564              else [StringEntry("verifier_newMaster", newMaster), IntegerEntry("verifier_newMasterEligibleAfter", (height + 10000))]
1005 565      }
1006 566  
1007 567  
1008 568  
1009 569  @Callable(i)
1010 570  func activateNewMaster () = {
1011 571      let eligibleHeight = getIntegerValue(this, "verifier_newMasterEligibleAfter")
1012 572      let newMaster = getStringValue(this, "verifier_newMaster")
1013 573      if ((indexOf(sentinels, i.caller) == unit))
1014 574          then throw("whitelist only")
1015 575          else if ((eligibleHeight > height))
1016 576              then throw("new master cannot be activated yet")
1017 577              else [DeleteEntry("verifier_newMaster"), DeleteEntry("verifier_newMasterEligibleAfter"), StringEntry("verifier_master", newMaster)]
1018 578      }
1019 579  
1020 580  
1021 581  @Verifier(tx)
1022 582  func verify () = {
1023 583      let masterAddress = getString("verifier_master")
1024 584      let approvedByMaster =     match masterAddress {
1025 585          case x: String => 
1026 586              match getInteger(addressFromStringValue(x), ("approvedTx_" + toBase58String(tx.id))) {
1027 587                  case y: Int => 
1028 588                      y
1029 589                  case _ => 
1030 590                      0
1031 591              }
1032 592          case _ => 
1033 593              1
1034 594      }
1035 595      if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
1036 596          then (approvedByMaster > 0)
1037 597          else false
1038 598      }
1039 599

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let ~~reserveFundAddress~~ = ~~Address(base58'3P4kBiU4wr2yV1S5gMfu3MdkVvy7kxXHsKe')~~
	4	+	let Scale8 = 100000000
5	5
6		-	let ~~reserveFund~~ = 20
	6	+	let sentinels = [Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'), Address(base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o'), Address(base58'3P8auNWJkxxByyJtwErFXaxiXcGM45qQ1hA'), Address(base58'3P8qVX189qpoTJZQQQdKS9endHK5sxWsvrd')]
7	7
8		-	let ~~oracleAddress~~ = Address(base58'~~3P8d1E1BLKoD52y3bQJ1bDTd2TD1gpaLn9t~~')
	8	+	let backendCaller = Address(base58'3PLGH6sG6ND59GU6gFXHKQRuL5bdpWFs6U6')
9	9
10		-	let ~~aggregatorAddress~~ = Address(base58'~~3PGFHzVGT4NTigwCKP1NcwoXkodVZwvBuuU~~')
	10	+	let orderbookOracle = Address(base58'3PPXVKjN6nRMzXeegcYhfiic96pd2c98Ekm')
11	11
12		-	let ~~wxStakingAddress~~ = ~~Address(~~base58'~~3PDDRRS5gKyDQRpJskzWTdxREHGu1FNpdwg~~')
	12	+	let xtnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
13	13
14		-	let ~~shutdownWhitelist~~ = [base58'3PBTPFGaKL7qEdj9Tz1QUqbvJUcPNu934j4', base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL', base58'3PAxdDSmN758L5SHSGRC5apEtQE2aApZotG', base58'3PJKmXoHJvVeQXjSJdhtkUcFDtdiQqMbUTD', base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o', base58'3PHbdpaKzz8EiAngGHaFu2hVuNCdsC67qh3', base58'3P6Ksahs71SiKQgQ4qaZuFAVhqncdi2nvJQ']
	14	+	let xtnIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
15	15
16		-	func verifyLiquidatorRights (address) = !(if (if ((address != Address(base58'3PCqdm1mAoQqR46oZotFanmqb5CLUvrKEo2')))
17		-	then (address != Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'))
18		-	else false)
19		-	then (address != Address(base58'3PHbdpaKzz8EiAngGHaFu2hVuNCdsC67qh3'))
20		-	else false)
	16	+	let ethStr = "3VuV5WTmDz47Dmdn3QpcYjzbSdipjQE4JMdNe1xZpX13"
21	17
	18	+	let stables = ["9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi", "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"]
22	19
23		-	func getRateCurve (assetIdStr) = match assetIdStr {
	20	+	let tokenIds = ["6nSpVyNH7yM69eg446wrQR94ipbbcmZMU1ENPwanC97g", "Ehie5xYpeN8op1Cctc6aGUrqx8jq3jtf1DSjXDbfm7aT", "4LHHvYGNKJUg5hj65aGD5vgScvCBmLpdRFtjokvCjSL8", "C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS", "34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ", "6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ", "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS", "Ajso6nTTjptu2UHLx6hfSXVtHFtRBJCkKYd5SAyj7zf5", "DSbbhLsSTeDg5Lsiufk2Aneh3DjVqJuPr2M9uU1gwy5p", "Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on", "2thsACuHmzDMuNezPM32wg9a3BwUzBWDeSKakgz3cw21", "YiNbofFzC17jEHHCMwrRcpy9MrrjabMMLZxg8g5xmf7", "8t4DPWTwPzpatHA9AkTxWAB47THnYzBsDnoY7fQqbG91", "At8D6NFFpheCbvKVnjVoeLL84Eo8NZn6ovManxfLaFWL", "6phK22ztGBW127gUFmdMEHKB3CVd6ZhWox2WtwJkbqTq", "3VuV5WTmDz47Dmdn3QpcYjzbSdipjQE4JMdNe1xZpX13", "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi"]
	21	+
	22	+	let tokenIsBaseAsset = [false, false, false, false, true, true, false, false, false, false, false, false, false, false, true, false, true, true]
	23	+
	24	+	let tokenDecimals = [1000000, 100000000, 100000000, 100000000, 1000000, 1000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 1000000, 1000000, 100000000, 1000000, 1000000]
	25	+
	26	+	let tokenWXWavesLPs = ["DZeA7RbVab98r61hVH5zcFZXwNALPJGgq1eyHandsKKW", "72E4MMFHngsixqAkNZCRJMLTmgAP9nufdsXexnS5qxVx", "FTTJnB6xG4CKZEJMgsgqjmgbzcyH8ya3tV8LQP2GCDs7", "3UnytNnkd48fHofHPBp59BkpZA1uMSJ8PdhWUCuerics", "ByJtVuYi58CtdjtasDuTqtgev8qWkdJybF7rY1xosmhE", "BoXuf9ewJSE1UMrKibZmigzC6tBzv8RFTeZmofEos2ZJ", "7G687ui3m59oAd6qkyni2vt77bHF4bbA6xcPfDo3uiTu", "EMsZpqcT8NuMYZCEPHzvrhQCQKhfXjdeekZvcWpHsNvh", "E3YhURNsCmjUaYNigH6AayLxbh9u81uVGU3ZvHKznY5v", "BiSzFe8nSL78oZaebfoin5vBZ5Pze6d7kaeijLqr5xZe", "AKQsEQoeinKRFtdx6rhKWcpkAMu6cbDLdtSWnR8tpBCq", "DjgwW4CMJEfpzj7SLFFPiCqf1zfmAgf1MD5gAS8SjKt4", "", "F3s92VRdppEtLVAP697CTM6AzZJECRcoMx5kj2FkGv4M", "6iMB6LKSrgv9waEvEnN6Ydyx7dfxPnGcTw8318WVm5bR", "E6MUGSUieSsq6QiJcbp6REdQXyjp6uPWLitnp9Gdtsuh", "6KWpnpLk6GNh5HG9ct9pNDCYFWJBoAAshZsp4D8jcFpV", ""]
	27	+
	28	+	let tokenWXXTNPools = ["", "", "", "3P3Y38zymCHoTM6qcE9JcEA8rhaGTQbVMgu", "", "", "3P615yXeQ9Qu4qBM1QGimGzixyMS5W4Ktug", "3PEkD5LuHGWhUfgBW1owZFxVydYoWjV6Jia", "3P5HjPowgipiVB3UvXphDiPvKs424WC9xQw", "3PCENpEKe8atwELZ7oCSmcdEfcRuKTrUx99", "", "", "3PH832eKnw67PFvJfUg9Knz6BHM87QvjMeL", "", "3PGcYzoUfQEQkhRgrBqmG5Wpc7A1ncFvRtM", "", "", ""]
	29	+
	30	+	let tokenSwopPools = ["3P2V63Xd6BviDkeMzxhUw2SJyojByRz8a8m", "3P27S9V36kw2McjWRZ37AxTx8iwkd7HXw6W", "3P6DLdJTP2EySq9MFdJu6beUevrQd2sVVBh", "", "", "", "3PBHyEwmERR1CEkrTNbPj2bgyisTfPRqfee", "3PDSXwwA2xAtmxeo2bebDP3AA5ynZ2Krgnw", "3PJ48P3p2wvWUjgQaQiZ2cFbr8qmxMokBGd", "3PKi4G3VX2k42ZSmNNrmvgdDH7JzRaUhY7R", "", "", "3PCwvns2dnmobD6Z4cR86v98s7LgMZYygEy", "3PLp9KrdrbWAvSFHGJVEaszUubquz3M6mfe", "", "", "", ""]
	31	+
	32	+	let lpTokenIds = ["9dbpSr8d18qWQxn5fJJSS1LLQ8CmSZ6gYmjuPRzg3RBM", "9MKixRt9rNRyaJCT2pexbXkuvpZBdJREdTU36bGit8iw", "6bZbRmou7M7wXBunMXQnZ4Rm66HxZF3KfMEiFwk3wmnA"]
	33	+
	34	+	let lpTokenBase = ["Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on", "WAVES", "WAVES"]
	35	+
	36	+	let lpTokenPool = [Address(base58'3PKJxKhn9MrzcvZv689bUpZgh4rurEgoKC8'), Address(base58'3P4PFYKHyxitgwVb4WVWEcdH7ZsuR4GgcXC'), Address(base58'3PCpjLGo4wDuv23kjmGF6mHs86Bf3soYvAq')]
	37	+
	38	+	let lpTokenBaseShare = [30000000, 20000000, 20000000]
	39	+
	40	+	let wxLpTokenIds = ["rZMQ6g31Lr7sPAaAoYc4U2PHCVauTuKUSzUbJtUyPZN"]
	41	+
	42	+	let wxLpUnderlying = [["9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi", "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"]]
	43	+
	44	+	let wx_restAddressStr = "3P8MoPnsaurofk1VyhsdAFkeQ6ijpJYXCpW"
	45	+
	46	+	let wx_restDapp = addressFromStringValue(wx_restAddressStr)
	47	+
	48	+	let swopRestDapp = addressFromStringValue("3P56jNQzECXnrWpnbbSJKw7Eooo6fkUaMPp")
	49	+
	50	+	let oracleTolerance = 1000
	51	+
	52	+	let shutdownTrigger = 3000
	53	+
	54	+	let revisionNum = ""
	55	+
	56	+	let SEP = "__"
	57	+
	58	+	func asString (v) = match v {
	59	+	case s: String =>
	60	+	s
24	61		case _ =>
25		-	~~$Tuple4~~(~~20000000, 100000000,~~ ~~60000000, 400000000~~)
	62	+	throw("fail to cast into String")
26	63		}
27	64
28	65
29		-	let sentinels = [Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'), Address(base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o'), Address(base58'3P8auNWJkxxByyJtwErFXaxiXcGM45qQ1hA'), Address(base58'3P8qVX189qpoTJZQQQdKS9endHK5sxWsvrd')]
30		-
31		-	let Scale8 = 100000000
32		-
33		-	let Scale10 = 10000000000
34		-
35		-	let Scale16 = (Scale8 * Scale8)
36		-
37		-	let dayBlocks = 1440
38		-
39		-	func liIntToStr (li) = {
40		-	func f (accum,next) = ((accum + toString(next)) + ",")
41		-
42		-	let $l = li
43		-	let $s = size($l)
44		-	let $acc0 = ""
45		-	func $f0_1 ($a,$i) = if (($i >= $s))
46		-	then $a
47		-	else f($a, $l[$i])
48		-
49		-	func $f0_2 ($a,$i) = if (($i >= $s))
50		-	then $a
51		-	else throw("List size exceeds 12")
52		-
53		-	$f0_2($f0_1($f0_1($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), 11), 12)
54		-	}
	66	+	func asInt (v) = match v {
	67	+	case i: Int =>
	68	+	i
	69	+	case _ =>
	70	+	throw("fail to cast into Int")
	71	+	}
55	72
56	73
57	74		func tryGetInteger (key) = match getInteger(this, key) {

62	79		}
63	80
64	81
65		-	func tryGetBoolean (key) = match getBoolean(this, key) {
66		-	case b: Boolean =>
67		-	b
68		-	case _ =>
69		-	false
70		-	}
71		-
72		-
73		-	func tryGetString (key) = match getString(this, key) {
74		-	case b: String =>
75		-	b
76		-	case _ =>
77		-	""
78		-	}
79		-
80		-
81		-	func tryGetBinary (key) = match getBinary(this, key) {
82		-	case b: ByteVector =>
83		-	b
84		-	case _ =>
85		-	base58''
86		-	}
87		-
88		-
89		-	func getAssetString (assetId) = match assetId {
90		-	case b: ByteVector =>
91		-	toBase58String(b)
92		-	case _ =>
93		-	"WAVES"
94		-	}
95		-
96		-
97	82		func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
98	83		then unit
99	84		else fromBase58String(assetIdStr)
100	85
101	86
102		-	func getBalance (assetIdStr) = if ((assetIdStr == "WAVES"))
103		-	then wavesBalance(this).available
104		-	else assetBalance(this, fromBase58String(assetIdStr))
	87	+	let doraAddressStr = "3PKkojKdd6BBzTf1RXbQVfUDraNFXXHKzQF"
105	88
	89	+	let doraAddress = addressFromStringValue(doraAddressStr)
106	90
107		-	~~func getMarketAssets ()~~ = ~~split~~(~~tryGetString~~("~~setup~~_~~tokens~~"), ",")
	91	+	let xtnUsdPriceX6 = valueOrErrorMessage(getInteger(doraAddress, "%s%s__price__USDN-USDT"), "DORA doesn't contain USDN/USDT price")
108	92
109		-
110		-	func getAssetsMaxSupply () = {
111		-	let s = tryGetString("setup_maxSupply")
112		-	if ((s == ""))
113		-	then [-1, -1, -1, -1, -1, -1, -1]
114		-	else split(s, ",")
	93	+	func getTokenPrice (tokenNum,wavesUsdPriceX6) = {
	94	+	let tokenIdStr = tokenIds[tokenNum]
	95	+	let tokenId = fromBase58String(tokenIdStr)
	96	+	if ((indexOf(stables, tokenIdStr) != unit))
	97	+	then $Tuple2(1000000, "stable token price")
	98	+	else {
	99	+	let wx_T1Waves_lp = tokenWXWavesLPs[tokenNum]
	100	+	let $t058336549 = if ((wx_T1Waves_lp == ""))
	101	+	then $Tuple2(0, 0)
	102	+	else {
	103	+	let wxRestResult = split(asString(invoke(wx_restDapp, "poolStatsREADONLY", [wx_T1Waves_lp], nil)), "__")
	104	+	let $t060576149 = if (tokenIsBaseAsset[tokenNum])
	105	+	then $Tuple2(1, 2)
	106	+	else $Tuple2(2, 1)
	107	+	let wavesInPairNum = $t060576149._1
	108	+	let tokenInPairNum = $t060576149._2
	109	+	let wx_T1Waves_WAVESx8 = parseIntValue(wxRestResult[wavesInPairNum])
	110	+	let wx_T1Waves_T1x8 = fraction(parseIntValue(wxRestResult[tokenInPairNum]), 100000000, tokenDecimals[tokenNum])
	111	+	let wx_T1Waves_T1UsdPriceX6 = fraction(wx_T1Waves_WAVESx8, wavesUsdPriceX6, wx_T1Waves_T1x8)
	112	+	let wx_T1Waves_Weight = wx_T1Waves_T1x8
	113	+	$Tuple2(wx_T1Waves_T1UsdPriceX6, wx_T1Waves_Weight)
	114	+	}
	115	+	let wx_T1Waves_T1UsdPriceX6 = $t058336549._1
	116	+	let wx_T1Waves_Weight = $t058336549._2
	117	+	let wx_T1Xtn_AddressStr = tokenWXXTNPools[tokenNum]
	118	+	let $t066117042 = if ((wx_T1Xtn_AddressStr == ""))
	119	+	then $Tuple2(0, 0)
	120	+	else {
	121	+	let wx_T1Xtn_Address = addressFromStringValue(wx_T1Xtn_AddressStr)
	122	+	let wx_T1Xtn_XTNx6 = assetBalance(wx_T1Xtn_Address, xtnId)
	123	+	let wx_T1Xtn_T1x8 = assetBalance(wx_T1Xtn_Address, tokenId)
	124	+	$Tuple2(fraction((wx_T1Xtn_XTNx6 * (tokenDecimals[tokenNum] / 1000000)), xtnUsdPriceX6, wx_T1Xtn_T1x8), wx_T1Xtn_T1x8)
	125	+	}
	126	+	let wx_T1Xtn_T1UsdPriceX6 = $t066117042._1
	127	+	let wx_T1Xtn_Weight = $t066117042._2
	128	+	let swop_T1Xtn_AddressStr = tokenSwopPools[tokenNum]
	129	+	let $t071057723 = if ((swop_T1Xtn_AddressStr == ""))
	130	+	then $Tuple2(0, 0)
	131	+	else {
	132	+	let swop_T1Xtn_Address = addressFromStringValue(swop_T1Xtn_AddressStr)
	133	+	let swop_T1Xtn_T1XtnPriceX6 = asInt(invoke(swopRestDapp, "calcGetAmountCPMM", [swop_T1Xtn_AddressStr, "3P88qk1KzF1BKjD7fC7LjNVAKM4ezff5WE6", tokenIdStr, tokenDecimals[tokenNum]], nil))
	134	+	let swop_T1Xtn_T1UsdPriceX6 = fraction(swop_T1Xtn_T1XtnPriceX6, xtnUsdPriceX6, 1000000)
	135	+	let swop_T1Xtn_Weight = getIntegerValue(swop_T1Xtn_Address, "A_asset_balance")
	136	+	$Tuple2(swop_T1Xtn_T1UsdPriceX6, swop_T1Xtn_Weight)
	137	+	}
	138	+	let swop_T1Xtn_T1UsdPriceX6 = $t071057723._1
	139	+	let swop_T1Xtn_Weight = $t071057723._2
	140	+	let W = ((wx_T1Waves_Weight + wx_T1Xtn_Weight) + swop_T1Xtn_Weight)
	141	+	let T1UsdPriceX6 = ((fraction(wx_T1Waves_T1UsdPriceX6, wx_T1Waves_Weight, W) + fraction(wx_T1Xtn_T1UsdPriceX6, wx_T1Xtn_Weight, W)) + fraction(swop_T1Xtn_T1UsdPriceX6, swop_T1Xtn_Weight, W))
	142	+	let debug = ((((((("T1UsdPriceX6=" + toString(T1UsdPriceX6)) + " wx_T1Waves_T1UsdPriceX6=") + toString(wx_T1Waves_T1UsdPriceX6)) + " wx_T1Xtn_T1UsdPriceX6=") + toString(wx_T1Xtn_T1UsdPriceX6)) + " swop_T1Xtn_T1UsdPriceX6=") + toString(swop_T1Xtn_T1UsdPriceX6))
	143	+	$Tuple2(T1UsdPriceX6, debug)
	144	+	}
115	145		}
116	146
117	147
118		-	func getOutdatedUr (assetIdStr) = {
119		-	let down = fraction(tryGetInteger(("total_supplied_" + assetIdStr)), tryGetInteger((assetIdStr + "_sRate")), Scale16)
120		-	if ((down == 0))
121		-	then 0
122		-	else fraction(Scale8, fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), tryGetInteger((assetIdStr + "_bRate")), Scale16), down)
	148	+	let lastUpdatedBlockKey = "lastUpdatedBlock"
	149	+
	150	+	let n15List = [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
	151	+
	152	+	func getPriceDataKey (block,tokenId) = ((("block_" + toString(block)) + "_") + tokenId)
	153	+
	154	+
	155	+	func getPriceValue (tokenId,block) = valueOrElse(getInteger(orderbookOracle, getPriceDataKey(block, tokenId)), 0)
	156	+
	157	+
	158	+	func getLastUpdatedBlock () = {
	159	+	let lastUpdatedBlock = valueOrErrorMessage(getInteger(orderbookOracle, lastUpdatedBlockKey), "Last updated block key not found")
	160	+	if ((0 >= lastUpdatedBlock))
	161	+	then throw("Invalid block value")
	162	+	else if (((height - lastUpdatedBlock) > 10))
	163	+	then throw("The price has not been updated for a long time")
	164	+	else lastUpdatedBlock
123	165		}
124	166
125	167
126		-	func getInterest (assetIdStr) = {
127		-	let ur = getOutdatedUr(assetIdStr)
128		-	let curve = getRateCurve(assetIdStr)
129		-	let rate = (curve._1 + (if ((curve._3 >= ur))
130		-	then fraction(ur, curve._2, curve._3)
131		-	else (curve._2 + fraction((ur - curve._3), curve._4, (100000000 - curve._3)))))
132		-	max([fraction(rate, Scale8, (dayBlocks * 365)), 1])
	168	+	func getPriceList (accum,next) = {
	169	+	let $t091649205 = accum
	170	+	let result = $t091649205._1
	171	+	let block = $t091649205._2
	172	+	let tokenId = $t091649205._3
	173	+	let sum = $t091649205._4
	174	+	let priceValue = getPriceValue(tokenId, block)
	175	+	let nextBlock = (block - next)
	176	+	if ((priceValue > 0))
	177	+	then $Tuple4((result :+ priceValue), nextBlock, tokenId, (sum + priceValue))
	178	+	else $Tuple4(result, nextBlock, tokenId, sum)
133	179		}
134	180
135	181
136		-	func tokenRatesRecalc (assetIdStr) = {
137		-	let interest = getInterest(assetIdStr)
138		-	let ur = getOutdatedUr(assetIdStr)
139		-	let lastRecalcHeight = tryGetInteger("lastRateHeight")
140		-	let lastBRate = max([tryGetInteger((assetIdStr + "_bRate")), Scale16])
141		-	let newBRate = (lastBRate + ((height - lastRecalcHeight) * interest))
142		-	let lastSRate = max([tryGetInteger((assetIdStr + "_sRate")), Scale16])
143		-	let newSRate = (lastSRate + ((((height - lastRecalcHeight) * fraction(interest, ur, Scale8)) * (100 - reserveFund)) / 100))
144		-	[IntegerEntry((assetIdStr + "_sRate"), newSRate), IntegerEntry((assetIdStr + "_bRate"), newBRate), IntegerEntry("lastRateHeight", height)]
145		-	}
146		-
147		-
148		-	func getActualRate (assetIdStr,rateType) = {
149		-	func f (accum,token) = {
150		-	let recalc = tokenRatesRecalc(token)
151		-	$Tuple2(if ((token != assetIdStr))
152		-	then accum._1
153		-	else if ((rateType == "sRate"))
154		-	then recalc[0].value
155		-	else recalc[1].value, (accum._2 ++ recalc))
156		-	}
157		-
158		-	let $l = getMarketAssets()
159		-	let $s = size($l)
160		-	let $acc0 = $Tuple2(0, nil)
161		-	func $f0_1 ($a,$i) = if (($i >= $s))
162		-	then $a
163		-	else f($a, $l[$i])
164		-
165		-	func $f0_2 ($a,$i) = if (($i >= $s))
166		-	then $a
167		-	else throw("List size exceeds 12")
168		-
169		-	$f0_2($f0_1($f0_1($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), 11), 12)
170		-	}
171		-
172		-
173		-	func getUr (assetIdStr) = {
174		-	let rates = tokenRatesRecalc(assetIdStr)
175		-	let down = fraction(tryGetInteger(("total_supplied_" + assetIdStr)), rates[0].value, Scale16)
176		-	fraction(Scale8, fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), rates[1].value, Scale16), down)
177		-	}
178		-
179		-
180		-	func ratesRecalc () = {
181		-	func f (accum,token) = (accum ++ tokenRatesRecalc(token))
182		-
183		-	let $l = getMarketAssets()
184		-	let $s = size($l)
185		-	let $acc0 = nil
186		-	func $f0_1 ($a,$i) = if (($i >= $s))
187		-	then $a
188		-	else f($a, $l[$i])
189		-
190		-	func $f0_2 ($a,$i) = if (($i >= $s))
191		-	then $a
192		-	else throw("List size exceeds 12")
193		-
194		-	$f0_2($f0_1($f0_1($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), 11), 12)
195		-	}
196		-
197		-
198		-	func getTokenPriceWithRisk (assetIdStr,riskAversity) = if (if ((assetIdStr == "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi"))
199		-	then true
200		-	else (assetIdStr == "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"))
201		-	then $Tuple2(1000000, 1000000)
202		-	else {
203		-	let price = getIntegerValue(oracleAddress, (assetIdStr + "_twap5B"))
204		-	let riskLevel = getIntegerValue(oracleAddress, (assetIdStr + "_riskLevel"))
205		-	if ((riskAversity >= riskLevel))
206		-	then $Tuple2(price, price)
207		-	else throw((("oracle prices don't match: " + toString(price)) + " is the price, but risk is too high"))
208		-	}
209		-
210		-
211		-	func getTokenPrice (assetIdStr) = getTokenPriceWithRisk(assetIdStr, 3)
212		-
213		-
214		-	func calcAssetScale (assetIdStr) = {
215		-	let decimals = if ((assetIdStr == "WAVES"))
216		-	then 8
217		-	else value(assetInfo(fromBase58String(assetIdStr))).decimals
218		-	pow(10, 0, decimals, 0, 0, DOWN)
219		-	}
220		-
221		-
222		-	func calcUserCollateral (address) = {
223		-	let userCollateralInvoke = invoke(this, "getUserCollateral", [false, address, true, ""], nil)
224		-	if ((userCollateralInvoke == userCollateralInvoke))
	182	+	func getOrderbookTwap (tokenIdStr) = {
	183	+	let inv = invoke(this, "getOrderbookTwap15", [tokenIdStr, false], nil)
	184	+	if ((inv == inv))
225	185		then {
226		-	let ~~userCollateralValue~~ = ~~match userCollateralInvoke~~ {
227		-	~~case x: Int~~ =>
228		-	x
229		-	~~case _ =>~~
230		-	throw("~~issue while doing in-dapp~~ ~~invocation~~")
231		-	}
232		-	if ((~~userCollateralValue~~ == ~~userCollateralValue~~))
233		-	then ~~userCollateralValue~~
	186	+	let orderbookPrice = {
	187	+	let @ = inv
	188	+	if ($isInstanceOf(@, "(Int, Boolean)"))
	189	+	then @
	190	+	else throw(($getType(@) + " couldn't be cast to (Int, Boolean)"))
	191	+	}
	192	+	if ((orderbookPrice == orderbookPrice))
	193	+	then orderbookPrice
234	194		else throw("Strict value is not equal to itself.")
235	195		}
236	196		else throw("Strict value is not equal to itself.")

238	198
239	199
240	200		@Callable(i)
241		-	func supply () = if (!(tryGetBoolean("setup_active")))
242		-	then throw("market is stopped")
243		-	else if (if ((size(i.payments) != 1))
244		-	then true
245		-	else (i.payments[0].amount == 0))
246		-	then throw("1 payment has to be attached")
247		-	else {
248		-	let assetIdStr = getAssetString(i.payments[0].assetId)
249		-	let assetAmount = i.payments[0].amount
250		-	let $t086588725 = getActualRate(assetIdStr, "sRate")
251		-	let sRate = $t086588725._1
252		-	let ratesRecalcResult = $t086588725._2
253		-	let amount = fraction(assetAmount, Scale16, sRate, DOWN)
254		-	let address = toString(i.caller)
255		-	let maxSupply = match getString(("setup_maxSupply_" + assetIdStr)) {
256		-	case x: String =>
257		-	parseIntValue(x)
258		-	case _ =>
259		-	tryGetInteger(("setup_maxSupply_" + assetIdStr))
260		-	}
261		-	let assetPrice = getTokenPrice(assetIdStr)
262		-	let newAddressSupplied = (tryGetInteger(((address + "_supplied_") + assetIdStr)) + amount)
263		-	let newTotalSupplied = (tryGetInteger(("total_supplied_" + assetIdStr)) + amount)
264		-	let rate = getActualRate(assetIdStr, "sRate")._1
265		-	let assetScale = calcAssetScale(assetIdStr)
266		-	let newTotalSuppliedUsd = fraction(fraction(newTotalSupplied, rate, Scale16), assetPrice._1, assetScale)
267		-	if ((indexOf(tryGetString("setup_tokens"), assetIdStr) == unit))
268		-	then throw("this asset is not supported by the market")
269		-	else if (if ((maxSupply != 0))
270		-	then (newTotalSuppliedUsd > maxSupply)
271		-	else false)
272		-	then throw("max total supply for this token reached in the pool")
273		-	else if ((tryGetInteger(("setup_paused_" + assetIdStr)) > 0))
274		-	then throw("this asset can't be supplied or borrowed")
275		-	else {
276		-	let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
277		-	then invoke(this, "stakeToken", [assetIdStr, assetAmount], nil)
278		-	else unit
279		-	if ((inv == inv))
280		-	then ([IntegerEntry(((address + "_supplied_") + assetIdStr), newAddressSupplied), IntegerEntry(("total_supplied_" + assetIdStr), newTotalSupplied)] ++ ratesRecalcResult)
281		-	else throw("Strict value is not equal to itself.")
282		-	}
283		-	}
	201	+	func getOrderbookTwap15 (tokenId,debug) = {
	202	+	let lastUpdatedBlock = getLastUpdatedBlock()
	203	+	let tuple = {
	204	+	let $l = n15List
	205	+	let $s = size($l)
	206	+	let $acc0 = $Tuple4(nil, lastUpdatedBlock, tokenId, 0)
	207	+	func $f0_1 ($a,$i) = if (($i >= $s))
	208	+	then $a
	209	+	else getPriceList($a, $l[$i])
284	210
	211	+	func $f0_2 ($a,$i) = if (($i >= $s))
	212	+	then $a
	213	+	else throw("List size exceeds 15")
285	214
286		-
287		-	@Callable(i)
288		-	func withdraw (assetIdStr,assetAmount) = {
289		-	let $t01028610353 = getActualRate(assetIdStr, "sRate")
290		-	let sRate = $t01028610353._1
291		-	let ratesRecalcResult = $t01028610353._2
292		-	let amount = fraction(assetAmount, Scale16, sRate, CEILING)
293		-	let address = toString(i.caller)
294		-	let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
295		-	let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
296		-	let userAssetSupplied = tryGetInteger(((address + "_supplied_") + assetIdStr))
297		-	let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
298		-	let collateralValueInv = invoke(this, "getUserCollateral", [false, address, true, ((assetIdStr + ",supplied,") + toString(-(amount)))], nil)
299		-	if ((collateralValueInv == collateralValueInv))
300		-	then {
301		-	let collateralValue = match collateralValueInv {
302		-	case x: Int =>
303		-	x
304		-	case _ =>
305		-	throw("can't get user collateral value")
306		-	}
307		-	if (!(tryGetBoolean("setup_active")))
308		-	then throw("market is stopped")
309		-	else if ((0 > collateralValue))
310		-	then throw("you dont have enough collateral for this operation")
311		-	else if ((amount > (assetSupplied - assetBorrowed)))
312		-	then throw("this amount is not available on the market")
313		-	else if ((amount > (userAssetSupplied - userAssetBorrowed)))
314		-	then throw("this amount is not available for this user")
315		-	else {
316		-	let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
317		-	then invoke(this, "unstakeToken", [assetIdStr, assetAmount], nil)
318		-	else unit
319		-	if ((inv == inv))
320		-	then ([IntegerEntry(((address + "_supplied_") + assetIdStr), (tryGetInteger(((address + "_supplied_") + assetIdStr)) - amount)), IntegerEntry(("total_supplied_" + assetIdStr), (tryGetInteger(("total_supplied_" + assetIdStr)) - amount)), ScriptTransfer(i.caller, assetAmount, getAssetBytes(assetIdStr))] ++ ratesRecalcResult)
321		-	else throw("Strict value is not equal to itself.")
322		-	}
323		-	}
324		-	else throw("Strict value is not equal to itself.")
	215	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
	216	+	}
	217	+	let pricesList = tuple._1
	218	+	let sum = tuple._4
	219	+	let average = fraction(sum, 1000000, fraction(size(pricesList), 1000000, 1))
	220	+	let isLocked = valueOrElse(getBoolean(orderbookOracle, (tokenId + "_locked")), false)
	221	+	if (debug)
	222	+	then throw((((((((("average: " + toString(average)) + ", isLocked: ") + toString(isLocked)) + ", ") + "priceListSize: ") + toString(size(pricesList))) + ", sum: ") + toString(sum)))
	223	+	else $Tuple2(nil, $Tuple2(average, isLocked))
325	224		}
326	225
327	226
328	227
329	228		@Callable(i)
330		-	func borrow (assetIdStr,assetAmount) = {
331		-	let address = toString(i.caller)
332		-	let $t01200912076 = getActualRate(assetIdStr, "bRate")

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4		-	let ~~reserveFundAddress~~ = ~~Address(base58'3P4kBiU4wr2yV1S5gMfu3MdkVvy7kxXHsKe')~~
	4	+	let Scale8 = 100000000
5	5
6		-	let ~~reserveFund~~ = 20
	6	+	let sentinels = [Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'), Address(base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o'), Address(base58'3P8auNWJkxxByyJtwErFXaxiXcGM45qQ1hA'), Address(base58'3P8qVX189qpoTJZQQQdKS9endHK5sxWsvrd')]
7	7
8		-	let ~~oracleAddress~~ = Address(base58'~~3P8d1E1BLKoD52y3bQJ1bDTd2TD1gpaLn9t~~')
	8	+	let backendCaller = Address(base58'3PLGH6sG6ND59GU6gFXHKQRuL5bdpWFs6U6')
9	9
10		-	let ~~aggregatorAddress~~ = Address(base58'~~3PGFHzVGT4NTigwCKP1NcwoXkodVZwvBuuU~~')
	10	+	let orderbookOracle = Address(base58'3PPXVKjN6nRMzXeegcYhfiic96pd2c98Ekm')
11	11
12		-	let ~~wxStakingAddress~~ = ~~Address(~~base58'~~3PDDRRS5gKyDQRpJskzWTdxREHGu1FNpdwg~~')
	12	+	let xtnId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
13	13
14		-	let ~~shutdownWhitelist~~ = [base58'3PBTPFGaKL7qEdj9Tz1QUqbvJUcPNu934j4', base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL', base58'3PAxdDSmN758L5SHSGRC5apEtQE2aApZotG', base58'3PJKmXoHJvVeQXjSJdhtkUcFDtdiQqMbUTD', base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o', base58'3PHbdpaKzz8EiAngGHaFu2hVuNCdsC67qh3', base58'3P6Ksahs71SiKQgQ4qaZuFAVhqncdi2nvJQ']
	14	+	let xtnIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
15	15
16		-	func verifyLiquidatorRights (address) = !(if (if ((address != Address(base58'3PCqdm1mAoQqR46oZotFanmqb5CLUvrKEo2')))
17		-	then (address != Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'))
18		-	else false)
19		-	then (address != Address(base58'3PHbdpaKzz8EiAngGHaFu2hVuNCdsC67qh3'))
20		-	else false)
	16	+	let ethStr = "3VuV5WTmDz47Dmdn3QpcYjzbSdipjQE4JMdNe1xZpX13"
21	17
	18	+	let stables = ["9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi", "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"]
22	19
23		-	func getRateCurve (assetIdStr) = match assetIdStr {
	20	+	let tokenIds = ["6nSpVyNH7yM69eg446wrQR94ipbbcmZMU1ENPwanC97g", "Ehie5xYpeN8op1Cctc6aGUrqx8jq3jtf1DSjXDbfm7aT", "4LHHvYGNKJUg5hj65aGD5vgScvCBmLpdRFtjokvCjSL8", "C1iWsKGqLwjHUndiQ7iXpdmPum9PeCDFfyXBdJJosDRS", "34N9YcEETLWn93qYQ64EsP1x89tSruJU44RrEMSXXEPJ", "6XtHjpXbs9RRJP2Sr9GUyVqzACcby9TkThHXnjVC5CDJ", "HEB8Qaw9xrWpWs8tHsiATYGBWDBtP2S7kcPALrMu43AS", "Ajso6nTTjptu2UHLx6hfSXVtHFtRBJCkKYd5SAyj7zf5", "DSbbhLsSTeDg5Lsiufk2Aneh3DjVqJuPr2M9uU1gwy5p", "Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on", "2thsACuHmzDMuNezPM32wg9a3BwUzBWDeSKakgz3cw21", "YiNbofFzC17jEHHCMwrRcpy9MrrjabMMLZxg8g5xmf7", "8t4DPWTwPzpatHA9AkTxWAB47THnYzBsDnoY7fQqbG91", "At8D6NFFpheCbvKVnjVoeLL84Eo8NZn6ovManxfLaFWL", "6phK22ztGBW127gUFmdMEHKB3CVd6ZhWox2WtwJkbqTq", "3VuV5WTmDz47Dmdn3QpcYjzbSdipjQE4JMdNe1xZpX13", "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi"]
	21	+
	22	+	let tokenIsBaseAsset = [false, false, false, false, true, true, false, false, false, false, false, false, false, false, true, false, true, true]
	23	+
	24	+	let tokenDecimals = [1000000, 100000000, 100000000, 100000000, 1000000, 1000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 100000000, 1000000, 1000000, 100000000, 1000000, 1000000]
	25	+
	26	+	let tokenWXWavesLPs = ["DZeA7RbVab98r61hVH5zcFZXwNALPJGgq1eyHandsKKW", "72E4MMFHngsixqAkNZCRJMLTmgAP9nufdsXexnS5qxVx", "FTTJnB6xG4CKZEJMgsgqjmgbzcyH8ya3tV8LQP2GCDs7", "3UnytNnkd48fHofHPBp59BkpZA1uMSJ8PdhWUCuerics", "ByJtVuYi58CtdjtasDuTqtgev8qWkdJybF7rY1xosmhE", "BoXuf9ewJSE1UMrKibZmigzC6tBzv8RFTeZmofEos2ZJ", "7G687ui3m59oAd6qkyni2vt77bHF4bbA6xcPfDo3uiTu", "EMsZpqcT8NuMYZCEPHzvrhQCQKhfXjdeekZvcWpHsNvh", "E3YhURNsCmjUaYNigH6AayLxbh9u81uVGU3ZvHKznY5v", "BiSzFe8nSL78oZaebfoin5vBZ5Pze6d7kaeijLqr5xZe", "AKQsEQoeinKRFtdx6rhKWcpkAMu6cbDLdtSWnR8tpBCq", "DjgwW4CMJEfpzj7SLFFPiCqf1zfmAgf1MD5gAS8SjKt4", "", "F3s92VRdppEtLVAP697CTM6AzZJECRcoMx5kj2FkGv4M", "6iMB6LKSrgv9waEvEnN6Ydyx7dfxPnGcTw8318WVm5bR", "E6MUGSUieSsq6QiJcbp6REdQXyjp6uPWLitnp9Gdtsuh", "6KWpnpLk6GNh5HG9ct9pNDCYFWJBoAAshZsp4D8jcFpV", ""]
	27	+
	28	+	let tokenWXXTNPools = ["", "", "", "3P3Y38zymCHoTM6qcE9JcEA8rhaGTQbVMgu", "", "", "3P615yXeQ9Qu4qBM1QGimGzixyMS5W4Ktug", "3PEkD5LuHGWhUfgBW1owZFxVydYoWjV6Jia", "3P5HjPowgipiVB3UvXphDiPvKs424WC9xQw", "3PCENpEKe8atwELZ7oCSmcdEfcRuKTrUx99", "", "", "3PH832eKnw67PFvJfUg9Knz6BHM87QvjMeL", "", "3PGcYzoUfQEQkhRgrBqmG5Wpc7A1ncFvRtM", "", "", ""]
	29	+
	30	+	let tokenSwopPools = ["3P2V63Xd6BviDkeMzxhUw2SJyojByRz8a8m", "3P27S9V36kw2McjWRZ37AxTx8iwkd7HXw6W", "3P6DLdJTP2EySq9MFdJu6beUevrQd2sVVBh", "", "", "", "3PBHyEwmERR1CEkrTNbPj2bgyisTfPRqfee", "3PDSXwwA2xAtmxeo2bebDP3AA5ynZ2Krgnw", "3PJ48P3p2wvWUjgQaQiZ2cFbr8qmxMokBGd", "3PKi4G3VX2k42ZSmNNrmvgdDH7JzRaUhY7R", "", "", "3PCwvns2dnmobD6Z4cR86v98s7LgMZYygEy", "3PLp9KrdrbWAvSFHGJVEaszUubquz3M6mfe", "", "", "", ""]
	31	+
	32	+	let lpTokenIds = ["9dbpSr8d18qWQxn5fJJSS1LLQ8CmSZ6gYmjuPRzg3RBM", "9MKixRt9rNRyaJCT2pexbXkuvpZBdJREdTU36bGit8iw", "6bZbRmou7M7wXBunMXQnZ4Rm66HxZF3KfMEiFwk3wmnA"]
	33	+
	34	+	let lpTokenBase = ["Atqv59EYzjFGuitKVnMRk6H8FukjoV3ktPorbEys25on", "WAVES", "WAVES"]
	35	+
	36	+	let lpTokenPool = [Address(base58'3PKJxKhn9MrzcvZv689bUpZgh4rurEgoKC8'), Address(base58'3P4PFYKHyxitgwVb4WVWEcdH7ZsuR4GgcXC'), Address(base58'3PCpjLGo4wDuv23kjmGF6mHs86Bf3soYvAq')]
	37	+
	38	+	let lpTokenBaseShare = [30000000, 20000000, 20000000]
	39	+
	40	+	let wxLpTokenIds = ["rZMQ6g31Lr7sPAaAoYc4U2PHCVauTuKUSzUbJtUyPZN"]
	41	+
	42	+	let wxLpUnderlying = [["9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi", "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"]]
	43	+
	44	+	let wx_restAddressStr = "3P8MoPnsaurofk1VyhsdAFkeQ6ijpJYXCpW"
	45	+
	46	+	let wx_restDapp = addressFromStringValue(wx_restAddressStr)
	47	+
	48	+	let swopRestDapp = addressFromStringValue("3P56jNQzECXnrWpnbbSJKw7Eooo6fkUaMPp")
	49	+
	50	+	let oracleTolerance = 1000
	51	+
	52	+	let shutdownTrigger = 3000
	53	+
	54	+	let revisionNum = ""
	55	+
	56	+	let SEP = "__"
	57	+
	58	+	func asString (v) = match v {
	59	+	case s: String =>
	60	+	s
24	61		case _ =>
25		-	~~$Tuple4~~(~~20000000, 100000000,~~ ~~60000000, 400000000~~)
	62	+	throw("fail to cast into String")
26	63		}
27	64
28	65
29		-	let sentinels = [Address(base58'3PMcMiMEs6w56NRGacksXtFG5zS7doE9fpL'), Address(base58'3PQdNxynJy5mche2kxMVc5shXWzK8Gstq3o'), Address(base58'3P8auNWJkxxByyJtwErFXaxiXcGM45qQ1hA'), Address(base58'3P8qVX189qpoTJZQQQdKS9endHK5sxWsvrd')]
30		-
31		-	let Scale8 = 100000000
32		-
33		-	let Scale10 = 10000000000
34		-
35		-	let Scale16 = (Scale8 * Scale8)
36		-
37		-	let dayBlocks = 1440
38		-
39		-	func liIntToStr (li) = {
40		-	func f (accum,next) = ((accum + toString(next)) + ",")
41		-
42		-	let $l = li
43		-	let $s = size($l)
44		-	let $acc0 = ""
45		-	func $f0_1 ($a,$i) = if (($i >= $s))
46		-	then $a
47		-	else f($a, $l[$i])
48		-
49		-	func $f0_2 ($a,$i) = if (($i >= $s))
50		-	then $a
51		-	else throw("List size exceeds 12")
52		-
53		-	$f0_2($f0_1($f0_1($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), 11), 12)
54		-	}
	66	+	func asInt (v) = match v {
	67	+	case i: Int =>
	68	+	i
	69	+	case _ =>
	70	+	throw("fail to cast into Int")
	71	+	}
55	72
56	73
57	74		func tryGetInteger (key) = match getInteger(this, key) {
58	75		case b: Int =>
59	76		b
60	77		case _ =>
61	78		0
62	79		}
63	80
64	81
65		-	func tryGetBoolean (key) = match getBoolean(this, key) {
66		-	case b: Boolean =>
67		-	b
68		-	case _ =>
69		-	false
70		-	}
71		-
72		-
73		-	func tryGetString (key) = match getString(this, key) {
74		-	case b: String =>
75		-	b
76		-	case _ =>
77		-	""
78		-	}
79		-
80		-
81		-	func tryGetBinary (key) = match getBinary(this, key) {
82		-	case b: ByteVector =>
83		-	b
84		-	case _ =>
85		-	base58''
86		-	}
87		-
88		-
89		-	func getAssetString (assetId) = match assetId {
90		-	case b: ByteVector =>
91		-	toBase58String(b)
92		-	case _ =>
93		-	"WAVES"
94		-	}
95		-
96		-
97	82		func getAssetBytes (assetIdStr) = if ((assetIdStr == "WAVES"))
98	83		then unit
99	84		else fromBase58String(assetIdStr)
100	85
101	86
102		-	func getBalance (assetIdStr) = if ((assetIdStr == "WAVES"))
103		-	then wavesBalance(this).available
104		-	else assetBalance(this, fromBase58String(assetIdStr))
	87	+	let doraAddressStr = "3PKkojKdd6BBzTf1RXbQVfUDraNFXXHKzQF"
105	88
	89	+	let doraAddress = addressFromStringValue(doraAddressStr)
106	90
107		-	~~func getMarketAssets ()~~ = ~~split~~(~~tryGetString~~("~~setup~~_~~tokens~~"), ",")
	91	+	let xtnUsdPriceX6 = valueOrErrorMessage(getInteger(doraAddress, "%s%s__price__USDN-USDT"), "DORA doesn't contain USDN/USDT price")
108	92
109		-
110		-	func getAssetsMaxSupply () = {
111		-	let s = tryGetString("setup_maxSupply")
112		-	if ((s == ""))
113		-	then [-1, -1, -1, -1, -1, -1, -1]
114		-	else split(s, ",")
	93	+	func getTokenPrice (tokenNum,wavesUsdPriceX6) = {
	94	+	let tokenIdStr = tokenIds[tokenNum]
	95	+	let tokenId = fromBase58String(tokenIdStr)
	96	+	if ((indexOf(stables, tokenIdStr) != unit))
	97	+	then $Tuple2(1000000, "stable token price")
	98	+	else {
	99	+	let wx_T1Waves_lp = tokenWXWavesLPs[tokenNum]
	100	+	let $t058336549 = if ((wx_T1Waves_lp == ""))
	101	+	then $Tuple2(0, 0)
	102	+	else {
	103	+	let wxRestResult = split(asString(invoke(wx_restDapp, "poolStatsREADONLY", [wx_T1Waves_lp], nil)), "__")
	104	+	let $t060576149 = if (tokenIsBaseAsset[tokenNum])
	105	+	then $Tuple2(1, 2)
	106	+	else $Tuple2(2, 1)
	107	+	let wavesInPairNum = $t060576149._1
	108	+	let tokenInPairNum = $t060576149._2
	109	+	let wx_T1Waves_WAVESx8 = parseIntValue(wxRestResult[wavesInPairNum])
	110	+	let wx_T1Waves_T1x8 = fraction(parseIntValue(wxRestResult[tokenInPairNum]), 100000000, tokenDecimals[tokenNum])
	111	+	let wx_T1Waves_T1UsdPriceX6 = fraction(wx_T1Waves_WAVESx8, wavesUsdPriceX6, wx_T1Waves_T1x8)
	112	+	let wx_T1Waves_Weight = wx_T1Waves_T1x8
	113	+	$Tuple2(wx_T1Waves_T1UsdPriceX6, wx_T1Waves_Weight)
	114	+	}
	115	+	let wx_T1Waves_T1UsdPriceX6 = $t058336549._1
	116	+	let wx_T1Waves_Weight = $t058336549._2
	117	+	let wx_T1Xtn_AddressStr = tokenWXXTNPools[tokenNum]
	118	+	let $t066117042 = if ((wx_T1Xtn_AddressStr == ""))
	119	+	then $Tuple2(0, 0)
	120	+	else {
	121	+	let wx_T1Xtn_Address = addressFromStringValue(wx_T1Xtn_AddressStr)
	122	+	let wx_T1Xtn_XTNx6 = assetBalance(wx_T1Xtn_Address, xtnId)
	123	+	let wx_T1Xtn_T1x8 = assetBalance(wx_T1Xtn_Address, tokenId)
	124	+	$Tuple2(fraction((wx_T1Xtn_XTNx6 * (tokenDecimals[tokenNum] / 1000000)), xtnUsdPriceX6, wx_T1Xtn_T1x8), wx_T1Xtn_T1x8)
	125	+	}
	126	+	let wx_T1Xtn_T1UsdPriceX6 = $t066117042._1
	127	+	let wx_T1Xtn_Weight = $t066117042._2
	128	+	let swop_T1Xtn_AddressStr = tokenSwopPools[tokenNum]
	129	+	let $t071057723 = if ((swop_T1Xtn_AddressStr == ""))
	130	+	then $Tuple2(0, 0)
	131	+	else {
	132	+	let swop_T1Xtn_Address = addressFromStringValue(swop_T1Xtn_AddressStr)
	133	+	let swop_T1Xtn_T1XtnPriceX6 = asInt(invoke(swopRestDapp, "calcGetAmountCPMM", [swop_T1Xtn_AddressStr, "3P88qk1KzF1BKjD7fC7LjNVAKM4ezff5WE6", tokenIdStr, tokenDecimals[tokenNum]], nil))
	134	+	let swop_T1Xtn_T1UsdPriceX6 = fraction(swop_T1Xtn_T1XtnPriceX6, xtnUsdPriceX6, 1000000)
	135	+	let swop_T1Xtn_Weight = getIntegerValue(swop_T1Xtn_Address, "A_asset_balance")
	136	+	$Tuple2(swop_T1Xtn_T1UsdPriceX6, swop_T1Xtn_Weight)
	137	+	}
	138	+	let swop_T1Xtn_T1UsdPriceX6 = $t071057723._1
	139	+	let swop_T1Xtn_Weight = $t071057723._2
	140	+	let W = ((wx_T1Waves_Weight + wx_T1Xtn_Weight) + swop_T1Xtn_Weight)
	141	+	let T1UsdPriceX6 = ((fraction(wx_T1Waves_T1UsdPriceX6, wx_T1Waves_Weight, W) + fraction(wx_T1Xtn_T1UsdPriceX6, wx_T1Xtn_Weight, W)) + fraction(swop_T1Xtn_T1UsdPriceX6, swop_T1Xtn_Weight, W))
	142	+	let debug = ((((((("T1UsdPriceX6=" + toString(T1UsdPriceX6)) + " wx_T1Waves_T1UsdPriceX6=") + toString(wx_T1Waves_T1UsdPriceX6)) + " wx_T1Xtn_T1UsdPriceX6=") + toString(wx_T1Xtn_T1UsdPriceX6)) + " swop_T1Xtn_T1UsdPriceX6=") + toString(swop_T1Xtn_T1UsdPriceX6))
	143	+	$Tuple2(T1UsdPriceX6, debug)
	144	+	}
115	145		}
116	146
117	147
118		-	func getOutdatedUr (assetIdStr) = {
119		-	let down = fraction(tryGetInteger(("total_supplied_" + assetIdStr)), tryGetInteger((assetIdStr + "_sRate")), Scale16)
120		-	if ((down == 0))
121		-	then 0
122		-	else fraction(Scale8, fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), tryGetInteger((assetIdStr + "_bRate")), Scale16), down)
	148	+	let lastUpdatedBlockKey = "lastUpdatedBlock"
	149	+
	150	+	let n15List = [1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1]
	151	+
	152	+	func getPriceDataKey (block,tokenId) = ((("block_" + toString(block)) + "_") + tokenId)
	153	+
	154	+
	155	+	func getPriceValue (tokenId,block) = valueOrElse(getInteger(orderbookOracle, getPriceDataKey(block, tokenId)), 0)
	156	+
	157	+
	158	+	func getLastUpdatedBlock () = {
	159	+	let lastUpdatedBlock = valueOrErrorMessage(getInteger(orderbookOracle, lastUpdatedBlockKey), "Last updated block key not found")
	160	+	if ((0 >= lastUpdatedBlock))
	161	+	then throw("Invalid block value")
	162	+	else if (((height - lastUpdatedBlock) > 10))
	163	+	then throw("The price has not been updated for a long time")
	164	+	else lastUpdatedBlock
123	165		}
124	166
125	167
126		-	func getInterest (assetIdStr) = {
127		-	let ur = getOutdatedUr(assetIdStr)
128		-	let curve = getRateCurve(assetIdStr)
129		-	let rate = (curve._1 + (if ((curve._3 >= ur))
130		-	then fraction(ur, curve._2, curve._3)
131		-	else (curve._2 + fraction((ur - curve._3), curve._4, (100000000 - curve._3)))))
132		-	max([fraction(rate, Scale8, (dayBlocks * 365)), 1])
	168	+	func getPriceList (accum,next) = {
	169	+	let $t091649205 = accum
	170	+	let result = $t091649205._1
	171	+	let block = $t091649205._2
	172	+	let tokenId = $t091649205._3
	173	+	let sum = $t091649205._4
	174	+	let priceValue = getPriceValue(tokenId, block)
	175	+	let nextBlock = (block - next)
	176	+	if ((priceValue > 0))
	177	+	then $Tuple4((result :+ priceValue), nextBlock, tokenId, (sum + priceValue))
	178	+	else $Tuple4(result, nextBlock, tokenId, sum)
133	179		}
134	180
135	181
136		-	func tokenRatesRecalc (assetIdStr) = {
137		-	let interest = getInterest(assetIdStr)
138		-	let ur = getOutdatedUr(assetIdStr)
139		-	let lastRecalcHeight = tryGetInteger("lastRateHeight")
140		-	let lastBRate = max([tryGetInteger((assetIdStr + "_bRate")), Scale16])
141		-	let newBRate = (lastBRate + ((height - lastRecalcHeight) * interest))
142		-	let lastSRate = max([tryGetInteger((assetIdStr + "_sRate")), Scale16])
143		-	let newSRate = (lastSRate + ((((height - lastRecalcHeight) * fraction(interest, ur, Scale8)) * (100 - reserveFund)) / 100))
144		-	[IntegerEntry((assetIdStr + "_sRate"), newSRate), IntegerEntry((assetIdStr + "_bRate"), newBRate), IntegerEntry("lastRateHeight", height)]
145		-	}
146		-
147		-
148		-	func getActualRate (assetIdStr,rateType) = {
149		-	func f (accum,token) = {
150		-	let recalc = tokenRatesRecalc(token)
151		-	$Tuple2(if ((token != assetIdStr))
152		-	then accum._1
153		-	else if ((rateType == "sRate"))
154		-	then recalc[0].value
155		-	else recalc[1].value, (accum._2 ++ recalc))
156		-	}
157		-
158		-	let $l = getMarketAssets()
159		-	let $s = size($l)
160		-	let $acc0 = $Tuple2(0, nil)
161		-	func $f0_1 ($a,$i) = if (($i >= $s))
162		-	then $a
163		-	else f($a, $l[$i])
164		-
165		-	func $f0_2 ($a,$i) = if (($i >= $s))
166		-	then $a
167		-	else throw("List size exceeds 12")
168		-
169		-	$f0_2($f0_1($f0_1($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), 11), 12)
170		-	}
171		-
172		-
173		-	func getUr (assetIdStr) = {
174		-	let rates = tokenRatesRecalc(assetIdStr)
175		-	let down = fraction(tryGetInteger(("total_supplied_" + assetIdStr)), rates[0].value, Scale16)
176		-	fraction(Scale8, fraction(tryGetInteger(("total_borrowed_" + assetIdStr)), rates[1].value, Scale16), down)
177		-	}
178		-
179		-
180		-	func ratesRecalc () = {
181		-	func f (accum,token) = (accum ++ tokenRatesRecalc(token))
182		-
183		-	let $l = getMarketAssets()
184		-	let $s = size($l)
185		-	let $acc0 = nil
186		-	func $f0_1 ($a,$i) = if (($i >= $s))
187		-	then $a
188		-	else f($a, $l[$i])
189		-
190		-	func $f0_2 ($a,$i) = if (($i >= $s))
191		-	then $a
192		-	else throw("List size exceeds 12")
193		-
194		-	$f0_2($f0_1($f0_1($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), 11), 12)
195		-	}
196		-
197		-
198		-	func getTokenPriceWithRisk (assetIdStr,riskAversity) = if (if ((assetIdStr == "9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi"))
199		-	then true
200		-	else (assetIdStr == "HGgabTqUS8WtVFUJzfmrTDMgEccJuZLBPhFgQFxvnsoW"))
201		-	then $Tuple2(1000000, 1000000)
202		-	else {
203		-	let price = getIntegerValue(oracleAddress, (assetIdStr + "_twap5B"))
204		-	let riskLevel = getIntegerValue(oracleAddress, (assetIdStr + "_riskLevel"))
205		-	if ((riskAversity >= riskLevel))
206		-	then $Tuple2(price, price)
207		-	else throw((("oracle prices don't match: " + toString(price)) + " is the price, but risk is too high"))
208		-	}
209		-
210		-
211		-	func getTokenPrice (assetIdStr) = getTokenPriceWithRisk(assetIdStr, 3)
212		-
213		-
214		-	func calcAssetScale (assetIdStr) = {
215		-	let decimals = if ((assetIdStr == "WAVES"))
216		-	then 8
217		-	else value(assetInfo(fromBase58String(assetIdStr))).decimals
218		-	pow(10, 0, decimals, 0, 0, DOWN)
219		-	}
220		-
221		-
222		-	func calcUserCollateral (address) = {
223		-	let userCollateralInvoke = invoke(this, "getUserCollateral", [false, address, true, ""], nil)
224		-	if ((userCollateralInvoke == userCollateralInvoke))
	182	+	func getOrderbookTwap (tokenIdStr) = {
	183	+	let inv = invoke(this, "getOrderbookTwap15", [tokenIdStr, false], nil)
	184	+	if ((inv == inv))
225	185		then {
226		-	let ~~userCollateralValue~~ = ~~match userCollateralInvoke~~ {
227		-	~~case x: Int~~ =>
228		-	x
229		-	~~case _ =>~~
230		-	throw("~~issue while doing in-dapp~~ ~~invocation~~")
231		-	}
232		-	if ((~~userCollateralValue~~ == ~~userCollateralValue~~))
233		-	then ~~userCollateralValue~~
	186	+	let orderbookPrice = {
	187	+	let @ = inv
	188	+	if ($isInstanceOf(@, "(Int, Boolean)"))
	189	+	then @
	190	+	else throw(($getType(@) + " couldn't be cast to (Int, Boolean)"))
	191	+	}
	192	+	if ((orderbookPrice == orderbookPrice))
	193	+	then orderbookPrice
234	194		else throw("Strict value is not equal to itself.")
235	195		}
236	196		else throw("Strict value is not equal to itself.")
237	197		}
238	198
239	199
240	200		@Callable(i)
241		-	func supply () = if (!(tryGetBoolean("setup_active")))
242		-	then throw("market is stopped")
243		-	else if (if ((size(i.payments) != 1))
244		-	then true
245		-	else (i.payments[0].amount == 0))
246		-	then throw("1 payment has to be attached")
247		-	else {
248		-	let assetIdStr = getAssetString(i.payments[0].assetId)
249		-	let assetAmount = i.payments[0].amount
250		-	let $t086588725 = getActualRate(assetIdStr, "sRate")
251		-	let sRate = $t086588725._1
252		-	let ratesRecalcResult = $t086588725._2
253		-	let amount = fraction(assetAmount, Scale16, sRate, DOWN)
254		-	let address = toString(i.caller)
255		-	let maxSupply = match getString(("setup_maxSupply_" + assetIdStr)) {
256		-	case x: String =>
257		-	parseIntValue(x)
258		-	case _ =>
259		-	tryGetInteger(("setup_maxSupply_" + assetIdStr))
260		-	}
261		-	let assetPrice = getTokenPrice(assetIdStr)
262		-	let newAddressSupplied = (tryGetInteger(((address + "_supplied_") + assetIdStr)) + amount)
263		-	let newTotalSupplied = (tryGetInteger(("total_supplied_" + assetIdStr)) + amount)
264		-	let rate = getActualRate(assetIdStr, "sRate")._1
265		-	let assetScale = calcAssetScale(assetIdStr)
266		-	let newTotalSuppliedUsd = fraction(fraction(newTotalSupplied, rate, Scale16), assetPrice._1, assetScale)
267		-	if ((indexOf(tryGetString("setup_tokens"), assetIdStr) == unit))
268		-	then throw("this asset is not supported by the market")
269		-	else if (if ((maxSupply != 0))
270		-	then (newTotalSuppliedUsd > maxSupply)
271		-	else false)
272		-	then throw("max total supply for this token reached in the pool")
273		-	else if ((tryGetInteger(("setup_paused_" + assetIdStr)) > 0))
274		-	then throw("this asset can't be supplied or borrowed")
275		-	else {
276		-	let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
277		-	then invoke(this, "stakeToken", [assetIdStr, assetAmount], nil)
278		-	else unit
279		-	if ((inv == inv))
280		-	then ([IntegerEntry(((address + "_supplied_") + assetIdStr), newAddressSupplied), IntegerEntry(("total_supplied_" + assetIdStr), newTotalSupplied)] ++ ratesRecalcResult)
281		-	else throw("Strict value is not equal to itself.")
282		-	}
283		-	}
	201	+	func getOrderbookTwap15 (tokenId,debug) = {
	202	+	let lastUpdatedBlock = getLastUpdatedBlock()
	203	+	let tuple = {
	204	+	let $l = n15List
	205	+	let $s = size($l)
	206	+	let $acc0 = $Tuple4(nil, lastUpdatedBlock, tokenId, 0)
	207	+	func $f0_1 ($a,$i) = if (($i >= $s))
	208	+	then $a
	209	+	else getPriceList($a, $l[$i])
284	210
	211	+	func $f0_2 ($a,$i) = if (($i >= $s))
	212	+	then $a
	213	+	else throw("List size exceeds 15")
285	214
286		-
287		-	@Callable(i)
288		-	func withdraw (assetIdStr,assetAmount) = {
289		-	let $t01028610353 = getActualRate(assetIdStr, "sRate")
290		-	let sRate = $t01028610353._1
291		-	let ratesRecalcResult = $t01028610353._2
292		-	let amount = fraction(assetAmount, Scale16, sRate, CEILING)
293		-	let address = toString(i.caller)
294		-	let assetSupplied = tryGetInteger(("total_supplied_" + assetIdStr))
295		-	let assetBorrowed = tryGetInteger(("total_borrowed_" + assetIdStr))
296		-	let userAssetSupplied = tryGetInteger(((address + "_supplied_") + assetIdStr))
297		-	let userAssetBorrowed = tryGetInteger(((address + "_borrowed_") + assetIdStr))
298		-	let collateralValueInv = invoke(this, "getUserCollateral", [false, address, true, ((assetIdStr + ",supplied,") + toString(-(amount)))], nil)
299		-	if ((collateralValueInv == collateralValueInv))
300		-	then {
301		-	let collateralValue = match collateralValueInv {
302		-	case x: Int =>
303		-	x
304		-	case _ =>
305		-	throw("can't get user collateral value")
306		-	}
307		-	if (!(tryGetBoolean("setup_active")))
308		-	then throw("market is stopped")
309		-	else if ((0 > collateralValue))
310		-	then throw("you dont have enough collateral for this operation")
311		-	else if ((amount > (assetSupplied - assetBorrowed)))
312		-	then throw("this amount is not available on the market")
313		-	else if ((amount > (userAssetSupplied - userAssetBorrowed)))
314		-	then throw("this amount is not available for this user")
315		-	else {
316		-	let inv = if ((tryGetString(("setup_autostake_" + assetIdStr)) != ""))
317		-	then invoke(this, "unstakeToken", [assetIdStr, assetAmount], nil)
318		-	else unit
319		-	if ((inv == inv))
320		-	then ([IntegerEntry(((address + "_supplied_") + assetIdStr), (tryGetInteger(((address + "_supplied_") + assetIdStr)) - amount)), IntegerEntry(("total_supplied_" + assetIdStr), (tryGetInteger(("total_supplied_" + assetIdStr)) - amount)), ScriptTransfer(i.caller, assetAmount, getAssetBytes(assetIdStr))] ++ ratesRecalcResult)
321		-	else throw("Strict value is not equal to itself.")
322		-	}
323		-	}
324		-	else throw("Strict value is not equal to itself.")
	215	+	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($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), 11), 12), 13), 14), 15)
	216	+	}
	217	+	let pricesList = tuple._1
	218	+	let sum = tuple._4
	219	+	let average = fraction(sum, 1000000, fraction(size(pricesList), 1000000, 1))
	220	+	let isLocked = valueOrElse(getBoolean(orderbookOracle, (tokenId + "_locked")), false)
	221	+	if (debug)
	222	+	then throw((((((((("average: " + toString(average)) + ", isLocked: ") + toString(isLocked)) + ", ") + "priceListSize: ") + toString(size(pricesList))) + ", sum: ") + toString(sum)))
	223	+	else $Tuple2(nil, $Tuple2(average, isLocked))
325	224		}
326	225
327	226
328	227
329	228		@Callable(i)

github/deemru/w8io/3ef1775 
140.79 ms ◑