tx · FJGAMjZi1ezenyfjJUJ5MeYDXeABg4Zj7TxyLVR3x8e7

3MtKnDmJju2Y4dp9A2ACPr11jDZiW6gmKKK:  -0.05000000 Waves

2022.01.25 23:28 [1894916] smart account 3MtKnDmJju2Y4dp9A2ACPr11jDZiW6gmKKK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "FJGAMjZi1ezenyfjJUJ5MeYDXeABg4Zj7TxyLVR3x8e7",
    "fee": 5000000,
    "feeAssetId": null,
    "timestamp": 1643142510185,
    "version": 2,
    "chainId": 84,
    "sender": "3MtKnDmJju2Y4dp9A2ACPr11jDZiW6gmKKK",
    "senderPublicKey": "3itc77jAZTQAcaPCyYEe4KD7h18CvqZZ2JRynZHsuJ61",
    "proofs": [
        "4y4boBpHy6KaqkmMHKgw4H1W5vTZk4Qn3LgroGuV2azNPBLbG72etngLJH5tPF4RfSrMLobi86bK5A7RqCKn5K7q"
    ],
    "script": "base64:AAIFAAAAAAAAACkIAhIFCgMICAgSABIAEgMKAQgSBAoCCAESBAoCCAgSBAoCCAESAwoBCAAAABAAAAAADGFkbWluQWRkcmVzcwkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABB0AAAACBQAAAAR0aGlzAgAAAAVhZG1pbgIAAAAAAAAAAAt0b3RhbFN1cHBseQkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkABBoAAAACBQAAAAR0aGlzAgAAAAt0b3RhbFN1cHBseQAAAAAAAAAAAAAAAAAOdm90aW5nRHVyYXRpb24JAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAR0aGlzAgAAAA52b3RpbmdEdXJhdGlvbgIAAAAfTm8ga2V5IHZvdGluZ0R1cmF0aW9uIHdhcyBmb3VuZAAAAAAIY3Rva2VuSWQJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABB0AAAACBQAAAAR0aGlzAgAAAAd0b2tlbklkAgAAABlObyBrZXkgY1Rva2VuSWQgd2FzIGZvdW5kAAAAABFtYXhQbGF5ZXJzUGVyVGVhbQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEGgAAAAIFAAAABHRoaXMCAAAADnBsYXllcnNQZXJUZWFtAgAAAB9ObyBrZXkgcGxheWVyc1BlclRlYW0gd2FzIGZvdW5kAQAAAAdpc0FkbWluAAAAAQAAAA1jYWxsZXJBZGRyZXNzAwkAAAAAAAACBQAAAA1jYWxsZXJBZGRyZXNzCQACWQAAAAEFAAAADGFkbWluQWRkcmVzcwYHAQAAAAx3cml0ZUludGVnZXIAAAACAAAAA2tleQAAAAxpbnRlZ2VyVmFsdWUJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAANrZXkFAAAADGludGVnZXJWYWx1ZQEAAAALd3JpdGVTdHJpbmcAAAACAAAAA2tleQAAAAtzdHJpbmdWYWx1ZQkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAADa2V5BQAAAAtzdHJpbmdWYWx1ZQEAAAAOY291bnRGcmVxdWVuY3kAAAACAAAACmhlbHBlckxpc3QAAAAKdm90aW5nTGlzdAoBAAAADWZvbGRGcmVxdWVuY3kAAAACAAAABWFjY3VtAAAABG5leHQKAQAAAApjb3VudEl0ZW1zAAAAAgAAAANhY2MAAAAEaXRlbQMJAAAAAAAAAgUAAAAEbmV4dAUAAAAEaXRlbQkAAGQAAAACBQAAAANhY2MAAAAAAAAAAAEFAAAAA2FjYwkABE0AAAACBQAAAAVhY2N1bQoAAAAAAiRsBQAAAAp2b3RpbmdMaXN0CgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAAAAAAAAAAAAAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAACmNvdW50SXRlbXMAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNQkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUKAAAAAAIkbAUAAAAKaGVscGVyTGlzdAoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAADWZvbGRGcmVxdWVuY3kAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNQkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUBAAAAFGluaXRWb3RpbmdIZWxwZXJMaXN0AAAAAQAAAAl2b3RlQXJyYXkKAQAAAA5mb2xkSGVscGVyTGlzdAAAAAIAAAAFYWNjdW0AAAAEbmV4dAMJAAAAAAAAAgkBAAAAD2NvbnRhaW5zRWxlbWVudAAAAAIFAAAABWFjY3VtBQAAAARuZXh0BwkABE0AAAACBQAAAAVhY2N1bQUAAAAEbmV4dAUAAAAFYWNjdW0KAAAAAAIkbAUAAAAJdm90ZUFycmF5CgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAOZm9sZEhlbHBlckxpc3QAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNQkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUBAAAADWlzR3JlYXRlclRoZW4AAAACAAAACXBvdGVudGlhbAAAAAhpdGVtTGlzdAQAAAAKbGlzdExlbmd0aAkAAGUAAAACCQABkAAAAAEFAAAACGl0ZW1MaXN0AAAAAAAAAAABBAAAAA9jdXJyZW50R3JlYXRlc3QJAAGRAAAAAgUAAAAIaXRlbUxpc3QFAAAACmxpc3RMZW5ndGgDCQAAZgAAAAIFAAAACXBvdGVudGlhbAUAAAAPY3VycmVudEdyZWF0ZXN0BgcBAAAAD2ZpbmRIaWdoZXN0Vm90ZQAAAAIAAAAKaGVscGVyTGlzdAAAAAtmcmVxdWVuY2llcwoBAAAAD2ZvbGRGcmVxdWVuY2llcwAAAAIAAAAPaGlnaGVzdEl0ZW1MaXN0AAAACG5leHRJdGVtAwkAAAAAAAACCQABkAAAAAEFAAAAD2hpZ2hlc3RJdGVtTGlzdAAAAAAAAAAAAAkABE0AAAACBQAAAA9oaWdoZXN0SXRlbUxpc3QFAAAACG5leHRJdGVtAwkBAAAADWlzR3JlYXRlclRoZW4AAAACBQAAAAhuZXh0SXRlbQUAAAAPaGlnaGVzdEl0ZW1MaXN0CQAETQAAAAIFAAAAD2hpZ2hlc3RJdGVtTGlzdAUAAAAIbmV4dEl0ZW0FAAAAD2hpZ2hlc3RJdGVtTGlzdAQAAAAMaGlnaGVzdFZvdGVzCgAAAAACJGwFAAAAC2ZyZXF1ZW5jaWVzCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAUAAAADbmlsCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAAPZm9sZEZyZXF1ZW5jaWVzAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFBAAAAAdsYXN0SWR4CQAAZQAAAAIJAAGQAAAAAQUAAAAMaGlnaGVzdFZvdGVzAAAAAAAAAAABBAAAAAtoaWdoZXN0Vm90ZQkAAZEAAAACBQAAAAxoaWdoZXN0Vm90ZXMFAAAAB2xhc3RJZHgEAAAACWhlbHBlcklkeAkABE8AAAACBQAAAAtmcmVxdWVuY2llcwUAAAALaGlnaGVzdFZvdGUEAAAAByRtYXRjaDAFAAAACWhlbHBlcklkeAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAF0BQAAAAckbWF0Y2gwCQABkQAAAAIFAAAACmhlbHBlckxpc3QFAAAAAXQJAAACAAAAAQIAAAAuVHlwZSBkb2VzIG5vdCBtYXRjaCEgRnVuY3Rpb246IGZpbmRIaWdoZXN0Vm90ZQEAAAALY3JlYXRlQm9hcmQAAAABAAAABWJvYXJkCQAEuQAAAAIFAAAABWJvYXJkAgAAAAEsAQAAAAphbHRlckJvYXJkAAAABAAAAAhuZXdGaWVsZAAAAAhvbGRWYWx1ZQAAAAZnYW1lSWQAAAAEdGVhbQQAAAAMY3VycmVudEJvYXJkCQEAAAARQGV4dHJOYXRpdmUoMTA1OCkAAAABCQABLAAAAAIFAAAABmdhbWVJZAIAAAAGX2JvYXJkBAAAAAlib2FyZExpc3QJAAS1AAAAAgUAAAAMY3VycmVudEJvYXJkAgAAAAEsBAAAAAd0ZWFtVGFnAwkAAAAAAAACBQAAAAR0ZWFtAgAAAAh0ZWFtQmx1ZQIAAAABQgIAAAABWQoBAAAADGZvbGRPbGRFbnRyeQAAAAIAAAAFYWNjdW0AAAAJbmV4dFZhbHVlBAAAAAskdDA0NjI4NDY1MQUAAAAFYWNjdW0EAAAABnJlc3VsdAgFAAAACyR0MDQ2Mjg0NjUxAAAAAl8xBAAAAAFqCAUAAAALJHQwNDYyODQ2NTEAAAACXzIDCQAAAAAAAAIFAAAAAWoFAAAACG9sZFZhbHVlCQAFFAAAAAIJAARNAAAAAgUAAAAGcmVzdWx0AgAAAAEwCQAAZAAAAAIFAAAAAWoAAAAAAAAAAAEJAAUUAAAAAgkABE0AAAACBQAAAAZyZXN1bHQFAAAACW5leHRWYWx1ZQkAAGQAAAACBQAAAAFqAAAAAAAAAAABCgEAAAAJZm9sZEJvYXJkAAAAAgAAAAVhY2N1bQAAAAluZXh0VmFsdWUEAAAACyR0MDQ4Mjg0ODUxBQAAAAVhY2N1bQQAAAAGcmVzdWx0CAUAAAALJHQwNDgyODQ4NTEAAAACXzEEAAAAAWoIBQAAAAskdDA0ODI4NDg1MQAAAAJfMgMJAAAAAAAAAgUAAAABagUAAAAIbmV3RmllbGQJAAUUAAAAAgkABE0AAAACBQAAAAZyZXN1bHQFAAAAB3RlYW1UYWcJAABkAAAAAgUAAAABagAAAAAAAAAAAQkABRQAAAACCQAETQAAAAIFAAAABnJlc3VsdAUAAAAJbmV4dFZhbHVlCQAAZAAAAAIFAAAAAWoAAAAAAAAAAAEEAAAADGNsZWFuZWRCb2FyZAoAAAAAAiRsBQAAAAlib2FyZExpc3QKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwCQAFFAAAAAIFAAAAA25pbAAAAAAAAAAAAAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAADGZvbGRPbGRFbnRyeQAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyA0MgkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoAAAAAAAAAAAsAAAAAAAAAAAwAAAAAAAAAAA0AAAAAAAAAAA4AAAAAAAAAAA8AAAAAAAAAABAAAAAAAAAAABEAAAAAAAAAABIAAAAAAAAAABMAAAAAAAAAABQAAAAAAAAAABUAAAAAAAAAABYAAAAAAAAAABcAAAAAAAAAABgAAAAAAAAAABkAAAAAAAAAABoAAAAAAAAAABsAAAAAAAAAABwAAAAAAAAAAB0AAAAAAAAAAB4AAAAAAAAAAB8AAAAAAAAAACAAAAAAAAAAACEAAAAAAAAAACIAAAAAAAAAACMAAAAAAAAAACQAAAAAAAAAACUAAAAAAAAAACYAAAAAAAAAACcAAAAAAAAAACgAAAAAAAAAACkAAAAAAAAAACoEAAAADG5ld0JvYXJkTGlzdAoAAAAAAiRsCAUAAAAMY2xlYW5lZEJvYXJkAAAAAl8xCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAkABRQAAAACBQAAAANuaWwAAAAAAAAAAAAKAQAAAAUkZjFfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAAlmb2xkQm9hcmQAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjFfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgNDIJAQAAAAUkZjFfMgAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIJAQAAAAUkZjFfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAAAAAAALAAAAAAAAAAAMAAAAAAAAAAANAAAAAAAAAAAOAAAAAAAAAAAPAAAAAAAAAAAQAAAAAAAAAAARAAAAAAAAAAASAAAAAAAAAAATAAAAAAAAAAAUAAAAAAAAAAAVAAAAAAAAAAAWAAAAAAAAAAAXAAAAAAAAAAAYAAAAAAAAAAAZAAAAAAAAAAAaAAAAAAAAAAAbAAAAAAAAAAAcAAAAAAAAAAAdAAAAAAAAAAAeAAAAAAAAAAAfAAAAAAAAAAAgAAAAAAAAAAAhAAAAAAAAAAAiAAAAAAAAAAAjAAAAAAAAAAAkAAAAAAAAAAAlAAAAAAAAAAAmAAAAAAAAAAAnAAAAAAAAAAAoAAAAAAAAAAApAAAAAAAAAAAqCQEAAAALY3JlYXRlQm9hcmQAAAABCAUAAAAMbmV3Qm9hcmRMaXN0AAAAAl8xAQAAABN1cGRhdGVWb3RpbmdSZXN1bHRzAAAAAQAAABZjdXJyZW50Vm90aW5nRW50cnlMaXN0CgEAAAALZm9sZFZvdGluZ3MAAAACAAAABWFjY3VtAAAACW5leHRWYWx1ZQkABE0AAAACBQAAAAVhY2N1bQkAAZEAAAACCQAEtQAAAAIFAAAACW5leHRWYWx1ZQIAAAABXwAAAAAAAAAAAQQAAAAFdm90ZXMKAAAAAAIkbAUAAAAWY3VycmVudFZvdGluZ0VudHJ5TGlzdAoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAFAAAAA25pbAoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAAC2ZvbGRWb3RpbmdzAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFBAAAAApoZWxwZXJMaXN0CQEAAAAUaW5pdFZvdGluZ0hlbHBlckxpc3QAAAABBQAAAAV2b3RlcwQAAAALZnJlcXVlbmNpZXMJAQAAAA5jb3VudEZyZXF1ZW5jeQAAAAIFAAAACmhlbHBlckxpc3QFAAAABXZvdGVzCQEAAAAPZmluZEhpZ2hlc3RWb3RlAAAAAgUAAAAKaGVscGVyTGlzdAUAAAALZnJlcXVlbmNpZXMBAAAAEGNoZWNrVGVhbW1lbWJlcnMAAAACAAAABHRlYW0AAAAPcG90ZW50aWFsTWVtYmVyAwkBAAAAASEAAAABCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgUAAAAEdGVhbQUAAAAPcG90ZW50aWFsTWVtYmVyBgcAAAAIAAAAAWkBAAAABXNldHVwAAAAAwAAAAxhZG1pbkFkZHJlc3MAAAAJdG9rZW5OYW1lAAAAEHRva2VuRGVzY3JpcHRpb24DCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAABHRoaXMCAAAABWFkbWluBAAAAAVhc3NldAkABEIAAAAFBQAAAAl0b2tlbk5hbWUFAAAAEHRva2VuRGVzY3JpcHRpb24AAAAAAAAAAAAAAAAAAAAAAAgGBAAAAAd0b2tlbklkCQAEOAAAAAEFAAAABWFzc2V0CQAETAAAAAIFAAAABWFzc2V0CQAETAAAAAIJAQAAAAt3cml0ZVN0cmluZwAAAAICAAAABWFkbWluBQAAAAxhZG1pbkFkZHJlc3MJAARMAAAAAgkBAAAADHdyaXRlSW50ZWdlcgAAAAICAAAADnZvdGluZ0R1cmF0aW9uAAAAAAAAAAACCQAETAAAAAIJAQAAAAx3cml0ZUludGVnZXIAAAACAgAAAAt0b3RhbFN1cHBseQAAAAAAAAAAAAkABEwAAAACCQEAAAALd3JpdGVTdHJpbmcAAAACAgAAAAl0b2tlbk5hbWUFAAAACXRva2VuTmFtZQkABEwAAAACCQEAAAALd3JpdGVTdHJpbmcAAAACAgAAAAd0b2tlbklkCQACWAAAAAEFAAAAB3Rva2VuSWQJAARMAAAAAgkBAAAADHdyaXRlSW50ZWdlcgAAAAICAAAADXRva2VuRGVjaW1hbHMAAAAAAAAAAAgFAAAAA25pbAkAAAIAAAABAgAAABNEQXBwIGFscmVhZHkgc2V0dXAhAAAAAWkBAAAACGJ1eVJvdW5kAAAAAAMJAABmAAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQDCQAAZwAAAAIFAAAABmFtb3VudAAAAAAAAAAAAQQAAAAMY1Rva2VuQW1vdW50CQAAawAAAAMFAAAABmFtb3VudAAAAAAAAAAAKgAAAAAAAAAAAQQAAAASY3VycmVudFRvdGFsU3VwcGx5CQAAZAAAAAIFAAAAC3RvdGFsU3VwcGx5BQAAAAxjVG9rZW5BbW91bnQJAARMAAAAAgkBAAAADHdyaXRlSW50ZWdlcgAAAAICAAAAC3RvdGFsU3VwcGx5BQAAABJjdXJyZW50VG90YWxTdXBwbHkJAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADCQACWQAAAAEFAAAACGN0b2tlbklkBQAAAAxjVG9rZW5BbW91bnQGCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAMY1Rva2VuQW1vdW50CQACWQAAAAEFAAAACGN0b2tlbklkBQAAAANuaWwJAAACAAAAAQIAAAAUUGF5bWVudCBpcyB0byBzbWFsbCEJAAACAAAAAQIAAAAUTm8gcGF5bWVudCBhdHRhY2hlZCEAAAABaQEAAAAKY3JlYXRlR2FtZQAAAAAEAAAABWJvYXJkAgAAAFMwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMCwwLDAsMAQAAAAGZ2FtZUlkCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQJAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAABl9ib2FyZAUAAAAFYm9hcmQJAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAAB19zdGF0dXMCAAAAE3dhaXRpbmcgZm9yIHBsYXllcnMJAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAACV90ZWFtQmx1ZQkABCUAAAABCAUAAAABaQAAAAZjYWxsZXIJAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAAC190ZWFtWWVsbG93AgAAAAAFAAAAA25pbAAAAAFpAQAAAAhqb2luR2FtZQAAAAEAAAAGZ2FtZUlkBAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAh0ZWFtQmx1ZQkBAAAAEUBleHRyTmF0aXZlKDEwNTgpAAAAAQkAASwAAAACBQAAAAZnYW1lSWQCAAAACV90ZWFtQmx1ZQQAAAAKdGVhbVllbGxvdwkBAAAAEUBleHRyTmF0aXZlKDEwNTgpAAAAAQkAASwAAAACBQAAAAZnYW1lSWQCAAAAC190ZWFtWWVsbG93BAAAAAx0ZWFtQmx1ZUxpc3QJAAS1AAAAAgUAAAAIdGVhbUJsdWUCAAAAASwEAAAADnRlYW1ZZWxsb3dMaXN0AwkAAGYAAAACCQABMQAAAAEFAAAACnRlYW1ZZWxsb3cAAAAAAAAAAAAJAAS1AAAAAgUAAAAKdGVhbVllbGxvdwIAAAABLAUAAAADbmlsAwMJAQAAABBjaGVja1RlYW1tZW1iZXJzAAAAAgUAAAAMdGVhbUJsdWVMaXN0BQAAAAt1c2VyQWRkcmVzcwkBAAAAEGNoZWNrVGVhbW1lbWJlcnMAAAACBQAAAA50ZWFtWWVsbG93TGlzdAUAAAALdXNlckFkZHJlc3MHAwkAAGYAAAACBQAAABFtYXhQbGF5ZXJzUGVyVGVhbQkAAZAAAAABBQAAAAx0ZWFtQmx1ZUxpc3QJAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAACV90ZWFtQmx1ZQkAASwAAAACCQABLAAAAAIFAAAACHRlYW1CbHVlAgAAAAEsBQAAAAt1c2VyQWRkcmVzcwUAAAADbmlsAwkAAAAAAAACCQABkAAAAAEFAAAADnRlYW1ZZWxsb3dMaXN0CQAAZQAAAAIFAAAAEW1heFBsYXllcnNQZXJUZWFtAAAAAAAAAAABCQAETAAAAAIJAQAAAAt3cml0ZVN0cmluZwAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAdfc3RhdHVzAgAAABVyb3VuZF8xLHR1cm5fdGVhbUJsdWUJAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAACV92b3RpbmdfMQIAAAAACQAETAAAAAIJAQAAAAx3cml0ZUludGVnZXIAAAACCQABLAAAAAIFAAAABmdhbWVJZAIAAAAKX21vc3RWb3RlZAD//////////wkABEwAAAACCQEAAAAMd3JpdGVJbnRlZ2VyAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAADV9zdG9yZWRIZWlnaHQJAABkAAAAAgUAAAAGaGVpZ2h0BQAAAA52b3RpbmdEdXJhdGlvbgkABEwAAAACCQEAAAALd3JpdGVTdHJpbmcAAAACCQABLAAAAAIFAAAABmdhbWVJZAIAAAALX3RlYW1ZZWxsb3cJAAEsAAAAAgkAASwAAAACBQAAAAp0ZWFtWWVsbG93AgAAAAEsBQAAAAt1c2VyQWRkcmVzcwUAAAADbmlsAwkAAAAAAAACCQABkAAAAAEFAAAADnRlYW1ZZWxsb3dMaXN0AAAAAAAAAAAACQAETAAAAAIJAQAAAAt3cml0ZVN0cmluZwAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAtfdGVhbVllbGxvdwUAAAALdXNlckFkZHJlc3MFAAAAA25pbAMJAABmAAAAAgkAAGUAAAACBQAAABFtYXhQbGF5ZXJzUGVyVGVhbQAAAAAAAAAAAQkAAZAAAAABBQAAAA50ZWFtWWVsbG93TGlzdAkABEwAAAACCQEAAAALd3JpdGVTdHJpbmcAAAACCQABLAAAAAIFAAAABmdhbWVJZAIAAAALX3RlYW1ZZWxsb3cJAAEsAAAAAgkAASwAAAACBQAAAAp0ZWFtWWVsbG93AgAAAAEsBQAAAAt1c2VyQWRkcmVzcwUAAAADbmlsCQAAAgAAAAECAAAAHFRlYW1zIGFyZSBmdWxsLCBjYW5ub3Qgam9pbi4JAAACAAAAAQIAAAAZUGxheWVyIGFscmVhZHkgaW4gYSBUZWFtIQAAAAFpAQAAAAR2b3RlAAAAAgAAAAZnYW1lSWQAAAAGdm90aW5nBAAAAAZzdGF0dXMJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkBAAAAEUBleHRyTmF0aXZlKDEwNTgpAAAAAQkAASwAAAACBQAAAAZnYW1lSWQCAAAAB19zdGF0dXMCAAAAI05vIHN0YXR1cyBlbnRyeSBmb3VuZCB1bmRlciBnYW1lSWQhBAAAAAVyb3VuZAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABMAAAAAIJAAGRAAAAAgkABLUAAAACBQAAAAZzdGF0dXMCAAAAASwAAAAAAAAAAAAAAAAAAAAAAAYEAAAACmFjdGl2ZVRlYW0JAAEwAAAAAgkAAZEAAAACCQAEtQAAAAIFAAAABnN0YXR1cwIAAAABLAAAAAAAAAAAAQAAAAAAAAAABQQAAAAMc3RvcmVkSGVpZ2h0CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQfAAAAAQkAASwAAAACBQAAAAZnYW1lSWQCAAAADV9zdG9yZWRIZWlnaHQJAAEsAAAAAgkAASwAAAACAgAAABxObyBzdGF0dXMgZW50cnkgZm91bmQgdW5kZXIgBQAAAAZnYW1lSWQCAAAADl9zdG9yZWRIZWlnaHQhBAAAAA9zdG9yZWRNb3N0Vm90ZWQJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkBAAAAEUBleHRyTmF0aXZlKDEwNTUpAAAAAQkAASwAAAACBQAAAAZnYW1lSWQCAAAACl9tb3N0Vm90ZWQJAAEsAAAAAgkAASwAAAACAgAAABxObyBzdGF0dXMgZW50cnkgZm91bmQgdW5kZXIgBQAAAAZnYW1lSWQCAAAAC19tb3N0Vm90ZWQhBAAAAAt2b3RpbmdFbnRyeQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQEAAAARQGV4dHJOYXRpdmUoMTA1OCkAAAABCQABLAAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAhfdm90aW5nXwkAAaQAAAABBQAAAAVyb3VuZAIAAAAgTm8gdm90ZXMgZm91bmQgZm9yIHRoaXMgZ2FtZSBpZCEEAAAAD3ZvdGluZ0VudHJ5TGlzdAMJAABmAAAAAgkAATEAAAABBQAAAAt2b3RpbmdFbnRyeQAAAAAAAAAAAAkABLUAAAACBQAAAAt2b3RpbmdFbnRyeQIAAAABLAUAAAADbmlsBAAAAAdtZW1iZXJzAwkAAAAAAAACBQAAAAphY3RpdmVUZWFtAgAAAAh0ZWFtQmx1ZQQAAAAFdGVhbUIJAQAAABFAZXh0ck5hdGl2ZSgxMDU4KQAAAAEJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAlfdGVhbUJsdWUEAAAACXRlYW1CTGlzdAkABLUAAAACBQAAAAV0ZWFtQgIAAAABLAUAAAAJdGVhbUJMaXN0BAAAAAV0ZWFtWQkBAAAAEUBleHRyTmF0aXZlKDEwNTgpAAAAAQkAASwAAAACBQAAAAZnYW1lSWQCAAAAC190ZWFtWWVsbG93BAAAAAl0ZWFtWUxpc3QJAAS1AAAAAgUAAAAFdGVhbVkCAAAAASwFAAAACXRlYW1ZTGlzdAQAAAAMdW5hY3RpdmVUZWFtAwkAAAAAAAACBQAAAAphY3RpdmVUZWFtAgAAAAh0ZWFtQmx1ZQIAAAAKdGVhbVllbGxvdwIAAAAIdGVhbUJsdWUEAAAAD21lbWJlcnNVbmFjdGl2ZQMJAAAAAAAAAgUAAAAMdW5hY3RpdmVUZWFtAgAAAAh0ZWFtQmx1ZQQAAAAFdGVhbUIJAQAAABFAZXh0ck5hdGl2ZSgxMDU4KQAAAAEJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAlfdGVhbUJsdWUEAAAACXRlYW1CTGlzdAkABLUAAAACBQAAAAV0ZWFtQgIAAAABLAUAAAAJdGVhbUJMaXN0BAAAAAV0ZWFtWQkBAAAAEUBleHRyTmF0aXZlKDEwNTgpAAAAAQkAASwAAAACBQAAAAZnYW1lSWQCAAAAC190ZWFtWWVsbG93BAAAAAl0ZWFtWUxpc3QJAAS1AAAAAgUAAAAFdGVhbVkCAAAAASwFAAAACXRlYW1ZTGlzdAQAAAANY2FsbGVyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzAwkAAGYAAAACCQABkAAAAAEIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAwkAAAAAAAACCQACWQAAAAEFAAAACGN0b2tlbklkCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkAwkAAAAAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQAAAAAAAX14QADCQAAZwAAAAIFAAAADHN0b3JlZEhlaWdodAUAAAAGaGVpZ2h0AwkBAAAAD2NvbnRhaW5zRWxlbWVudAAAAAIFAAAAB21lbWJlcnMFAAAADWNhbGxlckFkZHJlc3MKAQAAAApmb2xkVm90ZXJzAAAAAgAAAAVhY2N1bQAAAAluZXh0VmFsdWUJAARNAAAAAgUAAAAFYWNjdW0JAAGRAAAAAgkABLUAAAACBQAAAAluZXh0VmFsdWUCAAAAAV8AAAAAAAAAAAAEAAAABnZvdGVycwoAAAAAAiRsBQAAAA92b3RpbmdFbnRyeUxpc3QKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBQAAAANuaWwKAQAAAAUkZjBfMQAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAQAAAApmb2xkVm90ZXJzAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAAFJGYwXzIAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQAAAgAAAAECAAAAE0xpc3Qgc2l6ZSBleGNlZWRzIDUJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAwkAAAAAAAACCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgUAAAAGdm90ZXJzBQAAAA1jYWxsZXJBZGRyZXNzBwQAAAAHbmV3Vm90ZQkAASwAAAACCQABLAAAAAIFAAAADWNhbGxlckFkZHJlc3MCAAAAAV8JAAGkAAAAAQUAAAAGdm90aW5nBAAAABZjdXJyZW50Vm90aW5nRW50cnlMaXN0CQAETQAAAAIFAAAAD3ZvdGluZ0VudHJ5TGlzdAUAAAAHbmV3Vm90ZQQAAAASY3VycmVudFZvdGluZ0VudHJ5CQAEuQAAAAIFAAAAFmN1cnJlbnRWb3RpbmdFbnRyeUxpc3QCAAAAASwEAAAACnZvdGVkRmllbGQJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkBAAAAE3VwZGF0ZVZvdGluZ1Jlc3VsdHMAAAABBQAAABZjdXJyZW50Vm90aW5nRW50cnlMaXN0BAAAAAxjdXJyZW50RmllbGQDCQEAAAACIT0AAAACBQAAAAp2b3RlZEZpZWxkBQAAAA9zdG9yZWRNb3N0Vm90ZWQFAAAACnZvdGVkRmllbGQFAAAAD3N0b3JlZE1vc3RWb3RlZAQAAAAMYWx0ZXJlZEJvYXJkCQEAAAAKYWx0ZXJCb2FyZAAAAAQFAAAADGN1cnJlbnRGaWVsZAUAAAAPc3RvcmVkTW9zdFZvdGVkBQAAAAZnYW1lSWQFAAAACmFjdGl2ZVRlYW0DCQAAZgAAAAIFAAAAEW1heFBsYXllcnNQZXJUZWFtCQABkAAAAAEFAAAAFmN1cnJlbnRWb3RpbmdFbnRyeUxpc3QJAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACCQABLAAAAAIFAAAABmdhbWVJZAIAAAAIX3ZvdGluZ18JAAGkAAAAAQUAAAAFcm91bmQFAAAAEmN1cnJlbnRWb3RpbmdFbnRyeQkABEwAAAACCQEAAAALd3JpdGVTdHJpbmcAAAACCQABLAAAAAIFAAAABmdhbWVJZAIAAAAGX2JvYXJkBQAAAAxhbHRlcmVkQm9hcmQJAARMAAAAAgkBAAAADHdyaXRlSW50ZWdlcgAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAApfbW9zdFZvdGVkBQAAAAxjdXJyZW50RmllbGQFAAAAA25pbAkABEwAAAACCQEAAAALd3JpdGVTdHJpbmcAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAhfdm90aW5nXwkAAaQAAAABBQAAAAVyb3VuZAUAAAASY3VycmVudFZvdGluZ0VudHJ5CQAETAAAAAIJAQAAAAt3cml0ZVN0cmluZwAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAZfYm9hcmQFAAAADGFsdGVyZWRCb2FyZAkABEwAAAACCQEAAAAMd3JpdGVJbnRlZ2VyAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAACl9tb3N0Vm90ZWQA//////////8JAARMAAAAAgkBAAAADHdyaXRlSW50ZWdlcgAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAA1fc3RvcmVkSGVpZ2h0CQAAZAAAAAIFAAAABmhlaWdodAUAAAAOdm90aW5nRHVyYXRpb24JAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAAB19zdGF0dXMJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAABnJvdW5kXwkAAaQAAAABCQAAZAAAAAIFAAAABXJvdW5kAAAAAAAAAAABAgAAAAYsdHVybl8FAAAADHVuYWN0aXZlVGVhbQkABEwAAAACCQEAAAALd3JpdGVTdHJpbmcAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAhfdm90aW5nXwkAAaQAAAABCQAAZAAAAAIFAAAABXJvdW5kAAAAAAAAAAABAgAAAAAFAAAAA25pbAkAAAIAAAABAgAAABVDYWxsZXIgYWxyZWFkeSB2b3RlZCEJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAEUNhbGxlciBpcyBub3QgaW4gBQAAAAphY3RpdmVUZWFtAgAAAAEhAwkBAAAAD2NvbnRhaW5zRWxlbWVudAAAAAIFAAAAD21lbWJlcnNVbmFjdGl2ZQUAAAANY2FsbGVyQWRkcmVzcwQAAAAHbmV3Vm90ZQkAASwAAAACCQABLAAAAAIFAAAADWNhbGxlckFkZHJlc3MCAAAAAV8JAAGkAAAAAQUAAAAGdm90aW5nBAAAABZjdXJyZW50Vm90aW5nRW50cnlMaXN0CQAETAAAAAIFAAAAB25ld1ZvdGUFAAAAA25pbAQAAAAKdm90ZWRGaWVsZAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQEAAAATdXBkYXRlVm90aW5nUmVzdWx0cwAAAAEFAAAAFmN1cnJlbnRWb3RpbmdFbnRyeUxpc3QEAAAADGFsdGVyZWRCb2FyZAkBAAAACmFsdGVyQm9hcmQAAAAEBQAAAAp2b3RlZEZpZWxkAP//////////BQAAAAZnYW1lSWQFAAAACmFjdGl2ZVRlYW0JAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAABl9ib2FyZAUAAAAMYWx0ZXJlZEJvYXJkCQAETAAAAAIJAQAAAAx3cml0ZUludGVnZXIAAAACCQABLAAAAAIFAAAABmdhbWVJZAIAAAANX3N0b3JlZEhlaWdodAkAAGQAAAACBQAAAAZoZWlnaHQFAAAADnZvdGluZ0R1cmF0aW9uCQAETAAAAAIJAQAAAAt3cml0ZVN0cmluZwAAAAIJAAEsAAAAAgUAAAAGZ2FtZUlkAgAAAAdfc3RhdHVzCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAZyb3VuZF8JAAGkAAAAAQkAAGQAAAACBQAAAAVyb3VuZAAAAAAAAAAAAQIAAAAGLHR1cm5fBQAAAAx1bmFjdGl2ZVRlYW0JAARMAAAAAgkBAAAAC3dyaXRlU3RyaW5nAAAAAgkAASwAAAACCQABLAAAAAIFAAAABmdhbWVJZAIAAAAIX3ZvdGluZ18JAAGkAAAAAQkAAGQAAAACBQAAAAVyb3VuZAAAAAAAAAAAAQUAAAAHbmV3Vm90ZQkABEwAAAACCQEAAAAMd3JpdGVJbnRlZ2VyAAAAAgkAASwAAAACBQAAAAZnYW1lSWQCAAAACl9tb3N0Vm90ZWQFAAAACnZvdGVkRmllbGQFAAAAA25pbAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAARQ2FsbGVyIGlzIG5vdCBpbiAFAAAADHVuYWN0aXZlVGVhbQIAAAABIQkAAAIAAAABAgAAABNBbW91bnQgaGFzIHRvIGJlIDEhCQAAAgAAAAECAAAAJ1BheW1lbnQgaGFzIHRvIGJlIGEgQ29ubmVjdCBmb3VyIFRva2VuIQkAAAIAAAABAgAAABRObyBQYXltZW50IGF0dGFjaGVkIQAAAAFpAQAAABF1cGRhdGVTdHJpbmdFbnRyeQAAAAIAAAADa2V5AAAAC3N0cmluZ1ZhbHVlAwkBAAAAB2lzQWRtaW4AAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzCQAETAAAAAIJAQAAAAt3cml0ZVN0cmluZwAAAAIFAAAAA2tleQUAAAALc3RyaW5nVmFsdWUFAAAAA25pbAkAAAIAAAABAgAAACpBZGRyZXNzIGRvZXMgbm90IG1hdGNoIHdpdGggYWRtaW4gYWRkcmVzcyEAAAABaQEAAAASdXBkYXRlSW50ZWdlckVudHJ5AAAAAgAAAANrZXkAAAAMaW50ZWdlclZhbHVlAwkBAAAAB2lzQWRtaW4AAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzCQAETAAAAAIJAQAAAAx3cml0ZUludGVnZXIAAAACBQAAAANrZXkFAAAADGludGVnZXJWYWx1ZQUAAAADbmlsCQAAAgAAAAECAAAAKkFkZHJlc3MgZG9lcyBub3QgbWF0Y2ggd2l0aCBhZG1pbiBhZGRyZXNzIQAAAAFpAQAAABJkZWxldGVTdG9yYWdlRW50cnkAAAABAAAAA2tleQMJAQAAAAdpc0FkbWluAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwkABEwAAAACCQEAAAALRGVsZXRlRW50cnkAAAABBQAAAANrZXkFAAAAA25pbAkAAAIAAAABAgAAACpBZGRyZXNzIGRvZXMgbm90IG1hdGNoIHdpdGggYWRtaW4gYWRkcmVzcyEAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAACQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleZnS4Rs=",
    "height": 1894916,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 34dENkAprECPWSJK9qkPPYT3jnRe1rAXU1hSyDZBkepz
Next: Hih2bNbPa6Sypz4FaefCqxff9DDA868eYUFoeSR4HEfx

Diff: 

OldNewDifferences
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let adminAddress = valueOrElse(getString(this, "admin"), "")
5+
6+let totalSupply = valueOrElse(getInteger(this, "totalSupply"), 0)
7+
8+let votingDuration = valueOrErrorMessage(getInteger(this, "votingDuration"), "No key votingDuration was found")
9+
10+let ctokenId = valueOrErrorMessage(getString(this, "tokenId"), "No key cTokenId was found")
11+
12+let maxPlayersPerTeam = valueOrErrorMessage(getInteger(this, "playersPerTeam"), "No key playersPerTeam was found")
513 
614 func isAdmin (callerAddress) = if ((callerAddress == fromBase58String(adminAddress)))
715     then true
1422 func writeString (key,stringValue) = StringEntry(key, stringValue)
1523 
1624 
25+func countFrequency (helperList,votingList) = {
26+    func foldFrequency (accum,next) =     {
27+        func countItems (acc,item) =         if ((next == item))
28+            then (acc + 1)
29+            else acc
30+
31+        (accum :+ {
32+            let $l = votingList
33+            let $s = size($l)
34+            let $acc0 = 0
35+            func $f0_1 ($a,$i) =             if (($i >= $s))
36+                then $a
37+                else countItems($a, $l[$i])
38+
39+            func $f0_2 ($a,$i) =             if (($i >= $s))
40+                then $a
41+                else throw("List size exceeds 5")
42+
43+            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
44+            })
45+        }
46+
47+    let $l = helperList
48+    let $s = size($l)
49+    let $acc0 = nil
50+    func $f0_1 ($a,$i) =     if (($i >= $s))
51+        then $a
52+        else foldFrequency($a, $l[$i])
53+
54+    func $f0_2 ($a,$i) =     if (($i >= $s))
55+        then $a
56+        else throw("List size exceeds 5")
57+
58+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
59+    }
60+
61+
62+func initVotingHelperList (voteArray) = {
63+    func foldHelperList (accum,next) =     if ((containsElement(accum, next) == false))
64+        then (accum :+ next)
65+        else accum
66+
67+    let $l = voteArray
68+    let $s = size($l)
69+    let $acc0 = nil
70+    func $f0_1 ($a,$i) =     if (($i >= $s))
71+        then $a
72+        else foldHelperList($a, $l[$i])
73+
74+    func $f0_2 ($a,$i) =     if (($i >= $s))
75+        then $a
76+        else throw("List size exceeds 5")
77+
78+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
79+    }
80+
81+
82+func isGreaterThen (potential,itemList) = {
83+    let listLength = (size(itemList) - 1)
84+    let currentGreatest = itemList[listLength]
85+    if ((potential > currentGreatest))
86+        then true
87+        else false
88+    }
89+
90+
91+func findHighestVote (helperList,frequencies) = {
92+    func foldFrequencies (highestItemList,nextItem) =     if ((size(highestItemList) == 0))
93+        then (highestItemList :+ nextItem)
94+        else if (isGreaterThen(nextItem, highestItemList))
95+            then (highestItemList :+ nextItem)
96+            else highestItemList
97+
98+    let highestVotes = {
99+        let $l = frequencies
100+        let $s = size($l)
101+        let $acc0 = nil
102+        func $f0_1 ($a,$i) =         if (($i >= $s))
103+            then $a
104+            else foldFrequencies($a, $l[$i])
105+
106+        func $f0_2 ($a,$i) =         if (($i >= $s))
107+            then $a
108+            else throw("List size exceeds 5")
109+
110+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
111+        }
112+    let lastIdx = (size(highestVotes) - 1)
113+    let highestVote = highestVotes[lastIdx]
114+    let helperIdx = indexOf(frequencies, highestVote)
115+    match helperIdx {
116+        case t: Int => 
117+helperList[t]
118+        case _ => 
119+            throw("Type does not match! Function: findHighestVote")
120+    }
121+    }
122+
123+
124+func createBoard (board) = makeString(board, ",")
125+
126+
127+func alterBoard (newField,oldValue,gameId,team) = {
128+    let currentBoard = getStringValue((gameId + "_board"))
129+    let boardList = split(currentBoard, ",")
130+    let teamTag = if ((team == "teamBlue"))
131+        then "B"
132+        else "Y"
133+    func foldOldEntry (accum,nextValue) =     {
134+        let $t046284651 = accum
135+        let result = $t046284651._1
136+        let j = $t046284651._2
137+        if ((j == oldValue))
138+            then $Tuple2((result :+ "0"), (j + 1))
139+            else $Tuple2((result :+ nextValue), (j + 1))
140+        }
141+
142+    func foldBoard (accum,nextValue) =     {
143+        let $t048284851 = accum
144+        let result = $t048284851._1
145+        let j = $t048284851._2
146+        if ((j == newField))
147+            then $Tuple2((result :+ teamTag), (j + 1))
148+            else $Tuple2((result :+ nextValue), (j + 1))
149+        }
150+
151+    let cleanedBoard = {
152+        let $l = boardList
153+        let $s = size($l)
154+        let $acc0 = $Tuple2(nil, 0)
155+        func $f0_1 ($a,$i) =         if (($i >= $s))
156+            then $a
157+            else foldOldEntry($a, $l[$i])
158+
159+        func $f0_2 ($a,$i) =         if (($i >= $s))
160+            then $a
161+            else throw("List size exceeds 42")
162+
163+        $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($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($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), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42)
164+        }
165+    let newBoardList = {
166+        let $l = cleanedBoard._1
167+        let $s = size($l)
168+        let $acc0 = $Tuple2(nil, 0)
169+        func $f1_1 ($a,$i) =         if (($i >= $s))
170+            then $a
171+            else foldBoard($a, $l[$i])
172+
173+        func $f1_2 ($a,$i) =         if (($i >= $s))
174+            then $a
175+            else throw("List size exceeds 42")
176+
177+        $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42)
178+        }
179+    createBoard(newBoardList._1)
180+    }
181+
182+
183+func updateVotingResults (currentVotingEntryList) = {
184+    func foldVotings (accum,nextValue) =     (accum :+ split(nextValue, "_")[1])
185+
186+    let votes = {
187+        let $l = currentVotingEntryList
188+        let $s = size($l)
189+        let $acc0 = nil
190+        func $f0_1 ($a,$i) =         if (($i >= $s))
191+            then $a
192+            else foldVotings($a, $l[$i])
193+
194+        func $f0_2 ($a,$i) =         if (($i >= $s))
195+            then $a
196+            else throw("List size exceeds 5")
197+
198+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
199+        }
200+    let helperList = initVotingHelperList(votes)
201+    let frequencies = countFrequency(helperList, votes)
202+    findHighestVote(helperList, frequencies)
203+    }
204+
205+
206+func checkTeammembers (team,potentialMember) = if (!(containsElement(team, potentialMember)))
207+    then true
208+    else false
209+
210+
17211 @Callable(i)
18-func setup (mainAddress) = if (!(isDefined(getString(this, "admin"))))
19-    then [writeString("admin", toBase58String(i.caller.bytes)), writeString("main", mainAddress)]
20-    else throw("Pool already setup!")
212+func setup (adminAddress,tokenName,tokenDescription) = if (!(isDefined(getString(this, "admin"))))
213+    then {
214+        let asset = Issue(tokenName, tokenDescription, 0, 8, true)
215+        let tokenId = calculateAssetId(asset)
216+[asset, writeString("admin", adminAddress), writeInteger("votingDuration", 2), writeInteger("totalSupply", 0), writeString("tokenName", tokenName), writeString("tokenId", toBase58String(tokenId)), writeInteger("tokenDecimals", 8)]
217+        }
218+    else throw("DApp already setup!")
219+
220+
221+
222+@Callable(i)
223+func buyRound () = if ((size(i.payments) > 0))
224+    then {
225+        let amount = i.payments[0].amount
226+        if ((amount >= 1))
227+            then {
228+                let cTokenAmount = fraction(amount, 42, 1)
229+                let currentTotalSupply = (totalSupply + cTokenAmount)
230+[writeInteger("totalSupply", currentTotalSupply), Reissue(fromBase58String(ctokenId), cTokenAmount, true), ScriptTransfer(i.caller, cTokenAmount, fromBase58String(ctokenId))]
231+                }
232+            else throw("Payment is to small!")
233+        }
234+    else throw("No payment attached!")
235+
236+
237+
238+@Callable(i)
239+func createGame () = {
240+    let board = "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
241+    let gameId = toBase58String(i.transactionId)
242+[writeString((gameId + "_board"), board), writeString((gameId + "_status"), "waiting for players"), writeString((gameId + "_teamBlue"), toString(i.caller)), writeString((gameId + "_teamYellow"), "")]
243+    }
244+
245+
246+
247+@Callable(i)
248+func joinGame (gameId) = {
249+    let userAddress = toBase58String(i.caller.bytes)
250+    let teamBlue = getStringValue((gameId + "_teamBlue"))
251+    let teamYellow = getStringValue((gameId + "_teamYellow"))
252+    let teamBlueList = split(teamBlue, ",")
253+    let teamYellowList = if ((size(teamYellow) > 0))
254+        then split(teamYellow, ",")
255+        else nil
256+    if (if (checkTeammembers(teamBlueList, userAddress))
257+        then checkTeammembers(teamYellowList, userAddress)
258+        else false)
259+        then if ((maxPlayersPerTeam > size(teamBlueList)))
260+            then [writeString((gameId + "_teamBlue"), ((teamBlue + ",") + userAddress))]
261+            else if ((size(teamYellowList) == (maxPlayersPerTeam - 1)))
262+                then [writeString((gameId + "_status"), "round_1,turn_teamBlue"), writeString((gameId + "_voting_1"), ""), writeInteger((gameId + "_mostVoted"), -1), writeInteger((gameId + "_storedHeight"), (height + votingDuration)), writeString((gameId + "_teamYellow"), ((teamYellow + ",") + userAddress))]
263+                else if ((size(teamYellowList) == 0))
264+                    then [writeString((gameId + "_teamYellow"), userAddress)]
265+                    else if (((maxPlayersPerTeam - 1) > size(teamYellowList)))
266+                        then [writeString((gameId + "_teamYellow"), ((teamYellow + ",") + userAddress))]
267+                        else throw("Teams are full, cannot join.")
268+        else throw("Player already in a Team!")
269+    }
270+
271+
272+
273+@Callable(i)
274+func vote (gameId,voting) = {
275+    let status = valueOrErrorMessage(getStringValue((gameId + "_status")), "No status entry found under gameId!")
276+    let round = parseIntValue(drop(split(status, ",")[0], 6))
277+    let activeTeam = drop(split(status, ",")[1], 5)
278+    let storedHeight = valueOrErrorMessage(getInteger((gameId + "_storedHeight")), (("No status entry found under " + gameId) + "_storedHeight!"))
279+    let storedMostVoted = valueOrErrorMessage(getIntegerValue((gameId + "_mostVoted")), (("No status entry found under " + gameId) + "_mostVoted!"))
280+    let votingEntry = valueOrErrorMessage(getStringValue(((gameId + "_voting_") + toString(round))), "No votes found for this game id!")
281+    let votingEntryList = if ((size(votingEntry) > 0))
282+        then split(votingEntry, ",")
283+        else nil
284+    let members = if ((activeTeam == "teamBlue"))
285+        then {
286+            let teamB = getStringValue((gameId + "_teamBlue"))
287+            let teamBList = split(teamB, ",")
288+            teamBList
289+            }
290+        else {
291+            let teamY = getStringValue((gameId + "_teamYellow"))
292+            let teamYList = split(teamY, ",")
293+            teamYList
294+            }
295+    let unactiveTeam = if ((activeTeam == "teamBlue"))
296+        then "teamYellow"
297+        else "teamBlue"
298+    let membersUnactive = if ((unactiveTeam == "teamBlue"))
299+        then {
300+            let teamB = getStringValue((gameId + "_teamBlue"))
301+            let teamBList = split(teamB, ",")
302+            teamBList
303+            }
304+        else {
305+            let teamY = getStringValue((gameId + "_teamYellow"))
306+            let teamYList = split(teamY, ",")
307+            teamYList
308+            }
309+    let callerAddress = toBase58String(i.caller.bytes)
310+    if ((size(i.payments) > 0))
311+        then if ((fromBase58String(ctokenId) == i.payments[0].assetId))
312+            then if ((i.payments[0].amount == 100000000))
313+                then if ((storedHeight >= height))
314+                    then if (containsElement(members, callerAddress))
315+                        then {
316+                            func foldVoters (accum,nextValue) =                             (accum :+ split(nextValue, "_")[0])
317+
318+                            let voters = {
319+                                let $l = votingEntryList
320+                                let $s = size($l)
321+                                let $acc0 = nil
322+                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
323+                                    then $a
324+                                    else foldVoters($a, $l[$i])
325+
326+                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
327+                                    then $a
328+                                    else throw("List size exceeds 5")
329+
330+                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
331+                                }
332+                            if ((containsElement(voters, callerAddress) == false))
333+                                then {
334+                                    let newVote = ((callerAddress + "_") + toString(voting))
335+                                    let currentVotingEntryList = (votingEntryList :+ newVote)
336+                                    let currentVotingEntry = makeString(currentVotingEntryList, ",")
337+                                    let votedField = parseIntValue(updateVotingResults(currentVotingEntryList))
338+                                    let currentField = if ((votedField != storedMostVoted))
339+                                        then votedField
340+                                        else storedMostVoted
341+                                    let alteredBoard = alterBoard(currentField, storedMostVoted, gameId, activeTeam)
342+                                    if ((maxPlayersPerTeam > size(currentVotingEntryList)))
343+                                        then [writeString(((gameId + "_voting_") + toString(round)), currentVotingEntry), writeString((gameId + "_board"), alteredBoard), writeInteger((gameId + "_mostVoted"), currentField)]
344+                                        else [writeString(((gameId + "_voting_") + toString(round)), currentVotingEntry), writeString((gameId + "_board"), alteredBoard), writeInteger((gameId + "_mostVoted"), -1), writeInteger((gameId + "_storedHeight"), (height + votingDuration)), writeString((gameId + "_status"), ((("round_" + toString((round + 1))) + ",turn_") + unactiveTeam)), writeString(((gameId + "_voting_") + toString((round + 1))), "")]
345+                                    }
346+                                else throw("Caller already voted!")
347+                            }
348+                        else throw((("Caller is not in " + activeTeam) + "!"))
349+                    else if (containsElement(membersUnactive, callerAddress))
350+                        then {
351+                            let newVote = ((callerAddress + "_") + toString(voting))
352+                            let currentVotingEntryList = [newVote]
353+                            let votedField = parseIntValue(updateVotingResults(currentVotingEntryList))
354+                            let alteredBoard = alterBoard(votedField, -1, gameId, activeTeam)
355+[writeString((gameId + "_board"), alteredBoard), writeInteger((gameId + "_storedHeight"), (height + votingDuration)), writeString((gameId + "_status"), ((("round_" + toString((round + 1))) + ",turn_") + unactiveTeam)), writeString(((gameId + "_voting_") + toString((round + 1))), newVote), writeInteger((gameId + "_mostVoted"), votedField)]
356+                            }
357+                        else throw((("Caller is not in " + unactiveTeam) + "!"))
358+                else throw("Amount has to be 1!")
359+            else throw("Payment has to be a Connect four Token!")
360+        else throw("No Payment attached!")
361+    }
21362 
22363 
23364 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let adminAddress = valueOrElse(getString(this, "admin"), "")
5+
6+let totalSupply = valueOrElse(getInteger(this, "totalSupply"), 0)
7+
8+let votingDuration = valueOrErrorMessage(getInteger(this, "votingDuration"), "No key votingDuration was found")
9+
10+let ctokenId = valueOrErrorMessage(getString(this, "tokenId"), "No key cTokenId was found")
11+
12+let maxPlayersPerTeam = valueOrErrorMessage(getInteger(this, "playersPerTeam"), "No key playersPerTeam was found")
513 
614 func isAdmin (callerAddress) = if ((callerAddress == fromBase58String(adminAddress)))
715     then true
816     else false
917 
1018 
1119 func writeInteger (key,integerValue) = IntegerEntry(key, integerValue)
1220 
1321 
1422 func writeString (key,stringValue) = StringEntry(key, stringValue)
1523 
1624 
25+func countFrequency (helperList,votingList) = {
26+    func foldFrequency (accum,next) =     {
27+        func countItems (acc,item) =         if ((next == item))
28+            then (acc + 1)
29+            else acc
30+
31+        (accum :+ {
32+            let $l = votingList
33+            let $s = size($l)
34+            let $acc0 = 0
35+            func $f0_1 ($a,$i) =             if (($i >= $s))
36+                then $a
37+                else countItems($a, $l[$i])
38+
39+            func $f0_2 ($a,$i) =             if (($i >= $s))
40+                then $a
41+                else throw("List size exceeds 5")
42+
43+            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
44+            })
45+        }
46+
47+    let $l = helperList
48+    let $s = size($l)
49+    let $acc0 = nil
50+    func $f0_1 ($a,$i) =     if (($i >= $s))
51+        then $a
52+        else foldFrequency($a, $l[$i])
53+
54+    func $f0_2 ($a,$i) =     if (($i >= $s))
55+        then $a
56+        else throw("List size exceeds 5")
57+
58+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
59+    }
60+
61+
62+func initVotingHelperList (voteArray) = {
63+    func foldHelperList (accum,next) =     if ((containsElement(accum, next) == false))
64+        then (accum :+ next)
65+        else accum
66+
67+    let $l = voteArray
68+    let $s = size($l)
69+    let $acc0 = nil
70+    func $f0_1 ($a,$i) =     if (($i >= $s))
71+        then $a
72+        else foldHelperList($a, $l[$i])
73+
74+    func $f0_2 ($a,$i) =     if (($i >= $s))
75+        then $a
76+        else throw("List size exceeds 5")
77+
78+    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
79+    }
80+
81+
82+func isGreaterThen (potential,itemList) = {
83+    let listLength = (size(itemList) - 1)
84+    let currentGreatest = itemList[listLength]
85+    if ((potential > currentGreatest))
86+        then true
87+        else false
88+    }
89+
90+
91+func findHighestVote (helperList,frequencies) = {
92+    func foldFrequencies (highestItemList,nextItem) =     if ((size(highestItemList) == 0))
93+        then (highestItemList :+ nextItem)
94+        else if (isGreaterThen(nextItem, highestItemList))
95+            then (highestItemList :+ nextItem)
96+            else highestItemList
97+
98+    let highestVotes = {
99+        let $l = frequencies
100+        let $s = size($l)
101+        let $acc0 = nil
102+        func $f0_1 ($a,$i) =         if (($i >= $s))
103+            then $a
104+            else foldFrequencies($a, $l[$i])
105+
106+        func $f0_2 ($a,$i) =         if (($i >= $s))
107+            then $a
108+            else throw("List size exceeds 5")
109+
110+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
111+        }
112+    let lastIdx = (size(highestVotes) - 1)
113+    let highestVote = highestVotes[lastIdx]
114+    let helperIdx = indexOf(frequencies, highestVote)
115+    match helperIdx {
116+        case t: Int => 
117+helperList[t]
118+        case _ => 
119+            throw("Type does not match! Function: findHighestVote")
120+    }
121+    }
122+
123+
124+func createBoard (board) = makeString(board, ",")
125+
126+
127+func alterBoard (newField,oldValue,gameId,team) = {
128+    let currentBoard = getStringValue((gameId + "_board"))
129+    let boardList = split(currentBoard, ",")
130+    let teamTag = if ((team == "teamBlue"))
131+        then "B"
132+        else "Y"
133+    func foldOldEntry (accum,nextValue) =     {
134+        let $t046284651 = accum
135+        let result = $t046284651._1
136+        let j = $t046284651._2
137+        if ((j == oldValue))
138+            then $Tuple2((result :+ "0"), (j + 1))
139+            else $Tuple2((result :+ nextValue), (j + 1))
140+        }
141+
142+    func foldBoard (accum,nextValue) =     {
143+        let $t048284851 = accum
144+        let result = $t048284851._1
145+        let j = $t048284851._2
146+        if ((j == newField))
147+            then $Tuple2((result :+ teamTag), (j + 1))
148+            else $Tuple2((result :+ nextValue), (j + 1))
149+        }
150+
151+    let cleanedBoard = {
152+        let $l = boardList
153+        let $s = size($l)
154+        let $acc0 = $Tuple2(nil, 0)
155+        func $f0_1 ($a,$i) =         if (($i >= $s))
156+            then $a
157+            else foldOldEntry($a, $l[$i])
158+
159+        func $f0_2 ($a,$i) =         if (($i >= $s))
160+            then $a
161+            else throw("List size exceeds 42")
162+
163+        $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($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($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), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42)
164+        }
165+    let newBoardList = {
166+        let $l = cleanedBoard._1
167+        let $s = size($l)
168+        let $acc0 = $Tuple2(nil, 0)
169+        func $f1_1 ($a,$i) =         if (($i >= $s))
170+            then $a
171+            else foldBoard($a, $l[$i])
172+
173+        func $f1_2 ($a,$i) =         if (($i >= $s))
174+            then $a
175+            else throw("List size exceeds 42")
176+
177+        $f1_2($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($f1_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42)
178+        }
179+    createBoard(newBoardList._1)
180+    }
181+
182+
183+func updateVotingResults (currentVotingEntryList) = {
184+    func foldVotings (accum,nextValue) =     (accum :+ split(nextValue, "_")[1])
185+
186+    let votes = {
187+        let $l = currentVotingEntryList
188+        let $s = size($l)
189+        let $acc0 = nil
190+        func $f0_1 ($a,$i) =         if (($i >= $s))
191+            then $a
192+            else foldVotings($a, $l[$i])
193+
194+        func $f0_2 ($a,$i) =         if (($i >= $s))
195+            then $a
196+            else throw("List size exceeds 5")
197+
198+        $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
199+        }
200+    let helperList = initVotingHelperList(votes)
201+    let frequencies = countFrequency(helperList, votes)
202+    findHighestVote(helperList, frequencies)
203+    }
204+
205+
206+func checkTeammembers (team,potentialMember) = if (!(containsElement(team, potentialMember)))
207+    then true
208+    else false
209+
210+
17211 @Callable(i)
18-func setup (mainAddress) = if (!(isDefined(getString(this, "admin"))))
19-    then [writeString("admin", toBase58String(i.caller.bytes)), writeString("main", mainAddress)]
20-    else throw("Pool already setup!")
212+func setup (adminAddress,tokenName,tokenDescription) = if (!(isDefined(getString(this, "admin"))))
213+    then {
214+        let asset = Issue(tokenName, tokenDescription, 0, 8, true)
215+        let tokenId = calculateAssetId(asset)
216+[asset, writeString("admin", adminAddress), writeInteger("votingDuration", 2), writeInteger("totalSupply", 0), writeString("tokenName", tokenName), writeString("tokenId", toBase58String(tokenId)), writeInteger("tokenDecimals", 8)]
217+        }
218+    else throw("DApp already setup!")
219+
220+
221+
222+@Callable(i)
223+func buyRound () = if ((size(i.payments) > 0))
224+    then {
225+        let amount = i.payments[0].amount
226+        if ((amount >= 1))
227+            then {
228+                let cTokenAmount = fraction(amount, 42, 1)
229+                let currentTotalSupply = (totalSupply + cTokenAmount)
230+[writeInteger("totalSupply", currentTotalSupply), Reissue(fromBase58String(ctokenId), cTokenAmount, true), ScriptTransfer(i.caller, cTokenAmount, fromBase58String(ctokenId))]
231+                }
232+            else throw("Payment is to small!")
233+        }
234+    else throw("No payment attached!")
235+
236+
237+
238+@Callable(i)
239+func createGame () = {
240+    let board = "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0"
241+    let gameId = toBase58String(i.transactionId)
242+[writeString((gameId + "_board"), board), writeString((gameId + "_status"), "waiting for players"), writeString((gameId + "_teamBlue"), toString(i.caller)), writeString((gameId + "_teamYellow"), "")]
243+    }
244+
245+
246+
247+@Callable(i)
248+func joinGame (gameId) = {
249+    let userAddress = toBase58String(i.caller.bytes)
250+    let teamBlue = getStringValue((gameId + "_teamBlue"))
251+    let teamYellow = getStringValue((gameId + "_teamYellow"))
252+    let teamBlueList = split(teamBlue, ",")
253+    let teamYellowList = if ((size(teamYellow) > 0))
254+        then split(teamYellow, ",")
255+        else nil
256+    if (if (checkTeammembers(teamBlueList, userAddress))
257+        then checkTeammembers(teamYellowList, userAddress)
258+        else false)
259+        then if ((maxPlayersPerTeam > size(teamBlueList)))
260+            then [writeString((gameId + "_teamBlue"), ((teamBlue + ",") + userAddress))]
261+            else if ((size(teamYellowList) == (maxPlayersPerTeam - 1)))
262+                then [writeString((gameId + "_status"), "round_1,turn_teamBlue"), writeString((gameId + "_voting_1"), ""), writeInteger((gameId + "_mostVoted"), -1), writeInteger((gameId + "_storedHeight"), (height + votingDuration)), writeString((gameId + "_teamYellow"), ((teamYellow + ",") + userAddress))]
263+                else if ((size(teamYellowList) == 0))
264+                    then [writeString((gameId + "_teamYellow"), userAddress)]
265+                    else if (((maxPlayersPerTeam - 1) > size(teamYellowList)))
266+                        then [writeString((gameId + "_teamYellow"), ((teamYellow + ",") + userAddress))]
267+                        else throw("Teams are full, cannot join.")
268+        else throw("Player already in a Team!")
269+    }
270+
271+
272+
273+@Callable(i)
274+func vote (gameId,voting) = {
275+    let status = valueOrErrorMessage(getStringValue((gameId + "_status")), "No status entry found under gameId!")
276+    let round = parseIntValue(drop(split(status, ",")[0], 6))
277+    let activeTeam = drop(split(status, ",")[1], 5)
278+    let storedHeight = valueOrErrorMessage(getInteger((gameId + "_storedHeight")), (("No status entry found under " + gameId) + "_storedHeight!"))
279+    let storedMostVoted = valueOrErrorMessage(getIntegerValue((gameId + "_mostVoted")), (("No status entry found under " + gameId) + "_mostVoted!"))
280+    let votingEntry = valueOrErrorMessage(getStringValue(((gameId + "_voting_") + toString(round))), "No votes found for this game id!")
281+    let votingEntryList = if ((size(votingEntry) > 0))
282+        then split(votingEntry, ",")
283+        else nil
284+    let members = if ((activeTeam == "teamBlue"))
285+        then {
286+            let teamB = getStringValue((gameId + "_teamBlue"))
287+            let teamBList = split(teamB, ",")
288+            teamBList
289+            }
290+        else {
291+            let teamY = getStringValue((gameId + "_teamYellow"))
292+            let teamYList = split(teamY, ",")
293+            teamYList
294+            }
295+    let unactiveTeam = if ((activeTeam == "teamBlue"))
296+        then "teamYellow"
297+        else "teamBlue"
298+    let membersUnactive = if ((unactiveTeam == "teamBlue"))
299+        then {
300+            let teamB = getStringValue((gameId + "_teamBlue"))
301+            let teamBList = split(teamB, ",")
302+            teamBList
303+            }
304+        else {
305+            let teamY = getStringValue((gameId + "_teamYellow"))
306+            let teamYList = split(teamY, ",")
307+            teamYList
308+            }
309+    let callerAddress = toBase58String(i.caller.bytes)
310+    if ((size(i.payments) > 0))
311+        then if ((fromBase58String(ctokenId) == i.payments[0].assetId))
312+            then if ((i.payments[0].amount == 100000000))
313+                then if ((storedHeight >= height))
314+                    then if (containsElement(members, callerAddress))
315+                        then {
316+                            func foldVoters (accum,nextValue) =                             (accum :+ split(nextValue, "_")[0])
317+
318+                            let voters = {
319+                                let $l = votingEntryList
320+                                let $s = size($l)
321+                                let $acc0 = nil
322+                                func $f0_1 ($a,$i) =                                 if (($i >= $s))
323+                                    then $a
324+                                    else foldVoters($a, $l[$i])
325+
326+                                func $f0_2 ($a,$i) =                                 if (($i >= $s))
327+                                    then $a
328+                                    else throw("List size exceeds 5")
329+
330+                                $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5)
331+                                }
332+                            if ((containsElement(voters, callerAddress) == false))
333+                                then {
334+                                    let newVote = ((callerAddress + "_") + toString(voting))
335+                                    let currentVotingEntryList = (votingEntryList :+ newVote)
336+                                    let currentVotingEntry = makeString(currentVotingEntryList, ",")
337+                                    let votedField = parseIntValue(updateVotingResults(currentVotingEntryList))
338+                                    let currentField = if ((votedField != storedMostVoted))
339+                                        then votedField
340+                                        else storedMostVoted
341+                                    let alteredBoard = alterBoard(currentField, storedMostVoted, gameId, activeTeam)
342+                                    if ((maxPlayersPerTeam > size(currentVotingEntryList)))
343+                                        then [writeString(((gameId + "_voting_") + toString(round)), currentVotingEntry), writeString((gameId + "_board"), alteredBoard), writeInteger((gameId + "_mostVoted"), currentField)]
344+                                        else [writeString(((gameId + "_voting_") + toString(round)), currentVotingEntry), writeString((gameId + "_board"), alteredBoard), writeInteger((gameId + "_mostVoted"), -1), writeInteger((gameId + "_storedHeight"), (height + votingDuration)), writeString((gameId + "_status"), ((("round_" + toString((round + 1))) + ",turn_") + unactiveTeam)), writeString(((gameId + "_voting_") + toString((round + 1))), "")]
345+                                    }
346+                                else throw("Caller already voted!")
347+                            }
348+                        else throw((("Caller is not in " + activeTeam) + "!"))
349+                    else if (containsElement(membersUnactive, callerAddress))
350+                        then {
351+                            let newVote = ((callerAddress + "_") + toString(voting))
352+                            let currentVotingEntryList = [newVote]
353+                            let votedField = parseIntValue(updateVotingResults(currentVotingEntryList))
354+                            let alteredBoard = alterBoard(votedField, -1, gameId, activeTeam)
355+[writeString((gameId + "_board"), alteredBoard), writeInteger((gameId + "_storedHeight"), (height + votingDuration)), writeString((gameId + "_status"), ((("round_" + toString((round + 1))) + ",turn_") + unactiveTeam)), writeString(((gameId + "_voting_") + toString((round + 1))), newVote), writeInteger((gameId + "_mostVoted"), votedField)]
356+                            }
357+                        else throw((("Caller is not in " + unactiveTeam) + "!"))
358+                else throw("Amount has to be 1!")
359+            else throw("Payment has to be a Connect four Token!")
360+        else throw("No Payment attached!")
361+    }
21362 
22363 
23364 
24365 @Callable(i)
25366 func updateStringEntry (key,stringValue) = if (isAdmin(i.caller.bytes))
26367     then [writeString(key, stringValue)]
27368     else throw("Address does not match with admin address!")
28369 
29370 
30371 
31372 @Callable(i)
32373 func updateIntegerEntry (key,integerValue) = if (isAdmin(i.caller.bytes))
33374     then [writeInteger(key, integerValue)]
34375     else throw("Address does not match with admin address!")
35376 
36377 
37378 
38379 @Callable(i)
39380 func deleteStorageEntry (key) = if (isAdmin(i.caller.bytes))
40381     then [DeleteEntry(key)]
41382     else throw("Address does not match with admin address!")
42383 
43384 
44385 @Verifier(tx)
45386 func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
46387 
github/deemru/w8io/169f3d6 
76.17 ms ◑