tx · B7AEcg1RFioP3ZKTwYzs6ska3vb1tPfUm3XdDjPXLbGQ

3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm:  -0.01400000 Waves

2020.03.17 11:05 [913002] smart account 3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "B7AEcg1RFioP3ZKTwYzs6ska3vb1tPfUm3XdDjPXLbGQ",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1584432312690,
    "version": 1,
    "sender": "3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm",
    "senderPublicKey": "BjzUYgMDny7cYArZdjtnVo62UoVZKiCEeCoKYFnevrWU",
    "proofs": [
        "2EUYARo6GKy8fUguucnxzahCtMQfTzBmLTLXwJ9Rb2gzxiHSogov26vt8m2fqG9hnAxymXxXVD1V5P2Mas1PKRa"
    ],
    "script": "base64:AAIDAAAAAAAAABcIARIDCgEBEggKBggICAEBARIECgIIAQAAABYAAAAAB2FCaXRDTzIBAAAAIMf4egCdN1CfKjJsuySIc91YzhODi96HwhotKBtnwSiWAAAAAAhzdGFydFF0eQAAAAAAAAJJ8AAAAAAIbm9tUHJpY2UAAAAAAAX14QAAAAAABE5PTkUCAAAABG5vbmUAAAAAC093bmVyUHViS2V5AQAAACCfmEAXldMf/BjZSW6/ZEf7k5r0z4tisH8Gw1nNGq2ESQAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFU1D3rjtmNadk6Svjh9eFrA7lQldo3DBRUAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAACmdldEtleUl0ZW0AAAACAAAACHN1cHBsaWVyAAAABXRpdGxlCQABLAAAAAICAAAAEHRva2Vuc19CaXQtQ08yOl8JAAJYAAAAAQkAAfcAAAABCQABmwAAAAEJAAEsAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAaX3RvX0FtYXpvbmlhbl9Db25zZXJ2YXRpb24BAAAAFGdldFZhbHVlSXRlbVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtAgAAABdUb2tlbnNfb2ZlcnRhZG9zLF9TYWxkbwEAAAAaZ2V0VmFsdWVCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAACHN1cHBsaWVyAgAAABVTZWxsZXJfQmFsYW5jZTpfd2F2ZXMBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAhzdXBwbGllcgkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAACHN1cHBsaWVyAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAEaXRlbQIAAAABXwUAAAAEdXNlcgIAAAAEX2NudAEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAADmdldEtleUl0ZW1Vc2VyAAAAAQAAAARpdGVtAgAAAA1Qcm9qZWN0X25hbWU6AQAAABBnZXRWYWx1ZUl0ZW1Vc2VyAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5SXRlbVVzZXIAAAABBQAAAARpdGVtAQAAABJnZXRLZXlJdGVtVXNlckRhdGEAAAABAAAABGl0ZW0CAAAACV91c2VyZGF0YQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQIAAAAHX3Rva2VucwEAAAAYZ2V0VmFsdWVJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0AAAADAAAAAWkBAAAAB2RlcG9zaXQAAAABAAAABmFtb3VudAQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAB2FCaXRDTzIJAAACAAAAAQIAAAAuVXNlIGNCaXRDTzIgdG9rZW5zIG9ubHkgZm9yIHRoZSB3YWxsZXQgZGVwb3NpdAQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANY3VycmVudEFtb3VudAQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAhzdXBwbGllcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAhzdGFydFF0eQQAAAAJbmV3QW1vdW50CQAAZAAAAAIFAAAADWN1cnJlbnRBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAAhzdXBwbGllcgUAAAAJbmV3QW1vdW50BQAAAANuaWwAAAABaQEAAAAIcHVyY2hhc2UAAAAGAAAABGl0ZW0AAAALcHJvamVjdE5hbWUAAAAIdXNlckRhdGEAAAAMdXNlckRpc2NvdW50AAAACG9yZGVyUXR5AAAABmFtb3VudAQAAAADcG10CQEAAAAHZXh0cmFjdAAAAAEIBQAAAAFpAAAAB3BheW1lbnQDCQEAAAAJaXNEZWZpbmVkAAAAAQgFAAAAA3BtdAAAAAdhc3NldElkCQAAAgAAAAECAAAALHlvdSBjYW4gYWRxdWlyZSBjQml0Q08yIG9ubHkgYnkgV2F2ZXMgdG9rZW5zBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAAD2JhbGFuY2VTdXBwbGllcgQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALdXNlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAPYnV5ZXJUb2tlblByaWNlCQAAaQAAAAIJAABoAAAAAgUAAAAIbm9tUHJpY2UJAABlAAAAAgAAAAAAAAAAZAUAAAAMdXNlckRpc2NvdW50AAAAAAAAAABkBAAAAAt0b3RhbEFtb3VudAkAAGgAAAACBQAAAAhvcmRlclF0eQUAAAAPYnV5ZXJUb2tlblByaWNlAwkAAGYAAAACBQAAAAt0b3RhbEFtb3VudAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAA2UGF5bWVudCBBbW91bnQgY2Fubm90IGJlIGxlc3MgdGhhbiBpdGVtIFB1cmNoYXNlIE9yZGVyAwkAAGYAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAALdG90YWxBbW91bnQJAAACAAAAAQIAAAA3UGF5bWVudCBBbW91bnQgY2FuJ3QgYmUgaGlnaGVyIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQkAAGQAAAACCQEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACBQAAAAt1c2VyQWRkcmVzcwUAAAAEaXRlbQAAAAAAAAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQUAAAAEaXRlbQUAAAALcHJvamVjdE5hbWUJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtCQAAZQAAAAIFAAAACXByZUljb1F0eQUAAAAIb3JkZXJRdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlJdGVtVXNlckRhdGEAAAABBQAAAARpdGVtBQAAAAh1c2VyRGF0YQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAAFkRlc2N1ZW50byBzb2xpY2l0YWRvOl8FAAAAC3VzZXJBZGRyZXNzAgAAAAJfJQUAAAAMdXNlckRpc2NvdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAFENhbnRpZGFkX3NvbGljaXRhZGE6CQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEFAAAABGl0ZW0FAAAACG9yZGVyUXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAOTW9udG8gcGFnYWRvOl8FAAAAC3VzZXJBZGRyZXNzAgAAAAZfd2F2ZXMFAAAABmFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAABBSZXF1ZXN0X1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAJY29uZmlybWVkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAIc3VwcGxpZXIJAABkAAAAAgUAAAAPYmFsYW5jZVN1cHBsaWVyCAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAALdXNlckFkZHJlc3MFAAAACG9yZGVyUXR5BQAAAAdhQml0Q08yBQAAAANuaWwAAAABaQEAAAAId2l0aGRyYXcAAAACAAAABGl0ZW0AAAAGYW1vdW50BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAAhzdXBwbGllcgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0DCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkEAAAACW5ld0Ftb3VudAkAAGUAAAACBQAAAAlwcmVJY29RdHkFAAAABmFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAGYW1vdW50CQAAAgAAAAECAAAAHkNhbid0IHdpdGhkcmF3IG5lZ2F0aXZlIGFtb3VudAMJAABmAAAAAgAAAAAAAAAAAAUAAAAJbmV3QW1vdW50CQAAAgAAAAECAAAAH05vdCBlbm91Z2h0IC9zdWZpY2llbnRlIGJhbGFuY2UJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACBQAAAARpdGVtBQAAAAluZXdBbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAABmFtb3VudAUAAAAHYUJpdENPMgUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAALT3duZXJQdWJLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBAAAAAlyZWNpcGllbnQJAAJYAAAAAQgJAAQkAAAAAQgFAAAAAnR4AAAACXJlY2lwaWVudAAAAAVieXRlcwMJAAAAAAAAAggFAAAAAnR4AAAABnNlbmRlcgUAAAAGaXNzdWVyBgkAAAIAAAABAgAAACBZb3UgY2FuJ3QgdHJhbnNmZXJyZWQgdGhpcyB0b2tlbgcQvOHe",
    "chainId": 84,
    "height": 913002,
    "spentComplexity": 0
}

View: original | compacted
Prev: 2Q2kDwvhqoDAExacxFGRrrDQSsxQob3qVNvvtE2mjAQ4
Next: z1ee8qEkJGEi92t1LHqzy2qSXDfhkTgS12HtkKZrcqC

Diff: 
Old
New
Differences
4
4
 
let aBitCO2 = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
5
5
 
6
6
 
let startQty = 150000
7
+
8
+
let nomPrice = 100000000
7
9
 
8
10
 
let NONE = "none"
9
11
 
36
38
 
func getKeyItem (supplier,title) = ("tokens_Bit-CO2:_" + toBase58String(sha256(toBytes((supplier + title)))))
37
39
 
38
40
 
41
+
func getKeyItemSupplier (item) = (item + "_to_Amazonian_Conservation")
42
+
43
+
44
+
func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
45
+
46
+
39
47
 
func getKeyBalanceQtySupplier (item) = "Tokens_ofertados,_Saldo"
40
48
 
41
49
 
42
50
 
func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
51
+
52
+
53
+
func getKeyBalanceSupplier (supplier) = "Seller_Balance:_waves"
54
+
55
+
56
+
func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
57
+
58
+
59
+
func getKeyUserItemCounter (user,item) = (((item + "_") + user) + "_cnt")
60
+
61
+
62
+
func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
63
+
64
+
65
+
func getKeyItemUser (item) = "Project_name:"
66
+
67
+
68
+
func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
69
+
70
+
71
+
func getKeyItemUserData (item) = "_userdata"
72
+
73
+
74
+
func getKeyItemUserOrderQty (item) = "_tokens"
75
+
76
+
77
+
func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
43
78
 
44
79
 
45
80
 
@Callable(i)
63
98
 
64
99
 
65
100
 
@Callable(i)
66
-
func withdraw (title,amount) = {
67
-
    let supplier = toBase58String(i.caller.bytes)
68
-
    let item = getKeyItem(supplier, title)
101
+
func purchase (item,projectName,userData,userDiscount,orderQty,amount) = {
102
+
    let pmt = extract(i.payment)
103
+
    if (isDefined(pmt.assetId))
104
+
        then throw("you can adquire cBitCO2 only by Waves tokens")
105
+
        else {
106
+
            let supplier =             match getString(this, getKeyItemSupplier(item)) {
107
+
                case a: String => 
108
+
                    a
109
+
                case _ => 
110
+
                    NONE
111
+
            }
112
+
            let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
113
+
                case a: Int => 
114
+
                    a
115
+
                case _ => 
116
+
                    startQty
117
+
            }
118
+
            let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
119
+
                case a: Int => 
120
+
                    a
121
+
                case _ => 
122
+
                    0
123
+
            }
124
+
            let userAddress = toBase58String(i.caller.bytes)
125
+
            let buyerTokenPrice = ((nomPrice * (100 - userDiscount)) / 100)
126
+
            let totalAmount = (orderQty * buyerTokenPrice)
127
+
            if ((totalAmount > pmt.amount))
128
+
                then throw("Payment Amount cannot be less than item Purchase Order")
129
+
                else if ((pmt.amount > totalAmount))
130
+
                    then throw("Payment Amount can't be higher than item Purchase Order")
131
+
                    else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
132
+
            }
133
+
    }
134
+
135
+
136
+
137
+
@Callable(i)
138
+
func withdraw (item,amount) = {
139
+
    let userAddress = toBase58String(i.caller.bytes)
140
+
    let supplier =     match getString(this, getKeyItemSupplier(item)) {
141
+
        case a: String => 
142
+
            a
143
+
        case _ => 
144
+
            NONE
145
+
    }
69
146
 
    let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
70
147
 
        case a: Int => 
71
148
 
            a
Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 3 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let aBitCO2 = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
5
5
 
6
6
 
let startQty = 150000
7
+
8
+
let nomPrice = 100000000
7
9
 
8
10
 
let NONE = "none"
9
11
 
10
12
 
let OwnerPubKey = base58'BjzUYgMDny7cYArZdjtnVo62UoVZKiCEeCoKYFnevrWU'
11
13
 
12
14
 
let issuer = Address(base58'3N9GKCsktAL7oPFmaKsgPBoDfu3ijk23Vmm')
13
15
 
14
16
 
func getNumberByKey (key) = {
15
17
 
    let num =     match getInteger(this, key) {
16
18
 
        case a: Int => 
17
19
 
            a
18
20
 
        case _ => 
19
21
 
            0
20
22
 
    }
21
23
 
    num
22
24
 
    }
23
25
 
24
26
 
25
27
 
func getStrByKey (key) = {
26
28
 
    let str =     match getString(this, key) {
27
29
 
        case a: String => 
28
30
 
            a
29
31
 
        case _ => 
30
32
 
            NONE
31
33
 
    }
32
34
 
    str
33
35
 
    }
34
36
 
35
37
 
36
38
 
func getKeyItem (supplier,title) = ("tokens_Bit-CO2:_" + toBase58String(sha256(toBytes((supplier + title)))))
37
39
 
38
40
 
41
+
func getKeyItemSupplier (item) = (item + "_to_Amazonian_Conservation")
42
+
43
+
44
+
func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
45
+
46
+
39
47
 
func getKeyBalanceQtySupplier (item) = "Tokens_ofertados,_Saldo"
40
48
 
41
49
 
42
50
 
func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
51
+
52
+
53
+
func getKeyBalanceSupplier (supplier) = "Seller_Balance:_waves"
54
+
55
+
56
+
func getValueBalanceSupplier (supplier) = getNumberByKey(getKeyBalanceSupplier(supplier))
57
+
58
+
59
+
func getKeyUserItemCounter (user,item) = (((item + "_") + user) + "_cnt")
60
+
61
+
62
+
func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
63
+
64
+
65
+
func getKeyItemUser (item) = "Project_name:"
66
+
67
+
68
+
func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
69
+
70
+
71
+
func getKeyItemUserData (item) = "_userdata"
72
+
73
+
74
+
func getKeyItemUserOrderQty (item) = "_tokens"
75
+
76
+
77
+
func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
43
78
 
44
79
 
45
80
 
@Callable(i)
46
81
 
func deposit (amount) = {
47
82
 
    let pmt = extract(i.payment)
48
83
 
    if ((pmt.assetId != aBitCO2))
49
84
 
        then throw("Use cBitCO2 tokens only for the wallet deposit")
50
85
 
        else {
51
86
 
            let supplier = toBase58String(i.caller.bytes)
52
87
 
            let currentAmount =             match getInteger(this, supplier) {
53
88
 
                case a: Int => 
54
89
 
                    a
55
90
 
                case _ => 
56
91
 
                    startQty
57
92
 
            }
58
93
 
            let newAmount = (currentAmount + pmt.amount)
59
94
 
            WriteSet([DataEntry(supplier, newAmount)])
60
95
 
            }
61
96
 
    }
62
97
 
63
98
 
64
99
 
65
100
 
@Callable(i)
66
-
func withdraw (title,amount) = {
67
-
    let supplier = toBase58String(i.caller.bytes)
68
-
    let item = getKeyItem(supplier, title)
101
+
func purchase (item,projectName,userData,userDiscount,orderQty,amount) = {
102
+
    let pmt = extract(i.payment)
103
+
    if (isDefined(pmt.assetId))
104
+
        then throw("you can adquire cBitCO2 only by Waves tokens")
105
+
        else {
106
+
            let supplier =             match getString(this, getKeyItemSupplier(item)) {
107
+
                case a: String => 
108
+
                    a
109
+
                case _ => 
110
+
                    NONE
111
+
            }
112
+
            let preIcoQty =             match getInteger(this, getKeyBalanceQtySupplier(item)) {
113
+
                case a: Int => 
114
+
                    a
115
+
                case _ => 
116
+
                    startQty
117
+
            }
118
+
            let balanceSupplier =             match getInteger(this, getKeyBalanceSupplier(supplier)) {
119
+
                case a: Int => 
120
+
                    a
121
+
                case _ => 
122
+
                    0
123
+
            }
124
+
            let userAddress = toBase58String(i.caller.bytes)
125
+
            let buyerTokenPrice = ((nomPrice * (100 - userDiscount)) / 100)
126
+
            let totalAmount = (orderQty * buyerTokenPrice)
127
+
            if ((totalAmount > pmt.amount))
128
+
                then throw("Payment Amount cannot be less than item Purchase Order")
129
+
                else if ((pmt.amount > totalAmount))
130
+
                    then throw("Payment Amount can't be higher than item Purchase Order")
131
+
                    else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemUser(item), projectName), DataEntry(getKeyBalanceQtySupplier(item), (preIcoQty - orderQty)), DataEntry(getKeyItemUserData(item), userData), DataEntry((("Descuento solicitado:_" + userAddress) + "_%"), userDiscount), DataEntry(("Cantidad_solicitada:" + getKeyItemUserOrderQty(item)), orderQty), DataEntry((("Monto pagado:_" + userAddress) + "_waves"), amount), DataEntry(("Request_Status:_" + userAddress), "confirmed"), DataEntry(getKeyBalanceSupplier(supplier), (balanceSupplier + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderQty, aBitCO2)]))
132
+
            }
133
+
    }
134
+
135
+
136
+
137
+
@Callable(i)
138
+
func withdraw (item,amount) = {
139
+
    let userAddress = toBase58String(i.caller.bytes)
140
+
    let supplier =     match getString(this, getKeyItemSupplier(item)) {
141
+
        case a: String => 
142
+
            a
143
+
        case _ => 
144
+
            NONE
145
+
    }
69
146
 
    let preIcoQty =     match getInteger(this, getKeyBalanceQtySupplier(item)) {
70
147
 
        case a: Int => 
71
148
 
            a
72
149
 
        case _ => 
73
150
 
            startQty
74
151
 
    }
75
152
 
    let newAmount = (preIcoQty - amount)
76
153
 
    if ((0 > amount))
77
154
 
        then throw("Can't withdraw negative amount")
78
155
 
        else if ((0 > newAmount))
79
156
 
            then throw("Not enought /suficiente balance")
80
157
 
            else ScriptResult(WriteSet([DataEntry(item, newAmount)]), TransferSet([ScriptTransfer(i.caller, amount, aBitCO2)]))
81
158
 
    }
82
159
 
83
160
 
84
161
 
@Verifier(tx)
85
162
 
func verify () = match tx {
86
163
 
    case t: SetScriptTransaction => 
87
164
 
        sigVerify(tx.bodyBytes, tx.proofs[0], OwnerPubKey)
88
165
 
    case d: DataTransaction => 
89
166
 
        true
90
167
 
    case tx: TransferTransaction => 
91
168
 
        let recipient = toBase58String(addressFromRecipient(tx.recipient).bytes)
92
169
 
        if ((tx.sender == issuer))
93
170
 
            then true
94
171
 
            else throw("You can't transferred this token")
95
172
 
    case _ => 
96
173
 
        false
97
174
 
}
98
175
 

github/deemru/w8io/169f3d6 
46.54 ms ◑