tx · CyTgVDAzhF9f1SfbEcttXUVfn6c4BnekdPZh161sFzW1

3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy:  -0.01500000 Waves

2023.08.06 20:22 [2699023] smart account 3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CyTgVDAzhF9f1SfbEcttXUVfn6c4BnekdPZh161sFzW1",
    "fee": 1500000,
    "feeAssetId": null,
    "timestamp": 1691342694088,
    "version": 2,
    "chainId": 84,
    "sender": "3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy",
    "senderPublicKey": "FsR18761ZAsUqsTd7TK3XmR6bhihs1UXVmpHYxz5JzQ1",
    "proofs": [
        "2tEG9Fr9SX2pM1vqmHzMaJpetS9gkCX2GgNXXgAH96BqBCyA73u3bdYd5PqJdtAMgQWSoynEFR8BDP4RpW7YJHMo"
    ],
    "script": "base64:BgIbCAISBgoECAgICBIDCgEBEgMKAQESABIDCgEIWAACTTYAwIQ9AAJNOACAwtcvAAhNSUxMSU9ONgCAgOmDsd4WAA5NQVJLRVRJTkdTSEFSRQCgjQYACVRFQU1TSEFSRQDAmgwADUFDVElWSVRZU0hBUkUAoI0GAAtQTEFZRVJTSEFSRQCAtRgACllFQVJNSUxMSVMAgIbrx3UACUNIRUNLVElNRQCAyeCrsAEAA0RBWQCAuJkpABBtYXJrZXRpbmdBZGRyS2V5Ag1tYXJrZXRpbmdBZGRyAAt0ZWFtQWRkcktleQIIdGVhbUFkZHIAFGxhc3RNYXJrZXRpbmdUaW1lS2V5AhlsYXN0Q2xhaW1lZFRpbWVfbWFya2V0aW5nABZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5AhNtYXJrZXRpbmdBbW91bnRMZWZ0AA9sYXN0VGVhbVRpbWVLZXkCFGxhc3RDbGFpbWVkVGltZV90ZWFtABF0ZWFtQW1vdW50TGVmdEtleQIOdGVhbUFtb3VudExlZnQAFWxhc3RBY3Rpdml0aWVzVGltZUtleQIabGFzdENsYWltZWRUaW1lX2FjdGl2aXRpZXMAEGFjdEFtb3VudExlZnRLZXkCFGFjdGl2aXRpZXNBbW91bnRMZWZ0ABRzdGFrZXJzQW1vdW50TGVmdEtleQIRc3Rha2Vyc0Ftb3VudExlZnQBGGtleUxhc3RDbGFpbWVkVGltZUJ5VXNlcgEEYWRkcgkArAICAhRsYXN0Q2xhaW1lZFRpbWVVc2VyXwUEYWRkcgEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBGFkZHIJAKwCAgIQbGFzdEFyYlRpbWVVc2VyXwUEYWRkcgEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBBnBlcmlvZAkAawMFCE1JTExJT042CQBoAgULUExBWUVSU0hBUkUJAGQCBQZwZXJpb2QAAQkAaAIABgUCTTYAD3dsZ0lzc3VlVGltZUtleQINd2xnX2lzc3VlVGltZQASd2xnSXNzdWVkQW1vdW50S2V5AhB3bGdfaXNzdWVkQW1vdW50ABF6Yklzc3VlZEFtb3VudEtleQISemJpbGxfaXNzdWVkQW1vdW50AAxpZHhXbGdBbW91bnQAAAALaWR4V2xnUHJpY2UAAQALaWR4V2xnRnVuZHMAAgAPaWR4V2xnSXNzdWVUaW1lAAcAFWlkeFdsZ01hcmtldGluZ0FtTGVmdAAKABlpZHhXbGdNYXJrZXRpbmdBbUF2YWlsTm93AAsAEGlkeFdsZ1RlYW1BbUxlZnQADgAUaWR4V2xnVGVhbUFtQXZhaWxOb3cADwAPaWR4V2xnQWN0QW1MZWZ0ABIAE2lkeFdsZ0FjdEFtQXZhaWxOb3cAEwARaWR4V2xnQW1MZWZ0VG90YWwAFgAUaWR4V2xnVXNlckFtQXZhaWxOb3cAGQAIZGFwcFJlc3QAAAALZGFwcFN0YWtpbmcAAQALZGFwcEVjb25vbXkAAgAHZGFwcFdsZwAEAApkYXBwUHV6emxlAAUADmRhcHBJbnZlc3RGdW5kAAYBCWdldFBpZWNlcwISdXNlckFkZHJTdHJPckVtcHR5D3N0YWtpbmdDb250cmFjdAQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QCE3Jlc1R5cGVzUHJvcG9ydGlvbnMCCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0ECnRvdGFsUG93ZXIKAAIkbAUFcHJvcHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp1c2Vyc1Bvd2VyCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkArAICAhRzdGFrZWRQaWVjZXNCeU93bmVyXwUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxQb3dlcgkAzAgCBQp1c2Vyc1Bvd2VyBQNuaWwBC2dldFdsZ1N0YXRzBAt1c2VyQWRkck9wdAljb250cmFjdHMGdXNkdElkFXVzZHRCYWxhbmNlQ29ycmVjdGlvbgQMaXNzdWVkQW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFEndsZ0lzc3VlZEFtb3VudEtleQIYV0xHT0xEIGlzIG5vdCBpc3N1ZWQgeWV0BAplY29ub215VXNkCQDwBwIJAJEDAgUJY29udHJhY3RzBQtkYXBwRWNvbm9teQUGdXNkdElkBAdyZXN0VXNkCQDwBwIJAJEDAgUJY29udHJhY3RzBQhkYXBwUmVzdAUGdXNkdElkBAZ3bGdVc2QJAGUCCQDwBwIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBQZ1c2R0SWQFFXVzZHRCYWxhbmNlQ29ycmVjdGlvbgQJcHV6emxlVXNkCQDwBwIJAJEDAgUJY29udHJhY3RzBQpkYXBwUHV6emxlBQZ1c2R0SWQEEmludmVzdEZ1bmRDb250cmFjdAkAkQMCBQljb250cmFjdHMFDmRhcHBJbnZlc3RGdW5kBA9pbnZlc3RGdW5kVG90YWwJAGQCCQDwBwIFEmludmVzdEZ1bmRDb250cmFjdAUGdXNkdElkCQELdmFsdWVPckVsc2UCCQCaCAIFEmludmVzdEZ1bmRDb250cmFjdAURemJJc3N1ZWRBbW91bnRLZXkAAAQNdG90YWxGdW5kc1VzZAkAZAIJAGQCBQplY29ub215VXNkBQZ3bGdVc2QFD2ludmVzdEZ1bmRUb3RhbAQFd2xnSWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwILd2xnX2Fzc2V0SWQCE05vdCBpbml0aWFsaXplZCB5ZXQEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAECWlzc3VlVGltZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBQ93bGdJc3N1ZVRpbWVLZXkCD05vdCBpbml0aWFsaXplZAQObWFya2V0aW5nVG90YWwJAGsDBQhNSUxMSU9ONgUOTUFSS0VUSU5HU0hBUkUFAk02BBNtYXJrZXRpbmdBbW91bnRMZWZ0CQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5BQ5tYXJrZXRpbmdUb3RhbAQRbGFzdE1hcmtldGluZ1RpbWUJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFFGxhc3RNYXJrZXRpbmdUaW1lS2V5BQlpc3N1ZVRpbWUEDW1hcmtldGluZ0FkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAJ0IAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFEG1hcmtldGluZ0FkZHJLZXkEG21hcmtldGluZ0Ftb3VudEF2YWlsYWJsZU5vdwkAlwMBCQDMCAIJAGsDBQ5tYXJrZXRpbmdUb3RhbAkAZQIFA25vdwURbGFzdE1hcmtldGluZ1RpbWUFCllFQVJNSUxMSVMJAMwIAgUTbWFya2V0aW5nQW1vdW50TGVmdAUDbmlsBA9tYXJrZXRpbmdXbGdvbGQJAPAHAgUNbWFya2V0aW5nQWRkcgUFd2xnSWQECXRlYW1Ub3RhbAkAawMFCE1JTExJT042BQlURUFNU0hBUkUFAk02BA50ZWFtQW1vdW50TGVmdAkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwURdGVhbUFtb3VudExlZnRLZXkFCXRlYW1Ub3RhbAQMbGFzdFRlYW1UaW1lCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBQ9sYXN0VGVhbVRpbWVLZXkFCWlzc3VlVGltZQQIdGVhbUFkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAJ0IAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFC3RlYW1BZGRyS2V5BBZ0ZWFtQW1vdW50QXZhaWxhYmxlTm93CQCXAwEJAMwIAgkAawMFCXRlYW1Ub3RhbAkAZQIFA25vdwUMbGFzdFRlYW1UaW1lCQBoAgADBQpZRUFSTUlMTElTCQDMCAIFDnRlYW1BbW91bnRMZWZ0BQNuaWwECnRlYW1XbGdvbGQJAPAHAgUIdGVhbUFkZHIFBXdsZ0lkBAhhY3RUb3RhbAkAawMFCE1JTExJT042BQ1BQ1RJVklUWVNIQVJFBQJNNgQNYWN0QW1vdW50TGVmdAkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUQYWN0QW1vdW50TGVmdEtleQUIYWN0VG90YWwEEmxhc3RBY3Rpdml0aWVzVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUVbGFzdEFjdGl2aXRpZXNUaW1lS2V5BQlpc3N1ZVRpbWUEFWFjdEFtb3VudEF2YWlsYWJsZU5vdwkAlwMBCQDMCAIJAGsDBQhhY3RUb3RhbAkAZQIFA25vdwUSbGFzdEFjdGl2aXRpZXNUaW1lCQBoAgADBQpZRUFSTUlMTElTCQDMCAIFDWFjdEFtb3VudExlZnQFA25pbAQJYWN0V2xnb2xkCQDwBwIJAJEDAgUJY29udHJhY3RzBQhkYXBwUmVzdAUFd2xnSWQEDGxhc3RVc2VyVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwkBGGtleUxhc3RDbGFpbWVkVGltZUJ5VXNlcgEFC3VzZXJBZGRyT3B0BQlpc3N1ZVRpbWUEDmxhc3RVc2VyUGVyaW9kCQBpAgkAZQIFDGxhc3RVc2VyVGltZQUJaXNzdWVUaW1lBQpZRUFSTUlMTElTBApub3dMaW1pdGVkCQCXAwEJAMwIAgUDbm93CQDMCAIJAGQCBQlpc3N1ZVRpbWUJAGgCAAMFCllFQVJNSUxMSVMFA25pbAQJY3VyUGVyaW9kCQCXAwEJAMwIAgkAaQIJAGUCBQNub3cFCWlzc3VlVGltZQUKWUVBUk1JTExJUwkAzAgCAAIFA25pbAQDZWZmCQEJZ2V0UGllY2VzAgULdXNlckFkZHJPcHQJAJEDAgUJY29udHJhY3RzBQtkYXBwU3Rha2luZwQVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBBQljdXJQZXJpb2QECnVzZXJBbW91bnQJAGsDAwkAAAIFDmxhc3RVc2VyUGVyaW9kBQljdXJQZXJpb2QJAGsDBRVjdXJQZXJpb2REaXN0cmlidXRpb24JAGUCBQpub3dMaW1pdGVkBQxsYXN0VXNlclRpbWUFCllFQVJNSUxMSVMDCQAAAgUObGFzdFVzZXJQZXJpb2QJAGUCBQljdXJQZXJpb2QAAQkAZAIJAGsDCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAEJAGUCCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwUJY3VyUGVyaW9kBQxsYXN0VXNlclRpbWUFCllFQVJNSUxMSVMJAGsDBRVjdXJQZXJpb2REaXN0cmlidXRpb24JAGUCBQpub3dMaW1pdGVkCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwUJY3VyUGVyaW9kBQpZRUFSTUlMTElTCQBkAgkAZAIJAGsDCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAIJAGUCCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwkAZQIFCWN1clBlcmlvZAABBQxsYXN0VXNlclRpbWUFCllFQVJNSUxMSVMJARRkaXN0cmlidXRpb25CeVBlcmlvZAEJAGUCBQljdXJQZXJpb2QAAQkAawMFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAZQIFCm5vd0xpbWl0ZWQJAGQCBQlpc3N1ZVRpbWUJAGgCBQpZRUFSTUlMTElTBQljdXJQZXJpb2QFCllFQVJNSUxMSVMJAJEDAgUDZWZmAAEJAJEDAgUDZWZmAAAEEHNMYW5kRGFpbHlBbW91bnQJAGsDCQBrAwUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uBQNEQVkFCllFQVJNSUxMSVMAGQkAkQMCBQNlZmYAAAQPYW1vdW50TGVmdFRvdGFsCQELdmFsdWVPckVsc2UCCQCaCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBRRzdGFrZXJzQW1vdW50TGVmdEtleQAACQDMCAIFDGlzc3VlZEFtb3VudAkAzAgCCQBrAwUNdG90YWxGdW5kc1VzZAUCTTgFDGlzc3VlZEFtb3VudAkAzAgCBQ10b3RhbEZ1bmRzVXNkCQDMCAIFCmVjb25vbXlVc2QJAMwIAgUHcmVzdFVzZAkAzAgCBQZ3bGdVc2QJAMwIAgUJcHV6emxlVXNkCQDMCAIFCWlzc3VlVGltZQkAzAgCBRFsYXN0TWFya2V0aW5nVGltZQkAzAgCBQ5tYXJrZXRpbmdUb3RhbAkAzAgCBRNtYXJrZXRpbmdBbW91bnRMZWZ0CQDMCAIFG21hcmtldGluZ0Ftb3VudEF2YWlsYWJsZU5vdwkAzAgCBQ9tYXJrZXRpbmdXbGdvbGQJAMwIAgUJdGVhbVRvdGFsCQDMCAIFDnRlYW1BbW91bnRMZWZ0CQDMCAIFFnRlYW1BbW91bnRBdmFpbGFibGVOb3cJAMwIAgUKdGVhbVdsZ29sZAkAzAgCBQhhY3RUb3RhbAkAzAgCBQ1hY3RBbW91bnRMZWZ0CQDMCAIFFWFjdEFtb3VudEF2YWlsYWJsZU5vdwkAzAgCBQlhY3RXbGdvbGQJAMwIAgUJY3VyUGVyaW9kCQDMCAIFD2Ftb3VudExlZnRUb3RhbAkAzAgCBRVjdXJQZXJpb2REaXN0cmlidXRpb24JAMwIAgUMbGFzdFVzZXJUaW1lCQDMCAIFCnVzZXJBbW91bnQJAMwIAgUQc0xhbmREYWlseUFtb3VudAkAzAgCBQ9pbnZlc3RGdW5kVG90YWwFA25pbAAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZHRBc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwASCE2nqyCAM/TtG7yo7ui5O8yYLdC136B5ao1CP5qA//uQMJAAACAQFUBQckbWF0Y2gwASBVsdifcoeC7+XjW42sBatl3ppDoS8WuwXzGreHpfHFGAkAAgECDVVua25vd24gY2hhaW4AFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIjM1BRQ3V2RmJ2aDRMa1BVbnJuVTF6M2puYkExcDltM1dOaHYDCQAAAgEBVAUHJG1hdGNoMAIjM011bWtHR3p0Q0tBWHBXRHF4a2Rkb2ZxWFNVYnFRa3ZTSnkJAAIBAg1Vbmtub3duIGNoYWluAA5hcmJpdHJhZ2VEZWxheQQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMADAzyQDCQAAAgEBVAUHJG1hdGNoMADg1AMJAAIBAg1Vbmtub3duIGNoYWluAANTRVACAl9fAAVNVUxUNgDAhD0ABU1VTFQ4AIDC1y8ADk1JTlNIT1BQQVlNRU5UAKCNBgEPZ2V0U3RyaW5nT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEUlkeENmZ1N0YWtpbmdEYXBwAAEAEUlkeENmZ0Vjb25vbXlEYXBwAAIAFElkeENmZ0dvdmVybmFuY2VEYXBwAAMADUlkeENmZ1dsZ0RhcHAABAAUSWR4Q2ZnUHV6emxlUG9vbERhcHAABQAUSWR4Q2ZnSW52ZXN0RnVuZERhcHAABgEKa2V5UmVzdENmZwACDiVzX19yZXN0Q29uZmlnAQ5rZXlSZXN0QWRkcmVzcwACDCVzX19yZXN0QWRkcgERcmVhZFJlc3RDZmdPckZhaWwBBHJlc3QJALwJAgkBD2dldFN0cmluZ09yRmFpbAIFBHJlc3QJAQprZXlSZXN0Q2ZnAAUDU0VQARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCB3Jlc3RDZmcDaWR4CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAKYIAQkAkQMCBQdyZXN0Q2ZnBQNpZHgJAKwCAgIqUmVzdCBjZmcgZG9lc24ndCBjb250YWluIGFkZHJlc3MgYXQgaW5kZXggCQCkAwEFA2lkeAAMcmVzdENvbnRyYWN0CQERQGV4dHJOYXRpdmUoMTA2MikBCQELdmFsdWVPckVsc2UCCQCdCAIFBHRoaXMJAQ5rZXlSZXN0QWRkcmVzcwAFFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgAHcmVzdENmZwkBEXJlYWRSZXN0Q2ZnT3JGYWlsAQUMcmVzdENvbnRyYWN0AA9zdGFraW5nQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdTdGFraW5nRGFwcAAPZWNvbm9teUNvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwURSWR4Q2ZnRWNvbm9teURhcHAAC2dvdkNvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUUSWR4Q2ZnR292ZXJuYW5jZURhcHAAC3dsZ0NvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUNSWR4Q2ZnV2xnRGFwcAAScHV6emxlUG9vbENvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUUSWR4Q2ZnUHV6emxlUG9vbERhcHAAEmludmVzdEZ1bmRDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFFElkeENmZ0ludmVzdEZ1bmREYXBwAA13bGdBc3NldElkS2V5Agt3bGdfYXNzZXRJZAAKd2xnQXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIFC3dsZ0NvbnRyYWN0BQ13bGdBc3NldElkS2V5AhNOb3QgaW5pdGlhbGl6ZWQgeWV0AApJZHhFZmZVc2VyAAEBEWtleVJlc1Byb3BvcnRpb25zAAITcmVzVHlwZXNQcm9wb3J0aW9ucwEWa2V5U3Rha2VkUGllY2VzQnlPd25lcgEJb3duZXJBZGRyCQCsAgICFHN0YWtlZFBpZWNlc0J5T3duZXJfBQlvd25lckFkZHIBBWFzSW50AQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACA0ludAQBbgUHJG1hdGNoMAUBbgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEOZ2V0Vm90aW5nUG93ZXIBEnVzZXJBZGRyU3RyT3JFbXB0eQQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlSZXNQcm9wb3J0aW9ucwACCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0ECnRvdGFsUG93ZXIKAAIkbAUFcHJvcHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp1c2Vyc1Bvd2VyCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBFmtleVN0YWtlZFBpZWNlc0J5T3duZXIBBRJ1c2VyQWRkclN0ck9yRW1wdHkAAAkAzAgCBQp0b3RhbFBvd2VyCQDMCAIFCnVzZXJzUG93ZXIFA25pbAEKZml4ZWRQb2ludAIDdmFsCGRlY2ltYWxzBAZ0ZW5Qb3cJAGwGAAoAAAUIZGVjaW1hbHMAAAAABQRET1dOBAdsb3dQYXJ0CQCkAwEJAGoCBQN2YWwFBnRlblBvdwQGemVyb2VzCQCwAgIJAKQDAQUGdGVuUG93CQBkAgABCQCxAgEFB2xvd1BhcnQJAKwCAgkArAICCQCsAgIJAKQDAQkAaQIFA3ZhbAUGdGVuUG93AgEuBQZ6ZXJvZXMFB2xvd1BhcnQAAkE2AIDC1y8AAkI4AIDh6xcADXByb2ZpdEFkZHJLZXkCCnByb2ZpdEFkZHIAGXN0YWtlcnNBbW91bnRQYWlkVG90YWxLZXkCFnN0YWtlcnNBbW91bnRQYWlkVG90YWwBGGtleVN0YWtlcnNBbW91bnRQYWlkVXNlcgEEYWRkcgkArAICAhZzdGFrZXJzQW1vdW50UGFpZFVzZXJfBQRhZGRyAQZwcm9sb2cACQEFYXNJbnQBCQD8BwQFD3N0YWtpbmdDb250cmFjdAIKc2F2ZUxhc3RUeAUDbmlsBQNuaWwBDGdldFN3YXBMaW1pdAEEYWRkcgQIbGFzdFRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQkBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQUEYWRkcgAABANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wAwkAZgIFDmFyYml0cmFnZURlbGF5CQBlAgUDbm93BQhsYXN0VGltZQkAAgEJAKwCAgkArAICAh9BcmJpdHJhZ2VzIGFyZSBwb3NzaWJsZSBvbmNlIGEgCQCkAwEJAGkCBQ5hcmJpdHJhZ2VEZWxheQDg1AMCA21pbgQGcGllY2VzCQCRAwIJAQ5nZXRWb3RpbmdQb3dlcgEFBGFkZHIFCklkeEVmZlVzZXIEBHBvdzgJAGwGBQZwaWVjZXMAAAUCQjgACAAIBQdDRUlMSU5HCQBrAwUCQTYFBHBvdzgFBU1VTFQ4AQ1jbGFpbUludGVybmFsAQRhZGRyBAZjYWxsZXIJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBGFkZHIECGN1clN0YXRzCQELZ2V0V2xnU3RhdHMEBQRhZGRyCQDMCAIFDHJlc3RDb250cmFjdAkAzAgCBQ9zdGFraW5nQ29udHJhY3QJAMwIAgUPZWNvbm9teUNvbnRyYWN0CQDMCAIFC2dvdkNvbnRyYWN0CQDMCAIFC3dsZ0NvbnRyYWN0CQDMCAIFEnB1enpsZVBvb2xDb250cmFjdAkAzAgCBRJpbnZlc3RGdW5kQ29udHJhY3QFA25pbAULdXNkdEFzc2V0SWQAAAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQJaXNzdWVUaW1lCQCRAwIFCGN1clN0YXRzBQ9pZHhXbGdJc3N1ZVRpbWUEE21hcmtldGluZ0Ftb3VudExlZnQJAJEDAgUIY3VyU3RhdHMFFWlkeFdsZ01hcmtldGluZ0FtTGVmdAQPbWFya2V0aW5nQW1vdW50CQCRAwIFCGN1clN0YXRzBRlpZHhXbGdNYXJrZXRpbmdBbUF2YWlsTm93BA50ZWFtQW1vdW50TGVmdAkAkQMCBQhjdXJTdGF0cwUQaWR4V2xnVGVhbUFtTGVmdAQKdGVhbUFtb3VudAkAkQMCBQhjdXJTdGF0cwUUaWR4V2xnVGVhbUFtQXZhaWxOb3cEDWFjdEFtb3VudExlZnQJAJEDAgUIY3VyU3RhdHMFD2lkeFdsZ0FjdEFtTGVmdAQJYWN0QW1vdW50CQCRAwIFCGN1clN0YXRzBRNpZHhXbGdBY3RBbUF2YWlsTm93AwkAZgIJAGUCBQNub3cFCWlzc3VlVGltZQUJQ0hFQ0tUSU1FCQACAQI9UGxlYXNlIG1vZGlmeSBjb250cmFjdCBmb3IgbmV4dCAxLjUgeWVhcnMsIGFjY29yZGluZyB0byBzdGF0cwQKdXNlckFtb3VudAkAkQMCBQhjdXJTdGF0cwUUaWR4V2xnVXNlckFtQXZhaWxOb3cEB3VzZXJLZXkJARhrZXlTdGFrZXJzQW1vdW50UGFpZFVzZXIBBQRhZGRyCQCUCgIJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAoggBBRBtYXJrZXRpbmdBZGRyS2V5BQ9tYXJrZXRpbmdBbW91bnQFCndsZ0Fzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAoggBBQt0ZWFtQWRkcktleQUKdGVhbUFtb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFCWFjdEFtb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFCnVzZXJBbW91bnQFCndsZ0Fzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIFB3VzZXJLZXkJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFB3VzZXJLZXkAAAUKdXNlckFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUZc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbEtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUZc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbEtleQAABQp1c2VyQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZXJzQW1vdW50TGVmdEtleQkAZQIJAJEDAgUIY3VyU3RhdHMFEWlkeFdsZ0FtTGVmdFRvdGFsBQp1c2VyQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5CQBlAgUTbWFya2V0aW5nQW1vdW50TGVmdAUPbWFya2V0aW5nQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRsYXN0TWFya2V0aW5nVGltZUtleQUDbm93CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRF0ZWFtQW1vdW50TGVmdEtleQkAZQIFDnRlYW1BbW91bnRMZWZ0BQp0ZWFtQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ9sYXN0VGVhbVRpbWVLZXkFA25vdwkAzAgCCQEMSW50ZWdlckVudHJ5AgUQYWN0QW1vdW50TGVmdEtleQkAZQIFDWFjdEFtb3VudExlZnQFCWFjdEFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUVbGFzdEFjdGl2aXRpZXNUaW1lS2V5BQNub3cJAMwIAgkBDEludGVnZXJFbnRyeQIJARhrZXlMYXN0Q2xhaW1lZFRpbWVCeVVzZXIBBQRhZGRyBQNub3cFA25pbAUKdXNlckFtb3VudAUBaQENY29uc3RydWN0b3JWMQQIcmVzdEFkZHINbWFya2V0aW5nQWRkcgh0ZWFtQWRkcgpwcm9maXRBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ13bGdBc3NldElkS2V5CQACAQITQWxyZWFkeSBpbml0aWFsaXplZAQMaXNzdWVkQW1vdW50BQhNSUxMSU9ONgQFaXNzdWUJAMMIBwIGV0xHT0xEAiBXYXZlc0xhbmRzIEdvbGQgaW52ZXN0bWVudCB0b2tlbgUMaXNzdWVkQW1vdW50AAgGBQR1bml0AAAEB2Fzc2V0SWQJALgIAQUFaXNzdWUJAMwIAgUFaXNzdWUJAMwIAgkBDEludGVnZXJFbnRyeQIFD3dsZ0lzc3VlVGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5AAAJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5CQBrAwUITUlMTElPTjYFC1BMQVlFUlNIQVJFBQVNVUxUNgkAzAgCCQELQmluYXJ5RW50cnkCBQ13bGdBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFEG1hcmtldGluZ0FkZHJLZXkFDW1hcmtldGluZ0FkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgULdGVhbUFkZHJLZXkFCHRlYW1BZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFDXByb2ZpdEFkZHJLZXkFCnByb2ZpdEFkZHIFA25pbAFpAQZidXlXbGcBCW1pbkFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAd1c2R0QW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCE1VTRFQgcGF5bWVudHMgb25seSEDCQECIT0CBQpwbXRBc3NldElkBQt1c2R0QXNzZXRJZAkAAgECE1VTRFQgcGF5bWVudHMgb25seSEEBmNhbGxlcggFAWkGY2FsbGVyBARhZGRyCQClCAEFBmNhbGxlcgQHbWF4VXNkdAkBDGdldFN3YXBMaW1pdAEFBGFkZHIDCQBmAgUHdXNkdEFtdAUHbWF4VXNkdAkAAgEJAKwCAgkArAICAhJZb3UgY2FuIHNwZW5kIG1heCAJAQpmaXhlZFBvaW50AgUHbWF4VXNkdAAGAgUgVVNEVAMJAGYCBQ5NSU5TSE9QUEFZTUVOVAUHdXNkdEFtdAkAAgEJAKwCAgkArAICAhJZb3UgY2FuIHRyYWRlIG1pbiAJAQpmaXhlZFBvaW50AgUOTUlOU0hPUFBBWU1FTlQABgIFIFVTRFQECGN1clN0YXRzCQELZ2V0V2xnU3RhdHMEAgAJAMwIAgUMcmVzdENvbnRyYWN0CQDMCAIFD3N0YWtpbmdDb250cmFjdAkAzAgCBQ9lY29ub215Q29udHJhY3QJAMwIAgULZ292Q29udHJhY3QJAMwIAgULd2xnQ29udHJhY3QJAMwIAgUScHV6emxlUG9vbENvbnRyYWN0CQDMCAIFEmludmVzdEZ1bmRDb250cmFjdAUDbmlsBQt1c2R0QXNzZXRJZAUHdXNkdEFtdAQMY3VyV2xnQW1vdW50CQCRAwIFCGN1clN0YXRzBQxpZHhXbGdBbW91bnQECGZ1bmRzVXNkCQCRAwIFCGN1clN0YXRzBQtpZHhXbGdGdW5kcwQId2xnUHJpY2UJAGsDBQhmdW5kc1VzZAUFTVVMVDgFDGN1cldsZ0Ftb3VudAQIYnV5UHJpY2UJAGsDBQh3bGdQcmljZQAGAAUECXdsZ0Ftb3VudAkAawMFB3VzZHRBbXQFBU1VTFQ4BQhidXlQcmljZQMJAGYCBQltaW5BbW91bnQFCXdsZ0Ftb3VudAkAAgECMFByaWNlIGNoYW5nZWQgZHVyaW5nIG9wZXJhdGlvbiwgcGxlYXNlIHRyeSBhZ2FpbgQMcHJvZml0QW1vdW50CQBpAgUHdXNkdEFtdAAGBApkZWx0YUZ1bmRzCQBlAgUHdXNkdEFtdAUMcHJvZml0QW1vdW50BAhyZWlzc3VlZAkAawMFDGN1cldsZ0Ftb3VudAUKZGVsdGFGdW5kcwUIZnVuZHNVc2QJAJQKAgkAzAgCCQEHUmVpc3N1ZQMFCndsZ0Fzc2V0SWQFCHJlaXNzdWVkBgkAzAgCCQEMSW50ZWdlckVudHJ5AgUSd2xnSXNzdWVkQW1vdW50S2V5CQBkAgUMY3VyV2xnQW1vdW50BQhyZWlzc3VlZAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQUEYWRkcggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAoggBBQ1wcm9maXRBZGRyS2V5BQxwcm9maXRBbW91bnQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgUJd2xnQW1vdW50BQp3bGdBc3NldElkBQNuaWwFDHByb2xvZ1Jlc3VsdAFpAQdzZWxsV2xnAQltaW5BbW91bnQEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAEJAAIBAiJleGFjdGx5IDEgcGF5bWVudCBtdXN0IGJlIGF0dGFjaGVkBANwbXQJAJEDAggFAWkIcGF5bWVudHMAAAQGd2xnQW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCFVdMR09MRCBwYXltZW50cyBvbmx5IQMJAQIhPQIFCnBtdEFzc2V0SWQFCndsZ0Fzc2V0SWQJAAIBAhVXTEdPTEQgcGF5bWVudHMgb25seSEEBmNhbGxlcggFAWkGY2FsbGVyBARhZGRyCQClCAEFBmNhbGxlcgQHbWF4VXNkdAkBDGdldFN3YXBMaW1pdAEFBGFkZHIECGN1clN0YXRzCQELZ2V0V2xnU3RhdHMEAgAJAMwIAgUMcmVzdENvbnRyYWN0CQDMCAIFD3N0YWtpbmdDb250cmFjdAkAzAgCBQ9lY29ub215Q29udHJhY3QJAMwIAgULZ292Q29udHJhY3QJAMwIAgULd2xnQ29udHJhY3QJAMwIAgUScHV6emxlUG9vbENvbnRyYWN0CQDMCAIFEmludmVzdEZ1bmRDb250cmFjdAUDbmlsBQt1c2R0QXNzZXRJZAAABAxjdXJXbGdBbW91bnQJAJEDAgUIY3VyU3RhdHMFDGlkeFdsZ0Ftb3VudAQJc2VsbFByaWNlCQBrAwkAkQMCBQhjdXJTdGF0cwULaWR4V2xnUHJpY2UABAAFBAd1c2R0QW10CQBrAwUGd2xnQW10BQlzZWxsUHJpY2UFBU1VTFQ4AwkAZgIFB3VzZHRBbXQFB21heFVzZHQJAAIBCQCsAgIJAKwCAgIQWW91IGNhbiBnZXQgbWF4IAkBCmZpeGVkUG9pbnQCBQdtYXhVc2R0AAYCBSBVU0RUAwkAZgIFDk1JTlNIT1BQQVlNRU5UBQd1c2R0QW10CQACAQkArAICCQCsAgICEllvdSBjYW4gdHJhZGUgbWluIAkBCmZpeGVkUG9pbnQCBQ5NSU5TSE9QUEFZTUVOVAAGAgUgVVNEVAMJAGYCBQltaW5BbW91bnQFB3VzZHRBbXQJAAIBAjBQcmljZSBjaGFuZ2VkIGR1cmluZyBvcGVyYXRpb24sIHBsZWFzZSB0cnkgYWdhaW4EDHByb2ZpdEFtb3VudAkAaQIFB3VzZHRBbXQABAQGYnVybmVkCQBrAwkAZAIFB3VzZHRBbXQFDHByb2ZpdEFtb3VudAUMY3VyV2xnQW1vdW50CQCRAwIFCGN1clN0YXRzBQtpZHhXbGdGdW5kcwkAlAoCCQDMCAIJAQRCdXJuAgUKd2xnQXNzZXRJZAUGYnVybmVkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJ3bGdJc3N1ZWRBbW91bnRLZXkJAGUCBQxjdXJXbGdBbW91bnQFBmJ1cm5lZAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQUEYWRkcggFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAoggBBQ1wcm9maXRBZGRyS2V5BQxwcm9maXRBbW91bnQFC3VzZHRBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFBmNhbGxlcgUHdXNkdEFtdAULdXNkdEFzc2V0SWQFA25pbAUMcHJvbG9nUmVzdWx0AWkBBWNsYWltAAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAAkAAgECFE5vIHBheW1lbnRzIHJlcXVpcmVkBAdhY3Rpb25zCAkBDWNsYWltSW50ZXJuYWwBCQClCAEIBQFpBmNhbGxlcgJfMQkAlAoCBQdhY3Rpb25zBQxwcm9sb2dSZXN1bHQBaQESb25TdGFrZVVuc3Rha2VMYW5kAQRhZGRyAwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkBDWNsYWltSW50ZXJuYWwBBQRhZGRyAI1hySM=",
    "height": 2699023,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GtEuLs37Jn9PsBnEw44251korqSR7EFyYMXFz332XE29
Next: AZpenSdpDEr3T6NYRLJeAx6biDs47JvLuB2kCBBssEHQ

Diff: 

OldNewDifferences
159159     }
160160 
161161 
162-let KSALLOWWLGOLD = true
163-
164162 let chain = take(drop(this.bytes, 1), 1)
165163 
166164 let usdtAssetId = match chain {
319317     }
320318 
321319 
322-func claimInternal (addr) = if (!(KSALLOWWLGOLD))
323-    then $Tuple2(nil, 0)
324-    else {
325-        let caller = addressFromStringValue(addr)
326-        let curStats = getWlgStats(addr, [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0)
327-        let now = lastBlock.timestamp
328-        let issueTime = curStats[idxWlgIssueTime]
329-        let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
330-        let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
331-        let teamAmountLeft = curStats[idxWlgTeamAmLeft]
332-        let teamAmount = curStats[idxWlgTeamAmAvailNow]
333-        let actAmountLeft = curStats[idxWlgActAmLeft]
334-        let actAmount = curStats[idxWlgActAmAvailNow]
335-        if (((now - issueTime) > CHECKTIME))
336-            then throw("Please modify contract for next 1.5 years, according to stats")
337-            else {
338-                let userAmount = curStats[idxWlgUserAmAvailNow]
339-                let userKey = keyStakersAmountPaidUser(addr)
340-                $Tuple2([ScriptTransfer(addressFromStringValue(value(getString(marketingAddrKey))), marketingAmount, wlgAssetId), ScriptTransfer(addressFromStringValue(value(getString(teamAddrKey))), teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), ScriptTransfer(caller, userAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userAmount)), IntegerEntry(stakersAmountLeftKey, (curStats[idxWlgAmLeftTotal] - userAmount)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(keyLastClaimedTimeByUser(addr), now)], userAmount)
341-                }
342-        }
320+func claimInternal (addr) = {
321+    let caller = addressFromStringValue(addr)
322+    let curStats = getWlgStats(addr, [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0)
323+    let now = lastBlock.timestamp
324+    let issueTime = curStats[idxWlgIssueTime]
325+    let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
326+    let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
327+    let teamAmountLeft = curStats[idxWlgTeamAmLeft]
328+    let teamAmount = curStats[idxWlgTeamAmAvailNow]
329+    let actAmountLeft = curStats[idxWlgActAmLeft]
330+    let actAmount = curStats[idxWlgActAmAvailNow]
331+    if (((now - issueTime) > CHECKTIME))
332+        then throw("Please modify contract for next 1.5 years, according to stats")
333+        else {
334+            let userAmount = curStats[idxWlgUserAmAvailNow]
335+            let userKey = keyStakersAmountPaidUser(addr)
336+            $Tuple2([ScriptTransfer(addressFromStringValue(value(getString(marketingAddrKey))), marketingAmount, wlgAssetId), ScriptTransfer(addressFromStringValue(value(getString(teamAddrKey))), teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), ScriptTransfer(caller, userAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userAmount)), IntegerEntry(stakersAmountLeftKey, (curStats[idxWlgAmLeftTotal] - userAmount)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(keyLastClaimedTimeByUser(addr), now)], userAmount)
337+            }
338+    }
343339 
344340 
345341 @Callable(i)
357353 
358354 
359355 @Callable(i)
360-func buyWlg (minAmount) = if (!(KSALLOWWLGOLD))
361-    then $Tuple2(nil, 0)
362-    else {
363-        let prologResult = prolog()
364-        if ((size(i.payments) != 1))
365-            then throw("exactly 1 payment must be attached")
366-            else {
367-                let pmt = i.payments[0]
368-                let usdtAmt = pmt.amount
369-                let pmtAssetId = valueOrErrorMessage(pmt.assetId, "USDT payments only!")
370-                if ((pmtAssetId != usdtAssetId))
371-                    then throw("USDT payments only!")
372-                    else {
373-                        let caller = i.caller
374-                        let addr = toString(caller)
375-                        let maxUsdt = getSwapLimit(addr)
376-                        if ((usdtAmt > maxUsdt))
377-                            then throw((("You can spend max " + fixedPoint(maxUsdt, 6)) + " USDT"))
378-                            else if ((MINSHOPPAYMENT > usdtAmt))
379-                                then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
380-                                else {
381-                                    let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, usdtAmt)
382-                                    let curWlgAmount = curStats[idxWlgAmount]
383-                                    let fundsUsd = curStats[idxWlgFunds]
384-                                    let wlgPrice = fraction(fundsUsd, MULT8, curWlgAmount)
385-                                    let buyPrice = fraction(wlgPrice, 6, 5)
386-                                    let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
387-                                    if ((minAmount > wlgAmount))
388-                                        then throw("Price changed during operation, please try again")
389-                                        else {
390-                                            let profitAmount = (usdtAmt / 6)
391-                                            let deltaFunds = (usdtAmt - profitAmount)
392-                                            let reissued = fraction(curWlgAmount, deltaFunds, fundsUsd)
393-                                            $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)
394-                                            }
395-                                    }
396-                        }
397-                }
398-        }
356+func buyWlg (minAmount) = {
357+    let prologResult = prolog()
358+    if ((size(i.payments) != 1))
359+        then throw("exactly 1 payment must be attached")
360+        else {
361+            let pmt = i.payments[0]
362+            let usdtAmt = pmt.amount
363+            let pmtAssetId = valueOrErrorMessage(pmt.assetId, "USDT payments only!")
364+            if ((pmtAssetId != usdtAssetId))
365+                then throw("USDT payments only!")
366+                else {
367+                    let caller = i.caller
368+                    let addr = toString(caller)
369+                    let maxUsdt = getSwapLimit(addr)
370+                    if ((usdtAmt > maxUsdt))
371+                        then throw((("You can spend max " + fixedPoint(maxUsdt, 6)) + " USDT"))
372+                        else if ((MINSHOPPAYMENT > usdtAmt))
373+                            then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
374+                            else {
375+                                let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, usdtAmt)
376+                                let curWlgAmount = curStats[idxWlgAmount]
377+                                let fundsUsd = curStats[idxWlgFunds]
378+                                let wlgPrice = fraction(fundsUsd, MULT8, curWlgAmount)
379+                                let buyPrice = fraction(wlgPrice, 6, 5)
380+                                let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
381+                                if ((minAmount > wlgAmount))
382+                                    then throw("Price changed during operation, please try again")
383+                                    else {
384+                                        let profitAmount = (usdtAmt / 6)
385+                                        let deltaFunds = (usdtAmt - profitAmount)
386+                                        let reissued = fraction(curWlgAmount, deltaFunds, fundsUsd)
387+                                        $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)
388+                                        }
389+                                }
390+                    }
391+            }
392+    }
399393 
400394 
401395 
402396 @Callable(i)
403-func sellWlg (minAmount) = if (!(KSALLOWWLGOLD))
404-    then $Tuple2(nil, 0)
405-    else {
406-        let prologResult = prolog()
407-        if ((size(i.payments) != 1))
408-            then throw("exactly 1 payment must be attached")
409-            else {
410-                let pmt = i.payments[0]
411-                let wlgAmt = pmt.amount
412-                let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WLGOLD payments only!")
413-                if ((pmtAssetId != wlgAssetId))
414-                    then throw("WLGOLD payments only!")
415-                    else {
416-                        let caller = i.caller
417-                        let addr = toString(caller)
418-                        let maxUsdt = getSwapLimit(addr)
419-                        let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0)
420-                        let curWlgAmount = curStats[idxWlgAmount]
421-                        let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
422-                        let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
423-                        if ((usdtAmt > maxUsdt))
424-                            then throw((("You can get max " + fixedPoint(maxUsdt, 6)) + " USDT"))
425-                            else if ((MINSHOPPAYMENT > usdtAmt))
426-                                then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
427-                                else if ((minAmount > usdtAmt))
428-                                    then throw("Price changed during operation, please try again")
429-                                    else {
430-                                        let profitAmount = (usdtAmt / 4)
431-                                        let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
432-                                        $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)
433-                                        }
434-                        }
435-                }
436-        }
397+func sellWlg (minAmount) = {
398+    let prologResult = prolog()
399+    if ((size(i.payments) != 1))
400+        then throw("exactly 1 payment must be attached")
401+        else {
402+            let pmt = i.payments[0]
403+            let wlgAmt = pmt.amount
404+            let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WLGOLD payments only!")
405+            if ((pmtAssetId != wlgAssetId))
406+                then throw("WLGOLD payments only!")
407+                else {
408+                    let caller = i.caller
409+                    let addr = toString(caller)
410+                    let maxUsdt = getSwapLimit(addr)
411+                    let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0)
412+                    let curWlgAmount = curStats[idxWlgAmount]
413+                    let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
414+                    let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
415+                    if ((usdtAmt > maxUsdt))
416+                        then throw((("You can get max " + fixedPoint(maxUsdt, 6)) + " USDT"))
417+                        else if ((MINSHOPPAYMENT > usdtAmt))
418+                            then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
419+                            else if ((minAmount > usdtAmt))
420+                                then throw("Price changed during operation, please try again")
421+                                else {
422+                                    let profitAmount = (usdtAmt / 4)
423+                                    let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
424+                                    $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)
425+                                    }
426+                    }
427+            }
428+    }
437429 
438430 
439431 

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 DAY = 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 let idxWlgAmount = 0
5858 
5959 let idxWlgPrice = 1
6060 
6161 let idxWlgFunds = 2
6262 
6363 let idxWlgIssueTime = 7
6464 
6565 let idxWlgMarketingAmLeft = 10
6666 
6767 let idxWlgMarketingAmAvailNow = 11
6868 
6969 let idxWlgTeamAmLeft = 14
7070 
7171 let idxWlgTeamAmAvailNow = 15
7272 
7373 let idxWlgActAmLeft = 18
7474 
7575 let idxWlgActAmAvailNow = 19
7676 
7777 let idxWlgAmLeftTotal = 22
7878 
7979 let idxWlgUserAmAvailNow = 25
8080 
8181 let dappRest = 0
8282 
8383 let dappStaking = 1
8484 
8585 let dappEconomy = 2
8686 
8787 let dappWlg = 4
8888 
8989 let dappPuzzle = 5
9090 
9191 let dappInvestFund = 6
9292 
9393 func getPieces (userAddrStrOrEmpty,stakingContract) = {
9494     let props = split(valueOrElse(getString(stakingContract, "resTypesProportions"), "0_0_0_0_0_0"), "_")
9595     func adder (acc,item) =     (acc + parseIntValue(item))
9696 
9797     let totalPower = {
9898         let $l = props
9999         let $s = size($l)
100100         let $acc0 = 0
101101         func $f0_1 ($a,$i) =         if (($i >= $s))
102102             then $a
103103             else adder($a, $l[$i])
104104 
105105         func $f0_2 ($a,$i) =         if (($i >= $s))
106106             then $a
107107             else throw("List size exceeds 6")
108108 
109109         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
110110         }
111111     let usersPower = valueOrElse(getInteger(stakingContract, ("stakedPiecesByOwner_" + userAddrStrOrEmpty)), 0)
112112 [totalPower, usersPower]
113113     }
114114 
115115 
116116 func getWlgStats (userAddrOpt,contracts,usdtId,usdtBalanceCorrection) = {
117117     let issuedAmount = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssuedAmountKey), "WLGOLD is not issued yet")
118118     let economyUsd = assetBalance(contracts[dappEconomy], usdtId)
119119     let restUsd = assetBalance(contracts[dappRest], usdtId)
120120     let wlgUsd = (assetBalance(contracts[dappWlg], usdtId) - usdtBalanceCorrection)
121121     let puzzleUsd = assetBalance(contracts[dappPuzzle], usdtId)
122122     let investFundContract = contracts[dappInvestFund]
123123     let investFundTotal = (assetBalance(investFundContract, usdtId) + valueOrElse(getInteger(investFundContract, zbIssuedAmountKey), 0))
124124     let totalFundsUsd = ((economyUsd + wlgUsd) + investFundTotal)
125125     let wlgId = valueOrErrorMessage(getBinary(contracts[dappWlg], "wlg_assetId"), "Not initialized yet")
126126     let now = lastBlock.timestamp
127127     let issueTime = valueOrErrorMessage(getInteger(contracts[dappWlg], wlgIssueTimeKey), "Not initialized")
128128     let marketingTotal = fraction(MILLION6, MARKETINGSHARE, M6)
129129     let marketingAmountLeft = valueOrElse(getInteger(contracts[dappWlg], marketingAmountLeftKey), marketingTotal)
130130     let lastMarketingTime = valueOrElse(getInteger(contracts[dappWlg], lastMarketingTimeKey), issueTime)
131131     let marketingAddr = addressFromStringValue(value(getString(contracts[dappWlg], marketingAddrKey)))
132132     let marketingAmountAvailableNow = min([fraction(marketingTotal, (now - lastMarketingTime), YEARMILLIS), marketingAmountLeft])
133133     let marketingWlgold = assetBalance(marketingAddr, wlgId)
134134     let teamTotal = fraction(MILLION6, TEAMSHARE, M6)
135135     let teamAmountLeft = valueOrElse(getInteger(contracts[dappWlg], teamAmountLeftKey), teamTotal)
136136     let lastTeamTime = valueOrElse(getInteger(contracts[dappWlg], lastTeamTimeKey), issueTime)
137137     let teamAddr = addressFromStringValue(value(getString(contracts[dappWlg], teamAddrKey)))
138138     let teamAmountAvailableNow = min([fraction(teamTotal, (now - lastTeamTime), (3 * YEARMILLIS)), teamAmountLeft])
139139     let teamWlgold = assetBalance(teamAddr, wlgId)
140140     let actTotal = fraction(MILLION6, ACTIVITYSHARE, M6)
141141     let actAmountLeft = valueOrElse(getInteger(contracts[dappWlg], actAmountLeftKey), actTotal)
142142     let lastActivitiesTime = valueOrElse(getInteger(contracts[dappWlg], lastActivitiesTimeKey), issueTime)
143143     let actAmountAvailableNow = min([fraction(actTotal, (now - lastActivitiesTime), (3 * YEARMILLIS)), actAmountLeft])
144144     let actWlgold = assetBalance(contracts[dappRest], wlgId)
145145     let lastUserTime = valueOrElse(getInteger(contracts[dappWlg], keyLastClaimedTimeByUser(userAddrOpt)), issueTime)
146146     let lastUserPeriod = ((lastUserTime - issueTime) / YEARMILLIS)
147147     let nowLimited = min([now, (issueTime + (3 * YEARMILLIS))])
148148     let curPeriod = min([((now - issueTime) / YEARMILLIS), 2])
149149     let eff = getPieces(userAddrOpt, contracts[dappStaking])
150150     let curPeriodDistribution = distributionByPeriod(curPeriod)
151151     let userAmount = fraction(if ((lastUserPeriod == curPeriod))
152152         then fraction(curPeriodDistribution, (nowLimited - lastUserTime), YEARMILLIS)
153153         else if ((lastUserPeriod == (curPeriod - 1)))
154154             then (fraction(distributionByPeriod((curPeriod - 1)), ((issueTime + (YEARMILLIS * curPeriod)) - lastUserTime), YEARMILLIS) + fraction(curPeriodDistribution, (nowLimited - (issueTime + (YEARMILLIS * curPeriod))), YEARMILLIS))
155155             else ((fraction(distributionByPeriod((curPeriod - 2)), ((issueTime + (YEARMILLIS * (curPeriod - 1))) - lastUserTime), YEARMILLIS) + distributionByPeriod((curPeriod - 1))) + fraction(curPeriodDistribution, (nowLimited - (issueTime + (YEARMILLIS * curPeriod))), YEARMILLIS)), eff[1], eff[0])
156156     let sLandDailyAmount = fraction(fraction(curPeriodDistribution, DAY, YEARMILLIS), 25, eff[0])
157157     let amountLeftTotal = valueOrElse(getInteger(contracts[dappWlg], stakersAmountLeftKey), 0)
158158 [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, userAmount, sLandDailyAmount, investFundTotal]
159159     }
160160 
161161 
162-let KSALLOWWLGOLD = true
163-
164162 let chain = take(drop(this.bytes, 1), 1)
165163 
166164 let usdtAssetId = match chain {
167165     case _ => 
168166         if ((base58'2W' == $match0))
169167             then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
170168             else if ((base58'2T' == $match0))
171169                 then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
172170                 else throw("Unknown chain")
173171 }
174172 
175173 let defaultRestAddressStr = match chain {
176174     case _ => 
177175         if ((base58'2W' == $match0))
178176             then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
179177             else if ((base58'2T' == $match0))
180178                 then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
181179                 else throw("Unknown chain")
182180 }
183181 
184182 let arbitrageDelay = match chain {
185183     case _ => 
186184         if ((base58'2W' == $match0))
187185             then 600000
188186             else if ((base58'2T' == $match0))
189187                 then 60000
190188                 else throw("Unknown chain")
191189 }
192190 
193191 let SEP = "__"
194192 
195193 let MULT6 = 1000000
196194 
197195 let MULT8 = 100000000
198196 
199197 let MINSHOPPAYMENT = 100000
200198 
201199 func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
202200 
203201 
204202 let IdxCfgStakingDapp = 1
205203 
206204 let IdxCfgEconomyDapp = 2
207205 
208206 let IdxCfgGovernanceDapp = 3
209207 
210208 let IdxCfgWlgDapp = 4
211209 
212210 let IdxCfgPuzzlePoolDapp = 5
213211 
214212 let IdxCfgInvestFundDapp = 6
215213 
216214 func keyRestCfg () = "%s__restConfig"
217215 
218216 
219217 func keyRestAddress () = "%s__restAddr"
220218 
221219 
222220 func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
223221 
224222 
225223 func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
226224 
227225 
228226 let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
229227 
230228 let restCfg = readRestCfgOrFail(restContract)
231229 
232230 let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
233231 
234232 let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
235233 
236234 let govContract = getContractAddressOrFail(restCfg, IdxCfgGovernanceDapp)
237235 
238236 let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
239237 
240238 let puzzlePoolContract = getContractAddressOrFail(restCfg, IdxCfgPuzzlePoolDapp)
241239 
242240 let investFundContract = getContractAddressOrFail(restCfg, IdxCfgInvestFundDapp)
243241 
244242 let wlgAssetIdKey = "wlg_assetId"
245243 
246244 let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "Not initialized yet")
247245 
248246 let IdxEffUser = 1
249247 
250248 func keyResProportions () = "resTypesProportions"
251249 
252250 
253251 func keyStakedPiecesByOwner (ownerAddr) = ("stakedPiecesByOwner_" + ownerAddr)
254252 
255253 
256254 func asInt (v) = match v {
257255     case n: Int => 
258256         n
259257     case _ => 
260258         throw("fail to cast into Int")
261259 }
262260 
263261 
264262 func getVotingPower (userAddrStrOrEmpty) = {
265263     let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
266264     func adder (acc,item) =     (acc + parseIntValue(item))
267265 
268266     let totalPower = {
269267         let $l = props
270268         let $s = size($l)
271269         let $acc0 = 0
272270         func $f0_1 ($a,$i) =         if (($i >= $s))
273271             then $a
274272             else adder($a, $l[$i])
275273 
276274         func $f0_2 ($a,$i) =         if (($i >= $s))
277275             then $a
278276             else throw("List size exceeds 6")
279277 
280278         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
281279         }
282280     let usersPower = valueOrElse(getInteger(stakingContract, keyStakedPiecesByOwner(userAddrStrOrEmpty)), 0)
283281 [totalPower, usersPower]
284282     }
285283 
286284 
287285 func fixedPoint (val,decimals) = {
288286     let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
289287     let lowPart = toString((val % tenPow))
290288     let zeroes = drop(toString(tenPow), (1 + size(lowPart)))
291289     (((toString((val / tenPow)) + ".") + zeroes) + lowPart)
292290     }
293291 
294292 
295293 let A6 = 100000000
296294 
297295 let B8 = 50000000
298296 
299297 let profitAddrKey = "profitAddr"
300298 
301299 let stakersAmountPaidTotalKey = "stakersAmountPaidTotal"
302300 
303301 func keyStakersAmountPaidUser (addr) = ("stakersAmountPaidUser_" + addr)
304302 
305303 
306304 func prolog () = asInt(invoke(stakingContract, "saveLastTx", nil, nil))
307305 
308306 
309307 func getSwapLimit (addr) = {
310308     let lastTime = valueOrElse(getInteger(keyLastArbTimeByUser(addr)), 0)
311309     let now = lastBlock.timestamp
312310     if ((arbitrageDelay > (now - lastTime)))
313311         then throw((("Arbitrages are possible once a " + toString((arbitrageDelay / 60000))) + "min"))
314312         else {
315313             let pieces = getVotingPower(addr)[IdxEffUser]
316314             let pow8 = pow(pieces, 0, B8, 8, 8, CEILING)
317315             fraction(A6, pow8, MULT8)
318316             }
319317     }
320318 
321319 
322-func claimInternal (addr) = if (!(KSALLOWWLGOLD))
323-    then $Tuple2(nil, 0)
324-    else {
325-        let caller = addressFromStringValue(addr)
326-        let curStats = getWlgStats(addr, [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0)
327-        let now = lastBlock.timestamp
328-        let issueTime = curStats[idxWlgIssueTime]
329-        let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
330-        let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
331-        let teamAmountLeft = curStats[idxWlgTeamAmLeft]
332-        let teamAmount = curStats[idxWlgTeamAmAvailNow]
333-        let actAmountLeft = curStats[idxWlgActAmLeft]
334-        let actAmount = curStats[idxWlgActAmAvailNow]
335-        if (((now - issueTime) > CHECKTIME))
336-            then throw("Please modify contract for next 1.5 years, according to stats")
337-            else {
338-                let userAmount = curStats[idxWlgUserAmAvailNow]
339-                let userKey = keyStakersAmountPaidUser(addr)
340-                $Tuple2([ScriptTransfer(addressFromStringValue(value(getString(marketingAddrKey))), marketingAmount, wlgAssetId), ScriptTransfer(addressFromStringValue(value(getString(teamAddrKey))), teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), ScriptTransfer(caller, userAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userAmount)), IntegerEntry(stakersAmountLeftKey, (curStats[idxWlgAmLeftTotal] - userAmount)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(keyLastClaimedTimeByUser(addr), now)], userAmount)
341-                }
342-        }
320+func claimInternal (addr) = {
321+    let caller = addressFromStringValue(addr)
322+    let curStats = getWlgStats(addr, [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0)
323+    let now = lastBlock.timestamp
324+    let issueTime = curStats[idxWlgIssueTime]
325+    let marketingAmountLeft = curStats[idxWlgMarketingAmLeft]
326+    let marketingAmount = curStats[idxWlgMarketingAmAvailNow]
327+    let teamAmountLeft = curStats[idxWlgTeamAmLeft]
328+    let teamAmount = curStats[idxWlgTeamAmAvailNow]
329+    let actAmountLeft = curStats[idxWlgActAmLeft]
330+    let actAmount = curStats[idxWlgActAmAvailNow]
331+    if (((now - issueTime) > CHECKTIME))
332+        then throw("Please modify contract for next 1.5 years, according to stats")
333+        else {
334+            let userAmount = curStats[idxWlgUserAmAvailNow]
335+            let userKey = keyStakersAmountPaidUser(addr)
336+            $Tuple2([ScriptTransfer(addressFromStringValue(value(getString(marketingAddrKey))), marketingAmount, wlgAssetId), ScriptTransfer(addressFromStringValue(value(getString(teamAddrKey))), teamAmount, wlgAssetId), ScriptTransfer(restContract, actAmount, wlgAssetId), ScriptTransfer(caller, userAmount, wlgAssetId), IntegerEntry(userKey, (valueOrElse(getInteger(userKey), 0) + userAmount)), IntegerEntry(stakersAmountPaidTotalKey, (valueOrElse(getInteger(stakersAmountPaidTotalKey), 0) + userAmount)), IntegerEntry(stakersAmountLeftKey, (curStats[idxWlgAmLeftTotal] - userAmount)), IntegerEntry(marketingAmountLeftKey, (marketingAmountLeft - marketingAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(teamAmountLeftKey, (teamAmountLeft - teamAmount)), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(actAmountLeftKey, (actAmountLeft - actAmount)), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(keyLastClaimedTimeByUser(addr), now)], userAmount)
337+            }
338+    }
343339 
344340 
345341 @Callable(i)
346342 func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
347343     then throw("Permission denied")
348344     else if (isDefined(getBinary(wlgAssetIdKey)))
349345         then throw("Already initialized")
350346         else {
351347             let issuedAmount = MILLION6
352348             let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
353349             let assetId = calculateAssetId(issue)
354350 [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)]
355351             }
356352 
357353 
358354 
359355 @Callable(i)
360-func buyWlg (minAmount) = if (!(KSALLOWWLGOLD))
361-    then $Tuple2(nil, 0)
362-    else {
363-        let prologResult = prolog()
364-        if ((size(i.payments) != 1))
365-            then throw("exactly 1 payment must be attached")
366-            else {
367-                let pmt = i.payments[0]
368-                let usdtAmt = pmt.amount
369-                let pmtAssetId = valueOrErrorMessage(pmt.assetId, "USDT payments only!")
370-                if ((pmtAssetId != usdtAssetId))
371-                    then throw("USDT payments only!")
372-                    else {
373-                        let caller = i.caller
374-                        let addr = toString(caller)
375-                        let maxUsdt = getSwapLimit(addr)
376-                        if ((usdtAmt > maxUsdt))
377-                            then throw((("You can spend max " + fixedPoint(maxUsdt, 6)) + " USDT"))
378-                            else if ((MINSHOPPAYMENT > usdtAmt))
379-                                then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
380-                                else {
381-                                    let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, usdtAmt)
382-                                    let curWlgAmount = curStats[idxWlgAmount]
383-                                    let fundsUsd = curStats[idxWlgFunds]
384-                                    let wlgPrice = fraction(fundsUsd, MULT8, curWlgAmount)
385-                                    let buyPrice = fraction(wlgPrice, 6, 5)
386-                                    let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
387-                                    if ((minAmount > wlgAmount))
388-                                        then throw("Price changed during operation, please try again")
389-                                        else {
390-                                            let profitAmount = (usdtAmt / 6)
391-                                            let deltaFunds = (usdtAmt - profitAmount)
392-                                            let reissued = fraction(curWlgAmount, deltaFunds, fundsUsd)
393-                                            $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)
394-                                            }
395-                                    }
396-                        }
397-                }
398-        }
356+func buyWlg (minAmount) = {
357+    let prologResult = prolog()
358+    if ((size(i.payments) != 1))
359+        then throw("exactly 1 payment must be attached")
360+        else {
361+            let pmt = i.payments[0]
362+            let usdtAmt = pmt.amount
363+            let pmtAssetId = valueOrErrorMessage(pmt.assetId, "USDT payments only!")
364+            if ((pmtAssetId != usdtAssetId))
365+                then throw("USDT payments only!")
366+                else {
367+                    let caller = i.caller
368+                    let addr = toString(caller)
369+                    let maxUsdt = getSwapLimit(addr)
370+                    if ((usdtAmt > maxUsdt))
371+                        then throw((("You can spend max " + fixedPoint(maxUsdt, 6)) + " USDT"))
372+                        else if ((MINSHOPPAYMENT > usdtAmt))
373+                            then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
374+                            else {
375+                                let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, usdtAmt)
376+                                let curWlgAmount = curStats[idxWlgAmount]
377+                                let fundsUsd = curStats[idxWlgFunds]
378+                                let wlgPrice = fraction(fundsUsd, MULT8, curWlgAmount)
379+                                let buyPrice = fraction(wlgPrice, 6, 5)
380+                                let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
381+                                if ((minAmount > wlgAmount))
382+                                    then throw("Price changed during operation, please try again")
383+                                    else {
384+                                        let profitAmount = (usdtAmt / 6)
385+                                        let deltaFunds = (usdtAmt - profitAmount)
386+                                        let reissued = fraction(curWlgAmount, deltaFunds, fundsUsd)
387+                                        $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)
388+                                        }
389+                                }
390+                    }
391+            }
392+    }
399393 
400394 
401395 
402396 @Callable(i)
403-func sellWlg (minAmount) = if (!(KSALLOWWLGOLD))
404-    then $Tuple2(nil, 0)
405-    else {
406-        let prologResult = prolog()
407-        if ((size(i.payments) != 1))
408-            then throw("exactly 1 payment must be attached")
409-            else {
410-                let pmt = i.payments[0]
411-                let wlgAmt = pmt.amount
412-                let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WLGOLD payments only!")
413-                if ((pmtAssetId != wlgAssetId))
414-                    then throw("WLGOLD payments only!")
415-                    else {
416-                        let caller = i.caller
417-                        let addr = toString(caller)
418-                        let maxUsdt = getSwapLimit(addr)
419-                        let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0)
420-                        let curWlgAmount = curStats[idxWlgAmount]
421-                        let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
422-                        let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
423-                        if ((usdtAmt > maxUsdt))
424-                            then throw((("You can get max " + fixedPoint(maxUsdt, 6)) + " USDT"))
425-                            else if ((MINSHOPPAYMENT > usdtAmt))
426-                                then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
427-                                else if ((minAmount > usdtAmt))
428-                                    then throw("Price changed during operation, please try again")
429-                                    else {
430-                                        let profitAmount = (usdtAmt / 4)
431-                                        let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
432-                                        $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)
433-                                        }
434-                        }
435-                }
436-        }
397+func sellWlg (minAmount) = {
398+    let prologResult = prolog()
399+    if ((size(i.payments) != 1))
400+        then throw("exactly 1 payment must be attached")
401+        else {
402+            let pmt = i.payments[0]
403+            let wlgAmt = pmt.amount
404+            let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WLGOLD payments only!")
405+            if ((pmtAssetId != wlgAssetId))
406+                then throw("WLGOLD payments only!")
407+                else {
408+                    let caller = i.caller
409+                    let addr = toString(caller)
410+                    let maxUsdt = getSwapLimit(addr)
411+                    let curStats = getWlgStats("", [restContract, stakingContract, economyContract, govContract, wlgContract, puzzlePoolContract, investFundContract], usdtAssetId, 0)
412+                    let curWlgAmount = curStats[idxWlgAmount]
413+                    let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
414+                    let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
415+                    if ((usdtAmt > maxUsdt))
416+                        then throw((("You can get max " + fixedPoint(maxUsdt, 6)) + " USDT"))
417+                        else if ((MINSHOPPAYMENT > usdtAmt))
418+                            then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
419+                            else if ((minAmount > usdtAmt))
420+                                then throw("Price changed during operation, please try again")
421+                                else {
422+                                    let profitAmount = (usdtAmt / 4)
423+                                    let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
424+                                    $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)
425+                                    }
426+                    }
427+            }
428+    }
437429 
438430 
439431 
440432 @Callable(i)
441433 func claim () = {
442434     let prologResult = prolog()
443435     if ((size(i.payments) != 0))
444436         then throw("No payments required")
445437         else {
446438             let actions = claimInternal(toString(i.caller))._1
447439             $Tuple2(actions, prologResult)
448440             }
449441     }
450442 
451443 
452444 
453445 @Callable(i)
454446 func onStakeUnstakeLand (addr) = if ((i.caller != stakingContract))
455447     then throw("Permission denied")
456448     else claimInternal(addr)
457449 
458450 
github/deemru/w8io/026f985 
53.72 ms ◑