w8 · tx · 6ih···ey2

tx · 6ihkpsxMytTz4d8TyTBAxjQzBqDja3ZmrzvXgXKQGey2

3Mr1FdiZzG9iTQUtPmQEs1hBVbyQhG6LU93:  -0.01500000 Waves

2021.08.04 12:26 [1643414] smart account 3Mr1FdiZzG9iTQUtPmQEs1hBVbyQhG6LU93 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6ihkpsxMytTz4d8TyTBAxjQzBqDja3ZmrzvXgXKQGey2",
    "fee": 1500000,
    "feeAssetId": null,
    "timestamp": 1628069229635,
    "version": 1,
    "sender": "3Mr1FdiZzG9iTQUtPmQEs1hBVbyQhG6LU93",
    "senderPublicKey": "De2GV53Brxd2GCQnLJWRugSidGtrVvPL9kJn2Dh4NTpJ",
    "proofs": [
        "2HGxGW4dv1eay59cSi52xKGcp1t2p5Qdp5GjaZCa5bUp2zVKi5XiYm4Y8rTLBRat129mZejYNDGdJwZEdSKkq3EY"
    ],
    "script": "base64:AAIEAAAAAAAAABQIAhIFCgMICAESAwoBCBIECgIIAgAAADUAAAAABldBVkVTRAAAAAAABfXhAAAAAAAFVVNETkQAAAAAAAAPQkAAAAAABEVHR0QAAAAAAAAAAGQAAAAACERFQ0lNQUxTCQAETAAAAAIFAAAABldBVkVTRAkABEwAAAACBQAAAAVVU0RORAkABEwAAAACBQAAAARFR0dEBQAAAANuaWwAAAAABkFTU0VUUwkABEwAAAACBQAAAAR1bml0CQAETAAAAAIJAAJZAAAAAQIAAAAsMjVGRXFFalJrcUs2eUNraVQ3THo2U0FZejdnVUZDdHhmQ0NobnJWRkQ1QVQJAARMAAAAAgkAAlkAAAABAgAAACxIc0V3V3V1UWpVb2hyWDI2Rng4dGc1ZWlMNExERDd1bTZqcU5xRmdFUng2ZwUAAAADbmlsAAAAAAtCRVRESVZJREVSUwkABEwAAAACAAAAAAAAAAABCQAETAAAAAIAAAAAAAAAAAEJAARMAAAAAgAAAAAAAAAACgUAAAADbmlsAAAAAAtNSU5GRUVXQVZFUwkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAAUFAAAABldBVkVTRAAAAAAAAAAD6AAAAAAEQkVUMQAAAAAAAAAAAQAAAAAEQkVUMgAAAAAAAAAAAgAAAAAEQkVUNAAAAAAAAAAABAAAAAAEQkVUOAAAAAAAAAAACAAAAAAFQkVUMTQAAAAAAAAAAA4AAAAACFJBVEVNVUxUAAAAAAAAACcQAAAAAAVSQVRFMQAAAAAAAACa5wAAAAAFUkFURTIAAAAAAAAAYBgAAAAABVJBVEUzAAAAAAAAAEo4AAAAAAVSQVRFNAAAAAAAAAA3eAAAAAAFUkFURTUAAAAAAAAALIgAAAAABVJBVEVTCQAETAAAAAIFAAAABVJBVEUxCQAETAAAAAIFAAAABVJBVEUyCQAETAAAAAIFAAAABVJBVEUzCQAETAAAAAIFAAAABVJBVEU0CQAETAAAAAIFAAAABVJBVEU1BQAAAANuaWwAAAAABEJFVFMJAARMAAAAAgUAAAAEQkVUMQkABEwAAAACBQAAAARCRVQyCQAETAAAAAIFAAAABEJFVDQJAARMAAAAAgUAAAAEQkVUOAkABEwAAAACBQAAAAVCRVQxNAUAAAADbmlsAAAAAAxJZHhHYW1lU3RhdGUAAAAAAAAAAAAAAAAAD0lkeFBsYXllckNob2ljZQAAAAAAAAAAAQAAAAARSWR4UGxheWVyUHViS2V5NTgAAAAAAAAAAAIAAAAAEElkeFN0YXJ0ZWRIZWlnaHQAAAAAAAAAAAMAAAAADElkeFdpbkFtb3VudAAAAAAAAAAABAAAAAAKSWR4QXNzZXRJZAAAAAAAAAAABQAAAAAOUkVTRVJWQVRJT05LRVkJAARMAAAAAgIAAAAWJFJFU0VSVkVEX0FNT1VOVF9XQVZFUwkABEwAAAACAgAAABUkUkVTRVJWRURfQU1PVU5UX1VTRE4JAARMAAAAAgIAAAAUJFJFU0VSVkVEX0FNT1VOVF9FR0cFAAAAA25pbAAAAAAPR0FNRVNDT1VOVEVSS0VZAgAAAAkkR0FNRV9OVU0AAAAADlJTQVBVQkxJQzY0S0VZAgAAAA0kUlNBX1BVQkxJQzY0AAAAABBTRVJWRVJBRERSRVNTS0VZAgAAAA0kQkVOWl9BRERSRVNTAAAAABBSQU5EVElNRUZSQU1FS0VZAgAAABYkUkFORF9PUkFDTEVfVElNRUZSQU1FAAAAAA5TVEFURVNVQk1JVFRFRAIAAAAJU1VCTUlUVEVEAAAAAAhTVEFURVdPTgIAAAADV09OAAAAAAlTVEFURUxPU1QCAAAABExPU1QBAAAAD2dldFN0cmluZ09yRmFpbAAAAAEAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5CQABLAAAAAIFAAAAA2tleQIAAAAjIGtleSBpcyBub3Qgc3BlY2lmaWVkIGluIHRoaXMuc3RhdGUAAAAACVJTQVBVQkxJQwkAAlsAAAABCQEAAAAPZ2V0U3RyaW5nT3JGYWlsAAAAAQUAAAAOUlNBUFVCTElDNjRLRVkAAAAABlNFUlZFUgkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQkBAAAAD2dldFN0cmluZ09yRmFpbAAAAAEFAAAAEFNFUlZFUkFERFJFU1NLRVkAAAAAE1JBTkRPUkFDTEVUSU1FRlJBTUUJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAAQaAAAAAgUAAAAEdGhpcwUAAAAQUkFORFRJTUVGUkFNRUtFWQAAAAAAAAAcIAEAAAAIZ2V0SW50T3IAAAACAAAAA2tleQAAAAdkZWZhdWx0AwkBAAAACWlzRGVmaW5lZAAAAAEJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAANrZXkFAAAAB2RlZmF1bHQBAAAABnNldEludAAAAAIAAAADa2V5AAAABXZhbHVlCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAADa2V5BQAAAAV2YWx1ZQEAAAAMaW5jcmVtZW50SW50AAAAAQAAAANrZXkJAQAAAAZzZXRJbnQAAAACBQAAAANrZXkJAABkAAAAAgkBAAAACGdldEludE9yAAAAAgUAAAADa2V5AP//////////AAAAAAAAAAABAQAAAAljaGFuZ2VJbnQAAAACAAAAA2tleQAAAAJieQkBAAAABnNldEludAAAAAIFAAAAA2tleQkAAGQAAAACCQEAAAAIZ2V0SW50T3IAAAACBQAAAANrZXkAAAAAAAAAAAAFAAAAAmJ5AQAAAA9nZXRBc3NldEJhbGFuY2UAAAABAAAADWFzc2V0SWRPclVuaXQEAAAAByRtYXRjaDAFAAAADWFzc2V0SWRPclVuaXQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAACkJ5dGVWZWN0b3IEAAAAB2Fzc2V0SWQFAAAAByRtYXRjaDAJAAPwAAAAAgUAAAAEdGhpcwUAAAAHYXNzZXRJZAgJAAPvAAAAAQUAAAAEdGhpcwAAAAlhdmFpbGFibGUBAAAAFWluY3JlYXNlUmVzZXJ2ZUFtb3VudAAAAAIAAAAJd2luQW1vdW50AAAAB2Fzc2V0SWQEAAAAEW5ld1Jlc2VydmVkQW1vdW50CQAAZAAAAAIJAQAAAAhnZXRJbnRPcgAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkFAAAAB2Fzc2V0SWQAAAAAAAAAAAAFAAAACXdpbkFtb3VudAMJAABmAAAAAgUAAAARbmV3UmVzZXJ2ZWRBbW91bnQJAQAAAA9nZXRBc3NldEJhbGFuY2UAAAABCQABkQAAAAIFAAAABkFTU0VUUwUAAAAHYXNzZXRJZAkAAAIAAAABAgAAAFRJbnN1ZmZpY2llbnQgZnVuZHMgb24gRGljZSBSb2xsZXIgYWNjb3VudC4gVHJhbnNhY3Rpb24gd2FzIHJlamVjdGVkIGZvciB5b3VyIHNhZmV0eS4FAAAAEW5ld1Jlc2VydmVkQW1vdW50AQAAABZkZWNyZWFzZVJlc2VydmVkQW1vdW50AAAAAwAAAAZnYW1lSWQAAAAHYXNzZXRJZAAAAAl3aW5BbW91bnQDCQAAZgAAAAIAAAAAAAAAAAAJAABlAAAAAgkBAAAACGdldEludE9yAAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQUAAAAHYXNzZXRJZAAAAAAAAAAAAAUAAAAJd2luQW1vdW50CQAAAgAAAAECAAAAQkludmFsaWQgRGljZSBSb2xsZXIgYWNjb3VudCBzdGF0ZSAtIHJlc2VydmVkIGFtb3VudCBpcyBsZXNzIHRoYW4gMAkBAAAACWNoYW5nZUludAAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkFAAAAB2Fzc2V0SWQJAQAAAAEtAAAAAQUAAAAJd2luQW1vdW50AQAAABV2YWxpZGF0ZUFuZEdldEFzc2V0SWQAAAABAAAAB2Fzc2V0SWQDCQAAAAAAAAIFAAAAB2Fzc2V0SWQJAAGRAAAAAgUAAAAGQVNTRVRTAAAAAAAAAAAAAAAAAAAAAAAAAwkAAAAAAAACBQAAAAdhc3NldElkCQABkQAAAAIFAAAABkFTU0VUUwAAAAAAAAAAAQAAAAAAAAAAAQMJAAAAAAAAAgUAAAAHYXNzZXRJZAkAAZEAAAACBQAAAAZBU1NFVFMAAAAAAAAAAAIAAAAAAAAAAAIJAAACAAAAAQIAAAAVSW52YWxpZCBwYXltZW50IGFzc2V0AQAAABp2YWxpZGF0ZUJldEFuZEdldFdpbkFtb3VudAAAAAMAAAADYmV0AAAAD2ludGVybmFsQXNzZXRJZAAAAAxwbGF5ZXJDaG9pY2UEAAAACmRpY2VzQ291bnQJAAExAAAAAQUAAAAMcGxheWVyQ2hvaWNlCgEAAAALY2hlY2tBbW91bnQAAAACAAAAAWEAAAABeAMFAAAAAWEGCQAAAAAAAAIFAAAAA2JldAkAAGkAAAACCQAAaAAAAAIFAAAAAXgJAAGRAAAAAgUAAAAIREVDSU1BTFMFAAAAD2ludGVybmFsQXNzZXRJZAkAAZEAAAACBQAAAAtCRVRESVZJREVSUwUAAAAPaW50ZXJuYWxBc3NldElkAwkBAAAAASEAAAABCgAAAAACJGwFAAAABEJFVFMKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBwoBAAAAATEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAALY2hlY2tBbW91bnQAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAEyAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABNMaXN0IHNpemUgZXhjZWVkcyA1CQEAAAABMgAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACBQAAAAUkYWNjMAAAAAAAAAAAAAAAAAAAAAAAAQAAAAAAAAAAAgAAAAAAAAAAAwAAAAAAAAAABAAAAAAAAAAABQkAAAIAAAABAgAAABdCZXQgYW1vdW50IGlzIG5vdCB2YWxpZAMJAAAAAAAAAgkABLYAAAABBQAAAAxwbGF5ZXJDaG9pY2UFAAAABHVuaXQJAAACAAAAAQIAAAAXSW52YWxpZCBwbGF5ZXIncyBjaG9pY2UDAwkAAGYAAAACAAAAAAAAAAABBQAAAApkaWNlc0NvdW50BgkAAGYAAAACBQAAAApkaWNlc0NvdW50AAAAAAAAAAAFCQAAAgAAAAECAAAAJkludmFsaWQgZGljZXMgY291bnQgaW4gcGxheWVyJ3MgY2hvaWNlCQAAaQAAAAIJAABoAAAAAgUAAAADYmV0CQABkQAAAAIFAAAABVJBVEVTCQAAZQAAAAIFAAAACmRpY2VzQ291bnQAAAAAAAAAAAEFAAAACFJBVEVNVUxUAQAAABJnZW5lcmF0ZVJhbmRDaG9pc2UAAAACAAAABmdhbWVJZAAAAAdyc2FTaWduBAAAAAtyc2FTaWdWYWxpZAkACigAAAAEBQAAAAZTSEEyNTYJAAGbAAAAAQUAAAAGZ2FtZUlkBQAAAAdyc2FTaWduBQAAAAlSU0FQVUJMSUMDCQEAAAABIQAAAAEFAAAAC3JzYVNpZ1ZhbGlkCQAAAgAAAAECAAAAFUludmFsaWQgUlNBIHNpZ25hdHVyZQQAAAAEcmFuZAkAAGoAAAACCQAEsQAAAAEJAAH3AAAAAQUAAAAHcnNhU2lnbgAAAAAAAAAABgQAAAAGcmVzdWx0AwkAAGYAAAACAAAAAAAAAAAABQAAAARyYW5kCQAAaAAAAAIA//////////8FAAAABHJhbmQFAAAABHJhbmQJAAGkAAAAAQkAAGQAAAACBQAAAAZyZXN1bHQAAAAAAAAAAAEBAAAAC2lzUGxheWVyV2luAAAAAgAAAAxwbGF5ZXJDaG9pY2UAAAAKcmFuZENob2lzZQQAAAABcwkAATEAAAABBQAAAAxwbGF5ZXJDaG9pY2UKAQAAAAVjaGVjawAAAAIAAAABYQAAAAF4AwUAAAABYQYDCQAAZwAAAAIFAAAAAXMFAAAAAXgJAAAAAAAAAgkAAS8AAAACCQABMAAAAAIFAAAADHBsYXllckNob2ljZQkAAGUAAAACBQAAAAF4AAAAAAAAAAABAAAAAAAAAAABBQAAAApyYW5kQ2hvaXNlBwoAAAAAAiRsCQAETAAAAAIAAAAAAAAAAAEJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAADCQAETAAAAAIAAAAAAAAAAAQJAARMAAAAAgAAAAAAAAAABQUAAAADbmlsCgAAAAACJHMJAAGQAAAAAQUAAAACJGwKAAAAAAUkYWNjMAcKAQAAAAExAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAABWNoZWNrAAAAAgUAAAACJGEJAAGRAAAAAgUAAAACJGwFAAAAAiRpCgEAAAABMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAATTGlzdCBzaXplIGV4Y2VlZHMgNQkBAAAAATIAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgkBAAAAATEAAAACCQEAAAABMQAAAAIJAQAAAAExAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUBAAAAD2Zvcm1hdEdhbWVEYXRhUwAAAAcAAAAKZ2FtZVN0YXR1cwAAAAxwbGF5ZXJDaG9pY2UAAAAOcGxheWVyUHViS2V5NTgAAAANc3RhcnRlZEhlaWdodAAAAAl3aW5BbW91bnQAAAAHYXNzZXRJZAAAAAtyYW5kT3JFbXB0eQkABLkAAAACCQAETAAAAAIFAAAACmdhbWVTdGF0dXMJAARMAAAAAgUAAAAMcGxheWVyQ2hvaWNlCQAETAAAAAIFAAAADnBsYXllclB1YktleTU4CQAETAAAAAIFAAAADXN0YXJ0ZWRIZWlnaHQJAARMAAAAAgUAAAAJd2luQW1vdW50CQAETAAAAAIFAAAAB2Fzc2V0SWQJAARMAAAAAgMJAAAAAAAAAgUAAAALcmFuZE9yRW1wdHkCAAAAAAIAAAAABQAAAAtyYW5kT3JFbXB0eQUAAAADbmlsAgAAAAFfAQAAAA5mb3JtYXRHYW1lRGF0YQAAAAcAAAAKZ2FtZVN0YXR1cwAAAAxwbGF5ZXJDaG9pY2UAAAAOcGxheWVyUHViS2V5NTgAAAANc3RhcnRlZEhlaWdodAAAAAl3aW5BbW91bnQAAAAHYXNzZXRJZAAAAAtyYW5kT3JFbXB0eQkBAAAAD2Zvcm1hdEdhbWVEYXRhUwAAAAcFAAAACmdhbWVTdGF0dXMFAAAADHBsYXllckNob2ljZQUAAAAOcGxheWVyUHViS2V5NTgJAAGkAAAAAQUAAAANc3RhcnRlZEhlaWdodAkAAaQAAAABBQAAAAl3aW5BbW91bnQJAAGkAAAAAQUAAAAHYXNzZXRJZAUAAAALcmFuZE9yRW1wdHkBAAAADmZpbmlzaEdhbWVEYXRhAAAABAAAAAxvcmlnR2FtZURhdGEAAAAKZ2FtZVN0YXR1cwAAAARyYW5kAAAADHdpbkJ5VGltZW91dAQAAAAOZmluaXNoR2FtZURhdGEJAQAAAA9mb3JtYXRHYW1lRGF0YVMAAAAHBQAAAApnYW1lU3RhdHVzCQABkQAAAAIFAAAADG9yaWdHYW1lRGF0YQUAAAAPSWR4UGxheWVyQ2hvaWNlCQABkQAAAAIFAAAADG9yaWdHYW1lRGF0YQUAAAARSWR4UGxheWVyUHViS2V5NTgJAAGRAAAAAgUAAAAMb3JpZ0dhbWVEYXRhBQAAABBJZHhTdGFydGVkSGVpZ2h0CQABkQAAAAIFAAAADG9yaWdHYW1lRGF0YQUAAAAMSWR4V2luQW1vdW50CQABkQAAAAIFAAAADG9yaWdHYW1lRGF0YQUAAAAKSWR4QXNzZXRJZAUAAAAEcmFuZAMFAAAADHdpbkJ5VGltZW91dAkAASwAAAACBQAAAA5maW5pc2hHYW1lRGF0YQIAAAAIX1RJTUVPVVQFAAAADmZpbmlzaEdhbWVEYXRhAQAAAA9leHRyYWN0R2FtZURhdGEAAAABAAAABmdhbWVJZAkABLUAAAACBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAABmdhbWVJZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAANzdHIFAAAAByRtYXRjaDAFAAAAA3N0cgkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAGR2FtZTogBQAAAAZnYW1lSWQCAAAACyBub3QgZm91bmQuAgAAAAFfAAAAAwAAAAFpAQAAAAtjb25zdHJ1Y3RvcgAAAAMAAAALcnNhUHVibGljNjQAAAALYmVuekFkZHJlc3MAAAATcmFuZE9yYWNsZVRpbWVGcmFtZQMJAQAAAAIhPQAAAAIJAQAAABRhZGRyZXNzRnJvbVB1YmxpY0tleQAAAAEIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQUAAAAEdGhpcwkAAAIAAAABAgAAAA5ub3QgYXV0aG9yaXplZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAA5SU0FQVUJMSUM2NEtFWQUAAAALcnNhUHVibGljNjQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAQU0VSVkVSQUREUkVTU0tFWQUAAAALYmVuekFkZHJlc3MJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAEFJBTkRUSU1FRlJBTUVLRVkFAAAAE3JhbmRPcmFjbGVUaW1lRnJhbWUFAAAAA25pbAAAAAFpAQAAAANiZXQAAAABAAAADHBsYXllckNob2ljZQQAAAAGZ2FtZUlkCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQDCQAAZwAAAAIAAAAAAAAAAAEJAAGQAAAAAQgFAAAAAWkAAAAIcGF5bWVudHMJAAACAAAAAQIAAAAbMiBwYXltZW50cyBtdXN0IGJlIGF0dGFjaGVkAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAAEdGhpcwUAAAAGZ2FtZUlkCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAlCZXQgZm9yOiAFAAAABmdhbWVJZAIAAAASIHdhcyBhbHJlYWR5IG1hZGUuBAAAAAZiZXRQbXQJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAEAAAABmZlZVBtdAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAAGZmVlUG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAtZmVlUG10ICgybmQgcGF5bWVudCkgYXNzZXRJZCBtdXN0IGJlIGluIFdhdmVzAwkAAGYAAAACBQAAAAtNSU5GRUVXQVZFUwgFAAAABmZlZVBtdAAAAAZhbW91bnQJAAACAAAAAQIAAAArZmVlUG10ICgybmQgcGF5bWVudCkgbXVzdCBiZSA+PSAwLjAwNSBXYXZlcwQAAAAPaW50ZXJuYWxBc3NldElkCQEAAAAVdmFsaWRhdGVBbmRHZXRBc3NldElkAAAAAQgFAAAABmJldFBtdAAAAAdhc3NldElkBAAAAApjb21taXNzaW9uCAUAAAAGZmVlUG10AAAABmFtb3VudAQAAAAJd2luQW1vdW50CQEAAAAadmFsaWRhdGVCZXRBbmRHZXRXaW5BbW91bnQAAAADCAUAAAAGYmV0UG10AAAABmFtb3VudAUAAAAPaW50ZXJuYWxBc3NldElkBQAAAAxwbGF5ZXJDaG9pY2UEAAAADnBsYXllclB1YktleTU4CQACWAAAAAEIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQQAAAAIZ2FtZURhdGEJAQAAAA5mb3JtYXRHYW1lRGF0YQAAAAcFAAAADlNUQVRFU1VCTUlUVEVEBQAAAAxwbGF5ZXJDaG9pY2UFAAAADnBsYXllclB1YktleTU4BQAAAAZoZWlnaHQFAAAACXdpbkFtb3VudAUAAAAPaW50ZXJuYWxBc3NldElkAgAAAAAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkFAAAAD2ludGVybmFsQXNzZXRJZAkBAAAAFWluY3JlYXNlUmVzZXJ2ZUFtb3VudAAAAAIFAAAACXdpbkFtb3VudAUAAAAPaW50ZXJuYWxBc3NldElkCQAETAAAAAIJAQAAAAxpbmNyZW1lbnRJbnQAAAABBQAAAA9HQU1FU0NPVU5URVJLRVkJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAGZ2FtZUlkBQAAAAhnYW1lRGF0YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZTRVJWRVIFAAAACmNvbW1pc3Npb24IBQAAAAZmZWVQbXQAAAAHYXNzZXRJZAUAAAADbmlsAAAAAWkBAAAACHdpdGhkcmF3AAAAAgAAAAZnYW1lSWQAAAAHcnNhU2lnbgQAAAAIZ2FtZURhdGEJAQAAAA9leHRyYWN0R2FtZURhdGEAAAABBQAAAAZnYW1lSWQEAAAACWdhbWVTdGF0ZQkAAZEAAAACBQAAAAhnYW1lRGF0YQUAAAAMSWR4R2FtZVN0YXRlBAAAAAxwbGF5ZXJDaG9pY2UJAAGRAAAAAgUAAAAIZ2FtZURhdGEFAAAAD0lkeFBsYXllckNob2ljZQQAAAANc3RhcnRlZEhlaWdodAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAACGdhbWVEYXRhBQAAABBJZHhTdGFydGVkSGVpZ2h0BAAAAAl3aW5BbW91bnQJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAAhnYW1lRGF0YQUAAAAMSWR4V2luQW1vdW50BAAAAAdhc3NldElkCQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAAIZ2FtZURhdGEFAAAACklkeEFzc2V0SWQEAAAADnBsYXllclB1YktleTU4CQABkQAAAAIFAAAACGdhbWVEYXRhBQAAABFJZHhQbGF5ZXJQdWJLZXk1OAQAAAANcGxheWVyQWRkcmVzcwkBAAAAFGFkZHJlc3NGcm9tUHVibGljS2V5AAAAAQkAAlkAAAABBQAAAA5wbGF5ZXJQdWJLZXk1OAMJAQAAAAIhPQAAAAIFAAAACWdhbWVTdGF0ZQUAAAAOU1RBVEVTVUJNSVRURUQJAAACAAAAAQIAAAAkSW52YWxpZCBnYW1lIHN0YXRlIGZvciBwYXNzZWQgZ2FtZUlkAwkBAAAAAiE9AAAAAggFAAAAAWkAAAAGY2FsbGVyBQAAAAZTRVJWRVIJAAACAAAAAQIAAAArUmVndWxhciB3aXRoZHJhdyBjYW4gYmUgZG9uZSBieSBzZXJ2ZXIgb25seQQAAAAMd2luQnlUaW1lb3V0CQAAZgAAAAIJAABlAAAAAgUAAAAGaGVpZ2h0BQAAAA1zdGFydGVkSGVpZ2h0BQAAABNSQU5ET1JBQ0xFVElNRUZSQU1FBAAAAApyYW5kQ2hvaXNlAwUAAAAMd2luQnlUaW1lb3V0CQABLwAAAAIFAAAADHBsYXllckNob2ljZQAAAAAAAAAAAQkBAAAAEmdlbmVyYXRlUmFuZENob2lzZQAAAAIFAAAABmdhbWVJZAUAAAAHcnNhU2lnbgQAAAAJcGxheWVyV2luCQEAAAALaXNQbGF5ZXJXaW4AAAACBQAAAAxwbGF5ZXJDaG9pY2UFAAAACnJhbmRDaG9pc2UEAAAADW5ld0dhbWVTdGF0dXMDBQAAAAlwbGF5ZXJXaW4FAAAACFNUQVRFV09OBQAAAAlTVEFURUxPU1QEAAAAC25ld0dhbWVEYXRhCQEAAAAOZmluaXNoR2FtZURhdGEAAAAEBQAAAAhnYW1lRGF0YQUAAAANbmV3R2FtZVN0YXR1cwUAAAAKcmFuZENob2lzZQUAAAAMd2luQnlUaW1lb3V0CQAETgAAAAIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAGZ2FtZUlkBQAAAAtuZXdHYW1lRGF0YQkABEwAAAACCQEAAAAWZGVjcmVhc2VSZXNlcnZlZEFtb3VudAAAAAMFAAAABmdhbWVJZAUAAAAHYXNzZXRJZAUAAAAJd2luQW1vdW50BQAAAANuaWwDBQAAAAlwbGF5ZXJXaW4JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAANcGxheWVyQWRkcmVzcwUAAAAJd2luQW1vdW50CQABkQAAAAIFAAAABkFTU0VUUwUAAAAHYXNzZXRJZAUAAAADbmlsBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAAAwkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAN0dHgFAAAAByRtYXRjaDAEAAAAB2Fzc2V0SWQJAQAAABV2YWxpZGF0ZUFuZEdldEFzc2V0SWQAAAABCAUAAAADdHR4AAAAB2Fzc2V0SWQJAABnAAAAAgkAAGUAAAACCQEAAAAPZ2V0QXNzZXRCYWxhbmNlAAAAAQgFAAAAA3R0eAAAAAdhc3NldElkCAUAAAADdHR4AAAABmFtb3VudAkBAAAACGdldEludE9yAAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQUAAAAHYXNzZXRJZAAAAAAAAAAAAAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAA3N0eAUAAAAHJG1hdGNoMAMDCQAAAAAAAAIJAQAAAAhnZXRJbnRPcgAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAAAAAAgkBAAAACGdldEludE9yAAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAcJAAAAAAAAAgkBAAAACGdldEludE9yAAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQAAAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAcHBz4b64k=",
    "chainId": 84,
    "height": 1643414,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 921cQV3NjtRLNtq8Kk3UT62X4wYWgD7kq2Kwxmn4VRbD
Next: EzkncbAfPAMFL7pHEye5HMDz51ASkLNDPprVp3SHupHH

Diff: 
Old New Differences
192 192  
193 193  func formatGameDataS (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = makeString([gameStatus, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, if ((randOrEmpty == ""))
194 194      then ""
195 -     else ("_" + randOrEmpty)], "_")
195 +     else randOrEmpty], "_")
196 196  
197 197  
198 198  func formatGameData (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = formatGameDataS(gameStatus, playerChoice, playerPubKey58, toString(startedHeight), toString(winAmount), toString(assetId), randOrEmpty)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 4 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let WAVESD = 100000000
5 5  
6 6  let USDND = 1000000
7 7  
8 8  let EGGD = 100
9 9  
10 10  let DECIMALS = [WAVESD, USDND, EGGD]
11 11  
12 12  let ASSETS = [unit, fromBase58String("25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), fromBase58String("HsEwWuuQjUohrX26Fx8tg5eiL4LDD7um6jqNqFgERx6g")]
13 13  
14 14  let BETDIVIDERS = [1, 1, 10]
15 15  
16 16  let MINFEEWAVES = ((5 * WAVESD) / 1000)
17 17  
18 18  let BET1 = 1
19 19  
20 20  let BET2 = 2
21 21  
22 22  let BET4 = 4
23 23  
24 24  let BET8 = 8
25 25  
26 26  let BET14 = 14
27 27  
28 28  let RATEMULT = 10000
29 29  
30 30  let RATE1 = 39655
31 31  
32 32  let RATE2 = 24600
33 33  
34 34  let RATE3 = 19000
35 35  
36 36  let RATE4 = 14200
37 37  
38 38  let RATE5 = 11400
39 39  
40 40  let RATES = [RATE1, RATE2, RATE3, RATE4, RATE5]
41 41  
42 42  let BETS = [BET1, BET2, BET4, BET8, BET14]
43 43  
44 44  let IdxGameState = 0
45 45  
46 46  let IdxPlayerChoice = 1
47 47  
48 48  let IdxPlayerPubKey58 = 2
49 49  
50 50  let IdxStartedHeight = 3
51 51  
52 52  let IdxWinAmount = 4
53 53  
54 54  let IdxAssetId = 5
55 55  
56 56  let RESERVATIONKEY = ["$RESERVED_AMOUNT_WAVES", "$RESERVED_AMOUNT_USDN", "$RESERVED_AMOUNT_EGG"]
57 57  
58 58  let GAMESCOUNTERKEY = "$GAME_NUM"
59 59  
60 60  let RSAPUBLIC64KEY = "$RSA_PUBLIC64"
61 61  
62 62  let SERVERADDRESSKEY = "$BENZ_ADDRESS"
63 63  
64 64  let RANDTIMEFRAMEKEY = "$RAND_ORACLE_TIMEFRAME"
65 65  
66 66  let STATESUBMITTED = "SUBMITTED"
67 67  
68 68  let STATEWON = "WON"
69 69  
70 70  let STATELOST = "LOST"
71 71  
72 72  func getStringOrFail (key) = valueOrErrorMessage(getString(this, key), (key + " key is not specified in this.state"))
73 73  
74 74  
75 75  let RSAPUBLIC = fromBase64String(getStringOrFail(RSAPUBLIC64KEY))
76 76  
77 77  let SERVER = addressFromStringValue(getStringOrFail(SERVERADDRESSKEY))
78 78  
79 79  let RANDORACLETIMEFRAME = valueOrElse(getInteger(this, RANDTIMEFRAMEKEY), 7200)
80 80  
81 81  func getIntOr (key,default) = if (isDefined(getInteger(this, key)))
82 82      then getIntegerValue(this, key)
83 83      else default
84 84  
85 85  
86 86  func setInt (key,value) = IntegerEntry(key, value)
87 87  
88 88  
89 89  func incrementInt (key) = setInt(key, (getIntOr(key, -1) + 1))
90 90  
91 91  
92 92  func changeInt (key,by) = setInt(key, (getIntOr(key, 0) + by))
93 93  
94 94  
95 95  func getAssetBalance (assetIdOrUnit) = match assetIdOrUnit {
96 96      case assetId: ByteVector => 
97 97          assetBalance(this, assetId)
98 98      case _ => 
99 99          wavesBalance(this).available
100 100  }
101 101  
102 102  
103 103  func increaseReserveAmount (winAmount,assetId) = {
104 104      let newReservedAmount = (getIntOr(RESERVATIONKEY[assetId], 0) + winAmount)
105 105      if ((newReservedAmount > getAssetBalance(ASSETS[assetId])))
106 106          then throw("Insufficient funds on Dice Roller account. Transaction was rejected for your safety.")
107 107          else newReservedAmount
108 108      }
109 109  
110 110  
111 111  func decreaseReservedAmount (gameId,assetId,winAmount) = if ((0 > (getIntOr(RESERVATIONKEY[assetId], 0) - winAmount)))
112 112      then throw("Invalid Dice Roller account state - reserved amount is less than 0")
113 113      else changeInt(RESERVATIONKEY[assetId], -(winAmount))
114 114  
115 115  
116 116  func validateAndGetAssetId (assetId) = if ((assetId == ASSETS[0]))
117 117      then 0
118 118      else if ((assetId == ASSETS[1]))
119 119          then 1
120 120          else if ((assetId == ASSETS[2]))
121 121              then 2
122 122              else throw("Invalid payment asset")
123 123  
124 124  
125 125  func validateBetAndGetWinAmount (bet,internalAssetId,playerChoice) = {
126 126      let dicesCount = size(playerChoice)
127 127      func checkAmount (a,x) =     if (a)
128 128          then true
129 129          else (bet == ((x * DECIMALS[internalAssetId]) / BETDIVIDERS[internalAssetId]))
130 130  
131 131      if (!({
132 132          let $l = BETS
133 133          let $s = size($l)
134 134          let $acc0 = false
135 135          func 1 ($a,$i) =         if (($i >= $s))
136 136              then $a
137 137              else checkAmount($a, $l[$i])
138 138  
139 139          func 2 ($a,$i) =         if (($i >= $s))
140 140              then $a
141 141              else throw("List size exceeds 5")
142 142  
143 143          2(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5)
144 144          }))
145 145          then throw("Bet amount is not valid")
146 146          else if ((parseInt(playerChoice) == unit))
147 147              then throw("Invalid player's choice")
148 148              else if (if ((1 > dicesCount))
149 149                  then true
150 150                  else (dicesCount > 5))
151 151                  then throw("Invalid dices count in player's choice")
152 152                  else ((bet * RATES[(dicesCount - 1)]) / RATEMULT)
153 153      }
154 154  
155 155  
156 156  func generateRandChoise (gameId,rsaSign) = {
157 157      let rsaSigValid = rsaVerify_16Kb(SHA256, toBytes(gameId), rsaSign, RSAPUBLIC)
158 158      if (!(rsaSigValid))
159 159          then throw("Invalid RSA signature")
160 160          else {
161 161              let rand = (toInt(sha256(rsaSign)) % 6)
162 162              let result = if ((0 > rand))
163 163                  then (-1 * rand)
164 164                  else rand
165 165              toString((result + 1))
166 166              }
167 167      }
168 168  
169 169  
170 170  func isPlayerWin (playerChoice,randChoise) = {
171 171      let s = size(playerChoice)
172 172      func check (a,x) =     if (a)
173 173          then true
174 174          else if ((s >= x))
175 175              then (take(drop(playerChoice, (x - 1)), 1) == randChoise)
176 176              else false
177 177  
178 178      let $l = [1, 2, 3, 4, 5]
179 179      let $s = size($l)
180 180      let $acc0 = false
181 181      func 1 ($a,$i) =     if (($i >= $s))
182 182          then $a
183 183          else check($a, $l[$i])
184 184  
185 185      func 2 ($a,$i) =     if (($i >= $s))
186 186          then $a
187 187          else throw("List size exceeds 5")
188 188  
189 189      2(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5)
190 190      }
191 191  
192 192  
193 193  func formatGameDataS (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = makeString([gameStatus, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, if ((randOrEmpty == ""))
194 194      then ""
195 -     else ("_" + randOrEmpty)], "_")
195 +     else randOrEmpty], "_")
196 196  
197 197  
198 198  func formatGameData (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = formatGameDataS(gameStatus, playerChoice, playerPubKey58, toString(startedHeight), toString(winAmount), toString(assetId), randOrEmpty)
199 199  
200 200  
201 201  func finishGameData (origGameData,gameStatus,rand,winByTimeout) = {
202 202      let finishGameData = formatGameDataS(gameStatus, origGameData[IdxPlayerChoice], origGameData[IdxPlayerPubKey58], origGameData[IdxStartedHeight], origGameData[IdxWinAmount], origGameData[IdxAssetId], rand)
203 203      if (winByTimeout)
204 204          then (finishGameData + "_TIMEOUT")
205 205          else finishGameData
206 206      }
207 207  
208 208  
209 209  func extractGameData (gameId) = split(match getString(this, gameId) {
210 210      case str: String => 
211 211          str
212 212      case _ => 
213 213          throw((("Game: " + gameId) + " not found."))
214 214  }, "_")
215 215  
216 216  
217 217  @Callable(i)
218 218  func constructor (rsaPublic64,benzAddress,randOracleTimeFrame) = if ((addressFromPublicKey(i.callerPublicKey) != this))
219 219      then throw("not authorized")
220 220      else [StringEntry(RSAPUBLIC64KEY, rsaPublic64), StringEntry(SERVERADDRESSKEY, benzAddress), IntegerEntry(RANDTIMEFRAMEKEY, randOracleTimeFrame)]
221 221  
222 222  
223 223  
224 224  @Callable(i)
225 225  func bet (playerChoice) = {
226 226      let gameId = toBase58String(i.transactionId)
227 227      if ((1 >= size(i.payments)))
228 228          then throw("2 payments must be attached")
229 229          else if (isDefined(getString(this, gameId)))
230 230              then throw((("Bet for: " + gameId) + " was already made."))
231 231              else {
232 232                  let betPmt = value(i.payments[0])
233 233                  let feePmt = value(i.payments[1])
234 234                  if (isDefined(feePmt.assetId))
235 235                      then throw("feePmt (2nd payment) assetId must be in Waves")
236 236                      else if ((MINFEEWAVES > feePmt.amount))
237 237                          then throw("feePmt (2nd payment) must be >= 0.005 Waves")
238 238                          else {
239 239                              let internalAssetId = validateAndGetAssetId(betPmt.assetId)
240 240                              let commission = feePmt.amount
241 241                              let winAmount = validateBetAndGetWinAmount(betPmt.amount, internalAssetId, playerChoice)
242 242                              let playerPubKey58 = toBase58String(i.callerPublicKey)
243 243                              let gameData = formatGameData(STATESUBMITTED, playerChoice, playerPubKey58, height, winAmount, internalAssetId, "")
244 244  [IntegerEntry(RESERVATIONKEY[internalAssetId], increaseReserveAmount(winAmount, internalAssetId)), incrementInt(GAMESCOUNTERKEY), StringEntry(gameId, gameData), ScriptTransfer(SERVER, commission, feePmt.assetId)]
245 245                              }
246 246                  }
247 247      }
248 248  
249 249  
250 250  
251 251  @Callable(i)
252 252  func withdraw (gameId,rsaSign) = {
253 253      let gameData = extractGameData(gameId)
254 254      let gameState = gameData[IdxGameState]
255 255      let playerChoice = gameData[IdxPlayerChoice]
256 256      let startedHeight = parseIntValue(gameData[IdxStartedHeight])
257 257      let winAmount = parseIntValue(gameData[IdxWinAmount])
258 258      let assetId = parseIntValue(gameData[IdxAssetId])
259 259      let playerPubKey58 = gameData[IdxPlayerPubKey58]
260 260      let playerAddress = addressFromPublicKey(fromBase58String(playerPubKey58))
261 261      if ((gameState != STATESUBMITTED))
262 262          then throw("Invalid game state for passed gameId")
263 263          else if ((i.caller != SERVER))
264 264              then throw("Regular withdraw can be done by server only")
265 265              else {
266 266                  let winByTimeout = ((height - startedHeight) > RANDORACLETIMEFRAME)
267 267                  let randChoise = if (winByTimeout)
268 268                      then take(playerChoice, 1)
269 269                      else generateRandChoise(gameId, rsaSign)
270 270                  let playerWin = isPlayerWin(playerChoice, randChoise)
271 271                  let newGameStatus = if (playerWin)
272 272                      then STATEWON
273 273                      else STATELOST
274 274                  let newGameData = finishGameData(gameData, newGameStatus, randChoise, winByTimeout)
275 275                  ([StringEntry(gameId, newGameData), decreaseReservedAmount(gameId, assetId, winAmount)] ++ (if (playerWin)
276 276                      then [ScriptTransfer(playerAddress, winAmount, ASSETS[assetId])]
277 277                      else nil))
278 278                  }
279 279      }
280 280  
281 281  
282 282  @Verifier(tx)
283 283  func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
284 284      then     match tx {
285 285          case ttx: TransferTransaction => 
286 286              let assetId = validateAndGetAssetId(ttx.assetId)
287 287              ((getAssetBalance(ttx.assetId) - ttx.amount) >= getIntOr(RESERVATIONKEY[assetId], 0))
288 288          case stx: SetScriptTransaction => 
289 289              if (if ((getIntOr(RESERVATIONKEY[0], 0) == 0))
290 290                  then (getIntOr(RESERVATIONKEY[1], 0) == 0)
291 291                  else false)
292 292                  then (getIntOr(RESERVATIONKEY[2], 0) == 0)
293 293                  else false
294 294          case _ => 
295 295              false
296 296      }
297 297      else false
298 298

Old	New		Differences
192	192
193	193		func formatGameDataS (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = makeString([gameStatus, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, if ((randOrEmpty == ""))
194	194		then ""
195		-	else ~~("_" +~~ randOrEmpty)], "_")
	195	+	else randOrEmpty], "_")
196	196
197	197
198	198		func formatGameData (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = formatGameDataS(gameStatus, playerChoice, playerPubKey58, toString(startedHeight), toString(winAmount), toString(assetId), randOrEmpty)

Old	New		Differences
1	1		{-# STDLIB_VERSION 4 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let WAVESD = 100000000
5	5
6	6		let USDND = 1000000
7	7
8	8		let EGGD = 100
9	9
10	10		let DECIMALS = [WAVESD, USDND, EGGD]
11	11
12	12		let ASSETS = [unit, fromBase58String("25FEqEjRkqK6yCkiT7Lz6SAYz7gUFCtxfCChnrVFD5AT"), fromBase58String("HsEwWuuQjUohrX26Fx8tg5eiL4LDD7um6jqNqFgERx6g")]
13	13
14	14		let BETDIVIDERS = [1, 1, 10]
15	15
16	16		let MINFEEWAVES = ((5 * WAVESD) / 1000)
17	17
18	18		let BET1 = 1
19	19
20	20		let BET2 = 2
21	21
22	22		let BET4 = 4
23	23
24	24		let BET8 = 8
25	25
26	26		let BET14 = 14
27	27
28	28		let RATEMULT = 10000
29	29
30	30		let RATE1 = 39655
31	31
32	32		let RATE2 = 24600
33	33
34	34		let RATE3 = 19000
35	35
36	36		let RATE4 = 14200
37	37
38	38		let RATE5 = 11400
39	39
40	40		let RATES = [RATE1, RATE2, RATE3, RATE4, RATE5]
41	41
42	42		let BETS = [BET1, BET2, BET4, BET8, BET14]
43	43
44	44		let IdxGameState = 0
45	45
46	46		let IdxPlayerChoice = 1
47	47
48	48		let IdxPlayerPubKey58 = 2
49	49
50	50		let IdxStartedHeight = 3
51	51
52	52		let IdxWinAmount = 4
53	53
54	54		let IdxAssetId = 5
55	55
56	56		let RESERVATIONKEY = ["$RESERVED_AMOUNT_WAVES", "$RESERVED_AMOUNT_USDN", "$RESERVED_AMOUNT_EGG"]
57	57
58	58		let GAMESCOUNTERKEY = "$GAME_NUM"
59	59
60	60		let RSAPUBLIC64KEY = "$RSA_PUBLIC64"
61	61
62	62		let SERVERADDRESSKEY = "$BENZ_ADDRESS"
63	63
64	64		let RANDTIMEFRAMEKEY = "$RAND_ORACLE_TIMEFRAME"
65	65
66	66		let STATESUBMITTED = "SUBMITTED"
67	67
68	68		let STATEWON = "WON"
69	69
70	70		let STATELOST = "LOST"
71	71
72	72		func getStringOrFail (key) = valueOrErrorMessage(getString(this, key), (key + " key is not specified in this.state"))
73	73
74	74
75	75		let RSAPUBLIC = fromBase64String(getStringOrFail(RSAPUBLIC64KEY))
76	76
77	77		let SERVER = addressFromStringValue(getStringOrFail(SERVERADDRESSKEY))
78	78
79	79		let RANDORACLETIMEFRAME = valueOrElse(getInteger(this, RANDTIMEFRAMEKEY), 7200)
80	80
81	81		func getIntOr (key,default) = if (isDefined(getInteger(this, key)))
82	82		then getIntegerValue(this, key)
83	83		else default
84	84
85	85
86	86		func setInt (key,value) = IntegerEntry(key, value)
87	87
88	88
89	89		func incrementInt (key) = setInt(key, (getIntOr(key, -1) + 1))
90	90
91	91
92	92		func changeInt (key,by) = setInt(key, (getIntOr(key, 0) + by))
93	93
94	94
95	95		func getAssetBalance (assetIdOrUnit) = match assetIdOrUnit {
96	96		case assetId: ByteVector =>
97	97		assetBalance(this, assetId)
98	98		case _ =>
99	99		wavesBalance(this).available
100	100		}
101	101
102	102
103	103		func increaseReserveAmount (winAmount,assetId) = {
104	104		let newReservedAmount = (getIntOr(RESERVATIONKEY[assetId], 0) + winAmount)
105	105		if ((newReservedAmount > getAssetBalance(ASSETS[assetId])))
106	106		then throw("Insufficient funds on Dice Roller account. Transaction was rejected for your safety.")
107	107		else newReservedAmount
108	108		}
109	109
110	110
111	111		func decreaseReservedAmount (gameId,assetId,winAmount) = if ((0 > (getIntOr(RESERVATIONKEY[assetId], 0) - winAmount)))
112	112		then throw("Invalid Dice Roller account state - reserved amount is less than 0")
113	113		else changeInt(RESERVATIONKEY[assetId], -(winAmount))
114	114
115	115
116	116		func validateAndGetAssetId (assetId) = if ((assetId == ASSETS[0]))
117	117		then 0
118	118		else if ((assetId == ASSETS[1]))
119	119		then 1
120	120		else if ((assetId == ASSETS[2]))
121	121		then 2
122	122		else throw("Invalid payment asset")
123	123
124	124
125	125		func validateBetAndGetWinAmount (bet,internalAssetId,playerChoice) = {
126	126		let dicesCount = size(playerChoice)
127	127		func checkAmount (a,x) = if (a)
128	128		then true
129	129		else (bet == ((x * DECIMALS[internalAssetId]) / BETDIVIDERS[internalAssetId]))
130	130
131	131		if (!({
132	132		let $l = BETS
133	133		let $s = size($l)
134	134		let $acc0 = false
135	135		func 1 ($a,$i) = if (($i >= $s))
136	136		then $a
137	137		else checkAmount($a, $l[$i])
138	138
139	139		func 2 ($a,$i) = if (($i >= $s))
140	140		then $a
141	141		else throw("List size exceeds 5")
142	142
143	143		2(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5)
144	144		}))
145	145		then throw("Bet amount is not valid")
146	146		else if ((parseInt(playerChoice) == unit))
147	147		then throw("Invalid player's choice")
148	148		else if (if ((1 > dicesCount))
149	149		then true
150	150		else (dicesCount > 5))
151	151		then throw("Invalid dices count in player's choice")
152	152		else ((bet * RATES[(dicesCount - 1)]) / RATEMULT)
153	153		}
154	154
155	155
156	156		func generateRandChoise (gameId,rsaSign) = {
157	157		let rsaSigValid = rsaVerify_16Kb(SHA256, toBytes(gameId), rsaSign, RSAPUBLIC)
158	158		if (!(rsaSigValid))
159	159		then throw("Invalid RSA signature")
160	160		else {
161	161		let rand = (toInt(sha256(rsaSign)) % 6)
162	162		let result = if ((0 > rand))
163	163		then (-1 * rand)
164	164		else rand
165	165		toString((result + 1))
166	166		}
167	167		}
168	168
169	169
170	170		func isPlayerWin (playerChoice,randChoise) = {
171	171		let s = size(playerChoice)
172	172		func check (a,x) = if (a)
173	173		then true
174	174		else if ((s >= x))
175	175		then (take(drop(playerChoice, (x - 1)), 1) == randChoise)
176	176		else false
177	177
178	178		let $l = [1, 2, 3, 4, 5]
179	179		let $s = size($l)
180	180		let $acc0 = false
181	181		func 1 ($a,$i) = if (($i >= $s))
182	182		then $a
183	183		else check($a, $l[$i])
184	184
185	185		func 2 ($a,$i) = if (($i >= $s))
186	186		then $a
187	187		else throw("List size exceeds 5")
188	188
189	189		2(1(1(1(1(1($acc0, 0), 1), 2), 3), 4), 5)
190	190		}
191	191
192	192
193	193		func formatGameDataS (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = makeString([gameStatus, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, if ((randOrEmpty == ""))
194	194		then ""
195		-	else ~~("_" +~~ randOrEmpty)], "_")
	195	+	else randOrEmpty], "_")
196	196
197	197
198	198		func formatGameData (gameStatus,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = formatGameDataS(gameStatus, playerChoice, playerPubKey58, toString(startedHeight), toString(winAmount), toString(assetId), randOrEmpty)
199	199
200	200
201	201		func finishGameData (origGameData,gameStatus,rand,winByTimeout) = {
202	202		let finishGameData = formatGameDataS(gameStatus, origGameData[IdxPlayerChoice], origGameData[IdxPlayerPubKey58], origGameData[IdxStartedHeight], origGameData[IdxWinAmount], origGameData[IdxAssetId], rand)
203	203		if (winByTimeout)
204	204		then (finishGameData + "_TIMEOUT")
205	205		else finishGameData
206	206		}
207	207
208	208
209	209		func extractGameData (gameId) = split(match getString(this, gameId) {
210	210		case str: String =>
211	211		str
212	212		case _ =>
213	213		throw((("Game: " + gameId) + " not found."))
214	214		}, "_")
215	215
216	216
217	217		@Callable(i)
218	218		func constructor (rsaPublic64,benzAddress,randOracleTimeFrame) = if ((addressFromPublicKey(i.callerPublicKey) != this))
219	219		then throw("not authorized")
220	220		else [StringEntry(RSAPUBLIC64KEY, rsaPublic64), StringEntry(SERVERADDRESSKEY, benzAddress), IntegerEntry(RANDTIMEFRAMEKEY, randOracleTimeFrame)]
221	221
222	222
223	223
224	224		@Callable(i)
225	225		func bet (playerChoice) = {
226	226		let gameId = toBase58String(i.transactionId)
227	227		if ((1 >= size(i.payments)))
228	228		then throw("2 payments must be attached")
229	229		else if (isDefined(getString(this, gameId)))
230	230		then throw((("Bet for: " + gameId) + " was already made."))
231	231		else {
232	232		let betPmt = value(i.payments[0])
233	233		let feePmt = value(i.payments[1])
234	234		if (isDefined(feePmt.assetId))
235	235		then throw("feePmt (2nd payment) assetId must be in Waves")
236	236		else if ((MINFEEWAVES > feePmt.amount))
237	237		then throw("feePmt (2nd payment) must be >= 0.005 Waves")
238	238		else {
239	239		let internalAssetId = validateAndGetAssetId(betPmt.assetId)
240	240		let commission = feePmt.amount
241	241		let winAmount = validateBetAndGetWinAmount(betPmt.amount, internalAssetId, playerChoice)
242	242		let playerPubKey58 = toBase58String(i.callerPublicKey)
243	243		let gameData = formatGameData(STATESUBMITTED, playerChoice, playerPubKey58, height, winAmount, internalAssetId, "")
244	244		[IntegerEntry(RESERVATIONKEY[internalAssetId], increaseReserveAmount(winAmount, internalAssetId)), incrementInt(GAMESCOUNTERKEY), StringEntry(gameId, gameData), ScriptTransfer(SERVER, commission, feePmt.assetId)]
245	245		}
246	246		}
247	247		}
248	248
249	249
250	250
251	251		@Callable(i)
252	252		func withdraw (gameId,rsaSign) = {
253	253		let gameData = extractGameData(gameId)
254	254		let gameState = gameData[IdxGameState]
255	255		let playerChoice = gameData[IdxPlayerChoice]
256	256		let startedHeight = parseIntValue(gameData[IdxStartedHeight])
257	257		let winAmount = parseIntValue(gameData[IdxWinAmount])
258	258		let assetId = parseIntValue(gameData[IdxAssetId])
259	259		let playerPubKey58 = gameData[IdxPlayerPubKey58]
260	260		let playerAddress = addressFromPublicKey(fromBase58String(playerPubKey58))
261	261		if ((gameState != STATESUBMITTED))
262	262		then throw("Invalid game state for passed gameId")
263	263		else if ((i.caller != SERVER))
264	264		then throw("Regular withdraw can be done by server only")
265	265		else {
266	266		let winByTimeout = ((height - startedHeight) > RANDORACLETIMEFRAME)
267	267		let randChoise = if (winByTimeout)
268	268		then take(playerChoice, 1)
269	269		else generateRandChoise(gameId, rsaSign)
270	270		let playerWin = isPlayerWin(playerChoice, randChoise)
271	271		let newGameStatus = if (playerWin)
272	272		then STATEWON
273	273		else STATELOST
274	274		let newGameData = finishGameData(gameData, newGameStatus, randChoise, winByTimeout)
275	275		([StringEntry(gameId, newGameData), decreaseReservedAmount(gameId, assetId, winAmount)] ++ (if (playerWin)
276	276		then [ScriptTransfer(playerAddress, winAmount, ASSETS[assetId])]
277	277		else nil))
278	278		}
279	279		}
280	280
281	281
282	282		@Verifier(tx)
283	283		func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
284	284		then match tx {
285	285		case ttx: TransferTransaction =>
286	286		let assetId = validateAndGetAssetId(ttx.assetId)
287	287		((getAssetBalance(ttx.assetId) - ttx.amount) >= getIntOr(RESERVATIONKEY[assetId], 0))
288	288		case stx: SetScriptTransaction =>
289	289		if (if ((getIntOr(RESERVATIONKEY[0], 0) == 0))
290	290		then (getIntOr(RESERVATIONKEY[1], 0) == 0)
291	291		else false)
292	292		then (getIntOr(RESERVATIONKEY[2], 0) == 0)
293	293		else false
294	294		case _ =>
295	295		false
296	296		}
297	297		else false
298	298

github/deemru/w8io/3ef1775 
58.02 ms ◑