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:
OldNewDifferences
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

github/deemru/w8io/026f985 
125.27 ms