w8 · tx · 7q4···GdR

tx · 7q4CZ3LqXAtdo7BWpZBegcDLQ619V1GoQAKCyKZ9wGdR

3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK:  -0.01400000 Waves

2022.08.14 22:14 [2184545] smart account 3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "7q4CZ3LqXAtdo7BWpZBegcDLQ619V1GoQAKCyKZ9wGdR",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1660504447776,
    "version": 2,
    "chainId": 84,
    "sender": "3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK",
    "senderPublicKey": "FshLkkgzcLs6iQJ1Z8Nnfhm494tC8xZQczf9iXpZep3Y",
    "proofs": [
        "5isR5zxzfnd6gEnBh1fSrNoCzQonkiwaQrTo5Req4VSJJkJytLsPtn4xtQfsMbnnJCL1UXrsKmgCf5V3YV1B9ESe"
    ],
    "script": "base64:AAIFAAAAAAAAAAYIAhIAEgAAAAAFAAAAAApCVENBc3NldElEAQAAACD0NPJEoKaVcLA62QAal819hhYdQl83FUDxF7HRh6LUlwAAAAALU0FUU0Fzc2V0SUQBAAAAIIQVHLyAa6peOQxN4R+aXTT73bjvUy7OZLsC9igQULD7AAAAABNJc3N1ZWZzVE5GZWVBZGRyZXNzCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABAQAAACBSg9mgi9eQkjsz5eBARHIbc7Hg/F4fmB0sxZ6ySMfiIAAAAAAEdHhucwQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAAlUb3RhbHR4bnMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAAAAAAJdG90YWx0eG5zCQAAZAAAAAIFAAAABHR4bnMAAAAAAAAAAAEAAAACAAAAAWkBAAAACUlzc3VlU0FUUwAAAAAEAAAAA3BtdAMJAAAAAAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAArTm8gUGF5bWVudHMgYXR0YWNoZWQgcGxlYXNlIGF0dGFjaCBbQlRDXSAtIAkAAlgAAAABBQAAAApCVENBc3NldElEAgAAAAwgQXNzZXQgT25seS4EAAAACmN1cnJlbnRLZXkJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAMUHJpY2VQZXJTQVRTCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAhTQVRTL0JUQwQAAAAOU0FUU0N1cnJlbnRDYXAJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAADlNBVFNDdXJyZW50Q2FwBAAAAA1OZXdTQVRTVG9Vc2VyCQAAawAAAAMAAAAAAAX14QAIBQAAAANwbXQAAAAGYW1vdW50BQAAAAxQcmljZVBlclNBVFMEAAAAElByZXZpb3VzSXNzdWVkU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAASVG90YWxfSXNzdWVkX1NBVFM6BAAAAA9Ub3RhbElzc3VlZFNBVFMJAABkAAAAAgUAAAASUHJldmlvdXNJc3N1ZWRTQVRTBQAAAA1OZXdTQVRTVG9Vc2VyBAAAAA5QZW5kaW5nTWludGluZwkAAGUAAAACBQAAAA5TQVRTQ3VycmVudENhcAUAAAAPVG90YWxJc3N1ZWRTQVRTBAAAABhQcmV2aW91c1NBVFNSZXNlcnZlVmFsdWUJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAGlRvdGFsX1NBVFNfUmVzZXJ2ZV9Jbl9CVEM6BAAAAANmZWUEAAAAByRtYXRjaDAJAAQaAAAAAgUAAAAEdGhpcwIAAAATVG90YWxfRmVlX0NvbGxlY3RlZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAFhBQAAAAckbWF0Y2gwBQAAAAFhAAAAAAAAAAAABAAAAAtGZWVzQ2hhcmdlZAAAAAAAAAAAAQQAAAARdG90YWxmZWVjb2xsZWN0ZWQJAABkAAAAAgUAAAADZmVlBQAAAAtGZWVzQ2hhcmdlZAQAAAAQU0FUU1Jlc2VydmVWYWx1ZQkAAGQAAAACBQAAABhQcmV2aW91c1NBVFNSZXNlcnZlVmFsdWUIBQAAAANwbXQAAAAGYW1vdW50BAAAABdQcmV2aW91c1NBVFNCYWNrdXBQcmljZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAZU0FUU19CYWNrdXBfVmFsdWVfSW5fQlRDOgQAAAAPU0FUU0JhY2t1cFByaWNlCQAAawAAAAMAAAAAAAABhqAFAAAAEFNBVFNSZXNlcnZlVmFsdWUFAAAAD1RvdGFsSXNzdWVkU0FUUwMJAQAAAAIhPQAAAAIIBQAAAANwbXQAAAAHYXNzZXRJZAUAAAAKQlRDQXNzZXRJRAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAwSW5jb3JyZWN0IGFzc2V0IGF0dGFjaGVkLCBwbGVhc2UgYXR0YWNoIFtCVENdIC0gCQACWAAAAAEFAAAACkJUQ0Fzc2V0SUQCAAAABiBvbmx5LgMJAABmAAAAAgAAAAAAAAATiAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAA5UGxlYXNlIEF0dGFjaCBtaW5pbXVtIDUwMDAgU2F0b3NoaSdzIFRvIElzc3VlIFNBVFMgQXNzZXQuAwkAAGYAAAACBQAAAA9Ub3RhbElzc3VlZFNBVFMFAAAADlNBVFNDdXJyZW50Q2FwCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAKlNBVFMgTWludGluZyBpcyBhYm91dCB0byByZWFjaCB0aGUgQ2FwIG9mIAkAAaQAAAABBQAAAA5TQVRTQ3VycmVudENhcAIAAAAwLzEwXjYgU0FUUy4gUGxlYXNlIFJlZHVjZSB5b3VyIE1pbnRpbmcgT3JkZXIgYnkgCQABpAAAAAEFAAAADlBlbmRpbmdNaW50aW5nAgAAAAggb3IgcHV0IAkAAaQAAAABCQAAZQAAAAIFAAAADlNBVFNDdXJyZW50Q2FwBQAAABJQcmV2aW91c0lzc3VlZFNBVFMCAAAABS8xMF42CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoFAAAAD1RvdGFsSXNzdWVkU0FUUwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAVQmFsYW5jZV9NaW50aW5nX1NBVFM6BQAAAA5QZW5kaW5nTWludGluZwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAaVG90YWxfU0FUU19SZXNlcnZlX0luX0JUQzoFAAAAEFNBVFNSZXNlcnZlVmFsdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoFAAAAD1NBVFNCYWNrdXBQcmljZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAATVG90YWxfRmVlX0NvbGxlY3RlZAUAAAARdG90YWxmZWVjb2xsZWN0ZWQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAACVRvdGFsdHhucwUAAAAJdG90YWx0eG5zCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAB21lc3NhZ2UCAAAAJjxoMT5TQVRTIElzc3VlZCBTdWNjZXNzZnVsbHkhPC9oMT48YnI+CQAETAAAAAIJAQAAAAdSZWlzc3VlAAAAAwUAAAALU0FUU0Fzc2V0SUQFAAAADU5ld1NBVFNUb1VzZXIGCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgkAAGUAAAACBQAAAA1OZXdTQVRTVG9Vc2VyBQAAAAtGZWVzQ2hhcmdlZAUAAAALU0FUU0Fzc2V0SUQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAATSXNzdWVmc1RORmVlQWRkcmVzcwUAAAALRmVlc0NoYXJnZWQFAAAAC1NBVFNBc3NldElEBQAAAANuaWwAAAABaQEAAAAJTGlxdWlkYXRlAAAAAAQAAAAKY3VycmVudEtleQkAAlgAAAABCAUAAAABaQAAAA9jYWxsZXJQdWJsaWNLZXkEAAAAA3BtdAkBAAAABXZhbHVlAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAQAAAASUHJldmlvdXNJc3N1ZWRTQVRTCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoEAAAAElByZXZpb3VzQnVybmVkU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAASVG90YWxfQnVybmVkX1NBVFM6BAAAAA5TQVRTQ3VycmVudENhcAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOU0FUU0N1cnJlbnRDYXAEAAAAD1RvdGFsSXNzdWVkU0FUUwkAAGUAAAACBQAAABJQcmV2aW91c0lzc3VlZFNBVFMIBQAAAANwbXQAAAAGYW1vdW50BAAAAA9Ub3RhbEJ1cm5lZFNBVFMJAABkAAAAAgUAAAASUHJldmlvdXNCdXJuZWRTQVRTCAUAAAADcG10AAAABmFtb3VudAQAAAAOUGVuZGluZ01pbnRpbmcJAABlAAAAAgUAAAAOU0FUU0N1cnJlbnRDYXAFAAAAD1RvdGFsSXNzdWVkU0FUUwQAAAAYUHJldmlvdXNTQVRTUmVzZXJ2ZVZhbHVlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABpUb3RhbF9TQVRTX1Jlc2VydmVfSW5fQlRDOgQAAAAXUHJldmlvdXNTQVRTQmFja3VwUHJpY2UJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoEAAAAEmNhbGN1bGF0ZWJ1cm52YWx1ZQkAAGsAAAADBQAAABdQcmV2aW91c1NBVFNCYWNrdXBQcmljZQgFAAAAA3BtdAAAAAZhbW91bnQAAAAAAAABhqAEAAAAEFNBVFNSZXNlcnZlVmFsdWUJAABlAAAAAgUAAAAYUHJldmlvdXNTQVRTUmVzZXJ2ZVZhbHVlBQAAABJjYWxjdWxhdGVidXJudmFsdWUEAAAAD1NBVFNCYWNrdXBQcmljZQkAAGsAAAADAAAAAAAAAYagBQAAABBTQVRTUmVzZXJ2ZVZhbHVlBQAAAA9Ub3RhbElzc3VlZFNBVFMDCQEAAAACIT0AAAACCAUAAAADcG10AAAAB2Fzc2V0SWQFAAAAC1NBVFNBc3NldElECQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAABRLaW5kbHkgRGVwb3NpdCBPbmx5IAkAAlgAAAABBQAAAAtTQVRTQXNzZXRJRAIAAAAIIFtTQVRTXS4DCQAAZgAAAAIAAAAAAAAAE4gIBQAAAANwbXQAAAAGYW1vdW50CQAAAgAAAAECAAAALUF0dGFjaCBBbW91bnQgbXVzdCBiZSBncmVhdGVyIHRoYW4gNTAwMCBTQVRTLgkABEwAAAACCQEAAAAEQnVybgAAAAIFAAAAC1NBVFNBc3NldElECAUAAAADcG10AAAABmFtb3VudAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAJVG90YWx0eG5zBQAAAAl0b3RhbHR4bnMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAElRvdGFsX0lzc3VlZF9TQVRTOgUAAAAPVG90YWxJc3N1ZWRTQVRTCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9CdXJuZWRfU0FUUzoFAAAAD1RvdGFsQnVybmVkU0FUUwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAVQmFsYW5jZV9NaW50aW5nX1NBVFM6BQAAAA5QZW5kaW5nTWludGluZwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAaVG90YWxfU0FUU19SZXNlcnZlX0luX0JUQzoFAAAAEFNBVFNSZXNlcnZlVmFsdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGVNBVFNfQmFja3VwX1ZhbHVlX0luX0JUQzoFAAAAD1NBVFNCYWNrdXBQcmljZQkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAAAdtZXNzYWdlAgAAACo8aDE+U0FUUyBMaXF1aWRhdGVkIFN1Y2Nlc3NmdWxseSE8L2gxPjxicj4JAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAABJjYWxjdWxhdGVidXJudmFsdWUFAAAACkJUQ0Fzc2V0SUQFAAAAA25pbAAAAAEAAAACdHgBAAAABnZlcmlmeQAAAAAEAAAAByRtYXRjaDAFAAAAAnR4CQAB9AAAAAMIBQAAAAJ0eAAAAAlib2R5Qnl0ZXMJAAGRAAAAAggFAAAAAnR4AAAABnByb29mcwAAAAAAAAAAAAgFAAAAAnR4AAAAD3NlbmRlclB1YmxpY0tlebaEr6k=",
    "height": 2184545,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: AZhmoNxE9TMdLnQfrqgiGfBc73Rn29KeiX8Lx3ZVCvwJ
Next: DnRrYGbCsTv8nsQkAeWfdm3yvNccinvZ9Du5xXLBiuF6

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

Old	New		Differences
24	24		let currentKey = toBase58String(i.caller.bytes)
25	25		let PricePerSATS = getIntegerValue(this, "SATS/BTC")
26	26		let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
27		-	let NewSATSToUser = fraction(~~100000~~, pmt.amount, PricePerSATS)
	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)

36	36		0
37	37		}
38	38		let FeesCharged = 1
	39	+	let totalfeecollected = (fee + FeesCharged)
39	40		let SATSReserveValue = (PreviousSATSReserveValue + pmt.amount)
40	41		let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
41	42		let SATSBackupPrice = fraction(100000, SATSReserveValue, TotalIssuedSATS)

45	46		then throw("Please Attach minimum 5000 Satoshi's To Issue SATS Asset.")
46	47		else if ((TotalIssuedSATS > SATSCurrentCap))
47	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"))
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	+	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)]
49	50		}
50	51
51	52

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

github/deemru/w8io/169f3d6 
36.86 ms ◑