w8 · tx · 5q8···VSf

tx · 5q8G5pqry6J5JjEumWsuxFPsrVbrBXExvjdv7TiEBVSf

3N9XFD2Yw3uN27NjudPVjNEGtvS6JJTxK6Z:  -0.00500000 Waves

2023.04.09 18:06 [2527189] smart account 3N9XFD2Yw3uN27NjudPVjNEGtvS6JJTxK6Z > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5q8G5pqry6J5JjEumWsuxFPsrVbrBXExvjdv7TiEBVSf",
    "fee": 500000,
    "feeAssetId": null,
    "timestamp": 1681052828324,
    "version": 2,
    "chainId": 84,
    "sender": "3N9XFD2Yw3uN27NjudPVjNEGtvS6JJTxK6Z",
    "senderPublicKey": "49QuuedtSwEkoupQ2jEdBY8g6ePKegTkLaL8WDteNCHg",
    "proofs": [
        "5RBe5V9R1VzPK8VPVqDFVJNb2hEYwRWLpf7maNnWhMTCUEH9BNve2mcYowMUR9uUFtT8jJwqfySGkKAF45LTpWYQ"
    ],
    "script": "base64:BgIYCAISABIAEgASABIDCgEIEgASABIDCgEIGwAFV1JDSWQCLDU0dnV4WnBDcjJGYmJ3aDFUdTR5Nm5LVERMWlZwZGdNZGNWM2tzODFHWjdLAAtXUkNEZWNpbWFscwAGAAxXUkNUaHJlc2hvbGQJAGgCAKCNBgDAhD0AD1dSQ1RocmVzaG9sZExvZwkAaAIABQCAwtcvARN0b3RhbFNoYXJlQnlVc2VyS0VZAQVvd25lcgkAuQkCCQDMCAICBnNoYXJlcwkAzAgCBQVvd25lcgUDbmlsAgFfARR0b3RhbFNoYXJlQnlVc2VyUkVBRAEFb3duZXIJAQt2YWx1ZU9yRWxzZQIJAJoIAgUEdGhpcwkBE3RvdGFsU2hhcmVCeVVzZXJLRVkBBQVvd25lcgAAABJ0b3RhbElzc3VlZFdSQ19LRVkCEHRvdGFsX2lzc3VlZF9XUkMBE3RvdGFsSXNzdWVkV1JDX1JFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFEnRvdGFsSXNzdWVkV1JDX0tFWQAAAA50b3RhbFNoYXJlc0tFWQIMdG90YWxfc2hhcmVzAQ90b3RhbFNoYXJlc1JFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFDnRvdGFsU2hhcmVzS0VZAAAAGXRvdGFsTm9TaGFyZUNvbGxhdGVyYWxLRVkCGHRvdGFsX25vc2hhcmVfY29sbGF0ZXJhbAEadG90YWxOb1NoYXJlQ29sbGF0ZXJhbFJFQUQACQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFGXRvdGFsTm9TaGFyZUNvbGxhdGVyYWxLRVkAAAANSU5JVElBTF9QUklDRQkAaAIAAgDAhD0AG3dhdmVzUmVmZXJlbmNlUHJpY2VfV1JDX0tFWQIVd2F2ZXNfcmVmZXJlbmNlX3ByaWNlARx3YXZlc1JlZmVyZW5jZVByaWNlX1dSQ19SRUFEAAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzBRt3YXZlc1JlZmVyZW5jZVByaWNlX1dSQ19LRVkFDUlOSVRJQUxfUFJJQ0UBE3VzZXJTaGFyZUZyYWN0aW9uXzQBBW93bmVyBAt0b3RhbFNoYXJlcwkBD3RvdGFsU2hhcmVzUkVBRAADCQBmAgULdG90YWxTaGFyZXMAAAQOdG90YWxVc2VyU2hhcmUJARR0b3RhbFNoYXJlQnlVc2VyUkVBRAEFBW93bmVyCQBrAwCQTgUOdG90YWxVc2VyU2hhcmUFC3RvdGFsU2hhcmVzAAAACnBhcmFtQV9LRVkCAUEBC3BhcmFtQV9SRUFEAAkBC3ZhbHVlT3JFbHNlAgkAmggCBQR0aGlzAgFBAGQBD2NvbXB1dGVMb2dUTURJUgIKaXNzdWVkX3dyYwFBCQBlAgUPV1JDVGhyZXNob2xkTG9nCQBoAgkAbQYFCmlzc3VlZF93cmMFC1dSQ0RlY2ltYWxzAAoAAAAGBQZIQUxGVVAFAUEBDVRNRElSbXVsdGlwbHkDBmFtb3VudAppc3N1ZWRfd3JjAUEDAwkAAAIFBmFtb3VudAAABgkAAAIFCmlzc3VlZF93cmMAAAAACQBrAwUGYW1vdW50CQBsBgAKAAAJAQ9jb21wdXRlTG9nVE1ESVICBQppc3N1ZWRfd3JjBQFBAAgACAUGSEFMRlVQAIDC1y8BD2NvbXB1dGVUTURJX1dSQwIKaXNzdWVkX3dyYwFBAwkAZgIFCmlzc3VlZF93cmMFDFdSQ1RocmVzaG9sZAkBDVRNRElSbXVsdGlwbHkDBQppc3N1ZWRfd3JjBQppc3N1ZWRfd3JjBQFBBQxXUkNUaHJlc2hvbGQBC2dldFRNRElfV1JDAAkBD2NvbXB1dGVUTURJX1dSQwIJARN0b3RhbElzc3VlZFdSQ19SRUFEAAkBC3BhcmFtQV9SRUFEAAEUZ2V0TWF4QmFzZVRNRFVfV0FWRVMACQENVE1ESVJtdWx0aXBseQMJAGgCCQEadG90YWxOb1NoYXJlQ29sbGF0ZXJhbFJFQUQAAAoJARN0b3RhbElzc3VlZFdSQ19SRUFEAAkBC3BhcmFtQV9SRUFEAAENZ2V0VE1EVV9XQVZFUwAEGHRvdGFsX25vc2hhcmVfY29sbGF0ZXJhbAkBGnRvdGFsTm9TaGFyZUNvbGxhdGVyYWxSRUFEAAMJAGYCBRh0b3RhbF9ub3NoYXJlX2NvbGxhdGVyYWwAAAQZbWF4X2Jhc2VfdW5sb2NrYWJsZV93YXZlcwkBFGdldE1heEJhc2VUTURVX1dBVkVTAAMJAGYCBRh0b3RhbF9ub3NoYXJlX2NvbGxhdGVyYWwFGW1heF9iYXNlX3VubG9ja2FibGVfd2F2ZXMFGW1heF9iYXNlX3VubG9ja2FibGVfd2F2ZXMFGHRvdGFsX25vc2hhcmVfY29sbGF0ZXJhbAAAARFnZXRVc2VyVE1ESV9XQVZFUwEFb3duZXIJAGsDCQELZ2V0VE1ESV9XUkMACQBoAgCQTgkBE3VzZXJTaGFyZUZyYWN0aW9uXzQBBQVvd25lcgkBHHdhdmVzUmVmZXJlbmNlUHJpY2VfV1JDX1JFQUQAARFnZXRVc2VyVE1EVV9XQVZFUwEFb3duZXIJAGsDCQENZ2V0VE1EVV9XQVZFUwAJARN1c2VyU2hhcmVGcmFjdGlvbl80AQUFb3duZXIAkE4BD2dldFVzZXJUTURVX1dSQwEFb3duZXIJAGsDCQERZ2V0VXNlclRNRFVfV0FWRVMBBQVvd25lcgkBHHdhdmVzUmVmZXJlbmNlUHJpY2VfV1JDX1JFQUQAAIDC1y8IAWkBDWRlcG9zaXRfc2hhcmUABANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAhxBdHRhY2hlZCBwYXltZW50IGlzIHJlcXVpcmVkAwkBCWlzRGVmaW5lZAEIBQNwbXQHYXNzZXRJZAkAAgECFk9ubHkgV0FWRVMgaXMgYWxsb3dlZC4EB2FjY291bnQJAKUIAQgFAWkGY2FsbGVyBBB0b3RhbFNoYXJlQnlVc2VyCQEUdG90YWxTaGFyZUJ5VXNlclJFQUQBBQdhY2NvdW50BAt0b3RhbFNoYXJlcwkBD3RvdGFsU2hhcmVzUkVBRAAJAMwIAgkBDEludGVnZXJFbnRyeQIJARN0b3RhbFNoYXJlQnlVc2VyS0VZAQUHYWNjb3VudAkAZAIFEHRvdGFsU2hhcmVCeVVzZXIIBQNwbXQGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBQ50b3RhbFNoYXJlc0tFWQkAZAIFC3RvdGFsU2hhcmVzCAUDcG10BmFtb3VudAUDbmlsAWkBBWlzc3VlAAQDcG10AwkAAAIJAJADAQgFAWkIcGF5bWVudHMAAQkAkQMCCAUBaQhwYXltZW50cwAACQACAQIcQXR0YWNoZWQgcGF5bWVudCBpcyByZXF1aXJlZAMJAQlpc0RlZmluZWQBCAUDcG10B2Fzc2V0SWQJAAIBAhZPbmx5IFdBVkVTIGlzIGFsbG93ZWQuBAdhY2NvdW50CQClCAEIBQFpBmNhbGxlcgQJbWF4X3dhdmVzCQERZ2V0VXNlclRNRElfV0FWRVMBBQdhY2NvdW50AwkAZgIIBQNwbXQGYW1vdW50BQltYXhfd2F2ZXMJAAIBCQCsAgIJAKwCAgkArAICCQCsAgICE1VzZXIgbG9jayBsaW1pdCBpcyAJAKQDAQUJbWF4X3dhdmVzAg0gV0FWRVMuIFNlbnQgCQCkAwEIBQNwbXQGYW1vdW50AgcgV0FWRVMuBBB3cmNfaXNzdWVfYW1vdW50CQBrAwgFA3BtdAZhbW91bnQJARx3YXZlc1JlZmVyZW5jZVByaWNlX1dSQ19SRUFEAACAwtcvBBl0b3RhbF9ub19zaGFyZV9jb2xsYXRlcmFsCQEadG90YWxOb1NoYXJlQ29sbGF0ZXJhbFJFQUQABAx0b3RhbF9pc3N1ZWQJARN0b3RhbElzc3VlZFdSQ19SRUFEAAkAzAgCCQEMSW50ZWdlckVudHJ5AgUZdG90YWxOb1NoYXJlQ29sbGF0ZXJhbEtFWQkAZAIFGXRvdGFsX25vX3NoYXJlX2NvbGxhdGVyYWwIBQNwbXQGYW1vdW50CQDMCAIJAQxJbnRlZ2VyRW50cnkCBRJ0b3RhbElzc3VlZFdSQ19LRVkJAGQCBQx0b3RhbF9pc3N1ZWQFEHdyY19pc3N1ZV9hbW91bnQJAMwIAgkBDlNjcmlwdFRyYW5zZmVyAwkBEUBleHRyTmF0aXZlKDEwNjIpAQUHYWNjb3VudAUQd3JjX2lzc3VlX2Ftb3VudAkA2QQBBQVXUkNJZAUDbmlsAWkBBGJ1cm4ABANwbXQDCQAAAgkAkAMBCAUBaQhwYXltZW50cwABCQCRAwIIBQFpCHBheW1lbnRzAAAJAAIBAhxBdHRhY2hlZCBwYXltZW50IGlzIHJlcXVpcmVkAwkBAiE9AggFA3BtdAdhc3NldElkCQDZBAEFBVdSQ0lkCQACAQIUT25seSBXUkMgaXMgYWxsb3dlZC4EB2FjY291bnQJAKUIAQgFAWkGY2FsbGVyBBBtYXhfYnVybmFibGVfd3JjCQEPZ2V0VXNlclRNRFVfV1JDAQUHYWNjb3VudAMJAGYCCAUDcG10BmFtb3VudAUQbWF4X2J1cm5hYmxlX3dyYwkAAgEJAKwCAgkArAICAhFVc2VyIGJ1cm4gbGltaXQ6IAkApAMBBRBtYXhfYnVybmFibGVfd3JjAgQgV1JDBAx1bmxvY2tfd2F2ZXMJAGsDCAUDcG10BmFtb3VudACAwtcvCQEcd2F2ZXNSZWZlcmVuY2VQcmljZV9XUkNfUkVBRAAJAAIBCQCkAwEFDHVubG9ja193YXZlcwFpAQ10ZXN0X2dldF90bWRpAAkAAgEJAKwCAgIIUmVzdWx0OiAJAKQDAQkBC2dldFRNRElfV1JDAAFpARJ0ZXN0X2dldF91c2VyX3RtZGkBB2FjY291bnQJAAIBCQCsAgICCFJlc3VsdDogCQCkAwEJARFnZXRVc2VyVE1ESV9XQVZFUwEFB2FjY291bnQBaQESdGVzdF9nZXRfYmFzZV90bWR1AAkAAgEJAKwCAgIIUmVzdWx0OiAJAKQDAQkBFGdldE1heEJhc2VUTURVX1dBVkVTAAFpAQ10ZXN0X2dldF90bWR1AAkAAgEJAKwCAgIIUmVzdWx0OiAJAKQDAQkBDWdldFRNRFVfV0FWRVMAAWkBEnRlc3RfZ2V0X3VzZXJfdG1kdQEHYWNjb3VudAkAAgEJAKwCAgIIUmVzdWx0OiAJAKQDAQkBD2dldFVzZXJUTURVX1dSQwEFB2FjY291bnQA3Rt27Q==",
    "height": 2527189,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EVNABj6mAxswSboffjipqZarn62UVLQmrK5LN8S63pR8
Next: none

Diff: 
Old New Differences
87 87      }
88 88  
89 89  
90 - func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (1000 * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
90 + func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (10000 * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
91 91  
92 92  
93 93  func getUserTMDU_WAVES (owner) = fraction(getTMDU_WAVES(), userShareFraction_4(owner), 10000)
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 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) = if (if ((amount == 0))
60 60      then true
61 61      else (issued_wrc == 0))
62 62      then 0
63 63      else fraction(amount, pow(10, 0, computeLogTMDIR(issued_wrc, A), 8, 8, HALFUP), 100000000)
64 64  
65 65  
66 66  func computeTMDI_WRC (issued_wrc,A) = if ((issued_wrc > WRCThreshold))
67 67      then TMDIRmultiply(issued_wrc, issued_wrc, A)
68 68      else WRCThreshold
69 69  
70 70  
71 71  func getTMDI_WRC () = computeTMDI_WRC(totalIssuedWRC_READ(), paramA_READ())
72 72  
73 73  
74 74  func getMaxBaseTMDU_WAVES () = TMDIRmultiply((totalNoShareCollateralREAD() * 10), totalIssuedWRC_READ(), paramA_READ())
75 75  
76 76  
77 77  func getTMDU_WAVES () = {
78 78      let total_noshare_collateral = totalNoShareCollateralREAD()
79 79      if ((total_noshare_collateral > 0))
80 80          then {
81 81              let max_base_unlockable_waves = getMaxBaseTMDU_WAVES()
82 82              if ((total_noshare_collateral > max_base_unlockable_waves))
83 83                  then max_base_unlockable_waves
84 84                  else total_noshare_collateral
85 85              }
86 86          else 0
87 87      }
88 88  
89 89  
90 - func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (1000 * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
90 + func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (10000 * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
91 91  
92 92  
93 93  func getUserTMDU_WAVES (owner) = fraction(getTMDU_WAVES(), userShareFraction_4(owner), 10000)
94 94  
95 95  
96 96  func getUserTMDU_WRC (owner) = fraction(getUserTMDU_WAVES(owner), wavesReferencePrice_WRC_READ(), 100000000)
97 97  
98 98  
99 99  @Callable(i)
100 100  func deposit_share () = {
101 101      let pmt = if ((size(i.payments) == 1))
102 102          then i.payments[0]
103 103          else throw("Attached payment is required")
104 104      if (isDefined(pmt.assetId))
105 105          then throw("Only WAVES is allowed.")
106 106          else {
107 107              let account = toString(i.caller)
108 108              let totalShareByUser = totalShareByUserREAD(account)
109 109              let totalShares = totalSharesREAD()
110 110  [IntegerEntry(totalShareByUserKEY(account), (totalShareByUser + pmt.amount)), IntegerEntry(totalSharesKEY, (totalShares + pmt.amount))]
111 111              }
112 112      }
113 113  
114 114  
115 115  
116 116  @Callable(i)
117 117  func issue () = {
118 118      let pmt = if ((size(i.payments) == 1))
119 119          then i.payments[0]
120 120          else throw("Attached payment is required")
121 121      if (isDefined(pmt.assetId))
122 122          then throw("Only WAVES is allowed.")
123 123          else {
124 124              let account = toString(i.caller)
125 125              let max_waves = getUserTMDI_WAVES(account)
126 126              if ((pmt.amount > max_waves))
127 127                  then throw((((("User lock limit is " + toString(max_waves)) + " WAVES. Sent ") + toString(pmt.amount)) + " WAVES."))
128 128                  else {
129 129                      let wrc_issue_amount = fraction(pmt.amount, wavesReferencePrice_WRC_READ(), 100000000)
130 130                      let total_no_share_collateral = totalNoShareCollateralREAD()
131 131                      let total_issued = totalIssuedWRC_READ()
132 132  [IntegerEntry(totalNoShareCollateralKEY, (total_no_share_collateral + pmt.amount)), IntegerEntry(totalIssuedWRC_KEY, (total_issued + wrc_issue_amount)), ScriptTransfer(addressFromStringValue(account), wrc_issue_amount, fromBase58String(WRCId))]
133 133                      }
134 134              }
135 135      }
136 136  
137 137  
138 138  
139 139  @Callable(i)
140 140  func burn () = {
141 141      let pmt = if ((size(i.payments) == 1))
142 142          then i.payments[0]
143 143          else throw("Attached payment is required")
144 144      if ((pmt.assetId != fromBase58String(WRCId)))
145 145          then throw("Only WRC is allowed.")
146 146          else {
147 147              let account = toString(i.caller)
148 148              let max_burnable_wrc = getUserTMDU_WRC(account)
149 149              if ((pmt.amount > max_burnable_wrc))
150 150                  then throw((("User burn limit: " + toString(max_burnable_wrc)) + " WRC"))
151 151                  else {
152 152                      let unlock_waves = fraction(pmt.amount, 100000000, wavesReferencePrice_WRC_READ())
153 153                      throw(toString(unlock_waves))
154 154                      }
155 155              }
156 156      }
157 157  
158 158  
159 159  
160 160  @Callable(i)
161 161  func test_get_tmdi () = throw(("Result: " + toString(getTMDI_WRC())))
162 162  
163 163  
164 164  
165 165  @Callable(i)
166 166  func test_get_user_tmdi (account) = throw(("Result: " + toString(getUserTMDI_WAVES(account))))
167 167  
168 168  
169 169  
170 170  @Callable(i)
171 171  func test_get_base_tmdu () = throw(("Result: " + toString(getMaxBaseTMDU_WAVES())))
172 172  
173 173  
174 174  
175 175  @Callable(i)
176 176  func test_get_tmdu () = throw(("Result: " + toString(getTMDU_WAVES())))
177 177  
178 178  
179 179  
180 180  @Callable(i)
181 181  func test_get_user_tmdu (account) = throw(("Result: " + toString(getUserTMDU_WRC(account))))
182 182  
183 183

Old	New		Differences
87	87		}
88	88
89	89
90		-	func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (~~1000~~ * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
	90	+	func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (10000 * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
91	91
92	92
93	93		func getUserTMDU_WAVES (owner) = fraction(getTMDU_WAVES(), userShareFraction_4(owner), 10000)

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	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) = if (if ((amount == 0))
60	60		then true
61	61		else (issued_wrc == 0))
62	62		then 0
63	63		else fraction(amount, pow(10, 0, computeLogTMDIR(issued_wrc, A), 8, 8, HALFUP), 100000000)
64	64
65	65
66	66		func computeTMDI_WRC (issued_wrc,A) = if ((issued_wrc > WRCThreshold))
67	67		then TMDIRmultiply(issued_wrc, issued_wrc, A)
68	68		else WRCThreshold
69	69
70	70
71	71		func getTMDI_WRC () = computeTMDI_WRC(totalIssuedWRC_READ(), paramA_READ())
72	72
73	73
74	74		func getMaxBaseTMDU_WAVES () = TMDIRmultiply((totalNoShareCollateralREAD() * 10), totalIssuedWRC_READ(), paramA_READ())
75	75
76	76
77	77		func getTMDU_WAVES () = {
78	78		let total_noshare_collateral = totalNoShareCollateralREAD()
79	79		if ((total_noshare_collateral > 0))
80	80		then {
81	81		let max_base_unlockable_waves = getMaxBaseTMDU_WAVES()
82	82		if ((total_noshare_collateral > max_base_unlockable_waves))
83	83		then max_base_unlockable_waves
84	84		else total_noshare_collateral
85	85		}
86	86		else 0
87	87		}
88	88
89	89
90		-	func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (~~1000~~ * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
	90	+	func getUserTMDI_WAVES (owner) = fraction(getTMDI_WRC(), (10000 * userShareFraction_4(owner)), wavesReferencePrice_WRC_READ())
91	91
92	92
93	93		func getUserTMDU_WAVES (owner) = fraction(getTMDU_WAVES(), userShareFraction_4(owner), 10000)
94	94
95	95
96	96		func getUserTMDU_WRC (owner) = fraction(getUserTMDU_WAVES(owner), wavesReferencePrice_WRC_READ(), 100000000)
97	97
98	98
99	99		@Callable(i)
100	100		func deposit_share () = {
101	101		let pmt = if ((size(i.payments) == 1))
102	102		then i.payments[0]
103	103		else throw("Attached payment is required")
104	104		if (isDefined(pmt.assetId))
105	105		then throw("Only WAVES is allowed.")
106	106		else {
107	107		let account = toString(i.caller)
108	108		let totalShareByUser = totalShareByUserREAD(account)
109	109		let totalShares = totalSharesREAD()
110	110		[IntegerEntry(totalShareByUserKEY(account), (totalShareByUser + pmt.amount)), IntegerEntry(totalSharesKEY, (totalShares + pmt.amount))]
111	111		}
112	112		}
113	113
114	114
115	115
116	116		@Callable(i)
117	117		func issue () = {
118	118		let pmt = if ((size(i.payments) == 1))
119	119		then i.payments[0]
120	120		else throw("Attached payment is required")
121	121		if (isDefined(pmt.assetId))
122	122		then throw("Only WAVES is allowed.")
123	123		else {
124	124		let account = toString(i.caller)
125	125		let max_waves = getUserTMDI_WAVES(account)
126	126		if ((pmt.amount > max_waves))
127	127		then throw((((("User lock limit is " + toString(max_waves)) + " WAVES. Sent ") + toString(pmt.amount)) + " WAVES."))
128	128		else {
129	129		let wrc_issue_amount = fraction(pmt.amount, wavesReferencePrice_WRC_READ(), 100000000)
130	130		let total_no_share_collateral = totalNoShareCollateralREAD()
131	131		let total_issued = totalIssuedWRC_READ()
132	132		[IntegerEntry(totalNoShareCollateralKEY, (total_no_share_collateral + pmt.amount)), IntegerEntry(totalIssuedWRC_KEY, (total_issued + wrc_issue_amount)), ScriptTransfer(addressFromStringValue(account), wrc_issue_amount, fromBase58String(WRCId))]
133	133		}
134	134		}
135	135		}
136	136
137	137
138	138
139	139		@Callable(i)
140	140		func burn () = {
141	141		let pmt = if ((size(i.payments) == 1))
142	142		then i.payments[0]
143	143		else throw("Attached payment is required")
144	144		if ((pmt.assetId != fromBase58String(WRCId)))
145	145		then throw("Only WRC is allowed.")
146	146		else {
147	147		let account = toString(i.caller)
148	148		let max_burnable_wrc = getUserTMDU_WRC(account)
149	149		if ((pmt.amount > max_burnable_wrc))
150	150		then throw((("User burn limit: " + toString(max_burnable_wrc)) + " WRC"))
151	151		else {
152	152		let unlock_waves = fraction(pmt.amount, 100000000, wavesReferencePrice_WRC_READ())
153	153		throw(toString(unlock_waves))
154	154		}
155	155		}
156	156		}
157	157
158	158
159	159
160	160		@Callable(i)
161	161		func test_get_tmdi () = throw(("Result: " + toString(getTMDI_WRC())))
162	162
163	163
164	164
165	165		@Callable(i)
166	166		func test_get_user_tmdi (account) = throw(("Result: " + toString(getUserTMDI_WAVES(account))))
167	167
168	168
169	169
170	170		@Callable(i)
171	171		func test_get_base_tmdu () = throw(("Result: " + toString(getMaxBaseTMDU_WAVES())))
172	172
173	173
174	174
175	175		@Callable(i)
176	176		func test_get_tmdu () = throw(("Result: " + toString(getTMDU_WAVES())))
177	177
178	178
179	179
180	180		@Callable(i)
181	181		func test_get_user_tmdu (account) = throw(("Result: " + toString(getUserTMDU_WRC(account))))
182	182
183	183

github/deemru/w8io/169f3d6 
51.09 ms ◑