w8 · tx · GDa···FT4

tx · GDacafw1jT8v461WPFqHuqXsqLLYGjxswE3NuhpYjFT4

3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK:  -0.01400000 Waves

2022.08.14 21:12 [2184484] smart account 3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GDacafw1jT8v461WPFqHuqXsqLLYGjxswE3NuhpYjFT4",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1660500804128,
    "version": 2,
    "chainId": 84,
    "sender": "3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK",
    "senderPublicKey": "FshLkkgzcLs6iQJ1Z8Nnfhm494tC8xZQczf9iXpZep3Y",
    "proofs": [
        "3Lzm7xxSE6EQG2jvBw75v41SmFhnup78v4TnmUToyZgX8SvNTKgcuZExS8vv4bc2XRzvRWTBAxjayRP2s6K1qged"
    ],
    "script": "base64:AAIFAAAAAAAAAAYIAhIAEgAAAAAFAAAAAApCVENBc3NldElEAQAAACD0NPJEoKaVcLA62QAal819hhYdQl83FUDxF7HRh6LUlwAAAAALU0FUU0Fzc2V0SUQBAAAAIIQVHLyAa6peOQxN4R+aXTT73bjvUy7OZLsC9igQULD7AAAAABNJc3N1ZWZzVE5GZWVBZGRyZXNzCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABAQAAACBSg9mgi9eQkjsz5eBARHIbc7Hg/F4fmB0sxZ6ySMfiIAAAAAAEdHhucwQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAAlUb3RhbHR4bnMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAAAAAAJdG90YWx0eG5zCQAAZAAAAAIFAAAABHR4bnMAAAAAAAAAAAEAAAACAAAAAWkBAAAACUlzc3VlU0FUUwAAAAAEAAAAA3BtdAMJAAAAAAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAjTm8gUGF5bWVudHMgQXR0YWNoZWQgUGxlYXNlIEF0dGFjaCAJAAJYAAAAAQUAAAAKQlRDQXNzZXRJRAIAAAAMIEFzc2V0IE9ubHkuBAAAAApjdXJyZW50S2V5CQACWAAAAAEICAUAAAABaQAAAAZjYWxsZXIAAAAFYnl0ZXMEAAAADFByaWNlUGVyU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAIU0FUUy9CVEMEAAAADlNBVFNDdXJyZW50Q2FwCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAA5TQVRTQ3VycmVudENhcAQAAAANTmV3U0FUU1RvVXNlcgkAAGsAAAADAAAAAAAAAYagCAUAAAADcG10AAAABmFtb3VudAUAAAAMUHJpY2VQZXJTQVRTBAAAABJQcmV2aW91c0lzc3VlZFNBVFMJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAElRvdGFsX0lzc3VlZF9TQVRTOgQAAAAPVG90YWxJc3N1ZWRTQVRTCQAAZAAAAAIFAAAAElByZXZpb3VzSXNzdWVkU0FUUwUAAAANTmV3U0FUU1RvVXNlcgQAAAAOUGVuZGluZ01pbnRpbmcJAABlAAAAAgUAAAAOU0FUU0N1cnJlbnRDYXAFAAAAD1RvdGFsSXNzdWVkU0FUUwQAAAAYUHJldmlvdXNTQVRTUmVzZXJ2ZVZhbHVlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABpUb3RhbF9TQVRTX1Jlc2VydmVfSW5fQlRDOgQAAAADZmVlBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMCAAAAE1RvdGFsX0ZlZV9Db2xsZWN0ZWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAQAAAALRmVlc0NoYXJnZWQAAAAAAAAAAAEEAAAAEFNBVFNSZXNlcnZlVmFsdWUJAABkAAAAAgUAAAAYUHJldmlvdXNTQVRTUmVzZXJ2ZVZhbHVlCAUAAAADcG10AAAABmFtb3VudAQAAAAXUHJldmlvdXNTQVRTQmFja3VwUHJpY2UJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoEAAAAD1NBVFNCYWNrdXBQcmljZQkAAGsAAAADAAAAAAAAAYagBQAAABBTQVRTUmVzZXJ2ZVZhbHVlBQAAAA9Ub3RhbElzc3VlZFNBVFMDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAACkJUQ0Fzc2V0SUQJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAMEluY29ycmVjdCBhc3NldCBhdHRhY2hlZCwgcGxlYXNlIGF0dGFjaCBbQlRDXSAtIAkAAlgAAAABBQAAAApCVENBc3NldElEAgAAAAYgb25seS4DCQAAZgAAAAIAAAAAAAAAE4gIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAAOVBsZWFzZSBBdHRhY2ggbWluaW11bSA1MDAwIFNhdG9zaGkncyBUbyBJc3N1ZSBTQVRTIEFzc2V0LgMJAABmAAAAAgUAAAAPVG90YWxJc3N1ZWRTQVRTBQAAAA5TQVRTQ3VycmVudENhcAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAACpTQVRTIE1pbnRpbmcgaXMgYWJvdXQgdG8gcmVhY2ggdGhlIENhcCBvZiAJAAGkAAAAAQUAAAAOU0FUU0N1cnJlbnRDYXACAAAAMC8xMF42IFNBVFMuIFBsZWFzZSBSZWR1Y2UgeW91ciBNaW50aW5nIE9yZGVyIGJ5IAkAAaQAAAABBQAAAA5QZW5kaW5nTWludGluZwIAAAAIIG9yIHB1dCAJAAGkAAAAAQkAAGUAAAACBQAAAA5TQVRTQ3VycmVudENhcAUAAAASUHJldmlvdXNJc3N1ZWRTQVRTAgAAAAUvMTBeNgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAASVG90YWxfSXNzdWVkX1NBVFM6BQAAAA9Ub3RhbElzc3VlZFNBVFMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAFUJhbGFuY2VfTWludGluZ19TQVRTOgUAAAAOUGVuZGluZ01pbnRpbmcJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGlRvdGFsX1NBVFNfUmVzZXJ2ZV9Jbl9CVEM6BQAAABBTQVRTUmVzZXJ2ZVZhbHVlCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABlTQVRTX0JhY2t1cF9WYWx1ZV9Jbl9CVEM6BQAAAA9TQVRTQmFja3VwUHJpY2UJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAE1RvdGFsX0ZlZV9Db2xsZWN0ZWQFAAAAC0ZlZXNDaGFyZ2VkCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAlUb3RhbHR4bnMFAAAACXRvdGFsdHhucwkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAAAdtZXNzYWdlAgAAACY8aDE+U0FUUyBJc3N1ZWQgU3VjY2Vzc2Z1bGx5ITwvaDE+PGJyPgkABEwAAAACCQEAAAAHUmVpc3N1ZQAAAAMFAAAAC1NBVFNBc3NldElEBQAAAA1OZXdTQVRTVG9Vc2VyBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABlAAAAAgUAAAANTmV3U0FUU1RvVXNlcgUAAAALRmVlc0NoYXJnZWQFAAAAC1NBVFNBc3NldElECQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAE0lzc3VlZnNUTkZlZUFkZHJlc3MFAAAAC0ZlZXNDaGFyZ2VkBQAAAAtTQVRTQXNzZXRJRAUAAAADbmlsAAAAAWkBAAAACUxpcXVpZGF0ZQAAAAAEAAAACmN1cnJlbnRLZXkJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BAAAAANwbXQJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAEAAAAElByZXZpb3VzSXNzdWVkU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAASVG90YWxfSXNzdWVkX1NBVFM6BAAAABJQcmV2aW91c0J1cm5lZFNBVFMJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAElRvdGFsX0J1cm5lZF9TQVRTOgQAAAAOU0FUU0N1cnJlbnRDYXAJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAADlNBVFNDdXJyZW50Q2FwBAAAAA9Ub3RhbElzc3VlZFNBVFMJAABlAAAAAgUAAAASUHJldmlvdXNJc3N1ZWRTQVRTCAUAAAADcG10AAAABmFtb3VudAQAAAAPVG90YWxCdXJuZWRTQVRTCQAAZAAAAAIFAAAAElByZXZpb3VzQnVybmVkU0FUUwgFAAAAA3BtdAAAAAZhbW91bnQEAAAADlBlbmRpbmdNaW50aW5nCQAAZQAAAAIFAAAADlNBVFNDdXJyZW50Q2FwBQAAAA9Ub3RhbElzc3VlZFNBVFMEAAAAGFByZXZpb3VzU0FUU1Jlc2VydmVWYWx1ZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAaVG90YWxfU0FUU19SZXNlcnZlX0luX0JUQzoEAAAAF1ByZXZpb3VzU0FUU0JhY2t1cFByaWNlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABlTQVRTX0JhY2t1cF9WYWx1ZV9Jbl9CVEM6BAAAABJjYWxjdWxhdGVidXJudmFsdWUJAABrAAAAAwUAAAAXUHJldmlvdXNTQVRTQmFja3VwUHJpY2UIBQAAAANwbXQAAAAGYW1vdW50AAAAAAAAAYagBAAAABBTQVRTUmVzZXJ2ZVZhbHVlCQAAZQAAAAIFAAAAGFByZXZpb3VzU0FUU1Jlc2VydmVWYWx1ZQUAAAASY2FsY3VsYXRlYnVybnZhbHVlBAAAAA9TQVRTQmFja3VwUHJpY2UJAABrAAAAAwAAAAAAAAGGoAUAAAAQU0FUU1Jlc2VydmVWYWx1ZQUAAAAPVG90YWxJc3N1ZWRTQVRTAwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAAtTQVRTQXNzZXRJRAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAUS2luZGx5IERlcG9zaXQgT25seSAJAAJYAAAAAQUAAAALU0FUU0Fzc2V0SUQCAAAACCBbU0FUU10uAwkAAGYAAAACAAAAAAAAABOICAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAAC1BdHRhY2ggQW1vdW50IG11c3QgYmUgZ3JlYXRlciB0aGFuIDUwMDAgU0FUUy4JAARMAAAAAgkBAAAABEJ1cm4AAAACBQAAAAtTQVRTQXNzZXRJRAgFAAAAA3BtdAAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAACVRvdGFsdHhucwUAAAAJdG90YWx0eG5zCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoFAAAAD1RvdGFsSXNzdWVkU0FUUwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAASVG90YWxfQnVybmVkX1NBVFM6BQAAAA9Ub3RhbEJ1cm5lZFNBVFMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAFUJhbGFuY2VfTWludGluZ19TQVRTOgUAAAAOUGVuZGluZ01pbnRpbmcJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGlRvdGFsX1NBVFNfUmVzZXJ2ZV9Jbl9CVEM6BQAAABBTQVRTUmVzZXJ2ZVZhbHVlCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABlTQVRTX0JhY2t1cF9WYWx1ZV9Jbl9CVEM6BQAAAA9TQVRTQmFja3VwUHJpY2UJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAHbWVzc2FnZQIAAAAqPGgxPlNBVFMgTGlxdWlkYXRlZCBTdWNjZXNzZnVsbHkhPC9oMT48YnI+CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAASY2FsY3VsYXRlYnVybnZhbHVlBQAAAApCVENBc3NldElEBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXnS/61D",
    "height": 2184484,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: EfgMatcnFzGMj47jtPVjXpEEfpb4a7HktmKR3u83MPkc
Next: AZhmoNxE9TMdLnQfrqgiGfBc73Rn29KeiX8Lx3ZVCvwJ

Diff: 
Old New Differences
18 18  
19 19  @Callable(i)
20 20  func IssueSATS () = {
21 -     let pmt = value(i.payments[0])
21 +     let pmt = if ((size(i.payments) == 1))
22 +         then i.payments[0]
23 +         else throw((("No Payments Attached Please Attach " + toBase58String(BTCAssetID)) + " Asset Only."))
22 24      let currentKey = toBase58String(i.caller.bytes)
23 25      let PricePerSATS = getIntegerValue(this, "SATS/BTC")
24 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 -     let pmt = value(i.payments[0])
21 +     let pmt = if ((size(i.payments) == 1))
22 +         then i.payments[0]
23 +         else throw((("No Payments Attached Please Attach " + toBase58String(BTCAssetID)) + " Asset Only."))
22 24      let currentKey = toBase58String(i.caller.bytes)
23 25      let PricePerSATS = getIntegerValue(this, "SATS/BTC")
24 26      let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
25 27      let NewSATSToUser = fraction(100000, pmt.amount, PricePerSATS)
26 28      let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
27 29      let TotalIssuedSATS = (PreviousIssuedSATS + NewSATSToUser)
28 30      let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
29 31      let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
30 32      let fee =     match getInteger(this, "Total_Fee_Collected") {
31 33          case a: Int => 
32 34              a
33 35          case _ => 
34 36              0
35 37      }
36 38      let FeesCharged = 1
37 39      let SATSReserveValue = (PreviousSATSReserveValue + pmt.amount)
38 40      let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
39 41      let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)
40 42      if ((pmt.assetId != BTCAssetID))
41 43          then throw((("Incorrect asset attached, please attach [BTC] - " + toBase58String(BTCAssetID)) + " only."))
42 44          else if ((5000 > pmt.amount))
43 45              then throw("Please Attach minimum 5000 Satoshi's To Issue SATS Asset.")
44 46              else if ((TotalIssuedSATS > SATSCurrentCap))
45 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"))
46 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)]
47 49      }
48 50  
49 51  
50 52  
51 53  @Callable(i)
52 54  func Liquidate () = {
53 55      let currentKey = toBase58String(i.callerPublicKey)
54 56      let pmt = value(i.payments[0])
55 57      let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
56 58      let PreviousBurnedSATS = getIntegerValue(this, "Total_Burned_SATS:")
57 59      let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
58 60      let TotalIssuedSATS = (PreviousIssuedSATS - pmt.amount)
59 61      let TotalBurnedSATS = (PreviousBurnedSATS + pmt.amount)
60 62      let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
61 63      let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
62 64      let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
63 65      let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 100000)
64 66      let SATSReserveValue = (PreviousSATSReserveValue - calculateburnvalue)
65 67      let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)
66 68      if ((pmt.assetId != SATSAssetID))
67 69          then throw((("Kindly Deposit Only " + toBase58String(SATSAssetID)) + " [SATS]."))
68 70          else if ((5000 > pmt.amount))
69 71              then throw("Attach Amount must be greater than 5000 SATS.")
70 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)]
71 73      }
72 74  
73 75  
74 76  @Verifier(tx)
75 77  func verify () = match tx {
76 78      case _ => 
77 79          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
78 80  }
79 81

Old	New		Differences
18	18
19	19		@Callable(i)
20	20		func IssueSATS () = {
21		-	let pmt = value(i.payments[0])
	21	+	let pmt = if ((size(i.payments) == 1))
	22	+	then i.payments[0]
	23	+	else throw((("No Payments Attached Please Attach " + toBase58String(BTCAssetID)) + " Asset Only."))
22	24		let currentKey = toBase58String(i.caller.bytes)
23	25		let PricePerSATS = getIntegerValue(this, "SATS/BTC")
24	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		-	let pmt = value(i.payments[0])
	21	+	let pmt = if ((size(i.payments) == 1))
	22	+	then i.payments[0]
	23	+	else throw((("No Payments Attached Please Attach " + toBase58String(BTCAssetID)) + " Asset Only."))
22	24		let currentKey = toBase58String(i.caller.bytes)
23	25		let PricePerSATS = getIntegerValue(this, "SATS/BTC")
24	26		let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
25	27		let NewSATSToUser = fraction(100000, pmt.amount, PricePerSATS)
26	28		let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
27	29		let TotalIssuedSATS = (PreviousIssuedSATS + NewSATSToUser)
28	30		let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
29	31		let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
30	32		let fee = match getInteger(this, "Total_Fee_Collected") {
31	33		case a: Int =>
32	34		a
33	35		case _ =>
34	36		0
35	37		}
36	38		let FeesCharged = 1
37	39		let SATSReserveValue = (PreviousSATSReserveValue + pmt.amount)
38	40		let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
39	41		let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)
40	42		if ((pmt.assetId != BTCAssetID))
41	43		then throw((("Incorrect asset attached, please attach [BTC] - " + toBase58String(BTCAssetID)) + " only."))
42	44		else if ((5000 > pmt.amount))
43	45		then throw("Please Attach minimum 5000 Satoshi's To Issue SATS Asset.")
44	46		else if ((TotalIssuedSATS > SATSCurrentCap))
45	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"))
46	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)]
47	49		}
48	50
49	51
50	52
51	53		@Callable(i)
52	54		func Liquidate () = {
53	55		let currentKey = toBase58String(i.callerPublicKey)
54	56		let pmt = value(i.payments[0])
55	57		let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
56	58		let PreviousBurnedSATS = getIntegerValue(this, "Total_Burned_SATS:")
57	59		let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
58	60		let TotalIssuedSATS = (PreviousIssuedSATS - pmt.amount)
59	61		let TotalBurnedSATS = (PreviousBurnedSATS + pmt.amount)
60	62		let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
61	63		let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
62	64		let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
63	65		let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 100000)
64	66		let SATSReserveValue = (PreviousSATSReserveValue - calculateburnvalue)
65	67		let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)
66	68		if ((pmt.assetId != SATSAssetID))
67	69		then throw((("Kindly Deposit Only " + toBase58String(SATSAssetID)) + " [SATS]."))
68	70		else if ((5000 > pmt.amount))
69	71		then throw("Attach Amount must be greater than 5000 SATS.")
70	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)]
71	73		}
72	74
73	75
74	76		@Verifier(tx)
75	77		func verify () = match tx {
76	78		case _ =>
77	79		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
78	80		}
79	81

github/deemru/w8io/169f3d6 
29.04 ms ◑