w8 · tx · AZh···vwJ

tx · AZhmoNxE9TMdLnQfrqgiGfBc73Rn29KeiX8Lx3ZVCvwJ

3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK:  -0.01400000 Waves

2022.08.14 21:14 [2184486] smart account 3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AZhmoNxE9TMdLnQfrqgiGfBc73Rn29KeiX8Lx3ZVCvwJ",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1660500866986,
    "version": 2,
    "chainId": 84,
    "sender": "3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK",
    "senderPublicKey": "FshLkkgzcLs6iQJ1Z8Nnfhm494tC8xZQczf9iXpZep3Y",
    "proofs": [
        "cyQZ4mZ8jvYLBj9gtuEMKg9WfFofcDLtASq6MUtVctgjbs2gWth6VttNsGygFdQg8iUTEyrYr9WbNdvpiqfodWW"
    ],
    "script": "base64:AAIFAAAAAAAAAAYIAhIAEgAAAAAFAAAAAApCVENBc3NldElEAQAAACD0NPJEoKaVcLA62QAal819hhYdQl83FUDxF7HRh6LUlwAAAAALU0FUU0Fzc2V0SUQBAAAAIIQVHLyAa6peOQxN4R+aXTT73bjvUy7OZLsC9igQULD7AAAAABNJc3N1ZWZzVE5GZWVBZGRyZXNzCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABAQAAACBSg9mgi9eQkjsz5eBARHIbc7Hg/F4fmB0sxZ6ySMfiIAAAAAAEdHhucwQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAAlUb3RhbHR4bnMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAAAAAAJdG90YWx0eG5zCQAAZAAAAAIFAAAABHR4bnMAAAAAAAAAAAEAAAACAAAAAWkBAAAACUlzc3VlU0FUUwAAAAAEAAAAA3BtdAMJAAAAAAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAArTm8gUGF5bWVudHMgYXR0YWNoZWQgcGxlYXNlIGF0dGFjaCBbQlRDXSAtIAkAAlgAAAABBQAAAApCVENBc3NldElEAgAAAAwgQXNzZXQgT25seS4EAAAACmN1cnJlbnRLZXkJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAMUHJpY2VQZXJTQVRTCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAhTQVRTL0JUQwQAAAAOU0FUU0N1cnJlbnRDYXAJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAADlNBVFNDdXJyZW50Q2FwBAAAAA1OZXdTQVRTVG9Vc2VyCQAAawAAAAMAAAAAAAABhqAIBQAAAANwbXQAAAAGYW1vdW50BQAAAAxQcmljZVBlclNBVFMEAAAAElByZXZpb3VzSXNzdWVkU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAASVG90YWxfSXNzdWVkX1NBVFM6BAAAAA9Ub3RhbElzc3VlZFNBVFMJAABkAAAAAgUAAAASUHJldmlvdXNJc3N1ZWRTQVRTBQAAAA1OZXdTQVRTVG9Vc2VyBAAAAA5QZW5kaW5nTWludGluZwkAAGUAAAACBQAAAA5TQVRTQ3VycmVudENhcAUAAAAPVG90YWxJc3N1ZWRTQVRTBAAAABhQcmV2aW91c1NBVFNSZXNlcnZlVmFsdWUJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAGlRvdGFsX1NBVFNfUmVzZXJ2ZV9Jbl9CVEM6BAAAAANmZWUEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwIAAAATVG90YWxfRmVlX0NvbGxlY3RlZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAtGZWVzQ2hhcmdlZAAAAAAAAAAAAQQAAAAQU0FUU1Jlc2VydmVWYWx1ZQkAAGQAAAACBQAAABhQcmV2aW91c1NBVFNSZXNlcnZlVmFsdWUIBQAAAANwbXQAAAAGYW1vdW50BAAAABdQcmV2aW91c1NBVFNCYWNrdXBQcmljZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAZU0FUU19CYWNrdXBfVmFsdWVfSW5fQlRDOgQAAAAPU0FUU0JhY2t1cFByaWNlCQAAawAAAAMAAAAAAAABhqAFAAAAEFNBVFNSZXNlcnZlVmFsdWUFAAAAD1RvdGFsSXNzdWVkU0FUUwMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAKQlRDQXNzZXRJRAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAwSW5jb3JyZWN0IGFzc2V0IGF0dGFjaGVkLCBwbGVhc2UgYXR0YWNoIFtCVENdIC0gCQACWAAAAAEFAAAACkJUQ0Fzc2V0SUQCAAAABiBvbmx5LgMJAABmAAAAAgAAAAAAAAATiAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAA5UGxlYXNlIEF0dGFjaCBtaW5pbXVtIDUwMDAgU2F0b3NoaSdzIFRvIElzc3VlIFNBVFMgQXNzZXQuAwkAAGYAAAACBQAAAA9Ub3RhbElzc3VlZFNBVFMFAAAADlNBVFNDdXJyZW50Q2FwCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAKlNBVFMgTWludGluZyBpcyBhYm91dCB0byByZWFjaCB0aGUgQ2FwIG9mIAkAAaQAAAABBQAAAA5TQVRTQ3VycmVudENhcAIAAAAwLzEwXjYgU0FUUy4gUGxlYXNlIFJlZHVjZSB5b3VyIE1pbnRpbmcgT3JkZXIgYnkgCQABpAAAAAEFAAAADlBlbmRpbmdNaW50aW5nAgAAAAggb3IgcHV0IAkAAaQAAAABCQAAZQAAAAIFAAAADlNBVFNDdXJyZW50Q2FwBQAAABJQcmV2aW91c0lzc3VlZFNBVFMCAAAABS8xMF42CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoFAAAAD1RvdGFsSXNzdWVkU0FUUwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAVQmFsYW5jZV9NaW50aW5nX1NBVFM6BQAAAA5QZW5kaW5nTWludGluZwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAaVG90YWxfU0FUU19SZXNlcnZlX0luX0JUQzoFAAAAEFNBVFNSZXNlcnZlVmFsdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoFAAAAD1NBVFNCYWNrdXBQcmljZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAATVG90YWxfRmVlX0NvbGxlY3RlZAUAAAALRmVlc0NoYXJnZWQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAACVRvdGFsdHhucwUAAAAJdG90YWx0eG5zCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAB21lc3NhZ2UCAAAAJjxoMT5TQVRTIElzc3VlZCBTdWNjZXNzZnVsbHkhPC9oMT48YnI+CQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwUAAAALU0FUU0Fzc2V0SUQFAAAADU5ld1NBVFNUb1VzZXIGCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGUAAAACBQAAAA1OZXdTQVRTVG9Vc2VyBQAAAAtGZWVzQ2hhcmdlZAUAAAALU0FUU0Fzc2V0SUQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAATSXNzdWVmc1RORmVlQWRkcmVzcwUAAAALRmVlc0NoYXJnZWQFAAAAC1NBVFNBc3NldElEBQAAAANuaWwAAAABaQEAAAAJTGlxdWlkYXRlAAAAAAQAAAAKY3VycmVudEtleQkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAAA3BtdAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAASUHJldmlvdXNJc3N1ZWRTQVRTCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoEAAAAElByZXZpb3VzQnVybmVkU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAASVG90YWxfQnVybmVkX1NBVFM6BAAAAA5TQVRTQ3VycmVudENhcAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOU0FUU0N1cnJlbnRDYXAEAAAAD1RvdGFsSXNzdWVkU0FUUwkAAGUAAAACBQAAABJQcmV2aW91c0lzc3VlZFNBVFMIBQAAAANwbXQAAAAGYW1vdW50BAAAAA9Ub3RhbEJ1cm5lZFNBVFMJAABkAAAAAgUAAAASUHJldmlvdXNCdXJuZWRTQVRTCAUAAAADcG10AAAABmFtb3VudAQAAAAOUGVuZGluZ01pbnRpbmcJAABlAAAAAgUAAAAOU0FUU0N1cnJlbnRDYXAFAAAAD1RvdGFsSXNzdWVkU0FUUwQAAAAYUHJldmlvdXNTQVRTUmVzZXJ2ZVZhbHVlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABpUb3RhbF9TQVRTX1Jlc2VydmVfSW5fQlRDOgQAAAAXUHJldmlvdXNTQVRTQmFja3VwUHJpY2UJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoEAAAAEmNhbGN1bGF0ZWJ1cm52YWx1ZQkAAGsAAAADBQAAABdQcmV2aW91c1NBVFNCYWNrdXBQcmljZQgFAAAAA3BtdAAAAAZhbW91bnQAAAAAAAABhqAEAAAAEFNBVFNSZXNlcnZlVmFsdWUJAABlAAAAAgUAAAAYUHJldmlvdXNTQVRTUmVzZXJ2ZVZhbHVlBQAAABJjYWxjdWxhdGVidXJudmFsdWUEAAAAD1NBVFNCYWNrdXBQcmljZQkAAGsAAAADAAAAAAAAAYagBQAAABBTQVRTUmVzZXJ2ZVZhbHVlBQAAAA9Ub3RhbElzc3VlZFNBVFMDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAC1NBVFNBc3NldElECQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAABRLaW5kbHkgRGVwb3NpdCBPbmx5IAkAAlgAAAABBQAAAAtTQVRTQXNzZXRJRAIAAAAIIFtTQVRTXS4DCQAAZgAAAAIAAAAAAAAAE4gIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAALUF0dGFjaCBBbW91bnQgbXVzdCBiZSBncmVhdGVyIHRoYW4gNTAwMCBTQVRTLgkABEwAAAACCQEAAAAEQnVybgAAAAIFAAAAC1NBVFNBc3NldElECAUAAAADcG10AAAABmFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAJVG90YWx0eG5zBQAAAAl0b3RhbHR4bnMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAElRvdGFsX0lzc3VlZF9TQVRTOgUAAAAPVG90YWxJc3N1ZWRTQVRTCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9CdXJuZWRfU0FUUzoFAAAAD1RvdGFsQnVybmVkU0FUUwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAVQmFsYW5jZV9NaW50aW5nX1NBVFM6BQAAAA5QZW5kaW5nTWludGluZwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAaVG90YWxfU0FUU19SZXNlcnZlX0luX0JUQzoFAAAAEFNBVFNSZXNlcnZlVmFsdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoFAAAAD1NBVFNCYWNrdXBQcmljZQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAAAdtZXNzYWdlAgAAACo8aDE+U0FUUyBMaXF1aWRhdGVkIFN1Y2Nlc3NmdWxseSE8L2gxPjxicj4JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAABJjYWxjdWxhdGVidXJudmFsdWUFAAAACkJUQ0Fzc2V0SUQFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4CQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tlefyjs+Y=",
    "height": 2184486,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: GDacafw1jT8v461WPFqHuqXsqLLYGjxswE3NuhpYjFT4
Next: 7q4CZ3LqXAtdo7BWpZBegcDLQ619V1GoQAKCyKZ9wGdR

Diff: 
Old New Differences
20 20  func IssueSATS () = {
21 21      let pmt = if ((size(i.payments) == 1))
22 22          then i.payments[0]
23 -         else throw((("No Payments Attached Please Attach " + toBase58String(BTCAssetID)) + " Asset Only."))
23 +         else throw((("No Payments attached please attach [BTC] - " + toBase58String(BTCAssetID)) + " Asset Only."))
24 24      let currentKey = toBase58String(i.caller.bytes)
25 25      let PricePerSATS = getIntegerValue(this, "SATS/BTC")
26 26      let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
Full: 
Old New Differences
1 1  {-# STDLIB_VERSION 5 #-}
2 2  {-# SCRIPT_TYPE ACCOUNT #-}
3 3  {-# CONTENT_TYPE DAPP #-}
4 4  let BTCAssetID = base58'HSHJecCLGF7DEPA23dJe6WwroaLeDnik5eptjxEJYvwY'
5 5  
6 6  let SATSAssetID = base58'9tbVJFXNxWGtZefTnuH9yojcYEPHwXGxhDvY4UK4qf2z'
7 7  
8 8  let IssuefsTNFeeAddress = addressFromPublicKey(base58'6Z73KxcX3sugpiStpSRXxKxTmWqCaLVwFeM6kwyiKVDR')
9 9  
10 10  let txns = match getInteger(this, "Totaltxns") {
11 11      case a: Int => 
12 12          a
13 13      case _ => 
14 14          0
15 15  }
16 16  
17 17  let totaltxns = (txns + 1)
18 18  
19 19  @Callable(i)
20 20  func IssueSATS () = {
21 21      let pmt = if ((size(i.payments) == 1))
22 22          then i.payments[0]
23 -         else throw((("No Payments Attached Please Attach " + toBase58String(BTCAssetID)) + " Asset Only."))
23 +         else throw((("No Payments attached please attach [BTC] - " + toBase58String(BTCAssetID)) + " Asset Only."))
24 24      let currentKey = toBase58String(i.caller.bytes)
25 25      let PricePerSATS = getIntegerValue(this, "SATS/BTC")
26 26      let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
27 27      let NewSATSToUser = fraction(100000, pmt.amount, PricePerSATS)
28 28      let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
29 29      let TotalIssuedSATS = (PreviousIssuedSATS + NewSATSToUser)
30 30      let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
31 31      let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
32 32      let fee =     match getInteger(this, "Total_Fee_Collected") {
33 33          case a: Int => 
34 34              a
35 35          case _ => 
36 36              0
37 37      }
38 38      let FeesCharged = 1
39 39      let SATSReserveValue = (PreviousSATSReserveValue + pmt.amount)
40 40      let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
41 41      let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)
42 42      if ((pmt.assetId != BTCAssetID))
43 43          then throw((("Incorrect asset attached, please attach [BTC] - " + toBase58String(BTCAssetID)) + " only."))
44 44          else if ((5000 > pmt.amount))
45 45              then throw("Please Attach minimum 5000 Satoshi's To Issue SATS Asset.")
46 46              else if ((TotalIssuedSATS > SATSCurrentCap))
47 47                  then throw((((((("SATS Minting is about to reach the Cap of " + toString(SATSCurrentCap)) + "/10^6 SATS. Please Reduce your Minting Order by ") + toString(PendingMinting)) + " or put ") + toString((SATSCurrentCap - PreviousIssuedSATS))) + "/10^6"))
48 48                  else [IntegerEntry("Total_Issued_SATS:", TotalIssuedSATS), IntegerEntry("Balance_Minting_SATS:", PendingMinting), IntegerEntry("Total_SATS_Reserve_In_BTC:", SATSReserveValue), IntegerEntry("SATS_Backup_Value_In_BTC:", SATSBackupPrice), IntegerEntry("Total_Fee_Collected", FeesCharged), IntegerEntry("Totaltxns", totaltxns), StringEntry("message", "<h1>SATS Issued Successfully!</h1><br>"), Reissue(SATSAssetID, NewSATSToUser, true), ScriptTransfer(i.caller, (NewSATSToUser - FeesCharged), SATSAssetID), ScriptTransfer(IssuefsTNFeeAddress, FeesCharged, SATSAssetID)]
49 49      }
50 50  
51 51  
52 52  
53 53  @Callable(i)
54 54  func Liquidate () = {
55 55      let currentKey = toBase58String(i.callerPublicKey)
56 56      let pmt = value(i.payments[0])
57 57      let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
58 58      let PreviousBurnedSATS = getIntegerValue(this, "Total_Burned_SATS:")
59 59      let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
60 60      let TotalIssuedSATS = (PreviousIssuedSATS - pmt.amount)
61 61      let TotalBurnedSATS = (PreviousBurnedSATS + pmt.amount)
62 62      let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
63 63      let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
64 64      let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
65 65      let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 100000)
66 66      let SATSReserveValue = (PreviousSATSReserveValue - calculateburnvalue)
67 67      let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)
68 68      if ((pmt.assetId != SATSAssetID))
69 69          then throw((("Kindly Deposit Only " + toBase58String(SATSAssetID)) + " [SATS]."))
70 70          else if ((5000 > pmt.amount))
71 71              then throw("Attach Amount must be greater than 5000 SATS.")
72 72              else [Burn(SATSAssetID, pmt.amount), IntegerEntry("Totaltxns", totaltxns), IntegerEntry("Total_Issued_SATS:", TotalIssuedSATS), IntegerEntry("Total_Burned_SATS:", TotalBurnedSATS), IntegerEntry("Balance_Minting_SATS:", PendingMinting), IntegerEntry("Total_SATS_Reserve_In_BTC:", SATSReserveValue), IntegerEntry("SATS_Backup_Value_In_BTC:", SATSBackupPrice), StringEntry("message", "<h1>SATS Liquidated Successfully!</h1><br>"), ScriptTransfer(i.caller, calculateburnvalue, BTCAssetID)]
73 73      }
74 74  
75 75  
76 76  @Verifier(tx)
77 77  func verify () = match tx {
78 78      case _ => 
79 79          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
80 80  }
81 81

Old	New		Differences
20	20		func IssueSATS () = {
21	21		let pmt = if ((size(i.payments) == 1))
22	22		then i.payments[0]
23		-	else throw((("No Payments ~~Attached Please Attach~~ " + toBase58String(BTCAssetID)) + " Asset Only."))
	23	+	else throw((("No Payments attached please attach [BTC] - " + toBase58String(BTCAssetID)) + " Asset Only."))
24	24		let currentKey = toBase58String(i.caller.bytes)
25	25		let PricePerSATS = getIntegerValue(this, "SATS/BTC")
26	26		let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")

Old	New		Differences
1	1		{-# STDLIB_VERSION 5 #-}
2	2		{-# SCRIPT_TYPE ACCOUNT #-}
3	3		{-# CONTENT_TYPE DAPP #-}
4	4		let BTCAssetID = base58'HSHJecCLGF7DEPA23dJe6WwroaLeDnik5eptjxEJYvwY'
5	5
6	6		let SATSAssetID = base58'9tbVJFXNxWGtZefTnuH9yojcYEPHwXGxhDvY4UK4qf2z'
7	7
8	8		let IssuefsTNFeeAddress = addressFromPublicKey(base58'6Z73KxcX3sugpiStpSRXxKxTmWqCaLVwFeM6kwyiKVDR')
9	9
10	10		let txns = match getInteger(this, "Totaltxns") {
11	11		case a: Int =>
12	12		a
13	13		case _ =>
14	14		0
15	15		}
16	16
17	17		let totaltxns = (txns + 1)
18	18
19	19		@Callable(i)
20	20		func IssueSATS () = {
21	21		let pmt = if ((size(i.payments) == 1))
22	22		then i.payments[0]
23		-	else throw((("No Payments ~~Attached Please Attach~~ " + toBase58String(BTCAssetID)) + " Asset Only."))
	23	+	else throw((("No Payments attached please attach [BTC] - " + toBase58String(BTCAssetID)) + " Asset Only."))
24	24		let currentKey = toBase58String(i.caller.bytes)
25	25		let PricePerSATS = getIntegerValue(this, "SATS/BTC")
26	26		let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
27	27		let NewSATSToUser = fraction(100000, pmt.amount, PricePerSATS)
28	28		let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
29	29		let TotalIssuedSATS = (PreviousIssuedSATS + NewSATSToUser)
30	30		let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
31	31		let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
32	32		let fee = match getInteger(this, "Total_Fee_Collected") {
33	33		case a: Int =>
34	34		a
35	35		case _ =>
36	36		0
37	37		}
38	38		let FeesCharged = 1
39	39		let SATSReserveValue = (PreviousSATSReserveValue + pmt.amount)
40	40		let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
41	41		let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)
42	42		if ((pmt.assetId != BTCAssetID))
43	43		then throw((("Incorrect asset attached, please attach [BTC] - " + toBase58String(BTCAssetID)) + " only."))
44	44		else if ((5000 > pmt.amount))
45	45		then throw("Please Attach minimum 5000 Satoshi's To Issue SATS Asset.")
46	46		else if ((TotalIssuedSATS > SATSCurrentCap))
47	47		then throw((((((("SATS Minting is about to reach the Cap of " + toString(SATSCurrentCap)) + "/10^6 SATS. Please Reduce your Minting Order by ") + toString(PendingMinting)) + " or put ") + toString((SATSCurrentCap - PreviousIssuedSATS))) + "/10^6"))
48	48		else [IntegerEntry("Total_Issued_SATS:", TotalIssuedSATS), IntegerEntry("Balance_Minting_SATS:", PendingMinting), IntegerEntry("Total_SATS_Reserve_In_BTC:", SATSReserveValue), IntegerEntry("SATS_Backup_Value_In_BTC:", SATSBackupPrice), IntegerEntry("Total_Fee_Collected", FeesCharged), IntegerEntry("Totaltxns", totaltxns), StringEntry("message", "<h1>SATS Issued Successfully!</h1><br>"), Reissue(SATSAssetID, NewSATSToUser, true), ScriptTransfer(i.caller, (NewSATSToUser - FeesCharged), SATSAssetID), ScriptTransfer(IssuefsTNFeeAddress, FeesCharged, SATSAssetID)]
49	49		}
50	50
51	51
52	52
53	53		@Callable(i)
54	54		func Liquidate () = {
55	55		let currentKey = toBase58String(i.callerPublicKey)
56	56		let pmt = value(i.payments[0])
57	57		let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
58	58		let PreviousBurnedSATS = getIntegerValue(this, "Total_Burned_SATS:")
59	59		let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
60	60		let TotalIssuedSATS = (PreviousIssuedSATS - pmt.amount)
61	61		let TotalBurnedSATS = (PreviousBurnedSATS + pmt.amount)
62	62		let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
63	63		let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
64	64		let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
65	65		let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 100000)
66	66		let SATSReserveValue = (PreviousSATSReserveValue - calculateburnvalue)
67	67		let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)
68	68		if ((pmt.assetId != SATSAssetID))
69	69		then throw((("Kindly Deposit Only " + toBase58String(SATSAssetID)) + " [SATS]."))
70	70		else if ((5000 > pmt.amount))
71	71		then throw("Attach Amount must be greater than 5000 SATS.")
72	72		else [Burn(SATSAssetID, pmt.amount), IntegerEntry("Totaltxns", totaltxns), IntegerEntry("Total_Issued_SATS:", TotalIssuedSATS), IntegerEntry("Total_Burned_SATS:", TotalBurnedSATS), IntegerEntry("Balance_Minting_SATS:", PendingMinting), IntegerEntry("Total_SATS_Reserve_In_BTC:", SATSReserveValue), IntegerEntry("SATS_Backup_Value_In_BTC:", SATSBackupPrice), StringEntry("message", "<h1>SATS Liquidated Successfully!</h1><br>"), ScriptTransfer(i.caller, calculateburnvalue, BTCAssetID)]
73	73		}
74	74
75	75
76	76		@Verifier(tx)
77	77		func verify () = match tx {
78	78		case _ =>
79	79		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
80	80		}
81	81

github/deemru/w8io/169f3d6 
126.12 ms ◑