w8 · tx · 2Ej···tfa

tx · 2EjbzBc2KyqBpvtCeAcbGp4cNbA8qFTzMXzoDdYS4tfa

3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4:  -0.01400000 Waves

2020.03.10 12:25 [902854] smart account 3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "2EjbzBc2KyqBpvtCeAcbGp4cNbA8qFTzMXzoDdYS4tfa",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1583832368576,
    "version": 1,
    "sender": "3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4",
    "senderPublicKey": "4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L",
    "proofs": [
        "2Ybd7MiJT9xfk2dT9Ct3FouDMWyyA5mZfUsANGpps2bx2KuYE266kDCE7pQfpgsQntHGfg25ucrpBUyym4m7kVdT"
    ],
    "script": "base64:AAIDAAAAAAAAABAIARIFCgMIAQgSBQoDCAgIAAAAJQAAAAAHYUJpdENPMgEAAAAgx/h6AJ03UJ8qMmy7JIhz3VjOE4OL3ofCGi0oG2fBKJYAAAAACHN0YXJ0UXR5AAAAAAAABRQAAAAAAAhub21QcmljZQAAAAAABfXhAAAAAAAWZGlzY291bnRQcmVJY29TdXBwbGllcgAAAAAAAAAADAAAAAAOT3duZXJFY29QdWJLZXkBAAAAIC70W6NACRoO8DcwW0R46ze+bNGLr0tg3cAkNP8WNkAfAAAAAAN3dnMAAAAAAAX14QAAAAAABE5PTkUCAAAABG5vbmUAAAAABmlzc3VlcgkBAAAAB0FkZHJlc3MAAAABAQAAABoBVMr3Oz7nL9FV4g+t+EWzLN77jdANRWt9bwEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABAAAAA2tleQQAAAADbnVtBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABQAAAANudW0BAAAAC2dldFN0ckJ5S2V5AAAAAQAAAANrZXkEAAAAA3N0cgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAETk9ORQUAAAADc3RyAQAAAApnZXRLZXlJdGVtAAAAAgAAAAhzdXBwbGllcgAAAAV0aXRsZQkAASwAAAACAgAAAAhCaXRDTzI6XwkAAlgAAAABCQAB9wAAAAEJAAGbAAAAAQkAASwAAAACBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAVfQW1hegEAAAAUZ2V0VmFsdWVJdGVtU3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtAQAAAA1nZXRLZXlJdGVtUXR5AAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAAC190b2suYW1vdW50AQAAAA9nZXRWYWx1ZUl0ZW1RdHkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAAA1nZXRLZXlJdGVtUXR5AAAAAQUAAAAEaXRlbQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAAB190b2tlbnMBAAAAGmdldFZhbHVlQmFsYW5jZVF0eVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAMX2Rlc2NyaXB0aW9uAQAAABVnZXRLZXlVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAEaXRlbQIAAAABXwUAAAAEdXNlcgIAAAAEX2NudAEAAAAXZ2V0VmFsdWVVc2VySXRlbUNvdW50ZXIAAAACAAAABHVzZXIAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIFAAAABHVzZXIFAAAABGl0ZW0BAAAAEmdldEtleUl0ZW1Vc2VyRGF0YQAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAlfdXNlcmRhdGEBAAAAEWdldEtleUJhbGFuY2VVc2VyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAADF9zYWxkd3ZzdXNlcgEAAAATZ2V0VmFsdWVCYWxhbmNlVXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAEWdldEtleUJhbGFuY2VVc2VyAAAAAQUAAAAEaXRlbQEAAAARZ2V0S2V5UGF5bWVudFVzZXIAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAJX3VzZXIucG10AQAAABNnZXRWYWx1ZVBheW1lbnRVc2VyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAARZ2V0S2V5UGF5bWVudFVzZXIAAAABBQAAAARpdGVtAQAAABRnZXRLZXlCYWxhbmNlUXR5VXNlcgAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAhfc2FsZHF0eQEAAAAWZ2V0VmFsdWVCYWxhbmNlUXR5VXNlcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFGdldEtleUJhbGFuY2VRdHlVc2VyAAAAAQUAAAAEaXRlbQEAAAAWZ2V0S2V5SXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAARfcXR5AQAAABhnZXRWYWx1ZUl0ZW1Vc2VyT3JkZXJRdHkAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQUAAAAEaXRlbQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQAAAAdhY2NvdW50CQABLAAAAAIFAAAAB2FjY291bnQCAAAACF9iYWxhbmNlAQAAABdnZXRWYWx1ZUJhbGFuY2VTdXBwbGllcgAAAAEAAAAHYWNjb3VudAkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAAB2FjY291bnQBAAAADmdldEtleUl0ZW1Vc2VyAAAAAQAAAARpdGVtCQABLAAAAAIJAAEsAAAAAgIAAAAGbmFtZTpfBQAAAARpdGVtAgAAAAFfAQAAABBnZXRWYWx1ZUl0ZW1Vc2VyAAAAAQAAAARpdGVtCQEAAAALZ2V0U3RyQnlLZXkAAAABCQEAAAAOZ2V0S2V5SXRlbVVzZXIAAAABBQAAAARpdGVtAQAAABpnZXRLZXlJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAABmRpc2M6XwUAAAAEaXRlbQIAAAABXwEAAAAcZ2V0VmFsdWVJdGVtRGlzY291bnRTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQUAAAAEaXRlbQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABAAAABGl0ZW0JAAEsAAAAAgkAASwAAAACAgAAAAVOb206XwUAAAAEaXRlbQIAAAABXwEAAAAZZ2V0VmFsdWVJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAF2dldEtleUl0ZW1QcmljZVN1cHBsaWVyAAAAAQUAAAAEaXRlbQAAAAIAAAABaQEAAAAQQWRkU3VwcGxpZXJUb2tlbgAAAAMAAAAFdGl0bGUAAAAJcHJlSWNvUXR5AAAADHN1cHBsaWVyRGF0YQQAAAAIc3VwcGxpZXIJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAEaXRlbQkBAAAACmdldEtleUl0ZW0AAAACBQAAAAhzdXBwbGllcgUAAAAFdGl0bGUDCQAAZwAAAAIAAAAAAAAAAAAFAAAACXByZUljb1F0eQkAAAIAAAABAgAAAB9Tb3JyeSwgaW5zdWZmaWNpZW50IHRva2VuIG9mZmVyCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAOU2FsZG9fdG9rZW5zOl8JAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAlwcmVJY29RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAjUHJlY2lvX05vbWluYWxfZGVfMSB0b2tlbl9jQml0Q08yOl8JAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAACG5vbVByaWNlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAABZkaXNjb3VudFByZUljb1N1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABBQAAAARpdGVtBQAAAAxzdXBwbGllckRhdGEFAAAAA25pbAAAAAFpAQAAAA1QdXJjaGFzZVRva2VuAAAAAwAAAARpdGVtAAAAC3Byb2plY3ROYW1lAAAACHVzZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAseW91IGNhbiBhZHF1aXJlIGNCaXRDTzIgb25seSBieSBXYXZlcyB0b2tlbnMEAAAAB2FjY291bnQJAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0EAAAACXByZUljb1F0eQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAAdhY2NvdW50AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAACHN0YXJ0UXR5BAAAAAt1c2VyQWRkcmVzcwkAAlgAAAABCAgFAAAAAWkAAAAGY2FsbGVyAAAABWJ5dGVzBAAAAA9idXllclRva2VuUHJpY2UJAABpAAAAAgkAAGgAAAACBQAAAAhub21QcmljZQkAAGUAAAACAAAAAAAAAABkBQAAABZkaXNjb3VudFByZUljb1N1cHBsaWVyAAAAAAAAAABkBAAAAAtvcmRlckFtb3VudAkAAGkAAAACCAUAAAADcG10AAAABmFtb3VudAUAAAAPYnV5ZXJUb2tlblByaWNlBAAAAAZuZXdRdHkJAABlAAAAAgUAAAAJcHJlSWNvUXR5BQAAAAtvcmRlckFtb3VudAQAAAALdG90YWxBbW91bnQJAABoAAAAAgUAAAALb3JkZXJBbW91bnQFAAAAD2J1eWVyVG9rZW5QcmljZQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANlBheW1lbnQgQW1vdW50IGNhbm5vdCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAtwcm9qZWN0TmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleUl0ZW1Vc2VyRGF0YQAAAAEFAAAABGl0ZW0FAAAACHVzZXJEYXRhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAB5DYW50aWRhZF9kZV90b2tlbnNfYV9jb21wcmFyOl8FAAAAC29yZGVyQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAEVN1bWFfYV9pbnZlcnRpcjpfCQEAAAARZ2V0S2V5QmFsYW5jZVVzZXIAAAABBQAAAARpdGVtCAUAAAADcG10AAAABmFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAABBSZXF1ZXN0X1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAAEc29sZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAAA5Vc2VyX0JhbGFuY2U6XwkBAAAAFGdldEtleUJhbGFuY2VRdHlVc2VyAAAAAQUAAAAEaXRlbQkAAGQAAAACCQEAAAAWZ2V0VmFsdWVCYWxhbmNlUXR5VXNlcgAAAAEFAAAABGl0ZW0FAAAAC29yZGVyQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADlNhbGRvX3Rva2VuczpfCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAGbmV3UXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAADlNhbGRvX1NlbGxlcjpfCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAHYWNjb3VudAkAAGQAAAACCQEAAAAXZ2V0VmFsdWVCYWxhbmNlU3VwcGxpZXIAAAABBQAAAAdhY2NvdW50CAUAAAADcG10AAAABmFtb3VudAUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAALdXNlckFkZHJlc3MFAAAAC29yZGVyQW1vdW50BQAAAAdhQml0Q08yBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAUU2V0U2NyaXB0VHJhbnNhY3Rpb24EAAAAAXQFAAAAByRtYXRjaDAJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAABQAAAA5Pd25lckVjb1B1YktleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAPRGF0YVRyYW5zYWN0aW9uBAAAAAFkBQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATVHJhbnNmZXJUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAGAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABNFeGNoYW5nZVRyYW5zYWN0aW9uBAAAAAJ0eAUAAAAHJG1hdGNoMAQAAAAJd2l0aFdhdmVzAwkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAApwcmljZUFzc2V0BgkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQgICAUAAAACdHgAAAAJc2VsbE9yZGVyAAAACWFzc2V0UGFpcgAAAAthbW91bnRBc3NldAUAAAAJd2l0aFdhdmVzAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAABdJbnZva2VTY3JpcHRUcmFuc2FjdGlvbgQAAAABYwUAAAAHJG1hdGNoMAYHCsKN7A==",
    "chainId": 84,
    "height": 902854,
    "spentComplexity": 0
}

View: original | compacted
Prev: GKoaEa2R9sGpKnjtfeU4pHh33jh4SzeinxPayBxcNPiG
Next: 2XQSuNGWvp7kKVcnTwe3PPyEKqqK6ayu1NgW9CBHYTYa

Diff: 
Old New Differences
153 153                  then throw("Payment Amount cannot be less than item Purchase Order")
154 154                  else if ((pmt.amount > totalAmount))
155 155                      then throw("Payment Amount can't be higher than item Purchase Order")
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)]))
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(("Suma_a_invertir:_" + getKeyBalanceUser(item)), pmt.amount), DataEntry(("Request_Status:_" + userAddress), "sold"), DataEntry(("User_Balance:_" + getKeyBalanceQtyUser(item)), (getValueBalanceQtyUser(item) + orderAmount)), DataEntry(("Saldo_tokens:_" + getKeyBalanceQtySupplier(item)), newQty), DataEntry(("Saldo_Seller:_" + getKeyBalanceSupplier(account)), (getValueBalanceSupplier(account) + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderAmount, aBitCO2)]))
157 157              }
158 158      }
159 159  
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 = 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 124  func AddSupplierToken (title,preIcoQty,supplierData) = {
125 125      let supplier = toBase58String(i.caller.bytes)
126 126      let item = getKeyItem(supplier, title)
127 127      if ((0 >= preIcoQty))
128 128          then throw("Sorry, insufficient token offer")
129 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)])
130 130      }
131 131  
132 132  
133 133  
134 134  @Callable(i)
135 135  func PurchaseToken (item,projectName,userData) = {
136 136      let pmt = extract(i.payment)
137 137      if (isDefined(pmt.assetId))
138 138          then throw("you can adquire cBitCO2 only by Waves tokens")
139 139          else {
140 140              let account = getValueItemSupplier(item)
141 141              let preIcoQty =             match getInteger(this, account) {
142 142                  case a: Int => 
143 143                      a
144 144                  case _ => 
145 145                      startQty
146 146              }
147 147              let userAddress = toBase58String(i.caller.bytes)
148 148              let buyerTokenPrice = ((nomPrice * (100 - discountPreIcoSupplier)) / 100)
149 149              let orderAmount = (pmt.amount / buyerTokenPrice)
150 150              let newQty = (preIcoQty - orderAmount)
151 151              let totalAmount = (orderAmount * buyerTokenPrice)
152 152              if ((totalAmount > pmt.amount))
153 153                  then throw("Payment Amount cannot be less than item Purchase Order")
154 154                  else if ((pmt.amount > totalAmount))
155 155                      then throw("Payment Amount can't be higher than item Purchase Order")
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)]))
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(("Suma_a_invertir:_" + getKeyBalanceUser(item)), pmt.amount), DataEntry(("Request_Status:_" + userAddress), "sold"), DataEntry(("User_Balance:_" + getKeyBalanceQtyUser(item)), (getValueBalanceQtyUser(item) + orderAmount)), DataEntry(("Saldo_tokens:_" + getKeyBalanceQtySupplier(item)), newQty), DataEntry(("Saldo_Seller:_" + getKeyBalanceSupplier(account)), (getValueBalanceSupplier(account) + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderAmount, aBitCO2)]))
157 157              }
158 158      }
159 159  
160 160  
161 161  @Verifier(tx)
162 162  func verify () = match tx {
163 163      case t: SetScriptTransaction => 
164 164          sigVerify(tx.bodyBytes, tx.proofs[0], OwnerEcoPubKey)
165 165      case d: DataTransaction => 
166 166          true
167 167      case tx: TransferTransaction => 
168 168          true
169 169      case tx: ExchangeTransaction => 
170 170          let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
171 171              then true
172 172              else !(isDefined(tx.sellOrder.assetPair.amountAsset))
173 173          withWaves
174 174      case c: InvokeScriptTransaction => 
175 175          true
176 176      case _ => 
177 177          false
178 178  }
179 179

Old	New		Differences
153	153		then throw("Payment Amount cannot be less than item Purchase Order")
154	154		else if ((pmt.amount > totalAmount))
155	155		then throw("Payment Amount can't be higher than item Purchase Order")
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)]))
	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(("Suma_a_invertir:_" + getKeyBalanceUser(item)), pmt.amount), DataEntry(("Request_Status:_" + userAddress), "sold"), DataEntry(("User_Balance:_" + getKeyBalanceQtyUser(item)), (getValueBalanceQtyUser(item) + orderAmount)), DataEntry(("Saldo_tokens:_" + getKeyBalanceQtySupplier(item)), newQty), DataEntry(("Saldo_Seller:_" + getKeyBalanceSupplier(account)), (getValueBalanceSupplier(account) + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderAmount, aBitCO2)]))
157	157		}
158	158		}
159	159

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 = 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	124		func AddSupplierToken (title,preIcoQty,supplierData) = {
125	125		let supplier = toBase58String(i.caller.bytes)
126	126		let item = getKeyItem(supplier, title)
127	127		if ((0 >= preIcoQty))
128	128		then throw("Sorry, insufficient token offer")
129	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)])
130	130		}
131	131
132	132
133	133
134	134		@Callable(i)
135	135		func PurchaseToken (item,projectName,userData) = {
136	136		let pmt = extract(i.payment)
137	137		if (isDefined(pmt.assetId))
138	138		then throw("you can adquire cBitCO2 only by Waves tokens")
139	139		else {
140	140		let account = getValueItemSupplier(item)
141	141		let preIcoQty = match getInteger(this, account) {
142	142		case a: Int =>
143	143		a
144	144		case _ =>
145	145		startQty
146	146		}
147	147		let userAddress = toBase58String(i.caller.bytes)
148	148		let buyerTokenPrice = ((nomPrice * (100 - discountPreIcoSupplier)) / 100)
149	149		let orderAmount = (pmt.amount / buyerTokenPrice)
150	150		let newQty = (preIcoQty - orderAmount)
151	151		let totalAmount = (orderAmount * buyerTokenPrice)
152	152		if ((totalAmount > pmt.amount))
153	153		then throw("Payment Amount cannot be less than item Purchase Order")
154	154		else if ((pmt.amount > totalAmount))
155	155		then throw("Payment Amount can't be higher than item Purchase Order")
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)]))
	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(("Suma_a_invertir:_" + getKeyBalanceUser(item)), pmt.amount), DataEntry(("Request_Status:_" + userAddress), "sold"), DataEntry(("User_Balance:_" + getKeyBalanceQtyUser(item)), (getValueBalanceQtyUser(item) + orderAmount)), DataEntry(("Saldo_tokens:_" + getKeyBalanceQtySupplier(item)), newQty), DataEntry(("Saldo_Seller:_" + getKeyBalanceSupplier(account)), (getValueBalanceSupplier(account) + pmt.amount))]), TransferSet([ScriptTransfer(addressFromStringValue(userAddress), orderAmount, aBitCO2)]))
157	157		}
158	158		}
159	159
160	160
161	161		@Verifier(tx)
162	162		func verify () = match tx {
163	163		case t: SetScriptTransaction =>
164	164		sigVerify(tx.bodyBytes, tx.proofs[0], OwnerEcoPubKey)
165	165		case d: DataTransaction =>
166	166		true
167	167		case tx: TransferTransaction =>
168	168		true
169	169		case tx: ExchangeTransaction =>
170	170		let withWaves = if (!(isDefined(tx.sellOrder.assetPair.priceAsset)))
171	171		then true
172	172		else !(isDefined(tx.sellOrder.assetPair.amountAsset))
173	173		withWaves
174	174		case c: InvokeScriptTransaction =>
175	175		true
176	176		case _ =>
177	177		false
178	178		}
179	179

github/deemru/w8io/026f985 
42.59 ms ◑