w8 · tx · HCC···f9h

tx · HCCSELSvGrC7sQhDFqS6YhjAJwbnBuJspjN5fM46sf9h

3Ms2w9wW9gFGhvgfdFSHtro1Hfx7mPNoita:  -0.01400000 Waves

2019.02.08 20:37 [486420] smart account 3Ms2w9wW9gFGhvgfdFSHtro1Hfx7mPNoita > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "HCCSELSvGrC7sQhDFqS6YhjAJwbnBuJspjN5fM46sf9h",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1549647470001,
    "version": 1,
    "sender": "3Ms2w9wW9gFGhvgfdFSHtro1Hfx7mPNoita",
    "senderPublicKey": "H29vH3ZF7qgcLy8mZb3RU72EgJ55GBRcEmnMqEQX4JcQ",
    "proofs": [
        "4pjRym8DUMyWNLXwH6ewLq8xLMwvfZ2fmrhMoC6DhZmaikLkeHSjJH8ibobVPcEQv3Wri2H2QkYrSSNJMVcFWcLD"
    ],
    "script": "base64:AQQAAAACbWUIBQAAAAJ0eAAAAAZzZW5kZXIEAAAABm9yYWNsZQkBAAAAB2V4dHJhY3QAAAABCQEAAAARYWRkcmVzc0Zyb21TdHJpbmcAAAABAgAAACMzTkN6YVlUTkRHdFI4emY5eWZjcWVQRmpDcUZ4OVM1emhzNAQAAAAObWluV2l0aGRyYXdGZWUAAAAAAAAGGoAEAAAABm1pbkJldAAAAAAAAvrwgAQAAAAGbWF4QmV0AAAAAAAdzWUABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAAKd2l0aGRyYXdUeAUAAAAHJG1hdGNoMAQAAAAEdHhJZAkBAAAAB2V4dHJhY3QAAAABCQAEHQAAAAIFAAAAAm1lCQACWAAAAAEJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAQQAAAAHJG1hdGNoMQkAA+gAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAEDCQAAAQAAAAIFAAAAByRtYXRjaDECAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAACXBheW1lbnRUeAUAAAAHJG1hdGNoMQQAAAASaXNQYXltZW50VG9va1BsYWNlAwkAAAAAAAACBQAAAAR0eElkCQACWAAAAAEIBQAAAAJ0eAAAAAJpZAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAlwYXltZW50VHgAAAAPc2VuZGVyUHVibGljS2V5BwQAAAADYXR0CAUAAAAJcGF5bWVudFR4AAAACmF0dGFjaG1lbnQEAAAAB2ZlZXNLZXkJAAEsAAAAAgkAAlgAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAECAAAABV9mZWVzBAAAAAtkYXRhVHhzRmVlcwkBAAAAB2V4dHJhY3QAAAABCQAEGgAAAAIFAAAAAm1lBQAAAAdmZWVzS2V5BAAAAAR0eXBlCQEAAAAOZHJvcFJpZ2h0Qnl0ZXMAAAACCQEAAAAOdGFrZVJpZ2h0Qnl0ZXMAAAACBQAAAANhdHQAAAAAAAAAAAIAAAAAAAAAAAEEAAAAA3ZhbAkBAAAADnRha2VSaWdodEJ5dGVzAAAAAgUAAAADYXR0AAAAAAAAAAABBAAAAANrZXkJAQAAAA5kcm9wUmlnaHRCeXRlcwAAAAIFAAAAA2F0dAAAAAAAAAAAAgQAAAAKdmFsQ29tcGxleAkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAABm9yYWNsZQkAAlgAAAABBQAAAANrZXkEAAAABWtvZWZmAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAJAMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAEAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAACAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAwAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAQAAAAAAAAAAAcAAAAAAAAAAAMDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAFAAAAAAAAAAAHAAAAAAAAAAADAAAAAAAAAAAABAAAAA1wYXltZW50QW1vdW50AwkAAGcAAAACBQAAAAZtYXhCZXQIBQAAAAlwYXltZW50VHgAAAAGYW1vdW50CAUAAAAJcGF5bWVudFR4AAAABmFtb3VudAUAAAAGbWF4QmV0BAAAAA1jb3JyZWN0QW1vdW50CQAAZQAAAAIJAABlAAAAAgkAAGgAAAACBQAAAA1wYXltZW50QW1vdW50BQAAAAVrb2VmZgUAAAALZGF0YVR4c0ZlZXMIBQAAAAp3aXRoZHJhd1R4AAAAA2ZlZQQAAAAKaXNBbW91bnRPawkAAAAAAAACCAUAAAAKd2l0aGRyYXdUeAAAAAZhbW91bnQFAAAADWNvcnJlY3RBbW91bnQEAAAACWlzSW5XYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAp3aXRoZHJhd1R4AAAACmZlZUFzc2V0SWQJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAp3aXRoZHJhd1R4AAAAB2Fzc2V0SWQHAwMDBQAAABJpc1BheW1lbnRUb29rUGxhY2UFAAAACmlzQW1vdW50T2sHBQAAAAlpc0luV2F2ZXMHCQAAZwAAAAIFAAAADXBheW1lbnRBbW91bnQFAAAABm1pbkJldAcHAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAA2R0eAUAAAAHJG1hdGNoMAQAAAAOcGF5bWVudFR4SWRTdHIJAQAAAAdleHRyYWN0AAAAAQgJAAGRAAAAAggFAAAAA2R0eAAAAARkYXRhAAAAAAAAAAAAAAAAA2tleQQAAAAHZmVlc0tleQkAASwAAAACBQAAAA5wYXltZW50VHhJZFN0cgIAAAAFX2ZlZXMEAAAACXBheW1lbnRUeAkAA+gAAAABCQACWQAAAAEFAAAADnBheW1lbnRUeElkU3RyBAAAAAduZXdGZWVzCQEAAAAHZXh0cmFjdAAAAAEJAAQQAAAAAggFAAAAA2R0eAAAAARkYXRhBQAAAAdmZWVzS2V5BAAAAAdvbGRGZWVzAwkBAAAACWlzRGVmaW5lZAAAAAEJAAQaAAAAAgUAAAACbWUFAAAAB2ZlZXNLZXkJAQAAAAdleHRyYWN0AAAAAQkABBoAAAACBQAAAAJtZQUAAAAHZmVlc0tleQAAAAAAAAAAAAQAAAAMaXNGZWVDb3JyZWN0CQAAAAAAAAIFAAAAB25ld0ZlZXMJAABkAAAAAgUAAAAHb2xkRmVlcwgFAAAAA2R0eAAAAANmZWUEAAAAGWlzUGF5bWVudEFscmVhZHlNZW50aW9uZWQJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAAAm1lBQAAAA5wYXltZW50VHhJZFN0cgQAAAAVd2l0aGRyYXdUcmFuc2FjdGlvbklkCQACWQAAAAEJAQAAAAdleHRyYWN0AAAAAQkABB0AAAACBQAAAAJtZQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAD2lzV2l0aGRyYXdFeGlzdAkBAAAACWlzRGVmaW5lZAAAAAEJAAPoAAAAAQUAAAAVd2l0aGRyYXdUcmFuc2FjdGlvbklkBAAAAAckbWF0Y2gxBQAAAAlwYXltZW50VHgDCQAAAQAAAAIFAAAAByRtYXRjaDECAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAACXBheW1lbnRUeAUAAAAHJG1hdGNoMQQAAAASaXNEdHhTaWduZWRCeVBheWVyCQAB9AAAAAMIBQAAAANkdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAANkdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAAJcGF5bWVudFR4AAAAD3NlbmRlclB1YmxpY0tleQMDAwMJAQAAAAEhAAAAAQUAAAAZaXNQYXltZW50QWxyZWFkeU1lbnRpb25lZAYJAQAAAAEhAAAAAQUAAAAPaXNXaXRoZHJhd0V4aXN0BQAAABJpc0R0eFNpZ25lZEJ5UGF5ZXIHBQAAAAxpc0ZlZUNvcnJlY3QHBAAAAANhdHQIBQAAAAlwYXltZW50VHgAAAAKYXR0YWNobWVudAQAAAAEdHlwZQkBAAAADmRyb3BSaWdodEJ5dGVzAAAAAgkBAAAADnRha2VSaWdodEJ5dGVzAAAAAgUAAAADYXR0AAAAAAAAAAACAAAAAAAAAAABBAAAAAN2YWwJAQAAAA50YWtlUmlnaHRCeXRlcwAAAAIFAAAAA2F0dAAAAAAAAAAAAQQAAAADa2V5CQEAAAAOZHJvcFJpZ2h0Qnl0ZXMAAAACBQAAAANhdHQAAAAAAAAAAAIEAAAACWhlaWdodFJlcwkBAAAAB2V4dHJhY3QAAAABCQAEGgAAAAIFAAAABm9yYWNsZQkAASwAAAACCQACWAAAAAEFAAAAA2tleQIAAAAGaGVpZ2h0BAAAAAlpc0NoZWF0ZXIJAABnAAAAAgkBAAAAB2V4dHJhY3QAAAABCQAD6QAAAAEIBQAAAAlwYXltZW50VHgAAAACaWQFAAAACWhlaWdodFJlcwQAAAAKdmFsQ29tcGxleAkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAABm9yYWNsZQkAAlgAAAABBQAAAANrZXkEAAAABWtvZWZmAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAJAMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAEAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAACAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAwAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAQAAAAAAAAAAAcAAAAAAAAAAAMDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAFAAAAAAAAAAAHAAAAAAAAAAADAAAAAAAAAAAABAAAABJpc01vbmV5U3RpbGxFbm91Z2gJAABmAAAAAgkAAGQAAAACCQAAaAAAAAIIBQAAAAlwYXltZW50VHgAAAAGYW1vdW50BQAAAAVrb2VmZgUAAAAObWluV2l0aGRyYXdGZWUFAAAAB25ld0ZlZXMEAAAAA3ZlcgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAABBAAAAAd2YWxSZWFsAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAAAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAIAAAAAAAAAAAEDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAABAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAAAwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAIAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAAEAAAAAAAAAAADAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAwAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAUAAAAAAAAAAAQDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAEAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAABgAAAAAAAAAABQMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAUAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAAHAAAAAAAAAAAGCQABmgAAAAEAAAAAAAAAACYEAAAABWlzV2luAwkAAAAAAAACBQAAAAN2YWwFAAAAB3ZhbFJlYWwJAQAAAAIhPQAAAAIFAAAAA3ZhbAkAAZoAAAABAAAAAAAAAAAmBwMFAAAABWlzV2luBQAAABJpc01vbmV5U3RpbGxFbm91Z2gHBwcJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5Z02SaA==",
    "chainId": 84,
    "height": 486420,
    "spentComplexity": 0
}

View: original | compacted
Prev: pUnFuNvXvKNQW9kCtNhHBC4B3iba8vpxVKqDScSJ3jA
Next: Fw8m1VQy5M89cAUsRA26o4ZamH6aSpW1hmhxeG1zKPe6

Diff: 
Old New Differences
112 112                          let isWin = if ((val == valReal))
113 113                              then (val != toBytes(38))
114 114                              else false
115 -                         if (if (isWin)
116 -                             then !(isCheater)
117 -                             else false)
115 +                         if (isWin)
118 116                              then isMoneyStillEnough
119 117                              else false
120 118                          }
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  let minBet = 50000000
7 7  let maxBet = 500000000
8 8  match tx {
9 9      case withdrawTx: TransferTransaction => 
10 10          let txId = extract(getString(me, toBase58String(tx.proofs[1])))
11 11          match transactionById(tx.proofs[1]) {
12 12              case paymentTx: TransferTransaction => 
13 13                  let isPaymentTookPlace = if ((txId == toBase58String(tx.id)))
14 14                      then sigVerify(tx.bodyBytes, tx.proofs[0], paymentTx.senderPublicKey)
15 15                      else false
16 16                  let att = paymentTx.attachment
17 17                  let feesKey = (toBase58String(tx.proofs[1]) + "_fees")
18 18                  let dataTxsFees = extract(getInteger(me, feesKey))
19 19                  let type = dropRightBytes(takeRightBytes(att, 2), 1)
20 20                  let val = takeRightBytes(att, 1)
21 21                  let key = dropRightBytes(att, 2)
22 22                  let valComplex = extract(getBinary(oracle, toBase58String(key)))
23 23                  let koeff = if ((type == drop(toBytes(0), 7)))
24 24                      then 36
25 25                      else if ((type == drop(toBytes(1), 7)))
26 26                          then 2
27 27                          else if ((type == drop(toBytes(2), 7)))
28 28                              then 2
29 29                              else if ((type == drop(toBytes(3), 7)))
30 30                                  then 2
31 31                                  else if ((type == drop(toBytes(4), 7)))
32 32                                      then 3
33 33                                      else if ((type == drop(toBytes(5), 7)))
34 34                                          then 3
35 35                                          else 0
36 36                  let paymentAmount = if ((maxBet >= paymentTx.amount))
37 37                      then paymentTx.amount
38 38                      else maxBet
39 39                  let correctAmount = (((paymentAmount * koeff) - dataTxsFees) - withdrawTx.fee)
40 40                  let isAmountOk = (withdrawTx.amount == correctAmount)
41 41                  let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
42 42                      then !(isDefined(withdrawTx.assetId))
43 43                      else false
44 44                  if (if (if (isPaymentTookPlace)
45 45                      then isAmountOk
46 46                      else false)
47 47                      then isInWaves
48 48                      else false)
49 49                      then (paymentAmount >= minBet)
50 50                      else false
51 51              case _ => 
52 52                  false
53 53          }
54 54      case dtx: DataTransaction => 
55 55          let paymentTxIdStr = extract(dtx.data[0].key)
56 56          let feesKey = (paymentTxIdStr + "_fees")
57 57          let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
58 58          let newFees = extract(getInteger(dtx.data, feesKey))
59 59          let oldFees = if (isDefined(getInteger(me, feesKey)))
60 60              then extract(getInteger(me, feesKey))
61 61              else 0
62 62          let isFeeCorrect = (newFees == (oldFees + dtx.fee))
63 63          let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
64 64          let withdrawTransactionId = fromBase58String(extract(getString(me, paymentTxIdStr)))
65 65          let isWithdrawExist = isDefined(transactionById(withdrawTransactionId))
66 66          match paymentTx {
67 67              case paymentTx: TransferTransaction => 
68 68                  let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
69 69                  if (if (if (if (!(isPaymentAlreadyMentioned))
70 70                      then true
71 71                      else !(isWithdrawExist))
72 72                      then isDtxSignedByPayer
73 73                      else false)
74 74                      then isFeeCorrect
75 75                      else false)
76 76                      then {
77 77                          let att = paymentTx.attachment
78 78                          let type = dropRightBytes(takeRightBytes(att, 2), 1)
79 79                          let val = takeRightBytes(att, 1)
80 80                          let key = dropRightBytes(att, 2)
81 81                          let heightRes = extract(getInteger(oracle, (toBase58String(key) + "height")))
82 82                          let isCheater = (extract(transactionHeightById(paymentTx.id)) >= heightRes)
83 83                          let valComplex = extract(getBinary(oracle, toBase58String(key)))
84 84                          let koeff = if ((type == drop(toBytes(0), 7)))
85 85                              then 36
86 86                              else if ((type == drop(toBytes(1), 7)))
87 87                                  then 2
88 88                                  else if ((type == drop(toBytes(2), 7)))
89 89                                      then 2
90 90                                      else if ((type == drop(toBytes(3), 7)))
91 91                                          then 2
92 92                                          else if ((type == drop(toBytes(4), 7)))
93 93                                              then 3
94 94                                              else if ((type == drop(toBytes(5), 7)))
95 95                                                  then 3
96 96                                                  else 0
97 97                          let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
98 98                          let ver = take(valComplex, 1)
99 99                          let valReal = if ((type == drop(toBytes(0), 7)))
100 100                              then drop(take(valComplex, 2), 1)
101 101                              else if ((type == drop(toBytes(1), 7)))
102 102                                  then drop(take(valComplex, 3), 2)
103 103                                  else if ((type == drop(toBytes(2), 7)))
104 104                                      then drop(take(valComplex, 4), 3)
105 105                                      else if ((type == drop(toBytes(3), 7)))
106 106                                          then drop(take(valComplex, 5), 4)
107 107                                          else if ((type == drop(toBytes(4), 7)))
108 108                                              then drop(take(valComplex, 6), 5)
109 109                                              else if ((type == drop(toBytes(5), 7)))
110 110                                                  then drop(take(valComplex, 7), 6)
111 111                                                  else toBytes(38)
112 112                          let isWin = if ((val == valReal))
113 113                              then (val != toBytes(38))
114 114                              else false
115 -                         if (if (isWin)
116 -                             then !(isCheater)
117 -                             else false)
115 +                         if (isWin)
118 116                              then isMoneyStillEnough
119 117                              else false
120 118                          }
121 119                      else false
122 120              case _ => 
123 121                  false
124 122          }
125 123      case _ => 
126 124          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
127 125  }

Old	New		Differences
112	112		let isWin = if ((val == valReal))
113	113		then (val != toBytes(38))
114	114		else false
115		-	if (if (isWin)
116		-	then !(isCheater)
117		-	else false)
	115	+	if (isWin)
118	116		then isMoneyStillEnough
119	117		else false
120	118		}

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		let minBet = 50000000
7	7		let maxBet = 500000000
8	8		match tx {
9	9		case withdrawTx: TransferTransaction =>
10	10		let txId = extract(getString(me, toBase58String(tx.proofs[1])))
11	11		match transactionById(tx.proofs[1]) {
12	12		case paymentTx: TransferTransaction =>
13	13		let isPaymentTookPlace = if ((txId == toBase58String(tx.id)))
14	14		then sigVerify(tx.bodyBytes, tx.proofs[0], paymentTx.senderPublicKey)
15	15		else false
16	16		let att = paymentTx.attachment
17	17		let feesKey = (toBase58String(tx.proofs[1]) + "_fees")
18	18		let dataTxsFees = extract(getInteger(me, feesKey))
19	19		let type = dropRightBytes(takeRightBytes(att, 2), 1)
20	20		let val = takeRightBytes(att, 1)
21	21		let key = dropRightBytes(att, 2)
22	22		let valComplex = extract(getBinary(oracle, toBase58String(key)))
23	23		let koeff = if ((type == drop(toBytes(0), 7)))
24	24		then 36
25	25		else if ((type == drop(toBytes(1), 7)))
26	26		then 2
27	27		else if ((type == drop(toBytes(2), 7)))
28	28		then 2
29	29		else if ((type == drop(toBytes(3), 7)))
30	30		then 2
31	31		else if ((type == drop(toBytes(4), 7)))
32	32		then 3
33	33		else if ((type == drop(toBytes(5), 7)))
34	34		then 3
35	35		else 0
36	36		let paymentAmount = if ((maxBet >= paymentTx.amount))
37	37		then paymentTx.amount
38	38		else maxBet
39	39		let correctAmount = (((paymentAmount * koeff) - dataTxsFees) - withdrawTx.fee)
40	40		let isAmountOk = (withdrawTx.amount == correctAmount)
41	41		let isInWaves = if (!(isDefined(withdrawTx.feeAssetId)))
42	42		then !(isDefined(withdrawTx.assetId))
43	43		else false
44	44		if (if (if (isPaymentTookPlace)
45	45		then isAmountOk
46	46		else false)
47	47		then isInWaves
48	48		else false)
49	49		then (paymentAmount >= minBet)
50	50		else false
51	51		case _ =>
52	52		false
53	53		}
54	54		case dtx: DataTransaction =>
55	55		let paymentTxIdStr = extract(dtx.data[0].key)
56	56		let feesKey = (paymentTxIdStr + "_fees")
57	57		let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
58	58		let newFees = extract(getInteger(dtx.data, feesKey))
59	59		let oldFees = if (isDefined(getInteger(me, feesKey)))
60	60		then extract(getInteger(me, feesKey))
61	61		else 0
62	62		let isFeeCorrect = (newFees == (oldFees + dtx.fee))
63	63		let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
64	64		let withdrawTransactionId = fromBase58String(extract(getString(me, paymentTxIdStr)))
65	65		let isWithdrawExist = isDefined(transactionById(withdrawTransactionId))
66	66		match paymentTx {
67	67		case paymentTx: TransferTransaction =>
68	68		let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
69	69		if (if (if (if (!(isPaymentAlreadyMentioned))
70	70		then true
71	71		else !(isWithdrawExist))
72	72		then isDtxSignedByPayer
73	73		else false)
74	74		then isFeeCorrect
75	75		else false)
76	76		then {
77	77		let att = paymentTx.attachment
78	78		let type = dropRightBytes(takeRightBytes(att, 2), 1)
79	79		let val = takeRightBytes(att, 1)
80	80		let key = dropRightBytes(att, 2)
81	81		let heightRes = extract(getInteger(oracle, (toBase58String(key) + "height")))
82	82		let isCheater = (extract(transactionHeightById(paymentTx.id)) >= heightRes)
83	83		let valComplex = extract(getBinary(oracle, toBase58String(key)))
84	84		let koeff = if ((type == drop(toBytes(0), 7)))
85	85		then 36
86	86		else if ((type == drop(toBytes(1), 7)))
87	87		then 2
88	88		else if ((type == drop(toBytes(2), 7)))
89	89		then 2
90	90		else if ((type == drop(toBytes(3), 7)))
91	91		then 2
92	92		else if ((type == drop(toBytes(4), 7)))
93	93		then 3
94	94		else if ((type == drop(toBytes(5), 7)))
95	95		then 3
96	96		else 0
97	97		let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
98	98		let ver = take(valComplex, 1)
99	99		let valReal = if ((type == drop(toBytes(0), 7)))
100	100		then drop(take(valComplex, 2), 1)
101	101		else if ((type == drop(toBytes(1), 7)))
102	102		then drop(take(valComplex, 3), 2)
103	103		else if ((type == drop(toBytes(2), 7)))
104	104		then drop(take(valComplex, 4), 3)
105	105		else if ((type == drop(toBytes(3), 7)))
106	106		then drop(take(valComplex, 5), 4)
107	107		else if ((type == drop(toBytes(4), 7)))
108	108		then drop(take(valComplex, 6), 5)
109	109		else if ((type == drop(toBytes(5), 7)))
110	110		then drop(take(valComplex, 7), 6)
111	111		else toBytes(38)
112	112		let isWin = if ((val == valReal))
113	113		then (val != toBytes(38))
114	114		else false
115		-	if (if (isWin)
116		-	then !(isCheater)
117		-	else false)
	115	+	if (isWin)
118	116		then isMoneyStillEnough
119	117		else false
120	118		}
121	119		else false
122	120		case _ =>
123	121		false
124	122		}
125	123		case _ =>
126	124		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
127	125		}

github/deemru/w8io/3ef1775 
49.58 ms ◑