w8 · tx · 4pv···w9c

tx · 4pvsduSPPvkq6HsBcFiGA9Gzbw1pTbTHKadj2MupEw9c

3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy:  -0.01200000 Waves

2023.07.03 21:27 [2650096] smart account 3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "4pvsduSPPvkq6HsBcFiGA9Gzbw1pTbTHKadj2MupEw9c",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1688408880007,
    "version": 2,
    "chainId": 84,
    "sender": "3N7HtrKeFFLz5oy6PfGv1Lg3GwPk4gCPdGy",
    "senderPublicKey": "FsR18761ZAsUqsTd7TK3XmR6bhihs1UXVmpHYxz5JzQ1",
    "proofs": [
        "VVzkrE2xTzP2eb4UW5ZVVtdJVP9vHp7tb2k3X9e1AKxDkhLYAHYdfUar1Fzspq8ycc81KoqFwJqjRo3kQ3xYyZX"
    ],
    "script": "base64:BgIgCAISBgoECAgICBIDCgEBEgMKAQESABIDCgEIEgMKAQhGAQprZXlCbG9ja2VkAAIQY29udHJhY3RzQmxvY2tlZAALSWR4RWZmVG90YWwAAAAKSWR4RWZmVXNlcgABAAVjaGFpbgkAyQECCQDKAQIIBQR0aGlzBWJ5dGVzAAEAAQALdXNkdEFzc2V0SWQEByRtYXRjaDAFBWNoYWluAwkAAAIBAVcFByRtYXRjaDABIITaerIIAz9O0bvKju6Lk7zJgt0LXfoHlqjUI/moD/+5AwkAAAIBAVQFByRtYXRjaDABIFWx2J9yh4Lv5eNbjawFq2XemkOhLxa7BfMat4el8cUYCQACAQINVW5rbm93biBjaGFpbgAVZGVmYXVsdFJlc3RBZGRyZXNzU3RyBAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAiMzUFFDdXZGYnZoNExrUFVucm5VMXozam5iQTFwOW0zV05odgMJAAACAQFUBQckbWF0Y2gwAiMzTXVta0dHenRDS0FYcFdEcXhrZGRvZnFYU1VicVFrdlNKeQkAAgECDVVua25vd24gY2hhaW4ADmFyYml0cmFnZURlbGF5BAckbWF0Y2gwBQVjaGFpbgMJAAACAQFXBQckbWF0Y2gwAMDPJAMJAAACAQFUBQckbWF0Y2gwAODUAwkAAgECDVVua25vd24gY2hhaW4AA1NFUAICX18ABU1VTFQ2AMCEPQAFTVVMVDgAgMLXLwAFU1NJWkUAGQAFTVNJWkUAZAAFTFNJWkUA4QEABlhMU0laRQCQAwAHWFhMU0laRQDxBAAOTUlOU0hPUFBBWU1FTlQAoI0GAQ9nZXRTdHJpbmdPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAARSWR4Q2ZnU3Rha2luZ0RhcHAAAQARSWR4Q2ZnRWNvbm9teURhcHAAAgANSWR4Q2ZnV2xnRGFwcAAEABRJZHhDZmdQdXp6bGVQb29sRGFwcAAFAQprZXlSZXN0Q2ZnAAIOJXNfX3Jlc3RDb25maWcBDmtleVJlc3RBZGRyZXNzAAIMJXNfX3Jlc3RBZGRyARFyZWFkUmVzdENmZ09yRmFpbAEEcmVzdAkAvAkCCQEPZ2V0U3RyaW5nT3JGYWlsAgUEcmVzdAkBCmtleVJlc3RDZmcABQNTRVABGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIHcmVzdENmZwNpZHgJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkApggBCQCRAwIFB3Jlc3RDZmcFA2lkeAkArAICAipSZXN0IGNmZyBkb2Vzbid0IGNvbnRhaW4gYWRkcmVzcyBhdCBpbmRleCAJAKQDAQUDaWR4AAxyZXN0Q29udHJhY3QJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQt2YWx1ZU9yRWxzZQIJAJ0IAgUEdGhpcwkBDmtleVJlc3RBZGRyZXNzAAUVZGVmYXVsdFJlc3RBZGRyZXNzU3RyAAdyZXN0Q2ZnCQERcmVhZFJlc3RDZmdPckZhaWwBBQxyZXN0Q29udHJhY3QAD3N0YWtpbmdDb250cmFjdAkBGGdldENvbnRyYWN0QWRkcmVzc09yRmFpbAIFB3Jlc3RDZmcFEUlkeENmZ1N0YWtpbmdEYXBwAA9lY29ub215Q29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRFJZHhDZmdFY29ub215RGFwcAALd2xnQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBQ1JZHhDZmdXbGdEYXBwABJwdXp6bGVQb29sQ29udHJhY3QJARhnZXRDb250cmFjdEFkZHJlc3NPckZhaWwCBQdyZXN0Q2ZnBRRJZHhDZmdQdXp6bGVQb29sRGFwcAALcmVjTGFuZFNpemUAAQERa2V5UmVzUHJvcG9ydGlvbnMAAhNyZXNUeXBlc1Byb3BvcnRpb25zARVrZXlTdGFrZWRMYW5kc0J5T3duZXIBCW93bmVyQWRkcgkArAICAhNzdGFrZWRMYW5kc0J5T3duZXJfBQlvd25lckFkZHIAEndsZ0lzc3VlZEFtb3VudEtleQIQd2xnX2lzc3VlZEFtb3VudAANd2xnQXNzZXRJZEtleQILd2xnX2Fzc2V0SWQACndsZ0Fzc2V0SWQJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnAgCBQt3bGdDb250cmFjdAUNd2xnQXNzZXRJZEtleQITTm90IGluaXRpYWxpemVkIHlldAAMaWR4V2xnQW1vdW50AAAAC2lkeFdsZ1ByaWNlAAEAC2lkeFdsZ0Z1bmRzAAIBBWFzSW50AQF2BAckbWF0Y2gwBQF2AwkAAQIFByRtYXRjaDACA0ludAQBbgUHJG1hdGNoMAUBbgkAAgECFWZhaWwgdG8gY2FzdCBpbnRvIEludAEPbnVtUGllY2VzQnlTaXplAQhsYW5kU2l6ZQQHJG1hdGNoMAUIbGFuZFNpemUDCQAAAgIBUwUHJG1hdGNoMAUFU1NJWkUDCQAAAgIBTQUHJG1hdGNoMAUFTVNJWkUDCQAAAgIBTAUHJG1hdGNoMAUFTFNJWkUDCQAAAgICWEwFByRtYXRjaDAFBlhMU0laRQMJAAACAgNYWEwFByRtYXRjaDAFB1hYTFNJWkUJAAIBAhFVbmtub3duIGxhbmQgc2l6ZQEOZ2V0Vm90aW5nUG93ZXIBEnVzZXJBZGRyU3RyT3JFbXB0eQQFcHJvcHMJALUJAgkBC3ZhbHVlT3JFbHNlAgkAnQgCBQ9zdGFraW5nQ29udHJhY3QJARFrZXlSZXNQcm9wb3J0aW9ucwACCzBfMF8wXzBfMF8wAgFfCgEFYWRkZXICA2FjYwRpdGVtCQBkAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFBGl0ZW0ECnRvdGFsUG93ZXIKAAIkbAUFcHJvcHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWFkZGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA2CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGBAp1c2Vyc1Bvd2VyAwkAAAIFEnVzZXJBZGRyU3RyT3JFbXB0eQIAAAAECGxhbmRzU3RyCQCdCAIFD3N0YWtpbmdDb250cmFjdAkBFWtleVN0YWtlZExhbmRzQnlPd25lcgEFEnVzZXJBZGRyU3RyT3JFbXB0eQQFbGFuZHMDCQEJaXNEZWZpbmVkAQUIbGFuZHNTdHIJAL0JAgkBBXZhbHVlAQUIbGFuZHNTdHICAV8FA25pbAoBB29uZUxhbmQCA2FjYwtsYW5kQXNzZXRJZAQFYXNzZXQJAQV2YWx1ZQEJAOwHAQkA2QQBBQtsYW5kQXNzZXRJZAQIbGFuZFNpemUJAJEDAgkAtQkCCAUFYXNzZXQLZGVzY3JpcHRpb24CAV8FC3JlY0xhbmRTaXplCQBkAgUDYWNjCQEPbnVtUGllY2VzQnlTaXplAQUIbGFuZFNpemUKAAIkbAUFbGFuZHMKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBB29uZUxhbmQCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjFfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFUxpc3Qgc2l6ZSBleGNlZWRzIDEwMAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIAMwA0ADUANgA3ADgAOQA6ADsAPAA9AD4APwBAAEEAQgBDAEQARQBGAEcASABJAEoASwBMAE0ATgBPAFAAUQBSAFMAVABVAFYAVwBYAFkAWgBbAFwAXQBeAF8AYABhAGIAYwBkCQDMCAIFCnRvdGFsUG93ZXIJAMwIAgUKdXNlcnNQb3dlcgUDbmlsAQtnZXRXbGdTdGF0cwAEDGlzc3VlZEFtb3VudAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFC3dsZ0NvbnRyYWN0BRJ3bGdJc3N1ZWRBbW91bnRLZXkCGFdMR09MRCBpcyBub3QgaXNzdWVkIHlldAQKZWNvbm9teVVzZAkA8AcCBQ9lY29ub215Q29udHJhY3QFC3VzZHRBc3NldElkBAdyZXN0VXNkCQDwBwIFDHJlc3RDb250cmFjdAULdXNkdEFzc2V0SWQEBndsZ1VzZAkA8AcCBQt3bGdDb250cmFjdAULdXNkdEFzc2V0SWQECXB1enpsZVVzZAkA8AcCBRJwdXp6bGVQb29sQ29udHJhY3QFC3VzZHRBc3NldElkBA10b3RhbEZ1bmRzVXNkCQBkAgkAZAIFCmVjb25vbXlVc2QFB3Jlc3RVc2QFBndsZ1VzZAkAzAgCBQxpc3N1ZWRBbW91bnQJAMwIAgkAawMFDXRvdGFsRnVuZHNVc2QFBU1VTFQ4BQxpc3N1ZWRBbW91bnQJAMwIAgUNdG90YWxGdW5kc1VzZAkAzAgCBQplY29ub215VXNkCQDMCAIFB3Jlc3RVc2QJAMwIAgUGd2xnVXNkCQDMCAIFCXB1enpsZVVzZAUDbmlsAQpmaXhlZFBvaW50AgN2YWwIZGVjaW1hbHMEBnRlblBvdwkAbAYACgAABQhkZWNpbWFscwAAAAAFBERPV04JAKwCAgkArAICCQCkAwEJAGkCBQN2YWwFBnRlblBvdwIBLgkApAMBCQBqAgUDdmFsBQZ0ZW5Qb3cABk1VTFQxNACAgOmDsd4WAA5NQVJLRVRJTkdTSEFSRQCgjQYACVRFQU1TSEFSRQDAmgwADUFDVElWSVRZU0hBUkUAoI0GAAtQTEFZRVJTSEFSRQCAtRgACllFQVJNSUxMSVMAgIbrx3UACldFRUtNSUxMSVMAgIiyoAIACU1BWFBFUklPRACcAQACQTYAgMLXLwACQjgAgOHrFwAPd2xnSXNzdWVUaW1lS2V5Ag13bGdfaXNzdWVUaW1lABBtYXJrZXRpbmdBZGRyS2V5Ag1tYXJrZXRpbmdBZGRyAAt0ZWFtQWRkcktleQIIdGVhbUFkZHIADXByb2ZpdEFkZHJLZXkCCnByb2ZpdEFkZHIAFGxhc3RNYXJrZXRpbmdUaW1lS2V5AhlsYXN0Q2xhaW1lZFRpbWVfbWFya2V0aW5nAA9sYXN0VGVhbVRpbWVLZXkCFGxhc3RDbGFpbWVkVGltZV90ZWFtABVsYXN0QWN0aXZpdGllc1RpbWVLZXkCGmxhc3RDbGFpbWVkVGltZV9hY3Rpdml0aWVzARhrZXlMYXN0Q2xhaW1lZFRpbWVCeVVzZXIBBGFkZHIJAKwCAgIUbGFzdENsYWltZWRUaW1lVXNlcl8FBGFkZHIBFGtleUxhc3RBcmJUaW1lQnlVc2VyAQRhZGRyCQCsAgICEGxhc3RBcmJUaW1lVXNlcl8FBGFkZHIAFHN0YWtlcnNBbW91bnRMZWZ0S2V5AhFzdGFrZXJzQW1vdW50TGVmdAAZc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbEtleQIWc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbAEYa2V5U3Rha2Vyc0Ftb3VudFBhaWRVc2VyAQRhZGRyCQCsAgICFnN0YWtlcnNBbW91bnRQYWlkVXNlcl8FBGFkZHIBBnByb2xvZwADCQELdmFsdWVPckVsc2UCCQCbCAIFD3N0YWtpbmdDb250cmFjdAkBCmtleUJsb2NrZWQABwkAAgECH0NvbnRyYWN0cyBhcmUgdW5kZXIgbWFpbnRlbmFuY2UJAQVhc0ludAEJAPwHBAUPc3Rha2luZ0NvbnRyYWN0AgpzYXZlTGFzdFR4BQNuaWwFA25pbAEMZ2V0U3dhcExpbWl0AQRhZGRyBAhsYXN0VGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBCQEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBQRhZGRyAAAEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXADCQBmAgUOYXJiaXRyYWdlRGVsYXkJAGUCBQNub3cFCGxhc3RUaW1lCQACAQkArAICCQCsAgICH0FyYml0cmFnZXMgYXJlIHBvc3NpYmxlIG9uY2UgYSAJAKQDAQkAaQIFDmFyYml0cmFnZURlbGF5AODUAwIDbWluBAZwaWVjZXMJAJEDAgkBDmdldFZvdGluZ1Bvd2VyAQUEYWRkcgUKSWR4RWZmVXNlcgQEcG93OAkAbAYFBnBpZWNlcwAABQJCOAAIAAgFB0NFSUxJTkcJAGsDBQJBNgUEcG93OAUFTVVMVDgBDWNsYWltSW50ZXJuYWwBBmNhbGxlcgQKY2FsbGVyQWRkcgkApQgBBQZjYWxsZXIEA25vdwgFCWxhc3RCbG9jawl0aW1lc3RhbXAECWlzc3VlVGltZQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCfCAEFD3dsZ0lzc3VlVGltZUtleQIPTm90IGluaXRpYWxpemVkBBFsYXN0TWFya2V0aW5nVGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBRRsYXN0TWFya2V0aW5nVGltZUtleQUJaXNzdWVUaW1lBA1tYXJrZXRpbmdBZGRyCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFEG1hcmtldGluZ0FkZHJLZXkED21hcmtldGluZ0Ftb3VudAkAawMJAGsDBQZNVUxUMTQFDk1BUktFVElOR1NIQVJFBQVNVUxUNgkAZQIFA25vdwURbGFzdE1hcmtldGluZ1RpbWUFCllFQVJNSUxMSVMEDGxhc3RUZWFtVGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBQ9sYXN0VGVhbVRpbWVLZXkFCWlzc3VlVGltZQQIdGVhbUFkZHIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQV2YWx1ZQEJAKIIAQULdGVhbUFkZHJLZXkECnRlYW1BbW91bnQJAGsDCQBrAwUGTVVMVDE0BQlURUFNU0hBUkUFBU1VTFQ2CQBlAgUDbm93BQxsYXN0VGVhbVRpbWUJAGgCAAMFCllFQVJNSUxMSVMEEmxhc3RBY3Rpdml0aWVzVGltZQkBC3ZhbHVlT3JFbHNlAgkAnwgBBRVsYXN0QWN0aXZpdGllc1RpbWVLZXkFCWlzc3VlVGltZQQJYWN0QW1vdW50CQBrAwkAawMFBk1VTFQxNAUNQUNUSVZJVFlTSEFSRQUFTVVMVDYJAGUCBQNub3cFEmxhc3RBY3Rpdml0aWVzVGltZQkAaAIAAwUKWUVBUk1JTExJUwQJY3VyUGVyaW9kCQBpAgkAZQIFA25vdwUJaXNzdWVUaW1lBQpXRUVLTUlMTElTAwkAZgIFCWN1clBlcmlvZAkAaQIFCU1BWFBFUklPRAACCQACAQI9UGxlYXNlIG1vZGlmeSBjb250cmFjdCBmb3IgbmV4dCAxLjUgeWVhcnMsIGFjY29yZGluZyB0byBzdGF0cwQDZWZmCQEOZ2V0Vm90aW5nUG93ZXIBBQpjYWxsZXJBZGRyBAt0b3RhbFBpZWNlcwkAkQMCBQNlZmYFC0lkeEVmZlRvdGFsBA9hbW91bnRMZWZ0VG90YWwJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUUc3Rha2Vyc0Ftb3VudExlZnRLZXkAAAQVY3VyUGVyaW9kRGlzdHJpYnV0aW9uCQBrAwUPYW1vdW50TGVmdFRvdGFsCQBoAgACBQt0b3RhbFBpZWNlcwkAZAIFC3RvdGFsUGllY2VzCQBoAgkAlgMBCQDMCAIAoI0GCQDMCAIFC3RvdGFsUGllY2VzBQNuaWwJAGUCBQlNQVhQRVJJT0QFCWN1clBlcmlvZAQLdXNlclRpbWVLZXkJARhrZXlMYXN0Q2xhaW1lZFRpbWVCeVVzZXIBBQpjYWxsZXJBZGRyBAxsYXN0VXNlclRpbWUJAQt2YWx1ZU9yRWxzZQIJAJ8IAQULdXNlclRpbWVLZXkFCWlzc3VlVGltZQQKdXNlckFtb3VudAkAawMJAGsDBRVjdXJQZXJpb2REaXN0cmlidXRpb24JAJEDAgUDZWZmBQpJZHhFZmZVc2VyBQt0b3RhbFBpZWNlcwkAZQIFA25vdwUMbGFzdFVzZXJUaW1lCQBoAgADBQpZRUFSTUlMTElTBAd1c2VyS2V5CQEYa2V5U3Rha2Vyc0Ftb3VudFBhaWRVc2VyAQUKY2FsbGVyQWRkcgkAlAoCCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFDW1hcmtldGluZ0FkZHIFD21hcmtldGluZ0Ftb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQh0ZWFtQWRkcgUKdGVhbUFtb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQxyZXN0Q29udHJhY3QFCWFjdEFtb3VudAUKd2xnQXNzZXRJZAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZjYWxsZXIFCnVzZXJBbW91bnQFCndsZ0Fzc2V0SWQJAMwIAgkBDEludGVnZXJFbnRyeQIFB3VzZXJLZXkJAGQCCQELdmFsdWVPckVsc2UCCQCfCAEFB3VzZXJLZXkAAAUKdXNlckFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUZc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbEtleQkAZAIJAQt2YWx1ZU9yRWxzZQIJAJ8IAQUZc3Rha2Vyc0Ftb3VudFBhaWRUb3RhbEtleQAABQp1c2VyQW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRRzdGFrZXJzQW1vdW50TGVmdEtleQkAZQIFD2Ftb3VudExlZnRUb3RhbAUKdXNlckFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUbGFzdE1hcmtldGluZ1RpbWVLZXkFA25vdwkAzAgCCQEMSW50ZWdlckVudHJ5AgUPbGFzdFRlYW1UaW1lS2V5BQNub3cJAMwIAgkBDEludGVnZXJFbnRyeQIFFWxhc3RBY3Rpdml0aWVzVGltZUtleQUDbm93CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQt1c2VyVGltZUtleQUDbm93BQNuaWwFCnVzZXJBbW91bnQGAWkBDWNvbnN0cnVjdG9yVjEECHJlc3RBZGRyDW1hcmtldGluZ0FkZHIIdGVhbUFkZHIKcHJvZml0QWRkcgMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECEVBlcm1pc3Npb24gZGVuaWVkAwkBCWlzRGVmaW5lZAEJAKEIAQUNd2xnQXNzZXRJZEtleQkAAgECE0FscmVhZHkgaW5pdGlhbGl6ZWQEDGlzc3VlZEFtb3VudAUGTVVMVDE0BAVpc3N1ZQkAwwgHAgZXTEdPTEQCIFdhdmVzTGFuZHMgR29sZCBpbnZlc3RtZW50IHRva2VuBQxpc3N1ZWRBbW91bnQACAYFBHVuaXQAAAQHYXNzZXRJZAkAuAgBBQVpc3N1ZQkAzAgCBQVpc3N1ZQkAzAgCCQEMSW50ZWdlckVudHJ5AgUPd2xnSXNzdWVUaW1lS2V5CAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEMSW50ZWdlckVudHJ5AgUSd2xnSXNzdWVkQW1vdW50S2V5BQxpc3N1ZWRBbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFGXN0YWtlcnNBbW91bnRQYWlkVG90YWxLZXkAAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUUc3Rha2Vyc0Ftb3VudExlZnRLZXkJAGsDBQZNVUxUMTQFC1BMQVlFUlNIQVJFBQVNVUxUNgkAzAgCCQELQmluYXJ5RW50cnkCBQ13bGdBc3NldElkS2V5BQdhc3NldElkCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQ5rZXlSZXN0QWRkcmVzcwAFCHJlc3RBZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFEG1hcmtldGluZ0FkZHJLZXkFDW1hcmtldGluZ0FkZHIJAMwIAgkBC1N0cmluZ0VudHJ5AgULdGVhbUFkZHJLZXkFCHRlYW1BZGRyCQDMCAIJAQtTdHJpbmdFbnRyeQIFDXByb2ZpdEFkZHJLZXkFCnByb2ZpdEFkZHIFA25pbAFpAQZidXlXbGcBCW1pbkFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAd1c2R0QW10CAUDcG10BmFtb3VudAQKcG10QXNzZXRJZAkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUDcG10B2Fzc2V0SWQCHldBVkVTIGNhbid0IGJlIHVzZWQgYXMgcGF5bWVudAMJAQIhPQIFCnBtdEFzc2V0SWQFC3VzZHRBc3NldElkCQACAQITVVNEVCBwYXltZW50cyBvbmx5IQQGY2FsbGVyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUGY2FsbGVyBAdtYXhVc2R0CQEMZ2V0U3dhcExpbWl0AQUEYWRkcgMJAGYCBQd1c2R0QW10BQdtYXhVc2R0CQACAQkArAICCQCsAgICEllvdSBjYW4gc3BlbmQgbWF4IAkBCmZpeGVkUG9pbnQCBQdtYXhVc2R0AAYCBSBVU0RUAwkAZgIFDk1JTlNIT1BQQVlNRU5UBQd1c2R0QW10CQACAQkArAICCQCsAgICEllvdSBjYW4gdHJhZGUgbWluIAkBCmZpeGVkUG9pbnQCBQ5NSU5TSE9QUEFZTUVOVAAGAgUgVVNEVAQIY3VyU3RhdHMJAQtnZXRXbGdTdGF0cwAEDGN1cldsZ0Ftb3VudAkAkQMCBQhjdXJTdGF0cwUMaWR4V2xnQW1vdW50BAtvbGRGdW5kc1VzZAkAZQIJAJEDAgUIY3VyU3RhdHMFC2lkeFdsZ0Z1bmRzBQd1c2R0QW10BAh3bGdQcmljZQkAawMFC29sZEZ1bmRzVXNkBQVNVUxUOAUMY3VyV2xnQW1vdW50BAhidXlQcmljZQkAawMFCHdsZ1ByaWNlAAYABQQJd2xnQW1vdW50CQBrAwUHdXNkdEFtdAUFTVVMVDgFCGJ1eVByaWNlAwkAZgIFCW1pbkFtb3VudAUJd2xnQW1vdW50CQACAQIwUHJpY2UgY2hhbmdlZCBkdXJpbmcgb3BlcmF0aW9uLCBwbGVhc2UgdHJ5IGFnYWluBAxwcm9maXRBbW91bnQJAGkCBQd1c2R0QW10AAYECmRlbHRhRnVuZHMJAGUCBQd1c2R0QW10BQxwcm9maXRBbW91bnQECHJlaXNzdWVkCQBrAwUMY3VyV2xnQW1vdW50BQpkZWx0YUZ1bmRzBQtvbGRGdW5kc1VzZAkAlAoCCQDMCAIJAQdSZWlzc3VlAwUKd2xnQXNzZXRJZAUIcmVpc3N1ZWQGCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJ3bGdJc3N1ZWRBbW91bnRLZXkJAGQCBQxjdXJXbGdBbW91bnQFCHJlaXNzdWVkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBQRhZGRyCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFDXByb2ZpdEFkZHJLZXkFDHByb2ZpdEFtb3VudAULdXNkdEFzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQl3bGdBbW91bnQFCndsZ0Fzc2V0SWQFA25pbAUMcHJvbG9nUmVzdWx0AWkBB3NlbGxXbGcBCW1pbkFtb3VudAQMcHJvbG9nUmVzdWx0CQEGcHJvbG9nAAMJAQIhPQIJAJADAQgFAWkIcGF5bWVudHMAAQkAAgECImV4YWN0bHkgMSBwYXltZW50IG11c3QgYmUgYXR0YWNoZWQEA3BtdAkAkQMCCAUBaQhwYXltZW50cwAABAZ3bGdBbXQIBQNwbXQGYW1vdW50BApwbXRBc3NldElkCQETdmFsdWVPckVycm9yTWVzc2FnZQIIBQNwbXQHYXNzZXRJZAIeV0FWRVMgY2FuJ3QgYmUgdXNlZCBhcyBwYXltZW50AwkBAiE9AgUKcG10QXNzZXRJZAUKd2xnQXNzZXRJZAkAAgECFVdMR09MRCBwYXltZW50cyBvbmx5IQQGY2FsbGVyCAUBaQZjYWxsZXIEBGFkZHIJAKUIAQUGY2FsbGVyBAdtYXhVc2R0CQEMZ2V0U3dhcExpbWl0AQUEYWRkcgQIY3VyU3RhdHMJAQtnZXRXbGdTdGF0cwAEDGN1cldsZ0Ftb3VudAkAkQMCBQhjdXJTdGF0cwUMaWR4V2xnQW1vdW50BAlzZWxsUHJpY2UJAGsDCQCRAwIFCGN1clN0YXRzBQtpZHhXbGdQcmljZQAEAAUEB3VzZHRBbXQJAGsDBQZ3bGdBbXQFCXNlbGxQcmljZQUFTVVMVDgDCQBmAgUHdXNkdEFtdAUHbWF4VXNkdAkAAgEJAKwCAgkArAICAhBZb3UgY2FuIGdldCBtYXggCQEKZml4ZWRQb2ludAIFB21heFVzZHQABgIFIFVTRFQDCQBmAgUOTUlOU0hPUFBBWU1FTlQFB3VzZHRBbXQJAAIBCQCsAgIJAKwCAgISWW91IGNhbiB0cmFkZSBtaW4gCQEKZml4ZWRQb2ludAIFDk1JTlNIT1BQQVlNRU5UAAYCBSBVU0RUAwkAZgIFCW1pbkFtb3VudAUHdXNkdEFtdAkAAgECMFByaWNlIGNoYW5nZWQgZHVyaW5nIG9wZXJhdGlvbiwgcGxlYXNlIHRyeSBhZ2FpbgQMcHJvZml0QW1vdW50CQBpAgUHdXNkdEFtdAAEBAZidXJuZWQJAGsDCQBkAgUHdXNkdEFtdAUMcHJvZml0QW1vdW50BQxjdXJXbGdBbW91bnQJAJEDAgUIY3VyU3RhdHMFC2lkeFdsZ0Z1bmRzCQCUCgIJAMwIAgkBBEJ1cm4CBQp3bGdBc3NldElkBQZidXJuZWQJAMwIAgkBDEludGVnZXJFbnRyeQIFEndsZ0lzc3VlZEFtb3VudEtleQkAZQIFDGN1cldsZ0Ftb3VudAUGYnVybmVkCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEUa2V5TGFzdEFyYlRpbWVCeVVzZXIBBQRhZGRyCAUJbGFzdEJsb2NrCXRpbWVzdGFtcAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBCQEFdmFsdWUBCQCiCAEFDXByb2ZpdEFkZHJLZXkFDHByb2ZpdEFtb3VudAULdXNkdEFzc2V0SWQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGY2FsbGVyBQd1c2R0QW10BQt1c2R0QXNzZXRJZAUDbmlsBQxwcm9sb2dSZXN1bHQBaQEFY2xhaW0ABAxwcm9sb2dSZXN1bHQJAQZwcm9sb2cABAdhY3Rpb25zCAkBDWNsYWltSW50ZXJuYWwBCAUBaQZjYWxsZXICXzEJAJQKAgUHYWN0aW9ucwUMcHJvbG9nUmVzdWx0AWkBC29uU3Rha2VMYW5kAQRhZGRyAwkBAiE9AggFAWkGY2FsbGVyBQ9zdGFraW5nQ29udHJhY3QJAAIBAhFQZXJtaXNzaW9uIGRlbmllZAkBDWNsYWltSW50ZXJuYWwBCQERQGV4dHJOYXRpdmUoMTA2MikBBQRhZGRyAWkBDW9uVW5zdGFrZUxhbmQBBGFkZHIDCQECIT0CCAUBaQZjYWxsZXIFD3N0YWtpbmdDb250cmFjdAkAAgECEVBlcm1pc3Npb24gZGVuaWVkCQENY2xhaW1JbnRlcm5hbAEJARFAZXh0ck5hdGl2ZSgxMDYyKQEFBGFkZHIArxGd9Q==",
    "height": 2650096,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7Nmyx2ejU8RmZafCARMcsek3GbywJiMwt4MqqeBFfyLa
Next: HfWA1qkGy3M7f9EkekCsFJRPjZPD3P6P3wVDAkygCXaJ

Diff: 
Old New Differences
188 188      let restUsd = assetBalance(restContract, usdtAssetId)
189 189      let wlgUsd = assetBalance(wlgContract, usdtAssetId)
190 190      let puzzleUsd = assetBalance(puzzlePoolContract, usdtAssetId)
191 -     let totalFundsUsd = (((economyUsd + restUsd) + wlgUsd) + puzzleUsd)
191 +     let totalFundsUsd = ((economyUsd + restUsd) + wlgUsd)
192 192  [issuedAmount, fraction(totalFundsUsd, MULT8, issuedAmount), totalFundsUsd, economyUsd, restUsd, wlgUsd, puzzleUsd]
193 193      }
194 194  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  func keyBlocked () = "contractsBlocked"
5 5  
6 6  
7 7  let IdxEffTotal = 0
8 8  
9 9  let IdxEffUser = 1
10 10  
11 11  let chain = take(drop(this.bytes, 1), 1)
12 12  
13 13  let usdtAssetId = match chain {
14 14      case _ => 
15 15          if ((base58'2W' == $match0))
16 16              then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
17 17              else if ((base58'2T' == $match0))
18 18                  then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
19 19                  else throw("Unknown chain")
20 20  }
21 21  
22 22  let defaultRestAddressStr = match chain {
23 23      case _ => 
24 24          if ((base58'2W' == $match0))
25 25              then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
26 26              else if ((base58'2T' == $match0))
27 27                  then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
28 28                  else throw("Unknown chain")
29 29  }
30 30  
31 31  let arbitrageDelay = match chain {
32 32      case _ => 
33 33          if ((base58'2W' == $match0))
34 34              then 600000
35 35              else if ((base58'2T' == $match0))
36 36                  then 60000
37 37                  else throw("Unknown chain")
38 38  }
39 39  
40 40  let SEP = "__"
41 41  
42 42  let MULT6 = 1000000
43 43  
44 44  let MULT8 = 100000000
45 45  
46 46  let SSIZE = 25
47 47  
48 48  let MSIZE = 100
49 49  
50 50  let LSIZE = 225
51 51  
52 52  let XLSIZE = 400
53 53  
54 54  let XXLSIZE = 625
55 55  
56 56  let MINSHOPPAYMENT = 100000
57 57  
58 58  func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
59 59  
60 60  
61 61  let IdxCfgStakingDapp = 1
62 62  
63 63  let IdxCfgEconomyDapp = 2
64 64  
65 65  let IdxCfgWlgDapp = 4
66 66  
67 67  let IdxCfgPuzzlePoolDapp = 5
68 68  
69 69  func keyRestCfg () = "%s__restConfig"
70 70  
71 71  
72 72  func keyRestAddress () = "%s__restAddr"
73 73  
74 74  
75 75  func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
76 76  
77 77  
78 78  func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
79 79  
80 80  
81 81  let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
82 82  
83 83  let restCfg = readRestCfgOrFail(restContract)
84 84  
85 85  let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
86 86  
87 87  let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
88 88  
89 89  let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
90 90  
91 91  let puzzlePoolContract = getContractAddressOrFail(restCfg, IdxCfgPuzzlePoolDapp)
92 92  
93 93  let recLandSize = 1
94 94  
95 95  func keyResProportions () = "resTypesProportions"
96 96  
97 97  
98 98  func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
99 99  
100 100  
101 101  let wlgIssuedAmountKey = "wlg_issuedAmount"
102 102  
103 103  let wlgAssetIdKey = "wlg_assetId"
104 104  
105 105  let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "Not initialized yet")
106 106  
107 107  let idxWlgAmount = 0
108 108  
109 109  let idxWlgPrice = 1
110 110  
111 111  let idxWlgFunds = 2
112 112  
113 113  func asInt (v) = match v {
114 114      case n: Int => 
115 115          n
116 116      case _ => 
117 117          throw("fail to cast into Int")
118 118  }
119 119  
120 120  
121 121  func numPiecesBySize (landSize) = match landSize {
122 122      case _ => 
123 123          if (("S" == $match0))
124 124              then SSIZE
125 125              else if (("M" == $match0))
126 126                  then MSIZE
127 127                  else if (("L" == $match0))
128 128                      then LSIZE
129 129                      else if (("XL" == $match0))
130 130                          then XLSIZE
131 131                          else if (("XXL" == $match0))
132 132                              then XXLSIZE
133 133                              else throw("Unknown land size")
134 134  }
135 135  
136 136  
137 137  func getVotingPower (userAddrStrOrEmpty) = {
138 138      let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
139 139      func adder (acc,item) =     (acc + parseIntValue(item))
140 140  
141 141      let totalPower = {
142 142          let $l = props
143 143          let $s = size($l)
144 144          let $acc0 = 0
145 145          func $f0_1 ($a,$i) =         if (($i >= $s))
146 146              then $a
147 147              else adder($a, $l[$i])
148 148  
149 149          func $f0_2 ($a,$i) =         if (($i >= $s))
150 150              then $a
151 151              else throw("List size exceeds 6")
152 152  
153 153          $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
154 154          }
155 155      let usersPower = if ((userAddrStrOrEmpty == ""))
156 156          then 0
157 157          else {
158 158              let landsStr = getString(stakingContract, keyStakedLandsByOwner(userAddrStrOrEmpty))
159 159              let lands = if (isDefined(landsStr))
160 160                  then split_51C(value(landsStr), "_")
161 161                  else nil
162 162              func oneLand (acc,landAssetId) =             {
163 163                  let asset = value(assetInfo(fromBase58String(landAssetId)))
164 164                  let landSize = split(asset.description, "_")[recLandSize]
165 165                  (acc + numPiecesBySize(landSize))
166 166                  }
167 167  
168 168              let $l = lands
169 169              let $s = size($l)
170 170              let $acc0 = 0
171 171              func $f1_1 ($a,$i) =             if (($i >= $s))
172 172                  then $a
173 173                  else oneLand($a, $l[$i])
174 174  
175 175              func $f1_2 ($a,$i) =             if (($i >= $s))
176 176                  then $a
177 177                  else throw("List size exceeds 100")
178 178  
179 179              $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
180 180              }
181 181  [totalPower, usersPower]
182 182      }
183 183  
184 184  
185 185  func getWlgStats () = {
186 186      let issuedAmount = valueOrErrorMessage(getInteger(wlgContract, wlgIssuedAmountKey), "WLGOLD is not issued yet")
187 187      let economyUsd = assetBalance(economyContract, usdtAssetId)
188 188      let restUsd = assetBalance(restContract, usdtAssetId)
189 189      let wlgUsd = assetBalance(wlgContract, usdtAssetId)
190 190      let puzzleUsd = assetBalance(puzzlePoolContract, usdtAssetId)
191 -     let totalFundsUsd = (((economyUsd + restUsd) + wlgUsd) + puzzleUsd)
191 +     let totalFundsUsd = ((economyUsd + restUsd) + wlgUsd)
192 192  [issuedAmount, fraction(totalFundsUsd, MULT8, issuedAmount), totalFundsUsd, economyUsd, restUsd, wlgUsd, puzzleUsd]
193 193      }
194 194  
195 195  
196 196  func fixedPoint (val,decimals) = {
197 197      let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
198 198      ((toString((val / tenPow)) + ".") + toString((val % tenPow)))
199 199      }
200 200  
201 201  
202 202  let MULT14 = 100000000000000
203 203  
204 204  let MARKETINGSHARE = 100000
205 205  
206 206  let TEAMSHARE = 200000
207 207  
208 208  let ACTIVITYSHARE = 100000
209 209  
210 210  let PLAYERSHARE = 400000
211 211  
212 212  let YEARMILLIS = 31557600000
213 213  
214 214  let WEEKMILLIS = 604800000
215 215  
216 216  let MAXPERIOD = 156
217 217  
218 218  let A6 = 100000000
219 219  
220 220  let B8 = 50000000
221 221  
222 222  let wlgIssueTimeKey = "wlg_issueTime"
223 223  
224 224  let marketingAddrKey = "marketingAddr"
225 225  
226 226  let teamAddrKey = "teamAddr"
227 227  
228 228  let profitAddrKey = "profitAddr"
229 229  
230 230  let lastMarketingTimeKey = "lastClaimedTime_marketing"
231 231  
232 232  let lastTeamTimeKey = "lastClaimedTime_team"
233 233  
234 234  let lastActivitiesTimeKey = "lastClaimedTime_activities"
235 235  
236 236  func keyLastClaimedTimeByUser (addr) = ("lastClaimedTimeUser_" + addr)
237 237  
238 238  
239 239  func keyLastArbTimeByUser (addr) = ("lastArbTimeUser_" + addr)
240 240  
241 241  
242 242  let stakersAmountLeftKey = "stakersAmountLeft"
243 243  
244 244  let stakersAmountPaidTotalKey = "stakersAmountPaidTotal"
245 245  
246 246  func keyStakersAmountPaidUser (addr) = ("stakersAmountPaidUser_" + addr)
247 247  
248 248  
249 249  func prolog () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
250 250      then throw("Contracts are under maintenance")
251 251      else asInt(invoke(stakingContract, "saveLastTx", nil, nil))
252 252  
253 253  
254 254  func getSwapLimit (addr) = {
255 255      let lastTime = valueOrElse(getInteger(keyLastArbTimeByUser(addr)), 0)
256 256      let now = lastBlock.timestamp
257 257      if ((arbitrageDelay > (now - lastTime)))
258 258          then throw((("Arbitrages are possible once a " + toString((arbitrageDelay / 60000))) + "min"))
259 259          else {
260 260              let pieces = getVotingPower(addr)[IdxEffUser]
261 261              let pow8 = pow(pieces, 0, B8, 8, 8, CEILING)
262 262              fraction(A6, pow8, MULT8)
263 263              }
264 264      }
265 265  
266 266  
267 267  func claimInternal (caller) = {
268 268      let callerAddr = toString(caller)
269 269      let now = lastBlock.timestamp
270 270      let issueTime = valueOrErrorMessage(getInteger(wlgIssueTimeKey), "Not initialized")
271 271      let lastMarketingTime = valueOrElse(getInteger(lastMarketingTimeKey), issueTime)
272 272      let marketingAddr = addressFromStringValue(value(getString(marketingAddrKey)))
273 273      let marketingAmount = fraction(fraction(MULT14, MARKETINGSHARE, MULT6), (now - lastMarketingTime), YEARMILLIS)
274 274      let lastTeamTime = valueOrElse(getInteger(lastTeamTimeKey), issueTime)
275 275      let teamAddr = addressFromStringValue(value(getString(teamAddrKey)))
276 276      let teamAmount = fraction(fraction(MULT14, TEAMSHARE, MULT6), (now - lastTeamTime), (3 * YEARMILLIS))
277 277      let lastActivitiesTime = valueOrElse(getInteger(lastActivitiesTimeKey), issueTime)
278 278      let actAmount = fraction(fraction(MULT14, ACTIVITYSHARE, MULT6), (now - lastActivitiesTime), (3 * YEARMILLIS))
279 279      let curPeriod = ((now - issueTime) / WEEKMILLIS)
280 280      if ((curPeriod > (MAXPERIOD / 2)))
281 281          then throw("Please modify contract for next 1.5 years, according to stats")
282 282          else {
283 283              let eff = getVotingPower(callerAddr)
284 284              let totalPieces = eff[IdxEffTotal]
285 285              let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
286 286              let curPeriodDistribution = fraction(amountLeftTotal, (2 * totalPieces), (totalPieces + (max([100000, totalPieces]) * (MAXPERIOD - curPeriod))))
287 287              let userTimeKey = keyLastClaimedTimeByUser(callerAddr)
288 288              let lastUserTime = valueOrElse(getInteger(userTimeKey), issueTime)
289 289              let userAmount = fraction(fraction(curPeriodDistribution, eff[IdxEffUser], totalPieces), (now - lastUserTime), (3 * YEARMILLIS))
290 290              let userKey = keyStakersAmountPaidUser(callerAddr)
291 291              $Tuple2([ScriptTransfer(marketingAddr, marketingAmount, wlgAssetId), ScriptTransfer(teamAddr, 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, (amountLeftTotal - userAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(userTimeKey, now)], userAmount)
292 292              }
293 293      }
294 294  
295 295  
296 296  @Callable(i)
297 297  func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
298 298      then throw("Permission denied")
299 299      else if (isDefined(getBinary(wlgAssetIdKey)))
300 300          then throw("Already initialized")
301 301          else {
302 302              let issuedAmount = MULT14
303 303              let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
304 304              let assetId = calculateAssetId(issue)
305 305  [issue, IntegerEntry(wlgIssueTimeKey, lastBlock.timestamp), IntegerEntry(wlgIssuedAmountKey, issuedAmount), IntegerEntry(stakersAmountPaidTotalKey, 0), IntegerEntry(stakersAmountLeftKey, fraction(MULT14, PLAYERSHARE, MULT6)), BinaryEntry(wlgAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
306 306              }
307 307  
308 308  
309 309  
310 310  @Callable(i)
311 311  func buyWlg (minAmount) = {
312 312      let prologResult = prolog()
313 313      if ((size(i.payments) != 1))
314 314          then throw("exactly 1 payment must be attached")
315 315          else {
316 316              let pmt = i.payments[0]
317 317              let usdtAmt = pmt.amount
318 318              let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
319 319              if ((pmtAssetId != usdtAssetId))
320 320                  then throw("USDT payments only!")
321 321                  else {
322 322                      let caller = i.caller
323 323                      let addr = toString(caller)
324 324                      let maxUsdt = getSwapLimit(addr)
325 325                      if ((usdtAmt > maxUsdt))
326 326                          then throw((("You can spend max " + fixedPoint(maxUsdt, 6)) + " USDT"))
327 327                          else if ((MINSHOPPAYMENT > usdtAmt))
328 328                              then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
329 329                              else {
330 330                                  let curStats = getWlgStats()
331 331                                  let curWlgAmount = curStats[idxWlgAmount]
332 332                                  let oldFundsUsd = (curStats[idxWlgFunds] - usdtAmt)
333 333                                  let wlgPrice = fraction(oldFundsUsd, MULT8, curWlgAmount)
334 334                                  let buyPrice = fraction(wlgPrice, 6, 5)
335 335                                  let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
336 336                                  if ((minAmount > wlgAmount))
337 337                                      then throw("Price changed during operation, please try again")
338 338                                      else {
339 339                                          let profitAmount = (usdtAmt / 6)
340 340                                          let deltaFunds = (usdtAmt - profitAmount)
341 341                                          let reissued = fraction(curWlgAmount, deltaFunds, oldFundsUsd)
342 342                                          $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)
343 343                                          }
344 344                                  }
345 345                      }
346 346              }
347 347      }
348 348  
349 349  
350 350  
351 351  @Callable(i)
352 352  func sellWlg (minAmount) = {
353 353      let prologResult = prolog()
354 354      if ((size(i.payments) != 1))
355 355          then throw("exactly 1 payment must be attached")
356 356          else {
357 357              let pmt = i.payments[0]
358 358              let wlgAmt = pmt.amount
359 359              let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
360 360              if ((pmtAssetId != wlgAssetId))
361 361                  then throw("WLGOLD payments only!")
362 362                  else {
363 363                      let caller = i.caller
364 364                      let addr = toString(caller)
365 365                      let maxUsdt = getSwapLimit(addr)
366 366                      let curStats = getWlgStats()
367 367                      let curWlgAmount = curStats[idxWlgAmount]
368 368                      let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
369 369                      let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
370 370                      if ((usdtAmt > maxUsdt))
371 371                          then throw((("You can get max " + fixedPoint(maxUsdt, 6)) + " USDT"))
372 372                          else if ((MINSHOPPAYMENT > usdtAmt))
373 373                              then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
374 374                              else if ((minAmount > usdtAmt))
375 375                                  then throw("Price changed during operation, please try again")
376 376                                  else {
377 377                                      let profitAmount = (usdtAmt / 4)
378 378                                      let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
379 379                                      $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)
380 380                                      }
381 381                      }
382 382              }
383 383      }
384 384  
385 385  
386 386  
387 387  @Callable(i)
388 388  func claim () = {
389 389      let prologResult = prolog()
390 390      let actions = claimInternal(i.caller)._1
391 391      $Tuple2(actions, prologResult)
392 392      }
393 393  
394 394  
395 395  
396 396  @Callable(i)
397 397  func onStakeLand (addr) = if ((i.caller != stakingContract))
398 398      then throw("Permission denied")
399 399      else claimInternal(addressFromStringValue(addr))
400 400  
401 401  
402 402  
403 403  @Callable(i)
404 404  func onUnstakeLand (addr) = if ((i.caller != stakingContract))
405 405      then throw("Permission denied")
406 406      else claimInternal(addressFromStringValue(addr))
407 407  
408 408

Old	New		Differences
188	188		let restUsd = assetBalance(restContract, usdtAssetId)
189	189		let wlgUsd = assetBalance(wlgContract, usdtAssetId)
190	190		let puzzleUsd = assetBalance(puzzlePoolContract, usdtAssetId)
191		-	let totalFundsUsd = (((economyUsd + restUsd) + wlgUsd) ~~+ puzzleUsd)~~
	191	+	let totalFundsUsd = ((economyUsd + restUsd) + wlgUsd)
192	192		[issuedAmount, fraction(totalFundsUsd, MULT8, issuedAmount), totalFundsUsd, economyUsd, restUsd, wlgUsd, puzzleUsd]
193	193		}
194	194

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		func keyBlocked () = "contractsBlocked"
5	5
6	6
7	7		let IdxEffTotal = 0
8	8
9	9		let IdxEffUser = 1
10	10
11	11		let chain = take(drop(this.bytes, 1), 1)
12	12
13	13		let usdtAssetId = match chain {
14	14		case _ =>
15	15		if ((base58'2W' == $match0))
16	16		then base58'9wc3LXNA4TEBsXyKtoLE9mrbDD7WMHXvXrCjZvabLAsi'
17	17		else if ((base58'2T' == $match0))
18	18		then base58'6mWwf9mZBjVgkC54idpyaZLQfAosD914wT8fGf2iiY63'
19	19		else throw("Unknown chain")
20	20		}
21	21
22	22		let defaultRestAddressStr = match chain {
23	23		case _ =>
24	24		if ((base58'2W' == $match0))
25	25		then "3PQCuvFbvh4LkPUnrnU1z3jnbA1p9m3WNhv"
26	26		else if ((base58'2T' == $match0))
27	27		then "3MumkGGztCKAXpWDqxkddofqXSUbqQkvSJy"
28	28		else throw("Unknown chain")
29	29		}
30	30
31	31		let arbitrageDelay = match chain {
32	32		case _ =>
33	33		if ((base58'2W' == $match0))
34	34		then 600000
35	35		else if ((base58'2T' == $match0))
36	36		then 60000
37	37		else throw("Unknown chain")
38	38		}
39	39
40	40		let SEP = "__"
41	41
42	42		let MULT6 = 1000000
43	43
44	44		let MULT8 = 100000000
45	45
46	46		let SSIZE = 25
47	47
48	48		let MSIZE = 100
49	49
50	50		let LSIZE = 225
51	51
52	52		let XLSIZE = 400
53	53
54	54		let XXLSIZE = 625
55	55
56	56		let MINSHOPPAYMENT = 100000
57	57
58	58		func getStringOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
59	59
60	60
61	61		let IdxCfgStakingDapp = 1
62	62
63	63		let IdxCfgEconomyDapp = 2
64	64
65	65		let IdxCfgWlgDapp = 4
66	66
67	67		let IdxCfgPuzzlePoolDapp = 5
68	68
69	69		func keyRestCfg () = "%s__restConfig"
70	70
71	71
72	72		func keyRestAddress () = "%s__restAddr"
73	73
74	74
75	75		func readRestCfgOrFail (rest) = split_4C(getStringOrFail(rest, keyRestCfg()), SEP)
76	76
77	77
78	78		func getContractAddressOrFail (restCfg,idx) = valueOrErrorMessage(addressFromString(restCfg[idx]), ("Rest cfg doesn't contain address at index " + toString(idx)))
79	79
80	80
81	81		let restContract = addressFromStringValue(valueOrElse(getString(this, keyRestAddress()), defaultRestAddressStr))
82	82
83	83		let restCfg = readRestCfgOrFail(restContract)
84	84
85	85		let stakingContract = getContractAddressOrFail(restCfg, IdxCfgStakingDapp)
86	86
87	87		let economyContract = getContractAddressOrFail(restCfg, IdxCfgEconomyDapp)
88	88
89	89		let wlgContract = getContractAddressOrFail(restCfg, IdxCfgWlgDapp)
90	90
91	91		let puzzlePoolContract = getContractAddressOrFail(restCfg, IdxCfgPuzzlePoolDapp)
92	92
93	93		let recLandSize = 1
94	94
95	95		func keyResProportions () = "resTypesProportions"
96	96
97	97
98	98		func keyStakedLandsByOwner (ownerAddr) = ("stakedLandsByOwner_" + ownerAddr)
99	99
100	100
101	101		let wlgIssuedAmountKey = "wlg_issuedAmount"
102	102
103	103		let wlgAssetIdKey = "wlg_assetId"
104	104
105	105		let wlgAssetId = valueOrErrorMessage(getBinary(wlgContract, wlgAssetIdKey), "Not initialized yet")
106	106
107	107		let idxWlgAmount = 0
108	108
109	109		let idxWlgPrice = 1
110	110
111	111		let idxWlgFunds = 2
112	112
113	113		func asInt (v) = match v {
114	114		case n: Int =>
115	115		n
116	116		case _ =>
117	117		throw("fail to cast into Int")
118	118		}
119	119
120	120
121	121		func numPiecesBySize (landSize) = match landSize {
122	122		case _ =>
123	123		if (("S" == $match0))
124	124		then SSIZE
125	125		else if (("M" == $match0))
126	126		then MSIZE
127	127		else if (("L" == $match0))
128	128		then LSIZE
129	129		else if (("XL" == $match0))
130	130		then XLSIZE
131	131		else if (("XXL" == $match0))
132	132		then XXLSIZE
133	133		else throw("Unknown land size")
134	134		}
135	135
136	136
137	137		func getVotingPower (userAddrStrOrEmpty) = {
138	138		let props = split(valueOrElse(getString(stakingContract, keyResProportions()), "0_0_0_0_0_0"), "_")
139	139		func adder (acc,item) = (acc + parseIntValue(item))
140	140
141	141		let totalPower = {
142	142		let $l = props
143	143		let $s = size($l)
144	144		let $acc0 = 0
145	145		func $f0_1 ($a,$i) = if (($i >= $s))
146	146		then $a
147	147		else adder($a, $l[$i])
148	148
149	149		func $f0_2 ($a,$i) = if (($i >= $s))
150	150		then $a
151	151		else throw("List size exceeds 6")
152	152
153	153		$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6)
154	154		}
155	155		let usersPower = if ((userAddrStrOrEmpty == ""))
156	156		then 0
157	157		else {
158	158		let landsStr = getString(stakingContract, keyStakedLandsByOwner(userAddrStrOrEmpty))
159	159		let lands = if (isDefined(landsStr))
160	160		then split_51C(value(landsStr), "_")
161	161		else nil
162	162		func oneLand (acc,landAssetId) = {
163	163		let asset = value(assetInfo(fromBase58String(landAssetId)))
164	164		let landSize = split(asset.description, "_")[recLandSize]
165	165		(acc + numPiecesBySize(landSize))
166	166		}
167	167
168	168		let $l = lands
169	169		let $s = size($l)
170	170		let $acc0 = 0
171	171		func $f1_1 ($a,$i) = if (($i >= $s))
172	172		then $a
173	173		else oneLand($a, $l[$i])
174	174
175	175		func $f1_2 ($a,$i) = if (($i >= $s))
176	176		then $a
177	177		else throw("List size exceeds 100")
178	178
179	179		$f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63), 64), 65), 66), 67), 68), 69), 70), 71), 72), 73), 74), 75), 76), 77), 78), 79), 80), 81), 82), 83), 84), 85), 86), 87), 88), 89), 90), 91), 92), 93), 94), 95), 96), 97), 98), 99), 100)
180	180		}
181	181		[totalPower, usersPower]
182	182		}
183	183
184	184
185	185		func getWlgStats () = {
186	186		let issuedAmount = valueOrErrorMessage(getInteger(wlgContract, wlgIssuedAmountKey), "WLGOLD is not issued yet")
187	187		let economyUsd = assetBalance(economyContract, usdtAssetId)
188	188		let restUsd = assetBalance(restContract, usdtAssetId)
189	189		let wlgUsd = assetBalance(wlgContract, usdtAssetId)
190	190		let puzzleUsd = assetBalance(puzzlePoolContract, usdtAssetId)
191		-	let totalFundsUsd = (((economyUsd + restUsd) + wlgUsd) ~~+ puzzleUsd)~~
	191	+	let totalFundsUsd = ((economyUsd + restUsd) + wlgUsd)
192	192		[issuedAmount, fraction(totalFundsUsd, MULT8, issuedAmount), totalFundsUsd, economyUsd, restUsd, wlgUsd, puzzleUsd]
193	193		}
194	194
195	195
196	196		func fixedPoint (val,decimals) = {
197	197		let tenPow = pow(10, 0, decimals, 0, 0, DOWN)
198	198		((toString((val / tenPow)) + ".") + toString((val % tenPow)))
199	199		}
200	200
201	201
202	202		let MULT14 = 100000000000000
203	203
204	204		let MARKETINGSHARE = 100000
205	205
206	206		let TEAMSHARE = 200000
207	207
208	208		let ACTIVITYSHARE = 100000
209	209
210	210		let PLAYERSHARE = 400000
211	211
212	212		let YEARMILLIS = 31557600000
213	213
214	214		let WEEKMILLIS = 604800000
215	215
216	216		let MAXPERIOD = 156
217	217
218	218		let A6 = 100000000
219	219
220	220		let B8 = 50000000
221	221
222	222		let wlgIssueTimeKey = "wlg_issueTime"
223	223
224	224		let marketingAddrKey = "marketingAddr"
225	225
226	226		let teamAddrKey = "teamAddr"
227	227
228	228		let profitAddrKey = "profitAddr"
229	229
230	230		let lastMarketingTimeKey = "lastClaimedTime_marketing"
231	231
232	232		let lastTeamTimeKey = "lastClaimedTime_team"
233	233
234	234		let lastActivitiesTimeKey = "lastClaimedTime_activities"
235	235
236	236		func keyLastClaimedTimeByUser (addr) = ("lastClaimedTimeUser_" + addr)
237	237
238	238
239	239		func keyLastArbTimeByUser (addr) = ("lastArbTimeUser_" + addr)
240	240
241	241
242	242		let stakersAmountLeftKey = "stakersAmountLeft"
243	243
244	244		let stakersAmountPaidTotalKey = "stakersAmountPaidTotal"
245	245
246	246		func keyStakersAmountPaidUser (addr) = ("stakersAmountPaidUser_" + addr)
247	247
248	248
249	249		func prolog () = if (valueOrElse(getBoolean(stakingContract, keyBlocked()), false))
250	250		then throw("Contracts are under maintenance")
251	251		else asInt(invoke(stakingContract, "saveLastTx", nil, nil))
252	252
253	253
254	254		func getSwapLimit (addr) = {
255	255		let lastTime = valueOrElse(getInteger(keyLastArbTimeByUser(addr)), 0)
256	256		let now = lastBlock.timestamp
257	257		if ((arbitrageDelay > (now - lastTime)))
258	258		then throw((("Arbitrages are possible once a " + toString((arbitrageDelay / 60000))) + "min"))
259	259		else {
260	260		let pieces = getVotingPower(addr)[IdxEffUser]
261	261		let pow8 = pow(pieces, 0, B8, 8, 8, CEILING)
262	262		fraction(A6, pow8, MULT8)
263	263		}
264	264		}
265	265
266	266
267	267		func claimInternal (caller) = {
268	268		let callerAddr = toString(caller)
269	269		let now = lastBlock.timestamp
270	270		let issueTime = valueOrErrorMessage(getInteger(wlgIssueTimeKey), "Not initialized")
271	271		let lastMarketingTime = valueOrElse(getInteger(lastMarketingTimeKey), issueTime)
272	272		let marketingAddr = addressFromStringValue(value(getString(marketingAddrKey)))
273	273		let marketingAmount = fraction(fraction(MULT14, MARKETINGSHARE, MULT6), (now - lastMarketingTime), YEARMILLIS)
274	274		let lastTeamTime = valueOrElse(getInteger(lastTeamTimeKey), issueTime)
275	275		let teamAddr = addressFromStringValue(value(getString(teamAddrKey)))
276	276		let teamAmount = fraction(fraction(MULT14, TEAMSHARE, MULT6), (now - lastTeamTime), (3 * YEARMILLIS))
277	277		let lastActivitiesTime = valueOrElse(getInteger(lastActivitiesTimeKey), issueTime)
278	278		let actAmount = fraction(fraction(MULT14, ACTIVITYSHARE, MULT6), (now - lastActivitiesTime), (3 * YEARMILLIS))
279	279		let curPeriod = ((now - issueTime) / WEEKMILLIS)
280	280		if ((curPeriod > (MAXPERIOD / 2)))
281	281		then throw("Please modify contract for next 1.5 years, according to stats")
282	282		else {
283	283		let eff = getVotingPower(callerAddr)
284	284		let totalPieces = eff[IdxEffTotal]
285	285		let amountLeftTotal = valueOrElse(getInteger(stakersAmountLeftKey), 0)
286	286		let curPeriodDistribution = fraction(amountLeftTotal, (2 * totalPieces), (totalPieces + (max([100000, totalPieces]) * (MAXPERIOD - curPeriod))))
287	287		let userTimeKey = keyLastClaimedTimeByUser(callerAddr)
288	288		let lastUserTime = valueOrElse(getInteger(userTimeKey), issueTime)
289	289		let userAmount = fraction(fraction(curPeriodDistribution, eff[IdxEffUser], totalPieces), (now - lastUserTime), (3 * YEARMILLIS))
290	290		let userKey = keyStakersAmountPaidUser(callerAddr)
291	291		$Tuple2([ScriptTransfer(marketingAddr, marketingAmount, wlgAssetId), ScriptTransfer(teamAddr, 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, (amountLeftTotal - userAmount)), IntegerEntry(lastMarketingTimeKey, now), IntegerEntry(lastTeamTimeKey, now), IntegerEntry(lastActivitiesTimeKey, now), IntegerEntry(userTimeKey, now)], userAmount)
292	292		}
293	293		}
294	294
295	295
296	296		@Callable(i)
297	297		func constructorV1 (restAddr,marketingAddr,teamAddr,profitAddr) = if ((i.caller != this))
298	298		then throw("Permission denied")
299	299		else if (isDefined(getBinary(wlgAssetIdKey)))
300	300		then throw("Already initialized")
301	301		else {
302	302		let issuedAmount = MULT14
303	303		let issue = Issue("WLGOLD", "WavesLands Gold investment token", issuedAmount, 8, true, unit, 0)
304	304		let assetId = calculateAssetId(issue)
305	305		[issue, IntegerEntry(wlgIssueTimeKey, lastBlock.timestamp), IntegerEntry(wlgIssuedAmountKey, issuedAmount), IntegerEntry(stakersAmountPaidTotalKey, 0), IntegerEntry(stakersAmountLeftKey, fraction(MULT14, PLAYERSHARE, MULT6)), BinaryEntry(wlgAssetIdKey, assetId), StringEntry(keyRestAddress(), restAddr), StringEntry(marketingAddrKey, marketingAddr), StringEntry(teamAddrKey, teamAddr), StringEntry(profitAddrKey, profitAddr)]
306	306		}
307	307
308	308
309	309
310	310		@Callable(i)
311	311		func buyWlg (minAmount) = {
312	312		let prologResult = prolog()
313	313		if ((size(i.payments) != 1))
314	314		then throw("exactly 1 payment must be attached")
315	315		else {
316	316		let pmt = i.payments[0]
317	317		let usdtAmt = pmt.amount
318	318		let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
319	319		if ((pmtAssetId != usdtAssetId))
320	320		then throw("USDT payments only!")
321	321		else {
322	322		let caller = i.caller
323	323		let addr = toString(caller)
324	324		let maxUsdt = getSwapLimit(addr)
325	325		if ((usdtAmt > maxUsdt))
326	326		then throw((("You can spend max " + fixedPoint(maxUsdt, 6)) + " USDT"))
327	327		else if ((MINSHOPPAYMENT > usdtAmt))
328	328		then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
329	329		else {
330	330		let curStats = getWlgStats()
331	331		let curWlgAmount = curStats[idxWlgAmount]
332	332		let oldFundsUsd = (curStats[idxWlgFunds] - usdtAmt)
333	333		let wlgPrice = fraction(oldFundsUsd, MULT8, curWlgAmount)
334	334		let buyPrice = fraction(wlgPrice, 6, 5)
335	335		let wlgAmount = fraction(usdtAmt, MULT8, buyPrice)
336	336		if ((minAmount > wlgAmount))
337	337		then throw("Price changed during operation, please try again")
338	338		else {
339	339		let profitAmount = (usdtAmt / 6)
340	340		let deltaFunds = (usdtAmt - profitAmount)
341	341		let reissued = fraction(curWlgAmount, deltaFunds, oldFundsUsd)
342	342		$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)
343	343		}
344	344		}
345	345		}
346	346		}
347	347		}
348	348
349	349
350	350
351	351		@Callable(i)
352	352		func sellWlg (minAmount) = {
353	353		let prologResult = prolog()
354	354		if ((size(i.payments) != 1))
355	355		then throw("exactly 1 payment must be attached")
356	356		else {
357	357		let pmt = i.payments[0]
358	358		let wlgAmt = pmt.amount
359	359		let pmtAssetId = valueOrErrorMessage(pmt.assetId, "WAVES can't be used as payment")
360	360		if ((pmtAssetId != wlgAssetId))
361	361		then throw("WLGOLD payments only!")
362	362		else {
363	363		let caller = i.caller
364	364		let addr = toString(caller)
365	365		let maxUsdt = getSwapLimit(addr)
366	366		let curStats = getWlgStats()
367	367		let curWlgAmount = curStats[idxWlgAmount]
368	368		let sellPrice = fraction(curStats[idxWlgPrice], 4, 5)
369	369		let usdtAmt = fraction(wlgAmt, sellPrice, MULT8)
370	370		if ((usdtAmt > maxUsdt))
371	371		then throw((("You can get max " + fixedPoint(maxUsdt, 6)) + " USDT"))
372	372		else if ((MINSHOPPAYMENT > usdtAmt))
373	373		then throw((("You can trade min " + fixedPoint(MINSHOPPAYMENT, 6)) + " USDT"))
374	374		else if ((minAmount > usdtAmt))
375	375		then throw("Price changed during operation, please try again")
376	376		else {
377	377		let profitAmount = (usdtAmt / 4)
378	378		let burned = fraction((usdtAmt + profitAmount), curWlgAmount, curStats[idxWlgFunds])
379	379		$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)
380	380		}
381	381		}
382	382		}
383	383		}
384	384
385	385
386	386
387	387		@Callable(i)
388	388		func claim () = {
389	389		let prologResult = prolog()
390	390		let actions = claimInternal(i.caller)._1
391	391		$Tuple2(actions, prologResult)
392	392		}
393	393
394	394
395	395
396	396		@Callable(i)
397	397		func onStakeLand (addr) = if ((i.caller != stakingContract))
398	398		then throw("Permission denied")
399	399		else claimInternal(addressFromStringValue(addr))
400	400
401	401
402	402
403	403		@Callable(i)
404	404		func onUnstakeLand (addr) = if ((i.caller != stakingContract))
405	405		then throw("Permission denied")
406	406		else claimInternal(addressFromStringValue(addr))
407	407
408	408

github/deemru/w8io/c3f4982 
48.08 ms ◑