tx · 5bMmoE5vpNH2SqebiNvzDAg8dfcW3GzRvhVH4mHoYPur

3MvP7BWqZinx23VpQeJBrhL4nED8MWdtcRh:  -0.01000000 Waves

2022.10.15 11:22 [2273211] smart account 3MvP7BWqZinx23VpQeJBrhL4nED8MWdtcRh > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "5bMmoE5vpNH2SqebiNvzDAg8dfcW3GzRvhVH4mHoYPur",
    "fee": 1000000,
    "feeAssetId": null,
    "timestamp": 1665822161381,
    "version": 2,
    "chainId": 84,
    "sender": "3MvP7BWqZinx23VpQeJBrhL4nED8MWdtcRh",
    "senderPublicKey": "7BvYKnVkbABXoQwqVQAsEXRQN9bt7H7QxxhXqMhW44oa",
    "proofs": [
        "3n8pvsMbP3HSePJS2mMaBoEFEJiLcH2WZdqt3eAYunZfkZZqHRg9EHHR49WntNw5LJHHUv62aK2j8aEoEBTd93GV"
    ],
    "script": "base64:AAIFAAAAAAAAACkIAhIECgIICBIDCgEIEgQKAggIEgMKAQgSAwoBCBIFCgMICAgSAwoBCAAAABYBAAAAEGdldFN0cmluZ09yVGhyb3cAAAACAAAAB2FkZHJlc3MAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAHYWRkcmVzcwUAAAADa2V5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAxDYW4ndCByZWFkICcFAAAAA2tleQIAAAANJyBhdCBhZGRyZXNzIAkABCUAAAABBQAAAAdhZGRyZXNzAQAAABFnZXRJbnRlZ2VyT3JUaHJvdwAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAADENhbid0IHJlYWQgJwUAAAADa2V5AgAAAA0nIGF0IGFkZHJlc3MgCQAEJQAAAAEFAAAAB2FkZHJlc3MBAAAAE3BhcnNlQWRkcmVzc09yVGhyb3cAAAABAAAADG1heWJlQWRkcmVzcwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEFAAAADG1heWJlQWRkcmVzcwkAASwAAAACCQABLAAAAAICAAAAGkNhbid0IHBhcnNlIGFkZHJlc3MgZnJvbSAnBQAAAAxtYXliZUFkZHJlc3MCAAAAAScBAAAACmtleV9lbnRpdHkAAAADAAAABG5hbWUAAAACcGsAAAAIcHJvcGVydHkJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAEbmFtZQIAAAABXwUAAAACcGsCAAAAAV8FAAAACHByb3BlcnR5AQAAAA5rZXlfTmFtZV9vd25lcgAAAAEAAAAEbm9kZQkBAAAACmtleV9lbnRpdHkAAAADAgAAAAROYW1lBQAAAARub2RlAgAAAAVvd25lcgEAAAARa2V5X05hbWVfcmVzb2x2ZXIAAAABAAAABG5vZGUJAQAAAAprZXlfZW50aXR5AAAAAwIAAAAETmFtZQUAAAAEbm9kZQIAAAAIcmVzb2x2ZXIBAAAAEmtleV9OYW1lX2NyZWF0ZWRBdAAAAAEAAAAEbm9kZQkBAAAACmtleV9lbnRpdHkAAAADAgAAAAROYW1lBQAAAARub2RlAgAAAAljcmVhdGVkQXQBAAAACV9nZXRPd25lcgAAAAEAAAAEbm9kZQkABB0AAAACBQAAAAR0aGlzCQEAAAAOa2V5X05hbWVfb3duZXIAAAABBQAAAARub2RlAQAAAAlfc2V0T3duZXIAAAACAAAABG5vZGUAAAAFb3duZXIJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAADmtleV9OYW1lX293bmVyAAAAAQUAAAAEbm9kZQUAAAAFb3duZXIFAAAAA25pbAEAAAAMX2dldFJlc29sdmVyAAAAAQAAAARub2RlCQAEHQAAAAIFAAAABHRoaXMJAQAAABFrZXlfTmFtZV9yZXNvbHZlcgAAAAEFAAAABG5vZGUBAAAADF9zZXRSZXNvbHZlcgAAAAIAAAAEbm9kZQAAAAhyZXNvbHZlcgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAARa2V5X05hbWVfcmVzb2x2ZXIAAAABBQAAAARub2RlBQAAAAhyZXNvbHZlcgUAAAADbmlsAQAAAA1fZ2V0Q3JlYXRlZEF0AAAAAQAAAARub2RlCQAEGgAAAAIFAAAABHRoaXMJAQAAABJrZXlfTmFtZV9jcmVhdGVkQXQAAAABBQAAAARub2RlAQAAAA1fc2V0Q3JlYXRlZEF0AAAAAgAAAARub2RlAAAACWNyZWF0ZWRBdAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAEmtleV9OYW1lX2NyZWF0ZWRBdAAAAAEFAAAABG5vZGUFAAAACWNyZWF0ZWRBdAUAAAADbmlsAQAAAAdpc0FkbWluAAAAAQAAAANpbnYJAAAAAAAAAggFAAAAA2ludgAAAAZjYWxsZXIFAAAABHRoaXMBAAAAB2lzT3duZXIAAAACAAAAA2ludgAAAARub2RlCQAAAAAAAAIJAAQlAAAAAQgFAAAAA2ludgAAAAZjYWxsZXIJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAlfZ2V0T3duZXIAAAABBQAAAARub2RlAgAAAAABAAAAD19zcGxpdExhc3RMYWJlbAAAAAEAAAAEbmFtZQQAAAAGbGFiZWxzCQAEtQAAAAIFAAAABG5hbWUCAAAAAS4EAAAACWxhc3RJbmRleAkAAGUAAAACCQABkAAAAAEFAAAABmxhYmVscwAAAAAAAAAAAQQAAAAJbGFzdExhYmVsCQABkQAAAAIFAAAABmxhYmVscwUAAAAJbGFzdEluZGV4BAAAAApyZXN0TGFiZWxzCQAEuQAAAAIJAARRAAAAAgUAAAAGbGFiZWxzBQAAAAlsYXN0SW5kZXgCAAAAAS4JAAUUAAAAAgUAAAAJbGFzdExhYmVsBQAAAApyZXN0TGFiZWxzAQAAABtfc3VwcG9ydGVkSW50ZXJmYWNlQXNTdHJpbmcAAAADAAAACnJlZ2lzdHJhbnQAAAALaW50ZXJmYWNlSWQAAAAKcmVzdExhYmVscwQAAAAHJG1hdGNoMAkAA/wAAAAEBQAAAApyZWdpc3RyYW50AgAAABFzdXBwb3J0c0ludGVyZmFjZQkABEwAAAACBQAAAAtpbnRlcmZhY2VJZAUAAAADbmlsBQAAAANuaWwDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAB0Jvb2xlYW4EAAAAEXN1cHBvcnRzSW50ZXJmYWNlBQAAAAckbWF0Y2gwAwkBAAAAASEAAAABBQAAABFzdXBwb3J0c0ludGVyZmFjZQUAAAAEdW5pdAQAAAAHJG1hdGNoMQkAA/wAAAAECQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50BQAAAAtpbnRlcmZhY2VJZAkABEwAAAACBQAAAApyZXN0TGFiZWxzBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAAHJG1hdGNoMQIAAAAGU3RyaW5nBAAAAAttYXlCZVN0cmluZwUAAAAHJG1hdGNoMQUAAAALbWF5QmVTdHJpbmcFAAAABHVuaXQFAAAABHVuaXQBAAAAGF9zdXBwb3J0ZWRJbnRlcmZhY2VBc0ludAAAAAMAAAAKcmVnaXN0cmFudAAAAAtpbnRlcmZhY2VJZAAAAApyZXN0TGFiZWxzBAAAAAckbWF0Y2gwCQAD/AAAAAQFAAAACnJlZ2lzdHJhbnQCAAAAEXN1cHBvcnRzSW50ZXJmYWNlCQAETAAAAAIFAAAAC2ludGVyZmFjZUlkBQAAAANuaWwFAAAAA25pbAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAHQm9vbGVhbgQAAAARc3VwcG9ydHNJbnRlcmZhY2UFAAAAByRtYXRjaDADCQEAAAABIQAAAAEFAAAAEXN1cHBvcnRzSW50ZXJmYWNlBQAAAAR1bml0BAAAAAckbWF0Y2gxCQAD/AAAAAQJAQAAAAV2YWx1ZQAAAAEFAAAACnJlZ2lzdHJhbnQFAAAAC2ludGVyZmFjZUlkCQAETAAAAAIFAAAACnJlc3RMYWJlbHMFAAAAA25pbAUAAAADbmlsAwkAAAEAAAACBQAAAAckbWF0Y2gxAgAAAANJbnQEAAAACG1heUJlSW50BQAAAAckbWF0Y2gxBQAAAAhtYXlCZUludAUAAAAEdW5pdAUAAAAEdW5pdAEAAAAJbW9kaWZpZXJzAAAAAQAAAAt2YWxpZGF0aW9ucwUAAAAEdW5pdAEAAAAJb25seUFkbWluAAAAAQAAAANpbnYDCQEAAAAHaXNBZG1pbgAAAAEFAAAAA2ludgUAAAAEdW5pdAkAAAIAAAABAgAAABFQZXJtaXNzaW9uIGRlbmllZAEAAAAJb25seU93bmVyAAAAAgAAAANpbnYAAAAEbm9kZQMDCQEAAAAHaXNBZG1pbgAAAAEFAAAAA2ludgYJAQAAAAdpc093bmVyAAAAAgUAAAADaW52BQAAAARub2RlBQAAAAR1bml0CQAAAgAAAAECAAAAEVBlcm1pc3Npb24gZGVuaWVkAQAAAAx2YWxpZEFkZHJlc3MAAAABAAAAB2FkZHJlc3MDCQEAAAAJaXNEZWZpbmVkAAAAAQkABCYAAAABBQAAAAdhZGRyZXNzBQAAAAR1bml0CQAAAgAAAAECAAAAGVRoZSBhZGRyZXNzIG11c3QgYmUgdmFsaWQAAAAHAAAAA2ludgEAAAAIc2V0T3duZXIAAAACAAAABG5vZGUAAAAFb3duZXIJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAltb2RpZmllcnMAAAABCQAETAAAAAIJAQAAAAlvbmx5T3duZXIAAAACBQAAAANpbnYFAAAABG5vZGUJAARMAAAAAgkBAAAADHZhbGlkQWRkcmVzcwAAAAEFAAAABW93bmVyBQAAAANuaWwJAQAAAAlfc2V0T3duZXIAAAACBQAAAARub2RlBQAAAAVvd25lcgAAAANpbnYBAAAABW93bmVyAAAAAQAAAARub2RlCQAFFAAAAAIFAAAAA25pbAkBAAAACV9nZXRPd25lcgAAAAEFAAAABG5vZGUAAAADaW52AQAAAAtzZXRSZXNvbHZlcgAAAAIAAAAEbm9kZQAAAAhyZXNvbHZlcgkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkBAAAACW1vZGlmaWVycwAAAAEJAARMAAAAAgkBAAAACW9ubHlPd25lcgAAAAIFAAAAA2ludgUAAAAEbm9kZQkABEwAAAACCQEAAAAMdmFsaWRBZGRyZXNzAAAAAQUAAAAIcmVzb2x2ZXIFAAAAA25pbAkBAAAADF9zZXRSZXNvbHZlcgAAAAIFAAAABG5vZGUFAAAACHJlc29sdmVyAAAAA2ludgEAAAAIcmVzb2x2ZXIAAAABAAAABG5vZGUJAAUUAAAAAgUAAAADbmlsCQEAAAAMX2dldFJlc29sdmVyAAAAAQUAAAAEbm9kZQAAAANpbnYBAAAAC25hbWVDcmVhdGVkAAAAAQAAAARub2RlCQAFFAAAAAIFAAAAA25pbAkBAAAADV9nZXRDcmVhdGVkQXQAAAABBQAAAARub2RlAAAAA2ludgEAAAAJc2V0UmVjb3JkAAAAAwAAAARub2RlAAAABW93bmVyAAAACHJlc29sdmVyCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACCQEAAAAJb25seUFkbWluAAAAAQUAAAADaW52BQAAAANuaWwJAAROAAAAAgkABE4AAAACCQEAAAAJX3NldE93bmVyAAAAAgUAAAAEbm9kZQUAAAAFb3duZXIJAQAAAAxfc2V0UmVzb2x2ZXIAAAACBQAAAARub2RlBQAAAAhyZXNvbHZlcgkBAAAADV9zZXRDcmVhdGVkQXQAAAACBQAAAARub2RlCAUAAAAJbGFzdEJsb2NrAAAACXRpbWVzdGFtcAAAAANpbnYBAAAABXdob0lzAAAAAQAAAARuYW1lCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACAwkAAGYAAAACCQABMQAAAAEFAAAABG5hbWUAAAAAAAAAAAAFAAAABHVuaXQJAAACAAAAAQIAAAAUTmFtZSBjYW5ub3QgYmUgZW1wdHkFAAAAA25pbAQAAAALJHQwNDYzMDQ2ODEJAQAAAA9fc3BsaXRMYXN0TGFiZWwAAAABBQAAAARuYW1lBAAAAAlsYXN0TGFiZWwIBQAAAAskdDA0NjMwNDY4MQAAAAJfMQQAAAAKcmVzdExhYmVscwgFAAAACyR0MDQ2MzA0NjgxAAAAAl8yBAAAABFyZWdpc3RyYW50QWRkcmVzcwkBAAAACV9nZXRPd25lcgAAAAEFAAAACWxhc3RMYWJlbAQAAAAKcmVnaXN0cmFudAQAAAAHJG1hdGNoMAUAAAARcmVnaXN0cmFudEFkZHJlc3MDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAAFb3duZXIFAAAAByRtYXRjaDAJAAQmAAAAAQUAAAAFb3duZXIFAAAABHVuaXQEAAAADnBhcmVudFJlc29sdmVyCQEAAAAMX2dldFJlc29sdmVyAAAAAQUAAAAJbGFzdExhYmVsBAAAAA1wYXJlbnRDcmVhdGVkCQEAAAANX2dldENyZWF0ZWRBdAAAAAEFAAAACWxhc3RMYWJlbAQAAAAFb3duZXIJAQAAABtfc3VwcG9ydGVkSW50ZXJmYWNlQXNTdHJpbmcAAAADCQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50AgAAAAVvd25lcgUAAAAKcmVzdExhYmVscwQAAAAIcmVzb2x2ZXIJAQAAABtfc3VwcG9ydGVkSW50ZXJmYWNlQXNTdHJpbmcAAAADCQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50AgAAAAhyZXNvbHZlcgUAAAAKcmVzdExhYmVscwQAAAALbmFtZUNyZWF0ZWQJAQAAABhfc3VwcG9ydGVkSW50ZXJmYWNlQXNJbnQAAAADCQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50AgAAAAtuYW1lQ3JlYXRlZAUAAAAKcmVzdExhYmVscwQAAAALbmFtZUV4cGlyZXMJAQAAABhfc3VwcG9ydGVkSW50ZXJmYWNlQXNJbnQAAAADCQEAAAAFdmFsdWUAAAABBQAAAApyZWdpc3RyYW50AgAAAAtuYW1lRXhwaXJlcwUAAAAKcmVzdExhYmVscwQAAAAKaXNSb290TmFtZQMJAABmAAAAAgkAATEAAAABBQAAAAlsYXN0TGFiZWwAAAAAAAAAAAAJAAAAAAAAAgkAATEAAAABBQAAAApyZXN0TGFiZWxzAAAAAAAAAAAABwMDBQAAAAppc1Jvb3ROYW1lBgkBAAAAASEAAAABCQEAAAAJaXNEZWZpbmVkAAAAAQUAAAAKcmVnaXN0cmFudAkABRQAAAACBQAAAANuaWwJAAUWAAAABAUAAAARcmVnaXN0cmFudEFkZHJlc3MFAAAADnBhcmVudFJlc29sdmVyBQAAAA1wYXJlbnRDcmVhdGVkBQAAAAR1bml0CQAFFAAAAAIFAAAAA25pbAkABRYAAAAEBAAAAAckbWF0Y2gwBQAAAAVvd25lcgMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAAVvd25lcgUAAAAHJG1hdGNoMAUAAAAFb3duZXIFAAAAEXJlZ2lzdHJhbnRBZGRyZXNzBQAAAAhyZXNvbHZlcgQAAAAHJG1hdGNoMAUAAAALbmFtZUNyZWF0ZWQDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAALbmFtZUNyZWF0ZWQFAAAAByRtYXRjaDAFAAAAC25hbWVDcmVhdGVkBQAAAA1wYXJlbnRDcmVhdGVkBQAAAAtuYW1lRXhwaXJlcwAAAACYazCa",
    "height": 2273211,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: 3bXXarVuUSHbqrTTkZYSMzuc2eEz3i8cqT8bdTSNwQt2
Next: C7dbVgEFPuRXVkvwwKsXg3onKyisN33eWkMS8TSuwL5k

Diff: 

OldNewDifferences
44 func a (b,c) = valueOrErrorMessage(getString(b, c), ((("Can't read '" + c) + "' at address ") + toString(b)))
55 
66 
7-func d (e) = valueOrErrorMessage(addressFromString(e), (("Can't parse address from '" + e) + "'"))
7+func d (b,c) = valueOrErrorMessage(getInteger(b, c), ((("Can't read '" + c) + "' at address ") + toString(b)))
88 
99 
10-let f = "registry"
11-
12-let g = d(a(this, f))
13-
14-func h (i) = (i.caller == this)
10+func e (f) = valueOrErrorMessage(addressFromString(f), (("Can't parse address from '" + f) + "'"))
1511 
1612 
17-func j (k) = unit
13+func g (h,i,j) = ((((h + "_") + i) + "_") + j)
1814 
1915 
20-func l (i) = if (h(i))
16+func k (l) = g("Name", l, "owner")
17+
18+
19+func m (l) = g("Name", l, "resolver")
20+
21+
22+func n (l) = g("Name", l, "createdAt")
23+
24+
25+func o (l) = getString(this, k(l))
26+
27+
28+func p (l,q) = [StringEntry(k(l), q)]
29+
30+
31+func r (l) = getString(this, m(l))
32+
33+
34+func s (l,t) = [StringEntry(m(l), t)]
35+
36+
37+func u (l) = getInteger(this, n(l))
38+
39+
40+func v (l,w) = [IntegerEntry(n(l), w)]
41+
42+
43+func x (y) = (y.caller == this)
44+
45+
46+func z (y,l) = (toString(y.caller) == valueOrElse(o(l), ""))
47+
48+
49+func A (h) = {
50+    let B = split(h, ".")
51+    let C = (size(B) - 1)
52+    let D = B[C]
53+    let E = makeString(removeByIndex(B, C), ".")
54+    $Tuple2(D, E)
55+    }
56+
57+
58+func F (G,H,E) = {
59+    let I = invoke(G, "supportsInterface", [H], nil)
60+    if ($isInstanceOf(I, "Boolean"))
61+        then {
62+            let J = I
63+            if (!(J))
64+                then unit
65+                else {
66+                    let K = invoke(value(G), H, [E], nil)
67+                    if ($isInstanceOf(K, "String"))
68+                        then {
69+                            let L = K
70+                            L
71+                            }
72+                        else unit
73+                    }
74+            }
75+        else unit
76+    }
77+
78+
79+func M (G,H,E) = {
80+    let I = invoke(G, "supportsInterface", [H], nil)
81+    if ($isInstanceOf(I, "Boolean"))
82+        then {
83+            let J = I
84+            if (!(J))
85+                then unit
86+                else {
87+                    let K = invoke(value(G), H, [E], nil)
88+                    if ($isInstanceOf(K, "Int"))
89+                        then {
90+                            let N = K
91+                            N
92+                            }
93+                        else unit
94+                    }
95+            }
96+        else unit
97+    }
98+
99+
100+func O (P) = unit
101+
102+
103+func Q (y) = if (x(y))
21104     then unit
22105     else throw("Permission denied")
23106 
24107 
25-func m (n) = {
26-    let o = split(n, ".")
27-    let p = (size(o) - 1)
28-    let q = o[p]
29-    let r = makeString(removeByIndex(o, p), ".")
30-    $Tuple2(q, r)
31-    }
108+func R (y,l) = if (if (x(y))
109+    then true
110+    else z(y, l))
111+    then unit
112+    else throw("Permission denied")
32113 
33114 
34-func s (n) = {
35-    let t = m(n)
36-    let q = t._1
37-    let r = t._2
38-    if ((size(r) == 0))
39-        then $Tuple2(unit, n)
40-        else {
41-            let u = invoke(g, "resolver", [q], nil)
42-            if ($isInstanceOf(u, "String"))
43-                then {
44-                    let v = u
45-                    $Tuple2(addressFromString(v), r)
46-                    }
47-                else $Tuple2(unit, n)
48-            }
49-    }
115+func S (b) = if (isDefined(addressFromString(b)))
116+    then unit
117+    else throw("The address must be valid")
50118 
51119 
52-@Callable(i)
53-func init (w) = valueOrElse(j([l(i)]), [StringEntry(f, w)])
120+@Callable(y)
121+func setOwner (l,q) = valueOrElse(O([R(y, l), S(q)]), p(l, q))
54122 
55123 
56124 
57-@Callable(i)
58-func resolve (n,x) = valueOrElse(j([if ((size(n) > 0))
125+@Callable(y)
126+func owner (l) = $Tuple2(nil, o(l))
127+
128+
129+
130+@Callable(y)
131+func setResolver (l,t) = valueOrElse(O([R(y, l), S(t)]), s(l, t))
132+
133+
134+
135+@Callable(y)
136+func resolver (l) = $Tuple2(nil, r(l))
137+
138+
139+
140+@Callable(y)
141+func nameCreated (l) = $Tuple2(nil, u(l))
142+
143+
144+
145+@Callable(y)
146+func setRecord (l,q,t) = valueOrElse(O([Q(y)]), ((p(l, q) ++ s(l, t)) ++ v(l, lastBlock.timestamp)))
147+
148+
149+
150+@Callable(y)
151+func whoIs (h) = valueOrElse(O([if ((size(h) > 0))
59152     then unit
60-    else throw("Name cannot be empty"), if ((size(x) > 0))
61-    then unit
62-    else throw("Call data cannot be empty")]), {
63-    let y = s(n)
64-    let z = y._1
65-    let r = y._2
66-    let A = {
67-        let u = x
68-        if (("addr" == u))
69-            then $Tuple2("addr", [value(r)])
70-            else $Tuple2(unit, unit)
153+    else throw("Name cannot be empty")]), {
154+    let T = A(h)
155+    let D = T._1
156+    let E = T._2
157+    let U = o(D)
158+    let G = {
159+        let I = U
160+        if ($isInstanceOf(I, "String"))
161+            then {
162+                let q = I
163+                addressFromString(q)
164+                }
165+            else unit
71166         }
72-    let B = A._1
73-    let C = A._2
74-    let D = if (!(isDefined(z)))
75-        then false
76-        else {
77-            let u = invoke(value(z), "supportsInterface", [x], nil)
78-            if ($isInstanceOf(u, "Boolean"))
167+    let V = r(D)
168+    let W = u(D)
169+    let q = F(value(G), "owner", E)
170+    let t = F(value(G), "resolver", E)
171+    let X = M(value(G), "nameCreated", E)
172+    let Y = M(value(G), "nameExpires", E)
173+    let Z = if ((size(D) > 0))
174+        then (size(E) == 0)
175+        else false
176+    if (if (Z)
177+        then true
178+        else !(isDefined(G)))
179+        then $Tuple2(nil, $Tuple4(U, V, W, unit))
180+        else $Tuple2(nil, $Tuple4({
181+            let I = q
182+            if ($isInstanceOf(I, "String"))
79183                 then {
80-                    let D = u
81-                    D
184+                    let q = I
185+                    q
82186                     }
83-                else false
84-            }
85-    $Tuple2(nil, if (!(D))
86-        then unit
87-        else {
88-            let u = invoke(value(z), value(B), value(C), nil)
89-            if ($isInstanceOf(u, "String"))
187+                else U
188+            }, t, {
189+            let I = X
190+            if ($isInstanceOf(I, "Int"))
90191                 then {
91-                    let E = u
92-                    E
192+                    let X = I
193+                    X
93194                     }
94-                else unit
95-            })
195+                else W
196+            }, Y))
96197     })
97198 
98199 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 func a (b,c) = valueOrErrorMessage(getString(b, c), ((("Can't read '" + c) + "' at address ") + toString(b)))
55 
66 
7-func d (e) = valueOrErrorMessage(addressFromString(e), (("Can't parse address from '" + e) + "'"))
7+func d (b,c) = valueOrErrorMessage(getInteger(b, c), ((("Can't read '" + c) + "' at address ") + toString(b)))
88 
99 
10-let f = "registry"
11-
12-let g = d(a(this, f))
13-
14-func h (i) = (i.caller == this)
10+func e (f) = valueOrErrorMessage(addressFromString(f), (("Can't parse address from '" + f) + "'"))
1511 
1612 
17-func j (k) = unit
13+func g (h,i,j) = ((((h + "_") + i) + "_") + j)
1814 
1915 
20-func l (i) = if (h(i))
16+func k (l) = g("Name", l, "owner")
17+
18+
19+func m (l) = g("Name", l, "resolver")
20+
21+
22+func n (l) = g("Name", l, "createdAt")
23+
24+
25+func o (l) = getString(this, k(l))
26+
27+
28+func p (l,q) = [StringEntry(k(l), q)]
29+
30+
31+func r (l) = getString(this, m(l))
32+
33+
34+func s (l,t) = [StringEntry(m(l), t)]
35+
36+
37+func u (l) = getInteger(this, n(l))
38+
39+
40+func v (l,w) = [IntegerEntry(n(l), w)]
41+
42+
43+func x (y) = (y.caller == this)
44+
45+
46+func z (y,l) = (toString(y.caller) == valueOrElse(o(l), ""))
47+
48+
49+func A (h) = {
50+    let B = split(h, ".")
51+    let C = (size(B) - 1)
52+    let D = B[C]
53+    let E = makeString(removeByIndex(B, C), ".")
54+    $Tuple2(D, E)
55+    }
56+
57+
58+func F (G,H,E) = {
59+    let I = invoke(G, "supportsInterface", [H], nil)
60+    if ($isInstanceOf(I, "Boolean"))
61+        then {
62+            let J = I
63+            if (!(J))
64+                then unit
65+                else {
66+                    let K = invoke(value(G), H, [E], nil)
67+                    if ($isInstanceOf(K, "String"))
68+                        then {
69+                            let L = K
70+                            L
71+                            }
72+                        else unit
73+                    }
74+            }
75+        else unit
76+    }
77+
78+
79+func M (G,H,E) = {
80+    let I = invoke(G, "supportsInterface", [H], nil)
81+    if ($isInstanceOf(I, "Boolean"))
82+        then {
83+            let J = I
84+            if (!(J))
85+                then unit
86+                else {
87+                    let K = invoke(value(G), H, [E], nil)
88+                    if ($isInstanceOf(K, "Int"))
89+                        then {
90+                            let N = K
91+                            N
92+                            }
93+                        else unit
94+                    }
95+            }
96+        else unit
97+    }
98+
99+
100+func O (P) = unit
101+
102+
103+func Q (y) = if (x(y))
21104     then unit
22105     else throw("Permission denied")
23106 
24107 
25-func m (n) = {
26-    let o = split(n, ".")
27-    let p = (size(o) - 1)
28-    let q = o[p]
29-    let r = makeString(removeByIndex(o, p), ".")
30-    $Tuple2(q, r)
31-    }
108+func R (y,l) = if (if (x(y))
109+    then true
110+    else z(y, l))
111+    then unit
112+    else throw("Permission denied")
32113 
33114 
34-func s (n) = {
35-    let t = m(n)
36-    let q = t._1
37-    let r = t._2
38-    if ((size(r) == 0))
39-        then $Tuple2(unit, n)
40-        else {
41-            let u = invoke(g, "resolver", [q], nil)
42-            if ($isInstanceOf(u, "String"))
43-                then {
44-                    let v = u
45-                    $Tuple2(addressFromString(v), r)
46-                    }
47-                else $Tuple2(unit, n)
48-            }
49-    }
115+func S (b) = if (isDefined(addressFromString(b)))
116+    then unit
117+    else throw("The address must be valid")
50118 
51119 
52-@Callable(i)
53-func init (w) = valueOrElse(j([l(i)]), [StringEntry(f, w)])
120+@Callable(y)
121+func setOwner (l,q) = valueOrElse(O([R(y, l), S(q)]), p(l, q))
54122 
55123 
56124 
57-@Callable(i)
58-func resolve (n,x) = valueOrElse(j([if ((size(n) > 0))
125+@Callable(y)
126+func owner (l) = $Tuple2(nil, o(l))
127+
128+
129+
130+@Callable(y)
131+func setResolver (l,t) = valueOrElse(O([R(y, l), S(t)]), s(l, t))
132+
133+
134+
135+@Callable(y)
136+func resolver (l) = $Tuple2(nil, r(l))
137+
138+
139+
140+@Callable(y)
141+func nameCreated (l) = $Tuple2(nil, u(l))
142+
143+
144+
145+@Callable(y)
146+func setRecord (l,q,t) = valueOrElse(O([Q(y)]), ((p(l, q) ++ s(l, t)) ++ v(l, lastBlock.timestamp)))
147+
148+
149+
150+@Callable(y)
151+func whoIs (h) = valueOrElse(O([if ((size(h) > 0))
59152     then unit
60-    else throw("Name cannot be empty"), if ((size(x) > 0))
61-    then unit
62-    else throw("Call data cannot be empty")]), {
63-    let y = s(n)
64-    let z = y._1
65-    let r = y._2
66-    let A = {
67-        let u = x
68-        if (("addr" == u))
69-            then $Tuple2("addr", [value(r)])
70-            else $Tuple2(unit, unit)
153+    else throw("Name cannot be empty")]), {
154+    let T = A(h)
155+    let D = T._1
156+    let E = T._2
157+    let U = o(D)
158+    let G = {
159+        let I = U
160+        if ($isInstanceOf(I, "String"))
161+            then {
162+                let q = I
163+                addressFromString(q)
164+                }
165+            else unit
71166         }
72-    let B = A._1
73-    let C = A._2
74-    let D = if (!(isDefined(z)))
75-        then false
76-        else {
77-            let u = invoke(value(z), "supportsInterface", [x], nil)
78-            if ($isInstanceOf(u, "Boolean"))
167+    let V = r(D)
168+    let W = u(D)
169+    let q = F(value(G), "owner", E)
170+    let t = F(value(G), "resolver", E)
171+    let X = M(value(G), "nameCreated", E)
172+    let Y = M(value(G), "nameExpires", E)
173+    let Z = if ((size(D) > 0))
174+        then (size(E) == 0)
175+        else false
176+    if (if (Z)
177+        then true
178+        else !(isDefined(G)))
179+        then $Tuple2(nil, $Tuple4(U, V, W, unit))
180+        else $Tuple2(nil, $Tuple4({
181+            let I = q
182+            if ($isInstanceOf(I, "String"))
79183                 then {
80-                    let D = u
81-                    D
184+                    let q = I
185+                    q
82186                     }
83-                else false
84-            }
85-    $Tuple2(nil, if (!(D))
86-        then unit
87-        else {
88-            let u = invoke(value(z), value(B), value(C), nil)
89-            if ($isInstanceOf(u, "String"))
187+                else U
188+            }, t, {
189+            let I = X
190+            if ($isInstanceOf(I, "Int"))
90191                 then {
91-                    let E = u
92-                    E
192+                    let X = I
193+                    X
93194                     }
94-                else unit
95-            })
195+                else W
196+            }, Y))
96197     })
97198 
98199 
github/deemru/w8io/169f3d6 
39.75 ms ◑