tx · Gvr1aLRiCsKfNuajk3QQZb7bCM8fiHkGjdGTj2igk9RC

3P3tqaeh4YQLUPg4HcbPntE7FUzzSFdftCg:  -0.01400000 Waves

2021.05.19 23:17 [2597658] smart account 3P3tqaeh4YQLUPg4HcbPntE7FUzzSFdftCg > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "Gvr1aLRiCsKfNuajk3QQZb7bCM8fiHkGjdGTj2igk9RC",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1621455490249,
    "version": 2,
    "chainId": 87,
    "sender": "3P3tqaeh4YQLUPg4HcbPntE7FUzzSFdftCg",
    "senderPublicKey": "AiCfoeEPUiBVQvmRQvXgSThf3GhJZfy2AHSLFyV4nTMd",
    "proofs": [
        "5uz1gAF8GhZCvqrUx6Li9EwdkgkURLYYV8mHEiQuh9VreDNEZV3tPvPXiSRcMSjJBxZQ5BmycbE4NgwkfmF69eJe"
    ],
    "script": "base64:AAIEAAAAAAAAABUIAhIFCgMICAgSABIAEgASBAoCCAgAAAAKAAAAABBrZXlCdXlVV09STERSYXRlAgAAAA9idXlfVVdPUkxEX3JhdGUAAAAAHmtleUJ1eVVXT1JMRFJhdGVTY2FsZURlbGltaXRlcgIAAAAfYnV5X1VXT1JMRF9yYXRlX3NjYWxlX2RlbGltaXRlcgAAAAARa2V5U2VsbFVXT1JMRFJhdGUCAAAAEHNlbGxfVVdPUkxEX3JhdGUAAAAAH2tleVNlbGxVV09STERSYXRlU2NhbGVEZWxpbWl0ZXICAAAAIHNlbGxfVVdPUkxEX3JhdGVfc2NhbGVfZGVsaW1pdGVyAAAAAA1rZXlNYWtlTkZURmVlAgAAABBrZXlfbWFrZV9ORlRfZmVlAAAAAA1rZXlDb21taXNzaW9uAgAAAApjb21taXNzaW9uAAAAABtrZXlDb21taXNzaW9uU2NhbGVEZWxpbWl0ZXICAAAAGmNvbW1pc3Npb25fc2NhbGVfZGVsaW1pdGVyAAAAAARVU0ROAQAAACC2JinDBPXOU5GkDkt1JC9kjFGx+t+vVCm9SNIdKrKq0QAAAAAGVVdPUkxEAQAAACAtGFOlUDuo5uQJ1exIGoVYlbyPhEbn5MXvOd7nG64s6QAAAAAHYXNzZXRJZAUAAAAEVVNETgAAAAUAAAABaQEAAAAHbWFrZU5GVAAAAAMAAAAEbmFtZQAAAAtkZXNjcmlwdGlvbgAAAAlwcm9kdWN0SWQEAAAACyR0MDEwMjcxMTAyCQAFFAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAQAAAAJcG10QW1vdW50CAUAAAALJHQwMTAyNzExMDIAAAACXzEEAAAACnBtdEFzc2V0SWQIBQAAAAskdDAxMDI3MTEwMgAAAAJfMgQAAAAKbWFrZU5GVGZlZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwUAAAANa2V5TWFrZU5GVEZlZQMJAQAAAAIhPQAAAAIFAAAACnBtdEFzc2V0SWQFAAAAB2Fzc2V0SWQJAAACAAAAAQIAAAAXQXNzZXQgbXVzdCBiZSBVU0ROIG9ubHkDCQAAZgAAAAIFAAAACm1ha2VORlRmZWUFAAAACXBtdEFtb3VudAkAAAIAAAABCQABLAAAAAICAAAAGkZlZSBmb3IgbWFrZSBORlQgdG9rZW4gaXMgCQABpAAAAAEFAAAACm1ha2VORlRmZWUDCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzBQAAAAlwcm9kdWN0SWQJAAACAAAAAQIAAAApTkZUIGZvciB0aGlzIHByb2R1Y3RJZCBpcyBhbHJlYWR5IGlzc3VlZC4EAAAACG5ld0Fzc2V0CQAEQwAAAAcFAAAABG5hbWUJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAAC2Rlc2NyaXB0aW9uAgAAAAFbBQAAAAlwcm9kdWN0SWQCAAAAAV0AAAAAAAAAAAEAAAAAAAAAAAAHBQAAAAR1bml0AAAAAAAAAAAABAAAAApuZXdBc3NldElkCQAEOAAAAAEFAAAACG5ld0Fzc2V0CQAETAAAAAIFAAAACG5ld0Fzc2V0CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAACXByb2R1Y3RJZAkAAlgAAAABBQAAAApuZXdBc3NldElkBQAAAANuaWwAAAABaQEAAAAJc2V0UGFyYW1zAAAAAAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAACtPbmx5IHRoZSBEQXBwIGl0c2VsZiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAABBrZXlCdXlVV09STERSYXRlAAAAAAAAAknwCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAB5rZXlCdXlVV09STERSYXRlU2NhbGVEZWxpbWl0ZXIAAAAAAAAPQkAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAEWtleVNlbGxVV09STERSYXRlAAAAAAAAAYagCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAB9rZXlTZWxsVVdPUkxEUmF0ZVNjYWxlRGVsaW1pdGVyAAAAAAAAD0JACQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAA1rZXlDb21taXNzaW9uAAAAAAAAAHUwCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAABtrZXlDb21taXNzaW9uU2NhbGVEZWxpbWl0ZXIAAAAAAAAPQkAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAADWtleU1ha2VORlRGZWUAAAAAAAAPQkAFAAAAA25pbAAAAAFpAQAAAAlidXlVV09STEQAAAAABAAAAAskdDAyNTEwMjU4NQkABRQAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAACXBtdEFtb3VudAgFAAAACyR0MDI1MTAyNTg1AAAAAl8xBAAAAApwbXRBc3NldElkCAUAAAALJHQwMjUxMDI1ODUAAAACXzIDCQEAAAACIT0AAAACBQAAAApwbXRBc3NldElkBQAAAAdhc3NldElkCQAAAgAAAAECAAAAF0Fzc2V0IG11c3QgYmUgVVNETiBvbmx5BAAAAAxleGNoYW5nZVJhdGUJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAAEGtleUJ1eVVXT1JMRFJhdGUEAAAAGmV4Y2hhbmdlUmF0ZVNjYWxlRGVsaW1pdGVyCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAB5rZXlCdXlVV09STERSYXRlU2NhbGVEZWxpbWl0ZXIEAAAAC2Ftb3VudFRvUGF5CQAAawAAAAMFAAAACXBtdEFtb3VudAUAAAAaZXhjaGFuZ2VSYXRlU2NhbGVEZWxpbWl0ZXIFAAAADGV4Y2hhbmdlUmF0ZQQAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAAC2Ftb3VudFRvUGF5CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAABlVXT1JMRAUAAAADbmlsAAAAAWkBAAAACnNlbGxVV09STEQAAAAABAAAAAskdDAzMjQ3MzMyMgkABRQAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAACXBtdEFtb3VudAgFAAAACyR0MDMyNDczMzIyAAAAAl8xBAAAAApwbXRBc3NldElkCAUAAAALJHQwMzI0NzMzMjIAAAACXzIDCQEAAAACIT0AAAACBQAAAApwbXRBc3NldElkBQAAAAZVV09STEQJAAACAAAAAQIAAAAZQXNzZXQgbXVzdCBiZSBVV09STEQgb25seQQAAAAMZXhjaGFuZ2VSYXRlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAABFrZXlTZWxsVVdPUkxEUmF0ZQQAAAAaZXhjaGFuZ2VSYXRlU2NhbGVEZWxpbWl0ZXIJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAAH2tleVNlbGxVV09STERSYXRlU2NhbGVEZWxpbWl0ZXIEAAAAC2Ftb3VudFRvUGF5CQAAawAAAAMFAAAACXBtdEFtb3VudAUAAAAMZXhjaGFuZ2VSYXRlBQAAABpleGNoYW5nZVJhdGVTY2FsZURlbGltaXRlcgQAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAAC2Ftb3VudFRvUGF5CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAABFVTRE4FAAAAA25pbAAAAAFpAQAAAAttYWtlUGF5bWVudAAAAAIAAAAJcmVjaXBpZW50AAAACXByb2R1Y3RJZAQAAAAQcmVjaXBpZW50QWRkcmVzcwkBAAAAEUBleHRyTmF0aXZlKDEwNjIpAAAAAQUAAAAJcmVjaXBpZW50BAAAAAskdDA0MDgzNDE1OAkABRQAAAACCAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAZhbW91bnQICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAAB2Fzc2V0SWQEAAAACXBtdEFtb3VudAgFAAAACyR0MDQwODM0MTU4AAAAAl8xBAAAAApwbXRBc3NldElkCAUAAAALJHQwNDA4MzQxNTgAAAACXzIDCQEAAAACIT0AAAACBQAAAApwbXRBc3NldElkBQAAAAdhc3NldElkCQAAAgAAAAECAAAAF0Fzc2V0IG11c3QgYmUgVVNETiBvbmx5BAAAAApjb21taXNzaW9uCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAA1rZXlDb21taXNzaW9uBAAAABhjb21taXNzaW9uU2NhbGVEZWxpbWl0ZXIJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAAG2tleUNvbW1pc3Npb25TY2FsZURlbGltaXRlcgQAAAAQYW1vdW50Q29tbWlzc2lvbgkAAGsAAAADBQAAAAlwbXRBbW91bnQFAAAACmNvbW1pc3Npb24FAAAAGGNvbW1pc3Npb25TY2FsZURlbGltaXRlcgQAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24JAABlAAAAAgUAAAAJcG10QW1vdW50BQAAABBhbW91bnRDb21taXNzaW9uBAAAAA5hbW91bnRDYXNoYmFjawkAAGsAAAADBQAAAAlwbXRBbW91bnQAAAAAAAABhqAAAAAAAAAPQkADCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzBQAAAAlwcm9kdWN0SWQEAAAACk5GVGFzc2V0SWQJAAJZAAAAAQkBAAAAEUBleHRyTmF0aXZlKDEwNTMpAAAAAgUAAAAEdGhpcwUAAAAJcHJvZHVjdElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEHJlY2lwaWVudEFkZHJlc3MFAAAAF2Ftb3VudFdpdGhvdXRDb21taXNzaW9uBQAAAAdhc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAOYW1vdW50Q2FzaGJhY2sFAAAABlVXT1JMRAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIAAAAAAAAAAAEFAAAACk5GVGFzc2V0SWQFAAAAA25pbAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADBQAAABByZWNpcGllbnRBZGRyZXNzBQAAABdhbW91bnRXaXRob3V0Q29tbWlzc2lvbgUAAAAHYXNzZXRJZAkABEwAAAACCQEAAAAOU2NyaXB0VHJhbnNmZXIAAAADCAUAAAABaQAAAAZjYWxsZXIFAAAADmFtb3VudENhc2hiYWNrBQAAAAZVV09STEQFAAAAA25pbAAAAACrRZMK",
    "height": 2597658,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 7RbwVSCCPFMvLu1Q6xrkcD2r2srjpV4tsgUxw3QuYTDY
Next: zaJt2TxZR2Ukpx4stnLhR4rxQkHXmKqR54gKwQm8asw

Diff: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 4 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
+
let keyBuyUWORLDRate = "buy_UWORLD_rate"
5
+
6
+
let keyBuyUWORLDRateScaleDelimiter = "buy_UWORLD_rate_scale_delimiter"
7
+
8
+
let keySellUWORLDRate = "sell_UWORLD_rate"
9
+
10
+
let keySellUWORLDRateScaleDelimiter = "sell_UWORLD_rate_scale_delimiter"
11
+
12
+
let keyMakeNFTFee = "key_make_NFT_fee"
13
+
14
+
let keyCommission = "commission"
15
+
16
+
let keyCommissionScaleDelimiter = "commission_scale_delimiter"
17
+
4
18
 
let USDN = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
5
19
 
6
20
 
let UWORLD = base58'432rwiV6mi3SJGLkhGPeyHVNUj8rEgHpXwyc1yXj4M6Y'
7
21
 
8
22
 
let assetId = USDN
9
23
 
10
-
let commission = 30000
24
+
@Callable(i)
25
+
func makeNFT (name,description,productId) = {
26
+
    let $t010271102 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
27
+
    let pmtAmount = $t010271102._1
28
+
    let pmtAssetId = $t010271102._2
29
+
    let makeNFTfee = getIntegerValue(this, keyMakeNFTFee)
30
+
    if ((pmtAssetId != assetId))
31
+
        then throw("Asset must be USDN only")
32
+
        else if ((makeNFTfee > pmtAmount))
33
+
            then throw(("Fee for make NFT token is " + toString(makeNFTfee)))
34
+
            else if (isDefined(getString(this, productId)))
35
+
                then throw("NFT for this productId is already issued.")
36
+
                else {
37
+
                    let newAsset = Issue(name, (((description + "[") + productId) + "]"), 1, 0, false, unit, 0)
38
+
                    let newAssetId = calculateAssetId(newAsset)
39
+
[newAsset, StringEntry(productId, toBase58String(newAssetId))]
40
+
                    }
41
+
    }
11
42
 
12
-
let commissionScaleDelimiter = 1000000
43
+
13
44
 
14
45
 
@Callable(i)
15
-
func makePayment (recipient) = {
16
-
    let recipientAddress = addressFromStringValue(recipient)
17
-
    let $t0481556 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
18
-
    let pmtAmount = $t0481556._1
19
-
    let pmtAssetId = $t0481556._2
46
+
func setParams () = if ((i.caller != this))
47
+
    then throw("Only the DApp itself can call this function")
48
+
    else [IntegerEntry(keyBuyUWORLDRate, 150000), IntegerEntry(keyBuyUWORLDRateScaleDelimiter, 1000000), IntegerEntry(keySellUWORLDRate, 100000), IntegerEntry(keySellUWORLDRateScaleDelimiter, 1000000), IntegerEntry(keyCommission, 30000), IntegerEntry(keyCommissionScaleDelimiter, 1000000), IntegerEntry(keyMakeNFTFee, 1000000)]
49
+
50
+
51
+
52
+
@Callable(i)
53
+
func buyUWORLD () = {
54
+
    let $t025102585 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
55
+
    let pmtAmount = $t025102585._1
56
+
    let pmtAssetId = $t025102585._2
20
57
 
    if ((pmtAssetId != assetId))
21
58
 
        then throw("Asset must be USDN only")
22
59
 
        else {
60
+
            let exchangeRate = getIntegerValue(this, keyBuyUWORLDRate)
61
+
            let exchangeRateScaleDelimiter = getIntegerValue(this, keyBuyUWORLDRateScaleDelimiter)
62
+
            let amountToPay = fraction(pmtAmount, exchangeRateScaleDelimiter, exchangeRate)
63
+
            let amountWithoutCommission = amountToPay
64
+
[ScriptTransfer(i.caller, amountWithoutCommission, UWORLD)]
65
+
            }
66
+
    }
67
+
68
+
69
+
70
+
@Callable(i)
71
+
func sellUWORLD () = {
72
+
    let $t032473322 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
73
+
    let pmtAmount = $t032473322._1
74
+
    let pmtAssetId = $t032473322._2
75
+
    if ((pmtAssetId != UWORLD))
76
+
        then throw("Asset must be UWORLD only")
77
+
        else {
78
+
            let exchangeRate = getIntegerValue(this, keySellUWORLDRate)
79
+
            let exchangeRateScaleDelimiter = getIntegerValue(this, keySellUWORLDRateScaleDelimiter)
80
+
            let amountToPay = fraction(pmtAmount, exchangeRate, exchangeRateScaleDelimiter)
81
+
            let amountWithoutCommission = amountToPay
82
+
[ScriptTransfer(i.caller, amountWithoutCommission, USDN)]
83
+
            }
84
+
    }
85
+
86
+
87
+
88
+
@Callable(i)
89
+
func makePayment (recipient,productId) = {
90
+
    let recipientAddress = addressFromStringValue(recipient)
91
+
    let $t040834158 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
92
+
    let pmtAmount = $t040834158._1
93
+
    let pmtAssetId = $t040834158._2
94
+
    if ((pmtAssetId != assetId))
95
+
        then throw("Asset must be USDN only")
96
+
        else {
97
+
            let commission = getIntegerValue(this, keyCommission)
98
+
            let commissionScaleDelimiter = getIntegerValue(this, keyCommissionScaleDelimiter)
23
99
 
            let amountCommission = fraction(pmtAmount, commission, commissionScaleDelimiter)
24
100
 
            let amountWithoutCommission = (pmtAmount - amountCommission)
25
-
            let amountCashback = fraction(pmtAmount, 10, 100)
26
-
[ScriptTransfer(recipientAddress, amountWithoutCommission, assetId), ScriptTransfer(recipientAddress, amountCashback, UWORLD), ScriptTransfer(i.caller, amountCashback, UWORLD)]
101
+
            let amountCashback = fraction(pmtAmount, 100000, 1000000)
102
+
            if (isDefined(getString(this, productId)))
103
+
                then {
104
+
                    let NFTassetId = fromBase58String(getStringValue(this, productId))
105
+
[ScriptTransfer(recipientAddress, amountWithoutCommission, assetId), ScriptTransfer(i.caller, amountCashback, UWORLD), ScriptTransfer(i.caller, 1, NFTassetId)]
106
+
                    }
107
+
                else [ScriptTransfer(recipientAddress, amountWithoutCommission, assetId), ScriptTransfer(i.caller, amountCashback, UWORLD)]
27
108
 
            }
28
109
 
    }
29
110
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 4 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
+
let keyBuyUWORLDRate = "buy_UWORLD_rate"
5
+
6
+
let keyBuyUWORLDRateScaleDelimiter = "buy_UWORLD_rate_scale_delimiter"
7
+
8
+
let keySellUWORLDRate = "sell_UWORLD_rate"
9
+
10
+
let keySellUWORLDRateScaleDelimiter = "sell_UWORLD_rate_scale_delimiter"
11
+
12
+
let keyMakeNFTFee = "key_make_NFT_fee"
13
+
14
+
let keyCommission = "commission"
15
+
16
+
let keyCommissionScaleDelimiter = "commission_scale_delimiter"
17
+
4
18
 
let USDN = base58'DG2xFkPdDwKUoBkzGAhQtLpSGzfXLiCYPEzeKH2Ad24p'
5
19
 
6
20
 
let UWORLD = base58'432rwiV6mi3SJGLkhGPeyHVNUj8rEgHpXwyc1yXj4M6Y'
7
21
 
8
22
 
let assetId = USDN
9
23
 
10
-
let commission = 30000
24
+
@Callable(i)
25
+
func makeNFT (name,description,productId) = {
26
+
    let $t010271102 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
27
+
    let pmtAmount = $t010271102._1
28
+
    let pmtAssetId = $t010271102._2
29
+
    let makeNFTfee = getIntegerValue(this, keyMakeNFTFee)
30
+
    if ((pmtAssetId != assetId))
31
+
        then throw("Asset must be USDN only")
32
+
        else if ((makeNFTfee > pmtAmount))
33
+
            then throw(("Fee for make NFT token is " + toString(makeNFTfee)))
34
+
            else if (isDefined(getString(this, productId)))
35
+
                then throw("NFT for this productId is already issued.")
36
+
                else {
37
+
                    let newAsset = Issue(name, (((description + "[") + productId) + "]"), 1, 0, false, unit, 0)
38
+
                    let newAssetId = calculateAssetId(newAsset)
39
+
[newAsset, StringEntry(productId, toBase58String(newAssetId))]
40
+
                    }
41
+
    }
11
42
 
12
-
let commissionScaleDelimiter = 1000000
43
+
13
44
 
14
45
 
@Callable(i)
15
-
func makePayment (recipient) = {
16
-
    let recipientAddress = addressFromStringValue(recipient)
17
-
    let $t0481556 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
18
-
    let pmtAmount = $t0481556._1
19
-
    let pmtAssetId = $t0481556._2
46
+
func setParams () = if ((i.caller != this))
47
+
    then throw("Only the DApp itself can call this function")
48
+
    else [IntegerEntry(keyBuyUWORLDRate, 150000), IntegerEntry(keyBuyUWORLDRateScaleDelimiter, 1000000), IntegerEntry(keySellUWORLDRate, 100000), IntegerEntry(keySellUWORLDRateScaleDelimiter, 1000000), IntegerEntry(keyCommission, 30000), IntegerEntry(keyCommissionScaleDelimiter, 1000000), IntegerEntry(keyMakeNFTFee, 1000000)]
49
+
50
+
51
+
52
+
@Callable(i)
53
+
func buyUWORLD () = {
54
+
    let $t025102585 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
55
+
    let pmtAmount = $t025102585._1
56
+
    let pmtAssetId = $t025102585._2
20
57
 
    if ((pmtAssetId != assetId))
21
58
 
        then throw("Asset must be USDN only")
22
59
 
        else {
60
+
            let exchangeRate = getIntegerValue(this, keyBuyUWORLDRate)
61
+
            let exchangeRateScaleDelimiter = getIntegerValue(this, keyBuyUWORLDRateScaleDelimiter)
62
+
            let amountToPay = fraction(pmtAmount, exchangeRateScaleDelimiter, exchangeRate)
63
+
            let amountWithoutCommission = amountToPay
64
+
[ScriptTransfer(i.caller, amountWithoutCommission, UWORLD)]
65
+
            }
66
+
    }
67
+
68
+
69
+
70
+
@Callable(i)
71
+
func sellUWORLD () = {
72
+
    let $t032473322 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
73
+
    let pmtAmount = $t032473322._1
74
+
    let pmtAssetId = $t032473322._2
75
+
    if ((pmtAssetId != UWORLD))
76
+
        then throw("Asset must be UWORLD only")
77
+
        else {
78
+
            let exchangeRate = getIntegerValue(this, keySellUWORLDRate)
79
+
            let exchangeRateScaleDelimiter = getIntegerValue(this, keySellUWORLDRateScaleDelimiter)
80
+
            let amountToPay = fraction(pmtAmount, exchangeRate, exchangeRateScaleDelimiter)
81
+
            let amountWithoutCommission = amountToPay
82
+
[ScriptTransfer(i.caller, amountWithoutCommission, USDN)]
83
+
            }
84
+
    }
85
+
86
+
87
+
88
+
@Callable(i)
89
+
func makePayment (recipient,productId) = {
90
+
    let recipientAddress = addressFromStringValue(recipient)
91
+
    let $t040834158 = $Tuple2(i.payments[0].amount, i.payments[0].assetId)
92
+
    let pmtAmount = $t040834158._1
93
+
    let pmtAssetId = $t040834158._2
94
+
    if ((pmtAssetId != assetId))
95
+
        then throw("Asset must be USDN only")
96
+
        else {
97
+
            let commission = getIntegerValue(this, keyCommission)
98
+
            let commissionScaleDelimiter = getIntegerValue(this, keyCommissionScaleDelimiter)
23
99
 
            let amountCommission = fraction(pmtAmount, commission, commissionScaleDelimiter)
24
100
 
            let amountWithoutCommission = (pmtAmount - amountCommission)
25
-
            let amountCashback = fraction(pmtAmount, 10, 100)
26
-
[ScriptTransfer(recipientAddress, amountWithoutCommission, assetId), ScriptTransfer(recipientAddress, amountCashback, UWORLD), ScriptTransfer(i.caller, amountCashback, UWORLD)]
101
+
            let amountCashback = fraction(pmtAmount, 100000, 1000000)
102
+
            if (isDefined(getString(this, productId)))
103
+
                then {
104
+
                    let NFTassetId = fromBase58String(getStringValue(this, productId))
105
+
[ScriptTransfer(recipientAddress, amountWithoutCommission, assetId), ScriptTransfer(i.caller, amountCashback, UWORLD), ScriptTransfer(i.caller, 1, NFTassetId)]
106
+
                    }
107
+
                else [ScriptTransfer(recipientAddress, amountWithoutCommission, assetId), ScriptTransfer(i.caller, amountCashback, UWORLD)]
27
108
 
            }
28
109
 
    }
29
110
 
30
111
 

github/deemru/w8io/3ef1775 
51.03 ms ◑