w8 · tx · CMi···HxZ

tx · CMi24piJqJ5E1RScy1BjkF1vkRZFAYVmwDeY2sT3wHxZ

3P9VVzzkP1Cfsk3LtTeuUaQqUt5D7sLthLe:  -0.01400000 Waves

2022.05.29 22:08 [3138869] smart account 3P9VVzzkP1Cfsk3LtTeuUaQqUt5D7sLthLe > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "CMi24piJqJ5E1RScy1BjkF1vkRZFAYVmwDeY2sT3wHxZ",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1653851319160,
    "version": 2,
    "chainId": 87,
    "sender": "3P9VVzzkP1Cfsk3LtTeuUaQqUt5D7sLthLe",
    "senderPublicKey": "HiH9eknsCZ417kt2aJnJ9HrnrWCYcdRoGsFi8yANmYx8",
    "proofs": [
        "3dVEPBBMXxnT59SPuWE96uQyGvL1A5FqTW7S9ugZhejUxaDyCJLMquYRmBdsLmJFQor76twCSW8yhhtdKVErAuex"
    ],
    "script": "base64:AAIFAAAAAAAAAAoIAhIECgIIARIAAAAACgAAAAAHcGx1dG9JZAEAAAAgCAtLfVLyoBIlb5Puz31KsiymyssXWP2HET28ebanF90AAAAACnBsdXRvSWRTdHICAAAAK1lRRllvTXdBUk1RelpzM3dxdWNCVGRKTldTYnNZazNHQXc3d3NxVTRneUEAAAAAEXBhcmFtZXRlcnNBZGRyZXNzCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFX7tYli2rYB7RfSzV421XmsyUXD9sx17D0AAAAAA1pc3N1ZXJBZGRyZXNzCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFXkNrxBroSm+KyRO2iedYJQI5aki2W66AWAAAAAAZTY2FsZTgAAAAAAAX14QABAAAADXRyeUdldEludGVnZXIAAAABAAAAA2tleQQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzBQAAAANrZXkDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABeAUAAAAHJG1hdGNoMAUAAAABeAAAAAAAAAAAAAEAAAASdHJ5R2V0SW50UGFyYW1ldGVyAAAAAQAAAANrZXkEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAARcGFyYW1ldGVyc0FkZHJlc3MFAAAAA2tleQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAF4BQAAAAckbWF0Y2gwBQAAAAF4AAAAAAAAAAAAAQAAABJ0cnlHZXRTdHJQYXJhbWV0ZXIAAAABAAAAA2tleQQAAAAHJG1hdGNoMAkABB0AAAACBQAAABFwYXJhbWV0ZXJzQWRkcmVzcwUAAAADa2V5AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAXgFAAAAByRtYXRjaDAFAAAAAXgCAAAAAAEAAAAVY2FsY3VsYXRlQnV5YmFja1JhdGlvAAAAAAQAAAAMdHJlYXN1cnlTaXplCQEAAAASdHJ5R2V0SW50UGFyYW1ldGVyAAAAAQIAAAASc3RhdHNfdHJlYXN1cnlTaXplAAAAAAAAABOIAQAAABJjYWxjdWxhdGVQb29sUHJpY2UAAAACAAAAC3Bvb2xBZGRyZXNzAAAACGFzc2V0U3RyBAAAAAhhMFdlaWdodAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAALcG9vbEFkZHJlc3MJAAEsAAAAAgkAASwAAAACAgAAAAdzdGF0aWNfBQAAAAhhc3NldFN0cgIAAAAHX3dlaWdodAQAAAAIYTFXZWlnaHQJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAAC3Bvb2xBZGRyZXNzCQABLAAAAAIJAAEsAAAAAgIAAAAHc3RhdGljXwUAAAAKcGx1dG9JZFN0cgIAAAAHX3dlaWdodAQAAAAJYTBCYWxhbmNlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAtwb29sQWRkcmVzcwkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8FAAAACGFzc2V0U3RyAgAAAAhfYmFsYW5jZQQAAAAJYTFCYWxhbmNlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAtwb29sQWRkcmVzcwkAASwAAAACCQABLAAAAAICAAAAB2dsb2JhbF8FAAAACnBsdXRvSWRTdHICAAAACF9iYWxhbmNlCQAAawAAAAMFAAAABlNjYWxlOAkAAGgAAAACBQAAAAlhMUJhbGFuY2UFAAAACGEwV2VpZ2h0CQAAaAAAAAIFAAAACWEwQmFsYW5jZQUAAAAIYTFXZWlnaHQAAAACAAAAAWkBAAAADmNhbGNJc3N1ZVBsdXRvAAAAAgAAAAphc3NldElkU3RyAAAABmFtb3VudAQAAAAHYXNzZXRJZAkAAlkAAAABBQAAAAphc3NldElkU3RyBAAAAAdwb29sU3RyCQEAAAASdHJ5R2V0U3RyUGFyYW1ldGVyAAAAAQkAASwAAAACCQABLAAAAAICAAAABmFzc2V0XwUAAAAKYXNzZXRJZFN0cgIAAAAFX3Bvb2wEAAAAC3Bvb2xBZGRyZXNzCQEAAAARQGV4dHJOYXRpdmUoMTA2MikAAAABBQAAAAdwb29sU3RyBAAAAA1hbW91bnRUb0lzc3VlCQAAawAAAAMFAAAABmFtb3VudAkBAAAAFWNhbGN1bGF0ZUJ1eWJhY2tSYXRpbwAAAAAAAAAAAAAAJxAEAAAAD2Ftb3VudFRvQnV5YmFjawkAAGUAAAACBQAAAAZhbW91bnQFAAAADWFtb3VudFRvSXNzdWUEAAAAEWFzc2V0UHJpY2VUb1BsdXRvCQEAAAASY2FsY3VsYXRlUG9vbFByaWNlAAAAAgUAAAALcG9vbEFkZHJlc3MFAAAACmFzc2V0SWRTdHIEAAAAC3BsdXRvSXNzdWVkCQAAawAAAAMFAAAADWFtb3VudFRvSXNzdWUFAAAAEWFzc2V0UHJpY2VUb1BsdXRvBQAAAAZTY2FsZTgEAAAABGludjIJAAP8AAAABAUAAAANaXNzdWVyQWRkcmVzcwIAAAAMcmVxdWVzdElzc3VlCQAETAAAAAIFAAAAC3BsdXRvSXNzdWVkBQAAAANuaWwFAAAAA25pbAMJAAAAAAAAAgUAAAAEaW52MgUAAAAEaW52MgQAAAADaW52CQAD/AAAAAQFAAAAC3Bvb2xBZGRyZXNzAgAAAARzd2FwCQAETAAAAAIFAAAACnBsdXRvSWRTdHIJAARMAAAAAgAAAAAAAAAAAAUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAdhc3NldElkBQAAAA9hbW91bnRUb0J1eWJhY2sFAAAAA25pbAMJAAAAAAAAAgUAAAADaW52BQAAAANpbnYEAAAAC3BsdXRvQm91Z2h0BAAAAAckbWF0Y2gwBQAAAANpbnYDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABeAUAAAAHJG1hdGNoMAUAAAABeAAAAAAAAAAAAAQAAAAKdG90YWxQbHV0bwkAAGQAAAACBQAAAAtwbHV0b0JvdWdodAUAAAALcGx1dG9Jc3N1ZWQJAAUUAAAAAgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAACnRvdGFsUGx1dG8FAAAAB3BsdXRvSWQFAAAAA25pbAkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAIaXNzdWVkOiAJAAGkAAAAAQUAAAALcGx1dG9Jc3N1ZWQCAAAACjsgYm91Z2h0OiAJAAGkAAAAAQUAAAALcGx1dG9Cb3VnaHQJAAACAAAAAQIAAAAkU3RyaWN0IHZhbHVlIGlzIG5vdCBlcXVhbCB0byBpdHNlbGYuCQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAFpAQAAAAppc3N1ZVBsdXRvAAAAAAQAAAAHYXNzZXRJZAkBAAAABXZhbHVlAAAAAQgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAQAAAAKYXNzZXRJZFN0cgkAAlgAAAABBQAAAAdhc3NldElkBAAAAAZhbW91bnQICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAQAAAAHcG9vbFN0cgkBAAAAEnRyeUdldFN0clBhcmFtZXRlcgAAAAEJAAEsAAAAAgkAASwAAAACAgAAAAZhc3NldF8FAAAACmFzc2V0SWRTdHICAAAABV9wb29sBAAAAAtwb29sQWRkcmVzcwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQUAAAAHcG9vbFN0cgQAAAANYW1vdW50VG9Jc3N1ZQkAAGsAAAADBQAAAAZhbW91bnQJAQAAABVjYWxjdWxhdGVCdXliYWNrUmF0aW8AAAAAAAAAAAAAACcQBAAAAA9hbW91bnRUb0J1eWJhY2sJAABlAAAAAgUAAAAGYW1vdW50BQAAAA1hbW91bnRUb0lzc3VlBAAAABFhc3NldFByaWNlVG9QbHV0bwkBAAAAEmNhbGN1bGF0ZVBvb2xQcmljZQAAAAIFAAAAC3Bvb2xBZGRyZXNzBQAAAAphc3NldElkU3RyBAAAAAtwbHV0b0lzc3VlZAkAAGsAAAADBQAAAA1hbW91bnRUb0lzc3VlBQAAABFhc3NldFByaWNlVG9QbHV0bwUAAAAGU2NhbGU4BAAAAARpbnYyCQAD/AAAAAQFAAAADWlzc3VlckFkZHJlc3MCAAAADHJlcXVlc3RJc3N1ZQkABEwAAAACBQAAAAtwbHV0b0lzc3VlZAUAAAADbmlsBQAAAANuaWwDCQAAAAAAAAIFAAAABGludjIFAAAABGludjIEAAAAA2ludgkAA/wAAAAEBQAAAAtwb29sQWRkcmVzcwIAAAAEc3dhcAkABEwAAAACBQAAAApwbHV0b0lkU3RyCQAETAAAAAIAAAAAAAAAAAAFAAAAA25pbAkABEwAAAACCQEAAAAPQXR0YWNoZWRQYXltZW50AAAAAgUAAAAHYXNzZXRJZAUAAAAPYW1vdW50VG9CdXliYWNrBQAAAANuaWwDCQAAAAAAAAIFAAAAA2ludgUAAAADaW52BAAAAAtwbHV0b0JvdWdodAQAAAAHJG1hdGNoMAUAAAADaW52AwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAAXgFAAAAByRtYXRjaDAFAAAAAXgAAAAAAAAAAAAEAAAACnRvdGFsUGx1dG8JAABkAAAAAgUAAAALcGx1dG9Cb3VnaHQFAAAAC3BsdXRvSXNzdWVkCQAFFAAAAAIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAAp0b3RhbFBsdXRvBQAAAAdwbHV0b0lkBQAAAANuaWwJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACGlzc3VlZDogCQABpAAAAAEFAAAAC3BsdXRvSXNzdWVkAgAAAAo7IGJvdWdodDogCQABpAAAAAEFAAAAC3BsdXRvQm91Z2h0CQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgkAAAIAAAABAgAAACRTdHJpY3QgdmFsdWUgaXMgbm90IGVxdWFsIHRvIGl0c2VsZi4AAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAACQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tleXWNWpw=",
    "height": 3138869,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 4rRo4pETo5ohsQRmkpHb3C2ippV5oxsbQ5cYaC8DJvk1
Next: r52MXHBfwLoVU1UN24gxDeSC3VB73dKvX2Hivg2nToM

Diff: 
Old New Differences
51 51  
52 52  
53 53  @Callable(i)
54 - func issuePluto (amount,assetIdStr) = {
54 + func calcIssuePluto (assetIdStr,amount) = {
55 55      let assetId = fromBase58String(assetIdStr)
56 +     let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
57 +     let poolAddress = addressFromStringValue(poolStr)
58 +     let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)
59 +     let amountToBuyback = (amount - amountToIssue)
60 +     let assetPriceToPluto = calculatePoolPrice(poolAddress, assetIdStr)
61 +     let plutoIssued = fraction(amountToIssue, assetPriceToPluto, Scale8)
62 +     let inv2 = invoke(issuerAddress, "requestIssue", [plutoIssued], nil)
63 +     if ((inv2 == inv2))
64 +         then {
65 +             let inv = invoke(poolAddress, "swap", [plutoIdStr, 0], [AttachedPayment(assetId, amountToBuyback)])
66 +             if ((inv == inv))
67 +                 then {
68 +                     let plutoBought =                     match inv {
69 +                         case x: Int => 
70 +                             x
71 +                         case _ => 
72 +                             0
73 +                     }
74 +                     let totalPluto = (plutoBought + plutoIssued)
75 +                     $Tuple2([ScriptTransfer(i.caller, totalPluto, plutoId)], ((("issued: " + toString(plutoIssued)) + "; bought: ") + toString(plutoBought)))
76 +                     }
77 +                 else throw("Strict value is not equal to itself.")
78 +             }
79 +         else throw("Strict value is not equal to itself.")
80 +     }
81 + 
82 + 
83 + 
84 + @Callable(i)
85 + func issuePluto () = {
86 +     let assetId = value(i.payments[0].assetId)
87 +     let assetIdStr = toBase58String(assetId)
88 +     let amount = i.payments[0].amount
56 89      let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
57 90      let poolAddress = addressFromStringValue(poolStr)
58 91      let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let plutoId = base58'YQFYoMwARMQzZs3wqucBTdJNWSbsYk3GAw7wsqU4gyA'
5 5  
6 6  let plutoIdStr = "YQFYoMwARMQzZs3wqucBTdJNWSbsYk3GAw7wsqU4gyA"
7 7  
8 8  let parametersAddress = Address(base58'3PPhk65Ab4UDgbxYUDW7YSXkzHfWtj7WBrB')
9 9  
10 10  let issuerAddress = Address(base58'3PF8pKC8CdmW9sEJUxQVSfezYRSJeThoNR3')
11 11  
12 12  let Scale8 = 100000000
13 13  
14 14  func tryGetInteger (key) = match getInteger(this, key) {
15 15      case x: Int => 
16 16          x
17 17      case _ => 
18 18          0
19 19  }
20 20  
21 21  
22 22  func tryGetIntParameter (key) = match getInteger(parametersAddress, key) {
23 23      case x: Int => 
24 24          x
25 25      case _ => 
26 26          0
27 27  }
28 28  
29 29  
30 30  func tryGetStrParameter (key) = match getString(parametersAddress, key) {
31 31      case x: String => 
32 32          x
33 33      case _ => 
34 34          ""
35 35  }
36 36  
37 37  
38 38  func calculateBuybackRatio () = {
39 39      let treasurySize = tryGetIntParameter("stats_treasurySize")
40 40      5000
41 41      }
42 42  
43 43  
44 44  func calculatePoolPrice (poolAddress,assetStr) = {
45 45      let a0Weight = getIntegerValue(poolAddress, (("static_" + assetStr) + "_weight"))
46 46      let a1Weight = getIntegerValue(poolAddress, (("static_" + plutoIdStr) + "_weight"))
47 47      let a0Balance = getIntegerValue(poolAddress, (("global_" + assetStr) + "_balance"))
48 48      let a1Balance = getIntegerValue(poolAddress, (("global_" + plutoIdStr) + "_balance"))
49 49      fraction(Scale8, (a1Balance * a0Weight), (a0Balance * a1Weight))
50 50      }
51 51  
52 52  
53 53  @Callable(i)
54 - func issuePluto (amount,assetIdStr) = {
54 + func calcIssuePluto (assetIdStr,amount) = {
55 55      let assetId = fromBase58String(assetIdStr)
56 +     let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
57 +     let poolAddress = addressFromStringValue(poolStr)
58 +     let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)
59 +     let amountToBuyback = (amount - amountToIssue)
60 +     let assetPriceToPluto = calculatePoolPrice(poolAddress, assetIdStr)
61 +     let plutoIssued = fraction(amountToIssue, assetPriceToPluto, Scale8)
62 +     let inv2 = invoke(issuerAddress, "requestIssue", [plutoIssued], nil)
63 +     if ((inv2 == inv2))
64 +         then {
65 +             let inv = invoke(poolAddress, "swap", [plutoIdStr, 0], [AttachedPayment(assetId, amountToBuyback)])
66 +             if ((inv == inv))
67 +                 then {
68 +                     let plutoBought =                     match inv {
69 +                         case x: Int => 
70 +                             x
71 +                         case _ => 
72 +                             0
73 +                     }
74 +                     let totalPluto = (plutoBought + plutoIssued)
75 +                     $Tuple2([ScriptTransfer(i.caller, totalPluto, plutoId)], ((("issued: " + toString(plutoIssued)) + "; bought: ") + toString(plutoBought)))
76 +                     }
77 +                 else throw("Strict value is not equal to itself.")
78 +             }
79 +         else throw("Strict value is not equal to itself.")
80 +     }
81 + 
82 + 
83 + 
84 + @Callable(i)
85 + func issuePluto () = {
86 +     let assetId = value(i.payments[0].assetId)
87 +     let assetIdStr = toBase58String(assetId)
88 +     let amount = i.payments[0].amount
56 89      let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
57 90      let poolAddress = addressFromStringValue(poolStr)
58 91      let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)
59 92      let amountToBuyback = (amount - amountToIssue)
60 93      let assetPriceToPluto = calculatePoolPrice(poolAddress, assetIdStr)
61 94      let plutoIssued = fraction(amountToIssue, assetPriceToPluto, Scale8)
62 95      let inv2 = invoke(issuerAddress, "requestIssue", [plutoIssued], nil)
63 96      if ((inv2 == inv2))
64 97          then {
65 98              let inv = invoke(poolAddress, "swap", [plutoIdStr, 0], [AttachedPayment(assetId, amountToBuyback)])
66 99              if ((inv == inv))
67 100                  then {
68 101                      let plutoBought =                     match inv {
69 102                          case x: Int => 
70 103                              x
71 104                          case _ => 
72 105                              0
73 106                      }
74 107                      let totalPluto = (plutoBought + plutoIssued)
75 108                      $Tuple2([ScriptTransfer(i.caller, totalPluto, plutoId)], ((("issued: " + toString(plutoIssued)) + "; bought: ") + toString(plutoBought)))
76 109                      }
77 110                  else throw("Strict value is not equal to itself.")
78 111              }
79 112          else throw("Strict value is not equal to itself.")
80 113      }
81 114  
82 115  
83 116  @Verifier(tx)
84 117  func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
85 118

Old	New		Differences
51	51
52	52
53	53		@Callable(i)
54		-	func ~~issuePluto~~ (amount~~,assetIdStr~~) = {
	54	+	func calcIssuePluto (assetIdStr,amount) = {
55	55		let assetId = fromBase58String(assetIdStr)
	56	+	let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
	57	+	let poolAddress = addressFromStringValue(poolStr)
	58	+	let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)
	59	+	let amountToBuyback = (amount - amountToIssue)
	60	+	let assetPriceToPluto = calculatePoolPrice(poolAddress, assetIdStr)
	61	+	let plutoIssued = fraction(amountToIssue, assetPriceToPluto, Scale8)
	62	+	let inv2 = invoke(issuerAddress, "requestIssue", [plutoIssued], nil)
	63	+	if ((inv2 == inv2))
	64	+	then {
	65	+	let inv = invoke(poolAddress, "swap", [plutoIdStr, 0], [AttachedPayment(assetId, amountToBuyback)])
	66	+	if ((inv == inv))
	67	+	then {
	68	+	let plutoBought = match inv {
	69	+	case x: Int =>
	70	+	x
	71	+	case _ =>
	72	+	0
	73	+	}
	74	+	let totalPluto = (plutoBought + plutoIssued)
	75	+	$Tuple2([ScriptTransfer(i.caller, totalPluto, plutoId)], ((("issued: " + toString(plutoIssued)) + "; bought: ") + toString(plutoBought)))
	76	+	}
	77	+	else throw("Strict value is not equal to itself.")
	78	+	}
	79	+	else throw("Strict value is not equal to itself.")
	80	+	}
	81	+
	82	+
	83	+
	84	+	@Callable(i)
	85	+	func issuePluto () = {
	86	+	let assetId = value(i.payments[0].assetId)
	87	+	let assetIdStr = toBase58String(assetId)
	88	+	let amount = i.payments[0].amount
56	89		let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
57	90		let poolAddress = addressFromStringValue(poolStr)
58	91		let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let plutoId = base58'YQFYoMwARMQzZs3wqucBTdJNWSbsYk3GAw7wsqU4gyA'
5	5
6	6		let plutoIdStr = "YQFYoMwARMQzZs3wqucBTdJNWSbsYk3GAw7wsqU4gyA"
7	7
8	8		let parametersAddress = Address(base58'3PPhk65Ab4UDgbxYUDW7YSXkzHfWtj7WBrB')
9	9
10	10		let issuerAddress = Address(base58'3PF8pKC8CdmW9sEJUxQVSfezYRSJeThoNR3')
11	11
12	12		let Scale8 = 100000000
13	13
14	14		func tryGetInteger (key) = match getInteger(this, key) {
15	15		case x: Int =>
16	16		x
17	17		case _ =>
18	18		0
19	19		}
20	20
21	21
22	22		func tryGetIntParameter (key) = match getInteger(parametersAddress, key) {
23	23		case x: Int =>
24	24		x
25	25		case _ =>
26	26		0
27	27		}
28	28
29	29
30	30		func tryGetStrParameter (key) = match getString(parametersAddress, key) {
31	31		case x: String =>
32	32		x
33	33		case _ =>
34	34		""
35	35		}
36	36
37	37
38	38		func calculateBuybackRatio () = {
39	39		let treasurySize = tryGetIntParameter("stats_treasurySize")
40	40		5000
41	41		}
42	42
43	43
44	44		func calculatePoolPrice (poolAddress,assetStr) = {
45	45		let a0Weight = getIntegerValue(poolAddress, (("static_" + assetStr) + "_weight"))
46	46		let a1Weight = getIntegerValue(poolAddress, (("static_" + plutoIdStr) + "_weight"))
47	47		let a0Balance = getIntegerValue(poolAddress, (("global_" + assetStr) + "_balance"))
48	48		let a1Balance = getIntegerValue(poolAddress, (("global_" + plutoIdStr) + "_balance"))
49	49		fraction(Scale8, (a1Balance * a0Weight), (a0Balance * a1Weight))
50	50		}
51	51
52	52
53	53		@Callable(i)
54		-	func ~~issuePluto~~ (amount~~,assetIdStr~~) = {
	54	+	func calcIssuePluto (assetIdStr,amount) = {
55	55		let assetId = fromBase58String(assetIdStr)
	56	+	let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
	57	+	let poolAddress = addressFromStringValue(poolStr)
	58	+	let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)
	59	+	let amountToBuyback = (amount - amountToIssue)
	60	+	let assetPriceToPluto = calculatePoolPrice(poolAddress, assetIdStr)
	61	+	let plutoIssued = fraction(amountToIssue, assetPriceToPluto, Scale8)
	62	+	let inv2 = invoke(issuerAddress, "requestIssue", [plutoIssued], nil)
	63	+	if ((inv2 == inv2))
	64	+	then {
	65	+	let inv = invoke(poolAddress, "swap", [plutoIdStr, 0], [AttachedPayment(assetId, amountToBuyback)])
	66	+	if ((inv == inv))
	67	+	then {
	68	+	let plutoBought = match inv {
	69	+	case x: Int =>
	70	+	x
	71	+	case _ =>
	72	+	0
	73	+	}
	74	+	let totalPluto = (plutoBought + plutoIssued)
	75	+	$Tuple2([ScriptTransfer(i.caller, totalPluto, plutoId)], ((("issued: " + toString(plutoIssued)) + "; bought: ") + toString(plutoBought)))
	76	+	}
	77	+	else throw("Strict value is not equal to itself.")
	78	+	}
	79	+	else throw("Strict value is not equal to itself.")
	80	+	}
	81	+
	82	+
	83	+
	84	+	@Callable(i)
	85	+	func issuePluto () = {
	86	+	let assetId = value(i.payments[0].assetId)
	87	+	let assetIdStr = toBase58String(assetId)
	88	+	let amount = i.payments[0].amount
56	89		let poolStr = tryGetStrParameter((("asset_" + assetIdStr) + "_pool"))
57	90		let poolAddress = addressFromStringValue(poolStr)
58	91		let amountToIssue = fraction(amount, calculateBuybackRatio(), 10000)
59	92		let amountToBuyback = (amount - amountToIssue)
60	93		let assetPriceToPluto = calculatePoolPrice(poolAddress, assetIdStr)
61	94		let plutoIssued = fraction(amountToIssue, assetPriceToPluto, Scale8)
62	95		let inv2 = invoke(issuerAddress, "requestIssue", [plutoIssued], nil)
63	96		if ((inv2 == inv2))
64	97		then {
65	98		let inv = invoke(poolAddress, "swap", [plutoIdStr, 0], [AttachedPayment(assetId, amountToBuyback)])
66	99		if ((inv == inv))
67	100		then {
68	101		let plutoBought = match inv {
69	102		case x: Int =>
70	103		x
71	104		case _ =>
72	105		0
73	106		}
74	107		let totalPluto = (plutoBought + plutoIssued)
75	108		$Tuple2([ScriptTransfer(i.caller, totalPluto, plutoId)], ((("issued: " + toString(plutoIssued)) + "; bought: ") + toString(plutoBought)))
76	109		}
77	110		else throw("Strict value is not equal to itself.")
78	111		}
79	112		else throw("Strict value is not equal to itself.")
80	113		}
81	114
82	115
83	116		@Verifier(tx)
84	117		func verify () = sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
85	118

github/deemru/w8io/6500d08 
28.16 ms ◑