tx · Epfv8RHBQi7FyqT8xu6bCQEy22g4BJ44wUtZo6f4keXa

3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ:  -0.01800000 Waves

2023.12.14 20:10 [2886675] smart account 3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Epfv8RHBQi7FyqT8xu6bCQEy22g4BJ44wUtZo6f4keXa",
    "fee": 1800000,
    "feeAssetId": null,
    "timestamp": 1702573883514,
    "version": 2,
    "chainId": 84,
    "sender": "3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ",
    "senderPublicKey": "CQoe8BRHR78TuPQLcK3Ykv39w9CeNLhjKdj6TNbJ5FrM",
    "proofs": [
        "1mN2aZe4AV8GPKq5AuYDL6jufHRbYNnLd9UqdvGwhCkDFaSxDmt6hCtMGLq7qeeiE5iU5WZvAQbQZkoyRyHTtkM"
    ],
    "script": "base64:BgIaCAISBgoECAgBCBIDCgEEEgMKAQgSBAoCCAJJAANTRVACAl9fAAdXQVZFU0lEAQQTq9kzAAZXQVZFU0QAgMLXLwAJR0FNRV9OQU1FAglYbWFzIFRyZWUADFJBTkRPTV9SQU5HRQAFAAhOVU1fQkVUUwABAA9NQVhfREVDT1JBVElPTlMADwEMZ2V0U3RyT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCdCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgABDGdldEludE9yRmFpbAIHYWRkcmVzcwNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAmggCBQdhZGRyZXNzBQNrZXkJALkJAgkAzAgCAgptYW5kYXRvcnkgCQDMCAIJAKUIAQUHYWRkcmVzcwkAzAgCAgEuCQDMCAIFA2tleQkAzAgCAg8gaXMgbm90IGRlZmluZWQFA25pbAIAAQ1nZXRCb29sT3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCbCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgAAEGFsbG93ZWRBc3NldHNLZXkCGCVzJXNfX2NmZ19fYWxsb3dlZEFzc2V0cwARYXNzZXRzRGVjaW1hbHNLZXkCGSVzJXNfX2NmZ19fYXNzZXRzRGVjaW1hbHMADmJldERpdmlkZXJzS2V5AhwlcyVzX19jZmdfX2Fzc2V0c0JldERpdmlkZXJzAA5SU0FQVUJMSUM2NEtFWQIWJXMlc19fY2ZnX19yc2FQdWJsaWM2NAAQU0VSVkVSQUREUkVTU0tFWQIWJXMlc19fY2ZnX19iZW56QWRkcmVzcwAQUkFORFRJTUVGUkFNRUtFWQIcJXMlc19fY2ZnX193aXRoZHJhd1RpbWVGcmFtZQAPR0FNRVNDT1VOVEVSS0VZAhYlcyVzX19ydW50aW1lX19nYW1lTnVtAApibG9ja2VkS2V5AiAlcyVzX19ydW50aW1lX19jb250cmFjdElzQmxvY2tlZAAScmVzZXJ2ZWRBbW91bnRzS2V5Ah4lcyVzX19ydW50aW1lX19yZXNlcnZlZEFtb3VudHMACmhpc3RvcnlLZXkCISVzJXNfX3J1bnRpbWVfX2RlY29yYXRpb25zSGlzdG9yeQELZ2V0SW50QXJyYXkBA2tleQQBYQkBDGdldFN0ck9yRmFpbAIFBHRoaXMFA2tleQoBBmZpbGxlcgIDYWNjAmVsCQDNCAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQJlbAoAAiRsCQC1CQIFAWEFA1NFUAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEGZmlsbGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAZBU1NFVFMJALUJAgkBDGdldFN0ck9yRmFpbAIFBHRoaXMFEGFsbG93ZWRBc3NldHNLZXkFA1NFUAAIREVDSU1BTFMJAQtnZXRJbnRBcnJheQEFEWFzc2V0c0RlY2ltYWxzS2V5AAtCRVRESVZJREVSUwkBC2dldEludEFycmF5AQUOYmV0RGl2aWRlcnNLZXkBGGtleVJlc2VydmF0aW9uQnlBc3NldFN0cgEIYXNzZXRTdHIJAKwCAgIRJFJFU0VSVkVEX0FNT1VOVF8FCGFzc2V0U3RyARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRJZHgBCGFzc2V0SWR4CQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0U3RyAQkAkQMCBQZBU1NFVFMFCGFzc2V0SWR4AAtNSU5GRUVXQVZFUwkAaQIJAGgCAAUFBldBVkVTRADoBwAJaWR4QXNzZXRzAAAAC2lkeERlY2ltYWxzAAEAC2lkeERpdmlkZXJzAAIABEJFVDEAAQAEQkVUMgACAARCRVQ0AAQABEJFVDgACAAFQkVUMTQADgAIUkFURU1VTFQAkE4ABFJBVEUAsOoBAARCRVRTCQDMCAIFBEJFVDIFA25pbAAMSWR4R2FtZVN0YXRlAAAAD0lkeFBsYXllckNob2ljZQABABFJZHhQbGF5ZXJQdWJLZXk1OAACABBJZHhTdGFydGVkSGVpZ2h0AAMADElkeFdpbkFtb3VudAAEAApJZHhBc3NldElkAAUADlNUQVRFU1VCTUlUVEVEAglTVUJNSVRURUQACFNUQVRFV09OAgNXT04ACVNUQVRFTE9TVAIETE9TVAEPZ2V0U3RyaW5nT3JGYWlsAQNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQNrZXkJAKwCAgUDa2V5AiMga2V5IGlzIG5vdCBzcGVjaWZpZWQgaW4gdGhpcy5zdGF0ZQAJUlNBUFVCTElDCQDbBAEJAQ9nZXRTdHJpbmdPckZhaWwBBQ5SU0FQVUJMSUM2NEtFWQAGU0VSVkVSCQERQGV4dHJOYXRpdmUoMTA2MikBCQEPZ2V0U3RyaW5nT3JGYWlsAQUQU0VSVkVSQUREUkVTU0tFWQATUkFORE9SQUNMRVRJTUVGUkFNRQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBRBSQU5EVElNRUZSQU1FS0VZAKA4AQhnZXRJbnRPcgIDa2V5B2RlZmF1bHQDCQEJaXNEZWZpbmVkAQkAnwgBBQNrZXkJARFAZXh0ck5hdGl2ZSgxMDU1KQEFA2tleQUHZGVmYXVsdAEGc2V0SW50AgNrZXkFdmFsdWUJAQxJbnRlZ2VyRW50cnkCBQNrZXkFBXZhbHVlAQxpbmNyZW1lbnRJbnQBA2tleQkBBnNldEludAIFA2tleQkAZAIJAQhnZXRJbnRPcgIFA2tleQD///////////8BAAEBCWNoYW5nZUludAIDa2V5AmJ5CQEGc2V0SW50AgUDa2V5CQBkAgkBCGdldEludE9yAgUDa2V5AAAFAmJ5AQxhc3NldElkVG9TdHIBDWFzc2V0SWRPclVuaXQEByRtYXRjaDAFDWFzc2V0SWRPclVuaXQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQBYgUHJG1hdGNoMAkA2AQBBQFiAgVXQVZFUwEOYXNzZXRJZEZyb21TdHIBCmFzc2V0SWRTdHIDCQAAAgUKYXNzZXRJZFN0cgIFV0FWRVMFBHVuaXQJANkEAQUKYXNzZXRJZFN0cgEPZ2V0QXNzZXRCYWxhbmNlAQ1hc3NldElkT3JVbml0BAckbWF0Y2gwBQ1hc3NldElkT3JVbml0AwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEB2Fzc2V0SWQFByRtYXRjaDAJAPAHAgUEdGhpcwUHYXNzZXRJZAgJAO8HAQUEdGhpcwlhdmFpbGFibGUBFWluY3JlYXNlUmVzZXJ2ZUFtb3VudAIJd2luQW1vdW50CGFzc2V0SWR4BAphc3NldElkU3RyCQCRAwIFBkFTU0VUUwUIYXNzZXRJZHgEEW5ld1Jlc2VydmVkQW1vdW50CQBkAgkBCGdldEludE9yAgkBGGtleVJlc2VydmF0aW9uQnlBc3NldElkeAEFCGFzc2V0SWR4AAAFCXdpbkFtb3VudAMJAGYCBRFuZXdSZXNlcnZlZEFtb3VudAkBD2dldEFzc2V0QmFsYW5jZQEJAQ5hc3NldElkRnJvbVN0cgEFCmFzc2V0SWRTdHIJAAIBCQCsAgIJAKwCAgIWSW5zdWZmaWNpZW50IGZ1bmRzIG9uIAUJR0FNRV9OQU1FAjMgYWNjb3VudC4gVHJhbnNhY3Rpb24gd2FzIHJlamVjdGVkIGZvciB5b3VyIHNhZmV0eS4FEW5ld1Jlc2VydmVkQW1vdW50ARZkZWNyZWFzZVJlc2VydmVkQW1vdW50AwZnYW1lSWQIYXNzZXRJZHgJd2luQW1vdW50AwkAZgIAAAkAZQIJAQhnZXRJbnRPcgIJARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRJZHgBBQhhc3NldElkeAAABQl3aW5BbW91bnQJAAIBCQCsAgIJAKwCAgIISW52YWxpZCAFCUdBTUVfTkFNRQIvIGFjY291bnQgc3RhdGUgLSByZXNlcnZlZCBhbW91bnQgaXMgbGVzcyB0aGFuIDAJAQljaGFuZ2VJbnQCCQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0SWR4AQUIYXNzZXRJZHgJAQEtAQUJd2luQW1vdW50ARZ2YWxpZGF0ZUFuZEdldEFzc2V0SWR4AQphc3NldElkU3RyBANpZHgJAM8IAgUGQVNTRVRTBQphc3NldElkU3RyAwkBASEBCQEJaXNEZWZpbmVkAQUDaWR4CQACAQIVSW52YWxpZCBwYXltZW50IGFzc2V0CQEFdmFsdWUBBQNpZHgBGnZhbGlkYXRlQmV0QW5kR2V0V2luQW1vdW50AwNiZXQQaW50ZXJuYWxBc3NldElkeAxwbGF5ZXJDaG9pY2UECmRpY2VzQ291bnQJALECAQUMcGxheWVyQ2hvaWNlCgELY2hlY2tBbW91bnQCAWEBeAMFAWEGCQAAAgUDYmV0CQBpAgkAaAIFAXgJAJEDAgUIREVDSU1BTFMFEGludGVybmFsQXNzZXRJZHgJAJEDAgULQkVURElWSURFUlMFEGludGVybmFsQXNzZXRJZHgDCQEBIQEKAAIkbAUEQkVUUwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAHCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQtjaGVja0Ftb3VudAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUJAAIBAhdCZXQgYW1vdW50IGlzIG5vdCB2YWxpZAMJAAACCQC2CQEFDHBsYXllckNob2ljZQUEdW5pdAkAAgECF0ludmFsaWQgcGxheWVyJ3MgY2hvaWNlAwkBAiE9AgUKZGljZXNDb3VudAUITlVNX0JFVFMJAAIBAiFJbnZhbGlkIGxlbmd0aCBvZiBwbGF5ZXIncyBjaG9pY2UJAGsDBQNiZXQFBFJBVEUFCFJBVEVNVUxUAAlIT1JfTElORVMJAMwIAgkAzAgCAOsDCQDMCAIA+gMJAMwIAgAsBQNuaWwJAMwIAgkAzAgCAMcDCQDMCAIAngQJAMwIAgB4BQNuaWwJAMwIAgkAzAgCAJQDCQDMCAIA1AQJAMwIAgCmAQUDbmlsCQDMCAIJAMwIAgC5AwkAzAgCAKwECQDMCAIAsQEFA25pbAkAzAgCCQDMCAIAgwMJAMwIAgDsBAkAzAgCAOgBBQNuaWwJAMwIAgkAzAgCAKcDCQDMCAIA7AQJAMwIAgDoAQUDbmlsCQDMCAIJAMwIAgCaAwkAzAgCANAECQDMCAIA9AEFA25pbAkAzAgCCQDMCAIAyQIJAMwIAgCZBQkAzAgCAMECBQNuaWwJAMwIAgkAzAgCAPICCQDMCAIAmgUJAMwIAgDRAgUDbmlsCQDMCAIJAMwIAgDjAgkAzAgCAIUFCQDMCAIA3QIFA25pbAkAzAgCCQDMCAIAuQIJAMwIAgC0BQkAzAgCAIADBQNuaWwJAMwIAgkAzAgCAKECCQDMCAIAqgUJAMwIAgCVAwUDbmlsCQDMCAIJAMwIAgDEAgkAzAgCAJEFCQDMCAIAzQMFA25pbAkAzAgCCQDMCAIAwgMJAMwIAgC/BAkAzAgCAI0EBQNuaWwJAMwIAgkAzAgCAPkDCQDMCAIA+QMJAMwIAgCUBAUDbmlsBQNuaWwABEhBTEYAiCcAAk00AJBOAQlnZXRDb29yZHMCBmdhbWVJZAdyc2FTaWduCgEJY2FsY0FyZWFzAgNhY2MHaWdub3JlZAQBaQgFA2FjYwJfMwMJAAACBQFpAA4FA2FjYwQDdG9wCQCRAwIFCUhPUl9MSU5FUwUBaQQGYm90dG9tCQCRAwIFCUhPUl9MSU5FUwkAZAIFAWkAAQQFYXJlYTQJAGgCCQBoAgkAZQIJAGQCCQBlAgkAkQMCBQN0b3AAAQkAkQMCBQN0b3AAAAkAkQMCBQZib3R0b20AAQkAkQMCBQZib3R0b20AAAkAZQIJAJEDAgUGYm90dG9tAAIJAJEDAgUDdG9wAAIAiCcJAJUKAwkAzQgCCAUDYWNjAl8xBQVhcmVhNAkAZAIIBQNhY2MCXzIFBWFyZWE0CQBkAggFA2FjYwJfMwABBAskdDA4MDU4ODEyNQoAAiRsBQlIT1JfTElORVMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAAAAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWNhbGNBcmVhcwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAA8EBWFyZWFzCAULJHQwODA1ODgxMjUCXzEECXRvdGFsQXJlYQgFCyR0MDgwNTg4MTI1Al8yBARyYW5kCQBqAgkAsQkBCQD3AwEJAMsBAgUHcnNhU2lnbgkAmwMBBQZnYW1lSWQFCXRvdGFsQXJlYQoBBWNoZWNrAgNhY2MEYXJlYQQBaQgFA2FjYwJfMQQHbmV3QXJlYQkAZAIIBQNhY2MCXzIFBGFyZWEJAJUKAwkAZAIFAWkAAQUHbmV3QXJlYQMDCQBmAgAACAUDYWNjAl8zCQBmAgUHbmV3QXJlYQUEcmFuZAcFAWkIBQNhY2MCXzMEAWoICgACJGwFBWFyZWFzCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDAAAAAAD///////////8BCgEFJGYxXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVjaGVjawIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMV8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTQJAQUkZjFfMgIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIJAQUkZjFfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOAl8zBAN0b3AJAJEDAgUJSE9SX0xJTkVTBQFqBAZib3R0b20JAJEDAgUJSE9SX0xJTkVTCQBkAgUBagABBARteDA0CQBoAgkAZAIJAJEDAgUDdG9wAAAJAJEDAgUGYm90dG9tAAAFBEhBTEYEBG14MTQJAGgCCQBkAgkAkQMCBQN0b3AAAQkAkQMCBQZib3R0b20AAQUESEFMRgQCaDQJAGgCCQBlAgkAkQMCBQZib3R0b20AAgkAkQMCBQN0b3AAAgUCTTQEA215NAkAaAIJAGQCCQCRAwIFA3RvcAACCQCRAwIFBmJvdHRvbQACBQRIQUxGBAZyYW5kWDQJAGQCBQRteDA0CQBqAgkAsQkBCQD3AwEJAMsBAgUHcnNhU2lnbgkAmgMBBQFqCQBlAgUEbXgxNAUEbXgwNAQGcmFuZFk0CQBkAgkAaAIJAJEDAgUDdG9wAAIFAk00CQBqAgkAsQkBCQD3AwEJAMsBAgUHcnNhU2lnbgkAmgMBBQZyYW5kWDQFAmg0BAJhNAkAZQIJAGgCCQCRAwIFA3RvcAACBQJNNAUGcmFuZFk0BAJiNAkAZQIJAGgCCQCRAwIFBmJvdHRvbQACBQJNNAUGcmFuZFk0BAN4MDQJAGsDCQBlAgkAaAIJAJEDAgUDdG9wAAAFAmI0CQBoAgkAkQMCBQZib3R0b20AAAUCYTQFAk00BQJoNAQDeDE0CQBrAwkAZQIJAGgCCQCRAwIFA3RvcAABBQJiNAkAaAIJAJEDAgUGYm90dG9tAAEFAmE0BQJNNAUCaDQDCQBmAgUDeDA0BQZyYW5kWDQJAMwIAgkAZQIJAGgCAAIFBG14MDQFBnJhbmRYNAkAzAgCCQBlAgkAaAIAAgUDbXk0BQZyYW5kWTQFA25pbAMJAGYCBQZyYW5kWDQFA3gxNAkAzAgCCQBlAgkAaAIAAgUEbXgxNAUGcmFuZFg0CQDMCAIJAGUCCQBoAgACBQNteTQFBnJhbmRZNAUDbmlsCQDMCAIFBnJhbmRYNAkAzAgCBQZyYW5kWTQFA25pbAESZ2V0RGVjb3JhdGlvbkluZGV4AgZnYW1lSWQHcnNhU2lnbgkAagIJALEJAQkA9wMBCQDLAQIJAJsDAQUGZ2FtZUlkBQdyc2FTaWduBQ9NQVhfREVDT1JBVElPTlMBEmdlbmVyYXRlUmFuZENob2ljZQIGZ2FtZUlkB3JzYVNpZ24EC3JzYVNpZ1ZhbGlkCQCoFAQFBlNIQTI1NgkAmwMBBQZnYW1lSWQFB3JzYVNpZ24FCVJTQVBVQkxJQwMJAQEhAQULcnNhU2lnVmFsaWQJAAIBAhVJbnZhbGlkIFJTQSBzaWduYXR1cmUEBHJhbmQJAGoCCQCxCQEJAPcDAQUHcnNhU2lnbgUMUkFORE9NX1JBTkdFCQCkAwEJAGQCBQRyYW5kAAEBC2lzUGxheWVyV2luAgxwbGF5ZXJDaG9pY2UKcmFuZENob2lzZQQBcwkAsQIBBQxwbGF5ZXJDaG9pY2UKAQVjaGVjawIBYQF4AwUBYQYDCQBnAgUBcwUBeAkAAAIJAK8CAgkAsAICBQxwbGF5ZXJDaG9pY2UJAGUCBQF4AAEAAQUKcmFuZENob2lzZQcKAAIkbAkAzAgCAAEJAMwIAgACCQDMCAIAAwkAzAgCAAQJAMwIAgAFBQNuaWwKAAIkcwkAkAMBBQIkbAoABSRhY2MwBwoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEFY2hlY2sCBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAQ9mb3JtYXRHYW1lRGF0YVMKCmdhbWVTdGF0dXMMcGxheWVyQ2hvaWNlDnBsYXllclB1YktleTU4DXN0YXJ0ZWRIZWlnaHQJd2luQW1vdW50CGFzc2V0SWR4C3JhbmRPckVtcHR5BnhDb29yZAZ5Q29vcmQKcHJpemVJbmRleAkAuQkCCQDMCAIFCmdhbWVTdGF0dXMJAMwIAgUMcGxheWVyQ2hvaWNlCQDMCAIFDnBsYXllclB1YktleTU4CQDMCAIFDXN0YXJ0ZWRIZWlnaHQJAMwIAgUJd2luQW1vdW50CQDMCAIFCGFzc2V0SWR4CQDMCAIDCQAAAgULcmFuZE9yRW1wdHkCAAIABQtyYW5kT3JFbXB0eQkAzAgCBQZ4Q29vcmQJAMwIAgUGeUNvb3JkCQDMCAIFCnByaXplSW5kZXgFA25pbAIBXwEOZm9ybWF0R2FtZURhdGEKCmdhbWVTdGF0dXMMcGxheWVyQ2hvaWNlDnBsYXllclB1YktleTU4DXN0YXJ0ZWRIZWlnaHQJd2luQW1vdW50CGFzc2V0SWR4C3JhbmRPckVtcHR5BnhDb29yZAZ5Q29vcmQKcHJpemVJbmRleAkBD2Zvcm1hdEdhbWVEYXRhUwoFCmdhbWVTdGF0dXMFDHBsYXllckNob2ljZQUOcGxheWVyUHViS2V5NTgJAKQDAQUNc3RhcnRlZEhlaWdodAkApAMBBQl3aW5BbW91bnQJAKQDAQUIYXNzZXRJZHgFC3JhbmRPckVtcHR5CQCkAwEFBnhDb29yZAkApAMBBQZ5Q29vcmQJAKQDAQUKcHJpemVJbmRleAEOZmluaXNoR2FtZURhdGEHDG9yaWdHYW1lRGF0YQpnYW1lU3RhdHVzBHJhbmQMd2luQnlUaW1lb3V0BnhDb29yZAZ5Q29vcmQKcHJpemVJbmRleAQOZmluaXNoR2FtZURhdGEJAQ9mb3JtYXRHYW1lRGF0YVMKBQpnYW1lU3RhdHVzCQCRAwIFDG9yaWdHYW1lRGF0YQUPSWR4UGxheWVyQ2hvaWNlCQCRAwIFDG9yaWdHYW1lRGF0YQURSWR4UGxheWVyUHViS2V5NTgJAJEDAgUMb3JpZ0dhbWVEYXRhBRBJZHhTdGFydGVkSGVpZ2h0CQCRAwIFDG9yaWdHYW1lRGF0YQUMSWR4V2luQW1vdW50CQCRAwIFDG9yaWdHYW1lRGF0YQUKSWR4QXNzZXRJZAUEcmFuZAkApAMBBQZ4Q29vcmQJAKQDAQUGeUNvb3JkCQCkAwEFCnByaXplSW5kZXgDBQx3aW5CeVRpbWVvdXQJAKwCAgUOZmluaXNoR2FtZURhdGECCF9USU1FT1VUBQ5maW5pc2hHYW1lRGF0YQEPZXh0cmFjdEdhbWVEYXRhAQZnYW1lSWQJALUJAgQHJG1hdGNoMAkAnQgCBQR0aGlzBQZnYW1lSWQDCQABAgUHJG1hdGNoMAIGU3RyaW5nBANzdHIFByRtYXRjaDAFA3N0cgkAAgEJAKwCAgkArAICAgZHYW1lOiAFBmdhbWVJZAILIG5vdCBmb3VuZC4CAV8EAWkBDWNvbnN0cnVjdG9yVjEEC3JzYVB1YmxpYzY0C2JlbnpBZGRyZXNzE3JhbmRPcmFjbGVUaW1lRnJhbWUQdG9rZW5zRGVzY3JpcHRvcgMJAQIhPQIIBQFpBmNhbGxlcgUEdGhpcwkAAgECDm5vdCBhdXRob3JpemVkCgEIc3BsaXR0ZXICA2FjYwRlbGVtBAd0b2tMaXN0CQC1CQIFBGVsZW0CAToDCQECIT0CCQCQAwEFB3Rva0xpc3QAAwkAAgECFEludmFsaWQgYXNzZXQgcmVjb3JkCQCVCgMJAM0IAggFA2FjYwJfMQkAkQMCBQd0b2tMaXN0BQlpZHhBc3NldHMJAM0IAggFA2FjYwJfMgkAkQMCBQd0b2tMaXN0BQtpZHhEZWNpbWFscwkAzQgCCAUDYWNjAl8zCQCRAwIFB3Rva0xpc3QFC2lkeERpdmlkZXJzBAFyCgACJGwJALwJAgUQdG9rZW5zRGVzY3JpcHRvcgIBXwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAJAJUKAwUDbmlsBQNuaWwFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEIc3BsaXR0ZXICBQIkYQkAkQMCBQIkbAUCJGkKAQUkZjBfMgICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkAAgECFExpc3Qgc2l6ZSBleGNlZWRzIDEwCQEFJGYwXzICCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECCQEFJGYwXzECBQUkYWNjMAAAAAEAAgADAAQABQAGAAcACAAJAAoJAMwIAgkBC1N0cmluZ0VudHJ5AgUOUlNBUFVCTElDNjRLRVkFC3JzYVB1YmxpYzY0CQDMCAIJAQtTdHJpbmdFbnRyeQIFEFNFUlZFUkFERFJFU1NLRVkFC2JlbnpBZGRyZXNzCQDMCAIJAQxJbnRlZ2VyRW50cnkCBRBSQU5EVElNRUZSQU1FS0VZBRNyYW5kT3JhY2xlVGltZUZyYW1lCQDMCAIJAQtTdHJpbmdFbnRyeQIFEGFsbG93ZWRBc3NldHNLZXkJALoJAggFAXICXzEFA1NFUAkAzAgCCQELU3RyaW5nRW50cnkCBRFhc3NldHNEZWNpbWFsc0tleQkAuQkCCAUBcgJfMgUDU0VQCQDMCAIJAQtTdHJpbmdFbnRyeQIFDmJldERpdmlkZXJzS2V5CQC5CQIIBQFyAl8zBQNTRVAFA25pbAFpAQttYWludGVuYW5jZQEHYmxvY2tlZAMJAQIhPQIIBQFpBmNhbGxlcgUGU0VSVkVSCQACAQIObm90IGF1dGhvcml6ZWQJAMwIAgkBDEJvb2xlYW5FbnRyeQIFCmJsb2NrZWRLZXkFB2Jsb2NrZWQFA25pbAFpAQNiZXQBDHBsYXllckNob2ljZQMJAQt2YWx1ZU9yRWxzZQIJAKAIAQUKYmxvY2tlZEtleQcJAAIBAh9HYW1lIGlzIHN0b3BwZWQgZm9yIG1haW50ZW5lbmNlBAZnYW1lSWQJANgEAQgFAWkNdHJhbnNhY3Rpb25JZAMJAGcCAAEJAJADAQgFAWkIcGF5bWVudHMJAAIBAhsyIHBheW1lbnRzIG11c3QgYmUgYXR0YWNoZWQDCQEJaXNEZWZpbmVkAQkAnQgCBQR0aGlzBQZnYW1lSWQJAAIBCQCsAgIJAKwCAgIJQmV0IGZvcjogBQZnYW1lSWQCEiB3YXMgYWxyZWFkeSBtYWRlLgQGYmV0UG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAAEBmZlZVBtdAkBBXZhbHVlAQkAkQMCCAUBaQhwYXltZW50cwABAwkBCWlzRGVmaW5lZAEIBQZmZWVQbXQHYXNzZXRJZAkAAgECLWZlZVBtdCAoMm5kIHBheW1lbnQpIGFzc2V0SWQgbXVzdCBiZSBpbiBXYXZlcwMJAGYCBQtNSU5GRUVXQVZFUwgFBmZlZVBtdAZhbW91bnQJAAIBAitmZWVQbXQgKDJuZCBwYXltZW50KSBtdXN0IGJlID49IDAuMDA1IFdhdmVzBAphc3NldElkU3RyCQEMYXNzZXRJZFRvU3RyAQgFBmJldFBtdAdhc3NldElkBBBpbnRlcm5hbEFzc2V0SWR4CQEWdmFsaWRhdGVBbmRHZXRBc3NldElkeAEFCmFzc2V0SWRTdHIECmNvbW1pc3Npb24IBQZmZWVQbXQGYW1vdW50BAl3aW5BbW91bnQJARp2YWxpZGF0ZUJldEFuZEdldFdpbkFtb3VudAMIBQZiZXRQbXQGYW1vdW50BRBpbnRlcm5hbEFzc2V0SWR4BQxwbGF5ZXJDaG9pY2UEDnBsYXllclB1YktleTU4CQDYBAEIBQFpD2NhbGxlclB1YmxpY0tleQQIZ2FtZURhdGEJAQ5mb3JtYXRHYW1lRGF0YQoFDlNUQVRFU1VCTUlUVEVEBQxwbGF5ZXJDaG9pY2UFDnBsYXllclB1YktleTU4BQZoZWlnaHQFCXdpbkFtb3VudAUQaW50ZXJuYWxBc3NldElkeAIAAP///////////wEA////////////AQD///////////8BCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0SWR4AQUQaW50ZXJuYWxBc3NldElkeAkBFWluY3JlYXNlUmVzZXJ2ZUFtb3VudAIFCXdpbkFtb3VudAUQaW50ZXJuYWxBc3NldElkeAkAzAgCCQEMaW5jcmVtZW50SW50AQUPR0FNRVNDT1VOVEVSS0VZCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmdhbWVJZAUIZ2FtZURhdGEJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGU0VSVkVSBQpjb21taXNzaW9uCAUGZmVlUG10B2Fzc2V0SWQFA25pbAFpAQh3aXRoZHJhdwIGZ2FtZUlkB3JzYVNpZ24ECGdhbWVEYXRhCQEPZXh0cmFjdEdhbWVEYXRhAQUGZ2FtZUlkBAlnYW1lU3RhdGUJAJEDAgUIZ2FtZURhdGEFDElkeEdhbWVTdGF0ZQQMcGxheWVyQ2hvaWNlCQCRAwIFCGdhbWVEYXRhBQ9JZHhQbGF5ZXJDaG9pY2UEDXN0YXJ0ZWRIZWlnaHQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhnYW1lRGF0YQUQSWR4U3RhcnRlZEhlaWdodAQJd2luQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUIZ2FtZURhdGEFDElkeFdpbkFtb3VudAQIYXNzZXRJZHgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhnYW1lRGF0YQUKSWR4QXNzZXRJZAQOcGxheWVyUHViS2V5NTgJAJEDAgUIZ2FtZURhdGEFEUlkeFBsYXllclB1YktleTU4BA1wbGF5ZXJBZGRyZXNzCQCnCAEJANkEAQUOcGxheWVyUHViS2V5NTgDCQECIT0CBQlnYW1lU3RhdGUFDlNUQVRFU1VCTUlUVEVECQACAQIkSW52YWxpZCBnYW1lIHN0YXRlIGZvciBwYXNzZWQgZ2FtZUlkAwkBAiE9AggFAWkGY2FsbGVyBQZTRVJWRVIJAAIBAitSZWd1bGFyIHdpdGhkcmF3IGNhbiBiZSBkb25lIGJ5IHNlcnZlciBvbmx5BAx3aW5CeVRpbWVvdXQJAGYCCQBlAgUGaGVpZ2h0BQ1zdGFydGVkSGVpZ2h0BRNSQU5ET1JBQ0xFVElNRUZSQU1FBApyYW5kQ2hvaWNlAwUMd2luQnlUaW1lb3V0CQCvAgIFDHBsYXllckNob2ljZQABCQESZ2VuZXJhdGVSYW5kQ2hvaWNlAgUGZ2FtZUlkBQdyc2FTaWduBAlwbGF5ZXJXaW4JAQtpc1BsYXllcldpbgIFDHBsYXllckNob2ljZQUKcmFuZENob2ljZQQNbmV3R2FtZVN0YXR1cwMFCXBsYXllcldpbgUIU1RBVEVXT04FCVNUQVRFTE9TVAQGY29vcmRzAwUJcGxheWVyV2luCQDMCAIJAQEtAQUCTTQJAMwIAgkBAS0BBQJNNAUDbmlsCQEJZ2V0Q29vcmRzAgUGZ2FtZUlkBQdyc2FTaWduBApwcml6ZUluZGV4AwUJcGxheWVyV2luAP///////////wEJARJnZXREZWNvcmF0aW9uSW5kZXgCBQZnYW1lSWQFB3JzYVNpZ24EAXgJAGkCCQCRAwIFBmNvb3JkcwAABQJNNAQBeQkAaQIJAJEDAgUGY29vcmRzAAEFAk00BAtuZXdHYW1lRGF0YQkBDmZpbmlzaEdhbWVEYXRhBwUIZ2FtZURhdGEFDW5ld0dhbWVTdGF0dXMFCnJhbmRDaG9pY2UFDHdpbkJ5VGltZW91dAUBeAUBeQUKcHJpemVJbmRleAQKb2xkSGlzdG9yeQkBC3ZhbHVlT3JFbHNlAgkAoggBBQpoaXN0b3J5S2V5AgAECm5ld0hpc3RvcnkJAKwCAgMJAAACBQpvbGRIaXN0b3J5AgACAAkArAICBQpvbGRIaXN0b3J5AgFfCQC5CQIJAMwIAgkApAMBBQF4CQDMCAIJAKQDAQUBeQkAzAgCCQCkAwEFCnByaXplSW5kZXgFA25pbAIBOgkAzggCCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmdhbWVJZAULbmV3R2FtZURhdGEJAMwIAgkBFmRlY3JlYXNlUmVzZXJ2ZWRBbW91bnQDBQZnYW1lSWQFCGFzc2V0SWR4BQl3aW5BbW91bnQJAMwIAgkBC1N0cmluZ0VudHJ5AgUKaGlzdG9yeUtleQUKbmV3SGlzdG9yeQUDbmlsAwUJcGxheWVyV2luCQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFDXBsYXllckFkZHJlc3MFCXdpbkFtb3VudAkBDmFzc2V0SWRGcm9tU3RyAQkAkQMCBQZBU1NFVFMFCGFzc2V0SWR4BQNuaWwFA25pbAECdHgBBnZlcmlmeQADCQD0AwMIBQJ0eAlib2R5Qnl0ZXMJAJEDAggFAnR4BnByb29mcwAACAUCdHgPc2VuZGVyUHVibGljS2V5BAckbWF0Y2gwBQJ0eAMJAAECBQckbWF0Y2gwAhNUcmFuc2ZlclRyYW5zYWN0aW9uBAN0dHgFByRtYXRjaDAECGFzc2V0SWR4CQEWdmFsaWRhdGVBbmRHZXRBc3NldElkeAEJAQxhc3NldElkVG9TdHIBCAUDdHR4B2Fzc2V0SWQJAGcCCQBlAgkBD2dldEFzc2V0QmFsYW5jZQEIBQN0dHgHYXNzZXRJZAgFA3R0eAZhbW91bnQJAQhnZXRJbnRPcgIJARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRJZHgBBQhhc3NldElkeAAAAwkAAQIFByRtYXRjaDACFFNldFNjcmlwdFRyYW5zYWN0aW9uBANzdHgFByRtYXRjaDAKAQdjaGVja2VyAgNhY2MFYXNzZXQDBQNhY2MJAAACCQEIZ2V0SW50T3ICCQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0U3RyAQUFYXNzZXQAAAAABwoAAiRsBQZBU1NFVFMKAAIkcwkAkAMBBQIkbAoABSRhY2MwBgoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEHY2hlY2tlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgMJAAECBQckbWF0Y2gwAhdJbnZva2VTY3JpcHRUcmFuc2FjdGlvbgQDaXR4BQckbWF0Y2gwAwkAAAIIBQNpdHgEZEFwcAUEdGhpcwkAAAIIBQNpdHgIZnVuY3Rpb24CDWNvbnN0cnVjdG9yVjEHBwcsfPFY",
    "height": 2886675,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8xh42kktAgjFWFNQXm2y4Nm3zpvCwAJry7zUqhZj7RnX
Next: 4neXrpr5EyYMunFVKJQWmdRCAiZ76sai4w8zcWjoLoWu

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

github/deemru/w8io/3ef1775 
298.62 ms ◑