tx · 2rPsgeuQyRGdR7GeMi9KyD44mev3isaogav93jqfabrv

3MswQZGeq94EReAnt8jK9hxXk5ne6mFvH6J:  -0.01500000 Waves

2020.04.29 19:22 [976292] smart account 3MswQZGeq94EReAnt8jK9hxXk5ne6mFvH6J > SELF 0.00000000 Waves

{ "type": 13, "id": "2rPsgeuQyRGdR7GeMi9KyD44mev3isaogav93jqfabrv", "fee": 1500000, "feeAssetId": null, "timestamp": 1588177351275, "version": 1, "sender": "3MswQZGeq94EReAnt8jK9hxXk5ne6mFvH6J", "senderPublicKey": "BSaXro81r1qqeco7Muh7PDVnhGwp2EEdfJa8XTMobqKH", "proofs": [ "3g2GLRuEySpp4qLgZKo4i4kkQhrEfcWy6sP4Gz4unrZiE8nD1pr4fBYm6kb3UjrKEUdtUyUqJ2qAGc2YG4QiZTjt" ], "script": "base64:AAIDAAAAAAAAABIIARIDCgEEEgMKAQgSBAoCCAIAAAAyAAAAAAZXQVZFU0QAAAAAAAX14QAAAAAABVVTRE5EAAAAAAAAD0JAAAAAAAhERUNJTUFMUwkABEwAAAACBQAAAAZXQVZFU0QJAARMAAAAAgUAAAAFVVNETkQFAAAAA25pbAAAAAAGQVNTRVRTCQAETAAAAAIFAAAABHVuaXQJAARMAAAAAgkAAlkAAAABAgAAACwzS0ZYQkdHTENqQTVaMkR1VzREcTlmRERySGpKSlAxWkVrYW9halN6dUtzQwUAAAADbmlsAQAAAA1nZXRDb21taXNzaW9uAAAAAQAAAAdhc3NldElkCQAAaQAAAAIJAABoAAAAAgAAAAAAAAAABQkAAZEAAAACBQAAAAhERUNJTUFMUwUAAAAHYXNzZXRJZAAAAAAAAAAD6AAAAAAJUlNBUFVCTElDCQACWwAAAAECAAABj2Jhc2U2NDpNSUlCSWpBTkJna3Foa2lHOXcwQkFRRUZBQU9DQVE4QU1JSUJDZ0tDQVFFQW1wdVhjSS9vNHBJQjV5d3Y5RE9PR2FwVEJVd1JWbE0vNitINmhGZWxPWHRrcndZL1lJdG1QeEVEcHo3ckFlclFQUWU5dERQRWFBdi9HbmxFenR5Yk9GWGd1OUR6RGU4WW9NUkQxdmFrZ29BY29nbWJZNThRRDZLTWo1SGtvVmoveVROSWM5c3pqNXFoSWxyQWRtYjNLTEw2aFFVN3k4K0pqNjlCV1ZQc2FRZ2tzcFNkZVl0YjF0SFFjN3Q5NW43T1o1NnIyQTdHMytiUWY2blNNa1BrQWhJckVwYkNtNThvaUdCY3pkVGQvTHFGU1ZvdFpzYkw3WWg2U0hMZm5IZUQrUWdjZkpybmFtOE9ITUdKRUpUUlhqSUxlSEdqbFJDUDhvVnBpb0hyeTFTMnhQeDVzVnpJbTJNTStDelllbkFHbG8wajI2YXRCaGlVTG9UdWx3RDNwUUlEQVFBQgAAAAAGU0VSVkVSCQEAAAAcQGV4dHJVc2VyKGFkZHJlc3NGcm9tU3RyaW5nKQAAAAECAAAAIzNONEFpYjVpdWJXaUdNemRUaDZ3V2lWRFZibzMyb2VWVW1IAAAAABNSQU5ET1JBQ0xFVElNRUZSQU1FAAAAAAAAABDgAAAAAA5NQVhCQUxBTkNFRElGRgkAAGgAAAACAAAAAAAAAABGBQAAAAZXQVZFU0QAAAAABEJFVDEAAAAAAAAAAAEAAAAABEJFVDIAAAAAAAAAAAIAAAAABEJFVDQAAAAAAAAAAAQAAAAABEJFVDgAAAAAAAAAAAgAAAAABUJFVDE0AAAAAAAAAAAOAAAAAAhSQVRFTVVMVAAAAAAAAAAnEAAAAAAFUkFURTEAAAAAAAAAmucAAAAABVJBVEUyAAAAAAAAAGAYAAAAAAVSQVRFMwAAAAAAAABKOAAAAAAFUkFURTQAAAAAAAAAN3gAAAAABVJBVEU1AAAAAAAAACyIAAAAAAVSQVRFUwkABEwAAAACBQAAAAVSQVRFMQkABEwAAAACBQAAAAVSQVRFMgkABEwAAAACBQAAAAVSQVRFMwkABEwAAAACBQAAAAVSQVRFNAkABEwAAAACBQAAAAVSQVRFNQUAAAADbmlsAAAAAARCRVRTCQAETAAAAAIFAAAABEJFVDEJAARMAAAAAgUAAAAEQkVUMgkABEwAAAACBQAAAARCRVQ0CQAETAAAAAIFAAAABEJFVDgJAARMAAAAAgUAAAAFQkVUMTQFAAAAA25pbAAAAAAMSWR4R2FtZVN0YXRlAAAAAAAAAAAAAAAAAA9JZHhQbGF5ZXJDaG9pY2UAAAAAAAAAAAEAAAAAEUlkeFBsYXllclB1YktleTU4AAAAAAAAAAACAAAAABBJZHhTdGFydGVkSGVpZ2h0AAAAAAAAAAADAAAAAAxJZHhXaW5BbW91bnQAAAAAAAAAAAQAAAAACklkeEFzc2V0SWQAAAAAAAAAAAUAAAAADlJFU0VSVkFUSU9OS0VZCQAETAAAAAICAAAAFiRSRVNFUlZFRF9BTU9VTlRfV0FWRVMJAARMAAAAAgIAAAAVJFJFU0VSVkVEX0FNT1VOVF9VU0ROBQAAAANuaWwAAAAAD0dBTUVTQ09VTlRFUktFWQIAAAAJJEdBTUVfTlVNAAAAAAlEQVBQVVBLRVkCAAAACCREQVBQX1VQAAAAAA1NQVhCQUxBTkNFS0VZAgAAAAwkTUFYX0JBTEFOQ0UAAAAADlNUQVRFU1VCTUlUVEVEAgAAAAlTVUJNSVRURUQAAAAACFNUQVRFV09OAgAAAANXT04AAAAACVNUQVRFTE9TVAIAAAAETE9TVAEAAAAIZ2V0SW50T3IAAAACAAAAA2tleQAAAAdkZWZhdWx0AwkBAAAACWlzRGVmaW5lZAAAAAEJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAANrZXkFAAAAB2RlZmF1bHQBAAAABnNldEludAAAAAIAAAADa2V5AAAABXZhbHVlCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAADa2V5BQAAAAV2YWx1ZQEAAAAMaW5jcmVtZW50SW50AAAAAQAAAANrZXkJAQAAAAZzZXRJbnQAAAACBQAAAANrZXkJAABkAAAAAgkBAAAACGdldEludE9yAAAAAgUAAAADa2V5AP//////////AAAAAAAAAAABAQAAAAljaGFuZ2VJbnQAAAACAAAAA2tleQAAAAJieQkBAAAABnNldEludAAAAAIFAAAAA2tleQkAAGQAAAACCQEAAAAIZ2V0SW50T3IAAAACBQAAAANrZXkAAAAAAAAAAAAFAAAAAmJ5AQAAABVpbmNyZWFzZVJlc2VydmVBbW91bnQAAAACAAAACXdpbkFtb3VudAAAAAdhc3NldElkBAAAABFuZXdSZXNlcnZlZEFtb3VudAkAAGQAAAACCQEAAAAIZ2V0SW50T3IAAAACCQABkQAAAAIFAAAADlJFU0VSVkFUSU9OS0VZBQAAAAdhc3NldElkAAAAAAAAAAAABQAAAAl3aW5BbW91bnQDCQAAZgAAAAIFAAAAEW5ld1Jlc2VydmVkQW1vdW50CQEAAAAMd2F2ZXNCYWxhbmNlAAAAAQUAAAAEdGhpcwkAAAIAAAABAgAAAFRJbnN1ZmZpY2llbnQgZnVuZHMgb24gRGljZSBSb2xsZXIgYWNjb3VudC4gVHJhbnNhY3Rpb24gd2FzIHJlamVjdGVkIGZvciB5b3VyIHNhZmV0eS4FAAAAEW5ld1Jlc2VydmVkQW1vdW50AQAAABZkZWNyZWFzZVJlc2VydmVkQW1vdW50AAAAAwAAAAZnYW1lSWQAAAAHYXNzZXRJZAAAAAl3aW5BbW91bnQDCQAAZgAAAAIAAAAAAAAAAAAJAABlAAAAAgkBAAAACGdldEludE9yAAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQUAAAAHYXNzZXRJZAAAAAAAAAAAAAUAAAAJd2luQW1vdW50CQAAAgAAAAECAAAAQkludmFsaWQgRGljZSBSb2xsZXIgYWNjb3VudCBzdGF0ZSAtIHJlc2VydmVkIGFtb3VudCBpcyBsZXNzIHRoYW4gMAkBAAAACWNoYW5nZUludAAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkFAAAAB2Fzc2V0SWQJAQAAAAEtAAAAAQUAAAAJd2luQW1vdW50AQAAABV2YWxpZGF0ZUFuZEdldEFzc2V0SWQAAAABAAAAB2Fzc2V0SWQDCQAAAAAAAAIFAAAAB2Fzc2V0SWQJAAGRAAAAAgUAAAAGQVNTRVRTAAAAAAAAAAAAAAAAAAAAAAAAAwkAAAAAAAACBQAAAAdhc3NldElkCQABkQAAAAIFAAAABkFTU0VUUwAAAAAAAAAAAQAAAAAAAAAAAQkAAAIAAAABAgAAABVJbnZhbGlkIHBheW1lbnQgYXNzZXQBAAAAGnZhbGlkYXRlQmV0QW5kR2V0V2luQW1vdW50AAAAAwAAAAliZXRBbW91bnQAAAAHYXNzZXRJZAAAAAxwbGF5ZXJDaG9pY2UEAAAACmRpY2VzQ291bnQJAAExAAAAAQUAAAAMcGxheWVyQ2hvaWNlBAAAAApjb21taXNzaW9uCQEAAAANZ2V0Q29tbWlzc2lvbgAAAAEFAAAAB2Fzc2V0SWQKAQAAAAtjaGVja0Ftb3VudAAAAAIAAAABYQAAAAF4AwUAAAABYQYJAAAAAAAAAgUAAAAJYmV0QW1vdW50CQAAZAAAAAIJAABoAAAAAgUAAAABeAkAAZEAAAACBQAAAAhERUNJTUFMUwUAAAAHYXNzZXRJZAUAAAAKY29tbWlzc2lvbgMJAQAAAAEhAAAAAQQAAAANJGxpc3Q0NjgzNDcxNgUAAAAEQkVUUwQAAAANJHNpemU0NjgzNDcxNgkAAZAAAAABBQAAAA0kbGlzdDQ2ODM0NzE2BAAAAA0kYWNjMDQ2ODM0NzE2BwMJAAAAAAAAAgUAAAANJHNpemU0NjgzNDcxNgAAAAAAAAAAAAUAAAANJGFjYzA0NjgzNDcxNgQAAAANJGFjYzE0NjgzNDcxNgkBAAAAC2NoZWNrQW1vdW50AAAAAgUAAAANJGFjYzA0NjgzNDcxNgkAAZEAAAACBQAAAA0kbGlzdDQ2ODM0NzE2AAAAAAAAAAAAAwkAAAAAAAACBQAAAA0kc2l6ZTQ2ODM0NzE2AAAAAAAAAAABBQAAAA0kYWNjMTQ2ODM0NzE2BAAAAA0kYWNjMjQ2ODM0NzE2CQEAAAALY2hlY2tBbW91bnQAAAACBQAAAA0kYWNjMTQ2ODM0NzE2CQABkQAAAAIFAAAADSRsaXN0NDY4MzQ3MTYAAAAAAAAAAAEDCQAAAAAAAAIFAAAADSRzaXplNDY4MzQ3MTYAAAAAAAAAAAIFAAAADSRhY2MyNDY4MzQ3MTYEAAAADSRhY2MzNDY4MzQ3MTYJAQAAAAtjaGVja0Ftb3VudAAAAAIFAAAADSRhY2MyNDY4MzQ3MTYJAAGRAAAAAgUAAAANJGxpc3Q0NjgzNDcxNgAAAAAAAAAAAgMJAAAAAAAAAgUAAAANJHNpemU0NjgzNDcxNgAAAAAAAAAAAwUAAAANJGFjYzM0NjgzNDcxNgQAAAANJGFjYzQ0NjgzNDcxNgkBAAAAC2NoZWNrQW1vdW50AAAAAgUAAAANJGFjYzM0NjgzNDcxNgkAAZEAAAACBQAAAA0kbGlzdDQ2ODM0NzE2AAAAAAAAAAADAwkAAAAAAAACBQAAAA0kc2l6ZTQ2ODM0NzE2AAAAAAAAAAAEBQAAAA0kYWNjNDQ2ODM0NzE2BAAAAA0kYWNjNTQ2ODM0NzE2CQEAAAALY2hlY2tBbW91bnQAAAACBQAAAA0kYWNjNDQ2ODM0NzE2CQABkQAAAAIFAAAADSRsaXN0NDY4MzQ3MTYAAAAAAAAAAAQDCQAAAAAAAAIFAAAADSRzaXplNDY4MzQ3MTYAAAAAAAAAAAUFAAAADSRhY2M1NDY4MzQ3MTYEAAAADSRhY2M2NDY4MzQ3MTYJAQAAAAtjaGVja0Ftb3VudAAAAAIFAAAADSRhY2M1NDY4MzQ3MTYJAAGRAAAAAgUAAAANJGxpc3Q0NjgzNDcxNgAAAAAAAAAABQkAAAIAAAABAgAAABJMaXN0IHNpemUgZXhjZWVkIDUJAAACAAAAAQIAAAAXQmV0IGFtb3VudCBpcyBub3QgdmFsaWQDCQAAAAAAAAIJAAS2AAAAAQUAAAAMcGxheWVyQ2hvaWNlBQAAAAR1bml0CQAAAgAAAAECAAAAF0ludmFsaWQgcGxheWVyJ3MgY2hvaWNlAwMJAABmAAAAAgAAAAAAAAAAAQUAAAAKZGljZXNDb3VudAYJAABmAAAAAgUAAAAKZGljZXNDb3VudAAAAAAAAAAABQkAAAIAAAABAgAAACZJbnZhbGlkIGRpY2VzIGNvdW50IGluIHBsYXllcidzIGNob2ljZQQAAAADYmV0CQAAZQAAAAIFAAAACWJldEFtb3VudAUAAAAKY29tbWlzc2lvbgkAAGkAAAACCQAAaAAAAAIFAAAAA2JldAkAAZEAAAACBQAAAAVSQVRFUwkAAGUAAAACBQAAAApkaWNlc0NvdW50AAAAAAAAAAABBQAAAAhSQVRFTVVMVAEAAAASZ2VuZXJhdGVSYW5kQ2hvaXNlAAAAAgAAAAZnYW1lSWQAAAAHcnNhU2lnbgQAAAALcnNhU2lnVmFsaWQJAAH4AAAABAUAAAAGU0hBMjU2CQABmwAAAAEFAAAABmdhbWVJZAUAAAAHcnNhU2lnbgUAAAAJUlNBUFVCTElDAwkBAAAAASEAAAABBQAAAAtyc2FTaWdWYWxpZAkAAAIAAAABAgAAABVJbnZhbGlkIFJTQSBzaWduYXR1cmUEAAAABHJhbmQJAABqAAAAAgkABLEAAAABCQAB9wAAAAEFAAAAB3JzYVNpZ24AAAAAAAAAAAYEAAAABnJlc3VsdAMJAABmAAAAAgAAAAAAAAAAAAUAAAAEcmFuZAkAAGgAAAACAP//////////BQAAAARyYW5kBQAAAARyYW5kCQABpAAAAAEFAAAABnJlc3VsdAEAAAALaXNQbGF5ZXJXaW4AAAACAAAADHBsYXllckNob2ljZQAAAApyYW5kQ2hvaXNlBAAAAAFzCQABMQAAAAEFAAAADHBsYXllckNob2ljZQoBAAAABWNoZWNrAAAAAgAAAAFhAAAAAXgDBQAAAAFhBgMJAABnAAAAAgUAAAABcwUAAAABeAkAAAAAAAACCQABLwAAAAIJAAEwAAAAAgUAAAAMcGxheWVyQ2hvaWNlCQAAZQAAAAIFAAAAAXgAAAAAAAAAAAEAAAAAAAAAAAEFAAAACnJhbmRDaG9pc2UHBAAAAA0kbGlzdDU2MDA1NjM0CQAETAAAAAIAAAAAAAAAAAEJAARMAAAAAgAAAAAAAAAAAgkABEwAAAACAAAAAAAAAAADCQAETAAAAAIAAAAAAAAAAAQJAARMAAAAAgAAAAAAAAAABQUAAAADbmlsBAAAAA0kc2l6ZTU2MDA1NjM0CQABkAAAAAEFAAAADSRsaXN0NTYwMDU2MzQEAAAADSRhY2MwNTYwMDU2MzQHAwkAAAAAAAACBQAAAA0kc2l6ZTU2MDA1NjM0AAAAAAAAAAAABQAAAA0kYWNjMDU2MDA1NjM0BAAAAA0kYWNjMTU2MDA1NjM0CQEAAAAFY2hlY2sAAAACBQAAAA0kYWNjMDU2MDA1NjM0CQABkQAAAAIFAAAADSRsaXN0NTYwMDU2MzQAAAAAAAAAAAADCQAAAAAAAAIFAAAADSRzaXplNTYwMDU2MzQAAAAAAAAAAAEFAAAADSRhY2MxNTYwMDU2MzQEAAAADSRhY2MyNTYwMDU2MzQJAQAAAAVjaGVjawAAAAIFAAAADSRhY2MxNTYwMDU2MzQJAAGRAAAAAgUAAAANJGxpc3Q1NjAwNTYzNAAAAAAAAAAAAQMJAAAAAAAAAgUAAAANJHNpemU1NjAwNTYzNAAAAAAAAAAAAgUAAAANJGFjYzI1NjAwNTYzNAQAAAANJGFjYzM1NjAwNTYzNAkBAAAABWNoZWNrAAAAAgUAAAANJGFjYzI1NjAwNTYzNAkAAZEAAAACBQAAAA0kbGlzdDU2MDA1NjM0AAAAAAAAAAACAwkAAAAAAAACBQAAAA0kc2l6ZTU2MDA1NjM0AAAAAAAAAAADBQAAAA0kYWNjMzU2MDA1NjM0BAAAAA0kYWNjNDU2MDA1NjM0CQEAAAAFY2hlY2sAAAACBQAAAA0kYWNjMzU2MDA1NjM0CQABkQAAAAIFAAAADSRsaXN0NTYwMDU2MzQAAAAAAAAAAAMDCQAAAAAAAAIFAAAADSRzaXplNTYwMDU2MzQAAAAAAAAAAAQFAAAADSRhY2M0NTYwMDU2MzQEAAAADSRhY2M1NTYwMDU2MzQJAQAAAAVjaGVjawAAAAIFAAAADSRhY2M0NTYwMDU2MzQJAAGRAAAAAgUAAAANJGxpc3Q1NjAwNTYzNAAAAAAAAAAABAMJAAAAAAAAAgUAAAANJHNpemU1NjAwNTYzNAAAAAAAAAAABQUAAAANJGFjYzU1NjAwNTYzNAQAAAANJGFjYzY1NjAwNTYzNAkBAAAABWNoZWNrAAAAAgUAAAANJGFjYzU1NjAwNTYzNAkAAZEAAAACBQAAAA0kbGlzdDU2MDA1NjM0AAAAAAAAAAAFCQAAAgAAAAECAAAAEkxpc3Qgc2l6ZSBleGNlZWQgNQEAAAAOZm9ybWF0R2FtZURhdGEAAAAHAAAACWdhbWVTdGF0ZQAAAAxwbGF5ZXJDaG9pY2UAAAAOcGxheWVyUHViS2V5NTgAAAANc3RhcnRlZEhlaWdodAAAAAl3aW5BbW91bnQAAAAHYXNzZXRJZAAAAAtyYW5kT3JFbXB0eQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAACWdhbWVTdGF0ZQIAAAABXwUAAAAMcGxheWVyQ2hvaWNlAgAAAAFfBQAAAA5wbGF5ZXJQdWJLZXk1OAIAAAABXwkAAaQAAAABBQAAAA1zdGFydGVkSGVpZ2h0AgAAAAFfCQABpAAAAAEFAAAACXdpbkFtb3VudAIAAAABXwkAAaQAAAABBQAAAAdhc3NldElkAwkAAAAAAAACBQAAAAtyYW5kT3JFbXB0eQIAAAAAAgAAAAAJAAEsAAAAAgIAAAABXwUAAAALcmFuZE9yRW1wdHkBAAAAD2V4dHJhY3RHYW1lRGF0YQAAAAEAAAAGZ2FtZUlkCQAEtQAAAAIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAAGZ2FtZUlkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAA3N0cgUAAAAHJG1hdGNoMAUAAAADc3RyCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAZHYW1lOiAFAAAABmdhbWVJZAIAAAALIG5vdCBmb3VuZC4CAAAAAV8BAAAADHdpblNjcmlwdFNldAAAAAcAAAAGZ2FtZUlkAAAADXBsYXllckFkZHJlc3MAAAAJd2luQW1vdW50AAAAB2Fzc2V0SWQAAAALbmV3Z2FtZURhdGEAAAAMd2luQnlUaW1lb3V0AAAAEWRlY3JlYXNlZFJlc2VydmVzBAAAAA53U2V0Q29tbW9uRGF0YQkABEwAAAACBQAAABFkZWNyZWFzZWRSZXNlcnZlcwUAAAADbmlsBAAAAA50U2V0Q29tbW9uRGF0YQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAA1wbGF5ZXJBZGRyZXNzBQAAAAl3aW5BbW91bnQJAAGRAAAAAgUAAAAGQVNTRVRTBQAAAAdhc3NldElkBQAAAANuaWwDBQAAAAx3aW5CeVRpbWVvdXQEAAAAE25ld2dhbWVEYXRhQWRqdXN0ZWQJAAEsAAAAAgUAAAALbmV3Z2FtZURhdGECAAAACF9USU1FT1VUBAAAAAhnYW1lRGF0YQkBAAAACURhdGFFbnRyeQAAAAIFAAAABmdhbWVJZAUAAAATbmV3Z2FtZURhdGFBZGp1c3RlZAkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgUAAAAIZ2FtZURhdGEFAAAADndTZXRDb21tb25EYXRhCQEAAAALVHJhbnNmZXJTZXQAAAABBQAAAA50U2V0Q29tbW9uRGF0YQQAAAAIZ2FtZURhdGEJAQAAAAlEYXRhRW50cnkAAAACBQAAAAZnYW1lSWQFAAAAC25ld2dhbWVEYXRhCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACBQAAAAhnYW1lRGF0YQUAAAAOd1NldENvbW1vbkRhdGEJAQAAAAtUcmFuc2ZlclNldAAAAAEFAAAADnRTZXRDb21tb25EYXRhAQAAAAhpc0RBcHBVcAAAAAAEAAAACWRBcHBVcE9wdAkABBsAAAACBQAAAAR0aGlzBQAAAAlEQVBQVVBLRVkDCQEAAAAJaXNEZWZpbmVkAAAAAQUAAAAJZEFwcFVwT3B0CQEAAAAHZXh0cmFjdAAAAAEFAAAACWRBcHBVcE9wdAcBAAAAEW1vbml0b3JNYXhCYWxhbmNlAAAAAAQAAAANbWF4QmFsYW5jZU9wdAkABBoAAAACBQAAAAR0aGlzBQAAAA1NQVhCQUxBTkNFS0VZBAAAAAptYXhCYWxhbmNlAwkBAAAACWlzRGVmaW5lZAAAAAEFAAAADW1heEJhbGFuY2VPcHQJAQAAAAdleHRyYWN0AAAAAQUAAAANbWF4QmFsYW5jZU9wdAAAAAAAAAAAAAQAAAALY3VyckJhbGFuY2UJAQAAAAx3YXZlc0JhbGFuY2UAAAABBQAAAAR0aGlzAwkAAGYAAAACBQAAAAtjdXJyQmFsYW5jZQUAAAAKbWF4QmFsYW5jZQUAAAALY3VyckJhbGFuY2UEAAAABGRpZmYJAABlAAAAAgUAAAAKbWF4QmFsYW5jZQUAAAALY3VyckJhbGFuY2UDCQAAZgAAAAIFAAAABGRpZmYFAAAADk1BWEJBTEFOQ0VESUZGCQAAAgAAAAECAAAAGmRBcHAgaXMgdGVtcG9yYXJ5IGRpc2FibGVkBQAAAAptYXhCYWxhbmNlAAAAAwAAAAFpAQAAAAZkQXBwVXAAAAABAAAABmRBcHBVcAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAGU0VSVkVSCQAAAgAAAAECAAAAJ09ubHkgU2VydmVyIGNhbiBtYW5hZ2UgZEFwcFVwIGF0dHJpYnV0ZQMJAAAAAAAAAgkBAAAACGlzREFwcFVwAAAAAAUAAAAGZEFwcFVwCQAAAgAAAAECAAAAKmRBcHBVcCBtdXN0IGJlIGRpZmZlcmVudCB3aXRoIGFjdHVhbCB2YWx1ZQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAJREFQUFVQS0VZBQAAAAZkQXBwVXAFAAAAA25pbAAAAAFpAQAAAANiZXQAAAABAAAADHBsYXllckNob2ljZQQAAAAGZ2FtZUlkCQACWAAAAAEIBQAAAAFpAAAADXRyYW5zYWN0aW9uSWQDCQEAAAABIQAAAAEJAQAAAAhpc0RBcHBVcAAAAAAJAAACAAAAAQIAAAAZREFwcCBpcyB1bmRlciBtYWludGVuYW5jZQMJAAAAAAAAAggFAAAAAWkAAAAHcGF5bWVudAUAAAAEdW5pdAkAAAIAAAABAgAAAApObyBwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAAEdGhpcwUAAAAGZ2FtZUlkCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAlCZXQgZm9yOiAFAAAABmdhbWVJZAIAAAASIHdhcyBhbHJlYWR5IG1hZGUuBAAAAAFwCQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQEAAAAB2Fzc2V0SWQJAQAAABV2YWxpZGF0ZUFuZEdldEFzc2V0SWQAAAABCAUAAAABcAAAAAdhc3NldElkBAAAAApjb21taXNzaW9uCQEAAAANZ2V0Q29tbWlzc2lvbgAAAAEFAAAAB2Fzc2V0SWQEAAAACXdpbkFtb3VudAkBAAAAGnZhbGlkYXRlQmV0QW5kR2V0V2luQW1vdW50AAAAAwgFAAAAAXAAAAAGYW1vdW50BQAAAAdhc3NldElkBQAAAAxwbGF5ZXJDaG9pY2UEAAAADnBsYXllclB1YktleTU4CQACWAAAAAEIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQQAAAAIZ2FtZURhdGEJAQAAAA5mb3JtYXRHYW1lRGF0YQAAAAcFAAAADlNUQVRFU1VCTUlUVEVEBQAAAAxwbGF5ZXJDaG9pY2UFAAAADnBsYXllclB1YktleTU4BQAAAAZoZWlnaHQFAAAACXdpbkFtb3VudAUAAAAHYXNzZXRJZAIAAAAACQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQUAAAAHYXNzZXRJZAkBAAAAFWluY3JlYXNlUmVzZXJ2ZUFtb3VudAAAAAIFAAAACXdpbkFtb3VudAUAAAAHYXNzZXRJZAkABEwAAAACCQEAAAAMaW5jcmVtZW50SW50AAAAAQUAAAAPR0FNRVNDT1VOVEVSS0VZCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAA1NQVhCQUxBTkNFS0VZCQEAAAARbW9uaXRvck1heEJhbGFuY2UAAAAACQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAZnYW1lSWQFAAAACGdhbWVEYXRhBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAGU0VSVkVSBQAAAApjb21taXNzaW9uCAUAAAABcAAAAAdhc3NldElkBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABmdhbWVJZAAAAAdyc2FTaWduBAAAAAhnYW1lRGF0YQkBAAAAD2V4dHJhY3RHYW1lRGF0YQAAAAEFAAAABmdhbWVJZAQAAAAJZ2FtZVN0YXRlCQABkQAAAAIFAAAACGdhbWVEYXRhBQAAAAxJZHhHYW1lU3RhdGUEAAAADHBsYXllckNob2ljZQkAAZEAAAACBQAAAAhnYW1lRGF0YQUAAAAPSWR4UGxheWVyQ2hvaWNlBAAAAA1zdGFydGVkSGVpZ2h0CQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAAIZ2FtZURhdGEFAAAAEElkeFN0YXJ0ZWRIZWlnaHQEAAAACXdpbkFtb3VudAkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAACGdhbWVEYXRhBQAAAAxJZHhXaW5BbW91bnQEAAAAB2Fzc2V0SWQJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAAhnYW1lRGF0YQUAAAAKSWR4QXNzZXRJZAQAAAAOcGxheWVyUHViS2V5NTgJAAGRAAAAAgUAAAAIZ2FtZURhdGEFAAAAEUlkeFBsYXllclB1YktleTU4BAAAAA1wbGF5ZXJBZGRyZXNzCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABCQACWQAAAAEFAAAADnBsYXllclB1YktleTU4BAAAAAx3aW5CeVRpbWVvdXQJAABmAAAAAgkAAGUAAAACBQAAAAZoZWlnaHQFAAAADXN0YXJ0ZWRIZWlnaHQFAAAAE1JBTkRPUkFDTEVUSU1FRlJBTUUEAAAAEWRlY3JlYXNlZFJlc2VydmVzCQEAAAAWZGVjcmVhc2VSZXNlcnZlZEFtb3VudAAAAAMFAAAABmdhbWVJZAUAAAAHYXNzZXRJZAUAAAAJd2luQW1vdW50AwkBAAAAAiE9AAAAAgUAAAAJZ2FtZVN0YXRlBQAAAA5TVEFURVNVQk1JVFRFRAkAAAIAAAABAgAAACRJbnZhbGlkIGdhbWUgc3RhdGUgZm9yIHBhc3NlZCBnYW1lSWQDBQAAAAx3aW5CeVRpbWVvdXQEAAAACnJhbmRDaG9pc2UJAAEvAAAAAgUAAAAMcGxheWVyQ2hvaWNlAAAAAAAAAAABBAAAAAtuZXdnYW1lRGF0YQkBAAAADmZvcm1hdEdhbWVEYXRhAAAABwUAAAAIU1RBVEVXT04FAAAADHBsYXllckNob2ljZQUAAAAOcGxheWVyUHViS2V5NTgFAAAADXN0YXJ0ZWRIZWlnaHQFAAAACXdpbkFtb3VudAUAAAAHYXNzZXRJZAUAAAAKcmFuZENob2lzZQkBAAAADHdpblNjcmlwdFNldAAAAAcFAAAABmdhbWVJZAUAAAANcGxheWVyQWRkcmVzcwUAAAAJd2luQW1vdW50BQAAAAdhc3NldElkBQAAAAtuZXdnYW1lRGF0YQUAAAAMd2luQnlUaW1lb3V0BQAAABFkZWNyZWFzZWRSZXNlcnZlcwQAAAAKcmFuZENob2lzZQkBAAAAEmdlbmVyYXRlUmFuZENob2lzZQAAAAIFAAAABmdhbWVJZAUAAAAHcnNhU2lnbgMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAGU0VSVkVSCQAAAgAAAAECAAAAK1JlZ3VsYXIgd2l0aGRyYXcgY2FuIGJlIGRvbmUgYnkgc2VydmVyIG9ubHkDCQEAAAALaXNQbGF5ZXJXaW4AAAACBQAAAAxwbGF5ZXJDaG9pY2UFAAAACnJhbmRDaG9pc2UEAAAAC25ld2dhbWVEYXRhCQEAAAAOZm9ybWF0R2FtZURhdGEAAAAHBQAAAAhTVEFURVdPTgUAAAAMcGxheWVyQ2hvaWNlBQAAAA5wbGF5ZXJQdWJLZXk1OAUAAAANc3RhcnRlZEhlaWdodAUAAAAJd2luQW1vdW50BQAAAAdhc3NldElkBQAAAApyYW5kQ2hvaXNlCQEAAAAMd2luU2NyaXB0U2V0AAAABwUAAAAGZ2FtZUlkBQAAAA1wbGF5ZXJBZGRyZXNzBQAAAAl3aW5BbW91bnQFAAAAB2Fzc2V0SWQFAAAAC25ld2dhbWVEYXRhBQAAAAx3aW5CeVRpbWVvdXQFAAAAEWRlY3JlYXNlZFJlc2VydmVzBAAAAAtuZXdnYW1lRGF0YQkBAAAADmZvcm1hdEdhbWVEYXRhAAAABwUAAAAJU1RBVEVMT1NUBQAAAAxwbGF5ZXJDaG9pY2UFAAAADnBsYXllclB1YktleTU4BQAAAA1zdGFydGVkSGVpZ2h0BQAAAAl3aW5BbW91bnQFAAAAB2Fzc2V0SWQFAAAACnJhbmRDaG9pc2UJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABmdhbWVJZAUAAAALbmV3Z2FtZURhdGEJAARMAAAAAgUAAAARZGVjcmVhc2VkUmVzZXJ2ZXMFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAADCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleQQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAA3R0eAUAAAAHJG1hdGNoMAQAAAAHYXNzZXRJZAkBAAAAFXZhbGlkYXRlQW5kR2V0QXNzZXRJZAAAAAEIBQAAAAN0dHgAAAAHYXNzZXRJZAkAAGcAAAACCQAAZQAAAAIJAQAAAAx3YXZlc0JhbGFuY2UAAAABBQAAAAR0aGlzCAUAAAADdHR4AAAABmFtb3VudAkBAAAACGdldEludE9yAAAAAgkAAZEAAAACBQAAAA5SRVNFUlZBVElPTktFWQUAAAAHYXNzZXRJZAAAAAAAAAAAAAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAA3N0eAUAAAAHJG1hdGNoMAMDCQAAAAAAAAIJAQAAAAhpc0RBcHBVcAAAAAAHCQAAAAAAAAIJAQAAAAhnZXRJbnRPcgAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHCQAAAAAAAAIJAQAAAAhnZXRJbnRPcgAAAAIJAAGRAAAAAgUAAAAOUkVTRVJWQVRJT05LRVkAAAAAAAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAHBweJJ4fV", "chainId": 84, "height": 976292, "spentComplexity": 0 } View: original | compacted Prev: none Next: none Full:
OldNewDifferences
1-# no script
1+{-# STDLIB_VERSION 3 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let WAVESD = 100000000
5+
6+let USDND = 1000000
7+
8+let DECIMALS = [WAVESD, USDND]
9+
10+let ASSETS = [unit, fromBase58String("3KFXBGGLCjA5Z2DuW4Dq9fDDrHjJJP1ZEkaoajSzuKsC")]
11+
12+func getCommission (assetId) = ((5 * DECIMALS[assetId]) / 1000)
13+
14+
15+let RSAPUBLIC = fromBase64String("base64:MIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAmpuXcI/o4pIB5ywv9DOOGapTBUwRVlM/6+H6hFelOXtkrwY/YItmPxEDpz7rAerQPQe9tDPEaAv/GnlEztybOFXgu9DzDe8YoMRD1vakgoAcogmbY58QD6KMj5HkoVj/yTNIc9szj5qhIlrAdmb3KLL6hQU7y8+Jj69BWVPsaQgkspSdeYtb1tHQc7t95n7OZ56r2A7G3+bQf6nSMkPkAhIrEpbCm58oiGBczdTd/LqFSVotZsbL7Yh6SHLfnHeD+QgcfJrnam8OHMGJEJTRXjILeHGjlRCP8oVpioHry1S2xPx5sVzIm2MM+CzYenAGlo0j26atBhiULoTulwD3pQIDAQAB")
16+
17+let SERVER = addressFromStringValue("3N4Aib5iubWiGMzdTh6wWiVDVbo32oeVUmH")
18+
19+let RANDORACLETIMEFRAME = 4320
20+
21+let MAXBALANCEDIFF = (70 * WAVESD)
22+
23+let BET1 = 1
24+
25+let BET2 = 2
26+
27+let BET4 = 4
28+
29+let BET8 = 8
30+
31+let BET14 = 14
32+
33+let RATEMULT = 10000
34+
35+let RATE1 = 39655
36+
37+let RATE2 = 24600
38+
39+let RATE3 = 19000
40+
41+let RATE4 = 14200
42+
43+let RATE5 = 11400
44+
45+let RATES = [RATE1, RATE2, RATE3, RATE4, RATE5]
46+
47+let BETS = [BET1, BET2, BET4, BET8, BET14]
48+
49+let IdxGameState = 0
50+
51+let IdxPlayerChoice = 1
52+
53+let IdxPlayerPubKey58 = 2
54+
55+let IdxStartedHeight = 3
56+
57+let IdxWinAmount = 4
58+
59+let IdxAssetId = 5
60+
61+let RESERVATIONKEY = ["$RESERVED_AMOUNT_WAVES", "$RESERVED_AMOUNT_USDN"]
62+
63+let GAMESCOUNTERKEY = "$GAME_NUM"
64+
65+let DAPPUPKEY = "$DAPP_UP"
66+
67+let MAXBALANCEKEY = "$MAX_BALANCE"
68+
69+let STATESUBMITTED = "SUBMITTED"
70+
71+let STATEWON = "WON"
72+
73+let STATELOST = "LOST"
74+
75+func getIntOr (key,default) = if (isDefined(getInteger(this, key)))
76+ then getIntegerValue(this, key)
77+ else default
78+
79+
80+func setInt (key,value) = DataEntry(key, value)
81+
82+
83+func incrementInt (key) = setInt(key, (getIntOr(key, -1) + 1))
84+
85+
86+func changeInt (key,by) = setInt(key, (getIntOr(key, 0) + by))
87+
88+
89+func increaseReserveAmount (winAmount,assetId) = {
90+ let newReservedAmount = (getIntOr(RESERVATIONKEY[assetId], 0) + winAmount)
91+ if ((newReservedAmount > wavesBalance(this)))
92+ then throw("Insufficient funds on Dice Roller account. Transaction was rejected for your safety.")
93+ else newReservedAmount
94+ }
95+
96+
97+func decreaseReservedAmount (gameId,assetId,winAmount) = if ((0 > (getIntOr(RESERVATIONKEY[assetId], 0) - winAmount)))
98+ then throw("Invalid Dice Roller account state - reserved amount is less than 0")
99+ else changeInt(RESERVATIONKEY[assetId], -(winAmount))
100+
101+
102+func validateAndGetAssetId (assetId) = if ((assetId == ASSETS[0]))
103+ then 0
104+ else if ((assetId == ASSETS[1]))
105+ then 1
106+ else throw("Invalid payment asset")
107+
108+
109+func validateBetAndGetWinAmount (betAmount,assetId,playerChoice) = {
110+ let dicesCount = size(playerChoice)
111+ let commission = getCommission(assetId)
112+ func checkAmount (a,x) = if (a)
113+ then true
114+ else (betAmount == ((x * DECIMALS[assetId]) + commission))
115+
116+ if (!({
117+ let $list46834716 = BETS
118+ let $size46834716 = size($list46834716)
119+ let $acc046834716 = false
120+ if (($size46834716 == 0))
121+ then $acc046834716
122+ else {
123+ let $acc146834716 = checkAmount($acc046834716, $list46834716[0])
124+ if (($size46834716 == 1))
125+ then $acc146834716
126+ else {
127+ let $acc246834716 = checkAmount($acc146834716, $list46834716[1])
128+ if (($size46834716 == 2))
129+ then $acc246834716
130+ else {
131+ let $acc346834716 = checkAmount($acc246834716, $list46834716[2])
132+ if (($size46834716 == 3))
133+ then $acc346834716
134+ else {
135+ let $acc446834716 = checkAmount($acc346834716, $list46834716[3])
136+ if (($size46834716 == 4))
137+ then $acc446834716
138+ else {
139+ let $acc546834716 = checkAmount($acc446834716, $list46834716[4])
140+ if (($size46834716 == 5))
141+ then $acc546834716
142+ else {
143+ let $acc646834716 = checkAmount($acc546834716, $list46834716[5])
144+ throw("List size exceed 5")
145+ }
146+ }
147+ }
148+ }
149+ }
150+ }
151+ }))
152+ then throw("Bet amount is not valid")
153+ else if ((parseInt(playerChoice) == unit))
154+ then throw("Invalid player's choice")
155+ else if (if ((1 > dicesCount))
156+ then true
157+ else (dicesCount > 5))
158+ then throw("Invalid dices count in player's choice")
159+ else {
160+ let bet = (betAmount - commission)
161+ ((bet * RATES[(dicesCount - 1)]) / RATEMULT)
162+ }
163+ }
164+
165+
166+func generateRandChoise (gameId,rsaSign) = {
167+ let rsaSigValid = rsaVerify(SHA256, toBytes(gameId), rsaSign, RSAPUBLIC)
168+ if (!(rsaSigValid))
169+ then throw("Invalid RSA signature")
170+ else {
171+ let rand = (toInt(sha256(rsaSign)) % 6)
172+ let result = if ((0 > rand))
173+ then (-1 * rand)
174+ else rand
175+ toString(result)
176+ }
177+ }
178+
179+
180+func isPlayerWin (playerChoice,randChoise) = {
181+ let s = size(playerChoice)
182+ func check (a,x) = if (a)
183+ then true
184+ else if ((s >= x))
185+ then (take(drop(playerChoice, (x - 1)), 1) == randChoise)
186+ else false
187+
188+ let $list56005634 = [1, 2, 3, 4, 5]
189+ let $size56005634 = size($list56005634)
190+ let $acc056005634 = false
191+ if (($size56005634 == 0))
192+ then $acc056005634
193+ else {
194+ let $acc156005634 = check($acc056005634, $list56005634[0])
195+ if (($size56005634 == 1))
196+ then $acc156005634
197+ else {
198+ let $acc256005634 = check($acc156005634, $list56005634[1])
199+ if (($size56005634 == 2))
200+ then $acc256005634
201+ else {
202+ let $acc356005634 = check($acc256005634, $list56005634[2])
203+ if (($size56005634 == 3))
204+ then $acc356005634
205+ else {
206+ let $acc456005634 = check($acc356005634, $list56005634[3])
207+ if (($size56005634 == 4))
208+ then $acc456005634
209+ else {
210+ let $acc556005634 = check($acc456005634, $list56005634[4])
211+ if (($size56005634 == 5))
212+ then $acc556005634
213+ else {
214+ let $acc656005634 = check($acc556005634, $list56005634[5])
215+ throw("List size exceed 5")
216+ }
217+ }
218+ }
219+ }
220+ }
221+ }
222+ }
223+
224+
225+func formatGameData (gameState,playerChoice,playerPubKey58,startedHeight,winAmount,assetId,randOrEmpty) = (((((((((((gameState + "_") + playerChoice) + "_") + playerPubKey58) + "_") + toString(startedHeight)) + "_") + toString(winAmount)) + "_") + toString(assetId)) + (if ((randOrEmpty == ""))
226+ then ""
227+ else ("_" + randOrEmpty)))
228+
229+
230+func extractGameData (gameId) = split(match getString(this, gameId) {
231+ case str: String =>
232+ str
233+ case _ =>
234+ throw((("Game: " + gameId) + " not found."))
235+}, "_")
236+
237+
238+func winScriptSet (gameId,playerAddress,winAmount,assetId,newgameData,winByTimeout,decreasedReserves) = {
239+ let wSetCommonData = [decreasedReserves]
240+ let tSetCommonData = [ScriptTransfer(playerAddress, winAmount, ASSETS[assetId])]
241+ if (winByTimeout)
242+ then {
243+ let newgameDataAdjusted = (newgameData + "_TIMEOUT")
244+ let gameData = DataEntry(gameId, newgameDataAdjusted)
245+ ScriptResult(WriteSet(gameData :: wSetCommonData), TransferSet(tSetCommonData))
246+ }
247+ else {
248+ let gameData = DataEntry(gameId, newgameData)
249+ ScriptResult(WriteSet(gameData :: wSetCommonData), TransferSet(tSetCommonData))
250+ }
251+ }
252+
253+
254+func isDAppUp () = {
255+ let dAppUpOpt = getBoolean(this, DAPPUPKEY)
256+ if (isDefined(dAppUpOpt))
257+ then extract(dAppUpOpt)
258+ else false
259+ }
260+
261+
262+func monitorMaxBalance () = {
263+ let maxBalanceOpt = getInteger(this, MAXBALANCEKEY)
264+ let maxBalance = if (isDefined(maxBalanceOpt))
265+ then extract(maxBalanceOpt)
266+ else 0
267+ let currBalance = wavesBalance(this)
268+ if ((currBalance > maxBalance))
269+ then currBalance
270+ else {
271+ let diff = (maxBalance - currBalance)
272+ if ((diff > MAXBALANCEDIFF))
273+ then throw("dApp is temporary disabled")
274+ else maxBalance
275+ }
276+ }
277+
278+
279+@Callable(i)
280+func dAppUp (dAppUp) = if ((i.caller != SERVER))
281+ then throw("Only Server can manage dAppUp attribute")
282+ else if ((isDAppUp() == dAppUp))
283+ then throw("dAppUp must be different with actual value")
284+ else WriteSet([DataEntry(DAPPUPKEY, dAppUp)])
285+
286+
287+
288+@Callable(i)
289+func bet (playerChoice) = {
290+ let gameId = toBase58String(i.transactionId)
291+ if (!(isDAppUp()))
292+ then throw("DApp is under maintenance")
293+ else if ((i.payment == unit))
294+ then throw("No payment")
295+ else if (isDefined(getString(this, gameId)))
296+ then throw((("Bet for: " + gameId) + " was already made."))
297+ else {
298+ let p = extract(i.payment)
299+ let assetId = validateAndGetAssetId(p.assetId)
300+ let commission = getCommission(assetId)
301+ let winAmount = validateBetAndGetWinAmount(p.amount, assetId, playerChoice)
302+ let playerPubKey58 = toBase58String(i.callerPublicKey)
303+ let gameData = formatGameData(STATESUBMITTED, playerChoice, playerPubKey58, height, winAmount, assetId, "")
304+ ScriptResult(WriteSet([DataEntry(RESERVATIONKEY[assetId], increaseReserveAmount(winAmount, assetId)), incrementInt(GAMESCOUNTERKEY), DataEntry(MAXBALANCEKEY, monitorMaxBalance()), DataEntry(gameId, gameData)]), TransferSet([ScriptTransfer(SERVER, commission, p.assetId)]))
305+ }
306+ }
307+
308+
309+
310+@Callable(i)
311+func withdraw (gameId,rsaSign) = {
312+ let gameData = extractGameData(gameId)
313+ let gameState = gameData[IdxGameState]
314+ let playerChoice = gameData[IdxPlayerChoice]
315+ let startedHeight = parseIntValue(gameData[IdxStartedHeight])
316+ let winAmount = parseIntValue(gameData[IdxWinAmount])
317+ let assetId = parseIntValue(gameData[IdxAssetId])
318+ let playerPubKey58 = gameData[IdxPlayerPubKey58]
319+ let playerAddress = addressFromPublicKey(fromBase58String(playerPubKey58))
320+ let winByTimeout = ((height - startedHeight) > RANDORACLETIMEFRAME)
321+ let decreasedReserves = decreaseReservedAmount(gameId, assetId, winAmount)
322+ if ((gameState != STATESUBMITTED))
323+ then throw("Invalid game state for passed gameId")
324+ else if (winByTimeout)
325+ then {
326+ let randChoise = take(playerChoice, 1)
327+ let newgameData = formatGameData(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randChoise)
328+ winScriptSet(gameId, playerAddress, winAmount, assetId, newgameData, winByTimeout, decreasedReserves)
329+ }
330+ else {
331+ let randChoise = generateRandChoise(gameId, rsaSign)
332+ if ((i.caller != SERVER))
333+ then throw("Regular withdraw can be done by server only")
334+ else if (isPlayerWin(playerChoice, randChoise))
335+ then {
336+ let newgameData = formatGameData(STATEWON, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randChoise)
337+ winScriptSet(gameId, playerAddress, winAmount, assetId, newgameData, winByTimeout, decreasedReserves)
338+ }
339+ else {
340+ let newgameData = formatGameData(STATELOST, playerChoice, playerPubKey58, startedHeight, winAmount, assetId, randChoise)
341+ WriteSet([DataEntry(gameId, newgameData), decreasedReserves])
342+ }
343+ }
344+ }
345+
346+
347+@Verifier(tx)
348+func verify () = if (sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey))
349+ then match tx {
350+ case ttx: TransferTransaction =>
351+ let assetId = validateAndGetAssetId(ttx.assetId)
352+ ((wavesBalance(this) - ttx.amount) >= getIntOr(RESERVATIONKEY[assetId], 0))
353+ case stx: SetScriptTransaction =>
354+ if (if ((isDAppUp() == false))
355+ then (getIntOr(RESERVATIONKEY[0], 0) == 0)
356+ else false)
357+ then (getIntOr(RESERVATIONKEY[1], 0) == 0)
358+ else false
359+ case _ =>
360+ false
361+ }
362+ else false
363+

github/deemru/w8io/3ef1775 
35.26 ms