w8 · tx · BgA···Nat

tx · BgAPofpMR1kAysy8GAUEM31ENGiRPZNzJ5XNqNqW6Nat

3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK:  -0.01400000 Waves

2022.08.15 00:30 [2184684] smart account 3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "BgAPofpMR1kAysy8GAUEM31ENGiRPZNzJ5XNqNqW6Nat",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1660512661938,
    "version": 2,
    "chainId": 84,
    "sender": "3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK",
    "senderPublicKey": "FshLkkgzcLs6iQJ1Z8Nnfhm494tC8xZQczf9iXpZep3Y",
    "proofs": [
        "4MMV6UXNfDkdi7p94PRfkraS65U8xfyxhMsYXjo8jR9KDaoniw23XNEhXCegVhKRyUj929SyTo1FFA6F2aiQfEa2"
    ],
    "script": "base64:AAIFAAAAAAAAAAYIAhIAEgAAAAAFAAAAAApCVENBc3NldElEAQAAACD0NPJEoKaVcLA62QAal819hhYdQl83FUDxF7HRh6LUlwAAAAALU0FUU0Fzc2V0SUQBAAAAIIQVHLyAa6peOQxN4R+aXTT73bjvUy7OZLsC9igQULD7AAAAABNJc3N1ZWZzVE5GZWVBZGRyZXNzCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABAQAAACBSg9mgi9eQkjsz5eBARHIbc7Hg/F4fmB0sxZ6ySMfiIAAAAAAEdHhucwQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAAlUb3RhbHR4bnMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAAAAAAJdG90YWx0eG5zCQAAZAAAAAIFAAAABHR4bnMAAAAAAAAAAAEAAAACAAAAAWkBAAAACUlzc3VlU0FUUwAAAAAEAAAAA3BtdAMJAAAAAAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAArTm8gUGF5bWVudHMgYXR0YWNoZWQgcGxlYXNlIGF0dGFjaCBbQlRDXSAtIAkAAlgAAAABBQAAAApCVENBc3NldElEAgAAAAwgQXNzZXQgT25seS4EAAAACmN1cnJlbnRLZXkJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAMUHJpY2VQZXJTQVRTCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAhTQVRTL0JUQwQAAAAOU0FUU0N1cnJlbnRDYXAJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAADlNBVFNDdXJyZW50Q2FwBAAAAA1OZXdTQVRTVG9Vc2VyCQAAawAAAAMAAAAAAAX14QAIBQAAAANwbXQAAAAGYW1vdW50BQAAAAxQcmljZVBlclNBVFMEAAAAElByZXZpb3VzSXNzdWVkU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAASVG90YWxfSXNzdWVkX1NBVFM6BAAAAA9Ub3RhbElzc3VlZFNBVFMJAABkAAAAAgUAAAASUHJldmlvdXNJc3N1ZWRTQVRTBQAAAA1OZXdTQVRTVG9Vc2VyBAAAAA5QZW5kaW5nTWludGluZwkAAGUAAAACBQAAAA5TQVRTQ3VycmVudENhcAUAAAAPVG90YWxJc3N1ZWRTQVRTBAAAABhQcmV2aW91c1NBVFNSZXNlcnZlVmFsdWUJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAGlRvdGFsX1NBVFNfUmVzZXJ2ZV9Jbl9CVEM6BAAAAANmZWUEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwIAAAATVG90YWxfRmVlX0NvbGxlY3RlZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAtGZWVzQ2hhcmdlZAAAAAAAAA9CQAQAAAARdG90YWxmZWVjb2xsZWN0ZWQJAABkAAAAAgUAAAADZmVlBQAAAAtGZWVzQ2hhcmdlZAQAAAAQU0FUU1Jlc2VydmVWYWx1ZQkAAGQAAAACBQAAABhQcmV2aW91c1NBVFNSZXNlcnZlVmFsdWUIBQAAAANwbXQAAAAGYW1vdW50BAAAABdQcmV2aW91c1NBVFNCYWNrdXBQcmljZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAZU0FUU19CYWNrdXBfVmFsdWVfSW5fQlRDOgQAAAAPU0FUU0JhY2t1cFByaWNlCQAAawAAAAMAAAAAAAX14QAFAAAAEFNBVFNSZXNlcnZlVmFsdWUFAAAAD1RvdGFsSXNzdWVkU0FUUwMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAKQlRDQXNzZXRJRAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAwSW5jb3JyZWN0IGFzc2V0IGF0dGFjaGVkLCBwbGVhc2UgYXR0YWNoIFtCVENdIC0gCQACWAAAAAEFAAAACkJUQ0Fzc2V0SUQCAAAABiBvbmx5LgMJAABmAAAAAgAAAAAAAAATiAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAA5UGxlYXNlIEF0dGFjaCBtaW5pbXVtIDUwMDAgU2F0b3NoaSdzIFRvIElzc3VlIFNBVFMgQXNzZXQuAwkAAGYAAAACBQAAAA9Ub3RhbElzc3VlZFNBVFMFAAAADlNBVFNDdXJyZW50Q2FwCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAKlNBVFMgTWludGluZyBpcyBhYm91dCB0byByZWFjaCB0aGUgQ2FwIG9mIAkAAaQAAAABBQAAAA5TQVRTQ3VycmVudENhcAIAAAAwLzEwXjYgU0FUUy4gUGxlYXNlIFJlZHVjZSB5b3VyIE1pbnRpbmcgT3JkZXIgYnkgCQABpAAAAAEFAAAADlBlbmRpbmdNaW50aW5nAgAAAAggb3IgcHV0IAkAAaQAAAABCQAAZQAAAAIFAAAADlNBVFNDdXJyZW50Q2FwBQAAABJQcmV2aW91c0lzc3VlZFNBVFMCAAAABS8xMF42CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoFAAAAD1RvdGFsSXNzdWVkU0FUUwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAVQmFsYW5jZV9NaW50aW5nX1NBVFM6BQAAAA5QZW5kaW5nTWludGluZwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAaVG90YWxfU0FUU19SZXNlcnZlX0luX0JUQzoFAAAAEFNBVFNSZXNlcnZlVmFsdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoFAAAAD1NBVFNCYWNrdXBQcmljZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAATVG90YWxfRmVlX0NvbGxlY3RlZAUAAAARdG90YWxmZWVjb2xsZWN0ZWQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAACVRvdGFsdHhucwUAAAAJdG90YWx0eG5zCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAB21lc3NhZ2UCAAAAJjxoMT5TQVRTIElzc3VlZCBTdWNjZXNzZnVsbHkhPC9oMT48YnI+CQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwUAAAALU0FUU0Fzc2V0SUQFAAAADU5ld1NBVFNUb1VzZXIGCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGUAAAACBQAAAA1OZXdTQVRTVG9Vc2VyBQAAAAtGZWVzQ2hhcmdlZAUAAAALU0FUU0Fzc2V0SUQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAATSXNzdWVmc1RORmVlQWRkcmVzcwUAAAALRmVlc0NoYXJnZWQFAAAAC1NBVFNBc3NldElEBQAAAANuaWwAAAABaQEAAAAJTGlxdWlkYXRlAAAAAAQAAAAKY3VycmVudEtleQkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAAA3BtdAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAASUHJldmlvdXNJc3N1ZWRTQVRTCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoEAAAAElByZXZpb3VzQnVybmVkU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAASVG90YWxfQnVybmVkX1NBVFM6BAAAAA5TQVRTQ3VycmVudENhcAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOU0FUU0N1cnJlbnRDYXAEAAAAD1RvdGFsSXNzdWVkU0FUUwkAAGUAAAACBQAAABJQcmV2aW91c0lzc3VlZFNBVFMIBQAAAANwbXQAAAAGYW1vdW50BAAAAA9Ub3RhbEJ1cm5lZFNBVFMJAABkAAAAAgUAAAASUHJldmlvdXNCdXJuZWRTQVRTCAUAAAADcG10AAAABmFtb3VudAQAAAAOUGVuZGluZ01pbnRpbmcJAABlAAAAAgUAAAAOU0FUU0N1cnJlbnRDYXAFAAAAD1RvdGFsSXNzdWVkU0FUUwQAAAAYUHJldmlvdXNTQVRTUmVzZXJ2ZVZhbHVlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABpUb3RhbF9TQVRTX1Jlc2VydmVfSW5fQlRDOgQAAAAXUHJldmlvdXNTQVRTQmFja3VwUHJpY2UJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoEAAAAEmNhbGN1bGF0ZWJ1cm52YWx1ZQkAAGsAAAADBQAAABdQcmV2aW91c1NBVFNCYWNrdXBQcmljZQgFAAAAA3BtdAAAAAZhbW91bnQAAAAAAACYloAEAAAAEFNBVFNSZXNlcnZlVmFsdWUJAABlAAAAAgUAAAAYUHJldmlvdXNTQVRTUmVzZXJ2ZVZhbHVlBQAAABJjYWxjdWxhdGVidXJudmFsdWUEAAAAD1NBVFNCYWNrdXBQcmljZQkAAGsAAAADAAAAAAAF9eEABQAAABBTQVRTUmVzZXJ2ZVZhbHVlBQAAAA9Ub3RhbElzc3VlZFNBVFMDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAC1NBVFNBc3NldElECQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAABRLaW5kbHkgRGVwb3NpdCBPbmx5IAkAAlgAAAABBQAAAAtTQVRTQXNzZXRJRAIAAAAIIFtTQVRTXS4DCQAAZgAAAAIAAAAAAAAAE4gIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAALUF0dGFjaCBBbW91bnQgbXVzdCBiZSBncmVhdGVyIHRoYW4gNTAwMCBTQVRTLgkABEwAAAACCQEAAAAEQnVybgAAAAIFAAAAC1NBVFNBc3NldElECAUAAAADcG10AAAABmFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAJVG90YWx0eG5zBQAAAAl0b3RhbHR4bnMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAElRvdGFsX0lzc3VlZF9TQVRTOgUAAAAPVG90YWxJc3N1ZWRTQVRTCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9CdXJuZWRfU0FUUzoFAAAAD1RvdGFsQnVybmVkU0FUUwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAVQmFsYW5jZV9NaW50aW5nX1NBVFM6BQAAAA5QZW5kaW5nTWludGluZwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAaVG90YWxfU0FUU19SZXNlcnZlX0luX0JUQzoFAAAAEFNBVFNSZXNlcnZlVmFsdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoFAAAAD1NBVFNCYWNrdXBQcmljZQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAAAdtZXNzYWdlAgAAACo8aDE+U0FUUyBMaXF1aWRhdGVkIFN1Y2Nlc3NmdWxseSE8L2gxPjxicj4JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAABJjYWxjdWxhdGVidXJudmFsdWUFAAAACkJUQ0Fzc2V0SUQFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4CQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tlebY4jwg=",
    "height": 2184684,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AdKRbCeA1fL8ZuCYC1FR66o1c6YHRcAt1hodzf1yqjCh
Next: DZQZVvEbYi7dnp5eoRJZcGNaT257X8oHjoMRxb3UhSoX

Diff: 
Old New Differences
63 63      let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
64 64      let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
65 65      let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
66 -     let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 1000)
66 +     let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 10000000)
67 67      let SATSReserveValue = (PreviousSATSReserveValue - calculateburnvalue)
68 -     let SATSBackupPrice = fraction(1000, SATSReserveValue, TotalIssuedSATS)
68 +     let SATSBackupPrice = fraction(100000000, SATSReserveValue, TotalIssuedSATS)
69 69      if ((pmt.assetId != SATSAssetID))
70 70          then throw((("Kindly Deposit Only " + toBase58String(SATSAssetID)) + " [SATS]."))
71 71          else if ((5000 > pmt.amount))
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 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(100000000, 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 = 1000000
39 39      let totalfeecollected = (fee + FeesCharged)
40 40      let SATSReserveValue = (PreviousSATSReserveValue + pmt.amount)
41 41      let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
42 42      let SATSBackupPrice = fraction(100000000, SATSReserveValue, TotalIssuedSATS)
43 43      if ((pmt.assetId != BTCAssetID))
44 44          then throw((("Incorrect asset attached, please attach [BTC] - " + toBase58String(BTCAssetID)) + " only."))
45 45          else if ((5000 > pmt.amount))
46 46              then throw("Please Attach minimum 5000 Satoshi's To Issue SATS Asset.")
47 47              else if ((TotalIssuedSATS > SATSCurrentCap))
48 48                  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"))
49 49                  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", totalfeecollected), 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)]
50 50      }
51 51  
52 52  
53 53  
54 54  @Callable(i)
55 55  func Liquidate () = {
56 56      let currentKey = toBase58String(i.callerPublicKey)
57 57      let pmt = value(i.payments[0])
58 58      let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
59 59      let PreviousBurnedSATS = getIntegerValue(this, "Total_Burned_SATS:")
60 60      let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
61 61      let TotalIssuedSATS = (PreviousIssuedSATS - pmt.amount)
62 62      let TotalBurnedSATS = (PreviousBurnedSATS + pmt.amount)
63 63      let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
64 64      let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
65 65      let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
66 -     let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 1000)
66 +     let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 10000000)
67 67      let SATSReserveValue = (PreviousSATSReserveValue - calculateburnvalue)
68 -     let SATSBackupPrice = fraction(1000, SATSReserveValue, TotalIssuedSATS)
68 +     let SATSBackupPrice = fraction(100000000, SATSReserveValue, TotalIssuedSATS)
69 69      if ((pmt.assetId != SATSAssetID))
70 70          then throw((("Kindly Deposit Only " + toBase58String(SATSAssetID)) + " [SATS]."))
71 71          else if ((5000 > pmt.amount))
72 72              then throw("Attach Amount must be greater than 5000 SATS.")
73 73              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)]
74 74      }
75 75  
76 76  
77 77  @Verifier(tx)
78 78  func verify () = match tx {
79 79      case _ => 
80 80          sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
81 81  }
82 82

Old	New		Differences
63	63		let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
64	64		let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
65	65		let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
66		-	let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, ~~1000~~)
	66	+	let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 10000000)
67	67		let SATSReserveValue = (PreviousSATSReserveValue - calculateburnvalue)
68		-	let SATSBackupPrice = fraction(~~1000~~, SATSReserveValue, TotalIssuedSATS)
	68	+	let SATSBackupPrice = fraction(100000000, SATSReserveValue, TotalIssuedSATS)
69	69		if ((pmt.assetId != SATSAssetID))
70	70		then throw((("Kindly Deposit Only " + toBase58String(SATSAssetID)) + " [SATS]."))
71	71		else if ((5000 > pmt.amount))

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	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(100000000, 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 = 1000000
39	39		let totalfeecollected = (fee + FeesCharged)
40	40		let SATSReserveValue = (PreviousSATSReserveValue + pmt.amount)
41	41		let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
42	42		let SATSBackupPrice = fraction(100000000, SATSReserveValue, TotalIssuedSATS)
43	43		if ((pmt.assetId != BTCAssetID))
44	44		then throw((("Incorrect asset attached, please attach [BTC] - " + toBase58String(BTCAssetID)) + " only."))
45	45		else if ((5000 > pmt.amount))
46	46		then throw("Please Attach minimum 5000 Satoshi's To Issue SATS Asset.")
47	47		else if ((TotalIssuedSATS > SATSCurrentCap))
48	48		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"))
49	49		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", totalfeecollected), 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)]
50	50		}
51	51
52	52
53	53
54	54		@Callable(i)
55	55		func Liquidate () = {
56	56		let currentKey = toBase58String(i.callerPublicKey)
57	57		let pmt = value(i.payments[0])
58	58		let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
59	59		let PreviousBurnedSATS = getIntegerValue(this, "Total_Burned_SATS:")
60	60		let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
61	61		let TotalIssuedSATS = (PreviousIssuedSATS - pmt.amount)
62	62		let TotalBurnedSATS = (PreviousBurnedSATS + pmt.amount)
63	63		let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
64	64		let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
65	65		let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
66		-	let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, ~~1000~~)
	66	+	let calculateburnvalue = fraction(PreviousSATSBackupPrice, pmt.amount, 10000000)
67	67		let SATSReserveValue = (PreviousSATSReserveValue - calculateburnvalue)
68		-	let SATSBackupPrice = fraction(~~1000~~, SATSReserveValue, TotalIssuedSATS)
	68	+	let SATSBackupPrice = fraction(100000000, SATSReserveValue, TotalIssuedSATS)
69	69		if ((pmt.assetId != SATSAssetID))
70	70		then throw((("Kindly Deposit Only " + toBase58String(SATSAssetID)) + " [SATS]."))
71	71		else if ((5000 > pmt.amount))
72	72		then throw("Attach Amount must be greater than 5000 SATS.")
73	73		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)]
74	74		}
75	75
76	76
77	77		@Verifier(tx)
78	78		func verify () = match tx {
79	79		case _ =>
80	80		sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
81	81		}
82	82

github/deemru/w8io/169f3d6 
56.65 ms ◑