w8 · tx · AMh···sYf

tx · AMhwRMpgD9V1PF7acEWr3Tr7zufPXy359ofEwagv1sYf

3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU:  -0.01400000 Waves

2019.02.10 18:50 [489242] smart account 3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AMhwRMpgD9V1PF7acEWr3Tr7zufPXy359ofEwagv1sYf",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1549813914147,
    "version": 1,
    "sender": "3MwR2FzFtbHeds3NzvkbiaYMVNhbtqcfRPU",
    "senderPublicKey": "H5rtwGVnkSHDfz6msD7itGURoKMXvvDwPoup1VESxfjJ",
    "proofs": [
        "5ZPiwwnJC4UQ5qakbDahy12MTnjLzXB69PdS5mQGuwTBs5Ziw9Bdn1nC2hgcvRtsLsHgXE1d3Q12HV1yMCN7kZ1P"
    ],
    "script": "base64:AQQAAAACbWUIBQAAAAJ0eAAAAAZzZW5kZXIEAAAABm9yYWNsZQkBAAAAB2V4dHJhY3QAAAABCQEAAAARYWRkcmVzc0Zyb21TdHJpbmcAAAABAgAAACMzTkN6YVlUTkRHdFI4emY5eWZjcWVQRmpDcUZ4OVM1emhzNAQAAAAObWluV2l0aGRyYXdGZWUAAAAAAAAGGoAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAp3aXRoZHJhd1R4BQAAAAckbWF0Y2gwBAAAAAR0eElkCQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUJAAJYAAAAAQkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABBAAAAAckbWF0Y2gxCQAD6AAAAAEJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAQMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAAJcGF5bWVudFR4BQAAAAckbWF0Y2gxBAAAABJpc1BheW1lbnRUb29rUGxhY2UDCQAAAAAAAAIFAAAABHR4SWQJAAJYAAAAAQgFAAAAAnR4AAAAAmlkCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAACXBheW1lbnRUeAAAAA9zZW5kZXJQdWJsaWNLZXkHBAAAAAdmZWVzS2V5CQABLAAAAAIJAAJYAAAAAQkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAABAgAAAAVfZmVlcwQAAAALZGF0YVR4c0ZlZXMJAQAAAAdleHRyYWN0AAAAAQkABBoAAAACBQAAAAJtZQUAAAAHZmVlc0tleQQAAAAFZ3Vlc3MJAQAAAAdleHRyYWN0AAAAAQkABBwAAAACBQAAAAJtZQkAAlgAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAEEAAAABHR5cGUJAADJAAAAAgUAAAAFZ3Vlc3MAAAAAAAAAAAEEAAAAA3ZhbAkAAMoAAAACBQAAAAVndWVzcwAAAAAAAAAAAQQAAAADa2V5CQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUJAAEsAAAAAgkAAlgAAAABCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAECAAAABl9yb3VuZAQAAAAKdmFsQ29tcGxleAkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAABm9yYWNsZQUAAAADa2V5BAAAAAVrb2VmZgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAAAAAAAAAAAAAcAAAAAAAAAACMDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAABAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAgAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAMAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAEAAAAAAAAAAAHAAAAAAAAAAADAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAABQAAAAAAAAAABwAAAAAAAAAAAwAAAAAAAAAAAAQAAAANY29ycmVjdEFtb3VudAkAAGUAAAACCQAAZQAAAAIJAABoAAAAAggFAAAACXBheW1lbnRUeAAAAAZhbW91bnQFAAAABWtvZWZmBQAAAAtkYXRhVHhzRmVlcwgFAAAACndpdGhkcmF3VHgAAAADZmVlBAAAAAppc0Ftb3VudE9rCQAAAAAAAAIIBQAAAAp3aXRoZHJhd1R4AAAABmFtb3VudAUAAAANY29ycmVjdEFtb3VudAQAAAAJaXNJbldhdmVzAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAACndpdGhkcmF3VHgAAAAKZmVlQXNzZXRJZAkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAACndpdGhkcmF3VHgAAAAHYXNzZXRJZAcDAwUAAAASaXNQYXltZW50VG9va1BsYWNlBQAAAAppc0Ftb3VudE9rBwUAAAAJaXNJbldhdmVzBwcDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAADZHR4BQAAAAckbWF0Y2gwAwkAAAAAAAACCQABkAAAAAEIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAgQAAAANaXNEYXRhQ291bnRPawkAAAAAAAACCQABkAAAAAEIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAgQAAAAOcGF5bWVudFR4SWRTdHIJAQAAAAlkcm9wUmlnaHQAAAACCQEAAAAHZXh0cmFjdAAAAAEICQABkQAAAAIIBQAAAANkdHgAAAAEZGF0YQAAAAAAAAAAAAAAAANrZXkAAAAAAAAAAAkEAAAAB2ZlZXNLZXkJAAEsAAAAAgUAAAAOcGF5bWVudFR4SWRTdHICAAAADl93aXRoZHJhd19mZWVzBAAAAAlwYXltZW50VHgJAAPoAAAAAQkAAlkAAAABBQAAAA5wYXltZW50VHhJZFN0cgQAAAAHbmV3RmVlcwkBAAAAB2V4dHJhY3QAAAABCQAEEAAAAAIIBQAAAANkdHgAAAAEZGF0YQUAAAAHZmVlc0tleQQAAAAHb2xkRmVlcwMJAQAAAAlpc0RlZmluZWQAAAABCQAEGgAAAAIFAAAAAm1lBQAAAAdmZWVzS2V5CQEAAAAHZXh0cmFjdAAAAAEJAAQaAAAAAgUAAAACbWUFAAAAB2ZlZXNLZXkAAAAAAAAAAAAEAAAADGlzRmVlQ29ycmVjdAkAAAAAAAACBQAAAAduZXdGZWVzCQAAZAAAAAIFAAAAB29sZEZlZXMIBQAAAANkdHgAAAADZmVlBAAAABlpc1BheW1lbnRBbHJlYWR5TWVudGlvbmVkCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAJtZQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAFXdpdGhkcmF3VHJhbnNhY3Rpb25JZAkAAlkAAAABCQEAAAAHZXh0cmFjdAAAAAEJAAQdAAAAAgUAAAACbWUFAAAADnBheW1lbnRUeElkU3RyBAAAAA9pc1dpdGhkcmF3RXhpc3QJAQAAAAlpc0RlZmluZWQAAAABCQAD6AAAAAEFAAAAFXdpdGhkcmF3VHJhbnNhY3Rpb25JZAQAAAAHJG1hdGNoMQUAAAAJcGF5bWVudFR4AwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAlwYXltZW50VHgFAAAAByRtYXRjaDEEAAAAEmlzRHR4U2lnbmVkQnlQYXllcgkAAfQAAAADCAUAAAADZHR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAADZHR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAACXBheW1lbnRUeAAAAA9zZW5kZXJQdWJsaWNLZXkDAwMDAwkBAAAAASEAAAABBQAAABlpc1BheW1lbnRBbHJlYWR5TWVudGlvbmVkBgkBAAAAASEAAAABBQAAAA9pc1dpdGhkcmF3RXhpc3QFAAAAEmlzRHR4U2lnbmVkQnlQYXllcgcFAAAADGlzRmVlQ29ycmVjdAcFAAAADWlzRGF0YUNvdW50T2sHBAAAAANhdHQIBQAAAAlwYXltZW50VHgAAAAKYXR0YWNobWVudAQAAAAEdHlwZQkBAAAADmRyb3BSaWdodEJ5dGVzAAAAAgkBAAAADnRha2VSaWdodEJ5dGVzAAAAAgUAAAADYXR0AAAAAAAAAAACAAAAAAAAAAABBAAAAAN2YWwJAQAAAA50YWtlUmlnaHRCeXRlcwAAAAIFAAAAA2F0dAAAAAAAAAAAAQQAAAADa2V5CQEAAAAOZHJvcFJpZ2h0Qnl0ZXMAAAACBQAAAANhdHQAAAAAAAAAAAIEAAAACWhlaWdodFJlcwkBAAAAB2V4dHJhY3QAAAABCQAEGgAAAAIFAAAABm9yYWNsZQkAASwAAAACCQACWAAAAAEFAAAAA2tleQIAAAAGaGVpZ2h0BAAAAAlpc0NoZWF0ZXIJAABnAAAAAgkBAAAAB2V4dHJhY3QAAAABCQAD6QAAAAEIBQAAAAlwYXltZW50VHgAAAACaWQFAAAACWhlaWdodFJlcwQAAAAKdmFsQ29tcGxleAkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAABm9yYWNsZQkAAlgAAAABBQAAAANrZXkEAAAABWtvZWZmAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAAAAAAAAAAAABwAAAAAAAAAAIwMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAEAAAAAAAAAAAcAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAACAAAAAAAAAAAHAAAAAAAAAAACAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAwAAAAAAAAAABwAAAAAAAAAAAgMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAQAAAAAAAAAAAcAAAAAAAAAAAMDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAFAAAAAAAAAAAHAAAAAAAAAAADAAAAAAAAAAAABAAAAAN2ZXIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAAAQQAAAAHdmFsUmVhbAMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAAAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAACAAAAAAAAAAABAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAAAQAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAMAAAAAAAAAAAIDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAACAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAABAAAAAAAAAAAAwMJAAAAAAAAAgUAAAAEdHlwZQkAAMoAAAACCQABmgAAAAEAAAAAAAAAAAMAAAAAAAAAAAcJAADKAAAAAgkAAMkAAAACBQAAAAp2YWxDb21wbGV4AAAAAAAAAAAFAAAAAAAAAAAEAwkAAAAAAAACBQAAAAR0eXBlCQAAygAAAAIJAAGaAAAAAQAAAAAAAAAABAAAAAAAAAAABwkAAMoAAAACCQAAyQAAAAIFAAAACnZhbENvbXBsZXgAAAAAAAAAAAYAAAAAAAAAAAUDCQAAAAAAAAIFAAAABHR5cGUJAADKAAAAAgkAAZoAAAABAAAAAAAAAAAFAAAAAAAAAAAHCQAAygAAAAIJAADJAAAAAgUAAAAKdmFsQ29tcGxleAAAAAAAAAAABwAAAAAAAAAABgkAAZoAAAABAAAAAAAAAAAmBAAAAAVpc1dpbgMJAAAAAAAAAgUAAAADdmFsBQAAAAd2YWxSZWFsCQEAAAACIT0AAAACBQAAAAN2YWwJAAGaAAAAAQAAAAAAAAAAJgcEAAAAEmlzTW9uZXlTdGlsbEVub3VnaAkAAGYAAAACCQAAZAAAAAIJAABoAAAAAggFAAAACXBheW1lbnRUeAAAAAZhbW91bnQFAAAABWtvZWZmBQAAAA5taW5XaXRoZHJhd0ZlZQUAAAAHbmV3RmVlcwMDBQAAAAVpc1dpbgkBAAAAASEAAAABBQAAAAlpc0NoZWF0ZXIHBQAAABJpc01vbmV5U3RpbGxFbm91Z2gHBwcDCQAAAAAAAAIJAAGQAAAAAQgFAAAAA2R0eAAAAARkYXRhAAAAAAAAAAADBAAAAA5wYXltZW50VHhJZFN0cgkBAAAAB2V4dHJhY3QAAAABCAkAAZEAAAACCAUAAAADZHR4AAAABGRhdGEAAAAAAAAAAAAAAAADa2V5BAAAAAhndWVzc1N0cgkBAAAAB2V4dHJhY3QAAAABCQAEEwAAAAIIBQAAAANkdHgAAAAEZGF0YQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAD3BheW1lbnRSb3VuZEtleQkAASwAAAACBQAAAA5wYXltZW50VHhJZFN0cgIAAAAGX3JvdW5kBAAAAAxwYXltZW50Um91bmQJAQAAAAdleHRyYWN0AAAAAQkABBMAAAACCAUAAAADZHR4AAAABGRhdGEFAAAAD3BheW1lbnRSb3VuZEtleQQAAAAKc3VtQmV0c09sZAMJAQAAAAlpc0RlZmluZWQAAAABCQAEGgAAAAIFAAAAAm1lCQABLAAAAAIFAAAADHBheW1lbnRSb3VuZAIAAAAIX2JldHNTdW0JAQAAAAdleHRyYWN0AAAAAQkABBoAAAACBQAAAAJtZQkAASwAAAACBQAAAAxwYXltZW50Um91bmQCAAAACF9iZXRzU3VtAAAAAAAAAAAABAAAAApzdW1CZXRzTmV3CQEAAAAHZXh0cmFjdAAAAAEJAAQQAAAAAggFAAAAA2R0eAAAAARkYXRhCQABLAAAAAIFAAAADHBheW1lbnRSb3VuZAIAAAAIX2JldHNTdW0EAAAAGWlzUGF5bWVudEFscmVhZHlNZW50aW9uZWQJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAAAm1lBQAAAA5wYXltZW50VHhJZFN0cgQAAAAJcGF5bWVudFR4CQAD6AAAAAEJAAJZAAAAAQUAAAAOcGF5bWVudFR4SWRTdHIEAAAAByRtYXRjaDEFAAAACXBheW1lbnRUeAMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAAJcGF5bWVudFR4BQAAAAckbWF0Y2gxBAAAABJpc0R0eFNpZ25lZEJ5UGF5ZXIJAAH0AAAAAwgFAAAAA2R0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAA2R0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAlwYXltZW50VHgAAAAPc2VuZGVyUHVibGljS2V5AwkBAAAAASEAAAABBQAAABlpc1BheW1lbnRBbHJlYWR5TWVudGlvbmVkCQAAAAAAAAIFAAAACnN1bUJldHNOZXcJAABlAAAAAgkAAGQAAAACBQAAAApzdW1CZXRzT2xkCAUAAAAJcGF5bWVudFR4AAAABmFtb3VudAgFAAAAA2R0eAAAAANmZWUHBwcJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5MO2yFw==",
    "chainId": 84,
    "height": 489242,
    "spentComplexity": 0
}

View: original | compacted
Prev: AKNzSqygHYjX9zBJsMiKx4rhfKjy2iAURKw66JCiyTJd
Next: GTmjYGR3d9kpu8q4cdmZTu3Z2SQHpC9omAXdiQVi9LiA

Diff: 
Old New Differences
49 49              then {
50 50                  let isDataCountOk = (size(dtx.data) == 2)
51 51                  let paymentTxIdStr = dropRight(extract(dtx.data[0].key), 9)
52 -                 let feesKey = (paymentTxIdStr + "_fees")
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)))
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])))
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]) + "_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 -                 let feesKey = (paymentTxIdStr + "_fees")
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 isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
60 60                  let withdrawTransactionId = fromBase58String(extract(getString(me, paymentTxIdStr)))
61 61                  let isWithdrawExist = isDefined(transactionById(withdrawTransactionId))
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 !(isWithdrawExist))
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 att = paymentTx.attachment
76 76                                  let type = dropRightBytes(takeRightBytes(att, 2), 1)
77 77                                  let val = takeRightBytes(att, 1)
78 78                                  let key = dropRightBytes(att, 2)
79 79                                  let heightRes = extract(getInteger(oracle, (toBase58String(key) + "height")))
80 80                                  let isCheater = (extract(transactionHeightById(paymentTx.id)) >= heightRes)
81 81                                  let valComplex = extract(getBinary(oracle, toBase58String(key)))
82 82                                  let koeff = if ((type == drop(toBytes(0), 7)))
83 83                                      then 35
84 84                                      else if ((type == drop(toBytes(1), 7)))
85 85                                          then 2
86 86                                          else if ((type == drop(toBytes(2), 7)))
87 87                                              then 2
88 88                                              else if ((type == drop(toBytes(3), 7)))
89 89                                                  then 2
90 90                                                  else if ((type == drop(toBytes(4), 7)))
91 91                                                      then 3
92 92                                                      else if ((type == drop(toBytes(5), 7)))
93 93                                                          then 3
94 94                                                          else 0
95 95                                  let ver = take(valComplex, 1)
96 96                                  let valReal = if ((type == drop(toBytes(0), 7)))
97 97                                      then drop(take(valComplex, 2), 1)
98 98                                      else if ((type == drop(toBytes(1), 7)))
99 99                                          then drop(take(valComplex, 3), 2)
100 100                                          else if ((type == drop(toBytes(2), 7)))
101 101                                              then drop(take(valComplex, 4), 3)
102 102                                              else if ((type == drop(toBytes(3), 7)))
103 103                                                  then drop(take(valComplex, 5), 4)
104 104                                                  else if ((type == drop(toBytes(4), 7)))
105 105                                                      then drop(take(valComplex, 6), 5)
106 106                                                      else if ((type == drop(toBytes(5), 7)))
107 107                                                          then drop(take(valComplex, 7), 6)
108 108                                                          else toBytes(38)
109 109                                  let isWin = if ((val == valReal))
110 110                                      then (val != toBytes(38))
111 111                                      else false
112 112                                  let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
113 113                                  if (if (isWin)
114 114                                      then !(isCheater)
115 115                                      else false)
116 116                                      then isMoneyStillEnough
117 117                                      else false
118 118                                  }
119 119                              else false
120 120                      case _ => 
121 121                          false
122 122                  }
123 123                  }
124 124              else if ((size(dtx.data) == 3))
125 125                  then {
126 126                      let paymentTxIdStr = extract(dtx.data[0].key)
127 127                      let guessStr = extract(getString(dtx.data, paymentTxIdStr))
128 128                      let paymentRoundKey = (paymentTxIdStr + "_round")
129 129                      let paymentRound = extract(getString(dtx.data, paymentRoundKey))
130 130                      let sumBetsOld = if (isDefined(getInteger(me, (paymentRound + "_betsSum"))))
131 131                          then extract(getInteger(me, (paymentRound + "_betsSum")))
132 132                          else 0
133 133                      let sumBetsNew = extract(getInteger(dtx.data, (paymentRound + "_betsSum")))
134 134                      let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
135 135                      let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
136 136                      match paymentTx {
137 137                          case paymentTx: TransferTransaction => 
138 138                              let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
139 139                              if (!(isPaymentAlreadyMentioned))
140 140                                  then (sumBetsNew == ((sumBetsOld + paymentTx.amount) - dtx.fee))
141 141                                  else false
142 142                          case _ => 
143 143                              false
144 144                      }
145 145                      }
146 146                  else false
147 147      case _ => 
148 148          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
149 149  }

Old	New		Differences
49	49		then {
50	50		let isDataCountOk = (size(dtx.data) == 2)
51	51		let paymentTxIdStr = dropRight(extract(dtx.data[0].key), 9)
52		-	let feesKey = (paymentTxIdStr + "_fees")
	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)))

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])))
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]) + "_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		-	let feesKey = (paymentTxIdStr + "_fees")
	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 isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
60	60		let withdrawTransactionId = fromBase58String(extract(getString(me, paymentTxIdStr)))
61	61		let isWithdrawExist = isDefined(transactionById(withdrawTransactionId))
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 !(isWithdrawExist))
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 att = paymentTx.attachment
76	76		let type = dropRightBytes(takeRightBytes(att, 2), 1)
77	77		let val = takeRightBytes(att, 1)
78	78		let key = dropRightBytes(att, 2)
79	79		let heightRes = extract(getInteger(oracle, (toBase58String(key) + "height")))
80	80		let isCheater = (extract(transactionHeightById(paymentTx.id)) >= heightRes)
81	81		let valComplex = extract(getBinary(oracle, toBase58String(key)))
82	82		let koeff = if ((type == drop(toBytes(0), 7)))
83	83		then 35
84	84		else if ((type == drop(toBytes(1), 7)))
85	85		then 2
86	86		else if ((type == drop(toBytes(2), 7)))
87	87		then 2
88	88		else if ((type == drop(toBytes(3), 7)))
89	89		then 2
90	90		else if ((type == drop(toBytes(4), 7)))
91	91		then 3
92	92		else if ((type == drop(toBytes(5), 7)))
93	93		then 3
94	94		else 0
95	95		let ver = take(valComplex, 1)
96	96		let valReal = if ((type == drop(toBytes(0), 7)))
97	97		then drop(take(valComplex, 2), 1)
98	98		else if ((type == drop(toBytes(1), 7)))
99	99		then drop(take(valComplex, 3), 2)
100	100		else if ((type == drop(toBytes(2), 7)))
101	101		then drop(take(valComplex, 4), 3)
102	102		else if ((type == drop(toBytes(3), 7)))
103	103		then drop(take(valComplex, 5), 4)
104	104		else if ((type == drop(toBytes(4), 7)))
105	105		then drop(take(valComplex, 6), 5)
106	106		else if ((type == drop(toBytes(5), 7)))
107	107		then drop(take(valComplex, 7), 6)
108	108		else toBytes(38)
109	109		let isWin = if ((val == valReal))
110	110		then (val != toBytes(38))
111	111		else false
112	112		let isMoneyStillEnough = (((paymentTx.amount * koeff) + minWithdrawFee) > newFees)
113	113		if (if (isWin)
114	114		then !(isCheater)
115	115		else false)
116	116		then isMoneyStillEnough
117	117		else false
118	118		}
119	119		else false
120	120		case _ =>
121	121		false
122	122		}
123	123		}
124	124		else if ((size(dtx.data) == 3))
125	125		then {
126	126		let paymentTxIdStr = extract(dtx.data[0].key)
127	127		let guessStr = extract(getString(dtx.data, paymentTxIdStr))
128	128		let paymentRoundKey = (paymentTxIdStr + "_round")
129	129		let paymentRound = extract(getString(dtx.data, paymentRoundKey))
130	130		let sumBetsOld = if (isDefined(getInteger(me, (paymentRound + "_betsSum"))))
131	131		then extract(getInteger(me, (paymentRound + "_betsSum")))
132	132		else 0
133	133		let sumBetsNew = extract(getInteger(dtx.data, (paymentRound + "_betsSum")))
134	134		let isPaymentAlreadyMentioned = isDefined(getString(me, paymentTxIdStr))
135	135		let paymentTx = transactionById(fromBase58String(paymentTxIdStr))
136	136		match paymentTx {
137	137		case paymentTx: TransferTransaction =>
138	138		let isDtxSignedByPayer = sigVerify(dtx.bodyBytes, dtx.proofs[0], paymentTx.senderPublicKey)
139	139		if (!(isPaymentAlreadyMentioned))
140	140		then (sumBetsNew == ((sumBetsOld + paymentTx.amount) - dtx.fee))
141	141		else false
142	142		case _ =>
143	143		false
144	144		}
145	145		}
146	146		else false
147	147		case _ =>
148	148		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
149	149		}

github/deemru/w8io/169f3d6 
32.72 ms ◑