w8 · tx · C9i···qvZ

tx · C9iAKsjde94Ysusy4eZF1jgMYrrM5TSNszsFEofe8qvZ

3N9XFD2Yw3uN27NjudPVjNEGtvS6JJTxK6Z:  -0.00400000 Waves

2023.04.08 19:01 [2525794] smart account 3N9XFD2Yw3uN27NjudPVjNEGtvS6JJTxK6Z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "C9iAKsjde94Ysusy4eZF1jgMYrrM5TSNszsFEofe8qvZ",
    "fee": 400000,
    "feeAssetId": null,
    "timestamp": 1680969678580,
    "version": 2,
    "chainId": 84,
    "sender": "3N9XFD2Yw3uN27NjudPVjNEGtvS6JJTxK6Z",
    "senderPublicKey": "49QuuedtSwEkoupQ2jEdBY8g6ePKegTkLaL8WDteNCHg",
    "proofs": [
        "39cLpejFY4GTCcd3X6U1z6cpDwQxE13UvAwzFXHergAW3AdibUeimUqnFfsN4pRrzHKvADMneAgAN4Z6Ab3x6Evx"
    ],
    "script": "base64:BgIYCAISABIAEgASABIDCgEIEgASABIDCgEIGwAFV1JDSWQCLDU0dnV4WnBDcjJGYmJ3aDFUdTR5Nm5LVERMWlZwZGdNZGNWM2tzODFHWjdLAAtXUkNEZWNpbWFscwAGAAxXUkNUaHJlc2hvbGQJAGgCAKCNBgDAhD0AD1dSQ1RocmVzaG9sZExvZwkAaAIABQCAwtcvARN0b3RhbFNoYXJlQnlVc2VyS0VZAQVvd25lcgkAuQkCCQDMCAICBnNoYXJlcwkAzAgCBQVvd25lcgUDbmlsAgFfARR0b3RhbFNoYXJlQnlVc2VyUkVBRAEFb3duZXIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkBE3RvdGFsU2hhcmVCeVVzZXJLRVkBBQVvd25lcgAAABJ0b3RhbElzc3VlZFdSQ19LRVkCEHRvdGFsX2lzc3VlZF9XUkMBE3RvdGFsSXNzdWVkV1JDX1JFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFEnRvdGFsSXNzdWVkV1JDX0tFWQAAAA50b3RhbFNoYXJlc0tFWQIMdG90YWxfc2hhcmVzAQ90b3RhbFNoYXJlc1JFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFDnRvdGFsU2hhcmVzS0VZAAAAGXRvdGFsTm9TaGFyZUNvbGxhdGVyYWxLRVkCGHRvdGFsX25vc2hhcmVfY29sbGF0ZXJhbAEadG90YWxOb1NoYXJlQ29sbGF0ZXJhbFJFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFGXRvdGFsTm9TaGFyZUNvbGxhdGVyYWxLRVkAAAANSU5JVElBTF9QUklDRQkAaAIAAgDAhD0AG3dhdmVzUmVmZXJlbmNlUHJpY2VfV1JDX0tFWQIVd2F2ZXNfcmVmZXJlbmNlX3ByaWNlARx3YXZlc1JlZmVyZW5jZVByaWNlX1dSQ19SRUFEAAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBRt3YXZlc1JlZmVyZW5jZVByaWNlX1dSQ19LRVkFDUlOSVRJQUxfUFJJQ0UBE3VzZXJTaGFyZUZyYWN0aW9uXzQBBW93bmVyBAt0b3RhbFNoYXJlcwkBD3RvdGFsU2hhcmVzUkVBRAADCQBmAgULdG90YWxTaGFyZXMAAAQOdG90YWxVc2VyU2hhcmUJARR0b3RhbFNoYXJlQnlVc2VyUkVBRAEFBW93bmVyCQBrAwCQTgUOdG90YWxVc2VyU2hhcmUFC3RvdGFsU2hhcmVzAAAACnBhcmFtQV9LRVkCAUEBC3BhcmFtQV9SRUFEAAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzAgFBAGQBD2NvbXB1dGVMb2dUTURJUgIKaXNzdWVkX3dyYwFBCQBlAgUPV1JDVGhyZXNob2xkTG9nCQBoAgkAbQYFCmlzc3VlZF93cmMFC1dSQ0RlY2ltYWxzAAoAAAAGBQZIQUxGVVAFAUEBDVRNRElSbXVsdGlwbHkDBmFtb3VudAppc3N1ZWRfd3JjAUEJAGsDBQZhbW91bnQJAGwGAAoAAAkBD2NvbXB1dGVMb2dUTURJUgIFCmlzc3VlZF93cmMFAUEACAAIBQZIQUxGVVAAgMLXLwEPY29tcHV0ZVRNRElfV1JDAgppc3N1ZWRfd3JjAUEDCQBmAgUKaXNzdWVkX3dyYwUMV1JDVGhyZXNob2xkCQENVE1ESVJtdWx0aXBseQMFCmlzc3VlZF93cmMFCmlzc3VlZF93cmMFAUEFDFdSQ1RocmVzaG9sZAELZ2V0VE1ESV9XUkMACQEPY29tcHV0ZVRNRElfV1JDAgkBE3RvdGFsSXNzdWVkV1JDX1JFQUQACQELcGFyYW1BX1JFQUQAARRnZXRNYXhCYXNlVE1EVV9XQVZFUwAJAQ1UTURJUm11bHRpcGx5AwkAaAIJARp0b3RhbE5vU2hhcmVDb2xsYXRlcmFsUkVBRAAACgkBE3RvdGFsSXNzdWVkV1JDX1JFQUQACQELcGFyYW1BX1JFQUQAAQ1nZXRUTURVX1dBVkVTAAQYdG90YWxfbm9zaGFyZV9jb2xsYXRlcmFsCQEadG90YWxOb1NoYXJlQ29sbGF0ZXJhbFJFQUQAAwkAZgIFGHRvdGFsX25vc2hhcmVfY29sbGF0ZXJhbAAABBltYXhfYmFzZV91bmxvY2thYmxlX3dhdmVzCQEUZ2V0TWF4QmFzZVRNRFVfV0FWRVMAAwkAZgIFGHRvdGFsX25vc2hhcmVfY29sbGF0ZXJhbAUZbWF4X2Jhc2VfdW5sb2NrYWJsZV93YXZlcwUZbWF4X2Jhc2VfdW5sb2NrYWJsZV93YXZlcwUYdG90YWxfbm9zaGFyZV9jb2xsYXRlcmFsAAABEWdldFVzZXJUTURJX1dBVkVTAQVvd25lcgkAawMJAQtnZXRUTURJX1dSQwAJAGgCAOgHCQETdXNlclNoYXJlRnJhY3Rpb25fNAEFBW93bmVyCQEcd2F2ZXNSZWZlcmVuY2VQcmljZV9XUkNfUkVBRAABEWdldFVzZXJUTURVX1dBVkVTAQVvd25lcgkAawMJAQ1nZXRUTURVX1dBVkVTAAkBE3VzZXJTaGFyZUZyYWN0aW9uXzQBBQVvd25lcgCQTgEPZ2V0VXNlclRNRFVfV1JDAQVvd25lcgkAawMJARFnZXRVc2VyVE1EVV9XQVZFUwEFBW93bmVyCQEcd2F2ZXNSZWZlcmVuY2VQcmljZV9XUkNfUkVBRAAAgMLXLwgBaQENZGVwb3NpdF9zaGFyZQAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECHEF0dGFjaGVkIHBheW1lbnQgaXMgcmVxdWlyZWQDCQEJaXNEZWZpbmVkAQgFA3BtdAdhc3NldElkCQACAQIWT25seSBXQVZFUyBpcyBhbGxvd2VkLgQHYWNjb3VudAkApQgBCAUBaQZjYWxsZXIEEHRvdGFsU2hhcmVCeVVzZXIJARR0b3RhbFNoYXJlQnlVc2VyUkVBRAEFB2FjY291bnQEC3RvdGFsU2hhcmVzCQEPdG90YWxTaGFyZXNSRUFEAAkAzAgCCQEMSW50ZWdlckVudHJ5AgkBE3RvdGFsU2hhcmVCeVVzZXJLRVkBBQdhY2NvdW50CQBkAgUQdG90YWxTaGFyZUJ5VXNlcggFA3BtdAZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFDnRvdGFsU2hhcmVzS0VZCQBkAgULdG90YWxTaGFyZXMIBQNwbXQGYW1vdW50BQNuaWwBaQEFaXNzdWUABANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAhxBdHRhY2hlZCBwYXltZW50IGlzIHJlcXVpcmVkAwkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAkAAgECFk9ubHkgV0FWRVMgaXMgYWxsb3dlZC4EB2FjY291bnQJAKUIAQgFAWkGY2FsbGVyBAltYXhfd2F2ZXMJARFnZXRVc2VyVE1ESV9XQVZFUwEFB2FjY291bnQDCQBmAggFA3BtdAZhbW91bnQFCW1heF93YXZlcwkAAgEJAKwCAgkArAICCQCsAgIJAKwCAgITVXNlciBsb2NrIGxpbWl0IGlzIAkApAMBBQltYXhfd2F2ZXMCDSBXQVZFUy4gU2VudCAJAKQDAQgFA3BtdAZhbW91bnQCByBXQVZFUy4EEHdyY19pc3N1ZV9hbW91bnQJAGsDCAUDcG10BmFtb3VudAkBHHdhdmVzUmVmZXJlbmNlUHJpY2VfV1JDX1JFQUQAAIDC1y8EGXRvdGFsX25vX3NoYXJlX2NvbGxhdGVyYWwJARp0b3RhbE5vU2hhcmVDb2xsYXRlcmFsUkVBRAAEDHRvdGFsX2lzc3VlZAkBE3RvdGFsSXNzdWVkV1JDX1JFQUQACQDMCAIJAQxJbnRlZ2VyRW50cnkCBRl0b3RhbE5vU2hhcmVDb2xsYXRlcmFsS0VZCQBkAgUZdG90YWxfbm9fc2hhcmVfY29sbGF0ZXJhbAgFA3BtdAZhbW91bnQJAMwIAgkBDEludGVnZXJFbnRyeQIFEnRvdGFsSXNzdWVkV1JDX0tFWQkAZAIFDHRvdGFsX2lzc3VlZAUQd3JjX2lzc3VlX2Ftb3VudAkAzAgCCQEOU2NyaXB0VHJhbnNmZXIDCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhY2NvdW50BRB3cmNfaXNzdWVfYW1vdW50CQDZBAEFBVdSQ0lkBQNuaWwBaQEEYnVybgAEA3BtdAMJAAACCQCQAwEIBQFpCHBheW1lbnRzAAEJAJEDAggFAWkIcGF5bWVudHMAAAkAAgECHEF0dGFjaGVkIHBheW1lbnQgaXMgcmVxdWlyZWQDCQECIT0CCAUDcG10B2Fzc2V0SWQJANkEAQUFV1JDSWQJAAIBAhRPbmx5IFdSQyBpcyBhbGxvd2VkLgQHYWNjb3VudAkApQgBCAUBaQZjYWxsZXIEEG1heF9idXJuYWJsZV93cmMJAQ9nZXRVc2VyVE1EVV9XUkMBBQdhY2NvdW50AwkAZgIIBQNwbXQGYW1vdW50BRBtYXhfYnVybmFibGVfd3JjCQACAQkArAICCQCsAgICEVVzZXIgYnVybiBsaW1pdDogCQCkAwEFEG1heF9idXJuYWJsZV93cmMCBCBXUkMEDHVubG9ja193YXZlcwkAawMIBQNwbXQGYW1vdW50AIDC1y8JARx3YXZlc1JlZmVyZW5jZVByaWNlX1dSQ19SRUFEAAkAAgEJAKQDAQUMdW5sb2NrX3dhdmVzAWkBDXRlc3RfZ2V0X3RtZGkACQACAQkArAICAghSZXN1bHQ6IAkApAMBCQELZ2V0VE1ESV9XUkMAAWkBEnRlc3RfZ2V0X3VzZXJfdG1kaQEHYWNjb3VudAkAAgEJAKwCAgIIUmVzdWx0OiAJAKQDAQkBEWdldFVzZXJUTURJX1dBVkVTAQUHYWNjb3VudAFpARJ0ZXN0X2dldF9iYXNlX3RtZHUACQACAQkArAICAghSZXN1bHQ6IAkApAMBCQEUZ2V0TWF4QmFzZVRNRFVfV0FWRVMAAWkBDXRlc3RfZ2V0X3RtZHUACQACAQkArAICAghSZXN1bHQ6IAkApAMBCQENZ2V0VE1EVV9XQVZFUwABaQESdGVzdF9nZXRfdXNlcl90bWR1AQdhY2NvdW50CQACAQkArAICAghSZXN1bHQ6IAkApAMBCQEPZ2V0VXNlclRNRFVfV1JDAQUHYWNjb3VudAAjG+qk",
    "height": 2525794,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 846gzbT8G28437LLwHE5HNCbxBo1tMPtuAMXi4Sjixwv
Next: EVNABj6mAxswSboffjipqZarn62UVLQmrK5LN8S63pR8

Diff: 
Old New Differences
5 5  
6 6  let WRCDecimals = 6
7 7  
8 - let WRCThreshold = (100000 * 100000000)
8 + let WRCThreshold = (100000 * 1000000)
9 9  
10 10  let WRCThresholdLog = (5 * 100000000)
11 11  
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 6 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let WRCId = "54vuxZpCr2Fbbwh1Tu4y6nKTDLZVpdgMdcV3ks81GZ7K"
5 5  
6 6  let WRCDecimals = 6
7 7  
8 - let WRCThreshold = (100000 * 100000000)
8 + let WRCThreshold = (100000 * 1000000)
9 9  
10 10  let WRCThresholdLog = (5 * 100000000)
11 11  
12 12  func totalShareByUserKEY (owner) = makeString(["shares", owner], "_")
13 13  
14 14  
15 15  func totalShareByUserREAD (owner) = valueOrElse(getInteger(this, totalShareByUserKEY(owner)), 0)
16 16  
17 17  
18 18  let totalIssuedWRC_KEY = "total_issued_WRC"
19 19  
20 20  func totalIssuedWRC_READ () = valueOrElse(getInteger(this, totalIssuedWRC_KEY), 0)
21 21  
22 22  
23 23  let totalSharesKEY = "total_shares"
24 24  
25 25  func totalSharesREAD () = valueOrElse(getInteger(this, totalSharesKEY), 0)
26 26  
27 27  
28 28  let totalNoShareCollateralKEY = "total_noshare_collateral"
29 29  
30 30  func totalNoShareCollateralREAD () = valueOrElse(getInteger(this, totalNoShareCollateralKEY), 0)
31 31  
32 32  
33 33  let INITIAL_PRICE = (2 * 1000000)
34 34  
35 35  let wavesReferencePrice_WRC_KEY = "waves_reference_price"
36 36  
37 37  func wavesReferencePrice_WRC_READ () = valueOrElse(getInteger(this, wavesReferencePrice_WRC_KEY), INITIAL_PRICE)
38 38  
39 39  
40 40  func userShareFraction_4 (owner) = {
41 41      let totalShares = totalSharesREAD()
42 42      if ((totalShares > 0))
43 43          then {
44 44              let totalUserShare = totalShareByUserREAD(owner)
45 45              fraction(10000, totalUserShare, totalShares)
46 46              }
47 47          else 0
48 48      }
49 49  
50 50  
51 51  let paramA_KEY = "A"
52 52  
53 53  func paramA_READ () = valueOrElse(getInteger(this, "A"), 100)
54 54  
55 55  
56 56  func computeLogTMDIR (issued_wrc,A) = (WRCThresholdLog - (log(issued_wrc, WRCDecimals, 10, 0, 6, HALFUP) * A))
57 57  
58 58  
59 59  func TMDIRmultiply (amount,issued_wrc,A) = fraction(amount, pow(10, 0, computeLogTMDIR(issued_wrc, A), 8, 8, HALFUP), 100000000)
60 60  
61 61  
62 62  func computeTMDI_WRC (issued_wrc,A) = if ((issued_wrc > WRCThreshold))
63 63      then TMDIRmultiply(issued_wrc, issued_wrc, A)
64 64      else WRCThreshold
65 65  
66 66  
67 67  func getTMDI_WRC () = computeTMDI_WRC(totalIssuedWRC_READ(), paramA_READ())
68 68  
69 69  
70 70  func getMaxBaseTMDU_WAVES () = TMDIRmultiply((totalNoShareCollateralREAD() * 10), totalIssuedWRC_READ(), paramA_READ())
71 71  
72 72  
73 73  func getTMDU_WAVES () = {
74 74      let total_noshare_collateral = totalNoShareCollateralREAD()
75 75      if ((total_noshare_collateral > 0))
76 76          then {
77 77              let max_base_unlockable_waves = getMaxBaseTMDU_WAVES()
78 78              if ((total_noshare_collateral > max_base_unlockable_waves))
79 79                  then max_base_unlockable_waves
80 80                  else total_noshare_collateral
81 81              }
82 82          else 0
83 83      }
84 84  
85 85  
86 86  func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (1000 * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
87 87  
88 88  
89 89  func getUserTMDU_WAVES (owner) = fraction(getTMDU_WAVES(), userShareFraction_4(owner), 10000)
90 90  
91 91  
92 92  func getUserTMDU_WRC (owner) = fraction(getUserTMDU_WAVES(owner), wavesReferencePrice_WRC_READ(), 100000000)
93 93  
94 94  
95 95  @Callable(i)
96 96  func deposit_share () = {
97 97      let pmt = if ((size(i.payments) == 1))
98 98          then i.payments[0]
99 99          else throw("Attached payment is required")
100 100      if (isDefined(pmt.assetId))
101 101          then throw("Only WAVES is allowed.")
102 102          else {
103 103              let account = toString(i.caller)
104 104              let totalShareByUser = totalShareByUserREAD(account)
105 105              let totalShares = totalSharesREAD()
106 106  [IntegerEntry(totalShareByUserKEY(account), (totalShareByUser + pmt.amount)), IntegerEntry(totalSharesKEY, (totalShares + 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 wrc_issue_amount = fraction(pmt.amount, wavesReferencePrice_WRC_READ(), 100000000)
126 126                      let total_no_share_collateral = totalNoShareCollateralREAD()
127 127                      let total_issued = totalIssuedWRC_READ()
128 128  [IntegerEntry(totalNoShareCollateralKEY, (total_no_share_collateral + pmt.amount)), IntegerEntry(totalIssuedWRC_KEY, (total_issued + wrc_issue_amount)), ScriptTransfer(addressFromStringValue(account), wrc_issue_amount, fromBase58String(WRCId))]
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(WRCId)))
141 141          then throw("Only WRC is allowed.")
142 142          else {
143 143              let account = toString(i.caller)
144 144              let max_burnable_wrc = getUserTMDU_WRC(account)
145 145              if ((pmt.amount > max_burnable_wrc))
146 146                  then throw((("User burn limit: " + toString(max_burnable_wrc)) + " WRC"))
147 147                  else {
148 148                      let unlock_waves = fraction(pmt.amount, 100000000, wavesReferencePrice_WRC_READ())
149 149                      throw(toString(unlock_waves))
150 150                      }
151 151              }
152 152      }
153 153  
154 154  
155 155  
156 156  @Callable(i)
157 157  func test_get_tmdi () = throw(("Result: " + toString(getTMDI_WRC())))
158 158  
159 159  
160 160  
161 161  @Callable(i)
162 162  func test_get_user_tmdi (account) = throw(("Result: " + toString(getUserTMDI_WAVES(account))))
163 163  
164 164  
165 165  
166 166  @Callable(i)
167 167  func test_get_base_tmdu () = throw(("Result: " + toString(getMaxBaseTMDU_WAVES())))
168 168  
169 169  
170 170  
171 171  @Callable(i)
172 172  func test_get_tmdu () = throw(("Result: " + toString(getTMDU_WAVES())))
173 173  
174 174  
175 175  
176 176  @Callable(i)
177 177  func test_get_user_tmdu (account) = throw(("Result: " + toString(getUserTMDU_WRC(account))))
178 178  
179 179

Old	New		Differences
5	5
6	6		let WRCDecimals = 6
7	7
8		-	let WRCThreshold = (100000 * ~~100000000~~)
	8	+	let WRCThreshold = (100000 * 1000000)
9	9
10	10		let WRCThresholdLog = (5 * 100000000)
11	11

Old	New		Differences
1	1		{-# STDLIB_VERSION 6 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let WRCId = "54vuxZpCr2Fbbwh1Tu4y6nKTDLZVpdgMdcV3ks81GZ7K"
5	5
6	6		let WRCDecimals = 6
7	7
8		-	let WRCThreshold = (100000 * ~~100000000~~)
	8	+	let WRCThreshold = (100000 * 1000000)
9	9
10	10		let WRCThresholdLog = (5 * 100000000)
11	11
12	12		func totalShareByUserKEY (owner) = makeString(["shares", owner], "_")
13	13
14	14
15	15		func totalShareByUserREAD (owner) = valueOrElse(getInteger(this, totalShareByUserKEY(owner)), 0)
16	16
17	17
18	18		let totalIssuedWRC_KEY = "total_issued_WRC"
19	19
20	20		func totalIssuedWRC_READ () = valueOrElse(getInteger(this, totalIssuedWRC_KEY), 0)
21	21
22	22
23	23		let totalSharesKEY = "total_shares"
24	24
25	25		func totalSharesREAD () = valueOrElse(getInteger(this, totalSharesKEY), 0)
26	26
27	27
28	28		let totalNoShareCollateralKEY = "total_noshare_collateral"
29	29
30	30		func totalNoShareCollateralREAD () = valueOrElse(getInteger(this, totalNoShareCollateralKEY), 0)
31	31
32	32
33	33		let INITIAL_PRICE = (2 * 1000000)
34	34
35	35		let wavesReferencePrice_WRC_KEY = "waves_reference_price"
36	36
37	37		func wavesReferencePrice_WRC_READ () = valueOrElse(getInteger(this, wavesReferencePrice_WRC_KEY), INITIAL_PRICE)
38	38
39	39
40	40		func userShareFraction_4 (owner) = {
41	41		let totalShares = totalSharesREAD()
42	42		if ((totalShares > 0))
43	43		then {
44	44		let totalUserShare = totalShareByUserREAD(owner)
45	45		fraction(10000, totalUserShare, totalShares)
46	46		}
47	47		else 0
48	48		}
49	49
50	50
51	51		let paramA_KEY = "A"
52	52
53	53		func paramA_READ () = valueOrElse(getInteger(this, "A"), 100)
54	54
55	55
56	56		func computeLogTMDIR (issued_wrc,A) = (WRCThresholdLog - (log(issued_wrc, WRCDecimals, 10, 0, 6, HALFUP) * A))
57	57
58	58
59	59		func TMDIRmultiply (amount,issued_wrc,A) = fraction(amount, pow(10, 0, computeLogTMDIR(issued_wrc, A), 8, 8, HALFUP), 100000000)
60	60
61	61
62	62		func computeTMDI_WRC (issued_wrc,A) = if ((issued_wrc > WRCThreshold))
63	63		then TMDIRmultiply(issued_wrc, issued_wrc, A)
64	64		else WRCThreshold
65	65
66	66
67	67		func getTMDI_WRC () = computeTMDI_WRC(totalIssuedWRC_READ(), paramA_READ())
68	68
69	69
70	70		func getMaxBaseTMDU_WAVES () = TMDIRmultiply((totalNoShareCollateralREAD() * 10), totalIssuedWRC_READ(), paramA_READ())
71	71
72	72
73	73		func getTMDU_WAVES () = {
74	74		let total_noshare_collateral = totalNoShareCollateralREAD()
75	75		if ((total_noshare_collateral > 0))
76	76		then {
77	77		let max_base_unlockable_waves = getMaxBaseTMDU_WAVES()
78	78		if ((total_noshare_collateral > max_base_unlockable_waves))
79	79		then max_base_unlockable_waves
80	80		else total_noshare_collateral
81	81		}
82	82		else 0
83	83		}
84	84
85	85
86	86		func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (1000 * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
87	87
88	88
89	89		func getUserTMDU_WAVES (owner) = fraction(getTMDU_WAVES(), userShareFraction_4(owner), 10000)
90	90
91	91
92	92		func getUserTMDU_WRC (owner) = fraction(getUserTMDU_WAVES(owner), wavesReferencePrice_WRC_READ(), 100000000)
93	93
94	94
95	95		@Callable(i)
96	96		func deposit_share () = {
97	97		let pmt = if ((size(i.payments) == 1))
98	98		then i.payments[0]
99	99		else throw("Attached payment is required")
100	100		if (isDefined(pmt.assetId))
101	101		then throw("Only WAVES is allowed.")
102	102		else {
103	103		let account = toString(i.caller)
104	104		let totalShareByUser = totalShareByUserREAD(account)
105	105		let totalShares = totalSharesREAD()
106	106		[IntegerEntry(totalShareByUserKEY(account), (totalShareByUser + pmt.amount)), IntegerEntry(totalSharesKEY, (totalShares + 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 wrc_issue_amount = fraction(pmt.amount, wavesReferencePrice_WRC_READ(), 100000000)
126	126		let total_no_share_collateral = totalNoShareCollateralREAD()
127	127		let total_issued = totalIssuedWRC_READ()
128	128		[IntegerEntry(totalNoShareCollateralKEY, (total_no_share_collateral + pmt.amount)), IntegerEntry(totalIssuedWRC_KEY, (total_issued + wrc_issue_amount)), ScriptTransfer(addressFromStringValue(account), wrc_issue_amount, fromBase58String(WRCId))]
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(WRCId)))
141	141		then throw("Only WRC is allowed.")
142	142		else {
143	143		let account = toString(i.caller)
144	144		let max_burnable_wrc = getUserTMDU_WRC(account)
145	145		if ((pmt.amount > max_burnable_wrc))
146	146		then throw((("User burn limit: " + toString(max_burnable_wrc)) + " WRC"))
147	147		else {
148	148		let unlock_waves = fraction(pmt.amount, 100000000, wavesReferencePrice_WRC_READ())
149	149		throw(toString(unlock_waves))
150	150		}
151	151		}
152	152		}
153	153
154	154
155	155
156	156		@Callable(i)
157	157		func test_get_tmdi () = throw(("Result: " + toString(getTMDI_WRC())))
158	158
159	159
160	160
161	161		@Callable(i)
162	162		func test_get_user_tmdi (account) = throw(("Result: " + toString(getUserTMDI_WAVES(account))))
163	163
164	164
165	165
166	166		@Callable(i)
167	167		func test_get_base_tmdu () = throw(("Result: " + toString(getMaxBaseTMDU_WAVES())))
168	168
169	169
170	170
171	171		@Callable(i)
172	172		func test_get_tmdu () = throw(("Result: " + toString(getTMDU_WAVES())))
173	173
174	174
175	175
176	176		@Callable(i)
177	177		func test_get_user_tmdu (account) = throw(("Result: " + toString(getUserTMDU_WRC(account))))
178	178
179	179

github/deemru/w8io/169f3d6 
33.67 ms ◑