tx · E3KqWZRJtuUAikxV6h3PAfzqh5MntvZevvmmCCnBTvTy

3NAxi4ijrbVmR2AVeKTeJ1L3P4ebbXk7YDY:  -0.01400000 Waves

2022.03.02 04:58 [1945715] smart account 3NAxi4ijrbVmR2AVeKTeJ1L3P4ebbXk7YDY > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "E3KqWZRJtuUAikxV6h3PAfzqh5MntvZevvmmCCnBTvTy",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1646186302854,
    "version": 2,
    "chainId": 84,
    "sender": "3NAxi4ijrbVmR2AVeKTeJ1L3P4ebbXk7YDY",
    "senderPublicKey": "6w6geQvkvMqffnrYsamvmS9TjKjjePjFPWLY9qDbNddX",
    "proofs": [
        "2WabjUqeaPj4b6Qn3ftkTDSC12HtPKFah4da9CJWWEj6oewM4SrytPqbaPbtKTc6Bh2LLmYyEhmcwDMj8xdgXuZM"
    ],
    "script": "base64:AAIEAAAAAAAAAAYIAhIAEgAAAAACAAAAAAtmc1ROQXNzZXRJRAEAAAAgunlRijbGbPphc8vWuPRLktrcUDjlRgQdfuCFMS9mn34AAAAAE0lzc3VlZnNUTkZlZUFkZHJlc3MJAQAAABRhZGRyZXNzRnJvbVB1YmxpY0tleQAAAAEBAAAAIFKD2aCL15CSOzPl4EBEchtzseD8Xh+YHSzFnrJIx+IgAAAAAgAAAAFpAQAAAAlJc3N1ZWZzVE4AAAAABAAAAANwbXQJAQAAAAV2YWx1ZQAAAAEJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAEAAAACmN1cnJlbnRLZXkJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAMUHJpY2VQZXJmc1ROCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAAAdmc1ROL1ROBAAAAA5mc1ROQ3VycmVudENhcAkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAOZnNUTkN1cnJlbnRDYXAEAAAADU5ld2ZzVE5Ub1VzZXIJAABrAAAAAwAAAAAAAAGGoAgFAAAAA3BtdAAAAAZhbW91bnQFAAAADFByaWNlUGVyZnNUTgQAAAASUHJldmlvdXNJc3N1ZWRmc1ROCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABJUb3RhbF9Jc3N1ZWRfZnNUTjoEAAAABHR4bnMJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAACVRvdGFsdHhucwQAAAAJdG90YWx0eG5zCQAAZAAAAAIFAAAABHR4bnMAAAAAAAAAAAEEAAAAD1RvdGFsSXNzdWVkZnNUTgkAAGQAAAACBQAAABJQcmV2aW91c0lzc3VlZGZzVE4FAAAADU5ld2ZzVE5Ub1VzZXIEAAAADlBlbmRpbmdNaW50aW5nCQAAZQAAAAIFAAAADmZzVE5DdXJyZW50Q2FwBQAAAA9Ub3RhbElzc3VlZGZzVE4EAAAAGFByZXZpb3VzZnNUTlJlc2VydmVWYWx1ZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAZVG90YWxfZnNUTl9SZXNlcnZlX0luX1ROOgQAAAAQZnNUTlJlc2VydmVWYWx1ZQkAAGQAAAACBQAAABhQcmV2aW91c2ZzVE5SZXNlcnZlVmFsdWUIBQAAAANwbXQAAAAGYW1vdW50BAAAABdQcmV2aW91c2ZzVE5CYWNrdXBQcmljZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAYZnNUTl9CYWNrdXBfVmFsdWVfSW5fVE46BAAAAA9mc1ROQmFja3VwUHJpY2UJAABrAAAAAwAAAAAAAAGGoAUAAAAQZnNUTlJlc2VydmVWYWx1ZQUAAAAPVG90YWxJc3N1ZWRmc1ROBAAAAAtGZWVzQ2hhcmdlZAAAAAAABfXhAAMJAQAAAAlpc0RlZmluZWQAAAABCAUAAAADcG10AAAAB2Fzc2V0SWQJAAACAAAAAQIAAAArSW5jb3JyZWN0IGFzc2V0IGF0dGFjaGVkLCBwbGVhc2UgYXR0YWNoIFROLgMJAABmAAAAAgAAAAAAC+vCAAgFAAAAA3BtdAAAAAZhbW91bnQJAAACAAAAAQIAAAAvUGxlYXNlIEF0dGFjaCBtaW5pbXVtIDIgVE4gVG8gSXNzdWUgZnNUTiBBc3NldC4DCQAAZgAAAAIFAAAAD1RvdGFsSXNzdWVkZnNUTgUAAAAOZnNUTkN1cnJlbnRDYXAJAAACAAAAAQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAqZnNUTiBNaW50aW5nIGlzIGFib3V0IHRvIHJlYWNoIHRoZSBDYXAgb2YgCQABpAAAAAEFAAAADmZzVE5DdXJyZW50Q2FwAgAAADAvMTBeOCBmc1ROLiBQbGVhc2UgUmVkdWNlIHlvdXIgTWludGluZyBPcmRlciBieSAJAAGkAAAAAQUAAAAOUGVuZGluZ01pbnRpbmcCAAAACCBvciBwdXQgCQABpAAAAAEJAABlAAAAAgUAAAAOZnNUTkN1cnJlbnRDYXAFAAAAElByZXZpb3VzSXNzdWVkZnNUTgIAAAAFLzEwXjgJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAElRvdGFsX0lzc3VlZF9mc1ROOgUAAAAPVG90YWxJc3N1ZWRmc1ROCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABVCYWxhbmNlX01pbnRpbmdfZnNUTjoFAAAADlBlbmRpbmdNaW50aW5nCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABlUb3RhbF9mc1ROX1Jlc2VydmVfSW5fVE46BQAAABBmc1ROUmVzZXJ2ZVZhbHVlCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABhmc1ROX0JhY2t1cF9WYWx1ZV9Jbl9UTjoFAAAAD2ZzVE5CYWNrdXBQcmljZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAAJVG90YWx0eG5zBQAAAAl0b3RhbHR4bnMJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgIAAAAHbWVzc2FnZQIAAAAmPGgxPmZzVE4gSXNzdWVkIFN1Y2Nlc3NmdWxseSE8L2gxPjxicj4JAARMAAAAAgkBAAAAB1JlaXNzdWUAAAADBQAAAAtmc1ROQXNzZXRJRAUAAAANTmV3ZnNUTlRvVXNlcgYJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyCQAAZQAAAAIFAAAADU5ld2ZzVE5Ub1VzZXIFAAAAC0ZlZXNDaGFyZ2VkBQAAAAtmc1ROQXNzZXRJRAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAABNJc3N1ZWZzVE5GZWVBZGRyZXNzBQAAAAtGZWVzQ2hhcmdlZAUAAAALZnNUTkFzc2V0SUQFAAAAA25pbAAAAAFpAQAAAAlMaXF1aWRhdGUAAAAABAAAAApjdXJyZW50S2V5CQACWAAAAAEIBQAAAAFpAAAAD2NhbGxlclB1YmxpY0tleQQAAAADcG10CQEAAAAFdmFsdWUAAAABCQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAABAAAABJQcmV2aW91c0lzc3VlZGZzVE4JAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMCAAAAElRvdGFsX0lzc3VlZF9mc1ROOgQAAAASUHJldmlvdXNCdXJuZWRmc1ROCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABJUb3RhbF9CdXJuZWRfZnNUTjoEAAAAD1RvdGFsSXNzdWVkZnNUTgkAAGUAAAACBQAAABJQcmV2aW91c0lzc3VlZGZzVE4IBQAAAANwbXQAAAAGYW1vdW50BAAAAA9Ub3RhbEJ1cm5lZGZzVE4JAABkAAAAAgUAAAASUHJldmlvdXNCdXJuZWRmc1ROCAUAAAADcG10AAAABmFtb3VudAQAAAAYUHJldmlvdXNmc1ROUmVzZXJ2ZVZhbHVlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzAgAAABlUb3RhbF9mc1ROX1Jlc2VydmVfSW5fVE46BAAAABdQcmV2aW91c2ZzVE5CYWNrdXBQcmljZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwIAAAAYZnNUTl9CYWNrdXBfVmFsdWVfSW5fVE46BAAAABJjYWxjdWxhdGVidXJudmFsdWUJAABrAAAAAwUAAAAXUHJldmlvdXNmc1ROQmFja3VwUHJpY2UIBQAAAANwbXQAAAAGYW1vdW50AAAAAAAAAYagBAAAABBmc1ROUmVzZXJ2ZVZhbHVlCQAAZQAAAAIFAAAAGFByZXZpb3VzZnNUTlJlc2VydmVWYWx1ZQUAAAASY2FsY3VsYXRlYnVybnZhbHVlBAAAAA9mc1ROQmFja3VwUHJpY2UJAABrAAAAAwAAAAAAAAGGoAUAAAAQZnNUTlJlc2VydmVWYWx1ZQUAAAAPVG90YWxJc3N1ZWRmc1ROAwkBAAAAAiE9AAAAAggFAAAAA3BtdAAAAAdhc3NldElkBQAAAAtmc1ROQXNzZXRJRAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAUS2luZGx5IERlcG9zaXQgT25seSAJAAJYAAAAAQUAAAALZnNUTkFzc2V0SUQCAAAACCAoZnNUTikuAwkAAGYAAAACAAAAAAAAAYagCAUAAAADcG10AAAABmFtb3VudAkAAAIAAAABAgAAAC5BdHRhY2ggQW1vdW50IG11c3QgYmUgZ3JlYXRlciB0aGFuIDAuMDAxIGZzVE4uCQAETAAAAAIJAQAAAARCdXJuAAAAAgUAAAALZnNUTkFzc2V0SUQIBQAAAANwbXQAAAAGYW1vdW50CQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACAgAAABJUb3RhbF9Jc3N1ZWRfZnNUTjoFAAAAD1RvdGFsSXNzdWVkZnNUTgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgIAAAASVG90YWxfQnVybmVkX2ZzVE46BQAAAA9Ub3RhbEJ1cm5lZGZzVE4JAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGVRvdGFsX2ZzVE5fUmVzZXJ2ZV9Jbl9UTjoFAAAAEGZzVE5SZXNlcnZlVmFsdWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAICAAAAGGZzVE5fQmFja3VwX1ZhbHVlX0luX1ROOgUAAAAPZnNUTkJhY2t1cFByaWNlCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAICAAAAB21lc3NhZ2UCAAAAKjxoMT5mc1ROIExpcXVpZGF0ZWQgU3VjY2Vzc2Z1bGx5ITwvaDE+PGJyPgkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAAEmNhbGN1bGF0ZWJ1cm52YWx1ZQUAAAAEdW5pdAUAAAADbmlsAAAAAQAAAAJ0eAEAAAAGdmVyaWZ5AAAAAAQAAAAHJG1hdGNoMAUAAAACdHgJAAH0AAAAAwgFAAAAAnR4AAAACWJvZHlCeXRlcwkAAZEAAAACCAUAAAACdHgAAAAGcHJvb2ZzAAAAAAAAAAAACAUAAAACdHgAAAAPc2VuZGVyUHVibGljS2V5ZjuTvQ==",
    "height": 1945715,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7dkqn1Gbs8niR3YWhGCsfh8toga3VtpaZM4keAjVrPnf
Next: DYuCAupur9cLbjLkjNGkW79WYNX9uYNvgmCcYMRxWwtZ

Diff: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 4 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
-
let fsTNAssetID = base58'BhWVeP6JGPGvzHtLa4r6Hypuyx4kKyPXC6sFnW3gzNhX'
4
+
let fsTNAssetID = base58'DYv8LXPqdm9N6xTdnfqrHzH9RMTnXLnfkYHffauHNc7o'
5
5
 
6
6
 
let IssuefsTNFeeAddress = addressFromPublicKey(base58'6Z73KxcX3sugpiStpSRXxKxTmWqCaLVwFeM6kwyiKVDR')
7
7
 
13
13
 
    let fsTNCurrentCap = getIntegerValue(this, "fsTNCurrentCap")
14
14
 
    let NewfsTNToUser = fraction(100000, pmt.amount, PricePerfsTN)
15
15
 
    let PreviousIssuedfsTN = getIntegerValue(this, "Total_Issued_fsTN:")
16
+
    let txns = getIntegerValue(this, "Totaltxns")
17
+
    let totaltxns = (txns + 1)
16
18
 
    let TotalIssuedfsTN = (PreviousIssuedfsTN + NewfsTNToUser)
17
19
 
    let PendingMinting = (fsTNCurrentCap - TotalIssuedfsTN)
18
20
 
    let PreviousfsTNReserveValue = getIntegerValue(this, "Total_fsTN_Reserve_In_TN:")
26
28
 
            then throw("Please Attach minimum 2 TN To Issue fsTN Asset.")
27
29
 
            else if ((TotalIssuedfsTN > fsTNCurrentCap))
28
30
 
                then throw((((((("fsTN Minting is about to reach the Cap of " + toString(fsTNCurrentCap)) + "/10^8 fsTN. Please Reduce your Minting Order by ") + toString(PendingMinting)) + " or put ") + toString((fsTNCurrentCap - PreviousIssuedfsTN))) + "/10^8"))
29
-
                else [IntegerEntry("Total_Issued_fsTN:", TotalIssuedfsTN), IntegerEntry("Balance_Minting_fsTN:", PendingMinting), IntegerEntry("Total_fsTN_Reserve_In_TN:", fsTNReserveValue), IntegerEntry("fsTN_Backup_Value_In_TN:", fsTNBackupPrice), StringEntry("message", "<h1>fsTN Issued Successfully!</h1><br>"), Reissue(fsTNAssetID, NewfsTNToUser, true), ScriptTransfer(i.caller, (NewfsTNToUser - FeesCharged), fsTNAssetID), ScriptTransfer(IssuefsTNFeeAddress, FeesCharged, fsTNAssetID)]
31
+
                else [IntegerEntry("Total_Issued_fsTN:", TotalIssuedfsTN), IntegerEntry("Balance_Minting_fsTN:", PendingMinting), IntegerEntry("Total_fsTN_Reserve_In_TN:", fsTNReserveValue), IntegerEntry("fsTN_Backup_Value_In_TN:", fsTNBackupPrice), IntegerEntry("Totaltxns", totaltxns), StringEntry("message", "<h1>fsTN Issued Successfully!</h1><br>"), Reissue(fsTNAssetID, NewfsTNToUser, true), ScriptTransfer(i.caller, (NewfsTNToUser - FeesCharged), fsTNAssetID), ScriptTransfer(IssuefsTNFeeAddress, FeesCharged, fsTNAssetID)]
30
32
 
    }
31
33
 
32
34
 
36
38
 
    let currentKey = toBase58String(i.callerPublicKey)
37
39
 
    let pmt = value(i.payments[0])
38
40
 
    let PreviousIssuedfsTN = getIntegerValue(this, "Total_Issued_fsTN:")
41
+
    let PreviousBurnedfsTN = getIntegerValue(this, "Total_Burned_fsTN:")
39
42
 
    let TotalIssuedfsTN = (PreviousIssuedfsTN - pmt.amount)
43
+
    let TotalBurnedfsTN = (PreviousBurnedfsTN + pmt.amount)
40
44
 
    let PreviousfsTNReserveValue = getIntegerValue(this, "Total_fsTN_Reserve_In_TN:")
41
45
 
    let PreviousfsTNBackupPrice = getIntegerValue(this, "fsTN_Backup_Value_In_TN:")
42
46
 
    let calculateburnvalue = fraction(PreviousfsTNBackupPrice, pmt.amount, 100000)
46
50
 
        then throw((("Kindly Deposit Only " + toBase58String(fsTNAssetID)) + " (fsTN)."))
47
51
 
        else if ((100000 > pmt.amount))
48
52
 
            then throw("Attach Amount must be greater than 0.001 fsTN.")
49
-
            else [Burn(fsTNAssetID, pmt.amount), IntegerEntry("Total_Issued_fsTN:", TotalIssuedfsTN), IntegerEntry("Total_fsTN_Reserve_In_TN:", fsTNReserveValue), IntegerEntry("fsTN_Backup_Value_In_TN:", fsTNBackupPrice), StringEntry("message", "<h1>fsTN Liquidated Successfully!</h1><br>"), ScriptTransfer(i.caller, calculateburnvalue, unit)]
53
+
            else [Burn(fsTNAssetID, pmt.amount), IntegerEntry("Total_Issued_fsTN:", TotalIssuedfsTN), IntegerEntry("Total_Burned_fsTN:", TotalBurnedfsTN), IntegerEntry("Total_fsTN_Reserve_In_TN:", fsTNReserveValue), IntegerEntry("fsTN_Backup_Value_In_TN:", fsTNBackupPrice), StringEntry("message", "<h1>fsTN Liquidated Successfully!</h1><br>"), ScriptTransfer(i.caller, calculateburnvalue, unit)]
50
54
 
    }
51
55
 
52
56
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 4 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
-
let fsTNAssetID = base58'BhWVeP6JGPGvzHtLa4r6Hypuyx4kKyPXC6sFnW3gzNhX'
4
+
let fsTNAssetID = base58'DYv8LXPqdm9N6xTdnfqrHzH9RMTnXLnfkYHffauHNc7o'
5
5
 
6
6
 
let IssuefsTNFeeAddress = addressFromPublicKey(base58'6Z73KxcX3sugpiStpSRXxKxTmWqCaLVwFeM6kwyiKVDR')
7
7
 
8
8
 
@Callable(i)
9
9
 
func IssuefsTN () = {
10
10
 
    let pmt = value(i.payments[0])
11
11
 
    let currentKey = toBase58String(i.caller.bytes)
12
12
 
    let PricePerfsTN = getIntegerValue(this, "fsTN/TN")
13
13
 
    let fsTNCurrentCap = getIntegerValue(this, "fsTNCurrentCap")
14
14
 
    let NewfsTNToUser = fraction(100000, pmt.amount, PricePerfsTN)
15
15
 
    let PreviousIssuedfsTN = getIntegerValue(this, "Total_Issued_fsTN:")
16
+
    let txns = getIntegerValue(this, "Totaltxns")
17
+
    let totaltxns = (txns + 1)
16
18
 
    let TotalIssuedfsTN = (PreviousIssuedfsTN + NewfsTNToUser)
17
19
 
    let PendingMinting = (fsTNCurrentCap - TotalIssuedfsTN)
18
20
 
    let PreviousfsTNReserveValue = getIntegerValue(this, "Total_fsTN_Reserve_In_TN:")
19
21
 
    let fsTNReserveValue = (PreviousfsTNReserveValue + pmt.amount)
20
22
 
    let PreviousfsTNBackupPrice = getIntegerValue(this, "fsTN_Backup_Value_In_TN:")
21
23
 
    let fsTNBackupPrice = fraction(100000, fsTNReserveValue, TotalIssuedfsTN)
22
24
 
    let FeesCharged = 100000000
23
25
 
    if (isDefined(pmt.assetId))
24
26
 
        then throw("Incorrect asset attached, please attach TN.")
25
27
 
        else if ((200000000 > pmt.amount))
26
28
 
            then throw("Please Attach minimum 2 TN To Issue fsTN Asset.")
27
29
 
            else if ((TotalIssuedfsTN > fsTNCurrentCap))
28
30
 
                then throw((((((("fsTN Minting is about to reach the Cap of " + toString(fsTNCurrentCap)) + "/10^8 fsTN. Please Reduce your Minting Order by ") + toString(PendingMinting)) + " or put ") + toString((fsTNCurrentCap - PreviousIssuedfsTN))) + "/10^8"))
29
-
                else [IntegerEntry("Total_Issued_fsTN:", TotalIssuedfsTN), IntegerEntry("Balance_Minting_fsTN:", PendingMinting), IntegerEntry("Total_fsTN_Reserve_In_TN:", fsTNReserveValue), IntegerEntry("fsTN_Backup_Value_In_TN:", fsTNBackupPrice), StringEntry("message", "<h1>fsTN Issued Successfully!</h1><br>"), Reissue(fsTNAssetID, NewfsTNToUser, true), ScriptTransfer(i.caller, (NewfsTNToUser - FeesCharged), fsTNAssetID), ScriptTransfer(IssuefsTNFeeAddress, FeesCharged, fsTNAssetID)]
31
+
                else [IntegerEntry("Total_Issued_fsTN:", TotalIssuedfsTN), IntegerEntry("Balance_Minting_fsTN:", PendingMinting), IntegerEntry("Total_fsTN_Reserve_In_TN:", fsTNReserveValue), IntegerEntry("fsTN_Backup_Value_In_TN:", fsTNBackupPrice), IntegerEntry("Totaltxns", totaltxns), StringEntry("message", "<h1>fsTN Issued Successfully!</h1><br>"), Reissue(fsTNAssetID, NewfsTNToUser, true), ScriptTransfer(i.caller, (NewfsTNToUser - FeesCharged), fsTNAssetID), ScriptTransfer(IssuefsTNFeeAddress, FeesCharged, fsTNAssetID)]
30
32
 
    }
31
33
 
32
34
 
33
35
 
34
36
 
@Callable(i)
35
37
 
func Liquidate () = {
36
38
 
    let currentKey = toBase58String(i.callerPublicKey)
37
39
 
    let pmt = value(i.payments[0])
38
40
 
    let PreviousIssuedfsTN = getIntegerValue(this, "Total_Issued_fsTN:")
41
+
    let PreviousBurnedfsTN = getIntegerValue(this, "Total_Burned_fsTN:")
39
42
 
    let TotalIssuedfsTN = (PreviousIssuedfsTN - pmt.amount)
43
+
    let TotalBurnedfsTN = (PreviousBurnedfsTN + pmt.amount)
40
44
 
    let PreviousfsTNReserveValue = getIntegerValue(this, "Total_fsTN_Reserve_In_TN:")
41
45
 
    let PreviousfsTNBackupPrice = getIntegerValue(this, "fsTN_Backup_Value_In_TN:")
42
46
 
    let calculateburnvalue = fraction(PreviousfsTNBackupPrice, pmt.amount, 100000)
43
47
 
    let fsTNReserveValue = (PreviousfsTNReserveValue - calculateburnvalue)
44
48
 
    let fsTNBackupPrice = fraction(100000, fsTNReserveValue, TotalIssuedfsTN)
45
49
 
    if ((pmt.assetId != fsTNAssetID))
46
50
 
        then throw((("Kindly Deposit Only " + toBase58String(fsTNAssetID)) + " (fsTN)."))
47
51
 
        else if ((100000 > pmt.amount))
48
52
 
            then throw("Attach Amount must be greater than 0.001 fsTN.")
49
-
            else [Burn(fsTNAssetID, pmt.amount), IntegerEntry("Total_Issued_fsTN:", TotalIssuedfsTN), IntegerEntry("Total_fsTN_Reserve_In_TN:", fsTNReserveValue), IntegerEntry("fsTN_Backup_Value_In_TN:", fsTNBackupPrice), StringEntry("message", "<h1>fsTN Liquidated Successfully!</h1><br>"), ScriptTransfer(i.caller, calculateburnvalue, unit)]
53
+
            else [Burn(fsTNAssetID, pmt.amount), IntegerEntry("Total_Issued_fsTN:", TotalIssuedfsTN), IntegerEntry("Total_Burned_fsTN:", TotalBurnedfsTN), IntegerEntry("Total_fsTN_Reserve_In_TN:", fsTNReserveValue), IntegerEntry("fsTN_Backup_Value_In_TN:", fsTNBackupPrice), StringEntry("message", "<h1>fsTN Liquidated Successfully!</h1><br>"), ScriptTransfer(i.caller, calculateburnvalue, unit)]
50
54
 
    }
51
55
 
52
56
 
53
57
 
@Verifier(tx)
54
58
 
func verify () = match tx {
55
59
 
    case _ => 
56
60
 
        sigVerify(tx.bodyBytes, tx.proofs[0], tx.senderPublicKey)
57
61
 
}
58
62
 

github/deemru/w8io/169f3d6 
32.99 ms ◑