tx · YzUa1XsTrv1uTjeBJa3SCHfA394pEuhvJPrkfybqyfQ

3NARWzNaChSw8Mpf8CZYavL4QWQvk3KUU8b:  -0.01400000 Waves

2019.08.20 01:00 [638617] smart account 3NARWzNaChSw8Mpf8CZYavL4QWQvk3KUU8b > SELF 0.00000000 Waves

{ "type": 13, "id": "YzUa1XsTrv1uTjeBJa3SCHfA394pEuhvJPrkfybqyfQ", "fee": 1400000, "feeAssetId": null, "timestamp": 1566251992750, "version": 1, "sender": "3NARWzNaChSw8Mpf8CZYavL4QWQvk3KUU8b", "senderPublicKey": "848RkjzRcJfyWuhGbq8NUFoLMpeDW8NbKu36H3SouHzF", "proofs": [ "Y53mfmbKshR6r8omzoBoomswSYZzxxd432dSB3GSawwi9KouRzT1P6DgqJMbtnbNpZyLxLggoXnNU2jEwMoSv8x" ], "script": "base64:AAIDAAAAAAAAAAAAAAAJAAAAAAp3YXZlc1Rva2VuBQAAAAR1bml0AQAAAAlwYXltZW50T2YAAAABAAAAA2tleQkAASwAAAACAgAAAAtwYXltZW50X29mXwUAAAADa2V5AQAAAAtyZWNpcGllbnRPZgAAAAEAAAADa2V5CQABLAAAAAICAAAADXJlY2lwaWVudF9vZl8FAAAAA2tleQEAAAANbWVzc2FnZUZyb21PZgAAAAEAAAADa2V5CQABLAAAAAICAAAAEG1lc3NhZ2VfZnJvbV9vZl8FAAAAA2tleQEAAAAMbWVzc2FnZUZvck9mAAAAAQAAAANrZXkJAAEsAAAAAgIAAAAPbWVzc2FnZV9mb3Jfb2ZfBQAAAANrZXkBAAAACHN0YXR1c09mAAAAAQAAAANrZXkJAAEsAAAAAgIAAAAKc3RhdHVzX29mXwUAAAADa2V5AAAAAAVvd25lcgkBAAAAB0FkZHJlc3MAAAABAQAAABoBVODzoHGaptefRUJh0KW8JHEuHZK8qB2jXAEAAAAQaXNQYXltZW50UGVuZGluZwAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMJAQAAAAhzdGF0dXNPZgAAAAEFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFzBQAAAAckbWF0Y2gwCQAAAAAAAAIFAAAAAXMCAAAAB3BlbmRpbmcHAQAAAApkb1RyYW5zZmVyAAAAAgAAAAdwYXltZW50AAAACmFkZHJlc3NTdHIEAAAAByRtYXRjaDAFAAAAB3BheW1lbnQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0F0dGFjaGVkUGF5bWVudAQAAAABYQUAAAAHJG1hdGNoMAMJAAAAAAAAAggFAAAAAWEAAAAHYXNzZXRJZAUAAAAKd2F2ZXNUb2tlbgQAAAAHJG1hdGNoMQkBAAAAEWFkZHJlc3NGcm9tU3RyaW5nAAAAAQUAAAAKYWRkcmVzc1N0cgMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAAHQWRkcmVzcwQAAAAHYWRkcmVzcwUAAAAHJG1hdGNoMQkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAAAdhZGRyZXNzCAUAAAABYQAAAAZhbW91bnQFAAAACndhdmVzVG9rZW4FAAAAA25pbAkAAAIAAAABAgAAAA9pbnZhbGluIGFkZHJlc3MJAAACAAAAAQkAASwAAAACAgAAABhjYW4gb25seSBXQVZFUywgYnV0IGdvdCAJAAJYAAAAAQkBAAAABXZhbHVlAAAAAQgFAAAAAWEAAAAHYXNzZXRJZAkAAAIAAAABAgAAACdwYXltZW50IGluIGFzc2V0VG9rZW5zIG11c3QgYmUgYXR0YWNoZWQAAAAEAAAAAWkBAAAAEHNldFdhaXRUb1BheW1lbnQAAAAEAAAAA2tleQAAAAdwYXltZW50AAAACXJlY2lwaWVudAAAAAdtZXNzYWdlCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAIc3RhdHVzT2YAAAABBQAAAANrZXkCAAAAB3BlbmRpbmcJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAlwYXltZW50T2YAAAABBQAAAANrZXkFAAAAB3BheW1lbnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAAAtyZWNpcGllbnRPZgAAAAEFAAAAA2tleQUAAAAJcmVjaXBpZW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAANbWVzc2FnZUZyb21PZgAAAAEFAAAAA2tleQUAAAAHbWVzc2FnZQUAAAADbmlsAAAAAWkBAAAAA3BheQAAAAIAAAADa2V5AAAAB21lc3NhZ2UDCQEAAAAQaXNQYXltZW50UGVuZGluZwAAAAEFAAAAA2tleQQAAAAHJG1hdGNoMAgFAAAAAWkAAAAHcGF5bWVudAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAPQXR0YWNoZWRQYXltZW50BAAAAAFhBQAAAAckbWF0Y2gwAwkAAAAAAAACCAUAAAABYQAAAAdhc3NldElkBQAAAAp3YXZlc1Rva2VuBAAAAAVkYXRhcwkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACHN0YXR1c09mAAAAAQUAAAADa2V5AgAAAARwYWlkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAMbWVzc2FnZUZvck9mAAAAAQUAAAADa2V5BQAAAAdtZXNzYWdlBQAAAANuaWwEAAAAB3BheW1lbnQJAQAAAAdleHRyYWN0AAAAAQkABBoAAAACBQAAAAR0aGlzCQEAAAAJcGF5bWVudE9mAAAAAQUAAAADa2V5CQEAAAAMU2NyaXB0UmVzdWx0AAAAAgUAAAAFZGF0YXMJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAFb3duZXIFAAAAB3BheW1lbnQFAAAACndhdmVzVG9rZW4FAAAAA25pbAkAAAIAAAABCQABLAAAAAICAAAAGGNhbiBvbmx5IFdBVkVTLCBidXQgZ290IAkAAlgAAAABCQEAAAAFdmFsdWUAAAABCAUAAAABYQAAAAdhc3NldElkCQAAAgAAAAECAAAAJ3BheW1lbnQgaW4gYXNzZXRUb2tlbnMgbXVzdCBiZSBhdHRhY2hlZAkAAAIAAAABAgAAAChPcmRlciBhbHJlYWR5IGhhcyBiZWVuIHBheWVkIG9yIHJlamVjdGVkAAAAAWkBAAAABnJlamVjdAAAAAIAAAADa2V5AAAAB21lc3NhZ2UDCQEAAAAQaXNQYXltZW50UGVuZGluZwAAAAEFAAAAA2tleQkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAACHN0YXR1c09mAAAAAQUAAAADa2V5AgAAAAhyZWplY3RlZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADG1lc3NhZ2VGb3JPZgAAAAEFAAAAA2tleQUAAAAHbWVzc2FnZQUAAAADbmlsCQAAAgAAAAECAAAAKE9yZGVyIGFscmVhZHkgaGFzIGJlZW4gcGF5ZWQgb3IgcmVqZWN0ZWQAAAABaQEAAAAIdHJhbnNmZXIAAAABAAAACmFkZHJlc3NTdHIJAQAAAApkb1RyYW5zZmVyAAAAAggFAAAAAWkAAAAHcGF5bWVudAUAAAAKYWRkcmVzc1N0cgAAAADHWZr1", "chainId": 84, "height": 638617, "spentComplexity": 0 } View: original | compacted Prev: 97jvZ2KG5rthzD4w6oKonTTm75CFscADpgyvmK72as3f Next: none Diff:
OldNewDifferences
66 func b (c) = ("payment_of_" + c)
77
88
9-func d (c) = ("status_of_" + c)
9+func d (c) = ("recipient_of_" + c)
1010
1111
12-let e = Address(base58'3NARWzNaChSw8Mpf8CZYavL4QWQvk3KUU8b')
12+func e (c) = ("message_from_of_" + c)
1313
14-func f (c) = {
15- let g = getString(this, d(c))
16- if ($isInstanceOf(g, "String"))
14+
15+func f (c) = ("message_for_of_" + c)
16+
17+
18+func g (c) = ("status_of_" + c)
19+
20+
21+let h = Address(base58'3NARWzNaChSw8Mpf8CZYavL4QWQvk3KUU8b')
22+
23+func i (c) = {
24+ let j = getString(this, g(c))
25+ if ($isInstanceOf(j, "String"))
1726 then {
18- let h = g
19- (h == "pending")
27+ let k = j
28+ (k == "pending")
2029 }
2130 else false
2231 }
2332
2433
25-@Callable(i)
26-func setWaitToPayment (c,j) = WriteSet([DataEntry(d(c), "pending"), DataEntry(b(c), j)])
34+func l (m,n) = {
35+ let j = m
36+ if ($isInstanceOf(j, "AttachedPayment"))
37+ then {
38+ let o = j
39+ if ((o.assetId == a))
40+ then {
41+ let p = addressFromString(n)
42+ if ($isInstanceOf(p, "Address"))
43+ then {
44+ let q = p
45+ TransferSet([ScriptTransfer(q, o.amount, a)])
46+ }
47+ else throw("invalin address")
48+ }
49+ else throw(("can only WAVES, but got " + toBase58String(value(o.assetId))))
50+ }
51+ else throw("payment in assetTokens must be attached")
52+ }
53+
54+
55+@Callable(r)
56+func setWaitToPayment (c,m,s,t) = WriteSet([DataEntry(g(c), "pending"), DataEntry(b(c), m), DataEntry(d(c), s), DataEntry(e(c), t)])
2757
2858
2959
30-@Callable(i)
31-func pay (c) = if (f(c))
60+@Callable(r)
61+func pay (c,t) = if (i(c))
3262 then {
33- let g = i.payment
34- if ($isInstanceOf(g, "AttachedPayment"))
63+ let j = r.payment
64+ if ($isInstanceOf(j, "AttachedPayment"))
3565 then {
36- let k = g
37- if ((k.assetId == a))
66+ let o = j
67+ if ((o.assetId == a))
3868 then {
39- let l = WriteSet([DataEntry(d(c), "paid")])
40- let j = extract(getInteger(this, b(c)))
41- ScriptResult(l, TransferSet([ScriptTransfer(e, j, a)]))
69+ let u = WriteSet([DataEntry(g(c), "paid"), DataEntry(f(c), t)])
70+ let m = extract(getInteger(this, b(c)))
71+ ScriptResult(u, TransferSet([ScriptTransfer(h, m, a)]))
4272 }
43- else throw(("can only WAVES, but got " + toBase58String(value(k.assetId))))
73+ else throw(("can only WAVES, but got " + toBase58String(value(o.assetId))))
4474 }
4575 else throw("payment in assetTokens must be attached")
4676 }
4878
4979
5080
51-@Callable(i)
52-func reject (c) = if (f(c))
53- then WriteSet([DataEntry(d(c), "rejected")])
81+@Callable(r)
82+func reject (c,t) = if (i(c))
83+ then WriteSet([DataEntry(g(c), "rejected"), DataEntry(f(c), t)])
5484 else throw("Order already has been payed or rejected")
5585
5686
5787
58-@Callable(i)
59-func transfer (m) = {
60- let g = i.payment
61- if ($isInstanceOf(g, "AttachedPayment"))
62- then {
63- let k = g
64- if ((k.assetId == a))
65- then {
66- let n = addressFromString(m)
67- if ($isInstanceOf(n, "Address"))
68- then {
69- let o = n
70- TransferSet([ScriptTransfer(o, k.amount, a)])
71- }
72- else throw("invalin address")
73- }
74- else throw(("can only WAVES, but got " + toBase58String(value(k.assetId))))
75- }
76- else throw("payment in assetTokens must be attached")
77- }
88+@Callable(r)
89+func transfer (n) = l(r.payment, n)
7890
7991
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 3 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let a = unit
55
66 func b (c) = ("payment_of_" + c)
77
88
9-func d (c) = ("status_of_" + c)
9+func d (c) = ("recipient_of_" + c)
1010
1111
12-let e = Address(base58'3NARWzNaChSw8Mpf8CZYavL4QWQvk3KUU8b')
12+func e (c) = ("message_from_of_" + c)
1313
14-func f (c) = {
15- let g = getString(this, d(c))
16- if ($isInstanceOf(g, "String"))
14+
15+func f (c) = ("message_for_of_" + c)
16+
17+
18+func g (c) = ("status_of_" + c)
19+
20+
21+let h = Address(base58'3NARWzNaChSw8Mpf8CZYavL4QWQvk3KUU8b')
22+
23+func i (c) = {
24+ let j = getString(this, g(c))
25+ if ($isInstanceOf(j, "String"))
1726 then {
18- let h = g
19- (h == "pending")
27+ let k = j
28+ (k == "pending")
2029 }
2130 else false
2231 }
2332
2433
25-@Callable(i)
26-func setWaitToPayment (c,j) = WriteSet([DataEntry(d(c), "pending"), DataEntry(b(c), j)])
34+func l (m,n) = {
35+ let j = m
36+ if ($isInstanceOf(j, "AttachedPayment"))
37+ then {
38+ let o = j
39+ if ((o.assetId == a))
40+ then {
41+ let p = addressFromString(n)
42+ if ($isInstanceOf(p, "Address"))
43+ then {
44+ let q = p
45+ TransferSet([ScriptTransfer(q, o.amount, a)])
46+ }
47+ else throw("invalin address")
48+ }
49+ else throw(("can only WAVES, but got " + toBase58String(value(o.assetId))))
50+ }
51+ else throw("payment in assetTokens must be attached")
52+ }
53+
54+
55+@Callable(r)
56+func setWaitToPayment (c,m,s,t) = WriteSet([DataEntry(g(c), "pending"), DataEntry(b(c), m), DataEntry(d(c), s), DataEntry(e(c), t)])
2757
2858
2959
30-@Callable(i)
31-func pay (c) = if (f(c))
60+@Callable(r)
61+func pay (c,t) = if (i(c))
3262 then {
33- let g = i.payment
34- if ($isInstanceOf(g, "AttachedPayment"))
63+ let j = r.payment
64+ if ($isInstanceOf(j, "AttachedPayment"))
3565 then {
36- let k = g
37- if ((k.assetId == a))
66+ let o = j
67+ if ((o.assetId == a))
3868 then {
39- let l = WriteSet([DataEntry(d(c), "paid")])
40- let j = extract(getInteger(this, b(c)))
41- ScriptResult(l, TransferSet([ScriptTransfer(e, j, a)]))
69+ let u = WriteSet([DataEntry(g(c), "paid"), DataEntry(f(c), t)])
70+ let m = extract(getInteger(this, b(c)))
71+ ScriptResult(u, TransferSet([ScriptTransfer(h, m, a)]))
4272 }
43- else throw(("can only WAVES, but got " + toBase58String(value(k.assetId))))
73+ else throw(("can only WAVES, but got " + toBase58String(value(o.assetId))))
4474 }
4575 else throw("payment in assetTokens must be attached")
4676 }
4777 else throw("Order already has been payed or rejected")
4878
4979
5080
51-@Callable(i)
52-func reject (c) = if (f(c))
53- then WriteSet([DataEntry(d(c), "rejected")])
81+@Callable(r)
82+func reject (c,t) = if (i(c))
83+ then WriteSet([DataEntry(g(c), "rejected"), DataEntry(f(c), t)])
5484 else throw("Order already has been payed or rejected")
5585
5686
5787
58-@Callable(i)
59-func transfer (m) = {
60- let g = i.payment
61- if ($isInstanceOf(g, "AttachedPayment"))
62- then {
63- let k = g
64- if ((k.assetId == a))
65- then {
66- let n = addressFromString(m)
67- if ($isInstanceOf(n, "Address"))
68- then {
69- let o = n
70- TransferSet([ScriptTransfer(o, k.amount, a)])
71- }
72- else throw("invalin address")
73- }
74- else throw(("can only WAVES, but got " + toBase58String(value(k.assetId))))
75- }
76- else throw("payment in assetTokens must be attached")
77- }
88+@Callable(r)
89+func transfer (n) = l(r.payment, n)
7890
7991

github/deemru/w8io/026f985 
30.67 ms