tx · 2pUdMuhHHC5kL1vq5CFtJbzu9ivD69vTmwu3VnVUjwXs

3P5bczozZttGuLUPJfz25bE8HtzXHtWnzYv:  -0.01500000 Waves

2020.04.29 20:26 [2039592] smart account 3P5bczozZttGuLUPJfz25bE8HtzXHtWnzYv > SELF 0.00000000 Waves

{ "type": 13, "id": "2pUdMuhHHC5kL1vq5CFtJbzu9ivD69vTmwu3VnVUjwXs", "fee": 1500000, "feeAssetId": null, "timestamp": 1588181267793, "version": 1, "sender": "3P5bczozZttGuLUPJfz25bE8HtzXHtWnzYv", "senderPublicKey": "CQxNnWynVxPVdzu1ghpBPceE5nVQzsngc4uYy6PgKD6a", "proofs": [ "5Dtxf8YsoE2KRTFWXXmj31m7hYy7NjeiUidF7x7xk2ywHYdahGGAVpn9VQUyrW9iZhBEgNgfB5Xpqq3AsvwGbt3h" ], "script": "base64:AAIDAAAAAAAAAA0IARIDCgEIEgQKAggCAAAAKQAAAAAJUlNBUFVCTElDCQACWwAAAAECAAABj2Jhc2U2NDpNSUlCSWpBTkJna3Foa2lHOXcwQkFRRUZBQU9DQVE4QU1JSUJDZ0tDQVFFQWxlbXI5NUoxalpVczdjSm1ybW1sTjR6bzdZVnNCSnpJZUpkazhMREZHaFVLU0k2eWZzMjBaeUplMjErNkdKd05uS1VVMVV5b2MxN3dTV01La3JaME1NdllFK1o1QWlpanZCSzRzU0ozSWdHamRVOC9OaEk4Q0JEdTBGK3hSTTlxM1RCM0xMYkR5NXNCZHVkWWZIZnNVT2MrTVR2QUQ2OW4yN2RiMlJoOCt5WlFNdHVia3VUUU5wODlzcGhIUWFMR3lRRmFObEsvTmEzbEZ4Nm9tcXphYTFnam9wbFVyNnJ2WUtnZkFJQ1VCM3pWbUpTaGlFaTd3N1IwaFdsTlJEM3FjWmpDVU9OU3BGbzRXYnprbkdPYXp3ODRCK0lNSUZuSXBYV3pRTDhSWDB2TmNmc0J2TERmTTZrMlphY3F3eU1LYUxMcWlnZEJpR2RKN1crMGxPU3RPUUlEQVFBQgAAAAAGU0VSVkVSCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAECAAAAIzNQTVQ5d3VuN0JCN0pBQlN1aFRKcEZnSm9lZ1JmWXcyZTZkAAAAABNSQU5ET1JBQ0xFVElNRUZSQU1FAAAAAAAAABwgAAAAAARCRVQxAAAAAAAAAAABAAAAAARCRVQyAAAAAAAAAAACAAAAAARCRVQ0AAAAAAAAAAAEAAAAAARCRVQ4AAAAAAAAAAAIAAAAAAVCRVQxNAAAAAAAAAAADgAAAAAEQkVUUwkABEwAAAACBQAAAARCRVQxCQAETAAAAAIFAAAABEJFVDIJAARMAAAAAgUAAAAEQkVUNAkABEwAAAACBQAAAARCRVQ4CQAETAAAAAIFAAAABUJFVDE0BQAAAANuaWwAAAAABldBVkVTRAAAAAAABfXhAAAAAAAFVVNETkQAAAAAAAAPQkAAAAAACERFQ0lNQUxTCQAETAAAAAIFAAAABldBVkVTRAkABEwAAAACBQAAAAVVU0RORAUAAAADbmlsAAAAAAZBU1NFVFMJAARMAAAAAgUAAAAEdW5pdAkABEwAAAACCQACWQAAAAECAAAALERHMnhGa1BkRHdLVW9Ca3pHQWhRdExwU0d6ZlhMaUNZUEV6ZUtIMkFkMjRwBQAAAANuaWwAAAAACkNPTU1JU1NJT04JAARMAAAAAgkAAGkAAAACCQAAaAAAAAIAAAAAAAAAAAUFAAAABldBVkVTRAAAAAAAAAAD6AkABEwAAAACCQAAaAAAAAIJAABpAAAAAgkAAGgAAAACAAAAAAAAAAAFBQAAAAVVU0RORAAAAAAAAAAD6AAAAAAAAAAACgUAAAADbmlsAQAAAA1nZXRDb21taXNzaW9uAAAAAQAAAAdhc3NldElkCQABkQAAAAIFAAAACkNPTU1JU1NJT04FAAAAB2Fzc2V0SWQAAAAACFJBVEVNVUxUAAAAAAAAACcQAAAAAARSQVRFAAAAAAAAAEo4AAAAAAxJZHhHYW1lU3RhdGUAAAAAAAAAAAAAAAAAD0lkeFBsYXllckNob2ljZQAAAAAAAAAAAQAAAAARSWR4UGxheWVyUHViS2V5NTgAAAAAAAAAAAIAAAAAEElkeFN0YXJ0ZWRIZWlnaHQAAAAAAAAAAAMAAAAADElkeFdpbkFtb3VudAAAAAAAAAAABAAAAAAKSWR4QXNzZXRJZAAAAAAAAAAABQAAAAAOUkVTRVJWQVRJT05LRVkJAARMAAAAAgIAAAAWJFJFU0VSVkVEX0FNT1VOVF9XQVZFUwkABEwAAAACAgAAABUkUkVTRVJWRURfQU1PVU5UX1VTRE4FAAAAA25pbAAAAAAPR0FNRVNDT1VOVEVSS0VZAgAAAAkkR0FNRV9OVU0AAAAADlNUQVRFU1VCTUlUVEVEAgAAAAlTVUJNSVRURUQAAAAACFNUQVRFV09OAgAAAANXT04AAAAACVNUQVRFTE9TVAIAAAAETE9TVAEAAAAIZ2V0SW50T3IAAAACAAAAA2tleQAAAAdkZWZhdWx0AwkBAAAACWlzRGVmaW5lZAAAAAEJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAANrZXkFAAAAB2RlZmF1bHQBAAAABnNldEludAAAAAIAAAADa2V5AAAABXZhbHVlCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAADa2V5BQAAAAV2YWx1ZQEAAAAMaW5jcmVtZW50SW50AAAAAQAAAANrZXkJAQAAAAZzZXRJbnQAAAACBQAAAANrZXkJAABkAAAAAgkBAAAACGdldEludE9yAAAAAgUAAAADa2V5AP//////////AAAAAAAAAAABAQAAAAljaGFuZ2VJbnQAAAACAAAAA2tleQAAAAJieQkBAAAABnNldEludAAAAAIFAAAAA2tleQkAAGQAAAACCQEAAAAIZ2V0SW50T3IAAAACBQAAAANrZXkAAAAAAAAAAAAFAAAAAmJ5AQAAABVpbmNyZWFzZVJlc2VydmVBbW91bnQAAAACAAAACXdpbkFtb3VudAAAAAdhc3NldElkBAAAABFuZXdSZXNlcnZlZEFtb3VudAkAAGQAAAACCQEAAAAIZ2V0SW50T3IAAAACCQABkQAAAAIFAAAADlJFU0VSVkFUSU9OS0VZBQAAAAdhc3NldElkAAAAAAAAAAAABQAAAAl3aW5BbW91bnQDCQAAZgAAAAIFAAAAEW5ld1Jlc2VydmVkQW1vdW50CQEAAAAMd2F2ZXNCYWxhbmNlAAAAAQUAAAAEdGhpcwkAAAIAAAABAgAAAFRJbnN1ZmZpY2llbnQgZnVuZHMgb24gRGljZSBSb2xsZXIgYWNjb3VudC4gVHJhbnNhY3Rpb24gd2FzIHJlamVjdGVkIGZvciB5b3VyIHNhZmV0eS4FAAAAEW5ld1Jlc2VydmVkQW1vdW50AQAAABZkZWNyZWFzZVJlc2VydmVkQW1vdW50AAAAAwAAAAZnYW1lSWQAAAAHYXNzZXRJZAAAAAl3aW5BbW91bnQDCQAAZgAAAAIAAAAAAAAAAAAJAABlAAAAAgkBAAAACGdldEludE9yAAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQUAAAAHYXNzZXRJZAAAAAAAAAAAAAUAAAAJd2luQW1vdW50CQAAAgAAAAECAAAAQkludmFsaWQgRGljZSBSb2xsZXIgYWNjb3VudCBzdGF0ZSAtIHJlc2VydmVkIGFtb3VudCBpcyBsZXNzIHRoYW4gMAkBAAAACWNoYW5nZUludAAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkFAAAAB2Fzc2V0SWQJAQAAAAEtAAAAAQUAAAAJd2luQW1vdW50AQAAABV2YWxpZGF0ZUFuZEdldEFzc2V0SWQAAAABAAAAB2Fzc2V0SWQDCQAAAAAAAAIFAAAAB2Fzc2V0SWQJAAGRAAAAAgUAAAAGQVNTRVRTAAAAAAAAAAAAAAAAAAAAAAAAAwkAAAAAAAACBQAAAAdhc3NldElkCQABkQAAAAIFAAAABkFTU0VUUwAAAAAAAAAAAQAAAAAAAAAAAQkAAAIAAAABAgAAABVJbnZhbGlkIHBheW1lbnQgYXNzZXQBAAAAGnZhbGlkYXRlQmV0QW5kR2V0V2luQW1vdW50AAAAAwAAAAliZXRBbW91bnQAAAAHYXNzZXRJZAAAAAxwbGF5ZXJDaG9pY2UEAAAACmRpY2VzQ291bnQJAAExAAAAAQUAAAAMcGxheWVyQ2hvaWNlBAAAAApjb21taXNzaW9uCQEAAAANZ2V0Q29tbWlzc2lvbgAAAAEFAAAAB2Fzc2V0SWQKAQAAAAtjaGVja0Ftb3VudAAAAAIAAAABYQAAAAF4AwUAAAABYQYJAAAAAAAAAgUAAAAJYmV0QW1vdW50CQAAZAAAAAIJAABoAAAAAgUAAAABeAkAAZEAAAACBQAAAAhERUNJTUFMUwUAAAAHYXNzZXRJZAUAAAAKY29tbWlzc2lvbgMJAQAAAAEhAAAAAQQAAAANJGxpc3Q0NDM5NDQ3MgUAAAAEQkVUUwQAAAANJHNpemU0NDM5NDQ3MgkAAZAAAAABBQAAAA0kbGlzdDQ0Mzk0NDcyBAAAAA0kYWNjMDQ0Mzk0NDcyBwMJAAAAAAAAAgUAAAANJHNpemU0NDM5NDQ3MgAAAAAAAAAAAAUAAAANJGFjYzA0NDM5NDQ3MgQAAAANJGFjYzE0NDM5NDQ3MgkBAAAAC2NoZWNrQW1vdW50AAAAAgUAAAANJGFjYzA0NDM5NDQ3MgkAAZEAAAACBQAAAA0kbGlzdDQ0Mzk0NDcyAAAAAAAAAAAAAwkAAAAAAAACBQAAAA0kc2l6ZTQ0Mzk0NDcyAAAAAAAAAAABBQAAAA0kYWNjMTQ0Mzk0NDcyBAAAAA0kYWNjMjQ0Mzk0NDcyCQEAAAALY2hlY2tBbW91bnQAAAACBQAAAA0kYWNjMTQ0Mzk0NDcyCQABkQAAAAIFAAAADSRsaXN0NDQzOTQ0NzIAAAAAAAAAAAEDCQAAAAAAAAIFAAAADSRzaXplNDQzOTQ0NzIAAAAAAAAAAAIFAAAADSRhY2MyNDQzOTQ0NzIEAAAADSRhY2MzNDQzOTQ0NzIJAQAAAAtjaGVja0Ftb3VudAAAAAIFAAAADSRhY2MyNDQzOTQ0NzIJAAGRAAAAAgUAAAANJGxpc3Q0NDM5NDQ3MgAAAAAAAAAAAgMJAAAAAAAAAgUAAAANJHNpemU0NDM5NDQ3MgAAAAAAAAAAAwUAAAANJGFjYzM0NDM5NDQ3MgQAAAANJGFjYzQ0NDM5NDQ3MgkBAAAAC2NoZWNrQW1vdW50AAAAAgUAAAANJGFjYzM0NDM5NDQ3MgkAAZEAAAACBQAAAA0kbGlzdDQ0Mzk0NDcyAAAAAAAAAAADAwkAAAAAAAACBQAAAA0kc2l6ZTQ0Mzk0NDcyAAAAAAAAAAAEBQAAAA0kYWNjNDQ0Mzk0NDcyBAAAAA0kYWNjNTQ0Mzk0NDcyCQEAAAALY2hlY2tBbW91bnQAAAACBQAAAA0kYWNjNDQ0Mzk0NDcyCQABkQAAAAIFAAAADSRsaXN0NDQzOTQ0NzIAAAAAAAAAAAQDCQAAAAAAAAIFAAAADSRzaXplNDQzOTQ0NzIAAAAAAAAAAAUFAAAADSRhY2M1NDQzOTQ0NzIEAAAADSRhY2M2NDQzOTQ0NzIJAQAAAAtjaGVja0Ftb3VudAAAAAIFAAAADSRhY2M1NDQzOTQ0NzIJAAGRAAAAAgUAAAANJGxpc3Q0NDM5NDQ3MgAAAAAAAAAABQkAAAIAAAABAgAAABJMaXN0IHNpemUgZXhjZWVkIDUJAAACAAAAAQIAAAAXQmV0IGFtb3VudCBpcyBub3QgdmFsaWQDCQAAAAAAAAIJAAS2AAAAAQUAAAAMcGxheWVyQ2hvaWNlBQAAAAR1bml0CQAAAgAAAAECAAAAF0ludmFsaWQgcGxheWVyJ3MgY2hvaWNlAwkBAAAAAiE9AAAAAgUAAAAKZGljZXNDb3VudAAAAAAAAAAAAQkAAAIAAAABAgAAACFJbnZhbGlkIGxlbmd0aCBvZiBwbGF5ZXIncyBjaG9pY2UEAAAAA2JldAkAAGUAAAACBQAAAAliZXRBbW91bnQFAAAACmNvbW1pc3Npb24JAABpAAAAAgkAAGgAAAACBQAAAANiZXQFAAAABFJBVEUFAAAACFJBVEVNVUxUAQAAAA9nZW5lcmF0ZVJhbmRJbnQAAAACAAAABmdhbWVJZAAAAAdyc2FTaWduBAAAAAtyc2FTaWdWYWxpZAkAAfgAAAAEBQAAAAZTSEEyNTYJAAGbAAAAAQUAAAAGZ2FtZUlkBQAAAAdyc2FTaWduBQAAAAlSU0FQVUJMSUMDCQEAAAABIQAAAAEFAAAAC3JzYVNpZ1ZhbGlkCQAAAgAAAAECAAAAFUludmFsaWQgUlNBIHNpZ25hdHVyZQQAAAAEcmFuZAkAAGoAAAACCQAEsQAAAAEJAAH3AAAAAQUAAAAHcnNhU2lnbgAAAAAAAAAAAgQAAAAGcmVzdWx0AwkAAGYAAAACAAAAAAAAAAAABQAAAARyYW5kCQAAaAAAAAIA//////////8FAAAABHJhbmQFAAAABHJhbmQJAAGkAAAAAQUAAAAGcmVzdWx0AQAAAAtpc1BsYXllcldpbgAAAAIAAAAMcGxheWVyQ2hvaWNlAAAAB3JhbmRTdHIEAAAAAXMJAAExAAAAAQUAAAAMcGxheWVyQ2hvaWNlAwkAAAAAAAACBQAAAAFzAAAAAAAAAAABCQAAAAAAAAIFAAAADHBsYXllckNob2ljZQUAAAAHcmFuZFN0cgcBAAAADmZvcm1hdEdhbWVEYXRhAAAABwAAAAlnYW1lU3RhdGUAAAAMcGxheWVyQ2hvaWNlAAAADnBsYXllclB1YktleTU4AAAADXN0YXJ0ZWRIZWlnaHQAAAAJd2luQW1vdW50AAAAB2Fzc2V0SWQAAAALcmFuZE9yRW1wdHkJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAlnYW1lU3RhdGUCAAAAAV8FAAAADHBsYXllckNob2ljZQIAAAABXwUAAAAOcGxheWVyUHViS2V5NTgCAAAAAV8JAAGkAAAAAQUAAAANc3RhcnRlZEhlaWdodAIAAAABXwkAAaQAAAABBQAAAAl3aW5BbW91bnQCAAAAAV8JAAGkAAAAAQUAAAAHYXNzZXRJZAMJAAAAAAAAAgUAAAALcmFuZE9yRW1wdHkCAAAAAAIAAAAACQABLAAAAAICAAAAAV8FAAAAC3JhbmRPckVtcHR5AQAAAA9leHRyYWN0R2FtZURhdGEAAAABAAAABmdhbWVJZAkABLUAAAACBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAABmdhbWVJZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAANzdHIFAAAAByRtYXRjaDAFAAAAA3N0cgkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAGR2FtZTogBQAAAAZnYW1lSWQCAAAACyBub3QgZm91bmQuAgAAAAFfAQAAAAx3aW5TY3JpcHRTZXQAAAAHAAAABmdhbWVJZAAAAA1wbGF5ZXJBZGRyZXNzAAAACXdpbkFtb3VudAAAAAdhc3NldElkAAAADm5ld0dhbWVEYXRhU3RyAAAADHdpbkJ5VGltZW91dAAAABFkZWNyZWFzZWRSZXNlcnZlcwQAAAAOd1NldENvbW1vbkRhdGEJAARMAAAAAgUAAAARZGVjcmVhc2VkUmVzZXJ2ZXMFAAAAA25pbAQAAAAOdFNldENvbW1vbkRhdGEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAANcGxheWVyQWRkcmVzcwUAAAAJd2luQW1vdW50CQABkQAAAAIFAAAABkFTU0VUUwUAAAAHYXNzZXRJZAUAAAADbmlsAwUAAAAMd2luQnlUaW1lb3V0BAAAABZuZXdHYW1lRGF0YVN0ckFkanVzdGVkCQABLAAAAAIFAAAADm5ld0dhbWVEYXRhU3RyAgAAAAhfVElNRU9VVAQAAAAIZ2FtZURhdGEJAQAAAAlEYXRhRW50cnkAAAACBQAAAAZnYW1lSWQFAAAAFm5ld0dhbWVEYXRhU3RyQWRqdXN0ZWQJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIFAAAACGdhbWVEYXRhBQAAAA53U2V0Q29tbW9uRGF0YQkBAAAAC1RyYW5zZmVyU2V0AAAAAQUAAAAOdFNldENvbW1vbkRhdGEEAAAACGdhbWVEYXRhCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAGZ2FtZUlkBQAAAA5uZXdHYW1lRGF0YVN0cgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgUAAAAIZ2FtZURhdGEFAAAADndTZXRDb21tb25EYXRhCQEAAAALVHJhbnNmZXJTZXQAAAABBQAAAA50U2V0Q29tbW9uRGF0YQAAAAIAAAABaQEAAAADYmV0AAAAAQAAAAxwbGF5ZXJDaG9pY2UEAAAABmdhbWVJZAkAAlgAAAABCAUAAAABaQAAAA10cmFuc2FjdGlvbklkAwkAAAAAAAACCAUAAAABaQAAAAdwYXltZW50BQAAAAR1bml0CQAAAgAAAAECAAAACk5vIHBheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzBQAAAAZnYW1lSWQJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAACUJldCBmb3I6IAUAAAAGZ2FtZUlkAgAAABIgd2FzIGFscmVhZHkgbWFkZS4EAAAAAXAJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAQAAAAHYXNzZXRJZAkBAAAAFXZhbGlkYXRlQW5kR2V0QXNzZXRJZAAAAAEIBQAAAAFwAAAAB2Fzc2V0SWQEAAAACmNvbW1pc3Npb24JAQAAAA1nZXRDb21taXNzaW9uAAAAAQUAAAAHYXNzZXRJZAQAAAAJd2luQW1vdW50CQEAAAAadmFsaWRhdGVCZXRBbmRHZXRXaW5BbW91bnQAAAADCAUAAAABcAAAAAZhbW91bnQFAAAAB2Fzc2V0SWQFAAAADHBsYXllckNob2ljZQQAAAAIdHhJZFVzZWQJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAABHRoaXMFAAAABmdhbWVJZAQAAAAOcGxheWVyUHViS2V5NTgJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BAAAAAtnYW1lRGF0YVN0cgkBAAAADmZvcm1hdEdhbWVEYXRhAAAABwUAAAAOU1RBVEVTVUJNSVRURUQFAAAADHBsYXllckNob2ljZQUAAAAOcGxheWVyUHViS2V5NTgFAAAABmhlaWdodAUAAAAJd2luQW1vdW50BQAAAAdhc3NldElkAgAAAAAJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABkQAAAAIFAAAADlJFU0VSVkFUSU9OS0VZBQAAAAdhc3NldElkCQEAAAAVaW5jcmVhc2VSZXNlcnZlQW1vdW50AAAAAgUAAAAJd2luQW1vdW50BQAAAAdhc3NldElkCQAETAAAAAIJAQAAAAxpbmNyZW1lbnRJbnQAAAABBQAAAA9HQU1FU0NPVU5URVJLRVkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABmdhbWVJZAUAAAALZ2FtZURhdGFTdHIFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAZTRVJWRVIFAAAACmNvbW1pc3Npb24FAAAABHVuaXQFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAGZ2FtZUlkAAAAB3JzYVNpZ24EAAAACGdhbWVEYXRhCQEAAAAPZXh0cmFjdEdhbWVEYXRhAAAAAQUAAAAGZ2FtZUlkBAAAAAlnYW1lU3RhdGUJAAGRAAAAAgUAAAAIZ2FtZURhdGEFAAAADElkeEdhbWVTdGF0ZQQAAAAMcGxheWVyQ2hvaWNlCQABkQAAAAIFAAAACGdhbWVEYXRhBQAAAA9JZHhQbGF5ZXJDaG9pY2UEAAAADXN0YXJ0ZWRIZWlnaHQJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAAhnYW1lRGF0YQUAAAAQSWR4U3RhcnRlZEhlaWdodAQAAAAJd2luQW1vdW50CQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAAIZ2FtZURhdGEFAAAADElkeFdpbkFtb3VudAQAAAAHYXNzZXRJZAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAACGdhbWVEYXRhBQAAAApJZHhBc3NldElkBAAAAA5wbGF5ZXJQdWJLZXk1OAkAAZEAAAACBQAAAAhnYW1lRGF0YQUAAAARSWR4UGxheWVyUHViS2V5NTgEAAAADXBsYXllckFkZHJlc3MJAQAAABRhZGRyZXNzRnJvbVB1YmxpY0tleQAAAAEJAAJZAAAAAQUAAAAOcGxheWVyUHViS2V5NTgEAAAADHdpbkJ5VGltZW91dAkAAGYAAAACCQAAZQAAAAIFAAAABmhlaWdodAUAAAANc3RhcnRlZEhlaWdodAUAAAATUkFORE9SQUNMRVRJTUVGUkFNRQQAAAARZGVjcmVhc2VkUmVzZXJ2ZXMJAQAAABZkZWNyZWFzZVJlc2VydmVkQW1vdW50AAAAAwUAAAAGZ2FtZUlkBQAAAAdhc3NldElkBQAAAAl3aW5BbW91bnQDCQEAAAACIT0AAAACBQAAAAlnYW1lU3RhdGUFAAAADlNUQVRFU1VCTUlUVEVECQAAAgAAAAECAAAAJEludmFsaWQgZ2FtZSBzdGF0ZSBmb3IgcGFzc2VkIGdhbWVJZAMFAAAADHdpbkJ5VGltZW91dAQAAAAHcmFuZFN0cgkAAS8AAAACBQAAAAxwbGF5ZXJDaG9pY2UAAAAAAAAAAAEEAAAADm5ld0dhbWVEYXRhU3RyCQEAAAAOZm9ybWF0R2FtZURhdGEAAAAHBQAAAAhTVEFURVdPTgUAAAAMcGxheWVyQ2hvaWNlBQAAAA5wbGF5ZXJQdWJLZXk1OAUAAAANc3RhcnRlZEhlaWdodAUAAAAJd2luQW1vdW50BQAAAAdhc3NldElkBQAAAAdyYW5kU3RyCQEAAAAMd2luU2NyaXB0U2V0AAAABwUAAAAGZ2FtZUlkBQAAAA1wbGF5ZXJBZGRyZXNzBQAAAAl3aW5BbW91bnQFAAAAB2Fzc2V0SWQFAAAADm5ld0dhbWVEYXRhU3RyBQAAAAx3aW5CeVRpbWVvdXQFAAAAEWRlY3JlYXNlZFJlc2VydmVzBAAAAAdyYW5kU3RyCQEAAAAPZ2VuZXJhdGVSYW5kSW50AAAAAgUAAAAGZ2FtZUlkBQAAAAdyc2FTaWduAwkBAAAAC2lzUGxheWVyV2luAAAAAgUAAAAMcGxheWVyQ2hvaWNlBQAAAAdyYW5kU3RyBAAAAA5uZXdHYW1lRGF0YVN0cgkBAAAADmZvcm1hdEdhbWVEYXRhAAAABwUAAAAIU1RBVEVXT04FAAAADHBsYXllckNob2ljZQUAAAAOcGxheWVyUHViS2V5NTgFAAAADXN0YXJ0ZWRIZWlnaHQFAAAACXdpbkFtb3VudAUAAAAHYXNzZXRJZAUAAAAHcmFuZFN0cgkBAAAADHdpblNjcmlwdFNldAAAAAcFAAAABmdhbWVJZAUAAAANcGxheWVyQWRkcmVzcwUAAAAJd2luQW1vdW50BQAAAAdhc3NldElkBQAAAA5uZXdHYW1lRGF0YVN0cgUAAAAMd2luQnlUaW1lb3V0BQAAABFkZWNyZWFzZWRSZXNlcnZlcwQAAAAObmV3R2FtZURhdGFTdHIJAQAAAA5mb3JtYXRHYW1lRGF0YQAAAAcFAAAACVNUQVRFTE9TVAUAAAAMcGxheWVyQ2hvaWNlBQAAAA5wbGF5ZXJQdWJLZXk1OAUAAAANc3RhcnRlZEhlaWdodAUAAAAJd2luQW1vdW50BQAAAAdhc3NldElkBQAAAAdyYW5kU3RyCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAZnYW1lSWQFAAAADm5ld0dhbWVEYXRhU3RyCQAETAAAAAIFAAAAEWRlY3JlYXNlZFJlc2VydmVzBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAAAwkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXkEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAN0dHgFAAAAByRtYXRjaDAEAAAAB2Fzc2V0SWQJAQAAABV2YWxpZGF0ZUFuZEdldEFzc2V0SWQAAAABCAUAAAADdHR4AAAAB2Fzc2V0SWQJAABnAAAAAgkAAGUAAAACCQAD6wAAAAIFAAAABHRoaXMIBQAAAAN0dHgAAAAHYXNzZXRJZAgFAAAAA3R0eAAAAAZhbW91bnQJAQAAAAhnZXRJbnRPcgAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkFAAAAB2Fzc2V0SWQAAAAAAAAAAAADCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAANzdHgFAAAAByRtYXRjaDADCQAAAAAAAAIJAQAAAAhnZXRJbnRPcgAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJAAAAAAAAAgkBAAAACGdldEludE9yAAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQAAAAAAAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAcHB2jKYm0=", "chainId": 87, "height": 2039592, "spentComplexity": 0 } View: original | compacted Prev: 3q9HKXyU6wEWBpvD3izxX27bo34LhoGUgrA7NVE6Sgp4 Next: ANeFp91PdUNosbtwv4V6iWo5tNfJV3EokgDS1erdHVSM Diff:
OldNewDifferences
55
66 let SERVER = addressFromStringValue("3PMT9wun7BB7JABSuhTJpFgJoegRfYw2e6d")
77
8-let RANDORACLETIMEFRAME = 4320
8+let RANDORACLETIMEFRAME = 7200
99
10-let WAVELET = ((100 * 1000) * 1000)
10+let BET1 = 1
1111
12-let COMMISSION = ((5 * WAVELET) / 1000)
12+let BET2 = 2
1313
14-let BET1 = (1 * WAVELET)
14+let BET4 = 4
1515
16-let BET2 = (2 * WAVELET)
16+let BET8 = 8
1717
18-let BET4 = (4 * WAVELET)
18+let BET14 = 14
1919
20-let BET8 = (8 * WAVELET)
20+let BETS = [BET1, BET2, BET4, BET8, BET14]
2121
22-let BET14 = (14 * WAVELET)
22+let WAVESD = 100000000
23+
24+let USDND = 1000000
25+
26+let DECIMALS = [WAVESD, USDND]
27+
28+let ASSETS = [unit, fromBase58String("DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p")]
29+
30+let COMMISSION = [((5 * WAVESD) / 1000), (((5 * USDND) / 1000) * 10)]
31+
32+func getCommission (assetId) = COMMISSION[assetId]
33+
2334
2435 let RATEMULT = 10000
2536
3344
3445 let IdxStartedHeight = 3
3546
36-let IdxWinAmt = 4
47+let IdxWinAmount = 4
3748
38-let IdxRandOrEmpty = 5
49+let IdxAssetId = 5
3950
40-let RESERVATIONKEY = "$RESERVED_AMOUNT"
51+let RESERVATIONKEY = ["$RESERVED_AMOUNT_WAVES", "$RESERVED_AMOUNT_USDN"]
4152
4253 let GAMESCOUNTERKEY = "$GAME_NUM"
4354
4758
4859 let STATELOST = "LOST"
4960
50-func IncrementGameNum () = {
51- let gameNum = match getInteger(this, GAMESCOUNTERKEY) {
52- case num: Int =>
53- num
54- case _ =>
55- 0
56- }
57- (gameNum + 1)
58- }
61+func getIntOr (key,default) = if (isDefined(getInteger(this, key)))
62+ then getIntegerValue(this, key)
63+ else default
5964
6065
61-func ExtractReservedAmt () = match getInteger(this, RESERVATIONKEY) {
62- case a: Int =>
63- a
64- case _ =>
65- 0
66-}
66+func setInt (key,value) = DataEntry(key, value)
6767
6868
69-func ValidateAndIncreaseReservedAmt (winAmt) = {
70- let newReservedAmount = (ExtractReservedAmt() + winAmt)
71- let balance = wavesBalance(this)
72- if ((newReservedAmount > balance))
69+func incrementInt (key) = setInt(key, (getIntOr(key, -1) + 1))
70+
71+
72+func changeInt (key,by) = setInt(key, (getIntOr(key, 0) + by))
73+
74+
75+func increaseReserveAmount (winAmount,assetId) = {
76+ let newReservedAmount = (getIntOr(RESERVATIONKEY[assetId], 0) + winAmount)
77+ if ((newReservedAmount > wavesBalance(this)))
7378 then throw("Insufficient funds on Dice Roller account. Transaction was rejected for your safety.")
7479 else newReservedAmount
7580 }
7681
7782
78-func DecreaseReservedAmt (gameId,winAmt) = {
79- let newReservedAmount = (ExtractReservedAmt() - winAmt)
80- if ((0 > newReservedAmount))
81- then throw("Invalid Dice Roller account state - reserved amount is less than 0")
82- else DataEntry(RESERVATIONKEY, newReservedAmount)
83+func decreaseReservedAmount (gameId,assetId,winAmount) = if ((0 > (getIntOr(RESERVATIONKEY[assetId], 0) - winAmount)))
84+ then throw("Invalid Dice Roller account state - reserved amount is less than 0")
85+ else changeInt(RESERVATIONKEY[assetId], -(winAmount))
86+
87+
88+func validateAndGetAssetId (assetId) = if ((assetId == ASSETS[0]))
89+ then 0
90+ else if ((assetId == ASSETS[1]))
91+ then 1
92+ else throw("Invalid payment asset")
93+
94+
95+func validateBetAndGetWinAmount (betAmount,assetId,playerChoice) = {
96+ let dicesCount = size(playerChoice)
97+ let commission = getCommission(assetId)
98+ func checkAmount (a,x) = if (a)
99+ then true
100+ else (betAmount == ((x * DECIMALS[assetId]) + commission))
101+
102+ if (!({
103+ let $list44394472 = BETS
104+ let $size44394472 = size($list44394472)
105+ let $acc044394472 = false
106+ if (($size44394472 == 0))
107+ then $acc044394472
108+ else {
109+ let $acc144394472 = checkAmount($acc044394472, $list44394472[0])
110+ if (($size44394472 == 1))
111+ then $acc144394472
112+ else {
113+ let $acc244394472 = checkAmount($acc144394472, $list44394472[1])
114+ if (($size44394472 == 2))
115+ then $acc244394472
116+ else {
117+ let $acc344394472 = checkAmount($acc244394472, $list44394472[2])
118+ if (($size44394472 == 3))
119+ then $acc344394472
120+ else {
121+ let $acc444394472 = checkAmount($acc344394472, $list44394472[3])
122+ if (($size44394472 == 4))
123+ then $acc444394472
124+ else {
125+ let $acc544394472 = checkAmount($acc444394472, $list44394472[4])
126+ if (($size44394472 == 5))
127+ then $acc544394472
128+ else {
129+ let $acc644394472 = checkAmount($acc544394472, $list44394472[5])
130+ throw("List size exceed 5")
131+ }
132+ }
133+ }
134+ }
135+ }
136+ }
137+ }))
138+ then throw("Bet amount is not valid")
139+ else if ((parseInt(playerChoice) == unit))
140+ then throw("Invalid player's choice")
141+ else if ((dicesCount != 1))
142+ then throw("Invalid length of player's choice")
143+ else {
144+ let bet = (betAmount - commission)
145+ ((bet * RATE) / RATEMULT)
146+ }
83147 }
84148
85149
86-func ValidateBetAndDefineWinAmt (betAmt,playerChoice) = {
87- let betAmtValid = if (if (if (if ((betAmt == (BET1 + COMMISSION)))
88- then true
89- else (betAmt == (BET2 + COMMISSION)))
90- then true
91- else (betAmt == (BET4 + COMMISSION)))
92- then true
93- else (betAmt == (BET8 + COMMISSION)))
94- then true
95- else (betAmt == (BET14 + COMMISSION))
96- if (betAmtValid)
97- then {
98- let choiceSize = size(playerChoice)
99- let bet = (betAmt - COMMISSION)
100- if ((choiceSize == 1))
101- then ((bet * RATE) / RATEMULT)
102- else throw("Invalid player's choice format")
150+func generateRandInt (gameId,rsaSign) = {
151+ let rsaSigValid = rsaVerify(SHA256, toBytes(gameId), rsaSign, RSAPUBLIC)
152+ if (!(rsaSigValid))
153+ then throw("Invalid RSA signature")
154+ else {
155+ let rand = (toInt(sha256(rsaSign)) % 2)
156+ let result = if ((0 > rand))
157+ then (-1 * rand)
158+ else rand
159+ toString(result)
103160 }
104- else throw("Bet amount is not in range")
105161 }
106162
107163
108-func RandToStr (r) = if ((r == 0))
109- then "0"
110- else if ((r == 1))
111- then "1"
112- else throw(("Unsupported r parameter passed: expected=[0,...,1] actual=" + toString(r)))
113-
114-
115-func GenerateRandInt (gameId,rsaSign) = {
116- let rsaSigValid = rsaVerify(SHA256, toBytes(gameId), rsaSign, RSAPUBLIC)
117- if (rsaSigValid)
118- then {
119- let rand = (toInt(sha256(rsaSign)) % 2)
120- if ((0 > rand))
121- then (-1 * rand)
122- else rand
123- }
124- else throw("Invalid RSA signature")
125- }
126-
127-
128-func IsPlayerWin (playerChoice,randStr) = {
164+func isPlayerWin (playerChoice,randStr) = {
129165 let s = size(playerChoice)
130166 if ((s == 1))
131167 then (playerChoice == randStr)
133169 }
134170
135171
136-func FormatGameDataParam (p) = {
137- let s = size(p)
138- if ((s == 0))
139- then throw("Parameter size must be greater then 0")
140- else if ((s > 99))
141- then throw("Parameter size must be less then 100")
142- else if ((10 > s))
143- then (("0" + toString(s)) + p)
144- else (toString(s) + p)
145- }
172+func formatGameData (gameState,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = (((((((((((gameState + "_") + playerChoice) + "_") + playerPubKey58) + "_") + toString(startedHeight)) + "_") + toString(winAmount)) + "_") + toString(assetId)) + (if ((randOrEmpty == ""))
173+ then ""
174+ else ("_" + randOrEmpty)))
146175
147176
148-func FormatGameDataStr (gameState,playerChoice,playerPubKey58,startedHeight,winAmt,randOrEmpty) = {
149- let fullStateStr = ((((((((FormatGameDataParam(gameState) + "_") + FormatGameDataParam(playerChoice)) + "_") + FormatGameDataParam(playerPubKey58)) + "_") + FormatGameDataParam(toString(startedHeight))) + "_") + FormatGameDataParam(toString(winAmt)))
150- if ((randOrEmpty == ""))
151- then fullStateStr
152- else ((fullStateStr + "_") + FormatGameDataParam(randOrEmpty))
153- }
177+func extractGameData (gameId) = split(match getString(this, gameId) {
178+ case str: String =>
179+ str
180+ case _ =>
181+ throw((("Game: " + gameId) + " not found."))
182+}, "_")
154183
155184
156-func RemoveUnderscoreIfPresent (remaining) = if ((size(remaining) > 0))
157- then drop(remaining, 1)
158- else remaining
159-
160-
161-func ParseNextAttribute (remaining) = {
162- let s = size(remaining)
163- if ((s > 0))
164- then {
165- let nn = parseIntValue(take(remaining, 2))
166- let v = take(drop(remaining, 2), nn)
167- let tmpRemaining = drop(remaining, (nn + 2))
168- let remainingState = RemoveUnderscoreIfPresent(tmpRemaining)
169-[v, remainingState]
170- }
171- else throw("Empty string was passed into parseNextAttribute func")
172- }
173-
174-
175-func ParseGameRawDataStr (rawStateStr) = {
176- let gameState = ParseNextAttribute(rawStateStr)
177- let playerChoice = ParseNextAttribute(gameState[1])
178- let playerPubKey58 = ParseNextAttribute(playerChoice[1])
179- let startedHeight = ParseNextAttribute(playerPubKey58[1])
180- let winAmt = ParseNextAttribute(startedHeight[1])
181-[gameState[0], playerChoice[0], playerPubKey58[0], startedHeight[0], winAmt[0]]
182- }
183-
184-
185-func ExtractGameDataList (gameId) = {
186- let rawDataStr = match getString(this, gameId) {
187- case str: String =>
188- str
189- case _ =>
190- throw(("Couldn't find game by " + gameId))
191- }
192- ParseGameRawDataStr(rawDataStr)
193- }
194-
195-
196-func WinScriptSet (gameId,playerAddress,winAmt,newGameDataStr,winByTimeout,decreasedReserves) = {
185+func winScriptSet (gameId,playerAddress,winAmount,assetId,newGameDataStr,winByTimeout,decreasedReserves) = {
197186 let wSetCommonData = [decreasedReserves]
198- let tSetCommonData = [ScriptTransfer(playerAddress, winAmt, unit)]
187+ let tSetCommonData = [ScriptTransfer(playerAddress, winAmount, ASSETS[assetId])]
199188 if (winByTimeout)
200189 then {
201- let newGameDataStrAdjusted = ((newGameDataStr + "_") + FormatGameDataParam("TIMEOUT"))
190+ let newGameDataStrAdjusted = (newGameDataStr + "_TIMEOUT")
202191 let gameData = DataEntry(gameId, newGameDataStrAdjusted)
203192 ScriptResult(WriteSet(gameData :: wSetCommonData), TransferSet(tSetCommonData))
204193 }
211200
212201 @Callable(i)
213202 func bet (playerChoice) = {
214- let newGameNum = IncrementGameNum()
215203 let gameId = toBase58String(i.transactionId)
216- let pmt = extract(i.payment)
217- let betNotInWaves = isDefined(pmt.assetId)
218- let feeNotInWaves = isDefined(pmt.assetId)
219- let winAmt = ValidateBetAndDefineWinAmt(pmt.amount, playerChoice)
220- let txIdUsed = isDefined(getString(this, gameId))
221- if (betNotInWaves)
222- then throw("Bet amount must be in Waves")
223- else if (feeNotInWaves)
224- then throw("Transaction's fee must be in Waves")
225- else if (txIdUsed)
226- then throw("Passed txId had been used before. Game aborted.")
227- else {
228- let playerPubKey58 = toBase58String(i.callerPublicKey)
229- let gameDataStr = FormatGameDataStr(STATESUBMITTED, playerChoice, playerPubKey58, height, winAmt, "")
230- ScriptResult(WriteSet([DataEntry(RESERVATIONKEY, ValidateAndIncreaseReservedAmt(winAmt)), DataEntry(GAMESCOUNTERKEY, newGameNum), DataEntry(gameId, gameDataStr)]), TransferSet([ScriptTransfer(SERVER, COMMISSION, unit)]))
231- }
204+ if ((i.payment == unit))
205+ then throw("No payment")
206+ else if (isDefined(getString(this, gameId)))
207+ then throw((("Bet for: " + gameId) + " was already made."))
208+ else {
209+ let p = extract(i.payment)
210+ let assetId = validateAndGetAssetId(p.assetId)
211+ let commission = getCommission(assetId)
212+ let winAmount = validateBetAndGetWinAmount(p.amount, assetId, playerChoice)
213+ let txIdUsed = isDefined(getString(this, gameId))
214+ let playerPubKey58 = toBase58String(i.callerPublicKey)
215+ let gameDataStr = formatGameData(STATESUBMITTED, playerChoice, playerPubKey58, height, winAmount, assetId, "")
216+ ScriptResult(WriteSet([DataEntry(RESERVATIONKEY[assetId], increaseReserveAmount(winAmount, assetId)), incrementInt(GAMESCOUNTERKEY), DataEntry(gameId, gameDataStr)]), TransferSet([ScriptTransfer(SERVER, commission, unit)]))
217+ }
232218 }
233219
234220
235221
236222 @Callable(i)
237223 func withdraw (gameId,rsaSign) = {
238- let gameDataList = ExtractGameDataList(gameId)
239- let gameState = gameDataList[IdxGameState]
240- let playerChoice = gameDataList[IdxPlayerChoice]
241- let startedHeight = parseIntValue(gameDataList[IdxStartedHeight])
242- let winAmt = parseIntValue(gameDataList[IdxWinAmt])
243- let playerPubKey58 = gameDataList[IdxPlayerPubKey58]
224+ let gameData = extractGameData(gameId)
225+ let gameState = gameData[IdxGameState]
226+ let playerChoice = gameData[IdxPlayerChoice]
227+ let startedHeight = parseIntValue(gameData[IdxStartedHeight])
228+ let winAmount = parseIntValue(gameData[IdxWinAmount])
229+ let assetId = parseIntValue(gameData[IdxAssetId])
230+ let playerPubKey58 = gameData[IdxPlayerPubKey58]
244231 let playerAddress = addressFromPublicKey(fromBase58String(playerPubKey58))
245232 let winByTimeout = ((height - startedHeight) > RANDORACLETIMEFRAME)
246- let decreasedReserves = DecreaseReservedAmt(gameId, winAmt)
233+ let decreasedReserves = decreaseReservedAmount(gameId, assetId, winAmount)
247234 if ((gameState != STATESUBMITTED))
248235 then throw("Invalid game state for passed gameId")
249236 else if (winByTimeout)
250237 then {
251238 let randStr = take(playerChoice, 1)
252- let newGameDataStr = FormatGameDataStr(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmt, randStr)
253- WinScriptSet(gameId, playerAddress, winAmt, newGameDataStr, winByTimeout, decreasedReserves)
239+ let newGameDataStr = formatGameData(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randStr)
240+ winScriptSet(gameId, playerAddress, winAmount, assetId, newGameDataStr, winByTimeout, decreasedReserves)
254241 }
255242 else {
256- let randStr = RandToStr(GenerateRandInt(gameId, rsaSign))
257- if (IsPlayerWin(playerChoice, randStr))
243+ let randStr = generateRandInt(gameId, rsaSign)
244+ if (isPlayerWin(playerChoice, randStr))
258245 then {
259- let newGameDataStr = FormatGameDataStr(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmt, randStr)
260- WinScriptSet(gameId, playerAddress, winAmt, newGameDataStr, winByTimeout, decreasedReserves)
246+ let newGameDataStr = formatGameData(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randStr)
247+ winScriptSet(gameId, playerAddress, winAmount, assetId, newGameDataStr, winByTimeout, decreasedReserves)
261248 }
262249 else {
263- let newGameDataStr = FormatGameDataStr(STATELOST, playerChoice, playerPubKey58, startedHeight, winAmt, randStr)
250+ let newGameDataStr = formatGameData(STATELOST, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randStr)
264251 WriteSet([DataEntry(gameId, newGameDataStr), decreasedReserves])
265252 }
266253 }
271258 func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
272259 then match tx {
273260 case ttx: TransferTransaction =>
274- ((wavesBalance(this) - ttx.amount) >= ExtractReservedAmt())
261+ let assetId = validateAndGetAssetId(ttx.assetId)
262+ ((assetBalance(this, ttx.assetId) - ttx.amount) >= getIntOr(RESERVATIONKEY[assetId], 0))
275263 case stx: SetScriptTransaction =>
276- true
264+ if ((getIntOr(RESERVATIONKEY[0], 0) == 0))
265+ then (getIntOr(RESERVATIONKEY[1], 0) == 0)
266+ else false
277267 case _ =>
278268 false
279269 }
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 3 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let RSAPUBLIC = fromBase64String("base64:MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAlemr95J1jZUs7cJmrmmlN4zo7YVsBJzIeJdk8LDFGhUKSI6yfs20ZyJe21+6GJwNnKUU1Uyoc17wSWMKkrZ0MMvYE+Z5AiijvBK4sSJ3IgGjdU8/NhI8CBDu0F+xRM9q3TB3LLbDy5sBdudYfHfsUOc+MTvAD69n27db2Rh8+yZQMtubkuTQNp89sphHQaLGyQFaNlK/Na3lFx6omqzaa1gjoplUr6rvYKgfAICUB3zVmJShiEi7w7R0hWlNRD3qcZjCUONSpFo4WbzknGOazw84B+IMIFnIpXWzQL8RX0vNcfsBvLDfM6k2ZacqwyMKaLLqigdBiGdJ7W+0lOStOQIDAQAB")
55
66 let SERVER = addressFromStringValue("3PMT9wun7BB7JABSuhTJpFgJoegRfYw2e6d")
77
8-let RANDORACLETIMEFRAME = 4320
8+let RANDORACLETIMEFRAME = 7200
99
10-let WAVELET = ((100 * 1000) * 1000)
10+let BET1 = 1
1111
12-let COMMISSION = ((5 * WAVELET) / 1000)
12+let BET2 = 2
1313
14-let BET1 = (1 * WAVELET)
14+let BET4 = 4
1515
16-let BET2 = (2 * WAVELET)
16+let BET8 = 8
1717
18-let BET4 = (4 * WAVELET)
18+let BET14 = 14
1919
20-let BET8 = (8 * WAVELET)
20+let BETS = [BET1, BET2, BET4, BET8, BET14]
2121
22-let BET14 = (14 * WAVELET)
22+let WAVESD = 100000000
23+
24+let USDND = 1000000
25+
26+let DECIMALS = [WAVESD, USDND]
27+
28+let ASSETS = [unit, fromBase58String("DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p")]
29+
30+let COMMISSION = [((5 * WAVESD) / 1000), (((5 * USDND) / 1000) * 10)]
31+
32+func getCommission (assetId) = COMMISSION[assetId]
33+
2334
2435 let RATEMULT = 10000
2536
2637 let RATE = 19000
2738
2839 let IdxGameState = 0
2940
3041 let IdxPlayerChoice = 1
3142
3243 let IdxPlayerPubKey58 = 2
3344
3445 let IdxStartedHeight = 3
3546
36-let IdxWinAmt = 4
47+let IdxWinAmount = 4
3748
38-let IdxRandOrEmpty = 5
49+let IdxAssetId = 5
3950
40-let RESERVATIONKEY = "$RESERVED_AMOUNT"
51+let RESERVATIONKEY = ["$RESERVED_AMOUNT_WAVES", "$RESERVED_AMOUNT_USDN"]
4152
4253 let GAMESCOUNTERKEY = "$GAME_NUM"
4354
4455 let STATESUBMITTED = "SUBMITTED"
4556
4657 let STATEWON = "WON"
4758
4859 let STATELOST = "LOST"
4960
50-func IncrementGameNum () = {
51- let gameNum = match getInteger(this, GAMESCOUNTERKEY) {
52- case num: Int =>
53- num
54- case _ =>
55- 0
56- }
57- (gameNum + 1)
58- }
61+func getIntOr (key,default) = if (isDefined(getInteger(this, key)))
62+ then getIntegerValue(this, key)
63+ else default
5964
6065
61-func ExtractReservedAmt () = match getInteger(this, RESERVATIONKEY) {
62- case a: Int =>
63- a
64- case _ =>
65- 0
66-}
66+func setInt (key,value) = DataEntry(key, value)
6767
6868
69-func ValidateAndIncreaseReservedAmt (winAmt) = {
70- let newReservedAmount = (ExtractReservedAmt() + winAmt)
71- let balance = wavesBalance(this)
72- if ((newReservedAmount > balance))
69+func incrementInt (key) = setInt(key, (getIntOr(key, -1) + 1))
70+
71+
72+func changeInt (key,by) = setInt(key, (getIntOr(key, 0) + by))
73+
74+
75+func increaseReserveAmount (winAmount,assetId) = {
76+ let newReservedAmount = (getIntOr(RESERVATIONKEY[assetId], 0) + winAmount)
77+ if ((newReservedAmount > wavesBalance(this)))
7378 then throw("Insufficient funds on Dice Roller account. Transaction was rejected for your safety.")
7479 else newReservedAmount
7580 }
7681
7782
78-func DecreaseReservedAmt (gameId,winAmt) = {
79- let newReservedAmount = (ExtractReservedAmt() - winAmt)
80- if ((0 > newReservedAmount))
81- then throw("Invalid Dice Roller account state - reserved amount is less than 0")
82- else DataEntry(RESERVATIONKEY, newReservedAmount)
83+func decreaseReservedAmount (gameId,assetId,winAmount) = if ((0 > (getIntOr(RESERVATIONKEY[assetId], 0) - winAmount)))
84+ then throw("Invalid Dice Roller account state - reserved amount is less than 0")
85+ else changeInt(RESERVATIONKEY[assetId], -(winAmount))
86+
87+
88+func validateAndGetAssetId (assetId) = if ((assetId == ASSETS[0]))
89+ then 0
90+ else if ((assetId == ASSETS[1]))
91+ then 1
92+ else throw("Invalid payment asset")
93+
94+
95+func validateBetAndGetWinAmount (betAmount,assetId,playerChoice) = {
96+ let dicesCount = size(playerChoice)
97+ let commission = getCommission(assetId)
98+ func checkAmount (a,x) = if (a)
99+ then true
100+ else (betAmount == ((x * DECIMALS[assetId]) + commission))
101+
102+ if (!({
103+ let $list44394472 = BETS
104+ let $size44394472 = size($list44394472)
105+ let $acc044394472 = false
106+ if (($size44394472 == 0))
107+ then $acc044394472
108+ else {
109+ let $acc144394472 = checkAmount($acc044394472, $list44394472[0])
110+ if (($size44394472 == 1))
111+ then $acc144394472
112+ else {
113+ let $acc244394472 = checkAmount($acc144394472, $list44394472[1])
114+ if (($size44394472 == 2))
115+ then $acc244394472
116+ else {
117+ let $acc344394472 = checkAmount($acc244394472, $list44394472[2])
118+ if (($size44394472 == 3))
119+ then $acc344394472
120+ else {
121+ let $acc444394472 = checkAmount($acc344394472, $list44394472[3])
122+ if (($size44394472 == 4))
123+ then $acc444394472
124+ else {
125+ let $acc544394472 = checkAmount($acc444394472, $list44394472[4])
126+ if (($size44394472 == 5))
127+ then $acc544394472
128+ else {
129+ let $acc644394472 = checkAmount($acc544394472, $list44394472[5])
130+ throw("List size exceed 5")
131+ }
132+ }
133+ }
134+ }
135+ }
136+ }
137+ }))
138+ then throw("Bet amount is not valid")
139+ else if ((parseInt(playerChoice) == unit))
140+ then throw("Invalid player's choice")
141+ else if ((dicesCount != 1))
142+ then throw("Invalid length of player's choice")
143+ else {
144+ let bet = (betAmount - commission)
145+ ((bet * RATE) / RATEMULT)
146+ }
83147 }
84148
85149
86-func ValidateBetAndDefineWinAmt (betAmt,playerChoice) = {
87- let betAmtValid = if (if (if (if ((betAmt == (BET1 + COMMISSION)))
88- then true
89- else (betAmt == (BET2 + COMMISSION)))
90- then true
91- else (betAmt == (BET4 + COMMISSION)))
92- then true
93- else (betAmt == (BET8 + COMMISSION)))
94- then true
95- else (betAmt == (BET14 + COMMISSION))
96- if (betAmtValid)
97- then {
98- let choiceSize = size(playerChoice)
99- let bet = (betAmt - COMMISSION)
100- if ((choiceSize == 1))
101- then ((bet * RATE) / RATEMULT)
102- else throw("Invalid player's choice format")
150+func generateRandInt (gameId,rsaSign) = {
151+ let rsaSigValid = rsaVerify(SHA256, toBytes(gameId), rsaSign, RSAPUBLIC)
152+ if (!(rsaSigValid))
153+ then throw("Invalid RSA signature")
154+ else {
155+ let rand = (toInt(sha256(rsaSign)) % 2)
156+ let result = if ((0 > rand))
157+ then (-1 * rand)
158+ else rand
159+ toString(result)
103160 }
104- else throw("Bet amount is not in range")
105161 }
106162
107163
108-func RandToStr (r) = if ((r == 0))
109- then "0"
110- else if ((r == 1))
111- then "1"
112- else throw(("Unsupported r parameter passed: expected=[0,...,1] actual=" + toString(r)))
113-
114-
115-func GenerateRandInt (gameId,rsaSign) = {
116- let rsaSigValid = rsaVerify(SHA256, toBytes(gameId), rsaSign, RSAPUBLIC)
117- if (rsaSigValid)
118- then {
119- let rand = (toInt(sha256(rsaSign)) % 2)
120- if ((0 > rand))
121- then (-1 * rand)
122- else rand
123- }
124- else throw("Invalid RSA signature")
125- }
126-
127-
128-func IsPlayerWin (playerChoice,randStr) = {
164+func isPlayerWin (playerChoice,randStr) = {
129165 let s = size(playerChoice)
130166 if ((s == 1))
131167 then (playerChoice == randStr)
132168 else false
133169 }
134170
135171
136-func FormatGameDataParam (p) = {
137- let s = size(p)
138- if ((s == 0))
139- then throw("Parameter size must be greater then 0")
140- else if ((s > 99))
141- then throw("Parameter size must be less then 100")
142- else if ((10 > s))
143- then (("0" + toString(s)) + p)
144- else (toString(s) + p)
145- }
172+func formatGameData (gameState,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = (((((((((((gameState + "_") + playerChoice) + "_") + playerPubKey58) + "_") + toString(startedHeight)) + "_") + toString(winAmount)) + "_") + toString(assetId)) + (if ((randOrEmpty == ""))
173+ then ""
174+ else ("_" + randOrEmpty)))
146175
147176
148-func FormatGameDataStr (gameState,playerChoice,playerPubKey58,startedHeight,winAmt,randOrEmpty) = {
149- let fullStateStr = ((((((((FormatGameDataParam(gameState) + "_") + FormatGameDataParam(playerChoice)) + "_") + FormatGameDataParam(playerPubKey58)) + "_") + FormatGameDataParam(toString(startedHeight))) + "_") + FormatGameDataParam(toString(winAmt)))
150- if ((randOrEmpty == ""))
151- then fullStateStr
152- else ((fullStateStr + "_") + FormatGameDataParam(randOrEmpty))
153- }
177+func extractGameData (gameId) = split(match getString(this, gameId) {
178+ case str: String =>
179+ str
180+ case _ =>
181+ throw((("Game: " + gameId) + " not found."))
182+}, "_")
154183
155184
156-func RemoveUnderscoreIfPresent (remaining) = if ((size(remaining) > 0))
157- then drop(remaining, 1)
158- else remaining
159-
160-
161-func ParseNextAttribute (remaining) = {
162- let s = size(remaining)
163- if ((s > 0))
164- then {
165- let nn = parseIntValue(take(remaining, 2))
166- let v = take(drop(remaining, 2), nn)
167- let tmpRemaining = drop(remaining, (nn + 2))
168- let remainingState = RemoveUnderscoreIfPresent(tmpRemaining)
169-[v, remainingState]
170- }
171- else throw("Empty string was passed into parseNextAttribute func")
172- }
173-
174-
175-func ParseGameRawDataStr (rawStateStr) = {
176- let gameState = ParseNextAttribute(rawStateStr)
177- let playerChoice = ParseNextAttribute(gameState[1])
178- let playerPubKey58 = ParseNextAttribute(playerChoice[1])
179- let startedHeight = ParseNextAttribute(playerPubKey58[1])
180- let winAmt = ParseNextAttribute(startedHeight[1])
181-[gameState[0], playerChoice[0], playerPubKey58[0], startedHeight[0], winAmt[0]]
182- }
183-
184-
185-func ExtractGameDataList (gameId) = {
186- let rawDataStr = match getString(this, gameId) {
187- case str: String =>
188- str
189- case _ =>
190- throw(("Couldn't find game by " + gameId))
191- }
192- ParseGameRawDataStr(rawDataStr)
193- }
194-
195-
196-func WinScriptSet (gameId,playerAddress,winAmt,newGameDataStr,winByTimeout,decreasedReserves) = {
185+func winScriptSet (gameId,playerAddress,winAmount,assetId,newGameDataStr,winByTimeout,decreasedReserves) = {
197186 let wSetCommonData = [decreasedReserves]
198- let tSetCommonData = [ScriptTransfer(playerAddress, winAmt, unit)]
187+ let tSetCommonData = [ScriptTransfer(playerAddress, winAmount, ASSETS[assetId])]
199188 if (winByTimeout)
200189 then {
201- let newGameDataStrAdjusted = ((newGameDataStr + "_") + FormatGameDataParam("TIMEOUT"))
190+ let newGameDataStrAdjusted = (newGameDataStr + "_TIMEOUT")
202191 let gameData = DataEntry(gameId, newGameDataStrAdjusted)
203192 ScriptResult(WriteSet(gameData :: wSetCommonData), TransferSet(tSetCommonData))
204193 }
205194 else {
206195 let gameData = DataEntry(gameId, newGameDataStr)
207196 ScriptResult(WriteSet(gameData :: wSetCommonData), TransferSet(tSetCommonData))
208197 }
209198 }
210199
211200
212201 @Callable(i)
213202 func bet (playerChoice) = {
214- let newGameNum = IncrementGameNum()
215203 let gameId = toBase58String(i.transactionId)
216- let pmt = extract(i.payment)
217- let betNotInWaves = isDefined(pmt.assetId)
218- let feeNotInWaves = isDefined(pmt.assetId)
219- let winAmt = ValidateBetAndDefineWinAmt(pmt.amount, playerChoice)
220- let txIdUsed = isDefined(getString(this, gameId))
221- if (betNotInWaves)
222- then throw("Bet amount must be in Waves")
223- else if (feeNotInWaves)
224- then throw("Transaction's fee must be in Waves")
225- else if (txIdUsed)
226- then throw("Passed txId had been used before. Game aborted.")
227- else {
228- let playerPubKey58 = toBase58String(i.callerPublicKey)
229- let gameDataStr = FormatGameDataStr(STATESUBMITTED, playerChoice, playerPubKey58, height, winAmt, "")
230- ScriptResult(WriteSet([DataEntry(RESERVATIONKEY, ValidateAndIncreaseReservedAmt(winAmt)), DataEntry(GAMESCOUNTERKEY, newGameNum), DataEntry(gameId, gameDataStr)]), TransferSet([ScriptTransfer(SERVER, COMMISSION, unit)]))
231- }
204+ if ((i.payment == unit))
205+ then throw("No payment")
206+ else if (isDefined(getString(this, gameId)))
207+ then throw((("Bet for: " + gameId) + " was already made."))
208+ else {
209+ let p = extract(i.payment)
210+ let assetId = validateAndGetAssetId(p.assetId)
211+ let commission = getCommission(assetId)
212+ let winAmount = validateBetAndGetWinAmount(p.amount, assetId, playerChoice)
213+ let txIdUsed = isDefined(getString(this, gameId))
214+ let playerPubKey58 = toBase58String(i.callerPublicKey)
215+ let gameDataStr = formatGameData(STATESUBMITTED, playerChoice, playerPubKey58, height, winAmount, assetId, "")
216+ ScriptResult(WriteSet([DataEntry(RESERVATIONKEY[assetId], increaseReserveAmount(winAmount, assetId)), incrementInt(GAMESCOUNTERKEY), DataEntry(gameId, gameDataStr)]), TransferSet([ScriptTransfer(SERVER, commission, unit)]))
217+ }
232218 }
233219
234220
235221
236222 @Callable(i)
237223 func withdraw (gameId,rsaSign) = {
238- let gameDataList = ExtractGameDataList(gameId)
239- let gameState = gameDataList[IdxGameState]
240- let playerChoice = gameDataList[IdxPlayerChoice]
241- let startedHeight = parseIntValue(gameDataList[IdxStartedHeight])
242- let winAmt = parseIntValue(gameDataList[IdxWinAmt])
243- let playerPubKey58 = gameDataList[IdxPlayerPubKey58]
224+ let gameData = extractGameData(gameId)
225+ let gameState = gameData[IdxGameState]
226+ let playerChoice = gameData[IdxPlayerChoice]
227+ let startedHeight = parseIntValue(gameData[IdxStartedHeight])
228+ let winAmount = parseIntValue(gameData[IdxWinAmount])
229+ let assetId = parseIntValue(gameData[IdxAssetId])
230+ let playerPubKey58 = gameData[IdxPlayerPubKey58]
244231 let playerAddress = addressFromPublicKey(fromBase58String(playerPubKey58))
245232 let winByTimeout = ((height - startedHeight) > RANDORACLETIMEFRAME)
246- let decreasedReserves = DecreaseReservedAmt(gameId, winAmt)
233+ let decreasedReserves = decreaseReservedAmount(gameId, assetId, winAmount)
247234 if ((gameState != STATESUBMITTED))
248235 then throw("Invalid game state for passed gameId")
249236 else if (winByTimeout)
250237 then {
251238 let randStr = take(playerChoice, 1)
252- let newGameDataStr = FormatGameDataStr(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmt, randStr)
253- WinScriptSet(gameId, playerAddress, winAmt, newGameDataStr, winByTimeout, decreasedReserves)
239+ let newGameDataStr = formatGameData(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randStr)
240+ winScriptSet(gameId, playerAddress, winAmount, assetId, newGameDataStr, winByTimeout, decreasedReserves)
254241 }
255242 else {
256- let randStr = RandToStr(GenerateRandInt(gameId, rsaSign))
257- if (IsPlayerWin(playerChoice, randStr))
243+ let randStr = generateRandInt(gameId, rsaSign)
244+ if (isPlayerWin(playerChoice, randStr))
258245 then {
259- let newGameDataStr = FormatGameDataStr(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmt, randStr)
260- WinScriptSet(gameId, playerAddress, winAmt, newGameDataStr, winByTimeout, decreasedReserves)
246+ let newGameDataStr = formatGameData(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randStr)
247+ winScriptSet(gameId, playerAddress, winAmount, assetId, newGameDataStr, winByTimeout, decreasedReserves)
261248 }
262249 else {
263- let newGameDataStr = FormatGameDataStr(STATELOST, playerChoice, playerPubKey58, startedHeight, winAmt, randStr)
250+ let newGameDataStr = formatGameData(STATELOST, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randStr)
264251 WriteSet([DataEntry(gameId, newGameDataStr), decreasedReserves])
265252 }
266253 }
267254 }
268255
269256
270257 @Verifier(tx)
271258 func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
272259 then match tx {
273260 case ttx: TransferTransaction =>
274- ((wavesBalance(this) - ttx.amount) >= ExtractReservedAmt())
261+ let assetId = validateAndGetAssetId(ttx.assetId)
262+ ((assetBalance(this, ttx.assetId) - ttx.amount) >= getIntOr(RESERVATIONKEY[assetId], 0))
275263 case stx: SetScriptTransaction =>
276- true
264+ if ((getIntOr(RESERVATIONKEY[0], 0) == 0))
265+ then (getIntOr(RESERVATIONKEY[1], 0) == 0)
266+ else false
277267 case _ =>
278268 false
279269 }
280270 else false
281271

github/deemru/w8io/6500d08 
88.74 ms