w8 · tx · 147···XLM

tx · 147v9Ntkmz6LK9WHYaEgNj7inPbSmkLX2ejtvPSyqXLM

3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU:  -0.01400000 Waves

2019.02.10 22:10 [489439] smart account 3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "147v9Ntkmz6LK9WHYaEgNj7inPbSmkLX2ejtvPSyqXLM",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1549825832237,
    "version": 1,
    "sender": "3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU",
    "senderPublicKey": "H5rtwGVnkSHDfz6msD7itGURoKMXvvDwPoup1VESxfjJ",
    "proofs": [
        "5he99JozFp5qS28x5qs7nkBoHWe7hzPStBUvMkmWHUjWbJPA3UcjHWqqGfjvij1Hn8vp6m8iGJsh8oykJhiVhYvE"
    ],
    "script": "base64:AQQAAAACbWUIBQAAAAJ0eAAAAAZzZW5kZXIEAAAABm9yYWNsZQkBAAAAB2V4dHJhY3QAAAABCQEAAAARYWRkcmVzc0Zyb21TdHJpbmcAAAABAgAAACMzTkN6YVlUTkRHdFI4emY5eWZjcWVQRmpDcUZ4OVM1emhzNAQAAAAObWluV2l0aGRyYXdGZWUAAAAAAAAGGoAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAp3aXRoZHJhd1R4BQAAAAckbWF0Y2gwBAAAAAR0eElkCQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUJAAEsAAAAAgkAAlgAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAECAAAACV93aXRoZHJhdwQAAAAHJG1hdGNoMQkAA+gAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAEDCQAAAQAAAAIFAAAAByRtYXRjaDECAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAACXBheW1lbnRUeAUAAAAHJG1hdGNoMQQAAAASaXNQYXltZW50VG9va1BsYWNlAwkAAAAAAAACBQAAAAR0eElkCQACWAAAAAEIBQAAAAJ0eAAAAAJpZAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAlwYXltZW50VHgAAAAPc2VuZGVyUHVibGljS2V5BwQAAAAHZmVlc0tleQkAASwAAAACCQACWAAAAAEJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAQIAAAAOX3dpdGhkcmF3X2ZlZXMEAAAAC2RhdGFUeHNGZWVzCQEAAAAHZXh0cmFjdAAAAAEJAAQaAAAAAgUAAAACbWUFAAAAB2ZlZXNLZXkEAAAABWd1ZXNzCQEAAAAHZXh0cmFjdAAAAAEJAAQcAAAAAgUAAAACbWUJAAJYAAAAAQkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABBAAAAAR0eXBlCQAAyQAAAAIFAAAABWd1ZXNzAAAAAAAAAAABBAAAAAN2YWwJAADKAAAAAgUAAAAFZ3Vlc3MAAAAAAAAAAAEEAAAAA2tleQkBAAAAB2V4dHJhY3QAAAABCQAEHQAAAAIFAAAAAm1lCQABLAAAAAIJAAJYAAAAAQkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABAgAAAAZfcm91bmQEAAAACnZhbENvbXBsZXgJAQAAAAdleHRyYWN0AAAAAQkABBwAAAACBQAAAAZvcmFjbGUFAAAAA2tleQQAAAAFa29lZmYDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAAAAAAAAAAAAAHAAAAAAAAAAAjAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAQAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAIAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAADAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAABAAAAAAAAAAABwAAAAAAAAAAAwMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAUAAAAAAAAAAAcAAAAAAAAAAAMAAAAAAAAAAAAEAAAADWNvcnJlY3RBbW91bnQJAABlAAAAAgkAAGUAAAACCQAAaAAAAAIIBQAAAAlwYXltZW50VHgAAAAGYW1vdW50BQAAAAVrb2VmZgUAAAALZGF0YVR4c0ZlZXMIBQAAAAp3aXRoZHJhd1R4AAAAA2ZlZQQAAAAKaXNBbW91bnRPawkAAAAAAAACCAUAAAAKd2l0aGRyYXdUeAAAAAZhbW91bnQFAAAADWNvcnJlY3RBbW91bnQEAAAACWlzSW5XYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAp3aXRoZHJhd1R4AAAACmZlZUFzc2V0SWQJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAp3aXRoZHJhd1R4AAAAB2Fzc2V0SWQHAwMFAAAAEmlzUGF5bWVudFRvb2tQbGFjZQUAAAAKaXNBbW91bnRPawcFAAAACWlzSW5XYXZlcwcHAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAA2R0eAUAAAAHJG1hdGNoMAMJAAAAAAAAAgkAAZAAAAABCAUAAAADZHR4AAAABGRhdGEAAAAAAAAAAAIEAAAADWlzRGF0YUNvdW50T2sJAAAAAAAAAgkAAZAAAAABCAUAAAADZHR4AAAABGRhdGEAAAAAAAAAAAIEAAAADnBheW1lbnRUeElkU3RyCQEAAAAJZHJvcFJpZ2h0AAAAAgkBAAAAB2V4dHJhY3QAAAABCAkAAZEAAAACCAUAAAADZHR4AAAABGRhdGEAAAAAAAAAAAAAAAADa2V5AAAAAAAAAAAJBAAAAAdmZWVzS2V5CQABLAAAAAIFAAAADnBheW1lbnRUeElkU3RyAgAAAA5fd2l0aGRyYXdfZmVlcwQAAAAJcGF5bWVudFR4CQAD6AAAAAEJAAJZAAAAAQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAB25ld0ZlZXMJAQAAAAdleHRyYWN0AAAAAQkABBAAAAACCAUAAAADZHR4AAAABGRhdGEFAAAAB2ZlZXNLZXkEAAAAB29sZEZlZXMDCQEAAAAJaXNEZWZpbmVkAAAAAQkABBoAAAACBQAAAAJtZQUAAAAHZmVlc0tleQkBAAAAB2V4dHJhY3QAAAABCQAEGgAAAAIFAAAAAm1lBQAAAAdmZWVzS2V5AAAAAAAAAAAABAAAAAxpc0ZlZUNvcnJlY3QJAAAAAAAAAgUAAAAHbmV3RmVlcwkAAGQAAAACBQAAAAdvbGRGZWVzCAUAAAADZHR4AAAAA2ZlZQQAAAAQd2l0aGRyYXdUeElkVW5pdAkABB0AAAACBQAAAAJtZQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAGWlzUGF5bWVudEFscmVhZHlNZW50aW9uZWQJAQAAAAlpc0RlZmluZWQAAAABBQAAABB3aXRoZHJhd1R4SWRVbml0BAAAABV3aXRoZHJhd1RyYW5zYWN0aW9uSWQJAAJZAAAAAQkBAAAAB2V4dHJhY3QAAAABBQAAABB3aXRoZHJhd1R4SWRVbml0BAAAAAckbWF0Y2gxBQAAAAlwYXltZW50VHgDCQAAAQAAAAIFAAAAByRtYXRjaDECAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAACXBheW1lbnRUeAUAAAAHJG1hdGNoMQQAAAASaXNEdHhTaWduZWRCeVBheWVyCQAB9AAAAAMIBQAAAANkdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAANkdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAAJcGF5bWVudFR4AAAAD3NlbmRlclB1YmxpY0tleQMDAwMDCQEAAAABIQAAAAEFAAAAGWlzUGF5bWVudEFscmVhZHlNZW50aW9uZWQGCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCQAD6AAAAAEFAAAAFXdpdGhkcmF3VHJhbnNhY3Rpb25JZAUAAAASaXNEdHhTaWduZWRCeVBheWVyBwUAAAAMaXNGZWVDb3JyZWN0BwUAAAANaXNEYXRhQ291bnRPawcEAAAABWd1ZXNzCQEAAAAHZXh0cmFjdAAAAAEJAAQcAAAAAgUAAAACbWUFAAAADnBheW1lbnRUeElkU3RyBAAAAAR0eXBlCQAAyQAAAAIFAAAABWd1ZXNzAAAAAAAAAAABBAAAAANrZXkJAQAAAAdleHRyYWN0AAAAAQkABB0AAAACBQAAAAJtZQkAASwAAAACBQAAAA5wYXltZW50VHhJZFN0cgIAAAAGX3JvdW5kBAAAAAloZWlnaHRSZXMJAQAAAAdleHRyYWN0AAAAAQkABBoAAAACBQAAAAZvcmFjbGUJAAEsAAAAAgUAAAADa2V5AgAAAAZoZWlnaHQEAAAACWlzQ2hlYXRlcgkAAGcAAAACCQEAAAAHZXh0cmFjdAAAAAEJAAPpAAAAAQgFAAAACXBheW1lbnRUeAAAAAJpZAUAAAAJaGVpZ2h0UmVzBAAAAAp2YWxDb21wbGV4CQEAAAAHZXh0cmFjdAAAAAEJAAQcAAAAAgUAAAAGb3JhY2xlBQAAAANrZXkEAAAABWtvZWZmAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAIwMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAEAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAACAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAwAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAQAAAAAAAAAAAcAAAAAAAAAAAMDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAFAAAAAAAAAAAHAAAAAAAAAAADAAAAAAAAAAAABAAAAAd2YWxSZWFsAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAAAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAIAAAAAAAAAAAEDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAABAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAAAwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAIAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAAEAAAAAAAAAAADAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAwAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAUAAAAAAAAAAAQDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAEAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAABgAAAAAAAAAABQMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAUAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAAHAAAAAAAAAAAGCQAAAgAAAAECAAAAIEluY29ycmVjdCB0eXBlIG9mIGd1ZXNzIHByb3ZpZGVkBAAAAAVpc1dpbgkAAAAAAAACCQAAygAAAAIFAAAABWd1ZXNzAAAAAAAAAAABBQAAAAd2YWxSZWFsBAAAABJpc01vbmV5U3RpbGxFbm91Z2gJAABmAAAAAgkAAGQAAAACCQAAaAAAAAIIBQAAAAlwYXltZW50VHgAAAAGYW1vdW50BQAAAAVrb2VmZgUAAAAObWluV2l0aGRyYXdGZWUFAAAAB25ld0ZlZXMDAwUAAAAFaXNXaW4FAAAAEmlzTW9uZXlTdGlsbEVub3VnaAcJAQAAAAEhAAAAAQUAAAAJaXNDaGVhdGVyBwcHAwkAAAAAAAACCQABkAAAAAEIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAwQAAAAGbWluQmV0AAAAAAAC+vCABAAAAAltYXhTdW1CZXQAAAAAAAA+j6AEAAAADnBheW1lbnRUeElkU3RyCQEAAAAHZXh0cmFjdAAAAAEICQABkQAAAAIIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAAAAAANrZXkEAAAACGd1ZXNzU3RyCQEAAAAHZXh0cmFjdAAAAAEJAAQTAAAAAggFAAAAA2R0eAAAAARkYXRhBQAAAA5wYXltZW50VHhJZFN0cgQAAAAPcGF5bWVudFJvdW5kS2V5CQABLAAAAAIFAAAADnBheW1lbnRUeElkU3RyAgAAAAZfcm91bmQEAAAADHBheW1lbnRSb3VuZAkBAAAAB2V4dHJhY3QAAAABCQAEEwAAAAIIBQAAAANkdHgAAAAEZGF0YQUAAAAPcGF5bWVudFJvdW5kS2V5BAAAAApzdW1CZXRzT2xkAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQaAAAAAgUAAAACbWUJAAEsAAAAAgUAAAAMcGF5bWVudFJvdW5kAgAAAAhfYmV0c1N1bQkBAAAAB2V4dHJhY3QAAAABCQAEGgAAAAIFAAAAAm1lCQABLAAAAAIFAAAADHBheW1lbnRSb3VuZAIAAAAIX2JldHNTdW0AAAAAAAAAAAAEAAAACnN1bUJldHNOZXcJAQAAAAdleHRyYWN0AAAAAQkABBAAAAACCAUAAAADZHR4AAAABGRhdGEJAAEsAAAAAgUAAAAMcGF5bWVudFJvdW5kAgAAAAhfYmV0c1N1bQQAAAAZaXNQYXltZW50QWxyZWFkeU1lbnRpb25lZAkBAAAACWlzRGVmaW5lZAAAAAEJAAQdAAAAAgUAAAACbWUFAAAADnBheW1lbnRUeElkU3RyBAAAAAlwYXltZW50VHgJAAPoAAAAAQkAAlkAAAABBQAAAA5wYXltZW50VHhJZFN0cgQAAAAHJG1hdGNoMQUAAAAJcGF5bWVudFR4AwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAlwYXltZW50VHgFAAAAByRtYXRjaDEEAAAAEmlzRHR4U2lnbmVkQnlQYXllcgkAAfQAAAADCAUAAAADZHR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAADZHR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAACXBheW1lbnRUeAAAAA9zZW5kZXJQdWJsaWNLZXkEAAAADmNvcnJlY3RTdW1CZXRzCQAAZQAAAAIJAABkAAAAAgUAAAAKc3VtQmV0c09sZAgFAAAACXBheW1lbnRUeAAAAAZhbW91bnQIBQAAAANkdHgAAAADZmVlAwMJAQAAAAEhAAAAAQUAAAAZaXNQYXltZW50QWxyZWFkeU1lbnRpb25lZAkAAAAAAAACBQAAAApzdW1CZXRzTmV3BQAAAA5jb3JyZWN0U3VtQmV0cwcJAABmAAAAAgUAAAAKc3VtQmV0c05ldwUAAAAJbWF4U3VtQmV0BwcHCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleYBiyl4=",
    "chainId": 84,
    "height": 489439,
    "spentComplexity": 0
}

View: original | compacted
Prev: 3Z8m84cgDDykMBS6cRUgkgtfayCHStbZp1AhoKAiVwXf
Next: F9m1H4gv8qMcpi4R3gcF4XkLHJ3GUgdJdfBjiUYfrDAQ

Diff: 
Old New Differences
120 120              else if ((size(dtx.data) == 3))
121 121                  then {
122 122                      let minBet = 50000000
123 -                     let maxSumBet = 3700000
123 +                     let maxSumBet = 4100000
124 124                      let paymentTxIdStr = extract(dtx.data[0].key)
125 125                      let guessStr = extract(getString(dtx.data, paymentTxIdStr))
126 126                      let paymentRoundKey = (paymentTxIdStr + "_round")
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 1 #-}
2 2  {-# CONTENT_TYPE EXPRESSION #-}
3 3  let me = tx.sender
4 4  let oracle = extract(addressFromString("3NCzaYTNDGtR8zf9yfcqePFjCqFx9S5zhs4"))
5 5  let minWithdrawFee = 400000
6 6  match tx {
7 7      case withdrawTx: TransferTransaction => 
8 8          let txId = extract(getString(me, (toBase58String(tx.proofs[1]) + "_withdraw")))
9 9          match transactionById(tx.proofs[1]) {
10 10              case paymentTx: TransferTransaction => 
11 11                  let isPaymentTookPlace = if ((txId == toBase58String(tx.id)))
12 12                      then sigVerify(tx.bodyBytes, tx.proofs[0], paymentTx.senderPublicKey)
13 13                      else false
14 14                  let feesKey = (toBase58String(tx.proofs[1]) + "_withdraw_fees")
15 15                  let dataTxsFees = extract(getInteger(me, feesKey))
16 16                  let guess = extract(getBinary(me, toBase58String(tx.proofs[1])))
17 17                  let type = take(guess, 1)
18 18                  let val = drop(guess, 1)
19 19                  let key = extract(getString(me, (toBase58String(tx.proofs[1]) + "_round")))
20 20                  let valComplex = extract(getBinary(oracle, key))
21 21                  let koeff = if ((type == drop(toBytes(0), 7)))
22 22                      then 35
23 23                      else if ((type == drop(toBytes(1), 7)))
24 24                          then 2
25 25                          else if ((type == drop(toBytes(2), 7)))
26 26                              then 2
27 27                              else if ((type == drop(toBytes(3), 7)))
28 28                                  then 2
29 29                                  else if ((type == drop(toBytes(4), 7)))
30 30                                      then 3
31 31                                      else if ((type == drop(toBytes(5), 7)))
32 32                                          then 3
33 33                                          else 0
34 34                  let correctAmount = (((paymentTx.amount * koeff) - dataTxsFees) - withdrawTx.fee)
35 35                  let isAmountOk = (withdrawTx.amount == correctAmount)
36 36                  let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
37 37                      then !(isDefined(withdrawTx.assetId))
38 38                      else false
39 39                  if (if (isPaymentTookPlace)
40 40                      then isAmountOk
41 41                      else false)
42 42                      then isInWaves
43 43                      else false
44 44              case _ => 
45 45                  false
46 46          }
47 47      case dtx: DataTransaction => 
48 48          if ((size(dtx.data) == 2))
49 49              then {
50 50                  let isDataCountOk = (size(dtx.data) == 2)
51 51                  let paymentTxIdStr = dropRight(extract(dtx.data[0].key), 9)
52 52                  let feesKey = (paymentTxIdStr + "_withdraw_fees")
53 53                  let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
54 54                  let newFees = extract(getInteger(dtx.data, feesKey))
55 55                  let oldFees = if (isDefined(getInteger(me, feesKey)))
56 56                      then extract(getInteger(me, feesKey))
57 57                      else 0
58 58                  let isFeeCorrect = (newFees == (oldFees + dtx.fee))
59 59                  let withdrawTxIdUnit = getString(me, paymentTxIdStr)
60 60                  let isPaymentAlreadyMentioned = isDefined(withdrawTxIdUnit)
61 61                  let withdrawTransactionId = fromBase58String(extract(withdrawTxIdUnit))
62 62                  match paymentTx {
63 63                      case paymentTx: TransferTransaction => 
64 64                          let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
65 65                          if (if (if (if (if (!(isPaymentAlreadyMentioned))
66 66                              then true
67 67                              else !(isDefined(transactionById(withdrawTransactionId))))
68 68                              then isDtxSignedByPayer
69 69                              else false)
70 70                              then isFeeCorrect
71 71                              else false)
72 72                              then isDataCountOk
73 73                              else false)
74 74                              then {
75 75                                  let guess = extract(getBinary(me, paymentTxIdStr))
76 76                                  let type = take(guess, 1)
77 77                                  let key = extract(getString(me, (paymentTxIdStr + "_round")))
78 78                                  let heightRes = extract(getInteger(oracle, (key + "height")))
79 79                                  let isCheater = (extract(transactionHeightById(paymentTx.id)) >= heightRes)
80 80                                  let valComplex = extract(getBinary(oracle, key))
81 81                                  let koeff = if ((type == drop(toBytes(0), 7)))
82 82                                      then 35
83 83                                      else if ((type == drop(toBytes(1), 7)))
84 84                                          then 2
85 85                                          else if ((type == drop(toBytes(2), 7)))
86 86                                              then 2
87 87                                              else if ((type == drop(toBytes(3), 7)))
88 88                                                  then 2
89 89                                                  else if ((type == drop(toBytes(4), 7)))
90 90                                                      then 3
91 91                                                      else if ((type == drop(toBytes(5), 7)))
92 92                                                          then 3
93 93                                                          else 0
94 94                                  let valReal = if ((type == drop(toBytes(0), 7)))
95 95                                      then drop(take(valComplex, 2), 1)
96 96                                      else if ((type == drop(toBytes(1), 7)))
97 97                                          then drop(take(valComplex, 3), 2)
98 98                                          else if ((type == drop(toBytes(2), 7)))
99 99                                              then drop(take(valComplex, 4), 3)
100 100                                              else if ((type == drop(toBytes(3), 7)))
101 101                                                  then drop(take(valComplex, 5), 4)
102 102                                                  else if ((type == drop(toBytes(4), 7)))
103 103                                                      then drop(take(valComplex, 6), 5)
104 104                                                      else if ((type == drop(toBytes(5), 7)))
105 105                                                          then drop(take(valComplex, 7), 6)
106 106                                                          else throw("Incorrect type of guess provided")
107 107                                  let isWin = (drop(guess, 1) == valReal)
108 108                                  let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
109 109                                  if (if (isWin)
110 110                                      then isMoneyStillEnough
111 111                                      else false)
112 112                                      then !(isCheater)
113 113                                      else false
114 114                                  }
115 115                              else false
116 116                      case _ => 
117 117                          false
118 118                  }
119 119                  }
120 120              else if ((size(dtx.data) == 3))
121 121                  then {
122 122                      let minBet = 50000000
123 -                     let maxSumBet = 3700000
123 +                     let maxSumBet = 4100000
124 124                      let paymentTxIdStr = extract(dtx.data[0].key)
125 125                      let guessStr = extract(getString(dtx.data, paymentTxIdStr))
126 126                      let paymentRoundKey = (paymentTxIdStr + "_round")
127 127                      let paymentRound = extract(getString(dtx.data, paymentRoundKey))
128 128                      let sumBetsOld = if (isDefined(getInteger(me, (paymentRound + "_betsSum"))))
129 129                          then extract(getInteger(me, (paymentRound + "_betsSum")))
130 130                          else 0
131 131                      let sumBetsNew = extract(getInteger(dtx.data, (paymentRound + "_betsSum")))
132 132                      let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
133 133                      let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
134 134                      match paymentTx {
135 135                          case paymentTx: TransferTransaction => 
136 136                              let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
137 137                              let correctSumBets = ((sumBetsOld + paymentTx.amount) - dtx.fee)
138 138                              if (if (!(isPaymentAlreadyMentioned))
139 139                                  then (sumBetsNew == correctSumBets)
140 140                                  else false)
141 141                                  then (sumBetsNew > maxSumBet)
142 142                                  else false
143 143                          case _ => 
144 144                              false
145 145                      }
146 146                      }
147 147                  else false
148 148      case _ => 
149 149          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
150 150  }

Old	New		Differences
120	120		else if ((size(dtx.data) == 3))
121	121		then {
122	122		let minBet = 50000000
123		-	let maxSumBet = ~~3700000~~
	123	+	let maxSumBet = 4100000
124	124		let paymentTxIdStr = extract(dtx.data[0].key)
125	125		let guessStr = extract(getString(dtx.data, paymentTxIdStr))
126	126		let paymentRoundKey = (paymentTxIdStr + "_round")

Old	New		Differences
1	1		{-# STDLIB_VERSION 1 #-}
2	2		{-# CONTENT_TYPE EXPRESSION #-}
3	3		let me = tx.sender
4	4		let oracle = extract(addressFromString("3NCzaYTNDGtR8zf9yfcqePFjCqFx9S5zhs4"))
5	5		let minWithdrawFee = 400000
6	6		match tx {
7	7		case withdrawTx: TransferTransaction =>
8	8		let txId = extract(getString(me, (toBase58String(tx.proofs[1]) + "_withdraw")))
9	9		match transactionById(tx.proofs[1]) {
10	10		case paymentTx: TransferTransaction =>
11	11		let isPaymentTookPlace = if ((txId == toBase58String(tx.id)))
12	12		then sigVerify(tx.bodyBytes, tx.proofs[0], paymentTx.senderPublicKey)
13	13		else false
14	14		let feesKey = (toBase58String(tx.proofs[1]) + "_withdraw_fees")
15	15		let dataTxsFees = extract(getInteger(me, feesKey))
16	16		let guess = extract(getBinary(me, toBase58String(tx.proofs[1])))
17	17		let type = take(guess, 1)
18	18		let val = drop(guess, 1)
19	19		let key = extract(getString(me, (toBase58String(tx.proofs[1]) + "_round")))
20	20		let valComplex = extract(getBinary(oracle, key))
21	21		let koeff = if ((type == drop(toBytes(0), 7)))
22	22		then 35
23	23		else if ((type == drop(toBytes(1), 7)))
24	24		then 2
25	25		else if ((type == drop(toBytes(2), 7)))
26	26		then 2
27	27		else if ((type == drop(toBytes(3), 7)))
28	28		then 2
29	29		else if ((type == drop(toBytes(4), 7)))
30	30		then 3
31	31		else if ((type == drop(toBytes(5), 7)))
32	32		then 3
33	33		else 0
34	34		let correctAmount = (((paymentTx.amount * koeff) - dataTxsFees) - withdrawTx.fee)
35	35		let isAmountOk = (withdrawTx.amount == correctAmount)
36	36		let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
37	37		then !(isDefined(withdrawTx.assetId))
38	38		else false
39	39		if (if (isPaymentTookPlace)
40	40		then isAmountOk
41	41		else false)
42	42		then isInWaves
43	43		else false
44	44		case _ =>
45	45		false
46	46		}
47	47		case dtx: DataTransaction =>
48	48		if ((size(dtx.data) == 2))
49	49		then {
50	50		let isDataCountOk = (size(dtx.data) == 2)
51	51		let paymentTxIdStr = dropRight(extract(dtx.data[0].key), 9)
52	52		let feesKey = (paymentTxIdStr + "_withdraw_fees")
53	53		let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
54	54		let newFees = extract(getInteger(dtx.data, feesKey))
55	55		let oldFees = if (isDefined(getInteger(me, feesKey)))
56	56		then extract(getInteger(me, feesKey))
57	57		else 0
58	58		let isFeeCorrect = (newFees == (oldFees + dtx.fee))
59	59		let withdrawTxIdUnit = getString(me, paymentTxIdStr)
60	60		let isPaymentAlreadyMentioned = isDefined(withdrawTxIdUnit)
61	61		let withdrawTransactionId = fromBase58String(extract(withdrawTxIdUnit))
62	62		match paymentTx {
63	63		case paymentTx: TransferTransaction =>
64	64		let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
65	65		if (if (if (if (if (!(isPaymentAlreadyMentioned))
66	66		then true
67	67		else !(isDefined(transactionById(withdrawTransactionId))))
68	68		then isDtxSignedByPayer
69	69		else false)
70	70		then isFeeCorrect
71	71		else false)
72	72		then isDataCountOk
73	73		else false)
74	74		then {
75	75		let guess = extract(getBinary(me, paymentTxIdStr))
76	76		let type = take(guess, 1)
77	77		let key = extract(getString(me, (paymentTxIdStr + "_round")))
78	78		let heightRes = extract(getInteger(oracle, (key + "height")))
79	79		let isCheater = (extract(transactionHeightById(paymentTx.id)) >= heightRes)
80	80		let valComplex = extract(getBinary(oracle, key))
81	81		let koeff = if ((type == drop(toBytes(0), 7)))
82	82		then 35
83	83		else if ((type == drop(toBytes(1), 7)))
84	84		then 2
85	85		else if ((type == drop(toBytes(2), 7)))
86	86		then 2
87	87		else if ((type == drop(toBytes(3), 7)))
88	88		then 2
89	89		else if ((type == drop(toBytes(4), 7)))
90	90		then 3
91	91		else if ((type == drop(toBytes(5), 7)))
92	92		then 3
93	93		else 0
94	94		let valReal = if ((type == drop(toBytes(0), 7)))
95	95		then drop(take(valComplex, 2), 1)
96	96		else if ((type == drop(toBytes(1), 7)))
97	97		then drop(take(valComplex, 3), 2)
98	98		else if ((type == drop(toBytes(2), 7)))
99	99		then drop(take(valComplex, 4), 3)
100	100		else if ((type == drop(toBytes(3), 7)))
101	101		then drop(take(valComplex, 5), 4)
102	102		else if ((type == drop(toBytes(4), 7)))
103	103		then drop(take(valComplex, 6), 5)
104	104		else if ((type == drop(toBytes(5), 7)))
105	105		then drop(take(valComplex, 7), 6)
106	106		else throw("Incorrect type of guess provided")
107	107		let isWin = (drop(guess, 1) == valReal)
108	108		let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
109	109		if (if (isWin)
110	110		then isMoneyStillEnough
111	111		else false)
112	112		then !(isCheater)
113	113		else false
114	114		}
115	115		else false
116	116		case _ =>
117	117		false
118	118		}
119	119		}
120	120		else if ((size(dtx.data) == 3))
121	121		then {
122	122		let minBet = 50000000
123		-	let maxSumBet = ~~3700000~~
	123	+	let maxSumBet = 4100000
124	124		let paymentTxIdStr = extract(dtx.data[0].key)
125	125		let guessStr = extract(getString(dtx.data, paymentTxIdStr))
126	126		let paymentRoundKey = (paymentTxIdStr + "_round")
127	127		let paymentRound = extract(getString(dtx.data, paymentRoundKey))
128	128		let sumBetsOld = if (isDefined(getInteger(me, (paymentRound + "_betsSum"))))
129	129		then extract(getInteger(me, (paymentRound + "_betsSum")))
130	130		else 0
131	131		let sumBetsNew = extract(getInteger(dtx.data, (paymentRound + "_betsSum")))
132	132		let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
133	133		let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
134	134		match paymentTx {
135	135		case paymentTx: TransferTransaction =>
136	136		let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
137	137		let correctSumBets = ((sumBetsOld + paymentTx.amount) - dtx.fee)
138	138		if (if (!(isPaymentAlreadyMentioned))
139	139		then (sumBetsNew == correctSumBets)
140	140		else false)
141	141		then (sumBetsNew > maxSumBet)
142	142		else false
143	143		case _ =>
144	144		false
145	145		}
146	146		}
147	147		else false
148	148		case _ =>
149	149		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
150	150		}

github/deemru/w8io/169f3d6 
35.94 ms ◑