tx · GimJVshKznLByzmpTeYDp2tUz6hxBzVNwuKrAA4HBHGU

3MvrXJVzDMDcshazxn88FybxHV2JvWQBxTc:  -0.01200000 Waves

2022.10.17 13:24 [2276246] smart account 3MvrXJVzDMDcshazxn88FybxHV2JvWQBxTc > SELF 0.00000000 Waves

{
    "type": 13,
    "id": "GimJVshKznLByzmpTeYDp2tUz6hxBzVNwuKrAA4HBHGU",
    "fee": 1200000,
    "feeAssetId": null,
    "timestamp": 1666002288606,
    "version": 2,
    "chainId": 84,
    "sender": "3MvrXJVzDMDcshazxn88FybxHV2JvWQBxTc",
    "senderPublicKey": "Fq8P5ctrS7PNTX37bWWxvnwoB7C2FaNySZWnRmgPUaDH",
    "proofs": [
        "5oUMn4Xh7m1eyUQMP4foVMGWhhJFGjctUKVXkvqndnTSKrxuLZwa5q7fCbFv2Gee8394sYMVZXhMiWUsvmZgm51o"
    ],
    "script": "base64:AAIFAAAAAAAAAEEIAhIDCgEBEgMKAQgSAwoBCBIDCgEIEgMKAQgSAwoBCBIDCgEIEgQKAggIEgMKAQgSAwoBCBIFCgMICAESAwoBCAAAACgBAAAAEGdldFN0cmluZ09yVGhyb3cAAAACAAAAB2FkZHJlc3MAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQdAAAAAgUAAAAHYWRkcmVzcwUAAAADa2V5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAxDYW4ndCByZWFkICcFAAAAA2tleQIAAAANJyBhdCBhZGRyZXNzIAkABCUAAAABBQAAAAdhZGRyZXNzAQAAABFnZXRJbnRlZ2VyT3JUaHJvdwAAAAIAAAAHYWRkcmVzcwAAAANrZXkJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABBoAAAACBQAAAAdhZGRyZXNzBQAAAANrZXkJAAEsAAAAAgkAASwAAAACCQABLAAAAAICAAAADENhbid0IHJlYWQgJwUAAAADa2V5AgAAAA0nIGF0IGFkZHJlc3MgCQAEJQAAAAEFAAAAB2FkZHJlc3MBAAAAE3BhcnNlQWRkcmVzc09yVGhyb3cAAAABAAAADG1heWJlQWRkcmVzcwkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEJgAAAAEFAAAADG1heWJlQWRkcmVzcwkAASwAAAACCQABLAAAAAICAAAAGkNhbid0IHBhcnNlIGFkZHJlc3MgZnJvbSAnBQAAAAxtYXliZUFkZHJlc3MCAAAAAScBAAAACmtleV9lbnRpdHkAAAADAAAABG5hbWUAAAACcGsAAAAIcHJvcGVydHkJAAEsAAAAAgkAASwAAAACCQABLAAAAAIJAAEsAAAAAgUAAAAEbmFtZQIAAAABXwUAAAACcGsCAAAAAV8FAAAACHByb3BlcnR5AQAAAA5rZXlfVG9rZW5fbmFtZQAAAAEAAAAHdG9rZW5JZAkBAAAACmtleV9lbnRpdHkAAAADAgAAAAVUb2tlbgUAAAAHdG9rZW5JZAIAAAAEbmFtZQEAAAAOa2V5X05hbWVfdG9rZW4AAAABAAAABG5hbWUJAQAAAAprZXlfZW50aXR5AAAAAwIAAAAETmFtZQUAAAAEbmFtZQIAAAAFdG9rZW4BAAAADmtleV9OYW1lX293bmVyAAAAAQAAAARuYW1lCQEAAAAKa2V5X2VudGl0eQAAAAMCAAAABE5hbWUFAAAABG5hbWUCAAAABW93bmVyAQAAABFrZXlfTmFtZV9yZXNvbHZlcgAAAAEAAAAEbmFtZQkBAAAACmtleV9lbnRpdHkAAAADAgAAAAROYW1lBQAAAARuYW1lAgAAAAhyZXNvbHZlcgEAAAASa2V5X05hbWVfZXhwaXJlc0F0AAAAAQAAAARuYW1lCQEAAAAKa2V5X2VudGl0eQAAAAMCAAAABE5hbWUFAAAABG5hbWUCAAAACWV4cGlyZXNBdAEAAAASa2V5X05hbWVfY3JlYXRlZEF0AAAAAQAAAARuYW1lCQEAAAAKa2V5X2VudGl0eQAAAAMCAAAABE5hbWUFAAAABG5hbWUCAAAACWNyZWF0ZWRBdAAAAAALa2V5X25hbWVUVEwCAAAAB25hbWVUVEwAAAAAD2tleV9jb250cm9sbGVycwIAAAALY29udHJvbGxlcnMBAAAACV9zZXRPd25lcgAAAAIAAAAEbmFtZQAAAAVvd25lcgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAOa2V5X05hbWVfb3duZXIAAAABBQAAAARuYW1lBQAAAAVvd25lcgUAAAADbmlsAQAAAAlfZ2V0T3duZXIAAAABAAAABG5hbWUJAAQdAAAAAgUAAAAEdGhpcwkBAAAADmtleV9OYW1lX293bmVyAAAAAQUAAAAEbmFtZQEAAAAMX3NldFJlc29sdmVyAAAAAgAAAARuYW1lAAAACHJlc29sdmVyCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAABFrZXlfTmFtZV9yZXNvbHZlcgAAAAEFAAAABG5hbWUFAAAACHJlc29sdmVyBQAAAANuaWwBAAAADF9nZXRSZXNvbHZlcgAAAAEAAAAEbmFtZQkABB0AAAACBQAAAAR0aGlzCQEAAAARa2V5X05hbWVfcmVzb2x2ZXIAAAABBQAAAARuYW1lAQAAAAlfZ2V0VG9rZW4AAAABAAAABG5hbWUJAAQdAAAAAgUAAAAEdGhpcwkBAAAADmtleV9OYW1lX3Rva2VuAAAAAQUAAAAEbmFtZQEAAAANX2dldENyZWF0ZWRBdAAAAAEAAAAEbmFtZQkABBoAAAACBQAAAAR0aGlzCQEAAAASa2V5X05hbWVfY3JlYXRlZEF0AAAAAQUAAAAEbmFtZQEAAAANX2dldEV4cGlyZXNBdAAAAAEAAAAEbmFtZQkABBoAAAACBQAAAAR0aGlzCQEAAAASa2V5X05hbWVfZXhwaXJlc0F0AAAAAQUAAAAEbmFtZQEAAAAPX2dldENvbnRyb2xsZXJzAAAAAAkABB0AAAACBQAAAAR0aGlzBQAAAA9rZXlfY29udHJvbGxlcnMAAAAAC2NvbnRyb2xsZXJzBAAAAAckbWF0Y2gwCQEAAAAPX2dldENvbnRyb2xsZXJzAAAAAAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAGU3RyaW5nBAAAAARyZXByBQAAAAckbWF0Y2gwCQAEtQAAAAIFAAAABHJlcHICAAAAASwFAAAAA25pbAAAAAAHbmFtZVRUTAkBAAAAEWdldEludGVnZXJPclRocm93AAAAAgUAAAAEdGhpcwUAAAALa2V5X25hbWVUVEwBAAAAEGlzUmVnaXN0ZXJlZE5hbWUAAAABAAAABG5hbWUJAQAAAAlpc0RlZmluZWQAAAABCQAEHQAAAAIFAAAABHRoaXMJAQAAAA5rZXlfTmFtZV90b2tlbgAAAAEFAAAABG5hbWUBAAAADWlzQ3JlYXRlZE5hbWUAAAABAAAABG5hbWUJAQAAAAlpc0RlZmluZWQAAAABCQEAAAANX2dldENyZWF0ZWRBdAAAAAEFAAAABG5hbWUBAAAADWlzRXhwaXJlZE5hbWUAAAABAAAABG5hbWUEAAAAByRtYXRjaDAJAQAAAA1fZ2V0RXhwaXJlc0F0AAAAAQUAAAAEbmFtZQMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAADSW50BAAAAAlleHBpcmVzQXQFAAAAByRtYXRjaDAJAABmAAAAAggFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAFAAAACWV4cGlyZXNBdAcBAAAADGlzQWN0aXZlTmFtZQAAAAEAAAAEbmFtZQMDCQEAAAAQaXNSZWdpc3RlcmVkTmFtZQAAAAEFAAAABG5hbWUJAQAAAA1pc0NyZWF0ZWROYW1lAAAAAQUAAAAEbmFtZQcJAQAAAAEhAAAAAQkBAAAADWlzRXhwaXJlZE5hbWUAAAABBQAAAARuYW1lBwEAAAAPaXNBdmFpbGFibGVOYW1lAAAAAQAAAARuYW1lBAAAAAdzeW1ib2xzAgAAACVhYmNkZWZnaGlqa2xtbm9wcXJzdHV2d3h5ejEyMzQ1Njc4OTAtCgEAAAANdmFsaWRhdGVDaGFycwAAAAIAAAAHaXNWYWxpZAAAAARjaGFyAwUAAAAHaXNWYWxpZAkBAAAACGNvbnRhaW5zAAAAAgUAAAAHc3ltYm9scwUAAAAEY2hhcgcEAAAAC2lzVmFsaWROYW1lAwMDAwMJAABmAAAAAgkAATEAAAABBQAAAARuYW1lAAAAAAAAAAAACQAAZwAAAAIAAAAAAAAAAD8JAAExAAAAAQUAAAAEbmFtZQcJAQAAAAIhPQAAAAIJAASzAAAAAgUAAAAEbmFtZQIAAAACLS0AAAAAAAAAAAIHCQEAAAACIT0AAAACCQAEswAAAAIFAAAABG5hbWUCAAAAAS0AAAAAAAAAAAAHCQEAAAACIT0AAAACCQAEtwAAAAIFAAAABG5hbWUCAAAAAS0JAABlAAAAAgkAATEAAAABBQAAAARuYW1lAAAAAAAAAAABBwoAAAAAAiRsCQAEtQAAAAIFAAAABG5hbWUCAAAAAAoAAAAAAiRzCQABkAAAAAEFAAAAAiRsCgAAAAAFJGFjYzAGCgEAAAAFJGYwXzEAAAACAAAAAiRhAAAAAiRpAwkAAGcAAAACBQAAAAIkaQUAAAACJHMFAAAAAiRhCQEAAAANdmFsaWRhdGVDaGFycwAAAAIFAAAAAiRhCQABkQAAAAIFAAAAAiRsBQAAAAIkaQoBAAAABSRmMF8yAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkAAAIAAAABAgAAABRMaXN0IHNpemUgZXhjZWVkcyA2MwkBAAAABSRmMF8yAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgkBAAAABSRmMF8xAAAAAgUAAAAFJGFjYzAAAAAAAAAAAAAAAAAAAAAAAAEAAAAAAAAAAAIAAAAAAAAAAAMAAAAAAAAAAAQAAAAAAAAAAAUAAAAAAAAAAAYAAAAAAAAAAAcAAAAAAAAAAAgAAAAAAAAAAAkAAAAAAAAAAAoAAAAAAAAAAAsAAAAAAAAAAAwAAAAAAAAAAA0AAAAAAAAAAA4AAAAAAAAAAA8AAAAAAAAAABAAAAAAAAAAABEAAAAAAAAAABIAAAAAAAAAABMAAAAAAAAAABQAAAAAAAAAABUAAAAAAAAAABYAAAAAAAAAABcAAAAAAAAAABgAAAAAAAAAABkAAAAAAAAAABoAAAAAAAAAABsAAAAAAAAAABwAAAAAAAAAAB0AAAAAAAAAAB4AAAAAAAAAAB8AAAAAAAAAACAAAAAAAAAAACEAAAAAAAAAACIAAAAAAAAAACMAAAAAAAAAACQAAAAAAAAAACUAAAAAAAAAACYAAAAAAAAAACcAAAAAAAAAACgAAAAAAAAAACkAAAAAAAAAACoAAAAAAAAAACsAAAAAAAAAACwAAAAAAAAAAC0AAAAAAAAAAC4AAAAAAAAAAC8AAAAAAAAAADAAAAAAAAAAADEAAAAAAAAAADIAAAAAAAAAADMAAAAAAAAAADQAAAAAAAAAADUAAAAAAAAAADYAAAAAAAAAADcAAAAAAAAAADgAAAAAAAAAADkAAAAAAAAAADoAAAAAAAAAADsAAAAAAAAAADwAAAAAAAAAAD0AAAAAAAAAAD4AAAAAAAAAAD8HBAAAAAVpblVzZQMJAQAAABBpc1JlZ2lzdGVyZWROYW1lAAAAAQUAAAAEbmFtZQkBAAAAASEAAAABCQEAAAANaXNFeHBpcmVkTmFtZQAAAAEFAAAABG5hbWUHAwkBAAAAASEAAAABBQAAAAVpblVzZQUAAAALaXNWYWxpZE5hbWUHAQAAAA5pc1ZhbGlkQWRkcmVzcwAAAAEAAAAMbWF5YmVBZGRyZXNzCQEAAAAJaXNEZWZpbmVkAAAAAQkABCYAAAABBQAAAAxtYXliZUFkZHJlc3MBAAAAB2lzQWRtaW4AAAABAAAAA2ludgkAAAAAAAACCAUAAAADaW52AAAABmNhbGxlcgUAAAAEdGhpcwEAAAAHaXNPd25lcgAAAAIAAAADaW52AAAABG5hbWUJAAAAAAAAAgkABCUAAAABCAUAAAADaW52AAAABmNhbGxlcgkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkBAAAACV9nZXRPd25lcgAAAAEFAAAABG5hbWUCAAAAAAEAAAAMaXNDb250cm9sbGVyAAAAAQAAAAdhZGRyZXNzCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgUAAAALY29udHJvbGxlcnMFAAAAB2FkZHJlc3MBAAAAD19zcGxpdExhc3RMYWJlbAAAAAEAAAAEbmFtZQQAAAAGbGFiZWxzCQAEtQAAAAIFAAAABG5hbWUCAAAAAS4EAAAACWxhc3RJbmRleAkAAGUAAAACCQABkAAAAAEFAAAABmxhYmVscwAAAAAAAAAAAQQAAAAJbGFzdExhYmVsCQABkQAAAAIFAAAABmxhYmVscwUAAAAJbGFzdEluZGV4BAAAAApyZXN0TGFiZWxzCQAEuQAAAAIJAARRAAAAAgUAAAAGbGFiZWxzBQAAAAlsYXN0SW5kZXgCAAAAAS4JAAUUAAAAAgUAAAAJbGFzdExhYmVsBQAAAApyZXN0TGFiZWxzAQAAAA9faXNzdWVOYW1lVG9rZW4AAAABAAAABG5hbWUJAARMAAAAAgkABEIAAAAFAwkAAGYAAAACCQABMQAAAAEFAAAABG5hbWUAAAAAAAAAABAJAAEsAAAAAgkAAS8AAAACBQAAAARuYW1lAAAAAAAAAAAPAgAAAAF+CQABLwAAAAIFAAAABG5hbWUAAAAAAAAAABAJAAEsAAAAAgUAAAAEbmFtZQIAAAAGLndhdmVzAAAAAAAAAAABAAAAAAAAAAAABwUAAAADbmlsAQAAABZfcmVnaXN0ZXJOYW1lV2l0aFRva2VuAAAAAwAAAARuYW1lAAAAB3Rva2VuSWQAAAAJY3JlYXRlZEF0CQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAA5rZXlfTmFtZV90b2tlbgAAAAEFAAAABG5hbWUFAAAAB3Rva2VuSWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAADmtleV9Ub2tlbl9uYW1lAAAAAQUAAAAHdG9rZW5JZAUAAAAEbmFtZQkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAEmtleV9OYW1lX2NyZWF0ZWRBdAAAAAEFAAAABG5hbWUFAAAACWNyZWF0ZWRBdAkABEwAAAACCQEAAAAMSW50ZWdlckVudHJ5AAAAAgkBAAAAEmtleV9OYW1lX2V4cGlyZXNBdAAAAAEFAAAABG5hbWUJAABkAAAAAgUAAAAJY3JlYXRlZEF0BQAAAAduYW1lVFRMBQAAAANuaWwBAAAAFV9yZXN0b3JlTmFtZVdpdGhUb2tlbgAAAAIAAAAEbmFtZQAAAAd0b2tlbklkCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAA5rZXlfTmFtZV90b2tlbgAAAAEFAAAABG5hbWUFAAAAB3Rva2VuSWQJAARMAAAAAgkBAAAAC1N0cmluZ0VudHJ5AAAAAgkBAAAADmtleV9Ub2tlbl9uYW1lAAAAAQUAAAAHdG9rZW5JZAUAAAAEbmFtZQUAAAADbmlsAQAAABVfdHJhbnNmZXJUb2tlblRvT3duZXIAAAACAAAAB3Rva2VuSWQAAAAFb3duZXIJAARMAAAAAgkBAAAADlNjcmlwdFRyYW5zZmVyAAAAAwkBAAAAE3BhcnNlQWRkcmVzc09yVGhyb3cAAAABBQAAAAVvd25lcgAAAAAAAAAAAQkAAlkAAAABBQAAAAd0b2tlbklkBQAAAANuaWwBAAAACW1vZGlmaWVycwAAAAEAAAALdmFsaWRhdGlvbnMFAAAABHVuaXQBAAAACW9ubHlBZG1pbgAAAAEAAAADaW52AwkBAAAAB2lzQWRtaW4AAAABBQAAAANpbnYFAAAABHVuaXQJAAACAAAAAQIAAAARUGVybWlzc2lvbiBkZW5pZWQBAAAADm9ubHlDb250cm9sbGVyAAAAAQAAAANpbnYDAwkBAAAAB2lzQWRtaW4AAAABBQAAAANpbnYGCQEAAAAMaXNDb250cm9sbGVyAAAAAQkABCUAAAABCAUAAAADaW52AAAABmNhbGxlcgUAAAAEdW5pdAkAAAIAAAABAgAAABFQZXJtaXNzaW9uIGRlbmllZAEAAAAJb25seU93bmVyAAAAAgAAAANpbnYAAAAEbmFtZQMDCQEAAAAHaXNBZG1pbgAAAAEFAAAAA2ludgYJAQAAAAdpc093bmVyAAAAAgUAAAADaW52BQAAAARuYW1lBQAAAAR1bml0CQAAAgAAAAECAAAAEVBlcm1pc3Npb24gZGVuaWVkAAAADAAAAANpbnYBAAAABGluaXQAAAABAAAAB25hbWVUVEwJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAltb2RpZmllcnMAAAABCQAETAAAAAIJAQAAAAlvbmx5QWRtaW4AAAABBQAAAANpbnYJAARMAAAAAgMJAABmAAAAAgUAAAAHbmFtZVRUTAAAAAAAAAAAAAUAAAAEdW5pdAkAAAIAAAABAgAAABZUVEwgY2Fubm90IGJlIG5lZ2F0aXZlBQAAAANuaWwJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIFAAAAC2tleV9uYW1lVFRMBQAAAAduYW1lVFRMBQAAAANuaWwAAAADaW52AQAAABFzdXBwb3J0c0ludGVyZmFjZQAAAAEAAAALaW50ZXJmYWNlSWQJAAUUAAAAAgUAAAADbmlsCQEAAAAPY29udGFpbnNFbGVtZW50AAAAAgkABEwAAAACAgAAAAVvd25lcgkABEwAAAACAgAAAAhyZXNvbHZlcgkABEwAAAACAgAAAAtuYW1lQ3JlYXRlZAkABEwAAAACAgAAAAtuYW1lRXhwaXJlcwUAAAADbmlsBQAAAAtpbnRlcmZhY2VJZAAAAANpbnYBAAAADWFkZENvbnRyb2xsZXIAAAABAAAAB2FkZHJlc3MJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAltb2RpZmllcnMAAAABCQAETAAAAAIJAQAAAAlvbmx5QWRtaW4AAAABBQAAAANpbnYJAARMAAAAAgMJAQAAAA5pc1ZhbGlkQWRkcmVzcwAAAAEFAAAAB2FkZHJlc3MFAAAABHVuaXQJAAACAAAAAQIAAAAiQ29udHJvbGxlciBtdXN0IGJlIGEgdmFsaWQgYWRkcmVzcwkABEwAAAACAwkBAAAAASEAAAABCQEAAAAMaXNDb250cm9sbGVyAAAAAQUAAAAHYWRkcmVzcwUAAAAEdW5pdAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAMQ29udHJvbGxlciBgBQAAAAdhZGRyZXNzAgAAABdgIGlzIGFscmVhZHkgcmVnaXN0ZXJlZAUAAAADbmlsCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAAD2tleV9jb250cm9sbGVycwkABLkAAAACCQAETQAAAAIFAAAAC2NvbnRyb2xsZXJzBQAAAAdhZGRyZXNzAgAAAAEsBQAAAANuaWwAAAADaW52AQAAABByZW1vdmVDb250cm9sbGVyAAAAAQAAAAdhZGRyZXNzCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACCQEAAAAJb25seUFkbWluAAAAAQUAAAADaW52CQAETAAAAAIDCQEAAAAMaXNDb250cm9sbGVyAAAAAQUAAAAHYWRkcmVzcwUAAAAEdW5pdAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAMQ29udHJvbGxlciBgBQAAAAdhZGRyZXNzAgAAABNgIGlzIG5vdCByZWdpc3RlcmVkBQAAAANuaWwEAAAAD2NvbnRyb2xsZXJJbmRleAkBAAAABXZhbHVlAAAAAQkABE8AAAACBQAAAAtjb250cm9sbGVycwUAAAAHYWRkcmVzcwkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAA9rZXlfY29udHJvbGxlcnMJAAS5AAAAAgkABFEAAAACBQAAAAtjb250cm9sbGVycwUAAAAPY29udHJvbGxlckluZGV4AgAAAAEsBQAAAANuaWwAAAADaW52AQAAAAlhdmFpbGFibGUAAAABAAAABG5hbWUJAAUUAAAAAgUAAAADbmlsCQEAAAAPaXNBdmFpbGFibGVOYW1lAAAAAQUAAAAEbmFtZQAAAANpbnYBAAAABW93bmVyAAAAAQAAAARuYW1lCQAFFAAAAAIFAAAAA25pbAkBAAAACV9nZXRPd25lcgAAAAEICQEAAAAPX3NwbGl0TGFzdExhYmVsAAAAAQUAAAAEbmFtZQAAAAJfMQAAAANpbnYBAAAACHJlc29sdmVyAAAAAQAAAARuYW1lCQAFFAAAAAIFAAAAA25pbAkBAAAADF9nZXRSZXNvbHZlcgAAAAEICQEAAAAPX3NwbGl0TGFzdExhYmVsAAAAAQUAAAAEbmFtZQAAAAJfMQAAAANpbnYBAAAAC3NldFJlc29sdmVyAAAAAgAAAARuYW1lAAAACHJlc29sdmVyCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACAwkBAAAADGlzQWN0aXZlTmFtZQAAAAEFAAAABG5hbWUFAAAABHVuaXQJAAACAAAAAQIAAAAeTmFtZSBleHBpcmVkIG9yIG5vdCByZWdpc3RlcmVkCQAETAAAAAIJAQAAAAlvbmx5T3duZXIAAAACBQAAAANpbnYFAAAABG5hbWUJAARMAAAAAgMJAQAAAA5pc1ZhbGlkQWRkcmVzcwAAAAEFAAAACHJlc29sdmVyBQAAAAR1bml0CQAAAgAAAAECAAAAKVJlc29sdmVyIG11c3QgYmUgYSB2YWxpZCBjb250cmFjdCBhZGRyZXNzBQAAAANuaWwJAAUUAAAAAgUAAAADbmlsCQEAAAAMX3NldFJlc29sdmVyAAAAAgUAAAAEbmFtZQUAAAAIcmVzb2x2ZXIAAAADaW52AQAAAAtuYW1lQ3JlYXRlZAAAAAEAAAAEbmFtZQkABRQAAAACBQAAAANuaWwJAQAAAA1fZ2V0Q3JlYXRlZEF0AAAAAQgJAQAAAA9fc3BsaXRMYXN0TGFiZWwAAAABBQAAAARuYW1lAAAAAl8xAAAAA2ludgEAAAALbmFtZUV4cGlyZXMAAAABAAAABG5hbWUJAAUUAAAAAgUAAAADbmlsCQEAAAANX2dldEV4cGlyZXNBdAAAAAEICQEAAAAPX3NwbGl0TGFzdExhYmVsAAAAAQUAAAAEbmFtZQAAAAJfMQAAAANpbnYBAAAACHJlZ2lzdGVyAAAAAwAAAARuYW1lAAAABW93bmVyAAAACWNyZWF0ZWRBdAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkBAAAACW1vZGlmaWVycwAAAAEJAARMAAAAAgkBAAAADm9ubHlDb250cm9sbGVyAAAAAQUAAAADaW52CQAETAAAAAIDCQEAAAAPaXNBdmFpbGFibGVOYW1lAAAAAQUAAAAEbmFtZQUAAAAEdW5pdAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAABYAUAAAAEbmFtZQIAAAAWYCBjYW5ub3QgYmUgcmVnaXN0ZXJlZAkABEwAAAACAwkBAAAADmlzVmFsaWRBZGRyZXNzAAAAAQUAAAAFb3duZXIFAAAABHVuaXQJAAACAAAAAQIAAAAdT3duZXIgbXVzdCBiZSBhIHZhbGlkIGFkZHJlc3MJAARMAAAAAgMJAABmAAAAAgUAAAAJY3JlYXRlZEF0AAAAAAAAAAAABQAAAAR1bml0CQAAAgAAAAECAAAAHENyZWF0ZWRBdCBjYW5ub3QgYmUgbmVnYXRpdmUJAARMAAAAAgMJAABnAAAAAggFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAFAAAACWNyZWF0ZWRBdAUAAAAEdW5pdAkAAAIAAAABAgAAACFDcmVhdGVkQXQgY2Fubm90IGJlIGluIHRoZSBmdXR1cmUFAAAAA25pbAQAAAAOaXNzdWVOYW1lVG9rZW4JAQAAAA9faXNzdWVOYW1lVG9rZW4AAAABBQAAAARuYW1lBAAAAAd0b2tlbklkCQAEOAAAAAEJAAGRAAAAAgUAAAAOaXNzdWVOYW1lVG9rZW4AAAAAAAAAAAAEAAAACHRva2VuU3RyCQACWAAAAAEFAAAAB3Rva2VuSWQEAAAAFXJlZ2lzdGVyTmFtZVdpdGhUb2tlbgkBAAAAFl9yZWdpc3Rlck5hbWVXaXRoVG9rZW4AAAADBQAAAARuYW1lBQAAAAh0b2tlblN0cgUAAAAJY3JlYXRlZEF0BAAAABR0cmFuc2ZlclRva2VuVG9Pd25lcgkBAAAAFV90cmFuc2ZlclRva2VuVG9Pd25lcgAAAAIFAAAACHRva2VuU3RyBQAAAAVvd25lcgQAAAAMc2V0T3duZXJzaGlwCQEAAAAJX3NldE93bmVyAAAAAgUAAAAEbmFtZQUAAAAFb3duZXIJAAROAAAAAgkABE4AAAACCQAETgAAAAIFAAAADmlzc3VlTmFtZVRva2VuBQAAABVyZWdpc3Rlck5hbWVXaXRoVG9rZW4FAAAAFHRyYW5zZmVyVG9rZW5Ub093bmVyBQAAAAxzZXRPd25lcnNoaXAAAAADaW52AQAAAAdyZWNsYWltAAAAAQAAAARuYW1lCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACAwkBAAAADGlzQWN0aXZlTmFtZQAAAAEFAAAABG5hbWUFAAAABHVuaXQJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAAWAFAAAABG5hbWUCAAAAD2AgaXMgbm90IGFjdGl2ZQUAAAADbmlsBAAAAAhuZXdPd25lcggFAAAAA2ludgAAAAZjYWxsZXIEAAAAD25ld093bmVyQWRkcmVzcwkABCUAAAABBQAAAAhuZXdPd25lcgQAAAAIdG9rZW5TdHIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkBAAAACV9nZXRUb2tlbgAAAAEFAAAABG5hbWUJAAEsAAAAAgkAASwAAAACAgAAABhObyB0b2tlbiBpcyBpc3N1ZWQgZm9yIGAFAAAABG5hbWUCAAAAAWAEAAAAB3Rva2VuSWQJAAJZAAAAAQUAAAAIdG9rZW5TdHIEAAAACGhhc1Rva2VuCQAAAAAAAAIJAAPwAAAAAgUAAAAIbmV3T3duZXIFAAAAB3Rva2VuSWQAAAAAAAAAAAEEAAAADGlzVG9rZW5Pd25lcgkBAAAAB2lzT3duZXIAAAACBQAAAANpbnYFAAAABG5hbWUEAAAADWlzVG9rZW5FeGlzdHMEAAAAByRtYXRjaDAJAAPsAAAAAQUAAAAHdG9rZW5JZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAFQXNzZXQEAAAABXRva2VuBQAAAAckbWF0Y2gwCQAAAAAAAAIIBQAAAAV0b2tlbgAAAAhxdWFudGl0eQAAAAAAAAAAAQcDAwUAAAAMaXNUb2tlbk93bmVyCQEAAAABIQAAAAEFAAAADWlzVG9rZW5FeGlzdHMHBAAAAA1pc3N1ZU5ld1Rva2VuCQEAAAAPX2lzc3VlTmFtZVRva2VuAAAAAQUAAAAEbmFtZQQAAAAKbmV3VG9rZW5JZAkABDgAAAABCQABkQAAAAIFAAAADWlzc3VlTmV3VG9rZW4AAAAAAAAAAAAEAAAAC25ld1Rva2VuU3RyCQACWAAAAAEFAAAACm5ld1Rva2VuSWQEAAAAF3Jlc3RvcmVOYW1lV2l0aE5ld1Rva2VuCQEAAAAVX3Jlc3RvcmVOYW1lV2l0aFRva2VuAAAAAgUAAAAEbmFtZQUAAAALbmV3VG9rZW5TdHIEAAAAF3RyYW5zZmVyTmV3VG9rZW5Ub093bmVyCQEAAAAVX3RyYW5zZmVyVG9rZW5Ub093bmVyAAAAAgUAAAALbmV3VG9rZW5TdHIFAAAAD25ld093bmVyQWRkcmVzcwkABE4AAAACCQAETgAAAAIFAAAADWlzc3VlTmV3VG9rZW4FAAAAF3Jlc3RvcmVOYW1lV2l0aE5ld1Rva2VuBQAAABd0cmFuc2Zlck5ld1Rva2VuVG9Pd25lcgMDBQAAAAxpc1Rva2VuT3duZXIFAAAACGhhc1Rva2VuBwkAAAIAAAABAgAAABxZb3UgYWxyZWFkeSBvd24gYSBuYW1lIHRva2VuAwkBAAAAASEAAAABBQAAAAhoYXNUb2tlbgkAAAIAAAABAgAAABtZb3UgZG9uJ3QgaGF2ZSBhIG5hbWUgdG9rZW4JAQAAAAlfc2V0T3duZXIAAAACBQAAAARuYW1lBQAAAA9uZXdPd25lckFkZHJlc3MAAAAA11C2UQ==",
    "height": 2276246,
    "applicationStatus": "succeeded",
    "spentComplexity": 0
}

View: original | compacted
Prev: DNEEQaMgQvw3dX5smj8DtK99VRarHThC7d3rbEWNhx2M
Next: J6ptAN81AhnCvVFrodShtQLbVx9xeaR7KW4hdB8pBYHY

Diff: 

OldNewDifferences
44 func getStringOrThrow (address,key) = valueOrErrorMessage(getString(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
55 
66 
7+func getIntegerOrThrow (address,key) = valueOrErrorMessage(getInteger(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
8+
9+
710 func parseAddressOrThrow (maybeAddress) = valueOrErrorMessage(addressFromString(maybeAddress), (("Can't parse address from '" + maybeAddress) + "'"))
811 
912 
10-func key_Name_addr (name) = (("Name_" + name) + "_addr")
13+func key_entity (name,pk,property) = ((((name + "_") + pk) + "_") + property)
1114 
1215 
13-let key_registry = "registry"
16+func key_Token_name (tokenId) = key_entity("Token", tokenId, "name")
1417 
15-let registry = parseAddressOrThrow(getStringOrThrow(this, key_registry))
1618 
17-func isAdmin (inv) = (inv.caller == this)
19+func key_Name_token (name) = key_entity("Name", name, "token")
20+
21+
22+func key_Name_owner (name) = key_entity("Name", name, "owner")
23+
24+
25+func key_Name_resolver (name) = key_entity("Name", name, "resolver")
26+
27+
28+func key_Name_expiresAt (name) = key_entity("Name", name, "expiresAt")
29+
30+
31+func key_Name_createdAt (name) = key_entity("Name", name, "createdAt")
32+
33+
34+let key_nameTTL = "nameTTL"
35+
36+let key_controllers = "controllers"
37+
38+func _setOwner (name,owner) = [StringEntry(key_Name_owner(name), owner)]
39+
40+
41+func _getOwner (name) = getString(this, key_Name_owner(name))
42+
43+
44+func _setResolver (name,resolver) = [StringEntry(key_Name_resolver(name), resolver)]
45+
46+
47+func _getResolver (name) = getString(this, key_Name_resolver(name))
48+
49+
50+func _getToken (name) = getString(this, key_Name_token(name))
51+
52+
53+func _getCreatedAt (name) = getInteger(this, key_Name_createdAt(name))
54+
55+
56+func _getExpiresAt (name) = getInteger(this, key_Name_expiresAt(name))
57+
58+
59+func _getControllers () = getString(this, key_controllers)
60+
61+
62+let controllers = match _getControllers() {
63+    case repr: String => 
64+        split(repr, ",")
65+    case _ => 
66+        nil
67+}
68+
69+let nameTTL = getIntegerOrThrow(this, key_nameTTL)
70+
71+func isRegisteredName (name) = isDefined(getString(this, key_Name_token(name)))
72+
73+
74+func isCreatedName (name) = isDefined(_getCreatedAt(name))
75+
76+
77+func isExpiredName (name) = match _getExpiresAt(name) {
78+    case expiresAt: Int => 
79+        (lastBlock.timestamp > expiresAt)
80+    case _ => 
81+        false
82+}
83+
84+
85+func isActiveName (name) = if (if (isRegisteredName(name))
86+    then isCreatedName(name)
87+    else false)
88+    then !(isExpiredName(name))
89+    else false
90+
91+
92+func isAvailableName (name) = {
93+    let symbols = "abcdefghijklmnopqrstuvwxyz1234567890-"
94+    func validateChars (isValid,char) =     if (isValid)
95+        then contains(symbols, char)
96+        else false
97+
98+    let isValidName = if (if (if (if (if ((size(name) > 0))
99+        then (63 >= size(name))
100+        else false)
101+        then (indexOf(name, "--") != 2)
102+        else false)
103+        then (indexOf(name, "-") != 0)
104+        else false)
105+        then (lastIndexOf(name, "-") != (size(name) - 1))
106+        else false)
107+        then {
108+            let $l = split(name, "")
109+            let $s = size($l)
110+            let $acc0 = true
111+            func $f0_1 ($a,$i) =             if (($i >= $s))
112+                then $a
113+                else validateChars($a, $l[$i])
114+
115+            func $f0_2 ($a,$i) =             if (($i >= $s))
116+                then $a
117+                else throw("List size exceeds 63")
118+
119+            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63)
120+            }
121+        else false
122+    let inUse = if (isRegisteredName(name))
123+        then !(isExpiredName(name))
124+        else false
125+    if (!(inUse))
126+        then isValidName
127+        else false
128+    }
18129 
19130 
20131 func isValidAddress (maybeAddress) = isDefined(addressFromString(maybeAddress))
21132 
22133 
23-func modifiers (validations) = unit
134+func isAdmin (inv) = (inv.caller == this)
24135 
25136 
26-func onlyAdmin (inv) = if (isAdmin(inv))
27-    then unit
28-    else throw("Permission denied")
137+func isOwner (inv,name) = (toString(inv.caller) == valueOrElse(_getOwner(name), ""))
29138 
30139 
31-func _getOwner (name) = match invoke(registry, "owner", [name], nil) {
32-    case owner: String => 
33-        owner
34-    case _ => 
35-        unit
36-}
37-
38-
39-func _getAddr (name) = valueOrElse(getString(this, key_Name_addr(name)), _getOwner(name))
40-
41-
42-func _setAddr (name,address) = [StringEntry(key_Name_addr(name), address)]
140+func isController (address) = containsElement(controllers, address)
43141 
44142 
45143 func _splitLastLabel (name) = {
51149     }
52150 
53151 
54-func _findResolver (name) = {
55-    let $t016951746 = _splitLastLabel(name)
56-    let lastLabel = $t016951746._1
57-    let restLabels = $t016951746._2
58-    if ((size(restLabels) == 0))
59-        then $Tuple2(unit, name)
60-        else         match invoke(registry, "resolver", [lastLabel], nil) {
61-            case resolverAddress: String => 
62-                $Tuple2(addressFromString(resolverAddress), restLabels)
63-            case _ => 
64-                $Tuple2(unit, name)
65-        }
66-    }
152+func _issueNameToken (name) = [Issue(if ((size(name) > 16))
153+    then (take(name, 15) + "~")
154+    else take(name, 16), (name + ".waves"), 1, 0, false)]
67155 
68156 
69-func _resolve (name,callData) = {
70-    let $t021242172 = _findResolver(name)
71-    let resolver = $t021242172._1
72-    let restLabels = $t021242172._2
73-    let $t021782354 =     match callData {
74-        case _ => 
75-            if (("addr" == $match0))
76-                then $Tuple3("addr", [value(restLabels)], _getAddr(name))
77-                else $Tuple3(unit, unit, unit)
78-    }
79-    let callFunction = $t021782354._1
80-    let callArgs = $t021782354._2
81-    let returnsDefault = $t021782354._3
82-    let supportsInterface =     match invoke(value(resolver), "supportsInterface", [callData], nil) {
83-        case supportsInterface: Boolean => 
84-            supportsInterface
85-        case _ => 
86-            false
87-    }
88-    if (!(isDefined(resolver)))
89-        then returnsDefault
90-        else if (!(supportsInterface))
91-            then unit
92-            else             match invoke(value(resolver), value(callFunction), value(callArgs), nil) {
93-                case maybeAddr: String => 
94-                    if (isValidAddress(maybeAddr))
95-                        then maybeAddr
96-                        else unit
97-                case _ => 
98-                    unit
99-            }
100-    }
157+func _registerNameWithToken (name,tokenId,createdAt) = [StringEntry(key_Name_token(name), tokenId), StringEntry(key_Token_name(tokenId), name), IntegerEntry(key_Name_createdAt(name), createdAt), IntegerEntry(key_Name_expiresAt(name), (createdAt + nameTTL))]
158+
159+
160+func _restoreNameWithToken (name,tokenId) = [StringEntry(key_Name_token(name), tokenId), StringEntry(key_Token_name(tokenId), name)]
161+
162+
163+func _transferTokenToOwner (tokenId,owner) = [ScriptTransfer(parseAddressOrThrow(owner), 1, fromBase58String(tokenId))]
164+
165+
166+func modifiers (validations) = unit
167+
168+
169+func onlyAdmin (inv) = if (isAdmin(inv))
170+    then unit
171+    else throw("Permission denied")
172+
173+
174+func onlyController (inv) = if (if (isAdmin(inv))
175+    then true
176+    else isController(toString(inv.caller)))
177+    then unit
178+    else throw("Permission denied")
179+
180+
181+func onlyOwner (inv,name) = if (if (isAdmin(inv))
182+    then true
183+    else isOwner(inv, name))
184+    then unit
185+    else throw("Permission denied")
101186 
102187 
103188 @Callable(inv)
104-func init (registryAddress) = valueOrElse(modifiers([onlyAdmin(inv)]), [StringEntry(key_registry, registryAddress)])
189+func init (nameTTL) = valueOrElse(modifiers([onlyAdmin(inv), if ((nameTTL > 0))
190+    then unit
191+    else throw("TTL cannot be negative")]), [IntegerEntry(key_nameTTL, nameTTL)])
105192 
106193 
107194 
108195 @Callable(inv)
109-func supportsInterface (interfaceId) = $Tuple2(nil, (interfaceId == "addr"))
196+func supportsInterface (interfaceId) = $Tuple2(nil, containsElement(["owner", "resolver", "nameCreated", "nameExpires"], interfaceId))
110197 
111198 
112199 
113200 @Callable(inv)
114-func addr (name) = valueOrElse(modifiers([if ((size(name) > 0))
201+func addController (address) = valueOrElse(modifiers([onlyAdmin(inv), if (isValidAddress(address))
115202     then unit
116-    else throw("Name cannot be empty")]), $Tuple2(nil, _resolve(name, "addr")))
203+    else throw("Controller must be a valid address"), if (!(isController(address)))
204+    then unit
205+    else throw((("Controller `" + address) + "` is already registered"))]), [StringEntry(key_controllers, makeString((controllers :+ address), ","))])
206+
207+
208+
209+@Callable(inv)
210+func removeController (address) = valueOrElse(modifiers([onlyAdmin(inv), if (isController(address))
211+    then unit
212+    else throw((("Controller `" + address) + "` is not registered"))]), {
213+    let controllerIndex = value(indexOf(controllers, address))
214+[StringEntry(key_controllers, makeString(removeByIndex(controllers, controllerIndex), ","))]
215+    })
216+
217+
218+
219+@Callable(inv)
220+func available (name) = $Tuple2(nil, isAvailableName(name))
221+
222+
223+
224+@Callable(inv)
225+func owner (name) = $Tuple2(nil, _getOwner(_splitLastLabel(name)._1))
226+
227+
228+
229+@Callable(inv)
230+func resolver (name) = $Tuple2(nil, _getResolver(_splitLastLabel(name)._1))
231+
232+
233+
234+@Callable(inv)
235+func setResolver (name,resolver) = valueOrElse(modifiers([if (isActiveName(name))
236+    then unit
237+    else throw("Name expired or not registered"), onlyOwner(inv, name), if (isValidAddress(resolver))
238+    then unit
239+    else throw("Resolver must be a valid contract address")]), $Tuple2(nil, _setResolver(name, resolver)))
240+
241+
242+
243+@Callable(inv)
244+func nameCreated (name) = $Tuple2(nil, _getCreatedAt(_splitLastLabel(name)._1))
245+
246+
247+
248+@Callable(inv)
249+func nameExpires (name) = $Tuple2(nil, _getExpiresAt(_splitLastLabel(name)._1))
250+
251+
252+
253+@Callable(inv)
254+func register (name,owner,createdAt) = valueOrElse(modifiers([onlyController(inv), if (isAvailableName(name))
255+    then unit
256+    else throw((("`" + name) + "` cannot be registered")), if (isValidAddress(owner))
257+    then unit
258+    else throw("Owner must be a valid address"), if ((createdAt > 0))
259+    then unit
260+    else throw("CreatedAt cannot be negative"), if ((lastBlock.timestamp >= createdAt))
261+    then unit
262+    else throw("CreatedAt cannot be in the future")]), {
263+    let issueNameToken = _issueNameToken(name)
264+    let tokenId = calculateAssetId(issueNameToken[0])
265+    let tokenStr = toBase58String(tokenId)
266+    let registerNameWithToken = _registerNameWithToken(name, tokenStr, createdAt)
267+    let transferTokenToOwner = _transferTokenToOwner(tokenStr, owner)
268+    let setOwnership = _setOwner(name, owner)
269+    (((issueNameToken ++ registerNameWithToken) ++ transferTokenToOwner) ++ setOwnership)
270+    })
271+
272+
273+
274+@Callable(inv)
275+func reclaim (name) = valueOrElse(modifiers([if (isActiveName(name))
276+    then unit
277+    else throw((("`" + name) + "` is not active"))]), {
278+    let newOwner = inv.caller
279+    let newOwnerAddress = toString(newOwner)
280+    let tokenStr = valueOrErrorMessage(_getToken(name), (("No token is issued for `" + name) + "`"))
281+    let tokenId = fromBase58String(tokenStr)
282+    let hasToken = (assetBalance(newOwner, tokenId) == 1)
283+    let isTokenOwner = isOwner(inv, name)
284+    let isTokenExists =     match assetInfo(tokenId) {
285+        case token: Asset => 
286+            (token.quantity == 1)
287+        case _ => 
288+            false
289+    }
290+    if (if (isTokenOwner)
291+        then !(isTokenExists)
292+        else false)
293+        then {
294+            let issueNewToken = _issueNameToken(name)
295+            let newTokenId = calculateAssetId(issueNewToken[0])
296+            let newTokenStr = toBase58String(newTokenId)
297+            let restoreNameWithNewToken = _restoreNameWithToken(name, newTokenStr)
298+            let transferNewTokenToOwner = _transferTokenToOwner(newTokenStr, newOwnerAddress)
299+            ((issueNewToken ++ restoreNameWithNewToken) ++ transferNewTokenToOwner)
300+            }
301+        else if (if (isTokenOwner)
302+            then hasToken
303+            else false)
304+            then throw("You already own a name token")
305+            else if (!(hasToken))
306+                then throw("You don't have a name token")
307+                else _setOwner(name, newOwnerAddress)
308+    })
117309 
118310 

Full: 

OldNewDifferences
11 {-# STDLIB_VERSION 5 #-}
22 {-# SCRIPT_TYPE ACCOUNT #-}
33 {-# CONTENT_TYPE DAPP #-}
44 func getStringOrThrow (address,key) = valueOrErrorMessage(getString(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
55 
66 
7+func getIntegerOrThrow (address,key) = valueOrErrorMessage(getInteger(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
8+
9+
710 func parseAddressOrThrow (maybeAddress) = valueOrErrorMessage(addressFromString(maybeAddress), (("Can't parse address from '" + maybeAddress) + "'"))
811 
912 
10-func key_Name_addr (name) = (("Name_" + name) + "_addr")
13+func key_entity (name,pk,property) = ((((name + "_") + pk) + "_") + property)
1114 
1215 
13-let key_registry = "registry"
16+func key_Token_name (tokenId) = key_entity("Token", tokenId, "name")
1417 
15-let registry = parseAddressOrThrow(getStringOrThrow(this, key_registry))
1618 
17-func isAdmin (inv) = (inv.caller == this)
19+func key_Name_token (name) = key_entity("Name", name, "token")
20+
21+
22+func key_Name_owner (name) = key_entity("Name", name, "owner")
23+
24+
25+func key_Name_resolver (name) = key_entity("Name", name, "resolver")
26+
27+
28+func key_Name_expiresAt (name) = key_entity("Name", name, "expiresAt")
29+
30+
31+func key_Name_createdAt (name) = key_entity("Name", name, "createdAt")
32+
33+
34+let key_nameTTL = "nameTTL"
35+
36+let key_controllers = "controllers"
37+
38+func _setOwner (name,owner) = [StringEntry(key_Name_owner(name), owner)]
39+
40+
41+func _getOwner (name) = getString(this, key_Name_owner(name))
42+
43+
44+func _setResolver (name,resolver) = [StringEntry(key_Name_resolver(name), resolver)]
45+
46+
47+func _getResolver (name) = getString(this, key_Name_resolver(name))
48+
49+
50+func _getToken (name) = getString(this, key_Name_token(name))
51+
52+
53+func _getCreatedAt (name) = getInteger(this, key_Name_createdAt(name))
54+
55+
56+func _getExpiresAt (name) = getInteger(this, key_Name_expiresAt(name))
57+
58+
59+func _getControllers () = getString(this, key_controllers)
60+
61+
62+let controllers = match _getControllers() {
63+    case repr: String => 
64+        split(repr, ",")
65+    case _ => 
66+        nil
67+}
68+
69+let nameTTL = getIntegerOrThrow(this, key_nameTTL)
70+
71+func isRegisteredName (name) = isDefined(getString(this, key_Name_token(name)))
72+
73+
74+func isCreatedName (name) = isDefined(_getCreatedAt(name))
75+
76+
77+func isExpiredName (name) = match _getExpiresAt(name) {
78+    case expiresAt: Int => 
79+        (lastBlock.timestamp > expiresAt)
80+    case _ => 
81+        false
82+}
83+
84+
85+func isActiveName (name) = if (if (isRegisteredName(name))
86+    then isCreatedName(name)
87+    else false)
88+    then !(isExpiredName(name))
89+    else false
90+
91+
92+func isAvailableName (name) = {
93+    let symbols = "abcdefghijklmnopqrstuvwxyz1234567890-"
94+    func validateChars (isValid,char) =     if (isValid)
95+        then contains(symbols, char)
96+        else false
97+
98+    let isValidName = if (if (if (if (if ((size(name) > 0))
99+        then (63 >= size(name))
100+        else false)
101+        then (indexOf(name, "--") != 2)
102+        else false)
103+        then (indexOf(name, "-") != 0)
104+        else false)
105+        then (lastIndexOf(name, "-") != (size(name) - 1))
106+        else false)
107+        then {
108+            let $l = split(name, "")
109+            let $s = size($l)
110+            let $acc0 = true
111+            func $f0_1 ($a,$i) =             if (($i >= $s))
112+                then $a
113+                else validateChars($a, $l[$i])
114+
115+            func $f0_2 ($a,$i) =             if (($i >= $s))
116+                then $a
117+                else throw("List size exceeds 63")
118+
119+            $f0_2($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($f0_1($acc0, 0), 1), 2), 3), 4), 5), 6), 7), 8), 9), 10), 11), 12), 13), 14), 15), 16), 17), 18), 19), 20), 21), 22), 23), 24), 25), 26), 27), 28), 29), 30), 31), 32), 33), 34), 35), 36), 37), 38), 39), 40), 41), 42), 43), 44), 45), 46), 47), 48), 49), 50), 51), 52), 53), 54), 55), 56), 57), 58), 59), 60), 61), 62), 63)
120+            }
121+        else false
122+    let inUse = if (isRegisteredName(name))
123+        then !(isExpiredName(name))
124+        else false
125+    if (!(inUse))
126+        then isValidName
127+        else false
128+    }
18129 
19130 
20131 func isValidAddress (maybeAddress) = isDefined(addressFromString(maybeAddress))
21132 
22133 
23-func modifiers (validations) = unit
134+func isAdmin (inv) = (inv.caller == this)
24135 
25136 
26-func onlyAdmin (inv) = if (isAdmin(inv))
27-    then unit
28-    else throw("Permission denied")
137+func isOwner (inv,name) = (toString(inv.caller) == valueOrElse(_getOwner(name), ""))
29138 
30139 
31-func _getOwner (name) = match invoke(registry, "owner", [name], nil) {
32-    case owner: String => 
33-        owner
34-    case _ => 
35-        unit
36-}
37-
38-
39-func _getAddr (name) = valueOrElse(getString(this, key_Name_addr(name)), _getOwner(name))
40-
41-
42-func _setAddr (name,address) = [StringEntry(key_Name_addr(name), address)]
140+func isController (address) = containsElement(controllers, address)
43141 
44142 
45143 func _splitLastLabel (name) = {
46144     let labels = split(name, ".")
47145     let lastIndex = (size(labels) - 1)
48146     let lastLabel = labels[lastIndex]
49147     let restLabels = makeString(removeByIndex(labels, lastIndex), ".")
50148     $Tuple2(lastLabel, restLabels)
51149     }
52150 
53151 
54-func _findResolver (name) = {
55-    let $t016951746 = _splitLastLabel(name)
56-    let lastLabel = $t016951746._1
57-    let restLabels = $t016951746._2
58-    if ((size(restLabels) == 0))
59-        then $Tuple2(unit, name)
60-        else         match invoke(registry, "resolver", [lastLabel], nil) {
61-            case resolverAddress: String => 
62-                $Tuple2(addressFromString(resolverAddress), restLabels)
63-            case _ => 
64-                $Tuple2(unit, name)
65-        }
66-    }
152+func _issueNameToken (name) = [Issue(if ((size(name) > 16))
153+    then (take(name, 15) + "~")
154+    else take(name, 16), (name + ".waves"), 1, 0, false)]
67155 
68156 
69-func _resolve (name,callData) = {
70-    let $t021242172 = _findResolver(name)
71-    let resolver = $t021242172._1
72-    let restLabels = $t021242172._2
73-    let $t021782354 =     match callData {
74-        case _ => 
75-            if (("addr" == $match0))
76-                then $Tuple3("addr", [value(restLabels)], _getAddr(name))
77-                else $Tuple3(unit, unit, unit)
78-    }
79-    let callFunction = $t021782354._1
80-    let callArgs = $t021782354._2
81-    let returnsDefault = $t021782354._3
82-    let supportsInterface =     match invoke(value(resolver), "supportsInterface", [callData], nil) {
83-        case supportsInterface: Boolean => 
84-            supportsInterface
85-        case _ => 
86-            false
87-    }
88-    if (!(isDefined(resolver)))
89-        then returnsDefault
90-        else if (!(supportsInterface))
91-            then unit
92-            else             match invoke(value(resolver), value(callFunction), value(callArgs), nil) {
93-                case maybeAddr: String => 
94-                    if (isValidAddress(maybeAddr))
95-                        then maybeAddr
96-                        else unit
97-                case _ => 
98-                    unit
99-            }
100-    }
157+func _registerNameWithToken (name,tokenId,createdAt) = [StringEntry(key_Name_token(name), tokenId), StringEntry(key_Token_name(tokenId), name), IntegerEntry(key_Name_createdAt(name), createdAt), IntegerEntry(key_Name_expiresAt(name), (createdAt + nameTTL))]
158+
159+
160+func _restoreNameWithToken (name,tokenId) = [StringEntry(key_Name_token(name), tokenId), StringEntry(key_Token_name(tokenId), name)]
161+
162+
163+func _transferTokenToOwner (tokenId,owner) = [ScriptTransfer(parseAddressOrThrow(owner), 1, fromBase58String(tokenId))]
164+
165+
166+func modifiers (validations) = unit
167+
168+
169+func onlyAdmin (inv) = if (isAdmin(inv))
170+    then unit
171+    else throw("Permission denied")
172+
173+
174+func onlyController (inv) = if (if (isAdmin(inv))
175+    then true
176+    else isController(toString(inv.caller)))
177+    then unit
178+    else throw("Permission denied")
179+
180+
181+func onlyOwner (inv,name) = if (if (isAdmin(inv))
182+    then true
183+    else isOwner(inv, name))
184+    then unit
185+    else throw("Permission denied")
101186 
102187 
103188 @Callable(inv)
104-func init (registryAddress) = valueOrElse(modifiers([onlyAdmin(inv)]), [StringEntry(key_registry, registryAddress)])
189+func init (nameTTL) = valueOrElse(modifiers([onlyAdmin(inv), if ((nameTTL > 0))
190+    then unit
191+    else throw("TTL cannot be negative")]), [IntegerEntry(key_nameTTL, nameTTL)])
105192 
106193 
107194 
108195 @Callable(inv)
109-func supportsInterface (interfaceId) = $Tuple2(nil, (interfaceId == "addr"))
196+func supportsInterface (interfaceId) = $Tuple2(nil, containsElement(["owner", "resolver", "nameCreated", "nameExpires"], interfaceId))
110197 
111198 
112199 
113200 @Callable(inv)
114-func addr (name) = valueOrElse(modifiers([if ((size(name) > 0))
201+func addController (address) = valueOrElse(modifiers([onlyAdmin(inv), if (isValidAddress(address))
115202     then unit
116-    else throw("Name cannot be empty")]), $Tuple2(nil, _resolve(name, "addr")))
203+    else throw("Controller must be a valid address"), if (!(isController(address)))
204+    then unit
205+    else throw((("Controller `" + address) + "` is already registered"))]), [StringEntry(key_controllers, makeString((controllers :+ address), ","))])
206+
207+
208+
209+@Callable(inv)
210+func removeController (address) = valueOrElse(modifiers([onlyAdmin(inv), if (isController(address))
211+    then unit
212+    else throw((("Controller `" + address) + "` is not registered"))]), {
213+    let controllerIndex = value(indexOf(controllers, address))
214+[StringEntry(key_controllers, makeString(removeByIndex(controllers, controllerIndex), ","))]
215+    })
216+
217+
218+
219+@Callable(inv)
220+func available (name) = $Tuple2(nil, isAvailableName(name))
221+
222+
223+
224+@Callable(inv)
225+func owner (name) = $Tuple2(nil, _getOwner(_splitLastLabel(name)._1))
226+
227+
228+
229+@Callable(inv)
230+func resolver (name) = $Tuple2(nil, _getResolver(_splitLastLabel(name)._1))
231+
232+
233+
234+@Callable(inv)
235+func setResolver (name,resolver) = valueOrElse(modifiers([if (isActiveName(name))
236+    then unit
237+    else throw("Name expired or not registered"), onlyOwner(inv, name), if (isValidAddress(resolver))
238+    then unit
239+    else throw("Resolver must be a valid contract address")]), $Tuple2(nil, _setResolver(name, resolver)))
240+
241+
242+
243+@Callable(inv)
244+func nameCreated (name) = $Tuple2(nil, _getCreatedAt(_splitLastLabel(name)._1))
245+
246+
247+
248+@Callable(inv)
249+func nameExpires (name) = $Tuple2(nil, _getExpiresAt(_splitLastLabel(name)._1))
250+
251+
252+
253+@Callable(inv)
254+func register (name,owner,createdAt) = valueOrElse(modifiers([onlyController(inv), if (isAvailableName(name))
255+    then unit
256+    else throw((("`" + name) + "` cannot be registered")), if (isValidAddress(owner))
257+    then unit
258+    else throw("Owner must be a valid address"), if ((createdAt > 0))
259+    then unit
260+    else throw("CreatedAt cannot be negative"), if ((lastBlock.timestamp >= createdAt))
261+    then unit
262+    else throw("CreatedAt cannot be in the future")]), {
263+    let issueNameToken = _issueNameToken(name)
264+    let tokenId = calculateAssetId(issueNameToken[0])
265+    let tokenStr = toBase58String(tokenId)
266+    let registerNameWithToken = _registerNameWithToken(name, tokenStr, createdAt)
267+    let transferTokenToOwner = _transferTokenToOwner(tokenStr, owner)
268+    let setOwnership = _setOwner(name, owner)
269+    (((issueNameToken ++ registerNameWithToken) ++ transferTokenToOwner) ++ setOwnership)
270+    })
271+
272+
273+
274+@Callable(inv)
275+func reclaim (name) = valueOrElse(modifiers([if (isActiveName(name))
276+    then unit
277+    else throw((("`" + name) + "` is not active"))]), {
278+    let newOwner = inv.caller
279+    let newOwnerAddress = toString(newOwner)
280+    let tokenStr = valueOrErrorMessage(_getToken(name), (("No token is issued for `" + name) + "`"))
281+    let tokenId = fromBase58String(tokenStr)
282+    let hasToken = (assetBalance(newOwner, tokenId) == 1)
283+    let isTokenOwner = isOwner(inv, name)
284+    let isTokenExists =     match assetInfo(tokenId) {
285+        case token: Asset => 
286+            (token.quantity == 1)
287+        case _ => 
288+            false
289+    }
290+    if (if (isTokenOwner)
291+        then !(isTokenExists)
292+        else false)
293+        then {
294+            let issueNewToken = _issueNameToken(name)
295+            let newTokenId = calculateAssetId(issueNewToken[0])
296+            let newTokenStr = toBase58String(newTokenId)
297+            let restoreNameWithNewToken = _restoreNameWithToken(name, newTokenStr)
298+            let transferNewTokenToOwner = _transferTokenToOwner(newTokenStr, newOwnerAddress)
299+            ((issueNewToken ++ restoreNameWithNewToken) ++ transferNewTokenToOwner)
300+            }
301+        else if (if (isTokenOwner)
302+            then hasToken
303+            else false)
304+            then throw("You already own a name token")
305+            else if (!(hasToken))
306+                then throw("You don't have a name token")
307+                else _setOwner(name, newOwnerAddress)
308+    })
117309 
118310 
github/deemru/w8io/c3f4982 
33.55 ms ◑