tx · 4t1JDHitYd8g9E5n4PB6XJiAiBmtW72kvkRfrf3U1MiL

3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy:  -0.02000000 Waves

2023.10.07 01:57 [2787403] smart account 3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4t1JDHitYd8g9E5n4PB6XJiAiBmtW72kvkRfrf3U1MiL",
    "fee": 2000000,
    "feeAssetId": null,
    "timestamp": 1696633095023,
    "version": 2,
    "chainId": 84,
    "sender": "3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy",
    "senderPublicKey": "FsR18761ZAsUqsTd7TK3XmR6bhihs1UXVmpHYxz5JzQ1",
    "proofs": [
        "5sCUWzHBoSvsJcxDuaxXUXwHeKtggDpKWAr95SDzAgGLzQfH1bsbRK4dEFTEZRiPZvFZQ4Azbc7UMNakcnRyFpzJ"
    ],
    "script": "base64:BgIzCAISBgoECAgICBIDCgEBEgMKAQESABIDCgEIEgUKAwgIARIAEgMKAQESAwoBCBIDCgEIbQACTTYAwIQ9AAJNOACAwtcvAAhNSUxMSU9ONgCAgOmDsd4WAA5NQVJLRVRJTkdTSEFSRQCgjQYACVRFQU1TSEFSRQDAmgwADUFDVElWSVRZU0hBUkUAoI0GAAtQTEFZRVJTSEFSRQCAtRgACllFQVJNSUxMSVMAgIbrx3UACUNIRUNLVElNRQCAyeCrsAEACURBWU1JTExJUwCAuJkpABBtYXJrZXRpbmdBZGRyS2V5Ag1tYXJrZXRpbmdBZGRyAAt0ZWFtQWRkcktleQIIdGVhbUFkZHIAFGxhc3RNYXJrZXRpbmdUaW1lS2V5AhlsYXN0Q2xhaW1lZFRpbWVfbWFya2V0aW5nABZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5AhNtYXJrZXRpbmdBbW91bnRMZWZ0AA9sYXN0VGVhbVRpbWVLZXkCFGxhc3RDbGFpbWVkVGltZV90ZWFtABF0ZWFtQW1vdW50TGVmdEtleQIOdGVhbUFtb3VudExlZnQAFWxhc3RBY3Rpdml0aWVzVGltZUtleQIabGFzdENsYWltZWRUaW1lX2FjdGl2aXRpZXMAEGFjdEFtb3VudExlZnRLZXkCFGFjdGl2aXRpZXNBbW91bnRMZWZ0ABRzdGFrZXJzQW1vdW50TGVmdEtleQIRc3Rha2Vyc0Ftb3VudExlZnQBGGtleUxhc3RDbGFpbWVkVGltZUJ5VXNlcgEEYWRkcgkArAICAhRsYXN0Q2xhaW1lZFRpbWVVc2VyXwUEYWRkcgEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBGFkZHIJAKwCAgIQbGFzdEFyYlRpbWVVc2VyXwUEYWRkcgEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBBnBlcmlvZAkAawMFCE1JTExJT042CQBoAgULUExBWUVSU0hBUkUJAGQCBQZwZXJpb2QAAQkAaAIABgUCTTYAD3dsZ0lzc3VlVGltZUtleQINd2xnX2lzc3VlVGltZQASd2xnSXNzdWVkQW1vdW50S2V5AhB3bGdfaXNzdWVkQW1vdW50ABF6Yklzc3VlZEFtb3VudEtleQISemJpbGxfaXNzdWVkQW1vdW50ARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEEYWRkcgkArAICAhhhY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcl8FBGFkZHIAE2FjcmVzU3Rha2VkVG90YWxLZXkCFmFjcmVzU3Rha2VkQW1vdW50VG90YWwBGGtleVdsZ1N0YWtlZEFtb3VudEJ5VXNlcgEEYWRkcgkArAICAhZ3bGdTdGFrZWRBbW91bnRCeVVzZXJfBQRhZGRyABF3bGdTdGFrZWRUb3RhbEtleQIUd2xnU3Rha2VkQW1vdW50VG90YWwBFmtleVdsZ1N0YWtlZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIUd2xnU3Rha2VkVGltZUJ5VXNlcl8FBGFkZHIACGRhcHBSZXN0AAAAC2RhcHBTdGFraW5nAAEAC2RhcHBFY29ub215AAIAB2RhcHBXbGcAAwAKZGFwcFB1enpsZQAEAA5kYXBwSW52ZXN0RnVuZAAFAAlkYXBwQWNyZXMABgEIZ2V0TGFuZHMDEnVzZXJBZGRyU3RyT3JFbXB0eQ9zdGFraW5nQ29udHJhY3QNYWNyZXNDb250cmFjdAQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QCE3Jlc1R5cGVzUHJvcG9ydGlvbnMCCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0EC3RvdGFsUGllY2VzCgACJGwFBXByb3BzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQKdXNlclBpZWNlcwkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJAKwCAgIUc3Rha2VkUGllY2VzQnlPd25lcl8FEnVzZXJBZGRyU3RyT3JFbXB0eQAABAp0b3RhbEFjcmVzCQELdmFsdWVPckVsc2UCCQCaCAIFDWFjcmVzQ29udHJhY3QFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQJdXNlckFjcmVzCQELdmFsdWVPckVsc2UCCQCaCAIFDWFjcmVzQ29udHJhY3QJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFEnVzZXJBZGRyU3RyT3JFbXB0eQAACQDMCAIFC3RvdGFsUGllY2VzCQDMCAIFCnVzZXJQaWVjZXMJAMwIAgUKdG90YWxBY3JlcwkAzAgCBQl1c2VyQWNyZXMFA25pbAAOaWR4VG90YWxQaWVjZXMAAAANaWR4VXNlclBpZWNlcwABAA1pZHhUb3RhbEFjcmVzAAIADGlkeFVzZXJBY3JlcwADAQtnZXRXbGdTdGF0cwULdXNlckFkZHJPcHQJY29udHJhY3RzBnVzZHRJZBV1c2R0QmFsYW5jZUNvcnJlY3Rpb24PdXNlclByb3BvcnRpb242BAxpc3N1ZWRBbW91bnQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUSd2xnSXNzdWVkQW1vdW50S2V5AhhXTEdPTEQgaXMgbm90IGlzc3VlZCB5ZXQECmVjb25vbXlVc2QJAPAHAgkAkQMCBQljb250cmFjdHMFC2RhcHBFY29ub215BQZ1c2R0SWQEB3Jlc3RVc2QJAPAHAgkAkQMCBQljb250cmFjdHMFCGRhcHBSZXN0BQZ1c2R0SWQEBndsZ1VzZAkAZQIJAPAHAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFBnVzZHRJZAUVdXNkdEJhbGFuY2VDb3JyZWN0aW9uBAlwdXp6bGVVc2QJAPAHAgkAkQMCBQljb250cmFjdHMFCmRhcHBQdXp6bGUFBnVzZHRJZAQSaW52ZXN0RnVuZENvbnRyYWN0CQCRAwIFCWNvbnRyYWN0cwUOZGFwcEludmVzdEZ1bmQED2ludmVzdEZ1bmRUb3RhbAkAZAIJAPAHAgUSaW52ZXN0RnVuZENvbnRyYWN0BQZ1c2R0SWQJAQt2YWx1ZU9yRWxzZQIJAJoIAgUSaW52ZXN0RnVuZENvbnRyYWN0BRF6Yklzc3VlZEFtb3VudEtleQAABA10b3RhbEZ1bmRzVXNkCQBkAgkAZAIFCmVjb25vbXlVc2QFBndsZ1VzZAUPaW52ZXN0RnVuZFRvdGFsBAV3bGdJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnAgt3bGdfYXNzZXRJZAITTm90IGluaXRpYWxpemVkIHlldAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQJaXNzdWVUaW1lCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFD3dsZ0lzc3VlVGltZUtleQIPTm90IGluaXRpYWxpemVkBA5tYXJrZXRpbmdUb3RhbAkAawMFCE1JTExJT042BQ5NQVJLRVRJTkdTSEFSRQUCTTYEE21hcmtldGluZ0Ftb3VudExlZnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFFm1hcmtldGluZ0Ftb3VudExlZnRLZXkFDm1hcmtldGluZ1RvdGFsBBFsYXN0TWFya2V0aW5nVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUUbGFzdE1hcmtldGluZ1RpbWVLZXkFCWlzc3VlVGltZQQNbWFya2V0aW5nQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAnQgCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUQbWFya2V0aW5nQWRkcktleQQbbWFya2V0aW5nQW1vdW50QXZhaWxhYmxlTm93CQCXAwEJAMwIAgkAawMFDm1hcmtldGluZ1RvdGFsCQBlAgUDbm93BRFsYXN0TWFya2V0aW5nVGltZQUKWUVBUk1JTExJUwkAzAgCBRNtYXJrZXRpbmdBbW91bnRMZWZ0BQNuaWwED21hcmtldGluZ1dsZ29sZAkA8AcCBQ1tYXJrZXRpbmdBZGRyBQV3bGdJZAQJdGVhbVRvdGFsCQBrAwUITUlMTElPTjYFCVRFQU1TSEFSRQUCTTYEDnRlYW1BbW91bnRMZWZ0CQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRF0ZWFtQW1vdW50TGVmdEtleQUJdGVhbVRvdGFsBAxsYXN0VGVhbVRpbWUJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFD2xhc3RUZWFtVGltZUtleQUJaXNzdWVUaW1lBAh0ZWFtQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAnQgCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwULdGVhbUFkZHJLZXkEFnRlYW1BbW91bnRBdmFpbGFibGVOb3cJAJcDAQkAzAgCCQBrAwUJdGVhbVRvdGFsCQBlAgUDbm93BQxsYXN0VGVhbVRpbWUJAGgCAAMFCllFQVJNSUxMSVMJAMwIAgUOdGVhbUFtb3VudExlZnQFA25pbAQKdGVhbVdsZ29sZAkA8AcCBQh0ZWFtQWRkcgUFd2xnSWQECGFjdFRvdGFsCQBrAwUITUlMTElPTjYFDUFDVElWSVRZU0hBUkUFAk02BA1hY3RBbW91bnRMZWZ0CQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRBhY3RBbW91bnRMZWZ0S2V5BQhhY3RUb3RhbAQSbGFzdEFjdGl2aXRpZXNUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRVsYXN0QWN0aXZpdGllc1RpbWVLZXkFCWlzc3VlVGltZQQVYWN0QW1vdW50QXZhaWxhYmxlTm93CQCXAwEJAMwIAgkAawMFCGFjdFRvdGFsCQBlAgUDbm93BRJsYXN0QWN0aXZpdGllc1RpbWUJAGgCAAMFCllFQVJNSUxMSVMJAMwIAgUNYWN0QW1vdW50TGVmdAUDbmlsBAlhY3RXbGdvbGQJAPAHAgkAkQMCBQljb250cmFjdHMFCGRhcHBSZXN0BQV3bGdJZAQMbGFzdFVzZXJUaW1lCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnCQEYa2V5TGFzdENsYWltZWRUaW1lQnlVc2VyAQULdXNlckFkZHJPcHQFCWlzc3VlVGltZQQObGFzdFVzZXJQZXJpb2QJAGkCCQBlAgUMbGFzdFVzZXJUaW1lBQlpc3N1ZVRpbWUFCllFQVJNSUxMSVMECm5vd0xpbWl0ZWQJAJcDAQkAzAgCBQNub3cJAMwIAgkAZAIFCWlzc3VlVGltZQkAaAIAAwUKWUVBUk1JTExJUwUDbmlsBAljdXJQZXJpb2QJAJcDAQkAzAgCCQBpAgkAZQIFA25vdwUJaXNzdWVUaW1lBQpZRUFSTUlMTElTCQDMCAIAAgUDbmlsBANlZmYJAQhnZXRMYW5kcwMFC3VzZXJBZGRyT3B0CQCRAwIFCWNvbnRyYWN0cwULZGFwcFN0YWtpbmcJAJEDAgUJY29udHJhY3RzBQlkYXBwQWNyZXMEFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkBFGRpc3RyaWJ1dGlvbkJ5UGVyaW9kAQUJY3VyUGVyaW9kBAgkdDA3OTE0MgMJAAACBQ5sYXN0VXNlclBlcmlvZAUJY3VyUGVyaW9kBAJhMAkAawMFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAZQIFCm5vd0xpbWl0ZWQFDGxhc3RVc2VyVGltZQUKWUVBUk1JTExJUwQIdXNlclBhcnQJAGsDBQJhMAUPdXNlclByb3BvcnRpb242BQJNNgQHZWZmVGltZQkAZAIFDGxhc3RVc2VyVGltZQkAawMJAGUCBQpub3dMaW1pdGVkBQxsYXN0VXNlclRpbWUFD3VzZXJQcm9wb3J0aW9uNgUCTTYJAJUKAwUIdXNlclBhcnQFAmEwBQdlZmZUaW1lAwkAAAIFDmxhc3RVc2VyUGVyaW9kCQBlAgUJY3VyUGVyaW9kAAEEAmExCQBrAwkBFGRpc3RyaWJ1dGlvbkJ5UGVyaW9kAQkAZQIFCWN1clBlcmlvZAABCQBlAgkAZAIFCWlzc3VlVGltZQkAaAIFCllFQVJNSUxMSVMFCWN1clBlcmlvZAUMbGFzdFVzZXJUaW1lBQpZRUFSTUlMTElTBAJhMAkAawMFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAZQIFCm5vd0xpbWl0ZWQJAGQCBQlpc3N1ZVRpbWUJAGgCBQpZRUFSTUlMTElTBQljdXJQZXJpb2QFCllFQVJNSUxMSVMEBWF2YWlsCQBkAgUCYTEFAmEwBAh1c2VyUGFydAkAawMFBWF2YWlsBQ91c2VyUHJvcG9ydGlvbjYFAk02BAdlZmZUaW1lAwkAZwIFAmExBQh1c2VyUGFydAkAZAIFDGxhc3RVc2VyVGltZQkAawMFCllFQVJNSUxMSVMFCHVzZXJQYXJ0CQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAEJAGQCCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwUJY3VyUGVyaW9kCQBrAwUKWUVBUk1JTExJUwkAZQIFCHVzZXJQYXJ0BQJhMQUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQCVCgMFCHVzZXJQYXJ0BQVhdmFpbAUHZWZmVGltZQQCYTIJAGsDCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAIJAGUCCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwkAZQIFCWN1clBlcmlvZAABBQxsYXN0VXNlclRpbWUFCllFQVJNSUxMSVMEAmExCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAEEAmEwCQBrAwUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQBlAgUKbm93TGltaXRlZAkAZAIFCWlzc3VlVGltZQkAaAIFCllFQVJNSUxMSVMFCWN1clBlcmlvZAUKWUVBUk1JTExJUwQFYXZhaWwJAGQCCQBkAgUCYTIFAmExBQJhMAQIdXNlclBhcnQJAGsDBQVhdmFpbAUPdXNlclByb3BvcnRpb242BQJNNgQHZWZmVGltZQMJAGcCBQJhMgUIdXNlclBhcnQJAGQCBQxsYXN0VXNlclRpbWUJAGsDBQpZRUFSTUlMTElTBQh1c2VyUGFydAkBFGRpc3RyaWJ1dGlvbkJ5UGVyaW9kAQkAZQIFCWN1clBlcmlvZAACAwkAZwIJAGQCBQJhMgUCYTEFCHVzZXJQYXJ0CQBkAgkAZAIFCWlzc3VlVGltZQkAaAIFCllFQVJNSUxMSVMJAGUCBQljdXJQZXJpb2QAAQkAawMFCllFQVJNSUxMSVMJAGUCBQh1c2VyUGFydAUCYTIJARRkaXN0cmlidXRpb25CeVBlcmlvZAEJAGUCBQljdXJQZXJpb2QAAQkAZAIJAGQCBQlpc3N1ZVRpbWUJAGgCBQpZRUFSTUlMTElTBQljdXJQZXJpb2QJAGsDBQpZRUFSTUlMTElTCQBlAgkAZQIFCHVzZXJQYXJ0BQJhMgUCYTEFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAlQoDBQh1c2VyUGFydAUFYXZhaWwFB2VmZlRpbWUECnVzZXJBbW91bnQIBQgkdDA3OTE0MgJfMQQNdXNlckF2YWlsYWJsZQgFCCR0MDc5MTQyAl8yBAtlZmZMYXN0VGltZQgFCCR0MDc5MTQyAl8zBBBzTGFuZERhaWx5QW1vdW50CQBrAwkAawMFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgUJREFZTUlMTElTBQpZRUFSTUlMTElTABkJAJEDAgUDZWZmBQ5pZHhUb3RhbFBpZWNlcwQPYW1vdW50TGVmdFRvdGFsCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRRzdGFrZXJzQW1vdW50TGVmdEtleQAABApyb2JiZWRVc2VyCQBrAwUKdXNlckFtb3VudAkAZAIJAGgCCQCRAwIFA2VmZgUNaWR4VXNlclBpZWNlcwUCTTgJAJEDAgUDZWZmBQxpZHhVc2VyQWNyZXMJAGQCCQBoAgkAkQMCBQNlZmYFDmlkeFRvdGFsUGllY2VzBQJNOAkAkQMCBQNlZmYFDWlkeFRvdGFsQWNyZXMEDHVucm9iYmVkVXNlcgkAawMFDXVzZXJBdmFpbGFibGUJAGQCCQBoAgkAkQMCBQNlZmYFDWlkeFVzZXJQaWVjZXMFAk04CQCRAwIFA2VmZgUMaWR4VXNlckFjcmVzCQBkAgkAaAIJAJEDAgUDZWZmBQ5pZHhUb3RhbFBpZWNlcwUCTTgJAJEDAgUDZWZmBQ1pZHhUb3RhbEFjcmVzCQDMCAIFDGlzc3VlZEFtb3VudAkAzAgCCQBrAwUNdG90YWxGdW5kc1VzZAUCTTgFDGlzc3VlZEFtb3VudAkAzAgCBQ10b3RhbEZ1bmRzVXNkCQDMCAIFCmVjb25vbXlVc2QJAMwIAgUHcmVzdFVzZAkAzAgCBQZ3bGdVc2QJAMwIAgUJcHV6emxlVXNkCQDMCAIFCWlzc3VlVGltZQkAzAgCBRFsYXN0TWFya2V0aW5nVGltZQkAzAgCBQ5tYXJrZXRpbmdUb3RhbAkAzAgCBRNtYXJrZXRpbmdBbW91bnRMZWZ0CQDMCAIFG21hcmtldGluZ0Ftb3VudEF2YWlsYWJsZU5vdwkAzAgCBQ9tYXJrZXRpbmdXbGdvbGQJAMwIAgUJdGVhbVRvdGFsCQDMCAIFDnRlYW1BbW91bnRMZWZ0CQDMCAIFFnRlYW1BbW91bnRBdmFpbGFibGVOb3cJAMwIAgUKdGVhbVdsZ29sZAkAzAgCBQhhY3RUb3RhbAkAzAgCBQ1hY3RBbW91bnRMZWZ0CQDMCAIFFWFjdEFtb3VudEF2YWlsYWJsZU5vdwkAzAgCBQlhY3RXbGdvbGQJAMwIAgUJY3VyUGVyaW9kCQDMCAIFD2Ftb3VudExlZnRUb3RhbAkAzAgCBRVjdXJQZXJpb2REaXN0cmlidXRpb24JAMwIAgUMbGFzdFVzZXJUaW1lCQDMCAIFCnJvYmJlZFVzZXIJAMwIAgUQc0xhbmREYWlseUFtb3VudAkAzAgCBQ9pbnZlc3RGdW5kVG90YWwJAMwIAgUMdW5yb2JiZWRVc2VyCQDMCAIFC2VmZkxhc3RUaW1lBQNuaWwABlNDQUxFOACAwtcvAAx4cExldmVsU2NhbGUAgBkAD3hwTGV2ZWxSZWNpcFBvdwCgHwASbnVtUG9pbnRzT25MZXZlbFVwAAMAD3dsZ0Jhc2VBbW91bnRYcACA0NvD9AIBCWtleVVzZXJYUAEEYWRkcgkArAICAgd1c2VyWFBfBQRhZGRyAQxrZXlVc2VyTGV2ZWwBBGFkZHIJAKwCAgIKdXNlckxldmVsXwUEYWRkcgAFeHBXbGcAkE4BCWxldmVsQnlYUAECeHAJAGsDBQx4cExldmVsU2NhbGUJAGwGBQJ4cAAEBQ94cExldmVsUmVjaXBQb3cABAAEBQRET1dOBQZTQ0FMRTgBB2xldmVsVXACCWN1cnJMZXZlbAVuZXdYUAQIbmV3TGV2ZWwJAQlsZXZlbEJ5WFABBQVuZXdYUAkAzAgCBQhuZXdMZXZlbAkAzAgCCQBoAgUSbnVtUG9pbnRzT25MZXZlbFVwCQBlAgUIbmV3TGV2ZWwFCWN1cnJMZXZlbAUDbmlsAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4ADmFyYml0cmFnZURlbGF5BAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAIC4mSkDCQAAAgEBVAUHJG1hdGNoMADg1AMJAAIBAg1Vbmtub3duIGNoYWluAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8ADk1JTlNIT1BQQVlNRU5UAKCNBgEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEUlkeENmZ1N0YWtpbmdEYXBwAAEAEUlkeENmZ0Vjb25vbXlEYXBwAAIADUlkeENmZ1dsZ0RhcHAABAAUSWR4Q2ZnUHV6emxlUG9vbERhcHAABQAUSWR4Q2ZnSW52ZXN0RnVuZERhcHAABgAPSWR4Q2ZnQWNyZXNEYXBwAAgBCmtleVJlc3RDZmcAAg4lc19fcmVzdENvbmZpZwEOa2V5UmVzdEFkZHJlc3MAAgwlc19fcmVzdEFkZHIBEXJlYWRSZXN0Q2ZnT3JGYWlsAQRyZXN0CQC8CQIJAQ9nZXRTdHJpbmdPckZhaWwCBQRyZXN0CQEKa2V5UmVzdENmZwAFA1NFUAEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgdyZXN0Q2ZnA2lkeAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCmCAEJAJEDAgUHcmVzdENmZwUDaWR4CQCsAgICKlJlc3QgY2ZnIGRvZXNuJ3QgY29udGFpbiBhZGRyZXNzIGF0IGluZGV4IAkApAMBBQNpZHgADHJlc3RDb250cmFjdAkBEUBleHRyTmF0aXZlKDEwNjIpAQkBC3ZhbHVlT3JFbHNlAgkAnQgCBQR0aGlzCQEOa2V5UmVzdEFkZHJlc3MABRVkZWZhdWx0UmVzdEFkZHJlc3NTdHIAB3Jlc3RDZmcJARFyZWFkUmVzdENmZ09yRmFpbAEFDHJlc3RDb250cmFjdAAPc3Rha2luZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnU3Rha2luZ0RhcHAAD2Vjb25vbXlDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ0Vjb25vbXlEYXBwAAt3bGdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFDUlkeENmZ1dsZ0RhcHAAEnB1enpsZVBvb2xDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFFElkeENmZ1B1enpsZVBvb2xEYXBwABJpbnZlc3RGdW5kQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRRJZHhDZmdJbnZlc3RGdW5kRGFwcAANYWNyZXNDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFD0lkeENmZ0FjcmVzRGFwcAANd2xnQXNzZXRJZEtleQILd2xnX2Fzc2V0SWQACndsZ0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQt3bGdDb250cmFjdAUNd2xnQXNzZXRJZEtleQIYV0xHT0xEIGlzIG5vdCBpc3N1ZWQgeWV0AAxpZHhXbGdBbW91bnQAAAALaWR4V2xnUHJpY2UAAQALaWR4V2xnRnVuZHMAAgAPaWR4V2xnSXNzdWVUaW1lAAcAFWlkeFdsZ01hcmtldGluZ0FtTGVmdAAKABlpZHhXbGdNYXJrZXRpbmdBbUF2YWlsTm93AAsAEGlkeFdsZ1RlYW1BbUxlZnQADgAUaWR4V2xnVGVhbUFtQXZhaWxOb3cADwAPaWR4V2xnQWN0QW1MZWZ0ABIAE2lkeFdsZ0FjdEFtQXZhaWxOb3cAEwARaWR4V2xnQW1MZWZ0VG90YWwAFgAUaWR4V2xnVXNlckFtQXZhaWxOb3cAGQAUaWR4V2xnVXNlclRvdGFsQXZhaWwAHAARaWR4V2xnRWZmVXNlclRpbWUAHQAKSWR4RWZmVXNlcgABARFrZXlSZXNQcm9wb3J0aW9ucwACE3Jlc1R5cGVzUHJvcG9ydGlvbnMBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhRzdGFrZWRQaWVjZXNCeU93bmVyXwUJb3duZXJBZGRyAQVhc0ludAEBdgQHJG1hdGNoMAUBdgMJAAECBQckbWF0Y2gwAgNJbnQEAW4FByRtYXRjaDAFAW4JAAIBAhVmYWlsIHRvIGNhc3QgaW50byBJbnQBDmdldFZvdGluZ1Bvd2VyARJ1c2VyQWRkclN0ck9yRW1wdHkEBXByb3BzCQC1CQIJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUPc3Rha2luZ0NvbnRyYWN0CQERa2V5UmVzUHJvcG9ydGlvbnMAAgswXzBfMF8wXzBfMAIBXwoBBWFkZGVyAgNhY2MEaXRlbQkAZAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQRpdGVtBAp0b3RhbFBvd2VyCgACJGwFBXByb3BzCgACJHMJAJADAQUCJGwKAAUkYWNjMAAACgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVhZGRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNgkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgQKdXNlcnNQb3dlcgkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARZrZXlTdGFrZWRQaWVjZXNCeU93bmVyAQUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AA1wcm9maXRBZGRyS2V5Agpwcm9maXRBZGRyABlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5AhZzdGFrZXJzQW1vdW50UGFpZFRvdGFsARhrZXlTdGFrZXJzQW1vdW50UGFpZFVzZXIBBGFkZHIJAKwCAgIWc3Rha2Vyc0Ftb3VudFBhaWRVc2VyXwUEYWRkcgEGcHJvbG9nAAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCCnNhdmVMYXN0VHgFA25pbAUDbmlsAQ9nZXRTd2FwTGltaXRXbGcBBGFkZHIECGxhc3RUaW1lCQELdmFsdWVPckVsc2UCCQCfCAEJARRrZXlMYXN0QXJiVGltZUJ5VXNlcgEFBGFkZHIAAAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAMJAGYCBQ5hcmJpdHJhZ2VEZWxheQkAZQIFA25vdwUIbGFzdFRpbWUJAAIBCQCsAgIJAKwCAgIfQXJiaXRyYWdlcyBhcmUgcG9zc2libGUgb25jZSBhIAkApAMBCQBpAgUOYXJiaXRyYWdlRGVsYXkA4NQDAgNtaW4EBnBpZWNlcwkAkQMCCQEOZ2V0Vm90aW5nUG93ZXIBBQRhZGRyBQpJZHhFZmZVc2VyBAthY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ1hY3Jlc0NvbnRyYWN0CQEaa2V5QWNyZXNTdGFrZWRBbW91bnRCeVVzZXIBBQRhZGRyAAAJAGQCCQBoAgUGcGllY2VzBQVNVUxUOAULYWNyZXNBbW91bnQBDWNsYWltSW50ZXJuYWwCBGFkZHILcHJvcG9ydGlvbjYEBmNhbGxlcgkBEUBleHRyTmF0aXZlKDEwNjIpAQUEYWRkcgQIY3VyU3RhdHMJAQtnZXRXbGdTdGF0cwUFBGFkZHIJAMwIAgUMcmVzdENvbnRyYWN0CQDMCAIFD3N0YWtpbmdDb250cmFjdAkAzAgCBQ9lY29ub215Q29udHJhY3QJAMwIAgULd2xnQ29udHJhY3QJAMwIAgUScHV6emxlUG9vbENvbnRyYWN0CQDMCAIFEmludmVzdEZ1bmRDb250cmFjdAkAzAgCBQ1hY3Jlc0NvbnRyYWN0BQNuaWwFC3VzZHRBc3NldElkAAAFC3Byb3BvcnRpb242BANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAlpc3N1ZVRpbWUJAJEDAgUIY3VyU3RhdHMFD2lkeFdsZ0lzc3VlVGltZQQTbWFya2V0aW5nQW1vdW50TGVmdAkAkQMCBQhjdXJTdGF0cwUVaWR4V2xnTWFya2V0aW5nQW1MZWZ0BA9tYXJrZXRpbmdBbW91bnQJAJEDAgUIY3VyU3RhdHMFGWlkeFdsZ01hcmtldGluZ0FtQXZhaWxOb3cEDnRlYW1BbW91bnRMZWZ0CQCRAwIFCGN1clN0YXRzBRBpZHhXbGdUZWFtQW1MZWZ0BAp0ZWFtQW1vdW50CQCRAwIFCGN1clN0YXRzBRRpZHhXbGdUZWFtQW1BdmFpbE5vdwQNYWN0QW1vdW50TGVmdAkAkQMCBQhjdXJTdGF0cwUPaWR4V2xnQWN0QW1MZWZ0BAlhY3RBbW91bnQJAJEDAgUIY3VyU3RhdHMFE2lkeFdsZ0FjdEFtQXZhaWxOb3cDCQBmAgkAZQIFA25vdwUJaXNzdWVUaW1lBQlDSEVDS1RJTUUJAAIBAj1QbGVhc2UgbW9kaWZ5IGNvbnRyYWN0IGZvciBuZXh0IDEuNSB5ZWFycywgYWNjb3JkaW5nIHRvIHN0YXRzBAp1c2VyQW1vdW50CQCRAwIFCGN1clN0YXRzBRRpZHhXbGdVc2VyQW1BdmFpbE5vdwQHdXNlcktleQkBGGtleVN0YWtlcnNBbW91bnRQYWlkVXNlcgEFBGFkZHIECXVzZXJUb3RhbAkAkQMCBQhjdXJTdGF0cwUUaWR4V2xnVXNlclRvdGFsQXZhaWwEC3VzZXJFZmZUaW1lCQCRAwIFCGN1clN0YXRzBRFpZHhXbGdFZmZVc2VyVGltZQkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAKIIAQUQbWFya2V0aW5nQWRkcktleQUPbWFya2V0aW5nQW1vdW50BQp3bGdBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAKIIAQULdGVhbUFkZHJLZXkFCnRlYW1BbW91bnQFCndsZ0Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUMcmVzdENvbnRyYWN0BQlhY3RBbW91bnQFCndsZ0Fzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIFB3VzZXJLZXkJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFB3VzZXJLZXkAAAUKdXNlckFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUZc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbEtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUZc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbEtleQAABQl1c2VyVG90YWwJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5CQBlAgkAkQMCBQhjdXJTdGF0cwURaWR4V2xnQW1MZWZ0VG90YWwFCXVzZXJUb3RhbAkAzAgCCQEMSW50ZWdlckVudHJ5AgUWbWFya2V0aW5nQW1vdW50TGVmdEtleQkAZQIFE21hcmtldGluZ0Ftb3VudExlZnQFD21hcmtldGluZ0Ftb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUbGFzdE1hcmtldGluZ1RpbWVLZXkFA25vdwkAzAgCCQEMSW50ZWdlckVudHJ5AgURdGVhbUFtb3VudExlZnRLZXkJAGUCBQ50ZWFtQW1vdW50TGVmdAUKdGVhbUFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUPbGFzdFRlYW1UaW1lS2V5BQNub3cJAMwIAgkBDEludGVnZXJFbnRyeQIFEGFjdEFtb3VudExlZnRLZXkJAGUCBQ1hY3RBbW91bnRMZWZ0BQlhY3RBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFFWxhc3RBY3Rpdml0aWVzVGltZUtleQUDbm93CQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYa2V5TGFzdENsYWltZWRUaW1lQnlVc2VyAQUEYWRkcgULdXNlckVmZlRpbWUFA25pbAkAlAoCBQp1c2VyQW1vdW50BQl1c2VyVG90YWwBDnRha2VYcEludGVybmFsAgRhZGRyBWRlbHRhBANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAd0aW1lS2V5CQEWa2V5V2xnU3Rha2VkVGltZUJ5VXNlcgEFBGFkZHIECWFtb3VudEtleQkBGGtleVdsZ1N0YWtlZEFtb3VudEJ5VXNlcgEFBGFkZHIECGxhc3RUaW1lCQELdmFsdWVPckVsc2UCCQCfCAEFB3RpbWVLZXkAAAQHb2xkVXNlcgkBC3ZhbHVlT3JFbHNlAgkAnwgBBQlhbW91bnRLZXkAAAQIb2xkVG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQURd2xnU3Rha2VkVG90YWxLZXkAAAQCeHAJAGsDCQBrAwUFeHBXbGcFB29sZFVzZXIFD3dsZ0Jhc2VBbW91bnRYcAkAZQIFCGxhc3RUaW1lBQNub3cFCURBWU1JTExJUwkAlQoDCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd0aW1lS2V5BQNub3cJAMwIAgkBDEludGVnZXJFbnRyeQIFCWFtb3VudEtleQkAZAIFB29sZFVzZXIFBWRlbHRhCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRF3bGdTdGFrZWRUb3RhbEtleQkAZAIFCG9sZFRvdGFsBQVkZWx0YQUDbmlsBQJ4cAUHb2xkVXNlcgoBaQENY29uc3RydWN0b3JWMQQIcmVzdEFkZHINbWFya2V0aW5nQWRkcgh0ZWFtQWRkcgpwcm9maXRBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ13bGdBc3NldElkS2V5CQACAQITQWxyZWFkeSBpbml0aWFsaXplZAQMaXNzdWVkQW1vdW50BQhNSUxMSU9ONgQFaXNzdWUJAMMIBwIGV0xHT0xEAiBXYXZlc0xhbmRzIEdvbGQgaW52ZXN0bWVudCB0b2tlbgUMaXNzdWVkQW1vdW50AAgGBQR1bml0AAAEB2Fzc2V0SWQJALgIAQUFaXNzdWUJAMwIAgUFaXNzdWUJAMwIAgkBDEludGVnZXJFbnRyeQIFD3dsZ0lzc3VlVGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5AAAJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5CQBrAwUITUlMTElPTjYFC1BMQVlFUlNIQVJFBQVNVUxUNgkAzAgCCQELQmluYXJ5RW50cnkCBQ13bGdBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFEG1hcmtldGluZ0FkZHJLZXkFDW1hcmtldGluZ0FkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgULdGVhbUFkZHJLZXkFCHRlYW1BZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFDXByb2ZpdEFkZHJLZXkFCnByb2ZpdEFkZHIFA25pbAFpAQZidXlXbGcBCW1pbkFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAd1c2R0QW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQGY2FsbGVyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUGY2FsbGVyAwkAZgIFDk1JTlNIT1BQQVlNRU5UBQd1c2R0QW10CQACAQkArAICCQCsAgICEllvdSBjYW4gdHJhZGUgbWluIAkBCmZpeGVkUG9pbnQCBQ5NSU5TSE9QUEFZTUVOVAAGAgUgVVNEVAQIY3VyU3RhdHMJAQtnZXRXbGdTdGF0cwUCAAkAzAgCBQxyZXN0Q29udHJhY3QJAMwIAgUPc3Rha2luZ0NvbnRyYWN0CQDMCAIFD2Vjb25vbXlDb250cmFjdAkAzAgCBQt3bGdDb250cmFjdAkAzAgCBRJwdXp6bGVQb29sQ29udHJhY3QJAMwIAgUSaW52ZXN0RnVuZENvbnRyYWN0CQDMCAIFDWFjcmVzQ29udHJhY3QFA25pbAULdXNkdEFzc2V0SWQFB3VzZHRBbXQFBU1VTFQ2BAxjdXJXbGdBbW91bnQJAJEDAgUIY3VyU3RhdHMFDGlkeFdsZ0Ftb3VudAQIZnVuZHNVc2QJAJEDAgUIY3VyU3RhdHMFC2lkeFdsZ0Z1bmRzBAh3bGdQcmljZQkAawMFCGZ1bmRzVXNkBQVNVUxUOAUMY3VyV2xnQW1vdW50BAhidXlQcmljZQkAawMFCHdsZ1ByaWNlAAYABQQJd2xnQW1vdW50CQBrAwUHdXNkdEFtdAUFTVVMVDgFCGJ1eVByaWNlBAZtYXhXbGcJAQ9nZXRTd2FwTGltaXRXbGcBBQRhZGRyAwkAZgIFCXdsZ0Ftb3VudAUGbWF4V2xnCQACAQkArAICCQCsAgICEFlvdSBjYW4gZ2V0IG1heCAJAQpmaXhlZFBvaW50AgUGbWF4V2xnAAgCByBXTEdPTEQDCQBmAgUJbWluQW1vdW50BQl3bGdBbW91bnQJAAIBAjBQcmljZSBjaGFuZ2VkIGR1cmluZyBvcGVyYXRpb24sIHBsZWFzZSB0cnkgYWdhaW4EDHByb2ZpdEFtb3VudAkAaQIFB3VzZHRBbXQABgQKZGVsdGFGdW5kcwkAZQIFB3VzZHRBbXQFDHByb2ZpdEFtb3VudAQIcmVpc3N1ZWQJAGsDBQxjdXJXbGdBbW91bnQFCmRlbHRhRnVuZHMFCGZ1bmRzVXNkCQCUCgIJAMwIAgkBB1JlaXNzdWUDBQp3bGdBc3NldElkBQhyZWlzc3VlZAYJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQkAZAIFDGN1cldsZ0Ftb3VudAUIcmVpc3N1ZWQJAMwIAgkBDEludGVnZXJFbnRyeQIJARRrZXlMYXN0QXJiVGltZUJ5VXNlcgEFBGFkZHIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAKIIAQUNcHJvZml0QWRkcktleQUMcHJvZml0QW1vdW50BQt1c2R0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFCXdsZ0Ftb3VudAUKd2xnQXNzZXRJZAUDbmlsBQxwcm9sb2dSZXN1bHQBaQEHc2VsbFdsZwEJbWluQW1vdW50BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEBndsZ0FtdAgFA3BtdAZhbW91bnQEBmNhbGxlcggFAWkGY2FsbGVyBARhZGRyCQClCAEFBmNhbGxlcgQGbWF4V2xnCQEPZ2V0U3dhcExpbWl0V2xnAQUEYWRkcgMJAGYCBQZ3bGdBbXQFBm1heFdsZwkAAgEJAKwCAgkArAICAhJZb3UgY2FuIHNwZW5kIG1heCAJAQpmaXhlZFBvaW50AgUGbWF4V2xnAAgCByBXTEdPTEQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQp3bGdBc3NldElkCQACAQIVV0xHT0xEIHBheW1lbnRzIG9ubHkhBAhjdXJTdGF0cwkBC2dldFdsZ1N0YXRzBQIACQDMCAIFDHJlc3RDb250cmFjdAkAzAgCBQ9zdGFraW5nQ29udHJhY3QJAMwIAgUPZWNvbm9teUNvbnRyYWN0CQDMCAIFC3dsZ0NvbnRyYWN0CQDMCAIFEnB1enpsZVBvb2xDb250cmFjdAkAzAgCBRJpbnZlc3RGdW5kQ29udHJhY3QJAMwIAgUNYWNyZXNDb250cmFjdAUDbmlsBQt1c2R0QXNzZXRJZAAABQVNVUxUNgQMY3VyV2xnQW1vdW50CQCRAwIFCGN1clN0YXRzBQxpZHhXbGdBbW91bnQECXNlbGxQcmljZQkAawMJAJEDAgUIY3VyU3RhdHMFC2lkeFdsZ1ByaWNlAAQABQQHdXNkdEFtdAkAawMFBndsZ0FtdAUJc2VsbFByaWNlBQVNVUxUOAMJAGYCBQ5NSU5TSE9QUEFZTUVOVAUHdXNkdEFtdAkAAgEJAKwCAgkArAICAhJZb3UgY2FuIHRyYWRlIG1pbiAJAQpmaXhlZFBvaW50AgUOTUlOU0hPUFBBWU1FTlQABgIFIFVTRFQDCQBmAgUJbWluQW1vdW50BQd1c2R0QW10CQACAQIwUHJpY2UgY2hhbmdlZCBkdXJpbmcgb3BlcmF0aW9uLCBwbGVhc2UgdHJ5IGFnYWluBAxwcm9maXRBbW91bnQJAGkCBQd1c2R0QW10AAQEBmJ1cm5lZAkAawMJAGQCBQd1c2R0QW10BQxwcm9maXRBbW91bnQFDGN1cldsZ0Ftb3VudAkAkQMCBQhjdXJTdGF0cwULaWR4V2xnRnVuZHMJAJQKAgkAzAgCCQEEQnVybgIFCndsZ0Fzc2V0SWQFBmJ1cm5lZAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSd2xnSXNzdWVkQW1vdW50S2V5CQBlAgUMY3VyV2xnQW1vdW50BQZidXJuZWQJAMwIAgkBDEludGVnZXJFbnRyeQIJARRrZXlMYXN0QXJiVGltZUJ5VXNlcgEFBGFkZHIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAKIIAQUNcHJvZml0QWRkcktleQUMcHJvZml0QW1vdW50BQt1c2R0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFB3VzZHRBbXQFC3VzZHRBc3NldElkBQNuaWwFDHByb2xvZ1Jlc3VsdAFpAQVjbGFpbQAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQBcgkBDWNsYWltSW50ZXJuYWwCCQClCAEIBQFpBmNhbGxlcgUFTVVMVDYEB2FjdGlvbnMIBQFyAl8xCQCUCgIJAM0IAgUHYWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwgFAWkGY2FsbGVyCAgFAXICXzICXzEFCndsZ0Fzc2V0SWQFDHByb2xvZ1Jlc3VsdAFpARJvblN0YWtlVW5zdGFrZUxhbmQBBGFkZHIDAwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAQIhPQIIBQFpBmNhbGxlcgUNYWNyZXNDb250cmFjdAcJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAQBcgkBDWNsYWltSW50ZXJuYWwCBQRhZGRyBQVNVUxUNgQHYWN0aW9ucwgFAXICXzEJAJQKAgkAzQgCBQdhY3Rpb25zCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQRhZGRyCAgFAXICXzICXzEFCndsZ0Fzc2V0SWQIBQFyAl8yAWkBCGNsYWltUm9iAwVvd25lcgZyb2JiZXIQb3duZXJQcm9wb3J0aW9uNgMJAQIhPQIIBQFpBmNhbGxlcgUPc3Rha2luZ0NvbnRyYWN0CQACAQIRUGVybWlzc2lvbiBkZW5pZWQEAXIJAQ1jbGFpbUludGVybmFsAgUFb3duZXIFEG93bmVyUHJvcG9ydGlvbjYJAJQKAgkAzQgCCAUBcgJfMQkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUGcm9iYmVyCQBlAggIBQFyAl8yAl8yCAgFAXICXzICXzEFCndsZ0Fzc2V0SWQIBQFyAl8yAWkBC3N0YWtlV2xnb2xkAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABANhbXQIBQNwbXQGYW1vdW50BARhZGRyCQClCAEIBQFpBmNhbGxlcgMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFCndsZ0Fzc2V0SWQJAAIBAhVXTEdPTEQgcGF5bWVudHMgb25seSEEDSR0MDEwMDM4MTAwODMJAQ50YWtlWHBJbnRlcm5hbAIFBGFkZHIFA2FtdAQHYWN0aW9ucwgFDSR0MDEwMDM4MTAwODMCXzEEAnhwCAUNJHQwMTAwMzgxMDA4MwJfMgQOYWNjU3RhdHNSZXN1bHQJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0Ag51cGRhdGVBY2NTdGF0cwkAzAgCBQRhZGRyCQDMCAIFAnhwBQNuaWwFA25pbAkAlAoCBQdhY3Rpb25zCQCUCgIFDHByb2xvZ1Jlc3VsdAUOYWNjU3RhdHNSZXN1bHQBaQENdW5zdGFrZVdsZ29sZAEGYW1vdW50BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwAACQACAQIUTm8gcGF5bWVudHMgcmVxdWlyZWQDCQBnAgAABQZhbW91bnQJAAIBAhlBbW91bnQgc2hvdWxkIGJlIHBvc2l0aXZlBARhZGRyCQClCAEIBQFpBmNhbGxlcgQNJHQwMTA0NjcxMDUyNQkBDnRha2VYcEludGVybmFsAgUEYWRkcgkBAS0BBQZhbW91bnQEB2FjdGlvbnMIBQ0kdDAxMDQ2NzEwNTI1Al8xBAJ4cAgFDSR0MDEwNDY3MTA1MjUCXzIEB29sZFVzZXIIBQ0kdDAxMDQ2NzEwNTI1Al8zAwkAZgIFBmFtb3VudAUHb2xkVXNlcgkAAgEJAKwCAgkArAICCQCsAgICDllvdSBoYXZlIG9ubHkgCQEKZml4ZWRQb2ludAIFB29sZFVzZXIACAIhIFdMR09MRCBzdGFrZWQsIHRyaWVkIHRvIHVuc3Rha2UgCQEKZml4ZWRQb2ludAIFBmFtb3VudAAIBA5hY2NTdGF0c1Jlc3VsdAkBBWFzSW50AQkA/AcEBQ9zdGFraW5nQ29udHJhY3QCDnVwZGF0ZUFjY1N0YXRzCQDMCAIFBGFkZHIJAMwIAgUCeHAFA25pbAUDbmlsCQCUCgIFB2FjdGlvbnMJAJQKAgUMcHJvbG9nUmVzdWx0BQ5hY2NTdGF0c1Jlc3VsdAFpAQl0YWtlV2xnWHABBGFkZHIDCQECIT0CCAUBaQZjYWxsZXIFD3N0YWtpbmdDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkBA0kdDAxMDk1NjEwOTk5CQEOdGFrZVhwSW50ZXJuYWwCBQRhZGRyAAAEB2FjdGlvbnMIBQ0kdDAxMDk1NjEwOTk5Al8xBAJ4cAgFDSR0MDEwOTU2MTA5OTkCXzIJAJQKAgUHYWN0aW9ucwUCeHABaQESY2hlY2tXbGdYcFJFQURPTkxZAQRhZGRyBA0kdDAxMTA3NjExMTI0CQEOdGFrZVhwSW50ZXJuYWwCBQRhZGRyAAAEB2lnbm9yZWQIBQ0kdDAxMTA3NjExMTI0Al8xBAdkZWx0YVhQCAUNJHQwMTEwNzYxMTEyNAJfMgQGbHZsS2V5CQEMa2V5VXNlckxldmVsAQUEYWRkcgQFeHBLZXkJAQlrZXlVc2VyWFABBQRhZGRyBAJ4cAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QFBXhwS2V5AAAEBW5ld1hQCQBkAgUCeHAFB2RlbHRhWFAECWx2bFBvaW50cwkBB2xldmVsVXACCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAUGbHZsS2V5AAAFBW5ld1hQCQCUCgIFA25pbAUJbHZsUG9pbnRzAF1ozNU=",
    "height": 2787403,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: B5qhKauRHBTzKGVMBsvE3fnnNe6Gt15BH6kwyt863i7D
Next: D4X9oU19yFxnnFszRKAoPbZ8eu6UWbxLLU1yshMNdVXx

Diff: 

OldNewDifferences
5959 
6060 let acresStakedTotalKey = "acresStakedAmountTotal"
6161 
62-let idxWlgAmount = 0
62+func keyWlgStakedAmountByUser (addr) = ("wlgStakedAmountByUser_" + addr)
6363 
64-let idxWlgPrice = 1
6564 
66-let idxWlgFunds = 2
65+let wlgStakedTotalKey = "wlgStakedAmountTotal"
6766 
68-let idxWlgIssueTime = 7
67+func keyWlgStakedTimeByUser (addr) = ("wlgStakedTimeByUser_" + addr)
6968 
70-let idxWlgMarketingAmLeft = 10
71-
72-let idxWlgMarketingAmAvailNow = 11
73-
74-let idxWlgTeamAmLeft = 14
75-
76-let idxWlgTeamAmAvailNow = 15
77-
78-let idxWlgActAmLeft = 18
79-
80-let idxWlgActAmAvailNow = 19
81-
82-let idxWlgAmLeftTotal = 22
83-
84-let idxWlgUserAmAvailNow = 25
85-
86-let idxWlgUserTotalAvail = 28
87-
88-let idxWlgEffUserTime = 29
8969 
9070 let dappRest = 0
9171 
211191     }
212192 
213193 
194+let SCALE8 = 100000000
195+
196+let xpLevelScale = 3200
197+
198+let xpLevelRecipPow = 4000
199+
200+let numPointsOnLevelUp = 3
201+
202+let wlgBaseAmountXp = 100000000000
203+
204+func keyUserXP (addr) = ("userXP_" + addr)
205+
206+
207+func keyUserLevel (addr) = ("userLevel_" + addr)
208+
209+
210+let xpWlg = 10000
211+
212+func levelByXP (xp) = fraction(xpLevelScale, pow(xp, 4, xpLevelRecipPow, 4, 4, DOWN), SCALE8)
213+
214+
215+func levelUp (currLevel,newXP) = {
216+    let newLevel = levelByXP(newXP)
217+[newLevel, (numPointsOnLevelUp * (newLevel - currLevel))]
218+    }
219+
220+
214221 let chain = take(drop(this.bytes, 1), 1)
215222 
216223 let usdtAssetId = match chain {
294301 let wlgAssetIdKey = "wlg_assetId"
295302 
296303 let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
304+
305+let idxWlgAmount = 0
306+
307+let idxWlgPrice = 1
308+
309+let idxWlgFunds = 2
310+
311+let idxWlgIssueTime = 7
312+
313+let idxWlgMarketingAmLeft = 10
314+
315+let idxWlgMarketingAmAvailNow = 11
316+
317+let idxWlgTeamAmLeft = 14
318+
319+let idxWlgTeamAmAvailNow = 15
320+
321+let idxWlgActAmLeft = 18
322+
323+let idxWlgActAmAvailNow = 19
324+
325+let idxWlgAmLeftTotal = 22
326+
327+let idxWlgUserAmAvailNow = 25
328+
329+let idxWlgUserTotalAvail = 28
330+
331+let idxWlgEffUserTime = 29
297332 
298333 let IdxEffUser = 1
299334 
388423     }
389424 
390425 
426+func takeXpInternal (addr,delta) = {
427+    let now = lastBlock.timestamp
428+    let timeKey = keyWlgStakedTimeByUser(addr)
429+    let amountKey = keyWlgStakedAmountByUser(addr)
430+    let lastTime = valueOrElse(getInteger(timeKey), 0)
431+    let oldUser = valueOrElse(getInteger(amountKey), 0)
432+    let oldTotal = valueOrElse(getInteger(wlgStakedTotalKey), 0)
433+    let xp = fraction(fraction(xpWlg, oldUser, wlgBaseAmountXp), (lastTime - now), DAYMILLIS)
434+    $Tuple3([IntegerEntry(timeKey, now), IntegerEntry(amountKey, (oldUser + delta)), IntegerEntry(wlgStakedTotalKey, (oldTotal + delta))], xp, oldUser)
435+    }
436+
437+
391438 @Callable(i)
392439 func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
393440     then throw("Permission denied")
410457         else {
411458             let pmt = i.payments[0]
412459             let usdtAmt = pmt.amount
413-            let pmtAssetId = valueOrErrorMessage(pmt.assetId, "USDT payments only!")
414-            if ((pmtAssetId != usdtAssetId))
460+            if (if (!(isDefined(pmt.assetId)))
461+                then true
462+                else (value(pmt.assetId) != usdtAssetId))
415463                 then throw("USDT payments only!")
416464                 else {
417465                     let caller = i.caller
456504             let maxWlg = getSwapLimitWlg(addr)
457505             if ((wlgAmt > maxWlg))
458506                 then throw((("You can spend max " + fixedPoint(maxWlg, 8)) + " WLGOLD"))
459-                else {
460-                    let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WLGOLD payments only!")
461-                    if ((pmtAssetId != wlgAssetId))
462-                        then throw("WLGOLD payments only!")
463-                        else {
464-                            let curStats = getWlgStats("", [restContract, stakingContract, economyContract, wlgContract, puzzlePoolContract, investFundContract, acresContract], usdtAssetId, 0, MULT6)
465-                            let curWlgAmount = curStats[idxWlgAmount]
466-                            let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
467-                            let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
468-                            if ((MINSHOPPAYMENT > usdtAmt))
469-                                then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
470-                                else if ((minAmount > usdtAmt))
471-                                    then throw("Price changed during operation, please try again")
472-                                    else {
473-                                        let profitAmount = (usdtAmt / 4)
474-                                        let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
475-                                        $Tuple2([Burn(wlgAssetId, burned), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount - burned)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, usdtAmt, usdtAssetId)], prologResult)
476-                                        }
477-                            }
478-                    }
507+                else if (if (!(isDefined(pmt.assetId)))
508+                    then true
509+                    else (value(pmt.assetId) != wlgAssetId))
510+                    then throw("WLGOLD payments only!")
511+                    else {
512+                        let curStats = getWlgStats("", [restContract, stakingContract, economyContract, wlgContract, puzzlePoolContract, investFundContract, acresContract], usdtAssetId, 0, MULT6)
513+                        let curWlgAmount = curStats[idxWlgAmount]
514+                        let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
515+                        let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
516+                        if ((MINSHOPPAYMENT > usdtAmt))
517+                            then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
518+                            else if ((minAmount > usdtAmt))
519+                                then throw("Price changed during operation, please try again")
520+                                else {
521+                                    let profitAmount = (usdtAmt / 4)
522+                                    let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
523+                                    $Tuple2([Burn(wlgAssetId, burned), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount - burned)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, usdtAmt, usdtAssetId)], prologResult)
524+                                    }
525+                        }
479526             }
480527     }
481528 
517564         }
518565 
519566 
567+
568+@Callable(i)
569+func stakeWlgold () = {
570+    let prologResult = prolog()
571+    if ((size(i.payments) != 1))
572+        then throw("exactly 1 payment must be attached")
573+        else {
574+            let pmt = i.payments[0]
575+            let amt = pmt.amount
576+            let addr = toString(i.caller)
577+            if (if (!(isDefined(pmt.assetId)))
578+                then true
579+                else (value(pmt.assetId) != wlgAssetId))
580+                then throw("WLGOLD payments only!")
581+                else {
582+                    let $t01003810083 = takeXpInternal(addr, amt)
583+                    let actions = $t01003810083._1
584+                    let xp = $t01003810083._2
585+                    let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, xp], nil))
586+                    $Tuple2(actions, $Tuple2(prologResult, accStatsResult))
587+                    }
588+            }
589+    }
590+
591+
592+
593+@Callable(i)
594+func unstakeWlgold (amount) = {
595+    let prologResult = prolog()
596+    if ((size(i.payments) != 0))
597+        then throw("No payments required")
598+        else if ((0 >= amount))
599+            then throw("Amount should be positive")
600+            else {
601+                let addr = toString(i.caller)
602+                let $t01046710525 = takeXpInternal(addr, -(amount))
603+                let actions = $t01046710525._1
604+                let xp = $t01046710525._2
605+                let oldUser = $t01046710525._3
606+                if ((amount > oldUser))
607+                    then throw(((("You have only " + fixedPoint(oldUser, 8)) + " WLGOLD staked, tried to unstake ") + fixedPoint(amount, 8)))
608+                    else {
609+                        let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, xp], nil))
610+                        $Tuple2(actions, $Tuple2(prologResult, accStatsResult))
611+                        }
612+                }
613+    }
614+
615+
616+
617+@Callable(i)
618+func takeWlgXp (addr) = if ((i.caller != stakingContract))
619+    then throw("Permission denied")
620+    else {
621+        let $t01095610999 = takeXpInternal(addr, 0)
622+        let actions = $t01095610999._1
623+        let xp = $t01095610999._2
624+        $Tuple2(actions, xp)
625+        }
626+
627+
628+
629+@Callable(i)
630+func checkWlgXpREADONLY (addr) = {
631+    let $t01107611124 = takeXpInternal(addr, 0)
632+    let ignored = $t01107611124._1
633+    let deltaXP = $t01107611124._2
634+    let lvlKey = keyUserLevel(addr)
635+    let xpKey = keyUserXP(addr)
636+    let xp = valueOrElse(getInteger(stakingContract, xpKey), 0)
637+    let newXP = (xp + deltaXP)
638+    let lvlPoints = levelUp(valueOrElse(getInteger(stakingContract, lvlKey), 0), newXP)
639+    $Tuple2(nil, lvlPoints)
640+    }
641+
642+

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let M6 = 1000000
55 
66 let M8 = 100000000
77 
88 let MILLION6 = 100000000000000
99 
1010 let MARKETINGSHARE = 100000
1111 
1212 let TEAMSHARE = 200000
1313 
1414 let ACTIVITYSHARE = 100000
1515 
1616 let PLAYERSHARE = 400000
1717 
1818 let YEARMILLIS = 31557600000
1919 
2020 let CHECKTIME = 47336400000
2121 
2222 let DAYMILLIS = 86400000
2323 
2424 let marketingAddrKey = "marketingAddr"
2525 
2626 let teamAddrKey = "teamAddr"
2727 
2828 let lastMarketingTimeKey = "lastClaimedTime_marketing"
2929 
3030 let marketingAmountLeftKey = "marketingAmountLeft"
3131 
3232 let lastTeamTimeKey = "lastClaimedTime_team"
3333 
3434 let teamAmountLeftKey = "teamAmountLeft"
3535 
3636 let lastActivitiesTimeKey = "lastClaimedTime_activities"
3737 
3838 let actAmountLeftKey = "activitiesAmountLeft"
3939 
4040 let stakersAmountLeftKey = "stakersAmountLeft"
4141 
4242 func keyLastClaimedTimeByUser (addr) = ("lastClaimedTimeUser_" + addr)
4343 
4444 
4545 func keyLastArbTimeByUser (addr) = ("lastArbTimeUser_" + addr)
4646 
4747 
4848 func distributionByPeriod (period) = fraction(MILLION6, (PLAYERSHARE * (period + 1)), (6 * M6))
4949 
5050 
5151 let wlgIssueTimeKey = "wlg_issueTime"
5252 
5353 let wlgIssuedAmountKey = "wlg_issuedAmount"
5454 
5555 let zbIssuedAmountKey = "zbill_issuedAmount"
5656 
5757 func keyAcresStakedAmountByUser (addr) = ("acresStakedAmountByUser_" + addr)
5858 
5959 
6060 let acresStakedTotalKey = "acresStakedAmountTotal"
6161 
62-let idxWlgAmount = 0
62+func keyWlgStakedAmountByUser (addr) = ("wlgStakedAmountByUser_" + addr)
6363 
64-let idxWlgPrice = 1
6564 
66-let idxWlgFunds = 2
65+let wlgStakedTotalKey = "wlgStakedAmountTotal"
6766 
68-let idxWlgIssueTime = 7
67+func keyWlgStakedTimeByUser (addr) = ("wlgStakedTimeByUser_" + addr)
6968 
70-let idxWlgMarketingAmLeft = 10
71-
72-let idxWlgMarketingAmAvailNow = 11
73-
74-let idxWlgTeamAmLeft = 14
75-
76-let idxWlgTeamAmAvailNow = 15
77-
78-let idxWlgActAmLeft = 18
79-
80-let idxWlgActAmAvailNow = 19
81-
82-let idxWlgAmLeftTotal = 22
83-
84-let idxWlgUserAmAvailNow = 25
85-
86-let idxWlgUserTotalAvail = 28
87-
88-let idxWlgEffUserTime = 29
8969 
9070 let dappRest = 0
9171 
9272 let dappStaking = 1
9373 
9474 let dappEconomy = 2
9575 
9676 let dappWlg = 3
9777 
9878 let dappPuzzle = 4
9979 
10080 let dappInvestFund = 5
10181 
10282 let dappAcres = 6
10383 
10484 func getLands (userAddrStrOrEmpty,stakingContract,acresContract) = {
10585     let props = split(valueOrElse(getString(stakingContract, "resTypesProportions"), "0_0_0_0_0_0"), "_")
10686     func adder (acc,item) =     (acc + parseIntValue(item))
10787 
10888     let totalPieces = {
10989         let $l = props
11090         let $s = size($l)
11191         let $acc0 = 0
11292         func $f0_1 ($a,$i) =         if (($i >= $s))
11393             then $a
11494             else adder($a, $l[$i])
11595 
11696         func $f0_2 ($a,$i) =         if (($i >= $s))
11797             then $a
11898             else throw("List size exceeds 6")
11999 
120100         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
121101         }
122102     let userPieces = valueOrElse(getInteger(stakingContract, ("stakedPiecesByOwner_" + userAddrStrOrEmpty)), 0)
123103     let totalAcres = valueOrElse(getInteger(acresContract, acresStakedTotalKey), 0)
124104     let userAcres = valueOrElse(getInteger(acresContract, keyAcresStakedAmountByUser(userAddrStrOrEmpty)), 0)
125105 [totalPieces, userPieces, totalAcres, userAcres]
126106     }
127107 
128108 
129109 let idxTotalPieces = 0
130110 
131111 let idxUserPieces = 1
132112 
133113 let idxTotalAcres = 2
134114 
135115 let idxUserAcres = 3
136116 
137117 func getWlgStats (userAddrOpt,contracts,usdtId,usdtBalanceCorrection,userProportion6) = {
138118     let issuedAmount = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssuedAmountKey), "WLGOLD is not issued yet")
139119     let economyUsd = assetBalance(contracts[dappEconomy], usdtId)
140120     let restUsd = assetBalance(contracts[dappRest], usdtId)
141121     let wlgUsd = (assetBalance(contracts[dappWlg], usdtId) - usdtBalanceCorrection)
142122     let puzzleUsd = assetBalance(contracts[dappPuzzle], usdtId)
143123     let investFundContract = contracts[dappInvestFund]
144124     let investFundTotal = (assetBalance(investFundContract, usdtId) + valueOrElse(getInteger(investFundContract, zbIssuedAmountKey), 0))
145125     let totalFundsUsd = ((economyUsd + wlgUsd) + investFundTotal)
146126     let wlgId = valueOrErrorMessage(getBinary(contracts[dappWlg], "wlg_assetId"), "Not initialized yet")
147127     let now = lastBlock.timestamp
148128     let issueTime = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssueTimeKey), "Not initialized")
149129     let marketingTotal = fraction(MILLION6, MARKETINGSHARE, M6)
150130     let marketingAmountLeft = valueOrElse(getInteger(contracts[dappWlg], marketingAmountLeftKey), marketingTotal)
151131     let lastMarketingTime = valueOrElse(getInteger(contracts[dappWlg], lastMarketingTimeKey), issueTime)
152132     let marketingAddr = addressFromStringValue(value(getString(contracts[dappWlg], marketingAddrKey)))
153133     let marketingAmountAvailableNow = min([fraction(marketingTotal, (now - lastMarketingTime), YEARMILLIS), marketingAmountLeft])
154134     let marketingWlgold = assetBalance(marketingAddr, wlgId)
155135     let teamTotal = fraction(MILLION6, TEAMSHARE, M6)
156136     let teamAmountLeft = valueOrElse(getInteger(contracts[dappWlg], teamAmountLeftKey), teamTotal)
157137     let lastTeamTime = valueOrElse(getInteger(contracts[dappWlg], lastTeamTimeKey), issueTime)
158138     let teamAddr = addressFromStringValue(value(getString(contracts[dappWlg], teamAddrKey)))
159139     let teamAmountAvailableNow = min([fraction(teamTotal, (now - lastTeamTime), (3 * YEARMILLIS)), teamAmountLeft])
160140     let teamWlgold = assetBalance(teamAddr, wlgId)
161141     let actTotal = fraction(MILLION6, ACTIVITYSHARE, M6)
162142     let actAmountLeft = valueOrElse(getInteger(contracts[dappWlg], actAmountLeftKey), actTotal)
163143     let lastActivitiesTime = valueOrElse(getInteger(contracts[dappWlg], lastActivitiesTimeKey), issueTime)
164144     let actAmountAvailableNow = min([fraction(actTotal, (now - lastActivitiesTime), (3 * YEARMILLIS)), actAmountLeft])
165145     let actWlgold = assetBalance(contracts[dappRest], wlgId)
166146     let lastUserTime = valueOrElse(getInteger(contracts[dappWlg], keyLastClaimedTimeByUser(userAddrOpt)), issueTime)
167147     let lastUserPeriod = ((lastUserTime - issueTime) / YEARMILLIS)
168148     let nowLimited = min([now, (issueTime + (3 * YEARMILLIS))])
169149     let curPeriod = min([((now - issueTime) / YEARMILLIS), 2])
170150     let eff = getLands(userAddrOpt, contracts[dappStaking], contracts[dappAcres])
171151     let curPeriodDistribution = distributionByPeriod(curPeriod)
172152     let $t079142 = if ((lastUserPeriod == curPeriod))
173153         then {
174154             let a0 = fraction(curPeriodDistribution, (nowLimited - lastUserTime), YEARMILLIS)
175155             let userPart = fraction(a0, userProportion6, M6)
176156             let effTime = (lastUserTime + fraction((nowLimited - lastUserTime), userProportion6, M6))
177157             $Tuple3(userPart, a0, effTime)
178158             }
179159         else if ((lastUserPeriod == (curPeriod - 1)))
180160             then {
181161                 let a1 = fraction(distributionByPeriod((curPeriod - 1)), ((issueTime + (YEARMILLIS * curPeriod)) - lastUserTime), YEARMILLIS)
182162                 let a0 = fraction(curPeriodDistribution, (nowLimited - (issueTime + (YEARMILLIS * curPeriod))), YEARMILLIS)
183163                 let avail = (a1 + a0)
184164                 let userPart = fraction(avail, userProportion6, M6)
185165                 let effTime = if ((a1 >= userPart))
186166                     then (lastUserTime + fraction(YEARMILLIS, userPart, distributionByPeriod((curPeriod - 1))))
187167                     else ((issueTime + (YEARMILLIS * curPeriod)) + fraction(YEARMILLIS, (userPart - a1), curPeriodDistribution))
188168                 $Tuple3(userPart, avail, effTime)
189169                 }
190170             else {
191171                 let a2 = fraction(distributionByPeriod((curPeriod - 2)), ((issueTime + (YEARMILLIS * (curPeriod - 1))) - lastUserTime), YEARMILLIS)
192172                 let a1 = distributionByPeriod((curPeriod - 1))
193173                 let a0 = fraction(curPeriodDistribution, (nowLimited - (issueTime + (YEARMILLIS * curPeriod))), YEARMILLIS)
194174                 let avail = ((a2 + a1) + a0)
195175                 let userPart = fraction(avail, userProportion6, M6)
196176                 let effTime = if ((a2 >= userPart))
197177                     then (lastUserTime + fraction(YEARMILLIS, userPart, distributionByPeriod((curPeriod - 2))))
198178                     else if (((a2 + a1) >= userPart))
199179                         then ((issueTime + (YEARMILLIS * (curPeriod - 1))) + fraction(YEARMILLIS, (userPart - a2), distributionByPeriod((curPeriod - 1))))
200180                         else ((issueTime + (YEARMILLIS * curPeriod)) + fraction(YEARMILLIS, ((userPart - a2) - a1), curPeriodDistribution))
201181                 $Tuple3(userPart, avail, effTime)
202182                 }
203183     let userAmount = $t079142._1
204184     let userAvailable = $t079142._2
205185     let effLastTime = $t079142._3
206186     let sLandDailyAmount = fraction(fraction(curPeriodDistribution, DAYMILLIS, YEARMILLIS), 25, eff[idxTotalPieces])
207187     let amountLeftTotal = valueOrElse(getInteger(contracts[dappWlg], stakersAmountLeftKey), 0)
208188     let robbedUser = fraction(userAmount, ((eff[idxUserPieces] * M8) + eff[idxUserAcres]), ((eff[idxTotalPieces] * M8) + eff[idxTotalAcres]))
209189     let unrobbedUser = fraction(userAvailable, ((eff[idxUserPieces] * M8) + eff[idxUserAcres]), ((eff[idxTotalPieces] * M8) + eff[idxTotalAcres]))
210190 [issuedAmount, fraction(totalFundsUsd, M8, issuedAmount), totalFundsUsd, economyUsd, restUsd, wlgUsd, puzzleUsd, issueTime, lastMarketingTime, marketingTotal, marketingAmountLeft, marketingAmountAvailableNow, marketingWlgold, teamTotal, teamAmountLeft, teamAmountAvailableNow, teamWlgold, actTotal, actAmountLeft, actAmountAvailableNow, actWlgold, curPeriod, amountLeftTotal, curPeriodDistribution, lastUserTime, robbedUser, sLandDailyAmount, investFundTotal, unrobbedUser, effLastTime]
211191     }
212192 
213193 
194+let SCALE8 = 100000000
195+
196+let xpLevelScale = 3200
197+
198+let xpLevelRecipPow = 4000
199+
200+let numPointsOnLevelUp = 3
201+
202+let wlgBaseAmountXp = 100000000000
203+
204+func keyUserXP (addr) = ("userXP_" + addr)
205+
206+
207+func keyUserLevel (addr) = ("userLevel_" + addr)
208+
209+
210+let xpWlg = 10000
211+
212+func levelByXP (xp) = fraction(xpLevelScale, pow(xp, 4, xpLevelRecipPow, 4, 4, DOWN), SCALE8)
213+
214+
215+func levelUp (currLevel,newXP) = {
216+    let newLevel = levelByXP(newXP)
217+[newLevel, (numPointsOnLevelUp * (newLevel - currLevel))]
218+    }
219+
220+
214221 let chain = take(drop(this.bytes, 1), 1)
215222 
216223 let usdtAssetId = match chain {
217224     case _ => 
218225         if ((base58'2W' == $match0))
219226             then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
220227             else if ((base58'2T' == $match0))
221228                 then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
222229                 else throw("Unknown chain")
223230 }
224231 
225232 let defaultRestAddressStr = match chain {
226233     case _ => 
227234         if ((base58'2W' == $match0))
228235             then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
229236             else if ((base58'2T' == $match0))
230237                 then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
231238                 else throw("Unknown chain")
232239 }
233240 
234241 let arbitrageDelay = match chain {
235242     case _ => 
236243         if ((base58'2W' == $match0))
237244             then 86400000
238245             else if ((base58'2T' == $match0))
239246                 then 60000
240247                 else throw("Unknown chain")
241248 }
242249 
243250 let SEP = "__"
244251 
245252 let MULT6 = 1000000
246253 
247254 let MULT8 = 100000000
248255 
249256 let MINSHOPPAYMENT = 100000
250257 
251258 func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
252259 
253260 
254261 let IdxCfgStakingDapp = 1
255262 
256263 let IdxCfgEconomyDapp = 2
257264 
258265 let IdxCfgWlgDapp = 4
259266 
260267 let IdxCfgPuzzlePoolDapp = 5
261268 
262269 let IdxCfgInvestFundDapp = 6
263270 
264271 let IdxCfgAcresDapp = 8
265272 
266273 func keyRestCfg () = "%s__restConfig"
267274 
268275 
269276 func keyRestAddress () = "%s__restAddr"
270277 
271278 
272279 func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
273280 
274281 
275282 func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
276283 
277284 
278285 let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
279286 
280287 let restCfg = readRestCfgOrFail(restContract)
281288 
282289 let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
283290 
284291 let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
285292 
286293 let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
287294 
288295 let puzzlePoolContract = getContractAddressOrFail(restCfg, IdxCfgPuzzlePoolDapp)
289296 
290297 let investFundContract = getContractAddressOrFail(restCfg, IdxCfgInvestFundDapp)
291298 
292299 let acresContract = getContractAddressOrFail(restCfg, IdxCfgAcresDapp)
293300 
294301 let wlgAssetIdKey = "wlg_assetId"
295302 
296303 let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "WLGOLD is not issued yet")
304+
305+let idxWlgAmount = 0
306+
307+let idxWlgPrice = 1
308+
309+let idxWlgFunds = 2
310+
311+let idxWlgIssueTime = 7
312+
313+let idxWlgMarketingAmLeft = 10
314+
315+let idxWlgMarketingAmAvailNow = 11
316+
317+let idxWlgTeamAmLeft = 14
318+
319+let idxWlgTeamAmAvailNow = 15
320+
321+let idxWlgActAmLeft = 18
322+
323+let idxWlgActAmAvailNow = 19
324+
325+let idxWlgAmLeftTotal = 22
326+
327+let idxWlgUserAmAvailNow = 25
328+
329+let idxWlgUserTotalAvail = 28
330+
331+let idxWlgEffUserTime = 29
297332 
298333 let IdxEffUser = 1
299334 
300335 func keyResProportions () = "resTypesProportions"
301336 
302337 
303338 func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
304339 
305340 
306341 func asInt (v) = match v {
307342     case n: Int => 
308343         n
309344     case _ => 
310345         throw("fail to cast into Int")
311346 }
312347 
313348 
314349 func getVotingPower (userAddrStrOrEmpty) = {
315350     let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
316351     func adder (acc,item) =     (acc + parseIntValue(item))
317352 
318353     let totalPower = {
319354         let $l = props
320355         let $s = size($l)
321356         let $acc0 = 0
322357         func $f0_1 ($a,$i) =         if (($i >= $s))
323358             then $a
324359             else adder($a, $l[$i])
325360 
326361         func $f0_2 ($a,$i) =         if (($i >= $s))
327362             then $a
328363             else throw("List size exceeds 6")
329364 
330365         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
331366         }
332367     let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
333368 [totalPower, usersPower]
334369     }
335370 
336371 
337372 func fixedPoint (val,decimals) = {
338373     let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
339374     let lowPart = toString((val % tenPow))
340375     let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
341376     (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
342377     }
343378 
344379 
345380 let profitAddrKey = "profitAddr"
346381 
347382 let stakersAmountPaidTotalKey = "stakersAmountPaidTotal"
348383 
349384 func keyStakersAmountPaidUser (addr) = ("stakersAmountPaidUser_" + addr)
350385 
351386 
352387 func prolog () = asInt(invoke(stakingContract, "saveLastTx", nil, nil))
353388 
354389 
355390 func getSwapLimitWlg (addr) = {
356391     let lastTime = valueOrElse(getInteger(keyLastArbTimeByUser(addr)), 0)
357392     let now = lastBlock.timestamp
358393     if ((arbitrageDelay > (now - lastTime)))
359394         then throw((("Arbitrages are possible once a " + toString((arbitrageDelay / 60000))) + "min"))
360395         else {
361396             let pieces = getVotingPower(addr)[IdxEffUser]
362397             let acresAmount = valueOrElse(getInteger(acresContract, keyAcresStakedAmountByUser(addr)), 0)
363398             ((pieces * MULT8) + acresAmount)
364399             }
365400     }
366401 
367402 
368403 func claimInternal (addr,proportion6) = {
369404     let caller = addressFromStringValue(addr)
370405     let curStats = getWlgStats(addr, [restContract, stakingContract, economyContract, wlgContract, puzzlePoolContract, investFundContract, acresContract], usdtAssetId, 0, proportion6)
371406     let now = lastBlock.timestamp
372407     let issueTime = curStats[idxWlgIssueTime]
373408     let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
374409     let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
375410     let teamAmountLeft = curStats[idxWlgTeamAmLeft]
376411     let teamAmount = curStats[idxWlgTeamAmAvailNow]
377412     let actAmountLeft = curStats[idxWlgActAmLeft]
378413     let actAmount = curStats[idxWlgActAmAvailNow]
379414     if (((now - issueTime) > CHECKTIME))
380415         then throw("Please modify contract for next 1.5 years, according to stats")
381416         else {
382417             let userAmount = curStats[idxWlgUserAmAvailNow]
383418             let userKey = keyStakersAmountPaidUser(addr)
384419             let userTotal = curStats[idxWlgUserTotalAvail]
385420             let userEffTime = curStats[idxWlgEffUserTime]
386421             $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, userTotal))
387422             }
388423     }
389424 
390425 
426+func takeXpInternal (addr,delta) = {
427+    let now = lastBlock.timestamp
428+    let timeKey = keyWlgStakedTimeByUser(addr)
429+    let amountKey = keyWlgStakedAmountByUser(addr)
430+    let lastTime = valueOrElse(getInteger(timeKey), 0)
431+    let oldUser = valueOrElse(getInteger(amountKey), 0)
432+    let oldTotal = valueOrElse(getInteger(wlgStakedTotalKey), 0)
433+    let xp = fraction(fraction(xpWlg, oldUser, wlgBaseAmountXp), (lastTime - now), DAYMILLIS)
434+    $Tuple3([IntegerEntry(timeKey, now), IntegerEntry(amountKey, (oldUser + delta)), IntegerEntry(wlgStakedTotalKey, (oldTotal + delta))], xp, oldUser)
435+    }
436+
437+
391438 @Callable(i)
392439 func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
393440     then throw("Permission denied")
394441     else if (isDefined(getBinary(wlgAssetIdKey)))
395442         then throw("Already initialized")
396443         else {
397444             let issuedAmount = MILLION6
398445             let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
399446             let assetId = calculateAssetId(issue)
400447 [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)]
401448             }
402449 
403450 
404451 
405452 @Callable(i)
406453 func buyWlg (minAmount) = {
407454     let prologResult = prolog()
408455     if ((size(i.payments) != 1))
409456         then throw("exactly 1 payment must be attached")
410457         else {
411458             let pmt = i.payments[0]
412459             let usdtAmt = pmt.amount
413-            let pmtAssetId = valueOrErrorMessage(pmt.assetId, "USDT payments only!")
414-            if ((pmtAssetId != usdtAssetId))
460+            if (if (!(isDefined(pmt.assetId)))
461+                then true
462+                else (value(pmt.assetId) != usdtAssetId))
415463                 then throw("USDT payments only!")
416464                 else {
417465                     let caller = i.caller
418466                     let addr = toString(caller)
419467                     if ((MINSHOPPAYMENT > usdtAmt))
420468                         then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
421469                         else {
422470                             let curStats = getWlgStats("", [restContract, stakingContract, economyContract, wlgContract, puzzlePoolContract, investFundContract, acresContract], usdtAssetId, usdtAmt, MULT6)
423471                             let curWlgAmount = curStats[idxWlgAmount]
424472                             let fundsUsd = curStats[idxWlgFunds]
425473                             let wlgPrice = fraction(fundsUsd, MULT8, curWlgAmount)
426474                             let buyPrice = fraction(wlgPrice, 6, 5)
427475                             let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
428476                             let maxWlg = getSwapLimitWlg(addr)
429477                             if ((wlgAmount > maxWlg))
430478                                 then throw((("You can get max " + fixedPoint(maxWlg, 8)) + " WLGOLD"))
431479                                 else if ((minAmount > wlgAmount))
432480                                     then throw("Price changed during operation, please try again")
433481                                     else {
434482                                         let profitAmount = (usdtAmt / 6)
435483                                         let deltaFunds = (usdtAmt - profitAmount)
436484                                         let reissued = fraction(curWlgAmount, deltaFunds, fundsUsd)
437485                                         $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)
438486                                         }
439487                             }
440488                     }
441489             }
442490     }
443491 
444492 
445493 
446494 @Callable(i)
447495 func sellWlg (minAmount) = {
448496     let prologResult = prolog()
449497     if ((size(i.payments) != 1))
450498         then throw("exactly 1 payment must be attached")
451499         else {
452500             let pmt = i.payments[0]
453501             let wlgAmt = pmt.amount
454502             let caller = i.caller
455503             let addr = toString(caller)
456504             let maxWlg = getSwapLimitWlg(addr)
457505             if ((wlgAmt > maxWlg))
458506                 then throw((("You can spend max " + fixedPoint(maxWlg, 8)) + " WLGOLD"))
459-                else {
460-                    let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WLGOLD payments only!")
461-                    if ((pmtAssetId != wlgAssetId))
462-                        then throw("WLGOLD payments only!")
463-                        else {
464-                            let curStats = getWlgStats("", [restContract, stakingContract, economyContract, wlgContract, puzzlePoolContract, investFundContract, acresContract], usdtAssetId, 0, MULT6)
465-                            let curWlgAmount = curStats[idxWlgAmount]
466-                            let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
467-                            let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
468-                            if ((MINSHOPPAYMENT > usdtAmt))
469-                                then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
470-                                else if ((minAmount > usdtAmt))
471-                                    then throw("Price changed during operation, please try again")
472-                                    else {
473-                                        let profitAmount = (usdtAmt / 4)
474-                                        let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
475-                                        $Tuple2([Burn(wlgAssetId, burned), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount - burned)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, usdtAmt, usdtAssetId)], prologResult)
476-                                        }
477-                            }
478-                    }
507+                else if (if (!(isDefined(pmt.assetId)))
508+                    then true
509+                    else (value(pmt.assetId) != wlgAssetId))
510+                    then throw("WLGOLD payments only!")
511+                    else {
512+                        let curStats = getWlgStats("", [restContract, stakingContract, economyContract, wlgContract, puzzlePoolContract, investFundContract, acresContract], usdtAssetId, 0, MULT6)
513+                        let curWlgAmount = curStats[idxWlgAmount]
514+                        let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
515+                        let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
516+                        if ((MINSHOPPAYMENT > usdtAmt))
517+                            then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
518+                            else if ((minAmount > usdtAmt))
519+                                then throw("Price changed during operation, please try again")
520+                                else {
521+                                    let profitAmount = (usdtAmt / 4)
522+                                    let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
523+                                    $Tuple2([Burn(wlgAssetId, burned), IntegerEntry(wlgIssuedAmountKey, (curWlgAmount - burned)), IntegerEntry(keyLastArbTimeByUser(addr), lastBlock.timestamp), ScriptTransfer(addressFromStringValue(value(getString(profitAddrKey))), profitAmount, usdtAssetId), ScriptTransfer(caller, usdtAmt, usdtAssetId)], prologResult)
524+                                    }
525+                        }
479526             }
480527     }
481528 
482529 
483530 
484531 @Callable(i)
485532 func claim () = {
486533     let prologResult = prolog()
487534     if ((size(i.payments) != 0))
488535         then throw("No payments required")
489536         else {
490537             let r = claimInternal(toString(i.caller), MULT6)
491538             let actions = r._1
492539             $Tuple2((actions :+ ScriptTransfer(i.caller, r._2._1, wlgAssetId)), prologResult)
493540             }
494541     }
495542 
496543 
497544 
498545 @Callable(i)
499546 func onStakeUnstakeLand (addr) = if (if ((i.caller != stakingContract))
500547     then (i.caller != acresContract)
501548     else false)
502549     then throw("Permission denied")
503550     else {
504551         let r = claimInternal(addr, MULT6)
505552         let actions = r._1
506553         $Tuple2((actions :+ ScriptTransfer(addressFromStringValue(addr), r._2._1, wlgAssetId)), r._2)
507554         }
508555 
509556 
510557 
511558 @Callable(i)
512559 func claimRob (owner,robber,ownerProportion6) = if ((i.caller != stakingContract))
513560     then throw("Permission denied")
514561     else {
515562         let r = claimInternal(owner, ownerProportion6)
516563         $Tuple2((r._1 :+ ScriptTransfer(addressFromStringValue(robber), (r._2._2 - r._2._1), wlgAssetId)), r._2)
517564         }
518565 
519566 
567+
568+@Callable(i)
569+func stakeWlgold () = {
570+    let prologResult = prolog()
571+    if ((size(i.payments) != 1))
572+        then throw("exactly 1 payment must be attached")
573+        else {
574+            let pmt = i.payments[0]
575+            let amt = pmt.amount
576+            let addr = toString(i.caller)
577+            if (if (!(isDefined(pmt.assetId)))
578+                then true
579+                else (value(pmt.assetId) != wlgAssetId))
580+                then throw("WLGOLD payments only!")
581+                else {
582+                    let $t01003810083 = takeXpInternal(addr, amt)
583+                    let actions = $t01003810083._1
584+                    let xp = $t01003810083._2
585+                    let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, xp], nil))
586+                    $Tuple2(actions, $Tuple2(prologResult, accStatsResult))
587+                    }
588+            }
589+    }
590+
591+
592+
593+@Callable(i)
594+func unstakeWlgold (amount) = {
595+    let prologResult = prolog()
596+    if ((size(i.payments) != 0))
597+        then throw("No payments required")
598+        else if ((0 >= amount))
599+            then throw("Amount should be positive")
600+            else {
601+                let addr = toString(i.caller)
602+                let $t01046710525 = takeXpInternal(addr, -(amount))
603+                let actions = $t01046710525._1
604+                let xp = $t01046710525._2
605+                let oldUser = $t01046710525._3
606+                if ((amount > oldUser))
607+                    then throw(((("You have only " + fixedPoint(oldUser, 8)) + " WLGOLD staked, tried to unstake ") + fixedPoint(amount, 8)))
608+                    else {
609+                        let accStatsResult = asInt(invoke(stakingContract, "updateAccStats", [addr, xp], nil))
610+                        $Tuple2(actions, $Tuple2(prologResult, accStatsResult))
611+                        }
612+                }
613+    }
614+
615+
616+
617+@Callable(i)
618+func takeWlgXp (addr) = if ((i.caller != stakingContract))
619+    then throw("Permission denied")
620+    else {
621+        let $t01095610999 = takeXpInternal(addr, 0)
622+        let actions = $t01095610999._1
623+        let xp = $t01095610999._2
624+        $Tuple2(actions, xp)
625+        }
626+
627+
628+
629+@Callable(i)
630+func checkWlgXpREADONLY (addr) = {
631+    let $t01107611124 = takeXpInternal(addr, 0)
632+    let ignored = $t01107611124._1
633+    let deltaXP = $t01107611124._2
634+    let lvlKey = keyUserLevel(addr)
635+    let xpKey = keyUserXP(addr)
636+    let xp = valueOrElse(getInteger(stakingContract, xpKey), 0)
637+    let newXP = (xp + deltaXP)
638+    let lvlPoints = levelUp(valueOrElse(getInteger(stakingContract, lvlKey), 0), newXP)
639+    $Tuple2(nil, lvlPoints)
640+    }
641+
642+
github/deemru/w8io/026f985 
64.17 ms ◑