tx · 5tF27H89CBTuWLQooeig6NfSkxkTXPfiTzxWEevWv8dA

3N15DGgcLXSctAzxz8fvXSoW3W6up4VmnPA:  -0.01400000 Waves

2020.06.04 04:33 [1027837] smart account 3N15DGgcLXSctAzxz8fvXSoW3W6up4VmnPA > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5tF27H89CBTuWLQooeig6NfSkxkTXPfiTzxWEevWv8dA",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1591234312427,
    "version": 1,
    "sender": "3N15DGgcLXSctAzxz8fvXSoW3W6up4VmnPA",
    "senderPublicKey": "7phy1Un2TLCqTJNLhqu43csHW3ZSs6aAUJaYMJgLrJPy",
    "proofs": [
        "2PikMgx4Hhgi2osoGovnredFzYUCwPoxTnN7gMbL4P9qRCNkmY3DXgWxuCatSouwc1dUvZWUzKrQHPifAuovyYwT"
    ],
    "script": "base64:AAIDAAAAAAAAABMIARIECgIBAhIDCgEIEgQKAggBAAAABwAAAAAMd2F2ZXNBc3NldElkAQAAACD/MF9ptHgS9qWJhVbabXJJmhFYnBjrkbCVAXZKgLZ1LwEAAAAIZ2V0UHJpY2UAAAABAAAABGRhdGEJAASxAAAAAQkAAMkAAAACBQAAAARkYXRhAAAAAAAAAAAIAQAAAAhnZXRTdG9jawAAAAEAAAAEZGF0YQkABLEAAAABCQAAyQAAAAIJAADKAAAAAgUAAAAEZGF0YQAAAAAAAAAACAAAAAAAAAAACAEAAAAOZ2V0QW1vdW50QXNzZXQAAAABAAAABGRhdGEJAADJAAAAAgkAAMoAAAACBQAAAARkYXRhCQAAZAAAAAIJAABkAAAAAgAAAAAAAAAACAAAAAAAAAAACAAAAAAAAAAAIAAAAAAAAAAAIAEAAAAJZ2V0U2VsbGVyAAAAAQAAAARkYXRhCQAAygAAAAIFAAAABGRhdGEJAABkAAAAAgkAAGQAAAACCQAAZAAAAAIAAAAAAAAAAAgAAAAAAAAAAAgAAAAAAAAAACAAAAAAAAAAACABAAAADWdldFByaWNlQXNzZXQAAAABAAAABGRhdGEEAAAAAnByCQAAyQAAAAIJAADKAAAAAgUAAAAEZGF0YQkAAGQAAAACAAAAAAAAAAAIAAAAAAAAAAAIAAAAAAAAAAAgAwkAAAAAAAACBQAAAAJwcgUAAAAMd2F2ZXNBc3NldElkBQAAAAR1bml0BQAAAAJwcgEAAAAJc2VyaWFsaXplAAAABgAAAAVsb3RJZAAAAAVwcmljZQAAAAVzdG9jawAAAApwcmljZUFzc2V0AAAAC2Ftb3VudEFzc2V0AAAABnNlbGxlcgQAAAAKaWRBc1N0cmluZwQAAAAHJG1hdGNoMAUAAAAFbG90SWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABcwUAAAAHJG1hdGNoMAUAAAABcwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAKQnl0ZVZlY3RvcgQAAAACYnYFAAAAByRtYXRjaDAJAAJYAAAAAQUAAAACYnYJAQAAAAV0aHJvdwAAAAAEAAAAD3ByaWNlQXNzZXRCeXRlcwQAAAAHJG1hdGNoMAUAAAAKcHJpY2VBc3NldAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAEVW5pdAQAAAABdQUAAAAHJG1hdGNoMAUAAAAMd2F2ZXNBc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAApCeXRlVmVjdG9yBAAAAAJidgUAAAAHJG1hdGNoMAUAAAACYnYJAQAAAAV0aHJvdwAAAAAJAQAAAAlEYXRhRW50cnkAAAACBQAAAAppZEFzU3RyaW5nCQAAywAAAAIJAADLAAAAAgkAAMsAAAACCQAAywAAAAIJAAGaAAAAAQUAAAAFcHJpY2UJAAGaAAAAAQUAAAAFc3RvY2sFAAAAD3ByaWNlQXNzZXRCeXRlcwUAAAALYW1vdW50QXNzZXQFAAAABnNlbGxlcgAAAAMAAAABaQEAAAAEc2VsbAAAAAIAAAAFcHJpY2UAAAAKcHJpY2VBc3NldAQAAAABcAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwMJAAAAAAAAAggFAAAAAXAAAAAHYXNzZXRJZAUAAAAEdW5pdAYJAAAAAAAAAggFAAAAAXAAAAAHYXNzZXRJZAUAAAAMd2F2ZXNBc3NldElkCQAAAgAAAAECAAAAFkludmFsaWQgYXNzZXQgdG8gc2VsbC4DCQEAAAACIT0AAAACCQAAyAAAAAEFAAAACnByaWNlQXNzZXQAAAAAAAAAACAJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAD0ludmFsaWQgYXNzZXQ6IAkAAlgAAAABBQAAAApwcmljZUFzc2V0AgAAACksIGV4cGVjdGVkIHByaWNlIGFzc2V0IHNpemUgc2hvdWxkIGJlIDMyLgMJAABnAAAAAgAAAAAAAAAAAAUAAAAFcHJpY2UJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAD0ludmFsaWQgcHJpY2U6IAkAAaQAAAABBQAAAAVwcmljZQIAAAAtLCBleHBlY3RlZCBwcmljZSBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIHplcm8uAwkAAGcAAAACAAAAAAAAAAAACAUAAAABcAAAAAZhbW91bnQJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAGUludmFsaWQgYW1vdW50IGZvciBzZWxsOiAJAAGkAAAAAQgFAAAAAXAAAAAGYW1vdW50AgAAAC4sIGV4cGVjdGVkIGFtb3VudCBzaG91bGQgYmUgZ3JlYXRlciB0aGFuIHplcm8uCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlzZXJpYWxpemUAAAAGCAUAAAABaQAAAA10cmFuc2FjdGlvbklkBQAAAAVwcmljZQgFAAAAAXAAAAAGYW1vdW50BQAAAApwcmljZUFzc2V0CQEAAAAHZXh0cmFjdAAAAAEICQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQAAAAHYXNzZXRJZAgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BQAAAANuaWwAAAABaQEAAAAGY2FuY2VsAAAAAQAAAAVsb3RJZAQAAAAEZGF0YQkBAAAAB2V4dHJhY3QAAAABCQAEHAAAAAIFAAAABHRoaXMFAAAABWxvdElkBAAAAAVwcmljZQkBAAAACGdldFByaWNlAAAAAQUAAAAEZGF0YQQAAAAFc3RvY2sJAQAAAAhnZXRTdG9jawAAAAEFAAAABGRhdGEEAAAACnByaWNlQXNzZXQJAQAAAA1nZXRQcmljZUFzc2V0AAAAAQUAAAAEZGF0YQQAAAALYW1vdW50QXNzZXQJAQAAAA5nZXRBbW91bnRBc3NldAAAAAEFAAAABGRhdGEEAAAABnNlbGxlcgkBAAAACWdldFNlbGxlcgAAAAEFAAAABGRhdGEDCQEAAAACIT0AAAACBQAAAAZzZWxsZXIIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQkAAAIAAAABAgAAAB9Pbmx5IHNlbGxlciBjYW4gY2FuY2VsIHRoZSBsb3QuCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJc2VyaWFsaXplAAAABgUAAAAFbG90SWQFAAAABXByaWNlAAAAAAAAAAAABQAAAApwcmljZUFzc2V0BQAAAAthbW91bnRBc3NldAUAAAAGc2VsbGVyBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAFGFkZHJlc3NGcm9tUHVibGljS2V5AAAAAQUAAAAGc2VsbGVyBQAAAAVzdG9jawUAAAALYW1vdW50QXNzZXQFAAAAA25pbAAAAAFpAQAAAANidXkAAAACAAAABWxvdElkAAAAC2Ftb3VudFRvQnV5BAAAAARkYXRhCQEAAAAHZXh0cmFjdAAAAAEJAAQcAAAAAgUAAAAEdGhpcwUAAAAFbG90SWQEAAAABXByaWNlCQEAAAAIZ2V0UHJpY2UAAAABBQAAAARkYXRhBAAAAAVzdG9jawkBAAAACGdldFN0b2NrAAAAAQUAAAAEZGF0YQQAAAAKcHJpY2VBc3NldAkBAAAADWdldFByaWNlQXNzZXQAAAABBQAAAARkYXRhBAAAAAthbW91bnRBc3NldAkBAAAADmdldEFtb3VudEFzc2V0AAAAAQUAAAAEZGF0YQQAAAAGc2VsbGVyCQEAAAAJZ2V0U2VsbGVyAAAAAQUAAAAEZGF0YQQAAAABcAkBAAAAB2V4dHJhY3QAAAABCAUAAAABaQAAAAdwYXltZW50AwkAAGcAAAACAAAAAAAAAAAABQAAAAVzdG9jawkAAAIAAAABAgAAAC1Mb3QgaXMgY2xvc2VkIG9yIGNhbmNlbGxlZCwgMCBpdGVtcyBpbiBzdG9jay4DCQAAAAAAAAIIBQAAAAFwAAAAB2Fzc2V0SWQFAAAADHdhdmVzQXNzZXRJZAkAAAIAAAABAgAAABZJbnZhbGlkIHBheW1lbnQgYXNzZXQuAwkAAGcAAAACAAAAAAAAAAAABQAAAAthbW91bnRUb0J1eQkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAXSW52YWxpZCBhbW91bnQgdG8gYnV5OiAJAAGkAAAAAQUAAAALYW1vdW50VG9CdXkCAAAALiwgZXhwZWN0ZWQgYW1vdW50IHNob3VsZCBiZSBncmVhdGVyIHRoYW4gemVyby4DCQEAAAACIT0AAAACCQAAaAAAAAIFAAAAC2Ftb3VudFRvQnV5BQAAAAVwcmljZQgFAAAAAXAAAAAGYW1vdW50CQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAYSW52YWxpZCBwYXltZW50IGFtb3VudDogCQABpAAAAAEIBQAAAAFwAAAABmFtb3VudAIAAAAdLCBleHBlY3RlZCBhbW91bnQgc2hvdWxkIGJlOiAJAAGkAAAAAQkAAGgAAAACBQAAAAthbW91bnRUb0J1eQUAAAAFcHJpY2UCAAAAAS4DCQAAZgAAAAIFAAAAC2Ftb3VudFRvQnV5BQAAAAVzdG9jawkAAAIAAAABAgAAABpOb3QgZW5vdWdoIGl0ZW1zIGluIHN0b2NrLgMJAQAAAAIhPQAAAAIFAAAACnByaWNlQXNzZXQIBQAAAAFwAAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAWSW52YWxpZCBwYXltZW50IGFzc2V0LgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACXNlcmlhbGl6ZQAAAAYFAAAABWxvdElkBQAAAAVwcmljZQkAAGUAAAACBQAAAAVzdG9jawUAAAALYW1vdW50VG9CdXkFAAAACnByaWNlQXNzZXQFAAAAC2Ftb3VudEFzc2V0BQAAAAZzZWxsZXIFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAC2Ftb3VudFRvQnV5BQAAAAthbW91bnRBc3NldAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABBQAAAAZzZWxsZXIFAAAABXByaWNlBQAAAApwcmljZUFzc2V0BQAAAANuaWwAAAAA9OGZEw==",
    "chainId": 84,
    "height": 1027837,
    "spentComplexity": 0
}

View: original | compacted
Prev: BVEqJkHUyFRL6wbVVJ8gFxnq6HHoXEdXacoqvxHV8xzX
Next: none

Full: 

OldNewDifferences
1-{-# STDLIB_VERSION 2 #-}
2-{-# CONTENT_TYPE EXPRESSION #-}
3-let issuer = Address(base58'3N15DGgcLXSctAzxz8fvXSoW3W6up4VmnPA')
4-let assetId = base58'JB9k9oaBGtpnTWTey6HU6d4uipiDPpGNGokQHKYFMULv'
5-let esg = 31
6-let price = 155000000000
7-let assetd = base58'JB9k9oaBGtpnTWTey6HU6d4uipiDPpGNGokQHKYFMULv'
8-match tx {
9-    case ex: ExchangeTransaction => 
10-        let pair = AssetPair(assetId, unit)
11-        let rate = extract(getInteger(issuer, "exchangeRate"))
12-        let rateDiff = (rate - fraction(100000000, ex.price, ex.amount))
13-        if (if ((ex.buyOrder.assetPair == pair))
14-            then (rateDiff > -100)
15-            else false)
16-            then (100 > rateDiff)
17-            else false
18-    case b: BurnTransaction => 
19-        false
20-    case _: MassTransferTransaction|TransferTransaction => 
21-        true
22-    case _ => 
23-        true
24-}
1+{-# STDLIB_VERSION 3 #-}
2+{-# SCRIPT_TYPE ACCOUNT #-}
3+{-# CONTENT_TYPE DAPP #-}
4+let wavesAssetId = base58'JB9k9oaBGtpnTWTey6HU6d4uipiDPpGNGokQHKYFMULv'
5+
6+func getPrice (data) = toInt(take(data, 8))
7+
8+
9+func getStock (data) = toInt(take(drop(data, 8), 8))
10+
11+
12+func getAmountAsset (data) = take(drop(data, ((8 + 8) + 32)), 32)
13+
14+
15+func getSeller (data) = drop(data, (((8 + 8) + 32) + 32))
16+
17+
18+func getPriceAsset (data) = {
19+    let pr = take(drop(data, (8 + 8)), 32)
20+    if ((pr == wavesAssetId))
21+        then unit
22+        else pr
23+    }
24+
25+
26+func serialize (lotId,price,stock,priceAsset,amountAsset,seller) = {
27+    let idAsString =     match lotId {
28+        case s: String => 
29+            s
30+        case bv: ByteVector => 
31+            toBase58String(bv)
32+        case _ => 
33+            throw()
34+    }
35+    let priceAssetBytes =     match priceAsset {
36+        case u: Unit => 
37+            wavesAssetId
38+        case bv: ByteVector => 
39+            bv
40+        case _ => 
41+            throw()
42+    }
43+    DataEntry(idAsString, ((((toBytes(price) + toBytes(stock)) + priceAssetBytes) + amountAsset) + seller))
44+    }
45+
46+
47+@Callable(i)
48+func sell (price,priceAsset) = {
49+    let p = extract(i.payment)
50+    if (if ((p.assetId == unit))
51+        then true
52+        else (p.assetId == wavesAssetId))
53+        then throw("Invalid asset to sell.")
54+        else if ((size(priceAsset) != 32))
55+            then throw((("Invalid asset: " + toBase58String(priceAsset)) + ", expected price asset size should be 32."))
56+            else if ((0 >= price))
57+                then throw((("Invalid price: " + toString(price)) + ", expected price should be greater than zero."))
58+                else if ((0 >= p.amount))
59+                    then throw((("Invalid amount for sell: " + toString(p.amount)) + ", expected amount should be greater than zero."))
60+                    else WriteSet([serialize(i.transactionId, price, p.amount, priceAsset, extract(extract(i.payment).assetId), i.callerPublicKey)])
61+    }
62+
63+
64+
65+@Callable(i)
66+func cancel (lotId) = {
67+    let data = extract(getBinary(this, lotId))
68+    let price = getPrice(data)
69+    let stock = getStock(data)
70+    let priceAsset = getPriceAsset(data)
71+    let amountAsset = getAmountAsset(data)
72+    let seller = getSeller(data)
73+    if ((seller != i.callerPublicKey))
74+        then throw("Only seller can cancel the lot.")
75+        else ScriptResult(WriteSet([serialize(lotId, price, 0, priceAsset, amountAsset, seller)]), TransferSet([ScriptTransfer(addressFromPublicKey(seller), stock, amountAsset)]))
76+    }
77+
78+
79+
80+@Callable(i)
81+func buy (lotId,amountToBuy) = {
82+    let data = extract(getBinary(this, lotId))
83+    let price = getPrice(data)
84+    let stock = getStock(data)
85+    let priceAsset = getPriceAsset(data)
86+    let amountAsset = getAmountAsset(data)
87+    let seller = getSeller(data)
88+    let p = extract(i.payment)
89+    if ((0 >= stock))
90+        then throw("Lot is closed or cancelled, 0 items in stock.")
91+        else if ((p.assetId == wavesAssetId))
92+            then throw("Invalid payment asset.")
93+            else if ((0 >= amountToBuy))
94+                then throw((("Invalid amount to buy: " + toString(amountToBuy)) + ", expected amount should be greater than zero."))
95+                else if (((amountToBuy * price) != p.amount))
96+                    then throw((((("Invalid payment amount: " + toString(p.amount)) + ", expected amount should be: ") + toString((amountToBuy * price))) + "."))
97+                    else if ((amountToBuy > stock))
98+                        then throw("Not enough items in stock.")
99+                        else if ((priceAsset != p.assetId))
100+                            then throw("Invalid payment asset.")
101+                            else ScriptResult(WriteSet([serialize(lotId, price, (stock - amountToBuy), priceAsset, amountAsset, seller)]), TransferSet([ScriptTransfer(i.caller, amountToBuy, amountAsset), ScriptTransfer(addressFromPublicKey(seller), price, priceAsset)]))
102+    }
103+
104+
github/deemru/w8io/169f3d6 
40.94 ms ◑