tx · J8JHSgM4ea56EmeCUAfAreHJCBhWRBXA33f1RY2jPLD1

3P9VVzzkP1Cfsk3LtTeuUaQqUt5D7sLthLe:  -0.01400000 Waves

2022.05.29 21:23 [3138820] smart account 3P9VVzzkP1Cfsk3LtTeuUaQqUt5D7sLthLe > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "J8JHSgM4ea56EmeCUAfAreHJCBhWRBXA33f1RY2jPLD1",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1653848615341,
    "version": 2,
    "chainId": 87,
    "sender": "3P9VVzzkP1Cfsk3LtTeuUaQqUt5D7sLthLe",
    "senderPublicKey": "HiH9eknsCZ417kt2aJnJ9HrnrWCYcdRoGsFi8yANmYx8",
    "proofs": [
        "2iLdma6xRY59MGpZTzFzNBDgSkmoUj28Kg5GrX3fH9xxC47CLXRiKMgFvyU6WzqMDhg1e61Nk4RgzvweMu6q5LYJ"
    ],
    "script": "base64:AAIFAAAAAAAAAAQIAhIAAAAACQAAAAAHcGx1dG9JZAEAAAAgtiYpwwT1zlORpA5LdSQvZIxRsfrfr1QpvUjSHSqyqtEAAAAACnBsdXRvSWRTdHICAAAALERHMnhGa1BkRHdLVW9Ca3pHQWhRdExwU0d6ZlhMaUNZUEV6ZUtIMkFkMjRwAAAAABFwYXJhbWV0ZXJzQWRkcmVzcwkBAAAAB0FkZHJlc3MAAAABAQAAABoBV+7WJYtq2Ae0X0s1eNtV5rMlFw/bMdew9AAAAAAGU2NhbGU4AAAAAAAF9eEAAQAAAA10cnlHZXRJbnRlZ2VyAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAXgFAAAAByRtYXRjaDAFAAAAAXgAAAAAAAAAAAABAAAAEnRyeUdldEludFBhcmFtZXRlcgAAAAEAAAADa2V5BAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAAEXBhcmFtZXRlcnNBZGRyZXNzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABeAUAAAAHJG1hdGNoMAUAAAABeAAAAAAAAAAAAAEAAAASdHJ5R2V0U3RyUGFyYW1ldGVyAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAARcGFyYW1ldGVyc0FkZHJlc3MFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAF4BQAAAAckbWF0Y2gwBQAAAAF4AgAAAAABAAAAFWNhbGN1bGF0ZUJ1eWJhY2tSYXRpbwAAAAAAAAAAAAAAE4gBAAAAEmNhbGN1bGF0ZVBvb2xQcmljZQAAAAIAAAALcG9vbEFkZHJlc3MAAAAIYXNzZXRTdHIEAAAACGEwV2VpZ2h0CQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAtwb29sQWRkcmVzcwkAASwAAAACCQABLAAAAAICAAAAB3N0YXRpY18FAAAACGFzc2V0U3RyAgAAAAdfd2VpZ2h0BAAAAAhhMVdlaWdodAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAALcG9vbEFkZHJlc3MJAAEsAAAAAgkAASwAAAACAgAAAAdzdGF0aWNfBQAAAApwbHV0b0lkU3RyAgAAAAdfd2VpZ2h0BAAAAAlhMEJhbGFuY2UJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAC3Bvb2xBZGRyZXNzCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwUAAAAIYXNzZXRTdHICAAAACF9iYWxhbmNlBAAAAAlhMUJhbGFuY2UJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAC3Bvb2xBZGRyZXNzCQABLAAAAAIJAAEsAAAAAgIAAAAHZ2xvYmFsXwUAAAAKcGx1dG9JZFN0cgIAAAAIX2JhbGFuY2UJAABrAAAAAwUAAAAGU2NhbGU4CQAAaAAAAAIFAAAACWEwQmFsYW5jZQUAAAAIYTFXZWlnaHQJAABoAAAAAgUAAAAJYTFCYWxhbmNlBQAAAAhhMFdlaWdodAAAAAEAAAABaQEAAAAKaXNzdWVQbHV0bwAAAAAEAAAAB2Fzc2V0SWQJAQAAAAV2YWx1ZQAAAAEICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAACmFzc2V0SWRTdHIJAAJYAAAAAQUAAAAHYXNzZXRJZAQAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQEAAAAB3Bvb2xTdHIJAQAAABJ0cnlHZXRTdHJQYXJhbWV0ZXIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAGYXNzZXRfBQAAAAphc3NldElkU3RyAgAAAAVfcG9vbAQAAAALcG9vbEFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAAB3Bvb2xTdHIEAAAADWFtb3VudFRvSXNzdWUJAABrAAAAAwUAAAAGYW1vdW50CQEAAAAVY2FsY3VsYXRlQnV5YmFja1JhdGlvAAAAAAAAAAAAAAAnEAQAAAAPYW1vdW50VG9CdXliYWNrCQAAZQAAAAIAAAAAAAAAJxAFAAAADWFtb3VudFRvSXNzdWUEAAAAA2ludgkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAEc3dhcAkABEwAAAACBQAAAApwbHV0b0lkU3RyCQAETAAAAAIAAAAAAAAAAAAFAAAAA25pbAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAgUAAAAHYXNzZXRJZAUAAAAPYW1vdW50VG9CdXliYWNrBQAAAANuaWwDCQAAAAAAAAIFAAAAA2ludgUAAAADaW52BAAAAAtwbHV0b0JvdWdodAQAAAAHJG1hdGNoMAUAAAADaW52AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAXgFAAAAByRtYXRjaDAFAAAAAXgAAAAAAAAAAAAEAAAAEWFzc2V0UHJpY2VUb1BsdXRvCQEAAAASY2FsY3VsYXRlUG9vbFByaWNlAAAAAgUAAAALcG9vbEFkZHJlc3MFAAAACmFzc2V0SWRTdHIEAAAAC3BsdXRvSXNzdWVkCQAAawAAAAMFAAAADWFtb3VudFRvSXNzdWUFAAAAEWFzc2V0UHJpY2VUb1BsdXRvBQAAAAZTY2FsZTgEAAAACnRvdGFsUGx1dG8JAABkAAAAAgUAAAALcGx1dG9Cb3VnaHQFAAAAC3BsdXRvSXNzdWVkCQAFFAAAAAIFAAAAA25pbAUAAAAKdG90YWxQbHV0bwkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAACQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleS0MOGA=",
    "height": 3138820,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: none
Next: 73eWM8S2RgiiTDcquURwokHwa6jex4F2hJBvM2pRg8y5

Full: 
Old
New
Differences
1
-
# no script
1
+
{-# STDLIB_VERSION 5 #-}
2
+
{-# SCRIPT_TYPE ACCOUNT #-}
3
+
{-# CONTENT_TYPE DAPP #-}
4
+
let plutoId = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
5
+
6
+
let plutoIdStr = "DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p"
7
+
8
+
let parametersAddress = Address(base58'3PPhk65Ab4UDgbxYUDW7YSXkzHfWtj7WBrB')
9
+
10
+
let Scale8 = 100000000
11
+
12
+
func tryGetInteger (key) = match getInteger(this, key) {
13
+
    case x: Int => 
14
+
        x
15
+
    case _ => 
16
+
        0
17
+
}
18
+
19
+
20
+
func tryGetIntParameter (key) = match getInteger(parametersAddress, key) {
21
+
    case x: Int => 
22
+
        x
23
+
    case _ => 
24
+
        0
25
+
}
26
+
27
+
28
+
func tryGetStrParameter (key) = match getString(parametersAddress, key) {
29
+
    case x: String => 
30
+
        x
31
+
    case _ => 
32
+
        ""
33
+
}
34
+
35
+
36
+
func calculateBuybackRatio () = 5000
37
+
38
+
39
+
func calculatePoolPrice (poolAddress,assetStr) = {
40
+
    let a0Weight = getIntegerValue(poolAddress, (("static_" + assetStr) + "_weight"))
41
+
    let a1Weight = getIntegerValue(poolAddress, (("static_" + plutoIdStr) + "_weight"))
42
+
    let a0Balance = getIntegerValue(poolAddress, (("global_" + assetStr) + "_balance"))
43
+
    let a1Balance = getIntegerValue(poolAddress, (("global_" + plutoIdStr) + "_balance"))
44
+
    fraction(Scale8, (a0Balance * a1Weight), (a1Balance * a0Weight))
45
+
    }
46
+
47
+
48
+
@Callable(i)
49
+
func issuePluto () = {
50
+
    let assetId = value(i.payments[0].assetId)
51
+
    let assetIdStr = toBase58String(assetId)
52
+
    let amount = i.payments[0].amount
53
+
    let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
54
+
    let poolAddress = addressFromStringValue(poolStr)
55
+
    let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)
56
+
    let amountToBuyback = (10000 - amountToIssue)
57
+
    let inv = invoke(poolAddress, "swap", [plutoIdStr, 0], [AttachedPayment(assetId, amountToBuyback)])
58
+
    if ((inv == inv))
59
+
        then {
60
+
            let plutoBought =             match inv {
61
+
                case x: Int => 
62
+
                    x
63
+
                case _ => 
64
+
                    0
65
+
            }
66
+
            let assetPriceToPluto = calculatePoolPrice(poolAddress, assetIdStr)
67
+
            let plutoIssued = fraction(amountToIssue, assetPriceToPluto, Scale8)
68
+
            let totalPluto = (plutoBought + plutoIssued)
69
+
            $Tuple2(nil, totalPluto)
70
+
            }
71
+
        else throw("Strict value is not equal to itself.")
72
+
    }
73
+
74
+
75
+
@Verifier(tx)
76
+
func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
77
+

github/deemru/w8io/3ef1775 
39.05 ms ◑