tx · 9pLrAG7Mx534ypsMBVJRpL2Deo2cMyNdBajZsjcooiPM

3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ:  -0.01400000 Waves

2023.12.12 13:06 [2883367] smart account 3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9pLrAG7Mx534ypsMBVJRpL2Deo2cMyNdBajZsjcooiPM",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1702375602660,
    "version": 2,
    "chainId": 84,
    "sender": "3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ",
    "senderPublicKey": "CQoe8BRHR78TuPQLcK3Ykv39w9CeNLhjKdj6TNbJ5FrM",
    "proofs": [
        "3ZfZdBrh9JXwtXR68uPF8mTZbtcdfV86paeC2mCQj38o5LcxwzQjYimktq6PQCePSqDFQ4XwnwQ65i38g2zYMry5"
    ],
    "script": "base64:BgIaCAISBgoECAgBCBIDCgEEEgMKAQgSBAoCCAJEAANTRVACAl9fAAdXQVZFU0lEAQQTq9kzAAZXQVZFU0QAgMLXLwAJR0FNRV9OQU1FAglYbWFzIFRyZWUADFJBTkRPTV9SQU5HRQAFAAhOVU1fQkVUUwABAAlIT1JfTElORVMJAMwIAgkAzAgCAOsDCQDMCAIA+gMJAMwIAgAsBQNuaWwJAMwIAgkAzAgCAMcDCQDMCAIAngQJAMwIAgB4BQNuaWwJAMwIAgkAzAgCAJQDCQDMCAIA1AQJAMwIAgCmAQUDbmlsCQDMCAIJAMwIAgC5AwkAzAgCAKwECQDMCAIAsQEFA25pbAkAzAgCCQDMCAIAgwMJAMwIAgDsBAkAzAgCAOgBBQNuaWwJAMwIAgkAzAgCAJoDCQDMCAIA0AQJAMwIAgD0AQUDbmlsCQDMCAIJAMwIAgDJAgkAzAgCAJkFCQDMCAIAwQIFA25pbAkAzAgCCQDMCAIA8gIJAMwIAgCaBQkAzAgCANECBQNuaWwJAMwIAgkAzAgCAOMCCQDMCAIAhQUJAMwIAgDdAgUDbmlsCQDMCAIJAMwIAgC5AgkAzAgCALQFCQDMCAIAgAMFA25pbAkAzAgCCQDMCAIAoQIJAMwIAgCqBQkAzAgCAJUDBQNuaWwJAMwIAgkAzAgCAMQCCQDMCAIAkQUJAMwIAgDNAwUDbmlsCQDMCAIJAMwIAgDCAwkAzAgCAL8ECQDMCAIAjQQFA25pbAkAzAgCCQDMCAIA+QMJAMwIAgD5AwkAzAgCAJQEBQNuaWwFA25pbAEMZ2V0U3RyT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgABDGdldEludE9yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAAQ1nZXRCb29sT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCbCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEGFsbG93ZWRBc3NldHNLZXkCGCVzJXNfX2NmZ19fYWxsb3dlZEFzc2V0cwARYXNzZXRzRGVjaW1hbHNLZXkCGSVzJXNfX2NmZ19fYXNzZXRzRGVjaW1hbHMADmJldERpdmlkZXJzS2V5AhwlcyVzX19jZmdfX2Fzc2V0c0JldERpdmlkZXJzAA5SU0FQVUJMSUM2NEtFWQIWJXMlc19fY2ZnX19yc2FQdWJsaWM2NAAQU0VSVkVSQUREUkVTU0tFWQIWJXMlc19fY2ZnX19iZW56QWRkcmVzcwAQUkFORFRJTUVGUkFNRUtFWQIcJXMlc19fY2ZnX193aXRoZHJhd1RpbWVGcmFtZQAPR0FNRVNDT1VOVEVSS0VZAhYlcyVzX19ydW50aW1lX19nYW1lTnVtAApibG9ja2VkS2V5AiAlcyVzX19ydW50aW1lX19jb250cmFjdElzQmxvY2tlZAAScmVzZXJ2ZWRBbW91bnRzS2V5Ah4lcyVzX19ydW50aW1lX19yZXNlcnZlZEFtb3VudHMBCWtleUNvb3JkcwEGZ2FtZUlkCQCsAgICISVzJXMlc19fcnVudGltZV9fY29vcmRzQnlHYW1lSWRfXwUGZ2FtZUlkAQtnZXRJbnRBcnJheQEDa2V5BAFhCQEMZ2V0U3RyT3JGYWlsAgUEdGhpcwUDa2V5CgEGZmlsbGVyAgNhY2MCZWwJAM0IAgUDYWNjCQENcGFyc2VJbnRWYWx1ZQEFAmVsCgACJGwJALUJAgUBYQUDU0VQCgACJHMJAJADAQUCJGwKAAUkYWNjMAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQZmaWxsZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoABkFTU0VUUwkAtQkCCQEMZ2V0U3RyT3JGYWlsAgUEdGhpcwUQYWxsb3dlZEFzc2V0c0tleQUDU0VQAAhERUNJTUFMUwkBC2dldEludEFycmF5AQURYXNzZXRzRGVjaW1hbHNLZXkAC0JFVERJVklERVJTCQELZ2V0SW50QXJyYXkBBQ5iZXREaXZpZGVyc0tleQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0U3RyAQhhc3NldFN0cgkArAICAhEkUkVTRVJWRURfQU1PVU5UXwUIYXNzZXRTdHIBGGtleVJlc2VydmF0aW9uQnlBc3NldElkeAEIYXNzZXRJZHgJARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRTdHIBCQCRAwIFBkFTU0VUUwUIYXNzZXRJZHgAC01JTkZFRVdBVkVTCQBpAgkAaAIABQUGV0FWRVNEAOgHAAlpZHhBc3NldHMAAAALaWR4RGVjaW1hbHMAAQALaWR4RGl2aWRlcnMAAgAEQkVUMQABAARCRVQyAAIABEJFVDQABAAEQkVUOAAIAAVCRVQxNAAOAAhSQVRFTVVMVACQTgAEUkFURQCQoQ8ABEJFVFMJAMwIAgUEQkVUMgUDbmlsAAxJZHhHYW1lU3RhdGUAAAAPSWR4UGxheWVyQ2hvaWNlAAEAEUlkeFBsYXllclB1YktleTU4AAIAEElkeFN0YXJ0ZWRIZWlnaHQAAwAMSWR4V2luQW1vdW50AAQACklkeEFzc2V0SWQABQAOU1RBVEVTVUJNSVRURUQCCVNVQk1JVFRFRAAIU1RBVEVXT04CA1dPTgAJU1RBVEVMT1NUAgRMT1NUAQ9nZXRTdHJpbmdPckZhaWwBA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFBHRoaXMFA2tleQkArAICBQNrZXkCIyBrZXkgaXMgbm90IHNwZWNpZmllZCBpbiB0aGlzLnN0YXRlAAlSU0FQVUJMSUMJANsEAQkBD2dldFN0cmluZ09yRmFpbAEFDlJTQVBVQkxJQzY0S0VZAAZTRVJWRVIJARFAZXh0ck5hdGl2ZSgxMDYyKQEJAQ9nZXRTdHJpbmdPckZhaWwBBRBTRVJWRVJBRERSRVNTS0VZABNSQU5ET1JBQ0xFVElNRUZSQU1FCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFEFJBTkRUSU1FRlJBTUVLRVkAoDgBCGdldEludE9yAgNrZXkHZGVmYXVsdAMJAQlpc0RlZmluZWQBCQCfCAEFA2tleQkBEUBleHRyTmF0aXZlKDEwNTUpAQUDa2V5BQdkZWZhdWx0AQZzZXRJbnQCA2tleQV2YWx1ZQkBDEludGVnZXJFbnRyeQIFA2tleQUFdmFsdWUBDGluY3JlbWVudEludAEDa2V5CQEGc2V0SW50AgUDa2V5CQBkAgkBCGdldEludE9yAgUDa2V5AP///////////wEAAQEJY2hhbmdlSW50AgNrZXkCYnkJAQZzZXRJbnQCBQNrZXkJAGQCCQEIZ2V0SW50T3ICBQNrZXkAAAUCYnkBDGFzc2V0SWRUb1N0cgENYXNzZXRJZE9yVW5pdAQHJG1hdGNoMAUNYXNzZXRJZE9yVW5pdAMJAAECBQckbWF0Y2gwAgpCeXRlVmVjdG9yBAFiBQckbWF0Y2gwCQDYBAEFAWICBVdBVkVTAQ5hc3NldElkRnJvbVN0cgEKYXNzZXRJZFN0cgMJAAACBQphc3NldElkU3RyAgVXQVZFUwUEdW5pdAkA2QQBBQphc3NldElkU3RyAQ9nZXRBc3NldEJhbGFuY2UBDWFzc2V0SWRPclVuaXQEByRtYXRjaDAFDWFzc2V0SWRPclVuaXQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQHYXNzZXRJZAUHJG1hdGNoMAkA8AcCBQR0aGlzBQdhc3NldElkCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQEVaW5jcmVhc2VSZXNlcnZlQW1vdW50Agl3aW5BbW91bnQIYXNzZXRJZHgECmFzc2V0SWRTdHIJAJEDAgUGQVNTRVRTBQhhc3NldElkeAQRbmV3UmVzZXJ2ZWRBbW91bnQJAGQCCQEIZ2V0SW50T3ICCQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0SWR4AQUIYXNzZXRJZHgAAAUJd2luQW1vdW50AwkAZgIFEW5ld1Jlc2VydmVkQW1vdW50CQEPZ2V0QXNzZXRCYWxhbmNlAQkBDmFzc2V0SWRGcm9tU3RyAQUKYXNzZXRJZFN0cgkAAgEJAKwCAgkArAICAhZJbnN1ZmZpY2llbnQgZnVuZHMgb24gBQlHQU1FX05BTUUCMyBhY2NvdW50LiBUcmFuc2FjdGlvbiB3YXMgcmVqZWN0ZWQgZm9yIHlvdXIgc2FmZXR5LgURbmV3UmVzZXJ2ZWRBbW91bnQBFmRlY3JlYXNlUmVzZXJ2ZWRBbW91bnQDBmdhbWVJZAhhc3NldElkeAl3aW5BbW91bnQDCQBmAgAACQBlAgkBCGdldEludE9yAgkBGGtleVJlc2VydmF0aW9uQnlBc3NldElkeAEFCGFzc2V0SWR4AAAFCXdpbkFtb3VudAkAAgEJAKwCAgkArAICAghJbnZhbGlkIAUJR0FNRV9OQU1FAi8gYWNjb3VudCBzdGF0ZSAtIHJlc2VydmVkIGFtb3VudCBpcyBsZXNzIHRoYW4gMAkBCWNoYW5nZUludAIJARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRJZHgBBQhhc3NldElkeAkBAS0BBQl3aW5BbW91bnQBFnZhbGlkYXRlQW5kR2V0QXNzZXRJZHgBCmFzc2V0SWRTdHIEA2lkeAkAzwgCBQZBU1NFVFMFCmFzc2V0SWRTdHIDCQEBIQEJAQlpc0RlZmluZWQBBQNpZHgJAAIBAhVJbnZhbGlkIHBheW1lbnQgYXNzZXQJAQV2YWx1ZQEFA2lkeAEadmFsaWRhdGVCZXRBbmRHZXRXaW5BbW91bnQDA2JldBBpbnRlcm5hbEFzc2V0SWR4DHBsYXllckNob2ljZQQKZGljZXNDb3VudAkAsQIBBQxwbGF5ZXJDaG9pY2UKAQtjaGVja0Ftb3VudAIBYQF4AwUBYQYJAAACBQNiZXQJAGkCCQBoAgUBeAkAkQMCBQhERUNJTUFMUwUQaW50ZXJuYWxBc3NldElkeAkAkQMCBQtCRVRESVZJREVSUwUQaW50ZXJuYWxBc3NldElkeAMJAQEhAQoAAiRsBQRCRVRTCgACJHMJAJADAQUCJGwKAAUkYWNjMAcKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC2NoZWNrQW1vdW50AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhNMaXN0IHNpemUgZXhjZWVkcyA1CQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQkAAgECF0JldCBhbW91bnQgaXMgbm90IHZhbGlkAwkAAAIJALYJAQUMcGxheWVyQ2hvaWNlBQR1bml0CQACAQIXSW52YWxpZCBwbGF5ZXIncyBjaG9pY2UDCQECIT0CBQpkaWNlc0NvdW50BQhOVU1fQkVUUwkAAgECIUludmFsaWQgbGVuZ3RoIG9mIHBsYXllcidzIGNob2ljZQkAawMFA2JldAUEUkFURQUIUkFURU1VTFQBEmdlbmVyYXRlUmFuZENob2ljZQIGZ2FtZUlkB3JzYVNpZ24EC3JzYVNpZ1ZhbGlkCQCoFAQFBlNIQTI1NgkAmwMBBQZnYW1lSWQFB3JzYVNpZ24FCVJTQVBVQkxJQwMJAQEhAQULcnNhU2lnVmFsaWQJAAIBAhVJbnZhbGlkIFJTQSBzaWduYXR1cmUEBHJhbmQJAGoCCQCxCQEJAPcDAQUHcnNhU2lnbgUMUkFORE9NX1JBTkdFCQCkAwEJAGQCBQRyYW5kAAEBC2lzUGxheWVyV2luAgxwbGF5ZXJDaG9pY2UKcmFuZENob2lzZQQBcwkAsQIBBQxwbGF5ZXJDaG9pY2UKAQVjaGVjawIBYQF4AwUBYQYDCQBnAgUBcwUBeAkAAAIJAK8CAgkAsAICBQxwbGF5ZXJDaG9pY2UJAGUCBQF4AAEAAQUKcmFuZENob2lzZQcKAAIkbAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEFY2hlY2sCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAQ9mb3JtYXRHYW1lRGF0YVMHCmdhbWVTdGF0dXMMcGxheWVyQ2hvaWNlDnBsYXllclB1YktleTU4DXN0YXJ0ZWRIZWlnaHQJd2luQW1vdW50CGFzc2V0SWR4C3JhbmRPckVtcHR5CQC5CQIJAMwIAgUKZ2FtZVN0YXR1cwkAzAgCBQxwbGF5ZXJDaG9pY2UJAMwIAgUOcGxheWVyUHViS2V5NTgJAMwIAgUNc3RhcnRlZEhlaWdodAkAzAgCBQl3aW5BbW91bnQJAMwIAgUIYXNzZXRJZHgJAMwIAgMJAAACBQtyYW5kT3JFbXB0eQIAAgAFC3JhbmRPckVtcHR5BQNuaWwCAV8BDmZvcm1hdEdhbWVEYXRhBwpnYW1lU3RhdHVzDHBsYXllckNob2ljZQ5wbGF5ZXJQdWJLZXk1OA1zdGFydGVkSGVpZ2h0CXdpbkFtb3VudAhhc3NldElkeAtyYW5kT3JFbXB0eQkBD2Zvcm1hdEdhbWVEYXRhUwcFCmdhbWVTdGF0dXMFDHBsYXllckNob2ljZQUOcGxheWVyUHViS2V5NTgJAKQDAQUNc3RhcnRlZEhlaWdodAkApAMBBQl3aW5BbW91bnQJAKQDAQUIYXNzZXRJZHgFC3JhbmRPckVtcHR5AQ5maW5pc2hHYW1lRGF0YQQMb3JpZ0dhbWVEYXRhCmdhbWVTdGF0dXMEcmFuZAx3aW5CeVRpbWVvdXQEDmZpbmlzaEdhbWVEYXRhCQEPZm9ybWF0R2FtZURhdGFTBwUKZ2FtZVN0YXR1cwkAkQMCBQxvcmlnR2FtZURhdGEFD0lkeFBsYXllckNob2ljZQkAkQMCBQxvcmlnR2FtZURhdGEFEUlkeFBsYXllclB1YktleTU4CQCRAwIFDG9yaWdHYW1lRGF0YQUQSWR4U3RhcnRlZEhlaWdodAkAkQMCBQxvcmlnR2FtZURhdGEFDElkeFdpbkFtb3VudAkAkQMCBQxvcmlnR2FtZURhdGEFCklkeEFzc2V0SWQFBHJhbmQDBQx3aW5CeVRpbWVvdXQJAKwCAgUOZmluaXNoR2FtZURhdGECCF9USU1FT1VUBQ5maW5pc2hHYW1lRGF0YQEPZXh0cmFjdEdhbWVEYXRhAQZnYW1lSWQJALUJAgQHJG1hdGNoMAkAnQgCBQR0aGlzBQZnYW1lSWQDCQABAgUHJG1hdGNoMAIGU3RyaW5nBANzdHIFByRtYXRjaDAFA3N0cgkAAgEJAKwCAgkArAICAgZHYW1lOiAFBmdhbWVJZAILIG5vdCBmb3VuZC4CAV8EAWkBDWNvbnN0cnVjdG9yVjEEC3JzYVB1YmxpYzY0C2JlbnpBZGRyZXNzE3JhbmRPcmFjbGVUaW1lRnJhbWUQdG9rZW5zRGVzY3JpcHRvcgMJAQIhPQIIBQFpBmNhbGxlcgUGU0VSVkVSCQACAQIObm90IGF1dGhvcml6ZWQKAQhzcGxpdHRlcgIDYWNjBGVsZW0EB3Rva0xpc3QJALUJAgUEZWxlbQIBOgMJAQIhPQIJAJADAQUHdG9rTGlzdAADCQACAQIUSW52YWxpZCBhc3NldCByZWNvcmQJAJUKAwkAzQgCCAUDYWNjAl8xCQCRAwIFB3Rva0xpc3QFCWlkeEFzc2V0cwkAzQgCCAUDYWNjAl8yCQCRAwIFB3Rva0xpc3QFC2lkeERlY2ltYWxzCQDNCAIIBQNhY2MCXzMJAJEDAgUHdG9rTGlzdAULaWR4RGl2aWRlcnMEAXIKAAIkbAkAvAkCBRB0b2tlbnNEZXNjcmlwdG9yAgFfCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFA25pbAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhzcGxpdHRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkAzAgCCQELU3RyaW5nRW50cnkCBQ5SU0FQVUJMSUM2NEtFWQULcnNhUHVibGljNjQJAMwIAgkBC1N0cmluZ0VudHJ5AgUQU0VSVkVSQUREUkVTU0tFWQULYmVuekFkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIFEFJBTkRUSU1FRlJBTUVLRVkFE3JhbmRPcmFjbGVUaW1lRnJhbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgUQYWxsb3dlZEFzc2V0c0tleQkAugkCCAUBcgJfMQUDU0VQCQDMCAIJAQtTdHJpbmdFbnRyeQIFEWFzc2V0c0RlY2ltYWxzS2V5CQC5CQIIBQFyAl8yBQNTRVAJAMwIAgkBC1N0cmluZ0VudHJ5AgUOYmV0RGl2aWRlcnNLZXkJALkJAggFAXICXzMFA1NFUAUDbmlsAWkBC21haW50ZW5hbmNlAQdibG9ja2VkAwkBAiE9AggFAWkGY2FsbGVyBQZTRVJWRVIJAAIBAg5ub3QgYXV0aG9yaXplZAkAzAgCCQEMQm9vbGVhbkVudHJ5AgUKYmxvY2tlZEtleQUHYmxvY2tlZAUDbmlsAWkBA2JldAEMcGxheWVyQ2hvaWNlAwkBC3ZhbHVlT3JFbHNlAgkAoAgBBQpibG9ja2VkS2V5BwkAAgECH0dhbWUgaXMgc3RvcHBlZCBmb3IgbWFpbnRlbmVuY2UEBmdhbWVJZAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkAwkAZwIAAQkAkAMBCAUBaQhwYXltZW50cwkAAgECGzIgcGF5bWVudHMgbXVzdCBiZSBhdHRhY2hlZAMJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMFBmdhbWVJZAkAAgEJAKwCAgkArAICAglCZXQgZm9yOiAFBmdhbWVJZAISIHdhcyBhbHJlYWR5IG1hZGUuBAZiZXRQbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQGZmVlUG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAEDCQEJaXNEZWZpbmVkAQgFBmZlZVBtdAdhc3NldElkCQACAQItZmVlUG10ICgybmQgcGF5bWVudCkgYXNzZXRJZCBtdXN0IGJlIGluIFdhdmVzAwkAZgIFC01JTkZFRVdBVkVTCAUGZmVlUG10BmFtb3VudAkAAgECK2ZlZVBtdCAoMm5kIHBheW1lbnQpIG11c3QgYmUgPj0gMC4wMDUgV2F2ZXMECmFzc2V0SWRTdHIJAQxhc3NldElkVG9TdHIBCAUGYmV0UG10B2Fzc2V0SWQEEGludGVybmFsQXNzZXRJZHgJARZ2YWxpZGF0ZUFuZEdldEFzc2V0SWR4AQUKYXNzZXRJZFN0cgQKY29tbWlzc2lvbggFBmZlZVBtdAZhbW91bnQECXdpbkFtb3VudAkBGnZhbGlkYXRlQmV0QW5kR2V0V2luQW1vdW50AwgFBmJldFBtdAZhbW91bnQFEGludGVybmFsQXNzZXRJZHgFDHBsYXllckNob2ljZQQOcGxheWVyUHViS2V5NTgJANgEAQgFAWkPY2FsbGVyUHVibGljS2V5BAhnYW1lRGF0YQkBDmZvcm1hdEdhbWVEYXRhBwUOU1RBVEVTVUJNSVRURUQFDHBsYXllckNob2ljZQUOcGxheWVyUHViS2V5NTgFBmhlaWdodAUJd2luQW1vdW50BRBpbnRlcm5hbEFzc2V0SWR4AgAJAMwIAgkBDEludGVnZXJFbnRyeQIJARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRJZHgBBRBpbnRlcm5hbEFzc2V0SWR4CQEVaW5jcmVhc2VSZXNlcnZlQW1vdW50AgUJd2luQW1vdW50BRBpbnRlcm5hbEFzc2V0SWR4CQDMCAIJAQxpbmNyZW1lbnRJbnQBBQ9HQU1FU0NPVU5URVJLRVkJAMwIAgkBC1N0cmluZ0VudHJ5AgUGZ2FtZUlkBQhnYW1lRGF0YQkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQZTRVJWRVIFCmNvbW1pc3Npb24IBQZmZWVQbXQHYXNzZXRJZAUDbmlsAWkBCHdpdGhkcmF3AgZnYW1lSWQHcnNhU2lnbgQIZ2FtZURhdGEJAQ9leHRyYWN0R2FtZURhdGEBBQZnYW1lSWQECWdhbWVTdGF0ZQkAkQMCBQhnYW1lRGF0YQUMSWR4R2FtZVN0YXRlBAxwbGF5ZXJDaG9pY2UJAJEDAgUIZ2FtZURhdGEFD0lkeFBsYXllckNob2ljZQQNc3RhcnRlZEhlaWdodAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCGdhbWVEYXRhBRBJZHhTdGFydGVkSGVpZ2h0BAl3aW5BbW91bnQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhnYW1lRGF0YQUMSWR4V2luQW1vdW50BAhhc3NldElkeAkBDXBhcnNlSW50VmFsdWUBCQCRAwIFCGdhbWVEYXRhBQpJZHhBc3NldElkBA5wbGF5ZXJQdWJLZXk1OAkAkQMCBQhnYW1lRGF0YQURSWR4UGxheWVyUHViS2V5NTgEDXBsYXllckFkZHJlc3MJAKcIAQkA2QQBBQ5wbGF5ZXJQdWJLZXk1OAMJAQIhPQIFCWdhbWVTdGF0ZQUOU1RBVEVTVUJNSVRURUQJAAIBAiRJbnZhbGlkIGdhbWUgc3RhdGUgZm9yIHBhc3NlZCBnYW1lSWQDCQECIT0CCAUBaQZjYWxsZXIFBlNFUlZFUgkAAgECK1JlZ3VsYXIgd2l0aGRyYXcgY2FuIGJlIGRvbmUgYnkgc2VydmVyIG9ubHkEDHdpbkJ5VGltZW91dAkAZgIJAGUCBQZoZWlnaHQFDXN0YXJ0ZWRIZWlnaHQFE1JBTkRPUkFDTEVUSU1FRlJBTUUECnJhbmRDaG9pY2UDBQx3aW5CeVRpbWVvdXQJAK8CAgUMcGxheWVyQ2hvaWNlAAEJARJnZW5lcmF0ZVJhbmRDaG9pY2UCBQZnYW1lSWQFB3JzYVNpZ24ECXBsYXllcldpbgkBC2lzUGxheWVyV2luAgUMcGxheWVyQ2hvaWNlBQpyYW5kQ2hvaWNlBA1uZXdHYW1lU3RhdHVzAwUJcGxheWVyV2luBQhTVEFURVdPTgUJU1RBVEVMT1NUBAtuZXdHYW1lRGF0YQkBDmZpbmlzaEdhbWVEYXRhBAUIZ2FtZURhdGEFDW5ld0dhbWVTdGF0dXMFCnJhbmRDaG9pY2UFDHdpbkJ5VGltZW91dAkAzggCCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmdhbWVJZAULbmV3R2FtZURhdGEJAMwIAgkBFmRlY3JlYXNlUmVzZXJ2ZWRBbW91bnQDBQZnYW1lSWQFCGFzc2V0SWR4BQl3aW5BbW91bnQFA25pbAMFCXBsYXllcldpbgkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDBQ1wbGF5ZXJBZGRyZXNzBQl3aW5BbW91bnQJAQ5hc3NldElkRnJvbVN0cgEJAJEDAgUGQVNTRVRTBQhhc3NldElkeAUDbmlsCQDMCAIJAQtTdHJpbmdFbnRyeQIJAQlrZXlDb29yZHMBBQZnYW1lSWQCBzUwMF8yODAFA25pbAECdHgBBnZlcmlmeQADCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5BAckbWF0Y2gwBQJ0eAMJAAECBQckbWF0Y2gwAhNUcmFuc2ZlclRyYW5zYWN0aW9uBAN0dHgFByRtYXRjaDAECGFzc2V0SWR4CQEWdmFsaWRhdGVBbmRHZXRBc3NldElkeAEJAQxhc3NldElkVG9TdHIBCAUDdHR4B2Fzc2V0SWQJAGcCCQBlAgkBD2dldEFzc2V0QmFsYW5jZQEIBQN0dHgHYXNzZXRJZAgFA3R0eAZhbW91bnQJAQhnZXRJbnRPcgIJARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRJZHgBBQhhc3NldElkeAAAAwkAAQIFByRtYXRjaDACFFNldFNjcmlwdFRyYW5zYWN0aW9uBANzdHgFByRtYXRjaDAKAQdjaGVja2VyAgNhY2MFYXNzZXQDBQNhY2MJAAACCQEIZ2V0SW50T3ICCQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0U3RyAQUFYXNzZXQAAAAABwoAAiRsBQZBU1NFVFMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBgoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEHY2hlY2tlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgcHpKEh3g==",
    "height": 2883367,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: CFJTzodtTfc9BN6gqaKMCjoN9S9G4Er3fHxoYvtWZ8EZ

Full: 

OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 6 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let SEP = "__"
5+
6+let WAVESID = base58'WAVES'
7+
8+let WAVESD = 100000000
9+
10+let GAME_NAME = "Xmas Tree"
11+
12+let RANDOM_RANGE = 5
13+
14+let NUM_BETS = 1
15+
16+let HOR_LINES = [[491, 506, 44], [455, 542, 120], [404, 596, 166], [441, 556, 177], [387, 620, 232], [410, 592, 244], [329, 665, 321], [370, 666, 337], [355, 645, 349], [313, 692, 384], [289, 682, 405], [324, 657, 461], [450, 575, 525], [505, 505, 532]]
17+
18+func getStrOrFail (address,key) = valueOrErrorMessage(getString(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
19+
20+
21+func getIntOrFail (address,key) = valueOrErrorMessage(getInteger(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
22+
23+
24+func getBoolOrFail (address,key) = valueOrErrorMessage(getBoolean(address, key), makeString(["mandatory ", toString(address), ".", key, " is not defined"], ""))
25+
26+
27+let allowedAssetsKey = "%s%s__cfg__allowedAssets"
28+
29+let assetsDecimalsKey = "%s%s__cfg__assetsDecimals"
30+
31+let betDividersKey = "%s%s__cfg__assetsBetDividers"
32+
33+let RSAPUBLIC64KEY = "%s%s__cfg__rsaPublic64"
34+
35+let SERVERADDRESSKEY = "%s%s__cfg__benzAddress"
36+
37+let RANDTIMEFRAMEKEY = "%s%s__cfg__withdrawTimeFrame"
38+
39+let GAMESCOUNTERKEY = "%s%s__runtime__gameNum"
40+
41+let blockedKey = "%s%s__runtime__contractIsBlocked"
42+
43+let reservedAmountsKey = "%s%s__runtime__reservedAmounts"
44+
45+func keyCoords (gameId) = ("%s%s%s__runtime__coordsByGameId__" + gameId)
46+
47+
48+func getIntArray (key) = {
49+    let a = getStrOrFail(this, key)
50+    func filler (acc,el) =     (acc :+ parseIntValue(el))
51+
52+    let $l = split(a, SEP)
53+    let $s = size($l)
54+    let $acc0 = nil
55+    func $f0_1 ($a,$i) =     if (($i >= $s))
56+        then $a
57+        else filler($a, $l[$i])
58+
59+    func $f0_2 ($a,$i) =     if (($i >= $s))
60+        then $a
61+        else throw("List size exceeds 10")
62+
63+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
64+    }
65+
66+
67+let ASSETS = split(getStrOrFail(this, allowedAssetsKey), SEP)
68+
69+let DECIMALS = getIntArray(assetsDecimalsKey)
70+
71+let BETDIVIDERS = getIntArray(betDividersKey)
72+
73+func keyReservationByAssetStr (assetStr) = ("$RESERVED_AMOUNT_" + assetStr)
74+
75+
76+func keyReservationByAssetIdx (assetIdx) = keyReservationByAssetStr(ASSETS[assetIdx])
77+
78+
79+let MINFEEWAVES = ((5 * WAVESD) / 1000)
80+
81+let idxAssets = 0
82+
83+let idxDecimals = 1
84+
85+let idxDividers = 2
86+
87+let BET1 = 1
88+
89+let BET2 = 2
90+
91+let BET4 = 4
92+
93+let BET8 = 8
94+
95+let BET14 = 14
96+
97+let RATEMULT = 10000
98+
99+let RATE = 250000
100+
101+let BETS = [BET2]
102+
103+let IdxGameState = 0
104+
105+let IdxPlayerChoice = 1
106+
107+let IdxPlayerPubKey58 = 2
108+
109+let IdxStartedHeight = 3
110+
111+let IdxWinAmount = 4
112+
113+let IdxAssetId = 5
114+
115+let STATESUBMITTED = "SUBMITTED"
116+
117+let STATEWON = "WON"
118+
119+let STATELOST = "LOST"
120+
121+func getStringOrFail (key) = valueOrErrorMessage(getString(this, key), (key + " key is not specified in this.state"))
122+
123+
124+let RSAPUBLIC = fromBase64String(getStringOrFail(RSAPUBLIC64KEY))
125+
126+let SERVER = addressFromStringValue(getStringOrFail(SERVERADDRESSKEY))
127+
128+let RANDORACLETIMEFRAME = valueOrElse(getInteger(this, RANDTIMEFRAMEKEY), 7200)
129+
130+func getIntOr (key,default) = if (isDefined(getInteger(key)))
131+    then getIntegerValue(key)
132+    else default
133+
134+
135+func setInt (key,value) = IntegerEntry(key, value)
136+
137+
138+func incrementInt (key) = setInt(key, (getIntOr(key, -1) + 1))
139+
140+
141+func changeInt (key,by) = setInt(key, (getIntOr(key, 0) + by))
142+
143+
144+func assetIdToStr (assetIdOrUnit) = match assetIdOrUnit {
145+    case b: ByteVector => 
146+        toBase58String(b)
147+    case _ => 
148+        "WAVES"
149+}
150+
151+
152+func assetIdFromStr (assetIdStr) = if ((assetIdStr == "WAVES"))
153+    then unit
154+    else fromBase58String(assetIdStr)
155+
156+
157+func getAssetBalance (assetIdOrUnit) = match assetIdOrUnit {
158+    case assetId: ByteVector => 
159+        assetBalance(this, assetId)
160+    case _ => 
161+        wavesBalance(this).available
162+}
163+
164+
165+func increaseReserveAmount (winAmount,assetIdx) = {
166+    let assetIdStr = ASSETS[assetIdx]
167+    let newReservedAmount = (getIntOr(keyReservationByAssetIdx(assetIdx), 0) + winAmount)
168+    if ((newReservedAmount > getAssetBalance(assetIdFromStr(assetIdStr))))
169+        then throw((("Insufficient funds on " + GAME_NAME) + " account. Transaction was rejected for your safety."))
170+        else newReservedAmount
171+    }
172+
173+
174+func decreaseReservedAmount (gameId,assetIdx,winAmount) = if ((0 > (getIntOr(keyReservationByAssetIdx(assetIdx), 0) - winAmount)))
175+    then throw((("Invalid " + GAME_NAME) + " account state - reserved amount is less than 0"))
176+    else changeInt(keyReservationByAssetIdx(assetIdx), -(winAmount))
177+
178+
179+func validateAndGetAssetIdx (assetIdStr) = {
180+    let idx = indexOf(ASSETS, assetIdStr)
181+    if (!(isDefined(idx)))
182+        then throw("Invalid payment asset")
183+        else value(idx)
184+    }
185+
186+
187+func validateBetAndGetWinAmount (bet,internalAssetIdx,playerChoice) = {
188+    let dicesCount = size(playerChoice)
189+    func checkAmount (a,x) =     if (a)
190+        then true
191+        else (bet == ((x * DECIMALS[internalAssetIdx]) / BETDIVIDERS[internalAssetIdx]))
192+
193+    if (!({
194+        let $l = BETS
195+        let $s = size($l)
196+        let $acc0 = false
197+        func $f0_1 ($a,$i) =         if (($i >= $s))
198+            then $a
199+            else checkAmount($a, $l[$i])
200+
201+        func $f0_2 ($a,$i) =         if (($i >= $s))
202+            then $a
203+            else throw("List size exceeds 5")
204+
205+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
206+        }))
207+        then throw("Bet amount is not valid")
208+        else if ((parseInt(playerChoice) == unit))
209+            then throw("Invalid player's choice")
210+            else if ((dicesCount != NUM_BETS))
211+                then throw("Invalid length of player's choice")
212+                else fraction(bet, RATE, RATEMULT)
213+    }
214+
215+
216+func generateRandChoice (gameId,rsaSign) = {
217+    let rsaSigValid = rsaVerify_16Kb(SHA256, toBytes(gameId), rsaSign, RSAPUBLIC)
218+    if (!(rsaSigValid))
219+        then throw("Invalid RSA signature")
220+        else {
221+            let rand = (toInt(sha256(rsaSign)) % RANDOM_RANGE)
222+            toString((rand + 1))
223+            }
224+    }
225+
226+
227+func isPlayerWin (playerChoice,randChoise) = {
228+    let s = size(playerChoice)
229+    func check (a,x) =     if (a)
230+        then true
231+        else if ((s >= x))
232+            then (take(drop(playerChoice, (x - 1)), 1) == randChoise)
233+            else false
234+
235+    let $l = [1, 2, 3, 4, 5]
236+    let $s = size($l)
237+    let $acc0 = false
238+    func $f0_1 ($a,$i) =     if (($i >= $s))
239+        then $a
240+        else check($a, $l[$i])
241+
242+    func $f0_2 ($a,$i) =     if (($i >= $s))
243+        then $a
244+        else throw("List size exceeds 5")
245+
246+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
247+    }
248+
249+
250+func formatGameDataS (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetIdx,randOrEmpty) = makeString([gameStatus, playerChoice, playerPubKey58, startedHeight, winAmount, assetIdx, if ((randOrEmpty == ""))
251+    then ""
252+    else randOrEmpty], "_")
253+
254+
255+func formatGameData (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetIdx,randOrEmpty) = formatGameDataS(gameStatus, playerChoice, playerPubKey58, toString(startedHeight), toString(winAmount), toString(assetIdx), randOrEmpty)
256+
257+
258+func finishGameData (origGameData,gameStatus,rand,winByTimeout) = {
259+    let finishGameData = formatGameDataS(gameStatus, origGameData[IdxPlayerChoice], origGameData[IdxPlayerPubKey58], origGameData[IdxStartedHeight], origGameData[IdxWinAmount], origGameData[IdxAssetId], rand)
260+    if (winByTimeout)
261+        then (finishGameData + "_TIMEOUT")
262+        else finishGameData
263+    }
264+
265+
266+func extractGameData (gameId) = split(match getString(this, gameId) {
267+    case str: String => 
268+        str
269+    case _ => 
270+        throw((("Game: " + gameId) + " not found."))
271+}, "_")
272+
273+
274+@Callable(i)
275+func constructorV1 (rsaPublic64,benzAddress,randOracleTimeFrame,tokensDescriptor) = if ((i.caller != SERVER))
276+    then throw("not authorized")
277+    else {
278+        func splitter (acc,elem) =         {
279+            let tokList = split(elem, ":")
280+            if ((size(tokList) != 3))
281+                then throw("Invalid asset record")
282+                else $Tuple3((acc._1 :+ tokList[idxAssets]), (acc._2 :+ tokList[idxDecimals]), (acc._3 :+ tokList[idxDividers]))
283+            }
284+
285+        let r = {
286+            let $l = split_4C(tokensDescriptor, "_")
287+            let $s = size($l)
288+            let $acc0 = $Tuple3(nil, nil, nil)
289+            func $f0_1 ($a,$i) =             if (($i >= $s))
290+                then $a
291+                else splitter($a, $l[$i])
292+
293+            func $f0_2 ($a,$i) =             if (($i >= $s))
294+                then $a
295+                else throw("List size exceeds 10")
296+
297+            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
298+            }
299+[StringEntry(RSAPUBLIC64KEY, rsaPublic64), StringEntry(SERVERADDRESSKEY, benzAddress), IntegerEntry(RANDTIMEFRAMEKEY, randOracleTimeFrame), StringEntry(allowedAssetsKey, makeString_2C(r._1, SEP)), StringEntry(assetsDecimalsKey, makeString(r._2, SEP)), StringEntry(betDividersKey, makeString(r._3, SEP))]
300+        }
301+
302+
303+
304+@Callable(i)
305+func maintenance (blocked) = if ((i.caller != SERVER))
306+    then throw("not authorized")
307+    else [BooleanEntry(blockedKey, blocked)]
308+
309+
310+
311+@Callable(i)
312+func bet (playerChoice) = if (valueOrElse(getBoolean(blockedKey), false))
313+    then throw("Game is stopped for maintenence")
314+    else {
315+        let gameId = toBase58String(i.transactionId)
316+        if ((1 >= size(i.payments)))
317+            then throw("2 payments must be attached")
318+            else if (isDefined(getString(this, gameId)))
319+                then throw((("Bet for: " + gameId) + " was already made."))
320+                else {
321+                    let betPmt = value(i.payments[0])
322+                    let feePmt = value(i.payments[1])
323+                    if (isDefined(feePmt.assetId))
324+                        then throw("feePmt (2nd payment) assetId must be in Waves")
325+                        else if ((MINFEEWAVES > feePmt.amount))
326+                            then throw("feePmt (2nd payment) must be >= 0.005 Waves")
327+                            else {
328+                                let assetIdStr = assetIdToStr(betPmt.assetId)
329+                                let internalAssetIdx = validateAndGetAssetIdx(assetIdStr)
330+                                let commission = feePmt.amount
331+                                let winAmount = validateBetAndGetWinAmount(betPmt.amount, internalAssetIdx, playerChoice)
332+                                let playerPubKey58 = toBase58String(i.callerPublicKey)
333+                                let gameData = formatGameData(STATESUBMITTED, playerChoice, playerPubKey58, height, winAmount, internalAssetIdx, "")
334+[IntegerEntry(keyReservationByAssetIdx(internalAssetIdx), increaseReserveAmount(winAmount, internalAssetIdx)), incrementInt(GAMESCOUNTERKEY), StringEntry(gameId, gameData), ScriptTransfer(SERVER, commission, feePmt.assetId)]
335+                                }
336+                    }
337+        }
338+
339+
340+
341+@Callable(i)
342+func withdraw (gameId,rsaSign) = {
343+    let gameData = extractGameData(gameId)
344+    let gameState = gameData[IdxGameState]
345+    let playerChoice = gameData[IdxPlayerChoice]
346+    let startedHeight = parseIntValue(gameData[IdxStartedHeight])
347+    let winAmount = parseIntValue(gameData[IdxWinAmount])
348+    let assetIdx = parseIntValue(gameData[IdxAssetId])
349+    let playerPubKey58 = gameData[IdxPlayerPubKey58]
350+    let playerAddress = addressFromPublicKey(fromBase58String(playerPubKey58))
351+    if ((gameState != STATESUBMITTED))
352+        then throw("Invalid game state for passed gameId")
353+        else if ((i.caller != SERVER))
354+            then throw("Regular withdraw can be done by server only")
355+            else {
356+                let winByTimeout = ((height - startedHeight) > RANDORACLETIMEFRAME)
357+                let randChoice = if (winByTimeout)
358+                    then take(playerChoice, 1)
359+                    else generateRandChoice(gameId, rsaSign)
360+                let playerWin = isPlayerWin(playerChoice, randChoice)
361+                let newGameStatus = if (playerWin)
362+                    then STATEWON
363+                    else STATELOST
364+                let newGameData = finishGameData(gameData, newGameStatus, randChoice, winByTimeout)
365+                ([StringEntry(gameId, newGameData), decreaseReservedAmount(gameId, assetIdx, winAmount)] ++ (if (playerWin)
366+                    then [ScriptTransfer(playerAddress, winAmount, assetIdFromStr(ASSETS[assetIdx]))]
367+                    else [StringEntry(keyCoords(gameId), "500_280")]))
368+                }
369+    }
370+
371+
372+@Verifier(tx)
373+func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
374+    then     match tx {
375+        case ttx: TransferTransaction => 
376+            let assetIdx = validateAndGetAssetIdx(assetIdToStr(ttx.assetId))
377+            ((getAssetBalance(ttx.assetId) - ttx.amount) >= getIntOr(keyReservationByAssetIdx(assetIdx), 0))
378+        case stx: SetScriptTransaction => 
379+            func checker (acc,asset) =             if (acc)
380+                then (getIntOr(keyReservationByAssetStr(asset), 0) == 0)
381+                else false
382+
383+            let $l = ASSETS
384+            let $s = size($l)
385+            let $acc0 = true
386+            func $f0_1 ($a,$i) =             if (($i >= $s))
387+                then $a
388+                else checker($a, $l[$i])
389+
390+            func $f0_2 ($a,$i) =             if (($i >= $s))
391+                then $a
392+                else throw("List size exceeds 10")
393+
394+            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10)
395+        case _ => 
396+            false
397+    }
398+    else false
399+
github/deemru/w8io/3ef1775 
72.58 ms ◑