w8 · tx · DJt···46m

tx · DJtL4wPFzS7SscXythACbzdqakEZnsvZ7NxxjYDjQ46m

3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP:  -0.01000000 Waves

2023.05.04 14:24 [2562946] smart account 3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "DJtL4wPFzS7SscXythACbzdqakEZnsvZ7NxxjYDjQ46m",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1683199500582,
    "version": 2,
    "chainId": 84,
    "sender": "3N4nTJ5sSp5X5ChS2bBBmwNMn1eeRzT1FoP",
    "senderPublicKey": "EsqRXDXnACFAdXz6EPhF1SbKyeV7MVuoyDqmXsMz7ySv",
    "proofs": [
        "2Cc6vN3Z1P5YqPt63VfS2RF8UE1LU7DYP1Y6Y4z9tKfnaQwztMG1uKnbeaMW85bS6kDCLgvcCfqciCf6YKRYFn3"
    ],
    "script": null,
    "height": 2562946,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 8C89DQdGAq2zYL1opkyKEFnEfWauNzuqVwTM4c6FbQCZ
Next: none

Full: 
Old New Differences
1 - {-# STDLIB_VERSION 6 #-}
2 - {-# SCRIPT_TYPE ACCOUNT #-}
3 - {-# CONTENT_TYPE DAPP #-}
4 - let scale8 = 100000000
5 - 
6 - let scale8BigInt = toBigInt(100000000)
7 - 
8 - let scale18 = toBigInt(1000000000000000000)
9 - 
10 - let zeroBigInt = toBigInt(0)
11 - 
12 - let big0 = toBigInt(0)
13 - 
14 - let big1 = toBigInt(1)
15 - 
16 - let big2 = toBigInt(2)
17 - 
18 - let big3 = toBigInt(3)
19 - 
20 - let big4 = toBigInt(4)
21 - 
22 - let wavesString = "WAVES"
23 - 
24 - let ampInitial = 50
25 - 
26 - let Amult = "100"
27 - 
28 - let SEP = "__"
29 - 
30 - let PoolPutDis = 2
31 - 
32 - let PoolMatcherDis = 3
33 - 
34 - let PoolShutdown = 4
35 - 
36 - let idxPoolAddress = 1
37 - 
38 - let idxPoolSt = 2
39 - 
40 - let idxLPAsId = 3
41 - 
42 - let idxAmAsId = 4
43 - 
44 - let idxPrAsId = 5
45 - 
46 - let idxAmtAsDcm = 6
47 - 
48 - let idxPriceAsDcm = 7
49 - 
50 - let idxFactStakCntr = 1
51 - 
52 - let idxFactoryRestCntr = 6
53 - 
54 - let idxFactSlippCntr = 7
55 - 
56 - let feeDefault = fraction(10, scale8, 10000)
57 - 
58 - func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
59 - 
60 - 
61 - func t1BigInt (origVal,origScaleMult) = fraction(origVal, scale18, origScaleMult)
62 - 
63 - 
64 - func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
65 - 
66 - 
67 - func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
68 - 
69 - 
70 - func abs (val) = if ((zeroBigInt > val))
71 -     then -(val)
72 -     else val
73 - 
74 - 
75 - func absBigInt (val) = if ((zeroBigInt > val))
76 -     then -(val)
77 -     else val
78 - 
79 - 
80 - func fc () = "%s__factoryContract"
81 - 
82 - 
83 - func mpk () = "%s__managerPublicKey"
84 - 
85 - 
86 - func pmpk () = "%s__pendingManagerPublicKey"
87 - 
88 - 
89 - func pl () = "%s%s__price__last"
90 - 
91 - 
92 - func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
93 - 
94 - 
95 - func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
96 - 
97 - 
98 - func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
99 - 
100 - 
101 - func aa () = "%s__amountAsset"
102 - 
103 - 
104 - func pa () = "%s__priceAsset"
105 - 
106 - 
107 - func amp () = "%s__amp"
108 - 
109 - 
110 - func keyAmpHistory (heightBlocks) = ("%s%d__amp__" + toString(heightBlocks))
111 - 
112 - 
113 - func keyChangeAmpLastCall () = "%s__changeAmpLastCall"
114 - 
115 - 
116 - let keyFee = "%s__fee"
117 - 
118 - let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
119 - 
120 - let keyDLp = makeString(["%s", "dLp"], SEP)
121 - 
122 - let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
123 - 
124 - let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
125 - 
126 - let dLpRefreshDelayDefault = 30
127 - 
128 - let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
129 - 
130 - func fcfg () = "%s__factoryConfig"
131 - 
132 - 
133 - func mtpk () = "%s%s__matcher__publicKey"
134 - 
135 - 
136 - func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
137 - 
138 - 
139 - func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
140 - 
141 - 
142 - func aps () = "%s__shutdown"
143 - 
144 - 
145 - func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
146 - 
147 - 
148 - func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
149 - 
150 - 
151 - func keySkipOrderValidation (poolAddress) = ("%s%s__skipOrderValidation__" + poolAddress)
152 - 
153 - 
154 - func throwOrderError (orderValid,orderValidInfo,senderValid,matcherValid) = throw((((((((("order validation failed: orderValid=" + toString(orderValid)) + " (") + orderValidInfo) + ")") + " senderValid=") + toString(senderValid)) + " matcherValid=") + toString(matcherValid)))
155 - 
156 - 
157 - func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
158 - 
159 - 
160 - func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
161 - 
162 - 
163 - func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
164 - 
165 - 
166 - func fmtErr (msg) = makeString(["lp_stable.ride:", msg], " ")
167 - 
168 - 
169 - let fca = addressFromStringValue(strf(this, fc()))
170 - 
171 - let inFee = {
172 -     let @ = invoke(fca, "getInFeeREADONLY", [toString(this)], nil)
173 -     if ($isInstanceOf(@, "Int"))
174 -         then @
175 -         else throw(($getType(@) + " couldn't be cast to Int"))
176 -     }
177 - 
178 - let outFee = {
179 -     let @ = invoke(fca, "getOutFeeREADONLY", [toString(this)], nil)
180 -     if ($isInstanceOf(@, "Int"))
181 -         then @
182 -         else throw(($getType(@) + " couldn't be cast to Int"))
183 -     }
184 - 
185 - let A = strf(this, amp())
186 - 
187 - func igs () = valueOrElse(getBoolean(fca, aps()), false)
188 - 
189 - 
190 - func mp () = fromBase58String(strf(fca, mtpk()))
191 - 
192 - 
193 - let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
194 - 
195 - func gpc () = {
196 -     let amtAs = strf(this, aa())
197 -     let priceAs = strf(this, pa())
198 -     let iPriceAs = intf(fca, mba(priceAs))
199 -     let iAmtAs = intf(fca, mba(amtAs))
200 -     split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
201 -     }
202 - 
203 - 
204 - func parseAssetId (input) = if ((input == wavesString))
205 -     then unit
206 -     else fromBase58String(input)
207 - 
208 - 
209 - func assetIdToString (input) = if ((input == unit))
210 -     then wavesString
211 -     else toBase58String(value(input))
212 - 
213 - 
214 - func parsePoolConfig (poolConfig) = $Tuple7(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]))
215 - 
216 - 
217 - let poolConfigParsed = parsePoolConfig(gpc())
218 - 
219 - let $t080878273 = poolConfigParsed
220 - 
221 - let cfgPoolStatus = $t080878273._2
222 - 
223 - let cfgLpAssetId = $t080878273._3
224 - 
225 - let cfgAmountAssetId = $t080878273._4
226 - 
227 - let cfgPriceAssetId = $t080878273._5
228 - 
229 - let cfgAmountAssetDecimals = $t080878273._6
230 - 
231 - let cfgPriceAssetDecimals = $t080878273._7
232 - 
233 - func gfc () = split(strf(fca, fcfg()), SEP)
234 - 
235 - 
236 - let factoryConfig = gfc()
237 - 
238 - let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
239 - 
240 - let restContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactoryRestCntr]), "Invalid gwx contract address")
241 - 
242 - func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
243 - 
244 - 
245 - func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
246 - 
247 - 
248 - func getAccBalance (assetId) = if ((assetId == "WAVES"))
249 -     then wavesBalance(this).available
250 -     else assetBalance(this, fromBase58String(assetId))
251 - 
252 - 
253 - func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
254 - 
255 - 
256 - func cpbir (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
257 - 
258 - 
259 - func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
260 -     let amtAsAmtX18 = t1(amAmt, amAssetDcm)
261 -     let prAsAmtX18 = t1(prAmt, prAssetDcm)
262 -     cpbi(prAsAmtX18, amtAsAmtX18)
263 -     }
264 - 
265 - 
266 - func calcPrices (amAmt,prAmt,lpAmt) = {
267 -     let amtAsDcm = cfgAmountAssetDecimals
268 -     let prAsDcm = cfgPriceAssetDecimals
269 -     let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
270 -     let amAmtX18 = t1(amAmt, amtAsDcm)
271 -     let prAmtX18 = t1(prAmt, prAsDcm)
272 -     let lpAmtX18 = t1(lpAmt, scale8)
273 -     let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
274 -     let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
275 - [priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
276 -     }
277 - 
278 - 
279 - func takeFee (amount,fee) = {
280 -     let feeAmount = if ((fee == 0))
281 -         then 0
282 -         else fraction(amount, fee, scale8)
283 -     $Tuple2((amount - feeAmount), feeAmount)
284 -     }
285 - 
286 - 
287 - func getD (xp) = {
288 -     let xp0 = xp[0]
289 -     let xp1 = xp[1]
290 -     let s = (xp0 + xp1)
291 -     if ((s == big0))
292 -         then big0
293 -         else {
294 -             let a = parseIntValue(A)
295 -             let ann = (a * 2)
296 -             let p = fraction(xp0, xp1, big1)
297 -             let xp0_xp1_n_n = fraction(p, big4, big1)
298 -             let ann_s = fraction(toBigInt(ann), s, big1)
299 -             let ann_1 = toBigInt((ann - 1))
300 -             func calcDNext (d) =             {
301 -                 let dd = fraction(d, d, big1)
302 -                 let ddd = fraction(dd, d, big1)
303 -                 let dp = fraction(ddd, big1, xp0_xp1_n_n)
304 -                 fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)))
305 -                 }
306 - 
307 -             func calc (acc,i) =             if (acc._2)
308 -                 then acc
309 -                 else {
310 -                     let d = acc._1
311 -                     let dNext = calcDNext(d)
312 -                     let dDiffRaw = (dNext - value(d))
313 -                     let dDiff = if ((big0 > dDiffRaw))
314 -                         then -(dDiffRaw)
315 -                         else dDiffRaw
316 -                     if ((big1 >= dDiff))
317 -                         then $Tuple2(dNext, true)
318 -                         else $Tuple2(dNext, false)
319 -                     }
320 - 
321 -             let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]
322 -             let $t01277812826 = {
323 -                 let $l = arr
324 -                 let $s = size($l)
325 -                 let $acc0 = $Tuple2(s, false)
326 -                 func $f0_1 ($a,$i) =                 if (($i >= $s))
327 -                     then $a
328 -                     else calc($a, $l[$i])
329 - 
330 -                 func $f0_2 ($a,$i) =                 if (($i >= $s))
331 -                     then $a
332 -                     else throw("List size exceeds 17")
333 - 
334 -                 $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17)
335 -                 }
336 -             let d = $t01277812826._1
337 -             let found = $t01277812826._2
338 -             if (found)
339 -                 then d
340 -                 else throw(("D calculation error, D = " + toString(d)))
341 -             }
342 -     }
343 - 
344 - 
345 - func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
346 -     let lpId = cfgLpAssetId
347 -     let amId = toBase58String(value(cfgAmountAssetId))
348 -     let prId = toBase58String(value(cfgPriceAssetId))
349 -     let amDcm = cfgAmountAssetDecimals
350 -     let prDcm = cfgPriceAssetDecimals
351 -     let sts = toString(cfgPoolStatus)
352 -     let lpEmiss = valueOrErrorMessage(assetInfo(lpId), "Wrong LP id").quantity
353 -     if ((toBase58String(lpId) != pmtAssetId))
354 -         then throw("Wrong pmt asset")
355 -         else {
356 -             let amBalance = getAccBalance(amId)
357 -             let amBalanceX18 = t1(amBalance, amDcm)
358 -             let prBalance = getAccBalance(prId)
359 -             let prBalanceX18 = t1(prBalance, prDcm)
360 -             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
361 -             let curPrice = f1(curPriceX18, scale8)
362 -             let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
363 -             let lpEmissX18 = t1(lpEmiss, scale8)
364 -             let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
365 -             let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
366 -             let outAmAmt = fromX18Round(outAmAmtX18, amDcm, FLOOR)
367 -             let outPrAmt = fromX18Round(outPrAmtX18, prDcm, FLOOR)
368 -             let state = if ((txId58 == ""))
369 -                 then nil
370 -                 else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
371 -                     then unit
372 -                     else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
373 -                     then unit
374 -                     else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
375 -             $Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
376 -             }
377 -     }
378 - 
379 - 
380 - func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
381 -     let lpId = cfgLpAssetId
382 -     let amIdStr = toBase58String(value(cfgAmountAssetId))
383 -     let prIdStr = toBase58String(value(cfgPriceAssetId))
384 -     let amtDcm = cfgAmountAssetDecimals
385 -     let priceDcm = cfgPriceAssetDecimals
386 -     let sts = toString(cfgPoolStatus)
387 -     let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
388 -     let amBalance = if (isEval)
389 -         then getAccBalance(amIdStr)
390 -         else if (if (isOneAsset)
391 -             then (pmtId == amIdStr)
392 -             else false)
393 -             then (getAccBalance(amIdStr) - pmtAmt)
394 -             else if (isOneAsset)
395 -                 then getAccBalance(amIdStr)
396 -                 else (getAccBalance(amIdStr) - inAmAmt)
397 -     let prBalance = if (isEval)
398 -         then getAccBalance(prIdStr)
399 -         else if (if (isOneAsset)
400 -             then (pmtId == prIdStr)
401 -             else false)
402 -             then (getAccBalance(prIdStr) - pmtAmt)
403 -             else if (isOneAsset)
404 -                 then getAccBalance(prIdStr)
405 -                 else (getAccBalance(prIdStr) - inPrAmt)
406 -     let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
407 -     let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
408 -     let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
409 -     let amBalanceX18 = t1(amBalance, amtDcm)
410 -     let prBalanceX18 = t1(prBalance, priceDcm)
411 -     let D0 = getD([amBalanceX18, prBalanceX18])
412 -     let r = if ((lpEm == 0))
413 -         then {
414 -             let D1 = getD([(amBalanceX18 + inAmAssetAmtX18), (prBalanceX18 + inPrAssetAmtX18)])
415 -             let checkD = if ((D1 > D0))
416 -                 then true
417 -                 else throw("D1 should be greater than D0")
418 -             if ((checkD == checkD))
419 -                 then {
420 -                     let curPriceX18 = zeroBigInt
421 -                     let slippageX18 = zeroBigInt
422 -                     let lpAmtX18 = D1
423 -                     $Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
424 -                     }
425 -                 else throw("Strict value is not equal to itself.")
426 -             }
427 -         else {
428 -             let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
429 -             let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
430 -             let slippageX18 = t1(slippage, scale8)
431 -             if (if (if (validateSlippage)
432 -                 then (curPriceX18 != zeroBigInt)
433 -                 else false)
434 -                 then (slippageRealX18 > slippageX18)
435 -                 else false)
436 -                 then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
437 -                 else {
438 -                     let lpEmissionX18 = t1(lpEm, scale8)
439 -                     let prViaAmX18 = fraction(inAmAssetAmtX18, cpbir(prBalanceX18, amBalanceX18, CEILING), scale18, CEILING)
440 -                     let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, cpbir(prBalanceX18, amBalanceX18, FLOOR), CEILING)
441 -                     let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
442 -                         then $Tuple2(amViaPrX18, inPrAssetAmtX18)
443 -                         else $Tuple2(inAmAssetAmtX18, prViaAmX18)
444 -                     let expAmtAssetAmtX18 = expectedAmts._1
445 -                     let expPriceAssetAmtX18 = expectedAmts._2
446 -                     let D1 = getD([(amBalanceX18 + expAmtAssetAmtX18), (prBalanceX18 + expPriceAssetAmtX18)])
447 -                     let checkD = if ((D1 > D0))
448 -                         then true
449 -                         else throw("D1 should be greater than D0")
450 -                     if ((checkD == checkD))
451 -                         then {
452 -                             let lpAmtX18 = fraction(lpEmissionX18, (D1 - D0), D0)
453 -                             $Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceDcm, CEILING), curPriceX18, slippageX18)
454 -                             }
455 -                         else throw("Strict value is not equal to itself.")
456 -                     }
457 -             }
458 -     let calcLpAmt = r._1
459 -     let calcAmAssetPmt = r._2
460 -     let calcPrAssetPmt = r._3
461 -     let curPrice = f1(r._4, scale8)
462 -     let slippageCalc = f1(r._5, scale8)
463 -     if ((0 >= calcLpAmt))
464 -         then throw("LP <= 0")
465 -         else {
466 -             let emitLpAmt = if (!(emitLp))
467 -                 then 0
468 -                 else calcLpAmt
469 -             let amDiff = (inAmAmt - calcAmAssetPmt)
470 -             let prDiff = (inPrAmt - calcPrAssetPmt)
471 -             let $t02058820933 = if (if (isOneAsset)
472 -                 then (pmtId == amIdStr)
473 -                 else false)
474 -                 then $Tuple2(pmtAmt, 0)
475 -                 else if (if (isOneAsset)
476 -                     then (pmtId == prIdStr)
477 -                     else false)
478 -                     then $Tuple2(0, pmtAmt)
479 -                     else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
480 -             let writeAmAmt = $t02058820933._1
481 -             let writePrAmt = $t02058820933._2
482 -             let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
483 -             $Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
484 -             }
485 -     }
486 - 
487 - 
488 - func getYD (xp,i,D) = {
489 -     let n = big2
490 -     let x = xp[if ((i == 0))
491 -         then 1
492 -         else 0]
493 -     let aPrecision = parseBigIntValue(Amult)
494 -     let a = (parseBigIntValue(A) * aPrecision)
495 -     let s = x
496 -     let ann = (a * n)
497 -     let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
498 -     let b = ((s + ((D * aPrecision) / ann)) - D)
499 -     func calc (acc,cur) =     {
500 -         let $t02212822148 = acc
501 -         let y = $t02212822148._1
502 -         let found = $t02212822148._2
503 -         if ((found != unit))
504 -             then acc
505 -             else {
506 -                 let yNext = (((y * y) + c) / ((big2 * y) + b))
507 -                 let yDiff = absBigInt((yNext - value(y)))
508 -                 if ((big1 >= yDiff))
509 -                     then $Tuple2(yNext, cur)
510 -                     else $Tuple2(yNext, unit)
511 -                 }
512 -         }
513 - 
514 -     let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
515 -     let $t02245522502 = {
516 -         let $l = arr
517 -         let $s = size($l)
518 -         let $acc0 = $Tuple2(D, unit)
519 -         func $f0_1 ($a,$i) =         if (($i >= $s))
520 -             then $a
521 -             else calc($a, $l[$i])
522 - 
523 -         func $f0_2 ($a,$i) =         if (($i >= $s))
524 -             then $a
525 -             else throw("List size exceeds 15")
526 - 
527 -         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
528 -         }
529 -     let y = $t02245522502._1
530 -     let found = $t02245522502._2
531 -     if ((found != unit))
532 -         then y
533 -         else throw(("Y calculation error, Y = " + toString(y)))
534 -     }
535 - 
536 - 
537 - func calcDLp (amountBalance,priceBalance,lpEmission) = {
538 -     let updatedDLp = fraction(getD([t1BigInt(amountBalance, toBigInt(cfgAmountAssetDecimals)), t1BigInt(priceBalance, toBigInt(cfgPriceAssetDecimals))]), scale18, lpEmission)
539 -     if ((lpEmission == big0))
540 -         then big0
541 -         else updatedDLp
542 -     }
543 - 
544 - 
545 - func calcCurrentDLp (amountAssetDelta,priceAssetDelta,lpAssetEmissionDelta) = {
546 -     let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amountAssetDelta)
547 -     let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - priceAssetDelta)
548 -     let lpAssetEmission = (toBigInt(value(assetInfo(cfgLpAssetId)).quantity) - lpAssetEmissionDelta)
549 -     let currentDLp = calcDLp(amountAssetBalance, priceAssetBalance, lpAssetEmission)
550 -     currentDLp
551 -     }
552 - 
553 - 
554 - func refreshDLpInternal (amountAssetBalanceDelta,priceAssetBalanceDelta,lpAssetEmissionDelta) = {
555 -     let amountAssetBalance = (getAccBalance(assetIdToString(cfgAmountAssetId)) + amountAssetBalanceDelta)
556 -     let priceAssetBalance = (getAccBalance(assetIdToString(cfgPriceAssetId)) + priceAssetBalanceDelta)
557 -     let lpAssetEmission = (value(assetInfo(cfgLpAssetId)).quantity + lpAssetEmissionDelta)
558 -     let updatedDLp = calcDLp(toBigInt(amountAssetBalance), toBigInt(priceAssetBalance), toBigInt(lpAssetEmission))
559 -     let actions = [IntegerEntry(keyDLpRefreshedHeight, height), StringEntry(keyDLp, toString(updatedDLp))]
560 -     $Tuple2(actions, updatedDLp)
561 -     }
562 - 
563 - 
564 - func validateUpdatedDLp (oldDLp,updatedDLp) = if ((updatedDLp >= oldDLp))
565 -     then true
566 -     else throwErr("updated DLp lower than current DLp")
567 - 
568 - 
569 - func validateMatcherOrderAllowed (order) = {
570 -     let amountAssetBalance = getAccBalance(assetIdToString(cfgAmountAssetId))
571 -     let priceAssetBalance = getAccBalance(assetIdToString(cfgPriceAssetId))
572 -     let amountAssetAmount = order.amount
573 -     let priceAssetAmount = fraction(order.amount, order.price, scale8, FLOOR)
574 -     let $t02470024912 = if ((order.orderType == Buy))
575 -         then $Tuple2(amountAssetAmount, -(priceAssetAmount))
576 -         else $Tuple2(-(amountAssetAmount), priceAssetAmount)
577 -     let amountAssetBalanceDelta = $t02470024912._1
578 -     let priceAssetBalanceDelta = $t02470024912._2
579 -     if (if (if (igs())
580 -         then true
581 -         else (cfgPoolStatus == PoolMatcherDis))
582 -         then true
583 -         else (cfgPoolStatus == PoolShutdown))
584 -         then throw("Admin blocked")
585 -         else if (if ((order.assetPair.amountAsset != cfgAmountAssetId))
586 -             then true
587 -             else (order.assetPair.priceAsset != cfgPriceAssetId))
588 -             then throw("Wr assets")
589 -             else {
590 -                 let dLp = parseBigIntValue(valueOrElse(getString(this, keyDLp), "0"))
591 -                 let $t02525425354 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
592 -                 let unusedActions = $t02525425354._1
593 -                 let dLpNew = $t02525425354._2
594 -                 let isOrderValid = (dLpNew >= dLp)
595 -                 let info = makeString(["dLp=", toString(dLp), " dLpNew=", toString(dLpNew), " amountAssetBalance=", toString(amountAssetBalance), " priceAssetBalance=", toString(priceAssetBalance), " amountAssetBalanceDelta=", toString(amountAssetBalanceDelta), " priceAssetBalanceDelta=", toString(priceAssetBalanceDelta), " height=", toString(height)], "")
596 -                 $Tuple2(isOrderValid, info)
597 -                 }
598 -     }
599 - 
600 - 
601 - func cg (i) = if ((size(i.payments) != 1))
602 -     then throw("1 pmnt exp")
603 -     else {
604 -         let pmt = value(i.payments[0])
605 -         let pmtAssetId = value(pmt.assetId)
606 -         let pmtAmt = pmt.amount
607 -         let r = ego(toBase58String(i.transactionId), toBase58String(pmtAssetId), pmtAmt, i.caller)
608 -         let outAmAmt = r._1
609 -         let outPrAmt = r._2
610 -         let sts = parseIntValue(r._9)
611 -         let state = r._10
612 -         if (if (igs())
613 -             then true
614 -             else (sts == PoolShutdown))
615 -             then throw(("Admin blocked: " + toString(sts)))
616 -             else $Tuple5(outAmAmt, outPrAmt, pmtAmt, pmtAssetId, state)
617 -         }
618 - 
619 - 
620 - func cp (caller,txId,amAsPmt,prAsPmt,slippage,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
621 -     let r = epo(txId, slippage, value(amAsPmt).amount, value(amAsPmt).assetId, value(prAsPmt).amount, value(prAsPmt).assetId, caller, (txId == ""), emitLp, isOneAsset, validateSlippage, pmtAmt, pmtId)
622 -     let sts = parseIntValue(r._8)
623 -     if (if (if (igs())
624 -         then true
625 -         else (sts == PoolPutDis))
626 -         then true
627 -         else (sts == PoolShutdown))
628 -         then throw(("Blocked:" + toString(sts)))
629 -         else r
630 -     }
631 - 
632 - 
633 - func calcPutOneTkn (pmtAmtRaw,pmtAssetId,userAddress,txId,withTakeFee) = {
634 -     let amId = toBase58String(value(cfgAmountAssetId))
635 -     let prId = toBase58String(value(cfgPriceAssetId))
636 -     let lpId = cfgLpAssetId
637 -     let amtDcm = cfgAmountAssetDecimals
638 -     let priceDcm = cfgPriceAssetDecimals
639 -     let lpAssetEmission = toBigInt(valueOrErrorMessage(assetInfo(lpId), "invalid lp asset").quantity)
640 -     let chechEmission = if ((lpAssetEmission > big0))
641 -         then true
642 -         else throw("initial deposit requires all coins")
643 -     if ((chechEmission == chechEmission))
644 -         then {
645 -             let amBalance = getAccBalance(amId)
646 -             let prBalance = getAccBalance(prId)
647 -             let $t02801028472 = if ((txId == ""))
648 -                 then $Tuple2(amBalance, prBalance)
649 -                 else if ((pmtAssetId == amId))
650 -                     then if ((pmtAmtRaw > amBalance))
651 -                         then throw("invalid payment amount")
652 -                         else $Tuple2((amBalance - pmtAmtRaw), prBalance)
653 -                     else if ((pmtAssetId == prId))
654 -                         then if ((pmtAmtRaw > prBalance))
655 -                             then throw("invalid payment amount")
656 -                             else $Tuple2(amBalance, (prBalance - pmtAmtRaw))
657 -                         else throw("wrong pmtAssetId")
658 -             let amBalanceOld = $t02801028472._1
659 -             let prBalanceOld = $t02801028472._2
660 -             let $t02847828654 = if ((pmtAssetId == amId))
661 -                 then $Tuple2(pmtAmtRaw, 0)
662 -                 else if ((pmtAssetId == prId))
663 -                     then $Tuple2(0, pmtAmtRaw)
664 -                     else throw("invalid payment")
665 -             let amAmountRaw = $t02847828654._1
666 -             let prAmountRaw = $t02847828654._2
667 -             let $t02865828912 = if (withTakeFee)
668 -                 then $Tuple3(takeFee(amAmountRaw, inFee)._1, takeFee(prAmountRaw, inFee)._1, takeFee(pmtAmtRaw, inFee)._2)
669 -                 else $Tuple3(amAmountRaw, prAmountRaw, 0)
670 -             let amAmount = $t02865828912._1
671 -             let prAmount = $t02865828912._2
672 -             let feeAmount = $t02865828912._3
673 -             let amBalanceNew = (amBalanceOld + amAmount)
674 -             let prBalanceNew = (prBalanceOld + prAmount)
675 -             let D0 = getD([t1(amBalanceOld, cfgAmountAssetDecimals), t1(prBalanceOld, cfgPriceAssetDecimals)])
676 -             let D1 = getD([t1(amBalanceNew, cfgAmountAssetDecimals), t1(prBalanceNew, cfgPriceAssetDecimals)])
677 -             let checkD = if ((D1 > D0))
678 -                 then true
679 -                 else throw()
680 -             if ((checkD == checkD))
681 -                 then {
682 -                     let lpAmount = fraction(lpAssetEmission, (D1 - D0), D0, FLOOR)
683 -                     let curPrice = f1(cpbi(t1(prBalanceNew, priceDcm), t1(amBalanceNew, amtDcm)), scale8)
684 -                     let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId), dataPutActionInfo(amAmountRaw, prAmountRaw, toInt(lpAmount), curPrice, 0, 0, height, lastBlock.timestamp, 0, 0))]
685 -                     let poolProportion = fraction(prBalanceOld, scale8, amBalanceOld)
686 -                     let amountAssetPart = fraction(pmtAmtRaw, scale8, (poolProportion + scale8))
687 -                     let priceAssetPart = (pmtAmtRaw - amountAssetPart)
688 -                     let lpAmtBoth = fraction(lpAssetEmission, toBigInt(priceAssetPart), toBigInt(prBalanceOld))
689 -                     let bonus = toInt(fraction((lpAmount - lpAmtBoth), scale8BigInt, lpAmtBoth))
690 -                     $Tuple4(toInt(lpAmount), commonState, feeAmount, bonus)
691 -                     }
692 -                 else throw("Strict value is not equal to itself.")
693 -             }
694 -         else throw("Strict value is not equal to itself.")
695 -     }
696 - 
697 - 
698 - func getOneTknV2Internal (outAssetId,minOutAmount,payments,caller,originCaller,transactionId) = {
699 -     let lpId = toBase58String(value(cfgLpAssetId))
700 -     let amId = toBase58String(value(cfgAmountAssetId))
701 -     let prId = toBase58String(value(cfgPriceAssetId))
702 -     let amDecimals = cfgAmountAssetDecimals
703 -     let prDecimals = cfgPriceAssetDecimals
704 -     let poolStatus = cfgPoolStatus
705 -     let userAddress = if ((caller == restContract))
706 -         then originCaller
707 -         else caller
708 -     let pmt = value(payments[0])
709 -     let pmtAssetId = value(pmt.assetId)
710 -     let pmtAmt = pmt.amount
711 -     let currentDLp = calcCurrentDLp(big0, big0, big0)
712 -     if ((currentDLp == currentDLp))
713 -         then {
714 -             let txId58 = toBase58String(transactionId)
715 -             if ((lpId != toBase58String(pmtAssetId)))
716 -                 then throw("Wrong LP")
717 -                 else {
718 -                     let amBalance = getAccBalance(amId)
719 -                     let prBalance = getAccBalance(prId)
720 -                     let $t03102431135 = {
721 -                         let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, pmtAmt], nil)
722 -                         if ($isInstanceOf(@, "(Int, Int)"))
723 -                             then @
724 -                             else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
725 -                         }
726 -                     if (($t03102431135 == $t03102431135))
727 -                         then {
728 -                             let feeAmount = $t03102431135._2
729 -                             let totalGet = $t03102431135._1
730 -                             let totalAmount = if (if ((minOutAmount > 0))
731 -                                 then (minOutAmount > totalGet)
732 -                                 else false)
733 -                                 then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
734 -                                 else totalGet
735 -                             let $t03132531632 = if ((outAssetId == amId))
736 -                                 then $Tuple4(totalAmount, 0, ((amBalance - totalAmount) - feeAmount), prBalance)
737 -                                 else if ((outAssetId == prId))
738 -                                     then $Tuple4(0, totalAmount, amBalance, ((prBalance - totalAmount) - feeAmount))
739 -                                     else throw("invalid out asset id")
740 -                             let outAm = $t03132531632._1
741 -                             let outPr = $t03132531632._2
742 -                             let amBalanceNew = $t03132531632._3
743 -                             let prBalanceNew = $t03132531632._4
744 -                             let curPrX18 = cpbi(t1(prBalanceNew, prDecimals), t1(amBalanceNew, amDecimals))
745 -                             let curPr = f1(curPrX18, scale8)
746 -                             let outAssetIdOrWaves = if ((outAssetId == "WAVES"))
747 -                                 then unit
748 -                                 else fromBase58String(outAssetId)
749 -                             let sendFeeToMatcher = if ((feeAmount > 0))
750 -                                 then [ScriptTransfer(feeCollectorAddress, feeAmount, outAssetIdOrWaves)]
751 -                                 else nil
752 -                             let state = ([ScriptTransfer(userAddress, totalAmount, outAssetIdOrWaves), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAm, outPr, pmtAmt, curPr, height, lastBlock.timestamp)), IntegerEntry(pl(), curPr), IntegerEntry(ph(height, lastBlock.timestamp), curPr)] ++ sendFeeToMatcher)
753 -                             if ((state == state))
754 -                                 then {
755 -                                     let burn = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
756 -                                     if ((burn == burn))
757 -                                         then {
758 -                                             let $t03241732767 = {
759 -                                                 let feeAmountForCalc = if ((this == feeCollectorAddress))
760 -                                                     then 0
761 -                                                     else feeAmount
762 -                                                 let outInAmountAsset = if ((parseAssetId(outAssetId) == cfgAmountAssetId))
763 -                                                     then true
764 -                                                     else false
765 -                                                 if (outInAmountAsset)
766 -                                                     then $Tuple2(-((totalGet + feeAmountForCalc)), 0)
767 -                                                     else $Tuple2(0, -((totalGet + feeAmountForCalc)))
768 -                                                 }
769 -                                             let amountAssetBalanceDelta = $t03241732767._1
770 -                                             let priceAssetBalanceDelta = $t03241732767._2
771 -                                             let $t03277032878 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
772 -                                             let refreshDLpActions = $t03277032878._1
773 -                                             let updatedDLp = $t03277032878._2
774 -                                             let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
775 -                                             if ((isUpdatedDLpValid == isUpdatedDLpValid))
776 -                                                 then $Tuple2((state ++ refreshDLpActions), totalAmount)
777 -                                                 else throw("Strict value is not equal to itself.")
778 -                                             }
779 -                                         else throw("Strict value is not equal to itself.")
780 -                                     }
781 -                                 else throw("Strict value is not equal to itself.")
782 -                             }
783 -                         else throw("Strict value is not equal to itself.")
784 -                     }
785 -             }
786 -         else throw("Strict value is not equal to itself.")
787 -     }
788 - 
789 - 
790 - func m () = match getString(mpk()) {
791 -     case s: String => 
792 -         fromBase58String(s)
793 -     case _: Unit => 
794 -         unit
795 -     case _ => 
796 -         throw("Match error")
797 - }
798 - 
799 - 
800 - func pm () = match getString(pmpk()) {
801 -     case s: String => 
802 -         fromBase58String(s)
803 -     case _: Unit => 
804 -         unit
805 -     case _ => 
806 -         throw("Match error")
807 - }
808 - 
809 - 
810 - let pd = throw("Permission denied")
811 - 
812 - func isManager (i) = match m() {
813 -     case pk: ByteVector => 
814 -         (i.callerPublicKey == pk)
815 -     case _: Unit => 
816 -         (i.caller == this)
817 -     case _ => 
818 -         throw("Match error")
819 - }
820 - 
821 - 
822 - func mm (i) = match m() {
823 -     case pk: ByteVector => 
824 -         if ((i.callerPublicKey == pk))
825 -             then true
826 -             else pd
827 -     case _: Unit => 
828 -         if ((i.caller == this))
829 -             then true
830 -             else pd
831 -     case _ => 
832 -         throw("Match error")
833 - }
834 - 
835 - 
836 - func getY (isReverse,D,poolAmountInBalance) = {
837 -     let poolConfig = gpc()
838 -     let amId = poolConfig[idxAmAsId]
839 -     let prId = poolConfig[idxPrAsId]
840 -     let n = big2
841 -     let aPrecision = parseBigIntValue(Amult)
842 -     let a = (parseBigIntValue(A) * aPrecision)
843 -     let xp = if ((isReverse == false))
844 -         then [(toBigInt(getAccBalance(amId)) + poolAmountInBalance), toBigInt(getAccBalance(prId))]
845 -         else [(toBigInt(getAccBalance(prId)) + poolAmountInBalance), toBigInt(getAccBalance(amId))]
846 -     let x = xp[0]
847 -     let s = x
848 -     let ann = (a * n)
849 -     let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
850 -     let b = ((s + ((D * aPrecision) / ann)) - D)
851 -     func calc (acc,cur) =     {
852 -         let $t03432534345 = acc
853 -         let y = $t03432534345._1
854 -         let found = $t03432534345._2
855 -         if ((found != unit))
856 -             then acc
857 -             else {
858 -                 let yNext = (((y * y) + c) / ((big2 * y) + b))
859 -                 let yDiff = absBigInt((yNext - value(y)))
860 -                 if ((big1 >= yDiff))
861 -                     then $Tuple2(yNext, cur)
862 -                     else $Tuple2(yNext, unit)
863 -                 }
864 -         }
865 - 
866 -     let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14]
867 -     let $t03467634723 = {
868 -         let $l = arr
869 -         let $s = size($l)
870 -         let $acc0 = $Tuple2(D, unit)
871 -         func $f0_1 ($a,$i) =         if (($i >= $s))
872 -             then $a
873 -             else calc($a, $l[$i])
874 - 
875 -         func $f0_2 ($a,$i) =         if (($i >= $s))
876 -             then $a
877 -             else throw("List size exceeds 15")
878 - 
879 -         $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15)
880 -         }
881 -     let y = $t03467634723._1
882 -     let found = $t03467634723._2
883 -     if ((found != unit))
884 -         then y
885 -         else throw(("Y calculation error, Y = " + toString(y)))
886 -     }
887 - 
888 - 
889 - func skipOrderValidation () = valueOrElse(getBoolean(fca, keySkipOrderValidation(toString(this))), false)
890 - 
891 - 
892 - @Callable(i)
893 - func calculateAmountOutForSwapREADONLY (cleanAmountIn,isReverse,feePoolAmount) = {
894 -     let $t03507535499 = if ((isReverse == false))
895 -         then {
896 -             let assetOut = strf(this, pa())
897 -             let poolAmountInBalance = (toBigInt(getAccBalance(strf(this, aa()))) + toBigInt(cleanAmountIn))
898 -             $Tuple2(assetOut, poolAmountInBalance)
899 -             }
900 -         else {
901 -             let assetOut = strf(this, aa())
902 -             let poolAmountInBalance = (toBigInt(getAccBalance(strf(this, pa()))) + toBigInt(cleanAmountIn))
903 -             $Tuple2(assetOut, poolAmountInBalance)
904 -             }
905 -     let assetOut = $t03507535499._1
906 -     let poolAmountInBalance = $t03507535499._2
907 -     let poolConfig = gpc()
908 -     let amId = poolConfig[idxAmAsId]
909 -     let prId = poolConfig[idxPrAsId]
910 -     let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
911 -     let D = getD(xp)
912 -     let y = getY(isReverse, D, toBigInt(cleanAmountIn))
913 -     let dy = ((toBigInt(getAccBalance(assetOut)) - y) - toBigInt(1))
914 -     let totalGetRaw = max([0, toInt(dy)])
915 -     let newXp = if ((isReverse == false))
916 -         then [((toBigInt(getAccBalance(amId)) + toBigInt(cleanAmountIn)) + toBigInt(feePoolAmount)), (toBigInt(getAccBalance(prId)) - dy)]
917 -         else [(toBigInt(getAccBalance(amId)) - dy), ((toBigInt(getAccBalance(prId)) + toBigInt(cleanAmountIn)) + toBigInt(feePoolAmount))]
918 -     let newD = getD(newXp)
919 -     let checkD = if ((newD >= D))
920 -         then true
921 -         else throw(makeString(["new D is fewer error", toString(D), toString(newD)], "__"))
922 -     if ((checkD == checkD))
923 -         then $Tuple2(nil, totalGetRaw)
924 -         else throw("Strict value is not equal to itself.")
925 -     }
926 - 
927 - 
928 - 
929 - @Callable(i)
930 - func calculateAmountOutForSwapAndSendTokens (cleanAmountIn,isReverse,amountOutMin,addressTo,feePoolAmount) = {
931 -     let swapContact = {
932 -         let @ = invoke(fca, "getSwapContractREADONLY", nil, nil)
933 -         if ($isInstanceOf(@, "String"))
934 -             then @
935 -             else throw(($getType(@) + " couldn't be cast to String"))
936 -         }
937 -     let checks = [if ((value(i.payments[0]).amount >= cleanAmountIn))
938 -         then true
939 -         else throwErr("Wrong amount"), if ((i.caller == addressFromStringValue(swapContact)))
940 -         then true
941 -         else throwErr("Permission denied")]
942 -     if ((checks == checks))
943 -         then {
944 -             let pmt = value(i.payments[0])
945 -             let assetIn = assetIdToString(pmt.assetId)
946 -             let $t03693537329 = if ((isReverse == false))
947 -                 then {
948 -                     let assetOut = strf(this, pa())
949 -                     let poolAmountInBalance = (getAccBalance(assetIn) - value(i.payments[0]).amount)
950 -                     $Tuple2(assetOut, poolAmountInBalance)
951 -                     }
952 -                 else {
953 -                     let assetOut = strf(this, aa())
954 -                     let poolAmountInBalance = (getAccBalance(assetIn) - value(i.payments[0]).amount)
955 -                     $Tuple2(assetOut, poolAmountInBalance)
956 -                     }
957 -             let assetOut = $t03693537329._1
958 -             let poolAmountInBalance = $t03693537329._2
959 -             let poolConfig = gpc()
960 -             let amId = poolConfig[idxAmAsId]
961 -             let prId = poolConfig[idxPrAsId]
962 -             let xp = if ((isReverse == false))
963 -                 then [(toBigInt(getAccBalance(amId)) - toBigInt(value(i.payments[0]).amount)), toBigInt(getAccBalance(prId))]
964 -                 else [toBigInt(getAccBalance(amId)), (toBigInt(getAccBalance(prId)) - toBigInt(value(i.payments[0]).amount))]
965 -             let D = getD(xp)
966 -             let y = getY(isReverse, D, toBigInt(0))
967 -             let dy = ((toBigInt(getAccBalance(assetOut)) - y) - toBigInt(1))
968 -             let totalGetRaw = max([0, toInt(dy)])
969 -             let checkMin = if ((totalGetRaw >= amountOutMin))
970 -                 then true
971 -                 else throw("Exchange result is fewer coins than expected")
972 -             if ((checkMin == checkMin))
973 -                 then {
974 -                     let newXp = if ((isReverse == false))
975 -                         then [(toBigInt(getAccBalance(amId)) + toBigInt(feePoolAmount)), (toBigInt(getAccBalance(prId)) - dy)]
976 -                         else [(toBigInt(getAccBalance(amId)) - dy), (toBigInt(getAccBalance(prId)) + toBigInt(feePoolAmount))]
977 -                     let newD = getD(newXp)
978 -                     let checkD = if ((newD >= D))
979 -                         then true
980 -                         else throw("new D is fewer error")
981 -                     if ((checkD == checkD))
982 -                         then $Tuple2([ScriptTransfer(addressFromStringValue(addressTo), totalGetRaw, parseAssetId(assetOut))], totalGetRaw)
983 -                         else throw("Strict value is not equal to itself.")
984 -                     }
985 -                 else throw("Strict value is not equal to itself.")
986 -             }
987 -         else throw("Strict value is not equal to itself.")
988 -     }
989 - 
990 - 
991 - 
992 - @Callable(i)
993 - func constructor (fc) = {
994 -     let c = mm(i)
995 -     if ((c == c))
996 -         then [StringEntry(fc(), fc)]
997 -         else throw("Strict value is not equal to itself.")
998 -     }
999 - 
1000 - 
1001 - 
1002 - @Callable(i)
1003 - func setManager (pendingManagerPublicKey) = {
1004 -     let c = mm(i)
1005 -     if ((c == c))
1006 -         then {
1007 -             let cm = fromBase58String(pendingManagerPublicKey)
1008 -             if ((cm == cm))
1009 -                 then [StringEntry(pmpk(), pendingManagerPublicKey)]
1010 -                 else throw("Strict value is not equal to itself.")
1011 -             }
1012 -         else throw("Strict value is not equal to itself.")
1013 -     }
1014 - 
1015 - 
1016 - 
1017 - @Callable(i)
1018 - func confirmManager () = {
1019 -     let p = pm()
1020 -     let hpm = if (isDefined(p))
1021 -         then true
1022 -         else throw("No pending manager")
1023 -     if ((hpm == hpm))
1024 -         then {
1025 -             let cpm = if ((i.callerPublicKey == value(p)))
1026 -                 then true
1027 -                 else throw("You are not pending manager")
1028 -             if ((cpm == cpm))
1029 -                 then [StringEntry(mpk(), toBase58String(value(p))), DeleteEntry(pmpk())]
1030 -                 else throw("Strict value is not equal to itself.")
1031 -             }
1032 -         else throw("Strict value is not equal to itself.")
1033 -     }
1034 - 
1035 - 
1036 - 
1037 - @Callable(i)
1038 - func put (slip,autoStake) = {
1039 -     let factCfg = gfc()
1040 -     let stakingCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactStakCntr]), "Wr st addr")
1041 -     let slipCntr = valueOrErrorMessage(addressFromString(factCfg[idxFactSlippCntr]), "Wr sl addr")
1042 -     if ((0 > slip))
1043 -         then throw("Wrong slippage")
1044 -         else if ((size(i.payments) != 2))
1045 -             then throw("2 pmnts expd")
1046 -             else {
1047 -                 let amAssetPmt = toBigInt(value(i.payments[0]).amount)
1048 -                 let prAssetPmt = toBigInt(value(i.payments[1]).amount)
1049 -                 let amountAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgAmountAssetId))) - amAssetPmt)
1050 -                 if ((amountAssetBalance == amountAssetBalance))
1051 -                     then {
1052 -                         let priceAssetBalance = (toBigInt(getAccBalance(assetIdToString(cfgPriceAssetId))) - prAssetPmt)
1053 -                         if ((priceAssetBalance == priceAssetBalance))
1054 -                             then {
1055 -                                 let lpAssetEmission = toBigInt(value(assetInfo(cfgLpAssetId)).quantity)
1056 -                                 if ((lpAssetEmission == lpAssetEmission))
1057 -                                     then {
1058 -                                         let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1059 -                                         if ((currentDLp == currentDLp))
1060 -                                             then {
1061 -                                                 let e = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], slip, true, false, true, 0, "")
1062 -                                                 let emitLpAmt = e._2
1063 -                                                 let lpAssetId = e._7
1064 -                                                 let state = e._9
1065 -                                                 let amDiff = e._10
1066 -                                                 let prDiff = e._11
1067 -                                                 let amId = e._12
1068 -                                                 let prId = e._13
1069 -                                                 let r = invoke(fca, "emit", [emitLpAmt], nil)
1070 -                                                 if ((r == r))
1071 -                                                     then {
1072 -                                                         let el =                                                         match r {
1073 -                                                             case legacy: Address => 
1074 -                                                                 invoke(legacy, "emit", [emitLpAmt], nil)
1075 -                                                             case _ => 
1076 -                                                                 unit
1077 -                                                         }
1078 -                                                         if ((el == el))
1079 -                                                             then {
1080 -                                                                 let sa = if ((amDiff > 0))
1081 -                                                                     then invoke(slipCntr, "put", nil, [AttachedPayment(amId, amDiff)])
1082 -                                                                     else nil
1083 -                                                                 if ((sa == sa))
1084 -                                                                     then {
1085 -                                                                         let sp = if ((prDiff > 0))
1086 -                                                                             then invoke(slipCntr, "put", nil, [AttachedPayment(prId, prDiff)])
1087 -                                                                             else nil
1088 -                                                                         if ((sp == sp))
1089 -                                                                             then {
1090 -                                                                                 let lpTrnsfr = if (autoStake)
1091 -                                                                                     then {
1092 -                                                                                         let ss = invoke(stakingCntr, "stake", nil, [AttachedPayment(lpAssetId, emitLpAmt)])
1093 -                                                                                         if ((ss == ss))
1094 -                                                                                             then nil
1095 -                                                                                             else throw("Strict value is not equal to itself.")
1096 -                                                                                         }
1097 -                                                                                     else [ScriptTransfer(i.caller, emitLpAmt, lpAssetId)]
1098 -                                                                                 let $t04194842090 = refreshDLpInternal(0, 0, 0)
1099 -                                                                                 let refreshDLpActions = $t04194842090._1
1100 -                                                                                 let updatedDLp = $t04194842090._2
1101 -                                                                                 let check = if ((updatedDLp >= currentDLp))
1102 -                                                                                     then true
1103 -                                                                                     else throwErr(makeString(["updated DLp lower than current DLp", toString(amountAssetBalance), toString(priceAssetBalance), toString(lpAssetEmission), toString(currentDLp), toString(updatedDLp), toString(amDiff), toString(prDiff)], " "))
1104 -                                                                                 if ((check == check))
1105 -                                                                                     then {
1106 -                                                                                         let lpAssetEmissionAfter = value(assetInfo(cfgLpAssetId)).quantity
1107 -                                                                                         if ((lpAssetEmissionAfter == lpAssetEmissionAfter))
1108 -                                                                                             then ((state ++ lpTrnsfr) ++ refreshDLpActions)
1109 -                                                                                             else throw("Strict value is not equal to itself.")
1110 -                                                                                         }
1111 -                                                                                     else throw("Strict value is not equal to itself.")
1112 -                                                                                 }
1113 -                                                                             else throw("Strict value is not equal to itself.")
1114 -                                                                         }
1115 -                                                                     else throw("Strict value is not equal to itself.")
1116 -                                                                 }
1117 -                                                             else throw("Strict value is not equal to itself.")
1118 -                                                         }
1119 -                                                     else throw("Strict value is not equal to itself.")
1120 -                                                 }
1121 -                                             else throw("Strict value is not equal to itself.")
1122 -                                         }
1123 -                                     else throw("Strict value is not equal to itself.")
1124 -                                 }
1125 -                             else throw("Strict value is not equal to itself.")
1126 -                         }
1127 -                     else throw("Strict value is not equal to itself.")
1128 -                 }
1129 -     }
1130 - 
1131 - 
1132 - 
1133 - @Callable(i)
1134 - func putOneTknV2 (minOutAmount,autoStake) = {
1135 -     let isPoolOneTokenOperationsDisabled = {
1136 -         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
1137 -         if ($isInstanceOf(@, "Boolean"))
1138 -             then @
1139 -             else throw(($getType(@) + " couldn't be cast to Boolean"))
1140 -         }
1141 -     let isPutDisabled = if (if (if (igs())
1142 -         then true
1143 -         else (cfgPoolStatus == PoolPutDis))
1144 -         then true
1145 -         else (cfgPoolStatus == PoolShutdown))
1146 -         then true
1147 -         else isPoolOneTokenOperationsDisabled
1148 -     let checks = [if (if (!(isPutDisabled))
1149 -         then true
1150 -         else isManager(i))
1151 -         then true
1152 -         else throwErr("put operation is blocked by admin"), if ((size(i.payments) == 1))
1153 -         then true
1154 -         else throwErr("exactly 1 payment are expected")]
1155 -     if ((checks == checks))
1156 -         then {
1157 -             let amId = toBase58String(value(cfgAmountAssetId))
1158 -             let prId = toBase58String(value(cfgPriceAssetId))
1159 -             let lpId = cfgLpAssetId
1160 -             let amDecimals = cfgAmountAssetDecimals
1161 -             let prDecimals = cfgPriceAssetDecimals
1162 -             let userAddress = if ((i.caller == this))
1163 -                 then i.originCaller
1164 -                 else i.caller
1165 -             let pmt = value(i.payments[0])
1166 -             let pmtAssetId = toBase58String(value(pmt.assetId))
1167 -             let pmtAmt = pmt.amount
1168 -             let currentDLp = if ((pmt.assetId == cfgAmountAssetId))
1169 -                 then calcCurrentDLp(toBigInt(pmtAmt), toBigInt(0), toBigInt(0))
1170 -                 else calcCurrentDLp(toBigInt(0), toBigInt(pmtAmt), toBigInt(0))
1171 -             if ((currentDLp == currentDLp))
1172 -                 then {
1173 -                     let $t04373143889 = calcPutOneTkn(pmtAmt, pmtAssetId, toString(userAddress), toBase58String(i.transactionId), true)
1174 -                     if (($t04373143889 == $t04373143889))
1175 -                         then {
1176 -                             let feeAmount = $t04373143889._3
1177 -                             let state = $t04373143889._2
1178 -                             let estimLP = $t04373143889._1
1179 -                             let emitLpAmt = if (if ((minOutAmount > 0))
1180 -                                 then (minOutAmount > estimLP)
1181 -                                 else false)
1182 -                                 then throwErr(makeString(["amount to receive is less than ", toString(minOutAmount)], ""))
1183 -                                 else estimLP
1184 -                             let e = invoke(fca, "emit", [emitLpAmt], nil)
1185 -                             if ((e == e))
1186 -                                 then {
1187 -                                     let el =                                     match e {
1188 -                                         case legacy: Address => 
1189 -                                             invoke(legacy, "emit", [emitLpAmt], nil)
1190 -                                         case _ => 
1191 -                                             unit
1192 -                                     }
1193 -                                     if ((el == el))
1194 -                                         then {
1195 -                                             let lpTrnsfr = if (autoStake)
1196 -                                                 then {
1197 -                                                     let ss = invoke(stakingContract, "stakeFor", [toString(i.caller)], [AttachedPayment(lpId, emitLpAmt)])
1198 -                                                     if ((ss == ss))
1199 -                                                         then nil
1200 -                                                         else throw("Strict value is not equal to itself.")
1201 -                                                     }
1202 -                                                 else [ScriptTransfer(i.caller, emitLpAmt, lpId)]
1203 -                                             let sendFeeToMatcher = if ((feeAmount > 0))
1204 -                                                 then [ScriptTransfer(feeCollectorAddress, feeAmount, fromBase58String(pmtAssetId))]
1205 -                                                 else nil
1206 -                                             let $t04477445123 = if ((this == feeCollectorAddress))
1207 -                                                 then $Tuple2(0, 0)
1208 -                                                 else {
1209 -                                                     let paymentInAmountAsset = if ((pmt.assetId == cfgAmountAssetId))
1210 -                                                         then true
1211 -                                                         else false
1212 -                                                     if (paymentInAmountAsset)
1213 -                                                         then $Tuple2(-(feeAmount), 0)
1214 -                                                         else $Tuple2(0, -(feeAmount))
1215 -                                                     }
1216 -                                             let amountAssetBalanceDelta = $t04477445123._1
1217 -                                             let priceAssetBalanceDelta = $t04477445123._2
1218 -                                             let $t04512645234 = refreshDLpInternal(amountAssetBalanceDelta, priceAssetBalanceDelta, 0)
1219 -                                             let refreshDLpActions = $t04512645234._1
1220 -                                             let updatedDLp = $t04512645234._2
1221 -                                             let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1222 -                                             if ((isUpdatedDLpValid == isUpdatedDLpValid))
1223 -                                                 then $Tuple2((((state ++ lpTrnsfr) ++ sendFeeToMatcher) ++ refreshDLpActions), emitLpAmt)
1224 -                                                 else throw("Strict value is not equal to itself.")
1225 -                                             }
1226 -                                         else throw("Strict value is not equal to itself.")
1227 -                                     }
1228 -                                 else throw("Strict value is not equal to itself.")
1229 -                             }
1230 -                         else throw("Strict value is not equal to itself.")
1231 -                     }
1232 -                 else throw("Strict value is not equal to itself.")
1233 -             }
1234 -         else throw("Strict value is not equal to itself.")
1235 -     }
1236 - 
1237 - 
1238 - 
1239 - @Callable(i)
1240 - func putForFree (maxSlpg) = if ((0 > maxSlpg))
1241 -     then throw("Wrong slpg")
1242 -     else if ((size(i.payments) != 2))
1243 -         then throw("2 pmnts expd")
1244 -         else {
1245 -             let estPut = cp(toString(i.caller), toBase58String(i.transactionId), AttachedPayment(value(i.payments[0]).assetId, value(i.payments[0]).amount), i.payments[1], maxSlpg, false, false, true, 0, "")
1246 -             let state = estPut._9
1247 -             let amAssetPmt = toBigInt(value(i.payments[0]).amount)
1248 -             let prAssetPmt = toBigInt(value(i.payments[1]).amount)
1249 -             let currentDLp = calcCurrentDLp(amAssetPmt, prAssetPmt, toBigInt(0))
1250 -             if ((currentDLp == currentDLp))
1251 -                 then {
1252 -                     let $t04626446329 = refreshDLpInternal(0, 0, 0)
1253 -                     let refreshDLpActions = $t04626446329._1
1254 -                     let updatedDLp = $t04626446329._2
1255 -                     let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1256 -                     if ((isUpdatedDLpValid == isUpdatedDLpValid))
1257 -                         then (state ++ refreshDLpActions)
1258 -                         else throw("Strict value is not equal to itself.")
1259 -                     }
1260 -                 else throw("Strict value is not equal to itself.")
1261 -             }
1262 - 
1263 - 
1264 - 
1265 - @Callable(i)
1266 - func get () = {
1267 -     let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1268 -     if ((currentDLp == currentDLp))
1269 -         then {
1270 -             let r = cg(i)
1271 -             let outAmtAmt = r._1
1272 -             let outPrAmt = r._2
1273 -             let pmtAmt = r._3
1274 -             let pmtAssetId = r._4
1275 -             let state = r._5
1276 -             let b = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1277 -             if ((b == b))
1278 -                 then {
1279 -                     let $t04750247584 = refreshDLpInternal(-(outAmtAmt), -(outPrAmt), 0)
1280 -                     let refreshDLpActions = $t04750247584._1
1281 -                     let updatedDLp = $t04750247584._2
1282 -                     let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1283 -                     if ((isUpdatedDLpValid == isUpdatedDLpValid))
1284 -                         then (state ++ refreshDLpActions)
1285 -                         else throw("Strict value is not equal to itself.")
1286 -                     }
1287 -                 else throw("Strict value is not equal to itself.")
1288 -             }
1289 -         else throw("Strict value is not equal to itself.")
1290 -     }
1291 - 
1292 - 
1293 - 
1294 - @Callable(i)
1295 - func getOneTknV2 (outAssetId,minOutAmount) = {
1296 -     let isPoolOneTokenOperationsDisabled = {
1297 -         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
1298 -         if ($isInstanceOf(@, "Boolean"))
1299 -             then @
1300 -             else throw(($getType(@) + " couldn't be cast to Boolean"))
1301 -         }
1302 -     let isGetDisabled = if (if (igs())
1303 -         then true
1304 -         else (cfgPoolStatus == PoolShutdown))
1305 -         then true
1306 -         else isPoolOneTokenOperationsDisabled
1307 -     let checks = [if (if (!(isGetDisabled))
1308 -         then true
1309 -         else isManager(i))
1310 -         then true
1311 -         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 1))
1312 -         then true
1313 -         else throwErr("exactly 1 payment are expected")]
1314 -     if ((checks == checks))
1315 -         then {
1316 -             let $t04820248357 = getOneTknV2Internal(outAssetId, minOutAmount, i.payments, i.caller, i.originCaller, i.transactionId)
1317 -             let state = $t04820248357._1
1318 -             let totalAmount = $t04820248357._2
1319 -             $Tuple2(state, totalAmount)
1320 -             }
1321 -         else throw("Strict value is not equal to itself.")
1322 -     }
1323 - 
1324 - 
1325 - 
1326 - @Callable(i)
1327 - func refreshDLp () = {
1328 -     let lastRefreshedBlockHeight = valueOrElse(getInteger(keyDLpRefreshedHeight), 0)
1329 -     let checkLastRefreshedBlockHeight = if (((height - lastRefreshedBlockHeight) >= dLpRefreshDelay))
1330 -         then unit
1331 -         else throwErr(makeString([toString(dLpRefreshDelay), " blocks have not passed since the previous call"], ""))
1332 -     if ((checkLastRefreshedBlockHeight == checkLastRefreshedBlockHeight))
1333 -         then {
1334 -             let dLp = valueOrErrorMessage(parseBigInt(valueOrElse(getString(this, keyDLp), "0")), fmtErr("invalid dLp"))
1335 -             let $t04888148945 = refreshDLpInternal(0, 0, 0)
1336 -             let dLpUpdateActions = $t04888148945._1
1337 -             let updatedDLp = $t04888148945._2
1338 -             let actions = if ((dLp != updatedDLp))
1339 -                 then dLpUpdateActions
1340 -                 else throwErr("nothing to refresh")
1341 -             $Tuple2(actions, toString(updatedDLp))
1342 -             }
1343 -         else throw("Strict value is not equal to itself.")
1344 -     }
1345 - 
1346 - 
1347 - 
1348 - @Callable(i)
1349 - func getOneTknV2READONLY (outAssetId,lpAssetAmount) = {
1350 -     let amId = toBase58String(value(cfgAmountAssetId))
1351 -     let prId = toBase58String(value(cfgPriceAssetId))
1352 -     let lpId = toBase58String(value(cfgLpAssetId))
1353 -     let xp = [toBigInt(getAccBalance(amId)), toBigInt(getAccBalance(prId))]
1354 -     let lpEmission = toBigInt(valueOrErrorMessage(assetInfo(fromBase58String(lpId)), "invalid lp asset").quantity)
1355 -     let D0 = getD(xp)
1356 -     let D1 = (D0 - fraction(toBigInt(lpAssetAmount), D0, lpEmission))
1357 -     let index = if ((outAssetId == amId))
1358 -         then 0
1359 -         else if ((outAssetId == prId))
1360 -             then 1
1361 -             else throw("invalid out asset id")
1362 -     let newY = getYD(xp, index, D1)
1363 -     let dy = (xp[index] - newY)
1364 -     let totalGetRaw = max([0, toInt((dy - big1))])
1365 -     let $t04995550010 = takeFee(totalGetRaw, outFee)
1366 -     let totalGet = $t04995550010._1
1367 -     let feeAmount = $t04995550010._2
1368 -     $Tuple2(nil, $Tuple2(totalGet, feeAmount))
1369 -     }
1370 - 
1371 - 
1372 - 
1373 - @Callable(i)
1374 - func getOneTknV2WithBonusREADONLY (outAssetId,lpAssetAmount) = {
1375 -     let amId = toBase58String(value(cfgAmountAssetId))
1376 -     let prId = toBase58String(value(cfgPriceAssetId))
1377 -     let lpId = toBase58String(value(cfgLpAssetId))
1378 -     let amBalance = getAccBalance(amId)
1379 -     let prBalance = getAccBalance(prId)
1380 -     let $t05038550500 = {
1381 -         let @ = invoke(this, "getOneTknV2READONLY", [outAssetId, lpAssetAmount], nil)
1382 -         if ($isInstanceOf(@, "(Int, Int)"))
1383 -             then @
1384 -             else throw(($getType(@) + " couldn't be cast to (Int, Int)"))
1385 -         }
1386 -     let totalGet = $t05038550500._1
1387 -     let feeAmount = $t05038550500._2
1388 -     let r = ego("", lpId, lpAssetAmount, this)
1389 -     let outAmAmt = r._1
1390 -     let outPrAmt = r._2
1391 -     let sumOfGetAssets = (outAmAmt + outPrAmt)
1392 -     let bonus = if ((sumOfGetAssets == 0))
1393 -         then if ((totalGet == 0))
1394 -             then 0
1395 -             else throw("bonus calculation error")
1396 -         else fraction((totalGet - sumOfGetAssets), scale8, sumOfGetAssets)
1397 -     $Tuple2(nil, $Tuple3(totalGet, feeAmount, bonus))
1398 -     }
1399 - 
1400 - 
1401 - 
1402 - @Callable(i)
1403 - func getNoLess (noLessThenAmtAsset,noLessThenPriceAsset) = {
1404 -     let r = cg(i)
1405 -     let outAmAmt = r._1
1406 -     let outPrAmt = r._2
1407 -     let pmtAmt = r._3
1408 -     let pmtAssetId = r._4
1409 -     let state = r._5
1410 -     if ((noLessThenAmtAsset > outAmAmt))
1411 -         then throw(((("Failed:  " + toString(outAmAmt)) + " < ") + toString(noLessThenAmtAsset)))
1412 -         else if ((noLessThenPriceAsset > outPrAmt))
1413 -             then throw(((("Failed: " + toString(outPrAmt)) + " < ") + toString(noLessThenPriceAsset)))
1414 -             else {
1415 -                 let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1416 -                 if ((currentDLp == currentDLp))
1417 -                     then {
1418 -                         let burnLPAssetOnFactory = invoke(fca, "burn", [pmtAmt], [AttachedPayment(pmtAssetId, pmtAmt)])
1419 -                         if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1420 -                             then {
1421 -                                 let $t05166651747 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1422 -                                 let refreshDLpActions = $t05166651747._1
1423 -                                 let updatedDLp = $t05166651747._2
1424 -                                 let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1425 -                                 if ((isUpdatedDLpValid == isUpdatedDLpValid))
1426 -                                     then (state ++ refreshDLpActions)
1427 -                                     else throw("Strict value is not equal to itself.")
1428 -                                 }
1429 -                             else throw("Strict value is not equal to itself.")
1430 -                         }
1431 -                     else throw("Strict value is not equal to itself.")
1432 -                 }
1433 -     }
1434 - 
1435 - 
1436 - 
1437 - @Callable(i)
1438 - func unstakeAndGet (amount) = {
1439 -     let checkPayments = if ((size(i.payments) != 0))
1440 -         then throw("No pmnts expd")
1441 -         else true
1442 -     if ((checkPayments == checkPayments))
1443 -         then {
1444 -             let factoryCfg = gfc()
1445 -             let lpAssetId = cfgLpAssetId
1446 -             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1447 -             let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1448 -             if ((currentDLp == currentDLp))
1449 -                 then {
1450 -                     let unstakeInv = invoke(staking, "unstake", [toBase58String(lpAssetId), amount], nil)
1451 -                     if ((unstakeInv == unstakeInv))
1452 -                         then {
1453 -                             let r = ego(toBase58String(i.transactionId), toBase58String(lpAssetId), amount, i.caller)
1454 -                             let outAmAmt = r._1
1455 -                             let outPrAmt = r._2
1456 -                             let sts = parseIntValue(r._9)
1457 -                             let state = r._10
1458 -                             let v = if (if (igs())
1459 -                                 then true
1460 -                                 else (sts == PoolShutdown))
1461 -                                 then throw(("Blocked: " + toString(sts)))
1462 -                                 else true
1463 -                             if ((v == v))
1464 -                                 then {
1465 -                                     let burnA = invoke(fca, "burn", [amount], [AttachedPayment(lpAssetId, amount)])
1466 -                                     if ((burnA == burnA))
1467 -                                         then {
1468 -                                             let $t05277452855 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1469 -                                             let refreshDLpActions = $t05277452855._1
1470 -                                             let updatedDLp = $t05277452855._2
1471 -                                             let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1472 -                                             if ((isUpdatedDLpValid == isUpdatedDLpValid))
1473 -                                                 then (state ++ refreshDLpActions)
1474 -                                                 else throw("Strict value is not equal to itself.")
1475 -                                             }
1476 -                                         else throw("Strict value is not equal to itself.")
1477 -                                     }
1478 -                                 else throw("Strict value is not equal to itself.")
1479 -                             }
1480 -                         else throw("Strict value is not equal to itself.")
1481 -                     }
1482 -                 else throw("Strict value is not equal to itself.")
1483 -             }
1484 -         else throw("Strict value is not equal to itself.")
1485 -     }
1486 - 
1487 - 
1488 - 
1489 - @Callable(i)
1490 - func unstakeAndGetNoLess (unstakeAmount,noLessThenAmountAsset,noLessThenPriceAsset) = {
1491 -     let isGetDisabled = if (igs())
1492 -         then true
1493 -         else (cfgPoolStatus == PoolShutdown)
1494 -     let checks = [if (!(isGetDisabled))
1495 -         then true
1496 -         else throw("get operation is blocked by admin"), if ((size(i.payments) == 0))
1497 -         then true
1498 -         else throw("no payments are expected")]
1499 -     if ((checks == checks))
1500 -         then {
1501 -             let currentDLp = calcCurrentDLp(toBigInt(0), toBigInt(0), toBigInt(0))
1502 -             if ((currentDLp == currentDLp))
1503 -                 then {
1504 -                     let unstakeInv = invoke(stakingContract, "unstake", [toBase58String(cfgLpAssetId), unstakeAmount], nil)
1505 -                     if ((unstakeInv == unstakeInv))
1506 -                         then {
1507 -                             let res = ego(toBase58String(i.transactionId), toBase58String(cfgLpAssetId), unstakeAmount, i.caller)
1508 -                             let outAmAmt = res._1
1509 -                             let outPrAmt = res._2
1510 -                             let state = res._10
1511 -                             let checkAmounts = [if ((outAmAmt >= noLessThenAmountAsset))
1512 -                                 then true
1513 -                                 else throw(makeString(["amount asset amount to receive is less than ", toString(noLessThenAmountAsset)], "")), if ((outPrAmt >= noLessThenPriceAsset))
1514 -                                 then true
1515 -                                 else throw(makeString(["price asset amount to receive is less than ", toString(noLessThenPriceAsset)], ""))]
1516 -                             if ((checkAmounts == checkAmounts))
1517 -                                 then {
1518 -                                     let burnLPAssetOnFactory = invoke(fca, "burn", [unstakeAmount], [AttachedPayment(cfgLpAssetId, unstakeAmount)])
1519 -                                     if ((burnLPAssetOnFactory == burnLPAssetOnFactory))
1520 -                                         then {
1521 -                                             let $t05410654187 = refreshDLpInternal(-(outAmAmt), -(outPrAmt), 0)
1522 -                                             let refreshDLpActions = $t05410654187._1
1523 -                                             let updatedDLp = $t05410654187._2
1524 -                                             let isUpdatedDLpValid = validateUpdatedDLp(currentDLp, updatedDLp)
1525 -                                             if ((isUpdatedDLpValid == isUpdatedDLpValid))
1526 -                                                 then (state ++ refreshDLpActions)
1527 -                                                 else throw("Strict value is not equal to itself.")
1528 -                                             }
1529 -                                         else throw("Strict value is not equal to itself.")
1530 -                                     }
1531 -                                 else throw("Strict value is not equal to itself.")
1532 -                             }
1533 -                         else throw("Strict value is not equal to itself.")
1534 -                     }
1535 -                 else throw("Strict value is not equal to itself.")
1536 -             }
1537 -         else throw("Strict value is not equal to itself.")
1538 -     }
1539 - 
1540 - 
1541 - 
1542 - @Callable(i)
1543 - func unstakeAndGetOneTknV2 (unstakeAmount,outAssetId,minOutAmount) = {
1544 -     let isPoolOneTokenOperationsDisabled = {
1545 -         let @ = invoke(fca, "isPoolOneTokenOperationsDisabledREADONLY", [toString(this)], nil)
1546 -         if ($isInstanceOf(@, "Boolean"))
1547 -             then @
1548 -             else throw(($getType(@) + " couldn't be cast to Boolean"))
1549 -         }
1550 -     let isGetDisabled = if (if (igs())
1551 -         then true
1552 -         else (cfgPoolStatus == PoolShutdown))
1553 -         then true
1554 -         else isPoolOneTokenOperationsDisabled
1555 -     let checks = [if (if (!(isGetDisabled))
1556 -         then true
1557 -         else isManager(i))
1558 -         then true
1559 -         else throwErr("get operation is blocked by admin"), if ((size(i.payments) == 0))
1560 -         then true
1561 -         else throwErr("no payments are expected")]
1562 -     if ((checks == checks))
1563 -         then {
1564 -             let factoryCfg = gfc()
1565 -             let lpAssetId = cfgLpAssetId
1566 -             let staking = valueOrErrorMessage(addressFromString(factoryCfg[idxFactStakCntr]), "Wr st addr")
1567 -             let userAddress = i.caller
1568 -             let lpAssetRecipientAddress = this
1569 -             let unstakeInv = invoke(staking, "unstakeINTERNAL", [lpAssetId, unstakeAmount, userAddress.bytes, lpAssetRecipientAddress.bytes], nil)
1570 -             if ((unstakeInv == unstakeInv))
1571 -                 then {
1572 -                     let $t05520955397 = getOneTknV2Internal(outAssetId, minOutAmount, [AttachedPayment(lpAssetId, unstakeAmount)], i.caller, i.originCaller, i.transactionId)
1573 -                     let state = $t05520955397._1
1574 -                     let totalAmount = $t05520955397._2
1575 -                     $Tuple2(state, totalAmount)
1576 -                     }
1577 -                 else throw("Strict value is not equal to itself.")
1578 -             }
1579 -         else throw("Strict value is not equal to itself.")
1580 -     }
1581 - 
1582 - 
1583 - 
1584 - @Callable(i)
1585 - func putOneTknV2WithBonusREADONLY (paymentAmountRaw,paymentAssetId) = {
1586 -     let $t05552555628 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", true)
1587 -     let lpAmount = $t05552555628._1
1588 -     let state = $t05552555628._2
1589 -     let feeAmount = $t05552555628._3
1590 -     let bonus = $t05552555628._4
1591 -     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
1592 -     }
1593 - 
1594 - 
1595 - 
1596 - @Callable(i)
1597 - func putOneTknV2WithoutTakeFeeREADONLY (paymentAmountRaw,paymentAssetId) = {
1598 -     let $t05577655880 = calcPutOneTkn(paymentAmountRaw, paymentAssetId, "", "", false)
1599 -     let lpAmount = $t05577655880._1
1600 -     let state = $t05577655880._2
1601 -     let feeAmount = $t05577655880._3
1602 -     let bonus = $t05577655880._4
1603 -     $Tuple2(nil, $Tuple3(lpAmount, feeAmount, bonus))
1604 -     }
1605 - 
1606 - 
1607 - 
1608 - @Callable(i)
1609 - func activate (amtAsStr,prAsStr) = if ((toString(i.caller) != toString(fca)))
1610 -     then throw("denied")
1611 -     else $Tuple2([StringEntry(aa(), amtAsStr), StringEntry(pa(), prAsStr), StringEntry(amp(), toString(ampInitial))], "success")
1612 - 
1613 - 
1614 - 
1615 - @Callable(i)
1616 - func getPoolConfigWrapperREADONLY () = $Tuple2(nil, gpc())
1617 - 
1618 - 
1619 - 
1620 - @Callable(i)
1621 - func getAccBalanceWrapperREADONLY (assetId) = $Tuple2(nil, getAccBalance(assetId))
1622 - 
1623 - 
1624 - 
1625 - @Callable(i)
1626 - func calcPricesWrapperREADONLY (amAmt,prAmt,lpAmt) = {
1627 -     let pr = calcPrices(amAmt, prAmt, lpAmt)
1628 -     $Tuple2(nil, [toString(pr[0]), toString(pr[1]), toString(pr[2])])
1629 -     }
1630 - 
1631 - 
1632 - 
1633 - @Callable(i)
1634 - func fromX18WrapperREADONLY (val,resScaleMult) = $Tuple2(nil, f1(parseBigIntValue(val), resScaleMult))
1635 - 
1636 - 
1637 - 
1638 - @Callable(i)
1639 - func toX18WrapperREADONLY (origVal,origScaleMult) = $Tuple2(nil, toString(t1(origVal, origScaleMult)))
1640 - 
1641 - 
1642 - 
1643 - @Callable(i)
1644 - func calcPriceBigIntWrapperREADONLY (prAmtX18,amAmtX18) = $Tuple2(nil, toString(cpbi(parseBigIntValue(prAmtX18), parseBigIntValue(amAmtX18))))
1645 - 
1646 - 
1647 - 
1648 - @Callable(i)
1649 - func estimatePutOperationWrapperREADONLY (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,usrAddr,isEval,emitLp) = $Tuple2(nil, epo(txId58, slippage, inAmAmt, inAmId, inPrAmt, inPrId, usrAddr, isEval, emitLp, true, false, 0, ""))
1650 - 
1651 - 
1652 - 
1653 - @Callable(i)
1654 - func estimateGetOperationWrapperREADONLY (txId58,pmtAsId,pmtLpAmt,usrAddr) = {
1655 -     let r = ego(txId58, pmtAsId, pmtLpAmt, addressFromStringValue(usrAddr))
1656 -     $Tuple2(nil, $Tuple10(r._1, r._2, r._3, r._4, r._5, r._6, r._7, toString(r._8), r._9, r._10))
1657 -     }
1658 - 
1659 - 
1660 - 
1661 - @Callable(i)
1662 - func changeAmp () = {
1663 -     let cfg = invoke(fca, "getChangeAmpConfigREADONLY", [toString(this)], nil)
1664 -     let $t05828958488 =     match cfg {
1665 -         case list: List[Any] => 
1666 -             $Tuple3({
1667 -                 let @ = list[0]
1668 -                 if ($isInstanceOf(@, "Int"))
1669 -                     then @
1670 -                     else throw(($getType(@) + " couldn't be cast to Int"))
1671 -                 }, {
1672 -                 let @ = list[1]
1673 -                 if ($isInstanceOf(@, "Int"))
1674 -                     then @
1675 -                     else throw(($getType(@) + " couldn't be cast to Int"))
1676 -                 }, {
1677 -                 let @ = list[2]
1678 -                 if ($isInstanceOf(@, "Int"))
1679 -                     then @
1680 -                     else throw(($getType(@) + " couldn't be cast to Int"))
1681 -                 })
1682 -         case _ => 
1683 -             throwErr("invalid entry type")
1684 -     }
1685 -     let delay = $t05828958488._1
1686 -     let delta = $t05828958488._2
1687 -     let target = $t05828958488._3
1688 -     let curAmp = parseIntValue(getStringValue(amp()))
1689 -     let newAmpRaw = (curAmp + delta)
1690 -     let newAmp = if ((0 > delta))
1691 -         then if ((target > newAmpRaw))
1692 -             then target
1693 -             else newAmpRaw
1694 -         else if ((newAmpRaw > target))
1695 -             then target
1696 -             else newAmpRaw
1697 -     let lastCall = valueOrElse(getInteger(keyChangeAmpLastCall()), 0)
1698 -     let wait = (lastCall + delay)
1699 -     let checks = [if ((height > wait))
1700 -         then true
1701 -         else throwErr("try again in few blocks"), if ((curAmp != newAmp))
1702 -         then true
1703 -         else throwErr("already reached target")]
1704 -     if ((checks == checks))
1705 -         then [IntegerEntry(keyChangeAmpLastCall(), height), StringEntry(amp(), toString(newAmp)), StringEntry(keyAmpHistory(height), toString(newAmp))]
1706 -         else throw("Strict value is not equal to itself.")
1707 -     }
1708 - 
1709 - 
1710 - @Verifier(tx)
1711 - func verify () = {
1712 -     let targetPublicKey =     match m() {
1713 -         case pk: ByteVector => 
1714 -             pk
1715 -         case _: Unit => 
1716 -             tx.senderPublicKey
1717 -         case _ => 
1718 -             throw("Match error")
1719 -     }
1720 -     match tx {
1721 -         case order: Order => 
1722 -             let matcherPub = mp()
1723 -             let $t05940059517 = if (skipOrderValidation())
1724 -                 then $Tuple2(true, "")
1725 -                 else validateMatcherOrderAllowed(order)
1726 -             let orderValid = $t05940059517._1
1727 -             let orderValidInfo = $t05940059517._2
1728 -             let senderValid = sigVerify(order.bodyBytes, order.proofs[0], order.senderPublicKey)
1729 -             let matcherValid = sigVerify(order.bodyBytes, order.proofs[1], matcherPub)
1730 -             if (if (if (orderValid)
1731 -                 then senderValid
1732 -                 else false)
1733 -                 then matcherValid
1734 -                 else false)
1735 -                 then true
1736 -                 else throwOrderError(orderValid, orderValidInfo, senderValid, matcherValid)
1737 -         case s: SetScriptTransaction => 
1738 -             if (sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey))
1739 -                 then true
1740 -                 else {
1741 -                     let newHash = blake2b256(value(s.script))
1742 -                     let allowedHash = fromBase64String(value(getString(fca, keyAllowedLpStableScriptHash())))
1743 -                     let currentHash = scriptHash(this)
1744 -                     if ((allowedHash == newHash))
1745 -                         then (currentHash != newHash)
1746 -                         else false
1747 -                     }
1748 -         case _ => 
1749 -             sigVerify(tx.bodyBytes, tx.proofs[0], targetPublicKey)
1750 -     }
1751 -     }
1752 - 
1 + # no script

Old		Differences
1	-	{-# STDLIB_VERSION 6 #-}
2	-	{-# SCRIPT_TYPE ACCOUNT #-}
3	-	{-# CONTENT_TYPE DAPP #-}
4	-	let scale8 = 100000000
5	-
6	-	let scale8BigInt = toBigInt(100000000)
7	-
8	-	let scale18 = toBigInt(1000000000000000000)
9	-
10	-	let zeroBigInt = toBigInt(0)
11	-
12	-	let big0 = toBigInt(0)
13	-
14	-	let big1 = toBigInt(1)
15	-
16	-	let big2 = toBigInt(2)
17	-
18	-	let big3 = toBigInt(3)
19	-
20	-	let big4 = toBigInt(4)
21	-
22	-	let wavesString = "WAVES"
23	-
24	-	let ampInitial = 50
25	-
26	-	let Amult = "100"
27	-
28	-	let SEP = "__"
29	-
30	-	let PoolPutDis = 2
31	-
32	-	let PoolMatcherDis = 3
33	-
34	-	let PoolShutdown = 4
35	-
36	-	let idxPoolAddress = 1
37	-
38	-	let idxPoolSt = 2
39	-
40	-	let idxLPAsId = 3
41	-
42	-	let idxAmAsId = 4
43	-
44	-	let idxPrAsId = 5
45	-
46	-	let idxAmtAsDcm = 6
47	-
48	-	let idxPriceAsDcm = 7
49	-
50	-	let idxFactStakCntr = 1
51	-
52	-	let idxFactoryRestCntr = 6
53	-
54	-	let idxFactSlippCntr = 7
55	-
56	-	let feeDefault = fraction(10, scale8, 10000)
57	-
58	-	func t1 (origVal,origScaleMult) = fraction(toBigInt(origVal), scale18, toBigInt(origScaleMult))
59	-
60	-
61	-	func t1BigInt (origVal,origScaleMult) = fraction(origVal, scale18, origScaleMult)
62	-
63	-
64	-	func f1 (val,resultScaleMult) = toInt(fraction(val, toBigInt(resultScaleMult), scale18))
65	-
66	-
67	-	func fromX18Round (val,resultScaleMult,round) = toInt(fraction(val, toBigInt(resultScaleMult), scale18, round))
68	-
69	-
70	-	func abs (val) = if ((zeroBigInt > val))
71	-	then -(val)
72	-	else val
73	-
74	-
75	-	func absBigInt (val) = if ((zeroBigInt > val))
76	-	then -(val)
77	-	else val
78	-
79	-
80	-	func fc () = "%s__factoryContract"
81	-
82	-
83	-	func mpk () = "%s__managerPublicKey"
84	-
85	-
86	-	func pmpk () = "%s__pendingManagerPublicKey"
87	-
88	-
89	-	func pl () = "%s%s__price__last"
90	-
91	-
92	-	func ph (h,t) = makeString(["%s%s%d%d__price__history", toString(h), toString(t)], SEP)
93	-
94	-
95	-	func pau (ua,txId) = ((("%s%s%s__P__" + ua) + "__") + txId)
96	-
97	-
98	-	func gau (ua,txId) = ((("%s%s%s__G__" + ua) + "__") + txId)
99	-
100	-
101	-	func aa () = "%s__amountAsset"
102	-
103	-
104	-	func pa () = "%s__priceAsset"
105	-
106	-
107	-	func amp () = "%s__amp"
108	-
109	-
110	-	func keyAmpHistory (heightBlocks) = ("%s%d__amp__" + toString(heightBlocks))
111	-
112	-
113	-	func keyChangeAmpLastCall () = "%s__changeAmpLastCall"
114	-
115	-
116	-	let keyFee = "%s__fee"
117	-
118	-	let fee = valueOrElse(getInteger(this, keyFee), feeDefault)
119	-
120	-	let keyDLp = makeString(["%s", "dLp"], SEP)
121	-
122	-	let keyDLpRefreshedHeight = makeString(["%s", "dLpRefreshedHeight"], SEP)
123	-
124	-	let keyDLpRefreshDelay = makeString(["%s", "refreshDLpDelay"], SEP)
125	-
126	-	let dLpRefreshDelayDefault = 30
127	-
128	-	let dLpRefreshDelay = valueOrElse(getInteger(this, keyDLpRefreshDelay), dLpRefreshDelayDefault)
129	-
130	-	func fcfg () = "%s__factoryConfig"
131	-
132	-
133	-	func mtpk () = "%s%s__matcher__publicKey"
134	-
135	-
136	-	func pc (iAmtAs,iPrAs) = (((("%d%d%s__" + iAmtAs) + "__") + iPrAs) + "__config")
137	-
138	-
139	-	func mba (bAStr) = ("%s%s%s__mappings__baseAsset2internalId__" + bAStr)
140	-
141	-
142	-	func aps () = "%s__shutdown"
143	-
144	-
145	-	func keyAllowedLpStableScriptHash () = "%s__allowedLpStableScriptHash"
146	-
147	-
148	-	func keyFeeCollectorAddress () = "%s__feeCollectorAddress"
149	-
150	-
151	-	func keySkipOrderValidation (poolAddress) = ("%s%s__skipOrderValidation__" + poolAddress)
152	-
153	-
154	-	func throwOrderError (orderValid,orderValidInfo,senderValid,matcherValid) = throw((((((((("order validation failed: orderValid=" + toString(orderValid)) + " (") + orderValidInfo) + ")") + " senderValid=") + toString(senderValid)) + " matcherValid=") + toString(matcherValid)))
155	-
156	-
157	-	func strf (addr,key) = valueOrErrorMessage(getString(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
158	-
159	-
160	-	func intf (addr,key) = valueOrErrorMessage(getInteger(addr, key), makeString(["mandatory ", toString(addr), ".", key, " not defined"], ""))
161	-
162	-
163	-	func throwErr (msg) = throw(makeString(["lp_stable.ride:", msg], " "))
164	-
165	-
166	-	func fmtErr (msg) = makeString(["lp_stable.ride:", msg], " ")
167	-
168	-
169	-	let fca = addressFromStringValue(strf(this, fc()))
170	-
171	-	let inFee = {
172	-	let @ = invoke(fca, "getInFeeREADONLY", [toString(this)], nil)
173	-	if ($isInstanceOf(@, "Int"))
174	-	then @
175	-	else throw(($getType(@) + " couldn't be cast to Int"))
176	-	}
177	-
178	-	let outFee = {
179	-	let @ = invoke(fca, "getOutFeeREADONLY", [toString(this)], nil)
180	-	if ($isInstanceOf(@, "Int"))
181	-	then @
182	-	else throw(($getType(@) + " couldn't be cast to Int"))
183	-	}
184	-
185	-	let A = strf(this, amp())
186	-
187	-	func igs () = valueOrElse(getBoolean(fca, aps()), false)
188	-
189	-
190	-	func mp () = fromBase58String(strf(fca, mtpk()))
191	-
192	-
193	-	let feeCollectorAddress = addressFromStringValue(strf(fca, keyFeeCollectorAddress()))
194	-
195	-	func gpc () = {
196	-	let amtAs = strf(this, aa())
197	-	let priceAs = strf(this, pa())
198	-	let iPriceAs = intf(fca, mba(priceAs))
199	-	let iAmtAs = intf(fca, mba(amtAs))
200	-	split(strf(fca, pc(toString(iAmtAs), toString(iPriceAs))), SEP)
201	-	}
202	-
203	-
204	-	func parseAssetId (input) = if ((input == wavesString))
205	-	then unit
206	-	else fromBase58String(input)
207	-
208	-
209	-	func assetIdToString (input) = if ((input == unit))
210	-	then wavesString
211	-	else toBase58String(value(input))
212	-
213	-
214	-	func parsePoolConfig (poolConfig) = $Tuple7(addressFromStringValue(poolConfig[idxPoolAddress]), parseIntValue(poolConfig[idxPoolSt]), fromBase58String(poolConfig[idxLPAsId]), parseAssetId(poolConfig[idxAmAsId]), parseAssetId(poolConfig[idxPrAsId]), parseIntValue(poolConfig[idxAmtAsDcm]), parseIntValue(poolConfig[idxPriceAsDcm]))
215	-
216	-
217	-	let poolConfigParsed = parsePoolConfig(gpc())
218	-
219	-	let $t080878273 = poolConfigParsed
220	-
221	-	let cfgPoolStatus = $t080878273._2
222	-
223	-	let cfgLpAssetId = $t080878273._3
224	-
225	-	let cfgAmountAssetId = $t080878273._4
226	-
227	-	let cfgPriceAssetId = $t080878273._5
228	-
229	-	let cfgAmountAssetDecimals = $t080878273._6
230	-
231	-	let cfgPriceAssetDecimals = $t080878273._7
232	-
233	-	func gfc () = split(strf(fca, fcfg()), SEP)
234	-
235	-
236	-	let factoryConfig = gfc()
237	-
238	-	let stakingContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactStakCntr]), "Invalid staking contract address")
239	-
240	-	let restContract = valueOrErrorMessage(addressFromString(factoryConfig[idxFactoryRestCntr]), "Invalid gwx contract address")
241	-
242	-	func dataPutActionInfo (inAmtAssetAmt,inPriceAssetAmt,outLpAmt,price,slipByUser,slippageReal,txHeight,txTimestamp,slipageAmAmt,slipagePrAmt) = makeString(["%d%d%d%d%d%d%d%d%d%d", toString(inAmtAssetAmt), toString(inPriceAssetAmt), toString(outLpAmt), toString(price), toString(slipByUser), toString(slippageReal), toString(txHeight), toString(txTimestamp), toString(slipageAmAmt), toString(slipagePrAmt)], SEP)
243	-
244	-
245	-	func dataGetActionInfo (outAmtAssetAmt,outPriceAssetAmt,inLpAmt,price,txHeight,txTimestamp) = makeString(["%d%d%d%d%d%d", toString(outAmtAssetAmt), toString(outPriceAssetAmt), toString(inLpAmt), toString(price), toString(txHeight), toString(txTimestamp)], SEP)
246	-
247	-
248	-	func getAccBalance (assetId) = if ((assetId == "WAVES"))
249	-	then wavesBalance(this).available
250	-	else assetBalance(this, fromBase58String(assetId))
251	-
252	-
253	-	func cpbi (prAmtX18,amAmtX18) = fraction(prAmtX18, scale18, amAmtX18)
254	-
255	-
256	-	func cpbir (prAmtX18,amAmtX18,round) = fraction(prAmtX18, scale18, amAmtX18, round)
257	-
258	-
259	-	func pcp (amAssetDcm,prAssetDcm,amAmt,prAmt) = {
260	-	let amtAsAmtX18 = t1(amAmt, amAssetDcm)
261	-	let prAsAmtX18 = t1(prAmt, prAssetDcm)
262	-	cpbi(prAsAmtX18, amtAsAmtX18)
263	-	}
264	-
265	-
266	-	func calcPrices (amAmt,prAmt,lpAmt) = {
267	-	let amtAsDcm = cfgAmountAssetDecimals
268	-	let prAsDcm = cfgPriceAssetDecimals
269	-	let priceX18 = pcp(amtAsDcm, prAsDcm, amAmt, prAmt)
270	-	let amAmtX18 = t1(amAmt, amtAsDcm)
271	-	let prAmtX18 = t1(prAmt, prAsDcm)
272	-	let lpAmtX18 = t1(lpAmt, scale8)
273	-	let lpPrInAmAsX18 = cpbi(amAmtX18, lpAmtX18)
274	-	let lpPrInPrAsX18 = cpbi(prAmtX18, lpAmtX18)
275	-	[priceX18, lpPrInAmAsX18, lpPrInPrAsX18]
276	-	}
277	-
278	-
279	-	func takeFee (amount,fee) = {
280	-	let feeAmount = if ((fee == 0))
281	-	then 0
282	-	else fraction(amount, fee, scale8)
283	-	$Tuple2((amount - feeAmount), feeAmount)
284	-	}
285	-
286	-
287	-	func getD (xp) = {
288	-	let xp0 = xp[0]
289	-	let xp1 = xp[1]
290	-	let s = (xp0 + xp1)
291	-	if ((s == big0))
292	-	then big0
293	-	else {
294	-	let a = parseIntValue(A)
295	-	let ann = (a * 2)
296	-	let p = fraction(xp0, xp1, big1)
297	-	let xp0_xp1_n_n = fraction(p, big4, big1)
298	-	let ann_s = fraction(toBigInt(ann), s, big1)
299	-	let ann_1 = toBigInt((ann - 1))
300	-	func calcDNext (d) = {
301	-	let dd = fraction(d, d, big1)
302	-	let ddd = fraction(dd, d, big1)
303	-	let dp = fraction(ddd, big1, xp0_xp1_n_n)
304	-	fraction((ann_s + fraction(dp, big2, big1)), d, (fraction(ann_1, d, big1) + fraction(big3, dp, big1)))
305	-	}
306	-
307	-	func calc (acc,i) = if (acc._2)
308	-	then acc
309	-	else {
310	-	let d = acc._1
311	-	let dNext = calcDNext(d)
312	-	let dDiffRaw = (dNext - value(d))
313	-	let dDiff = if ((big0 > dDiffRaw))
314	-	then -(dDiffRaw)
315	-	else dDiffRaw
316	-	if ((big1 >= dDiff))
317	-	then $Tuple2(dNext, true)
318	-	else $Tuple2(dNext, false)
319	-	}
320	-
321	-	let arr = [0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16]
322	-	let $t01277812826 = {
323	-	let $l = arr
324	-	let $s = size($l)
325	-	let $acc0 = $Tuple2(s, false)
326	-	func $f0_1 ($a,$i) = if (($i >= $s))
327	-	then $a
328	-	else calc($a, $l[$i])
329	-
330	-	func $f0_2 ($a,$i) = if (($i >= $s))
331	-	then $a
332	-	else throw("List size exceeds 17")
333	-
334	-	$f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17)
335	-	}
336	-	let d = $t01277812826._1
337	-	let found = $t01277812826._2
338	-	if (found)
339	-	then d
340	-	else throw(("D calculation error, D = " + toString(d)))
341	-	}
342	-	}
343	-
344	-
345	-	func ego (txId58,pmtAssetId,pmtLpAmt,userAddress) = {
346	-	let lpId = cfgLpAssetId
347	-	let amId = toBase58String(value(cfgAmountAssetId))
348	-	let prId = toBase58String(value(cfgPriceAssetId))
349	-	let amDcm = cfgAmountAssetDecimals
350	-	let prDcm = cfgPriceAssetDecimals
351	-	let sts = toString(cfgPoolStatus)
352	-	let lpEmiss = valueOrErrorMessage(assetInfo(lpId), "Wrong LP id").quantity
353	-	if ((toBase58String(lpId) != pmtAssetId))
354	-	then throw("Wrong pmt asset")
355	-	else {
356	-	let amBalance = getAccBalance(amId)
357	-	let amBalanceX18 = t1(amBalance, amDcm)
358	-	let prBalance = getAccBalance(prId)
359	-	let prBalanceX18 = t1(prBalance, prDcm)
360	-	let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
361	-	let curPrice = f1(curPriceX18, scale8)
362	-	let pmtLpAmtX18 = t1(pmtLpAmt, scale8)
363	-	let lpEmissX18 = t1(lpEmiss, scale8)
364	-	let outAmAmtX18 = fraction(amBalanceX18, pmtLpAmtX18, lpEmissX18)
365	-	let outPrAmtX18 = fraction(prBalanceX18, pmtLpAmtX18, lpEmissX18)
366	-	let outAmAmt = fromX18Round(outAmAmtX18, amDcm, FLOOR)
367	-	let outPrAmt = fromX18Round(outPrAmtX18, prDcm, FLOOR)
368	-	let state = if ((txId58 == ""))
369	-	then nil
370	-	else [ScriptTransfer(userAddress, outAmAmt, if ((amId == "WAVES"))
371	-	then unit
372	-	else fromBase58String(amId)), ScriptTransfer(userAddress, outPrAmt, if ((prId == "WAVES"))
373	-	then unit
374	-	else fromBase58String(prId)), StringEntry(gau(toString(userAddress), txId58), dataGetActionInfo(outAmAmt, outPrAmt, pmtLpAmt, curPrice, height, lastBlock.timestamp)), IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice)]
375	-	$Tuple10(outAmAmt, outPrAmt, amId, prId, amBalance, prBalance, lpEmiss, curPriceX18, sts, state)
376	-	}
377	-	}
378	-
379	-
380	-	func epo (txId58,slippage,inAmAmt,inAmId,inPrAmt,inPrId,userAddress,isEval,emitLp,isOneAsset,validateSlippage,pmtAmt,pmtId) = {
381	-	let lpId = cfgLpAssetId
382	-	let amIdStr = toBase58String(value(cfgAmountAssetId))
383	-	let prIdStr = toBase58String(value(cfgPriceAssetId))
384	-	let amtDcm = cfgAmountAssetDecimals
385	-	let priceDcm = cfgPriceAssetDecimals
386	-	let sts = toString(cfgPoolStatus)
387	-	let lpEm = valueOrErrorMessage(assetInfo(lpId), "Wr lp as").quantity
388	-	let amBalance = if (isEval)
389	-	then getAccBalance(amIdStr)
390	-	else if (if (isOneAsset)
391	-	then (pmtId == amIdStr)
392	-	else false)
393	-	then (getAccBalance(amIdStr) - pmtAmt)
394	-	else if (isOneAsset)
395	-	then getAccBalance(amIdStr)
396	-	else (getAccBalance(amIdStr) - inAmAmt)
397	-	let prBalance = if (isEval)
398	-	then getAccBalance(prIdStr)
399	-	else if (if (isOneAsset)
400	-	then (pmtId == prIdStr)
401	-	else false)
402	-	then (getAccBalance(prIdStr) - pmtAmt)
403	-	else if (isOneAsset)
404	-	then getAccBalance(prIdStr)
405	-	else (getAccBalance(prIdStr) - inPrAmt)
406	-	let inAmAssetAmtX18 = t1(inAmAmt, amtDcm)
407	-	let inPrAssetAmtX18 = t1(inPrAmt, priceDcm)
408	-	let userPriceX18 = cpbi(inPrAssetAmtX18, inAmAssetAmtX18)
409	-	let amBalanceX18 = t1(amBalance, amtDcm)
410	-	let prBalanceX18 = t1(prBalance, priceDcm)
411	-	let D0 = getD([amBalanceX18, prBalanceX18])
412	-	let r = if ((lpEm == 0))
413	-	then {
414	-	let D1 = getD([(amBalanceX18 + inAmAssetAmtX18), (prBalanceX18 + inPrAssetAmtX18)])
415	-	let checkD = if ((D1 > D0))
416	-	then true
417	-	else throw("D1 should be greater than D0")
418	-	if ((checkD == checkD))
419	-	then {
420	-	let curPriceX18 = zeroBigInt
421	-	let slippageX18 = zeroBigInt
422	-	let lpAmtX18 = D1
423	-	$Tuple5(f1(lpAmtX18, scale8), f1(inAmAssetAmtX18, amtDcm), f1(inPrAssetAmtX18, priceDcm), cpbi((prBalanceX18 + inPrAssetAmtX18), (amBalanceX18 + inAmAssetAmtX18)), slippageX18)
424	-	}
425	-	else throw("Strict value is not equal to itself.")
426	-	}
427	-	else {
428	-	let curPriceX18 = cpbi(prBalanceX18, amBalanceX18)
429	-	let slippageRealX18 = fraction(abs((curPriceX18 - userPriceX18)), scale18, curPriceX18)
430	-	let slippageX18 = t1(slippage, scale8)
431	-	if (if (if (validateSlippage)
432	-	then (curPriceX18 != zeroBigInt)
433	-	else false)
434	-	then (slippageRealX18 > slippageX18)
435	-	else false)
436	-	then throw(((("Price slippage " + toString(slippageRealX18)) + " > ") + toString(slippageX18)))
437	-	else {
438	-	let lpEmissionX18 = t1(lpEm, scale8)
439	-	let prViaAmX18 = fraction(inAmAssetAmtX18, cpbir(prBalanceX18, amBalanceX18, CEILING), scale18, CEILING)
440	-	let amViaPrX18 = fraction(inPrAssetAmtX18, scale18, cpbir(prBalanceX18, amBalanceX18, FLOOR), CEILING)
441	-	let expectedAmts = if ((prViaAmX18 > inPrAssetAmtX18))
442	-	then $Tuple2(amViaPrX18, inPrAssetAmtX18)
443	-	else $Tuple2(inAmAssetAmtX18, prViaAmX18)
444	-	let expAmtAssetAmtX18 = expectedAmts._1
445	-	let expPriceAssetAmtX18 = expectedAmts._2
446	-	let D1 = getD([(amBalanceX18 + expAmtAssetAmtX18), (prBalanceX18 + expPriceAssetAmtX18)])
447	-	let checkD = if ((D1 > D0))
448	-	then true
449	-	else throw("D1 should be greater than D0")
450	-	if ((checkD == checkD))
451	-	then {
452	-	let lpAmtX18 = fraction(lpEmissionX18, (D1 - D0), D0)
453	-	$Tuple5(fromX18Round(lpAmtX18, scale8, FLOOR), fromX18Round(expAmtAssetAmtX18, amtDcm, CEILING), fromX18Round(expPriceAssetAmtX18, priceDcm, CEILING), curPriceX18, slippageX18)
454	-	}
455	-	else throw("Strict value is not equal to itself.")
456	-	}
457	-	}
458	-	let calcLpAmt = r._1
459	-	let calcAmAssetPmt = r._2
460	-	let calcPrAssetPmt = r._3
461	-	let curPrice = f1(r._4, scale8)
462	-	let slippageCalc = f1(r._5, scale8)
463	-	if ((0 >= calcLpAmt))
464	-	then throw("LP <= 0")
465	-	else {
466	-	let emitLpAmt = if (!(emitLp))
467	-	then 0
468	-	else calcLpAmt
469	-	let amDiff = (inAmAmt - calcAmAssetPmt)
470	-	let prDiff = (inPrAmt - calcPrAssetPmt)
471	-	let $t02058820933 = if (if (isOneAsset)
472	-	then (pmtId == amIdStr)
473	-	else false)
474	-	then $Tuple2(pmtAmt, 0)
475	-	else if (if (isOneAsset)
476	-	then (pmtId == prIdStr)
477	-	else false)
478	-	then $Tuple2(0, pmtAmt)
479	-	else $Tuple2(calcAmAssetPmt, calcPrAssetPmt)
480	-	let writeAmAmt = $t02058820933._1
481	-	let writePrAmt = $t02058820933._2
482	-	let commonState = [IntegerEntry(pl(), curPrice), IntegerEntry(ph(height, lastBlock.timestamp), curPrice), StringEntry(pau(userAddress, txId58), dataPutActionInfo(writeAmAmt, writePrAmt, emitLpAmt, curPrice, slippage, slippageCalc, height, lastBlock.timestamp, amDiff, prDiff))]
483	-	$Tuple13(calcLpAmt, emitLpAmt, curPrice, amBalance, prBalance, lpEm, lpId, sts, commonState, amDiff, prDiff, inAmId, inPrId)
484	-	}
485	-	}
486	-
487	-
488	-	func getYD (xp,i,D) = {
489	-	let n = big2
490	-	let x = xp[if ((i == 0))
491	-	then 1
492	-	else 0]
493	-	let aPrecision = parseBigIntValue(Amult)
494	-	let a = (parseBigIntValue(A) * aPrecision)
495	-	let s = x
496	-	let ann = (a * n)
497	-	let c = (((((D * D) / (x * n)) * D) * aPrecision) / (ann * n))
498	-	let b = ((s + ((D * aPrecision) / ann)) - D)
499	-	func calc (acc,cur) = {
500	-	let $t02212822148 = acc

github/deemru/w8io/026f985 
78.86 ms ◑