w8 · tx · GKU···kVG

tx · GKUB4z2ctU5hWWnHDoAPSbjLmamAnMPHvLQfRoLb7kVG

3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm:  -0.01400000 Waves

2020.03.20 23:23 [918134] smart account 3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GKUB4z2ctU5hWWnHDoAPSbjLmamAnMPHvLQfRoLb7kVG",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1584735819762,
    "version": 1,
    "sender": "3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm",
    "senderPublicKey": "BjzUYgMDny7cYArZdjtnVo62UoVZKiCEeCoKYFnevrWU",
    "proofs": [
        "UaevpDgiZ26ehF6z5Q4ibojPxUYQ5xL8ba2ZuuxRwdMtepbNjvyhENUyunwoeSLvcdcxvpzQb2ogViT2F96DTPr"
    ],
    "script": "base64:AAIDAAAAAAAAABYIARIDCgEBEgcKBQgICAEBEgQKAggBAAAAGAAAAAAHYUJpdENPMgEAAAAgx/h6AJ03UJ8qMmy7JIhz3VjOE4OL3ofCGi0oG2fBKJYAAAAACHN0YXJ0UXR5AAAAAAAAAknwAAAAAAhub21QcmljZQAAAAAABfXhAAAAAAAETk9ORQIAAAAEbm9uZQAAAAALT3duZXJQdWJLZXkBAAAAIJ+YQBeV0x/8GNlJbr9kR/uTmvTPi2KwfwbDWc0arYRJAAAAAAZpc3N1ZXIJAQAAAAdBZGRyZXNzAAAAAQEAAAAaAVTUPeuO2Y1p2TpK+OH14WsDuVCV2jcMFFQBAAAADmdldE51bWJlckJ5S2V5AAAAAQAAAANrZXkEAAAAA251bQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAUAAAADbnVtAQAAAAtnZXRTdHJCeUtleQAAAAEAAAADa2V5BAAAAANzdHIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUFAAAAA3N0cgEAAAAKZ2V0S2V5SXRlbQAAAAIAAAAIc3VwcGxpZXIAAAAFdGl0bGUJAAEsAAAAAgIAAAAPQml0LUNPMl90b2tlbjogCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAAGl90b19BbWF6b25pYW5fQ29uc2VydmF0aW9uAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQIAAAAVT2ZmZXJlZF9RdHksIGJhbGFuY2U6AQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAIc3VwcGxpZXICAAAAFlNlbGxlcl9CYWxhbmNlLF93YXZlczoBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQIAAAAKT3JkZXJf4oSWOgEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1Vc2VyAAAAAQAAAARpdGVtAgAAAAlVc2VyTmFtZToBAAAAEGdldFZhbHVlSXRlbVVzZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0BAAAAEmdldEtleUl0ZW1Vc2VyRGF0YQAAAAEAAAAEaXRlbQIAAAAMVXNlckNvdW50cnk6AQAAABZnZXRLZXlJdGVtRGlzY291bnRVc2VyAAAAAQAAAARpdGVtAgAAABBVc2VyRGlzY291bnQsXyU6AQAAABhnZXRWYWx1ZUl0ZW1EaXNjb3VudFVzZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABZnZXRLZXlJdGVtRGlzY291bnRVc2VyAAAAAQUAAAAEaXRlbQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQIAAAAST3JkZXJfcXR5LF90b2tlbnM6AQAAABhnZXRWYWx1ZUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQAAAAMAAAABaQEAAAAHZGVwb3NpdAAAAAEAAAAGYW1vdW50BAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAHYUJpdENPMgkAAAIAAAABAgAAAC5Vc2UgY0JpdENPMiB0b2tlbnMgb25seSBmb3IgdGhlIHdhbGxldCBkZXBvc2l0BAAAAAhzdXBwbGllcgkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA1jdXJyZW50QW1vdW50BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAluZXdBbW91bnQJAABkAAAAAgUAAAANY3VycmVudEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAACHN1cHBsaWVyBQAAAAluZXdBbW91bnQFAAAAA25pbAAAAAFpAQAAAAhwdXJjaGFzZQAAAAUAAAAEaXRlbQAAAAh1c2VyTmFtZQAAAAh1c2VyRGF0YQAAAAx1c2VyRGlzY291bnQAAAAIb3JkZXJRdHkEAAAAA3BtdAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAANwbXQAAAAHYXNzZXRJZAkAAAIAAAABAgAAACx5b3UgY2FuIGFkcXVpcmUgY0JpdENPMiBvbmx5IGJ5IFdhdmVzIHRva2VucwQAAAAIc3VwcGxpZXIEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQQAAAAJcHJlSWNvUXR5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAA9iYWxhbmNlU3VwcGxpZXIEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAAD2J1eWVyVG9rZW5QcmljZQkAAGkAAAACCQAAaAAAAAIFAAAACG5vbVByaWNlCQAAZQAAAAIAAAAAAAAAAGQFAAAADHVzZXJEaXNjb3VudAAAAAAAAAAAZAQAAAALdG90YWxBbW91bnQJAABoAAAAAgUAAAAIb3JkZXJRdHkFAAAAD2J1eWVyVG9rZW5QcmljZQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANlBheW1lbnQgQW1vdW50IGNhbm5vdCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0FAAAACHVzZXJOYW1lCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5SXRlbVVzZXJEYXRhAAAAAQUAAAAEaXRlbQUAAAAIdXNlckRhdGEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABZnZXRLZXlJdGVtRGlzY291bnRVc2VyAAAAAQUAAAAEaXRlbQUAAAAMdXNlckRpc2NvdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0FAAAACG9yZGVyUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAGlVzZXJQcmljZV8xX3Rva2VuLF93YXZlczpfBQAAAAt1c2VyQWRkcmVzcwUAAAAPYnV5ZXJUb2tlblByaWNlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAF1BheW1lbnRfYW1vdW50LF93YXZlczpfBQAAAAt1c2VyQWRkcmVzcwUAAAALdG90YWxBbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOT3JkZXJfU3RhdHVzOl8FAAAAC3VzZXJBZGRyZXNzAgAAAAljb25maXJtZWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAhzdXBwbGllcgkAAGQAAAACBQAAAA9iYWxhbmNlU3VwcGxpZXIIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABBQAAAAt1c2VyQWRkcmVzcwUAAAAIb3JkZXJRdHkFAAAAB2FCaXRDTzIFAAAAA25pbAAAAAFpAQAAAAh3aXRoZHJhdwAAAAIAAAAEaXRlbQAAAAZhbW91bnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAACHN1cHBsaWVyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAABE5PTkUEAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAGYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAZhbW91bnQJAAACAAAAAQIAAAAeQ2FuJ3Qgd2l0aGRyYXcgbmVnYXRpdmUgYW1vdW50AwkAAGYAAAACAAAAAAAAAAAABQAAAAluZXdBbW91bnQJAAACAAAAAQIAAAAfTm90IGVub3VnaHQgL3N1ZmljaWVudGUgYmFsYW5jZQkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABGl0ZW0FAAAACW5ld0Ftb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAGYW1vdW50BQAAAAdhQml0Q08yBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAAXQFAAAAByRtYXRjaDAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAAtPd25lclB1YktleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAPRGF0YVRyYW5zYWN0aW9uBAAAAAFkBQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXJlY2lwaWVudAkAAlgAAAABCAkABCQAAAABCAUAAAACdHgAAAAJcmVjaXBpZW50AAAABWJ5dGVzAwkAAAAAAAACCAUAAAACdHgAAAAGc2VuZGVyBQAAAAZpc3N1ZXIGCQAAAgAAAAECAAAAIFlvdSBjYW4ndCB0cmFuc2ZlcnJlZCB0aGlzIHRva2VuB2pJkJY=",
    "chainId": 84,
    "height": 918134,
    "spentComplexity": 0
}

View: original | compacted
Prev: z1ee8qEkJGEi92t1LHqzy2qSXDfhkTgS12HtkKZrcqC
Next: BbqMRkVoNxEV9oUmRXZ9Ckq3bJeDafhEF46b81ngcdiu

Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 3 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let a = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
5 5  
6 6  let b = 150000
7 7  
8 8  let c = 100000000
9 9  
10 10  let d = "none"
11 11  
12 12  let e = base58'BjzUYgMDny7cYArZdjtnVo62UoVZKiCEeCoKYFnevrWU'
13 13  
14 14  let f = Address(base58'3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm')
15 15  
16 16  func g (h) = {
17 17      let i = {
18 18          let j = getInteger(this, h)
19 19          if ($isInstanceOf(j, "Int"))
20 20              then {
21 21                  let k = j
22 22                  k
23 23                  }
24 24              else 0
25 25          }
26 26      i
27 27      }
28 28  
29 29  
30 30  func l (h) = {
31 31      let m = {
32 32          let j = getString(this, h)
33 33          if ($isInstanceOf(j, "String"))
34 34              then {
35 35                  let k = j
36 36                  k
37 37                  }
38 38              else d
39 39          }
40 40      m
41 41      }
42 42  
43 43  
44 44  func n (o,p) = ("Bit-CO2_token: " + toBase58String(sha256(toBytes((o + p)))))
45 45  
46 46  
47 47  func q (r) = (r + "_to_Amazonian_Conservation")
48 48  
49 49  
50 50  func s (r) = l(q(r))
51 51  
52 52  
53 53  func t (r) = "Offered_Qty, balance:"
54 54  
55 55  
56 56  func u (r) = g(t(r))
57 57  
58 58  
59 59  func v (o) = "Seller_Balance,_waves:"
60 60  
61 61  
62 62  func w (o) = g(v(o))
63 63  
64 64  
65 65  func x (y,r) = "Order_№:"
66 66  
67 67  
68 68  func z (y,r) = g(x(y, r))
69 69  
70 70  
71 71  func A (r) = "UserName:"
72 72  
73 73  
74 74  func B (r) = l(A(r))
75 75  
76 76  
77 77  func C (r) = "UserCountry:"
78 78  
79 79  
80 80  func D (r) = "UserDiscount,_%:"
81 81  
82 82  
83 83  func E (r) = g(D(r))
84 84  
85 85  
86 86  func F (r) = "Order_qty,_tokens:"
87 87  
88 88  
89 89  func G (r) = g(F(r))
90 90  
91 91  
92 92  @Callable(H)
93 93  func deposit (I) = {
94 94      let J = extract(H.payment)
95 95      if ((J.assetId != a))
96 96          then throw("Use cBitCO2 tokens only for the wallet deposit")
97 97          else {
98 98              let o = toBase58String(H.caller.bytes)
99 99              let K = {
100 100                  let j = getInteger(this, o)
101 101                  if ($isInstanceOf(j, "Int"))
102 102                      then {
103 103                          let k = j
104 104                          k
105 105                          }
106 106                      else b
107 107                  }
108 108              let L = (K + J.amount)
109 109              WriteSet([DataEntry(o, L)])
110 110              }
111 111      }
112 112  
113 113  
114 114  
115 115  @Callable(H)
116 116  func purchase (r,M,N,O,P) = {
117 117      let J = extract(H.payment)
118 118      if (isDefined(J.assetId))
119 119          then throw("you can adquire cBitCO2 only by Waves tokens")
120 120          else {
121 121              let o = {
122 122                  let j = getString(this, q(r))
123 123                  if ($isInstanceOf(j, "String"))
124 124                      then {
125 125                          let k = j
126 126                          k
127 127                          }
128 128                      else d
129 129                  }
130 130              let Q = {
131 131                  let j = getInteger(this, t(r))
132 132                  if ($isInstanceOf(j, "Int"))
133 133                      then {
134 134                          let k = j
135 135                          k
136 136                          }
137 137                      else b
138 138                  }
139 139              let R = {
140 140                  let j = getInteger(this, v(o))
141 141                  if ($isInstanceOf(j, "Int"))
142 142                      then {
143 143                          let k = j
144 144                          k
145 145                          }
146 146                      else 0
147 147                  }
148 148              let S = toBase58String(H.caller.bytes)
149 149              let T = ((c * (100 - O)) / 100)
150 150              let U = (P * T)
151 151              if ((U > J.amount))
152 152                  then throw("Payment Amount cannot be less than item Purchase Order")
153 153                  else if ((J.amount > U))
154 154                      then throw("Payment Amount can't be higher than item Purchase Order")
155 155                      else ScriptResult(WriteSet([DataEntry(x(S, r), (z(S, r) + 1)), DataEntry(t(r), (Q - P)), DataEntry(A(r), M), DataEntry(C(r), N), DataEntry(D(r), O), DataEntry(F(r), P), DataEntry(("UserPrice_1_token,_waves:_" + S), T), DataEntry(("Payment_amount,_waves:_" + S), U), DataEntry(("Order_Status:_" + S), "confirmed"), DataEntry(v(o), (R + J.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(S), P, a)]))
156 156              }
157 157      }
158 158  
159 159  
160 160  
161 161  @Callable(H)
162 162  func withdraw (r,I) = {
163 163      let S = toBase58String(H.caller.bytes)
164 164      let o = {
165 165          let j = getString(this, q(r))
166 166          if ($isInstanceOf(j, "String"))
167 167              then {
168 168                  let k = j
169 169                  k
170 170                  }
171 171              else d
172 172          }
173 173      let Q = {
174 174          let j = getInteger(this, t(r))
175 175          if ($isInstanceOf(j, "Int"))
176 176              then {
177 177                  let k = j
178 178                  k
179 179                  }
180 180              else b
181 181          }
182 182      let L = (Q - I)
183 183      if ((0 > I))
184 184          then throw("Can't withdraw negative amount")
185 185          else if ((0 > L))
186 186              then throw("Not enought /suficiente balance")
187 187              else ScriptResult(WriteSet([DataEntry(r, L)]), TransferSet([ScriptTransfer(H.caller, I, a)]))
188 188      }
189 189  
190 190  
191 191  @Verifier(V)
192 192  func W () = {
193 193      let j = V
194 194      if ($isInstanceOf(j, "SetScriptTransaction"))
195 195          then {
196 196              let X = j
197 197              sigVerify(V.bodyBytes, V.proofs[0], e)
198 198              }
199 199          else if ($isInstanceOf(j, "DataTransaction"))
200 200              then {
201 201                  let Y = j
202 202                  true
203 203                  }
204 204              else if ($isInstanceOf(j, "TransferTransaction"))
205 205                  then {
206 206                      let V = j
207 207                      let Z = toBase58String(addressFromRecipient(V.recipient).bytes)
208 208                      if ((V.sender == f))
209 209                          then true
210 210                          else throw("You can't transferred this token")
211 211                      }
212 212                  else false
213 213      }
214 214

Old	New	Differences
1	1	{-# STDLIB_VERSION 3 #-}
2	2	{-# SCRIPT_TYPE ACCOUNT #-}
3	3	{-# CONTENT_TYPE DAPP #-}
4	4	let a = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
5	5
6	6	let b = 150000
7	7
8	8	let c = 100000000
9	9
10	10	let d = "none"
11	11
12	12	let e = base58'BjzUYgMDny7cYArZdjtnVo62UoVZKiCEeCoKYFnevrWU'
13	13
14	14	let f = Address(base58'3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm')
15	15
16	16	func g (h) = {
17	17	let i = {
18	18	let j = getInteger(this, h)
19	19	if ($isInstanceOf(j, "Int"))
20	20	then {
21	21	let k = j
22	22	k
23	23	}
24	24	else 0
25	25	}
26	26	i
27	27	}
28	28
29	29
30	30	func l (h) = {
31	31	let m = {
32	32	let j = getString(this, h)
33	33	if ($isInstanceOf(j, "String"))
34	34	then {
35	35	let k = j
36	36	k
37	37	}
38	38	else d
39	39	}
40	40	m
41	41	}
42	42
43	43
44	44	func n (o,p) = ("Bit-CO2_token: " + toBase58String(sha256(toBytes((o + p)))))
45	45
46	46
47	47	func q (r) = (r + "_to_Amazonian_Conservation")
48	48
49	49
50	50	func s (r) = l(q(r))
51	51
52	52
53	53	func t (r) = "Offered_Qty, balance:"
54	54
55	55
56	56	func u (r) = g(t(r))
57	57
58	58
59	59	func v (o) = "Seller_Balance,_waves:"
60	60
61	61
62	62	func w (o) = g(v(o))
63	63
64	64
65	65	func x (y,r) = "Order_№:"
66	66
67	67
68	68	func z (y,r) = g(x(y, r))
69	69
70	70
71	71	func A (r) = "UserName:"
72	72
73	73
74	74	func B (r) = l(A(r))
75	75
76	76
77	77	func C (r) = "UserCountry:"
78	78
79	79
80	80	func D (r) = "UserDiscount,_%:"
81	81
82	82
83	83	func E (r) = g(D(r))
84	84
85	85
86	86	func F (r) = "Order_qty,_tokens:"
87	87
88	88
89	89	func G (r) = g(F(r))
90	90
91	91
92	92	@Callable(H)
93	93	func deposit (I) = {
94	94	let J = extract(H.payment)
95	95	if ((J.assetId != a))
96	96	then throw("Use cBitCO2 tokens only for the wallet deposit")
97	97	else {
98	98	let o = toBase58String(H.caller.bytes)
99	99	let K = {
100	100	let j = getInteger(this, o)
101	101	if ($isInstanceOf(j, "Int"))
102	102	then {
103	103	let k = j
104	104	k
105	105	}
106	106	else b
107	107	}
108	108	let L = (K + J.amount)
109	109	WriteSet([DataEntry(o, L)])
110	110	}
111	111	}
112	112
113	113
114	114
115	115	@Callable(H)
116	116	func purchase (r,M,N,O,P) = {
117	117	let J = extract(H.payment)
118	118	if (isDefined(J.assetId))
119	119	then throw("you can adquire cBitCO2 only by Waves tokens")
120	120	else {
121	121	let o = {
122	122	let j = getString(this, q(r))
123	123	if ($isInstanceOf(j, "String"))
124	124	then {
125	125	let k = j
126	126	k
127	127	}
128	128	else d
129	129	}
130	130	let Q = {
131	131	let j = getInteger(this, t(r))
132	132	if ($isInstanceOf(j, "Int"))
133	133	then {
134	134	let k = j
135	135	k
136	136	}
137	137	else b
138	138	}
139	139	let R = {
140	140	let j = getInteger(this, v(o))
141	141	if ($isInstanceOf(j, "Int"))
142	142	then {
143	143	let k = j
144	144	k
145	145	}
146	146	else 0
147	147	}
148	148	let S = toBase58String(H.caller.bytes)
149	149	let T = ((c * (100 - O)) / 100)
150	150	let U = (P * T)
151	151	if ((U > J.amount))
152	152	then throw("Payment Amount cannot be less than item Purchase Order")
153	153	else if ((J.amount > U))
154	154	then throw("Payment Amount can't be higher than item Purchase Order")
155	155	else ScriptResult(WriteSet([DataEntry(x(S, r), (z(S, r) + 1)), DataEntry(t(r), (Q - P)), DataEntry(A(r), M), DataEntry(C(r), N), DataEntry(D(r), O), DataEntry(F(r), P), DataEntry(("UserPrice_1_token,_waves:_" + S), T), DataEntry(("Payment_amount,_waves:_" + S), U), DataEntry(("Order_Status:_" + S), "confirmed"), DataEntry(v(o), (R + J.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(S), P, a)]))
156	156	}
157	157	}
158	158
159	159
160	160
161	161	@Callable(H)
162	162	func withdraw (r,I) = {
163	163	let S = toBase58String(H.caller.bytes)
164	164	let o = {
165	165	let j = getString(this, q(r))
166	166	if ($isInstanceOf(j, "String"))
167	167	then {
168	168	let k = j
169	169	k
170	170	}
171	171	else d
172	172	}
173	173	let Q = {
174	174	let j = getInteger(this, t(r))
175	175	if ($isInstanceOf(j, "Int"))
176	176	then {
177	177	let k = j
178	178	k
179	179	}
180	180	else b
181	181	}
182	182	let L = (Q - I)
183	183	if ((0 > I))
184	184	then throw("Can't withdraw negative amount")
185	185	else if ((0 > L))
186	186	then throw("Not enought /suficiente balance")
187	187	else ScriptResult(WriteSet([DataEntry(r, L)]), TransferSet([ScriptTransfer(H.caller, I, a)]))
188	188	}
189	189
190	190
191	191	@Verifier(V)
192	192	func W () = {
193	193	let j = V
194	194	if ($isInstanceOf(j, "SetScriptTransaction"))
195	195	then {
196	196	let X = j
197	197	sigVerify(V.bodyBytes, V.proofs[0], e)
198	198	}
199	199	else if ($isInstanceOf(j, "DataTransaction"))
200	200	then {
201	201	let Y = j
202	202	true
203	203	}
204	204	else if ($isInstanceOf(j, "TransferTransaction"))
205	205	then {
206	206	let V = j
207	207	let Z = toBase58String(addressFromRecipient(V.recipient).bytes)
208	208	if ((V.sender == f))
209	209	then true
210	210	else throw("You can't transferred this token")
211	211	}
212	212	else false
213	213	}
214	214

github/deemru/w8io/169f3d6 
60.30 ms ◑