w8 · tx · Cvb···oKS

tx · CvbEKPABuvZ6ARxhi2SkzVXjkgkhT2nJmVsdauMkjoKS

3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4:  -0.01400000 Waves

2020.03.09 23:35 [902081] smart account 3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CvbEKPABuvZ6ARxhi2SkzVXjkgkhT2nJmVsdauMkjoKS",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1583786106356,
    "version": 1,
    "sender": "3N8RGScPyKYySaXd5Z3VcpnttH2uBeMpSy4",
    "senderPublicKey": "4AHsCbS9QYVdKNvxrPWwsMwwy3KqXaCMXeAscExJZk9L",
    "proofs": [
        "2FFgRVvw2xtxdjv5MtJ5BfAwTmitamPVbCLW4jYFWcvAHQdmGJFGKm2hD4BVQYVyCA6Tw8QZC5EcZnKrdhk9rdwo"
    ],
    "script": "base64:AAIDAAAAAAAAAA8IARIECgIICBIFCgMICAgAAAAlAAAAAAdjQml0Q08yAQAAACDH+HoAnTdQnyoybLskiHPdWM4Tg4veh8IaLSgbZ8EolgAAAAAIc3RhcnRRdHkAAAAAAAAFFAAAAAAACG5vbVByaWNlAAAAAAAF9eEAAAAAABZkaXNjb3VudFByZUljb1N1cHBsaWVyAAAAAAAAAAAMAAAAAA5Pd25lckVjb1B1YktleQEAAAAgLvRbo0AJGg7wNzBbRHjrN75s0YuvS2DdwCQ0/xY2QB8AAAAAA3d2cwAAAAAABfXhAAAAAAAETk9ORQIAAAAEbm9uZQAAAAAGaXNzdWVyCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUyvc7Pucv0VXiD634RbMs3vuN0A1Fa31vAQAAAA5nZXROdW1iZXJCeUtleQAAAAEAAAADa2V5BAAAAANudW0EAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEAAAAAAAAAAAAFAAAAA251bQEAAAALZ2V0U3RyQnlLZXkAAAABAAAAA2tleQQAAAADc3RyBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhBQAAAAROT05FBQAAAANzdHIBAAAACmdldEtleUl0ZW0AAAACAAAACHN1cHBsaWVyAAAABXRpdGxlCQABLAAAAAICAAAACEJpdENPMjpfCQACWAAAAAEJAAH3AAAAAQkAAZsAAAABCQABLAAAAAIFAAAACHN1cHBsaWVyBQAAAAV0aXRsZQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAABV9BbWF6AQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEAAAAEaXRlbQkBAAAAC2dldFN0ckJ5S2V5AAAAAQkBAAAAEmdldEtleUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0BAAAADWdldEtleUl0ZW1RdHkAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAALX3Rvay5hbW91bnQBAAAAD2dldFZhbHVlSXRlbVF0eQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAADWdldEtleUl0ZW1RdHkAAAABBQAAAARpdGVtAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAHX3Rva2VucwEAAAAaZ2V0VmFsdWVCYWxhbmNlUXR5U3VwcGxpZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAAA5nZXRLZXlJdGVtRGF0YQAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAxfZGVzY3JpcHRpb24BAAAAFWdldEtleVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtCQABLAAAAAIJAAEsAAAAAgkAASwAAAACBQAAAARpdGVtAgAAAAFfBQAAAAR1c2VyAgAAAARfY250AQAAABdnZXRWYWx1ZVVzZXJJdGVtQ291bnRlcgAAAAIAAAAEdXNlcgAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAAEdXNlcgUAAAAEaXRlbQEAAAASZ2V0S2V5SXRlbVVzZXJEYXRhAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAACV91c2VyZGF0YQEAAAARZ2V0S2V5QmFsYW5jZVVzZXIAAAABAAAABGl0ZW0JAAEsAAAAAgUAAAAEaXRlbQIAAAAMX3NhbGR3dnN1c2VyAQAAABNnZXRWYWx1ZUJhbGFuY2VVc2VyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAARZ2V0S2V5QmFsYW5jZVVzZXIAAAABBQAAAARpdGVtAQAAABFnZXRLZXlQYXltZW50VXNlcgAAAAEAAAAEaXRlbQkAASwAAAACBQAAAARpdGVtAgAAAAlfdXNlci5wbXQBAAAAE2dldFZhbHVlUGF5bWVudFVzZXIAAAABAAAABGl0ZW0JAQAAAA5nZXROdW1iZXJCeUtleQAAAAEJAQAAABFnZXRLZXlQYXltZW50VXNlcgAAAAEFAAAABGl0ZW0BAAAAFGdldEtleUJhbGFuY2VRdHlVc2VyAAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAACF9zYWxkcXR5AQAAABZnZXRWYWx1ZUJhbGFuY2VRdHlVc2VyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAUZ2V0S2V5QmFsYW5jZVF0eVVzZXIAAAABBQAAAARpdGVtAQAAABZnZXRLZXlJdGVtVXNlck9yZGVyUXR5AAAAAQAAAARpdGVtCQABLAAAAAIFAAAABGl0ZW0CAAAABF9xdHkBAAAAGGdldFZhbHVlSXRlbVVzZXJPcmRlclF0eQAAAAEAAAAEaXRlbQkBAAAADmdldE51bWJlckJ5S2V5AAAAAQkBAAAAFmdldEtleUl0ZW1Vc2VyT3JkZXJRdHkAAAABBQAAAARpdGVtAQAAABVnZXRLZXlCYWxhbmNlU3VwcGxpZXIAAAABAAAAB2FjY291bnQJAAEsAAAAAgUAAAAHYWNjb3VudAIAAAAIX2JhbGFuY2UBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQAAAAdhY2NvdW50CQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAVZ2V0S2V5QmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAHYWNjb3VudAEAAAAOZ2V0S2V5SXRlbVVzZXIAAAABAAAABGl0ZW0JAAEsAAAAAgkAASwAAAACAgAAAAZuYW1lOl8FAAAABGl0ZW0CAAAAAV8BAAAAEGdldFZhbHVlSXRlbVVzZXIAAAABAAAABGl0ZW0JAQAAAAtnZXRTdHJCeUtleQAAAAEJAQAAAA5nZXRLZXlJdGVtVXNlcgAAAAEFAAAABGl0ZW0BAAAAGmdldEtleUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQAAAARpdGVtCQABLAAAAAIJAAEsAAAAAgIAAAAGZGlzYzpfBQAAAARpdGVtAgAAAAFfAQAAABxnZXRWYWx1ZUl0ZW1EaXNjb3VudFN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEAAAAEaXRlbQkAASwAAAACCQABLAAAAAICAAAABU5vbTpfBQAAAARpdGVtAgAAAAFfAQAAABlnZXRWYWx1ZUl0ZW1QcmljZVN1cHBsaWVyAAAAAQAAAARpdGVtCQEAAAAOZ2V0TnVtYmVyQnlLZXkAAAABCQEAAAAXZ2V0S2V5SXRlbVByaWNlU3VwcGxpZXIAAAABBQAAAARpdGVtAAAAAgAAAAFpAQAAABBBZGRTdXBwbGllclRva2VuAAAAAgAAAAV0aXRsZQAAAAxzdXBwbGllckRhdGEEAAAACHN1cHBsaWVyCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAABGl0ZW0JAQAAAApnZXRLZXlJdGVtAAAAAgUAAAAIc3VwcGxpZXIFAAAABXRpdGxlBAAAAAlwcmVJY29RdHkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAAIc3VwcGxpZXIDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQUAAAAIc3RhcnRRdHkDCQAAZwAAAAIAAAAAAAAAAAAFAAAACXByZUljb1F0eQkAAAIAAAABAgAAAB9Tb3JyeSwgaW5zdWZmaWNpZW50IHRva2VuIG9mZmVyCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAASZ2V0S2V5SXRlbVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAIc3VwcGxpZXIJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABhnZXRLZXlCYWxhbmNlUXR5U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAlwcmVJY29RdHkJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgIAAAAjUHJlY2lvX05vbWluYWxfZGVfMSB0b2tlbl9jQml0Q08yOl8JAQAAABdnZXRLZXlJdGVtUHJpY2VTdXBwbGllcgAAAAEFAAAABGl0ZW0FAAAACG5vbVByaWNlCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAaZ2V0S2V5SXRlbURpc2NvdW50U3VwcGxpZXIAAAABBQAAAARpdGVtBQAAABZkaXNjb3VudFByZUljb1N1cHBsaWVyCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAOZ2V0S2V5SXRlbURhdGEAAAABBQAAAARpdGVtBQAAAAxzdXBwbGllckRhdGEFAAAAA25pbAAAAAFpAQAAAA1QdXJjaGFzZVRva2VuAAAAAwAAAARpdGVtAAAAC3Byb2plY3ROYW1lAAAACHVzZXJEYXRhBAAAAANwbXQJAQAAAAdleHRyYWN0AAAAAQgFAAAAAWkAAAAHcGF5bWVudAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAseW91IGNhbiBhZHF1aXJlIGNCaXRDTzIgb25seSBieSBXYXZlcyB0b2tlbnMEAAAAB2FjY291bnQJAQAAABRnZXRWYWx1ZUl0ZW1TdXBwbGllcgAAAAEFAAAABGl0ZW0EAAAACmN1cnJlbnRRdHkJAQAAABpnZXRWYWx1ZUJhbGFuY2VRdHlTdXBwbGllcgAAAAEFAAAABGl0ZW0EAAAAC3VzZXJBZGRyZXNzCQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAAD2J1eWVyVG9rZW5QcmljZQkAAGkAAAACCQAAaAAAAAIFAAAACG5vbVByaWNlCQAAZQAAAAIAAAAAAAAAAGQFAAAAFmRpc2NvdW50UHJlSWNvU3VwcGxpZXIAAAAAAAAAAGQEAAAAC29yZGVyQW1vdW50CQAAaQAAAAIIBQAAAANwbXQAAAAGYW1vdW50BQAAAA9idXllclRva2VuUHJpY2UEAAAABm5ld1F0eQkAAGUAAAACBQAAAApjdXJyZW50UXR5BQAAAAtvcmRlckFtb3VudAQAAAALdG90YWxBbW91bnQJAABoAAAAAgUAAAALb3JkZXJBbW91bnQFAAAAD2J1eWVyVG9rZW5QcmljZQMJAABmAAAAAgUAAAALdG90YWxBbW91bnQIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAANlBheW1lbnQgQW1vdW50IGNhbm5vdCBiZSBsZXNzIHRoYW4gaXRlbSBQdXJjaGFzZSBPcmRlcgMJAABmAAAAAggFAAAAA3BtdAAAAAZhbW91bnQFAAAAC3RvdGFsQW1vdW50CQAAAgAAAAECAAAAN1BheW1lbnQgQW1vdW50IGNhbid0IGJlIGhpZ2hlciB0aGFuIGl0ZW0gUHVyY2hhc2UgT3JkZXIJAQAAAAxTY3JpcHRSZXN1bHQAAAACCQEAAAAIV3JpdGVTZXQAAAABCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQEAAAAVZ2V0S2V5VXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0JAABkAAAAAgkBAAAAF2dldFZhbHVlVXNlckl0ZW1Db3VudGVyAAAAAgUAAAALdXNlckFkZHJlc3MFAAAABGl0ZW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAQAAABJnZXRLZXlJdGVtU3VwcGxpZXIAAAABBQAAAARpdGVtBQAAAAtwcm9qZWN0TmFtZQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkBAAAAEmdldEtleUl0ZW1Vc2VyRGF0YQAAAAEFAAAABGl0ZW0FAAAACHVzZXJEYXRhCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACAgAAAB5DYW50aWRhZF9kZV90b2tlbnNfYV9jb21wcmFyOl8FAAAAC29yZGVyQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAGUludmVzdG1lbnRfQW1vdW50LF93YXZlc18JAQAAABFnZXRLZXlQYXltZW50VXNlcgAAAAEFAAAABGl0ZW0FAAAAC3RvdGFsQW1vdW50CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAG1BhZ29fZW5fX3dhdmVzX2RlbF9JbnZlcnNvcgkBAAAAEWdldEtleUJhbGFuY2VVc2VyAAAAAQUAAAAEaXRlbQgFAAAAA3BtdAAAAAZhbW91bnQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACAgAAABBSZXF1ZXN0X1N0YXR1czpfBQAAAAt1c2VyQWRkcmVzcwIAAAABXwIAAAAEc29sZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACCQABLAAAAAICAAAADlVzZXJfQmFsYW5jZTpfCQEAAAAUZ2V0S2V5QmFsYW5jZVF0eVVzZXIAAAABBQAAAARpdGVtAgAAAAFfBQAAAAtvcmRlckFtb3VudAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACAgAAABlTYWxkb190b2tlbnNfZGVsX1Byb3llY3RvCQEAAAAYZ2V0S2V5QmFsYW5jZVF0eVN1cHBsaWVyAAAAAQUAAAAEaXRlbQUAAAAGbmV3UXR5CQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAGFNhbGRvX3dhdmVzX2RlbF92ZW5kZWRvcgkBAAAAFWdldEtleUJhbGFuY2VTdXBwbGllcgAAAAEFAAAAB2FjY291bnQJAABkAAAAAgkBAAAAF2dldFZhbHVlQmFsYW5jZVN1cHBsaWVyAAAAAQUAAAAHYWNjb3VudAgFAAAAA3BtdAAAAAZhbW91bnQFAAAAA25pbAkBAAAAC1RyYW5zZmVyU2V0AAAAAQUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAFFNldFNjcmlwdFRyYW5zYWN0aW9uBAAAAAF0BQAAAAckbWF0Y2gwCQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAUAAAAOT3duZXJFY29QdWJLZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAD0RhdGFUcmFuc2FjdGlvbgQAAAABZAUAAAAHJG1hdGNoMAYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAE1RyYW5zZmVyVHJhbnNhY3Rpb24EAAAAAnR4BQAAAAckbWF0Y2gwBgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAATRXhjaGFuZ2VUcmFuc2FjdGlvbgQAAAACdHgFAAAAByRtYXRjaDAEAAAACXdpdGhXYXZlcwMJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAAKcHJpY2VBc3NldAYJAQAAAAEhAAAAAQkBAAAACWlzRGVmaW5lZAAAAAEICAgFAAAAAnR4AAAACXNlbGxPcmRlcgAAAAlhc3NldFBhaXIAAAALYW1vdW50QXNzZXQFAAAACXdpdGhXYXZlcwMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAXSW52b2tlU2NyaXB0VHJhbnNhY3Rpb24EAAAAAWMFAAAAByRtYXRjaDAGB6G66ZU=",
    "chainId": 84,
    "height": 902081,
    "spentComplexity": 0
}

View: original | compacted
Prev: GdXBXJ7JdwKA6jiox4223Ps1qfrETUShSJnVdtonZy2h
Next: A6n8FZhX6R7VnnYBs9wawuQSpSs232CSumHTbMuZomyx

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

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

github/deemru/w8io/3ef1775 
55.96 ms ◑