w8 · tx · 5eT···5GY

tx · 5eTMVtCYSrwvhFganzLDzpJPPP6PpvjvD6D7VZEP15GY

3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z:  -0.01600000 Waves

2024.09.01 21:13 [3264839] smart account 3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5eTMVtCYSrwvhFganzLDzpJPPP6PpvjvD6D7VZEP15GY",
    "fee": 1600000,
    "feeAssetId": null,
    "timestamp": 1725214401813,
    "version": 2,
    "chainId": 84,
    "sender": "3NCGjbgqZVk7eaqrLMEnEnqRhozNm1KTG5z",
    "senderPublicKey": "5CoDbXxoqnvJpx9GrS6M4G5GYJXh9rcoiXJz7RYTPVkL",
    "proofs": [
        "4Nbi9JmhsdKsB9E1BvvvD15vRTXdHToJqjGBQfseLnZ2na3EfL9sqhePufxH3h6ABcHySMSpRX4w6b1aYSUnEpqM"
    ],
    "script": "base64:BgIbCAISBgoECAgICBIDCgEBEgMKAQESABIDCgEIVgADU0VQAgJfXwAFTVVMVDYAwIQ9AAVNVUxUOACAwtcvAA5NSU5TSE9QUEFZTUVOVACgjQYACkRBWV9NSUxMSVMAgLiZKQAFY2hhaW4JAMkBAgkAygECCAUEdGhpcwVieXRlcwABAAEAC3VzZHRBc3NldElkBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwASCE2nqyCAM/TtG7yo7ui5O8yYLdC136B5ao1CP5qA//uQMJAAACAQFUBQckbWF0Y2gwASBVsdifcoeC7+XjW42sBatl3ppDoS8WuwXzGreHpfHFGAkAAgECDVVua25vd24gY2hhaW4AFWRlZmF1bHRSZXN0QWRkcmVzc1N0cgQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAIFM1AuLi4DCQAAAgEBVAUHJG1hdGNoMAIFM00uLi4JAAIBAg1Vbmtub3duIGNoYWluAA5hcmJpdHJhZ2VEZWxheQQHJG1hdGNoMAUFY2hhaW4DCQAAAgEBVwUHJG1hdGNoMAUKREFZX01JTExJUwMJAAACAQFUBQckbWF0Y2gwAODUAwkAAgECDVVua25vd24gY2hhaW4BD2dldFN0cmluZ09yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAAA9JZHhDZmdBY3Jlc0RhcHAAAQANSWR4Q2ZnV2xnRGFwcAACABRJZHhDZmdQdXp6bGVQb29sRGFwcAAEABRJZHhDZmdJbnZlc3RGdW5kRGFwcAAFAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFD0lkeENmZ0FjcmVzRGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ1JZHhDZmdXbGdEYXBwABJwdXp6bGVQb29sQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRRJZHhDZmdQdXp6bGVQb29sRGFwcAASaW52ZXN0RnVuZENvbnRyYWN0CQEYZ2V0Q29udHJhY3RBZGRyZXNzT3JGYWlsAgUHcmVzdENmZwUUSWR4Q2ZnSW52ZXN0RnVuZERhcHAADXdsZ0Fzc2V0SWRLZXkCC3dsZ19hc3NldElkAAp3bGdBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJwIAgULd2xnQ29udHJhY3QFDXdsZ0Fzc2V0SWRLZXkCGFdMR09MRCBpcyBub3QgaXNzdWVkIHlldAEFYXNJbnQBAXYEByRtYXRjaDAFAXYDCQABAgUHJG1hdGNoMAIDSW50BAFuBQckbWF0Y2gwBQFuCQACAQIVZmFpbCB0byBjYXN0IGludG8gSW50AAxpZHhXbGdBbW91bnQAAAALaWR4V2xnUHJpY2UAAQALaWR4V2xnRnVuZHMAAgAPaWR4V2xnSXNzdWVUaW1lAAYAFWlkeFdsZ01hcmtldGluZ0FtTGVmdAAJABlpZHhXbGdNYXJrZXRpbmdBbUF2YWlsTm93AAoAEGlkeFdsZ1RlYW1BbUxlZnQADQAUaWR4V2xnVGVhbUFtQXZhaWxOb3cADgAPaWR4V2xnQWN0QW1MZWZ0ABEAE2lkeFdsZ0FjdEFtQXZhaWxOb3cAEgARaWR4V2xnQW1MZWZ0VG90YWwAFQAUaWR4V2xnVXNlckFtQXZhaWxOb3cAGAAUaWR4V2xnVXNlclRvdGFsQXZhaWwAGgARaWR4V2xnRWZmVXNlclRpbWUAGwASaWR4V2xnQmFua0F2YWlsTm93ABwBCmZpeGVkUG9pbnQCA3ZhbAhkZWNpbWFscwQGdGVuUG93CQBsBgAKAAAFCGRlY2ltYWxzAAAAAAUERE9XTgQHbG93UGFydAkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cEBnplcm9lcwkAsAICCQCkAwEFBnRlblBvdwkAZAIAAQkAsQIBBQdsb3dQYXJ0CQCsAgIJAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgUGemVyb2VzBQdsb3dQYXJ0AAJNNgDAhD0AAk04AIDC1y8ACE1JTExJT042AICA6YOx3hYADk1BUktFVElOR1NIQVJFAKCNBgAJVEVBTVNIQVJFAMCaDAANQUNUSVZJVFlTSEFSRQCgjQYAC1BMQVlFUlNIQVJFAIC1GAAKWUVBUk1JTExJUwCAhuvHdQAIQkFOS19GRUUA0IYDAAJjaAkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQATVVNEVF9UVkxfQ09SUkVDVElPTgQHJG1hdGNoMAUCY2gDCQAAAgEBVwUHJG1hdGNoMADw9ajABAMJAAACAQFUBQckbWF0Y2gwAAAJAAIBAg1Vbmtub3duIGNoYWluABBtYXJrZXRpbmdBZGRyS2V5Ag1tYXJrZXRpbmdBZGRyAAt0ZWFtQWRkcktleQIIdGVhbUFkZHIAFGxhc3RNYXJrZXRpbmdUaW1lS2V5AhlsYXN0Q2xhaW1lZFRpbWVfbWFya2V0aW5nABZtYXJrZXRpbmdBbW91bnRMZWZ0S2V5AhNtYXJrZXRpbmdBbW91bnRMZWZ0AA9sYXN0VGVhbVRpbWVLZXkCFGxhc3RDbGFpbWVkVGltZV90ZWFtABF0ZWFtQW1vdW50TGVmdEtleQIOdGVhbUFtb3VudExlZnQAFWxhc3RBY3Rpdml0aWVzVGltZUtleQIabGFzdENsYWltZWRUaW1lX2FjdGl2aXRpZXMAEGFjdEFtb3VudExlZnRLZXkCFGFjdGl2aXRpZXNBbW91bnRMZWZ0ABRzdGFrZXJzQW1vdW50TGVmdEtleQIRc3Rha2Vyc0Ftb3VudExlZnQBGGtleUxhc3RDbGFpbWVkVGltZUJ5VXNlcgEEYWRkcgkArAICAhRsYXN0Q2xhaW1lZFRpbWVVc2VyXwUEYWRkcgEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBGFkZHIJAKwCAgIQbGFzdEFyYlRpbWVVc2VyXwUEYWRkcgEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBBnBlcmlvZAkAawMFCE1JTExJT042CQBoAgULUExBWUVSU0hBUkUJAGQCBQZwZXJpb2QAAQkAaAIABgUCTTYAD3dsZ0lzc3VlVGltZUtleQINd2xnX2lzc3VlVGltZQASd2xnSXNzdWVkQW1vdW50S2V5AhB3bGdfaXNzdWVkQW1vdW50ABF6Yklzc3VlZEFtb3VudEtleQISemJpbGxfaXNzdWVkQW1vdW50ARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEEYWRkcgkArAICAhhhY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcl8FBGFkZHIAE2FjcmVzU3Rha2VkVG90YWxLZXkCFmFjcmVzU3Rha2VkQW1vdW50VG90YWwACGRhcHBSZXN0AAAAC2RhcHBTdGFraW5nAAEAB2RhcHBXbGcAAgAKZGFwcFB1enpsZQADAA5kYXBwSW52ZXN0RnVuZAAEAQhnZXRMYW5kcwISdXNlckFkZHJTdHJPckVtcHR5D3N0YWtpbmdDb250cmFjdAQKdG90YWxBY3JlcwkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QFE2FjcmVzU3Rha2VkVG90YWxLZXkAAAQJdXNlckFjcmVzCQELdmFsdWVPckVsc2UCCQCaCAIFD3N0YWtpbmdDb250cmFjdAkBGmtleUFjcmVzU3Rha2VkQW1vdW50QnlVc2VyAQUSdXNlckFkZHJTdHJPckVtcHR5AAAJAMwIAgUKdG90YWxBY3JlcwkAzAgCBQl1c2VyQWNyZXMFA25pbAANaWR4VG90YWxBY3JlcwAAAAxpZHhVc2VyQWNyZXMAAQELZ2V0V2xnU3RhdHMFC3VzZXJBZGRyT3B0CWNvbnRyYWN0cwZ1c2R0SWQVdXNkdEJhbGFuY2VDb3JyZWN0aW9uD3VzZXJQcm9wb3J0aW9uNgQMaXNzdWVkQW1vdW50CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFEndsZ0lzc3VlZEFtb3VudEtleQIYV0xHT0xEIGlzIG5vdCBpc3N1ZWQgeWV0BAdyZXN0VXNkCQDwBwIJAJEDAgUJY29udHJhY3RzBQhkYXBwUmVzdAUGdXNkdElkBAZ3bGdVc2QJAGUCCQDwBwIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBQZ1c2R0SWQFFXVzZHRCYWxhbmNlQ29ycmVjdGlvbgQJcHV6emxlVXNkCQDwBwIJAJEDAgUJY29udHJhY3RzBQpkYXBwUHV6emxlBQZ1c2R0SWQEEWludmVzdEZuZENvbnRyYWN0CQCRAwIFCWNvbnRyYWN0cwUOZGFwcEludmVzdEZ1bmQED2ludmVzdEZ1bmRUb3RhbAkAZAIJAPAHAgURaW52ZXN0Rm5kQ29udHJhY3QFBnVzZHRJZAkBC3ZhbHVlT3JFbHNlAgkAmggCBRFpbnZlc3RGbmRDb250cmFjdAURemJJc3N1ZWRBbW91bnRLZXkAAAQNdG90YWxGdW5kc1VzZAkAZAIFBndsZ1VzZAUPaW52ZXN0RnVuZFRvdGFsBAV3bGdJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCcCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnAgt3bGdfYXNzZXRJZAITTm90IGluaXRpYWxpemVkIHlldAQDbm93CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAQJaXNzdWVUaW1lCQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFD3dsZ0lzc3VlVGltZUtleQIPTm90IGluaXRpYWxpemVkBA5tYXJrZXRpbmdUb3RhbAkAawMFCE1JTExJT042BQ5NQVJLRVRJTkdTSEFSRQUCTTYEE21hcmtldGluZ0Ftb3VudExlZnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFFm1hcmtldGluZ0Ftb3VudExlZnRLZXkFDm1hcmtldGluZ1RvdGFsBBFsYXN0TWFya2V0aW5nVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUUbGFzdE1hcmtldGluZ1RpbWVLZXkFCWlzc3VlVGltZQQNbWFya2V0aW5nQWRkcgkBEUBleHRyTmF0aXZlKDEwNjIpAQkBBXZhbHVlAQkAnQgCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUQbWFya2V0aW5nQWRkcktleQQNbWFya2V0aW5nVGVtcAkAlwMBCQDMCAIJAGsDBQ5tYXJrZXRpbmdUb3RhbAkAZQIFA25vdwURbGFzdE1hcmtldGluZ1RpbWUFCllFQVJNSUxMSVMJAMwIAgUTbWFya2V0aW5nQW1vdW50TGVmdAUDbmlsBBFiYW5rRnJvbU1hcmtldGluZwkAawMFDW1hcmtldGluZ1RlbXAFCEJBTktfRkVFBQJNNgQbbWFya2V0aW5nQW1vdW50QXZhaWxhYmxlTm93CQBlAgUNbWFya2V0aW5nVGVtcAURYmFua0Zyb21NYXJrZXRpbmcED21hcmtldGluZ1dsZ29sZAkA8AcCBQ1tYXJrZXRpbmdBZGRyBQV3bGdJZAQKYmFua1dsZ29sZAkA8AcCCQCRAwIFCWNvbnRyYWN0cwULZGFwcFN0YWtpbmcFBXdsZ0lkBAl0ZWFtVG90YWwJAGsDBQhNSUxMSU9ONgUJVEVBTVNIQVJFBQJNNgQOdGVhbUFtb3VudExlZnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFEXRlYW1BbW91bnRMZWZ0S2V5BQl0ZWFtVG90YWwEDGxhc3RUZWFtVGltZQkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUPbGFzdFRlYW1UaW1lS2V5BQlpc3N1ZVRpbWUECHRlYW1BZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCdCAIJAJEDAgUJY29udHJhY3RzBQdkYXBwV2xnBQt0ZWFtQWRkcktleQQWdGVhbUFtb3VudEF2YWlsYWJsZU5vdwkAlwMBCQDMCAIJAGsDBQl0ZWFtVG90YWwJAGUCBQNub3cFDGxhc3RUZWFtVGltZQkAaAIAAwUKWUVBUk1JTExJUwkAzAgCBQ50ZWFtQW1vdW50TGVmdAUDbmlsBAp0ZWFtV2xnb2xkCQDwBwIFCHRlYW1BZGRyBQV3bGdJZAQIYWN0VG90YWwJAGsDBQhNSUxMSU9ONgUNQUNUSVZJVFlTSEFSRQUCTTYEDWFjdEFtb3VudExlZnQJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFEGFjdEFtb3VudExlZnRLZXkFCGFjdFRvdGFsBBJsYXN0QWN0aXZpdGllc1RpbWUJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcFFWxhc3RBY3Rpdml0aWVzVGltZUtleQUJaXNzdWVUaW1lBBVhY3RBbW91bnRBdmFpbGFibGVOb3cJAJcDAQkAzAgCCQBrAwUIYWN0VG90YWwJAGUCBQNub3cFEmxhc3RBY3Rpdml0aWVzVGltZQkAaAIAAwUKWUVBUk1JTExJUwkAzAgCBQ1hY3RBbW91bnRMZWZ0BQNuaWwECWFjdFdsZ29sZAkA8AcCCQCRAwIFCWNvbnRyYWN0cwUIZGFwcFJlc3QFBXdsZ0lkBAxsYXN0VXNlclRpbWUJAQt2YWx1ZU9yRWxzZQIJAJoIAgkAkQMCBQljb250cmFjdHMFB2RhcHBXbGcJARhrZXlMYXN0Q2xhaW1lZFRpbWVCeVVzZXIBBQt1c2VyQWRkck9wdAUJaXNzdWVUaW1lBA5sYXN0VXNlclBlcmlvZAkAaQIJAGUCBQxsYXN0VXNlclRpbWUFCWlzc3VlVGltZQUKWUVBUk1JTExJUwQKbm93TGltaXRlZAkAlwMBCQDMCAIFA25vdwkAzAgCCQBkAgUJaXNzdWVUaW1lCQBoAgADBQpZRUFSTUlMTElTBQNuaWwECWN1clBlcmlvZAkAlwMBCQDMCAIJAGkCCQBlAgUDbm93BQlpc3N1ZVRpbWUFCllFQVJNSUxMSVMJAMwIAgACBQNuaWwEA2VmZgkBCGdldExhbmRzAgULdXNlckFkZHJPcHQJAJEDAgUJY29udHJhY3RzBQtkYXBwU3Rha2luZwQVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBBQljdXJQZXJpb2QECCR0MDc5MTE5AwkAAAIFDmxhc3RVc2VyUGVyaW9kBQljdXJQZXJpb2QEAmEwCQBrAwUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQBlAgUKbm93TGltaXRlZAUMbGFzdFVzZXJUaW1lBQpZRUFSTUlMTElTBAh1c2VyUGFydAkAawMFAmEwBQ91c2VyUHJvcG9ydGlvbjYFAk02BAdlZmZUaW1lCQBkAgUMbGFzdFVzZXJUaW1lCQBrAwkAZQIFCm5vd0xpbWl0ZWQFDGxhc3RVc2VyVGltZQUPdXNlclByb3BvcnRpb242BQJNNgkAlQoDBQh1c2VyUGFydAUCYTAFB2VmZlRpbWUDCQAAAgUObGFzdFVzZXJQZXJpb2QJAGUCBQljdXJQZXJpb2QAAQQCYTEJAGsDCQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAEJAGUCCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwUJY3VyUGVyaW9kBQxsYXN0VXNlclRpbWUFCllFQVJNSUxMSVMEAmEwCQBrAwUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQBlAgUKbm93TGltaXRlZAkAZAIFCWlzc3VlVGltZQkAaAIFCllFQVJNSUxMSVMFCWN1clBlcmlvZAUKWUVBUk1JTExJUwQFYXZhaWwJAGQCBQJhMQUCYTAECHVzZXJQYXJ0CQBrAwUFYXZhaWwFD3VzZXJQcm9wb3J0aW9uNgUCTTYEB2VmZlRpbWUDCQBnAgUCYTEFCHVzZXJQYXJ0CQBkAgUMbGFzdFVzZXJUaW1lCQBrAwUKWUVBUk1JTExJUwUIdXNlclBhcnQJARRkaXN0cmlidXRpb25CeVBlcmlvZAEJAGUCBQljdXJQZXJpb2QAAQkAZAIJAGQCBQlpc3N1ZVRpbWUJAGgCBQpZRUFSTUlMTElTBQljdXJQZXJpb2QJAGsDBQpZRUFSTUlMTElTCQBlAgUIdXNlclBhcnQFAmExBRVjdXJQZXJpb2REaXN0cmlidXRpb24JAJUKAwUIdXNlclBhcnQFBWF2YWlsBQdlZmZUaW1lBAJhMgkAawMJARRkaXN0cmlidXRpb25CeVBlcmlvZAEJAGUCBQljdXJQZXJpb2QAAgkAZQIJAGQCBQlpc3N1ZVRpbWUJAGgCBQpZRUFSTUlMTElTCQBlAgUJY3VyUGVyaW9kAAEFDGxhc3RVc2VyVGltZQUKWUVBUk1JTExJUwQCYTEJARRkaXN0cmlidXRpb25CeVBlcmlvZAEJAGUCBQljdXJQZXJpb2QAAQQCYTAJAGsDBRVjdXJQZXJpb2REaXN0cmlidXRpb24JAGUCBQpub3dMaW1pdGVkCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwUJY3VyUGVyaW9kBQpZRUFSTUlMTElTBAVhdmFpbAkAZAIJAGQCBQJhMgUCYTEFAmEwBAh1c2VyUGFydAkAawMFBWF2YWlsBQ91c2VyUHJvcG9ydGlvbjYFAk02BAdlZmZUaW1lAwkAZwIFAmEyBQh1c2VyUGFydAkAZAIFDGxhc3RVc2VyVGltZQkAawMFCllFQVJNSUxMSVMFCHVzZXJQYXJ0CQEUZGlzdHJpYnV0aW9uQnlQZXJpb2QBCQBlAgUJY3VyUGVyaW9kAAIDCQBnAgkAZAIFAmEyBQJhMQUIdXNlclBhcnQJAGQCCQBkAgUJaXNzdWVUaW1lCQBoAgUKWUVBUk1JTExJUwkAZQIFCWN1clBlcmlvZAABCQBrAwUKWUVBUk1JTExJUwkAZQIFCHVzZXJQYXJ0BQJhMgkBFGRpc3RyaWJ1dGlvbkJ5UGVyaW9kAQkAZQIFCWN1clBlcmlvZAABCQBkAgkAZAIFCWlzc3VlVGltZQkAaAIFCllFQVJNSUxMSVMFCWN1clBlcmlvZAkAawMFCllFQVJNSUxMSVMJAGUCCQBlAgUIdXNlclBhcnQFAmEyBQJhMQUVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQCVCgMFCHVzZXJQYXJ0BQVhdmFpbAUHZWZmVGltZQQKdXNlckFtb3VudAgFCCR0MDc5MTE5Al8xBA11c2VyQXZhaWxhYmxlCAUIJHQwNzkxMTkCXzIEC2VmZkxhc3RUaW1lCAUIJHQwNzkxMTkCXzMED2Ftb3VudExlZnRUb3RhbAkBC3ZhbHVlT3JFbHNlAgkAmggCCQCRAwIFCWNvbnRyYWN0cwUHZGFwcFdsZwUUc3Rha2Vyc0Ftb3VudExlZnRLZXkAAAQIdXNlclRlbXAJAGsDBQp1c2VyQW1vdW50CQCRAwIFA2VmZgUMaWR4VXNlckFjcmVzCQCRAwIFA2VmZgUNaWR4VG90YWxBY3JlcwQMYmFua0Zyb21Vc2VyCQBrAwUIdXNlclRlbXAFCEJBTktfRkVFBQJNNgQKcm9iYmVkVXNlcgkAZQIFCHVzZXJUZW1wBQxiYW5rRnJvbVVzZXIEDHVucm9iYmVkVXNlcgkAawMFDXVzZXJBdmFpbGFibGUJAJEDAgUDZWZmBQxpZHhVc2VyQWNyZXMJAJEDAgUDZWZmBQ1pZHhUb3RhbEFjcmVzCQDMCAIFDGlzc3VlZEFtb3VudAkAzAgCCQBrAwkAZQIFDXRvdGFsRnVuZHNVc2QFE1VTRFRfVFZMX0NPUlJFQ1RJT04FAk04BQxpc3N1ZWRBbW91bnQJAMwIAgUNdG90YWxGdW5kc1VzZAkAzAgCBQdyZXN0VXNkCQDMCAIFBndsZ1VzZAkAzAgCBQlwdXp6bGVVc2QJAMwIAgUJaXNzdWVUaW1lCQDMCAIFEWxhc3RNYXJrZXRpbmdUaW1lCQDMCAIFDm1hcmtldGluZ1RvdGFsCQDMCAIFE21hcmtldGluZ0Ftb3VudExlZnQJAMwIAgUbbWFya2V0aW5nQW1vdW50QXZhaWxhYmxlTm93CQDMCAIFD21hcmtldGluZ1dsZ29sZAkAzAgCBQl0ZWFtVG90YWwJAMwIAgUOdGVhbUFtb3VudExlZnQJAMwIAgUWdGVhbUFtb3VudEF2YWlsYWJsZU5vdwkAzAgCBQp0ZWFtV2xnb2xkCQDMCAIFCGFjdFRvdGFsCQDMCAIFDWFjdEFtb3VudExlZnQJAMwIAgUVYWN0QW1vdW50QXZhaWxhYmxlTm93CQDMCAIFCWFjdFdsZ29sZAkAzAgCBQljdXJQZXJpb2QJAMwIAgUPYW1vdW50TGVmdFRvdGFsCQDMCAIFFWN1clBlcmlvZERpc3RyaWJ1dGlvbgkAzAgCBQxsYXN0VXNlclRpbWUJAMwIAgUKcm9iYmVkVXNlcgkAzAgCBQ9pbnZlc3RGdW5kVG90YWwJAMwIAgUMdW5yb2JiZWRVc2VyCQDMCAIFC2VmZkxhc3RUaW1lCQDMCAIJAGQCBRFiYW5rRnJvbU1hcmtldGluZwUMYmFua0Zyb21Vc2VyCQDMCAIFCmJhbmtXbGdvbGQFA25pbAANcHJvZml0QWRkcktleQIKcHJvZml0QWRkcgAZc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbEtleQIWc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbAEYa2V5U3Rha2Vyc0Ftb3VudFBhaWRVc2VyAQRhZGRyCQCsAgICFnN0YWtlcnNBbW91bnRQYWlkVXNlcl8FBGFkZHIBBnByb2xvZwAJAQVhc0ludAEJAP0HBAUPc3Rha2luZ0NvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAEPZ2V0U3dhcExpbWl0V2xnAQRhZGRyBAhsYXN0VGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBQRhZGRyAAAEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXADCQBmAgUOYXJiaXRyYWdlRGVsYXkJAGUCBQNub3cFCGxhc3RUaW1lCQACAQkArAICCQCsAgICH0FyYml0cmFnZXMgYXJlIHBvc3NpYmxlIG9uY2UgYSAJAKQDAQkAaQIFDmFyYml0cmFnZURlbGF5AODUAwIDbWluBAthY3Jlc0Ftb3VudAkBC3ZhbHVlT3JFbHNlAgkAmggCBQ9zdGFraW5nQ29udHJhY3QJARprZXlBY3Jlc1N0YWtlZEFtb3VudEJ5VXNlcgEFBGFkZHIAAAULYWNyZXNBbW91bnQBDWNsYWltSW50ZXJuYWwCBGFkZHILcHJvcG9ydGlvbjYEBmNhbGxlcgkBEUBleHRyTmF0aXZlKDEwNjIpAQUEYWRkcgQIY3VyU3RhdHMJAQtnZXRXbGdTdGF0cwUFBGFkZHIJAMwIAgUMcmVzdENvbnRyYWN0CQDMCAIFD3N0YWtpbmdDb250cmFjdAkAzAgCBQt3bGdDb250cmFjdAkAzAgCBRJwdXp6bGVQb29sQ29udHJhY3QJAMwIAgUSaW52ZXN0RnVuZENvbnRyYWN0BQNuaWwFC3VzZHRBc3NldElkAAAFC3Byb3BvcnRpb242BANub3cIBQlsYXN0QmxvY2sJdGltZXN0YW1wBAlpc3N1ZVRpbWUJAJEDAgUIY3VyU3RhdHMFD2lkeFdsZ0lzc3VlVGltZQQTbWFya2V0aW5nQW1vdW50TGVmdAkAkQMCBQhjdXJTdGF0cwUVaWR4V2xnTWFya2V0aW5nQW1MZWZ0BA9tYXJrZXRpbmdBbW91bnQJAJEDAgUIY3VyU3RhdHMFGWlkeFdsZ01hcmtldGluZ0FtQXZhaWxOb3cEDnRlYW1BbW91bnRMZWZ0CQCRAwIFCGN1clN0YXRzBRBpZHhXbGdUZWFtQW1MZWZ0BAp0ZWFtQW1vdW50CQCRAwIFCGN1clN0YXRzBRRpZHhXbGdUZWFtQW1BdmFpbE5vdwQNYWN0QW1vdW50TGVmdAkAkQMCBQhjdXJTdGF0cwUPaWR4V2xnQWN0QW1MZWZ0BAlhY3RBbW91bnQJAJEDAgUIY3VyU3RhdHMFE2lkeFdsZ0FjdEFtQXZhaWxOb3cECnVzZXJBbW91bnQJAJEDAgUIY3VyU3RhdHMFFGlkeFdsZ1VzZXJBbUF2YWlsTm93BAd1c2VyS2V5CQEYa2V5U3Rha2Vyc0Ftb3VudFBhaWRVc2VyAQUEYWRkcgQJdXNlclRvdGFsCQCRAwIFCGN1clN0YXRzBRRpZHhXbGdVc2VyVG90YWxBdmFpbAQLdXNlckVmZlRpbWUJAJEDAgUIY3VyU3RhdHMFEWlkeFdsZ0VmZlVzZXJUaW1lBApiYW5rQW1vdW50CQCRAwIFCGN1clN0YXRzBRJpZHhXbGdCYW5rQXZhaWxOb3cJAJQKAgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFEG1hcmtldGluZ0FkZHJLZXkFD21hcmtldGluZ0Ftb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFC3RlYW1BZGRyS2V5BQp0ZWFtQW1vdW50BQp3bGdBc3NldElkCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFDHJlc3RDb250cmFjdAUJYWN0QW1vdW50BQp3bGdBc3NldElkCQDMCAIJAQxJbnRlZ2VyRW50cnkCBQd1c2VyS2V5CQBkAgkBC3ZhbHVlT3JFbHNlAgkAnwgBBQd1c2VyS2V5AAAFCnVzZXJBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFGXN0YWtlcnNBbW91bnRQYWlkVG90YWxLZXkJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFGXN0YWtlcnNBbW91bnRQYWlkVG90YWxLZXkAAAUJdXNlclRvdGFsCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZXJzQW1vdW50TGVmdEtleQkAZQIJAJEDAgUIY3VyU3RhdHMFEWlkeFdsZ0FtTGVmdFRvdGFsBQl1c2VyVG90YWwJAMwIAgkBDEludGVnZXJFbnRyeQIFFm1hcmtldGluZ0Ftb3VudExlZnRLZXkJAGUCBRNtYXJrZXRpbmdBbW91bnRMZWZ0BQ9tYXJrZXRpbmdBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFFGxhc3RNYXJrZXRpbmdUaW1lS2V5BQNub3cJAMwIAgkBDEludGVnZXJFbnRyeQIFEXRlYW1BbW91bnRMZWZ0S2V5CQBlAgUOdGVhbUFtb3VudExlZnQFCnRlYW1BbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFD2xhc3RUZWFtVGltZUtleQUDbm93CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBhY3RBbW91bnRMZWZ0S2V5CQBlAgUNYWN0QW1vdW50TGVmdAUJYWN0QW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRVsYXN0QWN0aXZpdGllc1RpbWVLZXkFA25vdwkAzAgCCQEMSW50ZWdlckVudHJ5AgkBGGtleUxhc3RDbGFpbWVkVGltZUJ5VXNlcgEFBGFkZHIFC3VzZXJFZmZUaW1lBQNuaWwJAJQKAgUKdXNlckFtb3VudAUKYmFua0Ftb3VudAUBaQENY29uc3RydWN0b3JWMQQIcmVzdEFkZHINbWFya2V0aW5nQWRkcgh0ZWFtQWRkcgpwcm9maXRBZGRyAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIRUGVybWlzc2lvbiBkZW5pZWQDCQEJaXNEZWZpbmVkAQkAoQgBBQ13bGdBc3NldElkS2V5CQACAQITQWxyZWFkeSBpbml0aWFsaXplZAQMaXNzdWVkQW1vdW50BQhNSUxMSU9ONgQFaXNzdWUJAMMIBwIGV0xHT0xEAiBXYXZlc0xhbmRzIEdvbGQgaW52ZXN0bWVudCB0b2tlbgUMaXNzdWVkQW1vdW50AAgGBQR1bml0AAAEB2Fzc2V0SWQJALgIAQUFaXNzdWUJAMwIAgUFaXNzdWUJAMwIAgkBDEludGVnZXJFbnRyeQIFD3dsZ0lzc3VlVGltZUtleQgFCWxhc3RCbG9jawl0aW1lc3RhbXAJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQUMaXNzdWVkQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRlzdGFrZXJzQW1vdW50UGFpZFRvdGFsS2V5AAAJAMwIAgkBDEludGVnZXJFbnRyeQIFFHN0YWtlcnNBbW91bnRMZWZ0S2V5CQBrAwUITUlMTElPTjYFC1BMQVlFUlNIQVJFBQVNVUxUNgkAzAgCCQELQmluYXJ5RW50cnkCBQ13bGdBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFEG1hcmtldGluZ0FkZHJLZXkFDW1hcmtldGluZ0FkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgULdGVhbUFkZHJLZXkFCHRlYW1BZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFDXByb2ZpdEFkZHJLZXkFCnByb2ZpdEFkZHIFA25pbAFpAQZidXlXbGcBCW1pbkFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAAACBQxwcm9sb2dSZXN1bHQFDHByb2xvZ1Jlc3VsdAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAd1c2R0QW10CAUDcG10BmFtb3VudAMDCQEBIQEJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQGCQECIT0CCQEFdmFsdWUBCAUDcG10B2Fzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQGY2FsbGVyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUGY2FsbGVyAwkAZgIFDk1JTlNIT1BQQVlNRU5UBQd1c2R0QW10CQACAQkArAICCQCsAgICEllvdSBjYW4gdHJhZGUgbWluIAkBCmZpeGVkUG9pbnQCBQ5NSU5TSE9QUEFZTUVOVAAGAgUgVVNEVAQIY3VyU3RhdHMJAQtnZXRXbGdTdGF0cwUCAAkAzAgCBQxyZXN0Q29udHJhY3QJAMwIAgUPc3Rha2luZ0NvbnRyYWN0CQDMCAIFC3dsZ0NvbnRyYWN0CQDMCAIFEnB1enpsZVBvb2xDb250cmFjdAkAzAgCBRJpbnZlc3RGdW5kQ29udHJhY3QFA25pbAULdXNkdEFzc2V0SWQFB3VzZHRBbXQFBU1VTFQ2BAxjdXJXbGdBbW91bnQJAJEDAgUIY3VyU3RhdHMFDGlkeFdsZ0Ftb3VudAQIZnVuZHNVc2QJAJEDAgUIY3VyU3RhdHMFC2lkeFdsZ0Z1bmRzBAh3bGdQcmljZQkAawMFCGZ1bmRzVXNkBQVNVUxUOAUMY3VyV2xnQW1vdW50BAhidXlQcmljZQkAawMFCHdsZ1ByaWNlAAYABQQJd2xnQW1vdW50CQBrAwUHdXNkdEFtdAUFTVVMVDgFCGJ1eVByaWNlBAZtYXhXbGcJAQ9nZXRTd2FwTGltaXRXbGcBBQRhZGRyAwkAZgIFCXdsZ0Ftb3VudAUGbWF4V2xnCQACAQkArAICCQCsAgICEFlvdSBjYW4gZ2V0IG1heCAJAQpmaXhlZFBvaW50AgUGbWF4V2xnAAgCByBXTEdPTEQDCQBmAgUJbWluQW1vdW50BQl3bGdBbW91bnQJAAIBAjBQcmljZSBjaGFuZ2VkIGR1cmluZyBvcGVyYXRpb24sIHBsZWFzZSB0cnkgYWdhaW4EDHByb2ZpdEFtb3VudAkAaQIFB3VzZHRBbXQABgQKZGVsdGFGdW5kcwkAZQIFB3VzZHRBbXQFDHByb2ZpdEFtb3VudAQIcmVpc3N1ZWQJAGsDBQxjdXJXbGdBbW91bnQFCmRlbHRhRnVuZHMFCGZ1bmRzVXNkCQCUCgIJAMwIAgkBB1JlaXNzdWUDBQp3bGdBc3NldElkBQhyZWlzc3VlZAYJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQkAZAIFDGN1cldsZ0Ftb3VudAUIcmVpc3N1ZWQJAMwIAgkBDEludGVnZXJFbnRyeQIJARRrZXlMYXN0QXJiVGltZUJ5VXNlcgEFBGFkZHIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAKIIAQUNcHJvZml0QWRkcktleQUMcHJvZml0QW1vdW50BQt1c2R0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFCXdsZ0Ftb3VudAUKd2xnQXNzZXRJZAUDbmlsBQxwcm9sb2dSZXN1bHQJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4BaQEHc2VsbFdsZwEJbWluQW1vdW50BAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cAAwkAAAIFDHByb2xvZ1Jlc3VsdAUMcHJvbG9nUmVzdWx0AwkBAiE9AgkAkAMBCAUBaQhwYXltZW50cwABCQACAQIiZXhhY3RseSAxIHBheW1lbnQgbXVzdCBiZSBhdHRhY2hlZAQDcG10CQCRAwIIBQFpCHBheW1lbnRzAAAEBndsZ0FtdAgFA3BtdAZhbW91bnQEBmNhbGxlcggFAWkGY2FsbGVyBARhZGRyCQClCAEFBmNhbGxlcgQGbWF4V2xnCQEPZ2V0U3dhcExpbWl0V2xnAQUEYWRkcgMJAGYCBQZ3bGdBbXQFBm1heFdsZwkAAgEJAKwCAgkArAICAhJZb3UgY2FuIHNwZW5kIG1heCAJAQpmaXhlZFBvaW50AgUGbWF4V2xnAAgCByBXTEdPTEQDAwkBASEBCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkBgkBAiE9AgkBBXZhbHVlAQgFA3BtdAdhc3NldElkBQp3bGdBc3NldElkCQACAQIVV0xHT0xEIHBheW1lbnRzIG9ubHkhBAhjdXJTdGF0cwkBC2dldFdsZ1N0YXRzBQIACQDMCAIFDHJlc3RDb250cmFjdAkAzAgCBQ9zdGFraW5nQ29udHJhY3QJAMwIAgULd2xnQ29udHJhY3QJAMwIAgUScHV6emxlUG9vbENvbnRyYWN0CQDMCAIFEmludmVzdEZ1bmRDb250cmFjdAUDbmlsBQt1c2R0QXNzZXRJZAAABQVNVUxUNgQMY3VyV2xnQW1vdW50CQCRAwIFCGN1clN0YXRzBQxpZHhXbGdBbW91bnQECXNlbGxQcmljZQkAawMJAJEDAgUIY3VyU3RhdHMFC2lkeFdsZ1ByaWNlAAQABQQHdXNkdEFtdAkAawMFBndsZ0FtdAUJc2VsbFByaWNlBQVNVUxUOAMJAGYCBQ5NSU5TSE9QUEFZTUVOVAUHdXNkdEFtdAkAAgEJAKwCAgkArAICAhJZb3UgY2FuIHRyYWRlIG1pbiAJAQpmaXhlZFBvaW50AgUOTUlOU0hPUFBBWU1FTlQABgIFIFVTRFQDCQBmAgUJbWluQW1vdW50BQd1c2R0QW10CQACAQIwUHJpY2UgY2hhbmdlZCBkdXJpbmcgb3BlcmF0aW9uLCBwbGVhc2UgdHJ5IGFnYWluBAxwcm9maXRBbW91bnQJAGkCBQd1c2R0QW10AAQJAJQKAgkAzAgCCQEEQnVybgIFCndsZ0Fzc2V0SWQFBndsZ0FtdAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSd2xnSXNzdWVkQW1vdW50S2V5CQBlAgUMY3VyV2xnQW1vdW50BQZ3bGdBbXQJAMwIAgkBDEludGVnZXJFbnRyeQIJARRrZXlMYXN0QXJiVGltZUJ5VXNlcgEFBGFkZHIIBQlsYXN0QmxvY2sJdGltZXN0YW1wCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAKIIAQUNcHJvZml0QWRkcktleQUMcHJvZml0QW1vdW50BQt1c2R0QXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFB3VzZHRBbXQFC3VzZHRBc3NldElkBQNuaWwFDHByb2xvZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpAQVjbGFpbQAEDHByb2xvZ1Jlc3VsdAkBBnByb2xvZwADCQAAAgUMcHJvbG9nUmVzdWx0BQxwcm9sb2dSZXN1bHQDCQECIT0CCQCQAwEIBQFpCHBheW1lbnRzAAAJAAIBAhRObyBwYXltZW50cyByZXF1aXJlZAQBcgkBDWNsYWltSW50ZXJuYWwCCQClCAEIBQFpBmNhbGxlcgUFTVVMVDYEB2FjdGlvbnMIBQFyAl8xCQCUCgIJAM0IAgkAzQgCBQdhY3Rpb25zCQEOU2NyaXB0VHJhbnNmZXIDCAUBaQZjYWxsZXIICAUBcgJfMgJfMQUKd2xnQXNzZXRJZAkBDlNjcmlwdFRyYW5zZmVyAwUPc3Rha2luZ0NvbnRyYWN0CAgFAXICXzICXzIFCndsZ0Fzc2V0SWQFDHByb2xvZ1Jlc3VsdAkAAgECJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgFpARJvblN0YWtlVW5zdGFrZUxhbmQBBGFkZHIDCQECIT0CCAUBaQZjYWxsZXIFD3N0YWtpbmdDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkBAFyCQENY2xhaW1JbnRlcm5hbAIFBGFkZHIFBU1VTFQ2BAdhY3Rpb25zCAUBcgJfMQkAlAoCCQDNCAIJAM0IAgUHYWN0aW9ucwkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUEYWRkcggIBQFyAl8yAl8xBQp3bGdBc3NldElkCQEOU2NyaXB0VHJhbnNmZXIDBQ9zdGFraW5nQ29udHJhY3QICAUBcgJfMgJfMgUKd2xnQXNzZXRJZAgFAXICXzIAGx+2ZQ==",
    "height": 3264839,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: CsvaN7nd1PhE4TZyprVtGKPsbQaM1mcC8tET4Yho4UmT

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

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

github/deemru/w8io/169f3d6 
36.40 ms ◑