github/deemru/w8io/873ac7e 138.51 ms ◑
tx · AD3NkvxyFk26D12gcTn7xdmZWoQfABPtwtkUf9pRNV99 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep: -0.03700000 Waves 2023.04.02 13:43 [2516855] smart account 3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep > SELF 0.00000000 Waves
{ "type": 13, "id": "AD3NkvxyFk26D12gcTn7xdmZWoQfABPtwtkUf9pRNV99", "fee": 3700000, "feeAssetId": null, "timestamp": 1680432211104, "version": 2, "chainId": 84, "sender": "3N8y4wxX3JC4TdrCJBXX16SjWf6X256hrep", "senderPublicKey": "7v5L7QkXxfkirALdyqmox38QCsa9jtfAtgUfHTh34eWq", "proofs": [ "4KMpgFmB6WnMyFXjpe8AGZyyLjvXv2H7dX9Z5wKpAkndH21hforkvBpo1o84xGudCTEXt3arH6JPaLAJrLoHvmEW" ], "script": "base64:BgIxCAISAwoBCBIECgIRERIECgIRERIDCgEREgUKAwEBARIDCgEIEgQKAggIEgUKAwgICEkAA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDgAgMLXLwAGTVVMVDEwAIDIr6AlAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkbkFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABILYmKcME9c5TkaQOS3UkL2SMUbH6369UKb1I0h0qsqrRAwkAAAIBAVQFByRtYXRjaDABIPd26vf3g8pl224T7gI7z1gplanB0Y3yS9ps2B1igMjeCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAAQxnZXRJbnRPckVsc2UCA2tleQpkZWZhdWx0VmFsCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFA2tleQUKZGVmYXVsdFZhbAARSWR4Q2ZnU3Rha2luZ0RhcHAAAQARSWR4Q2ZnRWNvbm9teURhcHAAAgAUSWR4Q2ZnR292ZXJuYW5jZURhcHAAAwEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPREVGQVVMVExPQ0FUSU9OAg9BZnJpY2FfRl9BZnJpY2EABk5VTVJFUwAGABNGQUNUT1JZTUFYV0FSRUhPVVNFAIDIr6AlABBSRVNPVVJDRVBSSUNFTUlOANXWCQAKTUlOUEFZTUVOVACQTgAOU0VMTE1VTFRJUExJRVIAyAEADUJVWU1VTFRJUExJRVIArAIACkxBTkRQUkVGSVgCBExBTkQACkRVQ0tQUkVGSVgCBERVQ0sADFdITVVMVElQTElFUgCAyK+gJQAKQVVDVElPTkZFRQCQTgAIcmVzVHlwZXMJAMwIAgIDT2lsCQDMCAICA09yZQkAzAgCAgRXb29kCQDMCAICBFNhbmQJAMwIAgIEQ2xheQkAzAgCAgdPcmdhbmljBQNuaWwACG1hdFR5cGVzCQDMCAICBEZ1ZWwJAMwIAgIFTWV0YWwJAMwIAgIFUGxhbmsJAMwIAgIFR2xhc3MJAMwIAgIHUGxhc3RpYwkAzAgCAgdQcm90ZWluBQNuaWwACXByb2RUeXBlcwkAzAgCAg1GaXJzdCBBaWQgS2l0CQDMCAICCEJhY2twYWNrCQDMCAICC0Zvb2QgUmF0aW9uCQDMCAICCEpldCBQYWNrCQDMCAICBVJhZGFyBQNuaWwACmNvbnRpbmVudHMJAMwIAgIIQW1lcmljYXMJAMwIAgIGRXVyb3BlCQDMCAICBEFzaWEJAMwIAgIGQWZyaWNhCQDMCAICB09jZWFuaWEFA25pbAAQcHJvZHVjdGlvbk1hdHJpeAkAzAgCAhAxXzFfMV8yXzJfNV8xXzEwCQDMCAICETJfNV81XzJfN181XzJfMTAwCQDMCAICEDFfMV8xXzJfMl81XzFfMTAJAMwIAgIROV85XzFfNV81XzFfNV8xMDAJAMwIAgIRMV81XzFfNV81XzFfMV8xMDAFA25pbAAPY29udElkeEFtZXJpY2FzAAAADWNvbnRJZHhFdXJvcGUAAQALY29udElkeEFzaWEAAgANY29udElkeEFmcmljYQADAA5jb250SWR4T2NlYW5pYQAEAR5rZXlGYWN0b3J5V2FyZWhvdXNlQnlJZEFuZFR5cGUCCWZhY3RvcnlJZAdyZXNUeXBlCQCsAgIJAKwCAgkArAICAhtmYWN0b3J5V2hCeUNvbnRpbmVudEFuZFJlc18FCWZhY3RvcnlJZAIBXwkApAMBBQdyZXNUeXBlAQ5rZXlPcmRlckJ5TGFuZAELbGFuZEFzc2V0SWQJAKwCAgIKbGFuZE9yZGVyXwULbGFuZEFzc2V0SWQBFGtleVN0YWtlZER1Y2tCeU93bmVyAQlvd25lckFkZHIJAKwCAgISc3Rha2VkRHVja0J5T3duZXJfBQlvd25lckFkZHIBEWtleUJhY2twYWNrQnlEdWNrAQtkdWNrQXNzZXRJZAkArAICAgliYWNrUGFja18FC2R1Y2tBc3NldElkAQ9rZXlEdWNrTG9jYXRpb24BC2R1Y2tBc3NldElkCQCsAgICDWR1Y2tMb2NhdGlvbl8FC2R1Y2tBc3NldElkAQprZXlCbG9ja2VkAAIQY29udHJhY3RzQmxvY2tlZAEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQdhc3NldElkCQCsAgICCW5mdE93bmVyXwUHYXNzZXRJZAEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEHYXNzZXRJZAkArAICAgtzdGFrZWRUaW1lXwUHYXNzZXRJZAAPbG9jSWR4Q29udGluZW50AAAACmxvY0lkeFR5cGUAAQAIbG9jSWR4SWQAAgAKYnBJZHhMZXZlbAAAAAhicElkeFJlcwABAAhicElkeE1hdAACAAlicElkeFByb2QAAwAId2hJZHhWb2wAAAAId2hJZHhSZXMAAQAId2hJZHhNYXQAAgAJd2hJZHhQcm9kAAMADndoSWR4TG9ja2VkVm9sAAQACW9yZElkeFJlcwAAAAlvcmRJZHhNYXQAAQAKb3JkSWR4UHJvZAACAQhhc1N0cmluZwEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgZTdHJpbmcEAXMFByRtYXRjaDAFAXMJAAIBAhhmYWlsIHRvIGNhc3QgaW50byBTdHJpbmcBCGdldE9yZGVyAQZvcmRLZXkEAXAJALUJAgkBC3ZhbHVlT3JFbHNlAgkAoggBBQZvcmRLZXkCMDBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwOjBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwOgIBOgkAzAgCAwkAAAIJAJADAQkAtQkCCQCRAwIFAXAFCW9yZElkeFJlcwIBXwUGTlVNUkVTCQCRAwIFAXAFCW9yZElkeFJlcwIXMEAwXzBAMF8wQDBfMEAwXzBAMF8wQDAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQlvcmRJZHhNYXQCAV8FBk5VTVJFUwkAkQMCBQFwBQlvcmRJZHhNYXQCFzBAMF8wQDBfMEAwXzBAMF8wQDBfMEAwCQDMCAIJAJEDAgUBcAUKb3JkSWR4UHJvZAUDbmlsARJnZXRXYXJlaG91c2VWb2x1bWUBCXZvbFByZWZpeAQFcGFydHMJALUJAgUJdm9sUHJlZml4AgFfCQBoAgkAaAIFDFdITVVMVElQTElFUgkAZAIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwYXJ0cwABAAEJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQVwYXJ0cwAAARlnZXRXYXJlaG91c2VDdXJyUmVzVm9sdW1lAQljdXJyZW50V2gKAQNzdW0CA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0KAAIkbAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8KAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBA3N1bQIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgEZZ2V0V2FyZWhvdXNlQ3Vyck1hdFZvbHVtZQEJY3VycmVudFdoCgEDc3VtAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtCgACJGwJALUJAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4TWF0AgFfCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQNzdW0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYBG2dldFdhcmVob3VzZUN1cnJHb29kc1ZvbHVtZQEJY3VycmVudFdoBAVnb29kcwkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAMJAAACBQVnb29kcwIAAAAKAQNzdW0CA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0KAAIkbAkAvAkCBQVnb29kcwIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEDc3VtAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIBDHNlbGxJbnRlcm5hbAQFbG9jSWQHcmVzVHlwZQZhbW91bnQIbWluUHJpY2UEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFB3Jlc1R5cGUEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEAnIwAwkAZgIFAncwBRNGQUNUT1JZTUFYV0FSRUhPVVNFAAADCQBmAgkAZAIFAncwBQZhbW91bnQFE0ZBQ1RPUllNQVhXQVJFSE9VU0UJAGUCBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQJ3MAUGYW1vdW50BAx1c2RuUmVjZWl2ZWQJAGQCCQBrAwUCcjAJAGUCCQBoAgUOU0VMTE1VTFRJUExJRVIFEFJFU09VUkNFUFJJQ0VNSU4JAGsDCQBkAgkAaAIAZAUCdzAJAGgCADIFAnIwBRBSRVNPVVJDRVBSSUNFTUlOBRNGQUNUT1JZTUFYV0FSRUhPVVNFBQZNVUxUMTAJAGsDCQBlAgUGYW1vdW50BQJyMAUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgEBW1pbjk5CQBlAgUIbWluUHJpY2UJAGkCBQhtaW5QcmljZQBkAwkAZgIJAGgCBQVtaW45OQUGYW1vdW50CQBoAgUMdXNkblJlY2VpdmVkBQVNVUxUOAkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQWN0dWFsIHByaWNlID0gCQCkAwEFDHVzZG5SZWNlaXZlZAIDIC8gCQCkAwEFBmFtb3VudAIOIDwgbWluUHJpY2UgPSAJAKQDAQUIbWluUHJpY2UCAywgKAUFbG9jSWQCAiwgCQCRAwIFCHJlc1R5cGVzBQdyZXNUeXBlAgEpCQCUCgIJAQxJbnRlZ2VyRW50cnkCBQV3aEtleQkAZAIFAncwBQZhbW91bnQFDHVzZG5SZWNlaXZlZAELYnV5SW50ZXJuYWwEBWxvY0lkB21hdFR5cGUGYW1vdW50CG1heFByaWNlBAV3aEtleQkBHmtleUZhY3RvcnlXYXJlaG91c2VCeUlkQW5kVHlwZQIFBWxvY0lkBQdtYXRUeXBlBAJ3MAkBC3ZhbHVlT3JFbHNlAgkAnwgBBQV3aEtleQAABAJtMQMJAGYCBQJ3MAUTRkFDVE9SWU1BWFdBUkVIT1VTRQkAlwMBCQDMCAIFBmFtb3VudAkAzAgCCQBlAgUCdzAFE0ZBQ1RPUllNQVhXQVJFSE9VU0UFA25pbAAABAJtMAkAlwMBCQDMCAIFAncwCQDMCAIJAGUCBQZhbW91bnQFAm0xBQNuaWwEAW0JAGQCBQJtMAUCbTEECXVzZG5TcGVudAkAZAIJAGsDBQJtMAkAZQIJAGgCBQ1CVVlNVUxUSVBMSUVSBRBSRVNPVVJDRVBSSUNFTUlOCQBrAwkAZQIJAGgCAGQFAncwCQBoAgAyBQJtMAUQUkVTT1VSQ0VQUklDRU1JTgUTRkFDVE9SWU1BWFdBUkVIT1VTRQUGTVVMVDEwCQBrAwUCbTEJAGgCAAIFEFJFU09VUkNFUFJJQ0VNSU4FBU1VTFQ4BAZtYXgxMDEJAGQCBQhtYXhQcmljZQkAaQIFCG1heFByaWNlAGQDCQBmAgkAaAIFCXVzZG5TcGVudAUFTVVMVDgJAGgCBQZtYXgxMDEFAW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICD0FjdHVhbCBwcmljZSA9IAkApAMBBQl1c2RuU3BlbnQCAyAvIAkApAMBBQFtAg4gPiBtYXhQcmljZSA9IAkApAMBBQhtYXhQcmljZQIDLCAoBQVsb2NJZAICLCAJAJEDAgUIbWF0VHlwZXMFB21hdFR5cGUCASkJAJUKAwkBDEludGVnZXJFbnRyeQIFBXdoS2V5CQBlAgUCdzAFAW0FCXVzZG5TcGVudAUBbQELZ2V0QmFja3BhY2sBBWJwS2V5BAFwCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0BQVicEtleQIaMDowXzBfMF8wXzBfMDowXzBfMF8wXzBfMDoCAToJAMwIAgkApAMBCQELdmFsdWVPckVsc2UCCQC2CQEJAJEDAgUBcAUKYnBJZHhMZXZlbAAACQDMCAIDCQAAAgkAkAMBCQC1CQIJAJEDAgUBcAUIYnBJZHhSZXMCAV8FBk5VTVJFUwkAkQMCBQFwBQhicElkeFJlcwILMF8wXzBfMF8wXzAJAMwIAgMJAAACCQCQAwEJALUJAgkAkQMCBQFwBQhicElkeE1hdAIBXwUGTlVNUkVTCQCRAwIFAXAFCGJwSWR4TWF0AgswXzBfMF8wXzBfMAkAzAgCCQCRAwIFAXAFCWJwSWR4UHJvZAUDbmlsAQxjaGVja0Jsb2NrZWQAAwkBC3ZhbHVlT3JFbHNlAgkAmwgCBQ9zdGFraW5nQ29udHJhY3QJAQprZXlCbG9ja2VkAAcJAAIBAh9Db250cmFjdHMgYXJlIHVuZGVyIG1haW50ZW5hbmNlBQR1bml0CAFpAQ1jb25zdHJ1Y3RvclYxAQhyZXN0QWRkcgMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyBQNuaWwBaQENc2VsbFJlc291cmNlcwIHYW1vdW50cwltaW5QcmljZXMEB2Jsb2NrZWQJAQxjaGVja0Jsb2NrZWQAAwkAAAIFB2Jsb2NrZWQFB2Jsb2NrZWQEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECKnNlbGxSZXNvdXJjZXMgZG9lc24ndCByZXF1aXJlIGFueSBwYXltZW50cwQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAVsb2NJZAkAkQMCBQtjdXJMb2NhdGlvbgUIbG9jSWR4SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwoBBWFkZGVyAgNhY2MBagMJAGYCCQCRAwIFB2Ftb3VudHMFAWoJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXNMaXN0BQFqCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICCVlvdSBoYXZlIAkAkQMCBQdyZXNMaXN0BQFqAgQgb2YgCQCRAwIFCHJlc1R5cGVzBQFqAhQsIGJ1dCB0cmllZCB0byBzZWxsIAkApAMBCQCRAwIFB2Ftb3VudHMFAWoDCQBmAgAACQCRAwIFB2Ftb3VudHMFAWoJAAIBCQCsAgIJAKwCAgkArAICAiVZb3UgdHJpZWQgdG8gc2VsbCBuZWdhdGl2ZSBhbW91bnQgb2YgCQCRAwIFCHJlc1R5cGVzBQFqAgI6IAkApAMBCQCRAwIFB2Ftb3VudHMFAWoDCQBmAgkAkQMCBQdhbW91bnRzBQFqAAAEAWIJAQxzZWxsSW50ZXJuYWwEBQVsb2NJZAUBagkAkQMCBQdhbW91bnRzBQFqCQCRAwIFCW1pblByaWNlcwUBagkAlQoDCQDNCAIIBQNhY2MCXzEIBQFiAl8xCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdyZXNMaXN0BQFqCQCRAwIFB2Ftb3VudHMFAWoJAGQCCAUDYWNjAl8zCAUBYgJfMgkAlQoDCAUDYWNjAl8xCQDNCAIIBQNhY2MCXzIJAJEDAgUHcmVzTGlzdAUBaggFA2FjYwJfMwQGbWVyZ2VkCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwUDbmlsBQNuaWwAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEFYWRkZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJALkJAggFBm1lcmdlZAJfMgIBXwkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgQGcmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwJAJQKAgkAzQgCCAUGbWVyZ2VkAl8xCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIIBQZtZXJnZWQCXzMFC3VzZG5Bc3NldElkBQZyZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEMYnV5TWF0ZXJpYWxzAgdhbW91bnRzCW1heFByaWNlcwQHYmxvY2tlZAkBDGNoZWNrQmxvY2tlZAADCQAAAgUHYmxvY2tlZAUHYmxvY2tlZAQLZHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEJAKUIAQgFAWkGY2FsbGVyAhxZb3UgZG9uJ3QgaGF2ZSBhIGR1Y2sgc3Rha2VkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEA2FtdAgFA3BtdAZhbW91bnQECnBtdEFzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAggFA3BtdAdhc3NldElkAh5XQVZFUyBjYW4ndCBiZSB1c2VkIGFzIHBheW1lbnQDCQECIT0CBQpwbXRBc3NldElkBQt1c2RuQXNzZXRJZAkAAgECE1VTRE4gcGF5bWVudHMgb25seSEEC2N1ckxvY2F0aW9uCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEPa2V5RHVja0xvY2F0aW9uAQULZHVja0Fzc2V0SWQFD0RFRkFVTFRMT0NBVElPTgIBXwMJAQIhPQIJAJEDAgULY3VyTG9jYXRpb24FCmxvY0lkeFR5cGUCAUYJAAIBCQCsAgICLUR1Y2sgbG9jYXRpb24gdHlwZSBzaG91bGQgYmUgRmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQFbG9jSWQJAJEDAgULY3VyTG9jYXRpb24FCGxvY0lkeElkBAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8KAQhtVXBkYXRlcgIDYWNjAWoDCQBmAgAACQCRAwIFB2Ftb3VudHMFAWoJAAIBCQCsAgIJAKwCAgkArAICAiRZb3UgdHJpZWQgdG8gYnV5IG5lZ2F0aXZlIGFtb3VudCBvZiAJAJEDAgUIbWF0VHlwZXMFAWoCAjogCQCkAwEJAJEDAgUHYW1vdW50cwUBagMJAGYCCQCRAwIFB2Ftb3VudHMFAWoAAAQBYgkBC2J1eUludGVybmFsBAUFbG9jSWQFAWoJAJEDAgUHYW1vdW50cwUBagkAkQMCBQltYXhQcmljZXMFAWoJAJUKAwkAzQgCCAUDYWNjAl8xCAUBYgJfMQkAzQgCCAUDYWNjAl8yCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHbWF0TGlzdAUBaggFAWICXzMJAGQCCAUDYWNjAl8zCAUBYgJfMgkAlQoDCAUDYWNjAl8xCQDNCAIIBQNhY2MCXzIJAJEDAgUHbWF0TGlzdAUBaggFA2FjYwJfMwQGbWVyZ2VkCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwUDbmlsBQNuaWwAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIbVVwZGF0ZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYDCQBmAggFBm1lcmdlZAJfMwUDYW10CQACAQkArAICCQCsAgIJAKwCAgIfSW5zdWZmaWNpZW50IHBheW1lbnQhIEF0dGFjaGVkPQkApAMBBQNhbXQCCywgcmVxdWlyZWQ9CQCkAwEIBQZtZXJnZWQCXzMEB25ld1BhY2sJALkJAgkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQpicElkeExldmVsCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCGJwSWR4UmVzCQDMCAIJALkJAggFBm1lcmdlZAJfMgIBXwkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QFA25pbAIBOgQGcmVzdWx0CQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUHbmV3UGFjawUDbmlsBQNuaWwEBHJlc3QDCQBmAgkAZQIFA2FtdAgFBm1lcmdlZAJfMwAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcgkAZQIFA2FtdAgFBm1lcmdlZAJfMwULdXNkbkFzc2V0SWQFA25pbAUDbmlsCQCUCgIJAM4IAggFBm1lcmdlZAJfMQUEcmVzdAUGcmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEWV4Y2hhbmdlUmVzb3VyY2VzAQdhbW91bnRzBAdibG9ja2VkCQEMY2hlY2tCbG9ja2VkAAMJAAACBQdibG9ja2VkBQdibG9ja2VkBAtkdWNrQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFGtleVN0YWtlZER1Y2tCeU93bmVyAQkApQgBCAUBaQZjYWxsZXICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZG5Bc3NldElkCQACAQITVVNETiBwYXltZW50cyBvbmx5IQQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBRgkAAgEJAKwCAgItRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBGYWN0b3J5LCBidXQgaXMgCQCRAwIFC2N1ckxvY2F0aW9uBQpsb2NJZHhUeXBlBAVsb2NJZAkAkQMCBQtjdXJMb2NhdGlvbgUIbG9jSWR4SWQEC2N1cnJlbnRQYWNrCQELZ2V0QmFja3BhY2sBCQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQHcmVzTGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwIBXwQHbWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwoBCWV4Y2hhbmdlcgIDYWNjAWoEBXdoS2V5CQEea2V5RmFjdG9yeVdhcmVob3VzZUJ5SWRBbmRUeXBlAgUFbG9jSWQFAWoEAncwCQELdmFsdWVPckVsc2UCCQCfCAEFBXdoS2V5AAAEA2FtagkAkQMCBQdhbW91bnRzBQFqAwkAZgIFA2FtagkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIJWW91IGhhdmUgCQCRAwIFB3Jlc0xpc3QFAWoCBCBvZiAJAJEDAgUIcmVzVHlwZXMFAWoCGCwgYnV0IHRyaWVkIHRvIGV4Y2hhbmdlIAkApAMBBQNhbWoDCQBmAgAABQNhbWoJAAIBCQCsAgIJAKwCAgkArAICAilZb3UgdHJpZWQgdG8gZXhjaGFuZ2UgbmVnYXRpdmUgYW1vdW50IG9mIAkAkQMCBQhyZXNUeXBlcwUBagICOiAJAKQDAQUDYW1qAwkAZgIFA2FtagAACQCWCgQJAM0IAggFA2FjYwJfMQkApAMBCQBlAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFB3Jlc0xpc3QFAWoFA2FtagkAzQgCCAUDYWNjAl8yCQCkAwEJAGQCCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUHbWF0TGlzdAUBagUDYW1qCQBkAggFA2FjYwJfMwkAawMFA2FtagUQUkVTT1VSQ0VQUklDRU1JTgUFTVVMVDgJAM0IAggFA2FjYwJfNAkBDEludGVnZXJFbnRyeQIFBXdoS2V5BQJ3MAkAlgoECQDNCAIIBQNhY2MCXzEJAJEDAgUHcmVzTGlzdAUBagkAzQgCCAUDYWNjAl8yCQCRAwIFB21hdExpc3QFAWoIBQNhY2MCXzMIBQNhY2MCXzQEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQFA25pbAUDbmlsAAAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEJZXhjaGFuZ2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAwkAZgIIBQZtZXJnZWQCXzMFA2FtdAkAAgEJAKwCAgkArAICCQCsAgICH0luc3VmZmljaWVudCBwYXltZW50ISBBdHRhY2hlZD0JAKQDAQUDYW10AgssIHJlcXVpcmVkPQkApAMBCAUGbWVyZ2VkAl8zBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIIBQZtZXJnZWQCXzECAV8JAMwIAgkAuQkCCAUGbWVyZ2VkAl8yAgFfCQDMCAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAQEcmVzdAMJAGYCCQBlAgUDYW10CAUGbWVyZ2VkAl8zAAAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCQBlAgUDYW10CAUGbWVyZ2VkAl8zBQt1c2RuQXNzZXRJZAUDbmlsBQNuaWwJAJQKAgkAzggCBQRyZXN0CAUGbWVyZ2VkAl80BQZyZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEIYnV5R29vZHMDCnByb2R1Y3RJZHgFbGV2ZWwIcXVhbnRpdHkEB2Jsb2NrZWQJAQxjaGVja0Jsb2NrZWQAAwkAAAIFB2Jsb2NrZWQFB2Jsb2NrZWQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAiVidXlHb29kcyBkb2Vzbid0IHJlcXVpcmUgYW55IHBheW1lbnRzAwkAZgIAAAUIcXVhbnRpdHkJAAIBAhtRdWFudGl0eSBzaG91bGQgYmUgcG9zaXRpdmUEC2R1Y2tBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEUa2V5U3Rha2VkRHVja0J5T3duZXIBCQClCAEIBQFpBmNhbGxlcgIcWW91IGRvbid0IGhhdmUgYSBkdWNrIHN0YWtlZAQLY3VyTG9jYXRpb24JALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJAQ9rZXlEdWNrTG9jYXRpb24BBQtkdWNrQXNzZXRJZAUPREVGQVVMVExPQ0FUSU9OAgFfAwkBAiE9AgkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQIBTQkAAgEJAKwCAgIxRHVjayBsb2NhdGlvbiB0eXBlIHNob3VsZCBiZSBNYW51ZmFjdG9yeSwgYnV0IGlzIAkAkQMCBQtjdXJMb2NhdGlvbgUKbG9jSWR4VHlwZQQEY29udAkAkQMCBQtjdXJMb2NhdGlvbgUPbG9jSWR4Q29udGluZW50BAtjdXJyZW50UGFjawkBC2dldEJhY2twYWNrAQkBEWtleUJhY2twYWNrQnlEdWNrAQULZHVja0Fzc2V0SWQEB21hdExpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhNYXQCAV8DAwkAZgIAAAUKcHJvZHVjdElkeAYJAGcCBQpwcm9kdWN0SWR4CQCQAwEFEHByb2R1Y3Rpb25NYXRyaXgJAAIBCQCsAgICFFVua25vd24gcHJvZHVjdCBpZHg9CQCkAwEFCnByb2R1Y3RJZHgEDnByb2R1Y3RDb250SWR4CQBqAgUKcHJvZHVjdElkeAkAkAMBBQpjb250aW5lbnRzAwkBAiE9AgkAkQMCBQpjb250aW5lbnRzBQ5wcm9kdWN0Q29udElkeAUEY29udAkAAgEJAKwCAgkArAICCQCsAgICHVRoaXMgcHJvZHVjdCBpcyBhdmFpbGFibGUgaW4gCQCRAwIFCmNvbnRpbmVudHMFDnByb2R1Y3RDb250SWR4AhEsIGJ1dCB5b3UgYXJlIGluIAUEY29udAQGcmVjaXBlCQC1CQIJAJEDAgUQcHJvZHVjdGlvbk1hdHJpeAUKcHJvZHVjdElkeAIBXwMJAQIhPQIJAJADAQUGcmVjaXBlCQBkAgUGTlVNUkVTAAIJAAIBCQCsAgICF0ZhdGFsOiB1bmtub3duIHJlY2lwZTogCQCRAwIFEHByb2R1Y3Rpb25NYXRyaXgFCnByb2R1Y3RJZHgECHByb2RMaXN0AwkAAAIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQtjdXJyZW50UGFjawUJYnBJZHhQcm9kAgFfCgEGZmlsbGVyAgNhY2MLaWdub3JlZEl0ZW0EAW4IBQNhY2MCXzIEAXgDCQBmAgkAkAMBBQhwcm9kTGlzdAUBbgkAtQkCCQCRAwIFCHByb2RMaXN0BQFuAgEsCQDMCAICATAJAMwIAgIBMAkAzAgCAgEwBQNuaWwEA3gxcwkAkQMCBQF4AAAEAngxCQENcGFyc2VJbnRWYWx1ZQEFA3gxcwQDeDJzCQCRAwIFAXgAAQQCeDIJAQ1wYXJzZUludFZhbHVlAQUDeDJzBAN4M3MJAJEDAgUBeAACBAJ4MwkBDXBhcnNlSW50VmFsdWUBBQN4M3MEBmFtb3VudAkAaAIFCHF1YW50aXR5CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUGcmVjaXBlAAcEAXkDCQAAAgUBbgUKcHJvZHVjdElkeAQHJG1hdGNoMAUFbGV2ZWwDCQAAAgABBQckbWF0Y2gwCQCsAgIJAKwCAgkArAICCQCsAgIJAKQDAQkAZAIFAngxBQZhbW91bnQCASwFA3gycwIBLAUDeDNzAwkAAAIAAgUHJG1hdGNoMAkArAICCQCsAgIJAKwCAgkArAICBQN4MXMCASwJAKQDAQkAZAIFAngyBQZhbW91bnQCASwFA3gzcwMJAAACAAMFByRtYXRjaDAJAKwCAgkArAICCQCsAgIJAKwCAgUDeDFzAgEsBQN4MnMCASwJAKQDAQkAZAIFAngzBQZhbW91bnQJAAIBCQCsAgICIlByb2R1Y3QgbGV2ZWwgc2hvdWxkIGJlIDEuLjMsIG5vdCAJAKQDAQUFbGV2ZWwJAKwCAgkArAICCQCsAgIJAKwCAgUDeDFzAgEsBQN4MnMCASwFA3gzcwkAlAoCCQDNCAIIBQNhY2MCXzEFAXkJAGQCBQFuAAEEBmJwUHJvZAgKAAIkbAUQcHJvZHVjdGlvbk1hdHJpeAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJQKAgUDbmlsAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBmZpbGxlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgNTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8AEAARABIAEwAUABUAFgAXABgAGQAaABsAHAAdAB4AHwAgACEAIgAjACQAJQAmACcAKAApACoAKwAsAC0ALgAvADAAMQAyAl8xCgEIcHJvZHVjZXICA2FjYwFqBAduZWVkTWF0CQBoAgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFBnJlY2lwZQUBagUIcXVhbnRpdHkEB2hhdmVNYXQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQdtYXRMaXN0BQFqAwkAZgIFB25lZWRNYXQFB2hhdmVNYXQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgkArAICCQCsAgICCVlvdSBoYXZlIAkAkQMCBQdtYXRMaXN0BQFqAgQgb2YgCQCRAwIFCG1hdFR5cGVzBQFqAhYsIGJ1dCByZWNpcGUgcmVxdWlyZXMgCQCkAwEFB25lZWRNYXQCDiBmb3IgcXVhbnRpdHkgCQCkAwEFCHF1YW50aXR5AwkAZgIFB25lZWRNYXQAAAkAzQgCBQNhY2MJAKQDAQkAZQIFB2hhdmVNYXQFB25lZWRNYXQJAM0IAgUDYWNjCQCRAwIFB21hdExpc3QFAWoEBm1lcmdlZAoAAiRsCQDMCAIAAAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCHByb2R1Y2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAduZXdQYWNrCQC5CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeFJlcwkAzAgCCQC5CQIFBm1lcmdlZAIBXwkAzAgCCQC5CQIFBmJwUHJvZAIBXwUDbmlsAgE6BAZyZXN1bHQJAQhhc1N0cmluZwEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVCYWNrcGFjawkAzAgCBQtkdWNrQXNzZXRJZAkAzAgCBQduZXdQYWNrBQNuaWwFA25pbAkAlAoCBQNuaWwFBnJlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARRhY2NlcHRTZXJ2aWNlUGF5bWVudAEHc2VydmljZQQHYmxvY2tlZAkBDGNoZWNrQmxvY2tlZAADCQAAAgUHYmxvY2tlZAUHYmxvY2tlZAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIeV0FWRVMgY2FuJ3QgYmUgdXNlZCBhcyBwYXltZW50AwkBAiE9AgUKcG10QXNzZXRJZAULdXNkbkFzc2V0SWQJAAIBAhNVU0ROIHBheW1lbnRzIG9ubHkhBARuZWVkBAckbWF0Y2gwBQdzZXJ2aWNlAwkAAAICC0xBTkRfUkVOQU1FBQckbWF0Y2gwAICt4gQJAAIBAhBVbmtub3duIHNlcnZpY2UhAwkBAiE9AgUDYW10BQRuZWVkCQACAQkArAICCQCsAgIJAKwCAgUHc2VydmljZQIHIGNvc3RzIAkApAMBBQRuZWVkAgUgVVNETgkAlAoCBQNuaWwFA2FtdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARFzZXRXYXJlaG91c2VPcmRlcgIMY2FyZ29MaXN0U3RyC2xhbmRBc3NldElkBAR1c2VyCAUBaQxvcmlnaW5DYWxsZXIEBGFkZHIJAKUIAQUEdXNlcgQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAMJAQEhAQkBCWlzRGVmaW5lZAEJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEWa2V5U3Rha2VkVGltZUJ5QXNzZXRJZAEFC2xhbmRBc3NldElkCQACAQkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQFb3duZXIJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARVrZXlMYW5kQXNzZXRJZFRvT3duZXIBBQtsYW5kQXNzZXRJZAkArAICCQCsAgICBE5GVCAIBQVhc3NldARuYW1lAgwgaXMgb3JwaGFuZWQDCQECIT0CBQVvd25lcgUEYWRkcgkAAgEJAKwCAgUKTEFORFBSRUZJWAINIGlzIG5vdCB5b3VycwQKY2FyZ29QYXJ0cwkAvAkCBQxjYXJnb0xpc3RTdHICAToDCQECIT0CCQCQAwEFCmNhcmdvUGFydHMAAwkAAgECNGNhcmdvTGlzdFN0ciBzaG91bGQgY29udGFpbiBleGFjdGx5IDIgJzonIHNlcGFyYXRvcnMECHJlc1BhcnRzCQC1CQIJAJEDAgUKY2FyZ29QYXJ0cwAAAgFfBAhtYXRQYXJ0cwkAtQkCCQCRAwIFCmNhcmdvUGFydHMAAQIBXwQJcHJvZFBhcnRzAwkAAAIJAJEDAgUKY2FyZ29QYXJ0cwACAgAFA25pbAkAtQkCCQCRAwIFCmNhcmdvUGFydHMAAgIBXwMJAQIhPQIJAJADAQUIcmVzUGFydHMFBk5VTVJFUwkAAgECIEFsbCA2IHJlc291cmNlcyBzaG91bGQgYmUgcGFzc2VkAwkBAiE9AgkAkAMBBQhtYXRQYXJ0cwUGTlVNUkVTCQACAQIgQWxsIDYgbWF0ZXJpYWxzIHNob3VsZCBiZSBwYXNzZWQEAndoCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIUZ2V0V2FyZWhvdXNlUkVBRE9OTFkJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAljdXJyZW50V2gJALwJAgUCd2gCAToECWN1cnJXaFJlcwkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8ECWN1cnJXaE1hdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECmN1cnJXaFByb2QDCQAAAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIBXwQMY3VycldoUmVzVm9sCQEZZ2V0V2FyZWhvdXNlQ3VyclJlc1ZvbHVtZQEFCWN1cnJlbnRXaAQMY3VycldoTWF0Vm9sCQEZZ2V0V2FyZWhvdXNlQ3Vyck1hdFZvbHVtZQEFCWN1cnJlbnRXaAQOY3VycldoR29vZHNWb2wJARtnZXRXYXJlaG91c2VDdXJyR29vZHNWb2x1bWUBBQljdXJyZW50V2gED2N1cnJXaExvY2tlZFZvbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWN1cnJlbnRXaAUOd2hJZHhMb2NrZWRWb2wEC3doU3BhY2VMZWZ0CQBlAgkAZQIJAGUCCQBlAgkBEmdldFdhcmVob3VzZVZvbHVtZQEJAJEDAgUJY3VycmVudFdoBQh3aElkeFZvbAUMY3VycldoUmVzVm9sBQxjdXJyV2hNYXRWb2wFDmN1cnJXaEdvb2RzVm9sBQ9jdXJyV2hMb2NrZWRWb2wEBm9yZEtleQkBDmtleU9yZGVyQnlMYW5kAQULbGFuZEFzc2V0SWQECmN1cnJlbnRPcmQJAQhnZXRPcmRlcgEFBm9yZEtleQQNY3VycmVudE9yZFJlcwkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCW9yZElkeFJlcwIBXwQNY3VycmVudE9yZE1hdAkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCW9yZElkeE1hdAIBXwQOY3VycmVudE9yZFByb2QDCQAAAgkAkQMCBQpjdXJyZW50T3JkBQpvcmRJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFCmN1cnJlbnRPcmQFCm9yZElkeFByb2QCAV8EDXVzZG5OZWVkMkxvY2sAAAoBBG9yZFICA2FjYwRpdGVtBAFqCAUDYWNjAl8xBAlpdGVtUGFydHMJALUJAgUEaXRlbQIBQAMJAQIhPQIJAJADAQUJaXRlbVBhcnRzAAIJAAIBAi5JbmNvcnJlY3Qgb3JkZXIgZm9ybWF0LCBzaG91bGQgYmUgYW1vdW50QHByaWNlBAhuZXdPcmRBbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWl0ZW1QYXJ0cwAABAhuZXdPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWl0ZW1QYXJ0cwABBAluZXdPcmRVc2QJAGsDBQhuZXdPcmRBbQUIbmV3T3JkUHIFBU1VTFQ4BAN3aHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQljdXJyV2hSZXMFAWoEC2N1ck9yZFBhcnRzCQC1CQIJAJEDAgUNY3VycmVudE9yZFJlcwUBagIBQAQIY3VyT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwAABAhjdXJPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFC2N1ck9yZFBhcnRzAAEDCQBmAgAABQhjdXJPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAljdXJPcmRVc2QJAGsDBQhjdXJPcmRBbQUIY3VyT3JkUHIFBU1VTFQ4AwkAAAIFCG5ld09yZEFtAAADCQBmAgUIY3VyT3JkQW0AAAkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUDd2hyCQBlAggFA2FjYwJfMwUIY3VyT3JkQW0JAGUCCAUDYWNjAl80BQljdXJPcmRVc2QJAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aHIFCGN1ck9yZEFtCQBkAggFA2FjYwJfMwUIY3VyT3JkQW0IBQNhY2MCXzQDCQBmAgUIbmV3T3JkQW0AAAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGQCBQhuZXdPcmRBbQUIY3VyT3JkQW0JAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aHIFCGN1ck9yZEFtCQBkAggFA2FjYwJfMwUGYW1EaWZmCQBkAggFA2FjYwJfNAUJbmV3T3JkVXNkCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQN3aHIJAGUCCQBkAggFA2FjYwJfMwUIbmV3T3JkQW0FCGN1ck9yZEFtCQBlAgkAZAIIBQNhY2MCXzQFCW5ld09yZFVzZAUJY3VyT3JkVXNkAwkAZgIAAAUIY3VyT3JkQW0EBmFtRGlmZgkAZQIFCGN1ck9yZEFtBQhuZXdPcmRBbQMJAGYCAAAJAGUCBQN3aHIFBmFtRGlmZgkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byB0YWtlIAkApAMBBQZhbURpZmYCGiBmcm9tIHdhcmVob3VzZSwgYnV0IG9ubHkgCQCkAwEFA3docgIKIGF2YWlsYWJsZQkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIFA3docgUGYW1EaWZmCQBkAggFA2FjYwJfMwUGYW1EaWZmCAUDYWNjAl80AwkAZgIAAAkAZAIFA3docgUIbmV3T3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQhuZXdPcmRBbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUDd2hyAgogYXZhaWxhYmxlCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUDd2hyBQhuZXdPcmRBbQkAZQIJAGUCCAUDYWNjAl8zBQhuZXdPcmRBbQUIY3VyT3JkQW0JAGUCCAUDYWNjAl80BQljdXJPcmRVc2QEAXIKAAIkbAUIcmVzUGFydHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQAAAUDbmlsAAAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEb3JkUgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgoBBG9yZE0CA2FjYwRpdGVtBAFqCAUDYWNjAl8xBAlpdGVtUGFydHMJALUJAgUEaXRlbQIBQAMJAQIhPQIJAJADAQUJaXRlbVBhcnRzAAIJAAIBAi5JbmNvcnJlY3Qgb3JkZXIgZm9ybWF0LCBzaG91bGQgYmUgYW1vdW50QHByaWNlBAhuZXdPcmRBbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWl0ZW1QYXJ0cwAABAhuZXdPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWl0ZW1QYXJ0cwABBAluZXdPcmRVc2QJAGsDBQhuZXdPcmRBbQUIbmV3T3JkUHIFBU1VTFQ4BAN3aG0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQljdXJyV2hNYXQFAWoEC2N1ck9yZFBhcnRzCQC1CQIJAJEDAgUNY3VycmVudE9yZE1hdAUBagIBQAQIY3VyT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwAABAhjdXJPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFC2N1ck9yZFBhcnRzAAEDCQBmAgAABQhjdXJPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAljdXJPcmRVc2QJAGsDBQhjdXJPcmRBbQUIY3VyT3JkUHIFBU1VTFQ4AwkAAAIFCG5ld09yZEFtAAADCQBmAgUIY3VyT3JkQW0AAAkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUDd2htCQBlAggFA2FjYwJfMwUIY3VyT3JkQW0JAGUCCAUDYWNjAl80BQljdXJPcmRVc2QJAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aG0FCGN1ck9yZEFtCQBkAggFA2FjYwJfMwUIY3VyT3JkQW0IBQNhY2MCXzQDCQBmAgUIbmV3T3JkQW0AAAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGQCBQhuZXdPcmRBbQUIY3VyT3JkQW0JAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aG0FCGN1ck9yZEFtCQBkAggFA2FjYwJfMwUGYW1EaWZmCQBkAggFA2FjYwJfNAUJbmV3T3JkVXNkCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQN3aG0JAGUCCQBkAggFA2FjYwJfMwUIbmV3T3JkQW0FCGN1ck9yZEFtCQBlAgkAZAIIBQNhY2MCXzQFCW5ld09yZFVzZAUJY3VyT3JkVXNkAwkAZgIAAAUIY3VyT3JkQW0EBmFtRGlmZgkAZQIFCGN1ck9yZEFtBQhuZXdPcmRBbQMJAGYCAAAJAGUCBQN3aG0FBmFtRGlmZgkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byB0YWtlIAkApAMBBQZhbURpZmYCGiBmcm9tIHdhcmVob3VzZSwgYnV0IG9ubHkgCQCkAwEFA3dobQIKIGF2YWlsYWJsZQkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIFA3dobQUGYW1EaWZmCQBkAggFA2FjYwJfMwUGYW1EaWZmCAUDYWNjAl80AwkAZgIAAAkAZAIFA3dobQUIbmV3T3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQhuZXdPcmRBbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUDd2htAgogYXZhaWxhYmxlCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUDd2htBQhuZXdPcmRBbQkAZQIJAGUCCAUDYWNjAl8zBQhuZXdPcmRBbQUIY3VyT3JkQW0JAGUCCAUDYWNjAl80BQljdXJPcmRVc2QEAW0KAAIkbAUIbWF0UGFydHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCWCgQAAAUDbmlsCAUBcgJfMwgFAXICXzQKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBG9yZE0CBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDYJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYKAQRvcmRQAgNhY2MEaXRlbQQBaggFA2FjYwJfMQQJaXRlbVBhcnRzCQC1CQIFBGl0ZW0CAUADCQECIT0CCQCQAwEFCWl0ZW1QYXJ0cwACCQACAQIuSW5jb3JyZWN0IG9yZGVyIGZvcm1hdCwgc2hvdWxkIGJlIGFtb3VudEBwcmljZQQIbmV3T3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAAQIbmV3T3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlpdGVtUGFydHMAAQQJbmV3T3JkVXNkCQBrAwUIbmV3T3JkQW0FCG5ld09yZFByBQVNVUxUOAQDd2hwCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKY3VycldoUHJvZAUBagQLY3VyT3JkUGFydHMJALUJAgkAkQMCBQ5jdXJyZW50T3JkUHJvZAUBagIBQAQIY3VyT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQtjdXJPcmRQYXJ0cwAABAhjdXJPcmRQcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFC2N1ck9yZFBhcnRzAAEDCQBmAgAABQhjdXJPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAljdXJPcmRVc2QJAGsDBQhjdXJPcmRBbQUIY3VyT3JkUHIFBU1VTFQ4AwkAAAIFCG5ld09yZEFtAAADCQBmAgUIY3VyT3JkQW0AAAkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQUDd2hwCQBlAggFA2FjYwJfMwUIY3VyT3JkQW0JAGUCCAUDYWNjAl80BQljdXJPcmRVc2QJAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aHAFCGN1ck9yZEFtCQBkAggFA2FjYwJfMwUIY3VyT3JkQW0IBQNhY2MCXzQDCQBmAgUIbmV3T3JkQW0AAAMJAGYCAAAFCGN1ck9yZEFtBAZhbURpZmYJAGQCBQhuZXdPcmRBbQUIY3VyT3JkQW0JAJYKBAkAZAIFAWoAAQkAzQgCCAUDYWNjAl8yCQCkAwEJAGUCBQN3aHAFCGN1ck9yZEFtCQBkAggFA2FjYwJfMwUGYW1EaWZmCQBkAggFA2FjYwJfNAUJbmV3T3JkVXNkCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBBQN3aHAJAGUCCQBkAggFA2FjYwJfMwUIbmV3T3JkQW0FCGN1ck9yZEFtCQBlAgkAZAIIBQNhY2MCXzQFCW5ld09yZFVzZAUJY3VyT3JkVXNkAwkAZgIAAAUIY3VyT3JkQW0EBmFtRGlmZgkAZQIFCGN1ck9yZEFtBQhuZXdPcmRBbQMJAGYCAAAJAGUCBQN3aHAFBmFtRGlmZgkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byB0YWtlIAkApAMBBQZhbURpZmYCGiBmcm9tIHdhcmVob3VzZSwgYnV0IG9ubHkgCQCkAwEFA3docAIKIGF2YWlsYWJsZQkAlgoECQBkAgUBagABCQDNCAIIBQNhY2MCXzIJAKQDAQkAZQIFA3docAUGYW1EaWZmCQBkAggFA2FjYwJfMwUGYW1EaWZmCAUDYWNjAl8zAwkAZgIAAAkAZAIFA3docAUIbmV3T3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gdGFrZSAJAKQDAQkBAS0BBQhuZXdPcmRBbQIaIGZyb20gd2FyZWhvdXNlLCBidXQgb25seSAJAKQDAQUDd2hwAgogYXZhaWxhYmxlCQCWCgQJAGQCBQFqAAEJAM0IAggFA2FjYwJfMgkApAMBCQBkAgUDd2hwBQhuZXdPcmRBbQkAZQIJAGUCCAUDYWNjAl8zBQhuZXdPcmRBbQUIY3VyT3JkQW0JAGUCCAUDYWNjAl80BQljdXJPcmRVc2QEAXAKAAIkbAUJcHJvZFBhcnRzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlgoEAAAFA25pbAgFAW0CXzMIBQFtAl80CgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQRvcmRQAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYyXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMl8yAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIECHZvbFNhbGRvCAUBcAJfMwMJAGYCBQh2b2xTYWxkbwULd2hTcGFjZUxlZnQJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICE0F0dGVtcHQgdG8gcmVzZXJ2ZSAJAKQDAQUIdm9sU2FsZG8CESBzcGFjZSwgYnV0IG9ubHkgCQCkAwEFC3doU3BhY2VMZWZ0AhUgd2FyZWhvdXNlIHNwYWNlIGxlZnQEBXdoU3RyCQC6CQIJAMwIAgkAkQMCBQljdXJyZW50V2gFCHdoSWR4Vm9sCQDMCAIJALkJAggFAXICXzICAV8JAMwIAgkAuQkCCAUBbQJfMgIBXwkAzAgCCQC5CQIIBQFwAl8yAgFfCQDMCAIJAKQDAQUIdm9sU2FsZG8FA25pbAIBOgQGd2hTYXZlCQD8BwQFD3N0YWtpbmdDb250cmFjdAINc2F2ZVdhcmVob3VzZQkAzAgCBQV3aFN0cgkAzAgCBQtsYW5kQXNzZXRJZAUDbmlsBQNuaWwDCQAAAgUGd2hTYXZlBQZ3aFNhdmUECHVzZFNhbGRvCQBrAwgFAXACXzQJAGQCBQVNVUxUNgUKQVVDVElPTkZFRQUFTVVMVDYDCQBmAgUIdXNkU2FsZG8AAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIeV0FWRVMgY2FuJ3QgYmUgdXNlZCBhcyBwYXltZW50AwkBAiE9AgUKcG10QXNzZXRJZAULdXNkbkFzc2V0SWQJAAIBAhNVU0ROIHBheW1lbnRzIG9ubHkhAwkBAiE9AgUDYW10BQh1c2RTYWxkbwkAAgEJAKwCAgISUGF5bWVudCBuZWVkZWQgaXMgCQCkAwEFCHVzZFNhbGRvCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQUMY2FyZ29MaXN0U3RyBQNuaWwDCQAAAgUIdXNkU2FsZG8AAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECEk5vIHBheW1lbnRzIG5lZWRlZAkAzAgCCQELU3RyaW5nRW50cnkCBQZvcmRLZXkFDGNhcmdvTGlzdFN0cgUDbmlsAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBHVzZXIJAQEtAQUIdXNkU2FsZG8FC3VzZG5Bc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQUMY2FyZ29MaXN0U3RyBQNuaWwJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEUYWNjZXB0V2FyZWhvdXNlT3JkZXIDCmJwT3JkZXJTdHILbGFuZEFzc2V0SWQLZHVja0Fzc2V0SWQEBmNhbGxlcggFAWkMb3JpZ2luQ2FsbGVyBApjYWxsZXJBZGRyCQClCAEFBmNhbGxlcgQRc3Rha2VkRHVja0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARRrZXlTdGFrZWREdWNrQnlPd25lcgEFCmNhbGxlckFkZHICHFlvdSBkb24ndCBoYXZlIGEgZHVjayBzdGFrZWQEC2N1ckxvY2F0aW9uCQELdmFsdWVPckVsc2UCCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBD2tleUR1Y2tMb2NhdGlvbgEFEXN0YWtlZER1Y2tBc3NldElkBQ9ERUZBVUxUTE9DQVRJT04EA2xvYwkAtQkCCQEFdmFsdWUBBQtjdXJMb2NhdGlvbgIBXwMJAQIhPQIJAJEDAgUDbG9jBQpsb2NJZHhUeXBlAgFMCQACAQkArAICCQCsAgICFkR1Y2sgbG9jYXRpb24gdHlwZSBpcyAJAJEDAgUDbG9jBQpsb2NJZHhUeXBlAhEsIGJ1dCBzaG91bGQgYmUgTAMJAQIhPQIFEXN0YWtlZER1Y2tBc3NldElkBQtkdWNrQXNzZXRJZAkAAgEJAKwCAgkArAICCQCsAgICFFlvdXIgc3Rha2VkIGR1Y2sgaXMgBRFzdGFrZWREdWNrQXNzZXRJZAINLCBidXQgcGFzc2VkIAULZHVja0Fzc2V0SWQECWxhbmRBc3NldAkBBXZhbHVlAQkA7AcBCQDZBAEFC2xhbmRBc3NldElkAwkBASEBCQEJaXNEZWZpbmVkAQkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRUaW1lQnlBc3NldElkAQULbGFuZEFzc2V0SWQJAAIBCQCsAgIJAKwCAgIETkZUIAgFCWxhbmRBc3NldARuYW1lAg4gaXMgbm90IHN0YWtlZAQJbGFuZE93bmVyCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQEVa2V5TGFuZEFzc2V0SWRUb093bmVyAQULbGFuZEFzc2V0SWQJAKwCAgkArAICAgRORlQgCAUJbGFuZEFzc2V0BG5hbWUCDCBpcyBvcnBoYW5lZAMJAAACBQlsYW5kT3duZXIFCmNhbGxlckFkZHIJAAIBAh5Zb3UgY2Fubm90IHRyYWRlIHdpdGggeW91cnNlbGYEDGJwT3JkZXJQYXJ0cwkAvAkCBQpicE9yZGVyU3RyAgE6AwkBAiE9AgkAkAMBBQxicE9yZGVyUGFydHMAAwkAAgECMmJwT3JkZXJTdHIgc2hvdWxkIGNvbnRhaW4gZXhhY3RseSAyICc6JyBzZXBhcmF0b3JzBAhicE9yZFJlcwkAtQkCCQCRAwIFDGJwT3JkZXJQYXJ0cwAAAgFfBAhicE9yZE1hdAkAtQkCCQCRAwIFDGJwT3JkZXJQYXJ0cwABAgFfBAlicE9yZFByb2QDCQAAAgkAkQMCBQxicE9yZGVyUGFydHMAAgIABQNuaWwJALUJAgkAkQMCBQxicE9yZGVyUGFydHMAAgIBXwMJAQIhPQIJAJADAQUIYnBPcmRSZXMFBk5VTVJFUwkAAgECIEFsbCA2IHJlc291cmNlcyBzaG91bGQgYmUgcGFzc2VkAwkBAiE9AgkAkAMBBQhicE9yZE1hdAUGTlVNUkVTCQACAQIgQWxsIDYgbWF0ZXJpYWxzIHNob3VsZCBiZSBwYXNzZWQEAndoCQEIYXNTdHJpbmcBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIUZ2V0V2FyZWhvdXNlUkVBRE9OTFkJAMwIAgULbGFuZEFzc2V0SWQFA25pbAUDbmlsBAljdXJyZW50V2gJALwJAgUCd2gCAToECWN1cnJXaFJlcwkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhSZXMCAV8ECWN1cnJXaE1hdAkAtQkCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhNYXQCAV8ECmN1cnJXaFByb2QDCQAAAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIABQNuaWwJALUJAgkAkQMCBQljdXJyZW50V2gFCXdoSWR4UHJvZAIBXwQMY3VycldoUmVzVm9sCQEZZ2V0V2FyZWhvdXNlQ3VyclJlc1ZvbHVtZQEFCWN1cnJlbnRXaAQMY3VycldoTWF0Vm9sCQEZZ2V0V2FyZWhvdXNlQ3Vyck1hdFZvbHVtZQEFCWN1cnJlbnRXaAQOY3VycldoR29vZHNWb2wJARtnZXRXYXJlaG91c2VDdXJyR29vZHNWb2x1bWUBBQljdXJyZW50V2gED2N1cnJXaExvY2tlZFZvbAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWN1cnJlbnRXaAUOd2hJZHhMb2NrZWRWb2wEC3doU3BhY2VMZWZ0CQBlAgkAZQIJAGUCCQBlAgkBEmdldFdhcmVob3VzZVZvbHVtZQEJAJEDAgUJY3VycmVudFdoBQh3aElkeFZvbAUMY3VycldoUmVzVm9sBQxjdXJyV2hNYXRWb2wFDmN1cnJXaEdvb2RzVm9sBQ9jdXJyV2hMb2NrZWRWb2wEBWJwS2V5CQERa2V5QmFja3BhY2tCeUR1Y2sBBQtkdWNrQXNzZXRJZAQLY3VycmVudFBhY2sJAQtnZXRCYWNrcGFjawEFBWJwS2V5BAlicFJlc0xpc3QJALUJAgkAkQMCBQtjdXJyZW50UGFjawUIYnBJZHhSZXMCAV8ECWJwTWF0TGlzdAkAtQkCCQCRAwIFC2N1cnJlbnRQYWNrBQhicElkeE1hdAIBXwQKYnBQcm9kTGlzdAMJAAACCQCRAwIFC2N1cnJlbnRQYWNrBQlicElkeFByb2QCAAUDbmlsCQC1CQIJAJEDAgULY3VycmVudFBhY2sFCWJwSWR4UHJvZAIBXwQGb3JkS2V5CQEOa2V5T3JkZXJCeUxhbmQBBQtsYW5kQXNzZXRJZAQFd2hPcmQJAQhnZXRPcmRlcgEFBm9yZEtleQQId2hPcmRSZXMJALUJAgkAkQMCBQV3aE9yZAUJb3JkSWR4UmVzAgFfBAh3aE9yZE1hdAkAtQkCCQCRAwIFBXdoT3JkBQlvcmRJZHhNYXQCAV8ECXdoT3JkUHJvZAMJAAACCQCRAwIFBXdoT3JkBQpvcmRJZHhQcm9kAgAFA25pbAkAtQkCCQCRAwIFBXdoT3JkBQpvcmRJZHhQcm9kAgFfBA11c2RuTmVlZDJMb2NrAAAKAQRvcmRSAgNhY2MBagQNYnBPcmRSZXNQYXJ0cwkAtQkCCQCRAwIFCGJwT3JkUmVzBQFqAgFAAwkBAiE9AgkAkAMBBQ1icE9yZFJlc1BhcnRzAAIJAAIBAi5JbmNvcnJlY3Qgb3JkZXIgZm9ybWF0LCBzaG91bGQgYmUgYW1vdW50QHByaWNlBAdicE9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUNYnBPcmRSZXNQYXJ0cwAABAdicE9yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUNYnBPcmRSZXNQYXJ0cwABAwkAZgIAAAUHYnBPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAhicE9yZFVzZAkAawMFB2JwT3JkQW0FB2JwT3JkUHIFBU1VTFQ4BANicHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQlicFJlc0xpc3QFAWoEA3docgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWN1cnJXaFJlcwUBagQKd2hPcmRQYXJ0cwkAtQkCCQCRAwIFCHdoT3JkUmVzBQFqAgFABAd3aE9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKd2hPcmRQYXJ0cwAABAd3aE9yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKd2hPcmRQYXJ0cwABAwkBAiE9AgUHYnBPcmRQcgUHd2hPcmRQcgkAAgEJAKwCAgkArAICAgpQcmljZXMgb2YgCQCRAwIFCHJlc1R5cGVzBQFqAgwgZG9uJ3QgbWF0Y2gECHdoT3JkVXNkCQBrAwUHd2hPcmRBbQUHd2hPcmRQcgUFTVVMVDgDCQAAAgUHYnBPcmRBbQAACQCYCgYJAM0IAggFA2FjYwJfMQkAkQMCBQljdXJyV2hSZXMFAWoJAM0IAggFA2FjYwJfMgkAkQMCBQh3aE9yZFJlcwUBagkAzQgCCAUDYWNjAl8zCQCRAwIFCWJwUmVzTGlzdAUBaggFA2FjYwJfNAgFA2FjYwJfNQgFA2FjYwJfNgMJAGYCBQdicE9yZEFtAAADCQBmAgAABQd3aE9yZEFtAwkAZgIFB2JwT3JkQW0JAQEtAQUHd2hPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAg9BdHRlbXB0IHRvIGJ1eSAJAKQDAQUHYnBPcmRBbQIEIG9mIAkAkQMCBQhyZXNUeXBlcwUBagIbLCBidXQgd2FyZWhvdXNlIG9ubHkgc2VsbHMgCQCkAwEJAQEtAQUHd2hPcmRBbQkAmAoGCQDNCAIIBQNhY2MCXzEJAJEDAgUJY3VycldoUmVzBQFqCQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwkApAMBCQBkAgUDYnByBQdicE9yZEFtCQBkAggFA2FjYwJfNAUHYnBPcmRBbQgFA2FjYwJfNQkAZAIIBQNhY2MCXzYFCGJwT3JkVXNkCQACAQkArAICCQCsAgICD0F0dGVtcHQgdG8gYnV5IAkAkQMCBQhyZXNUeXBlcwUBagIgIHdoaWxlIHdhcmVob3VzZSBkb2Vzbid0IHNlbGwgaXQDCQBmAgUHd2hPcmRBbQAAAwkAZgIJAQEtAQUHYnBPcmRBbQUHd2hPcmRBbQkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCkAwEJAQEtAQUHYnBPcmRBbQIEIG9mIAkAkQMCBQhyZXNUeXBlcwUBagIaLCBidXQgd2FyZWhvdXNlIG9ubHkgYnV5cyAJAKQDAQUHd2hPcmRBbQMJAGYCCQEBLQEFB2JwT3JkQW0FA2JwcgkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCkAwEJAQEtAQUHYnBPcmRBbQIULCBidXQgeW91IG9ubHkgaGF2ZSAJAJEDAgUJYnBSZXNMaXN0BQFqAgQgb2YgCQCRAwIFCHJlc1R5cGVzBQFqCQCYCgYJAM0IAggFA2FjYwJfMQkApAMBCQBlAgUDd2hyBQdicE9yZEFtCQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwIBMAkAZQIIBQNhY2MCXzQFB2JwT3JkQW0JAGUCCAUDYWNjAl81BQhicE9yZFVzZAgFA2FjYwJfNgkAAgEJAKwCAgkArAICAhBBdHRlbXB0IHRvIHNlbGwgCQCRAwIFCHJlc1R5cGVzBQFqAh8gd2hpbGUgd2FyZWhvdXNlIGRvZXNuJ3QgYnV5IGl0BAFyCgACJGwJAMwIAgAACQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJgKBgUDbmlsBQNuaWwFA25pbAAAAAAAAAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEEb3JkUgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgoBBG9yZE0CA2FjYwFqBA1icE9yZE1hdFBhcnRzCQC1CQIJAJEDAgUIYnBPcmRNYXQFAWoCAUADCQECIT0CCQCQAwEFDWJwT3JkTWF0UGFydHMAAgkAAgECLkluY29ycmVjdCBvcmRlciBmb3JtYXQsIHNob3VsZCBiZSBhbW91bnRAcHJpY2UEB2JwT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ1icE9yZE1hdFBhcnRzAAAEB2JwT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ1icE9yZE1hdFBhcnRzAAEDCQBmAgAABQdicE9yZFByCQACAQIXUHJpY2UgY2FuJ3QgYmUgbmVnYXRpdmUECGJwT3JkVXNkCQBrAwUHYnBPcmRBbQUHYnBPcmRQcgUFTVVMVDgEA2JwcgkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCWJwTWF0TGlzdAUBagQDd2hyCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUJY3VycldoTWF0BQFqBAp3aE9yZFBhcnRzCQC1CQIJAJEDAgUId2hPcmRNYXQFAWoCAUAEB3doT3JkQW0JAQ1wYXJzZUludFZhbHVlAQkAkQMCBQp3aE9yZFBhcnRzAAAEB3doT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQp3aE9yZFBhcnRzAAEDCQECIT0CBQdicE9yZFByBQd3aE9yZFByCQACAQkArAICCQCsAgICClByaWNlcyBvZiAJAJEDAgUIbWF0VHlwZXMFAWoCDCBkb24ndCBtYXRjaAQId2hPcmRVc2QJAGsDBQd3aE9yZEFtBQd3aE9yZFByBQVNVUxUOAMJAAACBQdicE9yZEFtAAAJAJgKBgkAzQgCCAUDYWNjAl8xCQCRAwIFCWN1cnJXaE1hdAUBagkAzQgCCAUDYWNjAl8yCQCRAwIFCHdoT3JkTWF0BQFqCQDNCAIIBQNhY2MCXzMJAJEDAgUJYnBNYXRMaXN0BQFqCAUDYWNjAl80CAUDYWNjAl81CAUDYWNjAl82AwkAZgIFB2JwT3JkQW0AAAMJAGYCAAAFB3doT3JkQW0DCQBmAgUHYnBPcmRBbQkBAS0BBQd3aE9yZEFtCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICD0F0dGVtcHQgdG8gYnV5IAkApAMBBQdicE9yZEFtAgQgb2YgCQCRAwIFCG1hdFR5cGVzBQFqAhssIGJ1dCB3YXJlaG91c2Ugb25seSBzZWxscyAJAKQDAQkBAS0BBQd3aE9yZEFtCQCYCgYJAM0IAggFA2FjYwJfMQkAkQMCBQljdXJyV2hNYXQFAWoJAM0IAggFA2FjYwJfMgkArAICCQCsAgIJAKQDAQkAZAIFB3doT3JkQW0FB2JwT3JkQW0CAUAJAKQDAQUHd2hPcmRQcgkAzQgCCAUDYWNjAl8zCQCkAwEJAGQCBQNicHIFB2JwT3JkQW0JAGQCCAUDYWNjAl80BQdicE9yZEFtCAUDYWNjAl81CQBkAggFA2FjYwJfNgUIYnBPcmRVc2QJAAIBCQCsAgIJAKwCAgIPQXR0ZW1wdCB0byBidXkgCQCRAwIFCG1hdFR5cGVzBQFqAiAgd2hpbGUgd2FyZWhvdXNlIGRvZXNuJ3Qgc2VsbCBpdAMJAGYCBQd3aE9yZEFtAAADCQBmAgkBAS0BBQdicE9yZEFtBQd3aE9yZEFtCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAKQDAQkBAS0BBQdicE9yZEFtAgQgb2YgCQCRAwIFCG1hdFR5cGVzBQFqAhosIGJ1dCB3YXJlaG91c2Ugb25seSBidXlzIAkApAMBBQd3aE9yZEFtAwkAZgIJAQEtAQUHYnBPcmRBbQUDYnByCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAKQDAQkBAS0BBQdicE9yZEFtAhQsIGJ1dCB5b3Ugb25seSBoYXZlIAkAkQMCBQlicE1hdExpc3QFAWoCBCBvZiAJAJEDAgUIbWF0VHlwZXMFAWoJAJgKBgkAzQgCCAUDYWNjAl8xCQCkAwEJAGUCBQN3aHIFB2JwT3JkQW0JAM0IAggFA2FjYwJfMgkArAICCQCsAgIJAKQDAQkAZAIFB3doT3JkQW0FB2JwT3JkQW0CAUAJAKQDAQUHd2hPcmRQcgkAzQgCCAUDYWNjAl8zAgEwCQBlAggFA2FjYwJfNAUHYnBPcmRBbQkAZQIIBQNhY2MCXzUFCGJwT3JkVXNkCAUDYWNjAl82CQACAQkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAJEDAgUIbWF0VHlwZXMFAWoCHyB3aGlsZSB3YXJlaG91c2UgZG9lc24ndCBidXkgaXQEAW0KAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAmAoGBQNuaWwFA25pbAUDbmlsCAUBcgJfNAgFAXICXzUIBQFyAl82CgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQRvcmRNAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYxXzICCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECCQEFJGYxXzECBQUkYWNjMAAAAAEAAgADAAQABQAGCgEEb3JkUAIDYWNjAWoEDmJwT3JkUHJvZFBhcnRzCQC1CQIJAJEDAgUJYnBPcmRQcm9kBQFqAgFAAwkBAiE9AgkAkAMBBQ5icE9yZFByb2RQYXJ0cwACCQACAQIuSW5jb3JyZWN0IG9yZGVyIGZvcm1hdCwgc2hvdWxkIGJlIGFtb3VudEBwcmljZQQHYnBPcmRBbQkBDXBhcnNlSW50VmFsdWUBCQCRAwIFDmJwT3JkUHJvZFBhcnRzAAAEB2JwT3JkUHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQ5icE9yZFByb2RQYXJ0cwABAwkAZgIAAAUHYnBPcmRQcgkAAgECF1ByaWNlIGNhbid0IGJlIG5lZ2F0aXZlBAhicE9yZFVzZAkAawMFB2JwT3JkQW0FB2JwT3JkUHIFBU1VTFQ4BANicHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpicFByb2RMaXN0BQFqBAN3aHIJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQpjdXJyV2hQcm9kBQFqBAp3aE9yZFBhcnRzCQC1CQIJAJEDAgUJd2hPcmRQcm9kBQFqAgFABAd3aE9yZEFtCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKd2hPcmRQYXJ0cwAABAd3aE9yZFByCQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUKd2hPcmRQYXJ0cwABAwkBAiE9AgUHYnBPcmRQcgUHd2hPcmRQcgkAAgEJAKwCAgkArAICAgpQcmljZXMgb2YgCQCRAwIFCXByb2RUeXBlcwUBagIMIGRvbid0IG1hdGNoBAh3aE9yZFVzZAkAawMFB3doT3JkQW0FB3doT3JkUHIFBU1VTFQ4AwkAAAIFB2JwT3JkQW0AAAkAmAoGCQDNCAIIBQNhY2MCXzEJAJEDAgUKY3VycldoUHJvZAUBagkAzQgCCAUDYWNjAl8yCQCRAwIFCXdoT3JkUHJvZAUBagkAzQgCCAUDYWNjAl8zCQCRAwIFCmJwUHJvZExpc3QFAWoIBQNhY2MCXzQIBQNhY2MCXzUIBQNhY2MCXzYDCQBmAgUHYnBPcmRBbQAAAwkAZgIAAAUHd2hPcmRBbQMJAGYCBQdicE9yZEFtCQEBLQEFB3doT3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIPQXR0ZW1wdCB0byBidXkgCQCkAwEFB2JwT3JkQW0CBCBvZiAJAJEDAgUJcHJvZFR5cGVzBQFqAhssIGJ1dCB3YXJlaG91c2Ugb25seSBzZWxscyAJAKQDAQkBAS0BBQd3aE9yZEFtCQCYCgYJAM0IAggFA2FjYwJfMQkAkQMCBQpjdXJyV2hQcm9kBQFqCQDNCAIIBQNhY2MCXzIJAKwCAgkArAICCQCkAwEJAGQCBQd3aE9yZEFtBQdicE9yZEFtAgFACQCkAwEFB3doT3JkUHIJAM0IAggFA2FjYwJfMwkApAMBCQBkAgUDYnByBQdicE9yZEFtCQBkAggFA2FjYwJfNAUHYnBPcmRBbQgFA2FjYwJfNQkAZAIIBQNhY2MCXzYFCGJwT3JkVXNkCQACAQkArAICCQCsAgICD0F0dGVtcHQgdG8gYnV5IAkAkQMCBQlwcm9kVHlwZXMFAWoCICB3aGlsZSB3YXJlaG91c2UgZG9lc24ndCBzZWxsIGl0AwkAZgIFB3doT3JkQW0AAAMJAGYCCQEBLQEFB2JwT3JkQW0FB3doT3JkQW0JAAIBCQCsAgIJAKwCAgkArAICCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byBzZWxsIAkApAMBCQEBLQEFB2JwT3JkQW0CBCBvZiAJAJEDAgUJcHJvZFR5cGVzBQFqAhosIGJ1dCB3YXJlaG91c2Ugb25seSBidXlzIAkApAMBBQd3aE9yZEFtAwkAZgIJAQEtAQUHYnBPcmRBbQUDYnByCQACAQkArAICCQCsAgIJAKwCAgkArAICCQCsAgICEEF0dGVtcHQgdG8gc2VsbCAJAKQDAQkBAS0BBQdicE9yZEFtAhQsIGJ1dCB5b3Ugb25seSBoYXZlIAkAkQMCBQpicFByb2RMaXN0BQFqAgQgb2YgCQCRAwIFCXByb2RUeXBlcwUBagkAmAoGCQDNCAIIBQNhY2MCXzEJAKQDAQkAZQIFA3docgUHYnBPcmRBbQkAzQgCCAUDYWNjAl8yCQCsAgIJAKwCAgkApAMBCQBkAgUHd2hPcmRBbQUHYnBPcmRBbQIBQAkApAMBBQd3aE9yZFByCQDNCAIIBQNhY2MCXzMCATAJAGUCCAUDYWNjAl80BQdicE9yZEFtCQBlAggFA2FjYwJfNQUIYnBPcmRVc2QIBQNhY2MCXzYJAAIBCQCsAgIJAKwCAgIQQXR0ZW1wdCB0byBzZWxsIAkAkQMCBQlwcm9kVHlwZXMFAWoCHyB3aGlsZSB3YXJlaG91c2UgZG9lc24ndCBidXkgaXQEAXAKAAIkbAkAzAgCAAAJAMwIAgABCQDMCAIAAgkAzAgCAAMJAMwIAgAECQDMCAIABQUDbmlsCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAmAoGBQNuaWwFA25pbAUDbmlsCAUBbQJfNAgFAW0CXzUIBQFtAl82CgEFJGYyXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQRvcmRQAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYyXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMl8yAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgkBBSRmMl8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIECHZvbFNhbGRvCAUBcAJfNAQFd2hTdHIJALoJAgkAzAgCCQCRAwIFCWN1cnJlbnRXaAUId2hJZHhWb2wJAMwIAgkAuQkCCAUBcgJfMQIBXwkAzAgCCQC5CQIIBQFtAl8xAgFfCQDMCAIJALkJAggFAXACXzECAV8JAMwIAgkApAMBBQh2b2xTYWxkbwUDbmlsAgE6BAtuZXdXaE9yZFN0cgkAugkCCQDMCAIJALkJAggFAXICXzICAV8JAMwIAgkAuQkCCAUBbQJfMgIBXwkAzAgCCQC5CQIIBQFwAl8yAgFfBQNuaWwCAToECG5ld0JwU3RyCQC6CQIJAMwIAgkAkQMCBQtjdXJyZW50UGFjawUKYnBJZHhMZXZlbAkAzAgCCQC5CQIIBQFyAl8zAgFfCQDMCAIJALkJAggFAW0CXzMCAV8JAMwIAgkAuQkCCAUBcAJfMwIBXwUDbmlsAgE6BAZ3aFNhdmUJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag1zYXZlV2FyZWhvdXNlCQDMCAIFBXdoU3RyCQDMCAIFC2xhbmRBc3NldElkBQNuaWwFA25pbAMJAAACBQZ3aFNhdmUFBndoU2F2ZQQGYnBTYXZlCQD8BwQFD3N0YWtpbmdDb250cmFjdAIOdXBkYXRlQmFja3BhY2sJAMwIAgULZHVja0Fzc2V0SWQJAMwIAgUIbmV3QnBTdHIFA25pbAUDbmlsAwkAAAIFBmJwU2F2ZQUGYnBTYXZlBAdhY3Rpb25zCQDMCAIJAQtTdHJpbmdFbnRyeQIFBm9yZEtleQULbmV3V2hPcmRTdHIFA25pbAQNdXNkV2gyQnBTYWxkbwkAawMIBQFwAl81CQBkAgUFTVVMVDYFCkFVQ1RJT05GRUUFBU1VTFQ2BAhhY3Rpb25zMQMJAGYCBQ11c2RXaDJCcFNhbGRvAAAJAM0IAgUHYWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyCAUBcAJfNQULdXNkbkFzc2V0SWQFB2FjdGlvbnMEDXVzZEJwMldoU2FsZG8JAGsDCAUBcAJfNgkAZAIFBU1VTFQ2BQpBVUNUSU9ORkVFBQVNVUxUNgMJAGYCBQ11c2RCcDJXaFNhbGRvAAADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQDYW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZG5Bc3NldElkCQACAQITVVNETiBwYXltZW50cyBvbmx5IQMJAQIhPQIFA2FtdAUNdXNkQnAyV2hTYWxkbwkAAgEJAKwCAgISUGF5bWVudCBuZWVkZWQgaXMgCQCkAwEFDXVzZEJwMldoU2FsZG8JAM0IAgUIYWN0aW9uczEJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEFCWxhbmRPd25lcggFAXACXzYFC3VzZG5Bc3NldElkAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQISTm8gcGF5bWVudHMgbmVlZGVkBQhhY3Rpb25zMQkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgDXv7F6", "height": 2516855, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: 4e8CR9WsTCjwR4wM8UyPBvpwYLBEq5MrNrvcJvRQfU4h Next: 5mVjATuTepdb2fK1y43A8WMVy8WQp5MQvCGoSMjjt1Jo Diff:
| Old | New | Differences | |
|---|---|---|---|
| 79 | 79 | ||
| 80 | 80 | let WHMULTIPLIER = 10000000000 | |
| 81 | 81 | ||
| 82 | + | let AUCTIONFEE = 10000 | |
| 83 | + | ||
| 82 | 84 | let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"] | |
| 83 | 85 | ||
| 84 | 86 | let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"] | |
| 87 | + | ||
| 88 | + | let prodTypes = ["First Aid Kit", "Backpack", "Food Ration", "Jet Pack", "Radar"] | |
| 85 | 89 | ||
| 86 | 90 | let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"] | |
| 87 | 91 | ||
| 670 | 674 | let curOrdParts = split(currentOrdRes[j], "@") | |
| 671 | 675 | let curOrdAm = parseIntValue(curOrdParts[0]) | |
| 672 | 676 | let curOrdPr = parseIntValue(curOrdParts[1]) | |
| 673 | - | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 674 | - | if ((newOrdAm == 0)) | |
| 675 | - | then if ((curOrdAm > 0)) | |
| 676 | - | then $Tuple4((j + 1), (acc._2 :+ toString(whr)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 677 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 678 | - | else if ((newOrdAm > 0)) | |
| 679 | - | then if ((0 > curOrdAm)) | |
| 680 | - | then { | |
| 681 | - | let amDiff = (newOrdAm + curOrdAm) | |
| 682 | - | $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 683 | - | } | |
| 684 | - | else $Tuple4((j + 1), (acc._2 :+ toString(whr)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 685 | - | else if ((0 > curOrdAm)) | |
| 686 | - | then { | |
| 687 | - | let amDiff = (curOrdAm - newOrdAm) | |
| 688 | - | if ((0 > (whr - amDiff))) | |
| 689 | - | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whr)) + " available")) | |
| 690 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whr - amDiff))), (acc._3 + amDiff), acc._4) | |
| 691 | - | } | |
| 692 | - | else if ((0 > (whr + newOrdAm))) | |
| 693 | - | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whr)) + " available")) | |
| 694 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whr + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 677 | + | if ((0 > curOrdPr)) | |
| 678 | + | then throw("Price can't be negative") | |
| 679 | + | else { | |
| 680 | + | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 681 | + | if ((newOrdAm == 0)) | |
| 682 | + | then if ((curOrdAm > 0)) | |
| 683 | + | then $Tuple4((j + 1), (acc._2 :+ toString(whr)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 684 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 685 | + | else if ((newOrdAm > 0)) | |
| 686 | + | then if ((0 > curOrdAm)) | |
| 687 | + | then { | |
| 688 | + | let amDiff = (newOrdAm + curOrdAm) | |
| 689 | + | $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 690 | + | } | |
| 691 | + | else $Tuple4((j + 1), (acc._2 :+ toString(whr)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 692 | + | else if ((0 > curOrdAm)) | |
| 693 | + | then { | |
| 694 | + | let amDiff = (curOrdAm - newOrdAm) | |
| 695 | + | if ((0 > (whr - amDiff))) | |
| 696 | + | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whr)) + " available")) | |
| 697 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whr - amDiff))), (acc._3 + amDiff), acc._4) | |
| 698 | + | } | |
| 699 | + | else if ((0 > (whr + newOrdAm))) | |
| 700 | + | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whr)) + " available")) | |
| 701 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whr + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 702 | + | } | |
| 695 | 703 | } | |
| 696 | 704 | } | |
| 697 | 705 | ||
| 722 | 730 | let curOrdParts = split(currentOrdMat[j], "@") | |
| 723 | 731 | let curOrdAm = parseIntValue(curOrdParts[0]) | |
| 724 | 732 | let curOrdPr = parseIntValue(curOrdParts[1]) | |
| 725 | - | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 726 | - | if ((newOrdAm == 0)) | |
| 727 | - | then if ((curOrdAm > 0)) | |
| 728 | - | then $Tuple4((j + 1), (acc._2 :+ toString(whm)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 729 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 730 | - | else if ((newOrdAm > 0)) | |
| 731 | - | then if ((0 > curOrdAm)) | |
| 732 | - | then { | |
| 733 | - | let amDiff = (newOrdAm + curOrdAm) | |
| 734 | - | $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 735 | - | } | |
| 736 | - | else $Tuple4((j + 1), (acc._2 :+ toString(whm)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 737 | - | else if ((0 > curOrdAm)) | |
| 738 | - | then { | |
| 739 | - | let amDiff = (curOrdAm - newOrdAm) | |
| 740 | - | if ((0 > (whm - amDiff))) | |
| 741 | - | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whm)) + " available")) | |
| 742 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whm - amDiff))), (acc._3 + amDiff), acc._4) | |
| 743 | - | } | |
| 744 | - | else if ((0 > (whm + newOrdAm))) | |
| 745 | - | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whm)) + " available")) | |
| 746 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whm + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 733 | + | if ((0 > curOrdPr)) | |
| 734 | + | then throw("Price can't be negative") | |
| 735 | + | else { | |
| 736 | + | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 737 | + | if ((newOrdAm == 0)) | |
| 738 | + | then if ((curOrdAm > 0)) | |
| 739 | + | then $Tuple4((j + 1), (acc._2 :+ toString(whm)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 740 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 741 | + | else if ((newOrdAm > 0)) | |
| 742 | + | then if ((0 > curOrdAm)) | |
| 743 | + | then { | |
| 744 | + | let amDiff = (newOrdAm + curOrdAm) | |
| 745 | + | $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 746 | + | } | |
| 747 | + | else $Tuple4((j + 1), (acc._2 :+ toString(whm)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 748 | + | else if ((0 > curOrdAm)) | |
| 749 | + | then { | |
| 750 | + | let amDiff = (curOrdAm - newOrdAm) | |
| 751 | + | if ((0 > (whm - amDiff))) | |
| 752 | + | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whm)) + " available")) | |
| 753 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whm - amDiff))), (acc._3 + amDiff), acc._4) | |
| 754 | + | } | |
| 755 | + | else if ((0 > (whm + newOrdAm))) | |
| 756 | + | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whm)) + " available")) | |
| 757 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whm + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 758 | + | } | |
| 747 | 759 | } | |
| 748 | 760 | } | |
| 749 | 761 | ||
| 774 | 786 | let curOrdParts = split(currentOrdProd[j], "@") | |
| 775 | 787 | let curOrdAm = parseIntValue(curOrdParts[0]) | |
| 776 | 788 | let curOrdPr = parseIntValue(curOrdParts[1]) | |
| 777 | - | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 778 | - | if ((newOrdAm == 0)) | |
| 779 | - | then if ((curOrdAm > 0)) | |
| 780 | - | then $Tuple4((j + 1), (acc._2 :+ toString(whp)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 781 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 782 | - | else if ((newOrdAm > 0)) | |
| 783 | - | then if ((0 > curOrdAm)) | |
| 784 | - | then { | |
| 785 | - | let amDiff = (newOrdAm + curOrdAm) | |
| 786 | - | $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 787 | - | } | |
| 788 | - | else $Tuple4((j + 1), (acc._2 :+ toString(whp)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 789 | - | else if ((0 > curOrdAm)) | |
| 790 | - | then { | |
| 791 | - | let amDiff = (curOrdAm - newOrdAm) | |
| 792 | - | if ((0 > (whp - amDiff))) | |
| 793 | - | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whp)) + " available")) | |
| 794 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whp - amDiff))), (acc._3 + amDiff), acc._3) | |
| 795 | - | } | |
| 796 | - | else if ((0 > (whp + newOrdAm))) | |
| 797 | - | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whp)) + " available")) | |
| 798 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whp + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 789 | + | if ((0 > curOrdPr)) | |
| 790 | + | then throw("Price can't be negative") | |
| 791 | + | else { | |
| 792 | + | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 793 | + | if ((newOrdAm == 0)) | |
| 794 | + | then if ((curOrdAm > 0)) | |
| 795 | + | then $Tuple4((j + 1), (acc._2 :+ toString(whp)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 796 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 797 | + | else if ((newOrdAm > 0)) | |
| 798 | + | then if ((0 > curOrdAm)) | |
| 799 | + | then { | |
| 800 | + | let amDiff = (newOrdAm + curOrdAm) | |
| 801 | + | $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 802 | + | } | |
| 803 | + | else $Tuple4((j + 1), (acc._2 :+ toString(whp)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 804 | + | else if ((0 > curOrdAm)) | |
| 805 | + | then { | |
| 806 | + | let amDiff = (curOrdAm - newOrdAm) | |
| 807 | + | if ((0 > (whp - amDiff))) | |
| 808 | + | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whp)) + " available")) | |
| 809 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whp - amDiff))), (acc._3 + amDiff), acc._3) | |
| 810 | + | } | |
| 811 | + | else if ((0 > (whp + newOrdAm))) | |
| 812 | + | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whp)) + " available")) | |
| 813 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whp + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 814 | + | } | |
| 799 | 815 | } | |
| 800 | 816 | } | |
| 801 | 817 | ||
| 821 | 837 | let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil) | |
| 822 | 838 | if ((whSave == whSave)) | |
| 823 | 839 | then { | |
| 824 | - | let usdSaldo = p._4 | |
| 840 | + | let usdSaldo = fraction(p._4, (MULT6 + AUCTIONFEE), MULT6) | |
| 825 | 841 | if ((usdSaldo > 0)) | |
| 826 | 842 | then if ((size(i.payments) != 1)) | |
| 827 | 843 | then throw("exactly 1 payment must be attached") | |
| 852 | 868 | } | |
| 853 | 869 | ||
| 854 | 870 | ||
| 871 | + | ||
| 872 | + | @Callable(i) | |
| 873 | + | func acceptWarehouseOrder (bpOrderStr,landAssetId,duckAssetId) = { | |
| 874 | + | let caller = i.originCaller | |
| 875 | + | let callerAddr = toString(caller) | |
| 876 | + | let stakedDuckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked") | |
| 877 | + | let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(stakedDuckAssetId)), DEFAULTLOCATION) | |
| 878 | + | let loc = split(value(curLocation), "_") | |
| 879 | + | if ((loc[locIdxType] != "L")) | |
| 880 | + | then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L")) | |
| 881 | + | else if ((stakedDuckAssetId != duckAssetId)) | |
| 882 | + | then throw(((("Your staked duck is " + stakedDuckAssetId) + ", but passed ") + duckAssetId)) | |
| 883 | + | else { | |
| 884 | + | let landAsset = value(assetInfo(fromBase58String(landAssetId))) | |
| 885 | + | if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId))))) | |
| 886 | + | then throw((("NFT " + landAsset.name) + " is not staked")) | |
| 887 | + | else { | |
| 888 | + | let landOwner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + landAsset.name) + " is orphaned")) | |
| 889 | + | if ((landOwner == callerAddr)) | |
| 890 | + | then throw("You cannot trade with yourself") | |
| 891 | + | else { | |
| 892 | + | let bpOrderParts = split_4C(bpOrderStr, ":") | |
| 893 | + | if ((size(bpOrderParts) != 3)) | |
| 894 | + | then throw("bpOrderStr should contain exactly 2 ':' separators") | |
| 895 | + | else { | |
| 896 | + | let bpOrdRes = split(bpOrderParts[0], "_") | |
| 897 | + | let bpOrdMat = split(bpOrderParts[1], "_") | |
| 898 | + | let bpOrdProd = if ((bpOrderParts[2] == "")) | |
| 899 | + | then nil | |
| 900 | + | else split(bpOrderParts[2], "_") | |
| 901 | + | if ((size(bpOrdRes) != NUMRES)) | |
| 902 | + | then throw("All 6 resources should be passed") | |
| 903 | + | else if ((size(bpOrdMat) != NUMRES)) | |
| 904 | + | then throw("All 6 materials should be passed") | |
| 905 | + | else { | |
| 906 | + | let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil)) | |
| 907 | + | let currentWh = split_4C(wh, ":") | |
| 908 | + | let currWhRes = split(currentWh[whIdxRes], "_") | |
| 909 | + | let currWhMat = split(currentWh[whIdxMat], "_") | |
| 910 | + | let currWhProd = if ((currentWh[whIdxProd] == "")) | |
| 911 | + | then nil | |
| 912 | + | else split(currentWh[whIdxProd], "_") | |
| 913 | + | let currWhResVol = getWarehouseCurrResVolume(currentWh) | |
| 914 | + | let currWhMatVol = getWarehouseCurrMatVolume(currentWh) | |
| 915 | + | let currWhGoodsVol = getWarehouseCurrGoodsVolume(currentWh) | |
| 916 | + | let currWhLockedVol = parseIntValue(currentWh[whIdxLockedVol]) | |
| 917 | + | let whSpaceLeft = ((((getWarehouseVolume(currentWh[whIdxVol]) - currWhResVol) - currWhMatVol) - currWhGoodsVol) - currWhLockedVol) | |
| 918 | + | let bpKey = keyBackpackByDuck(duckAssetId) | |
| 919 | + | let currentPack = getBackpack(bpKey) | |
| 920 | + | let bpResList = split(currentPack[bpIdxRes], "_") | |
| 921 | + | let bpMatList = split(currentPack[bpIdxMat], "_") | |
| 922 | + | let bpProdList = if ((currentPack[bpIdxProd] == "")) | |
| 923 | + | then nil | |
| 924 | + | else split(currentPack[bpIdxProd], "_") | |
| 925 | + | let ordKey = keyOrderByLand(landAssetId) | |
| 926 | + | let whOrd = getOrder(ordKey) | |
| 927 | + | let whOrdRes = split(whOrd[ordIdxRes], "_") | |
| 928 | + | let whOrdMat = split(whOrd[ordIdxMat], "_") | |
| 929 | + | let whOrdProd = if ((whOrd[ordIdxProd] == "")) | |
| 930 | + | then nil | |
| 931 | + | else split(whOrd[ordIdxProd], "_") | |
| 932 | + | let usdnNeed2Lock = 0 | |
| 933 | + | func ordR (acc,j) = { | |
| 934 | + | let bpOrdResParts = split(bpOrdRes[j], "@") | |
| 935 | + | if ((size(bpOrdResParts) != 2)) | |
| 936 | + | then throw("Incorrect order format, should be amount@price") | |
| 937 | + | else { | |
| 938 | + | let bpOrdAm = parseIntValue(bpOrdResParts[0]) | |
| 939 | + | let bpOrdPr = parseIntValue(bpOrdResParts[1]) | |
| 940 | + | if ((0 > bpOrdPr)) | |
| 941 | + | then throw("Price can't be negative") | |
| 942 | + | else { | |
| 943 | + | let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8) | |
| 944 | + | let bpr = parseIntValue(bpResList[j]) | |
| 945 | + | let whr = parseIntValue(currWhRes[j]) | |
| 946 | + | let whOrdParts = split(whOrdRes[j], "@") | |
| 947 | + | let whOrdAm = parseIntValue(whOrdParts[0]) | |
| 948 | + | let whOrdPr = parseIntValue(whOrdParts[1]) | |
| 949 | + | if ((bpOrdPr != whOrdPr)) | |
| 950 | + | then throw((("Prices of " + resTypes[j]) + " don't match")) | |
| 951 | + | else { | |
| 952 | + | let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8) | |
| 953 | + | if ((bpOrdAm == 0)) | |
| 954 | + | then $Tuple6((acc._1 :+ currWhRes[j]), (acc._2 :+ whOrdRes[j]), (acc._3 :+ bpResList[j]), acc._4, acc._5, acc._6) | |
| 955 | + | else if ((bpOrdAm > 0)) | |
| 956 | + | then if ((0 > whOrdAm)) | |
| 957 | + | then if ((bpOrdAm > -(whOrdAm))) | |
| 958 | + | then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + resTypes[j]) + ", but warehouse only sells ") + toString(-(whOrdAm)))) | |
| 959 | + | else $Tuple6((acc._1 :+ currWhRes[j]), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpr + bpOrdAm))), (acc._4 + bpOrdAm), acc._5, (acc._6 + bpOrdUsd)) | |
| 960 | + | else throw((("Attempt to buy " + resTypes[j]) + " while warehouse doesn't sell it")) | |
| 961 | + | else if ((whOrdAm > 0)) | |
| 962 | + | then if ((-(bpOrdAm) > whOrdAm)) | |
| 963 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + resTypes[j]) + ", but warehouse only buys ") + toString(whOrdAm))) | |
| 964 | + | else if ((-(bpOrdAm) > bpr)) | |
| 965 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + bpResList[j]) + " of ") + resTypes[j])) | |
| 966 | + | else $Tuple6((acc._1 :+ toString((whr - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ "0"), (acc._4 - bpOrdAm), (acc._5 - bpOrdUsd), acc._6) | |
| 967 | + | else throw((("Attempt to sell " + resTypes[j]) + " while warehouse doesn't buy it")) | |
| 968 | + | } | |
| 969 | + | } | |
| 970 | + | } | |
| 971 | + | } | |
| 972 | + | ||
| 973 | + | let r = { | |
| 974 | + | let $l = [0, 1, 2, 3, 4, 5] | |
| 975 | + | let $s = size($l) | |
| 976 | + | let $acc0 = $Tuple6(nil, nil, nil, 0, 0, 0) | |
| 977 | + | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 978 | + | then $a | |
| 979 | + | else ordR($a, $l[$i]) | |
| 980 | + | ||
| 981 | + | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 982 | + | then $a | |
| 983 | + | else throw("List size exceeds 6") | |
| 984 | + | ||
| 985 | + | $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 986 | + | } | |
| 987 | + | func ordM (acc,j) = { | |
| 988 | + | let bpOrdMatParts = split(bpOrdMat[j], "@") | |
| 989 | + | if ((size(bpOrdMatParts) != 2)) | |
| 990 | + | then throw("Incorrect order format, should be amount@price") | |
| 991 | + | else { | |
| 992 | + | let bpOrdAm = parseIntValue(bpOrdMatParts[0]) | |
| 993 | + | let bpOrdPr = parseIntValue(bpOrdMatParts[1]) | |
| 994 | + | if ((0 > bpOrdPr)) | |
| 995 | + | then throw("Price can't be negative") | |
| 996 | + | else { | |
| 997 | + | let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8) | |
| 998 | + | let bpr = parseIntValue(bpMatList[j]) | |
| 999 | + | let whr = parseIntValue(currWhMat[j]) | |
| 1000 | + | let whOrdParts = split(whOrdMat[j], "@") | |
| 1001 | + | let whOrdAm = parseIntValue(whOrdParts[0]) | |
| 1002 | + | let whOrdPr = parseIntValue(whOrdParts[1]) | |
| 1003 | + | if ((bpOrdPr != whOrdPr)) | |
| 1004 | + | then throw((("Prices of " + matTypes[j]) + " don't match")) | |
| 1005 | + | else { | |
| 1006 | + | let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8) | |
| 1007 | + | if ((bpOrdAm == 0)) | |
| 1008 | + | then $Tuple6((acc._1 :+ currWhMat[j]), (acc._2 :+ whOrdMat[j]), (acc._3 :+ bpMatList[j]), acc._4, acc._5, acc._6) | |
| 1009 | + | else if ((bpOrdAm > 0)) | |
| 1010 | + | then if ((0 > whOrdAm)) | |
| 1011 | + | then if ((bpOrdAm > -(whOrdAm))) | |
| 1012 | + | then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + matTypes[j]) + ", but warehouse only sells ") + toString(-(whOrdAm)))) | |
| 1013 | + | else $Tuple6((acc._1 :+ currWhMat[j]), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpr + bpOrdAm))), (acc._4 + bpOrdAm), acc._5, (acc._6 + bpOrdUsd)) | |
| 1014 | + | else throw((("Attempt to buy " + matTypes[j]) + " while warehouse doesn't sell it")) | |
| 1015 | + | else if ((whOrdAm > 0)) | |
| 1016 | + | then if ((-(bpOrdAm) > whOrdAm)) | |
| 1017 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + matTypes[j]) + ", but warehouse only buys ") + toString(whOrdAm))) | |
| 1018 | + | else if ((-(bpOrdAm) > bpr)) | |
| 1019 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + bpMatList[j]) + " of ") + matTypes[j])) | |
| 1020 | + | else $Tuple6((acc._1 :+ toString((whr - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ "0"), (acc._4 - bpOrdAm), (acc._5 - bpOrdUsd), acc._6) | |
| 1021 | + | else throw((("Attempt to sell " + matTypes[j]) + " while warehouse doesn't buy it")) | |
| 1022 | + | } | |
| 1023 | + | } | |
| 1024 | + | } | |
| 1025 | + | } | |
| 1026 | + | ||
| 1027 | + | let m = { | |
| 1028 | + | let $l = [0, 1, 2, 3, 4, 5] | |
| 1029 | + | let $s = size($l) | |
| 1030 | + | let $acc0 = $Tuple6(nil, nil, nil, r._4, r._5, r._6) | |
| 1031 | + | func $f1_1 ($a,$i) = if (($i >= $s)) | |
| 1032 | + | then $a | |
| 1033 | + | else ordM($a, $l[$i]) | |
| 1034 | + | ||
| 1035 | + | func $f1_2 ($a,$i) = if (($i >= $s)) | |
| 1036 | + | then $a | |
| 1037 | + | else throw("List size exceeds 6") | |
| 1038 | + | ||
| 1039 | + | $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 1040 | + | } | |
| 1041 | + | func ordP (acc,j) = { | |
| 1042 | + | let bpOrdProdParts = split(bpOrdProd[j], "@") | |
| 1043 | + | if ((size(bpOrdProdParts) != 2)) | |
| 1044 | + | then throw("Incorrect order format, should be amount@price") | |
| 1045 | + | else { | |
| 1046 | + | let bpOrdAm = parseIntValue(bpOrdProdParts[0]) | |
| 1047 | + | let bpOrdPr = parseIntValue(bpOrdProdParts[1]) | |
| 1048 | + | if ((0 > bpOrdPr)) | |
| 1049 | + | then throw("Price can't be negative") | |
| 1050 | + | else { | |
| 1051 | + | let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8) | |
| 1052 | + | let bpr = parseIntValue(bpProdList[j]) | |
| 1053 | + | let whr = parseIntValue(currWhProd[j]) | |
| 1054 | + | let whOrdParts = split(whOrdProd[j], "@") | |
| 1055 | + | let whOrdAm = parseIntValue(whOrdParts[0]) | |
| 1056 | + | let whOrdPr = parseIntValue(whOrdParts[1]) | |
| 1057 | + | if ((bpOrdPr != whOrdPr)) | |
| 1058 | + | then throw((("Prices of " + prodTypes[j]) + " don't match")) | |
| 1059 | + | else { | |
| 1060 | + | let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8) | |
| 1061 | + | if ((bpOrdAm == 0)) | |
| 1062 | + | then $Tuple6((acc._1 :+ currWhProd[j]), (acc._2 :+ whOrdProd[j]), (acc._3 :+ bpProdList[j]), acc._4, acc._5, acc._6) | |
| 1063 | + | else if ((bpOrdAm > 0)) | |
| 1064 | + | then if ((0 > whOrdAm)) | |
| 1065 | + | then if ((bpOrdAm > -(whOrdAm))) | |
| 1066 | + | then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + prodTypes[j]) + ", but warehouse only sells ") + toString(-(whOrdAm)))) | |
| 1067 | + | else $Tuple6((acc._1 :+ currWhProd[j]), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpr + bpOrdAm))), (acc._4 + bpOrdAm), acc._5, (acc._6 + bpOrdUsd)) | |
| 1068 | + | else throw((("Attempt to buy " + prodTypes[j]) + " while warehouse doesn't sell it")) | |
| 1069 | + | else if ((whOrdAm > 0)) | |
| 1070 | + | then if ((-(bpOrdAm) > whOrdAm)) | |
| 1071 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + prodTypes[j]) + ", but warehouse only buys ") + toString(whOrdAm))) | |
| 1072 | + | else if ((-(bpOrdAm) > bpr)) | |
| 1073 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + bpProdList[j]) + " of ") + prodTypes[j])) | |
| 1074 | + | else $Tuple6((acc._1 :+ toString((whr - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ "0"), (acc._4 - bpOrdAm), (acc._5 - bpOrdUsd), acc._6) | |
| 1075 | + | else throw((("Attempt to sell " + prodTypes[j]) + " while warehouse doesn't buy it")) | |
| 1076 | + | } | |
| 1077 | + | } | |
| 1078 | + | } | |
| 1079 | + | } | |
| 1080 | + | ||
| 1081 | + | let p = { | |
| 1082 | + | let $l = [0, 1, 2, 3, 4, 5] | |
| 1083 | + | let $s = size($l) | |
| 1084 | + | let $acc0 = $Tuple6(nil, nil, nil, m._4, m._5, m._6) | |
| 1085 | + | func $f2_1 ($a,$i) = if (($i >= $s)) | |
| 1086 | + | then $a | |
| 1087 | + | else ordP($a, $l[$i]) | |
| 1088 | + | ||
| 1089 | + | func $f2_2 ($a,$i) = if (($i >= $s)) | |
| 1090 | + | then $a | |
| 1091 | + | else throw("List size exceeds 50") | |
| 1092 | + | ||
| 1093 | + | $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50) | |
| 1094 | + | } | |
| 1095 | + | let volSaldo = p._4 | |
| 1096 | + | let whStr = makeString_2C([currentWh[whIdxVol], makeString(r._1, "_"), makeString(m._1, "_"), makeString(p._1, "_"), toString(volSaldo)], ":") | |
| 1097 | + | let newWhOrdStr = makeString_2C([makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_")], ":") | |
| 1098 | + | let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(r._3, "_"), makeString(m._3, "_"), makeString(p._3, "_")], ":") | |
| 1099 | + | let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil) | |
| 1100 | + | if ((whSave == whSave)) | |
| 1101 | + | then { | |
| 1102 | + | let bpSave = invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil) | |
| 1103 | + | if ((bpSave == bpSave)) | |
| 1104 | + | then { | |
| 1105 | + | let actions = [StringEntry(ordKey, newWhOrdStr)] | |
| 1106 | + | let usdWh2BpSaldo = fraction(p._5, (MULT6 + AUCTIONFEE), MULT6) | |
| 1107 | + | let actions1 = if ((usdWh2BpSaldo > 0)) | |
| 1108 | + | then (actions :+ ScriptTransfer(caller, p._5, usdnAssetId)) | |
| 1109 | + | else actions | |
| 1110 | + | let usdBp2WhSaldo = fraction(p._6, (MULT6 + AUCTIONFEE), MULT6) | |
| 1111 | + | if ((usdBp2WhSaldo > 0)) | |
| 1112 | + | then if ((size(i.payments) != 1)) | |
| 1113 | + | then throw("exactly 1 payment must be attached") | |
| 1114 | + | else { | |
| 1115 | + | let pmt = i.payments[0] | |
| 1116 | + | let amt = pmt.amount | |
| 1117 | + | let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment") | |
| 1118 | + | if ((pmtAssetId != usdnAssetId)) | |
| 1119 | + | then throw("USDN payments only!") | |
| 1120 | + | else if ((amt != usdBp2WhSaldo)) | |
| 1121 | + | then throw(("Payment needed is " + toString(usdBp2WhSaldo))) | |
| 1122 | + | else (actions1 :+ ScriptTransfer(addressFromStringValue(landOwner), p._6, usdnAssetId)) | |
| 1123 | + | } | |
| 1124 | + | else if ((size(i.payments) != 0)) | |
| 1125 | + | then throw("No payments needed") | |
| 1126 | + | else actions1 | |
| 1127 | + | } | |
| 1128 | + | else throw("Strict value is not equal to itself.") | |
| 1129 | + | } | |
| 1130 | + | else throw("Strict value is not equal to itself.") | |
| 1131 | + | } | |
| 1132 | + | } | |
| 1133 | + | } | |
| 1134 | + | } | |
| 1135 | + | } | |
| 1136 | + | } | |
| 1137 | + | ||
| 1138 | + | ||
| Old | New | Differences | |
|---|---|---|---|
| 1 | 1 | {-# STDLIB_VERSION 6 #-} | |
| 2 | 2 | {-# SCRIPT_TYPE ACCOUNT #-} | |
| 3 | 3 | {-# CONTENT_TYPE DAPP #-} | |
| 4 | 4 | let SEP = "__" | |
| 5 | 5 | ||
| 6 | 6 | let MULT6 = 1000000 | |
| 7 | 7 | ||
| 8 | 8 | let MULT8 = 100000000 | |
| 9 | 9 | ||
| 10 | 10 | let MULT10 = 10000000000 | |
| 11 | 11 | ||
| 12 | 12 | let chain = take(drop(this.bytes, 1), 1) | |
| 13 | 13 | ||
| 14 | 14 | let usdnAssetId = match chain { | |
| 15 | 15 | case _ => | |
| 16 | 16 | if ((base58'2W' == $match0)) | |
| 17 | 17 | then base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p' | |
| 18 | 18 | else if ((base58'2T' == $match0)) | |
| 19 | 19 | then base58'HezsdQuRDtzksAYUy97gfhKy7Z1NW2uXYSHA3bgqenNZ' | |
| 20 | 20 | else throw("Unknown chain") | |
| 21 | 21 | } | |
| 22 | 22 | ||
| 23 | 23 | let defaultRestAddressStr = match chain { | |
| 24 | 24 | case _ => | |
| 25 | 25 | if ((base58'2W' == $match0)) | |
| 26 | 26 | then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv" | |
| 27 | 27 | else if ((base58'2T' == $match0)) | |
| 28 | 28 | then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy" | |
| 29 | 29 | else throw("Unknown chain") | |
| 30 | 30 | } | |
| 31 | 31 | ||
| 32 | 32 | func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], "")) | |
| 33 | 33 | ||
| 34 | 34 | ||
| 35 | 35 | func getIntOrElse (key,defaultVal) = valueOrElse(getInteger(this, key), defaultVal) | |
| 36 | 36 | ||
| 37 | 37 | ||
| 38 | 38 | let IdxCfgStakingDapp = 1 | |
| 39 | 39 | ||
| 40 | 40 | let IdxCfgEconomyDapp = 2 | |
| 41 | 41 | ||
| 42 | 42 | let IdxCfgGovernanceDapp = 3 | |
| 43 | 43 | ||
| 44 | 44 | func keyRestCfg () = "%s__restConfig" | |
| 45 | 45 | ||
| 46 | 46 | ||
| 47 | 47 | func keyRestAddress () = "%s__restAddr" | |
| 48 | 48 | ||
| 49 | 49 | ||
| 50 | 50 | func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP) | |
| 51 | 51 | ||
| 52 | 52 | ||
| 53 | 53 | func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx))) | |
| 54 | 54 | ||
| 55 | 55 | ||
| 56 | 56 | let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr)) | |
| 57 | 57 | ||
| 58 | 58 | let restCfg = readRestCfgOrFail(restContract) | |
| 59 | 59 | ||
| 60 | 60 | let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp) | |
| 61 | 61 | ||
| 62 | 62 | let DEFAULTLOCATION = "Africa_F_Africa" | |
| 63 | 63 | ||
| 64 | 64 | let NUMRES = 6 | |
| 65 | 65 | ||
| 66 | 66 | let FACTORYMAXWAREHOUSE = 10000000000 | |
| 67 | 67 | ||
| 68 | 68 | let RESOURCEPRICEMIN = 158549 | |
| 69 | 69 | ||
| 70 | 70 | let MINPAYMENT = 10000 | |
| 71 | 71 | ||
| 72 | 72 | let SELLMULTIPLIER = 200 | |
| 73 | 73 | ||
| 74 | 74 | let BUYMULTIPLIER = 300 | |
| 75 | 75 | ||
| 76 | 76 | let LANDPREFIX = "LAND" | |
| 77 | 77 | ||
| 78 | 78 | let DUCKPREFIX = "DUCK" | |
| 79 | 79 | ||
| 80 | 80 | let WHMULTIPLIER = 10000000000 | |
| 81 | 81 | ||
| 82 | + | let AUCTIONFEE = 10000 | |
| 83 | + | ||
| 82 | 84 | let resTypes = ["Oil", "Ore", "Wood", "Sand", "Clay", "Organic"] | |
| 83 | 85 | ||
| 84 | 86 | let matTypes = ["Fuel", "Metal", "Plank", "Glass", "Plastic", "Protein"] | |
| 87 | + | ||
| 88 | + | let prodTypes = ["First Aid Kit", "Backpack", "Food Ration", "Jet Pack", "Radar"] | |
| 85 | 89 | ||
| 86 | 90 | let continents = ["Americas", "Europe", "Asia", "Africa", "Oceania"] | |
| 87 | 91 | ||
| 88 | 92 | let productionMatrix = ["1_1_1_2_2_5_1_10", "2_5_5_2_7_5_2_100", "1_1_1_2_2_5_1_10", "9_9_1_5_5_1_5_100", "1_5_1_5_5_1_1_100"] | |
| 89 | 93 | ||
| 90 | 94 | let contIdxAmericas = 0 | |
| 91 | 95 | ||
| 92 | 96 | let contIdxEurope = 1 | |
| 93 | 97 | ||
| 94 | 98 | let contIdxAsia = 2 | |
| 95 | 99 | ||
| 96 | 100 | let contIdxAfrica = 3 | |
| 97 | 101 | ||
| 98 | 102 | let contIdxOceania = 4 | |
| 99 | 103 | ||
| 100 | 104 | func keyFactoryWarehouseByIdAndType (factoryId,resType) = ((("factoryWhByContinentAndRes_" + factoryId) + "_") + toString(resType)) | |
| 101 | 105 | ||
| 102 | 106 | ||
| 103 | 107 | func keyOrderByLand (landAssetId) = ("landOrder_" + landAssetId) | |
| 104 | 108 | ||
| 105 | 109 | ||
| 106 | 110 | func keyStakedDuckByOwner (ownerAddr) = ("stakedDuckByOwner_" + ownerAddr) | |
| 107 | 111 | ||
| 108 | 112 | ||
| 109 | 113 | func keyBackpackByDuck (duckAssetId) = ("backPack_" + duckAssetId) | |
| 110 | 114 | ||
| 111 | 115 | ||
| 112 | 116 | func keyDuckLocation (duckAssetId) = ("duckLocation_" + duckAssetId) | |
| 113 | 117 | ||
| 114 | 118 | ||
| 115 | 119 | func keyBlocked () = "contractsBlocked" | |
| 116 | 120 | ||
| 117 | 121 | ||
| 118 | 122 | func keyLandAssetIdToOwner (assetId) = ("nftOwner_" + assetId) | |
| 119 | 123 | ||
| 120 | 124 | ||
| 121 | 125 | func keyStakedTimeByAssetId (assetId) = ("stakedTime_" + assetId) | |
| 122 | 126 | ||
| 123 | 127 | ||
| 124 | 128 | let locIdxContinent = 0 | |
| 125 | 129 | ||
| 126 | 130 | let locIdxType = 1 | |
| 127 | 131 | ||
| 128 | 132 | let locIdxId = 2 | |
| 129 | 133 | ||
| 130 | 134 | let bpIdxLevel = 0 | |
| 131 | 135 | ||
| 132 | 136 | let bpIdxRes = 1 | |
| 133 | 137 | ||
| 134 | 138 | let bpIdxMat = 2 | |
| 135 | 139 | ||
| 136 | 140 | let bpIdxProd = 3 | |
| 137 | 141 | ||
| 138 | 142 | let whIdxVol = 0 | |
| 139 | 143 | ||
| 140 | 144 | let whIdxRes = 1 | |
| 141 | 145 | ||
| 142 | 146 | let whIdxMat = 2 | |
| 143 | 147 | ||
| 144 | 148 | let whIdxProd = 3 | |
| 145 | 149 | ||
| 146 | 150 | let whIdxLockedVol = 4 | |
| 147 | 151 | ||
| 148 | 152 | let ordIdxRes = 0 | |
| 149 | 153 | ||
| 150 | 154 | let ordIdxMat = 1 | |
| 151 | 155 | ||
| 152 | 156 | let ordIdxProd = 2 | |
| 153 | 157 | ||
| 154 | 158 | func asString (v) = match v { | |
| 155 | 159 | case s: String => | |
| 156 | 160 | s | |
| 157 | 161 | case _ => | |
| 158 | 162 | throw("fail to cast into String") | |
| 159 | 163 | } | |
| 160 | 164 | ||
| 161 | 165 | ||
| 162 | 166 | func getOrder (ordKey) = { | |
| 163 | 167 | let p = split(valueOrElse(getString(ordKey), "0@0_0@0_0@0_0@0_0@0_0@0:0@0_0@0_0@0_0@0_0@0_0@0:"), ":") | |
| 164 | 168 | [if ((size(split(p[ordIdxRes], "_")) == NUMRES)) | |
| 165 | 169 | then p[ordIdxRes] | |
| 166 | 170 | else "0@0_0@0_0@0_0@0_0@0_0@0", if ((size(split(p[ordIdxMat], "_")) == NUMRES)) | |
| 167 | 171 | then p[ordIdxMat] | |
| 168 | 172 | else "0@0_0@0_0@0_0@0_0@0_0@0", p[ordIdxProd]] | |
| 169 | 173 | } | |
| 170 | 174 | ||
| 171 | 175 | ||
| 172 | 176 | func getWarehouseVolume (volPrefix) = { | |
| 173 | 177 | let parts = split(volPrefix, "_") | |
| 174 | 178 | ((WHMULTIPLIER * (parseIntValue(parts[1]) + 1)) * parseIntValue(parts[0])) | |
| 175 | 179 | } | |
| 176 | 180 | ||
| 177 | 181 | ||
| 178 | 182 | func getWarehouseCurrResVolume (currentWh) = { | |
| 179 | 183 | func sum (acc,item) = (acc + parseIntValue(item)) | |
| 180 | 184 | ||
| 181 | 185 | let $l = split(currentWh[whIdxRes], "_") | |
| 182 | 186 | let $s = size($l) | |
| 183 | 187 | let $acc0 = 0 | |
| 184 | 188 | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 185 | 189 | then $a | |
| 186 | 190 | else sum($a, $l[$i]) | |
| 187 | 191 | ||
| 188 | 192 | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 189 | 193 | then $a | |
| 190 | 194 | else throw("List size exceeds 6") | |
| 191 | 195 | ||
| 192 | 196 | $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 193 | 197 | } | |
| 194 | 198 | ||
| 195 | 199 | ||
| 196 | 200 | func getWarehouseCurrMatVolume (currentWh) = { | |
| 197 | 201 | func sum (acc,item) = (acc + parseIntValue(item)) | |
| 198 | 202 | ||
| 199 | 203 | let $l = split(currentWh[whIdxMat], "_") | |
| 200 | 204 | let $s = size($l) | |
| 201 | 205 | let $acc0 = 0 | |
| 202 | 206 | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 203 | 207 | then $a | |
| 204 | 208 | else sum($a, $l[$i]) | |
| 205 | 209 | ||
| 206 | 210 | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 207 | 211 | then $a | |
| 208 | 212 | else throw("List size exceeds 6") | |
| 209 | 213 | ||
| 210 | 214 | $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 211 | 215 | } | |
| 212 | 216 | ||
| 213 | 217 | ||
| 214 | 218 | func getWarehouseCurrGoodsVolume (currentWh) = { | |
| 215 | 219 | let goods = currentWh[whIdxProd] | |
| 216 | 220 | if ((goods == "")) | |
| 217 | 221 | then 0 | |
| 218 | 222 | else { | |
| 219 | 223 | func sum (acc,item) = (acc + parseIntValue(item)) | |
| 220 | 224 | ||
| 221 | 225 | let $l = split_4C(goods, "_") | |
| 222 | 226 | let $s = size($l) | |
| 223 | 227 | let $acc0 = 0 | |
| 224 | 228 | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 225 | 229 | then $a | |
| 226 | 230 | else sum($a, $l[$i]) | |
| 227 | 231 | ||
| 228 | 232 | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 229 | 233 | then $a | |
| 230 | 234 | else throw("List size exceeds 50") | |
| 231 | 235 | ||
| 232 | 236 | $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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50) | |
| 233 | 237 | } | |
| 234 | 238 | } | |
| 235 | 239 | ||
| 236 | 240 | ||
| 237 | 241 | func sellInternal (locId,resType,amount,minPrice) = { | |
| 238 | 242 | let whKey = keyFactoryWarehouseByIdAndType(locId, resType) | |
| 239 | 243 | let w0 = valueOrElse(getInteger(whKey), 0) | |
| 240 | 244 | let r0 = if ((w0 > FACTORYMAXWAREHOUSE)) | |
| 241 | 245 | then 0 | |
| 242 | 246 | else if (((w0 + amount) > FACTORYMAXWAREHOUSE)) | |
| 243 | 247 | then (FACTORYMAXWAREHOUSE - w0) | |
| 244 | 248 | else amount | |
| 245 | 249 | let usdnReceived = (fraction(r0, ((SELLMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) + (50 * r0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction((amount - r0), RESOURCEPRICEMIN, MULT8)) | |
| 246 | 250 | let min99 = (minPrice - (minPrice / 100)) | |
| 247 | 251 | if (((min99 * amount) > (usdnReceived * MULT8))) | |
| 248 | 252 | then throw((((((((((("Actual price = " + toString(usdnReceived)) + " / ") + toString(amount)) + " < minPrice = ") + toString(minPrice)) + ", (") + locId) + ", ") + resTypes[resType]) + ")")) | |
| 249 | 253 | else $Tuple2(IntegerEntry(whKey, (w0 + amount)), usdnReceived) | |
| 250 | 254 | } | |
| 251 | 255 | ||
| 252 | 256 | ||
| 253 | 257 | func buyInternal (locId,matType,amount,maxPrice) = { | |
| 254 | 258 | let whKey = keyFactoryWarehouseByIdAndType(locId, matType) | |
| 255 | 259 | let w0 = valueOrElse(getInteger(whKey), 0) | |
| 256 | 260 | let m1 = if ((w0 > FACTORYMAXWAREHOUSE)) | |
| 257 | 261 | then min([amount, (w0 - FACTORYMAXWAREHOUSE)]) | |
| 258 | 262 | else 0 | |
| 259 | 263 | let m0 = min([w0, (amount - m1)]) | |
| 260 | 264 | let m = (m0 + m1) | |
| 261 | 265 | let usdnSpent = (fraction(m0, ((BUYMULTIPLIER * RESOURCEPRICEMIN) - fraction(((100 * w0) - (50 * m0)), RESOURCEPRICEMIN, FACTORYMAXWAREHOUSE)), MULT10) + fraction(m1, (2 * RESOURCEPRICEMIN), MULT8)) | |
| 262 | 266 | let max101 = (maxPrice + (maxPrice / 100)) | |
| 263 | 267 | if (((usdnSpent * MULT8) > (max101 * m))) | |
| 264 | 268 | then throw((((((((((("Actual price = " + toString(usdnSpent)) + " / ") + toString(m)) + " > maxPrice = ") + toString(maxPrice)) + ", (") + locId) + ", ") + matTypes[matType]) + ")")) | |
| 265 | 269 | else $Tuple3(IntegerEntry(whKey, (w0 - m)), usdnSpent, m) | |
| 266 | 270 | } | |
| 267 | 271 | ||
| 268 | 272 | ||
| 269 | 273 | func getBackpack (bpKey) = { | |
| 270 | 274 | let p = split(valueOrElse(getString(stakingContract, bpKey), "0:0_0_0_0_0_0:0_0_0_0_0_0:"), ":") | |
| 271 | 275 | [toString(valueOrElse(parseInt(p[bpIdxLevel]), 0)), if ((size(split(p[bpIdxRes], "_")) == NUMRES)) | |
| 272 | 276 | then p[bpIdxRes] | |
| 273 | 277 | else "0_0_0_0_0_0", if ((size(split(p[bpIdxMat], "_")) == NUMRES)) | |
| 274 | 278 | then p[bpIdxMat] | |
| 275 | 279 | else "0_0_0_0_0_0", p[bpIdxProd]] | |
| 276 | 280 | } | |
| 277 | 281 | ||
| 278 | 282 | ||
| 279 | 283 | func checkBlocked () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false)) | |
| 280 | 284 | then throw("Contracts are under maintenance") | |
| 281 | 285 | else unit | |
| 282 | 286 | ||
| 283 | 287 | ||
| 284 | 288 | @Callable(i) | |
| 285 | 289 | func constructorV1 (restAddr) = if ((i.caller != this)) | |
| 286 | 290 | then throw("Permission denied") | |
| 287 | 291 | else [StringEntry(keyRestAddress(), restAddr)] | |
| 288 | 292 | ||
| 289 | 293 | ||
| 290 | 294 | ||
| 291 | 295 | @Callable(i) | |
| 292 | 296 | func sellResources (amounts,minPrices) = { | |
| 293 | 297 | let blocked = checkBlocked() | |
| 294 | 298 | if ((blocked == blocked)) | |
| 295 | 299 | then { | |
| 296 | 300 | let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked") | |
| 297 | 301 | if ((size(i.payments) != 0)) | |
| 298 | 302 | then throw("sellResources doesn't require any payments") | |
| 299 | 303 | else { | |
| 300 | 304 | let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_") | |
| 301 | 305 | if ((curLocation[locIdxType] != "F")) | |
| 302 | 306 | then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType])) | |
| 303 | 307 | else { | |
| 304 | 308 | let locId = curLocation[locIdxId] | |
| 305 | 309 | let currentPack = getBackpack(keyBackpackByDuck(duckAssetId)) | |
| 306 | 310 | let resList = split(currentPack[bpIdxRes], "_") | |
| 307 | 311 | func adder (acc,j) = if ((amounts[j] > parseIntValue(resList[j]))) | |
| 308 | 312 | then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to sell ") + toString(amounts[j]))) | |
| 309 | 313 | else if ((0 > amounts[j])) | |
| 310 | 314 | then throw(((("You tried to sell negative amount of " + resTypes[j]) + ": ") + toString(amounts[j]))) | |
| 311 | 315 | else if ((amounts[j] > 0)) | |
| 312 | 316 | then { | |
| 313 | 317 | let b = sellInternal(locId, j, amounts[j], minPrices[j]) | |
| 314 | 318 | $Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(resList[j]) - amounts[j]))), (acc._3 + b._2)) | |
| 315 | 319 | } | |
| 316 | 320 | else $Tuple3(acc._1, (acc._2 :+ resList[j]), acc._3) | |
| 317 | 321 | ||
| 318 | 322 | let merged = { | |
| 319 | 323 | let $l = [0, 1, 2, 3, 4, 5] | |
| 320 | 324 | let $s = size($l) | |
| 321 | 325 | let $acc0 = $Tuple3(nil, nil, 0) | |
| 322 | 326 | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 323 | 327 | then $a | |
| 324 | 328 | else adder($a, $l[$i]) | |
| 325 | 329 | ||
| 326 | 330 | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 327 | 331 | then $a | |
| 328 | 332 | else throw("List size exceeds 6") | |
| 329 | 333 | ||
| 330 | 334 | $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 331 | 335 | } | |
| 332 | 336 | let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._2, "_"), currentPack[bpIdxMat], currentPack[bpIdxProd]], ":") | |
| 333 | 337 | let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil)) | |
| 334 | 338 | $Tuple2((merged._1 :+ ScriptTransfer(i.caller, merged._3, usdnAssetId)), result) | |
| 335 | 339 | } | |
| 336 | 340 | } | |
| 337 | 341 | } | |
| 338 | 342 | else throw("Strict value is not equal to itself.") | |
| 339 | 343 | } | |
| 340 | 344 | ||
| 341 | 345 | ||
| 342 | 346 | ||
| 343 | 347 | @Callable(i) | |
| 344 | 348 | func buyMaterials (amounts,maxPrices) = { | |
| 345 | 349 | let blocked = checkBlocked() | |
| 346 | 350 | if ((blocked == blocked)) | |
| 347 | 351 | then { | |
| 348 | 352 | let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked") | |
| 349 | 353 | if ((size(i.payments) != 1)) | |
| 350 | 354 | then throw("exactly 1 payment must be attached") | |
| 351 | 355 | else { | |
| 352 | 356 | let pmt = i.payments[0] | |
| 353 | 357 | let amt = pmt.amount | |
| 354 | 358 | let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment") | |
| 355 | 359 | if ((pmtAssetId != usdnAssetId)) | |
| 356 | 360 | then throw("USDN payments only!") | |
| 357 | 361 | else { | |
| 358 | 362 | let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_") | |
| 359 | 363 | if ((curLocation[locIdxType] != "F")) | |
| 360 | 364 | then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType])) | |
| 361 | 365 | else { | |
| 362 | 366 | let locId = curLocation[locIdxId] | |
| 363 | 367 | let currentPack = getBackpack(keyBackpackByDuck(duckAssetId)) | |
| 364 | 368 | let matList = split(currentPack[bpIdxMat], "_") | |
| 365 | 369 | func mUpdater (acc,j) = if ((0 > amounts[j])) | |
| 366 | 370 | then throw(((("You tried to buy negative amount of " + matTypes[j]) + ": ") + toString(amounts[j]))) | |
| 367 | 371 | else if ((amounts[j] > 0)) | |
| 368 | 372 | then { | |
| 369 | 373 | let b = buyInternal(locId, j, amounts[j], maxPrices[j]) | |
| 370 | 374 | $Tuple3((acc._1 :+ b._1), (acc._2 :+ toString((parseIntValue(matList[j]) + b._3))), (acc._3 + b._2)) | |
| 371 | 375 | } | |
| 372 | 376 | else $Tuple3(acc._1, (acc._2 :+ matList[j]), acc._3) | |
| 373 | 377 | ||
| 374 | 378 | let merged = { | |
| 375 | 379 | let $l = [0, 1, 2, 3, 4, 5] | |
| 376 | 380 | let $s = size($l) | |
| 377 | 381 | let $acc0 = $Tuple3(nil, nil, 0) | |
| 378 | 382 | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 379 | 383 | then $a | |
| 380 | 384 | else mUpdater($a, $l[$i]) | |
| 381 | 385 | ||
| 382 | 386 | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 383 | 387 | then $a | |
| 384 | 388 | else throw("List size exceeds 6") | |
| 385 | 389 | ||
| 386 | 390 | $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 387 | 391 | } | |
| 388 | 392 | if ((merged._3 > amt)) | |
| 389 | 393 | then throw(((("Insufficient payment! Attached=" + toString(amt)) + ", required=") + toString(merged._3))) | |
| 390 | 394 | else { | |
| 391 | 395 | let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged._2, "_"), currentPack[bpIdxProd]], ":") | |
| 392 | 396 | let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil)) | |
| 393 | 397 | let rest = if (((amt - merged._3) > 0)) | |
| 394 | 398 | then [ScriptTransfer(i.caller, (amt - merged._3), usdnAssetId)] | |
| 395 | 399 | else nil | |
| 396 | 400 | $Tuple2((merged._1 ++ rest), result) | |
| 397 | 401 | } | |
| 398 | 402 | } | |
| 399 | 403 | } | |
| 400 | 404 | } | |
| 401 | 405 | } | |
| 402 | 406 | else throw("Strict value is not equal to itself.") | |
| 403 | 407 | } | |
| 404 | 408 | ||
| 405 | 409 | ||
| 406 | 410 | ||
| 407 | 411 | @Callable(i) | |
| 408 | 412 | func exchangeResources (amounts) = { | |
| 409 | 413 | let blocked = checkBlocked() | |
| 410 | 414 | if ((blocked == blocked)) | |
| 411 | 415 | then { | |
| 412 | 416 | let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked") | |
| 413 | 417 | if ((size(i.payments) != 1)) | |
| 414 | 418 | then throw("exactly 1 payment must be attached") | |
| 415 | 419 | else { | |
| 416 | 420 | let pmt = i.payments[0] | |
| 417 | 421 | let amt = pmt.amount | |
| 418 | 422 | let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment") | |
| 419 | 423 | if ((pmtAssetId != usdnAssetId)) | |
| 420 | 424 | then throw("USDN payments only!") | |
| 421 | 425 | else { | |
| 422 | 426 | let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_") | |
| 423 | 427 | if ((curLocation[locIdxType] != "F")) | |
| 424 | 428 | then throw(("Duck location type should be Factory, but is " + curLocation[locIdxType])) | |
| 425 | 429 | else { | |
| 426 | 430 | let locId = curLocation[locIdxId] | |
| 427 | 431 | let currentPack = getBackpack(keyBackpackByDuck(duckAssetId)) | |
| 428 | 432 | let resList = split(currentPack[bpIdxRes], "_") | |
| 429 | 433 | let matList = split(currentPack[bpIdxMat], "_") | |
| 430 | 434 | func exchanger (acc,j) = { | |
| 431 | 435 | let whKey = keyFactoryWarehouseByIdAndType(locId, j) | |
| 432 | 436 | let w0 = valueOrElse(getInteger(whKey), 0) | |
| 433 | 437 | let amj = amounts[j] | |
| 434 | 438 | if ((amj > parseIntValue(resList[j]))) | |
| 435 | 439 | then throw(((((("You have " + resList[j]) + " of ") + resTypes[j]) + ", but tried to exchange ") + toString(amj))) | |
| 436 | 440 | else if ((0 > amj)) | |
| 437 | 441 | then throw(((("You tried to exchange negative amount of " + resTypes[j]) + ": ") + toString(amj))) | |
| 438 | 442 | else if ((amj > 0)) | |
| 439 | 443 | then $Tuple4((acc._1 :+ toString((parseIntValue(resList[j]) - amj))), (acc._2 :+ toString((parseIntValue(matList[j]) + amj))), (acc._3 + fraction(amj, RESOURCEPRICEMIN, MULT8)), (acc._4 :+ IntegerEntry(whKey, w0))) | |
| 440 | 444 | else $Tuple4((acc._1 :+ resList[j]), (acc._2 :+ matList[j]), acc._3, acc._4) | |
| 441 | 445 | } | |
| 442 | 446 | ||
| 443 | 447 | let merged = { | |
| 444 | 448 | let $l = [0, 1, 2, 3, 4, 5] | |
| 445 | 449 | let $s = size($l) | |
| 446 | 450 | let $acc0 = $Tuple4(nil, nil, 0, nil) | |
| 447 | 451 | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 448 | 452 | then $a | |
| 449 | 453 | else exchanger($a, $l[$i]) | |
| 450 | 454 | ||
| 451 | 455 | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 452 | 456 | then $a | |
| 453 | 457 | else throw("List size exceeds 6") | |
| 454 | 458 | ||
| 455 | 459 | $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 456 | 460 | } | |
| 457 | 461 | if ((merged._3 > amt)) | |
| 458 | 462 | then throw(((("Insufficient payment! Attached=" + toString(amt)) + ", required=") + toString(merged._3))) | |
| 459 | 463 | else { | |
| 460 | 464 | let newPack = makeString([currentPack[bpIdxLevel], makeString(merged._1, "_"), makeString(merged._2, "_"), currentPack[bpIdxProd]], ":") | |
| 461 | 465 | let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil)) | |
| 462 | 466 | let rest = if (((amt - merged._3) > 0)) | |
| 463 | 467 | then [ScriptTransfer(i.caller, (amt - merged._3), usdnAssetId)] | |
| 464 | 468 | else nil | |
| 465 | 469 | $Tuple2((rest ++ merged._4), result) | |
| 466 | 470 | } | |
| 467 | 471 | } | |
| 468 | 472 | } | |
| 469 | 473 | } | |
| 470 | 474 | } | |
| 471 | 475 | else throw("Strict value is not equal to itself.") | |
| 472 | 476 | } | |
| 473 | 477 | ||
| 474 | 478 | ||
| 475 | 479 | ||
| 476 | 480 | @Callable(i) | |
| 477 | 481 | func buyGoods (productIdx,level,quantity) = { | |
| 478 | 482 | let blocked = checkBlocked() | |
| 479 | 483 | if ((blocked == blocked)) | |
| 480 | 484 | then if ((size(i.payments) != 0)) | |
| 481 | 485 | then throw("buyGoods doesn't require any payments") | |
| 482 | 486 | else if ((0 > quantity)) | |
| 483 | 487 | then throw("Quantity should be positive") | |
| 484 | 488 | else { | |
| 485 | 489 | let duckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(toString(i.caller))), "You don't have a duck staked") | |
| 486 | 490 | let curLocation = split(valueOrElse(getString(stakingContract, keyDuckLocation(duckAssetId)), DEFAULTLOCATION), "_") | |
| 487 | 491 | if ((curLocation[locIdxType] != "M")) | |
| 488 | 492 | then throw(("Duck location type should be Manufactory, but is " + curLocation[locIdxType])) | |
| 489 | 493 | else { | |
| 490 | 494 | let cont = curLocation[locIdxContinent] | |
| 491 | 495 | let currentPack = getBackpack(keyBackpackByDuck(duckAssetId)) | |
| 492 | 496 | let matList = split(currentPack[bpIdxMat], "_") | |
| 493 | 497 | if (if ((0 > productIdx)) | |
| 494 | 498 | then true | |
| 495 | 499 | else (productIdx >= size(productionMatrix))) | |
| 496 | 500 | then throw(("Unknown product idx=" + toString(productIdx))) | |
| 497 | 501 | else { | |
| 498 | 502 | let productContIdx = (productIdx % size(continents)) | |
| 499 | 503 | if ((continents[productContIdx] != cont)) | |
| 500 | 504 | then throw(((("This product is available in " + continents[productContIdx]) + ", but you are in ") + cont)) | |
| 501 | 505 | else { | |
| 502 | 506 | let recipe = split(productionMatrix[productIdx], "_") | |
| 503 | 507 | if ((size(recipe) != (NUMRES + 2))) | |
| 504 | 508 | then throw(("Fatal: unknown recipe: " + productionMatrix[productIdx])) | |
| 505 | 509 | else { | |
| 506 | 510 | let prodList = if ((currentPack[bpIdxProd] == "")) | |
| 507 | 511 | then nil | |
| 508 | 512 | else split(currentPack[bpIdxProd], "_") | |
| 509 | 513 | func filler (acc,ignoredItem) = { | |
| 510 | 514 | let n = acc._2 | |
| 511 | 515 | let x = if ((size(prodList) > n)) | |
| 512 | 516 | then split(prodList[n], ",") | |
| 513 | 517 | else ["0", "0", "0"] | |
| 514 | 518 | let x1s = x[0] | |
| 515 | 519 | let x1 = parseIntValue(x1s) | |
| 516 | 520 | let x2s = x[1] | |
| 517 | 521 | let x2 = parseIntValue(x2s) | |
| 518 | 522 | let x3s = x[2] | |
| 519 | 523 | let x3 = parseIntValue(x3s) | |
| 520 | 524 | let amount = (quantity * parseIntValue(recipe[7])) | |
| 521 | 525 | let y = if ((n == productIdx)) | |
| 522 | 526 | then match level { | |
| 523 | 527 | case _ => | |
| 524 | 528 | if ((1 == $match0)) | |
| 525 | 529 | then ((((toString((x1 + amount)) + ",") + x2s) + ",") + x3s) | |
| 526 | 530 | else if ((2 == $match0)) | |
| 527 | 531 | then ((((x1s + ",") + toString((x2 + amount))) + ",") + x3s) | |
| 528 | 532 | else if ((3 == $match0)) | |
| 529 | 533 | then ((((x1s + ",") + x2s) + ",") + toString((x3 + amount))) | |
| 530 | 534 | else throw(("Product level should be 1..3, not " + toString(level))) | |
| 531 | 535 | } | |
| 532 | 536 | else ((((x1s + ",") + x2s) + ",") + x3s) | |
| 533 | 537 | $Tuple2((acc._1 :+ y), (n + 1)) | |
| 534 | 538 | } | |
| 535 | 539 | ||
| 536 | 540 | let bpProd = ( let $l = productionMatrix | |
| 537 | 541 | let $s = size($l) | |
| 538 | 542 | let $acc0 = $Tuple2(nil, 0) | |
| 539 | 543 | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 540 | 544 | then $a | |
| 541 | 545 | else filler($a, $l[$i]) | |
| 542 | 546 | ||
| 543 | 547 | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 544 | 548 | then $a | |
| 545 | 549 | else throw("List size exceeds 50") | |
| 546 | 550 | ||
| 547 | 551 | $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($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($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), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50))._1 | |
| 548 | 552 | func producer (acc,j) = { | |
| 549 | 553 | let needMat = (parseIntValue(recipe[j]) * quantity) | |
| 550 | 554 | let haveMat = parseIntValue(matList[j]) | |
| 551 | 555 | if ((needMat > haveMat)) | |
| 552 | 556 | then throw(((((((("You have " + matList[j]) + " of ") + matTypes[j]) + ", but recipe requires ") + toString(needMat)) + " for quantity ") + toString(quantity))) | |
| 553 | 557 | else if ((needMat > 0)) | |
| 554 | 558 | then (acc :+ toString((haveMat - needMat))) | |
| 555 | 559 | else (acc :+ matList[j]) | |
| 556 | 560 | } | |
| 557 | 561 | ||
| 558 | 562 | let merged = { | |
| 559 | 563 | let $l = [0, 1, 2, 3, 4, 5] | |
| 560 | 564 | let $s = size($l) | |
| 561 | 565 | let $acc0 = nil | |
| 562 | 566 | func $f1_1 ($a,$i) = if (($i >= $s)) | |
| 563 | 567 | then $a | |
| 564 | 568 | else producer($a, $l[$i]) | |
| 565 | 569 | ||
| 566 | 570 | func $f1_2 ($a,$i) = if (($i >= $s)) | |
| 567 | 571 | then $a | |
| 568 | 572 | else throw("List size exceeds 6") | |
| 569 | 573 | ||
| 570 | 574 | $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 571 | 575 | } | |
| 572 | 576 | let newPack = makeString([currentPack[bpIdxLevel], currentPack[bpIdxRes], makeString(merged, "_"), makeString(bpProd, "_")], ":") | |
| 573 | 577 | let result = asString(invoke(stakingContract, "updateBackpack", [duckAssetId, newPack], nil)) | |
| 574 | 578 | $Tuple2(nil, result) | |
| 575 | 579 | } | |
| 576 | 580 | } | |
| 577 | 581 | } | |
| 578 | 582 | } | |
| 579 | 583 | } | |
| 580 | 584 | else throw("Strict value is not equal to itself.") | |
| 581 | 585 | } | |
| 582 | 586 | ||
| 583 | 587 | ||
| 584 | 588 | ||
| 585 | 589 | @Callable(i) | |
| 586 | 590 | func acceptServicePayment (service) = { | |
| 587 | 591 | let blocked = checkBlocked() | |
| 588 | 592 | if ((blocked == blocked)) | |
| 589 | 593 | then if ((size(i.payments) != 1)) | |
| 590 | 594 | then throw("exactly 1 payment must be attached") | |
| 591 | 595 | else { | |
| 592 | 596 | let pmt = i.payments[0] | |
| 593 | 597 | let amt = pmt.amount | |
| 594 | 598 | let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment") | |
| 595 | 599 | if ((pmtAssetId != usdnAssetId)) | |
| 596 | 600 | then throw("USDN payments only!") | |
| 597 | 601 | else { | |
| 598 | 602 | let need = match service { | |
| 599 | 603 | case _ => | |
| 600 | 604 | if (("LAND_RENAME" == $match0)) | |
| 601 | 605 | then 10000000 | |
| 602 | 606 | else throw("Unknown service!") | |
| 603 | 607 | } | |
| 604 | 608 | if ((amt != need)) | |
| 605 | 609 | then throw((((service + " costs ") + toString(need)) + " USDN")) | |
| 606 | 610 | else $Tuple2(nil, amt) | |
| 607 | 611 | } | |
| 608 | 612 | } | |
| 609 | 613 | else throw("Strict value is not equal to itself.") | |
| 610 | 614 | } | |
| 611 | 615 | ||
| 612 | 616 | ||
| 613 | 617 | ||
| 614 | 618 | @Callable(i) | |
| 615 | 619 | func setWarehouseOrder (cargoListStr,landAssetId) = { | |
| 616 | 620 | let user = i.originCaller | |
| 617 | 621 | let addr = toString(user) | |
| 618 | 622 | let asset = value(assetInfo(fromBase58String(landAssetId))) | |
| 619 | 623 | if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId))))) | |
| 620 | 624 | then throw((("NFT " + asset.name) + " is not staked")) | |
| 621 | 625 | else { | |
| 622 | 626 | let owner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + asset.name) + " is orphaned")) | |
| 623 | 627 | if ((owner != addr)) | |
| 624 | 628 | then throw((LANDPREFIX + " is not yours")) | |
| 625 | 629 | else { | |
| 626 | 630 | let cargoParts = split_4C(cargoListStr, ":") | |
| 627 | 631 | if ((size(cargoParts) != 3)) | |
| 628 | 632 | then throw("cargoListStr should contain exactly 2 ':' separators") | |
| 629 | 633 | else { | |
| 630 | 634 | let resParts = split(cargoParts[0], "_") | |
| 631 | 635 | let matParts = split(cargoParts[1], "_") | |
| 632 | 636 | let prodParts = if ((cargoParts[2] == "")) | |
| 633 | 637 | then nil | |
| 634 | 638 | else split(cargoParts[2], "_") | |
| 635 | 639 | if ((size(resParts) != NUMRES)) | |
| 636 | 640 | then throw("All 6 resources should be passed") | |
| 637 | 641 | else if ((size(matParts) != NUMRES)) | |
| 638 | 642 | then throw("All 6 materials should be passed") | |
| 639 | 643 | else { | |
| 640 | 644 | let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil)) | |
| 641 | 645 | let currentWh = split_4C(wh, ":") | |
| 642 | 646 | let currWhRes = split(currentWh[whIdxRes], "_") | |
| 643 | 647 | let currWhMat = split(currentWh[whIdxMat], "_") | |
| 644 | 648 | let currWhProd = if ((currentWh[whIdxProd] == "")) | |
| 645 | 649 | then nil | |
| 646 | 650 | else split(currentWh[whIdxProd], "_") | |
| 647 | 651 | let currWhResVol = getWarehouseCurrResVolume(currentWh) | |
| 648 | 652 | let currWhMatVol = getWarehouseCurrMatVolume(currentWh) | |
| 649 | 653 | let currWhGoodsVol = getWarehouseCurrGoodsVolume(currentWh) | |
| 650 | 654 | let currWhLockedVol = parseIntValue(currentWh[whIdxLockedVol]) | |
| 651 | 655 | let whSpaceLeft = ((((getWarehouseVolume(currentWh[whIdxVol]) - currWhResVol) - currWhMatVol) - currWhGoodsVol) - currWhLockedVol) | |
| 652 | 656 | let ordKey = keyOrderByLand(landAssetId) | |
| 653 | 657 | let currentOrd = getOrder(ordKey) | |
| 654 | 658 | let currentOrdRes = split(currentOrd[ordIdxRes], "_") | |
| 655 | 659 | let currentOrdMat = split(currentOrd[ordIdxMat], "_") | |
| 656 | 660 | let currentOrdProd = if ((currentOrd[ordIdxProd] == "")) | |
| 657 | 661 | then nil | |
| 658 | 662 | else split(currentOrd[ordIdxProd], "_") | |
| 659 | 663 | let usdnNeed2Lock = 0 | |
| 660 | 664 | func ordR (acc,item) = { | |
| 661 | 665 | let j = acc._1 | |
| 662 | 666 | let itemParts = split(item, "@") | |
| 663 | 667 | if ((size(itemParts) != 2)) | |
| 664 | 668 | then throw("Incorrect order format, should be amount@price") | |
| 665 | 669 | else { | |
| 666 | 670 | let newOrdAm = parseIntValue(itemParts[0]) | |
| 667 | 671 | let newOrdPr = parseIntValue(itemParts[1]) | |
| 668 | 672 | let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8) | |
| 669 | 673 | let whr = parseIntValue(currWhRes[j]) | |
| 670 | 674 | let curOrdParts = split(currentOrdRes[j], "@") | |
| 671 | 675 | let curOrdAm = parseIntValue(curOrdParts[0]) | |
| 672 | 676 | let curOrdPr = parseIntValue(curOrdParts[1]) | |
| 673 | - | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 674 | - | if ((newOrdAm == 0)) | |
| 675 | - | then if ((curOrdAm > 0)) | |
| 676 | - | then $Tuple4((j + 1), (acc._2 :+ toString(whr)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 677 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 678 | - | else if ((newOrdAm > 0)) | |
| 679 | - | then if ((0 > curOrdAm)) | |
| 680 | - | then { | |
| 681 | - | let amDiff = (newOrdAm + curOrdAm) | |
| 682 | - | $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 683 | - | } | |
| 684 | - | else $Tuple4((j + 1), (acc._2 :+ toString(whr)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 685 | - | else if ((0 > curOrdAm)) | |
| 686 | - | then { | |
| 687 | - | let amDiff = (curOrdAm - newOrdAm) | |
| 688 | - | if ((0 > (whr - amDiff))) | |
| 689 | - | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whr)) + " available")) | |
| 690 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whr - amDiff))), (acc._3 + amDiff), acc._4) | |
| 691 | - | } | |
| 692 | - | else if ((0 > (whr + newOrdAm))) | |
| 693 | - | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whr)) + " available")) | |
| 694 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whr + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 677 | + | if ((0 > curOrdPr)) | |
| 678 | + | then throw("Price can't be negative") | |
| 679 | + | else { | |
| 680 | + | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 681 | + | if ((newOrdAm == 0)) | |
| 682 | + | then if ((curOrdAm > 0)) | |
| 683 | + | then $Tuple4((j + 1), (acc._2 :+ toString(whr)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 684 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 685 | + | else if ((newOrdAm > 0)) | |
| 686 | + | then if ((0 > curOrdAm)) | |
| 687 | + | then { | |
| 688 | + | let amDiff = (newOrdAm + curOrdAm) | |
| 689 | + | $Tuple4((j + 1), (acc._2 :+ toString((whr - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 690 | + | } | |
| 691 | + | else $Tuple4((j + 1), (acc._2 :+ toString(whr)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 692 | + | else if ((0 > curOrdAm)) | |
| 693 | + | then { | |
| 694 | + | let amDiff = (curOrdAm - newOrdAm) | |
| 695 | + | if ((0 > (whr - amDiff))) | |
| 696 | + | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whr)) + " available")) | |
| 697 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whr - amDiff))), (acc._3 + amDiff), acc._4) | |
| 698 | + | } | |
| 699 | + | else if ((0 > (whr + newOrdAm))) | |
| 700 | + | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whr)) + " available")) | |
| 701 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whr + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 702 | + | } | |
| 695 | 703 | } | |
| 696 | 704 | } | |
| 697 | 705 | ||
| 698 | 706 | let r = { | |
| 699 | 707 | let $l = resParts | |
| 700 | 708 | let $s = size($l) | |
| 701 | 709 | let $acc0 = $Tuple4(0, nil, 0, 0) | |
| 702 | 710 | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 703 | 711 | then $a | |
| 704 | 712 | else ordR($a, $l[$i]) | |
| 705 | 713 | ||
| 706 | 714 | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 707 | 715 | then $a | |
| 708 | 716 | else throw("List size exceeds 6") | |
| 709 | 717 | ||
| 710 | 718 | $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 711 | 719 | } | |
| 712 | 720 | func ordM (acc,item) = { | |
| 713 | 721 | let j = acc._1 | |
| 714 | 722 | let itemParts = split(item, "@") | |
| 715 | 723 | if ((size(itemParts) != 2)) | |
| 716 | 724 | then throw("Incorrect order format, should be amount@price") | |
| 717 | 725 | else { | |
| 718 | 726 | let newOrdAm = parseIntValue(itemParts[0]) | |
| 719 | 727 | let newOrdPr = parseIntValue(itemParts[1]) | |
| 720 | 728 | let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8) | |
| 721 | 729 | let whm = parseIntValue(currWhMat[j]) | |
| 722 | 730 | let curOrdParts = split(currentOrdMat[j], "@") | |
| 723 | 731 | let curOrdAm = parseIntValue(curOrdParts[0]) | |
| 724 | 732 | let curOrdPr = parseIntValue(curOrdParts[1]) | |
| 725 | - | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 726 | - | if ((newOrdAm == 0)) | |
| 727 | - | then if ((curOrdAm > 0)) | |
| 728 | - | then $Tuple4((j + 1), (acc._2 :+ toString(whm)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 729 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 730 | - | else if ((newOrdAm > 0)) | |
| 731 | - | then if ((0 > curOrdAm)) | |
| 732 | - | then { | |
| 733 | - | let amDiff = (newOrdAm + curOrdAm) | |
| 734 | - | $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 735 | - | } | |
| 736 | - | else $Tuple4((j + 1), (acc._2 :+ toString(whm)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 737 | - | else if ((0 > curOrdAm)) | |
| 738 | - | then { | |
| 739 | - | let amDiff = (curOrdAm - newOrdAm) | |
| 740 | - | if ((0 > (whm - amDiff))) | |
| 741 | - | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whm)) + " available")) | |
| 742 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whm - amDiff))), (acc._3 + amDiff), acc._4) | |
| 743 | - | } | |
| 744 | - | else if ((0 > (whm + newOrdAm))) | |
| 745 | - | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whm)) + " available")) | |
| 746 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whm + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 733 | + | if ((0 > curOrdPr)) | |
| 734 | + | then throw("Price can't be negative") | |
| 735 | + | else { | |
| 736 | + | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 737 | + | if ((newOrdAm == 0)) | |
| 738 | + | then if ((curOrdAm > 0)) | |
| 739 | + | then $Tuple4((j + 1), (acc._2 :+ toString(whm)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 740 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 741 | + | else if ((newOrdAm > 0)) | |
| 742 | + | then if ((0 > curOrdAm)) | |
| 743 | + | then { | |
| 744 | + | let amDiff = (newOrdAm + curOrdAm) | |
| 745 | + | $Tuple4((j + 1), (acc._2 :+ toString((whm - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 746 | + | } | |
| 747 | + | else $Tuple4((j + 1), (acc._2 :+ toString(whm)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 748 | + | else if ((0 > curOrdAm)) | |
| 749 | + | then { | |
| 750 | + | let amDiff = (curOrdAm - newOrdAm) | |
| 751 | + | if ((0 > (whm - amDiff))) | |
| 752 | + | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whm)) + " available")) | |
| 753 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whm - amDiff))), (acc._3 + amDiff), acc._4) | |
| 754 | + | } | |
| 755 | + | else if ((0 > (whm + newOrdAm))) | |
| 756 | + | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whm)) + " available")) | |
| 757 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whm + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 758 | + | } | |
| 747 | 759 | } | |
| 748 | 760 | } | |
| 749 | 761 | ||
| 750 | 762 | let m = { | |
| 751 | 763 | let $l = matParts | |
| 752 | 764 | let $s = size($l) | |
| 753 | 765 | let $acc0 = $Tuple4(0, nil, r._3, r._4) | |
| 754 | 766 | func $f1_1 ($a,$i) = if (($i >= $s)) | |
| 755 | 767 | then $a | |
| 756 | 768 | else ordM($a, $l[$i]) | |
| 757 | 769 | ||
| 758 | 770 | func $f1_2 ($a,$i) = if (($i >= $s)) | |
| 759 | 771 | then $a | |
| 760 | 772 | else throw("List size exceeds 6") | |
| 761 | 773 | ||
| 762 | 774 | $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 763 | 775 | } | |
| 764 | 776 | func ordP (acc,item) = { | |
| 765 | 777 | let j = acc._1 | |
| 766 | 778 | let itemParts = split(item, "@") | |
| 767 | 779 | if ((size(itemParts) != 2)) | |
| 768 | 780 | then throw("Incorrect order format, should be amount@price") | |
| 769 | 781 | else { | |
| 770 | 782 | let newOrdAm = parseIntValue(itemParts[0]) | |
| 771 | 783 | let newOrdPr = parseIntValue(itemParts[1]) | |
| 772 | 784 | let newOrdUsd = fraction(newOrdAm, newOrdPr, MULT8) | |
| 773 | 785 | let whp = parseIntValue(currWhProd[j]) | |
| 774 | 786 | let curOrdParts = split(currentOrdProd[j], "@") | |
| 775 | 787 | let curOrdAm = parseIntValue(curOrdParts[0]) | |
| 776 | 788 | let curOrdPr = parseIntValue(curOrdParts[1]) | |
| 777 | - | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 778 | - | if ((newOrdAm == 0)) | |
| 779 | - | then if ((curOrdAm > 0)) | |
| 780 | - | then $Tuple4((j + 1), (acc._2 :+ toString(whp)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 781 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 782 | - | else if ((newOrdAm > 0)) | |
| 783 | - | then if ((0 > curOrdAm)) | |
| 784 | - | then { | |
| 785 | - | let amDiff = (newOrdAm + curOrdAm) | |
| 786 | - | $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 787 | - | } | |
| 788 | - | else $Tuple4((j + 1), (acc._2 :+ toString(whp)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 789 | - | else if ((0 > curOrdAm)) | |
| 790 | - | then { | |
| 791 | - | let amDiff = (curOrdAm - newOrdAm) | |
| 792 | - | if ((0 > (whp - amDiff))) | |
| 793 | - | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whp)) + " available")) | |
| 794 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whp - amDiff))), (acc._3 + amDiff), acc._3) | |
| 795 | - | } | |
| 796 | - | else if ((0 > (whp + newOrdAm))) | |
| 797 | - | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whp)) + " available")) | |
| 798 | - | else $Tuple4((j + 1), (acc._2 :+ toString((whp + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 789 | + | if ((0 > curOrdPr)) | |
| 790 | + | then throw("Price can't be negative") | |
| 791 | + | else { | |
| 792 | + | let curOrdUsd = fraction(curOrdAm, curOrdPr, MULT8) | |
| 793 | + | if ((newOrdAm == 0)) | |
| 794 | + | then if ((curOrdAm > 0)) | |
| 795 | + | then $Tuple4((j + 1), (acc._2 :+ toString(whp)), (acc._3 - curOrdAm), (acc._4 - curOrdUsd)) | |
| 796 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + curOrdAm), acc._4) | |
| 797 | + | else if ((newOrdAm > 0)) | |
| 798 | + | then if ((0 > curOrdAm)) | |
| 799 | + | then { | |
| 800 | + | let amDiff = (newOrdAm + curOrdAm) | |
| 801 | + | $Tuple4((j + 1), (acc._2 :+ toString((whp - curOrdAm))), (acc._3 + amDiff), (acc._4 + newOrdUsd)) | |
| 802 | + | } | |
| 803 | + | else $Tuple4((j + 1), (acc._2 :+ toString(whp)), ((acc._3 + newOrdAm) - curOrdAm), ((acc._4 + newOrdUsd) - curOrdUsd)) | |
| 804 | + | else if ((0 > curOrdAm)) | |
| 805 | + | then { | |
| 806 | + | let amDiff = (curOrdAm - newOrdAm) | |
| 807 | + | if ((0 > (whp - amDiff))) | |
| 808 | + | then throw((((("Attempt to take " + toString(amDiff)) + " from warehouse, but only ") + toString(whp)) + " available")) | |
| 809 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whp - amDiff))), (acc._3 + amDiff), acc._3) | |
| 810 | + | } | |
| 811 | + | else if ((0 > (whp + newOrdAm))) | |
| 812 | + | then throw((((("Attempt to take " + toString(-(newOrdAm))) + " from warehouse, but only ") + toString(whp)) + " available")) | |
| 813 | + | else $Tuple4((j + 1), (acc._2 :+ toString((whp + newOrdAm))), ((acc._3 - newOrdAm) - curOrdAm), (acc._4 - curOrdUsd)) | |
| 814 | + | } | |
| 799 | 815 | } | |
| 800 | 816 | } | |
| 801 | 817 | ||
| 802 | 818 | let p = { | |
| 803 | 819 | let $l = prodParts | |
| 804 | 820 | let $s = size($l) | |
| 805 | 821 | let $acc0 = $Tuple4(0, nil, m._3, m._4) | |
| 806 | 822 | func $f2_1 ($a,$i) = if (($i >= $s)) | |
| 807 | 823 | then $a | |
| 808 | 824 | else ordP($a, $l[$i]) | |
| 809 | 825 | ||
| 810 | 826 | func $f2_2 ($a,$i) = if (($i >= $s)) | |
| 811 | 827 | then $a | |
| 812 | 828 | else throw("List size exceeds 50") | |
| 813 | 829 | ||
| 814 | 830 | $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50) | |
| 815 | 831 | } | |
| 816 | 832 | let volSaldo = p._3 | |
| 817 | 833 | if ((volSaldo > whSpaceLeft)) | |
| 818 | 834 | then throw((((("Attempt to reserve " + toString(volSaldo)) + " space, but only ") + toString(whSpaceLeft)) + " warehouse space left")) | |
| 819 | 835 | else { | |
| 820 | 836 | let whStr = makeString_2C([currentWh[whIdxVol], makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_"), toString(volSaldo)], ":") | |
| 821 | 837 | let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil) | |
| 822 | 838 | if ((whSave == whSave)) | |
| 823 | 839 | then { | |
| 824 | - | let usdSaldo = p._4 | |
| 840 | + | let usdSaldo = fraction(p._4, (MULT6 + AUCTIONFEE), MULT6) | |
| 825 | 841 | if ((usdSaldo > 0)) | |
| 826 | 842 | then if ((size(i.payments) != 1)) | |
| 827 | 843 | then throw("exactly 1 payment must be attached") | |
| 828 | 844 | else { | |
| 829 | 845 | let pmt = i.payments[0] | |
| 830 | 846 | let amt = pmt.amount | |
| 831 | 847 | let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment") | |
| 832 | 848 | if ((pmtAssetId != usdnAssetId)) | |
| 833 | 849 | then throw("USDN payments only!") | |
| 834 | 850 | else if ((amt != usdSaldo)) | |
| 835 | 851 | then throw(("Payment needed is " + toString(usdSaldo))) | |
| 836 | 852 | else [StringEntry(ordKey, cargoListStr)] | |
| 837 | 853 | } | |
| 838 | 854 | else if ((usdSaldo == 0)) | |
| 839 | 855 | then if ((size(i.payments) != 0)) | |
| 840 | 856 | then throw("No payments needed") | |
| 841 | 857 | else [StringEntry(ordKey, cargoListStr)] | |
| 842 | 858 | else if ((size(i.payments) != 0)) | |
| 843 | 859 | then throw("No payments needed") | |
| 844 | 860 | else [ScriptTransfer(user, -(usdSaldo), usdnAssetId), StringEntry(ordKey, cargoListStr)] | |
| 845 | 861 | } | |
| 846 | 862 | else throw("Strict value is not equal to itself.") | |
| 847 | 863 | } | |
| 848 | 864 | } | |
| 849 | 865 | } | |
| 850 | 866 | } | |
| 851 | 867 | } | |
| 852 | 868 | } | |
| 853 | 869 | ||
| 854 | 870 | ||
| 871 | + | ||
| 872 | + | @Callable(i) | |
| 873 | + | func acceptWarehouseOrder (bpOrderStr,landAssetId,duckAssetId) = { | |
| 874 | + | let caller = i.originCaller | |
| 875 | + | let callerAddr = toString(caller) | |
| 876 | + | let stakedDuckAssetId = valueOrErrorMessage(getString(stakingContract, keyStakedDuckByOwner(callerAddr)), "You don't have a duck staked") | |
| 877 | + | let curLocation = valueOrElse(getString(stakingContract, keyDuckLocation(stakedDuckAssetId)), DEFAULTLOCATION) | |
| 878 | + | let loc = split(value(curLocation), "_") | |
| 879 | + | if ((loc[locIdxType] != "L")) | |
| 880 | + | then throw((("Duck location type is " + loc[locIdxType]) + ", but should be L")) | |
| 881 | + | else if ((stakedDuckAssetId != duckAssetId)) | |
| 882 | + | then throw(((("Your staked duck is " + stakedDuckAssetId) + ", but passed ") + duckAssetId)) | |
| 883 | + | else { | |
| 884 | + | let landAsset = value(assetInfo(fromBase58String(landAssetId))) | |
| 885 | + | if (!(isDefined(getInteger(stakingContract, keyStakedTimeByAssetId(landAssetId))))) | |
| 886 | + | then throw((("NFT " + landAsset.name) + " is not staked")) | |
| 887 | + | else { | |
| 888 | + | let landOwner = valueOrErrorMessage(getString(stakingContract, keyLandAssetIdToOwner(landAssetId)), (("NFT " + landAsset.name) + " is orphaned")) | |
| 889 | + | if ((landOwner == callerAddr)) | |
| 890 | + | then throw("You cannot trade with yourself") | |
| 891 | + | else { | |
| 892 | + | let bpOrderParts = split_4C(bpOrderStr, ":") | |
| 893 | + | if ((size(bpOrderParts) != 3)) | |
| 894 | + | then throw("bpOrderStr should contain exactly 2 ':' separators") | |
| 895 | + | else { | |
| 896 | + | let bpOrdRes = split(bpOrderParts[0], "_") | |
| 897 | + | let bpOrdMat = split(bpOrderParts[1], "_") | |
| 898 | + | let bpOrdProd = if ((bpOrderParts[2] == "")) | |
| 899 | + | then nil | |
| 900 | + | else split(bpOrderParts[2], "_") | |
| 901 | + | if ((size(bpOrdRes) != NUMRES)) | |
| 902 | + | then throw("All 6 resources should be passed") | |
| 903 | + | else if ((size(bpOrdMat) != NUMRES)) | |
| 904 | + | then throw("All 6 materials should be passed") | |
| 905 | + | else { | |
| 906 | + | let wh = asString(invoke(stakingContract, "getWarehouseREADONLY", [landAssetId], nil)) | |
| 907 | + | let currentWh = split_4C(wh, ":") | |
| 908 | + | let currWhRes = split(currentWh[whIdxRes], "_") | |
| 909 | + | let currWhMat = split(currentWh[whIdxMat], "_") | |
| 910 | + | let currWhProd = if ((currentWh[whIdxProd] == "")) | |
| 911 | + | then nil | |
| 912 | + | else split(currentWh[whIdxProd], "_") | |
| 913 | + | let currWhResVol = getWarehouseCurrResVolume(currentWh) | |
| 914 | + | let currWhMatVol = getWarehouseCurrMatVolume(currentWh) | |
| 915 | + | let currWhGoodsVol = getWarehouseCurrGoodsVolume(currentWh) | |
| 916 | + | let currWhLockedVol = parseIntValue(currentWh[whIdxLockedVol]) | |
| 917 | + | let whSpaceLeft = ((((getWarehouseVolume(currentWh[whIdxVol]) - currWhResVol) - currWhMatVol) - currWhGoodsVol) - currWhLockedVol) | |
| 918 | + | let bpKey = keyBackpackByDuck(duckAssetId) | |
| 919 | + | let currentPack = getBackpack(bpKey) | |
| 920 | + | let bpResList = split(currentPack[bpIdxRes], "_") | |
| 921 | + | let bpMatList = split(currentPack[bpIdxMat], "_") | |
| 922 | + | let bpProdList = if ((currentPack[bpIdxProd] == "")) | |
| 923 | + | then nil | |
| 924 | + | else split(currentPack[bpIdxProd], "_") | |
| 925 | + | let ordKey = keyOrderByLand(landAssetId) | |
| 926 | + | let whOrd = getOrder(ordKey) | |
| 927 | + | let whOrdRes = split(whOrd[ordIdxRes], "_") | |
| 928 | + | let whOrdMat = split(whOrd[ordIdxMat], "_") | |
| 929 | + | let whOrdProd = if ((whOrd[ordIdxProd] == "")) | |
| 930 | + | then nil | |
| 931 | + | else split(whOrd[ordIdxProd], "_") | |
| 932 | + | let usdnNeed2Lock = 0 | |
| 933 | + | func ordR (acc,j) = { | |
| 934 | + | let bpOrdResParts = split(bpOrdRes[j], "@") | |
| 935 | + | if ((size(bpOrdResParts) != 2)) | |
| 936 | + | then throw("Incorrect order format, should be amount@price") | |
| 937 | + | else { | |
| 938 | + | let bpOrdAm = parseIntValue(bpOrdResParts[0]) | |
| 939 | + | let bpOrdPr = parseIntValue(bpOrdResParts[1]) | |
| 940 | + | if ((0 > bpOrdPr)) | |
| 941 | + | then throw("Price can't be negative") | |
| 942 | + | else { | |
| 943 | + | let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8) | |
| 944 | + | let bpr = parseIntValue(bpResList[j]) | |
| 945 | + | let whr = parseIntValue(currWhRes[j]) | |
| 946 | + | let whOrdParts = split(whOrdRes[j], "@") | |
| 947 | + | let whOrdAm = parseIntValue(whOrdParts[0]) | |
| 948 | + | let whOrdPr = parseIntValue(whOrdParts[1]) | |
| 949 | + | if ((bpOrdPr != whOrdPr)) | |
| 950 | + | then throw((("Prices of " + resTypes[j]) + " don't match")) | |
| 951 | + | else { | |
| 952 | + | let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8) | |
| 953 | + | if ((bpOrdAm == 0)) | |
| 954 | + | then $Tuple6((acc._1 :+ currWhRes[j]), (acc._2 :+ whOrdRes[j]), (acc._3 :+ bpResList[j]), acc._4, acc._5, acc._6) | |
| 955 | + | else if ((bpOrdAm > 0)) | |
| 956 | + | then if ((0 > whOrdAm)) | |
| 957 | + | then if ((bpOrdAm > -(whOrdAm))) | |
| 958 | + | then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + resTypes[j]) + ", but warehouse only sells ") + toString(-(whOrdAm)))) | |
| 959 | + | else $Tuple6((acc._1 :+ currWhRes[j]), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpr + bpOrdAm))), (acc._4 + bpOrdAm), acc._5, (acc._6 + bpOrdUsd)) | |
| 960 | + | else throw((("Attempt to buy " + resTypes[j]) + " while warehouse doesn't sell it")) | |
| 961 | + | else if ((whOrdAm > 0)) | |
| 962 | + | then if ((-(bpOrdAm) > whOrdAm)) | |
| 963 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + resTypes[j]) + ", but warehouse only buys ") + toString(whOrdAm))) | |
| 964 | + | else if ((-(bpOrdAm) > bpr)) | |
| 965 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + bpResList[j]) + " of ") + resTypes[j])) | |
| 966 | + | else $Tuple6((acc._1 :+ toString((whr - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ "0"), (acc._4 - bpOrdAm), (acc._5 - bpOrdUsd), acc._6) | |
| 967 | + | else throw((("Attempt to sell " + resTypes[j]) + " while warehouse doesn't buy it")) | |
| 968 | + | } | |
| 969 | + | } | |
| 970 | + | } | |
| 971 | + | } | |
| 972 | + | ||
| 973 | + | let r = { | |
| 974 | + | let $l = [0, 1, 2, 3, 4, 5] | |
| 975 | + | let $s = size($l) | |
| 976 | + | let $acc0 = $Tuple6(nil, nil, nil, 0, 0, 0) | |
| 977 | + | func $f0_1 ($a,$i) = if (($i >= $s)) | |
| 978 | + | then $a | |
| 979 | + | else ordR($a, $l[$i]) | |
| 980 | + | ||
| 981 | + | func $f0_2 ($a,$i) = if (($i >= $s)) | |
| 982 | + | then $a | |
| 983 | + | else throw("List size exceeds 6") | |
| 984 | + | ||
| 985 | + | $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 986 | + | } | |
| 987 | + | func ordM (acc,j) = { | |
| 988 | + | let bpOrdMatParts = split(bpOrdMat[j], "@") | |
| 989 | + | if ((size(bpOrdMatParts) != 2)) | |
| 990 | + | then throw("Incorrect order format, should be amount@price") | |
| 991 | + | else { | |
| 992 | + | let bpOrdAm = parseIntValue(bpOrdMatParts[0]) | |
| 993 | + | let bpOrdPr = parseIntValue(bpOrdMatParts[1]) | |
| 994 | + | if ((0 > bpOrdPr)) | |
| 995 | + | then throw("Price can't be negative") | |
| 996 | + | else { | |
| 997 | + | let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8) | |
| 998 | + | let bpr = parseIntValue(bpMatList[j]) | |
| 999 | + | let whr = parseIntValue(currWhMat[j]) | |
| 1000 | + | let whOrdParts = split(whOrdMat[j], "@") | |
| 1001 | + | let whOrdAm = parseIntValue(whOrdParts[0]) | |
| 1002 | + | let whOrdPr = parseIntValue(whOrdParts[1]) | |
| 1003 | + | if ((bpOrdPr != whOrdPr)) | |
| 1004 | + | then throw((("Prices of " + matTypes[j]) + " don't match")) | |
| 1005 | + | else { | |
| 1006 | + | let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8) | |
| 1007 | + | if ((bpOrdAm == 0)) | |
| 1008 | + | then $Tuple6((acc._1 :+ currWhMat[j]), (acc._2 :+ whOrdMat[j]), (acc._3 :+ bpMatList[j]), acc._4, acc._5, acc._6) | |
| 1009 | + | else if ((bpOrdAm > 0)) | |
| 1010 | + | then if ((0 > whOrdAm)) | |
| 1011 | + | then if ((bpOrdAm > -(whOrdAm))) | |
| 1012 | + | then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + matTypes[j]) + ", but warehouse only sells ") + toString(-(whOrdAm)))) | |
| 1013 | + | else $Tuple6((acc._1 :+ currWhMat[j]), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpr + bpOrdAm))), (acc._4 + bpOrdAm), acc._5, (acc._6 + bpOrdUsd)) | |
| 1014 | + | else throw((("Attempt to buy " + matTypes[j]) + " while warehouse doesn't sell it")) | |
| 1015 | + | else if ((whOrdAm > 0)) | |
| 1016 | + | then if ((-(bpOrdAm) > whOrdAm)) | |
| 1017 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + matTypes[j]) + ", but warehouse only buys ") + toString(whOrdAm))) | |
| 1018 | + | else if ((-(bpOrdAm) > bpr)) | |
| 1019 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + bpMatList[j]) + " of ") + matTypes[j])) | |
| 1020 | + | else $Tuple6((acc._1 :+ toString((whr - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ "0"), (acc._4 - bpOrdAm), (acc._5 - bpOrdUsd), acc._6) | |
| 1021 | + | else throw((("Attempt to sell " + matTypes[j]) + " while warehouse doesn't buy it")) | |
| 1022 | + | } | |
| 1023 | + | } | |
| 1024 | + | } | |
| 1025 | + | } | |
| 1026 | + | ||
| 1027 | + | let m = { | |
| 1028 | + | let $l = [0, 1, 2, 3, 4, 5] | |
| 1029 | + | let $s = size($l) | |
| 1030 | + | let $acc0 = $Tuple6(nil, nil, nil, r._4, r._5, r._6) | |
| 1031 | + | func $f1_1 ($a,$i) = if (($i >= $s)) | |
| 1032 | + | then $a | |
| 1033 | + | else ordM($a, $l[$i]) | |
| 1034 | + | ||
| 1035 | + | func $f1_2 ($a,$i) = if (($i >= $s)) | |
| 1036 | + | then $a | |
| 1037 | + | else throw("List size exceeds 6") | |
| 1038 | + | ||
| 1039 | + | $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6) | |
| 1040 | + | } | |
| 1041 | + | func ordP (acc,j) = { | |
| 1042 | + | let bpOrdProdParts = split(bpOrdProd[j], "@") | |
| 1043 | + | if ((size(bpOrdProdParts) != 2)) | |
| 1044 | + | then throw("Incorrect order format, should be amount@price") | |
| 1045 | + | else { | |
| 1046 | + | let bpOrdAm = parseIntValue(bpOrdProdParts[0]) | |
| 1047 | + | let bpOrdPr = parseIntValue(bpOrdProdParts[1]) | |
| 1048 | + | if ((0 > bpOrdPr)) | |
| 1049 | + | then throw("Price can't be negative") | |
| 1050 | + | else { | |
| 1051 | + | let bpOrdUsd = fraction(bpOrdAm, bpOrdPr, MULT8) | |
| 1052 | + | let bpr = parseIntValue(bpProdList[j]) | |
| 1053 | + | let whr = parseIntValue(currWhProd[j]) | |
| 1054 | + | let whOrdParts = split(whOrdProd[j], "@") | |
| 1055 | + | let whOrdAm = parseIntValue(whOrdParts[0]) | |
| 1056 | + | let whOrdPr = parseIntValue(whOrdParts[1]) | |
| 1057 | + | if ((bpOrdPr != whOrdPr)) | |
| 1058 | + | then throw((("Prices of " + prodTypes[j]) + " don't match")) | |
| 1059 | + | else { | |
| 1060 | + | let whOrdUsd = fraction(whOrdAm, whOrdPr, MULT8) | |
| 1061 | + | if ((bpOrdAm == 0)) | |
| 1062 | + | then $Tuple6((acc._1 :+ currWhProd[j]), (acc._2 :+ whOrdProd[j]), (acc._3 :+ bpProdList[j]), acc._4, acc._5, acc._6) | |
| 1063 | + | else if ((bpOrdAm > 0)) | |
| 1064 | + | then if ((0 > whOrdAm)) | |
| 1065 | + | then if ((bpOrdAm > -(whOrdAm))) | |
| 1066 | + | then throw(((((("Attempt to buy " + toString(bpOrdAm)) + " of ") + prodTypes[j]) + ", but warehouse only sells ") + toString(-(whOrdAm)))) | |
| 1067 | + | else $Tuple6((acc._1 :+ currWhProd[j]), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ toString((bpr + bpOrdAm))), (acc._4 + bpOrdAm), acc._5, (acc._6 + bpOrdUsd)) | |
| 1068 | + | else throw((("Attempt to buy " + prodTypes[j]) + " while warehouse doesn't sell it")) | |
| 1069 | + | else if ((whOrdAm > 0)) | |
| 1070 | + | then if ((-(bpOrdAm) > whOrdAm)) | |
| 1071 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + " of ") + prodTypes[j]) + ", but warehouse only buys ") + toString(whOrdAm))) | |
| 1072 | + | else if ((-(bpOrdAm) > bpr)) | |
| 1073 | + | then throw(((((("Attempt to sell " + toString(-(bpOrdAm))) + ", but you only have ") + bpProdList[j]) + " of ") + prodTypes[j])) | |
| 1074 | + | else $Tuple6((acc._1 :+ toString((whr - bpOrdAm))), (acc._2 :+ ((toString((whOrdAm + bpOrdAm)) + "@") + toString(whOrdPr))), (acc._3 :+ "0"), (acc._4 - bpOrdAm), (acc._5 - bpOrdUsd), acc._6) | |
| 1075 | + | else throw((("Attempt to sell " + prodTypes[j]) + " while warehouse doesn't buy it")) | |
| 1076 | + | } | |
| 1077 | + | } | |
| 1078 | + | } | |
| 1079 | + | } | |
| 1080 | + | ||
| 1081 | + | let p = { | |
| 1082 | + | let $l = [0, 1, 2, 3, 4, 5] | |
| 1083 | + | let $s = size($l) | |
| 1084 | + | let $acc0 = $Tuple6(nil, nil, nil, m._4, m._5, m._6) | |
| 1085 | + | func $f2_1 ($a,$i) = if (($i >= $s)) | |
| 1086 | + | then $a | |
| 1087 | + | else ordP($a, $l[$i]) | |
| 1088 | + | ||
| 1089 | + | func $f2_2 ($a,$i) = if (($i >= $s)) | |
| 1090 | + | then $a | |
| 1091 | + | else throw("List size exceeds 50") | |
| 1092 | + | ||
| 1093 | + | $f2_2($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($f2_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50) | |
| 1094 | + | } | |
| 1095 | + | let volSaldo = p._4 | |
| 1096 | + | let whStr = makeString_2C([currentWh[whIdxVol], makeString(r._1, "_"), makeString(m._1, "_"), makeString(p._1, "_"), toString(volSaldo)], ":") | |
| 1097 | + | let newWhOrdStr = makeString_2C([makeString(r._2, "_"), makeString(m._2, "_"), makeString(p._2, "_")], ":") | |
| 1098 | + | let newBpStr = makeString_2C([currentPack[bpIdxLevel], makeString(r._3, "_"), makeString(m._3, "_"), makeString(p._3, "_")], ":") | |
| 1099 | + | let whSave = invoke(stakingContract, "saveWarehouse", [whStr, landAssetId], nil) | |
| 1100 | + | if ((whSave == whSave)) | |
| 1101 | + | then { | |
| 1102 | + | let bpSave = invoke(stakingContract, "updateBackpack", [duckAssetId, newBpStr], nil) | |
| 1103 | + | if ((bpSave == bpSave)) | |
| 1104 | + | then { | |
| 1105 | + | let actions = [StringEntry(ordKey, newWhOrdStr)] | |
| 1106 | + | let usdWh2BpSaldo = fraction(p._5, (MULT6 + AUCTIONFEE), MULT6) | |
| 1107 | + | let actions1 = if ((usdWh2BpSaldo > 0)) | |
| 1108 | + | then (actions :+ ScriptTransfer(caller, p._5, usdnAssetId)) | |
| 1109 | + | else actions | |
| 1110 | + | let usdBp2WhSaldo = fraction(p._6, (MULT6 + AUCTIONFEE), MULT6) | |
| 1111 | + | if ((usdBp2WhSaldo > 0)) | |
| 1112 | + | then if ((size(i.payments) != 1)) | |
| 1113 | + | then throw("exactly 1 payment must be attached") | |
| 1114 | + | else { | |
| 1115 | + | let pmt = i.payments[0] | |
| 1116 | + | let amt = pmt.amount | |
| 1117 | + | let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment") | |
| 1118 | + | if ((pmtAssetId != usdnAssetId)) | |
| 1119 | + | then throw("USDN payments only!") | |
| 1120 | + | else if ((amt != usdBp2WhSaldo)) | |
| 1121 | + | then throw(("Payment needed is " + toString(usdBp2WhSaldo))) | |
| 1122 | + | else (actions1 :+ ScriptTransfer(addressFromStringValue(landOwner), p._6, usdnAssetId)) | |
| 1123 | + | } | |
| 1124 | + | else if ((size(i.payments) != 0)) | |
| 1125 | + | then throw("No payments needed") | |
| 1126 | + | else actions1 | |
| 1127 | + | } | |
| 1128 | + | else throw("Strict value is not equal to itself.") | |
| 1129 | + | } | |
| 1130 | + | else throw("Strict value is not equal to itself.") | |
| 1131 | + | } | |
| 1132 | + | } | |
| 1133 | + | } | |
| 1134 | + | } | |
| 1135 | + | } | |
| 1136 | + | } | |
| 1137 | + | ||
| 1138 | + |
github/deemru/w8io/873ac7e 138.51 ms ◑