tx · z1ee8qEkJGEi92t1LHqzy2qSXDfhkTgS12HtkKZrcqC

3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm:  -0.01400000 Waves

2020.03.20 22:50 [918102] smart account 3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm > SELF 0.00000000 Waves

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

View: original | compacted
Prev: B7AEcg1RFioP3ZKTwYzs6ska3vb1tPfUm3XdDjPXLbGQ
Next: GKUB4z2ctU5hWWnHDoAPSbjLmamAnMPHvLQfRoLb7kVG

Diff: 
Old
New
Differences
41
41
 
    }
42
42
 
43
43
 
44
-
func n (o,p) = ("tokens_Bit-CO2:_" + toBase58String(sha256(toBytes((o + p)))))
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")
50
50
 
func s (r) = l(q(r))
51
51
 
52
52
 
53
-
func t (r) = "Tokens_ofertados,_Saldo"
53
+
func t (r) = "Offered_Qty, balance:"
54
54
 
55
55
 
56
56
 
func u (r) = g(t(r))
57
57
 
58
58
 
59
-
func v (o) = "Seller_Balance:_waves"
59
+
func v (o) = "Seller_Balance,_waves:"
60
60
 
61
61
 
62
62
 
func w (o) = g(v(o))
63
63
 
64
64
 
65
-
func x (y,r) = (((r + "_") + y) + "_cnt")
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
-
func A (r) = "Project_name:"
71
+
func A (r) = "UserName:"
72
72
 
73
73
 
74
74
 
func B (r) = l(A(r))
75
75
 
76
76
 
77
-
func C (r) = "_userdata"
77
+
func C (r) = "UserCountry:"
78
78
 
79
79
 
80
-
func D (r) = "_tokens"
80
+
func D (r) = "UserDiscount,_%:"
81
81
 
82
82
 
83
83
 
func E (r) = g(D(r))
84
84
 
85
85
 
86
-
@Callable(F)
87
-
func deposit (G) = {
88
-
    let H = extract(F.payment)
89
-
    if ((H.assetId != a))
86
+
func F (r) = "Order_qty,_tokens:"
87
+
88
+
89
+
func G (r) = g(F(r))
90
+
91
+
92
+
@Callable(H)
93
+
func deposit (I) = {
94
+
    let J = extract(H.payment)
95
+
    if ((J.assetId != a))
90
96
 
        then throw("Use cBitCO2 tokens only for the wallet deposit")
91
97
 
        else {
92
-
            let o = toBase58String(F.caller.bytes)
93
-
            let I = {
98
+
            let o = toBase58String(H.caller.bytes)
99
+
            let K = {
94
100
 
                let j = getInteger(this, o)
95
101
 
                if ($isInstanceOf(j, "Int"))
96
102
 
                    then {
99
105
 
                        }
100
106
 
                    else b
101
107
 
                }
102
-
            let J = (I + H.amount)
103
-
            WriteSet([DataEntry(o, J)])
108
+
            let L = (K + J.amount)
109
+
            WriteSet([DataEntry(o, L)])
104
110
 
            }
105
111
 
    }
106
112
 
107
113
 
108
114
 
109
-
@Callable(F)
110
-
func purchase (r,K,L,M,N,G) = {
111
-
    let H = extract(F.payment)
112
-
    if (isDefined(H.assetId))
115
+
@Callable(H)
116
+
func purchase (r,M,N,O,P) = {
117
+
    let J = extract(H.payment)
118
+
    if (isDefined(J.assetId))
113
119
 
        then throw("you can adquire cBitCO2 only by Waves tokens")
114
120
 
        else {
115
121
 
            let o = {
121
127
 
                        }
122
128
 
                    else d
123
129
 
                }
124
-
            let O = {
130
+
            let Q = {
125
131
 
                let j = getInteger(this, t(r))
126
132
 
                if ($isInstanceOf(j, "Int"))
127
133
 
                    then {
130
136
 
                        }
131
137
 
                    else b
132
138
 
                }
133
-
            let P = {
139
+
            let R = {
134
140
 
                let j = getInteger(this, v(o))
135
141
 
                if ($isInstanceOf(j, "Int"))
136
142
 
                    then {
139
145
 
                        }
140
146
 
                    else 0
141
147
 
                }
142
-
            let Q = toBase58String(F.caller.bytes)
143
-
            let R = ((c * (100 - M)) / 100)
144
-
            let S = (N * R)
145
-
            if ((S > H.amount))
148
+
            let S = toBase58String(H.caller.bytes)
149
+
            let T = ((c * (100 - O)) / 100)
150
+
            let U = (P * T)
151
+
            if ((U > J.amount))
146
152
 
                then throw("Payment Amount cannot be less than item Purchase Order")
147
-
                else if ((H.amount > S))
153
+
                else if ((J.amount > U))
148
154
 
                    then throw("Payment Amount can't be higher than item Purchase Order")
149
-
                    else ScriptResult(WriteSet([DataEntry(x(Q, r), (z(Q, r) + 1)), DataEntry(A(r), K), DataEntry(t(r), (O - N)), DataEntry(C(r), L), DataEntry((("Descuento solicitado:_" + Q) + "_%"), M), DataEntry(("Cantidad_solicitada:" + D(r)), N), DataEntry((("Monto pagado:_" + Q) + "_waves"), G), DataEntry(("Request_Status:_" + Q), "confirmed"), DataEntry(v(o), (P + H.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(Q), N, a)]))
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)]))
150
156
 
            }
151
157
 
    }
152
158
 
153
159
 
154
160
 
155
-
@Callable(F)
156
-
func withdraw (r,G) = {
157
-
    let Q = toBase58String(F.caller.bytes)
161
+
@Callable(H)
162
+
func withdraw (r,I) = {
163
+
    let S = toBase58String(H.caller.bytes)
158
164
 
    let o = {
159
165
 
        let j = getString(this, q(r))
160
166
 
        if ($isInstanceOf(j, "String"))
164
170
 
                }
165
171
 
            else d
166
172
 
        }
167
-
    let O = {
173
+
    let Q = {
168
174
 
        let j = getInteger(this, t(r))
169
175
 
        if ($isInstanceOf(j, "Int"))
170
176
 
            then {
173
179
 
                }
174
180
 
            else b
175
181
 
        }
176
-
    let J = (O - G)
177
-
    if ((0 > G))
182
+
    let L = (Q - I)
183
+
    if ((0 > I))
178
184
 
        then throw("Can't withdraw negative amount")
179
-
        else if ((0 > J))
185
+
        else if ((0 > L))
180
186
 
            then throw("Not enought /suficiente balance")
181
-
            else ScriptResult(WriteSet([DataEntry(r, J)]), TransferSet([ScriptTransfer(F.caller, G, a)]))
187
+
            else ScriptResult(WriteSet([DataEntry(r, L)]), TransferSet([ScriptTransfer(H.caller, I, a)]))
182
188
 
    }
183
189
 
184
190
 
185
-
@Verifier(T)
186
-
func U () = {
187
-
    let j = T
191
+
@Verifier(V)
192
+
func W () = {
193
+
    let j = V
188
194
 
    if ($isInstanceOf(j, "SetScriptTransaction"))
189
195
 
        then {
190
-
            let V = j
191
-
            sigVerify(T.bodyBytes, T.proofs[0], e)
196
+
            let X = j
197
+
            sigVerify(V.bodyBytes, V.proofs[0], e)
192
198
 
            }
193
199
 
        else if ($isInstanceOf(j, "DataTransaction"))
194
200
 
            then {
195
-
                let W = j
201
+
                let Y = j
196
202
 
                true
197
203
 
                }
198
204
 
            else if ($isInstanceOf(j, "TransferTransaction"))
199
205
 
                then {
200
-
                    let T = j
201
-
                    let X = toBase58String(addressFromRecipient(T.recipient).bytes)
202
-
                    if ((T.sender == f))
206
+
                    let V = j
207
+
                    let Z = toBase58String(addressFromRecipient(V.recipient).bytes)
208
+
                    if ((V.sender == f))
203
209
 
                        then true
204
210
 
                        else throw("You can't transferred this token")
205
211
 
                    }
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
-
func n (o,p) = ("tokens_Bit-CO2:_" + toBase58String(sha256(toBytes((o + p)))))
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
-
func t (r) = "Tokens_ofertados,_Saldo"
53
+
func t (r) = "Offered_Qty, balance:"
54
54
 
55
55
 
56
56
 
func u (r) = g(t(r))
57
57
 
58
58
 
59
-
func v (o) = "Seller_Balance:_waves"
59
+
func v (o) = "Seller_Balance,_waves:"
60
60
 
61
61
 
62
62
 
func w (o) = g(v(o))
63
63
 
64
64
 
65
-
func x (y,r) = (((r + "_") + y) + "_cnt")
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
-
func A (r) = "Project_name:"
71
+
func A (r) = "UserName:"
72
72
 
73
73
 
74
74
 
func B (r) = l(A(r))
75
75
 
76
76
 
77
-
func C (r) = "_userdata"
77
+
func C (r) = "UserCountry:"
78
78
 
79
79
 
80
-
func D (r) = "_tokens"
80
+
func D (r) = "UserDiscount,_%:"
81
81
 
82
82
 
83
83
 
func E (r) = g(D(r))
84
84
 
85
85
 
86
-
@Callable(F)
87
-
func deposit (G) = {
88
-
    let H = extract(F.payment)
89
-
    if ((H.assetId != a))
86
+
func F (r) = "Order_qty,_tokens:"
87
+
88
+
89
+
func G (r) = g(F(r))
90
+
91
+
92
+
@Callable(H)
93
+
func deposit (I) = {
94
+
    let J = extract(H.payment)
95
+
    if ((J.assetId != a))
90
96
 
        then throw("Use cBitCO2 tokens only for the wallet deposit")
91
97
 
        else {
92
-
            let o = toBase58String(F.caller.bytes)
93
-
            let I = {
98
+
            let o = toBase58String(H.caller.bytes)
99
+
            let K = {
94
100
 
                let j = getInteger(this, o)
95
101
 
                if ($isInstanceOf(j, "Int"))
96
102
 
                    then {
97
103
 
                        let k = j
98
104
 
                        k
99
105
 
                        }
100
106
 
                    else b
101
107
 
                }
102
-
            let J = (I + H.amount)
103
-
            WriteSet([DataEntry(o, J)])
108
+
            let L = (K + J.amount)
109
+
            WriteSet([DataEntry(o, L)])
104
110
 
            }
105
111
 
    }
106
112
 
107
113
 
108
114
 
109
-
@Callable(F)
110
-
func purchase (r,K,L,M,N,G) = {
111
-
    let H = extract(F.payment)
112
-
    if (isDefined(H.assetId))
115
+
@Callable(H)
116
+
func purchase (r,M,N,O,P) = {
117
+
    let J = extract(H.payment)
118
+
    if (isDefined(J.assetId))
113
119
 
        then throw("you can adquire cBitCO2 only by Waves tokens")
114
120
 
        else {
115
121
 
            let o = {
116
122
 
                let j = getString(this, q(r))
117
123
 
                if ($isInstanceOf(j, "String"))
118
124
 
                    then {
119
125
 
                        let k = j
120
126
 
                        k
121
127
 
                        }
122
128
 
                    else d
123
129
 
                }
124
-
            let O = {
130
+
            let Q = {
125
131
 
                let j = getInteger(this, t(r))
126
132
 
                if ($isInstanceOf(j, "Int"))
127
133
 
                    then {
128
134
 
                        let k = j
129
135
 
                        k
130
136
 
                        }
131
137
 
                    else b
132
138
 
                }
133
-
            let P = {
139
+
            let R = {
134
140
 
                let j = getInteger(this, v(o))
135
141
 
                if ($isInstanceOf(j, "Int"))
136
142
 
                    then {
137
143
 
                        let k = j
138
144
 
                        k
139
145
 
                        }
140
146
 
                    else 0
141
147
 
                }
142
-
            let Q = toBase58String(F.caller.bytes)
143
-
            let R = ((c * (100 - M)) / 100)
144
-
            let S = (N * R)
145
-
            if ((S > H.amount))
148
+
            let S = toBase58String(H.caller.bytes)
149
+
            let T = ((c * (100 - O)) / 100)
150
+
            let U = (P * T)
151
+
            if ((U > J.amount))
146
152
 
                then throw("Payment Amount cannot be less than item Purchase Order")
147
-
                else if ((H.amount > S))
153
+
                else if ((J.amount > U))
148
154
 
                    then throw("Payment Amount can't be higher than item Purchase Order")
149
-
                    else ScriptResult(WriteSet([DataEntry(x(Q, r), (z(Q, r) + 1)), DataEntry(A(r), K), DataEntry(t(r), (O - N)), DataEntry(C(r), L), DataEntry((("Descuento solicitado:_" + Q) + "_%"), M), DataEntry(("Cantidad_solicitada:" + D(r)), N), DataEntry((("Monto pagado:_" + Q) + "_waves"), G), DataEntry(("Request_Status:_" + Q), "confirmed"), DataEntry(v(o), (P + H.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(Q), N, a)]))
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)]))
150
156
 
            }
151
157
 
    }
152
158
 
153
159
 
154
160
 
155
-
@Callable(F)
156
-
func withdraw (r,G) = {
157
-
    let Q = toBase58String(F.caller.bytes)
161
+
@Callable(H)
162
+
func withdraw (r,I) = {
163
+
    let S = toBase58String(H.caller.bytes)
158
164
 
    let o = {
159
165
 
        let j = getString(this, q(r))
160
166
 
        if ($isInstanceOf(j, "String"))
161
167
 
            then {
162
168
 
                let k = j
163
169
 
                k
164
170
 
                }
165
171
 
            else d
166
172
 
        }
167
-
    let O = {
173
+
    let Q = {
168
174
 
        let j = getInteger(this, t(r))
169
175
 
        if ($isInstanceOf(j, "Int"))
170
176
 
            then {
171
177
 
                let k = j
172
178
 
                k
173
179
 
                }
174
180
 
            else b
175
181
 
        }
176
-
    let J = (O - G)
177
-
    if ((0 > G))
182
+
    let L = (Q - I)
183
+
    if ((0 > I))
178
184
 
        then throw("Can't withdraw negative amount")
179
-
        else if ((0 > J))
185
+
        else if ((0 > L))
180
186
 
            then throw("Not enought /suficiente balance")
181
-
            else ScriptResult(WriteSet([DataEntry(r, J)]), TransferSet([ScriptTransfer(F.caller, G, a)]))
187
+
            else ScriptResult(WriteSet([DataEntry(r, L)]), TransferSet([ScriptTransfer(H.caller, I, a)]))
182
188
 
    }
183
189
 
184
190
 
185
-
@Verifier(T)
186
-
func U () = {
187
-
    let j = T
191
+
@Verifier(V)
192
+
func W () = {
193
+
    let j = V
188
194
 
    if ($isInstanceOf(j, "SetScriptTransaction"))
189
195
 
        then {
190
-
            let V = j
191
-
            sigVerify(T.bodyBytes, T.proofs[0], e)
196
+
            let X = j
197
+
            sigVerify(V.bodyBytes, V.proofs[0], e)
192
198
 
            }
193
199
 
        else if ($isInstanceOf(j, "DataTransaction"))
194
200
 
            then {
195
-
                let W = j
201
+
                let Y = j
196
202
 
                true
197
203
 
                }
198
204
 
            else if ($isInstanceOf(j, "TransferTransaction"))
199
205
 
                then {
200
-
                    let T = j
201
-
                    let X = toBase58String(addressFromRecipient(T.recipient).bytes)
202
-
                    if ((T.sender == f))
206
+
                    let V = j
207
+
                    let Z = toBase58String(addressFromRecipient(V.recipient).bytes)
208
+
                    if ((V.sender == f))
203
209
 
                        then true
204
210
 
                        else throw("You can't transferred this token")
205
211
 
                    }
206
212
 
                else false
207
213
 
    }
208
214
 

github/deemru/w8io/169f3d6 
56.80 ms ◑