tx · 3CxaSG5WeqJHXscRW6WA58pULaWnfUDpwpLGf1YXdyU3

3NAGFVwpzyGaGLbR29hvXLnY3ysZmeWogdX:  -0.01000000 Waves

2022.05.18 11:58 [2056887] smart account 3NAGFVwpzyGaGLbR29hvXLnY3ysZmeWogdX > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "3CxaSG5WeqJHXscRW6WA58pULaWnfUDpwpLGf1YXdyU3",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1652864335805,
    "version": 2,
    "chainId": 84,
    "sender": "3NAGFVwpzyGaGLbR29hvXLnY3ysZmeWogdX",
    "senderPublicKey": "5qA7HQ72BFr7ggPCXMRPR5wx7Woi4RL8EZBGkRSbbF8Y",
    "proofs": [
        "3367eBYJNYCyhZVMkmvyQtyLmyr1RuwKLumDCrC59N9JkRAbcpWYBctyyiTDdd7vp3qvmwq3DuhUDLiCYYSqQVop"
    ],
    "script": "base64:AAIFAAAAAAAAAAwIAhIDCgEIEgMKAQEAAAAEAAAAAAxhbnN3ZXJzQ291bnQAAAAAAAAAABQAAAAAB2Fuc3dlcnMJAARMAAAAAgIAAAAOSXQgaXMgY2VydGFpbi4JAARMAAAAAgIAAAATSXQgaXMgZGVjaWRlZGx5IHNvLgkABEwAAAACAgAAABBXaXRob3V0IGEgZG91YnQuCQAETAAAAAICAAAAEVllcyAtIGRlZmluaXRlbHkuCQAETAAAAAICAAAAE1lvdSBtYXkgcmVseSBvbiBpdC4JAARMAAAAAgIAAAARQXMgSSBzZWUgaXQsIHllcy4JAARMAAAAAgIAAAAMTW9zdCBsaWtlbHkuCQAETAAAAAICAAAADU91dGxvb2sgZ29vZC4JAARMAAAAAgIAAAAEWWVzLgkABEwAAAACAgAAABNTaWducyBwb2ludCB0byB5ZXMuCQAETAAAAAICAAAAFlJlcGx5IGhhenksIHRyeSBhZ2Fpbi4JAARMAAAAAgIAAAAQQXNrIGFnYWluIGxhdGVyLgkABEwAAAACAgAAABhCZXR0ZXIgbm90IHRlbGwgeW91IG5vdy4JAARMAAAAAgIAAAATQ2Fubm90IHByZWRpY3Qgbm93LgkABEwAAAACAgAAABpDb25jZW50cmF0ZSBhbmQgYXNrIGFnYWluLgkABEwAAAACAgAAABJEb24ndCBjb3VudCBvbiBpdC4JAARMAAAAAgIAAAAPTXkgcmVwbHkgaXMgbm8uCQAETAAAAAICAAAAEk15IHNvdXJjZXMgc2F5IG5vLgkABEwAAAACAgAAABRPdXRsb29rIG5vdCBzbyBnb29kLgkABEwAAAACAgAAAA5WZXJ5IGRvdWJ0ZnVsLgUAAAADbmlsAQAAAAlnZXRBbnN3ZXIAAAACAAAACHF1ZXN0aW9uAAAADnByZXZpb3VzQW5zd2VyBAAAAARoYXNoCQAB9wAAAAEJAAGbAAAAAQkAASwAAAACBQAAAAhxdWVzdGlvbgUAAAAOcHJldmlvdXNBbnN3ZXIEAAAABWluZGV4CQAEsQAAAAEFAAAABGhhc2gJAAGRAAAAAgUAAAAHYW5zd2VycwkAAGoAAAACBQAAAAVpbmRleAUAAAAMYW5zd2Vyc0NvdW50AQAAABFnZXRQcmV2aW91c0Fuc3dlcgAAAAEAAAAHYWRkcmVzcwQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAR0aGlzCQABLAAAAAIFAAAAB2FkZHJlc3MCAAAAAl9hAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEFAAAAB2FkZHJlc3MAAAACAAAAAWkBAAAABnRlbGxtZQAAAAEAAAAIcXVlc3Rpb24EAAAADWNhbGxlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAFpAAAABmNhbGxlcgAAAAVieXRlcwQAAAAGYW5zd2VyCQEAAAAJZ2V0QW5zd2VyAAAAAgUAAAAIcXVlc3Rpb24JAQAAABFnZXRQcmV2aW91c0Fuc3dlcgAAAAEFAAAADWNhbGxlckFkZHJlc3MJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAA1jYWxsZXJBZGRyZXNzAgAAAAJfcQUAAAAIcXVlc3Rpb24JAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkAASwAAAACBQAAAA1jYWxsZXJBZGRyZXNzAgAAAAJfYQUAAAAGYW5zd2VyBQAAAANuaWwAAAABaQEAAAANcmVjdl9wYXltZW50cwAAAAEAAAAQcGF5bWVudHNfY291bnRlcgMJAABnAAAAAgUAAAAQcGF5bWVudHNfY291bnRlcgAAAAAAAAAAZAkABRQAAAACBQAAAANuaWwFAAAAEHBheW1lbnRzX2NvdW50ZXIEAAAAA3JlcwkAA/wAAAAEBQAAAAR0aGlzAgAAAA1yZWN2X3BheW1lbnRzCQAETAAAAAIJAABkAAAAAgUAAAAQcGF5bWVudHNfY291bnRlcgAAAAAAAAAAAgUAAAADbmlsCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAR1bml0AAAAAAAAAAABCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAR1bml0AAAAAAAAAAABCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAR1bml0AAAAAAAAAAABCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAR1bml0AAAAAAAAAAABCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAR1bml0AAAAAAAAAAABCQAETAAAAAIJAQAAAA9BdHRhY2hlZFBheW1lbnQAAAACBQAAAAR1bml0AAAAAAAAAAABBQAAAANuaWwDCQAAAAAAAAIFAAAAA3JlcwUAAAADcmVzCQAFFAAAAAIFAAAAA25pbAQAAAAHJG1hdGNoMAUAAAADcmVzAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAANJbnQEAAAAA3JlcwUAAAAHJG1hdGNoMAUAAAADcmVzAP//////////CQAAAgAAAAECAAAAJFN0cmljdCB2YWx1ZSBpcyBub3QgZXF1YWwgdG8gaXRzZWxmLgAAAAA0Ah6P",
    "height": 2056887,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 45cmeASYDQJrsPDKBBPmDe9JsyLKr9ssch3ZYPVuHBVR
Next: GsZVgVYzVkqUYWw7dWLdXDBns2F73HPrVvqjHPgwfTCr

Diff: 
Old
New
Differences
28
28
 
    }
29
29
 
30
30
 
31
+
32
+
@Callable(i)
33
+
func recv_payments (payments_counter) = if ((payments_counter >= 100))
34
+
    then $Tuple2(nil, payments_counter)
35
+
    else {
36
+
        let res = invoke(this, "recv_payments", [(payments_counter + 2)], [AttachedPayment(unit, 1), AttachedPayment(unit, 1), AttachedPayment(unit, 1), AttachedPayment(unit, 1), AttachedPayment(unit, 1), AttachedPayment(unit, 1)])
37
+
        if ((res == res))
38
+
            then $Tuple2(nil,             match res {
39
+
                case res: Int => 
40
+
                    res
41
+
                case _ => 
42
+
                    -1
43
+
            })
44
+
            else throw("Strict value is not equal to itself.")
45
+
        }
46
+
47
+

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 5 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let answersCount = 20
5
5
 
6
6
 
let answers = ["It is certain.", "It is decidedly so.", "Without a doubt.", "Yes - definitely.", "You may rely on it.", "As I see it, yes.", "Most likely.", "Outlook good.", "Yes.", "Signs point to yes.", "Reply hazy, try again.", "Ask again later.", "Better not tell you now.", "Cannot predict now.", "Concentrate and ask again.", "Don't count on it.", "My reply is no.", "My sources say no.", "Outlook not so good.", "Very doubtful."]
7
7
 
8
8
 
func getAnswer (question,previousAnswer) = {
9
9
 
    let hash = sha256(toBytes((question + previousAnswer)))
10
10
 
    let index = toInt(hash)
11
11
 
answers[(index % answersCount)]
12
12
 
    }
13
13
 
14
14
 
15
15
 
func getPreviousAnswer (address) = match getString(this, (address + "_a")) {
16
16
 
    case a: String => 
17
17
 
        a
18
18
 
    case _ => 
19
19
 
        address
20
20
 
}
21
21
 
22
22
 
23
23
 
@Callable(i)
24
24
 
func tellme (question) = {
25
25
 
    let callerAddress = toBase58String(i.caller.bytes)
26
26
 
    let answer = getAnswer(question, getPreviousAnswer(callerAddress))
27
27
 
[StringEntry((callerAddress + "_q"), question), StringEntry((callerAddress + "_a"), answer)]
28
28
 
    }
29
29
 
30
30
 
31
+
32
+
@Callable(i)
33
+
func recv_payments (payments_counter) = if ((payments_counter >= 100))
34
+
    then $Tuple2(nil, payments_counter)
35
+
    else {
36
+
        let res = invoke(this, "recv_payments", [(payments_counter + 2)], [AttachedPayment(unit, 1), AttachedPayment(unit, 1), AttachedPayment(unit, 1), AttachedPayment(unit, 1), AttachedPayment(unit, 1), AttachedPayment(unit, 1)])
37
+
        if ((res == res))
38
+
            then $Tuple2(nil,             match res {
39
+
                case res: Int => 
40
+
                    res
41
+
                case _ => 
42
+
                    -1
43
+
            })
44
+
            else throw("Strict value is not equal to itself.")
45
+
        }
46
+
47
+

github/deemru/w8io/169f3d6 
28.35 ms ◑