tx · GKoaEa2R9sGpKnjtfeU4pHh33jh4SzeinxPayBxcNPiG

3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4:  -0.01400000 Waves

2020.03.10 11:54 [902821] smart account 3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GKoaEa2R9sGpKnjtfeU4pHh33jh4SzeinxPayBxcNPiG",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1583830426416,
    "version": 1,
    "sender": "3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4",
    "senderPublicKey": "4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L",
    "proofs": [
        "5x9Q2kHsiCWY5DddBypzz1k7jXNVaqKbxB5ZNE6Wx6K5PrGPaZ1xXH6GS9WyT2YvKeFArismn2qPEPuTQaScKiiR"
    ],
    "script": "base64:AAIDAAAAAAAAABAIARIFCgMIAQgSBQoDCAgIAAAAJQAAAAAHYUJpdENPMgEAAAAgx/h6AJ03UJ8qMmy7JIhz3VjOE4OL3ofCGi0oG2fBKJYAAAAACHN0YXJ0UXR5AAAAAAAABRQAAAAAAAhub21QcmljZQAAAAAABfXhAAAAAAAWZGlzY291bnRQcmVJY29TdXBwbGllcgAAAAAAAAAADAAAAAAOT3duZXJFY29QdWJLZXkBAAAAIC70W6NACRoO8DcwW0R46ze+bNGLr0tg3cAkNP8WNkAfAAAAAAN3dnMAAAAAAAX14QAAAAAABE5PTkUCAAAABG5vbmUAAAAABmlzc3VlcgkBAAAAB0FkZHJlc3MAAAABAQAAABoBVMr3Oz7nL9FV4g+t+EWzLN77jdANRWt9bwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAAApnZXRLZXlJdGVtAAAAAgAAAAhzdXBwbGllcgAAAAV0aXRsZQkAASwAAAACAgAAAAhCaXRDTzI6XwkAAlgAAAABCQAB9wAAAAEJAAGbAAAAAQkAASwAAAACBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAVfQW1hegEAAAAUZ2V0VmFsdWVJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAQAAAA1nZXRLZXlJdGVtUXR5AAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAAC190b2suYW1vdW50AQAAAA9nZXRWYWx1ZUl0ZW1RdHkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAA1nZXRLZXlJdGVtUXR5AAAAAQUAAAAEaXRlbQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAAB190b2tlbnMBAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAMX2Rlc2NyaXB0aW9uAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAEaXRlbQIAAAABXwUAAAAEdXNlcgIAAAAEX2NudAEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAAEmdldEtleUl0ZW1Vc2VyRGF0YQAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAlfdXNlcmRhdGEBAAAAEWdldEtleUJhbGFuY2VVc2VyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAADF9zYWxkd3ZzdXNlcgEAAAATZ2V0VmFsdWVCYWxhbmNlVXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAEWdldEtleUJhbGFuY2VVc2VyAAAAAQUAAAAEaXRlbQEAAAARZ2V0S2V5UGF5bWVudFVzZXIAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAJX3VzZXIucG10AQAAABNnZXRWYWx1ZVBheW1lbnRVc2VyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAARZ2V0S2V5UGF5bWVudFVzZXIAAAABBQAAAARpdGVtAQAAABRnZXRLZXlCYWxhbmNlUXR5VXNlcgAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAhfc2FsZHF0eQEAAAAWZ2V0VmFsdWVCYWxhbmNlUXR5VXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFGdldEtleUJhbGFuY2VRdHlVc2VyAAAAAQUAAAAEaXRlbQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAARfcXR5AQAAABhnZXRWYWx1ZUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAdhY2NvdW50CQABLAAAAAIFAAAAB2FjY291bnQCAAAACF9iYWxhbmNlAQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAHYWNjb3VudAkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAAB2FjY291bnQBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQAAAARpdGVtCQABLAAAAAIJAAEsAAAAAgIAAAAGbmFtZTpfBQAAAARpdGVtAgAAAAFfAQAAABBnZXRWYWx1ZUl0ZW1Vc2VyAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5SXRlbVVzZXIAAAABBQAAAARpdGVtAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAABmRpc2M6XwUAAAAEaXRlbQIAAAABXwEAAAAcZ2V0VmFsdWVJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABAAAABGl0ZW0JAAEsAAAAAgkAASwAAAACAgAAAAVOb206XwUAAAAEaXRlbQIAAAABXwEAAAAZZ2V0VmFsdWVJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQUAAAAEaXRlbQAAAAIAAAABaQEAAAAQQWRkU3VwcGxpZXJUb2tlbgAAAAMAAAAFdGl0bGUAAAAJcHJlSWNvUXR5AAAADHN1cHBsaWVyRGF0YQQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAEaXRlbQkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUDCQAAZwAAAAIAAAAAAAAAAAAFAAAACXByZUljb1F0eQkAAAIAAAABAgAAAB9Tb3JyeSwgaW5zdWZmaWNpZW50IHRva2VuIG9mZmVyCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOU2FsZG9fdG9rZW5zOl8JAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAlwcmVJY29RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAjUHJlY2lvX05vbWluYWxfZGVfMSB0b2tlbl9jQml0Q08yOl8JAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAACG5vbVByaWNlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAABZkaXNjb3VudFByZUljb1N1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABBQAAAARpdGVtBQAAAAxzdXBwbGllckRhdGEFAAAAA25pbAAAAAFpAQAAAA1QdXJjaGFzZVRva2VuAAAAAwAAAARpdGVtAAAAC3Byb2plY3ROYW1lAAAACHVzZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAseW91IGNhbiBhZHF1aXJlIGNCaXRDTzIgb25seSBieSBXYXZlcyB0b2tlbnMEAAAAB2FjY291bnQJAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0EAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAdhY2NvdW50AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA9idXllclRva2VuUHJpY2UJAABpAAAAAgkAAGgAAAACBQAAAAhub21QcmljZQkAAGUAAAACAAAAAAAAAABkBQAAABZkaXNjb3VudFByZUljb1N1cHBsaWVyAAAAAAAAAABkBAAAAAtvcmRlckFtb3VudAkAAGkAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAAPYnV5ZXJUb2tlblByaWNlBAAAAAZuZXdRdHkJAABlAAAAAgUAAAAJcHJlSWNvUXR5BQAAAAtvcmRlckFtb3VudAQAAAALdG90YWxBbW91bnQJAABoAAAAAgUAAAALb3JkZXJBbW91bnQFAAAAD2J1eWVyVG9rZW5QcmljZQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANlBheW1lbnQgQW1vdW50IGNhbm5vdCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAtwcm9qZWN0TmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleUl0ZW1Vc2VyRGF0YQAAAAEFAAAABGl0ZW0FAAAACHVzZXJEYXRhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAB5DYW50aWRhZF9kZV90b2tlbnNfYV9jb21wcmFyOl8FAAAAC29yZGVyQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAGUludmVzdG1lbnRfQW1vdW50LF93YXZlc18JAQAAABFnZXRLZXlQYXltZW50VXNlcgAAAAEFAAAABGl0ZW0FAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAG1BhZ29fZW5fX3dhdmVzX2RlbF9JbnZlcnNvcgkBAAAAEWdldEtleUJhbGFuY2VVc2VyAAAAAQUAAAAEaXRlbQgFAAAAA3BtdAAAAAZhbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAABBSZXF1ZXN0X1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAABXwIAAAAEc29sZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAADlVzZXJfQmFsYW5jZTpfCQEAAAAUZ2V0S2V5QmFsYW5jZVF0eVVzZXIAAAABBQAAAARpdGVtAgAAAAFfBQAAAAtvcmRlckFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA5TYWxkb190b2tlbnM6XwkBAAAAGGdldEtleUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAABm5ld1F0eQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAABhTYWxkb193YXZlc19kZWxfdmVuZGVkb3IJAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAdhY2NvdW50CQAAZAAAAAIJAQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEFAAAAB2FjY291bnQIBQAAAANwbXQAAAAGYW1vdW50BQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABBQAAAAt1c2VyQWRkcmVzcwUAAAALb3JkZXJBbW91bnQFAAAAB2FCaXRDTzIFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABRTZXRTY3JpcHRUcmFuc2FjdGlvbgQAAAABdAUAAAAHJG1hdGNoMAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAFAAAADk93bmVyRWNvUHViS2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAA9EYXRhVHJhbnNhY3Rpb24EAAAAAWQFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNUcmFuc2ZlclRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE0V4Y2hhbmdlVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBAAAAAl3aXRoV2F2ZXMDCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCAgIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAJYXNzZXRQYWlyAAAACnByaWNlQXNzZXQGCQEAAAABIQAAAAEJAQAAAAlpc0RlZmluZWQAAAABCAgIBQAAAAJ0eAAAAAlzZWxsT3JkZXIAAAAJYXNzZXRQYWlyAAAAC2Ftb3VudEFzc2V0BQAAAAl3aXRoV2F2ZXMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAF0ludm9rZVNjcmlwdFRyYW5zYWN0aW9uBAAAAAFjBQAAAAckbWF0Y2gwBgfGTkb+",
    "chainId": 84,
    "height": 902821,
    "spentComplexity": 0
}

View: original | compacted
Prev: 8NoNFDidy3yoA3LNMVCpQ4fgb2C1GfJ3AwAiGP5JVAEz
Next: 2EjbzBc2KyqBpvtCeAcbGp4cNbA8qFTzMXzoDdYS4tfa

Diff: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 3 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
-
let cBitCO2 = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
4
+
let aBitCO2 = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
5
5
 
6
6
 
let startQty = 332800
7
7
 
121
121
 
122
122
 
123
123
 
@Callable(i)
124
-
func AddSupplierToken (title,supplierData) = {
124
+
func AddSupplierToken (title,preIcoQty,supplierData) = {
125
125
 
    let supplier = toBase58String(i.caller.bytes)
126
126
 
    let item = getKeyItem(supplier, title)
127
-
    let preIcoQty =     match getInteger(this, supplier) {
128
-
        case a: Int => 
129
-
            a
130
-
        case _ => 
131
-
            startQty
132
-
    }
133
127
 
    if ((0 >= preIcoQty))
134
128
 
        then throw("Sorry, insufficient token offer")
135
-
        else WriteSet([DataEntry(getKeyItemSupplier(item), supplier), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("Precio_Nominal_de_1 token_cBitCO2:_" + getKeyItemPriceSupplier(item)), nomPrice), DataEntry(getKeyItemDiscountSupplier(item), discountPreIcoSupplier), DataEntry(getKeyItemData(item), supplierData)])
129
+
        else WriteSet([DataEntry(getKeyItemSupplier(item), supplier), DataEntry(("Saldo_tokens:_" + getKeyBalanceQtySupplier(item)), preIcoQty), DataEntry(("Precio_Nominal_de_1 token_cBitCO2:_" + getKeyItemPriceSupplier(item)), nomPrice), DataEntry(getKeyItemDiscountSupplier(item), discountPreIcoSupplier), DataEntry(getKeyItemData(item), supplierData)])
136
130
 
    }
137
131
 
138
132
 
144
138
 
        then throw("you can adquire cBitCO2 only by Waves tokens")
145
139
 
        else {
146
140
 
            let account = getValueItemSupplier(item)
147
-
            let currentQty =             match getInteger(this, account) {
141
+
            let preIcoQty =             match getInteger(this, account) {
148
142
 
                case a: Int => 
149
143
 
                    a
150
144
 
                case _ => 
153
147
 
            let userAddress = toBase58String(i.caller.bytes)
154
148
 
            let buyerTokenPrice = ((nomPrice * (100 - discountPreIcoSupplier)) / 100)
155
149
 
            let orderAmount = (pmt.amount / buyerTokenPrice)
156
-
            let newQty = (currentQty - orderAmount)
150
+
            let newQty = (preIcoQty - orderAmount)
157
151
 
            let totalAmount = (orderAmount * buyerTokenPrice)
158
152
 
            if ((totalAmount > pmt.amount))
159
153
 
                then throw("Payment Amount cannot be less than item Purchase Order")
160
154
 
                else if ((pmt.amount > totalAmount))
161
155
 
                    then throw("Payment Amount can't be higher than item Purchase Order")
162
-
                    else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(item), projectName), DataEntry(getKeyItemUserData(item), userData), DataEntry("Cantidad_de_tokens_a_comprar:_", orderAmount), DataEntry(("Investment_Amount,_waves_" + getKeyPaymentUser(item)), totalAmount), DataEntry(("Pago_en__waves_del_Inversor" + getKeyBalanceUser(item)), pmt.amount), DataEntry((("Request_Status:_" + userAddress) + "_"), "sold"), DataEntry((("User_Balance:_" + getKeyBalanceQtyUser(item)) + "_"), orderAmount), DataEntry(("Saldo_tokens_del_Proyecto" + getKeyBalanceQtySupplier(item)), newQty), DataEntry(("Saldo_waves_del_vendedor" + getKeyBalanceSupplier(account)), (getValueBalanceSupplier(account) + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderAmount, cBitCO2)]))
156
+
                    else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(item), projectName), DataEntry(getKeyItemUserData(item), userData), DataEntry("Cantidad_de_tokens_a_comprar:_", orderAmount), DataEntry(("Investment_Amount,_waves_" + getKeyPaymentUser(item)), totalAmount), DataEntry(("Pago_en__waves_del_Inversor" + getKeyBalanceUser(item)), pmt.amount), DataEntry((("Request_Status:_" + userAddress) + "_"), "sold"), DataEntry((("User_Balance:_" + getKeyBalanceQtyUser(item)) + "_"), orderAmount), DataEntry(("Saldo_tokens:_" + getKeyBalanceQtySupplier(item)), newQty), DataEntry(("Saldo_waves_del_vendedor" + getKeyBalanceSupplier(account)), (getValueBalanceSupplier(account) + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderAmount, aBitCO2)]))
163
157
 
            }
164
158
 
    }
165
159
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 3 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
-
let cBitCO2 = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
4
+
let aBitCO2 = base58'ETbtNp6MBuSM9EfjmLDwctrYEBBiq8CZ7ti7zbwTktry'
5
5
 
6
6
 
let startQty = 332800
7
7
 
8
8
 
let nomPrice = 100000000
9
9
 
10
10
 
let discountPreIcoSupplier = 12
11
11
 
12
12
 
let OwnerEcoPubKey = base58'4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L'
13
13
 
14
14
 
let wvs = 100000000
15
15
 
16
16
 
let NONE = "none"
17
17
 
18
18
 
let issuer = Address(base58'3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4')
19
19
 
20
20
 
func getNumberByKey (key) = {
21
21
 
    let num =     match getInteger(this, key) {
22
22
 
        case a: Int => 
23
23
 
            a
24
24
 
        case _ => 
25
25
 
            0
26
26
 
    }
27
27
 
    num
28
28
 
    }
29
29
 
30
30
 
31
31
 
func getStrByKey (key) = {
32
32
 
    let str =     match getString(this, key) {
33
33
 
        case a: String => 
34
34
 
            a
35
35
 
        case _ => 
36
36
 
            NONE
37
37
 
    }
38
38
 
    str
39
39
 
    }
40
40
 
41
41
 
42
42
 
func getKeyItem (supplier,title) = ("BitCO2:_" + toBase58String(sha256(toBytes((supplier + title)))))
43
43
 
44
44
 
45
45
 
func getKeyItemSupplier (item) = (item + "_Amaz")
46
46
 
47
47
 
48
48
 
func getValueItemSupplier (item) = getStrByKey(getKeyItemSupplier(item))
49
49
 
50
50
 
51
51
 
func getKeyItemQty (item) = (item + "_tok.amount")
52
52
 
53
53
 
54
54
 
func getValueItemQty (item) = getNumberByKey(getKeyItemQty(item))
55
55
 
56
56
 
57
57
 
func getKeyBalanceQtySupplier (item) = (item + "_tokens")
58
58
 
59
59
 
60
60
 
func getValueBalanceQtySupplier (item) = getNumberByKey(getKeyBalanceQtySupplier(item))
61
61
 
62
62
 
63
63
 
func getKeyItemData (item) = (item + "_description")
64
64
 
65
65
 
66
66
 
func getKeyUserItemCounter (user,item) = (((item + "_") + user) + "_cnt")
67
67
 
68
68
 
69
69
 
func getValueUserItemCounter (user,item) = getNumberByKey(getKeyUserItemCounter(user, item))
70
70
 
71
71
 
72
72
 
func getKeyItemUserData (item) = (item + "_userdata")
73
73
 
74
74
 
75
75
 
func getKeyBalanceUser (item) = (item + "_saldwvsuser")
76
76
 
77
77
 
78
78
 
func getValueBalanceUser (item) = getNumberByKey(getKeyBalanceUser(item))
79
79
 
80
80
 
81
81
 
func getKeyPaymentUser (item) = (item + "_user.pmt")
82
82
 
83
83
 
84
84
 
func getValuePaymentUser (item) = getNumberByKey(getKeyPaymentUser(item))
85
85
 
86
86
 
87
87
 
func getKeyBalanceQtyUser (item) = (item + "_saldqty")
88
88
 
89
89
 
90
90
 
func getValueBalanceQtyUser (item) = getNumberByKey(getKeyBalanceQtyUser(item))
91
91
 
92
92
 
93
93
 
func getKeyItemUserOrderQty (item) = (item + "_qty")
94
94
 
95
95
 
96
96
 
func getValueItemUserOrderQty (item) = getNumberByKey(getKeyItemUserOrderQty(item))
97
97
 
98
98
 
99
99
 
func getKeyBalanceSupplier (account) = (account + "_balance")
100
100
 
101
101
 
102
102
 
func getValueBalanceSupplier (account) = getNumberByKey(getKeyBalanceSupplier(account))
103
103
 
104
104
 
105
105
 
func getKeyItemUser (item) = (("name:_" + item) + "_")
106
106
 
107
107
 
108
108
 
func getValueItemUser (item) = getStrByKey(getKeyItemUser(item))
109
109
 
110
110
 
111
111
 
func getKeyItemDiscountSupplier (item) = (("disc:_" + item) + "_")
112
112
 
113
113
 
114
114
 
func getValueItemDiscountSupplier (item) = getNumberByKey(getKeyItemDiscountSupplier(item))
115
115
 
116
116
 
117
117
 
func getKeyItemPriceSupplier (item) = (("Nom:_" + item) + "_")
118
118
 
119
119
 
120
120
 
func getValueItemPriceSupplier (item) = getNumberByKey(getKeyItemPriceSupplier(item))
121
121
 
122
122
 
123
123
 
@Callable(i)
124
-
func AddSupplierToken (title,supplierData) = {
124
+
func AddSupplierToken (title,preIcoQty,supplierData) = {
125
125
 
    let supplier = toBase58String(i.caller.bytes)
126
126
 
    let item = getKeyItem(supplier, title)
127
-
    let preIcoQty =     match getInteger(this, supplier) {
128
-
        case a: Int => 
129
-
            a
130
-
        case _ => 
131
-
            startQty
132
-
    }
133
127
 
    if ((0 >= preIcoQty))
134
128
 
        then throw("Sorry, insufficient token offer")
135
-
        else WriteSet([DataEntry(getKeyItemSupplier(item), supplier), DataEntry(getKeyBalanceQtySupplier(item), preIcoQty), DataEntry(("Precio_Nominal_de_1 token_cBitCO2:_" + getKeyItemPriceSupplier(item)), nomPrice), DataEntry(getKeyItemDiscountSupplier(item), discountPreIcoSupplier), DataEntry(getKeyItemData(item), supplierData)])
129
+
        else WriteSet([DataEntry(getKeyItemSupplier(item), supplier), DataEntry(("Saldo_tokens:_" + getKeyBalanceQtySupplier(item)), preIcoQty), DataEntry(("Precio_Nominal_de_1 token_cBitCO2:_" + getKeyItemPriceSupplier(item)), nomPrice), DataEntry(getKeyItemDiscountSupplier(item), discountPreIcoSupplier), DataEntry(getKeyItemData(item), supplierData)])
136
130
 
    }
137
131
 
138
132
 
139
133
 
140
134
 
@Callable(i)
141
135
 
func PurchaseToken (item,projectName,userData) = {
142
136
 
    let pmt = extract(i.payment)
143
137
 
    if (isDefined(pmt.assetId))
144
138
 
        then throw("you can adquire cBitCO2 only by Waves tokens")
145
139
 
        else {
146
140
 
            let account = getValueItemSupplier(item)
147
-
            let currentQty =             match getInteger(this, account) {
141
+
            let preIcoQty =             match getInteger(this, account) {
148
142
 
                case a: Int => 
149
143
 
                    a
150
144
 
                case _ => 
151
145
 
                    startQty
152
146
 
            }
153
147
 
            let userAddress = toBase58String(i.caller.bytes)
154
148
 
            let buyerTokenPrice = ((nomPrice * (100 - discountPreIcoSupplier)) / 100)
155
149
 
            let orderAmount = (pmt.amount / buyerTokenPrice)
156
-
            let newQty = (currentQty - orderAmount)
150
+
            let newQty = (preIcoQty - orderAmount)
157
151
 
            let totalAmount = (orderAmount * buyerTokenPrice)
158
152
 
            if ((totalAmount > pmt.amount))
159
153
 
                then throw("Payment Amount cannot be less than item Purchase Order")
160
154
 
                else if ((pmt.amount > totalAmount))
161
155
 
                    then throw("Payment Amount can't be higher than item Purchase Order")
162
-
                    else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(item), projectName), DataEntry(getKeyItemUserData(item), userData), DataEntry("Cantidad_de_tokens_a_comprar:_", orderAmount), DataEntry(("Investment_Amount,_waves_" + getKeyPaymentUser(item)), totalAmount), DataEntry(("Pago_en__waves_del_Inversor" + getKeyBalanceUser(item)), pmt.amount), DataEntry((("Request_Status:_" + userAddress) + "_"), "sold"), DataEntry((("User_Balance:_" + getKeyBalanceQtyUser(item)) + "_"), orderAmount), DataEntry(("Saldo_tokens_del_Proyecto" + getKeyBalanceQtySupplier(item)), newQty), DataEntry(("Saldo_waves_del_vendedor" + getKeyBalanceSupplier(account)), (getValueBalanceSupplier(account) + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderAmount, cBitCO2)]))
156
+
                    else ScriptResult(WriteSet([DataEntry(getKeyUserItemCounter(userAddress, item), (getValueUserItemCounter(userAddress, item) + 1)), DataEntry(getKeyItemSupplier(item), projectName), DataEntry(getKeyItemUserData(item), userData), DataEntry("Cantidad_de_tokens_a_comprar:_", orderAmount), DataEntry(("Investment_Amount,_waves_" + getKeyPaymentUser(item)), totalAmount), DataEntry(("Pago_en__waves_del_Inversor" + getKeyBalanceUser(item)), pmt.amount), DataEntry((("Request_Status:_" + userAddress) + "_"), "sold"), DataEntry((("User_Balance:_" + getKeyBalanceQtyUser(item)) + "_"), orderAmount), DataEntry(("Saldo_tokens:_" + getKeyBalanceQtySupplier(item)), newQty), DataEntry(("Saldo_waves_del_vendedor" + getKeyBalanceSupplier(account)), (getValueBalanceSupplier(account) + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderAmount, aBitCO2)]))
163
157
 
            }
164
158
 
    }
165
159
 
166
160
 
167
161
 
@Verifier(tx)
168
162
 
func verify () = match tx {
169
163
 
    case t: SetScriptTransaction => 
170
164
 
        sigVerify(tx.bodyBytes, tx.proofs[0], OwnerEcoPubKey)
171
165
 
    case d: DataTransaction => 
172
166
 
        true
173
167
 
    case tx: TransferTransaction => 
174
168
 
        true
175
169
 
    case tx: ExchangeTransaction => 
176
170
 
        let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
177
171
 
            then true
178
172
 
            else !(isDefined(tx.sellOrder.assetPair.amountAsset))
179
173
 
        withWaves
180
174
 
    case c: InvokeScriptTransaction => 
181
175
 
        true
182
176
 
    case _ => 
183
177
 
        false
184
178
 
}
185
179
 

github/deemru/w8io/026f985 
58.18 ms ◑