tx · F6qa98hzpEZC4yW21rM7o4L7fcM5Azr4L4hXHDpha3AK

3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX:  -0.01000000 Waves

2023.06.11 12:46 [2617861] smart account 3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "F6qa98hzpEZC4yW21rM7o4L7fcM5Azr4L4hXHDpha3AK",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1686476866570,
    "version": 2,
    "chainId": 84,
    "sender": "3MrfLFw1uz3BDr45RQLvrRnAwT2nHpB4KiX",
    "senderPublicKey": "5iiNX4Sz3qZzcerumQLc1y7u9TH2X46jDV4f9Xivtmtv",
    "proofs": [
        "5YB9P77Ts296L8zGbNXY2Wem5Hq46jKfM9RiFxhN3fjo5ySGtdwB9W4f2uH3JcZ2EAS2rVW71fJznGVW5stfEKYq"
    ],
    "script": "base64:BgIECAISABwBCm51bVRvV2F2ZXMBA251bQkAaAIFA251bQCAwtcvAQtpc1BheW1lbnRPawIBaQNzdW0EEWFjY2VwdGFibGVBc3NldElkAQQTq9kzBAFwCQCRAwIIBQFpCHBheW1lbnRzAAADCQBnAggFAXAGYW1vdW50CQEKbnVtVG9XYXZlcwEFA3N1bQkAAAIIBQFwB2Fzc2V0SWQFBHVuaXQHAQttYXBJbnRUb1N0cgIFYWNjdW0EbmV4dAkAzAgCCQCkAwEFBG5leHQFBWFjY3VtAQttYXBTdHJUb0ludAIFYWNjdW0EbmV4dAkAzAgCCQENcGFyc2VJbnRWYWx1ZQEFBG5leHQFBWFjY3VtAQttYXBJbnRUb1N1bQIFYWNjdW0EbmV4dAkAZAIFBWFjY3VtBQRuZXh0AQxsaXN0SW50VG9TdW0BA2FycgoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwAAAKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC21hcEludFRvU3VtAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIBE2xpc3RJbnRUb0xpc3RTdHJpbmcBA2FycgoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC21hcEludFRvU3RyAgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIBE2xpc3RTdHJpbmdUb0xpc3RJbmcBA2FycgoAAiRsBQNhcnIKAAIkcwkAkAMBBQIkbAoABSRhY2MwBQNuaWwKAQUkZjBfMQICJGECJGkDCQBnAgUCJGkFAiRzBQIkYQkBC21hcFN0clRvSW50AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyA1MAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgAfACAAIQAiACMAJAAlACYAJwAoACkAKgArACwALQAuAC8AMAAxADIBGmxpc3RTdHJpbmdDb21wcmVzc1RvU3RyaW5nAQNhcnIJALkJAgUDYXJyAgF8ARxzdHJpbmdEZWNvbXByZXNzVG9MaXN0U3RyaW5nAQNzdHIJALUJAgUDc3RyAgF8ARdsaXN0SW50Q29tcHJlc3NUb1N0cmluZwEDYXJyCQC5CQIJARNsaXN0SW50VG9MaXN0U3RyaW5nAQUDYXJyAgF8ARlzdHJpbmdEZWNvbXByZXNzVG9MaXN0SW50AQZhcnJTdHIJARNsaXN0U3RyaW5nVG9MaXN0SW5nAQkAtQkCBQZhcnJTdHICAXwBCWdldFJhbmRvbQEMY29tbWl0SGVpZ2h0BAtyZXZlYWxCbG9jawkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEFDGNvbW1pdEhlaWdodAIRdW5leGNwZWN0ZWQgZXJyb3IED3JldmVhbEJsb2NrTWluMQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCQDtBwEJAGUCBQxjb21taXRIZWlnaHQACgIRdW5leGNwZWN0ZWQgZXJyb3IEA3ZyZgkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAULcmV2ZWFsQmxvY2sDdnJmAhF1bmV4Y3BlY3RlZCBlcnJvcgQHdnJmTWluMQkBE3ZhbHVlT3JFcnJvck1lc3NhZ2UCCAUPcmV2ZWFsQmxvY2tNaW4xA3ZyZgIRdW5leGNwZWN0ZWQgZXJyb3IECnJhbmRvbUhhc2gJAPcDAQkBBXZhbHVlAQUDdnJmBA5yYW5kb21IYXNoTWluMQkA9wMBCQEFdmFsdWUBBQd2cmZNaW4xBARoYXNoCQBlAgkAsgkCBQpyYW5kb21IYXNoABAJAGgCCQCyCQIFDnJhbmRvbUhhc2hNaW4xABAJALIJAgUKcmFuZG9tSGFzaAAQCQBqAgUEaGFzaAAlAQ9SX1dpbkNhbGN1bGF0b3IEDHJhbmRvbU51bWJlcgliZXRBbW91bnQSc2VsZWN0ZWROdW1iZXJCZXRzDGJldERpcmVjdGlvbgQLUkVEX1NFQ1RPUlMJAMwIAgAgCQDMCAIAEwkAzAgCABUJAMwIAgAZCQDMCAIAIgkAzAgCABsJAMwIAgAkCQDMCAIAHgkAzAgCABcJAMwIAgAFCQDMCAIAEAkAzAgCAAEJAMwIAgAOCQDMCAIACQkAzAgCABIJAMwIAgAHCQDMCAIADAkAzAgCAAMFA25pbAMDCQAAAgkAkAMBBRJzZWxlY3RlZE51bWJlckJldHMAAQkAAAIFDGJldERpcmVjdGlvbgIDbnVtBwMJAAACCQCRAwIFEnNlbGVjdGVkTnVtYmVyQmV0cwAABQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAJAAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAIDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAEgAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAMDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQADAAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAQDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQACQAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzAAwDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAwAAAwkAAAIFDGJldERpcmVjdGlvbgIDcmVkAwkBD2NvbnRhaW5zRWxlbWVudAIFC1JFRF9TRUNUT1JTBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAgAAAwkAAAIFDGJldERpcmVjdGlvbgIFYmxhY2sDAwkBASEBCQEPY29udGFpbnNFbGVtZW50AgULUkVEX1NFQ1RPUlMFDHJhbmRvbU51bWJlcgkBAiE9AgUMcmFuZG9tTnVtYmVyAAAHCQBoAgUJYmV0QW1vdW50AAIAAAMJAAACBQxiZXREaXJlY3Rpb24CA29kZAMJAQIhPQIJAGoCBQxyYW5kb21OdW1iZXIAAgAACQBoAgUJYmV0QW1vdW50AAIAAAMJAAACBQxiZXREaXJlY3Rpb24CBGV2ZW4DCQAAAgkAagIFDHJhbmRvbU51bWJlcgACAAAJAGgCBQliZXRBbW91bnQAAgAAAwkAAAIJAJADAQUSc2VsZWN0ZWROdW1iZXJCZXRzABIDCQEPY29udGFpbnNFbGVtZW50AgUSc2VsZWN0ZWROdW1iZXJCZXRzBQxyYW5kb21OdW1iZXIJAGgCBQliZXRBbW91bnQAAgAAAAABC1JfZ2V0QmV0S2V5AQFpCQCsAgICDWJldF9Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyARFSX2dldEJldEFtb3VudEtleQEBaQkArAICAhNiZXRBbW91bnRfUm91bGV0dGVfCQClCAEIBQFpBmNhbGxlcgEXUl9nZXRTZWxlY3RlZE51bWJlcnNLZXkBAWkJAKwCAgIZc2VsZWN0ZWROdW1iZXJzX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBEVJfZ2V0RGlyZWN0aW9uS2V5AQFpCQCsAgICE2RpcmVjdGlvbl9Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyAQtSX2dldExvZ0tleQEBaQkArAICCQCsAgIJAKwCAgINbG9nX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXICAV8JANgEAQgFAWkNdHJhbnNhY3Rpb25JZAEOUl9nZXRTdGF0dXNLZXkBAWkJAKwCAgIQc3RhdHVzX1JvdWxldHRlXwkApQgBCAUBaQZjYWxsZXIBDExXX2dldEJldEtleQEBaQkArAICAg9iZXRfTHVja3lXaGVlbF8JAKUIAQgFAWkGY2FsbGVyAQxMV19nZXRXb25LZXkBAWkJAKwCAgIPd29uX0x1Y2t5V2hlZWxfCQClCAEIBQFpBmNhbGxlcgEVTFdfZ2V0UmFuZG9tTnVtYmVyS2V5AQFpCQCsAgICGHJhbmRvbU51bWJlcl9MdWNreVdoZWVsXwkApQgBCAUBaQZjYWxsZXIBDExXX2dldExvZ0tleQEBaQkArAICCQCsAgIJAKwCAgIPbG9nX0x1Y2t5V2hlZWxfCQClCAEIBQFpBmNhbGxlcgIBXwkA2AQBCAUBaQ10cmFuc2FjdGlvbklkAQ5MV193aGF0VXNlcldvbgEFdmFsdWUEByRtYXRjaDAFBXZhbHVlAwkAAAIAAQUHJG1hdGNoMAkBCm51bVRvV2F2ZXMBAAIDCQAAAgADBQckbWF0Y2gwCQEKbnVtVG9XYXZlcwEAAQMJAAACAAcFByRtYXRjaDAJAQpudW1Ub1dhdmVzAQAGAwkAAAIACQUHJG1hdGNoMAkBCm51bVRvV2F2ZXMBAAEAAAEPTFdfZ2V0U3RhdHVzS2V5AQFpCQCsAgICEHN0YXR1c19Sb3VsZXR0ZV8JAKUIAQgFAWkGY2FsbGVyAQN4eHgCBWFjY3VtBG5leHQEBnJhbmRvbQkBCWdldFJhbmRvbQEJAGUCBQZoZWlnaHQFBG5leHQEBnJlc3VsdAkBD1JfV2luQ2FsY3VsYXRvcgQFBnJhbmRvbQABBQNuaWwCBWJsYWNrCQBkAgkAZQIFBWFjY3VtAAEFBnJlc3VsdAEHdGVzdFJlZAEDYXJyCgACJGwFA2FycgoAAiRzCQCQAwEFAiRsCgAFJGFjYzAAHgoBBSRmMF8xAgIkYQIkaQMJAGcCBQIkaQUCJHMFAiRhCQEDeHh4AgUCJGEJAJEDAgUCJGwFAiRpCgEFJGYwXzICAiRhAiRpAwkAZwIFAiRpBQIkcwUCJGEJAAIBAhRMaXN0IHNpemUgZXhjZWVkcyAzMAkBBSRmMF8yAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgkBBSRmMF8xAgUFJGFjYzAAAAABAAIAAwAEAAUABgAHAAgACQAKAAsADAANAA4ADwAQABEAEgATABQAFQAWABcAGAAZABoAGwAcAB0AHgEBaQEEVGVzdAAEA3JlZAkBB3Rlc3RSZWQBCQDMCAIAAQkAzAgCAAIJAMwIAgADCQDMCAIABAkAzAgCAAUJAMwIAgAGCQDMCAIABwkAzAgCAAgJAMwIAgAJCQDMCAIACgkAzAgCAAsJAMwIAgAMCQDMCAIADQkAzAgCAA4JAMwIAgAPCQDMCAIADwkAzAgCABAJAMwIAgARCQDMCAIAEgkAzAgCABMJAMwIAgAUBQNuaWwJAAIBCQCkAwEFA3JlZAA+t6Au",
    "height": 2617861,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8yxTjbKYEmPfa3AQN4w4j2ovprsJUKxpWFJ7hAEyuEd6
Next: HSVSFQD3KJ7GvfiA1EfH37TVk9ajxHJHMEbqts5BpNiF

Diff: 
Old
New
Differences
84
84
 
85
85
 
func getRandom (commitHeight) = {
86
86
 
    let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
87
+
    let revealBlockMin1 = valueOrErrorMessage(blockInfoByHeight((commitHeight - 10)), "unexcpected error")
87
88
 
    let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
89
+
    let vrfMin1 = valueOrErrorMessage(revealBlockMin1.vrf, "unexcpected error")
88
90
 
    let randomHash = sha256(value(vrf))
89
-
    let hash = toInt(randomHash, 16)
91
+
    let randomHashMin1 = sha256(value(vrfMin1))
92
+
    let hash = (toInt(randomHash, 16) - (toInt(randomHashMin1, 16) * toInt(randomHash, 16)))
90
93
 
    (hash % 37)
91
94
 
    }
92
95
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 6 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
func numToWaves (num) = (num * 100000000)
5
5
 
6
6
 
7
7
 
func isPaymentOk (i,sum) = {
8
8
 
    let acceptableAssetId = base58'WAVES'
9
9
 
    let p = i.payments[0]
10
10
 
    if ((p.amount >= numToWaves(sum)))
11
11
 
        then (p.assetId == unit)
12
12
 
        else false
13
13
 
    }
14
14
 
15
15
 
16
16
 
func mapIntToStr (accum,next) = toString(next) :: accum
17
17
 
18
18
 
19
19
 
func mapStrToInt (accum,next) = parseIntValue(next) :: accum
20
20
 
21
21
 
22
22
 
func mapIntToSum (accum,next) = (accum + next)
23
23
 
24
24
 
25
25
 
func listIntToSum (arr) = {
26
26
 
    let $l = arr
27
27
 
    let $s = size($l)
28
28
 
    let $acc0 = 0
29
29
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
30
30
 
        then $a
31
31
 
        else mapIntToSum($a, $l[$i])
32
32
 
33
33
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
34
34
 
        then $a
35
35
 
        else throw("List size exceeds 50")
36
36
 
37
37
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
38
38
 
    }
39
39
 
40
40
 
41
41
 
func listIntToListString (arr) = {
42
42
 
    let $l = arr
43
43
 
    let $s = size($l)
44
44
 
    let $acc0 = nil
45
45
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
46
46
 
        then $a
47
47
 
        else mapIntToStr($a, $l[$i])
48
48
 
49
49
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
50
50
 
        then $a
51
51
 
        else throw("List size exceeds 50")
52
52
 
53
53
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
54
54
 
    }
55
55
 
56
56
 
57
57
 
func listStringToListIng (arr) = {
58
58
 
    let $l = arr
59
59
 
    let $s = size($l)
60
60
 
    let $acc0 = nil
61
61
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
62
62
 
        then $a
63
63
 
        else mapStrToInt($a, $l[$i])
64
64
 
65
65
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
66
66
 
        then $a
67
67
 
        else throw("List size exceeds 50")
68
68
 
69
69
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50)
70
70
 
    }
71
71
 
72
72
 
73
73
 
func listStringCompressToString (arr) = makeString(arr, "|")
74
74
 
75
75
 
76
76
 
func stringDecompressToListString (str) = split(str, "|")
77
77
 
78
78
 
79
79
 
func listIntCompressToString (arr) = makeString(listIntToListString(arr), "|")
80
80
 
81
81
 
82
82
 
func stringDecompressToListInt (arrStr) = listStringToListIng(split(arrStr, "|"))
83
83
 
84
84
 
85
85
 
func getRandom (commitHeight) = {
86
86
 
    let revealBlock = valueOrErrorMessage(blockInfoByHeight(commitHeight), "unexcpected error")
87
+
    let revealBlockMin1 = valueOrErrorMessage(blockInfoByHeight((commitHeight - 10)), "unexcpected error")
87
88
 
    let vrf = valueOrErrorMessage(revealBlock.vrf, "unexcpected error")
89
+
    let vrfMin1 = valueOrErrorMessage(revealBlockMin1.vrf, "unexcpected error")
88
90
 
    let randomHash = sha256(value(vrf))
89
-
    let hash = toInt(randomHash, 16)
91
+
    let randomHashMin1 = sha256(value(vrfMin1))
92
+
    let hash = (toInt(randomHash, 16) - (toInt(randomHashMin1, 16) * toInt(randomHash, 16)))
90
93
 
    (hash % 37)
91
94
 
    }
92
95
 
93
96
 
94
97
 
func R_WinCalculator (randomNumber,betAmount,selectedNumberBets,betDirection) = {
95
98
 
    let RED_SECTORS = [32, 19, 21, 25, 34, 27, 36, 30, 23, 5, 16, 1, 14, 9, 18, 7, 12, 3]
96
99
 
    if (if ((size(selectedNumberBets) == 1))
97
100
 
        then (betDirection == "num")
98
101
 
        else false)
99
102
 
        then if ((selectedNumberBets[0] == randomNumber))
100
103
 
            then (betAmount * 36)
101
104
 
            else 0
102
105
 
        else if ((size(selectedNumberBets) == 2))
103
106
 
            then if (containsElement(selectedNumberBets, randomNumber))
104
107
 
                then (betAmount * 18)
105
108
 
                else 0
106
109
 
            else if ((size(selectedNumberBets) == 3))
107
110
 
                then if (containsElement(selectedNumberBets, randomNumber))
108
111
 
                    then (betAmount * 12)
109
112
 
                    else 0
110
113
 
                else if ((size(selectedNumberBets) == 4))
111
114
 
                    then if (containsElement(selectedNumberBets, randomNumber))
112
115
 
                        then (betAmount * 9)
113
116
 
                        else 0
114
117
 
                    else if ((size(selectedNumberBets) == 12))
115
118
 
                        then if (containsElement(selectedNumberBets, randomNumber))
116
119
 
                            then (betAmount * 3)
117
120
 
                            else 0
118
121
 
                        else if ((betDirection == "red"))
119
122
 
                            then if (containsElement(RED_SECTORS, randomNumber))
120
123
 
                                then (betAmount * 2)
121
124
 
                                else 0
122
125
 
                            else if ((betDirection == "black"))
123
126
 
                                then if (if (!(containsElement(RED_SECTORS, randomNumber)))
124
127
 
                                    then (randomNumber != 0)
125
128
 
                                    else false)
126
129
 
                                    then (betAmount * 2)
127
130
 
                                    else 0
128
131
 
                                else if ((betDirection == "odd"))
129
132
 
                                    then if (((randomNumber % 2) != 0))
130
133
 
                                        then (betAmount * 2)
131
134
 
                                        else 0
132
135
 
                                    else if ((betDirection == "even"))
133
136
 
                                        then if (((randomNumber % 2) == 0))
134
137
 
                                            then (betAmount * 2)
135
138
 
                                            else 0
136
139
 
                                        else if ((size(selectedNumberBets) == 18))
137
140
 
                                            then if (containsElement(selectedNumberBets, randomNumber))
138
141
 
                                                then (betAmount * 2)
139
142
 
                                                else 0
140
143
 
                                            else 0
141
144
 
    }
142
145
 
143
146
 
144
147
 
func R_getBetKey (i) = ("bet_Roulette_" + toString(i.caller))
145
148
 
146
149
 
147
150
 
func R_getBetAmountKey (i) = ("betAmount_Roulette_" + toString(i.caller))
148
151
 
149
152
 
150
153
 
func R_getSelectedNumbersKey (i) = ("selectedNumbers_Roulette_" + toString(i.caller))
151
154
 
152
155
 
153
156
 
func R_getDirectionKey (i) = ("direction_Roulette_" + toString(i.caller))
154
157
 
155
158
 
156
159
 
func R_getLogKey (i) = ((("log_Roulette_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
157
160
 
158
161
 
159
162
 
func R_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
160
163
 
161
164
 
162
165
 
func LW_getBetKey (i) = ("bet_LuckyWheel_" + toString(i.caller))
163
166
 
164
167
 
165
168
 
func LW_getWonKey (i) = ("won_LuckyWheel_" + toString(i.caller))
166
169
 
167
170
 
168
171
 
func LW_getRandomNumberKey (i) = ("randomNumber_LuckyWheel_" + toString(i.caller))
169
172
 
170
173
 
171
174
 
func LW_getLogKey (i) = ((("log_LuckyWheel_" + toString(i.caller)) + "_") + toBase58String(i.transactionId))
172
175
 
173
176
 
174
177
 
func LW_whatUserWon (value) = match value {
175
178
 
    case _ => 
176
179
 
        if ((1 == $match0))
177
180
 
            then numToWaves(2)
178
181
 
            else if ((3 == $match0))
179
182
 
                then numToWaves(1)
180
183
 
                else if ((7 == $match0))
181
184
 
                    then numToWaves(6)
182
185
 
                    else if ((9 == $match0))
183
186
 
                        then numToWaves(1)
184
187
 
                        else 0
185
188
 
}
186
189
 
187
190
 
188
191
 
func LW_getStatusKey (i) = ("status_Roulette_" + toString(i.caller))
189
192
 
190
193
 
191
194
 
func xxx (accum,next) = {
192
195
 
    let random = getRandom((height - next))
193
196
 
    let result = R_WinCalculator(random, 1, nil, "black")
194
197
 
    ((accum - 1) + result)
195
198
 
    }
196
199
 
197
200
 
198
201
 
func testRed (arr) = {
199
202
 
    let $l = arr
200
203
 
    let $s = size($l)
201
204
 
    let $acc0 = 30
202
205
 
    func $f0_1 ($a,$i) =     if (($i >= $s))
203
206
 
        then $a
204
207
 
        else xxx($a, $l[$i])
205
208
 
206
209
 
    func $f0_2 ($a,$i) =     if (($i >= $s))
207
210
 
        then $a
208
211
 
        else throw("List size exceeds 30")
209
212
 
210
213
 
    $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30)
211
214
 
    }
212
215
 
213
216
 
214
217
 
@Callable(i)
215
218
 
func Test () = {
216
219
 
    let red = testRed([1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 15, 16, 17, 18, 19, 20])
217
220
 
    throw(toString(red))
218
221
 
    }
219
222
 
220
223
 

github/deemru/w8io/026f985 
40.86 ms ◑