tx · AZ6DRvv61cr4gX6bGoz94d6JYY7mrvsbWnuFd7QQFm8B

3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id:  -0.01000000 Waves

2022.01.07 02:13 [1867690] smart account 3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "AZ6DRvv61cr4gX6bGoz94d6JYY7mrvsbWnuFd7QQFm8B",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1641510848945,
    "version": 2,
    "chainId": 84,
    "sender": "3NADYuG3G91PrmsrRqQfyeDCf2Pi53UV5id",
    "senderPublicKey": "8agr5kfwDL7NLuMetvciXCcd9TcDKZhRwYZPPTAShaCC",
    "proofs": [
        "5orzMjbXwsHpEd7nMjS7qf9miHYgvs3fftDrWeocEjv8MLfFhFHgK78ky4v1BFqxGKagKydFiJYvd7k3zaSTH2nx"
    ],
    "script": "base64:AAIFAAAAAAAAABkIAhIFCgMICAgSABIAEgASABIGCgQICAgBAAAACwAAAAAOa2V5QnV5VUxVU1JhdGUCAAAADWJ1eV9VTFVTX3JhdGUAAAAAHGtleUJ1eVVMVVNSYXRlU2NhbGVEZWxpbWl0ZXICAAAAHWJ1eV9VTFVTX3JhdGVfc2NhbGVfZGVsaW1pdGVyAAAAAA9rZXlTZWxsVUxVU1JhdGUCAAAADnNlbGxfVUxVU19yYXRlAAAAAB1rZXlTZWxsVUxVU1JhdGVTY2FsZURlbGltaXRlcgIAAAAec2VsbF9VTFVTX3JhdGVfc2NhbGVfZGVsaW1pdGVyAAAAAA1rZXlNYWtlTkZURmVlAgAAABBrZXlfbWFrZV9ORlRfZmVlAAAAAA1rZXlDb21taXNzaW9uAgAAAApjb21taXNzaW9uAAAAABtrZXlDb21taXNzaW9uU2NhbGVEZWxpbWl0ZXICAAAAGmNvbW1pc3Npb25fc2NhbGVfZGVsaW1pdGVyAAAAAARVU0ROAQAAACDksHLEGjv+8PYJNtljDWFsUYAqeC0sRtfKUlc+urlUoQAAAAAEVUxVUwEAAAAg/iPPgG6phXW2VdD7Nr8nVSznlfxwtGOUbNoiONq9fnEAAAAAB2Fzc2V0SWQFAAAABFVTRE4AAAAAEWNvbW1pc3Npb25BZGRyZXNzCQEAAAAHQWRkcmVzcwAAAAEBAAAAGgFUhDuCa0VkQENR1K2Lax5m/opXVIdgCaV5AAAABgAAAAFpAQAAAAdtYWtlTkZUAAAAAwAAAARuYW1lAAAAC2Rlc2NyaXB0aW9uAAAACXByb2R1Y3RJZAQAAAALJHQwMTEyMDExOTUJAAUUAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBAAAAAlwbXRBbW91bnQIBQAAAAskdDAxMTIwMTE5NQAAAAJfMQQAAAAKcG10QXNzZXRJZAgFAAAACyR0MDExMjAxMTk1AAAAAl8yBAAAAAptYWtlTkZUZmVlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAA1rZXlNYWtlTkZURmVlAwkBAAAAAiE9AAAAAgUAAAAKcG10QXNzZXRJZAUAAAAHYXNzZXRJZAkAAAIAAAABAgAAABdBc3NldCBtdXN0IGJlIFVTRE4gb25seQMJAABmAAAAAgUAAAAKbWFrZU5GVGZlZQUAAAAJcG10QW1vdW50CQAAAgAAAAEJAAEsAAAAAgIAAAAaRmVlIGZvciBtYWtlIE5GVCB0b2tlbiBpcyAJAAGkAAAAAQUAAAAKbWFrZU5GVGZlZQMJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAABHRoaXMFAAAACXByb2R1Y3RJZAkAAAIAAAABAgAAAClORlQgZm9yIHRoaXMgcHJvZHVjdElkIGlzIGFscmVhZHkgaXNzdWVkLgQAAAAIbmV3QXNzZXQJAARDAAAABwUAAAAEbmFtZQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAALZGVzY3JpcHRpb24CAAAAAVsFAAAACXByb2R1Y3RJZAIAAAABXQAAAAAAAAAAAQAAAAAAAAAAAAcFAAAABHVuaXQAAAAAAAAAAAAEAAAACm5ld0Fzc2V0SWQJAAQ4AAAAAQUAAAAIbmV3QXNzZXQJAARMAAAAAgUAAAAIbmV3QXNzZXQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgUAAAAJcHJvZHVjdElkCQACWAAAAAEFAAAACm5ld0Fzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAARY29tbWlzc2lvbkFkZHJlc3MFAAAACXBtdEFtb3VudAUAAAAKcG10QXNzZXRJZAUAAAADbmlsAAAAAWkBAAAACXNldFBhcmFtcwAAAAADCQEAAAACIT0AAAACCAUAAAABaQAAAAZjYWxsZXIFAAAABHRoaXMJAAACAAAAAQIAAAArT25seSB0aGUgREFwcCBpdHNlbGYgY2FuIGNhbGwgdGhpcyBmdW5jdGlvbgkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAOa2V5QnV5VUxVU1JhdGUAAAAAAAACSfAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAHGtleUJ1eVVMVVNSYXRlU2NhbGVEZWxpbWl0ZXIAAAAAAAAAA+gJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAD2tleVNlbGxVTFVTUmF0ZQAAAAAAAAGGoAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAAda2V5U2VsbFVMVVNSYXRlU2NhbGVEZWxpbWl0ZXIAAAAAAAAAA+gJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAADWtleUNvbW1pc3Npb24AAAAAAAAAdTAJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAG2tleUNvbW1pc3Npb25TY2FsZURlbGltaXRlcgAAAAAAAA9CQAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgUAAAANa2V5TWFrZU5GVEZlZQAAAAAAAA9CQAUAAAADbmlsAAAAAWkBAAAADmNsZWFyT2xkUGFyYW1zAAAAAAMJAQAAAAIhPQAAAAIIBQAAAAFpAAAABmNhbGxlcgUAAAAEdGhpcwkAAAIAAAABAgAAACtPbmx5IHRoZSBEQXBwIGl0c2VsZiBjYW4gY2FsbCB0aGlzIGZ1bmN0aW9uBAAAABBrZXlCdXlVV09STERSYXRlAgAAAA9idXlfVVdPUkxEX3JhdGUEAAAAHmtleUJ1eVVXT1JMRFJhdGVTY2FsZURlbGltaXRlcgIAAAAfYnV5X1VXT1JMRF9yYXRlX3NjYWxlX2RlbGltaXRlcgQAAAARa2V5U2VsbFVXT1JMRFJhdGUCAAAAEHNlbGxfVVdPUkxEX3JhdGUEAAAAH2tleVNlbGxVV09STERSYXRlU2NhbGVEZWxpbWl0ZXICAAAAIHNlbGxfVVdPUkxEX3JhdGVfc2NhbGVfZGVsaW1pdGVyCQAETAAAAAIJAQAAAAtEZWxldGVFbnRyeQAAAAEFAAAAEGtleUJ1eVVXT1JMRFJhdGUJAARMAAAAAgkBAAAAC0RlbGV0ZUVudHJ5AAAAAQUAAAAea2V5QnV5VVdPUkxEUmF0ZVNjYWxlRGVsaW1pdGVyCQAETAAAAAIJAQAAAAtEZWxldGVFbnRyeQAAAAEFAAAAEWtleVNlbGxVV09STERSYXRlCQAETAAAAAIJAQAAAAtEZWxldGVFbnRyeQAAAAEFAAAAH2tleVNlbGxVV09STERSYXRlU2NhbGVEZWxpbWl0ZXIFAAAAA25pbAAAAAFpAQAAAAdidXlVTFVTAAAAAAQAAAALJHQwMzIxMDMyODUJAAUUAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBAAAAAlwbXRBbW91bnQIBQAAAAskdDAzMjEwMzI4NQAAAAJfMQQAAAAKcG10QXNzZXRJZAgFAAAACyR0MDMyMTAzMjg1AAAAAl8yAwkBAAAAAiE9AAAAAgUAAAAKcG10QXNzZXRJZAUAAAAHYXNzZXRJZAkAAAIAAAABAgAAABdBc3NldCBtdXN0IGJlIFVTRE4gb25seQQAAAAMZXhjaGFuZ2VSYXRlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAR0aGlzBQAAAA5rZXlCdXlVTFVTUmF0ZQQAAAAaZXhjaGFuZ2VSYXRlU2NhbGVEZWxpbWl0ZXIJAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAAHGtleUJ1eVVMVVNSYXRlU2NhbGVEZWxpbWl0ZXIEAAAAC2Ftb3VudFRvUGF5CQAAawAAAAMFAAAACXBtdEFtb3VudAUAAAAaZXhjaGFuZ2VSYXRlU2NhbGVEZWxpbWl0ZXIFAAAADGV4Y2hhbmdlUmF0ZQQAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAAC2Ftb3VudFRvUGF5CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAABFVMVVMFAAAAA25pbAAAAAFpAQAAAAhzZWxsVUxVUwAAAAAEAAAACyR0MDM5Mzk0MDE0CQAFFAAAAAIICQABkQAAAAIIBQAAAAFpAAAACHBheW1lbnRzAAAAAAAAAAAAAAAABmFtb3VudAgJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAHYXNzZXRJZAQAAAAJcG10QW1vdW50CAUAAAALJHQwMzkzOTQwMTQAAAACXzEEAAAACnBtdEFzc2V0SWQIBQAAAAskdDAzOTM5NDAxNAAAAAJfMgMJAQAAAAIhPQAAAAIFAAAACnBtdEFzc2V0SWQFAAAABFVMVVMJAAACAAAAAQIAAAAXQXNzZXQgbXVzdCBiZSBVTFVTIG9ubHkEAAAADGV4Y2hhbmdlUmF0ZQkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwUAAAAPa2V5U2VsbFVMVVNSYXRlBAAAABpleGNoYW5nZVJhdGVTY2FsZURlbGltaXRlcgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwUAAAAda2V5U2VsbFVMVVNSYXRlU2NhbGVEZWxpbWl0ZXIEAAAAC2Ftb3VudFRvUGF5CQAAawAAAAMFAAAACXBtdEFtb3VudAUAAAAMZXhjaGFuZ2VSYXRlBQAAABpleGNoYW5nZVJhdGVTY2FsZURlbGltaXRlcgQAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAAC2Ftb3VudFRvUGF5CQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAABFVTRE4FAAAAA25pbAAAAAFpAQAAAAttYWtlUGF5bWVudAAAAAQAAAAJcmVjaXBpZW50AAAACXByb2R1Y3RJZAAAABBiYWNrZW5kU2lnbmF0dXJlAAAAEGJhY2tlbmRUaW1lc3RhbXAEAAAAEHJlY2lwaWVudEFkZHJlc3MJAQAAABFAZXh0ck5hdGl2ZSgxMDYyKQAAAAEFAAAACXJlY2lwaWVudAQAAAALJHQwNDgyMDQ4OTUJAAUUAAAAAggJAAGRAAAAAggFAAAAAWkAAAAIcGF5bWVudHMAAAAAAAAAAAAAAAAGYW1vdW50CAkAAZEAAAACCAUAAAABaQAAAAhwYXltZW50cwAAAAAAAAAAAAAAAAdhc3NldElkBAAAAAlwbXRBbW91bnQIBQAAAAskdDA0ODIwNDg5NQAAAAJfMQQAAAAKcG10QXNzZXRJZAgFAAAACyR0MDQ4MjA0ODk1AAAAAl8yBAAAAAxiYWNrZW5kUHJvb2YJAAEsAAAAAgkABLkAAAACCQAETAAAAAIJAAQlAAAAAQUAAAAEdGhpcwkABEwAAAACCQABpAAAAAEFAAAACXBtdEFtb3VudAUAAAADbmlsAgAAAAE7AgAAAAE7BAAAAA1iYWNrZW5kUHViS2V5AQAAACBFPiiKI3pyj7bycKBN2zbNY9YdCMUn95VZZZCWjS5uTwQAAAAJY3VycmVudFRzCAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAMJAQAAAAEhAAAAAQkACcQAAAADCQABmwAAAAEFAAAADGJhY2tlbmRQcm9vZgkAAlkAAAABBQAAABBiYWNrZW5kU2lnbmF0dXJlBQAAAA1iYWNrZW5kUHViS2V5CQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAHEludmFsaWQgcHJvb2YgZnJvbSBiYWNrZW5kID0JAAJYAAAAAQkAAZsAAAABBQAAAAxiYWNrZW5kUHJvb2YCAAAABCAgICAFAAAADGJhY2tlbmRQcm9vZgMJAQAAAAIhPQAAAAIFAAAAEGJhY2tlbmRUaW1lc3RhbXAIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wCQAAAgAAAAEJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAAG0RhdGUgY2Fubm90IGJlIGluIHRoZSBwYXN0IAkAAaQAAAABCAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAIAAAAEICAgIAkAAaQAAAABBQAAABBiYWNrZW5kVGltZXN0YW1wAwMJAQAAAAIhPQAAAAIFAAAACnBtdEFzc2V0SWQFAAAABFVTRE4JAQAAAAIhPQAAAAIFAAAACnBtdEFzc2V0SWQFAAAABFVMVVMHCQAAAgAAAAECAAAAH0Fzc2V0IG11c3QgYmUgb25seSBVU0ROIG9yIFVMVVMEAAAACmNvbW1pc3Npb24JAQAAABFAZXh0ck5hdGl2ZSgxMDUwKQAAAAIFAAAABHRoaXMFAAAADWtleUNvbW1pc3Npb24EAAAAGGNvbW1pc3Npb25TY2FsZURlbGltaXRlcgkBAAAAEUBleHRyTmF0aXZlKDEwNTApAAAAAgUAAAAEdGhpcwUAAAAba2V5Q29tbWlzc2lvblNjYWxlRGVsaW1pdGVyBAAAABBhbW91bnRDb21taXNzaW9uCQAAawAAAAMFAAAACXBtdEFtb3VudAUAAAAKY29tbWlzc2lvbgUAAAAYY29tbWlzc2lvblNjYWxlRGVsaW1pdGVyBAAAABdhbW91bnRXaXRob3V0Q29tbWlzc2lvbgkAAGUAAAACBQAAAAlwbXRBbW91bnQFAAAAEGFtb3VudENvbW1pc3Npb24EAAAADGFzc2V0RGl2aWRlcgMJAAAAAAAAAgUAAAAKcG10QXNzZXRJZAUAAAAEVVNETgAAAAAAAA9CQAAAAAAAAAAD6AQAAAAOYW1vdW50Q2FzaGJhY2sJAABrAAAAAwUAAAAJcG10QW1vdW50AAAAAAAAAABkBQAAAAxhc3NldERpdmlkZXIDCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzBQAAAAlwcm9kdWN0SWQEAAAACk5GVGFzc2V0SWQJAAJZAAAAAQkBAAAAEUBleHRyTmF0aXZlKDEwNTMpAAAAAgUAAAAEdGhpcwUAAAAJcHJvZHVjdElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEHJlY2lwaWVudEFkZHJlc3MFAAAAF2Ftb3VudFdpdGhvdXRDb21taXNzaW9uBQAAAApwbXRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMFAAAAEWNvbW1pc3Npb25BZGRyZXNzBQAAABBhbW91bnRDb21taXNzaW9uBQAAAApwbXRBc3NldElkCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMIBQAAAAFpAAAABmNhbGxlcgUAAAAOYW1vdW50Q2FzaGJhY2sFAAAABFVMVVMJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyAAAAAAAAAAABBQAAAApORlRhc3NldElkBQAAAANuaWwJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAAQcmVjaXBpZW50QWRkcmVzcwUAAAAXYW1vdW50V2l0aG91dENvbW1pc3Npb24FAAAACnBtdEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwUAAAARY29tbWlzc2lvbkFkZHJlc3MFAAAAEGFtb3VudENvbW1pc3Npb24FAAAACnBtdEFzc2V0SWQJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAAAWkAAAAGY2FsbGVyBQAAAA5hbW91bnRDYXNoYmFjawUAAAAEVUxVUwUAAAADbmlsAAAAAKsstn4=",
    "height": 1867690,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: fYqJru5g2BhKbqXYqqaaFpWCqYiCNagqTnZ37VXrTHW
Next: DWYfGEg7zXxA6UzuBcL47cfJLoebSfzraRbC7vSq64cN

Diff: 
Old
New
Differences
101
101
 
102
102
 
103
103
 
@Callable(l)
104
-
func makePayment (F,o,G) = {
105
-
    let H = addressFromStringValue(F)
106
-
    let I = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
107
-
    let q = I._1
108
-
    let r = I._2
109
-
    let J = (makeString([toString(this), toString(q)], ";") + ";")
110
-
    let K = base58'5fJ73uaebbc12bwCegVoRZgNKfn4BqpH8NB8Rs2NpBmg'
111
-
    if (!(sigVerify_8Kb(toBytes(J), fromBase58String(G), K)))
112
-
        then throw(((("Invalid proof from backend =" + toBase58String(toBytes(J))) + "    ") + J))
113
-
        else if (if ((r != h))
114
-
            then (r != i)
115
-
            else false)
116
-
            then throw("Asset must be only USDN or ULUS")
117
-
            else {
118
-
                let L = getIntegerValue(this, f)
119
-
                let M = getIntegerValue(this, g)
120
-
                let N = fraction(q, L, M)
121
-
                let D = (q - N)
122
-
                let O = if ((r == h))
123
-
                    then 1000000
124
-
                    else 1000
125
-
                let P = fraction(q, 100, O)
126
-
                if (isDefined(getString(this, o)))
127
-
                    then {
128
-
                        let Q = fromBase58String(getStringValue(this, o))
129
-
[ScriptTransfer(H, D, r), ScriptTransfer(k, N, r), ScriptTransfer(l.caller, P, i), ScriptTransfer(l.caller, 1, Q)]
130
-
                        }
131
-
                    else [ScriptTransfer(H, D, r), ScriptTransfer(k, N, r), ScriptTransfer(l.caller, P, i)]
132
-
                }
104
+
func makePayment (F,o,G,H) = {
105
+
    let I = addressFromStringValue(F)
106
+
    let J = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
107
+
    let q = J._1
108
+
    let r = J._2
109
+
    let K = (makeString([toString(this), toString(q)], ";") + ";")
110
+
    let L = base58'5fJ73uaebbc12bwCegVoRZgNKfn4BqpH8NB8Rs2NpBmg'
111
+
    let M = lastBlock.timestamp
112
+
    if (!(sigVerify_8Kb(toBytes(K), fromBase58String(G), L)))
113
+
        then throw(((("Invalid proof from backend =" + toBase58String(toBytes(K))) + "    ") + K))
114
+
        else if ((H != lastBlock.timestamp))
115
+
            then throw(((("Date cannot be in the past " + toString(lastBlock.timestamp)) + "    ") + toString(H)))
116
+
            else if (if ((r != h))
117
+
                then (r != i)
118
+
                else false)
119
+
                then throw("Asset must be only USDN or ULUS")
120
+
                else {
121
+
                    let N = getIntegerValue(this, f)
122
+
                    let O = getIntegerValue(this, g)
123
+
                    let P = fraction(q, N, O)
124
+
                    let D = (q - P)
125
+
                    let Q = if ((r == h))
126
+
                        then 1000000
127
+
                        else 1000
128
+
                    let R = fraction(q, 100, Q)
129
+
                    if (isDefined(getString(this, o)))
130
+
                        then {
131
+
                            let S = fromBase58String(getStringValue(this, o))
132
+
[ScriptTransfer(I, D, r), ScriptTransfer(k, P, r), ScriptTransfer(l.caller, R, i), ScriptTransfer(l.caller, 1, S)]
133
+
                            }
134
+
                        else [ScriptTransfer(I, D, r), ScriptTransfer(k, P, r), ScriptTransfer(l.caller, R, i)]
135
+
                    }
133
136
 
    }
134
137
 
135
138
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let a = "buy_ULUS_rate"
5
5
 
6
6
 
let b = "buy_ULUS_rate_scale_delimiter"
7
7
 
8
8
 
let c = "sell_ULUS_rate"
9
9
 
10
10
 
let d = "sell_ULUS_rate_scale_delimiter"
11
11
 
12
12
 
let e = "key_make_NFT_fee"
13
13
 
14
14
 
let f = "commission"
15
15
 
16
16
 
let g = "commission_scale_delimiter"
17
17
 
18
18
 
let h = base58'GPi1Q6QVgUmuomtThbim81hBYBEUWyf5BVmE4Tnd3sNg'
19
19
 
20
20
 
let i = base58'J74E8AHdZobVSkA3YboiRrxFUs4odMVxK8tGMg6QXA1n'
21
21
 
22
22
 
let j = h
23
23
 
24
24
 
let k = Address(base58'3N1yGG2mA3gTLxReAh84njeRvCBzvUbCccg')
25
25
 
26
26
 
@Callable(l)
27
27
 
func makeNFT (m,n,o) = {
28
28
 
    let p = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
29
29
 
    let q = p._1
30
30
 
    let r = p._2
31
31
 
    let s = getIntegerValue(this, e)
32
32
 
    if ((r != j))
33
33
 
        then throw("Asset must be USDN only")
34
34
 
        else if ((s > q))
35
35
 
            then throw(("Fee for make NFT token is " + toString(s)))
36
36
 
            else if (isDefined(getString(this, o)))
37
37
 
                then throw("NFT for this productId is already issued.")
38
38
 
                else {
39
39
 
                    let t = Issue(m, (((n + "[") + o) + "]"), 1, 0, false, unit, 0)
40
40
 
                    let u = calculateAssetId(t)
41
41
 
[t, StringEntry(o, toBase58String(u)), ScriptTransfer(k, q, r)]
42
42
 
                    }
43
43
 
    }
44
44
 
45
45
 
46
46
 
47
47
 
@Callable(l)
48
48
 
func setParams () = if ((l.caller != this))
49
49
 
    then throw("Only the DApp itself can call this function")
50
50
 
    else [IntegerEntry(a, 150000), IntegerEntry(b, 1000), IntegerEntry(c, 100000), IntegerEntry(d, 1000), IntegerEntry(f, 30000), IntegerEntry(g, 1000000), IntegerEntry(e, 1000000)]
51
51
 
52
52
 
53
53
 
54
54
 
@Callable(l)
55
55
 
func clearOldParams () = if ((l.caller != this))
56
56
 
    then throw("Only the DApp itself can call this function")
57
57
 
    else {
58
58
 
        let v = "buy_UWORLD_rate"
59
59
 
        let w = "buy_UWORLD_rate_scale_delimiter"
60
60
 
        let x = "sell_UWORLD_rate"
61
61
 
        let y = "sell_UWORLD_rate_scale_delimiter"
62
62
 
[DeleteEntry(v), DeleteEntry(w), DeleteEntry(x), DeleteEntry(y)]
63
63
 
        }
64
64
 
65
65
 
66
66
 
67
67
 
@Callable(l)
68
68
 
func buyULUS () = {
69
69
 
    let z = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
70
70
 
    let q = z._1
71
71
 
    let r = z._2
72
72
 
    if ((r != j))
73
73
 
        then throw("Asset must be USDN only")
74
74
 
        else {
75
75
 
            let A = getIntegerValue(this, a)
76
76
 
            let B = getIntegerValue(this, b)
77
77
 
            let C = fraction(q, B, A)
78
78
 
            let D = C
79
79
 
[ScriptTransfer(l.caller, D, i)]
80
80
 
            }
81
81
 
    }
82
82
 
83
83
 
84
84
 
85
85
 
@Callable(l)
86
86
 
func sellULUS () = {
87
87
 
    let E = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
88
88
 
    let q = E._1
89
89
 
    let r = E._2
90
90
 
    if ((r != i))
91
91
 
        then throw("Asset must be ULUS only")
92
92
 
        else {
93
93
 
            let A = getIntegerValue(this, c)
94
94
 
            let B = getIntegerValue(this, d)
95
95
 
            let C = fraction(q, A, B)
96
96
 
            let D = C
97
97
 
[ScriptTransfer(l.caller, D, h)]
98
98
 
            }
99
99
 
    }
100
100
 
101
101
 
102
102
 
103
103
 
@Callable(l)
104
-
func makePayment (F,o,G) = {
105
-
    let H = addressFromStringValue(F)
106
-
    let I = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
107
-
    let q = I._1
108
-
    let r = I._2
109
-
    let J = (makeString([toString(this), toString(q)], ";") + ";")
110
-
    let K = base58'5fJ73uaebbc12bwCegVoRZgNKfn4BqpH8NB8Rs2NpBmg'
111
-
    if (!(sigVerify_8Kb(toBytes(J), fromBase58String(G), K)))
112
-
        then throw(((("Invalid proof from backend =" + toBase58String(toBytes(J))) + "    ") + J))
113
-
        else if (if ((r != h))
114
-
            then (r != i)
115
-
            else false)
116
-
            then throw("Asset must be only USDN or ULUS")
117
-
            else {
118
-
                let L = getIntegerValue(this, f)
119
-
                let M = getIntegerValue(this, g)
120
-
                let N = fraction(q, L, M)
121
-
                let D = (q - N)
122
-
                let O = if ((r == h))
123
-
                    then 1000000
124
-
                    else 1000
125
-
                let P = fraction(q, 100, O)
126
-
                if (isDefined(getString(this, o)))
127
-
                    then {
128
-
                        let Q = fromBase58String(getStringValue(this, o))
129
-
[ScriptTransfer(H, D, r), ScriptTransfer(k, N, r), ScriptTransfer(l.caller, P, i), ScriptTransfer(l.caller, 1, Q)]
130
-
                        }
131
-
                    else [ScriptTransfer(H, D, r), ScriptTransfer(k, N, r), ScriptTransfer(l.caller, P, i)]
132
-
                }
104
+
func makePayment (F,o,G,H) = {
105
+
    let I = addressFromStringValue(F)
106
+
    let J = $Tuple2(l.payments[0].amount, l.payments[0].assetId)
107
+
    let q = J._1
108
+
    let r = J._2
109
+
    let K = (makeString([toString(this), toString(q)], ";") + ";")
110
+
    let L = base58'5fJ73uaebbc12bwCegVoRZgNKfn4BqpH8NB8Rs2NpBmg'
111
+
    let M = lastBlock.timestamp
112
+
    if (!(sigVerify_8Kb(toBytes(K), fromBase58String(G), L)))
113
+
        then throw(((("Invalid proof from backend =" + toBase58String(toBytes(K))) + "    ") + K))
114
+
        else if ((H != lastBlock.timestamp))
115
+
            then throw(((("Date cannot be in the past " + toString(lastBlock.timestamp)) + "    ") + toString(H)))
116
+
            else if (if ((r != h))
117
+
                then (r != i)
118
+
                else false)
119
+
                then throw("Asset must be only USDN or ULUS")
120
+
                else {
121
+
                    let N = getIntegerValue(this, f)
122
+
                    let O = getIntegerValue(this, g)
123
+
                    let P = fraction(q, N, O)
124
+
                    let D = (q - P)
125
+
                    let Q = if ((r == h))
126
+
                        then 1000000
127
+
                        else 1000
128
+
                    let R = fraction(q, 100, Q)
129
+
                    if (isDefined(getString(this, o)))
130
+
                        then {
131
+
                            let S = fromBase58String(getStringValue(this, o))
132
+
[ScriptTransfer(I, D, r), ScriptTransfer(k, P, r), ScriptTransfer(l.caller, R, i), ScriptTransfer(l.caller, 1, S)]
133
+
                            }
134
+
                        else [ScriptTransfer(I, D, r), ScriptTransfer(k, P, r), ScriptTransfer(l.caller, R, i)]
135
+
                    }
133
136
 
    }
134
137
 
135
138
 

github/deemru/w8io/026f985 
34.66 ms ◑