tx · 3RZ6ZnBgHeKoREten5xR15wRpwjGSa4nyjbhyF6e19Lc

3N61RYWc9QuqKUwLvowpZZLpgUnqpQSFwLq:  -0.01000000 Waves

2024.03.04 11:56 [3003048] smart account 3N61RYWc9QuqKUwLvowpZZLpgUnqpQSFwLq > SELF 0.00000000 Waves

{ "type": 13, "id": "3RZ6ZnBgHeKoREten5xR15wRpwjGSa4nyjbhyF6e19Lc", "fee": 1000000, "feeAssetId": null, "timestamp": 1709542668826, "version": 2, "chainId": 84, "sender": "3N61RYWc9QuqKUwLvowpZZLpgUnqpQSFwLq", "senderPublicKey": "HdwFH8HPYu3HG27yK6bszu1CdR4uik4HgzyTimeSfcYf", "proofs": [ "5UAkWPf9v3BQknZNjueCBUgFgJP6JyWG6CHQ4JFYzyHtUDNcAMudDNvXafbdzv2rxA5SQRTTCeDvWS23eunDXqKZ" ], "script": "base64:BgIJCAISABIDCgEIEQAQYW1vdW50QXNzZXRJZEtleQINYW1vdW50QXNzZXRJZAAPcHJpY2VBc3NldElkS2V5AgxwcmljZUFzc2V0SWQACmZlZVJhdGVLZXkCB2ZlZVJhdGUBCmdldEFzc2V0SWQBDWFzc2V0SWRTdHJpbmcDCQAAAgUNYXNzZXRJZFN0cmluZwIFV0FWRVMFBHVuaXQJANkEAQUNYXNzZXRJZFN0cmluZwEPZ2V0QXNzZXRCYWxhbmNlAQdhc3NldElkBAckbWF0Y2gwBQdhc3NldElkAwkAAQIFByRtYXRjaDACCkJ5dGVWZWN0b3IEAmlkBQckbWF0Y2gwCQDwBwIFBHRoaXMFAmlkCAkA7wcBBQR0aGlzCWF2YWlsYWJsZQATYW1vdW50QXNzZXRJZFN0cmluZwkBEUBleHRyTmF0aXZlKDEwNTMpAgUEdGhpcwUQYW1vdW50QXNzZXRJZEtleQANYW1vdW50QXNzZXRJZAkBCmdldEFzc2V0SWQBBRNhbW91bnRBc3NldElkU3RyaW5nABJhbW91bnRBc3NldEJhbGFuY2UJAQ9nZXRBc3NldEJhbGFuY2UBBQ1hbW91bnRBc3NldElkABJwcmljZUFzc2V0SWRTdHJpbmcJARFAZXh0ck5hdGl2ZSgxMDUzKQIFBHRoaXMFD3ByaWNlQXNzZXRJZEtleQAMcHJpY2VBc3NldElkCQEKZ2V0QXNzZXRJZAEFEnByaWNlQXNzZXRJZFN0cmluZwARcHJpY2VBc3NldEJhbGFuY2UJAQ9nZXRBc3NldEJhbGFuY2UBBQxwcmljZUFzc2V0SWQABlNDQUxFOACAwtcvAAdmZWVSYXRlCQELdmFsdWVPckVsc2UCCQCaCAIFBHRoaXMFCmZlZVJhdGVLZXkAwIQ9AQdhbW1DYWxjAwlpbml0QW1CYWwJaW5pdFByQmFsDXBheW1lbnRBbW91bnQECnNlbmRBbW91bnQJAGUCBQlpbml0QW1CYWwJAGsDBQlpbml0QW1CYWwFCWluaXRQckJhbAkAZAIFCWluaXRQckJhbAUNcGF5bWVudEFtb3VudAQIbmV3QW1CYWwJAGUCBQlpbml0QW1CYWwFCnNlbmRBbW91bnQECG5ld1ByQmFsCQBkAgUJaW5pdFByQmFsBQ1wYXltZW50QW1vdW50BARuZXdLCQBoAgUIbmV3QW1CYWwFCG5ld1ByQmFsBARvbGRLCQBoAgUJaW5pdEFtQmFsBQlpbml0UHJCYWwJAJkKBwUKc2VuZEFtb3VudAUJaW5pdEFtQmFsBQlpbml0UHJCYWwFBG9sZEsFCG5ld0FtQmFsBQhuZXdQckJhbAUEbmV3SwERY2FsY1Jhd1NlbmRBbW91bnQDCWluaXRBbUJhbAlpbml0UHJCYWwNcGF5bWVudEFtb3VudAQKc2VuZEFtb3VudAkAZQIFCWluaXRBbUJhbAkAawMFCWluaXRBbUJhbAUJaW5pdFByQmFsCQBkAgUJaW5pdFByQmFsBQ1wYXltZW50QW1vdW50BAhuZXdBbUJhbAkAZQIFCWluaXRBbUJhbAUKc2VuZEFtb3VudAQIbmV3UHJCYWwJAGQCBQlpbml0UHJCYWwFDXBheW1lbnRBbW91bnQFCnNlbmRBbW91bnQBDmNhbGNTZW5kQW1vdW50Ag5wYXltZW50QXNzZXRJZA1wYXltZW50QW1vdW50BAskdDAxODM5MTk5MQMJAAACBQ5wYXltZW50QXNzZXRJZAUNYW1vdW50QXNzZXRJZAkAlAoCBQxwcmljZUFzc2V0SWQFDWFtb3VudEFzc2V0SWQJAJQKAgUNYW1vdW50QXNzZXRJZAUMcHJpY2VBc3NldElkBAlhbUFzc2V0SWQIBQskdDAxODM5MTk5MQJfMQQJcHJBc3NldElkCAULJHQwMTgzOTE5OTECXzIECWluaXRBbUJhbAkBD2dldEFzc2V0QmFsYW5jZQEFCWFtQXNzZXRJZAQJaW5pdFByQmFsCQBlAgkBD2dldEFzc2V0QmFsYW5jZQEFCXByQXNzZXRJZAUNcGF5bWVudEFtb3VudAQNcmF3U2VuZEFtb3VudAkBEWNhbGNSYXdTZW5kQW1vdW50AwUJaW5pdEFtQmFsBQlpbml0UHJCYWwFDXBheW1lbnRBbW91bnQECWZlZUFtb3VudAkAawMFDXJhd1NlbmRBbW91bnQFB2ZlZVJhdGUFBlNDQUxFOAkAlQoDCQBlAgUNcmF3U2VuZEFtb3VudAUJZmVlQW1vdW50BQlmZWVBbW91bnQFCWFtQXNzZXRJZAEMc3dhcEludGVybmFsAgdhZGRyZXNzAWkEBmNoZWNrcwkAzAgCAwkAZgIJAJADAQgFAWkIcGF5bWVudHMAAAYJAAIBAhhzaG91bGQgYmUgd2l0aCAxIHBheW1lbnQJAMwIAgMDCQAAAggJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBQ1hbW91bnRBc3NldElkBgkAAAIICQCRAwIIBQFpCHBheW1lbnRzAAAHYXNzZXRJZAUMcHJpY2VBc3NldElkBgkAAgEJALkJAgkAzAgCAhtwYXltZW50IGFzc2V0SWQgc2hvdWxkIGJlICgJAMwIAgUTYW1vdW50QXNzZXRJZFN0cmluZwkAzAgCAgYpIG9yICgJAMwIAgUScHJpY2VBc3NldElkU3RyaW5nCQDMCAICASkFA25pbAIBIAUDbmlsAwkAAAIFBmNoZWNrcwUGY2hlY2tzBA5wYXltZW50QXNzZXRJZAgJAJEDAggFAWkIcGF5bWVudHMAAAdhc3NldElkBA1wYXltZW50QW1vdW50CAkAkQMCCAUBaQhwYXltZW50cwAABmFtb3VudAQLJHQwMjc2NTI4NTMJAQ5jYWxjU2VuZEFtb3VudAIFDnBheW1lbnRBc3NldElkBQ1wYXltZW50QW1vdW50BApzZW5kQW1vdW50CAULJHQwMjc2NTI4NTMCXzEECWZlZUFtb3VudAgFCyR0MDI3NjUyODUzAl8yBAtzZW5kQXNzZXRJZAgFCyR0MDI3NjUyODUzAl8zBAtzZW5kQWN0aW9ucwMJAQIhPQIFCWZlZUFtb3VudAAACQDMCAIJAQ5TY3JpcHRUcmFuc2ZlcgMFB2FkZHJlc3MFCnNlbmRBbW91bnQFC3NlbmRBc3NldElkBQNuaWwJAAIBAhFhbW91bnQgaXMgdG9vIGxvdwQNdXNlclJlYWxQcmljZQkAawMFCnNlbmRBbW91bnQFBlNDQUxFOAUNcGF5bWVudEFtb3VudAkAlAoCBQtzZW5kQWN0aW9ucwkAlQoDBQpzZW5kQW1vdW50BQlmZWVBbW91bnQFDXVzZXJSZWFsUHJpY2UJAAIBAiRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4CAWkBBHN3YXAACQEMc3dhcEludGVybmFsAggFAWkGY2FsbGVyBQFpAWkBB3N3YXBGb3IBB2FkZHJlc3MJAQxzd2FwSW50ZXJuYWwCCQERQGV4dHJOYXRpdmUoMTA2MikBBQdhZGRyZXNzBQFpACJasW4=", "height": 3003048, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: A5zAfuRbpe5U99bzkYtBmsXDnpgea8vhHjdzqqsppetT Next: H6nozFM2yfZ3KB3F8zKweSGE18fi1PH9HA5cfpG858zS Diff:
OldNewDifferences
3636
3737 let feeRate = valueOrElse(getInteger(this, feeRateKey), 1000000)
3838
39-func calcSendAmount (initAmBal,initPrBal,paymentAmount) = {
40- let sendAmount = ((initAmBal - fraction(initAmBal, initPrBal, (initPrBal + paymentAmount))) - 1)
39+func ammCalc (initAmBal,initPrBal,paymentAmount) = {
40+ let sendAmount = (initAmBal - fraction(initAmBal, initPrBal, (initPrBal + paymentAmount)))
4141 let newAmBal = (initAmBal - sendAmount)
4242 let newPrBal = (initPrBal + paymentAmount)
4343 let newK = (newAmBal * newPrBal)
4646 }
4747
4848
49-func swap (i) = {
49+func calcRawSendAmount (initAmBal,initPrBal,paymentAmount) = {
50+ let sendAmount = (initAmBal - fraction(initAmBal, initPrBal, (initPrBal + paymentAmount)))
51+ let newAmBal = (initAmBal - sendAmount)
52+ let newPrBal = (initPrBal + paymentAmount)
53+ sendAmount
54+ }
55+
56+
57+func calcSendAmount (paymentAssetId,paymentAmount) = {
58+ let $t018391991 = if ((paymentAssetId == amountAssetId))
59+ then $Tuple2(priceAssetId, amountAssetId)
60+ else $Tuple2(amountAssetId, priceAssetId)
61+ let amAssetId = $t018391991._1
62+ let prAssetId = $t018391991._2
63+ let initAmBal = getAssetBalance(amAssetId)
64+ let initPrBal = (getAssetBalance(prAssetId) - paymentAmount)
65+ let rawSendAmount = calcRawSendAmount(initAmBal, initPrBal, paymentAmount)
66+ let feeAmount = fraction(rawSendAmount, feeRate, SCALE8)
67+ $Tuple3((rawSendAmount - feeAmount), feeAmount, amAssetId)
68+ }
69+
70+
71+func swapInternal (address,i) = {
5072 let checks = [if ((size(i.payments) > 0))
5173 then true
52- else throw("should be with 1 payment"), if ((i.payments[0].assetId == priceAssetId))
74+ else throw("should be with 1 payment"), if (if ((i.payments[0].assetId == amountAssetId))
5375 then true
54- else throw(makeString(["payment assetId should be: ", priceAssetIdString], " "))]
76+ else (i.payments[0].assetId == priceAssetId))
77+ then true
78+ else throw(makeString(["payment assetId should be (", amountAssetIdString, ") or (", priceAssetIdString, ")"], " "))]
5579 if ((checks == checks))
5680 then {
81+ let paymentAssetId = i.payments[0].assetId
5782 let paymentAmount = i.payments[0].amount
58- let initAmBal = amountAssetBalance
59- let initPrBal = (priceAssetBalance - paymentAmount)
60- 0
83+ let $t027652853 = calcSendAmount(paymentAssetId, paymentAmount)
84+ let sendAmount = $t027652853._1
85+ let feeAmount = $t027652853._2
86+ let sendAssetId = $t027652853._3
87+ let sendActions = if ((feeAmount != 0))
88+ then [ScriptTransfer(address, sendAmount, sendAssetId)]
89+ else throw("amount is too low")
90+ let userRealPrice = fraction(sendAmount, SCALE8, paymentAmount)
91+ $Tuple2(sendActions, $Tuple3(sendAmount, feeAmount, userRealPrice))
6192 }
6293 else throw("Strict value is not equal to itself.")
6394 }
6495
6596
6697 @Callable(i)
67-func foo () = $Tuple2(nil, 0)
98+func swap () = swapInternal(i.caller, i)
99+
100+
101+
102+@Callable(i)
103+func swapFor (address) = swapInternal(addressFromStringValue(address), i)
68104
69105
Full:
OldNewDifferences
11 {-# STDLIB_VERSION 6 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 let amountAssetIdKey = "amountAssetId"
55
66 let priceAssetIdKey = "priceAssetId"
77
88 let feeRateKey = "feeRate"
99
1010 func getAssetId (assetIdString) = if ((assetIdString == "WAVES"))
1111 then unit
1212 else fromBase58String(assetIdString)
1313
1414
1515 func getAssetBalance (assetId) = match assetId {
1616 case id: ByteVector =>
1717 assetBalance(this, id)
1818 case _ =>
1919 wavesBalance(this).available
2020 }
2121
2222
2323 let amountAssetIdString = getStringValue(this, amountAssetIdKey)
2424
2525 let amountAssetId = getAssetId(amountAssetIdString)
2626
2727 let amountAssetBalance = getAssetBalance(amountAssetId)
2828
2929 let priceAssetIdString = getStringValue(this, priceAssetIdKey)
3030
3131 let priceAssetId = getAssetId(priceAssetIdString)
3232
3333 let priceAssetBalance = getAssetBalance(priceAssetId)
3434
3535 let SCALE8 = 100000000
3636
3737 let feeRate = valueOrElse(getInteger(this, feeRateKey), 1000000)
3838
39-func calcSendAmount (initAmBal,initPrBal,paymentAmount) = {
40- let sendAmount = ((initAmBal - fraction(initAmBal, initPrBal, (initPrBal + paymentAmount))) - 1)
39+func ammCalc (initAmBal,initPrBal,paymentAmount) = {
40+ let sendAmount = (initAmBal - fraction(initAmBal, initPrBal, (initPrBal + paymentAmount)))
4141 let newAmBal = (initAmBal - sendAmount)
4242 let newPrBal = (initPrBal + paymentAmount)
4343 let newK = (newAmBal * newPrBal)
4444 let oldK = (initAmBal * initPrBal)
4545 $Tuple7(sendAmount, initAmBal, initPrBal, oldK, newAmBal, newPrBal, newK)
4646 }
4747
4848
49-func swap (i) = {
49+func calcRawSendAmount (initAmBal,initPrBal,paymentAmount) = {
50+ let sendAmount = (initAmBal - fraction(initAmBal, initPrBal, (initPrBal + paymentAmount)))
51+ let newAmBal = (initAmBal - sendAmount)
52+ let newPrBal = (initPrBal + paymentAmount)
53+ sendAmount
54+ }
55+
56+
57+func calcSendAmount (paymentAssetId,paymentAmount) = {
58+ let $t018391991 = if ((paymentAssetId == amountAssetId))
59+ then $Tuple2(priceAssetId, amountAssetId)
60+ else $Tuple2(amountAssetId, priceAssetId)
61+ let amAssetId = $t018391991._1
62+ let prAssetId = $t018391991._2
63+ let initAmBal = getAssetBalance(amAssetId)
64+ let initPrBal = (getAssetBalance(prAssetId) - paymentAmount)
65+ let rawSendAmount = calcRawSendAmount(initAmBal, initPrBal, paymentAmount)
66+ let feeAmount = fraction(rawSendAmount, feeRate, SCALE8)
67+ $Tuple3((rawSendAmount - feeAmount), feeAmount, amAssetId)
68+ }
69+
70+
71+func swapInternal (address,i) = {
5072 let checks = [if ((size(i.payments) > 0))
5173 then true
52- else throw("should be with 1 payment"), if ((i.payments[0].assetId == priceAssetId))
74+ else throw("should be with 1 payment"), if (if ((i.payments[0].assetId == amountAssetId))
5375 then true
54- else throw(makeString(["payment assetId should be: ", priceAssetIdString], " "))]
76+ else (i.payments[0].assetId == priceAssetId))
77+ then true
78+ else throw(makeString(["payment assetId should be (", amountAssetIdString, ") or (", priceAssetIdString, ")"], " "))]
5579 if ((checks == checks))
5680 then {
81+ let paymentAssetId = i.payments[0].assetId
5782 let paymentAmount = i.payments[0].amount
58- let initAmBal = amountAssetBalance
59- let initPrBal = (priceAssetBalance - paymentAmount)
60- 0
83+ let $t027652853 = calcSendAmount(paymentAssetId, paymentAmount)
84+ let sendAmount = $t027652853._1
85+ let feeAmount = $t027652853._2
86+ let sendAssetId = $t027652853._3
87+ let sendActions = if ((feeAmount != 0))
88+ then [ScriptTransfer(address, sendAmount, sendAssetId)]
89+ else throw("amount is too low")
90+ let userRealPrice = fraction(sendAmount, SCALE8, paymentAmount)
91+ $Tuple2(sendActions, $Tuple3(sendAmount, feeAmount, userRealPrice))
6192 }
6293 else throw("Strict value is not equal to itself.")
6394 }
6495
6596
6697 @Callable(i)
67-func foo () = $Tuple2(nil, 0)
98+func swap () = swapInternal(i.caller, i)
99+
100+
101+
102+@Callable(i)
103+func swapFor (address) = swapInternal(addressFromStringValue(address), i)
68104
69105

github/deemru/w8io/169f3d6 
33.52 ms