w8 · tx · wwH···u7M

tx · wwHH9oWy8GFRKRFuyS1BnqRCLD2DpYqqnS7sZCUTu7M

3N3BYKYYK6TKoHtPLZYU8JRn8PcHTnauS9z:  -0.02000000 Waves

2021.12.15 15:59 [1835405] smart account 3N3BYKYYK6TKoHtPLZYU8JRn8PcHTnauS9z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "wwHH9oWy8GFRKRFuyS1BnqRCLD2DpYqqnS7sZCUTu7M",
    "fee": 2000000,
    "feeAssetId": null,
    "timestamp": 1639573167535,
    "version": 2,
    "chainId": 84,
    "sender": "3N3BYKYYK6TKoHtPLZYU8JRn8PcHTnauS9z",
    "senderPublicKey": "FsjTCE3KV2vD2r7Du9D3J6Ea2T643E6zxzn6y24outXr",
    "proofs": [
        "5hgCDhbfmNRGqsUxRehb4YdPNPC5BCuNtBEKbaqPunTXWx8JGzTLvCkKPb4tTZNqiDzUH2BUaqSDfsLP4ba8JACM"
    ],
    "script": "base64:AAIDAAAAAAAAB2wIARIFCgMBAQESBAoCCAIaDwoBQRIKcmFuZHNDb3VudBoTCgFCEg5yZW1haW5pbmdSYW5kcxoSCgFDEg1kYXRhS2V5c0NvdW50GhEKAUQSDGRhdGFEb25lVHhJZBoPCgFFEgpsYXN0T2Zmc2V0Gg0KAUYSCHNsb3dJZHgxGg0KAUcSCHNsb3dJZHgyGg0KAUgSCGZhc3RJZHgxGg0KAUkSCGZhc3RJZHgyGhAKAUoSC3JhbmRPckVtcHR5GhEKAUsSDGZ1bGxTdGF0ZVN0choYCgFMEhNleHRyYWN0R2FtZURhdGFMaXN0Gg4KAU0SCXNlc3Npb25JZBoPCgFOEgpyYXdEYXRhU3RyGg0KAU8SCG5leHRSYW5kGggKAVASA2RpdhoICgFREgNtaW4aEQoBUhIMY3VyclJhbmRzU3RyGhIKAVMSDXJlbWFpbmluZ0hhc2gaEAoBVBILbmV4dFJhbmRJbnQaEAoBVRILbmV4dFJhbmRTdHIaDgoBVhIJZHVwbGljYXRlGhEKAVcSDGdlbmVyYXRlUmFuZBoJCgFYEgRmcm9tGgcKAVkSAnRvGgwKAVoSB3JzYVNpZ24aDgoBYRIJUlNBUFVCTElDGgsKAmFBEgVkaWZmMRoMCgJhQhIGYm91bmQyGhAKAmFDEgpiYXNlUHJpY2UyGgoKAmFEEgRkaXYyGgsKAmFFEgVkaWZmMhoMCgJhRhIGYm91bmQzGhAKAmFHEgpiYXNlUHJpY2UzGgoKAmFIEgRkaXYzGgsKAmFJEgVkaWZmMxoRCgJhShILbWluUmFuZHNQbXQaDAoCYUsSBm1pblBtdBoHCgJhTBIBaRoRCgJhTRILcmFuZ2VMZW5ndGgaFAoCYU4SDm1heFJhbmdlTGVuZ3RoGg8KAmFPEglyYW5kVG9MZW4aEwoCYVASDXJhbmRzQ291bnRMZW4aFgoCYVESEGR5bmFtaWNTdGF0dXNMZW4aEwoCYVISDW1heFJhbmRzQ291bnQaDgoCYVMSCHJhbmRzUG10Gg0KAmFUEgdkYXRhUG10GhEKAmFVEgtkYXRhVHhDb3VudBoTCgJhVhINcmFuZHNDb3VudFN0choPCgJhVxIJaW5pdFN0YXRlGhQKAmFYEg5kcmF3UGFyYW1zTGlzdBoWCgJhWRIQcmVtYWluUmFuZHNDb3VudBoNCgJhWhIHZnJvbVN0choVCgJhYRIPbGFzdE9mZnNldEJ5dGVzGhIKAmFiEgxjdXJyU2xvd0lkeDEaEgoCYWMSDGN1cnJTbG93SWR4MhoSCgJhZBIMY3VyckZhc3RJZHgxGhIKAmFlEgxjdXJyRmFzdElkeDIaEAoCYWYSCm5ld0luY0xpc3QaFAoCYWcSDm5ld09mZnNldEJ5dGVzGhEKAmFoEgtuZXdTbG93SWR4MRoRCgJhaRILbmV3U2xvd0lkeDIaEQoCYWoSC25ld0Zhc3RJZHgxGhEKAmFrEgtuZXdGYXN0SWR4MhoUCgJhbBIOdmFsaWRhdGVEdHhLZXkaCgoCYW0SBGRhdGEaEQoCYW4SC2RhdGFLZXlJbmZvGhIKAmFvEgxrZXlTZXNzaW9uSWQaEAoCYXASCmtleVBvc3RmaXgaFgoCYXESEGtleVBvc3RmaXhJbnRPcHQaEwoCYXISDWtleVBvc3RmaXhJbnQaDQoCYXMSByRtYXRjaDAaCQoCYXQSA3N0chocCgJhdRIWdmFsaWRhdGVBbmRHZXRSYW5kc1BtdBoJCgJhdhIDcG10GhAKAmF3EgptaW5EYXRhUG10GgwKAmF4EgZib3VuZDEaEAoCYXkSCmJhc2VQcmljZTEaCgoCYXoSBGRpdjEaCwoBYhIGU0VSVkVSGgsKAmJhEgV0b1N0choVCgJiYhIPb3JnYW5pemVyUHViS2V5GhEKAmJjEgtyYW5kR2VuSW5mbxoMCgFjEgdXQVZFTEVUGhUKAWQSEFNFU1NJT05JREZJWFNJWkUaEwoBZRIOUkFORENZQ0xFUFJJQ0UaFQoBZhIQTUFYUkFORFNQRVJDWUNMRRoOCgFnEglTVEFURUlOSVQaDQoBaBIIREFUQURPTkUaEgoBaRINU1RBVEVGSU5JU0hFRBoNCgFqEghJZHhTdGF0ZRoUCgFrEg9JZHhPcmdhbml6ZXJQdWIaEAoBbBILSWR4UmFuZEZyb20aDgoBbRIJSWR4UmFuZFRvGhIKAW4SDUlkeFJhbmRzQ291bnQaGAoBbxITSWR4UmVtYWluUmFuZHNDb3VudBoVCgFwEhBJZHhEYXRhS2V5c0NvdW50GhQKAXESD0lkeERhdGFEb25lVHhJZBoSCgFyEg1JZHhMYXN0T2Zmc2V0GhEKAXMSDElkeEN1cnJSYW5kcxoICgF0EgNhYnMaCAoBdRIDdmFsGhcKAXYSEmZvcm1hdFN0YXRlRGF0YVN0choOCgF3EglkcmF3U3RhdGUaFgoBeBIRb3JnYW5pemVyUHViS2V5NTgaDQoBeRIIcmFuZEZyb20aCwoBehIGcmFuZFRvAAAAGgAAAAABYQkAAlsAAAABAgAAAXNiYXNlNjQ6TFMwdExTMUNSVWRKVGlCUVZVSk1TVU1nUzBWWkxTMHRMUzBLVFVsSFprMUJNRWREVTNGSFUwbGlNMFJSUlVKQlVWVkJRVFJIVGtGRVEwSnBVVXRDWjFGRFIyNUhkM1pWYkcxbVRHNVpUa2R5UlNzemN6UjJRVFpSWkFvd2EyOVBOemRaVWpKRGRUWnBPV1F2YWxFMk9WSmtVMGhIUkZsd2IzaEtNMWd2U1M4NE1tdHBTMUpSY0hsd2NXSmpVUzlVWTNJeFYxVlJNMVJEUW1rMUNuRm1ZeXQ0WldWeU9TOW5jbmhVT0V4SmF6RXZWRmhYVkVaQlF6QTJNM1IzVjFkUGJWcFhjR05QTjNreVpsUnVVa2xrU0ZSbGFVczBUMXB6U3l0MVoyVUtPVGRHUzNCVGJXb3hjbXBGVkRGbU0wRjNTVVJCVVVGQ0NpMHRMUzB0UlU1RUlGQlZRa3hKUXlCTFJWa3RMUzB0TFE9PQAAAAABYgkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABAgAAACMzTjR2ZHFNc0VzQVpTSldmd1lKY2FDZ1V6QVNKVEMyQldzUAAAAAABYwkAAGgAAAACCQAAaAAAAAIAAAAAAAAAAGQAAAAAAAAAA+gAAAAAAAAAA+gAAAAAAWQAAAAAAAAAACwAAAAAAWUJAABpAAAAAgkAAGgAAAACAAAAAAAAAAAFBQAAAAFjAAAAAAAAAAPoAAAAAAFmAAAAAAAAAAAOAAAAAAFnAgAAAARJTklUAAAAAAFoAgAAAAVSRUFEWQAAAAABaQIAAAAIRklOSVNIRUQAAAAAAWoAAAAAAAAAAAAAAAAAAWsAAAAAAAAAAAEAAAAAAWwAAAAAAAAAAAIAAAAAAW0AAAAAAAAAAAMAAAAAAW4AAAAAAAAAAAQAAAAAAW8AAAAAAAAAAAUAAAAAAXAAAAAAAAAAAAYAAAAAAXEAAAAAAAAAAAcAAAAAAXIAAAAAAAAAAAgAAAAAAXMAAAAAAAAAAA0BAAAAAXQAAAABAAAAAXUDCQAAZgAAAAIAAAAAAAAAAAAFAAAAAXUJAQAAAAEtAAAAAQUAAAABdQUAAAABdQEAAAABdgAAAA4AAAABdwAAAAF4AAAAAXkAAAABegAAAAFBAAAAAUIAAAABQwAAAAFEAAAAAUUAAAABRgAAAAFHAAAAAUgAAAABSQAAAAFKBAAAAAFLCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAAF3AgAAAAFfBQAAAAF4AgAAAAFfBQAAAAF5AgAAAAFfBQAAAAF6AgAAAAFfBQAAAAFBAgAAAAFfBQAAAAFCAgAAAAFfBQAAAAFDAgAAAAFfBQAAAAFEAgAAAAFfBQAAAAFFAgAAAAFfBQAAAAFGAgAAAAFfBQAAAAFHAgAAAAFfBQAAAAFIAgAAAAFfBQAAAAFJAwkAAAAAAAACBQAAAAFKAgAAAAAJAAEsAAAAAgkAASwAAAACBQAAAAFLAgAAAAFfAgAAAAEtCQABLAAAAAIJAAEsAAAAAgUAAAABSwIAAAABXwUAAAABSgEAAAABTAAAAAEAAAABTQQAAAABTgkBAAAAEUBleHRyTmF0aXZlKDEwNTMpAAAAAgUAAAAEdGhpcwUAAAABTQkABLUAAAACBQAAAAFOAgAAAAFfAQAAAAFPAAAABQAAAAFQAAAAAVEAAAABUgAAAAFCAAAAAVMEAAAAAVQJAABkAAAAAgkAAGoAAAACCQEAAAABdAAAAAEJAASxAAAAAQUAAAABUwUAAAABUAUAAAABUQQAAAABVQkAAaQAAAABBQAAAAFUBAAAAAFWCQEAAAAJaXNEZWZpbmVkAAAAAQkABLMAAAACBQAAAAFSBQAAAAFVAwMJAQAAAAEhAAAAAQUAAAABVgkAAGYAAAACBQAAAAFCAAAAAAAAAAAABwkABEwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAABUgIAAAABLQUAAAABVQkABEwAAAACAgAAAAN5ZXMFAAAAA25pbAkABEwAAAACBQAAAAFSCQAETAAAAAICAAAAAAUAAAADbmlsAQAAAAFXAAAACwAAAAFNAAAAAVgAAAABWQAAAAFaAAAAAVIAAAABQgAAAAJhYQAAAAJhYgAAAAJhYwAAAAJhZAAAAAJhZQQAAAACYWYDCQAAZgAAAAIJAABkAAAAAgUAAAACYWEAAAAAAAAAAAEAAAAAAAAAAFcDCQAAZgAAAAIFAAAAAmFlAAAAAAAAAADxCQAETAAAAAIAAAAAAAAAAAAJAARMAAAAAgkAAGQAAAACBQAAAAJhYgAAAAAAAAAAAQkABEwAAAACCQAAZAAAAAIFAAAAAmFjAAAAAAAAAAABCQAETAAAAAIAAAAAAAAAAAAJAARMAAAAAgAAAAAAAAAAAQUAAAADbmlsCQAETAAAAAIAAAAAAAAAAAAJAARMAAAAAgUAAAACYWIJAARMAAAAAgUAAAACYWMJAARMAAAAAgkAAGQAAAACBQAAAAJhZAAAAAAAAAAAAQkABEwAAAACCQAAZAAAAAIFAAAAAmFlAAAAAAAAAAABBQAAAANuaWwJAARMAAAAAgkAAGQAAAACBQAAAAJhYQAAAAAAAAAAAQkABEwAAAACBQAAAAJhYgkABEwAAAACBQAAAAJhYwkABEwAAAACBQAAAAJhZAkABEwAAAACBQAAAAJhZQUAAAADbmlsBAAAAAJhZwkAAZEAAAACBQAAAAJhZgAAAAAAAAAAAAQAAAACYWgJAAGRAAAAAgUAAAACYWYAAAAAAAAAAAEEAAAAAmFpCQABkQAAAAIFAAAAAmFmAAAAAAAAAAACBAAAAAJhagkAAZEAAAACBQAAAAJhZgAAAAAAAAAAAwQAAAACYWsJAAGRAAAAAgUAAAACYWYAAAAAAAAAAAQJAADJAAAAAgkAAMoAAAACBQAAAAFaBQAAAAJhaAAAAAAAAAAAAQEAAAACYWwAAAADAAAAAU0AAAABQwAAAAJhbQQAAAACYW4JAAS1AAAAAggFAAAAAmFtAAAAA2tleQIAAAABXwMJAQAAAAIhPQAAAAIJAAGQAAAAAQUAAAACYW4AAAAAAAAAAAIJAAACAAAAAQIAAAA+SW52YWxpZCBkYXRhIGtleSBmb3JtYXQuIEl0IG11c3QgZm9sbG93IHRvICR7c2Vzc2lvbklkfV8ke251bX0EAAAAAmFvCQABkQAAAAIFAAAAAmFuAAAAAAAAAAAABAAAAAJhcAkAAZEAAAACBQAAAAJhbgAAAAAAAAAAAQMJAQAAAAIhPQAAAAIFAAAAAU0FAAAAAmFvCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAALFNldmVyYWwgZGF0YSBrZXlzIGhhdmUgZGlmZmVyZW50IHNlc3Npb25JZDogBQAAAAFNAgAAAAUgYW5kIAUAAAACYW8DCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzCAUAAAACYW0AAAADa2V5CQAAAgAAAAEJAAEsAAAAAgIAAABBT25lIG9mIHRoZSBkYXRhIGtleXMgaGFzIGFscmVhZHkgcHJlc2VudGVkIGluIGFjY291bnQgc3RhdGU6IGtleT0IBQAAAAJhbQAAAANrZXkDCQAAZgAAAAIJAAExAAAAAQUAAAACYXAAAAAAAAAAAAQJAAACAAAAAQIAAABtSW52YWxpZCBkYXRhIGtleSBmb3JtYXQuIEl0IG11c3QgZm9sbG93IHRvICR7c2Vzc2lvbklkfV8ke251bX0gd2hlcmUgJHtudW19IGxlbmd0aCBjb3VsZG4ndCBiZSBncmVhdGVyIHRoYW4gNAMJAAAAAAAAAgkAAS8AAAACBQAAAAJhcAAAAAAAAAAAAQIAAAABMAkAAAIAAAABAgAAAGFJbnZhbGlkIGRhdGEga2V5IGZvcm1hdC4gSXQgbXVzdCBmb2xsb3cgdG8gJHtzZXNzaW9uSWR9XyR7bnVtfSB3aGVyZSAke251bX0gY291bGRuJ3Qgc3RhcnQgZnJvbSAwBAAAAAJhcQkABLYAAAABBQAAAAJhcAMJAQAAAAlpc0RlZmluZWQAAAABBQAAAAJhcQQAAAACYXIJAQAAAAdleHRyYWN0AAAAAQUAAAACYXEDAwkAAGYAAAACAAAAAAAAAAABBQAAAAJhcgYJAABmAAAAAgUAAAACYXIFAAAAAUMJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAD5JbnZhbGlkIGRhdGEga2V5IGZvcm1hdC4gSXQgbXVzdCBmb2xsb3cgdG8gJHtzZXNzaW9uSWR9XyR7bnVtfQIAAAAyIHdoZXJlICR7bnVtfSBtdXN0IGJlIGEgdmFsaWQgaW50IHZhbHVlIGZyb20gMSB0byAJAAGkAAAAAQUAAAABQwIAAAAPIGJ1dCBhY3R1YWxOdW09CQABpAAAAAEFAAAAAmFyBAAAAAJhcwgFAAAAAmFtAAAABXZhbHVlAwkAAAEAAAACBQAAAAJhcwIAAAAGU3RyaW5nBAAAAAJhdAUAAAACYXMGCQAAAgAAAAEJAAEsAAAAAgUAAAABTQIAAAA5IGRyYXc6IG9ubHkgU3RyaW5nIHR5cGUgaXMgYWNjZXB0ZWQgZm9yIGRhdGEgdHJhbnNhY3Rpb25zCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAD5JbnZhbGlkIGRhdGEga2V5IGZvcm1hdC4gSXQgbXVzdCBmb2xsb3cgdG8gJHtzZXNzaW9uSWR9XyR7bnVtfQIAAABGIHdoZXJlICR7bnVtfSBtdXN0IGJlIGEgdmFsaWQgaW50IHZhbHVlIGZyb20gMSB0byAzMTI1MCBidXQgYWN0dWFsTnVtPQUAAAACYXABAAAAAmF1AAAAAwAAAAFBAAAAAmF2AAAAAmF3BAAAAAJheAAAAAAAAAAD6AQAAAACYXkJAABpAAAAAgkAAGgAAAACAAAAAAAAAAANBQAAAAFjAAAAAAAAAABkBAAAAAJhegAAAAAAAAAAMgQAAAACYUEJAABpAAAAAgkAAGgAAAACAAAAAAAAAAAIBQAAAAFjAAAAAAAAAABkBAAAAAJhQgAAAAAAAAATiAQAAAACYUMJAABpAAAAAgkAAGgAAAACAAAAAAAAAAEpBQAAAAFjAAAAAAAAAABkBAAAAAJhRAAAAAAAAAAD6AQAAAACYUUJAABpAAAAAgkAAGgAAAACAAAAAAAAAACPBQAAAAFjAAAAAAAAAABkBAAAAAJhRgAAAAAAAADDUAQAAAACYUcJAABpAAAAAgkAAGgAAAACAAAAAAAAAAWTBQAAAAFjAAAAAAAAAABkBAAAAAJhSAAAAAAAAAATiAQAAAACYUkJAABpAAAAAgkAAGgAAAACAAAAAAAAAALBBQAAAAFjAAAAAAAAAABkBAAAAAJhSgMJAABmAAAAAgUAAAACYXgFAAAAAUEJAABkAAAAAgUAAAACYXkJAABoAAAAAgkAAGkAAAACBQAAAAFBBQAAAAJhegUAAAACYUEDCQAAZgAAAAIFAAAAAmFCBQAAAAFBCQAAZAAAAAIFAAAAAmFDCQAAaAAAAAIJAABlAAAAAgkAAGkAAAACBQAAAAFBBQAAAAJhRAAAAAAAAAAAAQUAAAACYUUDCQAAZgAAAAIFAAAAAmFGBQAAAAFBCQAAZAAAAAIFAAAAAmFHCQAAaAAAAAIJAABlAAAAAgkAAGkAAAACBQAAAAFBBQAAAAJhSAAAAAAAAAAAAQUAAAACYUkJAAACAAAAAQIAAAA9UGxlYXNlIGNvbnRhY3Qgb3VyIHNhbGVzIHRlYW0gdG8gZ2VuZXJhdGUgbW9yZSB0aGFuIDUwayByYW5kcwQAAAACYUsJAABkAAAAAgUAAAACYUoFAAAAAmF3AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAJhdgAAAAdhc3NldElkCQAAAgAAAAECAAAAOE9ubHkgV0FWRVMgY2FuIGJlIHVzZWQgYXMgYSBwYXltZW50IGZvciByYW5kcyBnZW5lcmF0aW9uAwkAAGYAAAACBQAAAAJhSwgFAAAAAmF2AAAABmFtb3VudAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAApQXR0YWNoZWQgcGF5bWVudCBpcyB0byBzbWFsbCB0byBnZW5lcmF0ZSAJAAGkAAAAAQUAAAABQQIAAABBIHVuaXF1ZSByYW5kb21zIG51bWJlcnMgYW5kIHVwbG9hZCBhdCBsZWFzdCAxIGRhdGEgdHg6IGFjdHVhbFBtdD0JAAGkAAAAAQgFAAAAAmF2AAAABmFtb3VudAIAAAAPIGJ1dCBtaW5QbXQgaXMgCQABpAAAAAEFAAAAAmFLBQAAAAJhSgAAAAIAAAACYUwBAAAACGluaXREcmF3AAAAAwAAAAF5AAAAAXoAAAABQQQAAAABTQkAAlgAAAABCAUAAAACYUwAAAANdHJhbnNhY3Rpb25JZAQAAAACYU0JAABkAAAAAgkAAGUAAAACBQAAAAF6BQAAAAF5AAAAAAAAAAABBAAAAAJhTgkAAGkAAAACBQAAAAJhTQAAAAAAAAAAAgQAAAACYU8JAAExAAAAAQkAAaQAAAABCQAAZQAAAAIFAAAAAXoAAAAAAAAAAAEEAAAAAmFQCQABMQAAAAEJAAGkAAAAAQUAAAABQQQAAAACYVEJAABkAAAAAgkAAGQAAAACCQAAaAAAAAIAAAAAAAAAAAIFAAAAAmFPCQAAaAAAAAIAAAAAAAAAAAIFAAAAAmFQAAAAAAAAAAAEBAAAAAJhUgkAAGkAAAACCQAAZQAAAAIJAABlAAAAAgAAAAAAAAAUAAAAAAAAAAAArwUAAAACYVEJAABkAAAAAgUAAAACYU8AAAAAAAAAAAEDAwkAAGcAAAACAAAAAAAAAAAABQAAAAF5BgkAAGcAAAACAAAAAAAAAAAABQAAAAF6CQAAAgAAAAECAAAAKnJhbmRGcm9tIGFuZCByYW5kVG8gbXVzdCBiZSBncmVhdGVyIHRoYW4gMAMJAABnAAAAAgUAAAABeQUAAAABegkAAAIAAAABAgAAAChyYW5kRnJvbSBtdXN0IGJlIHN0cmljdCBsZXNzIHRoZW4gcmFuZFRvAwkAAGYAAAACBQAAAAFBBQAAAAJhTQkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAF0ltcG9zc2libGUgdG8gZ2VuZXJhdGUgCQABpAAAAAEFAAAAAUECAAAAKyB1bmlxdWUgbnVtYmVycyBmb3IgcHJvdmlkZWQgcmFuZG9tIHJhbmdlIFsJAAGkAAAAAQUAAAABeQIAAAACLCAJAAGkAAAAAQUAAAABegIAAAATXSB3aXRoIGFjdHVhbCBzaXplIAkAAaQAAAABBQAAAAJhTQMJAABmAAAAAgUAAAABQQUAAAACYU4JAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAABAcmFuZHNDb3VudCBtdXN0IGJlIGxlc3MgdGhlbiA1MCUgb2YgcGFzc2VkIHJhbmdlIGxlbmd0aDogcmFuZ2U9WwkAAaQAAAABBQAAAAF5AgAAAAIsIAkAAaQAAAABBQAAAAF6AgAAAA9dLCByYW5nZUxlbmd0aD0JAAGkAAAAAQUAAAACYU0CAAAADCByYW5kc0NvdW50PQkAAaQAAAABBQAAAAFBAgAAABMgYWxsb3dlZFJhbmRzQ291bnQ9CQABpAAAAAEFAAAAAmFOAwkAAGYAAAACBQAAAAFBBQAAAAJhUgkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAA8cmFuZHNDb3VudCBjb3VsZG4ndCBiZSBrZXB0IGluIDEgZGF0YSBlbnRyeTogMV9yYW5kTnVtU3BhY2U9CQABpAAAAAEJAABkAAAAAgUAAAACYU8AAAAAAAAAAAECAAAAFiBtYXhBbGxvd2VkUmFuZHNDb3VudD0JAAGkAAAAAQUAAAACYVICAAAAEiBhY3R1YWxSYW5kc0NvdW50PQkAAaQAAAABBQAAAAFBAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAAmFMAAAAB3BheW1lbnQJAAACAAAAAQIAAAA4UGxlYXNlIHByb3ZpZGUgcGF5bWVudCB0byBnZW5lcmF0ZSB1bmlxdWUgcmFuZG9tIG51bWJlcnMEAAAAAmF2CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAJhTAAAAAdwYXltZW50BAAAAAJhdwkAAGQAAAACCQAAaAAAAAIJAABpAAAAAgkAAGgAAAACBQAAAAFjAAAAAAAAAAABAAAAAAAAAAPoAAAAAAAAAAAhCQAAaQAAAAIJAABoAAAAAgUAAAABYwAAAAAAAAAABAAAAAAAAAAD6AQAAAACYVMJAQAAAAJhdQAAAAMFAAAAAUEFAAAAAmF2BQAAAAJhdwQAAAACYVQJAABlAAAAAggFAAAAAmF2AAAABmFtb3VudAUAAAACYVMEAAAAAmFVCQAAaQAAAAIFAAAAAmFUBQAAAAJhdwQAAAABQwMJAABnAAAAAgAAAAAAAAB6EgkAAGgAAAACBQAAAAJhVQAAAAAAAAAABQkAAGgAAAACBQAAAAJhVQAAAAAAAAAABQAAAAAAAAB6EgQAAAABeAkAAlgAAAABCAUAAAACYUwAAAAPY2FsbGVyUHVibGljS2V5BAAAAAJhVgkAAaQAAAABBQAAAAFBBAAAAAJhVwkBAAAAAXYAAAAOBQAAAAFoBQAAAAF4CQABpAAAAAEFAAAAAXkJAAGkAAAAAQUAAAABegUAAAACYVYFAAAAAmFWCQABpAAAAAEFAAAAAUMJAAJYAAAAAQgFAAAAAmFMAAAADXRyYW5zYWN0aW9uSWQCAAAAATACAAAAATACAAAAATECAAAAATACAAAAATECAAAAAAkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAAAU0FAAAAAmFXBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAABYgUAAAACYVMFAAAABHVuaXQFAAAAA25pbAAAAAJhTAEAAAAGcmFuZG9tAAAAAgAAAAFNAAAAAVoEAAAAAmFYCQEAAAABTAAAAAEFAAAAAU0EAAAAAXcJAAGRAAAAAgUAAAACYVgFAAAAAWoEAAAAAXgJAAGRAAAAAgUAAAACYVgFAAAAAWsEAAAAAmFWCQABkQAAAAIFAAAAAmFYBQAAAAFuBAAAAAJhWQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAAmFYBQAAAAFvBAAAAAJhYQkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAAmFYBQAAAAFyBAAAAAFSCQABkQAAAAIFAAAAAmFYBQAAAAFzBAAAAAJhWgkAAZEAAAACBQAAAAJhWAUAAAABbAQAAAACYmEJAAGRAAAAAgUAAAACYVgFAAAAAW0EAAAAAUQJAAGRAAAAAgUAAAACYVgFAAAAAXEEAAAAAUYJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAAJhWAAAAAAAAAAACQQAAAABRwkBAAAADXBhcnNlSW50VmFsdWUAAAABCQABkQAAAAIFAAAAAmFYAAAAAAAAAAAKBAAAAAFICQEAAAANcGFyc2VJbnRWYWx1ZQAAAAEJAAGRAAAAAgUAAAACYVgAAAAAAAAAAAsEAAAAAUkJAQAAAA1wYXJzZUludFZhbHVlAAAAAQkAAZEAAAACBQAAAAJhWAAAAAAAAAAADAQAAAABWAkBAAAADXBhcnNlSW50VmFsdWUAAAABBQAAAAJhWgQAAAABWQkBAAAADXBhcnNlSW50VmFsdWUAAAABBQAAAAJiYQQAAAACYmIJAAJZAAAAAQUAAAABeAMJAQAAAAIhPQAAAAIFAAAAAXcFAAAAAWgJAAACAAAAAQkAASwAAAACBQAAAAFNAgAAADsgZHJhdzogaXQgbXVzdCBiZSBpbiBSRUFEWSBzdGF0ZSB0byBnZW5lcmF0ZSByYW5kb20gbnVtYmVycwMHCQAAAgAAAAECAAAAFUludmFsaWQgUlNBIHNpZ25hdHVyZQQAAAACYmMJAQAAAAFXAAAACwUAAAABTQUAAAABWAUAAAABWQUAAAABWgUAAAABUgUAAAACYVkFAAAAAmFhBQAAAAFGBQAAAAFHBQAAAAFIBQAAAAFJCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAAhieXRlVmVjdAUAAAACYmMJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAABTQIAAAAEdGVzdAkAAMsAAAACCQABmwAAAAEFAAAAAU0JAAGbAAAAAQUAAAABRAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAFNAgAAAAZ0ZXN0LTICAAAAAmRzBQAAAANuaWwAAAAAW+zXWg==",
    "height": 1835405,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3XK6M7LVrqCt8ibtUXQt8Eix4muLWgwnXrtWbhE48PFS
Next: A7hqptXR326QEmn1GSESPwkjLiu1tHmef3PXWoDtmfb4

Diff: 
Old New Differences
76 76              then [0, (ab + 1), (ac + 1), 0, 1]
77 77              else [0, ab, ac, (ad + 1), (ae + 1)]
78 78          else [(aa + 1), ab, ac, ad, ae]
79 -     af
79 +     let ag = af[0]
80 +     let ah = af[1]
81 +     let ai = af[2]
82 +     let aj = af[3]
83 +     let ak = af[4]
84 +     take(drop(Z, ah), 1)
80 85      }
81 86  
82 87  
83 - func ag (M,C,ah) = {
84 -     let ai = split(ah.key, "_")
85 -     if ((size(ai) != 2))
88 + func al (M,C,am) = {
89 +     let an = split(am.key, "_")
90 +     if ((size(an) != 2))
86 91          then throw("Invalid data key format. It must follow to ${sessionId}_${num}")
87 92          else {
88 -             let aj = ai[0]
89 -             let ak = ai[1]
90 -             if ((M != aj))
91 -                 then throw(((("Several data keys have different sessionId: " + M) + " and ") + aj))
92 -                 else if (isDefined(getString(this, ah.key)))
93 -                     then throw(("One of the data keys has already presented in account state: key=" + ah.key))
94 -                     else if ((size(ak) > 4))
93 +             let ao = an[0]
94 +             let ap = an[1]
95 +             if ((M != ao))
96 +                 then throw(((("Several data keys have different sessionId: " + M) + " and ") + ao))
97 +                 else if (isDefined(getString(this, am.key)))
98 +                     then throw(("One of the data keys has already presented in account state: key=" + am.key))
99 +                     else if ((size(ap) > 4))
95 100                          then throw("Invalid data key format. It must follow to ${sessionId}_${num} where ${num} length couldn't be greater than 4")
96 -                         else if ((take(ak, 1) == "0"))
101 +                         else if ((take(ap, 1) == "0"))
97 102                              then throw("Invalid data key format. It must follow to ${sessionId}_${num} where ${num} couldn't start from 0")
98 103                              else {
99 -                                 let al = parseInt(ak)
100 -                                 if (isDefined(al))
104 +                                 let aq = parseInt(ap)
105 +                                 if (isDefined(aq))
101 106                                      then {
102 -                                         let am = extract(al)
103 -                                         if (if ((1 > am))
107 +                                         let ar = extract(aq)
108 +                                         if (if ((1 > ar))
104 109                                              then true
105 -                                             else (am > C))
106 -                                             then throw((((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to ") + toString(C)) + " but actualNum=") + toString(am)))
110 +                                             else (ar > C))
111 +                                             then throw((((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to ") + toString(C)) + " but actualNum=") + toString(ar)))
107 112                                              else {
108 -                                                 let an = ah.value
109 -                                                 if ($isInstanceOf(an, "String"))
113 +                                                 let as = am.value
114 +                                                 if ($isInstanceOf(as, "String"))
110 115                                                      then {
111 -                                                         let ao = an
116 +                                                         let at = as
112 117                                                          true
113 118                                                          }
114 119                                                      else throw((M + " draw: only String type is accepted for data transactions"))
115 120                                                  }
116 121                                          }
117 -                                     else throw((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to 31250 but actualNum=") + ak))
122 +                                     else throw((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to 31250 but actualNum=") + ap))
118 123                                  }
119 124              }
120 125      }
121 126  
122 127  
123 - func ap (A,aq,ar) = {
124 -     let as = 1000
125 -     let at = ((13 * c) / 100)
126 -     let au = 50
127 -     let av = ((8 * c) / 100)
128 -     let aw = 5000
129 -     let ax = ((297 * c) / 100)
130 -     let ay = 1000
131 -     let az = ((143 * c) / 100)
132 -     let aA = 50000
133 -     let aB = ((1427 * c) / 100)
134 -     let aC = 5000
135 -     let aD = ((705 * c) / 100)
136 -     let aE = if ((as > A))
137 -         then (at + ((A / au) * av))
138 -         else if ((aw > A))
139 -             then (ax + (((A / ay) - 1) * az))
140 -             else if ((aA > A))
141 -                 then (aB + (((A / aC) - 1) * aD))
128 + func au (A,av,aw) = {
129 +     let ax = 1000
130 +     let ay = ((13 * c) / 100)
131 +     let az = 50
132 +     let aA = ((8 * c) / 100)
133 +     let aB = 5000
134 +     let aC = ((297 * c) / 100)
135 +     let aD = 1000
136 +     let aE = ((143 * c) / 100)
137 +     let aF = 50000
138 +     let aG = ((1427 * c) / 100)
139 +     let aH = 5000
140 +     let aI = ((705 * c) / 100)
141 +     let aJ = if ((ax > A))
142 +         then (ay + ((A / az) * aA))
143 +         else if ((aB > A))
144 +             then (aC + (((A / aD) - 1) * aE))
145 +             else if ((aF > A))
146 +                 then (aG + (((A / aH) - 1) * aI))
142 147                  else throw("Please contact our sales team to generate more than 50k rands")
143 -     let aF = (aE + ar)
144 -     if (isDefined(aq.assetId))
148 +     let aK = (aJ + aw)
149 +     if (isDefined(av.assetId))
145 150          then throw("Only WAVES can be used as a payment for rands generation")
146 -         else if ((aF > aq.amount))
147 -             then throw(((((("Attached payment is to small to generate " + toString(A)) + " unique randoms numbers and upload at least 1 data tx: actualPmt=") + toString(aq.amount)) + " but minPmt is ") + toString(aF)))
148 -             else aE
151 +         else if ((aK > av.amount))
152 +             then throw(((((("Attached payment is to small to generate " + toString(A)) + " unique randoms numbers and upload at least 1 data tx: actualPmt=") + toString(av.amount)) + " but minPmt is ") + toString(aK)))
153 +             else aJ
149 154      }
150 155  
151 156  
152 - @Callable(aG)
157 + @Callable(aL)
153 158  func initDraw (y,z,A) = {
154 -     let M = toBase58String(aG.transactionId)
155 -     let aH = ((z - y) + 1)
156 -     let aI = (aH / 2)
157 -     let aJ = size(toString((z - 1)))
158 -     let aK = size(toString(A))
159 -     let aL = (((2 * aJ) + (2 * aK)) + 4)
160 -     let aM = (((5120 - 175) - aL) / (aJ + 1))
159 +     let M = toBase58String(aL.transactionId)
160 +     let aM = ((z - y) + 1)
161 +     let aN = (aM / 2)
162 +     let aO = size(toString((z - 1)))
163 +     let aP = size(toString(A))
164 +     let aQ = (((2 * aO) + (2 * aP)) + 4)
165 +     let aR = (((5120 - 175) - aQ) / (aO + 1))
161 166      if (if ((0 >= y))
162 167          then true
163 168          else (0 >= z))
164 169          then throw("randFrom and randTo must be greater than 0")
165 170          else if ((y >= z))
166 171              then throw("randFrom must be strict less then randTo")
167 -             else if ((A > aH))
168 -                 then throw(((((((("Impossible to generate " + toString(A)) + " unique numbers for provided random range [") + toString(y)) + ", ") + toString(z)) + "] with actual size ") + toString(aH)))
169 -                 else if ((A > aI))
170 -                     then throw(((((((((("randsCount must be less then 50% of passed range length: range=[" + toString(y)) + ", ") + toString(z)) + "], rangeLength=") + toString(aH)) + " randsCount=") + toString(A)) + " allowedRandsCount=") + toString(aI)))
171 -                     else if ((A > aM))
172 -                         then throw(((((("randsCount couldn't be kept in 1 data entry: 1_randNumSpace=" + toString((aJ + 1))) + " maxAllowedRandsCount=") + toString(aM)) + " actualRandsCount=") + toString(A)))
173 -                         else if (!(isDefined(aG.payment)))
172 +             else if ((A > aM))
173 +                 then throw(((((((("Impossible to generate " + toString(A)) + " unique numbers for provided random range [") + toString(y)) + ", ") + toString(z)) + "] with actual size ") + toString(aM)))
174 +                 else if ((A > aN))
175 +                     then throw(((((((((("randsCount must be less then 50% of passed range length: range=[" + toString(y)) + ", ") + toString(z)) + "], rangeLength=") + toString(aM)) + " randsCount=") + toString(A)) + " allowedRandsCount=") + toString(aN)))
176 +                     else if ((A > aR))
177 +                         then throw(((((("randsCount couldn't be kept in 1 data entry: 1_randNumSpace=" + toString((aO + 1))) + " maxAllowedRandsCount=") + toString(aR)) + " actualRandsCount=") + toString(A)))
178 +                         else if (!(isDefined(aL.payment)))
174 179                              then throw("Please provide payment to generate unique random numbers")
175 180                              else {
176 -                                 let aq = extract(aG.payment)
177 -                                 let ar = ((((c * 1) / 1000) * 33) + ((c * 4) / 1000))
178 -                                 let aN = ap(A, aq, ar)
179 -                                 let aO = (aq.amount - aN)
180 -                                 let aP = (aO / ar)
181 -                                 let C = if ((31250 >= (aP * 5)))
182 -                                     then (aP * 5)
181 +                                 let av = extract(aL.payment)
182 +                                 let aw = ((((c * 1) / 1000) * 33) + ((c * 4) / 1000))
183 +                                 let aS = au(A, av, aw)
184 +                                 let aT = (av.amount - aS)
185 +                                 let aU = (aT / aw)
186 +                                 let C = if ((31250 >= (aU * 5)))
187 +                                     then (aU * 5)
183 188                                      else 31250
184 -                                 let x = toBase58String(aG.callerPublicKey)
185 -                                 let aQ = toString(A)
186 -                                 let aR = v(h, x, toString(y), toString(z), aQ, aQ, toString(C), toBase58String(aG.transactionId), "0", "0", "1", "0", "1", "")
187 -                                 ScriptResult(WriteSet([DataEntry(M, aR)]), TransferSet([ScriptTransfer(b, aN, unit)]))
189 +                                 let x = toBase58String(aL.callerPublicKey)
190 +                                 let aV = toString(A)
191 +                                 let aW = v(h, x, toString(y), toString(z), aV, aV, toString(C), toBase58String(aL.transactionId), "0", "0", "1", "0", "1", "")
192 +                                 ScriptResult(WriteSet([DataEntry(M, aW)]), TransferSet([ScriptTransfer(b, aS, unit)]))
188 193                                  }
189 194      }
190 195  
191 196  
192 197  
193 - @Callable(aG)
198 + @Callable(aL)
194 199  func random (M,Z) = {
195 -     let aS = L(M)
196 -     let w = aS[j]
197 -     let x = aS[k]
198 -     let aQ = aS[n]
199 -     let aT = parseIntValue(aS[o])
200 -     let aa = parseIntValue(aS[r])
201 -     let R = aS[s]
202 -     let aU = aS[l]
203 -     let aV = aS[m]
204 -     let D = aS[q]
205 -     let F = parseIntValue(aS[9])
206 -     let G = parseIntValue(aS[10])
207 -     let H = parseIntValue(aS[11])
208 -     let I = parseIntValue(aS[12])
209 -     let X = parseIntValue(aU)
210 -     let Y = parseIntValue(aV)
211 -     let aW = fromBase58String(x)
200 +     let aX = L(M)
201 +     let w = aX[j]
202 +     let x = aX[k]
203 +     let aV = aX[n]
204 +     let aY = parseIntValue(aX[o])
205 +     let aa = parseIntValue(aX[r])
206 +     let R = aX[s]
207 +     let aZ = aX[l]
208 +     let ba = aX[m]
209 +     let D = aX[q]
210 +     let F = parseIntValue(aX[9])
211 +     let G = parseIntValue(aX[10])
212 +     let H = parseIntValue(aX[11])
213 +     let I = parseIntValue(aX[12])
214 +     let X = parseIntValue(aZ)
215 +     let Y = parseIntValue(ba)
216 +     let bb = fromBase58String(x)
212 217      if ((w != h))
213 218          then throw((M + " draw: it must be in READY state to generate random numbers"))
214 219          else if (false)
215 220              then throw("Invalid RSA signature")
216 221              else {
217 -                 let aX = W(M, X, Y, Z, R, aT, aa, F, G, H, I)
218 -                 WriteSet([DataEntry("byteVect1", aX[1]), DataEntry("byteVect2", aX[2]), DataEntry("byteVect3", aX[3]), DataEntry("byteVect4", aX[4]), DataEntry((M + "test"), (toBytes(M) + toBytes(D))), DataEntry((M + "test-2"), "ds")])
222 +                 let bc = W(M, X, Y, Z, R, aY, aa, F, G, H, I)
223 +                 WriteSet([DataEntry("byteVect", bc), DataEntry((M + "test"), (toBytes(M) + toBytes(D))), DataEntry((M + "test-2"), "ds")])
219 224                  }
220 225      }
221 226  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = fromBase64String("base64:LS0tLS1CRUdJTiBQVUJMSUMgS0VZLS0tLS0KTUlHZk1BMEdDU3FHU0liM0RRRUJBUVVBQTRHTkFEQ0JpUUtCZ1FDR25Hd3ZVbG1mTG5ZTkdyRSszczR2QTZRZAowa29PNzdZUjJDdTZpOWQvalE2OVJkU0hHRFlwb3hKM1gvSS84MmtpS1JRcHlwcWJjUS9UY3IxV1VRM1RDQmk1CnFmYyt4ZWVyOS9ncnhUOExJazEvVFhXVEZBQzA2M3R3V1dPbVpXcGNPN3kyZlRuUklkSFRlaUs0T1pzSyt1Z2UKOTdGS3BTbWoxcmpFVDFmM0F3SURBUUFCCi0tLS0tRU5EIFBVQkxJQyBLRVktLS0tLQ==")
5 5  
6 6  let b = addressFromStringValue("3N4vdqMsEsAZSJWfwYJcaCgUzASJTC2BWsP")
7 7  
8 8  let c = ((100 * 1000) * 1000)
9 9  
10 10  let d = 44
11 11  
12 12  let e = ((5 * c) / 1000)
13 13  
14 14  let f = 14
15 15  
16 16  let g = "INIT"
17 17  
18 18  let h = "READY"
19 19  
20 20  let i = "FINISHED"
21 21  
22 22  let j = 0
23 23  
24 24  let k = 1
25 25  
26 26  let l = 2
27 27  
28 28  let m = 3
29 29  
30 30  let n = 4
31 31  
32 32  let o = 5
33 33  
34 34  let p = 6
35 35  
36 36  let q = 7
37 37  
38 38  let r = 8
39 39  
40 40  let s = 13
41 41  
42 42  func t (u) = if ((0 > u))
43 43      then -(u)
44 44      else u
45 45  
46 46  
47 47  func v (w,x,y,z,A,B,C,D,E,F,G,H,I,J) = {
48 48      let K = ((((((((((((((((((((((((w + "_") + x) + "_") + y) + "_") + z) + "_") + A) + "_") + B) + "_") + C) + "_") + D) + "_") + E) + "_") + F) + "_") + G) + "_") + H) + "_") + I)
49 49      if ((J == ""))
50 50          then ((K + "_") + "-")
51 51          else ((K + "_") + J)
52 52      }
53 53  
54 54  
55 55  func L (M) = {
56 56      let N = getStringValue(this, M)
57 57      split(N, "_")
58 58      }
59 59  
60 60  
61 61  func O (P,Q,R,B,S) = {
62 62      let T = ((t(toInt(S)) % P) + Q)
63 63      let U = toString(T)
64 64      let V = isDefined(indexOf(R, U))
65 65      if (if (!(V))
66 66          then (B > 0)
67 67          else false)
68 68          then [((R + "-") + U), "yes"]
69 69          else [R, ""]
70 70      }
71 71  
72 72  
73 73  func W (M,X,Y,Z,R,B,aa,ab,ac,ad,ae) = {
74 74      let af = if (((aa + 1) > 87))
75 75          then if ((ae > 241))
76 76              then [0, (ab + 1), (ac + 1), 0, 1]
77 77              else [0, ab, ac, (ad + 1), (ae + 1)]
78 78          else [(aa + 1), ab, ac, ad, ae]
79 -     af
79 +     let ag = af[0]
80 +     let ah = af[1]
81 +     let ai = af[2]
82 +     let aj = af[3]
83 +     let ak = af[4]
84 +     take(drop(Z, ah), 1)
80 85      }
81 86  
82 87  
83 - func ag (M,C,ah) = {
84 -     let ai = split(ah.key, "_")
85 -     if ((size(ai) != 2))
88 + func al (M,C,am) = {
89 +     let an = split(am.key, "_")
90 +     if ((size(an) != 2))
86 91          then throw("Invalid data key format. It must follow to ${sessionId}_${num}")
87 92          else {
88 -             let aj = ai[0]
89 -             let ak = ai[1]
90 -             if ((M != aj))
91 -                 then throw(((("Several data keys have different sessionId: " + M) + " and ") + aj))
92 -                 else if (isDefined(getString(this, ah.key)))
93 -                     then throw(("One of the data keys has already presented in account state: key=" + ah.key))
94 -                     else if ((size(ak) > 4))
93 +             let ao = an[0]
94 +             let ap = an[1]
95 +             if ((M != ao))
96 +                 then throw(((("Several data keys have different sessionId: " + M) + " and ") + ao))
97 +                 else if (isDefined(getString(this, am.key)))
98 +                     then throw(("One of the data keys has already presented in account state: key=" + am.key))
99 +                     else if ((size(ap) > 4))
95 100                          then throw("Invalid data key format. It must follow to ${sessionId}_${num} where ${num} length couldn't be greater than 4")
96 -                         else if ((take(ak, 1) == "0"))
101 +                         else if ((take(ap, 1) == "0"))
97 102                              then throw("Invalid data key format. It must follow to ${sessionId}_${num} where ${num} couldn't start from 0")
98 103                              else {
99 -                                 let al = parseInt(ak)
100 -                                 if (isDefined(al))
104 +                                 let aq = parseInt(ap)
105 +                                 if (isDefined(aq))
101 106                                      then {
102 -                                         let am = extract(al)
103 -                                         if (if ((1 > am))
107 +                                         let ar = extract(aq)
108 +                                         if (if ((1 > ar))
104 109                                              then true
105 -                                             else (am > C))
106 -                                             then throw((((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to ") + toString(C)) + " but actualNum=") + toString(am)))
110 +                                             else (ar > C))
111 +                                             then throw((((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to ") + toString(C)) + " but actualNum=") + toString(ar)))
107 112                                              else {
108 -                                                 let an = ah.value
109 -                                                 if ($isInstanceOf(an, "String"))
113 +                                                 let as = am.value
114 +                                                 if ($isInstanceOf(as, "String"))
110 115                                                      then {
111 -                                                         let ao = an
116 +                                                         let at = as
112 117                                                          true
113 118                                                          }
114 119                                                      else throw((M + " draw: only String type is accepted for data transactions"))
115 120                                                  }
116 121                                          }
117 -                                     else throw((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to 31250 but actualNum=") + ak))
122 +                                     else throw((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to 31250 but actualNum=") + ap))
118 123                                  }
119 124              }
120 125      }
121 126  
122 127  
123 - func ap (A,aq,ar) = {
124 -     let as = 1000
125 -     let at = ((13 * c) / 100)
126 -     let au = 50
127 -     let av = ((8 * c) / 100)
128 -     let aw = 5000
129 -     let ax = ((297 * c) / 100)
130 -     let ay = 1000
131 -     let az = ((143 * c) / 100)
132 -     let aA = 50000
133 -     let aB = ((1427 * c) / 100)
134 -     let aC = 5000
135 -     let aD = ((705 * c) / 100)
136 -     let aE = if ((as > A))
137 -         then (at + ((A / au) * av))
138 -         else if ((aw > A))
139 -             then (ax + (((A / ay) - 1) * az))
140 -             else if ((aA > A))
141 -                 then (aB + (((A / aC) - 1) * aD))
128 + func au (A,av,aw) = {
129 +     let ax = 1000
130 +     let ay = ((13 * c) / 100)
131 +     let az = 50
132 +     let aA = ((8 * c) / 100)
133 +     let aB = 5000
134 +     let aC = ((297 * c) / 100)
135 +     let aD = 1000
136 +     let aE = ((143 * c) / 100)
137 +     let aF = 50000
138 +     let aG = ((1427 * c) / 100)
139 +     let aH = 5000
140 +     let aI = ((705 * c) / 100)
141 +     let aJ = if ((ax > A))
142 +         then (ay + ((A / az) * aA))
143 +         else if ((aB > A))
144 +             then (aC + (((A / aD) - 1) * aE))
145 +             else if ((aF > A))
146 +                 then (aG + (((A / aH) - 1) * aI))
142 147                  else throw("Please contact our sales team to generate more than 50k rands")
143 -     let aF = (aE + ar)
144 -     if (isDefined(aq.assetId))
148 +     let aK = (aJ + aw)
149 +     if (isDefined(av.assetId))
145 150          then throw("Only WAVES can be used as a payment for rands generation")
146 -         else if ((aF > aq.amount))
147 -             then throw(((((("Attached payment is to small to generate " + toString(A)) + " unique randoms numbers and upload at least 1 data tx: actualPmt=") + toString(aq.amount)) + " but minPmt is ") + toString(aF)))
148 -             else aE
151 +         else if ((aK > av.amount))
152 +             then throw(((((("Attached payment is to small to generate " + toString(A)) + " unique randoms numbers and upload at least 1 data tx: actualPmt=") + toString(av.amount)) + " but minPmt is ") + toString(aK)))
153 +             else aJ
149 154      }
150 155  
151 156  
152 - @Callable(aG)
157 + @Callable(aL)
153 158  func initDraw (y,z,A) = {
154 -     let M = toBase58String(aG.transactionId)
155 -     let aH = ((z - y) + 1)
156 -     let aI = (aH / 2)
157 -     let aJ = size(toString((z - 1)))
158 -     let aK = size(toString(A))
159 -     let aL = (((2 * aJ) + (2 * aK)) + 4)
160 -     let aM = (((5120 - 175) - aL) / (aJ + 1))
159 +     let M = toBase58String(aL.transactionId)
160 +     let aM = ((z - y) + 1)
161 +     let aN = (aM / 2)
162 +     let aO = size(toString((z - 1)))
163 +     let aP = size(toString(A))
164 +     let aQ = (((2 * aO) + (2 * aP)) + 4)
165 +     let aR = (((5120 - 175) - aQ) / (aO + 1))
161 166      if (if ((0 >= y))
162 167          then true
163 168          else (0 >= z))
164 169          then throw("randFrom and randTo must be greater than 0")
165 170          else if ((y >= z))
166 171              then throw("randFrom must be strict less then randTo")
167 -             else if ((A > aH))
168 -                 then throw(((((((("Impossible to generate " + toString(A)) + " unique numbers for provided random range [") + toString(y)) + ", ") + toString(z)) + "] with actual size ") + toString(aH)))
169 -                 else if ((A > aI))
170 -                     then throw(((((((((("randsCount must be less then 50% of passed range length: range=[" + toString(y)) + ", ") + toString(z)) + "], rangeLength=") + toString(aH)) + " randsCount=") + toString(A)) + " allowedRandsCount=") + toString(aI)))
171 -                     else if ((A > aM))
172 -                         then throw(((((("randsCount couldn't be kept in 1 data entry: 1_randNumSpace=" + toString((aJ + 1))) + " maxAllowedRandsCount=") + toString(aM)) + " actualRandsCount=") + toString(A)))
173 -                         else if (!(isDefined(aG.payment)))
172 +             else if ((A > aM))
173 +                 then throw(((((((("Impossible to generate " + toString(A)) + " unique numbers for provided random range [") + toString(y)) + ", ") + toString(z)) + "] with actual size ") + toString(aM)))
174 +                 else if ((A > aN))
175 +                     then throw(((((((((("randsCount must be less then 50% of passed range length: range=[" + toString(y)) + ", ") + toString(z)) + "], rangeLength=") + toString(aM)) + " randsCount=") + toString(A)) + " allowedRandsCount=") + toString(aN)))
176 +                     else if ((A > aR))
177 +                         then throw(((((("randsCount couldn't be kept in 1 data entry: 1_randNumSpace=" + toString((aO + 1))) + " maxAllowedRandsCount=") + toString(aR)) + " actualRandsCount=") + toString(A)))
178 +                         else if (!(isDefined(aL.payment)))
174 179                              then throw("Please provide payment to generate unique random numbers")
175 180                              else {
176 -                                 let aq = extract(aG.payment)
177 -                                 let ar = ((((c * 1) / 1000) * 33) + ((c * 4) / 1000))
178 -                                 let aN = ap(A, aq, ar)
179 -                                 let aO = (aq.amount - aN)
180 -                                 let aP = (aO / ar)
181 -                                 let C = if ((31250 >= (aP * 5)))
182 -                                     then (aP * 5)
181 +                                 let av = extract(aL.payment)
182 +                                 let aw = ((((c * 1) / 1000) * 33) + ((c * 4) / 1000))
183 +                                 let aS = au(A, av, aw)
184 +                                 let aT = (av.amount - aS)
185 +                                 let aU = (aT / aw)
186 +                                 let C = if ((31250 >= (aU * 5)))
187 +                                     then (aU * 5)
183 188                                      else 31250
184 -                                 let x = toBase58String(aG.callerPublicKey)
185 -                                 let aQ = toString(A)
186 -                                 let aR = v(h, x, toString(y), toString(z), aQ, aQ, toString(C), toBase58String(aG.transactionId), "0", "0", "1", "0", "1", "")
187 -                                 ScriptResult(WriteSet([DataEntry(M, aR)]), TransferSet([ScriptTransfer(b, aN, unit)]))
189 +                                 let x = toBase58String(aL.callerPublicKey)
190 +                                 let aV = toString(A)
191 +                                 let aW = v(h, x, toString(y), toString(z), aV, aV, toString(C), toBase58String(aL.transactionId), "0", "0", "1", "0", "1", "")
192 +                                 ScriptResult(WriteSet([DataEntry(M, aW)]), TransferSet([ScriptTransfer(b, aS, unit)]))
188 193                                  }
189 194      }
190 195  
191 196  
192 197  
193 - @Callable(aG)
198 + @Callable(aL)
194 199  func random (M,Z) = {
195 -     let aS = L(M)
196 -     let w = aS[j]
197 -     let x = aS[k]
198 -     let aQ = aS[n]
199 -     let aT = parseIntValue(aS[o])
200 -     let aa = parseIntValue(aS[r])
201 -     let R = aS[s]
202 -     let aU = aS[l]
203 -     let aV = aS[m]
204 -     let D = aS[q]
205 -     let F = parseIntValue(aS[9])
206 -     let G = parseIntValue(aS[10])
207 -     let H = parseIntValue(aS[11])
208 -     let I = parseIntValue(aS[12])
209 -     let X = parseIntValue(aU)
210 -     let Y = parseIntValue(aV)
211 -     let aW = fromBase58String(x)
200 +     let aX = L(M)
201 +     let w = aX[j]
202 +     let x = aX[k]
203 +     let aV = aX[n]
204 +     let aY = parseIntValue(aX[o])
205 +     let aa = parseIntValue(aX[r])
206 +     let R = aX[s]
207 +     let aZ = aX[l]
208 +     let ba = aX[m]
209 +     let D = aX[q]
210 +     let F = parseIntValue(aX[9])
211 +     let G = parseIntValue(aX[10])
212 +     let H = parseIntValue(aX[11])
213 +     let I = parseIntValue(aX[12])
214 +     let X = parseIntValue(aZ)
215 +     let Y = parseIntValue(ba)
216 +     let bb = fromBase58String(x)
212 217      if ((w != h))
213 218          then throw((M + " draw: it must be in READY state to generate random numbers"))
214 219          else if (false)
215 220              then throw("Invalid RSA signature")
216 221              else {
217 -                 let aX = W(M, X, Y, Z, R, aT, aa, F, G, H, I)
218 -                 WriteSet([DataEntry("byteVect1", aX[1]), DataEntry("byteVect2", aX[2]), DataEntry("byteVect3", aX[3]), DataEntry("byteVect4", aX[4]), DataEntry((M + "test"), (toBytes(M) + toBytes(D))), DataEntry((M + "test-2"), "ds")])
222 +                 let bc = W(M, X, Y, Z, R, aY, aa, F, G, H, I)
223 +                 WriteSet([DataEntry("byteVect", bc), DataEntry((M + "test"), (toBytes(M) + toBytes(D))), DataEntry((M + "test-2"), "ds")])
219 224                  }
220 225      }
221 226  
222 227

Old	New		Differences
76	76		then [0, (ab + 1), (ac + 1), 0, 1]
77	77		else [0, ab, ac, (ad + 1), (ae + 1)]
78	78		else [(aa + 1), ab, ac, ad, ae]
79		-	af
	79	+	let ag = af[0]
	80	+	let ah = af[1]
	81	+	let ai = af[2]
	82	+	let aj = af[3]
	83	+	let ak = af[4]
	84	+	take(drop(Z, ah), 1)
80	85		}
81	86
82	87
83		-	func ag (M,C,ah) = {
84		-	let ai = split(ah.key, "_")
85		-	if ((size(ai) != 2))
	88	+	func al (M,C,am) = {
	89	+	let an = split(am.key, "_")
	90	+	if ((size(an) != 2))
86	91		then throw("Invalid data key format. It must follow to ${sessionId}_${num}")
87	92		else {
88		-	let aj = ai[0]
89		-	let ak = ai[1]
90		-	if ((M != aj))
91		-	then throw(((("Several data keys have different sessionId: " + M) + " and ") + aj))
92		-	else if (isDefined(getString(this, ah.key)))
93		-	then throw(("One of the data keys has already presented in account state: key=" + ah.key))
94		-	else if ((size(ak) > 4))
	93	+	let ao = an[0]
	94	+	let ap = an[1]
	95	+	if ((M != ao))
	96	+	then throw(((("Several data keys have different sessionId: " + M) + " and ") + ao))
	97	+	else if (isDefined(getString(this, am.key)))
	98	+	then throw(("One of the data keys has already presented in account state: key=" + am.key))
	99	+	else if ((size(ap) > 4))
95	100		then throw("Invalid data key format. It must follow to ${sessionId}_${num} where ${num} length couldn't be greater than 4")
96		-	else if ((take(ak, 1) == "0"))
	101	+	else if ((take(ap, 1) == "0"))
97	102		then throw("Invalid data key format. It must follow to ${sessionId}_${num} where ${num} couldn't start from 0")
98	103		else {
99		-	let al = parseInt(ak)
100		-	if (isDefined(al))
	104	+	let aq = parseInt(ap)
	105	+	if (isDefined(aq))
101	106		then {
102		-	let am = extract(al)
103		-	if (if ((1 > am))
	107	+	let ar = extract(aq)
	108	+	if (if ((1 > ar))
104	109		then true
105		-	else (am > C))
106		-	then throw((((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to ") + toString(C)) + " but actualNum=") + toString(am)))
	110	+	else (ar > C))
	111	+	then throw((((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to ") + toString(C)) + " but actualNum=") + toString(ar)))
107	112		else {
108		-	let an = ah.value
109		-	if ($isInstanceOf(an, "String"))
	113	+	let as = am.value
	114	+	if ($isInstanceOf(as, "String"))
110	115		then {
111		-	let ao = an
	116	+	let at = as
112	117		true
113	118		}
114	119		else throw((M + " draw: only String type is accepted for data transactions"))
115	120		}
116	121		}
117		-	else throw((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to 31250 but actualNum=") + ak))
	122	+	else throw((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to 31250 but actualNum=") + ap))
118	123		}
119	124		}
120	125		}
121	126
122	127
123		-	func ap (A,aq,ar) = {
124		-	let as = 1000
125		-	let at = ((13 * c) / 100)
126		-	let au = 50
127		-	let av = ((8 * c) / 100)
128		-	let aw = 5000
129		-	let ax = ((297 * c) / 100)
130		-	let ay = 1000
131		-	let az = ((143 * c) / 100)
132		-	let aA = 50000
133		-	let aB = ((1427 * c) / 100)
134		-	let aC = 5000
135		-	let aD = ((705 * c) / 100)
136		-	let aE = if ((as > A))
137		-	then (at + ((A / au) * av))
138		-	else if ((aw > A))
139		-	then (ax + (((A / ay) - 1) * az))
140		-	else if ((aA > A))
141		-	then (aB + (((A / aC) - 1) * aD))
	128	+	func au (A,av,aw) = {
	129	+	let ax = 1000
	130	+	let ay = ((13 * c) / 100)
	131	+	let az = 50
	132	+	let aA = ((8 * c) / 100)
	133	+	let aB = 5000
	134	+	let aC = ((297 * c) / 100)
	135	+	let aD = 1000
	136	+	let aE = ((143 * c) / 100)
	137	+	let aF = 50000
	138	+	let aG = ((1427 * c) / 100)
	139	+	let aH = 5000
	140	+	let aI = ((705 * c) / 100)
	141	+	let aJ = if ((ax > A))
	142	+	then (ay + ((A / az) * aA))
	143	+	else if ((aB > A))
	144	+	then (aC + (((A / aD) - 1) * aE))
	145	+	else if ((aF > A))
	146	+	then (aG + (((A / aH) - 1) * aI))
142	147		else throw("Please contact our sales team to generate more than 50k rands")
143		-	let aF = (aE + ar)
144		-	if (isDefined(aq.assetId))
	148	+	let aK = (aJ + aw)
	149	+	if (isDefined(av.assetId))
145	150		then throw("Only WAVES can be used as a payment for rands generation")
146		-	else if ((aF > aq.amount))
147		-	then throw(((((("Attached payment is to small to generate " + toString(A)) + " unique randoms numbers and upload at least 1 data tx: actualPmt=") + toString(aq.amount)) + " but minPmt is ") + toString(aF)))
148		-	else aE
	151	+	else if ((aK > av.amount))
	152	+	then throw(((((("Attached payment is to small to generate " + toString(A)) + " unique randoms numbers and upload at least 1 data tx: actualPmt=") + toString(av.amount)) + " but minPmt is ") + toString(aK)))
	153	+	else aJ
149	154		}
150	155
151	156
152		-	@Callable(aG)
	157	+	@Callable(aL)
153	158		func initDraw (y,z,A) = {
154		-	let M = toBase58String(aG.transactionId)
155		-	let aH = ((z - y) + 1)
156		-	let aI = (aH / 2)
157		-	let aJ = size(toString((z - 1)))
158		-	let aK = size(toString(A))
159		-	let aL = (((2 * aJ) + (2 * aK)) + 4)
160		-	let aM = (((5120 - 175) - aL) / (aJ + 1))
	159	+	let M = toBase58String(aL.transactionId)
	160	+	let aM = ((z - y) + 1)
	161	+	let aN = (aM / 2)
	162	+	let aO = size(toString((z - 1)))
	163	+	let aP = size(toString(A))
	164	+	let aQ = (((2 * aO) + (2 * aP)) + 4)
	165	+	let aR = (((5120 - 175) - aQ) / (aO + 1))
161	166		if (if ((0 >= y))
162	167		then true
163	168		else (0 >= z))
164	169		then throw("randFrom and randTo must be greater than 0")
165	170		else if ((y >= z))
166	171		then throw("randFrom must be strict less then randTo")
167		-	else if ((A > aH))
168		-	then throw(((((((("Impossible to generate " + toString(A)) + " unique numbers for provided random range [") + toString(y)) + ", ") + toString(z)) + "] with actual size ") + toString(aH)))
169		-	else if ((A > aI))
170		-	then throw(((((((((("randsCount must be less then 50% of passed range length: range=[" + toString(y)) + ", ") + toString(z)) + "], rangeLength=") + toString(aH)) + " randsCount=") + toString(A)) + " allowedRandsCount=") + toString(aI)))
171		-	else if ((A > aM))
172		-	then throw(((((("randsCount couldn't be kept in 1 data entry: 1_randNumSpace=" + toString((aJ + 1))) + " maxAllowedRandsCount=") + toString(aM)) + " actualRandsCount=") + toString(A)))
173		-	else if (!(isDefined(aG.payment)))
	172	+	else if ((A > aM))
	173	+	then throw(((((((("Impossible to generate " + toString(A)) + " unique numbers for provided random range [") + toString(y)) + ", ") + toString(z)) + "] with actual size ") + toString(aM)))
	174	+	else if ((A > aN))
	175	+	then throw(((((((((("randsCount must be less then 50% of passed range length: range=[" + toString(y)) + ", ") + toString(z)) + "], rangeLength=") + toString(aM)) + " randsCount=") + toString(A)) + " allowedRandsCount=") + toString(aN)))
	176	+	else if ((A > aR))
	177	+	then throw(((((("randsCount couldn't be kept in 1 data entry: 1_randNumSpace=" + toString((aO + 1))) + " maxAllowedRandsCount=") + toString(aR)) + " actualRandsCount=") + toString(A)))
	178	+	else if (!(isDefined(aL.payment)))
174	179		then throw("Please provide payment to generate unique random numbers")
175	180		else {
176		-	let aq = extract(aG.payment)
177		-	let ar = ((((c * 1) / 1000) * 33) + ((c * 4) / 1000))
178		-	let aN = ap(A, aq, ar)
179		-	let aO = (aq.amount - aN)
180		-	let aP = (aO / ar)
181		-	let C = if ((31250 >= (aP * 5)))
182		-	then (aP * 5)
	181	+	let av = extract(aL.payment)
	182	+	let aw = ((((c * 1) / 1000) * 33) + ((c * 4) / 1000))
	183	+	let aS = au(A, av, aw)
	184	+	let aT = (av.amount - aS)
	185	+	let aU = (aT / aw)
	186	+	let C = if ((31250 >= (aU * 5)))
	187	+	then (aU * 5)
183	188		else 31250
184		-	let x = toBase58String(aG.callerPublicKey)
185		-	let aQ = toString(A)
186		-	let aR = v(h, x, toString(y), toString(z), aQ, aQ, toString(C), toBase58String(aG.transactionId), "0", "0", "1", "0", "1", "")
187		-	ScriptResult(WriteSet([DataEntry(M, aR)]), TransferSet([ScriptTransfer(b, aN, unit)]))
	189	+	let x = toBase58String(aL.callerPublicKey)
	190	+	let aV = toString(A)
	191	+	let aW = v(h, x, toString(y), toString(z), aV, aV, toString(C), toBase58String(aL.transactionId), "0", "0", "1", "0", "1", "")
	192	+	ScriptResult(WriteSet([DataEntry(M, aW)]), TransferSet([ScriptTransfer(b, aS, unit)]))
188	193		}
189	194		}
190	195
191	196
192	197
193		-	@Callable(aG)
	198	+	@Callable(aL)
194	199		func random (M,Z) = {
195		-	let aS = L(M)
196		-	let w = aS[j]
197		-	let x = aS[k]
198		-	let aQ = aS[n]
199		-	let aT = parseIntValue(aS[o])
200		-	let aa = parseIntValue(aS[r])
201		-	let R = aS[s]
202		-	let aU = aS[l]
203		-	let aV = aS[m]
204		-	let D = aS[q]
205		-	let F = parseIntValue(aS[9])
206		-	let G = parseIntValue(aS[10])
207		-	let H = parseIntValue(aS[11])
208		-	let I = parseIntValue(aS[12])
209		-	let X = parseIntValue(aU)
210		-	let Y = parseIntValue(aV)
211		-	let aW = fromBase58String(x)
	200	+	let aX = L(M)
	201	+	let w = aX[j]
	202	+	let x = aX[k]
	203	+	let aV = aX[n]
	204	+	let aY = parseIntValue(aX[o])
	205	+	let aa = parseIntValue(aX[r])
	206	+	let R = aX[s]
	207	+	let aZ = aX[l]
	208	+	let ba = aX[m]
	209	+	let D = aX[q]
	210	+	let F = parseIntValue(aX[9])
	211	+	let G = parseIntValue(aX[10])
	212	+	let H = parseIntValue(aX[11])
	213	+	let I = parseIntValue(aX[12])
	214	+	let X = parseIntValue(aZ)
	215	+	let Y = parseIntValue(ba)
	216	+	let bb = fromBase58String(x)
212	217		if ((w != h))
213	218		then throw((M + " draw: it must be in READY state to generate random numbers"))
214	219		else if (false)
215	220		then throw("Invalid RSA signature")
216	221		else {
217		-	let aX = W(M, X, Y, Z, R, aT, aa, F, G, H, I)
218		-	WriteSet([DataEntry("~~byteVect1~~", ~~aX[1]), DataEntry("byteVect2", aX[2]), DataEntry("byteVect3", aX[3]), DataEntry("byteVect4", aX[4]~~), DataEntry((M + "test"), (toBytes(M) + toBytes(D))), DataEntry((M + "test-2"), "ds")])
	222	+	let bc = W(M, X, Y, Z, R, aY, aa, F, G, H, I)
	223	+	WriteSet([DataEntry("byteVect", bc), DataEntry((M + "test"), (toBytes(M) + toBytes(D))), DataEntry((M + "test-2"), "ds")])
219	224		}
220	225		}
221	226

Old	New		Differences
1	1		{-# STDLIB_VERSION 3 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let a = fromBase64String("base64:LS0tLS1CRUdJTiBQVUJMSUMgS0VZLS0tLS0KTUlHZk1BMEdDU3FHU0liM0RRRUJBUVVBQTRHTkFEQ0JpUUtCZ1FDR25Hd3ZVbG1mTG5ZTkdyRSszczR2QTZRZAowa29PNzdZUjJDdTZpOWQvalE2OVJkU0hHRFlwb3hKM1gvSS84MmtpS1JRcHlwcWJjUS9UY3IxV1VRM1RDQmk1CnFmYyt4ZWVyOS9ncnhUOExJazEvVFhXVEZBQzA2M3R3V1dPbVpXcGNPN3kyZlRuUklkSFRlaUs0T1pzSyt1Z2UKOTdGS3BTbWoxcmpFVDFmM0F3SURBUUFCCi0tLS0tRU5EIFBVQkxJQyBLRVktLS0tLQ==")
5	5
6	6		let b = addressFromStringValue("3N4vdqMsEsAZSJWfwYJcaCgUzASJTC2BWsP")
7	7
8	8		let c = ((100 * 1000) * 1000)
9	9
10	10		let d = 44
11	11
12	12		let e = ((5 * c) / 1000)
13	13
14	14		let f = 14
15	15
16	16		let g = "INIT"
17	17
18	18		let h = "READY"
19	19
20	20		let i = "FINISHED"
21	21
22	22		let j = 0
23	23
24	24		let k = 1
25	25
26	26		let l = 2
27	27
28	28		let m = 3
29	29
30	30		let n = 4
31	31
32	32		let o = 5
33	33
34	34		let p = 6
35	35
36	36		let q = 7
37	37
38	38		let r = 8
39	39
40	40		let s = 13
41	41
42	42		func t (u) = if ((0 > u))
43	43		then -(u)
44	44		else u
45	45
46	46
47	47		func v (w,x,y,z,A,B,C,D,E,F,G,H,I,J) = {
48	48		let K = ((((((((((((((((((((((((w + "_") + x) + "_") + y) + "_") + z) + "_") + A) + "_") + B) + "_") + C) + "_") + D) + "_") + E) + "_") + F) + "_") + G) + "_") + H) + "_") + I)
49	49		if ((J == ""))
50	50		then ((K + "_") + "-")
51	51		else ((K + "_") + J)
52	52		}
53	53
54	54
55	55		func L (M) = {
56	56		let N = getStringValue(this, M)
57	57		split(N, "_")
58	58		}
59	59
60	60
61	61		func O (P,Q,R,B,S) = {
62	62		let T = ((t(toInt(S)) % P) + Q)
63	63		let U = toString(T)
64	64		let V = isDefined(indexOf(R, U))
65	65		if (if (!(V))
66	66		then (B > 0)
67	67		else false)
68	68		then [((R + "-") + U), "yes"]
69	69		else [R, ""]
70	70		}
71	71
72	72
73	73		func W (M,X,Y,Z,R,B,aa,ab,ac,ad,ae) = {
74	74		let af = if (((aa + 1) > 87))
75	75		then if ((ae > 241))
76	76		then [0, (ab + 1), (ac + 1), 0, 1]
77	77		else [0, ab, ac, (ad + 1), (ae + 1)]
78	78		else [(aa + 1), ab, ac, ad, ae]
79		-	af
	79	+	let ag = af[0]
	80	+	let ah = af[1]
	81	+	let ai = af[2]
	82	+	let aj = af[3]
	83	+	let ak = af[4]
	84	+	take(drop(Z, ah), 1)
80	85		}
81	86
82	87
83		-	func ag (M,C,ah) = {
84		-	let ai = split(ah.key, "_")
85		-	if ((size(ai) != 2))
	88	+	func al (M,C,am) = {
	89	+	let an = split(am.key, "_")
	90	+	if ((size(an) != 2))
86	91		then throw("Invalid data key format. It must follow to ${sessionId}_${num}")
87	92		else {
88		-	let aj = ai[0]
89		-	let ak = ai[1]
90		-	if ((M != aj))
91		-	then throw(((("Several data keys have different sessionId: " + M) + " and ") + aj))
92		-	else if (isDefined(getString(this, ah.key)))
93		-	then throw(("One of the data keys has already presented in account state: key=" + ah.key))
94		-	else if ((size(ak) > 4))
	93	+	let ao = an[0]
	94	+	let ap = an[1]
	95	+	if ((M != ao))
	96	+	then throw(((("Several data keys have different sessionId: " + M) + " and ") + ao))
	97	+	else if (isDefined(getString(this, am.key)))
	98	+	then throw(("One of the data keys has already presented in account state: key=" + am.key))
	99	+	else if ((size(ap) > 4))
95	100		then throw("Invalid data key format. It must follow to ${sessionId}_${num} where ${num} length couldn't be greater than 4")
96		-	else if ((take(ak, 1) == "0"))
	101	+	else if ((take(ap, 1) == "0"))
97	102		then throw("Invalid data key format. It must follow to ${sessionId}_${num} where ${num} couldn't start from 0")
98	103		else {
99		-	let al = parseInt(ak)
100		-	if (isDefined(al))
	104	+	let aq = parseInt(ap)
	105	+	if (isDefined(aq))
101	106		then {
102		-	let am = extract(al)
103		-	if (if ((1 > am))
	107	+	let ar = extract(aq)
	108	+	if (if ((1 > ar))
104	109		then true
105		-	else (am > C))
106		-	then throw((((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to ") + toString(C)) + " but actualNum=") + toString(am)))
	110	+	else (ar > C))
	111	+	then throw((((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to ") + toString(C)) + " but actualNum=") + toString(ar)))
107	112		else {
108		-	let an = ah.value
109		-	if ($isInstanceOf(an, "String"))
	113	+	let as = am.value
	114	+	if ($isInstanceOf(as, "String"))
110	115		then {
111		-	let ao = an
	116	+	let at = as
112	117		true
113	118		}
114	119		else throw((M + " draw: only String type is accepted for data transactions"))
115	120		}
116	121		}
117		-	else throw((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to 31250 but actualNum=") + ak))
	122	+	else throw((("Invalid data key format. It must follow to ${sessionId}_${num}" + " where ${num} must be a valid int value from 1 to 31250 but actualNum=") + ap))
118	123		}
119	124		}
120	125		}
121	126
122	127
123		-	func ap (A,aq,ar) = {
124		-	let as = 1000
125		-	let at = ((13 * c) / 100)
126		-	let au = 50
127		-	let av = ((8 * c) / 100)
128		-	let aw = 5000
129		-	let ax = ((297 * c) / 100)
130		-	let ay = 1000
131		-	let az = ((143 * c) / 100)
132		-	let aA = 50000
133		-	let aB = ((1427 * c) / 100)
134		-	let aC = 5000
135		-	let aD = ((705 * c) / 100)
136		-	let aE = if ((as > A))
137		-	then (at + ((A / au) * av))
138		-	else if ((aw > A))
139		-	then (ax + (((A / ay) - 1) * az))
140		-	else if ((aA > A))
141		-	then (aB + (((A / aC) - 1) * aD))
	128	+	func au (A,av,aw) = {
	129	+	let ax = 1000
	130	+	let ay = ((13 * c) / 100)
	131	+	let az = 50
	132	+	let aA = ((8 * c) / 100)
	133	+	let aB = 5000
	134	+	let aC = ((297 * c) / 100)
	135	+	let aD = 1000
	136	+	let aE = ((143 * c) / 100)
	137	+	let aF = 50000
	138	+	let aG = ((1427 * c) / 100)
	139	+	let aH = 5000
	140	+	let aI = ((705 * c) / 100)
	141	+	let aJ = if ((ax > A))
	142	+	then (ay + ((A / az) * aA))
	143	+	else if ((aB > A))
	144	+	then (aC + (((A / aD) - 1) * aE))
	145	+	else if ((aF > A))
	146	+	then (aG + (((A / aH) - 1) * aI))
142	147		else throw("Please contact our sales team to generate more than 50k rands")
143		-	let aF = (aE + ar)
144		-	if (isDefined(aq.assetId))
	148	+	let aK = (aJ + aw)
	149	+	if (isDefined(av.assetId))
145	150		then throw("Only WAVES can be used as a payment for rands generation")
146		-	else if ((aF > aq.amount))
147		-	then throw(((((("Attached payment is to small to generate " + toString(A)) + " unique randoms numbers and upload at least 1 data tx: actualPmt=") + toString(aq.amount)) + " but minPmt is ") + toString(aF)))
148		-	else aE
	151	+	else if ((aK > av.amount))
	152	+	then throw(((((("Attached payment is to small to generate " + toString(A)) + " unique randoms numbers and upload at least 1 data tx: actualPmt=") + toString(av.amount)) + " but minPmt is ") + toString(aK)))
	153	+	else aJ
149	154		}
150	155
151	156
152		-	@Callable(aG)
	157	+	@Callable(aL)
153	158		func initDraw (y,z,A) = {
154		-	let M = toBase58String(aG.transactionId)
155		-	let aH = ((z - y) + 1)
156		-	let aI = (aH / 2)
157		-	let aJ = size(toString((z - 1)))
158		-	let aK = size(toString(A))
159		-	let aL = (((2 * aJ) + (2 * aK)) + 4)
160		-	let aM = (((5120 - 175) - aL) / (aJ + 1))
	159	+	let M = toBase58String(aL.transactionId)
	160	+	let aM = ((z - y) + 1)
	161	+	let aN = (aM / 2)
	162	+	let aO = size(toString((z - 1)))
	163	+	let aP = size(toString(A))
	164	+	let aQ = (((2 * aO) + (2 * aP)) + 4)
	165	+	let aR = (((5120 - 175) - aQ) / (aO + 1))
161	166		if (if ((0 >= y))
162	167		then true
163	168		else (0 >= z))
164	169		then throw("randFrom and randTo must be greater than 0")
165	170		else if ((y >= z))
166	171		then throw("randFrom must be strict less then randTo")
167		-	else if ((A > aH))
168		-	then throw(((((((("Impossible to generate " + toString(A)) + " unique numbers for provided random range [") + toString(y)) + ", ") + toString(z)) + "] with actual size ") + toString(aH)))
169		-	else if ((A > aI))
170		-	then throw(((((((((("randsCount must be less then 50% of passed range length: range=[" + toString(y)) + ", ") + toString(z)) + "], rangeLength=") + toString(aH)) + " randsCount=") + toString(A)) + " allowedRandsCount=") + toString(aI)))
171		-	else if ((A > aM))
172		-	then throw(((((("randsCount couldn't be kept in 1 data entry: 1_randNumSpace=" + toString((aJ + 1))) + " maxAllowedRandsCount=") + toString(aM)) + " actualRandsCount=") + toString(A)))
173		-	else if (!(isDefined(aG.payment)))
	172	+	else if ((A > aM))
	173	+	then throw(((((((("Impossible to generate " + toString(A)) + " unique numbers for provided random range [") + toString(y)) + ", ") + toString(z)) + "] with actual size ") + toString(aM)))
	174	+	else if ((A > aN))
	175	+	then throw(((((((((("randsCount must be less then 50% of passed range length: range=[" + toString(y)) + ", ") + toString(z)) + "], rangeLength=") + toString(aM)) + " randsCount=") + toString(A)) + " allowedRandsCount=") + toString(aN)))
	176	+	else if ((A > aR))
	177	+	then throw(((((("randsCount couldn't be kept in 1 data entry: 1_randNumSpace=" + toString((aO + 1))) + " maxAllowedRandsCount=") + toString(aR)) + " actualRandsCount=") + toString(A)))
	178	+	else if (!(isDefined(aL.payment)))
174	179		then throw("Please provide payment to generate unique random numbers")
175	180		else {
176		-	let aq = extract(aG.payment)
177		-	let ar = ((((c * 1) / 1000) * 33) + ((c * 4) / 1000))
178		-	let aN = ap(A, aq, ar)
179		-	let aO = (aq.amount - aN)
180		-	let aP = (aO / ar)
181		-	let C = if ((31250 >= (aP * 5)))
182		-	then (aP * 5)
	181	+	let av = extract(aL.payment)
	182	+	let aw = ((((c * 1) / 1000) * 33) + ((c * 4) / 1000))
	183	+	let aS = au(A, av, aw)
	184	+	let aT = (av.amount - aS)
	185	+	let aU = (aT / aw)
	186	+	let C = if ((31250 >= (aU * 5)))
	187	+	then (aU * 5)
183	188		else 31250
184		-	let x = toBase58String(aG.callerPublicKey)
185		-	let aQ = toString(A)
186		-	let aR = v(h, x, toString(y), toString(z), aQ, aQ, toString(C), toBase58String(aG.transactionId), "0", "0", "1", "0", "1", "")
187		-	ScriptResult(WriteSet([DataEntry(M, aR)]), TransferSet([ScriptTransfer(b, aN, unit)]))
	189	+	let x = toBase58String(aL.callerPublicKey)
	190	+	let aV = toString(A)
	191	+	let aW = v(h, x, toString(y), toString(z), aV, aV, toString(C), toBase58String(aL.transactionId), "0", "0", "1", "0", "1", "")
	192	+	ScriptResult(WriteSet([DataEntry(M, aW)]), TransferSet([ScriptTransfer(b, aS, unit)]))
188	193		}
189	194		}
190	195
191	196
192	197
193		-	@Callable(aG)
	198	+	@Callable(aL)
194	199		func random (M,Z) = {
195		-	let aS = L(M)
196		-	let w = aS[j]
197		-	let x = aS[k]
198		-	let aQ = aS[n]
199		-	let aT = parseIntValue(aS[o])
200		-	let aa = parseIntValue(aS[r])
201		-	let R = aS[s]
202		-	let aU = aS[l]
203		-	let aV = aS[m]
204		-	let D = aS[q]
205		-	let F = parseIntValue(aS[9])
206		-	let G = parseIntValue(aS[10])
207		-	let H = parseIntValue(aS[11])
208		-	let I = parseIntValue(aS[12])
209		-	let X = parseIntValue(aU)
210		-	let Y = parseIntValue(aV)
211		-	let aW = fromBase58String(x)
	200	+	let aX = L(M)
	201	+	let w = aX[j]
	202	+	let x = aX[k]
	203	+	let aV = aX[n]
	204	+	let aY = parseIntValue(aX[o])
	205	+	let aa = parseIntValue(aX[r])
	206	+	let R = aX[s]
	207	+	let aZ = aX[l]
	208	+	let ba = aX[m]
	209	+	let D = aX[q]
	210	+	let F = parseIntValue(aX[9])
	211	+	let G = parseIntValue(aX[10])
	212	+	let H = parseIntValue(aX[11])
	213	+	let I = parseIntValue(aX[12])
	214	+	let X = parseIntValue(aZ)
	215	+	let Y = parseIntValue(ba)
	216	+	let bb = fromBase58String(x)
212	217		if ((w != h))
213	218		then throw((M + " draw: it must be in READY state to generate random numbers"))
214	219		else if (false)
215	220		then throw("Invalid RSA signature")
216	221		else {
217		-	let aX = W(M, X, Y, Z, R, aT, aa, F, G, H, I)
218		-	WriteSet([DataEntry("~~byteVect1~~", ~~aX[1]), DataEntry("byteVect2", aX[2]), DataEntry("byteVect3", aX[3]), DataEntry("byteVect4", aX[4]~~), DataEntry((M + "test"), (toBytes(M) + toBytes(D))), DataEntry((M + "test-2"), "ds")])
	222	+	let bc = W(M, X, Y, Z, R, aY, aa, F, G, H, I)
	223	+	WriteSet([DataEntry("byteVect", bc), DataEntry((M + "test"), (toBytes(M) + toBytes(D))), DataEntry((M + "test-2"), "ds")])
219	224		}
220	225		}
221	226
222	227

github/deemru/w8io/026f985 
81.12 ms ◑