tx · 9jr8QPwJ3orWdvsudhczG1Q1oUBFPJrcaQg5ZyerP6jq

3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK:  -0.01400000 Waves

2022.08.15 00:56 [2184712] smart account 3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "9jr8QPwJ3orWdvsudhczG1Q1oUBFPJrcaQg5ZyerP6jq",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1660514258818,
    "version": 2,
    "chainId": 84,
    "sender": "3N8iygiXd1v34PPaMSQb34SSrBwGxT2DpGK",
    "senderPublicKey": "FshLkkgzcLs6iQJ1Z8Nnfhm494tC8xZQczf9iXpZep3Y",
    "proofs": [
        "3o1u3DiKF9zCbZGyc1wBQLYpwuUSbju1W12RCvTs45abBzNs78f7giGJaBzJ5p2fwrcBCJuSyE4DNxZRHUHeVryA"
    ],
    "script": "base64:AAIFAAAAAAAAAAYIAhIAEgAAAAAFAAAAAApCVENBc3NldElEAQAAACD0NPJEoKaVcLA62QAal819hhYdQl83FUDxF7HRh6LUlwAAAAALU0FUU0Fzc2V0SUQBAAAAIIQVHLyAa6peOQxN4R+aXTT73bjvUy7OZLsC9igQULD7AAAAABNJc3N1ZWZzVE5GZWVBZGRyZXNzCQEAAAAUYWRkcmVzc0Zyb21QdWJsaWNLZXkAAAABAQAAACBSg9mgi9eQkjsz5eBARHIbc7Hg/F4fmB0sxZ6ySMfiIAAAAAAEdHhucwQAAAAHJG1hdGNoMAkABBoAAAACBQAAAAR0aGlzAgAAAAlUb3RhbHR4bnMDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAAAAAAJdG90YWx0eG5zCQAAZAAAAAIFAAAABHR4bnMAAAAAAAAAAAEAAAACAAAAAWkBAAAACUlzc3VlU0FUUwAAAAAEAAAAA3BtdAMJAAAAAAAAAgkAAZAAAAABCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAQkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAArTm8gUGF5bWVudHMgYXR0YWNoZWQgcGxlYXNlIGF0dGFjaCBbQlRDXSAtIAkAAlgAAAABBQAAAApCVENBc3NldElEAgAAAAwgQXNzZXQgT25seS4EAAAACmN1cnJlbnRLZXkJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAANTmV3U0FUU1RvVXNlcgkAAGsAAAADAAAAAAAAD0JACAUAAAADcG10AAAABmFtb3VudAAAAAAAAAAAAQQAAAASUHJldmlvdXNJc3N1ZWRTQVRTCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoEAAAAD1RvdGFsSXNzdWVkU0FUUwkAAGQAAAACBQAAABJQcmV2aW91c0lzc3VlZFNBVFMFAAAADU5ld1NBVFNUb1VzZXIEAAAAC0ZlZXNDaGFyZ2VkAAAAAAAAD0JAAwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAApCVENBc3NldElECQAAAgAAAAEJAAEsAAAAAgkAASwAAAACAgAAADBJbmNvcnJlY3QgYXNzZXQgYXR0YWNoZWQsIHBsZWFzZSBhdHRhY2ggW0JUQ10gLSAJAAJYAAAAAQUAAAAKQlRDQXNzZXRJRAIAAAAGIG9ubHkuAwkAAGYAAAACAAAAAAAAABOICAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAADlQbGVhc2UgQXR0YWNoIG1pbmltdW0gNTAwMCBTYXRvc2hpJ3MgVG8gSXNzdWUgU0FUUyBBc3NldC4JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAElRvdGFsX0lzc3VlZF9TQVRTOgUAAAAPVG90YWxJc3N1ZWRTQVRTCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAAAlUb3RhbHR4bnMFAAAACXRvdGFsdHhucwkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACAgAAAAdtZXNzYWdlAgAAACY8aDE+U0FUUyBJc3N1ZWQgU3VjY2Vzc2Z1bGx5ITwvaDE+PGJyPgkABEwAAAACCQEAAAAHUmVpc3N1ZQAAAAMFAAAAC1NBVFNBc3NldElEBQAAAA1OZXdTQVRTVG9Vc2VyBgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIJAABlAAAAAgUAAAANTmV3U0FUU1RvVXNlcgUAAAALRmVlc0NoYXJnZWQFAAAAC1NBVFNBc3NldElECQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAE0lzc3VlZnNUTkZlZUFkZHJlc3MFAAAAC0ZlZXNDaGFyZ2VkBQAAAAtTQVRTQXNzZXRJRAUAAAADbmlsAAAAAWkBAAAACUxpcXVpZGF0ZQAAAAAEAAAACmN1cnJlbnRLZXkJAAJYAAAAAQgFAAAAAWkAAAAPY2FsbGVyUHVibGljS2V5BAAAAANwbXQJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAEAAAAElByZXZpb3VzSXNzdWVkU0FUUwkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAASVG90YWxfSXNzdWVkX1NBVFM6BAAAABJQcmV2aW91c0J1cm5lZFNBVFMJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAElRvdGFsX0J1cm5lZF9TQVRTOgQAAAAOU0FUU0N1cnJlbnRDYXAJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAADlNBVFNDdXJyZW50Q2FwBAAAAA9Ub3RhbElzc3VlZFNBVFMJAABlAAAAAgUAAAASUHJldmlvdXNJc3N1ZWRTQVRTCAUAAAADcG10AAAABmFtb3VudAQAAAAPVG90YWxCdXJuZWRTQVRTCQAAZAAAAAIFAAAAElByZXZpb3VzQnVybmVkU0FUUwgFAAAAA3BtdAAAAAZhbW91bnQEAAAADlBlbmRpbmdNaW50aW5nCQAAZQAAAAIFAAAADlNBVFNDdXJyZW50Q2FwBQAAAA9Ub3RhbElzc3VlZFNBVFMEAAAAGFByZXZpb3VzU0FUU1Jlc2VydmVWYWx1ZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAaVG90YWxfU0FUU19SZXNlcnZlX0luX0JUQzoEAAAAF1ByZXZpb3VzU0FUU0JhY2t1cFByaWNlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABlTQVRTX0JhY2t1cF9WYWx1ZV9Jbl9CVEM6BAAAABJjYWxjdWxhdGVidXJudmFsdWUJAABrAAAAAwUAAAAXUHJldmlvdXNTQVRTQmFja3VwUHJpY2UIBQAAAANwbXQAAAAGYW1vdW50AAAAAAAAAYagBAAAABBTQVRTUmVzZXJ2ZVZhbHVlCQAAZQAAAAIFAAAAGFByZXZpb3VzU0FUU1Jlc2VydmVWYWx1ZQUAAAASY2FsY3VsYXRlYnVybnZhbHVlBAAAAA9TQVRTQmFja3VwUHJpY2UJAABrAAAAAwAAAAAABfXhAAUAAAAQU0FUU1Jlc2VydmVWYWx1ZQUAAAAPVG90YWxJc3N1ZWRTQVRTAwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAAtTQVRTQXNzZXRJRAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAUS2luZGx5IERlcG9zaXQgT25seSAJAAJYAAAAAQUAAAALU0FUU0Fzc2V0SUQCAAAACCBbU0FUU10uAwkAAGYAAAACAAAAAAAAABOICAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAAC1BdHRhY2ggQW1vdW50IG11c3QgYmUgZ3JlYXRlciB0aGFuIDUwMDAgU0FUUy4JAARMAAAAAgkBAAAABEJ1cm4AAAACBQAAAAtTQVRTQXNzZXRJRAgFAAAAA3BtdAAAAAZhbW91bnQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAACVRvdGFsdHhucwUAAAAJdG90YWx0eG5zCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9Jc3N1ZWRfU0FUUzoFAAAAD1RvdGFsSXNzdWVkU0FUUwkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAASVG90YWxfQnVybmVkX1NBVFM6BQAAAA9Ub3RhbEJ1cm5lZFNBVFMJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAFUJhbGFuY2VfTWludGluZ19TQVRTOgUAAAAOUGVuZGluZ01pbnRpbmcJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGlRvdGFsX1NBVFNfUmVzZXJ2ZV9Jbl9CVEM6BQAAABBTQVRTUmVzZXJ2ZVZhbHVlCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABlTQVRTX0JhY2t1cF9WYWx1ZV9Jbl9CVEM6BQAAAA9TQVRTQmFja3VwUHJpY2UJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAHbWVzc2FnZQIAAAAqPGgxPlNBVFMgTGlxdWlkYXRlZCBTdWNjZXNzZnVsbHkhPC9oMT48YnI+CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAASY2FsY3VsYXRlYnVybnZhbHVlBQAAAApCVENBc3NldElEBQAAAANuaWwAAAABAAAAAnR4AQAAAAZ2ZXJpZnkAAAAABAAAAAckbWF0Y2gwBQAAAAJ0eAkAAfQAAAADCAUAAAACdHgAAAAJYm9keUJ5dGVzCQABkQAAAAIIBQAAAAJ0eAAAAAZwcm9vZnMAAAAAAAAAAAAIBQAAAAJ0eAAAAA9zZW5kZXJQdWJsaWNLZXlx0f7L",
    "height": 2184712,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DZQZVvEbYi7dnp5eoRJZcGNaT257X8oHjoMRxb3UhSoX
Next: DTuE8qFTa4S12zaMdkw3uvG61z74N2FA4Sa398P5EU3b

Diff: 
Old
New
Differences
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
-
    let PricePerSATS = getIntegerValue(this, "SATS/BTC")
26
-
    let SATSCurrentCap = getIntegerValue(this, "SATSCurrentCap")
27
-
    let NewSATSToUser = fraction(100000000, pmt.amount, PricePerSATS)
25
+
    let NewSATSToUser = fraction(1000000, pmt.amount, 1)
28
26
 
    let PreviousIssuedSATS = getIntegerValue(this, "Total_Issued_SATS:")
29
27
 
    let TotalIssuedSATS = (PreviousIssuedSATS + NewSATSToUser)
30
-
    let PendingMinting = (SATSCurrentCap - TotalIssuedSATS)
31
-
    let PreviousSATSReserveValue = getIntegerValue(this, "Total_SATS_Reserve_In_BTC:")
32
-
    let fee =     match getInteger(this, "Total_Fee_Collected") {
33
-
        case a: Int => 
34
-
            a
35
-
        case _ => 
36
-
            0
37
-
    }
38
28
 
    let FeesCharged = 1000000
39
-
    let totalfeecollected = (fee + FeesCharged)
40
-
    let SATSReserveValue = (PreviousSATSReserveValue + pmt.amount)
41
-
    let PreviousSATSBackupPrice = getIntegerValue(this, "SATS_Backup_Value_In_BTC:")
42
-
    let SATSBackupPrice = fraction(100000000, SATSReserveValue, TotalIssuedSATS)
43
29
 
    if ((pmt.assetId != BTCAssetID))
44
30
 
        then throw((("Incorrect asset attached, please attach [BTC] - " + toBase58String(BTCAssetID)) + " only."))
45
31
 
        else if ((5000 > pmt.amount))
46
32
 
            then throw("Please Attach minimum 5000 Satoshi's To Issue SATS Asset.")
47
-
            else if ((TotalIssuedSATS > SATSCurrentCap))
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
-
                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)]
33
+
            else [IntegerEntry("Total_Issued_SATS:", TotalIssuedSATS), 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
34
 
    }
51
35
 
52
36
 

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

github/deemru/w8io/169f3d6 
26.61 ms ◑