tx · 6Un94hdcteHYjTYtM4MuNwwNWvJVevqBRfrDZ8jSZXCQ

3NC28hSivrmsTUXaYD1x6L362J4ZpUnoTdB:  -0.01400000 Waves

2020.01.17 07:20 [857677] smart account 3NC28hSivrmsTUXaYD1x6L362J4ZpUnoTdB > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "6Un94hdcteHYjTYtM4MuNwwNWvJVevqBRfrDZ8jSZXCQ",
    "fee": 1400000,
    "feeAssetId": null,
    "timestamp": 1579234852646,
    "version": 1,
    "sender": "3NC28hSivrmsTUXaYD1x6L362J4ZpUnoTdB",
    "senderPublicKey": "Gd5NihbWQoWuTnSvq25TuV2BYZG4U1e9KDqZn9zBPix7",
    "proofs": [
        "4Kob2mKogxoBVpJtSUirxTritBGbWeDHwtEyJXQMhNRCxRignDMaEQUuNQ1d3MbtgkPxpziuUWQ7VRB5jUFNL9vc"
    ],
    "script": "base64:AAIDAAAAAAAAABEIARIGCgQICAgIEgUKAwgICAAAAAUAAAAACHZlcmlmaWVyCQEAAAAHZXh0cmFjdAAAAAEJAQAAABFhZGRyZXNzRnJvbVN0cmluZwAAAAECAAAAIzNOMnM1UnRhSFBCZW5Dc3gyRUNjb0ZSYllIeDNub1poWFcxAAAAAARiYW5rAgAAACMzTjFFNnRYZGRSb1ZhUmZROWRRM3ZnNUxhVzJmc2Q4SEt1YgEAAAAKY2hlY2tFbnRyeQAAAAIAAAAGcHJlZml4AAAABHV1aWQEAAAAByRtYXRjaDAJAAQdAAAAAgUAAAAEdGhpcwkAASwAAAACBQAAAAZwcmVmaXgFAAAABHV1aWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQIAAAAETk9ORQEAAAAJY2hlY2tVVUlEAAAAAQAAAAR1dWlkBAAAAAckbWF0Y2gwCQAEHQAAAAIFAAAABHRoaXMFAAAABHV1aWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQIAAAAETk9ORQEAAAASY2hlY2tJZldoaXRlTGlzdGVkAAAAAQAAAA1jYWxsZXJBZGRyZXNzBAAAAAckbWF0Y2gwCQAEGgAAAAIFAAAABHRoaXMJAAEsAAAAAgIAAAARYWRkcl9XSElURUxJU1RFRF8FAAAADWNhbGxlckFkZHJlc3MDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAABYQUAAAAHJG1hdGNoMAUAAAABYQAAAAAAAAAAAAAAAAIAAAAGaW52b2tlAQAAABFmaWxlQ2VydGlmaWNhdGlvbgAAAAQAAAAEaGFzaAAAAAV0aXRsZQAAAAR1dWlkAAAABGRhdGEEAAAAAmlkCQEAAAAHZXh0cmFjdAAAAAEIBQAAAAZpbnZva2UAAAANdHJhbnNhY3Rpb25JZAQAAAAKZW50cnlFeGlzdAkBAAAACmNoZWNrRW50cnkAAAACBQAAAARoYXNoBQAAAAR1dWlkBAAAAAl1dWlkRXhpc3QJAQAAAAljaGVja1VVSUQAAAABBQAAAAR1dWlkBAAAAA1jYWxsZXJBZGRyZXNzCQACWAAAAAEICAUAAAAGaW52b2tlAAAABmNhbGxlcgAAAAVieXRlcwQAAAAWY2FsbGVySXNXaGl0ZUxpc3RlZE51bQkBAAAAEmNoZWNrSWZXaGl0ZUxpc3RlZAAAAAEFAAAADWNhbGxlckFkZHJlc3MDCQEAAAACIT0AAAACBQAAAAplbnRyeUV4aXN0AgAAAAROT05FCQAAAgAAAAECAAAAGFRoaXMgZW50cnkgYWxyZWFkeSBleGlzdAMJAQAAAAIhPQAAAAIFAAAACXV1aWRFeGlzdAIAAAAETk9ORQkAAAIAAAABAgAAABdUaGlzIHV1aWQgYWxyZWFkeSBleGlzdAMJAABmAAAAAgkAATEAAAABBQAAAAR1dWlkAAAAAAAAAAAkCQAAAgAAAAECAAAAEFV1aWQgaXMgdG9vIGxvbmcDCQAAZgAAAAIJAAExAAAAAQUAAAAEaGFzaAAAAAAAAAAAQAkAAAIAAAABAgAAABBIYXNoIGlzIHRvbyBsb25nAwkAAGYAAAACCQABMQAAAAEFAAAABXRpdGxlAAAAAAAAAABACQAAAgAAAAECAAAAEVRpdGxlIGlzIHRvbyBsb25nAwkAAGYAAAACBQAAABZjYWxsZXJJc1doaXRlTGlzdGVkTnVtAAAAAAAAAAAACQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAEdXVpZAkAAlgAAAABBQAAAAJpZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAARoYXNoBQAAAAR1dWlkCQACWAAAAAEFAAAAAmlkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIFAAAABXRpdGxlBQAAAAR1dWlkCQACWAAAAAEFAAAAAmlkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAEWFkZHJfV0hJVEVMSVNURURfBQAAAA1jYWxsZXJBZGRyZXNzCQAAZQAAAAIFAAAAFmNhbGxlcklzV2hpdGVMaXN0ZWROdW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACGRhdGFfZmNfCQACWAAAAAEFAAAAAmlkAgAAAAFfBQAAAA1jYWxsZXJBZGRyZXNzBQAAAARkYXRhBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAABmludm9rZQAAAAZjYWxsZXIAAAAAAAAHoSAFAAAABHVuaXQFAAAAA25pbAQAAAAHcGF5bWVudAkBAAAAB2V4dHJhY3QAAAABCAUAAAAGaW52b2tlAAAAB3BheW1lbnQEAAAABmFtb3VudAkBAAAAB2V4dHJhY3QAAAABCAUAAAAHcGF5bWVudAAAAAZhbW91bnQEAAAADnBheW1lbnRBc3NldElkAwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAdwYXltZW50AAAAB2Fzc2V0SWQJAQAAAAdleHRyYWN0AAAAAQgFAAAAB3BheW1lbnQAAAAHYXNzZXRJZAkAAAIAAAABAgAAACBXYXZlcyBpcyBub3QgYWNjZXB0ZWQgYXMgcGF5bWVudAQAAAANYWNjZXB0ZWRUb2tlbgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAh2ZXJpZmllcgkAASwAAAACAgAAABF3aGl0ZV9saXN0X3Rva2VuXwkAAlgAAAABCQEAAAAHZXh0cmFjdAAAAAEFAAAADnBheW1lbnRBc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEJAAACAAAAAQIAAAAoVGhpcyB0b2tlbiBpcyBub3QgYWNjZXB0ZWQgYXQgdGhlIG1vbWVudAQAAAAMY3VycmVudFByaWNlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAh2ZXJpZmllcgkAASwAAAACAgAAABJjZXJ0aWZpY2F0aW9uX2ZlZV8JAAJYAAAAAQkBAAAAB2V4dHJhY3QAAAABBQAAAA5wYXltZW50QXNzZXRJZAMJAQAAAAIhPQAAAAIFAAAADWFjY2VwdGVkVG9rZW4CAAAAC1dISVRFTElTVEVECQAAAgAAAAECAAAAKFRoaXMgdG9rZW4gaXMgbm90IGFjY2VwdGVkIGF0IHRoZSBtb21lbnQDAwkBAAAAAiE9AAAAAgUAAAAGYW1vdW50BQAAAAxjdXJyZW50UHJpY2UJAABnAAAAAgAAAAAAAAAAAAUAAAAWY2FsbGVySXNXaGl0ZUxpc3RlZE51bQcJAAACAAAAAQIAAAASVGhlIHByaWNlIGlzIHdyb25nCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAEdXVpZAkAAlgAAAABBQAAAAJpZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAARoYXNoBQAAAAR1dWlkCQACWAAAAAEFAAAAAmlkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIFAAAABXRpdGxlBQAAAAR1dWlkCQACWAAAAAEFAAAAAmlkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAhkYXRhX2ZjXwkAAlgAAAABBQAAAAJpZAIAAAABXwUAAAANY2FsbGVyQWRkcmVzcwUAAAAEZGF0YQUAAAADbmlsCQEAAAALVHJhbnNmZXJTZXQAAAABCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABxAZXh0clVzZXIoYWRkcmVzc0Zyb21TdHJpbmcpAAAAAQUAAAAEYmFuawUAAAAGYW1vdW50CAUAAAAHcGF5bWVudAAAAAdhc3NldElkBQAAAANuaWwAAAAGaW52b2tlAQAAABJlbWFpbENlcnRpZmljYXRpb24AAAADAAAACW1lc3NhZ2VpZAAAAAR1dWlkAAAABGRhdGEEAAAAAmlkCQEAAAAHZXh0cmFjdAAAAAEIBQAAAAZpbnZva2UAAAANdHJhbnNhY3Rpb25JZAQAAAAKZW50cnlFeGlzdAkBAAAACmNoZWNrRW50cnkAAAACBQAAAAltZXNzYWdlaWQFAAAABHV1aWQEAAAACXV1aWRFeGlzdAkBAAAACWNoZWNrVVVJRAAAAAEFAAAABHV1aWQEAAAADWNhbGxlckFkZHJlc3MJAAJYAAAAAQgIBQAAAAZpbnZva2UAAAAGY2FsbGVyAAAABWJ5dGVzBAAAABZjYWxsZXJJc1doaXRlTGlzdGVkTnVtCQEAAAASY2hlY2tJZldoaXRlTGlzdGVkAAAAAQUAAAANY2FsbGVyQWRkcmVzcwMJAQAAAAIhPQAAAAIFAAAACmVudHJ5RXhpc3QCAAAABE5PTkUJAAACAAAAAQIAAAAYVGhpcyBlbnRyeSBhbHJlYWR5IGV4aXN0AwkBAAAAAiE9AAAAAgUAAAAJdXVpZEV4aXN0AgAAAAROT05FCQAAAgAAAAECAAAAF1RoaXMgdXVpZCBhbHJlYWR5IGV4aXN0AwkAAGYAAAACCQABMQAAAAEFAAAABHV1aWQAAAAAAAAAACQJAAACAAAAAQIAAAAQVXVpZCBpcyB0b28gbG9uZwMJAABmAAAAAgUAAAAWY2FsbGVySXNXaGl0ZUxpc3RlZE51bQAAAAAAAAAAAAkBAAAADFNjcmlwdFJlc3VsdAAAAAIJAQAAAAhXcml0ZVNldAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIFAAAABHV1aWQJAAJYAAAAAQUAAAACaWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgUAAAAJbWVzc2FnZWlkBQAAAAR1dWlkCQACWAAAAAEFAAAAAmlkCQAETAAAAAIJAQAAAAlEYXRhRW50cnkAAAACCQABLAAAAAICAAAAEWFkZHJfV0hJVEVMSVNURURfBQAAAA1jYWxsZXJBZGRyZXNzCQAAZQAAAAIFAAAAFmNhbGxlcklzV2hpdGVMaXN0ZWROdW0AAAAAAAAAAAEJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACGRhdGFfZWNfCQACWAAAAAEFAAAAAmlkAgAAAAFfBQAAAA1jYWxsZXJBZGRyZXNzBQAAAARkYXRhBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwgFAAAABmludm9rZQAAAAZjYWxsZXIAAAAAAAAHoSAFAAAABHVuaXQFAAAAA25pbAQAAAAHcGF5bWVudAkBAAAAB2V4dHJhY3QAAAABCAUAAAAGaW52b2tlAAAAB3BheW1lbnQEAAAABmFtb3VudAkBAAAAB2V4dHJhY3QAAAABCAUAAAAHcGF5bWVudAAAAAZhbW91bnQEAAAADnBheW1lbnRBc3NldElkAwkBAAAACWlzRGVmaW5lZAAAAAEIBQAAAAdwYXltZW50AAAAB2Fzc2V0SWQJAQAAAAdleHRyYWN0AAAAAQgFAAAAB3BheW1lbnQAAAAHYXNzZXRJZAkAAAIAAAABAgAAACBXYXZlcyBpcyBub3QgYWNjZXB0ZWQgYXMgcGF5bWVudAQAAAANYWNjZXB0ZWRUb2tlbgQAAAAHJG1hdGNoMAkABB0AAAACBQAAAAh2ZXJpZmllcgkAASwAAAACAgAAABF3aGl0ZV9saXN0X3Rva2VuXwkAAlgAAAABCQEAAAAHZXh0cmFjdAAAAAEFAAAADnBheW1lbnRBc3NldElkAwkAAAEAAAACBQAAAAckbWF0Y2gwAgAAAAZTdHJpbmcEAAAAAWEFAAAAByRtYXRjaDAFAAAAAWEJAAACAAAAAQIAAAAoVGhpcyB0b2tlbiBpcyBub3QgYWNjZXB0ZWQgYXQgdGhlIG1vbWVudAQAAAAMY3VycmVudFByaWNlCQEAAAARQGV4dHJOYXRpdmUoMTA1MCkAAAACBQAAAAh2ZXJpZmllcgkAASwAAAACAgAAABJjZXJ0aWZpY2F0aW9uX2ZlZV8JAAJYAAAAAQkBAAAAB2V4dHJhY3QAAAABBQAAAA5wYXltZW50QXNzZXRJZAMJAQAAAAIhPQAAAAIFAAAADWFjY2VwdGVkVG9rZW4CAAAAC1dISVRFTElTVEVECQAAAgAAAAECAAAAKFRoaXMgdG9rZW4gaXMgbm90IGFjY2VwdGVkIGF0IHRoZSBtb21lbnQDAwkBAAAAAiE9AAAAAgUAAAAGYW1vdW50BQAAAAxjdXJyZW50UHJpY2UJAABnAAAAAgAAAAAAAAAAAAUAAAAWY2FsbGVySXNXaGl0ZUxpc3RlZE51bQcJAAACAAAAAQIAAAASVGhlIHByaWNlIGlzIHdyb25nCQEAAAAMU2NyaXB0UmVzdWx0AAAAAgkBAAAACFdyaXRlU2V0AAAAAQkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgUAAAAEdXVpZAkAAlgAAAABBQAAAAJpZAkABEwAAAACCQEAAAAJRGF0YUVudHJ5AAAAAgkAASwAAAACBQAAAAltZXNzYWdlaWQFAAAABHV1aWQJAAJYAAAAAQUAAAACaWQJAARMAAAAAgkBAAAACURhdGFFbnRyeQAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAACGRhdGFfZWNfCQACWAAAAAEFAAAAAmlkAgAAAAFfBQAAAA1jYWxsZXJBZGRyZXNzBQAAAARkYXRhBQAAAANuaWwJAQAAAAtUcmFuc2ZlclNldAAAAAEJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAHEBleHRyVXNlcihhZGRyZXNzRnJvbVN0cmluZykAAAABBQAAAARiYW5rBQAAAAZhbW91bnQIBQAAAAdwYXltZW50AAAAB2Fzc2V0SWQFAAAAA25pbAAAAACLtr4A",
    "chainId": 84,
    "height": 857677,
    "spentComplexity": 0
}

View: original | compacted
Prev: 9ARKRCdVBTtFf7FnRHKMnRjsYhaQScvgxPN7H8tf95oX
Next: 6Pwbo6XCYEVXHwQFSgd52y96HPwXGJzgNyPmunPoTepz

Diff: 
Old
New
Differences
5
5
 
6
6
 
let b = "3N1E6tXddRoVaRfQ9dQ3vg5LaW2fsd8HKub"
7
7
 
8
-
@Callable(c)
9
-
func fileCertification (d,e,f,g) = {
10
-
    let h = extract(c.transactionId)
11
-
    let i = {
12
-
        let j = getString(this, (d + f))
13
-
        if ($isInstanceOf(j, "String"))
14
-
            then {
15
-
                let k = j
16
-
                k
17
-
                }
18
-
            else "NONE"
19
-
        }
20
-
    let l = {
21
-
        let j = getString(this, f)
22
-
        if ($isInstanceOf(j, "String"))
23
-
            then {
24
-
                let k = j
25
-
                k
26
-
                }
27
-
            else "NONE"
28
-
        }
29
-
    let m = toBase58String(c.caller.bytes)
30
-
    let n = {
31
-
        let j = getInteger(this, ("addr_WHITELISTED_" + m))
32
-
        if ($isInstanceOf(j, "Int"))
33
-
            then {
34
-
                let k = j
35
-
                k
36
-
                }
37
-
            else 0
38
-
        }
39
-
    if ((i != "NONE"))
8
+
func c (d,e) = {
9
+
    let f = getString(this, (d + e))
10
+
    if ($isInstanceOf(f, "String"))
11
+
        then {
12
+
            let g = f
13
+
            g
14
+
            }
15
+
        else "NONE"
16
+
    }
17
+
18
+
19
+
func h (e) = {
20
+
    let f = getString(this, e)
21
+
    if ($isInstanceOf(f, "String"))
22
+
        then {
23
+
            let g = f
24
+
            g
25
+
            }
26
+
        else "NONE"
27
+
    }
28
+
29
+
30
+
func i (j) = {
31
+
    let f = getInteger(this, ("addr_WHITELISTED_" + j))
32
+
    if ($isInstanceOf(f, "Int"))
33
+
        then {
34
+
            let g = f
35
+
            g
36
+
            }
37
+
        else 0
38
+
    }
39
+
40
+
41
+
@Callable(k)
42
+
func fileCertification (l,m,e,n) = {
43
+
    let o = extract(k.transactionId)
44
+
    let p = c(l, e)
45
+
    let q = h(e)
46
+
    let j = toBase58String(k.caller.bytes)
47
+
    let r = i(j)
48
+
    if ((p != "NONE"))
40
49
 
        then throw("This entry already exist")
41
-
        else if ((l != "NONE"))
50
+
        else if ((q != "NONE"))
42
51
 
            then throw("This uuid already exist")
43
-
            else if ((size(f) > 36))
52
+
            else if ((size(e) > 36))
44
53
 
                then throw("Uuid is too long")
45
-
                else if ((size(d) > 64))
54
+
                else if ((size(l) > 64))
46
55
 
                    then throw("Hash is too long")
47
-
                    else if ((size(e) > 64))
56
+
                    else if ((size(m) > 64))
48
57
 
                        then throw("Title is too long")
49
-
                        else if ((n > 0))
50
-
                            then ScriptResult(WriteSet([DataEntry(f, toBase58String(h)), DataEntry((d + f), toBase58String(h)), DataEntry((e + f), toBase58String(h)), DataEntry(("addr_WHITELISTED_" + m), (n - 1)), DataEntry(((("data_fc_" + toBase58String(h)) + "_") + m), g)]), TransferSet([ScriptTransfer(c.caller, 500000, unit)]))
58
+
                        else if ((r > 0))
59
+
                            then ScriptResult(WriteSet([DataEntry(e, toBase58String(o)), DataEntry((l + e), toBase58String(o)), DataEntry((m + e), toBase58String(o)), DataEntry(("addr_WHITELISTED_" + j), (r - 1)), DataEntry(((("data_fc_" + toBase58String(o)) + "_") + j), n)]), TransferSet([ScriptTransfer(k.caller, 500000, unit)]))
51
60
 
                            else {
52
-
                                let o = extract(c.payment)
53
-
                                let p = extract(o.amount)
54
-
                                let q = if (isDefined(o.assetId))
55
-
                                    then extract(o.assetId)
61
+
                                let s = extract(k.payment)
62
+
                                let t = extract(s.amount)
63
+
                                let u = if (isDefined(s.assetId))
64
+
                                    then extract(s.assetId)
56
65
 
                                    else throw("Waves is not accepted as payment")
57
-
                                let r = {
58
-
                                    let j = getString(a, ("white_list_token_" + toBase58String(extract(q))))
59
-
                                    if ($isInstanceOf(j, "String"))
66
+
                                let v = {
67
+
                                    let f = getString(a, ("white_list_token_" + toBase58String(extract(u))))
68
+
                                    if ($isInstanceOf(f, "String"))
60
69
 
                                        then {
61
-
                                            let k = j
62
-
                                            k
70
+
                                            let g = f
71
+
                                            g
63
72
 
                                            }
64
73
 
                                        else throw("This token is not accepted at the moment")
65
74
 
                                    }
66
-
                                let s = getIntegerValue(a, ("certification_fee_" + toBase58String(extract(q))))
67
-
                                if ((r != "WHITELISTED"))
75
+
                                let w = getIntegerValue(a, ("certification_fee_" + toBase58String(extract(u))))
76
+
                                if ((v != "WHITELISTED"))
68
77
 
                                    then throw("This token is not accepted at the moment")
69
-
                                    else if (if ((p != s))
70
-
                                        then (0 >= n)
78
+
                                    else if (if ((t != w))
79
+
                                        then (0 >= r)
71
80
 
                                        else false)
72
81
 
                                        then throw("The price is wrong")
73
-
                                        else ScriptResult(WriteSet([DataEntry(f, toBase58String(h)), DataEntry((d + f), toBase58String(h)), DataEntry((e + f), toBase58String(h)), DataEntry(((("data_fc_" + toBase58String(h)) + "_") + m), g)]), TransferSet([ScriptTransfer(addressFromStringValue(b), p, o.assetId)]))
82
+
                                        else ScriptResult(WriteSet([DataEntry(e, toBase58String(o)), DataEntry((l + e), toBase58String(o)), DataEntry((m + e), toBase58String(o)), DataEntry(((("data_fc_" + toBase58String(o)) + "_") + j), n)]), TransferSet([ScriptTransfer(addressFromStringValue(b), t, s.assetId)]))
74
83
 
                                }
75
84
 
    }
76
85
 
77
86
 
78
87
 
79
-
@Callable(c)
80
-
func emailCertification (t,f,g) = {
81
-
    let h = extract(c.transactionId)
82
-
    let i = {
83
-
        let j = getString(this, (t + f))
84
-
        if ($isInstanceOf(j, "String"))
85
-
            then {
86
-
                let k = j
87
-
                k
88
-
                }
89
-
            else "NONE"
90
-
        }
91
-
    let l = {
92
-
        let j = getString(this, f)
93
-
        if ($isInstanceOf(j, "String"))
94
-
            then {
95
-
                let k = j
96
-
                k
97
-
                }
98
-
            else "NONE"
99
-
        }
100
-
    let m = toBase58String(c.caller.bytes)
101
-
    let n = {
102
-
        let j = getInteger(this, ("addr_WHITELISTED_" + m))
103
-
        if ($isInstanceOf(j, "Int"))
104
-
            then {
105
-
                let k = j
106
-
                k
107
-
                }
108
-
            else 0
109
-
        }
110
-
    if ((i != "NONE"))
88
+
@Callable(k)
89
+
func emailCertification (x,e,n) = {
90
+
    let o = extract(k.transactionId)
91
+
    let p = c(x, e)
92
+
    let q = h(e)
93
+
    let j = toBase58String(k.caller.bytes)
94
+
    let r = i(j)
95
+
    if ((p != "NONE"))
111
96
 
        then throw("This entry already exist")
112
-
        else if ((l != "NONE"))
97
+
        else if ((q != "NONE"))
113
98
 
            then throw("This uuid already exist")
114
-
            else if ((size(f) > 36))
99
+
            else if ((size(e) > 36))
115
100
 
                then throw("Uuid is too long")
116
-
                else if ((n > 0))
117
-
                    then ScriptResult(WriteSet([DataEntry(f, toBase58String(h)), DataEntry((t + f), toBase58String(h)), DataEntry(("addr_WHITELISTED_" + m), (n - 1)), DataEntry(((("data_ec_" + toBase58String(h)) + "_") + m), g)]), TransferSet([ScriptTransfer(c.caller, 500000, unit)]))
101
+
                else if ((r > 0))
102
+
                    then ScriptResult(WriteSet([DataEntry(e, toBase58String(o)), DataEntry((x + e), toBase58String(o)), DataEntry(("addr_WHITELISTED_" + j), (r - 1)), DataEntry(((("data_ec_" + toBase58String(o)) + "_") + j), n)]), TransferSet([ScriptTransfer(k.caller, 500000, unit)]))
118
103
 
                    else {
119
-
                        let o = extract(c.payment)
120
-
                        let p = extract(o.amount)
121
-
                        let q = if (isDefined(o.assetId))
122
-
                            then extract(o.assetId)
104
+
                        let s = extract(k.payment)
105
+
                        let t = extract(s.amount)
106
+
                        let u = if (isDefined(s.assetId))
107
+
                            then extract(s.assetId)
123
108
 
                            else throw("Waves is not accepted as payment")
124
-
                        let r = {
125
-
                            let j = getString(a, ("white_list_token_" + toBase58String(extract(q))))
126
-
                            if ($isInstanceOf(j, "String"))
109
+
                        let v = {
110
+
                            let f = getString(a, ("white_list_token_" + toBase58String(extract(u))))
111
+
                            if ($isInstanceOf(f, "String"))
127
112
 
                                then {
128
-
                                    let k = j
129
-
                                    k
113
+
                                    let g = f
114
+
                                    g
130
115
 
                                    }
131
116
 
                                else throw("This token is not accepted at the moment")
132
117
 
                            }
133
-
                        let s = getIntegerValue(a, ("certification_fee_" + toBase58String(extract(q))))
134
-
                        if ((r != "WHITELISTED"))
118
+
                        let w = getIntegerValue(a, ("certification_fee_" + toBase58String(extract(u))))
119
+
                        if ((v != "WHITELISTED"))
135
120
 
                            then throw("This token is not accepted at the moment")
136
-
                            else if (if ((p != s))
137
-
                                then (0 >= n)
121
+
                            else if (if ((t != w))
122
+
                                then (0 >= r)
138
123
 
                                else false)
139
124
 
                                then throw("The price is wrong")
140
-
                                else ScriptResult(WriteSet([DataEntry(f, toBase58String(h)), DataEntry((t + f), toBase58String(h)), DataEntry(((("data_ec_" + toBase58String(h)) + "_") + m), g)]), TransferSet([ScriptTransfer(addressFromStringValue(b), p, o.assetId)]))
125
+
                                else ScriptResult(WriteSet([DataEntry(e, toBase58String(o)), DataEntry((x + e), toBase58String(o)), DataEntry(((("data_ec_" + toBase58String(o)) + "_") + j), n)]), TransferSet([ScriptTransfer(addressFromStringValue(b), t, s.assetId)]))
141
126
 
                        }
142
127
 
    }
143
128
 

Full: 
Old
New
Differences
1
1
 
{-# STDLIB_VERSION 3 #-}
2
2
 
{-# SCRIPT_TYPE ACCOUNT #-}
3
3
 
{-# CONTENT_TYPE DAPP #-}
4
4
 
let a = extract(addressFromString("3N2s5RtaHPBenCsx2ECcoFRbYHx3noZhXW1"))
5
5
 
6
6
 
let b = "3N1E6tXddRoVaRfQ9dQ3vg5LaW2fsd8HKub"
7
7
 
8
-
@Callable(c)
9
-
func fileCertification (d,e,f,g) = {
10
-
    let h = extract(c.transactionId)
11
-
    let i = {
12
-
        let j = getString(this, (d + f))
13
-
        if ($isInstanceOf(j, "String"))
14
-
            then {
15
-
                let k = j
16
-
                k
17
-
                }
18
-
            else "NONE"
19
-
        }
20
-
    let l = {
21
-
        let j = getString(this, f)
22
-
        if ($isInstanceOf(j, "String"))
23
-
            then {
24
-
                let k = j
25
-
                k
26
-
                }
27
-
            else "NONE"
28
-
        }
29
-
    let m = toBase58String(c.caller.bytes)
30
-
    let n = {
31
-
        let j = getInteger(this, ("addr_WHITELISTED_" + m))
32
-
        if ($isInstanceOf(j, "Int"))
33
-
            then {
34
-
                let k = j
35
-
                k
36
-
                }
37
-
            else 0
38
-
        }
39
-
    if ((i != "NONE"))
8
+
func c (d,e) = {
9
+
    let f = getString(this, (d + e))
10
+
    if ($isInstanceOf(f, "String"))
11
+
        then {
12
+
            let g = f
13
+
            g
14
+
            }
15
+
        else "NONE"
16
+
    }
17
+
18
+
19
+
func h (e) = {
20
+
    let f = getString(this, e)
21
+
    if ($isInstanceOf(f, "String"))
22
+
        then {
23
+
            let g = f
24
+
            g
25
+
            }
26
+
        else "NONE"
27
+
    }
28
+
29
+
30
+
func i (j) = {
31
+
    let f = getInteger(this, ("addr_WHITELISTED_" + j))
32
+
    if ($isInstanceOf(f, "Int"))
33
+
        then {
34
+
            let g = f
35
+
            g
36
+
            }
37
+
        else 0
38
+
    }
39
+
40
+
41
+
@Callable(k)
42
+
func fileCertification (l,m,e,n) = {
43
+
    let o = extract(k.transactionId)
44
+
    let p = c(l, e)
45
+
    let q = h(e)
46
+
    let j = toBase58String(k.caller.bytes)
47
+
    let r = i(j)
48
+
    if ((p != "NONE"))
40
49
 
        then throw("This entry already exist")
41
-
        else if ((l != "NONE"))
50
+
        else if ((q != "NONE"))
42
51
 
            then throw("This uuid already exist")
43
-
            else if ((size(f) > 36))
52
+
            else if ((size(e) > 36))
44
53
 
                then throw("Uuid is too long")
45
-
                else if ((size(d) > 64))
54
+
                else if ((size(l) > 64))
46
55
 
                    then throw("Hash is too long")
47
-
                    else if ((size(e) > 64))
56
+
                    else if ((size(m) > 64))
48
57
 
                        then throw("Title is too long")
49
-
                        else if ((n > 0))
50
-
                            then ScriptResult(WriteSet([DataEntry(f, toBase58String(h)), DataEntry((d + f), toBase58String(h)), DataEntry((e + f), toBase58String(h)), DataEntry(("addr_WHITELISTED_" + m), (n - 1)), DataEntry(((("data_fc_" + toBase58String(h)) + "_") + m), g)]), TransferSet([ScriptTransfer(c.caller, 500000, unit)]))
58
+
                        else if ((r > 0))
59
+
                            then ScriptResult(WriteSet([DataEntry(e, toBase58String(o)), DataEntry((l + e), toBase58String(o)), DataEntry((m + e), toBase58String(o)), DataEntry(("addr_WHITELISTED_" + j), (r - 1)), DataEntry(((("data_fc_" + toBase58String(o)) + "_") + j), n)]), TransferSet([ScriptTransfer(k.caller, 500000, unit)]))
51
60
 
                            else {
52
-
                                let o = extract(c.payment)
53
-
                                let p = extract(o.amount)
54
-
                                let q = if (isDefined(o.assetId))
55
-
                                    then extract(o.assetId)
61
+
                                let s = extract(k.payment)
62
+
                                let t = extract(s.amount)
63
+
                                let u = if (isDefined(s.assetId))
64
+
                                    then extract(s.assetId)
56
65
 
                                    else throw("Waves is not accepted as payment")
57
-
                                let r = {
58
-
                                    let j = getString(a, ("white_list_token_" + toBase58String(extract(q))))
59
-
                                    if ($isInstanceOf(j, "String"))
66
+
                                let v = {
67
+
                                    let f = getString(a, ("white_list_token_" + toBase58String(extract(u))))
68
+
                                    if ($isInstanceOf(f, "String"))
60
69
 
                                        then {
61
-
                                            let k = j
62
-
                                            k
70
+
                                            let g = f
71
+
                                            g
63
72
 
                                            }
64
73
 
                                        else throw("This token is not accepted at the moment")
65
74
 
                                    }
66
-
                                let s = getIntegerValue(a, ("certification_fee_" + toBase58String(extract(q))))
67
-
                                if ((r != "WHITELISTED"))
75
+
                                let w = getIntegerValue(a, ("certification_fee_" + toBase58String(extract(u))))
76
+
                                if ((v != "WHITELISTED"))
68
77
 
                                    then throw("This token is not accepted at the moment")
69
-
                                    else if (if ((p != s))
70
-
                                        then (0 >= n)
78
+
                                    else if (if ((t != w))
79
+
                                        then (0 >= r)
71
80
 
                                        else false)
72
81
 
                                        then throw("The price is wrong")
73
-
                                        else ScriptResult(WriteSet([DataEntry(f, toBase58String(h)), DataEntry((d + f), toBase58String(h)), DataEntry((e + f), toBase58String(h)), DataEntry(((("data_fc_" + toBase58String(h)) + "_") + m), g)]), TransferSet([ScriptTransfer(addressFromStringValue(b), p, o.assetId)]))
82
+
                                        else ScriptResult(WriteSet([DataEntry(e, toBase58String(o)), DataEntry((l + e), toBase58String(o)), DataEntry((m + e), toBase58String(o)), DataEntry(((("data_fc_" + toBase58String(o)) + "_") + j), n)]), TransferSet([ScriptTransfer(addressFromStringValue(b), t, s.assetId)]))
74
83
 
                                }
75
84
 
    }
76
85
 
77
86
 
78
87
 
79
-
@Callable(c)
80
-
func emailCertification (t,f,g) = {
81
-
    let h = extract(c.transactionId)
82
-
    let i = {
83
-
        let j = getString(this, (t + f))
84
-
        if ($isInstanceOf(j, "String"))
85
-
            then {
86
-
                let k = j
87
-
                k
88
-
                }
89
-
            else "NONE"
90
-
        }
91
-
    let l = {
92
-
        let j = getString(this, f)
93
-
        if ($isInstanceOf(j, "String"))
94
-
            then {
95
-
                let k = j
96
-
                k
97
-
                }
98
-
            else "NONE"
99
-
        }
100
-
    let m = toBase58String(c.caller.bytes)
101
-
    let n = {
102
-
        let j = getInteger(this, ("addr_WHITELISTED_" + m))
103
-
        if ($isInstanceOf(j, "Int"))
104
-
            then {
105
-
                let k = j
106
-
                k
107
-
                }
108
-
            else 0
109
-
        }
110
-
    if ((i != "NONE"))
88
+
@Callable(k)
89
+
func emailCertification (x,e,n) = {
90
+
    let o = extract(k.transactionId)
91
+
    let p = c(x, e)
92
+
    let q = h(e)
93
+
    let j = toBase58String(k.caller.bytes)
94
+
    let r = i(j)
95
+
    if ((p != "NONE"))
111
96
 
        then throw("This entry already exist")
112
-
        else if ((l != "NONE"))
97
+
        else if ((q != "NONE"))
113
98
 
            then throw("This uuid already exist")
114
-
            else if ((size(f) > 36))
99
+
            else if ((size(e) > 36))
115
100
 
                then throw("Uuid is too long")
116
-
                else if ((n > 0))
117
-
                    then ScriptResult(WriteSet([DataEntry(f, toBase58String(h)), DataEntry((t + f), toBase58String(h)), DataEntry(("addr_WHITELISTED_" + m), (n - 1)), DataEntry(((("data_ec_" + toBase58String(h)) + "_") + m), g)]), TransferSet([ScriptTransfer(c.caller, 500000, unit)]))
101
+
                else if ((r > 0))
102
+
                    then ScriptResult(WriteSet([DataEntry(e, toBase58String(o)), DataEntry((x + e), toBase58String(o)), DataEntry(("addr_WHITELISTED_" + j), (r - 1)), DataEntry(((("data_ec_" + toBase58String(o)) + "_") + j), n)]), TransferSet([ScriptTransfer(k.caller, 500000, unit)]))
118
103
 
                    else {
119
-
                        let o = extract(c.payment)
120
-
                        let p = extract(o.amount)
121
-
                        let q = if (isDefined(o.assetId))
122
-
                            then extract(o.assetId)
104
+
                        let s = extract(k.payment)
105
+
                        let t = extract(s.amount)
106
+
                        let u = if (isDefined(s.assetId))
107
+
                            then extract(s.assetId)
123
108
 
                            else throw("Waves is not accepted as payment")
124
-
                        let r = {
125
-
                            let j = getString(a, ("white_list_token_" + toBase58String(extract(q))))
126
-
                            if ($isInstanceOf(j, "String"))
109
+
                        let v = {
110
+
                            let f = getString(a, ("white_list_token_" + toBase58String(extract(u))))
111
+
                            if ($isInstanceOf(f, "String"))
127
112
 
                                then {
128
-
                                    let k = j
129
-
                                    k
113
+
                                    let g = f
114
+
                                    g
130
115
 
                                    }
131
116
 
                                else throw("This token is not accepted at the moment")
132
117
 
                            }
133
-
                        let s = getIntegerValue(a, ("certification_fee_" + toBase58String(extract(q))))
134
-
                        if ((r != "WHITELISTED"))
118
+
                        let w = getIntegerValue(a, ("certification_fee_" + toBase58String(extract(u))))
119
+
                        if ((v != "WHITELISTED"))
135
120
 
                            then throw("This token is not accepted at the moment")
136
-
                            else if (if ((p != s))
137
-
                                then (0 >= n)
121
+
                            else if (if ((t != w))
122
+
                                then (0 >= r)
138
123
 
                                else false)
139
124
 
                                then throw("The price is wrong")
140
-
                                else ScriptResult(WriteSet([DataEntry(f, toBase58String(h)), DataEntry((t + f), toBase58String(h)), DataEntry(((("data_ec_" + toBase58String(h)) + "_") + m), g)]), TransferSet([ScriptTransfer(addressFromStringValue(b), p, o.assetId)]))
125
+
                                else ScriptResult(WriteSet([DataEntry(e, toBase58String(o)), DataEntry((x + e), toBase58String(o)), DataEntry(((("data_ec_" + toBase58String(o)) + "_") + j), n)]), TransferSet([ScriptTransfer(addressFromStringValue(b), t, s.assetId)]))
141
126
 
                        }
142
127
 
    }
143
128
 
144
129
 

github/deemru/w8io/3ef1775 
114.60 ms ◑