w8 · tx · Csv···UmT

tx · CsvaN7nd1PhE4TZyprVtGKPsbQaM1mcC8tET4Yho4UmT

3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z:  -0.01600000 Waves

2024.09.01 21:54 [3264881] smart account 3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CsvaN7nd1PhE4TZyprVtGKPsbQaM1mcC8tET4Yho4UmT",
    "fee": 1600000,
    "feeAssetId": null,
    "timestamp": 1725216884141,
    "version": 2,
    "chainId": 84,
    "sender": "3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z",
    "senderPublicKey": "5CoDbXxoqnvJpx9GrS6M4G5GYJXh9rcoiXJz7RYTPVkL",
    "proofs": [
        "2EjF9b77pRXmZ8FP3GSELPmTyT67hdzahW6ACCjpy1ZrJFqN8tcvnZoFkC7AKy9gST8d9N6X322oEhvbiko9VZCq"
    ],
    "script": "base64:BgIcCAISBwoFCAgICAgSAwoBARIDCgEBEgASAwoBCFYAA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDgAgMLXLwAOTUlOU0hPUFBBWU1FTlQAoI0GAApEQVlfTUlMTElTAIC4mSkABWNoYWluCQDJAQIJAMoBAggFBHRoaXMFYnl0ZXMAAQABAAt1c2R0QXNzZXRJZAQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAEghNp6sggDP07Ru8qO7ouTvMmC3Qtd+geWqNQj+agP/7kDCQAAAgEBVAUHJG1hdGNoMAEgVbHYn3KHgu/l41uNrAWrZd6aQ6EvFrsF8xq3h6XxxRgJAAIBAg1Vbmtub3duIGNoYWluABVkZWZhdWx0UmVzdEFkZHJlc3NTdHIEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDACBTNQLi4uAwkAAAIBAVQFByRtYXRjaDACBTNNLi4uCQACAQINVW5rbm93biBjaGFpbgAOYXJiaXRyYWdlRGVsYXkEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDAFCkRBWV9NSUxMSVMDCQAAAgEBVAUHJG1hdGNoMADg1AMJAAIBAg1Vbmtub3duIGNoYWluAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAAPSWR4Q2ZnQWNyZXNEYXBwAAEADUlkeENmZ1dsZ0RhcHAAAgAUSWR4Q2ZnUHV6emxlUG9vbERhcHAABAAUSWR4Q2ZnSW52ZXN0RnVuZERhcHAABQEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ9JZHhDZmdBY3Jlc0RhcHAAC3dsZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUNSWR4Q2ZnV2xnRGFwcAAScHV6emxlUG9vbENvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUUSWR4Q2ZnUHV6emxlUG9vbERhcHAAEmludmVzdEZ1bmRDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFFElkeENmZ0ludmVzdEZ1bmREYXBwAA13bGdBc3NldElkS2V5Agt3bGdfYXNzZXRJZAAKd2xnQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFC3dsZ0NvbnRyYWN0BQ13bGdBc3NldElkS2V5AhhXTEdPTEQgaXMgbm90IGlzc3VlZCB5ZXQBBWFzSW50AQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACA0ludAQBbgUHJG1hdGNoMAUBbgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAAMaWR4V2xnQW1vdW50AAAAC2lkeFdsZ1ByaWNlAAEAC2lkeFdsZ0Z1bmRzAAIAD2lkeFdsZ0lzc3VlVGltZQAGABVpZHhXbGdNYXJrZXRpbmdBbUxlZnQACQAZaWR4V2xnTWFya2V0aW5nQW1BdmFpbE5vdwAKABBpZHhXbGdUZWFtQW1MZWZ0AA0AFGlkeFdsZ1RlYW1BbUF2YWlsTm93AA4AD2lkeFdsZ0FjdEFtTGVmdAARABNpZHhXbGdBY3RBbUF2YWlsTm93ABIAEWlkeFdsZ0FtTGVmdFRvdGFsABUAFGlkeFdsZ1VzZXJBbUF2YWlsTm93ABgAFGlkeFdsZ1VzZXJUb3RhbEF2YWlsABoAEWlkeFdsZ0VmZlVzZXJUaW1lABsAEmlkeFdsZ0JhbmtBdmFpbE5vdwAcAQpmaXhlZFBvaW50AgN2YWwIZGVjaW1hbHMEBnRlblBvdwkAbAYACgAABQhkZWNpbWFscwAAAAAFBERPV04EB2xvd1BhcnQJAKQDAQkAagIFA3ZhbAUGdGVuUG93BAZ6ZXJvZXMJALACAgkApAMBBQZ0ZW5Qb3cJAGQCAAEJALECAQUHbG93UGFydAkArAICCQCsAgIJAKwCAgkApAMBCQBpAgUDdmFsBQZ0ZW5Qb3cCAS4FBnplcm9lcwUHbG93UGFydAACTTYAwIQ9AAJNOACAwtcvAAhNSUxMSU9ONgCAgOmDsd4WAA5NQVJLRVRJTkdTSEFSRQCgjQYACVRFQU1TSEFSRQDAmgwADUFDVElWSVRZU0hBUkUAoI0GAAtQTEFZRVJTSEFSRQCAtRgACllFQVJNSUxMSVMAgIbrx3UACEJBTktfRkVFANCGAwACY2gJAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAE1VTRFRfVFZMX0NPUlJFQ1RJT04EByRtYXRjaDAFAmNoAwkAAAIBAVcFByRtYXRjaDAA8PWowAQDCQAAAgEBVAUHJG1hdGNoMAAACQACAQINVW5rbm93biBjaGFpbgAQbWFya2V0aW5nQWRkcktleQINbWFya2V0aW5nQWRkcgALdGVhbUFkZHJLZXkCCHRlYW1BZGRyABRsYXN0TWFya2V0aW5nVGltZUtleQIZbGFzdENsYWltZWRUaW1lX21hcmtldGluZwAWbWFya2V0aW5nQW1vdW50TGVmdEtleQITbWFya2V0aW5nQW1vdW50TGVmdAAPbGFzdFRlYW1UaW1lS2V5AhRsYXN0Q2xhaW1lZFRpbWVfdGVhbQARdGVhbUFtb3VudExlZnRLZXkCDnRlYW1BbW91bnRMZWZ0ABVsYXN0QWN0aXZpdGllc1RpbWVLZXkCGmxhc3RDbGFpbWVkVGltZV9hY3Rpdml0aWVzABBhY3RBbW91bnRMZWZ0S2V5AhRhY3Rpdml0aWVzQW1vdW50TGVmdAAUc3Rha2Vyc0Ftb3VudExlZnRLZXkCEXN0YWtlcnNBbW91bnRMZWZ0ARhrZXlMYXN0Q2xhaW1lZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIUbGFzdENsYWltZWRUaW1lVXNlcl8FBGFkZHIBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQRhZGRyCQCsAgICEGxhc3RBcmJUaW1lVXNlcl8FBGFkZHIBFGRpc3RyaWJ1dGlvbkJ5UGVyaW9kAQZwZXJpb2QJAGsDBQhNSUxMSU9ONgkAaAIFC1BMQVlFUlNIQVJFCQBkAgUGcGVyaW9kAAEJAGgCAAYFAk02AA93bGdJc3N1ZVRpbWVLZXkCDXdsZ19pc3N1ZVRpbWUAEndsZ0lzc3VlZEFtb3VudEtleQIQd2xnX2lzc3VlZEFtb3VudAARemJJc3N1ZWRBbW91bnRLZXkCEnpiaWxsX2lzc3VlZEFtb3VudAEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBGFkZHIJAKwCAgIYYWNyZXNTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyABNhY3Jlc1N0YWtlZFRvdGFsS2V5AhZhY3Jlc1N0YWtlZEFtb3VudFRvdGFsAAhkYXBwUmVzdAAAAAtkYXBwU3Rha2luZwABAAdkYXBwV2xnAAIACmRhcHBQdXp6bGUAAwAOZGFwcEludmVzdEZ1bmQABAEIZ2V0TGFuZHMCEnVzZXJBZGRyU3RyT3JFbXB0eQ9zdGFraW5nQ29udHJhY3QECnRvdGFsQWNyZXMJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0BRNhY3Jlc1N0YWtlZFRvdGFsS2V5AAAECXVzZXJBY3JlcwkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFEnVzZXJBZGRyU3RyT3JFbXB0eQAACQDMCAIFCnRvdGFsQWNyZXMJAMwIAgUJdXNlckFjcmVzBQNuaWwADWlkeFRvdGFsQWNyZXMAAAAMaWR4VXNlckFjcmVzAAEBC2dldFdsZ1N0YXRzBQt1c2VyQWRkck9wdAljb250cmFjdHMGdXNkdElkFXVzZHRCYWxhbmNlQ29ycmVjdGlvbg91c2VyUHJvcG9ydGlvbjYEDGlzc3VlZEFtb3VudAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRJ3bGdJc3N1ZWRBbW91bnRLZXkCGFdMR09MRCBpcyBub3QgaXNzdWVkIHlldAQHcmVzdFVzZAkA8AcCCQCRAwIFCWNvbnRyYWN0cwUIZGFwcFJlc3QFBnVzZHRJZAQGd2xnVXNkCQBlAgkA8AcCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUGdXNkdElkBRV1c2R0QmFsYW5jZUNvcnJlY3Rpb24ECXB1enpsZVVzZAkA8AcCCQCRAwIFCWNvbnRyYWN0cwUKZGFwcFB1enpsZQUGdXNkdElkBBFpbnZlc3RGbmRDb250cmFjdAkAkQMCBQljb250cmFjdHMFDmRhcHBJbnZlc3RGdW5kBA9pbnZlc3RGdW5kVG90YWwJAGQCCQDwBwIFEWludmVzdEZuZENvbnRyYWN0BQZ1c2R0SWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgURaW52ZXN0Rm5kQ29udHJhY3QFEXpiSXNzdWVkQW1vdW50S2V5AAAEDXRvdGFsRnVuZHNVc2QJAGQCBQZ3bGdVc2QFD2ludmVzdEZ1bmRUb3RhbAQFd2xnSWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwILd2xnX2Fzc2V0SWQCE05vdCBpbml0aWFsaXplZCB5ZXQEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAECWlzc3VlVGltZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBQ93bGdJc3N1ZVRpbWVLZXkCD05vdCBpbml0aWFsaXplZAQObWFya2V0aW5nVG90YWwJAGsDBQhNSUxMSU9ONgUOTUFSS0VUSU5HU0hBUkUFAk02BBNtYXJrZXRpbmdBbW91bnRMZWZ0CQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5BQ5tYXJrZXRpbmdUb3RhbAQRbGFzdE1hcmtldGluZ1RpbWUJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFFGxhc3RNYXJrZXRpbmdUaW1lS2V5BQlpc3N1ZVRpbWUEDW1hcmtldGluZ0FkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAJ0IAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFEG1hcmtldGluZ0FkZHJLZXkEDW1hcmtldGluZ1RlbXAJAJcDAQkAzAgCCQBrAwUObWFya2V0aW5nVG90YWwJAGUCBQNub3cFEWxhc3RNYXJrZXRpbmdUaW1lBQpZRUFSTUlMTElTCQDMCAIFE21hcmtldGluZ0Ftb3VudExlZnQFA25pbAQRYmFua0Zyb21NYXJrZXRpbmcJAGsDBQ1tYXJrZXRpbmdUZW1wBQhCQU5LX0ZFRQUCTTYEG21hcmtldGluZ0Ftb3VudEF2YWlsYWJsZU5vdwkAZQIFDW1hcmtldGluZ1RlbXAFEWJhbmtGcm9tTWFya2V0aW5nBA9tYXJrZXRpbmdXbGdvbGQJAPAHAgUNbWFya2V0aW5nQWRkcgUFd2xnSWQECmJhbmtXbGdvbGQJAPAHAgkAkQMCBQljb250cmFjdHMFC2RhcHBTdGFraW5nBQV3bGdJZAQJdGVhbVRvdGFsCQBrAwUITUlMTElPTjYFCVRFQU1TSEFSRQUCTTYEDnRlYW1BbW91bnRMZWZ0CQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRF0ZWFtQW1vdW50TGVmdEtleQUJdGVhbVRvdGFsBAxsYXN0VGVhbVRpbWUJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFD2xhc3RUZWFtVGltZUtleQUJaXNzdWVUaW1lBAh0ZWFtQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAnQgCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwULdGVhbUFkZHJLZXkEFnRlYW1BbW91bnRBdmFpbGFibGVOb3cJAJcDAQkAzAgCCQBrAwUJdGVhbVRvdGFsCQBlAgUDbm93BQxsYXN0VGVhbVRpbWUJAGgCAAMFCllFQVJNSUxMSVMJAMwIAgUOdGVhbUFtb3VudExlZnQFA25pbAQKdGVhbVdsZ29sZAkA8AcCBQh0ZWFtQWRkcgUFd2xnSWQECGFjdFRvdGFsCQBrAwUITUlMTElPTjYFDUFDVElWSVRZU0hBUkUFAk02BA1hY3RBbW91bnRMZWZ0CQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRBhY3RBbW91bnRMZWZ0S2V5BQhhY3RUb3RhbAQSbGFzdEFjdGl2aXRpZXNUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRVsYXN0QWN0aXZpdGllc1RpbWVLZXkFCWlzc3VlVGltZQQVYWN0QW1vdW50QXZhaWxhYmxlTm93CQCXAwEJAMwIAgkAawMFCGFjdFRvdGFsCQBlAgUDbm93BRJsYXN0QWN0aXZpdGllc1RpbWUJAGgCAAMFCllFQVJNSUxMSVMJAMwIAgUNYWN0QW1vdW50TGVmdAUDbmlsBAlhY3RXbGdvbGQJAPAHAgkAkQMCBQljb250cmFjdHMFCGRhcHBSZXN0BQV3bGdJZAQMbGFzdFVzZXJUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnCQEYa2V5TGFzdENsYWltZWRUaW1lQnlVc2VyAQULdXNlckFkZHJPcHQFCWlzc3VlVGltZQQObGFzdFVzZXJQZXJpb2QJAGkCCQBlAgUMbGFzdFVzZXJUaW1lBQlpc3N1ZVRpbWUFCllFQVJNSUxMSVMECm5vd0xpbWl0ZWQJAJcDAQkAzAgCBQNub3cJAMwIAgkAZAIFCWlzc3VlVGltZQkAaAIAAwUKWUVBUk1JTExJUwUDbmlsBAljdXJQZXJpb2QJAJcDAQkAzAgCCQBpAgkAZQIFA25vdwUJaXNzdWVUaW1lBQpZRUFSTUlMTElTCQDMCAIAAgUDbmlsBANlZmYJAQhnZXRMYW5kcwIFC3VzZXJBZGRyT3B0CQCRAwIFCWNvbnRyYWN0cwULZGFwcFN0YWtpbmcEFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkBFGRpc3RyaWJ1dGlvbkJ5UGVyaW9kAQUJY3VyUGVyaW9kBAgkdDA3OTExOQMJAAACBQ5sYXN0VXNlclBlcmlvZAUJY3VyUGVyaW9kBAJhMAkAawMFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAZQIFCm5vd0xpbWl0ZWQFDGxhc3RVc2VyVGltZQUKWUVBUk1JTExJUwQIdXNlclBhcnQJAGsDBQJhMAUPdXNlclByb3BvcnRpb242BQJNNgQHZWZmVGltZQkAZAIFDGxhc3RVc2VyVGltZQkAawMJAGUCBQpub3dMaW1pdGVkBQxsYXN0VXNlclRpbWUFD3VzZXJQcm9wb3J0aW9uNgUCTTYJAJUKAwUIdXNlclBhcnQFAmEwBQdlZmZUaW1lAwkAAAIFDmxhc3RVc2VyUGVyaW9kCQBlAgUJY3VyUGVyaW9kAAEEAmExCQBrAwkBFGRpc3RyaWJ1dGlvbkJ5UGVyaW9kAQkAZQIFCWN1clBlcmlvZAABCQBlAgkAZAIFCWlzc3VlVGltZQkAaAIFCllFQVJNSUxMSVMFCWN1clBlcmlvZAUMbGFzdFVzZXJUaW1lBQpZRUFSTUlMTElTBAJhMAkAawMFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAZQIFCm5vd0xpbWl0ZWQJAGQCBQlpc3N1ZVRpbWUJAGgCBQpZRUFSTUlMTElTBQljdXJQZXJpb2QFCllFQVJNSUxMSVMEBWF2YWlsCQBkAgUCYTEFAmEwBAh1c2VyUGFydAkAawMFBWF2YWlsBQ91c2VyUHJvcG9ydGlvbjYFAk02BAdlZmZUaW1lAwkAZwIFAmExBQh1c2VyUGFydAkAZAIFDGxhc3RVc2VyVGltZQkAawMFCllFQVJNSUxMSVMFCHVzZXJQYXJ0CQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAEJAGQCCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwUJY3VyUGVyaW9kCQBrAwUKWUVBUk1JTExJUwkAZQIFCHVzZXJQYXJ0BQJhMQUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQCVCgMFCHVzZXJQYXJ0BQVhdmFpbAUHZWZmVGltZQQCYTIJAGsDCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAIJAGUCCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwkAZQIFCWN1clBlcmlvZAABBQxsYXN0VXNlclRpbWUFCllFQVJNSUxMSVMEAmExCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAEEAmEwCQBrAwUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQBlAgUKbm93TGltaXRlZAkAZAIFCWlzc3VlVGltZQkAaAIFCllFQVJNSUxMSVMFCWN1clBlcmlvZAUKWUVBUk1JTExJUwQFYXZhaWwJAGQCCQBkAgUCYTIFAmExBQJhMAQIdXNlclBhcnQJAGsDBQVhdmFpbAUPdXNlclByb3BvcnRpb242BQJNNgQHZWZmVGltZQMJAGcCBQJhMgUIdXNlclBhcnQJAGQCBQxsYXN0VXNlclRpbWUJAGsDBQpZRUFSTUlMTElTBQh1c2VyUGFydAkBFGRpc3RyaWJ1dGlvbkJ5UGVyaW9kAQkAZQIFCWN1clBlcmlvZAACAwkAZwIJAGQCBQJhMgUCYTEFCHVzZXJQYXJ0CQBkAgkAZAIFCWlzc3VlVGltZQkAaAIFCllFQVJNSUxMSVMJAGUCBQljdXJQZXJpb2QAAQkAawMFCllFQVJNSUxMSVMJAGUCBQh1c2VyUGFydAUCYTIJARRkaXN0cmlidXRpb25CeVBlcmlvZAEJAGUCBQljdXJQZXJpb2QAAQkAZAIJAGQCBQlpc3N1ZVRpbWUJAGgCBQpZRUFSTUlMTElTBQljdXJQZXJpb2QJAGsDBQpZRUFSTUlMTElTCQBlAgkAZQIFCHVzZXJQYXJ0BQJhMgUCYTEFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAlQoDBQh1c2VyUGFydAUFYXZhaWwFB2VmZlRpbWUECnVzZXJBbW91bnQIBQgkdDA3OTExOQJfMQQNdXNlckF2YWlsYWJsZQgFCCR0MDc5MTE5Al8yBAtlZmZMYXN0VGltZQgFCCR0MDc5MTE5Al8zBA9hbW91bnRMZWZ0VG90YWwJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFFHN0YWtlcnNBbW91bnRMZWZ0S2V5AAAECHVzZXJUZW1wCQBrAwUKdXNlckFtb3VudAkAkQMCBQNlZmYFDGlkeFVzZXJBY3JlcwkAkQMCBQNlZmYFDWlkeFRvdGFsQWNyZXMEDGJhbmtGcm9tVXNlcgkAawMFCHVzZXJUZW1wBQhCQU5LX0ZFRQUCTTYECnJvYmJlZFVzZXIJAGUCBQh1c2VyVGVtcAUMYmFua0Zyb21Vc2VyBAx1bnJvYmJlZFVzZXIJAGsDBQ11c2VyQXZhaWxhYmxlCQCRAwIFA2VmZgUMaWR4VXNlckFjcmVzCQCRAwIFA2VmZgUNaWR4VG90YWxBY3JlcwkAzAgCBQxpc3N1ZWRBbW91bnQJAMwIAgkAawMJAGUCBQ10b3RhbEZ1bmRzVXNkBRNVU0RUX1RWTF9DT1JSRUNUSU9OBQJNOAUMaXNzdWVkQW1vdW50CQDMCAIFDXRvdGFsRnVuZHNVc2QJAMwIAgUHcmVzdFVzZAkAzAgCBQZ3bGdVc2QJAMwIAgUJcHV6emxlVXNkCQDMCAIFCWlzc3VlVGltZQkAzAgCBRFsYXN0TWFya2V0aW5nVGltZQkAzAgCBQ5tYXJrZXRpbmdUb3RhbAkAzAgCBRNtYXJrZXRpbmdBbW91bnRMZWZ0CQDMCAIFG21hcmtldGluZ0Ftb3VudEF2YWlsYWJsZU5vdwkAzAgCBQ9tYXJrZXRpbmdXbGdvbGQJAMwIAgUJdGVhbVRvdGFsCQDMCAIFDnRlYW1BbW91bnRMZWZ0CQDMCAIFFnRlYW1BbW91bnRBdmFpbGFibGVOb3cJAMwIAgUKdGVhbVdsZ29sZAkAzAgCBQhhY3RUb3RhbAkAzAgCBQ1hY3RBbW91bnRMZWZ0CQDMCAIFFWFjdEFtb3VudEF2YWlsYWJsZU5vdwkAzAgCBQlhY3RXbGdvbGQJAMwIAgUJY3VyUGVyaW9kCQDMCAIFD2Ftb3VudExlZnRUb3RhbAkAzAgCBRVjdXJQZXJpb2REaXN0cmlidXRpb24JAMwIAgUMbGFzdFVzZXJUaW1lCQDMCAIFCnJvYmJlZFVzZXIJAMwIAgUPaW52ZXN0RnVuZFRvdGFsCQDMCAIFDHVucm9iYmVkVXNlcgkAzAgCBQtlZmZMYXN0VGltZQkAzAgCCQBkAgURYmFua0Zyb21NYXJrZXRpbmcFDGJhbmtGcm9tVXNlcgkAzAgCBQpiYW5rV2xnb2xkBQNuaWwADXByb2ZpdEFkZHJLZXkCCnByb2ZpdEFkZHIAGXN0YWtlcnNBbW91bnRQYWlkVG90YWxLZXkCFnN0YWtlcnNBbW91bnRQYWlkVG90YWwBGGtleVN0YWtlcnNBbW91bnRQYWlkVXNlcgEEYWRkcgkArAICAhZzdGFrZXJzQW1vdW50UGFpZFVzZXJfBQRhZGRyAQZwcm9sb2cACQEFYXNJbnQBCQD9BwQFD3N0YWtpbmdDb250cmFjdAIKc2F2ZUxhc3RUeAUDbmlsBQNuaWwBD2dldFN3YXBMaW1pdFdsZwEEYWRkcgQIbGFzdFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQUEYWRkcgAABANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwkAZgIFDmFyYml0cmFnZURlbGF5CQBlAgUDbm93BQhsYXN0VGltZQkAAgEJAKwCAgkArAICAh9BcmJpdHJhZ2VzIGFyZSBwb3NzaWJsZSBvbmNlIGEgCQCkAwEJAGkCBQ5hcmJpdHJhZ2VEZWxheQDg1AMCA21pbgQLYWNyZXNBbW91bnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUPc3Rha2luZ0NvbnRyYWN0CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQRhZGRyAAAFC2FjcmVzQW1vdW50AQ1jbGFpbUludGVybmFsAgRhZGRyC3Byb3BvcnRpb242BAZjYWxsZXIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBGFkZHIECGN1clN0YXRzCQELZ2V0V2xnU3RhdHMFBQRhZGRyCQDMCAIFDHJlc3RDb250cmFjdAkAzAgCBQ9zdGFraW5nQ29udHJhY3QJAMwIAgULd2xnQ29udHJhY3QJAMwIAgUScHV6emxlUG9vbENvbnRyYWN0CQDMCAIFEmludmVzdEZ1bmRDb250cmFjdAUDbmlsBQt1c2R0QXNzZXRJZAAABQtwcm9wb3J0aW9uNgQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQJaXNzdWVUaW1lCQCRAwIFCGN1clN0YXRzBQ9pZHhXbGdJc3N1ZVRpbWUEE21hcmtldGluZ0Ftb3VudExlZnQJAJEDAgUIY3VyU3RhdHMFFWlkeFdsZ01hcmtldGluZ0FtTGVmdAQPbWFya2V0aW5nQW1vdW50CQCRAwIFCGN1clN0YXRzBRlpZHhXbGdNYXJrZXRpbmdBbUF2YWlsTm93BA50ZWFtQW1vdW50TGVmdAkAkQMCBQhjdXJTdGF0cwUQaWR4V2xnVGVhbUFtTGVmdAQKdGVhbUFtb3VudAkAkQMCBQhjdXJTdGF0cwUUaWR4V2xnVGVhbUFtQXZhaWxOb3cEDWFjdEFtb3VudExlZnQJAJEDAgUIY3VyU3RhdHMFD2lkeFdsZ0FjdEFtTGVmdAQJYWN0QW1vdW50CQCRAwIFCGN1clN0YXRzBRNpZHhXbGdBY3RBbUF2YWlsTm93BAp1c2VyQW1vdW50CQCRAwIFCGN1clN0YXRzBRRpZHhXbGdVc2VyQW1BdmFpbE5vdwQHdXNlcktleQkBGGtleVN0YWtlcnNBbW91bnRQYWlkVXNlcgEFBGFkZHIECXVzZXJUb3RhbAkAkQMCBQhjdXJTdGF0cwUUaWR4V2xnVXNlclRvdGFsQXZhaWwEC3VzZXJFZmZUaW1lCQCRAwIFCGN1clN0YXRzBRFpZHhXbGdFZmZVc2VyVGltZQQKYmFua0Ftb3VudAkAkQMCBQhjdXJTdGF0cwUSaWR4V2xnQmFua0F2YWlsTm93CQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAoggBBRBtYXJrZXRpbmdBZGRyS2V5BQ9tYXJrZXRpbmdBbW91bnQFCndsZ0Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAoggBBQt0ZWFtQWRkcktleQUKdGVhbUFtb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFCWFjdEFtb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUHdXNlcktleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUHdXNlcktleQAABQp1c2VyQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBRlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5AAAFCXVzZXJUb3RhbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2Vyc0Ftb3VudExlZnRLZXkJAGUCCQCRAwIFCGN1clN0YXRzBRFpZHhXbGdBbUxlZnRUb3RhbAUJdXNlclRvdGFsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5CQBlAgUTbWFya2V0aW5nQW1vdW50TGVmdAUPbWFya2V0aW5nQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRsYXN0TWFya2V0aW5nVGltZUtleQUDbm93CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRF0ZWFtQW1vdW50TGVmdEtleQkAZQIFDnRlYW1BbW91bnRMZWZ0BQp0ZWFtQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ9sYXN0VGVhbVRpbWVLZXkFA25vdwkAzAgCCQEMSW50ZWdlckVudHJ5AgUQYWN0QW1vdW50TGVmdEtleQkAZQIFDWFjdEFtb3VudExlZnQFCWFjdEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUVbGFzdEFjdGl2aXRpZXNUaW1lS2V5BQNub3cJAMwIAgkBDEludGVnZXJFbnRyeQIJARhrZXlMYXN0Q2xhaW1lZFRpbWVCeVVzZXIBBQRhZGRyBQt1c2VyRWZmVGltZQUDbmlsCQCUCgIFCnVzZXJBbW91bnQFCmJhbmtBbW91bnQFAWkBDWNvbnN0cnVjdG9yVjEFCHJlc3RBZGRyDW1hcmtldGluZ0FkZHIIdGVhbUFkZHIKcHJvZml0QWRkcg5vbGRXbGdDb250cmFjdAMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkBA5vbGRXbGdDb250QWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQUOb2xkV2xnQ29udHJhY3QJAMwIAgkBDEludGVnZXJFbnRyeQIFD3dsZ0lzc3VlVGltZUtleQkBC3ZhbHVlT3JFbHNlAgkAmggCBQ5vbGRXbGdDb250QWRkcgUPd2xnSXNzdWVUaW1lS2V5AAAJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQkBC3ZhbHVlT3JFbHNlAgkAmggCBQ5vbGRXbGdDb250QWRkcgUSd2xnSXNzdWVkQW1vdW50S2V5AAAJAMwIAgkBDEludGVnZXJFbnRyeQIFGXN0YWtlcnNBbW91bnRQYWlkVG90YWxLZXkJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOb2xkV2xnQ29udEFkZHIFGXN0YWtlcnNBbW91bnRQYWlkVG90YWxLZXkAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2Vyc0Ftb3VudExlZnRLZXkJAQt2YWx1ZU9yRWxzZQIJAJoIAgUOb2xkV2xnQ29udEFkZHIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5AAAJAMwIAgkBC0JpbmFyeUVudHJ5AgUNd2xnQXNzZXRJZEtleQkBEUBleHRyTmF0aXZlKDEwNTIpAgUOb2xkV2xnQ29udEFkZHIFDXdsZ0Fzc2V0SWRLZXkJAMwIAgkBC1N0cmluZ0VudHJ5AgkBDmtleVJlc3RBZGRyZXNzAAUIcmVzdEFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgUQbWFya2V0aW5nQWRkcktleQUNbWFya2V0aW5nQWRkcgkAzAgCCQELU3RyaW5nRW50cnkCBQt0ZWFtQWRkcktleQUIdGVhbUFkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgUNcHJvZml0QWRkcktleQUKcHJvZml0QWRkcgUDbmlsAWkBBmJ1eVdsZwEJbWluQW1vdW50BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEB3VzZHRBbXQIBQNwbXQGYW1vdW50AwMJAQEhAQkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAYJAQIhPQIJAQV2YWx1ZQEIBQNwbXQHYXNzZXRJZAULdXNkdEFzc2V0SWQJAAIBAhNVU0RUIHBheW1lbnRzIG9ubHkhBAZjYWxsZXIIBQFpBmNhbGxlcgQEYWRkcgkApQgBBQZjYWxsZXIDCQBmAgUOTUlOU0hPUFBBWU1FTlQFB3VzZHRBbXQJAAIBCQCsAgIJAKwCAgISWW91IGNhbiB0cmFkZSBtaW4gCQEKZml4ZWRQb2ludAIFDk1JTlNIT1BQQVlNRU5UAAYCBSBVU0RUBAhjdXJTdGF0cwkBC2dldFdsZ1N0YXRzBQIACQDMCAIFDHJlc3RDb250cmFjdAkAzAgCBQ9zdGFraW5nQ29udHJhY3QJAMwIAgULd2xnQ29udHJhY3QJAMwIAgUScHV6emxlUG9vbENvbnRyYWN0CQDMCAIFEmludmVzdEZ1bmRDb250cmFjdAUDbmlsBQt1c2R0QXNzZXRJZAUHdXNkdEFtdAUFTVVMVDYEDGN1cldsZ0Ftb3VudAkAkQMCBQhjdXJTdGF0cwUMaWR4V2xnQW1vdW50BAhmdW5kc1VzZAkAkQMCBQhjdXJTdGF0cwULaWR4V2xnRnVuZHMECHdsZ1ByaWNlCQBrAwUIZnVuZHNVc2QFBU1VTFQ4BQxjdXJXbGdBbW91bnQECGJ1eVByaWNlCQBrAwUId2xnUHJpY2UABgAFBAl3bGdBbW91bnQJAGsDBQd1c2R0QW10BQVNVUxUOAUIYnV5UHJpY2UEBm1heFdsZwkBD2dldFN3YXBMaW1pdFdsZwEFBGFkZHIDCQBmAgUJd2xnQW1vdW50BQZtYXhXbGcJAAIBCQCsAgIJAKwCAgIQWW91IGNhbiBnZXQgbWF4IAkBCmZpeGVkUG9pbnQCBQZtYXhXbGcACAIHIFdMR09MRAMJAGYCBQltaW5BbW91bnQFCXdsZ0Ftb3VudAkAAgECMFByaWNlIGNoYW5nZWQgZHVyaW5nIG9wZXJhdGlvbiwgcGxlYXNlIHRyeSBhZ2FpbgQMcHJvZml0QW1vdW50CQBpAgUHdXNkdEFtdAAGBApkZWx0YUZ1bmRzCQBlAgUHdXNkdEFtdAUMcHJvZml0QW1vdW50BAhyZWlzc3VlZAkAawMFDGN1cldsZ0Ftb3VudAUKZGVsdGFGdW5kcwUIZnVuZHNVc2QJAJQKAgkAzAgCCQEHUmVpc3N1ZQMFCndsZ0Fzc2V0SWQFCHJlaXNzdWVkBgkAzAgCCQEMSW50ZWdlckVudHJ5AgUSd2xnSXNzdWVkQW1vdW50S2V5CQBkAgUMY3VyV2xnQW1vdW50BQhyZWlzc3VlZAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQUEYWRkcggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAoggBBQ1wcm9maXRBZGRyS2V5BQxwcm9maXRBbW91bnQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgUJd2xnQW1vdW50BQp3bGdBc3NldElkBQNuaWwFDHByb2xvZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQdzZWxsV2xnAQltaW5BbW91bnQEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQGd2xnQW10CAUDcG10BmFtb3VudAQGY2FsbGVyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUGY2FsbGVyBAZtYXhXbGcJAQ9nZXRTd2FwTGltaXRXbGcBBQRhZGRyAwkAZgIFBndsZ0FtdAUGbWF4V2xnCQACAQkArAICCQCsAgICEllvdSBjYW4gc3BlbmQgbWF4IAkBCmZpeGVkUG9pbnQCBQZtYXhXbGcACAIHIFdMR09MRAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFCndsZ0Fzc2V0SWQJAAIBAhVXTEdPTEQgcGF5bWVudHMgb25seSEECGN1clN0YXRzCQELZ2V0V2xnU3RhdHMFAgAJAMwIAgUMcmVzdENvbnRyYWN0CQDMCAIFD3N0YWtpbmdDb250cmFjdAkAzAgCBQt3bGdDb250cmFjdAkAzAgCBRJwdXp6bGVQb29sQ29udHJhY3QJAMwIAgUSaW52ZXN0RnVuZENvbnRyYWN0BQNuaWwFC3VzZHRBc3NldElkAAAFBU1VTFQ2BAxjdXJXbGdBbW91bnQJAJEDAgUIY3VyU3RhdHMFDGlkeFdsZ0Ftb3VudAQJc2VsbFByaWNlCQBrAwkAkQMCBQhjdXJTdGF0cwULaWR4V2xnUHJpY2UABAAFBAd1c2R0QW10CQBrAwUGd2xnQW10BQlzZWxsUHJpY2UFBU1VTFQ4AwkAZgIFDk1JTlNIT1BQQVlNRU5UBQd1c2R0QW10CQACAQkArAICCQCsAgICEllvdSBjYW4gdHJhZGUgbWluIAkBCmZpeGVkUG9pbnQCBQ5NSU5TSE9QUEFZTUVOVAAGAgUgVVNEVAMJAGYCBQltaW5BbW91bnQFB3VzZHRBbXQJAAIBAjBQcmljZSBjaGFuZ2VkIGR1cmluZyBvcGVyYXRpb24sIHBsZWFzZSB0cnkgYWdhaW4EDHByb2ZpdEFtb3VudAkAaQIFB3VzZHRBbXQABAkAlAoCCQDMCAIJAQRCdXJuAgUKd2xnQXNzZXRJZAUGd2xnQW10CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJ3bGdJc3N1ZWRBbW91bnRLZXkJAGUCBQxjdXJXbGdBbW91bnQFBndsZ0FtdAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQUEYWRkcggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAoggBBQ1wcm9maXRBZGRyS2V5BQxwcm9maXRBbW91bnQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgUHdXNkdEFtdAULdXNkdEFzc2V0SWQFA25pbAUMcHJvbG9nUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBBWNsYWltAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAFyCQENY2xhaW1JbnRlcm5hbAIJAKUIAQgFAWkGY2FsbGVyBQVNVUxUNgQHYWN0aW9ucwgFAXICXzEJAJQKAgkAzQgCCQDNCAIFB2FjdGlvbnMJAQ5TY3JpcHRUcmFuc2ZlcgMIBQFpBmNhbGxlcggIBQFyAl8yAl8xBQp3bGdBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQ9zdGFraW5nQ29udHJhY3QICAUBcgJfMgJfMgUKd2xnQXNzZXRJZAUMcHJvbG9nUmVzdWx0CQACAQIkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuAWkBEm9uU3Rha2VVbnN0YWtlTGFuZAEEYWRkcgMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQEAXIJAQ1jbGFpbUludGVybmFsAgUEYWRkcgUFTVVMVDYEB2FjdGlvbnMIBQFyAl8xCQCUCgIJAM0IAgkAzQgCBQdhY3Rpb25zCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQRhZGRyCAgFAXICXzICXzEFCndsZ0Fzc2V0SWQJAQ5TY3JpcHRUcmFuc2ZlcgMFD3N0YWtpbmdDb250cmFjdAgIBQFyAl8yAl8yBQp3bGdBc3NldElkCAUBcgJfMgDScJYw",
    "height": 3264881,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 5eTMVtCYSrwvhFganzLDzpJPPP6PpvjvD6D7VZEP15GY
Next: Das6Z2hX4mhoW5udzZvdyptL8qapbqPTA7yn5JhgiikL

Diff: 
Old New Differences
336 336  
337 337  
338 338  @Callable(i)
339 - func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
339 + func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr,oldWlgContract) = if ((i.caller != this))
340 340      then throw("Permission denied")
341 -     else if (isDefined(getBinary(wlgAssetIdKey)))
342 -         then throw("Already initialized")
343 -         else {
344 -             let issuedAmount = MILLION6
345 -             let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
346 -             let assetId = calculateAssetId(issue)
347 - [issue, IntegerEntry(wlgIssueTimeKey, lastBlock.timestamp), IntegerEntry(wlgIssuedAmountKey, issuedAmount), IntegerEntry(stakersAmountPaidTotalKey, 0), IntegerEntry(stakersAmountLeftKey, fraction(MILLION6, PLAYERSHARE, MULT6)), BinaryEntry(wlgAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
348 -             }
341 +     else {
342 +         let oldWlgContAddr = addressFromStringValue(oldWlgContract)
343 + [IntegerEntry(wlgIssueTimeKey, valueOrElse(getInteger(oldWlgContAddr, wlgIssueTimeKey), 0)), IntegerEntry(wlgIssuedAmountKey, valueOrElse(getInteger(oldWlgContAddr, wlgIssuedAmountKey), 0)), IntegerEntry(stakersAmountPaidTotalKey, valueOrElse(getInteger(oldWlgContAddr, stakersAmountPaidTotalKey), 0)), IntegerEntry(stakersAmountLeftKey, valueOrElse(getInteger(oldWlgContAddr, stakersAmountLeftKey), 0)), BinaryEntry(wlgAssetIdKey, getBinaryValue(oldWlgContAddr, wlgAssetIdKey)), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
344 +         }
349 345  
350 346  
351 347  
Full: 
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 MINSHOPPAYMENT = 100000
11 11  
12 12  let DAY_MILLIS = 86400000
13 13  
14 14  let chain = take(drop(this.bytes, 1), 1)
15 15  
16 16  let usdtAssetId = match chain {
17 17      case _ => 
18 18          if ((base58'2W' == $match0))
19 19              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
20 20              else if ((base58'2T' == $match0))
21 21                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
22 22                  else throw("Unknown chain")
23 23  }
24 24  
25 25  let defaultRestAddressStr = match chain {
26 26      case _ => 
27 27          if ((base58'2W' == $match0))
28 28              then "3P..."
29 29              else if ((base58'2T' == $match0))
30 30                  then "3M..."
31 31                  else throw("Unknown chain")
32 32  }
33 33  
34 34  let arbitrageDelay = match chain {
35 35      case _ => 
36 36          if ((base58'2W' == $match0))
37 37              then DAY_MILLIS
38 38              else if ((base58'2T' == $match0))
39 39                  then 60000
40 40                  else throw("Unknown chain")
41 41  }
42 42  
43 43  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
44 44  
45 45  
46 46  let IdxCfgAcresDapp = 1
47 47  
48 48  let IdxCfgWlgDapp = 2
49 49  
50 50  let IdxCfgPuzzlePoolDapp = 4
51 51  
52 52  let IdxCfgInvestFundDapp = 5
53 53  
54 54  func keyRestCfg () = "%s__restConfig"
55 55  
56 56  
57 57  func keyRestAddress () = "%s__restAddr"
58 58  
59 59  
60 60  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
61 61  
62 62  
63 63  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
64 64  
65 65  
66 66  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
67 67  
68 68  let restCfg = readRestCfgOrFail(restContract)
69 69  
70 70  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
71 71  
72 72  let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
73 73  
74 74  let puzzlePoolContract = getContractAddressOrFail(restCfg, IdxCfgPuzzlePoolDapp)
75 75  
76 76  let investFundContract = getContractAddressOrFail(restCfg, IdxCfgInvestFundDapp)
77 77  
78 78  let wlgAssetIdKey = "wlg_assetId"
79 79  
80 80  let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
81 81  
82 82  func asInt (v) = match v {
83 83      case n: Int => 
84 84          n
85 85      case _ => 
86 86          throw("fail to cast into Int")
87 87  }
88 88  
89 89  
90 90  let idxWlgAmount = 0
91 91  
92 92  let idxWlgPrice = 1
93 93  
94 94  let idxWlgFunds = 2
95 95  
96 96  let idxWlgIssueTime = 6
97 97  
98 98  let idxWlgMarketingAmLeft = 9
99 99  
100 100  let idxWlgMarketingAmAvailNow = 10
101 101  
102 102  let idxWlgTeamAmLeft = 13
103 103  
104 104  let idxWlgTeamAmAvailNow = 14
105 105  
106 106  let idxWlgActAmLeft = 17
107 107  
108 108  let idxWlgActAmAvailNow = 18
109 109  
110 110  let idxWlgAmLeftTotal = 21
111 111  
112 112  let idxWlgUserAmAvailNow = 24
113 113  
114 114  let idxWlgUserTotalAvail = 26
115 115  
116 116  let idxWlgEffUserTime = 27
117 117  
118 118  let idxWlgBankAvailNow = 28
119 119  
120 120  func fixedPoint (val,decimals) = {
121 121      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
122 122      let lowPart = toString((val % tenPow))
123 123      let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
124 124      (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
125 125      }
126 126  
127 127  
128 128  let M6 = 1000000
129 129  
130 130  let M8 = 100000000
131 131  
132 132  let MILLION6 = 100000000000000
133 133  
134 134  let MARKETINGSHARE = 100000
135 135  
136 136  let TEAMSHARE = 200000
137 137  
138 138  let ACTIVITYSHARE = 100000
139 139  
140 140  let PLAYERSHARE = 400000
141 141  
142 142  let YEARMILLIS = 31557600000
143 143  
144 144  let BANK_FEE = 50000
145 145  
146 146  let ch = take(drop(this.bytes, 1), 1)
147 147  
148 148  let USDT_TVL_CORRECTION = match ch {
149 149      case _ => 
150 150          if ((base58'2W' == $match0))
151 151              then 1208630000
152 152              else if ((base58'2T' == $match0))
153 153                  then 0
154 154                  else throw("Unknown chain")
155 155  }
156 156  
157 157  let marketingAddrKey = "marketingAddr"
158 158  
159 159  let teamAddrKey = "teamAddr"
160 160  
161 161  let lastMarketingTimeKey = "lastClaimedTime_marketing"
162 162  
163 163  let marketingAmountLeftKey = "marketingAmountLeft"
164 164  
165 165  let lastTeamTimeKey = "lastClaimedTime_team"
166 166  
167 167  let teamAmountLeftKey = "teamAmountLeft"
168 168  
169 169  let lastActivitiesTimeKey = "lastClaimedTime_activities"
170 170  
171 171  let actAmountLeftKey = "activitiesAmountLeft"
172 172  
173 173  let stakersAmountLeftKey = "stakersAmountLeft"
174 174  
175 175  func keyLastClaimedTimeByUser (addr) = ("lastClaimedTimeUser_" + addr)
176 176  
177 177  
178 178  func keyLastArbTimeByUser (addr) = ("lastArbTimeUser_" + addr)
179 179  
180 180  
181 181  func distributionByPeriod (period) = fraction(MILLION6, (PLAYERSHARE * (period + 1)), (6 * M6))
182 182  
183 183  
184 184  let wlgIssueTimeKey = "wlg_issueTime"
185 185  
186 186  let wlgIssuedAmountKey = "wlg_issuedAmount"
187 187  
188 188  let zbIssuedAmountKey = "zbill_issuedAmount"
189 189  
190 190  func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
191 191  
192 192  
193 193  let acresStakedTotalKey = "acresStakedAmountTotal"
194 194  
195 195  let dappRest = 0
196 196  
197 197  let dappStaking = 1
198 198  
199 199  let dappWlg = 2
200 200  
201 201  let dappPuzzle = 3
202 202  
203 203  let dappInvestFund = 4
204 204  
205 205  func getLands (userAddrStrOrEmpty,stakingContract) = {
206 206      let totalAcres = valueOrElse(getInteger(stakingContract, acresStakedTotalKey), 0)
207 207      let userAcres = valueOrElse(getInteger(stakingContract, keyAcresStakedAmountByUser(userAddrStrOrEmpty)), 0)
208 208  [totalAcres, userAcres]
209 209      }
210 210  
211 211  
212 212  let idxTotalAcres = 0
213 213  
214 214  let idxUserAcres = 1
215 215  
216 216  func getWlgStats (userAddrOpt,contracts,usdtId,usdtBalanceCorrection,userProportion6) = {
217 217      let issuedAmount = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssuedAmountKey), "WLGOLD is not issued yet")
218 218      let restUsd = assetBalance(contracts[dappRest], usdtId)
219 219      let wlgUsd = (assetBalance(contracts[dappWlg], usdtId) - usdtBalanceCorrection)
220 220      let puzzleUsd = assetBalance(contracts[dappPuzzle], usdtId)
221 221      let investFndContract = contracts[dappInvestFund]
222 222      let investFundTotal = (assetBalance(investFndContract, usdtId) + valueOrElse(getInteger(investFndContract, zbIssuedAmountKey), 0))
223 223      let totalFundsUsd = (wlgUsd + investFundTotal)
224 224      let wlgId = valueOrErrorMessage(getBinary(contracts[dappWlg], "wlg_assetId"), "Not initialized yet")
225 225      let now = lastBlock.timestamp
226 226      let issueTime = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssueTimeKey), "Not initialized")
227 227      let marketingTotal = fraction(MILLION6, MARKETINGSHARE, M6)
228 228      let marketingAmountLeft = valueOrElse(getInteger(contracts[dappWlg], marketingAmountLeftKey), marketingTotal)
229 229      let lastMarketingTime = valueOrElse(getInteger(contracts[dappWlg], lastMarketingTimeKey), issueTime)
230 230      let marketingAddr = addressFromStringValue(value(getString(contracts[dappWlg], marketingAddrKey)))
231 231      let marketingTemp = min([fraction(marketingTotal, (now - lastMarketingTime), YEARMILLIS), marketingAmountLeft])
232 232      let bankFromMarketing = fraction(marketingTemp, BANK_FEE, M6)
233 233      let marketingAmountAvailableNow = (marketingTemp - bankFromMarketing)
234 234      let marketingWlgold = assetBalance(marketingAddr, wlgId)
235 235      let bankWlgold = assetBalance(contracts[dappStaking], wlgId)
236 236      let teamTotal = fraction(MILLION6, TEAMSHARE, M6)
237 237      let teamAmountLeft = valueOrElse(getInteger(contracts[dappWlg], teamAmountLeftKey), teamTotal)
238 238      let lastTeamTime = valueOrElse(getInteger(contracts[dappWlg], lastTeamTimeKey), issueTime)
239 239      let teamAddr = addressFromStringValue(value(getString(contracts[dappWlg], teamAddrKey)))
240 240      let teamAmountAvailableNow = min([fraction(teamTotal, (now - lastTeamTime), (3 * YEARMILLIS)), teamAmountLeft])
241 241      let teamWlgold = assetBalance(teamAddr, wlgId)
242 242      let actTotal = fraction(MILLION6, ACTIVITYSHARE, M6)
243 243      let actAmountLeft = valueOrElse(getInteger(contracts[dappWlg], actAmountLeftKey), actTotal)
244 244      let lastActivitiesTime = valueOrElse(getInteger(contracts[dappWlg], lastActivitiesTimeKey), issueTime)
245 245      let actAmountAvailableNow = min([fraction(actTotal, (now - lastActivitiesTime), (3 * YEARMILLIS)), actAmountLeft])
246 246      let actWlgold = assetBalance(contracts[dappRest], wlgId)
247 247      let lastUserTime = valueOrElse(getInteger(contracts[dappWlg], keyLastClaimedTimeByUser(userAddrOpt)), issueTime)
248 248      let lastUserPeriod = ((lastUserTime - issueTime) / YEARMILLIS)
249 249      let nowLimited = min([now, (issueTime + (3 * YEARMILLIS))])
250 250      let curPeriod = min([((now - issueTime) / YEARMILLIS), 2])
251 251      let eff = getLands(userAddrOpt, contracts[dappStaking])
252 252      let curPeriodDistribution = distributionByPeriod(curPeriod)
253 253      let $t079119 = if ((lastUserPeriod == curPeriod))
254 254          then {
255 255              let a0 = fraction(curPeriodDistribution, (nowLimited - lastUserTime), YEARMILLIS)
256 256              let userPart = fraction(a0, userProportion6, M6)
257 257              let effTime = (lastUserTime + fraction((nowLimited - lastUserTime), userProportion6, M6))
258 258              $Tuple3(userPart, a0, effTime)
259 259              }
260 260          else if ((lastUserPeriod == (curPeriod - 1)))
261 261              then {
262 262                  let a1 = fraction(distributionByPeriod((curPeriod - 1)), ((issueTime + (YEARMILLIS * curPeriod)) - lastUserTime), YEARMILLIS)
263 263                  let a0 = fraction(curPeriodDistribution, (nowLimited - (issueTime + (YEARMILLIS * curPeriod))), YEARMILLIS)
264 264                  let avail = (a1 + a0)
265 265                  let userPart = fraction(avail, userProportion6, M6)
266 266                  let effTime = if ((a1 >= userPart))
267 267                      then (lastUserTime + fraction(YEARMILLIS, userPart, distributionByPeriod((curPeriod - 1))))
268 268                      else ((issueTime + (YEARMILLIS * curPeriod)) + fraction(YEARMILLIS, (userPart - a1), curPeriodDistribution))
269 269                  $Tuple3(userPart, avail, effTime)
270 270                  }
271 271              else {
272 272                  let a2 = fraction(distributionByPeriod((curPeriod - 2)), ((issueTime + (YEARMILLIS * (curPeriod - 1))) - lastUserTime), YEARMILLIS)
273 273                  let a1 = distributionByPeriod((curPeriod - 1))
274 274                  let a0 = fraction(curPeriodDistribution, (nowLimited - (issueTime + (YEARMILLIS * curPeriod))), YEARMILLIS)
275 275                  let avail = ((a2 + a1) + a0)
276 276                  let userPart = fraction(avail, userProportion6, M6)
277 277                  let effTime = if ((a2 >= userPart))
278 278                      then (lastUserTime + fraction(YEARMILLIS, userPart, distributionByPeriod((curPeriod - 2))))
279 279                      else if (((a2 + a1) >= userPart))
280 280                          then ((issueTime + (YEARMILLIS * (curPeriod - 1))) + fraction(YEARMILLIS, (userPart - a2), distributionByPeriod((curPeriod - 1))))
281 281                          else ((issueTime + (YEARMILLIS * curPeriod)) + fraction(YEARMILLIS, ((userPart - a2) - a1), curPeriodDistribution))
282 282                  $Tuple3(userPart, avail, effTime)
283 283                  }
284 284      let userAmount = $t079119._1
285 285      let userAvailable = $t079119._2
286 286      let effLastTime = $t079119._3
287 287      let amountLeftTotal = valueOrElse(getInteger(contracts[dappWlg], stakersAmountLeftKey), 0)
288 288      let userTemp = fraction(userAmount, eff[idxUserAcres], eff[idxTotalAcres])
289 289      let bankFromUser = fraction(userTemp, BANK_FEE, M6)
290 290      let robbedUser = (userTemp - bankFromUser)
291 291      let unrobbedUser = fraction(userAvailable, eff[idxUserAcres], eff[idxTotalAcres])
292 292  [issuedAmount, fraction((totalFundsUsd - USDT_TVL_CORRECTION), M8, issuedAmount), totalFundsUsd, restUsd, wlgUsd, puzzleUsd, issueTime, lastMarketingTime, marketingTotal, marketingAmountLeft, marketingAmountAvailableNow, marketingWlgold, teamTotal, teamAmountLeft, teamAmountAvailableNow, teamWlgold, actTotal, actAmountLeft, actAmountAvailableNow, actWlgold, curPeriod, amountLeftTotal, curPeriodDistribution, lastUserTime, robbedUser, investFundTotal, unrobbedUser, effLastTime, (bankFromMarketing + bankFromUser), bankWlgold]
293 293      }
294 294  
295 295  
296 296  let profitAddrKey = "profitAddr"
297 297  
298 298  let stakersAmountPaidTotalKey = "stakersAmountPaidTotal"
299 299  
300 300  func keyStakersAmountPaidUser (addr) = ("stakersAmountPaidUser_" + addr)
301 301  
302 302  
303 303  func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
304 304  
305 305  
306 306  func getSwapLimitWlg (addr) = {
307 307      let lastTime = valueOrElse(getInteger(keyLastArbTimeByUser(addr)), 0)
308 308      let now = lastBlock.timestamp
309 309      if ((arbitrageDelay > (now - lastTime)))
310 310          then throw((("Arbitrages are possible once a " + toString((arbitrageDelay / 60000))) + "min"))
311 311          else {
312 312              let acresAmount = valueOrElse(getInteger(stakingContract, keyAcresStakedAmountByUser(addr)), 0)
313 313              acresAmount
314 314              }
315 315      }
316 316  
317 317  
318 318  func claimInternal (addr,proportion6) = {
319 319      let caller = addressFromStringValue(addr)
320 320      let curStats = getWlgStats(addr, [restContract, stakingContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0, proportion6)
321 321      let now = lastBlock.timestamp
322 322      let issueTime = curStats[idxWlgIssueTime]
323 323      let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
324 324      let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
325 325      let teamAmountLeft = curStats[idxWlgTeamAmLeft]
326 326      let teamAmount = curStats[idxWlgTeamAmAvailNow]
327 327      let actAmountLeft = curStats[idxWlgActAmLeft]
328 328      let actAmount = curStats[idxWlgActAmAvailNow]
329 329      let userAmount = curStats[idxWlgUserAmAvailNow]
330 330      let userKey = keyStakersAmountPaidUser(addr)
331 331      let userTotal = curStats[idxWlgUserTotalAvail]
332 332      let userEffTime = curStats[idxWlgEffUserTime]
333 333      let bankAmount = curStats[idxWlgBankAvailNow]
334 334      $Tuple2([ScriptTransfer(addressFromStringValue(value(getString(marketingAddrKey))), marketingAmount, wlgAssetId), ScriptTransfer(addressFromStringValue(value(getString(teamAddrKey))), teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userTotal)), IntegerEntry(stakersAmountLeftKey, (curStats[idxWlgAmLeftTotal] - userTotal)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(keyLastClaimedTimeByUser(addr), userEffTime)], $Tuple2(userAmount, bankAmount))
335 335      }
336 336  
337 337  
338 338  @Callable(i)
339 - func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
339 + func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr,oldWlgContract) = if ((i.caller != this))
340 340      then throw("Permission denied")
341 -     else if (isDefined(getBinary(wlgAssetIdKey)))
342 -         then throw("Already initialized")
343 -         else {
344 -             let issuedAmount = MILLION6
345 -             let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
346 -             let assetId = calculateAssetId(issue)
347 - [issue, IntegerEntry(wlgIssueTimeKey, lastBlock.timestamp), IntegerEntry(wlgIssuedAmountKey, issuedAmount), IntegerEntry(stakersAmountPaidTotalKey, 0), IntegerEntry(stakersAmountLeftKey, fraction(MILLION6, PLAYERSHARE, MULT6)), BinaryEntry(wlgAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
348 -             }
341 +     else {
342 +         let oldWlgContAddr = addressFromStringValue(oldWlgContract)
343 + [IntegerEntry(wlgIssueTimeKey, valueOrElse(getInteger(oldWlgContAddr, wlgIssueTimeKey), 0)), IntegerEntry(wlgIssuedAmountKey, valueOrElse(getInteger(oldWlgContAddr, wlgIssuedAmountKey), 0)), IntegerEntry(stakersAmountPaidTotalKey, valueOrElse(getInteger(oldWlgContAddr, stakersAmountPaidTotalKey), 0)), IntegerEntry(stakersAmountLeftKey, valueOrElse(getInteger(oldWlgContAddr, stakersAmountLeftKey), 0)), BinaryEntry(wlgAssetIdKey, getBinaryValue(oldWlgContAddr, wlgAssetIdKey)), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
344 +         }
349 345  
350 346  
351 347  
352 348  @Callable(i)
353 349  func buyWlg (minAmount) = {
354 350      let prologResult = prolog()
355 351      if ((prologResult == prologResult))
356 352          then if ((size(i.payments) != 1))
357 353              then throw("exactly 1 payment must be attached")
358 354              else {
359 355                  let pmt = i.payments[0]
360 356                  let usdtAmt = pmt.amount
361 357                  if (if (!(isDefined(pmt.assetId)))
362 358                      then true
363 359                      else (value(pmt.assetId) != usdtAssetId))
364 360                      then throw("USDT payments only!")
365 361                      else {
366 362                          let caller = i.caller
367 363                          let addr = toString(caller)
368 364                          if ((MINSHOPPAYMENT > usdtAmt))
369 365                              then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
370 366                              else {
371 367                                  let curStats = getWlgStats("", [restContract, stakingContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, usdtAmt, MULT6)
372 368                                  let curWlgAmount = curStats[idxWlgAmount]
373 369                                  let fundsUsd = curStats[idxWlgFunds]
374 370                                  let wlgPrice = fraction(fundsUsd, MULT8, curWlgAmount)
375 371                                  let buyPrice = fraction(wlgPrice, 6, 5)
376 372                                  let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
377 373                                  let maxWlg = getSwapLimitWlg(addr)
378 374                                  if ((wlgAmount > maxWlg))
379 375                                      then throw((("You can get max " + fixedPoint(maxWlg, 8)) + " WLGOLD"))
380 376                                      else if ((minAmount > wlgAmount))
381 377                                          then throw("Price changed during operation, please try again")
382 378                                          else {
383 379                                              let profitAmount = (usdtAmt / 6)
384 380                                              let deltaFunds = (usdtAmt - profitAmount)
385 381                                              let reissued = fraction(curWlgAmount, deltaFunds, fundsUsd)
386 382                                              $Tuple2([Reissue(wlgAssetId, reissued, true), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount + reissued)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, wlgAmount, wlgAssetId)], prologResult)
387 383                                              }
388 384                                  }
389 385                          }
390 386                  }
391 387          else throw("Strict value is not equal to itself.")
392 388      }
393 389  
394 390  
395 391  
396 392  @Callable(i)
397 393  func sellWlg (minAmount) = {
398 394      let prologResult = prolog()
399 395      if ((prologResult == prologResult))
400 396          then if ((size(i.payments) != 1))
401 397              then throw("exactly 1 payment must be attached")
402 398              else {
403 399                  let pmt = i.payments[0]
404 400                  let wlgAmt = pmt.amount
405 401                  let caller = i.caller
406 402                  let addr = toString(caller)
407 403                  let maxWlg = getSwapLimitWlg(addr)
408 404                  if ((wlgAmt > maxWlg))
409 405                      then throw((("You can spend max " + fixedPoint(maxWlg, 8)) + " WLGOLD"))
410 406                      else if (if (!(isDefined(pmt.assetId)))
411 407                          then true
412 408                          else (value(pmt.assetId) != wlgAssetId))
413 409                          then throw("WLGOLD payments only!")
414 410                          else {
415 411                              let curStats = getWlgStats("", [restContract, stakingContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0, MULT6)
416 412                              let curWlgAmount = curStats[idxWlgAmount]
417 413                              let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
418 414                              let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
419 415                              if ((MINSHOPPAYMENT > usdtAmt))
420 416                                  then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
421 417                                  else if ((minAmount > usdtAmt))
422 418                                      then throw("Price changed during operation, please try again")
423 419                                      else {
424 420                                          let profitAmount = (usdtAmt / 4)
425 421                                          $Tuple2([Burn(wlgAssetId, wlgAmt), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount - wlgAmt)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, usdtAmt, usdtAssetId)], prologResult)
426 422                                          }
427 423                              }
428 424                  }
429 425          else throw("Strict value is not equal to itself.")
430 426      }
431 427  
432 428  
433 429  
434 430  @Callable(i)
435 431  func claim () = {
436 432      let prologResult = prolog()
437 433      if ((prologResult == prologResult))
438 434          then if ((size(i.payments) != 0))
439 435              then throw("No payments required")
440 436              else {
441 437                  let r = claimInternal(toString(i.caller), MULT6)
442 438                  let actions = r._1
443 439                  $Tuple2(((actions :+ ScriptTransfer(i.caller, r._2._1, wlgAssetId)) :+ ScriptTransfer(stakingContract, r._2._2, wlgAssetId)), prologResult)
444 440                  }
445 441          else throw("Strict value is not equal to itself.")
446 442      }
447 443  
448 444  
449 445  
450 446  @Callable(i)
451 447  func onStakeUnstakeLand (addr) = if ((i.caller != stakingContract))
452 448      then throw("Permission denied")
453 449      else {
454 450          let r = claimInternal(addr, MULT6)
455 451          let actions = r._1
456 452          $Tuple2(((actions :+ ScriptTransfer(addressFromStringValue(addr), r._2._1, wlgAssetId)) :+ ScriptTransfer(stakingContract, r._2._2, wlgAssetId)), r._2)
457 453          }
458 454  
459 455

Old	New		Differences
336	336
337	337
338	338		@Callable(i)
339		-	func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
	339	+	func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr,oldWlgContract) = if ((i.caller != this))
340	340		then throw("Permission denied")
341		-	else if (isDefined(getBinary(wlgAssetIdKey)))
342		-	then throw("Already initialized")
343		-	else {
344		-	let issuedAmount = MILLION6
345		-	let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
346		-	let assetId = calculateAssetId(issue)
347		-	[issue, IntegerEntry(wlgIssueTimeKey, lastBlock.timestamp), IntegerEntry(wlgIssuedAmountKey, issuedAmount), IntegerEntry(stakersAmountPaidTotalKey, 0), IntegerEntry(stakersAmountLeftKey, fraction(MILLION6, PLAYERSHARE, MULT6)), BinaryEntry(wlgAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
348		-	}
	341	+	else {
	342	+	let oldWlgContAddr = addressFromStringValue(oldWlgContract)
	343	+	[IntegerEntry(wlgIssueTimeKey, valueOrElse(getInteger(oldWlgContAddr, wlgIssueTimeKey), 0)), IntegerEntry(wlgIssuedAmountKey, valueOrElse(getInteger(oldWlgContAddr, wlgIssuedAmountKey), 0)), IntegerEntry(stakersAmountPaidTotalKey, valueOrElse(getInteger(oldWlgContAddr, stakersAmountPaidTotalKey), 0)), IntegerEntry(stakersAmountLeftKey, valueOrElse(getInteger(oldWlgContAddr, stakersAmountLeftKey), 0)), BinaryEntry(wlgAssetIdKey, getBinaryValue(oldWlgContAddr, wlgAssetIdKey)), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
	344	+	}
349	345
350	346
351	347

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 MINSHOPPAYMENT = 100000
11	11
12	12		let DAY_MILLIS = 86400000
13	13
14	14		let chain = take(drop(this.bytes, 1), 1)
15	15
16	16		let usdtAssetId = match chain {
17	17		case _ =>
18	18		if ((base58'2W' == $match0))
19	19		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
20	20		else if ((base58'2T' == $match0))
21	21		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
22	22		else throw("Unknown chain")
23	23		}
24	24
25	25		let defaultRestAddressStr = match chain {
26	26		case _ =>
27	27		if ((base58'2W' == $match0))
28	28		then "3P..."
29	29		else if ((base58'2T' == $match0))
30	30		then "3M..."
31	31		else throw("Unknown chain")
32	32		}
33	33
34	34		let arbitrageDelay = match chain {
35	35		case _ =>
36	36		if ((base58'2W' == $match0))
37	37		then DAY_MILLIS
38	38		else if ((base58'2T' == $match0))
39	39		then 60000
40	40		else throw("Unknown chain")
41	41		}
42	42
43	43		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
44	44
45	45
46	46		let IdxCfgAcresDapp = 1
47	47
48	48		let IdxCfgWlgDapp = 2
49	49
50	50		let IdxCfgPuzzlePoolDapp = 4
51	51
52	52		let IdxCfgInvestFundDapp = 5
53	53
54	54		func keyRestCfg () = "%s__restConfig"
55	55
56	56
57	57		func keyRestAddress () = "%s__restAddr"
58	58
59	59
60	60		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
61	61
62	62
63	63		func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
64	64
65	65
66	66		let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
67	67
68	68		let restCfg = readRestCfgOrFail(restContract)
69	69
70	70		let stakingContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
71	71
72	72		let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
73	73
74	74		let puzzlePoolContract = getContractAddressOrFail(restCfg, IdxCfgPuzzlePoolDapp)
75	75
76	76		let investFundContract = getContractAddressOrFail(restCfg, IdxCfgInvestFundDapp)
77	77
78	78		let wlgAssetIdKey = "wlg_assetId"
79	79
80	80		let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
81	81
82	82		func asInt (v) = match v {
83	83		case n: Int =>
84	84		n
85	85		case _ =>
86	86		throw("fail to cast into Int")
87	87		}
88	88
89	89
90	90		let idxWlgAmount = 0
91	91
92	92		let idxWlgPrice = 1
93	93
94	94		let idxWlgFunds = 2
95	95
96	96		let idxWlgIssueTime = 6
97	97
98	98		let idxWlgMarketingAmLeft = 9
99	99
100	100		let idxWlgMarketingAmAvailNow = 10
101	101
102	102		let idxWlgTeamAmLeft = 13
103	103
104	104		let idxWlgTeamAmAvailNow = 14
105	105
106	106		let idxWlgActAmLeft = 17
107	107
108	108		let idxWlgActAmAvailNow = 18
109	109
110	110		let idxWlgAmLeftTotal = 21
111	111
112	112		let idxWlgUserAmAvailNow = 24
113	113
114	114		let idxWlgUserTotalAvail = 26
115	115
116	116		let idxWlgEffUserTime = 27
117	117
118	118		let idxWlgBankAvailNow = 28
119	119
120	120		func fixedPoint (val,decimals) = {
121	121		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
122	122		let lowPart = toString((val % tenPow))
123	123		let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
124	124		(((toString((val / tenPow)) + ".") + zeroes) + lowPart)
125	125		}
126	126
127	127
128	128		let M6 = 1000000
129	129
130	130		let M8 = 100000000
131	131
132	132		let MILLION6 = 100000000000000
133	133
134	134		let MARKETINGSHARE = 100000
135	135
136	136		let TEAMSHARE = 200000
137	137
138	138		let ACTIVITYSHARE = 100000
139	139
140	140		let PLAYERSHARE = 400000
141	141
142	142		let YEARMILLIS = 31557600000
143	143
144	144		let BANK_FEE = 50000
145	145
146	146		let ch = take(drop(this.bytes, 1), 1)
147	147
148	148		let USDT_TVL_CORRECTION = match ch {
149	149		case _ =>
150	150		if ((base58'2W' == $match0))
151	151		then 1208630000
152	152		else if ((base58'2T' == $match0))
153	153		then 0
154	154		else throw("Unknown chain")
155	155		}
156	156
157	157		let marketingAddrKey = "marketingAddr"
158	158
159	159		let teamAddrKey = "teamAddr"
160	160
161	161		let lastMarketingTimeKey = "lastClaimedTime_marketing"
162	162
163	163		let marketingAmountLeftKey = "marketingAmountLeft"
164	164
165	165		let lastTeamTimeKey = "lastClaimedTime_team"
166	166
167	167		let teamAmountLeftKey = "teamAmountLeft"
168	168
169	169		let lastActivitiesTimeKey = "lastClaimedTime_activities"
170	170
171	171		let actAmountLeftKey = "activitiesAmountLeft"
172	172
173	173		let stakersAmountLeftKey = "stakersAmountLeft"
174	174
175	175		func keyLastClaimedTimeByUser (addr) = ("lastClaimedTimeUser_" + addr)
176	176
177	177
178	178		func keyLastArbTimeByUser (addr) = ("lastArbTimeUser_" + addr)
179	179
180	180
181	181		func distributionByPeriod (period) = fraction(MILLION6, (PLAYERSHARE * (period + 1)), (6 * M6))
182	182
183	183
184	184		let wlgIssueTimeKey = "wlg_issueTime"
185	185
186	186		let wlgIssuedAmountKey = "wlg_issuedAmount"
187	187
188	188		let zbIssuedAmountKey = "zbill_issuedAmount"
189	189
190	190		func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
191	191
192	192
193	193		let acresStakedTotalKey = "acresStakedAmountTotal"
194	194
195	195		let dappRest = 0
196	196
197	197		let dappStaking = 1
198	198
199	199		let dappWlg = 2
200	200
201	201		let dappPuzzle = 3
202	202
203	203		let dappInvestFund = 4
204	204
205	205		func getLands (userAddrStrOrEmpty,stakingContract) = {
206	206		let totalAcres = valueOrElse(getInteger(stakingContract, acresStakedTotalKey), 0)
207	207		let userAcres = valueOrElse(getInteger(stakingContract, keyAcresStakedAmountByUser(userAddrStrOrEmpty)), 0)
208	208		[totalAcres, userAcres]
209	209		}
210	210
211	211
212	212		let idxTotalAcres = 0
213	213
214	214		let idxUserAcres = 1
215	215
216	216		func getWlgStats (userAddrOpt,contracts,usdtId,usdtBalanceCorrection,userProportion6) = {
217	217		let issuedAmount = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssuedAmountKey), "WLGOLD is not issued yet")
218	218		let restUsd = assetBalance(contracts[dappRest], usdtId)
219	219		let wlgUsd = (assetBalance(contracts[dappWlg], usdtId) - usdtBalanceCorrection)
220	220		let puzzleUsd = assetBalance(contracts[dappPuzzle], usdtId)
221	221		let investFndContract = contracts[dappInvestFund]
222	222		let investFundTotal = (assetBalance(investFndContract, usdtId) + valueOrElse(getInteger(investFndContract, zbIssuedAmountKey), 0))
223	223		let totalFundsUsd = (wlgUsd + investFundTotal)
224	224		let wlgId = valueOrErrorMessage(getBinary(contracts[dappWlg], "wlg_assetId"), "Not initialized yet")
225	225		let now = lastBlock.timestamp
226	226		let issueTime = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssueTimeKey), "Not initialized")
227	227		let marketingTotal = fraction(MILLION6, MARKETINGSHARE, M6)
228	228		let marketingAmountLeft = valueOrElse(getInteger(contracts[dappWlg], marketingAmountLeftKey), marketingTotal)
229	229		let lastMarketingTime = valueOrElse(getInteger(contracts[dappWlg], lastMarketingTimeKey), issueTime)
230	230		let marketingAddr = addressFromStringValue(value(getString(contracts[dappWlg], marketingAddrKey)))
231	231		let marketingTemp = min([fraction(marketingTotal, (now - lastMarketingTime), YEARMILLIS), marketingAmountLeft])
232	232		let bankFromMarketing = fraction(marketingTemp, BANK_FEE, M6)
233	233		let marketingAmountAvailableNow = (marketingTemp - bankFromMarketing)
234	234		let marketingWlgold = assetBalance(marketingAddr, wlgId)
235	235		let bankWlgold = assetBalance(contracts[dappStaking], wlgId)
236	236		let teamTotal = fraction(MILLION6, TEAMSHARE, M6)
237	237		let teamAmountLeft = valueOrElse(getInteger(contracts[dappWlg], teamAmountLeftKey), teamTotal)
238	238		let lastTeamTime = valueOrElse(getInteger(contracts[dappWlg], lastTeamTimeKey), issueTime)
239	239		let teamAddr = addressFromStringValue(value(getString(contracts[dappWlg], teamAddrKey)))
240	240		let teamAmountAvailableNow = min([fraction(teamTotal, (now - lastTeamTime), (3 * YEARMILLIS)), teamAmountLeft])
241	241		let teamWlgold = assetBalance(teamAddr, wlgId)
242	242		let actTotal = fraction(MILLION6, ACTIVITYSHARE, M6)
243	243		let actAmountLeft = valueOrElse(getInteger(contracts[dappWlg], actAmountLeftKey), actTotal)
244	244		let lastActivitiesTime = valueOrElse(getInteger(contracts[dappWlg], lastActivitiesTimeKey), issueTime)
245	245		let actAmountAvailableNow = min([fraction(actTotal, (now - lastActivitiesTime), (3 * YEARMILLIS)), actAmountLeft])
246	246		let actWlgold = assetBalance(contracts[dappRest], wlgId)
247	247		let lastUserTime = valueOrElse(getInteger(contracts[dappWlg], keyLastClaimedTimeByUser(userAddrOpt)), issueTime)
248	248		let lastUserPeriod = ((lastUserTime - issueTime) / YEARMILLIS)
249	249		let nowLimited = min([now, (issueTime + (3 * YEARMILLIS))])
250	250		let curPeriod = min([((now - issueTime) / YEARMILLIS), 2])
251	251		let eff = getLands(userAddrOpt, contracts[dappStaking])
252	252		let curPeriodDistribution = distributionByPeriod(curPeriod)
253	253		let $t079119 = if ((lastUserPeriod == curPeriod))
254	254		then {
255	255		let a0 = fraction(curPeriodDistribution, (nowLimited - lastUserTime), YEARMILLIS)
256	256		let userPart = fraction(a0, userProportion6, M6)
257	257		let effTime = (lastUserTime + fraction((nowLimited - lastUserTime), userProportion6, M6))
258	258		$Tuple3(userPart, a0, effTime)
259	259		}
260	260		else if ((lastUserPeriod == (curPeriod - 1)))
261	261		then {
262	262		let a1 = fraction(distributionByPeriod((curPeriod - 1)), ((issueTime + (YEARMILLIS * curPeriod)) - lastUserTime), YEARMILLIS)
263	263		let a0 = fraction(curPeriodDistribution, (nowLimited - (issueTime + (YEARMILLIS * curPeriod))), YEARMILLIS)
264	264		let avail = (a1 + a0)
265	265		let userPart = fraction(avail, userProportion6, M6)
266	266		let effTime = if ((a1 >= userPart))
267	267		then (lastUserTime + fraction(YEARMILLIS, userPart, distributionByPeriod((curPeriod - 1))))
268	268		else ((issueTime + (YEARMILLIS * curPeriod)) + fraction(YEARMILLIS, (userPart - a1), curPeriodDistribution))
269	269		$Tuple3(userPart, avail, effTime)
270	270		}
271	271		else {
272	272		let a2 = fraction(distributionByPeriod((curPeriod - 2)), ((issueTime + (YEARMILLIS * (curPeriod - 1))) - lastUserTime), YEARMILLIS)
273	273		let a1 = distributionByPeriod((curPeriod - 1))
274	274		let a0 = fraction(curPeriodDistribution, (nowLimited - (issueTime + (YEARMILLIS * curPeriod))), YEARMILLIS)
275	275		let avail = ((a2 + a1) + a0)
276	276		let userPart = fraction(avail, userProportion6, M6)
277	277		let effTime = if ((a2 >= userPart))
278	278		then (lastUserTime + fraction(YEARMILLIS, userPart, distributionByPeriod((curPeriod - 2))))
279	279		else if (((a2 + a1) >= userPart))
280	280		then ((issueTime + (YEARMILLIS * (curPeriod - 1))) + fraction(YEARMILLIS, (userPart - a2), distributionByPeriod((curPeriod - 1))))
281	281		else ((issueTime + (YEARMILLIS * curPeriod)) + fraction(YEARMILLIS, ((userPart - a2) - a1), curPeriodDistribution))
282	282		$Tuple3(userPart, avail, effTime)
283	283		}
284	284		let userAmount = $t079119._1
285	285		let userAvailable = $t079119._2
286	286		let effLastTime = $t079119._3
287	287		let amountLeftTotal = valueOrElse(getInteger(contracts[dappWlg], stakersAmountLeftKey), 0)
288	288		let userTemp = fraction(userAmount, eff[idxUserAcres], eff[idxTotalAcres])
289	289		let bankFromUser = fraction(userTemp, BANK_FEE, M6)
290	290		let robbedUser = (userTemp - bankFromUser)
291	291		let unrobbedUser = fraction(userAvailable, eff[idxUserAcres], eff[idxTotalAcres])
292	292		[issuedAmount, fraction((totalFundsUsd - USDT_TVL_CORRECTION), M8, issuedAmount), totalFundsUsd, restUsd, wlgUsd, puzzleUsd, issueTime, lastMarketingTime, marketingTotal, marketingAmountLeft, marketingAmountAvailableNow, marketingWlgold, teamTotal, teamAmountLeft, teamAmountAvailableNow, teamWlgold, actTotal, actAmountLeft, actAmountAvailableNow, actWlgold, curPeriod, amountLeftTotal, curPeriodDistribution, lastUserTime, robbedUser, investFundTotal, unrobbedUser, effLastTime, (bankFromMarketing + bankFromUser), bankWlgold]
293	293		}
294	294
295	295
296	296		let profitAddrKey = "profitAddr"
297	297
298	298		let stakersAmountPaidTotalKey = "stakersAmountPaidTotal"
299	299
300	300		func keyStakersAmountPaidUser (addr) = ("stakersAmountPaidUser_" + addr)
301	301
302	302
303	303		func prolog () = asInt(reentrantInvoke(stakingContract, "saveLastTx", nil, nil))
304	304
305	305
306	306		func getSwapLimitWlg (addr) = {
307	307		let lastTime = valueOrElse(getInteger(keyLastArbTimeByUser(addr)), 0)
308	308		let now = lastBlock.timestamp
309	309		if ((arbitrageDelay > (now - lastTime)))
310	310		then throw((("Arbitrages are possible once a " + toString((arbitrageDelay / 60000))) + "min"))
311	311		else {
312	312		let acresAmount = valueOrElse(getInteger(stakingContract, keyAcresStakedAmountByUser(addr)), 0)
313	313		acresAmount
314	314		}
315	315		}
316	316
317	317
318	318		func claimInternal (addr,proportion6) = {
319	319		let caller = addressFromStringValue(addr)
320	320		let curStats = getWlgStats(addr, [restContract, stakingContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0, proportion6)
321	321		let now = lastBlock.timestamp
322	322		let issueTime = curStats[idxWlgIssueTime]
323	323		let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
324	324		let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
325	325		let teamAmountLeft = curStats[idxWlgTeamAmLeft]
326	326		let teamAmount = curStats[idxWlgTeamAmAvailNow]
327	327		let actAmountLeft = curStats[idxWlgActAmLeft]
328	328		let actAmount = curStats[idxWlgActAmAvailNow]
329	329		let userAmount = curStats[idxWlgUserAmAvailNow]
330	330		let userKey = keyStakersAmountPaidUser(addr)
331	331		let userTotal = curStats[idxWlgUserTotalAvail]
332	332		let userEffTime = curStats[idxWlgEffUserTime]
333	333		let bankAmount = curStats[idxWlgBankAvailNow]
334	334		$Tuple2([ScriptTransfer(addressFromStringValue(value(getString(marketingAddrKey))), marketingAmount, wlgAssetId), ScriptTransfer(addressFromStringValue(value(getString(teamAddrKey))), teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userTotal)), IntegerEntry(stakersAmountLeftKey, (curStats[idxWlgAmLeftTotal] - userTotal)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(keyLastClaimedTimeByUser(addr), userEffTime)], $Tuple2(userAmount, bankAmount))
335	335		}
336	336
337	337
338	338		@Callable(i)
339		-	func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
	339	+	func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr,oldWlgContract) = if ((i.caller != this))
340	340		then throw("Permission denied")
341		-	else if (isDefined(getBinary(wlgAssetIdKey)))
342		-	then throw("Already initialized")
343		-	else {
344		-	let issuedAmount = MILLION6
345		-	let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
346		-	let assetId = calculateAssetId(issue)
347		-	[issue, IntegerEntry(wlgIssueTimeKey, lastBlock.timestamp), IntegerEntry(wlgIssuedAmountKey, issuedAmount), IntegerEntry(stakersAmountPaidTotalKey, 0), IntegerEntry(stakersAmountLeftKey, fraction(MILLION6, PLAYERSHARE, MULT6)), BinaryEntry(wlgAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
348		-	}
	341	+	else {
	342	+	let oldWlgContAddr = addressFromStringValue(oldWlgContract)
	343	+	[IntegerEntry(wlgIssueTimeKey, valueOrElse(getInteger(oldWlgContAddr, wlgIssueTimeKey), 0)), IntegerEntry(wlgIssuedAmountKey, valueOrElse(getInteger(oldWlgContAddr, wlgIssuedAmountKey), 0)), IntegerEntry(stakersAmountPaidTotalKey, valueOrElse(getInteger(oldWlgContAddr, stakersAmountPaidTotalKey), 0)), IntegerEntry(stakersAmountLeftKey, valueOrElse(getInteger(oldWlgContAddr, stakersAmountLeftKey), 0)), BinaryEntry(wlgAssetIdKey, getBinaryValue(oldWlgContAddr, wlgAssetIdKey)), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
	344	+	}
349	345
350	346
351	347
352	348		@Callable(i)
353	349		func buyWlg (minAmount) = {
354	350		let prologResult = prolog()
355	351		if ((prologResult == prologResult))
356	352		then if ((size(i.payments) != 1))
357	353		then throw("exactly 1 payment must be attached")
358	354		else {
359	355		let pmt = i.payments[0]
360	356		let usdtAmt = pmt.amount
361	357		if (if (!(isDefined(pmt.assetId)))
362	358		then true
363	359		else (value(pmt.assetId) != usdtAssetId))
364	360		then throw("USDT payments only!")
365	361		else {
366	362		let caller = i.caller
367	363		let addr = toString(caller)
368	364		if ((MINSHOPPAYMENT > usdtAmt))
369	365		then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
370	366		else {
371	367		let curStats = getWlgStats("", [restContract, stakingContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, usdtAmt, MULT6)
372	368		let curWlgAmount = curStats[idxWlgAmount]
373	369		let fundsUsd = curStats[idxWlgFunds]
374	370		let wlgPrice = fraction(fundsUsd, MULT8, curWlgAmount)
375	371		let buyPrice = fraction(wlgPrice, 6, 5)
376	372		let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
377	373		let maxWlg = getSwapLimitWlg(addr)
378	374		if ((wlgAmount > maxWlg))
379	375		then throw((("You can get max " + fixedPoint(maxWlg, 8)) + " WLGOLD"))
380	376		else if ((minAmount > wlgAmount))
381	377		then throw("Price changed during operation, please try again")
382	378		else {
383	379		let profitAmount = (usdtAmt / 6)
384	380		let deltaFunds = (usdtAmt - profitAmount)
385	381		let reissued = fraction(curWlgAmount, deltaFunds, fundsUsd)
386	382		$Tuple2([Reissue(wlgAssetId, reissued, true), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount + reissued)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, wlgAmount, wlgAssetId)], prologResult)
387	383		}
388	384		}
389	385		}
390	386		}
391	387		else throw("Strict value is not equal to itself.")
392	388		}
393	389
394	390
395	391
396	392		@Callable(i)
397	393		func sellWlg (minAmount) = {
398	394		let prologResult = prolog()
399	395		if ((prologResult == prologResult))
400	396		then if ((size(i.payments) != 1))
401	397		then throw("exactly 1 payment must be attached")
402	398		else {
403	399		let pmt = i.payments[0]
404	400		let wlgAmt = pmt.amount
405	401		let caller = i.caller
406	402		let addr = toString(caller)
407	403		let maxWlg = getSwapLimitWlg(addr)
408	404		if ((wlgAmt > maxWlg))
409	405		then throw((("You can spend max " + fixedPoint(maxWlg, 8)) + " WLGOLD"))
410	406		else if (if (!(isDefined(pmt.assetId)))
411	407		then true
412	408		else (value(pmt.assetId) != wlgAssetId))
413	409		then throw("WLGOLD payments only!")
414	410		else {
415	411		let curStats = getWlgStats("", [restContract, stakingContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0, MULT6)
416	412		let curWlgAmount = curStats[idxWlgAmount]
417	413		let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
418	414		let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
419	415		if ((MINSHOPPAYMENT > usdtAmt))
420	416		then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
421	417		else if ((minAmount > usdtAmt))
422	418		then throw("Price changed during operation, please try again")
423	419		else {
424	420		let profitAmount = (usdtAmt / 4)
425	421		$Tuple2([Burn(wlgAssetId, wlgAmt), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount - wlgAmt)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, usdtAmt, usdtAssetId)], prologResult)
426	422		}
427	423		}
428	424		}
429	425		else throw("Strict value is not equal to itself.")
430	426		}
431	427
432	428
433	429
434	430		@Callable(i)
435	431		func claim () = {
436	432		let prologResult = prolog()
437	433		if ((prologResult == prologResult))
438	434		then if ((size(i.payments) != 0))
439	435		then throw("No payments required")
440	436		else {
441	437		let r = claimInternal(toString(i.caller), MULT6)
442	438		let actions = r._1
443	439		$Tuple2(((actions :+ ScriptTransfer(i.caller, r._2._1, wlgAssetId)) :+ ScriptTransfer(stakingContract, r._2._2, wlgAssetId)), prologResult)
444	440		}
445	441		else throw("Strict value is not equal to itself.")
446	442		}
447	443
448	444
449	445
450	446		@Callable(i)
451	447		func onStakeUnstakeLand (addr) = if ((i.caller != stakingContract))
452	448		then throw("Permission denied")
453	449		else {
454	450		let r = claimInternal(addr, MULT6)
455	451		let actions = r._1
456	452		$Tuple2(((actions :+ ScriptTransfer(addressFromStringValue(addr), r._2._1, wlgAssetId)) :+ ScriptTransfer(stakingContract, r._2._2, wlgAssetId)), r._2)
457	453		}
458	454
459	455

github/deemru/w8io/169f3d6 
59.48 ms ◑