tx · GQgugkydEBUReFRmTEkbcQupHHN5xSagjqASiArxzWSr

3N94Xa9Jn1Dae1FEZSehyVUj9wH9UdNvF8T:  -0.01000000 Waves

2019.10.13 03:58 [717454] smart account 3N94Xa9Jn1Dae1FEZSehyVUj9wH9UdNvF8T > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GQgugkydEBUReFRmTEkbcQupHHN5xSagjqASiArxzWSr",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1570928383509,
    "version": 1,
    "sender": "3N94Xa9Jn1Dae1FEZSehyVUj9wH9UdNvF8T",
    "senderPublicKey": "HaeYZEB5MCir2WytH2oEksXwzuY1V2izeSB2yZqohHqf",
    "proofs": [
        "73GbW41uAjXM1GB7niUuvjVpszjjg5EMAjHRqww6CY9S6YJPu2fCzpMsZVXJxZgYNeD3VmmwFEWxjeNZrYezc8s"
    ],
    "script": "base64:AAIDAAAAAAAAAAkIARIDCgEIEgAAAAANAAAAAAROT05FAgAAAARub25lAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAAD2dldEtleUl0ZW1QcmljZQAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAZfcHJpY2UBAAAAEWdldFZhbHVlSXRlbVByaWNlAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAPZ2V0S2V5SXRlbVByaWNlAAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0JAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAABGl0ZW0CAAAAAV8FAAAABHVzZXICAAAABF9jbnQBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgAAAAR1c2VyAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAR1c2VyBQAAAARpdGVtAQAAAApnZXRLZXlJdGVtAAAAAgAAAAhzdXBwbGllcgAAAAV0aXRsZQkAASwAAAACAgAAAAVpdGVtXwkAAlgAAAABCQAB9wAAAAEJAAGbAAAAAQkAASwAAAACBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUBAAAADmdldEtleUl0ZW1EYXRhAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAABV9kYXRhAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAGX293bmVyAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEAAAAHYWNjb3VudAkAASwAAAACBQAAAAdhY2NvdW50AgAAAAhfYmFsYW5jZQEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABAAAAB2FjY291bnQJAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAdhY2NvdW50AAAAAgAAAAFpAQAAAAhwdXJjaGFzZQAAAAEAAAAEaXRlbQQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAAH1dBVkVTIHRva2VucyBvbmx5IGF0IHRoZSBtb21lbnQEAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABXByaWNlCQEAAAARZ2V0VmFsdWVJdGVtUHJpY2UAAAABBQAAAARpdGVtBAAAAA9zdXBwbGllckFkZHJlc3MJAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0JAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAAD3N1cHBsaWVyQWRkcmVzcwkAAGQAAAACCQEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABBQAAAA9zdXBwbGllckFkZHJlc3MIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAAABAAAAA9zdXBwbGllckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAHYmFsYW5jZQkBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAPc3VwcGxpZXJBZGRyZXNzAwkAAGcAAAACAAAAAAAAAAAABQAAAAdiYWxhbmNlCQAAAgAAAAECAAAAFGluc3VmZmljaWVudCBiYWxhbmNlCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAAD3N1cHBsaWVyQWRkcmVzcwAAAAAAAAAAAAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAAPc3VwcGxpZXJBZGRyZXNzBQAAAAdiYWxhbmNlBQAAAAR1bml0BQAAAANuaWwAAAAAHPPc2w==",
    "chainId": 84,
    "height": 717454,
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: none

Full: 
Old
New
Differences
1
-
# no script
1
+
{-# STDLIB_VERSION 3 #-}
2
+
{-# SCRIPT_TYPE ACCOUNT #-}
3
+
{-# CONTENT_TYPE DAPP #-}
4
+
let NONE = "none"
5
+
6
+
func getNumberByKey (key) = {
7
+
    let num =     match getInteger(this, key) {
8
+
        case a: Int => 
9
+
            a
10
+
        case _ => 
11
+
            0
12
+
    }
13
+
    num
14
+
    }
15
+
16
+
17
+
func getStrByKey (key) = {
18
+
    let str =     match getString(this, key) {
19
+
        case a: String => 
20
+
            a
21
+
        case _ => 
22
+
            NONE
23
+
    }
24
+
    str
25
+
    }
26
+
27
+
28
+
func getKeyItemPrice (item) = (item + "_price")
29
+
30
+
31
+
func getValueItemPrice (item) = getNumberByKey(getKeyItemPrice(item))
32
+
33
+
34
+
func getKeyUserItemCounter (user,item) = (((item + "_") + user) + "_cnt")
35
+
36
+
37
+
func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
38
+
39
+
40
+
func getKeyItem (supplier,title) = ("item_" + toBase58String(sha256(toBytes((supplier + title)))))
41
+
42
+
43
+
func getKeyItemData (item) = (item + "_data")
44
+
45
+
46
+
func getKeyItemSupplier (item) = (item + "_owner")
47
+
48
+
49
+
func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
50
+
51
+
52
+
func getKeyBalanceSupplier (account) = (account + "_balance")
53
+
54
+
55
+
func getValueBalanceSupplier (account) = getNumberByKey(getKeyBalanceSupplier(account))
56
+
57
+
58
+
@Callable(i)
59
+
func purchase (item) = {
60
+
    let pmt = extract(i.payment)
61
+
    if (isDefined(pmt.assetId))
62
+
        then throw("WAVES tokens only at the moment")
63
+
        else {
64
+
            let userAddress = toBase58String(i.caller.bytes)
65
+
            let price = getValueItemPrice(item)
66
+
            let supplierAddress = getValueItemSupplier(item)
67
+
            WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyBalanceSupplier(supplierAddress), (getValueBalanceSupplier(supplierAddress) + pmt.amount))])
68
+
            }
69
+
    }
70
+
71
+
72
+
73
+
@Callable(i)
74
+
func withdraw () = {
75
+
    let supplierAddress = toBase58String(i.caller.bytes)
76
+
    let balance = getValueBalanceSupplier(supplierAddress)
77
+
    if ((0 >= balance))
78
+
        then throw("insufficient balance")
79
+
        else ScriptResult(WriteSet([DataEntry(getKeyBalanceSupplier(supplierAddress), 0)]), TransferSet([ScriptTransfer(addressFromStringValue(supplierAddress), balance, unit)]))
80
+
    }
81
+
82
+

github/deemru/w8io/026f985 
19.18 ms ◑