w8 · tx · 99d···tbB

tx · 99dP3YgqSnPWQ83bU8KGZtZygw3Xzhj9w9j45LcNxtbB

3MsVsEgTUxTm6ETYkHGaqMhMhiY2Nb3yDN5:  -0.02000000 Waves

2023.09.24 22:03 [2769875] smart account 3MsVsEgTUxTm6ETYkHGaqMhMhiY2Nb3yDN5 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "99dP3YgqSnPWQ83bU8KGZtZygw3Xzhj9w9j45LcNxtbB",
    "fee": 2000000,
    "feeAssetId": null,
    "timestamp": 1695582229345,
    "version": 2,
    "chainId": 84,
    "sender": "3MsVsEgTUxTm6ETYkHGaqMhMhiY2Nb3yDN5",
    "senderPublicKey": "2LmNyaN5YAXdg9C5vsXcTLU66hsW2KUNPsN7KcHBYhUo",
    "proofs": [
        "31E3DNFmmEXxqu78HBCZybxVP7ZKFGnLtUQGi6NPhDeQFJByu9TrzMpGP8PEdwQXv7ALEsu3cP3LurgWGQnvarB4"
    ],
    "script": "base64:BgIgCAISAwoBCBIDCgEIEgMKAQgSAwoBCBIDCgEIEgMKAQgIAAdWZXJzaW9uAgUxLjAuMAAOZEFwcFNpbmNlU3RhcnQAwPf3jKoxAAtsaXN0aW5nX2ZlZQCAv9YGAAlrZXkxb3duZXIJAKcIAQEgL8wj0E+YdymCOLPkHvyUyyV6f105rlHZhoS1aMWmpnsACWtleTJvd25lcgkApwgBASAvzCPQT5h3KYI4s+Qe/JTLJXp/XTmuUdmGhLVoxaamewAIVHJlYXN1cnkJAKcIAQEgzkjfc3pzZ3kooMBny03g4HEHbv5A+Wp5Ghfc7qG4JAEAClhUTkFzc2V0SUQBIAhlhLcP8IpqGvPiaOguCJAkw9MnWAPNLPYuXgvf2hWkAQljb3VudGRheXMABAdUU19EaWZmCQBlAggFCWxhc3RCbG9jawl0aW1lc3RhbXAFDmRBcHBTaW5jZVN0YXJ0BAlkYXludW1iZXIJAGsDAAEFB1RTX0RpZmYAgLiZKQUJZGF5bnVtYmVyBgFpAQxSZWdpc3RlclBhaXIBDEVudGVyQXNzZXRJRAQEcG10MQkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwAABARwbXQyCQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAEEBHBtdDMJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAgQKY3VycmVudEtleQkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBAVXQVZFUwkBASEBCQEJaXNEZWZpbmVkAQgFBHBtdDIHYXNzZXRJZAQJZmV0Y2hwYWlyCQCdCAIFBHRoaXMJAKwCAgIIUGFpcl9VVl8FDEVudGVyQXNzZXRJRAQNYXNzZXRpbmZvcG10MgkA2QQBBQxFbnRlckFzc2V0SUQEBGluZm8JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFDEVudGVyQXNzZXRJRAkArAICCQCsAgICBkFzc2V0IAUMRW50ZXJBc3NldElEAg4gZG9lc24ndCBleGlzdAQEbmFtZQgFBGluZm8EbmFtZQQIZGVjaW1hbHMIBQRpbmZvCGRlY2ltYWxzBApMUGRlY2ltYWxzCQBrAwkAZAIFCGRlY2ltYWxzAAYAAQACBApGaXJzdExQUXR5CQBoAgABCQBsBgAKAAAFCkxQZGVjaW1hbHMAAAAABQdDRUlMSU5HBBBtdWx0aXBseV9hbW91bnRzCQBrAwgFBHBtdDEGYW1vdW50CAUEcG10MgZhbW91bnQFCkZpcnN0TFBRdHkEB2dldFNxcnQJAQRzcXJ0BAUQbXVsdGlwbHlfYW1vdW50cwUKTFBkZWNpbWFscwUKTFBkZWNpbWFscwUHQ0VJTElORwQHTFBpc3N1ZQkAwggFCQCsAgIJAKwCAgIDTFAtCQCvAgIFBG5hbWUACAIELVhUTgkArAICCQCsAgIJAKwCAgkArAICAgNMUC0FBG5hbWUCBC1YVE4CLiBpcyBhIExpcXVpZGl0eSBQcm92aWRlciBUb2tlbiBJc3N1ZWQgQWdhaW5zdCAFDEVudGVyQXNzZXRJRAUHZ2V0U3FydAUKTFBkZWNpbWFscwYEBExQaWQJALgIAQUHTFBpc3N1ZQMJAAACBQlmZXRjaHBhaXIFDEVudGVyQXNzZXRJRAkAAgECG1BhaXIgQWxyZWFkeSBFeGlzdCBpbiBMaXN0LgMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAwkAAgEJAKwCAgkArAICAn5Ud28gYXR0YWNoZWQgYXNzZXRzIGV4cGVjdGVkIGFzIHBheW1lbnQuIEtpbmRseSBBdHRhY2ggcGF5bWVudDEgPSBYVE4gVG9rZW4gJiBwYXltZW50MiA9IFRva2VuIHlvdSB3YW50IHRvIExpc3QgJiBwYXltZW50MyA9IFsJAKQDAQULbGlzdGluZ19mZWUCDS8xMF44XSBXYXZlcy4DCQECIT0CCAUEcG10MQdhc3NldElkBQpYVE5Bc3NldElECQACAQI/SW5jb3JyZWN0IGFzc2V0IGF0dGFjaGVkIGFzIHBheW1lbnRbMV0sIHBsZWFzZSBhdHRhY2ggWFROIG9ubHkuAwkAZgIAoI0GCAUEcG10MQZhbW91bnQJAAIBAk9BdHRhY2hlZCBwYXltZW50WzFdIGFtb3VudCBpcyBsZXNzIHRoYW4gMC4xIFhUTiwgcGxlYXNlIGF0dGFjaCAwLjEgWFROIE1pbmltdW0uAwkBAiE9AggFBHBtdDIHYXNzZXRJZAUNYXNzZXRpbmZvcG10MgkAAgECPElucHV0IFN0cmluZyAmIEF0dGFjaGVkIEFzc2V0SUQgaW4gcGF5bWVudDIgaXMgbm90IG1hdGNoaW5nLgMJAQIhPQIIBQRwbXQzBmFtb3VudAULbGlzdGluZ19mZWUJAAIBCQCsAgIJAKwCAgIsQXR0YWNoZWQgcGF5bWVudFszXSBhbW91bnQgaGFzIHRvIGJlIGV4YWN0IFsJAKQDAQULbGlzdGluZ19mZWUCDS8xMF44XSBXQVZFUy4DCQAAAgUFV0FWRVMGCQACAQJdWW91IEF0dGFjaGVkIFdBVkVTIEFzc2V0IElEIGZvciBMaXN0aW5nLCBwbGVhc2UgYXR0YWNoIFRva2VucyBZb3Ugd2FudCB0byBsaXN0IGluIHBheW1lbnRbMl0uCQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgIIUGFpcl9VVl8FDEVudGVyQXNzZXRJRAUMRW50ZXJBc3NldElECQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICDExpc3RpbmdfRmVlXwUMRW50ZXJBc3NldElECAUEcG10MwZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfBQxFbnRlckFzc2V0SUQCAV8JANgEAQUKWFROQXNzZXRJRAgFBHBtdDEGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQIBQRwbXQyBmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAhNUb3RhbF9vZl9QYWlyX1R4bnNfBQxFbnRlckFzc2V0SUQAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgIZVG90YWxfU3dhcF9GZWVfQ29sbGVjdGVkXwUMRW50ZXJBc3NldElEAgFfCQDYBAEFClhUTkFzc2V0SUQAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAhlUb3RhbF9Td2FwX0ZlZV9Db2xsZWN0ZWRfBQxFbnRlckFzc2V0SUQAAAkAzAgCBQdMUGlzc3VlCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUHZ2V0U3FydAUETFBpZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQlrZXkxb3duZXIJAGsDBQtsaXN0aW5nX2ZlZQABAAIFBHVuaXQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUJa2V5Mm93bmVyCQBrAwULbGlzdGluZ19mZWUAAQACBQR1bml0CQDMCAIJAQtTdHJpbmdFbnRyeQIJAKwCAgIDTFBfBQxFbnRlckFzc2V0SUQJANgEAQUETFBpZAkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAglUb3RhbF9MUF8FDEVudGVyQXNzZXRJRAUHZ2V0U3FydAUDbmlsAWkBD29sZEFkZExpcXVpZGl0eQEMRW50ZXJBc3NldElEBA1jYWxsZXJhZGRyZXNzCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEBHBtdDEJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQEcG10MgkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwABBBljaGVja3BhaXJpc2F2YWlsYWJsZW9ybm90CQCdCAIFBHRoaXMJAKwCAgIIUGFpcl9VVl8FDEVudGVyQXNzZXRJRAQOUmVpc3N1ZWFzc2V0SWQJANkEAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMJAKwCAgIDTFBfBQxFbnRlckFzc2V0SUQCLExQIFRva2VuIGlzIE1pc3Npbmcgb3IgTWF5IGJlIG5vdCBHZW5lcmF0ZWQuBBBDaGVja1VTRENCYWxhbmNlCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwUMRW50ZXJBc3NldElEAgFfCQDYBAEFClhUTkFzc2V0SUQEEUNoZWNrQXNzZXRCYWxhbmNlCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQEDGRlY2ltYWxzaW5mbwkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDsBwEJANkEAQUMRW50ZXJBc3NldElECQCsAgIJAKwCAgIGQXNzZXQgBQxFbnRlckFzc2V0SUQCDiBkb2Vzbid0IGV4aXN0BAhkZWNpbWFscwgFDGRlY2ltYWxzaW5mbwhkZWNpbWFscwQEYXJnMQUQQ2hlY2tVU0RDQmFsYW5jZQQEYXJnMgURQ2hlY2tBc3NldEJhbGFuY2UEBWFyZ3MzCQBsBgkAaAIJAGkCCQBoAgUEYXJnMQDAhD0FBGFyZzIJAGwGAAoAAAUIZGVjaW1hbHMAAAAABQdDRUlMSU5HAAAAAQAAAAAFB0NFSUxJTkcEEmJvdGhhc3NldHNkZWNpbWFscwkAZAIABgUIZGVjaW1hbHMEDXNoYXJlZGVjaW1hbHMJAGkCBRJib3RoYXNzZXRzZGVjaW1hbHMAAgQWcXVhbnRpdHlvZkVudGVyQXNzZXRJRAkAawMFBWFyZ3MzCAUEcG10MQZhbW91bnQJAGwGAAoAAAUSYm90aGFzc2V0c2RlY2ltYWxzAAAAAAUHQ0VJTElORwQScXVhbnRpdHlvZkxQVG9rZW4xCQBsBgkAaAIJAGsDCAUEcG10MQZhbW91bnQAAQkAbAYACgAABQhkZWNpbWFscwAAAAAFB0NFSUxJTkcJAGsDCAUEcG10MgZhbW91bnQAAQkAbAYACgAAAAYAAAAABQdDRUlMSU5HAAAABQABBQ1zaGFyZWRlY2ltYWxzBQRET1dOBBFVU0RDSG9sZGluZ0luUGFpcgQHJG1hdGNoMAkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwUMRW50ZXJBc3NldElEAgFfCQDYBAEFClhUTkFzc2V0SUQDCQABAgUHJG1hdGNoMAIDSW50BAFhBQckbWF0Y2gwBQFhAAAEFE5ld1VTRENIb2xkaW5nSW5QYWlyCQBkAgURVVNEQ0hvbGRpbmdJblBhaXIIBQRwbXQyBmFtb3VudAQSQXNzZXRIb2xkaW5nSW5QYWlyBAckbWF0Y2gwCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfCQDYBAEFClhUTkFzc2V0SUQCAV8FDEVudGVyQXNzZXRJRAMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQVTmV3QXNzZXRIb2xkaW5nSW5QYWlyCQBkAgUSQXNzZXRIb2xkaW5nSW5QYWlyCAUEcG10MQZhbW91bnQEDUxQVG9rZW5Jc3N1ZWQEByRtYXRjaDAJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgIJVG90YWxfTFBfBQxFbnRlckFzc2V0SUQDCQABAgUHJG1hdGNoMAIDSW50BAFhBQckbWF0Y2gwBQFhAAAEEE5ld0xQVG9rZW5Jc3N1ZWQJAGQCBQ1MUFRva2VuSXNzdWVkBRJxdWFudGl0eW9mTFBUb2tlbjEDCQECIT0CBRljaGVja3BhaXJpc2F2YWlsYWJsZW9ybm90BQxFbnRlckFzc2V0SUQJAAIBAitQYWlyIGlzIG5vdCBhdmFpbGFibGUgaW4gV2hpdGVsaXN0ZWQgQXNzZXQuAwkAAAIFDEVudGVyQXNzZXRJRAkA2AQBBQpYVE5Bc3NldElECQACAQKSAUlucHV0IGNhbiBOZXZlciBiZSBhIFVTREMgQXNzZXRJRC4gRW50ZXIgV2hpdGVsaXN0ZWQgQXNzZXRJRCBpbiBpbnB1dCBhcyB3ZWxsIGFzIGluIHBheW1lbnRbMV0gJiBBdHRhY2ggVVNEQyBhcyBhbiBhdHRhY2htZW50IFRva2VuIGluIHBheW1lbnRbMl0uAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwACCQACAQKeAVR3byBhdHRhY2hlZCBhc3NldHMgZXhwZWN0ZWQgYXMgcGF5bWVudCBpbiA1MCUtNTAlLiBLaW5kbHkgQXR0YWNoIHBheW1lbnQxID0gVG9rZW4geW91IHdhbnQgdG8gYWRkIGZvciBMaXF1aWRpdHkgJiBwYXltZW50MiA9IEVxdWl2YWxlbnQgQW1vdW50IG9mIFVTREMgVG9rZW4uAwkAAAIIBQRwbXQxB2Fzc2V0SWQFClhUTkFzc2V0SUQJAAIBAnhZb3UgQXR0YWNoZWQgVVNEQyBhc3NldCBpbiBwYXltZW50WzFdLCBwbGVhc2UgYXR0YWNoIG9ubHkgd2hpdGVsaXN0ZWQgVG9rZW4gaW4gcGF5bWVudFsxXSBhbG9uZyB3aXRoIFVTREMgaW4gcGF5bWVudFsyXS4DCQECIT0CCAUEcG10MQdhc3NldElkCQDZBAEFDEVudGVyQXNzZXRJRAkAAgECa0luY29ycmVjdCBhc3NldCBhdHRhY2hlZCBmb3IgTGlxdWlkaXR5IGluIHBheW1lbnRbMV0sIHBsZWFzZSBhdHRhY2ggU3RyaW5nIEFzc2V0IG9yIFdoaXRlbGlzdGVkIFRva2VuIG9ubHkuAwkBAiE9AggFBHBtdDEHYXNzZXRJZAkA2QQBBQxFbnRlckFzc2V0SUQJAAIBAmtJbmNvcnJlY3QgYXNzZXQgYXR0YWNoZWQgZm9yIExpcXVpZGl0eSBpbiBwYXltZW50WzFdLCBwbGVhc2UgYXR0YWNoIFN0cmluZyBBc3NldCBvciBXaGl0ZWxpc3RlZCBUb2tlbiBvbmx5LgMJAQIhPQIIBQRwbXQyB2Fzc2V0SWQFClhUTkFzc2V0SUQJAAIBAmpXcm9uZyBBc3NldCBBdHRhY2hlZCBpbiBwYXltZW50c1syXSwgUGxlYXNlIGF0dGFjaCBwYXltZW50WzFdID0gTGlxdWlkaXR5IFRva2VuICYgcGF5bWVudFsyXSA9IFVTREMgVG9rZW4uAwkAZgIAwJaxAggFBHBtdDIGYW1vdW50CQACAQJUcGxlYXNlIGF0dGFjaCBhdGxlYXN0IDUgVVNEQyBpbiBwYXltZW50WzJdICYgRXF1aXZhbGVudCB3b3J0aCBvZiBUb2tlbiBpbiBwYXltZW50WzFdAwkBAiE9AggFBHBtdDIGYW1vdW50BRZxdWFudGl0eW9mRW50ZXJBc3NldElECQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgJeQXR0YWNoZWQgcGF5bWVudFsyXSBxdHkgaXMgbm90IG1hdGNoaW5nIGFzIHBlciBhdHRhY2hlZCBwYXltZW50WzFdLnBheW1lbnRbMl0gbXVzdCBiZSBhcyBpbnQgWwkApAMBBRZxdWFudGl0eW9mRW50ZXJBc3NldElEAgVdIG9yIAkApAMBCQBrAwUWcXVhbnRpdHlvZkVudGVyQXNzZXRJRAABAMCEPQIBLgkAsgICCQCkAwEFFnF1YW50aXR5b2ZFbnRlckFzc2V0SUQABgIGIFVTREMuAwkAZgIAAQUScXVhbnRpdHlvZkxQVG9rZW4xCQACAQkArAICCQCsAgICIExQIFRva2VuIE91dGNvbWUgaXMgZ29pbmcgYmVsb3cgCQCkAwEFDXNoYXJlZGVjaW1hbHMCOyBEZWNpbWFscy4gUGxlYXNlIEF0dGFjaCBtaW4uIDEgTFAgdG9rZW4gb3IgNSBVU0RDIEF0bGVhc3QuCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwUMRW50ZXJBc3NldElEAgFfCQDYBAEFClhUTkFzc2V0SUQFFE5ld1VTRENIb2xkaW5nSW5QYWlyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQFFU5ld0Fzc2V0SG9sZGluZ0luUGFpcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAglUb3RhbF9MUF8FDEVudGVyQXNzZXRJRAUQTmV3TFBUb2tlbklzc3VlZAkAzAgCCQEHUmVpc3N1ZQMFDlJlaXNzdWVhc3NldElkBRJxdWFudGl0eW9mTFBUb2tlbjEGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUScXVhbnRpdHlvZkxQVG9rZW4xBQ5SZWlzc3VlYXNzZXRJZAUDbmlsAWkBF1N3YXBBc3NldFRvWFROUGFpckVudHJ5AQxFbnRlckFzc2V0SUQEDWNhbGxlcmFkZHJlc3MJANgEAQgIBQFpBmNhbGxlcgVieXRlcwQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQI1V2hpdGVsaXN0ZWQgVG9rZW4gaXMgcmVxdWlyZWQgYXMgQXR0YWNoZWQgcGF5bWVudFsxXS4EGWNoZWNrcGFpcmlzYXZhaWxhYmxlb3Jub3QJAJ0IAgUEdGhpcwkArAICAghQYWlyX1VWXwUMRW50ZXJBc3NldElEBA9DaGVja1hUTkJhbGFuY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfBQxFbnRlckFzc2V0SUQCAV8JANgEAQUKWFROQXNzZXRJRAQRQ2hlY2tBc3NldEJhbGFuY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfCQDYBAEFClhUTkFzc2V0SUQCAV8FDEVudGVyQXNzZXRJRAQPbmV3YmFsYW5jZW9mWFROCQBrAwUPQ2hlY2tYVE5CYWxhbmNlBRFDaGVja0Fzc2V0QmFsYW5jZQkAZAIFEUNoZWNrQXNzZXRCYWxhbmNlCAUDcG10BmFtb3VudAQUcXVhbnRpdHlvZnByaWNlYXNzZXQJAGUCBQ9DaGVja1hUTkJhbGFuY2UFD25ld2JhbGFuY2VvZlhUTgQHU3dhcEZlZQAFBApDdXJyZW50ZGF5CQEJY291bnRkYXlzAAQQU3dhcEZlZXRvcmVjZWl2ZQkAaQIJAGgCBRRxdWFudGl0eW9mcHJpY2Vhc3NldAUHU3dhcEZlZQDoBwQUdXNlcmJhbGFuY2V0b3JlY2VpdmUJAGUCCQBlAgUUcXVhbnRpdHlvZnByaWNlYXNzZXQFEFN3YXBGZWV0b3JlY2VpdmUFEFN3YXBGZWV0b3JlY2VpdmUEGFN1bXVwb2ZBc3NldFRvWFROU3dhcEZlZQQHJG1hdGNoMAkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICAhlUb3RhbF9Td2FwX0ZlZV9Db2xsZWN0ZWRfBQxFbnRlckFzc2V0SUQCAV8JANgEAQUKWFROQXNzZXRJRAMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQbTmV3U3VtdXBvZkFzc2V0VG9YVE5Td2FwRmVlCQBkAgkAZAIFGFN1bXVwb2ZBc3NldFRvWFROU3dhcEZlZQUQU3dhcEZlZXRvcmVjZWl2ZQUQU3dhcEZlZXRvcmVjZWl2ZQQRU3VtdXBBc3NldEJhbGFuY2UEByRtYXRjaDAJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgILQmFsYW5jZV9vZl8JANgEAQUKWFROQXNzZXRJRAIBXwUMRW50ZXJBc3NldElEAwkAAQIFByRtYXRjaDACA0ludAQBYQUHJG1hdGNoMAUBYQAABBZOZXdTdW11cG9mQXNzZXRCYWxhbmNlCQBkAgURQ2hlY2tBc3NldEJhbGFuY2UIBQNwbXQGYW1vdW50BA9TdW11cFhUTkJhbGFuY2UEByRtYXRjaDAJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgILQmFsYW5jZV9vZl8FDEVudGVyQXNzZXRJRAIBXwkA2AQBBQpYVE5Bc3NldElEAwkAAQIFByRtYXRjaDACA0ludAQBYQUHJG1hdGNoMAUBYQAABBROZXdTdW11cG9mWFROQmFsYW5jZQkAZAIJAGUCBQ9DaGVja1hUTkJhbGFuY2UFFHF1YW50aXR5b2ZwcmljZWFzc2V0BRBTd2FwRmVldG9yZWNlaXZlBARUT1BUBAckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgICE1RvdGFsX29mX1BhaXJfVHhuc18FDEVudGVyQXNzZXRJRAMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQGTmV3VFBUCQBkAgUEVE9QVAABAwkAAAIFDEVudGVyQXNzZXRJRAkA2AQBBQpYVE5Bc3NldElECQACAQKFAUlucHV0IGNhbiBOZXZlciBiZSBhIFhUTiBBc3NldElELiBFbnRlciBXaGl0ZWxpc3RlZCBBc3NldElEIGluIGlucHV0ICYgQXR0YWNoIFdoaXRlbGlzdGVkIEFzc2V0IGFzIGFuIGF0dGFjaG1lbnQgVG9rZW4gaW4gcGF5bWVudFsxXS4DCQECIT0CBRljaGVja3BhaXJpc2F2YWlsYWJsZW9ybm90BQxFbnRlckFzc2V0SUQJAAIBAitQYWlyIGlzIG5vdCBhdmFpbGFibGUgaW4gV2hpdGVsaXN0ZWQgQXNzZXQuAwkAAAIIBQNwbXQHYXNzZXRJZAUKWFROQXNzZXRJRAkAAgECUllvdSBjYW4ndCBBdHRhY2ggWFROIGFzIGFuIEF0dGFjaGVkIFBheW1lbnQuIE9ubHkgV2hpdGVsaXN0ZWQgVG9rZW5zIGFyZSBhY2NlcHRlZC4DCQECIT0CCAUDcG10B2Fzc2V0SWQJANkEAQUMRW50ZXJBc3NldElECQACAQkArAICAjBJbmNvcnJlY3QgYXNzZXQgYXR0YWNoZWQsIHBsZWFzZSBhdHRhY2ggb3Igc2VuZCAFDEVudGVyQXNzZXRJRAMJAAACBQ9DaGVja1hUTkJhbGFuY2UAAAkAAgECZVN3YXAgUGFpciBOZWVkIHRvIEFkZCBMaXF1aWRpdHkgZmlyc3QgaW50byBQb29sLiBPbmx5IEFmdGVyIHRoYXQgUGFpciB3aWxsIGJlIGFjdGl2YXRlZCBmb3IgU3dhcHBpbmcuAwkAAAIFEUNoZWNrQXNzZXRCYWxhbmNlAAAJAAIBAmVTd2FwIFBhaXIgTmVlZCB0byBBZGQgTGlxdWlkaXR5IGZpcnN0IGludG8gUG9vbC4gT25seSBBZnRlciB0aGF0IFBhaXIgd2lsbCBiZSBhY3RpdmF0ZWQgZm9yIFN3YXBwaW5nLgMJAGYCAKCNBgUUcXVhbnRpdHlvZnByaWNlYXNzZXQJAAIBCQCsAgIJAKwCAgI0WW91ciBBdHRhY2hlZCBBc3NldCBBbW91bnQgaXMgdmVyeSBsb3cuIEF0dGFjaCBNb3JlIAUMRW50ZXJBc3NldElEAjogVG9rZW5zIHRvIENsYWltIHRoZSBtaW5pbXVtIEFtb3VudCBvZiAwLjEgZG9sbGFyIGF0bGVhc3QuAwkAZgIFFHF1YW50aXR5b2ZwcmljZWFzc2V0BQ9DaGVja1hUTkJhbGFuY2UJAAIBCQCsAgIJAKwCAgIdUG9vbCBPbmx5IGhhcyBhIExpcXVpZGl0eSBvZiAJAKQDAQkAaQIFD0NoZWNrWFROQmFsYW5jZQkAbAYACgAAAAYAAAAABQdDRUlMSU5HAh4gWFROLiBBZGQgTGlxdWlkaXR5IGludG8gUG9vbC4JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgICGVRvdGFsX1N3YXBfRmVlX0NvbGxlY3RlZF8FDEVudGVyQXNzZXRJRAIBXwkA2AQBBQpYVE5Bc3NldElEBRtOZXdTdW11cG9mQXNzZXRUb1hUTlN3YXBGZWUJAMwIAgkBDEludGVnZXJFbnRyeQICC0N1cnJlbnRfRGF5BQpDdXJyZW50ZGF5CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICE1RvdGFsX29mX1BhaXJfVHhuc18FDEVudGVyQXNzZXRJRAUGTmV3VFBUCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQFFk5ld1N1bXVwb2ZBc3NldEJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfBQxFbnRlckFzc2V0SUQCAV8JANgEAQUKWFROQXNzZXRJRAUUTmV3U3VtdXBvZlhUTkJhbGFuY2UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRR1c2VyYmFsYW5jZXRvcmVjZWl2ZQUKWFROQXNzZXRJRAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQlrZXkxb3duZXIJAGsDBRBTd2FwRmVldG9yZWNlaXZlAAEAAwUKWFROQXNzZXRJRAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQlrZXkyb3duZXIJAGsDBRBTd2FwRmVldG9yZWNlaXZlAAEAAwUKWFROQXNzZXRJRAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQhUcmVhc3VyeQkAawMFEFN3YXBGZWV0b3JlY2VpdmUAAQADBQpYVE5Bc3NldElEBQNuaWwBaQEXU3dhcFhUTlRvQXNzZXRQYWlyRW50cnkBDEVudGVyQXNzZXRJRAQNY2FsbGVyYWRkcmVzcwkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBCQCsAgIJAKwCAgIFT25seSAJANgEAQUKWFROQXNzZXRJRAIxIFhUTiBUb2tlbiBpcyByZXF1aXJlZCBhcyBhbiBBdHRhY2hlZCBwYXltZW50WzFdLgQPQ2hlY2tYVE5CYWxhbmNlCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwUMRW50ZXJBc3NldElEAgFfCQDYBAEFClhUTkFzc2V0SUQEEUNoZWNrQXNzZXRCYWxhbmNlCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQEEW5ld2JhbGFuY2VvZkFzc2V0CQBrAwUPQ2hlY2tYVE5CYWxhbmNlBRFDaGVja0Fzc2V0QmFsYW5jZQkAZAIFD0NoZWNrWFROQmFsYW5jZQgFA3BtdAZhbW91bnQEFHF1YW50aXR5b2ZwcmljZWFzc2V0CQBlAgURQ2hlY2tBc3NldEJhbGFuY2UFEW5ld2JhbGFuY2VvZkFzc2V0BBljaGVja3BhaXJpc2F2YWlsYWJsZW9ybm90CQCdCAIFBHRoaXMJAKwCAgIIUGFpcl9VVl8FDEVudGVyQXNzZXRJRAQHU3dhcEZlZQAFBApDdXJyZW50ZGF5CQEJY291bnRkYXlzAAQQU3dhcEZlZXRvcmVjZWl2ZQkAaQIJAGgCBRRxdWFudGl0eW9mcHJpY2Vhc3NldAUHU3dhcEZlZQDoBwQUdXNlcmJhbGFuY2V0b3JlY2VpdmUJAGUCCQBlAgUUcXVhbnRpdHlvZnByaWNlYXNzZXQFEFN3YXBGZWV0b3JlY2VpdmUFEFN3YXBGZWV0b3JlY2VpdmUEGFN1bXVwb2ZYVE5Ub0Fzc2V0U3dhcEZlZQQHJG1hdGNoMAkAmggCBQR0aGlzCQCsAgICGVRvdGFsX1N3YXBfRmVlX0NvbGxlY3RlZF8FDEVudGVyQXNzZXRJRAMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQbTmV3U3VtdXBvZlhUTlRvQXNzZXRTd2FwRmVlCQBkAgkAZAIFGFN1bXVwb2ZYVE5Ub0Fzc2V0U3dhcEZlZQUQU3dhcEZlZXRvcmVjZWl2ZQUQU3dhcEZlZXRvcmVjZWl2ZQQRU3VtdXBBc3NldEJhbGFuY2UEByRtYXRjaDAJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgILQmFsYW5jZV9vZl8JANgEAQUKWFROQXNzZXRJRAIBXwUMRW50ZXJBc3NldElEAwkAAQIFByRtYXRjaDACA0ludAQBYQUHJG1hdGNoMAUBYQAABBZOZXdTdW11cG9mQXNzZXRCYWxhbmNlCQBkAgkAZQIFEUNoZWNrQXNzZXRCYWxhbmNlBRRxdWFudGl0eW9mcHJpY2Vhc3NldAUQU3dhcEZlZXRvcmVjZWl2ZQQPU3VtdXBYVE5CYWxhbmNlBAckbWF0Y2gwCQCaCAIFBHRoaXMJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfBQxFbnRlckFzc2V0SUQCAV8JANgEAQUKWFROQXNzZXRJRAMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQUTmV3U3VtdXBvZlhUTkJhbGFuY2UJAGQCBQ9DaGVja1hUTkJhbGFuY2UIBQNwbXQGYW1vdW50BARUT1BUBAckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgICE1RvdGFsX29mX1BhaXJfVHhuc18FDEVudGVyQXNzZXRJRAMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQGTmV3VFBUCQBkAgUEVE9QVAABAwkBAiE9AgUZY2hlY2twYWlyaXNhdmFpbGFibGVvcm5vdAUMRW50ZXJBc3NldElECQACAQIrUGFpciBpcyBub3QgYXZhaWxhYmxlIGluIFdoaXRlbGlzdGVkIEFzc2V0LgMJAAACBQxFbnRlckFzc2V0SUQJANgEAQUKWFROQXNzZXRJRAkAAgECd0lucHV0IGNhbiBOZXZlciBiZSBhIFhUTiBBc3NldElELiBFbnRlciBXaGl0ZWxpc3RlZCBBc3NldElEIGluIGlucHV0ICYgQXR0YWNoIFhUTiBhcyBhbiBhdHRhY2htZW50IFRva2VuIGluIHBheW1lbnRbMV0uAwkBAiE9AggFA3BtdAdhc3NldElkBQpYVE5Bc3NldElECQACAQkArAICCQCsAgICD1lvdSBjYW4gQXR0YWNoIAkA2AQBBQpYVE5Bc3NldElEAmkgYXMgYW4gQXR0YWNoZWQgUGF5bWVudFsxXSB0byBTd2FwIFhUTiBUbyBSZXF1aXJlZCBUb2tlbi4gQW55IG90aGVyIGFzc2V0IGVsc2UgdGhhbiBYVE4gd2lsbCBiZSByZWplY3RlZC4DCQBmAgCgjQYIBQNwbXQGYW1vdW50CQACAQJZWW91ciBBdHRhY2hlZCBYVE4gQW1vdW50IGlzIHZlcnkgbG93LiBBdHRhY2ggQXRsZWFzdCAwLjEgWFROIHRvIENsYWltIHRoZSBtaW5pbXVtIFRva2Vucy4DCQAAAgUPQ2hlY2tYVE5CYWxhbmNlAAAJAAIBAmVTd2FwIFBhaXIgTmVlZCB0byBBZGQgTGlxdWlkaXR5IGZpcnN0IGludG8gUG9vbC4gT25seSBBZnRlciB0aGF0IFBhaXIgd2lsbCBiZSBhY3RpdmF0ZWQgZm9yIFN3YXBwaW5nLgMJAAACBRFDaGVja0Fzc2V0QmFsYW5jZQAACQACAQJlU3dhcCBQYWlyIE5lZWQgdG8gQWRkIExpcXVpZGl0eSBmaXJzdCBpbnRvIFBvb2wuIE9ubHkgQWZ0ZXIgdGhhdCBQYWlyIHdpbGwgYmUgYWN0aXZhdGVkIGZvciBTd2FwcGluZy4DCQBmAgUUcXVhbnRpdHlvZnByaWNlYXNzZXQFEUNoZWNrQXNzZXRCYWxhbmNlCQACAQkArAICCQCsAgICHVBvb2wgT25seSBoYXMgYSBMaXF1aWRpdHkgb2YgCQCkAwEFEUNoZWNrQXNzZXRCYWxhbmNlAiEgVG9rZW5zLiBBZGQgTGlxdWlkaXR5IGludG8gUG9vbC4JAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgIZVG90YWxfU3dhcF9GZWVfQ29sbGVjdGVkXwUMRW50ZXJBc3NldElEBRtOZXdTdW11cG9mWFROVG9Bc3NldFN3YXBGZWUJAMwIAgkBDEludGVnZXJFbnRyeQICC0N1cnJlbnRfRGF5BQpDdXJyZW50ZGF5CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICE1RvdGFsX29mX1BhaXJfVHhuc18FDEVudGVyQXNzZXRJRAUGTmV3VFBUCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQFFk5ld1N1bXVwb2ZBc3NldEJhbGFuY2UJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfBQxFbnRlckFzc2V0SUQCAV8JANgEAQUKWFROQXNzZXRJRAUUTmV3U3VtdXBvZlhUTkJhbGFuY2UJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRR1c2VyYmFsYW5jZXRvcmVjZWl2ZQkA2QQBBQxFbnRlckFzc2V0SUQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUJa2V5MW93bmVyCQBrAwUQU3dhcEZlZXRvcmVjZWl2ZQABAAMJANkEAQUMRW50ZXJBc3NldElECQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFCWtleTJvd25lcgkAawMFEFN3YXBGZWV0b3JlY2VpdmUAAQADCQDZBAEFDEVudGVyQXNzZXRJRAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQhUcmVhc3VyeQkAawMFEFN3YXBGZWV0b3JlY2VpdmUAAQADCQDZBAEFDEVudGVyQXNzZXRJRAUDbmlsAWkBDEFkZExpcXVpZGl0eQEMRW50ZXJBc3NldElEBA1jYWxsZXJhZGRyZXNzCQDYBAEICAUBaQZjYWxsZXIFYnl0ZXMEBHBtdDEJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQEcG10MgkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwABBBljaGVja3BhaXJpc2F2YWlsYWJsZW9ybm90CQCdCAIFBHRoaXMJAKwCAgIIUGFpcl9VVl8FDEVudGVyQXNzZXRJRAQOUmVpc3N1ZWFzc2V0SWQJANkEAQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMJAKwCAgIDTFBfBQxFbnRlckFzc2V0SUQCLExQIFRva2VuIGlzIE1pc3Npbmcgb3IgTWF5IGJlIG5vdCBHZW5lcmF0ZWQuBA9DaGVja1hUTkJhbGFuY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfBQxFbnRlckFzc2V0SUQCAV8JANgEAQUKWFROQXNzZXRJRAQRQ2hlY2tBc3NldEJhbGFuY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfCQDYBAEFClhUTkFzc2V0SUQCAV8FDEVudGVyQXNzZXRJRAQMZGVjaW1hbHNpbmZvCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAOwHAQkA2QQBBQxFbnRlckFzc2V0SUQJAKwCAgkArAICAgZBc3NldCAFDEVudGVyQXNzZXRJRAIOIGRvZXNuJ3QgZXhpc3QECGRlY2ltYWxzCAUMZGVjaW1hbHNpbmZvCGRlY2ltYWxzBApMUGRlY2ltYWxzCQBrAwkAZAIFCGRlY2ltYWxzAAYAAQACBApGaXJzdExQUXR5CQBoAgABCQBsBgAKAAAFCkxQZGVjaW1hbHMAAAAABQdDRUlMSU5HBBBtdWx0aXBseV9hbW91bnRzCQBrAwgFBHBtdDEGYW1vdW50CAUEcG10MgZhbW91bnQFCkZpcnN0TFBRdHkEB2dldFNxcnQJAQRzcXJ0BAUQbXVsdGlwbHlfYW1vdW50cwUKTFBkZWNpbWFscwUKTFBkZWNpbWFscwUHQ0VJTElORwQSZ2V0X2Fzc2V0X2RlY2ltYWxzCQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUHQ0VJTElORwQQZ2V0X1hUTl9kZWNpbWFscwkAbAYACgAAAAYAAAAABQdDRUlMSU5HBBB1bml0X3Rva2VuX3ByaWNlCQBrAwUPQ2hlY2tYVE5CYWxhbmNlBRJnZXRfYXNzZXRfZGVjaW1hbHMFEUNoZWNrQXNzZXRCYWxhbmNlBBd1c2VyX1hUTl9kZXBvc2l0X2Ftb3VudAkAawMIBQRwbXQxBmFtb3VudAUQdW5pdF90b2tlbl9wcmljZQABBBhkaXZpZGVfYnlfYXNzZXRfZGVjaW1hbHMJAGsDBRd1c2VyX1hUTl9kZXBvc2l0X2Ftb3VudAABBRJnZXRfYXNzZXRfZGVjaW1hbHMEGWFjdHVhbF9YVE5fZGVwb3NpdF9hbW91bnQFGGRpdmlkZV9ieV9hc3NldF9kZWNpbWFscwQQWFROSG9sZGluZ0luUGFpcgQHJG1hdGNoMAkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwUMRW50ZXJBc3NldElEAgFfCQDYBAEFClhUTkFzc2V0SUQDCQABAgUHJG1hdGNoMAIDSW50BAFhBQckbWF0Y2gwBQFhAAAEE05ld1hUTkhvbGRpbmdJblBhaXIJAGQCBRBYVE5Ib2xkaW5nSW5QYWlyCAUEcG10MgZhbW91bnQEEkFzc2V0SG9sZGluZ0luUGFpcgQHJG1hdGNoMAkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQDCQABAgUHJG1hdGNoMAIDSW50BAFhBQckbWF0Y2gwBQFhAAAEFU5ld0Fzc2V0SG9sZGluZ0luUGFpcgkAZAIFEkFzc2V0SG9sZGluZ0luUGFpcggFBHBtdDEGYW1vdW50BA1MUFRva2VuSXNzdWVkBAckbWF0Y2gwCQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgICCVRvdGFsX0xQXwUMRW50ZXJBc3NldElEAwkAAQIFByRtYXRjaDACA0ludAQBYQUHJG1hdGNoMAUBYQAABBBOZXdMUFRva2VuSXNzdWVkCQBkAgUNTFBUb2tlbklzc3VlZAUHZ2V0U3FydAMJAQIhPQIFGWNoZWNrcGFpcmlzYXZhaWxhYmxlb3Jub3QFDEVudGVyQXNzZXRJRAkAAgECK1BhaXIgaXMgbm90IGF2YWlsYWJsZSBpbiBXaGl0ZWxpc3RlZCBBc3NldC4DCQAAAgUMRW50ZXJBc3NldElECQDYBAEFClhUTkFzc2V0SUQJAAIBApABSW5wdXQgY2FuIE5ldmVyIGJlIGEgWFROIEFzc2V0SUQuIEVudGVyIFdoaXRlbGlzdGVkIEFzc2V0SUQgaW4gaW5wdXQgYXMgd2VsbCBhcyBpbiBwYXltZW50WzFdICYgQXR0YWNoIFhUTiBhcyBhbiBhdHRhY2htZW50IFRva2VuIGluIHBheW1lbnRbMl0uAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwACCQACAQKLAVR3byBhdHRhY2hlZCBhc3NldHMgYXJlIGV4cGVjdGVkIGluIHBheW1lbnQuIEtpbmRseSBBdHRhY2ggcGF5bWVudDEgPSBUb2tlbiB5b3Ugd2FudCB0byBhZGQgZm9yIExpcXVpZGl0eSAmIHBheW1lbnQyID0gQW1vdW50IG9mIFhUTiBUb2tlbi4DCQAAAggFBHBtdDEHYXNzZXRJZAUKWFROQXNzZXRJRAkAAgECdllvdSBBdHRhY2hlZCBYVE4gYXNzZXQgaW4gcGF5bWVudFsxXSwgcGxlYXNlIGF0dGFjaCBvbmx5IHdoaXRlbGlzdGVkIFRva2VuIGluIHBheW1lbnRbMV0gYWxvbmcgd2l0aCBYVE4gaW4gcGF5bWVudFsyXS4DCQECIT0CCAUEcG10MQdhc3NldElkCQDZBAEFDEVudGVyQXNzZXRJRAkAAgECa0luY29ycmVjdCBhc3NldCBhdHRhY2hlZCBmb3IgTGlxdWlkaXR5IGluIHBheW1lbnRbMV0sIHBsZWFzZSBhdHRhY2ggU3RyaW5nIEFzc2V0IG9yIFdoaXRlbGlzdGVkIFRva2VuIG9ubHkuAwkBAiE9AggFBHBtdDIHYXNzZXRJZAUKWFROQXNzZXRJRAkAAgECaVdyb25nIEFzc2V0IEF0dGFjaGVkIGluIHBheW1lbnRzWzJdLCBQbGVhc2UgYXR0YWNoIHBheW1lbnRbMV0gPSBMaXF1aWRpdHkgVG9rZW4gJiBwYXltZW50WzJdID0gWFROIFRva2VuLgMJAGYCAKCNBggFBHBtdDIGYW1vdW50CQACAQJVcGxlYXNlIGF0dGFjaCBhdGxlYXN0IDAuMSBYVE4gaW4gcGF5bWVudFsyXSAmIEVxdWl2YWxlbnQgd29ydGggb2YgVG9rZW4gaW4gcGF5bWVudFsxXQMJAQIhPQIIBQRwbXQyBmFtb3VudAUZYWN0dWFsX1hUTl9kZXBvc2l0X2Ftb3VudAkAAgEJAKwCAgkArAICAl5BdHRhY2hlZCBwYXltZW50WzJdIHF0eSBpcyBub3QgbWF0Y2hpbmcgYXMgcGVyIGF0dGFjaGVkIHBheW1lbnRbMV0ucGF5bWVudFsyXSBtdXN0IGJlIGFzIGludCBbCQCkAwEFGWFjdHVhbF9YVE5fZGVwb3NpdF9hbW91bnQCCy8xMF42ICBYVE4uAwkAZgIAAQUHZ2V0U3FydAkAAgECS0xQIFRva2VuIE91dGNvbWUgaXMgZ29pbmcgYmVsb3cgMSBpbiBGcmFjdGlvbmFsLiBQbGVhc2UgQXR0YWNoIG1vcmUgYW1vdW50LgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICCQCsAgIJAKwCAgILQmFsYW5jZV9vZl8FDEVudGVyQXNzZXRJRAIBXwkA2AQBBQpYVE5Bc3NldElEBRNOZXdYVE5Ib2xkaW5nSW5QYWlyCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQFFU5ld0Fzc2V0SG9sZGluZ0luUGFpcgkAzAgCCQEMSW50ZWdlckVudHJ5AgkArAICAglUb3RhbF9MUF8FDEVudGVyQXNzZXRJRAUQTmV3TFBUb2tlbklzc3VlZAkAzAgCCQEMSW50ZWdlckVudHJ5AgILVG9rZW5fUHJpY2UFEHVuaXRfdG9rZW5fcHJpY2UJAMwIAgkBDEludGVnZXJFbnRyeQICF1VzZXJfWFROX0RlcG9zaXRfQW1vdW50BRlhY3R1YWxfWFROX2RlcG9zaXRfYW1vdW50CQDMCAIJAQdSZWlzc3VlAwUOUmVpc3N1ZWFzc2V0SWQFB2dldFNxcnQGCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUHZ2V0U3FydAUOUmVpc3N1ZWFzc2V0SWQFA25pbAFpAQ9SZW1vdmVMaXF1aWRpdHkBDEVudGVyQXNzZXRJRAQNY2FsbGVyYWRkcmVzcwkA2AQBCAgFAWkGY2FsbGVyBWJ5dGVzBANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAjpObyBwYXltZW50IGF0dGFjaGVkLCBQbGVhc2UgQXR0YWNoIExQIFRva2VuIGFzIHBheW1lbnRbMV0uBBljaGVja3BhaXJpc2F2YWlsYWJsZW9ybm90CQCdCAIFBHRoaXMJAKwCAgIIUGFpcl9VVl8FDEVudGVyQXNzZXRJRAQSUmVpc3N1ZWFibGVhc3NldElkCQDZBAEJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzCQCsAgICA0xQXwUMRW50ZXJBc3NldElEAiVMUCBUb2tlbiBpcyBNaXNzaW5nIG9yIG5vdCBHZW5lcmF0ZWQuBAxkZWNpbWFsc2luZm8JARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkA7AcBCQDZBAEFDEVudGVyQXNzZXRJRAkArAICCQCsAgICBkFzc2V0IAUMRW50ZXJBc3NldElEAg4gZG9lc24ndCBleGlzdAQIZGVjaW1hbHMIBQxkZWNpbWFsc2luZm8IZGVjaW1hbHMEEmJvdGhhc3NldHNkZWNpbWFscwkAZAIABgUIZGVjaW1hbHMEDXNoYXJlZGVjaW1hbHMJAGkCBRJib3RoYXNzZXRzZGVjaW1hbHMAAgQSQ2hlY2tUb3RhbExQQW1vdW50CQERQGV4dHJOYXRpdmUoMTA1MCkCBQR0aGlzCQCsAgICCVRvdGFsX0xQXwUMRW50ZXJBc3NldElEBBBVc2VyTFBQZXJjZW50YWdlCQBsBgkAawMIBQNwbXQGYW1vdW50CQBsBgAKAAAACAAAAAAFB0NFSUxJTkcFEkNoZWNrVG90YWxMUEFtb3VudAAGAAEAAAAGBQdDRUlMSU5HBA9DaGVja1hUTkJhbGFuY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfBQxFbnRlckFzc2V0SUQCAV8JANgEAQUKWFROQXNzZXRJRAQRQ2hlY2tBc3NldEJhbGFuY2UJARFAZXh0ck5hdGl2ZSgxMDUwKQIFBHRoaXMJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfCQDYBAEFClhUTkFzc2V0SUQCAV8FDEVudGVyQXNzZXRJRAQOVXNlckxQV29ydGhYVE4JAGsDBQ9DaGVja1hUTkJhbGFuY2UFEFVzZXJMUFBlcmNlbnRhZ2UJAGwGAAoAAAAIAAAAAAUHQ0VJTElORwQQVXNlckxQV29ydGhBc3NldAkAawMFEUNoZWNrQXNzZXRCYWxhbmNlBRBVc2VyTFBQZXJjZW50YWdlCQBsBgAKAAAACAAAAAAFB0NFSUxJTkcEEFhUTkhvbGRpbmdJblBhaXIEByRtYXRjaDAJAJoIAgUEdGhpcwkArAICCQCsAgIJAKwCAgILQmFsYW5jZV9vZl8FDEVudGVyQXNzZXRJRAIBXwkA2AQBBQpYVE5Bc3NldElEAwkAAQIFByRtYXRjaDACA0ludAQBYQUHJG1hdGNoMAUBYQAABBNOZXdYVE5Ib2xkaW5nSW5QYWlyCQBlAgUQWFROSG9sZGluZ0luUGFpcgUOVXNlckxQV29ydGhYVE4EEkFzc2V0SG9sZGluZ0luUGFpcgQHJG1hdGNoMAkAmggCBQR0aGlzCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwkA2AQBBQpYVE5Bc3NldElEAgFfBQxFbnRlckFzc2V0SUQDCQABAgUHJG1hdGNoMAIDSW50BAFhBQckbWF0Y2gwBQFhAAAEFU5ld0Fzc2V0SG9sZGluZ0luUGFpcgkAZQIFEkFzc2V0SG9sZGluZ0luUGFpcgUQVXNlckxQV29ydGhBc3NldAQNTFBUb2tlbklzc3VlZAQHJG1hdGNoMAkBEUBleHRyTmF0aXZlKDEwNTApAgUEdGhpcwkArAICAglUb3RhbF9MUF8FDEVudGVyQXNzZXRJRAMJAAECBQckbWF0Y2gwAgNJbnQEAWEFByRtYXRjaDAFAWEAAAQQTmV3TFBUb2tlbklzc3VlZAkAZQIFDUxQVG9rZW5Jc3N1ZWQIBQNwbXQGYW1vdW50AwkBAiE9AgUZY2hlY2twYWlyaXNhdmFpbGFibGVvcm5vdAUMRW50ZXJBc3NldElECQACAQIjUGFpciBpcyBub3QgYXZhaWxhYmxlIGluIFdoaXRlbGlzdC4DCQAAAgkA2QQBBQxFbnRlckFzc2V0SUQFClhUTkFzc2V0SUQJAAIBAmpEb24ndCBjaG9vc2UgWFROIEFzc2V0SUQgYXMgSW5wdXQsIE9ubHkgV2hpdGVsaXN0ZWQgQXNzZXQgYXMgSW5wdXQgU3RyaW5nICYgQXR0YWNoIExQIFRva2VucyBhcyBwYXltZW50WzFdAwkBAiE9AggFA3BtdAdhc3NldElkBRJSZWlzc3VlYWJsZWFzc2V0SWQJAAIBAkdXcm9uZyBBc3NldCBpcyBhdHRhY2hlZCBpbiBwYXltZW50WzFdIG9yIExQIFRva2VuIE5vdCBGb3VuZCBvciBNaXNzaW5nLgMJAGYCAAEFEFVzZXJMUFBlcmNlbnRhZ2UJAAIBAi5Zb3VyIExQIFRva2VuIGFtb3VudCAlIGlzIHZlcnkgbG93IHRvIGNvbnZlcnQuAwkAZgIAAQUOVXNlckxQV29ydGhYVE4JAAIBAlFZb3VyIExQIFRva2VuIGNvbnZlcnNpb24gYW1vdW50IGlzIHZlcnkgbG93IHRvIGNvbnZlcnQgb3IgbGVzcyB0aGFuIDAuMDAwMDAxIFhUTi4DCQBmAgABBRBVc2VyTFBXb3J0aEFzc2V0CQACAQJcWW91ciBMUCBUb2tlbiBjb252ZXJzaW9uIGFtb3VudCBpcyB2ZXJ5IGxvdyB0byBjb252ZXJ0IG9yIGxlc3MgdGhhbiBmcmFjdGlvbiB2YWx1ZSBvZiBUb2tlbi4JAMwIAgkBDEludGVnZXJFbnRyeQICFldpdGhkcmF3X0xQX1BlcmNlbnRhZ2UFEFVzZXJMUFBlcmNlbnRhZ2UJAMwIAgkBBEJ1cm4CBRJSZWlzc3VlYWJsZWFzc2V0SWQIBQNwbXQGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgICCVRvdGFsX0xQXwUMRW50ZXJBc3NldElEBRBOZXdMUFRva2VuSXNzdWVkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQCsAgIJAKwCAgkArAICAgtCYWxhbmNlX29mXwUMRW50ZXJBc3NldElEAgFfCQDYBAEFClhUTkFzc2V0SUQFE05ld1hUTkhvbGRpbmdJblBhaXIJAMwIAgkBDEludGVnZXJFbnRyeQIJAKwCAgkArAICCQCsAgICC0JhbGFuY2Vfb2ZfCQDYBAEFClhUTkFzc2V0SUQCAV8FDEVudGVyQXNzZXRJRAUVTmV3QXNzZXRIb2xkaW5nSW5QYWlyCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgUOVXNlckxQV29ydGhYVE4FClhUTkFzc2V0SUQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyBRBVc2VyTFBXb3J0aEFzc2V0CQDZBAEFDEVudGVyQXNzZXRJRAUDbmlsAQJ0eAEGdmVyaWZ5AAkA9AMDCAUCdHgJYm9keUJ5dGVzCQCRAwIIBQJ0eAZwcm9vZnMAAAgFAnR4D3NlbmRlclB1YmxpY0tlefRZAs0=",
    "height": 2769875,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: HRRVoBuLYcJKP4KZGw2sHeSEWHE8hVto5UQJm4f6LMXP
Next: 8P71hSuJ9JhmbSgmNMNNyDagbF4sJUK73uCeeJ4b9snz

Diff: 
Old New Differences
306 306                              else if ((100000 > pmt2.amount))
307 307                                  then throw("please attach atleast 0.1 XTN in payment[2] & Equivalent worth of Token in payment[1]")
308 308                                  else if ((pmt2.amount != actual_XTN_deposit_amount))
309 -                                     then throw((((((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(actual_XTN_deposit_amount)) + "] or ") + toString(fraction(actual_XTN_deposit_amount, 1, 1000000))) + ".") + takeRight(toString(actual_XTN_deposit_amount), 6)) + " XTN."))
309 +                                     then throw((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(actual_XTN_deposit_amount)) + "/10^6  XTN."))
310 310                                      else if ((1 > getSqrt))
311 311                                          then throw("LP Token Outcome is going below 1 in Fractional. Please Attach more amount.")
312 312                                          else [IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewXTNHoldingInPair), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewAssetHoldingInPair), IntegerEntry(("Total_LP_" + EnterAssetID), NewLPTokenIssued), IntegerEntry("Token_Price", unit_token_price), IntegerEntry("User_XTN_Deposit_Amount", actual_XTN_deposit_amount), Reissue(ReissueassetId, getSqrt, true), ScriptTransfer(i.caller, getSqrt, ReissueassetId)]
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let Version = "1.0.0"
5 5  
6 6  let dAppSinceStart = 1694928600000
7 7  
8 8  let listing_fee = 14000000
9 9  
10 10  let key1owner = addressFromPublicKey(base58'4Dahqn4MYNrieo9AX8qLWNCseBQNc9skQY81h4DFoote')
11 11  
12 12  let key2owner = addressFromPublicKey(base58'4Dahqn4MYNrieo9AX8qLWNCseBQNc9skQY81h4DFoote')
13 13  
14 14  let Treasury = addressFromPublicKey(base58'EtFSDsn89XfmXQvuQXPQMbLDbaAZ1YWYZHksptpQH4gp')
15 15  
16 16  let XTNAssetID = base58'Zn3cLHW7aAVPm5aACcTjvg7e7iEy2cKDtbowok5qa9H'
17 17  
18 18  func countdays () = {
19 19      let TS_Diff = (lastBlock.timestamp - dAppSinceStart)
20 20      let daynumber = fraction(1, TS_Diff, 86400000)
21 21      daynumber
22 22      }
23 23  
24 24  
25 25  @Callable(i)
26 26  func RegisterPair (EnterAssetID) = {
27 27      let pmt1 = value(i.payments[0])
28 28      let pmt2 = value(i.payments[1])
29 29      let pmt3 = value(i.payments[2])
30 30      let currentKey = toBase58String(i.caller.bytes)
31 31      let WAVES = !(isDefined(pmt2.assetId))
32 32      let fetchpair = getString(this, ("Pair_UV_" + EnterAssetID))
33 33      let assetinfopmt2 = fromBase58String(EnterAssetID)
34 34      let info = valueOrErrorMessage(assetInfo(fromBase58String(EnterAssetID)), (("Asset " + EnterAssetID) + " doesn't exist"))
35 35      let name = info.name
36 36      let decimals = info.decimals
37 37      let LPdecimals = fraction((decimals + 6), 1, 2)
38 38      let FirstLPQty = (1 * pow(10, 0, LPdecimals, 0, 0, CEILING))
39 39      let multiply_amounts = fraction(pmt1.amount, pmt2.amount, FirstLPQty)
40 40      let getSqrt = sqrt(multiply_amounts, LPdecimals, LPdecimals, CEILING)
41 41      let LPissue = Issue((("LP-" + take(name, 8)) + "-XTN"), (((("LP-" + name) + "-XTN") + " is a Liquidity Provider Token Issued Against ") + EnterAssetID), getSqrt, LPdecimals, true)
42 42      let LPid = calculateAssetId(LPissue)
43 43      if ((fetchpair == EnterAssetID))
44 44          then throw("Pair Already Exist in List.")
45 45          else if ((size(i.payments) != 3))
46 46              then throw((("Two attached assets expected as payment. Kindly Attach payment1 = XTN Token & payment2 = Token you want to List & payment3 = [" + toString(listing_fee)) + "/10^8] Waves."))
47 47              else if ((pmt1.assetId != XTNAssetID))
48 48                  then throw("Incorrect asset attached as payment[1], please attach XTN only.")
49 49                  else if ((100000 > pmt1.amount))
50 50                      then throw("Attached payment[1] amount is less than 0.1 XTN, please attach 0.1 XTN Minimum.")
51 51                      else if ((pmt2.assetId != assetinfopmt2))
52 52                          then throw("Input String & Attached AssetID in payment2 is not matching.")
53 53                          else if ((pmt3.amount != listing_fee))
54 54                              then throw((("Attached payment[3] amount has to be exact [" + toString(listing_fee)) + "/10^8] WAVES."))
55 55                              else if ((WAVES == true))
56 56                                  then throw("You Attached WAVES Asset ID for Listing, please attach Tokens You want to list in payment[2].")
57 57                                  else [StringEntry(("Pair_UV_" + EnterAssetID), EnterAssetID), IntegerEntry(("Listing_Fee_" + EnterAssetID), pmt3.amount), IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), pmt1.amount), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), pmt2.amount), IntegerEntry(("Total_of_Pair_Txns_" + EnterAssetID), 0), IntegerEntry(((("Total_Swap_Fee_Collected_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), 0), IntegerEntry(("Total_Swap_Fee_Collected_" + EnterAssetID), 0), LPissue, ScriptTransfer(i.caller, getSqrt, LPid), ScriptTransfer(key1owner, fraction(listing_fee, 1, 2), unit), ScriptTransfer(key2owner, fraction(listing_fee, 1, 2), unit), StringEntry(("LP_" + EnterAssetID), toBase58String(LPid)), IntegerEntry(("Total_LP_" + EnterAssetID), getSqrt)]
58 58      }
59 59  
60 60  
61 61  
62 62  @Callable(i)
63 63  func oldAddLiquidity (EnterAssetID) = {
64 64      let calleraddress = toBase58String(i.caller.bytes)
65 65      let pmt1 = value(i.payments[0])
66 66      let pmt2 = value(i.payments[1])
67 67      let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
68 68      let ReissueassetId = fromBase58String(valueOrErrorMessage(getString(this, ("LP_" + EnterAssetID)), "LP Token is Missing or May be not Generated."))
69 69      let CheckUSDCBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
70 70      let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
71 71      let decimalsinfo = valueOrErrorMessage(assetInfo(fromBase58String(EnterAssetID)), (("Asset " + EnterAssetID) + " doesn't exist"))
72 72      let decimals = decimalsinfo.decimals
73 73      let arg1 = CheckUSDCBalance
74 74      let arg2 = CheckAssetBalance
75 75      let args3 = pow((((arg1 * 1000000) / arg2) * pow(10, 0, decimals, 0, 0, CEILING)), 0, 1, 0, 0, CEILING)
76 76      let bothassetsdecimals = (6 + decimals)
77 77      let sharedecimals = (bothassetsdecimals / 2)
78 78      let quantityofEnterAssetID = fraction(args3, pmt1.amount, pow(10, 0, bothassetsdecimals, 0, 0, CEILING))
79 79      let quantityofLPToken1 = pow((fraction(pmt1.amount, 1, pow(10, 0, decimals, 0, 0, CEILING)) * fraction(pmt2.amount, 1, pow(10, 0, 6, 0, 0, CEILING))), 0, 5, 1, sharedecimals, DOWN)
80 80      let USDCHoldingInPair =     match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
81 81          case a: Int => 
82 82              a
83 83          case _ => 
84 84              0
85 85      }
86 86      let NewUSDCHoldingInPair = (USDCHoldingInPair + pmt2.amount)
87 87      let AssetHoldingInPair =     match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
88 88          case a: Int => 
89 89              a
90 90          case _ => 
91 91              0
92 92      }
93 93      let NewAssetHoldingInPair = (AssetHoldingInPair + pmt1.amount)
94 94      let LPTokenIssued =     match getIntegerValue(this, ("Total_LP_" + EnterAssetID)) {
95 95          case a: Int => 
96 96              a
97 97          case _ => 
98 98              0
99 99      }
100 100      let NewLPTokenIssued = (LPTokenIssued + quantityofLPToken1)
101 101      if ((checkpairisavailableornot != EnterAssetID))
102 102          then throw("Pair is not available in Whitelisted Asset.")
103 103          else if ((EnterAssetID == toBase58String(XTNAssetID)))
104 104              then throw("Input can Never be a USDC AssetID. Enter Whitelisted AssetID in input as well as in payment[1] & Attach USDC as an attachment Token in payment[2].")
105 105              else if ((size(i.payments) != 2))
106 106                  then throw("Two attached assets expected as payment in 50%-50%. Kindly Attach payment1 = Token you want to add for Liquidity & payment2 = Equivalent Amount of USDC Token.")
107 107                  else if ((pmt1.assetId == XTNAssetID))
108 108                      then throw("You Attached USDC asset in payment[1], please attach only whitelisted Token in payment[1] along with USDC in payment[2].")
109 109                      else if ((pmt1.assetId != fromBase58String(EnterAssetID)))
110 110                          then throw("Incorrect asset attached for Liquidity in payment[1], please attach String Asset or Whitelisted Token only.")
111 111                          else if ((pmt1.assetId != fromBase58String(EnterAssetID)))
112 112                              then throw("Incorrect asset attached for Liquidity in payment[1], please attach String Asset or Whitelisted Token only.")
113 113                              else if ((pmt2.assetId != XTNAssetID))
114 114                                  then throw("Wrong Asset Attached in payments[2], Please attach payment[1] = Liquidity Token & payment[2] = USDC Token.")
115 115                                  else if ((5000000 > pmt2.amount))
116 116                                      then throw("please attach atleast 5 USDC in payment[2] & Equivalent worth of Token in payment[1]")
117 117                                      else if ((pmt2.amount != quantityofEnterAssetID))
118 118                                          then throw((((((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(quantityofEnterAssetID)) + "] or ") + toString(fraction(quantityofEnterAssetID, 1, 1000000))) + ".") + takeRight(toString(quantityofEnterAssetID), 6)) + " USDC."))
119 119                                          else if ((1 > quantityofLPToken1))
120 120                                              then throw((("LP Token Outcome is going below " + toString(sharedecimals)) + " Decimals. Please Attach min. 1 LP token or 5 USDC Atleast."))
121 121                                              else [IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewUSDCHoldingInPair), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewAssetHoldingInPair), IntegerEntry(("Total_LP_" + EnterAssetID), NewLPTokenIssued), Reissue(ReissueassetId, quantityofLPToken1, true), ScriptTransfer(i.caller, quantityofLPToken1, ReissueassetId)]
122 122      }
123 123  
124 124  
125 125  
126 126  @Callable(i)
127 127  func SwapAssetToXTNPairEntry (EnterAssetID) = {
128 128      let calleraddress = toBase58String(i.caller.bytes)
129 129      let pmt = if ((size(i.payments) == 1))
130 130          then i.payments[0]
131 131          else throw("Whitelisted Token is required as Attached payment[1].")
132 132      let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
133 133      let CheckXTNBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
134 134      let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
135 135      let newbalanceofXTN = fraction(CheckXTNBalance, CheckAssetBalance, (CheckAssetBalance + pmt.amount))
136 136      let quantityofpriceasset = (CheckXTNBalance - newbalanceofXTN)
137 137      let SwapFee = 5
138 138      let Currentday = countdays()
139 139      let SwapFeetoreceive = ((quantityofpriceasset * SwapFee) / 1000)
140 140      let userbalancetoreceive = ((quantityofpriceasset - SwapFeetoreceive) - SwapFeetoreceive)
141 141      let SumupofAssetToXTNSwapFee =     match getInteger(this, ((("Total_Swap_Fee_Collected_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
142 142          case a: Int => 
143 143              a
144 144          case _ => 
145 145              0
146 146      }
147 147      let NewSumupofAssetToXTNSwapFee = ((SumupofAssetToXTNSwapFee + SwapFeetoreceive) + SwapFeetoreceive)
148 148      let SumupAssetBalance =     match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
149 149          case a: Int => 
150 150              a
151 151          case _ => 
152 152              0
153 153      }
154 154      let NewSumupofAssetBalance = (CheckAssetBalance + pmt.amount)
155 155      let SumupXTNBalance =     match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
156 156          case a: Int => 
157 157              a
158 158          case _ => 
159 159              0
160 160      }
161 161      let NewSumupofXTNBalance = ((CheckXTNBalance - quantityofpriceasset) + SwapFeetoreceive)
162 162      let TOPT =     match getIntegerValue(this, ("Total_of_Pair_Txns_" + EnterAssetID)) {
163 163          case a: Int => 
164 164              a
165 165          case _ => 
166 166              0
167 167      }
168 168      let NewTPT = (TOPT + 1)
169 169      if ((EnterAssetID == toBase58String(XTNAssetID)))
170 170          then throw("Input can Never be a XTN AssetID. Enter Whitelisted AssetID in input & Attach Whitelisted Asset as an attachment Token in payment[1].")
171 171          else if ((checkpairisavailableornot != EnterAssetID))
172 172              then throw("Pair is not available in Whitelisted Asset.")
173 173              else if ((pmt.assetId == XTNAssetID))
174 174                  then throw("You can't Attach XTN as an Attached Payment. Only Whitelisted Tokens are accepted.")
175 175                  else if ((pmt.assetId != fromBase58String(EnterAssetID)))
176 176                      then throw(("Incorrect asset attached, please attach or send " + EnterAssetID))
177 177                      else if ((CheckXTNBalance == 0))
178 178                          then throw("Swap Pair Need to Add Liquidity first into Pool. Only After that Pair will be activated for Swapping.")
179 179                          else if ((CheckAssetBalance == 0))
180 180                              then throw("Swap Pair Need to Add Liquidity first into Pool. Only After that Pair will be activated for Swapping.")
181 181                              else if ((100000 > quantityofpriceasset))
182 182                                  then throw((("Your Attached Asset Amount is very low. Attach More " + EnterAssetID) + " Tokens to Claim the minimum Amount of 0.1 dollar atleast."))
183 183                                  else if ((quantityofpriceasset > CheckXTNBalance))
184 184                                      then throw((("Pool Only has a Liquidity of " + toString((CheckXTNBalance / pow(10, 0, 6, 0, 0, CEILING)))) + " XTN. Add Liquidity into Pool."))
185 185                                      else [IntegerEntry(((("Total_Swap_Fee_Collected_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewSumupofAssetToXTNSwapFee), IntegerEntry("Current_Day", Currentday), IntegerEntry(("Total_of_Pair_Txns_" + EnterAssetID), NewTPT), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewSumupofAssetBalance), IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewSumupofXTNBalance), ScriptTransfer(i.caller, userbalancetoreceive, XTNAssetID), ScriptTransfer(key1owner, fraction(SwapFeetoreceive, 1, 3), XTNAssetID), ScriptTransfer(key2owner, fraction(SwapFeetoreceive, 1, 3), XTNAssetID), ScriptTransfer(Treasury, fraction(SwapFeetoreceive, 1, 3), XTNAssetID)]
186 186      }
187 187  
188 188  
189 189  
190 190  @Callable(i)
191 191  func SwapXTNToAssetPairEntry (EnterAssetID) = {
192 192      let calleraddress = toBase58String(i.caller.bytes)
193 193      let pmt = if ((size(i.payments) == 1))
194 194          then i.payments[0]
195 195          else throw((("Only " + toBase58String(XTNAssetID)) + " XTN Token is required as an Attached payment[1]."))
196 196      let CheckXTNBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
197 197      let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
198 198      let newbalanceofAsset = fraction(CheckXTNBalance, CheckAssetBalance, (CheckXTNBalance + pmt.amount))
199 199      let quantityofpriceasset = (CheckAssetBalance - newbalanceofAsset)
200 200      let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
201 201      let SwapFee = 5
202 202      let Currentday = countdays()
203 203      let SwapFeetoreceive = ((quantityofpriceasset * SwapFee) / 1000)
204 204      let userbalancetoreceive = ((quantityofpriceasset - SwapFeetoreceive) - SwapFeetoreceive)
205 205      let SumupofXTNToAssetSwapFee =     match getInteger(this, ("Total_Swap_Fee_Collected_" + EnterAssetID)) {
206 206          case a: Int => 
207 207              a
208 208          case _ => 
209 209              0
210 210      }
211 211      let NewSumupofXTNToAssetSwapFee = ((SumupofXTNToAssetSwapFee + SwapFeetoreceive) + SwapFeetoreceive)
212 212      let SumupAssetBalance =     match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
213 213          case a: Int => 
214 214              a
215 215          case _ => 
216 216              0
217 217      }
218 218      let NewSumupofAssetBalance = ((CheckAssetBalance - quantityofpriceasset) + SwapFeetoreceive)
219 219      let SumupXTNBalance =     match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
220 220          case a: Int => 
221 221              a
222 222          case _ => 
223 223              0
224 224      }
225 225      let NewSumupofXTNBalance = (CheckXTNBalance + pmt.amount)
226 226      let TOPT =     match getIntegerValue(this, ("Total_of_Pair_Txns_" + EnterAssetID)) {
227 227          case a: Int => 
228 228              a
229 229          case _ => 
230 230              0
231 231      }
232 232      let NewTPT = (TOPT + 1)
233 233      if ((checkpairisavailableornot != EnterAssetID))
234 234          then throw("Pair is not available in Whitelisted Asset.")
235 235          else if ((EnterAssetID == toBase58String(XTNAssetID)))
236 236              then throw("Input can Never be a XTN AssetID. Enter Whitelisted AssetID in input & Attach XTN as an attachment Token in payment[1].")
237 237              else if ((pmt.assetId != XTNAssetID))
238 238                  then throw((("You can Attach " + toBase58String(XTNAssetID)) + " as an Attached Payment[1] to Swap XTN To Required Token. Any other asset else than XTN will be rejected."))
239 239                  else if ((100000 > pmt.amount))
240 240                      then throw("Your Attached XTN Amount is very low. Attach Atleast 0.1 XTN to Claim the minimum Tokens.")
241 241                      else if ((CheckXTNBalance == 0))
242 242                          then throw("Swap Pair Need to Add Liquidity first into Pool. Only After that Pair will be activated for Swapping.")
243 243                          else if ((CheckAssetBalance == 0))
244 244                              then throw("Swap Pair Need to Add Liquidity first into Pool. Only After that Pair will be activated for Swapping.")
245 245                              else if ((quantityofpriceasset > CheckAssetBalance))
246 246                                  then throw((("Pool Only has a Liquidity of " + toString(CheckAssetBalance)) + " Tokens. Add Liquidity into Pool."))
247 247                                  else [IntegerEntry(("Total_Swap_Fee_Collected_" + EnterAssetID), NewSumupofXTNToAssetSwapFee), IntegerEntry("Current_Day", Currentday), IntegerEntry(("Total_of_Pair_Txns_" + EnterAssetID), NewTPT), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewSumupofAssetBalance), IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewSumupofXTNBalance), ScriptTransfer(i.caller, userbalancetoreceive, fromBase58String(EnterAssetID)), ScriptTransfer(key1owner, fraction(SwapFeetoreceive, 1, 3), fromBase58String(EnterAssetID)), ScriptTransfer(key2owner, fraction(SwapFeetoreceive, 1, 3), fromBase58String(EnterAssetID)), ScriptTransfer(Treasury, fraction(SwapFeetoreceive, 1, 3), fromBase58String(EnterAssetID))]
248 248      }
249 249  
250 250  
251 251  
252 252  @Callable(i)
253 253  func AddLiquidity (EnterAssetID) = {
254 254      let calleraddress = toBase58String(i.caller.bytes)
255 255      let pmt1 = value(i.payments[0])
256 256      let pmt2 = value(i.payments[1])
257 257      let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
258 258      let ReissueassetId = fromBase58String(valueOrErrorMessage(getString(this, ("LP_" + EnterAssetID)), "LP Token is Missing or May be not Generated."))
259 259      let CheckXTNBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
260 260      let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
261 261      let decimalsinfo = valueOrErrorMessage(assetInfo(fromBase58String(EnterAssetID)), (("Asset " + EnterAssetID) + " doesn't exist"))
262 262      let decimals = decimalsinfo.decimals
263 263      let LPdecimals = fraction((decimals + 6), 1, 2)
264 264      let FirstLPQty = (1 * pow(10, 0, LPdecimals, 0, 0, CEILING))
265 265      let multiply_amounts = fraction(pmt1.amount, pmt2.amount, FirstLPQty)
266 266      let getSqrt = sqrt(multiply_amounts, LPdecimals, LPdecimals, CEILING)
267 267      let get_asset_decimals = pow(10, 0, decimals, 0, 0, CEILING)
268 268      let get_XTN_decimals = pow(10, 0, 6, 0, 0, CEILING)
269 269      let unit_token_price = fraction(CheckXTNBalance, get_asset_decimals, CheckAssetBalance)
270 270      let user_XTN_deposit_amount = fraction(pmt1.amount, unit_token_price, 1)
271 271      let divide_by_asset_decimals = fraction(user_XTN_deposit_amount, 1, get_asset_decimals)
272 272      let actual_XTN_deposit_amount = divide_by_asset_decimals
273 273      let XTNHoldingInPair =     match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
274 274          case a: Int => 
275 275              a
276 276          case _ => 
277 277              0
278 278      }
279 279      let NewXTNHoldingInPair = (XTNHoldingInPair + pmt2.amount)
280 280      let AssetHoldingInPair =     match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
281 281          case a: Int => 
282 282              a
283 283          case _ => 
284 284              0
285 285      }
286 286      let NewAssetHoldingInPair = (AssetHoldingInPair + pmt1.amount)
287 287      let LPTokenIssued =     match getIntegerValue(this, ("Total_LP_" + EnterAssetID)) {
288 288          case a: Int => 
289 289              a
290 290          case _ => 
291 291              0
292 292      }
293 293      let NewLPTokenIssued = (LPTokenIssued + getSqrt)
294 294      if ((checkpairisavailableornot != EnterAssetID))
295 295          then throw("Pair is not available in Whitelisted Asset.")
296 296          else if ((EnterAssetID == toBase58String(XTNAssetID)))
297 297              then throw("Input can Never be a XTN AssetID. Enter Whitelisted AssetID in input as well as in payment[1] & Attach XTN as an attachment Token in payment[2].")
298 298              else if ((size(i.payments) != 2))
299 299                  then throw("Two attached assets are expected in payment. Kindly Attach payment1 = Token you want to add for Liquidity & payment2 = Amount of XTN Token.")
300 300                  else if ((pmt1.assetId == XTNAssetID))
301 301                      then throw("You Attached XTN asset in payment[1], please attach only whitelisted Token in payment[1] along with XTN in payment[2].")
302 302                      else if ((pmt1.assetId != fromBase58String(EnterAssetID)))
303 303                          then throw("Incorrect asset attached for Liquidity in payment[1], please attach String Asset or Whitelisted Token only.")
304 304                          else if ((pmt2.assetId != XTNAssetID))
305 305                              then throw("Wrong Asset Attached in payments[2], Please attach payment[1] = Liquidity Token & payment[2] = XTN Token.")
306 306                              else if ((100000 > pmt2.amount))
307 307                                  then throw("please attach atleast 0.1 XTN in payment[2] & Equivalent worth of Token in payment[1]")
308 308                                  else if ((pmt2.amount != actual_XTN_deposit_amount))
309 -                                     then throw((((((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(actual_XTN_deposit_amount)) + "] or ") + toString(fraction(actual_XTN_deposit_amount, 1, 1000000))) + ".") + takeRight(toString(actual_XTN_deposit_amount), 6)) + " XTN."))
309 +                                     then throw((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(actual_XTN_deposit_amount)) + "/10^6  XTN."))
310 310                                      else if ((1 > getSqrt))
311 311                                          then throw("LP Token Outcome is going below 1 in Fractional. Please Attach more amount.")
312 312                                          else [IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewXTNHoldingInPair), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewAssetHoldingInPair), IntegerEntry(("Total_LP_" + EnterAssetID), NewLPTokenIssued), IntegerEntry("Token_Price", unit_token_price), IntegerEntry("User_XTN_Deposit_Amount", actual_XTN_deposit_amount), Reissue(ReissueassetId, getSqrt, true), ScriptTransfer(i.caller, getSqrt, ReissueassetId)]
313 313      }
314 314  
315 315  
316 316  
317 317  @Callable(i)
318 318  func RemoveLiquidity (EnterAssetID) = {
319 319      let calleraddress = toBase58String(i.caller.bytes)
320 320      let pmt = if ((size(i.payments) == 1))
321 321          then i.payments[0]
322 322          else throw("No payment attached, Please Attach LP Token as payment[1].")
323 323      let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
324 324      let ReissueableassetId = fromBase58String(valueOrErrorMessage(getString(this, ("LP_" + EnterAssetID)), "LP Token is Missing or not Generated."))
325 325      let decimalsinfo = valueOrErrorMessage(assetInfo(fromBase58String(EnterAssetID)), (("Asset " + EnterAssetID) + " doesn't exist"))
326 326      let decimals = decimalsinfo.decimals
327 327      let bothassetsdecimals = (6 + decimals)
328 328      let sharedecimals = (bothassetsdecimals / 2)
329 329      let CheckTotalLPAmount = getIntegerValue(this, ("Total_LP_" + EnterAssetID))
330 330      let UserLPPercentage = pow(fraction(pmt.amount, pow(10, 0, 8, 0, 0, CEILING), CheckTotalLPAmount), 6, 1, 0, 6, CEILING)
331 331      let CheckXTNBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
332 332      let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
333 333      let UserLPWorthXTN = fraction(CheckXTNBalance, UserLPPercentage, pow(10, 0, 8, 0, 0, CEILING))
334 334      let UserLPWorthAsset = fraction(CheckAssetBalance, UserLPPercentage, pow(10, 0, 8, 0, 0, CEILING))
335 335      let XTNHoldingInPair =     match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
336 336          case a: Int => 
337 337              a
338 338          case _ => 
339 339              0
340 340      }
341 341      let NewXTNHoldingInPair = (XTNHoldingInPair - UserLPWorthXTN)
342 342      let AssetHoldingInPair =     match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
343 343          case a: Int => 
344 344              a
345 345          case _ => 
346 346              0
347 347      }
348 348      let NewAssetHoldingInPair = (AssetHoldingInPair - UserLPWorthAsset)
349 349      let LPTokenIssued =     match getIntegerValue(this, ("Total_LP_" + EnterAssetID)) {
350 350          case a: Int => 
351 351              a
352 352          case _ => 
353 353              0
354 354      }
355 355      let NewLPTokenIssued = (LPTokenIssued - pmt.amount)
356 356      if ((checkpairisavailableornot != EnterAssetID))
357 357          then throw("Pair is not available in Whitelist.")
358 358          else if ((fromBase58String(EnterAssetID) == XTNAssetID))
359 359              then throw("Don't choose XTN AssetID as Input, Only Whitelisted Asset as Input String & Attach LP Tokens as payment[1]")
360 360              else if ((pmt.assetId != ReissueableassetId))
361 361                  then throw("Wrong Asset is attached in payment[1] or LP Token Not Found or Missing.")
362 362                  else if ((1 > UserLPPercentage))
363 363                      then throw("Your LP Token amount % is very low to convert.")
364 364                      else if ((1 > UserLPWorthXTN))
365 365                          then throw("Your LP Token conversion amount is very low to convert or less than 0.000001 XTN.")
366 366                          else if ((1 > UserLPWorthAsset))
367 367                              then throw("Your LP Token conversion amount is very low to convert or less than fraction value of Token.")
368 368                              else [IntegerEntry("Withdraw_LP_Percentage", UserLPPercentage), Burn(ReissueableassetId, pmt.amount), IntegerEntry(("Total_LP_" + EnterAssetID), NewLPTokenIssued), IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewXTNHoldingInPair), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewAssetHoldingInPair), ScriptTransfer(i.caller, UserLPWorthXTN, XTNAssetID), ScriptTransfer(i.caller, UserLPWorthAsset, fromBase58String(EnterAssetID))]
369 369      }
370 370  
371 371  
372 372  @Verifier(tx)
373 373  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
374 374

Old	New		Differences
306	306		else if ((100000 > pmt2.amount))
307	307		then throw("please attach atleast 0.1 XTN in payment[2] & Equivalent worth of Token in payment[1]")
308	308		else if ((pmt2.amount != actual_XTN_deposit_amount))
309		-	then throw~~((((~~((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(actual_XTN_deposit_amount)) + "~~] or ") + toString(fraction(actual_XTN_deposit_amount, 1, 1000000))) + ".") + takeRight(toString(actual_XTN_deposit_amount), 6)) + "~~ XTN."))
	309	+	then throw((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(actual_XTN_deposit_amount)) + "/10^6 XTN."))
310	310		else if ((1 > getSqrt))
311	311		then throw("LP Token Outcome is going below 1 in Fractional. Please Attach more amount.")
312	312		else [IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewXTNHoldingInPair), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewAssetHoldingInPair), IntegerEntry(("Total_LP_" + EnterAssetID), NewLPTokenIssued), IntegerEntry("Token_Price", unit_token_price), IntegerEntry("User_XTN_Deposit_Amount", actual_XTN_deposit_amount), Reissue(ReissueassetId, getSqrt, true), ScriptTransfer(i.caller, getSqrt, ReissueassetId)]

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let Version = "1.0.0"
5	5
6	6		let dAppSinceStart = 1694928600000
7	7
8	8		let listing_fee = 14000000
9	9
10	10		let key1owner = addressFromPublicKey(base58'4Dahqn4MYNrieo9AX8qLWNCseBQNc9skQY81h4DFoote')
11	11
12	12		let key2owner = addressFromPublicKey(base58'4Dahqn4MYNrieo9AX8qLWNCseBQNc9skQY81h4DFoote')
13	13
14	14		let Treasury = addressFromPublicKey(base58'EtFSDsn89XfmXQvuQXPQMbLDbaAZ1YWYZHksptpQH4gp')
15	15
16	16		let XTNAssetID = base58'Zn3cLHW7aAVPm5aACcTjvg7e7iEy2cKDtbowok5qa9H'
17	17
18	18		func countdays () = {
19	19		let TS_Diff = (lastBlock.timestamp - dAppSinceStart)
20	20		let daynumber = fraction(1, TS_Diff, 86400000)
21	21		daynumber
22	22		}
23	23
24	24
25	25		@Callable(i)
26	26		func RegisterPair (EnterAssetID) = {
27	27		let pmt1 = value(i.payments[0])
28	28		let pmt2 = value(i.payments[1])
29	29		let pmt3 = value(i.payments[2])
30	30		let currentKey = toBase58String(i.caller.bytes)
31	31		let WAVES = !(isDefined(pmt2.assetId))
32	32		let fetchpair = getString(this, ("Pair_UV_" + EnterAssetID))
33	33		let assetinfopmt2 = fromBase58String(EnterAssetID)
34	34		let info = valueOrErrorMessage(assetInfo(fromBase58String(EnterAssetID)), (("Asset " + EnterAssetID) + " doesn't exist"))
35	35		let name = info.name
36	36		let decimals = info.decimals
37	37		let LPdecimals = fraction((decimals + 6), 1, 2)
38	38		let FirstLPQty = (1 * pow(10, 0, LPdecimals, 0, 0, CEILING))
39	39		let multiply_amounts = fraction(pmt1.amount, pmt2.amount, FirstLPQty)
40	40		let getSqrt = sqrt(multiply_amounts, LPdecimals, LPdecimals, CEILING)
41	41		let LPissue = Issue((("LP-" + take(name, 8)) + "-XTN"), (((("LP-" + name) + "-XTN") + " is a Liquidity Provider Token Issued Against ") + EnterAssetID), getSqrt, LPdecimals, true)
42	42		let LPid = calculateAssetId(LPissue)
43	43		if ((fetchpair == EnterAssetID))
44	44		then throw("Pair Already Exist in List.")
45	45		else if ((size(i.payments) != 3))
46	46		then throw((("Two attached assets expected as payment. Kindly Attach payment1 = XTN Token & payment2 = Token you want to List & payment3 = [" + toString(listing_fee)) + "/10^8] Waves."))
47	47		else if ((pmt1.assetId != XTNAssetID))
48	48		then throw("Incorrect asset attached as payment[1], please attach XTN only.")
49	49		else if ((100000 > pmt1.amount))
50	50		then throw("Attached payment[1] amount is less than 0.1 XTN, please attach 0.1 XTN Minimum.")
51	51		else if ((pmt2.assetId != assetinfopmt2))
52	52		then throw("Input String & Attached AssetID in payment2 is not matching.")
53	53		else if ((pmt3.amount != listing_fee))
54	54		then throw((("Attached payment[3] amount has to be exact [" + toString(listing_fee)) + "/10^8] WAVES."))
55	55		else if ((WAVES == true))
56	56		then throw("You Attached WAVES Asset ID for Listing, please attach Tokens You want to list in payment[2].")
57	57		else [StringEntry(("Pair_UV_" + EnterAssetID), EnterAssetID), IntegerEntry(("Listing_Fee_" + EnterAssetID), pmt3.amount), IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), pmt1.amount), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), pmt2.amount), IntegerEntry(("Total_of_Pair_Txns_" + EnterAssetID), 0), IntegerEntry(((("Total_Swap_Fee_Collected_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), 0), IntegerEntry(("Total_Swap_Fee_Collected_" + EnterAssetID), 0), LPissue, ScriptTransfer(i.caller, getSqrt, LPid), ScriptTransfer(key1owner, fraction(listing_fee, 1, 2), unit), ScriptTransfer(key2owner, fraction(listing_fee, 1, 2), unit), StringEntry(("LP_" + EnterAssetID), toBase58String(LPid)), IntegerEntry(("Total_LP_" + EnterAssetID), getSqrt)]
58	58		}
59	59
60	60
61	61
62	62		@Callable(i)
63	63		func oldAddLiquidity (EnterAssetID) = {
64	64		let calleraddress = toBase58String(i.caller.bytes)
65	65		let pmt1 = value(i.payments[0])
66	66		let pmt2 = value(i.payments[1])
67	67		let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
68	68		let ReissueassetId = fromBase58String(valueOrErrorMessage(getString(this, ("LP_" + EnterAssetID)), "LP Token is Missing or May be not Generated."))
69	69		let CheckUSDCBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
70	70		let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
71	71		let decimalsinfo = valueOrErrorMessage(assetInfo(fromBase58String(EnterAssetID)), (("Asset " + EnterAssetID) + " doesn't exist"))
72	72		let decimals = decimalsinfo.decimals
73	73		let arg1 = CheckUSDCBalance
74	74		let arg2 = CheckAssetBalance
75	75		let args3 = pow((((arg1 * 1000000) / arg2) * pow(10, 0, decimals, 0, 0, CEILING)), 0, 1, 0, 0, CEILING)
76	76		let bothassetsdecimals = (6 + decimals)
77	77		let sharedecimals = (bothassetsdecimals / 2)
78	78		let quantityofEnterAssetID = fraction(args3, pmt1.amount, pow(10, 0, bothassetsdecimals, 0, 0, CEILING))
79	79		let quantityofLPToken1 = pow((fraction(pmt1.amount, 1, pow(10, 0, decimals, 0, 0, CEILING)) * fraction(pmt2.amount, 1, pow(10, 0, 6, 0, 0, CEILING))), 0, 5, 1, sharedecimals, DOWN)
80	80		let USDCHoldingInPair = match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
81	81		case a: Int =>
82	82		a
83	83		case _ =>
84	84		0
85	85		}
86	86		let NewUSDCHoldingInPair = (USDCHoldingInPair + pmt2.amount)
87	87		let AssetHoldingInPair = match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
88	88		case a: Int =>
89	89		a
90	90		case _ =>
91	91		0
92	92		}
93	93		let NewAssetHoldingInPair = (AssetHoldingInPair + pmt1.amount)
94	94		let LPTokenIssued = match getIntegerValue(this, ("Total_LP_" + EnterAssetID)) {
95	95		case a: Int =>
96	96		a
97	97		case _ =>
98	98		0
99	99		}
100	100		let NewLPTokenIssued = (LPTokenIssued + quantityofLPToken1)
101	101		if ((checkpairisavailableornot != EnterAssetID))
102	102		then throw("Pair is not available in Whitelisted Asset.")
103	103		else if ((EnterAssetID == toBase58String(XTNAssetID)))
104	104		then throw("Input can Never be a USDC AssetID. Enter Whitelisted AssetID in input as well as in payment[1] & Attach USDC as an attachment Token in payment[2].")
105	105		else if ((size(i.payments) != 2))
106	106		then throw("Two attached assets expected as payment in 50%-50%. Kindly Attach payment1 = Token you want to add for Liquidity & payment2 = Equivalent Amount of USDC Token.")
107	107		else if ((pmt1.assetId == XTNAssetID))
108	108		then throw("You Attached USDC asset in payment[1], please attach only whitelisted Token in payment[1] along with USDC in payment[2].")
109	109		else if ((pmt1.assetId != fromBase58String(EnterAssetID)))
110	110		then throw("Incorrect asset attached for Liquidity in payment[1], please attach String Asset or Whitelisted Token only.")
111	111		else if ((pmt1.assetId != fromBase58String(EnterAssetID)))
112	112		then throw("Incorrect asset attached for Liquidity in payment[1], please attach String Asset or Whitelisted Token only.")
113	113		else if ((pmt2.assetId != XTNAssetID))
114	114		then throw("Wrong Asset Attached in payments[2], Please attach payment[1] = Liquidity Token & payment[2] = USDC Token.")
115	115		else if ((5000000 > pmt2.amount))
116	116		then throw("please attach atleast 5 USDC in payment[2] & Equivalent worth of Token in payment[1]")
117	117		else if ((pmt2.amount != quantityofEnterAssetID))
118	118		then throw((((((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(quantityofEnterAssetID)) + "] or ") + toString(fraction(quantityofEnterAssetID, 1, 1000000))) + ".") + takeRight(toString(quantityofEnterAssetID), 6)) + " USDC."))
119	119		else if ((1 > quantityofLPToken1))
120	120		then throw((("LP Token Outcome is going below " + toString(sharedecimals)) + " Decimals. Please Attach min. 1 LP token or 5 USDC Atleast."))
121	121		else [IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewUSDCHoldingInPair), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewAssetHoldingInPair), IntegerEntry(("Total_LP_" + EnterAssetID), NewLPTokenIssued), Reissue(ReissueassetId, quantityofLPToken1, true), ScriptTransfer(i.caller, quantityofLPToken1, ReissueassetId)]
122	122		}
123	123
124	124
125	125
126	126		@Callable(i)
127	127		func SwapAssetToXTNPairEntry (EnterAssetID) = {
128	128		let calleraddress = toBase58String(i.caller.bytes)
129	129		let pmt = if ((size(i.payments) == 1))
130	130		then i.payments[0]
131	131		else throw("Whitelisted Token is required as Attached payment[1].")
132	132		let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
133	133		let CheckXTNBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
134	134		let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
135	135		let newbalanceofXTN = fraction(CheckXTNBalance, CheckAssetBalance, (CheckAssetBalance + pmt.amount))
136	136		let quantityofpriceasset = (CheckXTNBalance - newbalanceofXTN)
137	137		let SwapFee = 5
138	138		let Currentday = countdays()
139	139		let SwapFeetoreceive = ((quantityofpriceasset * SwapFee) / 1000)
140	140		let userbalancetoreceive = ((quantityofpriceasset - SwapFeetoreceive) - SwapFeetoreceive)
141	141		let SumupofAssetToXTNSwapFee = match getInteger(this, ((("Total_Swap_Fee_Collected_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
142	142		case a: Int =>
143	143		a
144	144		case _ =>
145	145		0
146	146		}
147	147		let NewSumupofAssetToXTNSwapFee = ((SumupofAssetToXTNSwapFee + SwapFeetoreceive) + SwapFeetoreceive)
148	148		let SumupAssetBalance = match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
149	149		case a: Int =>
150	150		a
151	151		case _ =>
152	152		0
153	153		}
154	154		let NewSumupofAssetBalance = (CheckAssetBalance + pmt.amount)
155	155		let SumupXTNBalance = match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
156	156		case a: Int =>
157	157		a
158	158		case _ =>
159	159		0
160	160		}
161	161		let NewSumupofXTNBalance = ((CheckXTNBalance - quantityofpriceasset) + SwapFeetoreceive)
162	162		let TOPT = match getIntegerValue(this, ("Total_of_Pair_Txns_" + EnterAssetID)) {
163	163		case a: Int =>
164	164		a
165	165		case _ =>
166	166		0
167	167		}
168	168		let NewTPT = (TOPT + 1)
169	169		if ((EnterAssetID == toBase58String(XTNAssetID)))
170	170		then throw("Input can Never be a XTN AssetID. Enter Whitelisted AssetID in input & Attach Whitelisted Asset as an attachment Token in payment[1].")
171	171		else if ((checkpairisavailableornot != EnterAssetID))
172	172		then throw("Pair is not available in Whitelisted Asset.")
173	173		else if ((pmt.assetId == XTNAssetID))
174	174		then throw("You can't Attach XTN as an Attached Payment. Only Whitelisted Tokens are accepted.")
175	175		else if ((pmt.assetId != fromBase58String(EnterAssetID)))
176	176		then throw(("Incorrect asset attached, please attach or send " + EnterAssetID))
177	177		else if ((CheckXTNBalance == 0))
178	178		then throw("Swap Pair Need to Add Liquidity first into Pool. Only After that Pair will be activated for Swapping.")
179	179		else if ((CheckAssetBalance == 0))
180	180		then throw("Swap Pair Need to Add Liquidity first into Pool. Only After that Pair will be activated for Swapping.")
181	181		else if ((100000 > quantityofpriceasset))
182	182		then throw((("Your Attached Asset Amount is very low. Attach More " + EnterAssetID) + " Tokens to Claim the minimum Amount of 0.1 dollar atleast."))
183	183		else if ((quantityofpriceasset > CheckXTNBalance))
184	184		then throw((("Pool Only has a Liquidity of " + toString((CheckXTNBalance / pow(10, 0, 6, 0, 0, CEILING)))) + " XTN. Add Liquidity into Pool."))
185	185		else [IntegerEntry(((("Total_Swap_Fee_Collected_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewSumupofAssetToXTNSwapFee), IntegerEntry("Current_Day", Currentday), IntegerEntry(("Total_of_Pair_Txns_" + EnterAssetID), NewTPT), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewSumupofAssetBalance), IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewSumupofXTNBalance), ScriptTransfer(i.caller, userbalancetoreceive, XTNAssetID), ScriptTransfer(key1owner, fraction(SwapFeetoreceive, 1, 3), XTNAssetID), ScriptTransfer(key2owner, fraction(SwapFeetoreceive, 1, 3), XTNAssetID), ScriptTransfer(Treasury, fraction(SwapFeetoreceive, 1, 3), XTNAssetID)]
186	186		}
187	187
188	188
189	189
190	190		@Callable(i)
191	191		func SwapXTNToAssetPairEntry (EnterAssetID) = {
192	192		let calleraddress = toBase58String(i.caller.bytes)
193	193		let pmt = if ((size(i.payments) == 1))
194	194		then i.payments[0]
195	195		else throw((("Only " + toBase58String(XTNAssetID)) + " XTN Token is required as an Attached payment[1]."))
196	196		let CheckXTNBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
197	197		let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
198	198		let newbalanceofAsset = fraction(CheckXTNBalance, CheckAssetBalance, (CheckXTNBalance + pmt.amount))
199	199		let quantityofpriceasset = (CheckAssetBalance - newbalanceofAsset)
200	200		let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
201	201		let SwapFee = 5
202	202		let Currentday = countdays()
203	203		let SwapFeetoreceive = ((quantityofpriceasset * SwapFee) / 1000)
204	204		let userbalancetoreceive = ((quantityofpriceasset - SwapFeetoreceive) - SwapFeetoreceive)
205	205		let SumupofXTNToAssetSwapFee = match getInteger(this, ("Total_Swap_Fee_Collected_" + EnterAssetID)) {
206	206		case a: Int =>
207	207		a
208	208		case _ =>
209	209		0
210	210		}
211	211		let NewSumupofXTNToAssetSwapFee = ((SumupofXTNToAssetSwapFee + SwapFeetoreceive) + SwapFeetoreceive)
212	212		let SumupAssetBalance = match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
213	213		case a: Int =>
214	214		a
215	215		case _ =>
216	216		0
217	217		}
218	218		let NewSumupofAssetBalance = ((CheckAssetBalance - quantityofpriceasset) + SwapFeetoreceive)
219	219		let SumupXTNBalance = match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
220	220		case a: Int =>
221	221		a
222	222		case _ =>
223	223		0
224	224		}
225	225		let NewSumupofXTNBalance = (CheckXTNBalance + pmt.amount)
226	226		let TOPT = match getIntegerValue(this, ("Total_of_Pair_Txns_" + EnterAssetID)) {
227	227		case a: Int =>
228	228		a
229	229		case _ =>
230	230		0
231	231		}
232	232		let NewTPT = (TOPT + 1)
233	233		if ((checkpairisavailableornot != EnterAssetID))
234	234		then throw("Pair is not available in Whitelisted Asset.")
235	235		else if ((EnterAssetID == toBase58String(XTNAssetID)))
236	236		then throw("Input can Never be a XTN AssetID. Enter Whitelisted AssetID in input & Attach XTN as an attachment Token in payment[1].")
237	237		else if ((pmt.assetId != XTNAssetID))
238	238		then throw((("You can Attach " + toBase58String(XTNAssetID)) + " as an Attached Payment[1] to Swap XTN To Required Token. Any other asset else than XTN will be rejected."))
239	239		else if ((100000 > pmt.amount))
240	240		then throw("Your Attached XTN Amount is very low. Attach Atleast 0.1 XTN to Claim the minimum Tokens.")
241	241		else if ((CheckXTNBalance == 0))
242	242		then throw("Swap Pair Need to Add Liquidity first into Pool. Only After that Pair will be activated for Swapping.")
243	243		else if ((CheckAssetBalance == 0))
244	244		then throw("Swap Pair Need to Add Liquidity first into Pool. Only After that Pair will be activated for Swapping.")
245	245		else if ((quantityofpriceasset > CheckAssetBalance))
246	246		then throw((("Pool Only has a Liquidity of " + toString(CheckAssetBalance)) + " Tokens. Add Liquidity into Pool."))
247	247		else [IntegerEntry(("Total_Swap_Fee_Collected_" + EnterAssetID), NewSumupofXTNToAssetSwapFee), IntegerEntry("Current_Day", Currentday), IntegerEntry(("Total_of_Pair_Txns_" + EnterAssetID), NewTPT), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewSumupofAssetBalance), IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewSumupofXTNBalance), ScriptTransfer(i.caller, userbalancetoreceive, fromBase58String(EnterAssetID)), ScriptTransfer(key1owner, fraction(SwapFeetoreceive, 1, 3), fromBase58String(EnterAssetID)), ScriptTransfer(key2owner, fraction(SwapFeetoreceive, 1, 3), fromBase58String(EnterAssetID)), ScriptTransfer(Treasury, fraction(SwapFeetoreceive, 1, 3), fromBase58String(EnterAssetID))]
248	248		}
249	249
250	250
251	251
252	252		@Callable(i)
253	253		func AddLiquidity (EnterAssetID) = {
254	254		let calleraddress = toBase58String(i.caller.bytes)
255	255		let pmt1 = value(i.payments[0])
256	256		let pmt2 = value(i.payments[1])
257	257		let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
258	258		let ReissueassetId = fromBase58String(valueOrErrorMessage(getString(this, ("LP_" + EnterAssetID)), "LP Token is Missing or May be not Generated."))
259	259		let CheckXTNBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
260	260		let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
261	261		let decimalsinfo = valueOrErrorMessage(assetInfo(fromBase58String(EnterAssetID)), (("Asset " + EnterAssetID) + " doesn't exist"))
262	262		let decimals = decimalsinfo.decimals
263	263		let LPdecimals = fraction((decimals + 6), 1, 2)
264	264		let FirstLPQty = (1 * pow(10, 0, LPdecimals, 0, 0, CEILING))
265	265		let multiply_amounts = fraction(pmt1.amount, pmt2.amount, FirstLPQty)
266	266		let getSqrt = sqrt(multiply_amounts, LPdecimals, LPdecimals, CEILING)
267	267		let get_asset_decimals = pow(10, 0, decimals, 0, 0, CEILING)
268	268		let get_XTN_decimals = pow(10, 0, 6, 0, 0, CEILING)
269	269		let unit_token_price = fraction(CheckXTNBalance, get_asset_decimals, CheckAssetBalance)
270	270		let user_XTN_deposit_amount = fraction(pmt1.amount, unit_token_price, 1)
271	271		let divide_by_asset_decimals = fraction(user_XTN_deposit_amount, 1, get_asset_decimals)
272	272		let actual_XTN_deposit_amount = divide_by_asset_decimals
273	273		let XTNHoldingInPair = match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
274	274		case a: Int =>
275	275		a
276	276		case _ =>
277	277		0
278	278		}
279	279		let NewXTNHoldingInPair = (XTNHoldingInPair + pmt2.amount)
280	280		let AssetHoldingInPair = match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
281	281		case a: Int =>
282	282		a
283	283		case _ =>
284	284		0
285	285		}
286	286		let NewAssetHoldingInPair = (AssetHoldingInPair + pmt1.amount)
287	287		let LPTokenIssued = match getIntegerValue(this, ("Total_LP_" + EnterAssetID)) {
288	288		case a: Int =>
289	289		a
290	290		case _ =>
291	291		0
292	292		}
293	293		let NewLPTokenIssued = (LPTokenIssued + getSqrt)
294	294		if ((checkpairisavailableornot != EnterAssetID))
295	295		then throw("Pair is not available in Whitelisted Asset.")
296	296		else if ((EnterAssetID == toBase58String(XTNAssetID)))
297	297		then throw("Input can Never be a XTN AssetID. Enter Whitelisted AssetID in input as well as in payment[1] & Attach XTN as an attachment Token in payment[2].")
298	298		else if ((size(i.payments) != 2))
299	299		then throw("Two attached assets are expected in payment. Kindly Attach payment1 = Token you want to add for Liquidity & payment2 = Amount of XTN Token.")
300	300		else if ((pmt1.assetId == XTNAssetID))
301	301		then throw("You Attached XTN asset in payment[1], please attach only whitelisted Token in payment[1] along with XTN in payment[2].")
302	302		else if ((pmt1.assetId != fromBase58String(EnterAssetID)))
303	303		then throw("Incorrect asset attached for Liquidity in payment[1], please attach String Asset or Whitelisted Token only.")
304	304		else if ((pmt2.assetId != XTNAssetID))
305	305		then throw("Wrong Asset Attached in payments[2], Please attach payment[1] = Liquidity Token & payment[2] = XTN Token.")
306	306		else if ((100000 > pmt2.amount))
307	307		then throw("please attach atleast 0.1 XTN in payment[2] & Equivalent worth of Token in payment[1]")
308	308		else if ((pmt2.amount != actual_XTN_deposit_amount))
309		-	then throw~~((((~~((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(actual_XTN_deposit_amount)) + "~~] or ") + toString(fraction(actual_XTN_deposit_amount, 1, 1000000))) + ".") + takeRight(toString(actual_XTN_deposit_amount), 6)) + "~~ XTN."))
	309	+	then throw((("Attached payment[2] qty is not matching as per attached payment[1].payment[2] must be as int [" + toString(actual_XTN_deposit_amount)) + "/10^6 XTN."))
310	310		else if ((1 > getSqrt))
311	311		then throw("LP Token Outcome is going below 1 in Fractional. Please Attach more amount.")
312	312		else [IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewXTNHoldingInPair), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewAssetHoldingInPair), IntegerEntry(("Total_LP_" + EnterAssetID), NewLPTokenIssued), IntegerEntry("Token_Price", unit_token_price), IntegerEntry("User_XTN_Deposit_Amount", actual_XTN_deposit_amount), Reissue(ReissueassetId, getSqrt, true), ScriptTransfer(i.caller, getSqrt, ReissueassetId)]
313	313		}
314	314
315	315
316	316
317	317		@Callable(i)
318	318		func RemoveLiquidity (EnterAssetID) = {
319	319		let calleraddress = toBase58String(i.caller.bytes)
320	320		let pmt = if ((size(i.payments) == 1))
321	321		then i.payments[0]
322	322		else throw("No payment attached, Please Attach LP Token as payment[1].")
323	323		let checkpairisavailableornot = getString(this, ("Pair_UV_" + EnterAssetID))
324	324		let ReissueableassetId = fromBase58String(valueOrErrorMessage(getString(this, ("LP_" + EnterAssetID)), "LP Token is Missing or not Generated."))
325	325		let decimalsinfo = valueOrErrorMessage(assetInfo(fromBase58String(EnterAssetID)), (("Asset " + EnterAssetID) + " doesn't exist"))
326	326		let decimals = decimalsinfo.decimals
327	327		let bothassetsdecimals = (6 + decimals)
328	328		let sharedecimals = (bothassetsdecimals / 2)
329	329		let CheckTotalLPAmount = getIntegerValue(this, ("Total_LP_" + EnterAssetID))
330	330		let UserLPPercentage = pow(fraction(pmt.amount, pow(10, 0, 8, 0, 0, CEILING), CheckTotalLPAmount), 6, 1, 0, 6, CEILING)
331	331		let CheckXTNBalance = getIntegerValue(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)))
332	332		let CheckAssetBalance = getIntegerValue(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID))
333	333		let UserLPWorthXTN = fraction(CheckXTNBalance, UserLPPercentage, pow(10, 0, 8, 0, 0, CEILING))
334	334		let UserLPWorthAsset = fraction(CheckAssetBalance, UserLPPercentage, pow(10, 0, 8, 0, 0, CEILING))
335	335		let XTNHoldingInPair = match getInteger(this, ((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID))) {
336	336		case a: Int =>
337	337		a
338	338		case _ =>
339	339		0
340	340		}
341	341		let NewXTNHoldingInPair = (XTNHoldingInPair - UserLPWorthXTN)
342	342		let AssetHoldingInPair = match getInteger(this, ((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID)) {
343	343		case a: Int =>
344	344		a
345	345		case _ =>
346	346		0
347	347		}
348	348		let NewAssetHoldingInPair = (AssetHoldingInPair - UserLPWorthAsset)
349	349		let LPTokenIssued = match getIntegerValue(this, ("Total_LP_" + EnterAssetID)) {
350	350		case a: Int =>
351	351		a
352	352		case _ =>
353	353		0
354	354		}
355	355		let NewLPTokenIssued = (LPTokenIssued - pmt.amount)
356	356		if ((checkpairisavailableornot != EnterAssetID))
357	357		then throw("Pair is not available in Whitelist.")
358	358		else if ((fromBase58String(EnterAssetID) == XTNAssetID))
359	359		then throw("Don't choose XTN AssetID as Input, Only Whitelisted Asset as Input String & Attach LP Tokens as payment[1]")
360	360		else if ((pmt.assetId != ReissueableassetId))
361	361		then throw("Wrong Asset is attached in payment[1] or LP Token Not Found or Missing.")
362	362		else if ((1 > UserLPPercentage))
363	363		then throw("Your LP Token amount % is very low to convert.")
364	364		else if ((1 > UserLPWorthXTN))
365	365		then throw("Your LP Token conversion amount is very low to convert or less than 0.000001 XTN.")
366	366		else if ((1 > UserLPWorthAsset))
367	367		then throw("Your LP Token conversion amount is very low to convert or less than fraction value of Token.")
368	368		else [IntegerEntry("Withdraw_LP_Percentage", UserLPPercentage), Burn(ReissueableassetId, pmt.amount), IntegerEntry(("Total_LP_" + EnterAssetID), NewLPTokenIssued), IntegerEntry(((("Balance_of_" + EnterAssetID) + "_") + toBase58String(XTNAssetID)), NewXTNHoldingInPair), IntegerEntry(((("Balance_of_" + toBase58String(XTNAssetID)) + "_") + EnterAssetID), NewAssetHoldingInPair), ScriptTransfer(i.caller, UserLPWorthXTN, XTNAssetID), ScriptTransfer(i.caller, UserLPWorthAsset, fromBase58String(EnterAssetID))]
369	369		}
370	370
371	371
372	372		@Verifier(tx)
373	373		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
374	374

github/deemru/w8io/169f3d6 
158.77 ms ◑