tx · CFJTzodtTfc9BN6gqaKMCjoN9S9G4Er3fHxoYvtWZ8EZ

3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ:  -0.01700000 Waves

2023.12.12 19:18 [2883744] smart account 3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CFJTzodtTfc9BN6gqaKMCjoN9S9G4Er3fHxoYvtWZ8EZ",
    "fee": 1700000,
    "feeAssetId": null,
    "timestamp": 1702397936732,
    "version": 2,
    "chainId": 84,
    "sender": "3N8NLvRGsbGhgoXy7EdigPbAz6N2i7ygBcZ",
    "senderPublicKey": "CQoe8BRHR78TuPQLcK3Ykv39w9CeNLhjKdj6TNbJ5FrM",
    "proofs": [
        "3HxcftkfdWDtAehWv4UUvW4EePw5VkMaL87SVfXkTzTHWo4pyQ6cmyVbNxwde5RxzGc9vR36aAwvhCJtnfADfVX4"
    ],
    "script": "base64:BgIaCAISBgoECAgBCBIDCgEEEgMKAQgSBAoCCAJGAANTRVACAl9fAAdXQVZFU0lEAQQTq9kzAAZXQVZFU0QAgMLXLwAJR0FNRV9OQU1FAglYbWFzIFRyZWUADFJBTkRPTV9SQU5HRQAFAAhOVU1fQkVUUwABAQxnZXRTdHJPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJ0IAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAEMZ2V0SW50T3JGYWlsAgdhZGRyZXNzA2tleQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQCaCAIFB2FkZHJlc3MFA2tleQkAuQkCCQDMCAICCm1hbmRhdG9yeSAJAMwIAgkApQgBBQdhZGRyZXNzCQDMCAICAS4JAMwIAgUDa2V5CQDMCAICDyBpcyBub3QgZGVmaW5lZAUDbmlsAgABDWdldEJvb2xPckZhaWwCB2FkZHJlc3MDa2V5CQETdmFsdWVPckVycm9yTWVzc2FnZQIJAJsIAgUHYWRkcmVzcwUDa2V5CQC5CQIJAMwIAgIKbWFuZGF0b3J5IAkAzAgCCQClCAEFB2FkZHJlc3MJAMwIAgIBLgkAzAgCBQNrZXkJAMwIAgIPIGlzIG5vdCBkZWZpbmVkBQNuaWwCAAAQYWxsb3dlZEFzc2V0c0tleQIYJXMlc19fY2ZnX19hbGxvd2VkQXNzZXRzABFhc3NldHNEZWNpbWFsc0tleQIZJXMlc19fY2ZnX19hc3NldHNEZWNpbWFscwAOYmV0RGl2aWRlcnNLZXkCHCVzJXNfX2NmZ19fYXNzZXRzQmV0RGl2aWRlcnMADlJTQVBVQkxJQzY0S0VZAhYlcyVzX19jZmdfX3JzYVB1YmxpYzY0ABBTRVJWRVJBRERSRVNTS0VZAhYlcyVzX19jZmdfX2JlbnpBZGRyZXNzABBSQU5EVElNRUZSQU1FS0VZAhwlcyVzX19jZmdfX3dpdGhkcmF3VGltZUZyYW1lAA9HQU1FU0NPVU5URVJLRVkCFiVzJXNfX3J1bnRpbWVfX2dhbWVOdW0ACmJsb2NrZWRLZXkCICVzJXNfX3J1bnRpbWVfX2NvbnRyYWN0SXNCbG9ja2VkABJyZXNlcnZlZEFtb3VudHNLZXkCHiVzJXNfX3J1bnRpbWVfX3Jlc2VydmVkQW1vdW50cwELZ2V0SW50QXJyYXkBA2tleQQBYQkBDGdldFN0ck9yRmFpbAIFBHRoaXMFA2tleQoBBmZpbGxlcgIDYWNjAmVsCQDNCAIFA2FjYwkBDXBhcnNlSW50VmFsdWUBBQJlbAoAAiRsCQC1CQIFAWEFA1NFUAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAFA25pbAoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEGZmlsbGVyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAZBU1NFVFMJALUJAgkBDGdldFN0ck9yRmFpbAIFBHRoaXMFEGFsbG93ZWRBc3NldHNLZXkFA1NFUAAIREVDSU1BTFMJAQtnZXRJbnRBcnJheQEFEWFzc2V0c0RlY2ltYWxzS2V5AAtCRVRESVZJREVSUwkBC2dldEludEFycmF5AQUOYmV0RGl2aWRlcnNLZXkBGGtleVJlc2VydmF0aW9uQnlBc3NldFN0cgEIYXNzZXRTdHIJAKwCAgIRJFJFU0VSVkVEX0FNT1VOVF8FCGFzc2V0U3RyARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRJZHgBCGFzc2V0SWR4CQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0U3RyAQkAkQMCBQZBU1NFVFMFCGFzc2V0SWR4AAtNSU5GRUVXQVZFUwkAaQIJAGgCAAUFBldBVkVTRADoBwAJaWR4QXNzZXRzAAAAC2lkeERlY2ltYWxzAAEAC2lkeERpdmlkZXJzAAIABEJFVDEAAQAEQkVUMgACAARCRVQ0AAQABEJFVDgACAAFQkVUMTQADgAIUkFURU1VTFQAkE4ABFJBVEUAkKEPAARCRVRTCQDMCAIFBEJFVDIFA25pbAAMSWR4R2FtZVN0YXRlAAAAD0lkeFBsYXllckNob2ljZQABABFJZHhQbGF5ZXJQdWJLZXk1OAACABBJZHhTdGFydGVkSGVpZ2h0AAMADElkeFdpbkFtb3VudAAEAApJZHhBc3NldElkAAUADlNUQVRFU1VCTUlUVEVEAglTVUJNSVRURUQACFNUQVRFV09OAgNXT04ACVNUQVRFTE9TVAIETE9TVAEPZ2V0U3RyaW5nT3JGYWlsAQNrZXkJARN2YWx1ZU9yRXJyb3JNZXNzYWdlAgkAnQgCBQR0aGlzBQNrZXkJAKwCAgUDa2V5AiMga2V5IGlzIG5vdCBzcGVjaWZpZWQgaW4gdGhpcy5zdGF0ZQAJUlNBUFVCTElDCQDbBAEJAQ9nZXRTdHJpbmdPckZhaWwBBQ5SU0FQVUJMSUM2NEtFWQAGU0VSVkVSCQERQGV4dHJOYXRpdmUoMTA2MikBCQEPZ2V0U3RyaW5nT3JGYWlsAQUQU0VSVkVSQUREUkVTU0tFWQATUkFORE9SQUNMRVRJTUVGUkFNRQkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBRBSQU5EVElNRUZSQU1FS0VZAKA4AQhnZXRJbnRPcgIDa2V5B2RlZmF1bHQDCQEJaXNEZWZpbmVkAQkAnwgBBQNrZXkJARFAZXh0ck5hdGl2ZSgxMDU1KQEFA2tleQUHZGVmYXVsdAEGc2V0SW50AgNrZXkFdmFsdWUJAQxJbnRlZ2VyRW50cnkCBQNrZXkFBXZhbHVlAQxpbmNyZW1lbnRJbnQBA2tleQkBBnNldEludAIFA2tleQkAZAIJAQhnZXRJbnRPcgIFA2tleQD///////////8BAAEBCWNoYW5nZUludAIDa2V5AmJ5CQEGc2V0SW50AgUDa2V5CQBkAgkBCGdldEludE9yAgUDa2V5AAAFAmJ5AQxhc3NldElkVG9TdHIBDWFzc2V0SWRPclVuaXQEByRtYXRjaDAFDWFzc2V0SWRPclVuaXQDCQABAgUHJG1hdGNoMAIKQnl0ZVZlY3RvcgQBYgUHJG1hdGNoMAkA2AQBBQFiAgVXQVZFUwEOYXNzZXRJZEZyb21TdHIBCmFzc2V0SWRTdHIDCQAAAgUKYXNzZXRJZFN0cgIFV0FWRVMFBHVuaXQJANkEAQUKYXNzZXRJZFN0cgEPZ2V0QXNzZXRCYWxhbmNlAQ1hc3NldElkT3JVbml0BAckbWF0Y2gwBQ1hc3NldElkT3JVbml0AwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEB2Fzc2V0SWQFByRtYXRjaDAJAPAHAgUEdGhpcwUHYXNzZXRJZAgJAO8HAQUEdGhpcwlhdmFpbGFibGUBFWluY3JlYXNlUmVzZXJ2ZUFtb3VudAIJd2luQW1vdW50CGFzc2V0SWR4BAphc3NldElkU3RyCQCRAwIFBkFTU0VUUwUIYXNzZXRJZHgEEW5ld1Jlc2VydmVkQW1vdW50CQBkAgkBCGdldEludE9yAgkBGGtleVJlc2VydmF0aW9uQnlBc3NldElkeAEFCGFzc2V0SWR4AAAFCXdpbkFtb3VudAMJAGYCBRFuZXdSZXNlcnZlZEFtb3VudAkBD2dldEFzc2V0QmFsYW5jZQEJAQ5hc3NldElkRnJvbVN0cgEFCmFzc2V0SWRTdHIJAAIBCQCsAgIJAKwCAgIWSW5zdWZmaWNpZW50IGZ1bmRzIG9uIAUJR0FNRV9OQU1FAjMgYWNjb3VudC4gVHJhbnNhY3Rpb24gd2FzIHJlamVjdGVkIGZvciB5b3VyIHNhZmV0eS4FEW5ld1Jlc2VydmVkQW1vdW50ARZkZWNyZWFzZVJlc2VydmVkQW1vdW50AwZnYW1lSWQIYXNzZXRJZHgJd2luQW1vdW50AwkAZgIAAAkAZQIJAQhnZXRJbnRPcgIJARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRJZHgBBQhhc3NldElkeAAABQl3aW5BbW91bnQJAAIBCQCsAgIJAKwCAgIISW52YWxpZCAFCUdBTUVfTkFNRQIvIGFjY291bnQgc3RhdGUgLSByZXNlcnZlZCBhbW91bnQgaXMgbGVzcyB0aGFuIDAJAQljaGFuZ2VJbnQCCQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0SWR4AQUIYXNzZXRJZHgJAQEtAQUJd2luQW1vdW50ARZ2YWxpZGF0ZUFuZEdldEFzc2V0SWR4AQphc3NldElkU3RyBANpZHgJAM8IAgUGQVNTRVRTBQphc3NldElkU3RyAwkBASEBCQEJaXNEZWZpbmVkAQUDaWR4CQACAQIVSW52YWxpZCBwYXltZW50IGFzc2V0CQEFdmFsdWUBBQNpZHgBGnZhbGlkYXRlQmV0QW5kR2V0V2luQW1vdW50AwNiZXQQaW50ZXJuYWxBc3NldElkeAxwbGF5ZXJDaG9pY2UECmRpY2VzQ291bnQJALECAQUMcGxheWVyQ2hvaWNlCgELY2hlY2tBbW91bnQCAWEBeAMFAWEGCQAAAgUDYmV0CQBpAgkAaAIFAXgJAJEDAgUIREVDSU1BTFMFEGludGVybmFsQXNzZXRJZHgJAJEDAgULQkVURElWSURFUlMFEGludGVybmFsQXNzZXRJZHgDCQEBIQEKAAIkbAUEQkVUUwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAHCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQtjaGVja0Ftb3VudAIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUJAAIBAhdCZXQgYW1vdW50IGlzIG5vdCB2YWxpZAMJAAACCQC2CQEFDHBsYXllckNob2ljZQUEdW5pdAkAAgECF0ludmFsaWQgcGxheWVyJ3MgY2hvaWNlAwkBAiE9AgUKZGljZXNDb3VudAUITlVNX0JFVFMJAAIBAiFJbnZhbGlkIGxlbmd0aCBvZiBwbGF5ZXIncyBjaG9pY2UJAGsDBQNiZXQFBFJBVEUFCFJBVEVNVUxUAAlIT1JfTElORVMJAMwIAgkAzAgCAOsDCQDMCAIA+gMJAMwIAgAsBQNuaWwJAMwIAgkAzAgCAMcDCQDMCAIAngQJAMwIAgB4BQNuaWwJAMwIAgkAzAgCAJQDCQDMCAIA1AQJAMwIAgCmAQUDbmlsCQDMCAIJAMwIAgC5AwkAzAgCAKwECQDMCAIAsQEFA25pbAkAzAgCCQDMCAIAgwMJAMwIAgDsBAkAzAgCAOgBBQNuaWwJAMwIAgkAzAgCAKcDCQDMCAIA7AQJAMwIAgDoAQUDbmlsCQDMCAIJAMwIAgCaAwkAzAgCANAECQDMCAIA9AEFA25pbAkAzAgCCQDMCAIAyQIJAMwIAgCZBQkAzAgCAMECBQNuaWwJAMwIAgkAzAgCAPICCQDMCAIAmgUJAMwIAgDRAgUDbmlsCQDMCAIJAMwIAgDjAgkAzAgCAIUFCQDMCAIA3QIFA25pbAkAzAgCCQDMCAIAuQIJAMwIAgC0BQkAzAgCAIADBQNuaWwJAMwIAgkAzAgCAKECCQDMCAIAqgUJAMwIAgCVAwUDbmlsCQDMCAIJAMwIAgDEAgkAzAgCAJEFCQDMCAIAzQMFA25pbAkAzAgCCQDMCAIAwgMJAMwIAgC/BAkAzAgCAI0EBQNuaWwJAMwIAgkAzAgCAPkDCQDMCAIA+QMJAMwIAgCUBAUDbmlsBQNuaWwABEhBTEYAiCcAAk00AJBOAQlnZXRDb29yZHMCBmdhbWVJZAdyc2FTaWduCgEJY2FsY0FyZWFzAgNhY2MHaWdub3JlZAQBaQgFA2FjYwJfMwQDdG9wCQCRAwIFCUhPUl9MSU5FUwUBaQQGYm90dG9tCQCRAwIFCUhPUl9MSU5FUwkAZAIFAWkAAQQFYXJlYTQJAGgCCQBoAgkAZQIJAGQCCQBlAgkAkQMCBQN0b3AAAQkAkQMCBQN0b3AAAAkAkQMCBQZib3R0b20AAQkAkQMCBQZib3R0b20AAAkAZQIJAJEDAgUGYm90dG9tAAIJAJEDAgUDdG9wAAIAiCcJAJUKAwkAzQgCCAUDYWNjAl8xBQVhcmVhNAkAZAIIBQNhY2MCXzIFBWFyZWE0CQBkAggFA2FjYwJfMwABBAskdDA3OTM5ODAwNgoAAiRsBQlIT1JfTElORVMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMFA25pbAAAAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBCWNhbGNBcmVhcwIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTQJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgALAAwADQAOBAVhcmVhcwgFCyR0MDc5Mzk4MDA2Al8xBAl0b3RhbEFyZWEIBQskdDA3OTM5ODAwNgJfMgQEcmFuZAkAagIJALEJAQkA9wMBBQdyc2FTaWduBQl0b3RhbEFyZWEKAQVjaGVjawIDYWNjBGFyZWEEAWkIBQNhY2MCXzEEB25ld0FyZWEJAGQCCAUDYWNjAl8yBQRhcmVhCQCVCgMJAGQCBQFpAAEFB25ld0FyZWEDCQBmAgUHbmV3QXJlYQUEcmFuZAUBaQgFA2FjYwJfMwQBaggKAAIkbAUFYXJlYXMKAAIkcwkAkAMBBQIkbAoABSRhY2MwCQCVCgMAAAAAAP///////////wEKAQUkZjFfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBBWNoZWNrAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYxXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxNAkBBSRmMV8yAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgkBBSRmMV8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4CXzMEA3RvcAkAkQMCBQlIT1JfTElORVMFAWoEBmJvdHRvbQkAkQMCBQlIT1JfTElORVMJAGQCBQFqAAEEBG14MDQJAGgCCQBkAgkAkQMCBQN0b3AAAAkAkQMCBQZib3R0b20AAAUESEFMRgQEbXgxNAkAaAIJAGQCCQCRAwIFA3RvcAABCQCRAwIFBmJvdHRvbQABBQRIQUxGBAJoNAkAaAIJAGUCCQCRAwIFBmJvdHRvbQACCQCRAwIFA3RvcAACBQJNNAQDbXk0CQBoAgkAZAIJAJEDAgUDdG9wAAIJAJEDAgUGYm90dG9tAAIFBEhBTEYEBnJhbmRYNAkAZAIFBG14MDQJAGoCCQCxCQEJAPcDAQkAywECBQdyc2FTaWduCQCaAwEFAWoJAGUCBQRteDE0BQRteDA0BAZyYW5kWTQJAGQCCQCRAwIFA3RvcAACCQBqAgkAsQkBCQD3AwEJAMsBAgUHcnNhU2lnbgkAmgMBBQZyYW5kWDQFAmg0BAJhNAkAZQIJAGgCCQCRAwIFA3RvcAACBQJNNAUGcmFuZFk0BAJiNAkAZQIJAGgCCQCRAwIFBmJvdHRvbQACBQJNNAUGcmFuZFk0BAN4MDQJAGsDCQBlAgkAaAIJAJEDAgUDdG9wAAAFAmI0CQBoAgkAkQMCBQZib3R0b20AAAUCYTQFAk00BQJoNAQDeDE0CQBrAwkAZQIJAGgCCQCRAwIFA3RvcAABBQJiNAkAaAIJAJEDAgUGYm90dG9tAAEFAmE0BQJNNAUCaDQDCQBmAgUDeDA0BQZyYW5kWDQJAMwIAgkAZQIJAGgCAAIFBG14MDQFBnJhbmRYNAkAzAgCCQBlAgkAaAIAAgUDbXk0BQZyYW5kWTQFA25pbAMJAGYCBQZyYW5kWDQFA3gxNAkAzAgCCQBlAgkAaAIAAgUEbXgxNAUGcmFuZFg0CQDMCAIJAGUCCQBoAgACBQNteTQFBnJhbmRZNAUDbmlsCQDMCAIFBnJhbmRYNAkAzAgCBQZyYW5kWTQFA25pbAESZ2VuZXJhdGVSYW5kQ2hvaWNlAgZnYW1lSWQHcnNhU2lnbgQLcnNhU2lnVmFsaWQJAKgUBAUGU0hBMjU2CQCbAwEFBmdhbWVJZAUHcnNhU2lnbgUJUlNBUFVCTElDAwkBASEBBQtyc2FTaWdWYWxpZAkAAgECFUludmFsaWQgUlNBIHNpZ25hdHVyZQQEcmFuZAkAagIJALEJAQkA9wMBBQdyc2FTaWduBQxSQU5ET01fUkFOR0UJAKQDAQkAZAIFBHJhbmQAAQELaXNQbGF5ZXJXaW4CDHBsYXllckNob2ljZQpyYW5kQ2hvaXNlBAFzCQCxAgEFDHBsYXllckNob2ljZQoBBWNoZWNrAgFhAXgDBQFhBgMJAGcCBQFzBQF4CQAAAgkArwICCQCwAgIFDHBsYXllckNob2ljZQkAZQIFAXgAAQABBQpyYW5kQ2hvaXNlBwoAAiRsCQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUFA25pbAoAAiRzCQCQAwEFAiRsCgAFJGFjYzAHCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQVjaGVjawIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQITTGlzdCBzaXplIGV4Y2VlZHMgNQkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUBD2Zvcm1hdEdhbWVEYXRhUwkKZ2FtZVN0YXR1cwxwbGF5ZXJDaG9pY2UOcGxheWVyUHViS2V5NTgNc3RhcnRlZEhlaWdodAl3aW5BbW91bnQIYXNzZXRJZHgLcmFuZE9yRW1wdHkGeENvb3JkBnlDb29yZAkAuQkCCQDMCAIFCmdhbWVTdGF0dXMJAMwIAgUMcGxheWVyQ2hvaWNlCQDMCAIFDnBsYXllclB1YktleTU4CQDMCAIFDXN0YXJ0ZWRIZWlnaHQJAMwIAgUJd2luQW1vdW50CQDMCAIFCGFzc2V0SWR4CQDMCAIDCQAAAgULcmFuZE9yRW1wdHkCAAIABQtyYW5kT3JFbXB0eQkAzAgCBQZ4Q29vcmQJAMwIAgUGeUNvb3JkBQNuaWwCAV8BDmZvcm1hdEdhbWVEYXRhCQpnYW1lU3RhdHVzDHBsYXllckNob2ljZQ5wbGF5ZXJQdWJLZXk1OA1zdGFydGVkSGVpZ2h0CXdpbkFtb3VudAhhc3NldElkeAtyYW5kT3JFbXB0eQZ4Q29vcmQGeUNvb3JkCQEPZm9ybWF0R2FtZURhdGFTCQUKZ2FtZVN0YXR1cwUMcGxheWVyQ2hvaWNlBQ5wbGF5ZXJQdWJLZXk1OAkApAMBBQ1zdGFydGVkSGVpZ2h0CQCkAwEFCXdpbkFtb3VudAkApAMBBQhhc3NldElkeAULcmFuZE9yRW1wdHkJAKQDAQUGeENvb3JkCQCkAwEFBnlDb29yZAEOZmluaXNoR2FtZURhdGEGDG9yaWdHYW1lRGF0YQpnYW1lU3RhdHVzBHJhbmQMd2luQnlUaW1lb3V0BnhDb29yZAZ5Q29vcmQEDmZpbmlzaEdhbWVEYXRhCQEPZm9ybWF0R2FtZURhdGFTCQUKZ2FtZVN0YXR1cwkAkQMCBQxvcmlnR2FtZURhdGEFD0lkeFBsYXllckNob2ljZQkAkQMCBQxvcmlnR2FtZURhdGEFEUlkeFBsYXllclB1YktleTU4CQCRAwIFDG9yaWdHYW1lRGF0YQUQSWR4U3RhcnRlZEhlaWdodAkAkQMCBQxvcmlnR2FtZURhdGEFDElkeFdpbkFtb3VudAkAkQMCBQxvcmlnR2FtZURhdGEFCklkeEFzc2V0SWQFBHJhbmQJAKQDAQUGeENvb3JkCQCkAwEFBnlDb29yZAMFDHdpbkJ5VGltZW91dAkArAICBQ5maW5pc2hHYW1lRGF0YQIIX1RJTUVPVVQFDmZpbmlzaEdhbWVEYXRhAQ9leHRyYWN0R2FtZURhdGEBBmdhbWVJZAkAtQkCBAckbWF0Y2gwCQCdCAIFBHRoaXMFBmdhbWVJZAMJAAECBQckbWF0Y2gwAgZTdHJpbmcEA3N0cgUHJG1hdGNoMAUDc3RyCQACAQkArAICCQCsAgICBkdhbWU6IAUGZ2FtZUlkAgsgbm90IGZvdW5kLgIBXwQBaQENY29uc3RydWN0b3JWMQQLcnNhUHVibGljNjQLYmVuekFkZHJlc3MTcmFuZE9yYWNsZVRpbWVGcmFtZRB0b2tlbnNEZXNjcmlwdG9yAwkBAiE9AggFAWkGY2FsbGVyBQR0aGlzCQACAQIObm90IGF1dGhvcml6ZWQKAQhzcGxpdHRlcgIDYWNjBGVsZW0EB3Rva0xpc3QJALUJAgUEZWxlbQIBOgMJAQIhPQIJAJADAQUHdG9rTGlzdAADCQACAQIUSW52YWxpZCBhc3NldCByZWNvcmQJAJUKAwkAzQgCCAUDYWNjAl8xCQCRAwIFB3Rva0xpc3QFCWlkeEFzc2V0cwkAzQgCCAUDYWNjAl8yCQCRAwIFB3Rva0xpc3QFC2lkeERlY2ltYWxzCQDNCAIIBQNhY2MCXzMJAJEDAgUHdG9rTGlzdAULaWR4RGl2aWRlcnMEAXIKAAIkbAkAvAkCBRB0b2tlbnNEZXNjcmlwdG9yAgFfCgACJHMJAJADAQUCJGwKAAUkYWNjMAkAlQoDBQNuaWwFA25pbAUDbmlsCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQhzcGxpdHRlcgIFAiRhCQCRAwIFAiRsBQIkaQoBBSRmMF8yAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQACAQIUTGlzdCBzaXplIGV4Y2VlZHMgMTAJAQUkZjBfMgIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIJAQUkZjBfMQIFBSRhY2MwAAAAAQACAAMABAAFAAYABwAIAAkACgkAzAgCCQELU3RyaW5nRW50cnkCBQ5SU0FQVUJMSUM2NEtFWQULcnNhUHVibGljNjQJAMwIAgkBC1N0cmluZ0VudHJ5AgUQU0VSVkVSQUREUkVTU0tFWQULYmVuekFkZHJlc3MJAMwIAgkBDEludGVnZXJFbnRyeQIFEFJBTkRUSU1FRlJBTUVLRVkFE3JhbmRPcmFjbGVUaW1lRnJhbWUJAMwIAgkBC1N0cmluZ0VudHJ5AgUQYWxsb3dlZEFzc2V0c0tleQkAugkCCAUBcgJfMQUDU0VQCQDMCAIJAQtTdHJpbmdFbnRyeQIFEWFzc2V0c0RlY2ltYWxzS2V5CQC5CQIIBQFyAl8yBQNTRVAJAMwIAgkBC1N0cmluZ0VudHJ5AgUOYmV0RGl2aWRlcnNLZXkJALkJAggFAXICXzMFA1NFUAUDbmlsAWkBC21haW50ZW5hbmNlAQdibG9ja2VkAwkBAiE9AggFAWkGY2FsbGVyBQZTRVJWRVIJAAIBAg5ub3QgYXV0aG9yaXplZAkAzAgCCQEMQm9vbGVhbkVudHJ5AgUKYmxvY2tlZEtleQUHYmxvY2tlZAUDbmlsAWkBA2JldAEMcGxheWVyQ2hvaWNlAwkBC3ZhbHVlT3JFbHNlAgkAoAgBBQpibG9ja2VkS2V5BwkAAgECH0dhbWUgaXMgc3RvcHBlZCBmb3IgbWFpbnRlbmVuY2UEBmdhbWVJZAkA2AQBCAUBaQ10cmFuc2FjdGlvbklkAwkAZwIAAQkAkAMBCAUBaQhwYXltZW50cwkAAgECGzIgcGF5bWVudHMgbXVzdCBiZSBhdHRhY2hlZAMJAQlpc0RlZmluZWQBCQCdCAIFBHRoaXMFBmdhbWVJZAkAAgEJAKwCAgkArAICAglCZXQgZm9yOiAFBmdhbWVJZAISIHdhcyBhbHJlYWR5IG1hZGUuBAZiZXRQbXQJAQV2YWx1ZQEJAJEDAggFAWkIcGF5bWVudHMAAAQGZmVlUG10CQEFdmFsdWUBCQCRAwIIBQFpCHBheW1lbnRzAAEDCQEJaXNEZWZpbmVkAQgFBmZlZVBtdAdhc3NldElkCQACAQItZmVlUG10ICgybmQgcGF5bWVudCkgYXNzZXRJZCBtdXN0IGJlIGluIFdhdmVzAwkAZgIFC01JTkZFRVdBVkVTCAUGZmVlUG10BmFtb3VudAkAAgECK2ZlZVBtdCAoMm5kIHBheW1lbnQpIG11c3QgYmUgPj0gMC4wMDUgV2F2ZXMECmFzc2V0SWRTdHIJAQxhc3NldElkVG9TdHIBCAUGYmV0UG10B2Fzc2V0SWQEEGludGVybmFsQXNzZXRJZHgJARZ2YWxpZGF0ZUFuZEdldEFzc2V0SWR4AQUKYXNzZXRJZFN0cgQKY29tbWlzc2lvbggFBmZlZVBtdAZhbW91bnQECXdpbkFtb3VudAkBGnZhbGlkYXRlQmV0QW5kR2V0V2luQW1vdW50AwgFBmJldFBtdAZhbW91bnQFEGludGVybmFsQXNzZXRJZHgFDHBsYXllckNob2ljZQQOcGxheWVyUHViS2V5NTgJANgEAQgFAWkPY2FsbGVyUHVibGljS2V5BAhnYW1lRGF0YQkBDmZvcm1hdEdhbWVEYXRhCQUOU1RBVEVTVUJNSVRURUQFDHBsYXllckNob2ljZQUOcGxheWVyUHViS2V5NTgFBmhlaWdodAUJd2luQW1vdW50BRBpbnRlcm5hbEFzc2V0SWR4AgAA////////////AQD///////////8BCQDMCAIJAQxJbnRlZ2VyRW50cnkCCQEYa2V5UmVzZXJ2YXRpb25CeUFzc2V0SWR4AQUQaW50ZXJuYWxBc3NldElkeAkBFWluY3JlYXNlUmVzZXJ2ZUFtb3VudAIFCXdpbkFtb3VudAUQaW50ZXJuYWxBc3NldElkeAkAzAgCCQEMaW5jcmVtZW50SW50AQUPR0FNRVNDT1VOVEVSS0VZCQDMCAIJAQtTdHJpbmdFbnRyeQIFBmdhbWVJZAUIZ2FtZURhdGEJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUGU0VSVkVSBQpjb21taXNzaW9uCAUGZmVlUG10B2Fzc2V0SWQFA25pbAFpAQh3aXRoZHJhdwIGZ2FtZUlkB3JzYVNpZ24ECGdhbWVEYXRhCQEPZXh0cmFjdEdhbWVEYXRhAQUGZ2FtZUlkBAlnYW1lU3RhdGUJAJEDAgUIZ2FtZURhdGEFDElkeEdhbWVTdGF0ZQQMcGxheWVyQ2hvaWNlCQCRAwIFCGdhbWVEYXRhBQ9JZHhQbGF5ZXJDaG9pY2UEDXN0YXJ0ZWRIZWlnaHQJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhnYW1lRGF0YQUQSWR4U3RhcnRlZEhlaWdodAQJd2luQW1vdW50CQENcGFyc2VJbnRWYWx1ZQEJAJEDAgUIZ2FtZURhdGEFDElkeFdpbkFtb3VudAQIYXNzZXRJZHgJAQ1wYXJzZUludFZhbHVlAQkAkQMCBQhnYW1lRGF0YQUKSWR4QXNzZXRJZAQOcGxheWVyUHViS2V5NTgJAJEDAgUIZ2FtZURhdGEFEUlkeFBsYXllclB1YktleTU4BA1wbGF5ZXJBZGRyZXNzCQCnCAEJANkEAQUOcGxheWVyUHViS2V5NTgDCQECIT0CBQlnYW1lU3RhdGUFDlNUQVRFU1VCTUlUVEVECQACAQIkSW52YWxpZCBnYW1lIHN0YXRlIGZvciBwYXNzZWQgZ2FtZUlkAwkBAiE9AggFAWkGY2FsbGVyBQZTRVJWRVIJAAIBAitSZWd1bGFyIHdpdGhkcmF3IGNhbiBiZSBkb25lIGJ5IHNlcnZlciBvbmx5BAx3aW5CeVRpbWVvdXQJAGYCCQBlAgUGaGVpZ2h0BQ1zdGFydGVkSGVpZ2h0BRNSQU5ET1JBQ0xFVElNRUZSQU1FBApyYW5kQ2hvaWNlAwUMd2luQnlUaW1lb3V0CQCvAgIFDHBsYXllckNob2ljZQABCQESZ2VuZXJhdGVSYW5kQ2hvaWNlAgUGZ2FtZUlkBQdyc2FTaWduBAlwbGF5ZXJXaW4JAQtpc1BsYXllcldpbgIFDHBsYXllckNob2ljZQUKcmFuZENob2ljZQQNbmV3R2FtZVN0YXR1cwMFCXBsYXllcldpbgUIU1RBVEVXT04FCVNUQVRFTE9TVAQGY29vcmRzAwUJcGxheWVyV2luCQDMCAIJAQEtAQUCTTQJAMwIAgkBAS0BBQJNNAUDbmlsCQEJZ2V0Q29vcmRzAgUGZ2FtZUlkBQdyc2FTaWduBAtuZXdHYW1lRGF0YQkBDmZpbmlzaEdhbWVEYXRhBgUIZ2FtZURhdGEFDW5ld0dhbWVTdGF0dXMFCnJhbmRDaG9pY2UFDHdpbkJ5VGltZW91dAkAaQIJAJEDAgUGY29vcmRzAAAFAk00CQBpAgkAkQMCBQZjb29yZHMAAQUCTTQJAM4IAgkAzAgCCQELU3RyaW5nRW50cnkCBQZnYW1lSWQFC25ld0dhbWVEYXRhCQDMCAIJARZkZWNyZWFzZVJlc2VydmVkQW1vdW50AwUGZ2FtZUlkBQhhc3NldElkeAUJd2luQW1vdW50BQNuaWwDBQlwbGF5ZXJXaW4JAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwUNcGxheWVyQWRkcmVzcwUJd2luQW1vdW50CQEOYXNzZXRJZEZyb21TdHIBCQCRAwIFBkFTU0VUUwUIYXNzZXRJZHgFA25pbAUDbmlsAQJ0eAEGdmVyaWZ5AAMJAPQDAwgFAnR4CWJvZHlCeXRlcwkAkQMCCAUCdHgGcHJvb2ZzAAAIBQJ0eA9zZW5kZXJQdWJsaWNLZXkEByRtYXRjaDAFAnR4AwkAAQIFByRtYXRjaDACE1RyYW5zZmVyVHJhbnNhY3Rpb24EA3R0eAUHJG1hdGNoMAQIYXNzZXRJZHgJARZ2YWxpZGF0ZUFuZEdldEFzc2V0SWR4AQkBDGFzc2V0SWRUb1N0cgEIBQN0dHgHYXNzZXRJZAkAZwIJAGUCCQEPZ2V0QXNzZXRCYWxhbmNlAQgFA3R0eAdhc3NldElkCAUDdHR4BmFtb3VudAkBCGdldEludE9yAgkBGGtleVJlc2VydmF0aW9uQnlBc3NldElkeAEFCGFzc2V0SWR4AAADCQABAgUHJG1hdGNoMAIUU2V0U2NyaXB0VHJhbnNhY3Rpb24EA3N0eAUHJG1hdGNoMAoBB2NoZWNrZXICA2FjYwVhc3NldAMFA2FjYwkAAAIJAQhnZXRJbnRPcgIJARhrZXlSZXNlcnZhdGlvbkJ5QXNzZXRTdHIBBQVhc3NldAAAAAAHCgACJGwFBkFTU0VUUwoAAiRzCQCQAwEFAiRsCgAFJGFjYzAGCgEFJGYwXzECAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAQdjaGVja2VyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAxMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAwkAAQIFByRtYXRjaDACF0ludm9rZVNjcmlwdFRyYW5zYWN0aW9uBANpdHgFByRtYXRjaDADCQAAAggFA2l0eARkQXBwBQR0aGlzCQAAAggFA2l0eAhmdW5jdGlvbgINY29uc3RydWN0b3JWMQcHBwHq5S4=",
    "height": 2883744,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 9pLrAG7Mx534ypsMBVJRpL2Deo2cMyNdBajZsjcooiPM
Next: 2fKnLFXeMRi15d4aYSuwwSv34kWdRbmGpWC3qgVUyJf5

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

github/deemru/w8io/169f3d6 
62.28 ms ◑