w8 · tx · AAy···w7o

tx · AAyFb5Y5cDA4tGFwUX8XLPGD8sdPbPJgLCUjozTdPw7o

3N1XAEyg1TQGa5FCEerrRhLGi5KyVq26Xm8:  -0.00400000 Waves

2023.01.23 18:23 [2417776] smart account 3N1XAEyg1TQGa5FCEerrRhLGi5KyVq26Xm8 > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AAyFb5Y5cDA4tGFwUX8XLPGD8sdPbPJgLCUjozTdPw7o",
    "fee": 400000,
    "feeAssetId": null,
    "timestamp": 1674487442512,
    "version": 2,
    "chainId": 84,
    "sender": "3N1XAEyg1TQGa5FCEerrRhLGi5KyVq26Xm8",
    "senderPublicKey": "ATuPi6fn8277fNiCoRgPTav9QG15CJoW95GEGcDmfYt8",
    "proofs": [
        "5AoqhqxnuZ1Mg2EzpQWevv9RS1PjJbDTcTHZUiiHFyVbrYvV4CHkPYDNTUBwCxfVvoD3oHnskFuPkgLV55mnvnzw"
    ],
    "script": "base64:BgIYCAISABIAEgASABIDCgEIEgASABIDCgEIGQAFd2NkSWQCLDVXRTZIQlZzbUFiYXBUbVRLcG15V21VUjY3ZmMxNnliRnJOanh6bURCdFBhAAt3Y2REZWNpbWFscwACARN0b3RhbFNoYXJlQnlVc2VyS0VZAQVvd25lcgkAuQkCCQDMCAICBnNoYXJlcwkAzAgCBQVvd25lcgUDbmlsAgFfARR0b3RhbFNoYXJlQnlVc2VyUkVBRAEFb3duZXIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkBE3RvdGFsU2hhcmVCeVVzZXJLRVkBBQVvd25lcgAAABJ0b3RhbElzc3VlZFdDRF9LRVkCEHRvdGFsX2lzc3VlZF9XQ0QBE3RvdGFsSXNzdWVkV0NEX1JFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFEnRvdGFsSXNzdWVkV0NEX0tFWQAAAA50b3RhbFNoYXJlc0tFWQIMdG90YWxfc2hhcmVzAQ90b3RhbFNoYXJlc1JFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFDnRvdGFsU2hhcmVzS0VZAAAAEnRvdGFsQ29sbGF0ZXJhbEtFWQIQdG90YWxfY29sbGF0ZXJhbAETdG90YWxDb2xsYXRlcmFsUkVBRAAJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwUSdG90YWxDb2xsYXRlcmFsS0VZAAAADUlOSVRJQUxfUFJJQ0UAgLi4cgAXd2F2ZXNSZWZlcmVuY2VQcmljZV9LRVkCFXdhdmVzX3JlZmVyZW5jZV9wcmljZQEYd2F2ZXNSZWZlcmVuY2VQcmljZV9SRUFEAAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBRd3YXZlc1JlZmVyZW5jZVByaWNlX0tFWQUNSU5JVElBTF9QUklDRQERdXNlclNoYXJlRnJhY3Rpb24BBW93bmVyBAt0b3RhbFNoYXJlcwkBD3RvdGFsU2hhcmVzUkVBRAADCQBmAgULdG90YWxTaGFyZXMAAAQOdG90YWxVc2VyU2hhcmUJARR0b3RhbFNoYXJlQnlVc2VyUkVBRAEFBW93bmVyCQBrAwCAwtcvBQ50b3RhbFVzZXJTaGFyZQULdG90YWxTaGFyZXMAAAAKcGFyYW1BX0tFWQIBQQELcGFyYW1BX1JFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMCAUEAZAEPY29tcHV0ZUxvZ1RNRElSAgppc3N1ZWRfd2NkAUEJAGUCAIDKte4BCQBoAgkAbQYFCmlzc3VlZF93Y2QFC3djZERlY2ltYWxzAAoAAAAGBQZIQUxGVVAFAUEBDVRNRElSbXVsdGlwbHkDBmFtb3VudAppc3N1ZWRfd2NkAUEJAGsDBQZhbW91bnQJAGwGAAoAAAkBD2NvbXB1dGVMb2dUTURJUgIFCmlzc3VlZF93Y2QFAUEACAAIBQZIQUxGVVAAgMLXLwELY29tcHV0ZVRNREkCCmlzc3VlZF93Y2QBQQMJAGYCBQppc3N1ZWRfd2NkAICt4gQJAQ1UTURJUm11bHRpcGx5AwUKaXNzdWVkX3djZAUKaXNzdWVkX3djZAUBQQCAreIEAQdnZXRUTURJAAkBC2NvbXB1dGVUTURJAgkBE3RvdGFsSXNzdWVkV0NEX1JFQUQACQELcGFyYW1BX1JFQUQAAQtnZXRCYXNlVE1EVQAEBGRpZmYJAGUCCQETdG90YWxDb2xsYXRlcmFsUkVBRAAJAQ90b3RhbFNoYXJlc1JFQUQACQENVE1ESVJtdWx0aXBseQMJAGgCBQRkaWZmAAoJARN0b3RhbElzc3VlZFdDRF9SRUFEAAkBC3BhcmFtQV9SRUFEAAEHZ2V0VE1EVQAEBGRpZmYJAGUCCQETdG90YWxDb2xsYXRlcmFsUkVBRAAJAQ90b3RhbFNoYXJlc1JFQUQAAwkAZgIFBGRpZmYAAAQZbWF4X2Jhc2VfdW5sb2NrYWJsZV93YXZlcwkBC2dldEJhc2VUTURVAAMJAGYCBQRkaWZmBRltYXhfYmFzZV91bmxvY2thYmxlX3dhdmVzBRltYXhfYmFzZV91bmxvY2thYmxlX3dhdmVzBQRkaWZmAAABEWdldFVzZXJUTURJX1dBVkVTAQVvd25lcgkAaAIAwIQ9CQBrAwkBB2dldFRNREkACQERdXNlclNoYXJlRnJhY3Rpb24BBQVvd25lcgkBGHdhdmVzUmVmZXJlbmNlUHJpY2VfUkVBRAABC2dldFVzZXJUTURVAQVvd25lcgkAawMJAQdnZXRUTURVAAkBEXVzZXJTaGFyZUZyYWN0aW9uAQUFb3duZXIAgMLXLwEPZ2V0VXNlclRNRFVfV0NEAQVvd25lcgkAawMJAGsDCQEHZ2V0VE1EVQAJARF1c2VyU2hhcmVGcmFjdGlvbgEFBW93bmVyAIDC1y8JARh3YXZlc1JlZmVyZW5jZVByaWNlX1JFQUQAAIDC1y8IAWkBDWRlcG9zaXRfc2hhcmUABANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAhxBdHRhY2hlZCBwYXltZW50IGlzIHJlcXVpcmVkAwkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAkAAgECFk9ubHkgV0FWRVMgaXMgYWxsb3dlZC4EB2FjY291bnQJAKUIAQgFAWkGY2FsbGVyBBB0b3RhbFNoYXJlQnlVc2VyCQEUdG90YWxTaGFyZUJ5VXNlclJFQUQBBQdhY2NvdW50BAt0b3RhbFNoYXJlcwkBD3RvdGFsU2hhcmVzUkVBRAAED3RvdGFsQ29sbGF0ZXJhbAkBE3RvdGFsQ29sbGF0ZXJhbFJFQUQACQDMCAIJAQxJbnRlZ2VyRW50cnkCCQETdG90YWxTaGFyZUJ5VXNlcktFWQEFB2FjY291bnQJAGQCBRB0b3RhbFNoYXJlQnlVc2VyCAUDcG10BmFtb3VudAkAzAgCCQEMSW50ZWdlckVudHJ5AgUOdG90YWxTaGFyZXNLRVkJAGQCBQt0b3RhbFNoYXJlcwgFA3BtdAZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFEnRvdGFsQ29sbGF0ZXJhbEtFWQkAZAIFD3RvdGFsQ29sbGF0ZXJhbAgFA3BtdAZhbW91bnQFA25pbAFpAQVpc3N1ZQAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECHEF0dGFjaGVkIHBheW1lbnQgaXMgcmVxdWlyZWQDCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkCQACAQIWT25seSBXQVZFUyBpcyBhbGxvd2VkLgQHYWNjb3VudAkApQgBCAUBaQZjYWxsZXIECW1heF93YXZlcwkBEWdldFVzZXJUTURJX1dBVkVTAQUHYWNjb3VudAMJAGYCCAUDcG10BmFtb3VudAUJbWF4X3dhdmVzCQACAQkArAICCQCsAgIJAKwCAgkArAICAhNVc2VyIGxvY2sgbGltaXQgaXMgCQCkAwEFCW1heF93YXZlcwINIFdBVkVTLiBTZW50IAkApAMBCAUDcG10BmFtb3VudAIHIFdBVkVTLgQQd2NkX2lzc3VlX2Ftb3VudAkAawMIBQNwbXQGYW1vdW50CQEYd2F2ZXNSZWZlcmVuY2VQcmljZV9SRUFEAACAgOmDsd4WBA90b3RhbENvbGxhdGVyYWwJARN0b3RhbENvbGxhdGVyYWxSRUFEAAQMdG90YWxfaXNzdWVkCQETdG90YWxJc3N1ZWRXQ0RfUkVBRAAJAMwIAgkBDEludGVnZXJFbnRyeQIFEnRvdGFsQ29sbGF0ZXJhbEtFWQkAZAIFD3RvdGFsQ29sbGF0ZXJhbAgFA3BtdAZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFEnRvdGFsSXNzdWVkV0NEX0tFWQkAZAIFDHRvdGFsX2lzc3VlZAUQd2NkX2lzc3VlX2Ftb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhY2NvdW50BRB3Y2RfaXNzdWVfYW1vdW50CQDZBAEFBXdjZElkBQNuaWwBaQEEYnVybgAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECHEF0dGFjaGVkIHBheW1lbnQgaXMgcmVxdWlyZWQDCQECIT0CCAUDcG10B2Fzc2V0SWQJANkEAQUFd2NkSWQJAAIBAhRPbmx5IFdDRCBpcyBhbGxvd2VkLgQHYWNjb3VudAkApQgBCAUBaQZjYWxsZXIEEG1heF9idXJuYWJsZV93Y2QJAQ9nZXRVc2VyVE1EVV9XQ0QBBQdhY2NvdW50BBR3Y2RfYW1vdW50X2VpZ2h0X2RlYwkAaAIIBQNwbXQGYW1vdW50AMCEPQMJAGYCBRR3Y2RfYW1vdW50X2VpZ2h0X2RlYwUQbWF4X2J1cm5hYmxlX3djZAkAAgEJAKwCAgkArAICAhFVc2VyIGJ1cm4gbGltaXQ6IAkApAMBBRBtYXhfYnVybmFibGVfd2NkAgQgV0NEBAx1bmxvY2tfd2F2ZXMJAGsDBRR3Y2RfYW1vdW50X2VpZ2h0X2RlYwCAwtcvCQEYd2F2ZXNSZWZlcmVuY2VQcmljZV9SRUFEAAkAAgEJAKQDAQUMdW5sb2NrX3dhdmVzAWkBDXRlc3RfZ2V0X3RtZGkACQACAQkArAICAghSZXN1bHQ6IAkApAMBCQEHZ2V0VE1ESQABaQESdGVzdF9nZXRfdXNlcl90bWRpAQdhY2NvdW50CQACAQkArAICAghSZXN1bHQ6IAkApAMBCQERZ2V0VXNlclRNRElfV0FWRVMBBQdhY2NvdW50AWkBEnRlc3RfZ2V0X2Jhc2VfdG1kdQAJAAIBCQCsAgICCFJlc3VsdDogCQCkAwEJAQtnZXRCYXNlVE1EVQABaQENdGVzdF9nZXRfdG1kdQAJAAIBCQCsAgICCFJlc3VsdDogCQCkAwEJAQdnZXRUTURVAAFpARJ0ZXN0X2dldF91c2VyX3RtZHUBB2FjY291bnQJAAIBCQCsAgICCFJlc3VsdDogCQCkAwEJAQ9nZXRVc2VyVE1EVV9XQ0QBBQdhY2NvdW50ACzUbg4=",
    "height": 2417776,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GMYmhaAPyrM83jajA9efwXRzDwrF7AGea96w92bWhoyZ
Next: none

Diff: 
Old New Differences
142 142          else {
143 143              let account = toString(i.caller)
144 144              let max_burnable_wcd = getUserTMDU_WCD(account)
145 -             if ((pmt.amount > max_burnable_wcd))
145 +             let wcd_amount_eight_dec = (pmt.amount * 1000000)
146 +             if ((wcd_amount_eight_dec > max_burnable_wcd))
146 147                  then throw((("User burn limit: " + toString(max_burnable_wcd)) + " WCD"))
147 148                  else {
148 -                     let unlock_waves = fraction(pmt.amount, 100000000000000, wavesReferencePrice_READ())
149 +                     let unlock_waves = fraction(wcd_amount_eight_dec, 100000000, wavesReferencePrice_READ())
149 150                      throw(toString(unlock_waves))
150 151                      }
151 152              }
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let wcdId = "5WE6HBVsmAbapTmTKpmyWmUR67fc16ybFrNjxzmDBtPa"
5 5  
6 6  let wcdDecimals = 2
7 7  
8 8  func totalShareByUserKEY (owner) = makeString(["shares", owner], "_")
9 9  
10 10  
11 11  func totalShareByUserREAD (owner) = valueOrElse(getInteger(this, totalShareByUserKEY(owner)), 0)
12 12  
13 13  
14 14  let totalIssuedWCD_KEY = "total_issued_WCD"
15 15  
16 16  func totalIssuedWCD_READ () = valueOrElse(getInteger(this, totalIssuedWCD_KEY), 0)
17 17  
18 18  
19 19  let totalSharesKEY = "total_shares"
20 20  
21 21  func totalSharesREAD () = valueOrElse(getInteger(this, totalSharesKEY), 0)
22 22  
23 23  
24 24  let totalCollateralKEY = "total_collateral"
25 25  
26 26  func totalCollateralREAD () = valueOrElse(getInteger(this, totalCollateralKEY), 0)
27 27  
28 28  
29 29  let INITIAL_PRICE = 240000000
30 30  
31 31  let wavesReferencePrice_KEY = "waves_reference_price"
32 32  
33 33  func wavesReferencePrice_READ () = valueOrElse(getInteger(this, wavesReferencePrice_KEY), INITIAL_PRICE)
34 34  
35 35  
36 36  func userShareFraction (owner) = {
37 37      let totalShares = totalSharesREAD()
38 38      if ((totalShares > 0))
39 39          then {
40 40              let totalUserShare = totalShareByUserREAD(owner)
41 41              fraction(100000000, totalUserShare, totalShares)
42 42              }
43 43          else 0
44 44      }
45 45  
46 46  
47 47  let paramA_KEY = "A"
48 48  
49 49  func paramA_READ () = valueOrElse(getInteger(this, "A"), 100)
50 50  
51 51  
52 52  func computeLogTMDIR (issued_wcd,A) = (500000000 - (log(issued_wcd, wcdDecimals, 10, 0, 6, HALFUP) * A))
53 53  
54 54  
55 55  func TMDIRmultiply (amount,issued_wcd,A) = fraction(amount, pow(10, 0, computeLogTMDIR(issued_wcd, A), 8, 8, HALFUP), 100000000)
56 56  
57 57  
58 58  func computeTMDI (issued_wcd,A) = if ((issued_wcd > 10000000))
59 59      then TMDIRmultiply(issued_wcd, issued_wcd, A)
60 60      else 10000000
61 61  
62 62  
63 63  func getTMDI () = computeTMDI(totalIssuedWCD_READ(), paramA_READ())
64 64  
65 65  
66 66  func getBaseTMDU () = {
67 67      let diff = (totalCollateralREAD() - totalSharesREAD())
68 68      TMDIRmultiply((diff * 10), totalIssuedWCD_READ(), paramA_READ())
69 69      }
70 70  
71 71  
72 72  func getTMDU () = {
73 73      let diff = (totalCollateralREAD() - totalSharesREAD())
74 74      if ((diff > 0))
75 75          then {
76 76              let max_base_unlockable_waves = getBaseTMDU()
77 77              if ((diff > max_base_unlockable_waves))
78 78                  then max_base_unlockable_waves
79 79                  else diff
80 80              }
81 81          else 0
82 82      }
83 83  
84 84  
85 85  func getUserTMDI_WAVES (owner) = (1000000 * fraction(getTMDI(), userShareFraction(owner), wavesReferencePrice_READ()))
86 86  
87 87  
88 88  func getUserTMDU (owner) = fraction(getTMDU(), userShareFraction(owner), 100000000)
89 89  
90 90  
91 91  func getUserTMDU_WCD (owner) = fraction(fraction(getTMDU(), userShareFraction(owner), 100000000), wavesReferencePrice_READ(), 100000000)
92 92  
93 93  
94 94  @Callable(i)
95 95  func deposit_share () = {
96 96      let pmt = if ((size(i.payments) == 1))
97 97          then i.payments[0]
98 98          else throw("Attached payment is required")
99 99      if (isDefined(pmt.assetId))
100 100          then throw("Only WAVES is allowed.")
101 101          else {
102 102              let account = toString(i.caller)
103 103              let totalShareByUser = totalShareByUserREAD(account)
104 104              let totalShares = totalSharesREAD()
105 105              let totalCollateral = totalCollateralREAD()
106 106  [IntegerEntry(totalShareByUserKEY(account), (totalShareByUser + pmt.amount)), IntegerEntry(totalSharesKEY, (totalShares + pmt.amount)), IntegerEntry(totalCollateralKEY, (totalCollateral + pmt.amount))]
107 107              }
108 108      }
109 109  
110 110  
111 111  
112 112  @Callable(i)
113 113  func issue () = {
114 114      let pmt = if ((size(i.payments) == 1))
115 115          then i.payments[0]
116 116          else throw("Attached payment is required")
117 117      if (isDefined(pmt.assetId))
118 118          then throw("Only WAVES is allowed.")
119 119          else {
120 120              let account = toString(i.caller)
121 121              let max_waves = getUserTMDI_WAVES(account)
122 122              if ((pmt.amount > max_waves))
123 123                  then throw((((("User lock limit is " + toString(max_waves)) + " WAVES. Sent ") + toString(pmt.amount)) + " WAVES."))
124 124                  else {
125 125                      let wcd_issue_amount = fraction(pmt.amount, wavesReferencePrice_READ(), 100000000000000)
126 126                      let totalCollateral = totalCollateralREAD()
127 127                      let total_issued = totalIssuedWCD_READ()
128 128  [IntegerEntry(totalCollateralKEY, (totalCollateral + pmt.amount)), IntegerEntry(totalIssuedWCD_KEY, (total_issued + wcd_issue_amount)), ScriptTransfer(addressFromStringValue(account), wcd_issue_amount, fromBase58String(wcdId))]
129 129                      }
130 130              }
131 131      }
132 132  
133 133  
134 134  
135 135  @Callable(i)
136 136  func burn () = {
137 137      let pmt = if ((size(i.payments) == 1))
138 138          then i.payments[0]
139 139          else throw("Attached payment is required")
140 140      if ((pmt.assetId != fromBase58String(wcdId)))
141 141          then throw("Only WCD is allowed.")
142 142          else {
143 143              let account = toString(i.caller)
144 144              let max_burnable_wcd = getUserTMDU_WCD(account)
145 -             if ((pmt.amount > max_burnable_wcd))
145 +             let wcd_amount_eight_dec = (pmt.amount * 1000000)
146 +             if ((wcd_amount_eight_dec > max_burnable_wcd))
146 147                  then throw((("User burn limit: " + toString(max_burnable_wcd)) + " WCD"))
147 148                  else {
148 -                     let unlock_waves = fraction(pmt.amount, 100000000000000, wavesReferencePrice_READ())
149 +                     let unlock_waves = fraction(wcd_amount_eight_dec, 100000000, wavesReferencePrice_READ())
149 150                      throw(toString(unlock_waves))
150 151                      }
151 152              }
152 153      }
153 154  
154 155  
155 156  
156 157  @Callable(i)
157 158  func test_get_tmdi () = throw(("Result: " + toString(getTMDI())))
158 159  
159 160  
160 161  
161 162  @Callable(i)
162 163  func test_get_user_tmdi (account) = throw(("Result: " + toString(getUserTMDI_WAVES(account))))
163 164  
164 165  
165 166  
166 167  @Callable(i)
167 168  func test_get_base_tmdu () = throw(("Result: " + toString(getBaseTMDU())))
168 169  
169 170  
170 171  
171 172  @Callable(i)
172 173  func test_get_tmdu () = throw(("Result: " + toString(getTMDU())))
173 174  
174 175  
175 176  
176 177  @Callable(i)
177 178  func test_get_user_tmdu (account) = throw(("Result: " + toString(getUserTMDU_WCD(account))))
178 179  
179 180

Old	New		Differences
142	142		else {
143	143		let account = toString(i.caller)
144	144		let max_burnable_wcd = getUserTMDU_WCD(account)
145		-	if ((pmt.amount > max_burnable_wcd))
	145	+	let wcd_amount_eight_dec = (pmt.amount * 1000000)
	146	+	if ((wcd_amount_eight_dec > max_burnable_wcd))
146	147		then throw((("User burn limit: " + toString(max_burnable_wcd)) + " WCD"))
147	148		else {
148		-	let unlock_waves = fraction(~~pmt.~~amount, ~~100000000000000~~, wavesReferencePrice_READ())
	149	+	let unlock_waves = fraction(wcd_amount_eight_dec, 100000000, wavesReferencePrice_READ())
149	150		throw(toString(unlock_waves))
150	151		}
151	152		}

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let wcdId = "5WE6HBVsmAbapTmTKpmyWmUR67fc16ybFrNjxzmDBtPa"
5	5
6	6		let wcdDecimals = 2
7	7
8	8		func totalShareByUserKEY (owner) = makeString(["shares", owner], "_")
9	9
10	10
11	11		func totalShareByUserREAD (owner) = valueOrElse(getInteger(this, totalShareByUserKEY(owner)), 0)
12	12
13	13
14	14		let totalIssuedWCD_KEY = "total_issued_WCD"
15	15
16	16		func totalIssuedWCD_READ () = valueOrElse(getInteger(this, totalIssuedWCD_KEY), 0)
17	17
18	18
19	19		let totalSharesKEY = "total_shares"
20	20
21	21		func totalSharesREAD () = valueOrElse(getInteger(this, totalSharesKEY), 0)
22	22
23	23
24	24		let totalCollateralKEY = "total_collateral"
25	25
26	26		func totalCollateralREAD () = valueOrElse(getInteger(this, totalCollateralKEY), 0)
27	27
28	28
29	29		let INITIAL_PRICE = 240000000
30	30
31	31		let wavesReferencePrice_KEY = "waves_reference_price"
32	32
33	33		func wavesReferencePrice_READ () = valueOrElse(getInteger(this, wavesReferencePrice_KEY), INITIAL_PRICE)
34	34
35	35
36	36		func userShareFraction (owner) = {
37	37		let totalShares = totalSharesREAD()
38	38		if ((totalShares > 0))
39	39		then {
40	40		let totalUserShare = totalShareByUserREAD(owner)
41	41		fraction(100000000, totalUserShare, totalShares)
42	42		}
43	43		else 0
44	44		}
45	45
46	46
47	47		let paramA_KEY = "A"
48	48
49	49		func paramA_READ () = valueOrElse(getInteger(this, "A"), 100)
50	50
51	51
52	52		func computeLogTMDIR (issued_wcd,A) = (500000000 - (log(issued_wcd, wcdDecimals, 10, 0, 6, HALFUP) * A))
53	53
54	54
55	55		func TMDIRmultiply (amount,issued_wcd,A) = fraction(amount, pow(10, 0, computeLogTMDIR(issued_wcd, A), 8, 8, HALFUP), 100000000)
56	56
57	57
58	58		func computeTMDI (issued_wcd,A) = if ((issued_wcd > 10000000))
59	59		then TMDIRmultiply(issued_wcd, issued_wcd, A)
60	60		else 10000000
61	61
62	62
63	63		func getTMDI () = computeTMDI(totalIssuedWCD_READ(), paramA_READ())
64	64
65	65
66	66		func getBaseTMDU () = {
67	67		let diff = (totalCollateralREAD() - totalSharesREAD())
68	68		TMDIRmultiply((diff * 10), totalIssuedWCD_READ(), paramA_READ())
69	69		}
70	70
71	71
72	72		func getTMDU () = {
73	73		let diff = (totalCollateralREAD() - totalSharesREAD())
74	74		if ((diff > 0))
75	75		then {
76	76		let max_base_unlockable_waves = getBaseTMDU()
77	77		if ((diff > max_base_unlockable_waves))
78	78		then max_base_unlockable_waves
79	79		else diff
80	80		}
81	81		else 0
82	82		}
83	83
84	84
85	85		func getUserTMDI_WAVES (owner) = (1000000 * fraction(getTMDI(), userShareFraction(owner), wavesReferencePrice_READ()))
86	86
87	87
88	88		func getUserTMDU (owner) = fraction(getTMDU(), userShareFraction(owner), 100000000)
89	89
90	90
91	91		func getUserTMDU_WCD (owner) = fraction(fraction(getTMDU(), userShareFraction(owner), 100000000), wavesReferencePrice_READ(), 100000000)
92	92
93	93
94	94		@Callable(i)
95	95		func deposit_share () = {
96	96		let pmt = if ((size(i.payments) == 1))
97	97		then i.payments[0]
98	98		else throw("Attached payment is required")
99	99		if (isDefined(pmt.assetId))
100	100		then throw("Only WAVES is allowed.")
101	101		else {
102	102		let account = toString(i.caller)
103	103		let totalShareByUser = totalShareByUserREAD(account)
104	104		let totalShares = totalSharesREAD()
105	105		let totalCollateral = totalCollateralREAD()
106	106		[IntegerEntry(totalShareByUserKEY(account), (totalShareByUser + pmt.amount)), IntegerEntry(totalSharesKEY, (totalShares + pmt.amount)), IntegerEntry(totalCollateralKEY, (totalCollateral + pmt.amount))]
107	107		}
108	108		}
109	109
110	110
111	111
112	112		@Callable(i)
113	113		func issue () = {
114	114		let pmt = if ((size(i.payments) == 1))
115	115		then i.payments[0]
116	116		else throw("Attached payment is required")
117	117		if (isDefined(pmt.assetId))
118	118		then throw("Only WAVES is allowed.")
119	119		else {
120	120		let account = toString(i.caller)
121	121		let max_waves = getUserTMDI_WAVES(account)
122	122		if ((pmt.amount > max_waves))
123	123		then throw((((("User lock limit is " + toString(max_waves)) + " WAVES. Sent ") + toString(pmt.amount)) + " WAVES."))
124	124		else {
125	125		let wcd_issue_amount = fraction(pmt.amount, wavesReferencePrice_READ(), 100000000000000)
126	126		let totalCollateral = totalCollateralREAD()
127	127		let total_issued = totalIssuedWCD_READ()
128	128		[IntegerEntry(totalCollateralKEY, (totalCollateral + pmt.amount)), IntegerEntry(totalIssuedWCD_KEY, (total_issued + wcd_issue_amount)), ScriptTransfer(addressFromStringValue(account), wcd_issue_amount, fromBase58String(wcdId))]
129	129		}
130	130		}
131	131		}
132	132
133	133
134	134
135	135		@Callable(i)
136	136		func burn () = {
137	137		let pmt = if ((size(i.payments) == 1))
138	138		then i.payments[0]
139	139		else throw("Attached payment is required")
140	140		if ((pmt.assetId != fromBase58String(wcdId)))
141	141		then throw("Only WCD is allowed.")
142	142		else {
143	143		let account = toString(i.caller)
144	144		let max_burnable_wcd = getUserTMDU_WCD(account)
145		-	if ((pmt.amount > max_burnable_wcd))
	145	+	let wcd_amount_eight_dec = (pmt.amount * 1000000)
	146	+	if ((wcd_amount_eight_dec > max_burnable_wcd))
146	147		then throw((("User burn limit: " + toString(max_burnable_wcd)) + " WCD"))
147	148		else {
148		-	let unlock_waves = fraction(~~pmt.~~amount, ~~100000000000000~~, wavesReferencePrice_READ())
	149	+	let unlock_waves = fraction(wcd_amount_eight_dec, 100000000, wavesReferencePrice_READ())
149	150		throw(toString(unlock_waves))
150	151		}
151	152		}
152	153		}
153	154
154	155
155	156
156	157		@Callable(i)
157	158		func test_get_tmdi () = throw(("Result: " + toString(getTMDI())))
158	159
159	160
160	161
161	162		@Callable(i)
162	163		func test_get_user_tmdi (account) = throw(("Result: " + toString(getUserTMDI_WAVES(account))))
163	164
164	165
165	166
166	167		@Callable(i)
167	168		func test_get_base_tmdu () = throw(("Result: " + toString(getBaseTMDU())))
168	169
169	170
170	171
171	172		@Callable(i)
172	173		func test_get_tmdu () = throw(("Result: " + toString(getTMDU())))
173	174
174	175
175	176
176	177		@Callable(i)
177	178		func test_get_user_tmdu (account) = throw(("Result: " + toString(getUserTMDU_WCD(account))))
178	179
179	180

github/deemru/w8io/169f3d6 
39.99 ms ◑