tx · HQYBkyEqFZN1MiNtUSCBVABXcKbWb72DPAzms2rhDE8z

3NA73oUXjqp7SpudXWV1yMFuKm9awPbqsVz:  -0.01000000 Waves

2022.10.11 08:26 [2267258] smart account 3NA73oUXjqp7SpudXWV1yMFuKm9awPbqsVz > SELF 0.00000000 Waves

{ "type": 13, "id": "HQYBkyEqFZN1MiNtUSCBVABXcKbWb72DPAzms2rhDE8z", "fee": 1000000, "feeAssetId": null, "timestamp": 1665466027433, "version": 2, "chainId": 84, "sender": "3NA73oUXjqp7SpudXWV1yMFuKm9awPbqsVz", "senderPublicKey": "2mHW72YTfnxJ1M8WsdUQjgpp3a2SUbt9mbAiePGiuJok", "proofs": [ "5TfhFFP5tTsBeDTuNsRtvzsbwPZWBPEeMzTJcN1VvfDimp7NfocPrmvU7WWyyenWxjBPgs9wqRUZhnChhd5pdEhP" ], "script": "base64:AAIFAAAAAAAAADYIAhIDCgEBEgMKAQgSAwoBCBIDCgEIEgMKAQgSAwoBCBIDCgEIEgMKAQgSBQoDCAgBEgMKAQgAAAAiAQAAABBnZXRTdHJpbmdPclRocm93AAAAAgAAAAdhZGRyZXNzAAAAA2tleQkBAAAAE3ZhbHVlT3JFcnJvck1lc3NhZ2UAAAACCQAEHQAAAAIFAAAAB2FkZHJlc3MFAAAAA2tleQkAASwAAAACCQABLAAAAAIJAAEsAAAAAgIAAAAMQ2FuJ3QgcmVhZCAnBQAAAANrZXkCAAAADScgYXQgYWRkcmVzcyAJAAQlAAAAAQUAAAAHYWRkcmVzcwEAAAARZ2V0SW50ZWdlck9yVGhyb3cAAAACAAAAB2FkZHJlc3MAAAADa2V5CQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAAQaAAAAAgUAAAAHYWRkcmVzcwUAAAADa2V5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACAgAAAAxDYW4ndCByZWFkICcFAAAAA2tleQIAAAANJyBhdCBhZGRyZXNzIAkABCUAAAABBQAAAAdhZGRyZXNzAQAAABNwYXJzZUFkZHJlc3NPclRocm93AAAAAQAAAAxtYXliZUFkZHJlc3MJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkABCYAAAABBQAAAAxtYXliZUFkZHJlc3MJAAEsAAAAAgkAASwAAAACAgAAABpDYW4ndCBwYXJzZSBhZGRyZXNzIGZyb20gJwUAAAAMbWF5YmVBZGRyZXNzAgAAAAEnAQAAAAprZXlfZW50aXR5AAAAAwAAAARuYW1lAAAAAnBrAAAACHByb3BlcnR5CQABLAAAAAIJAAEsAAAAAgkAASwAAAACCQABLAAAAAIFAAAABG5hbWUCAAAAAV8FAAAAAnBrAgAAAAFfBQAAAAhwcm9wZXJ0eQEAAAAOa2V5X1Rva2VuX25hbWUAAAABAAAAB3Rva2VuSWQJAQAAAAprZXlfZW50aXR5AAAAAwIAAAAFVG9rZW4FAAAAB3Rva2VuSWQCAAAABG5hbWUBAAAADmtleV9OYW1lX3Rva2VuAAAAAQAAAARuYW1lCQEAAAAKa2V5X2VudGl0eQAAAAMCAAAABE5hbWUFAAAABG5hbWUCAAAABXRva2VuAQAAAA5rZXlfTmFtZV9vd25lcgAAAAEAAAAEbmFtZQkBAAAACmtleV9lbnRpdHkAAAADAgAAAAROYW1lBQAAAARuYW1lAgAAAAVvd25lcgEAAAASa2V5X05hbWVfZXhwaXJlc0F0AAAAAQAAAARuYW1lCQEAAAAKa2V5X2VudGl0eQAAAAMCAAAABE5hbWUFAAAABG5hbWUCAAAACWV4cGlyZXNBdAEAAAASa2V5X05hbWVfY3JlYXRlZEF0AAAAAQAAAARuYW1lCQEAAAAKa2V5X2VudGl0eQAAAAMCAAAABE5hbWUFAAAABG5hbWUCAAAACWNyZWF0ZWRBdAAAAAALa2V5X25hbWVUVEwCAAAAB25hbWVUVEwAAAAAD2tleV9jb250cm9sbGVycwIAAAALY29udHJvbGxlcnMBAAAACV9zZXRPd25lcgAAAAIAAAAEbmFtZQAAAAVvd25lcgkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAOa2V5X05hbWVfb3duZXIAAAABBQAAAARuYW1lBQAAAAVvd25lcgUAAAADbmlsAQAAAAlfZ2V0T3duZXIAAAABAAAABG5hbWUJAAQdAAAAAgUAAAAEdGhpcwkBAAAADmtleV9OYW1lX293bmVyAAAAAQUAAAAEbmFtZQEAAAAJX2dldFRva2VuAAAAAQAAAARuYW1lCQAEHQAAAAIFAAAABHRoaXMJAQAAAA5rZXlfTmFtZV90b2tlbgAAAAEFAAAABG5hbWUBAAAADV9nZXRDcmVhdGVkQXQAAAABAAAABG5hbWUJAAQaAAAAAgUAAAAEdGhpcwkBAAAAEmtleV9OYW1lX2NyZWF0ZWRBdAAAAAEFAAAABG5hbWUBAAAADV9nZXRFeHBpcmVzQXQAAAABAAAABG5hbWUJAAQaAAAAAgUAAAAEdGhpcwkBAAAAEmtleV9OYW1lX2V4cGlyZXNBdAAAAAEFAAAABG5hbWUBAAAAD19nZXRDb250cm9sbGVycwAAAAAJAAQdAAAAAgUAAAAEdGhpcwUAAAAPa2V5X2NvbnRyb2xsZXJzAAAAAAtjb250cm9sbGVycwQAAAAHJG1hdGNoMAkBAAAAD19nZXRDb250cm9sbGVycwAAAAADCQAAAQAAAAIFAAAAByRtYXRjaDACAAAABlN0cmluZwQAAAAEcmVwcgUAAAAHJG1hdGNoMAkABLUAAAACBQAAAARyZXByAgAAAAEsBQAAAANuaWwAAAAAB25hbWVUVEwJAQAAABFnZXRJbnRlZ2VyT3JUaHJvdwAAAAIFAAAABHRoaXMFAAAAC2tleV9uYW1lVFRMAQAAABBpc1JlZ2lzdGVyZWROYW1lAAAAAQAAAARuYW1lCQEAAAAJaXNEZWZpbmVkAAAAAQkABB0AAAACBQAAAAR0aGlzCQEAAAAOa2V5X05hbWVfdG9rZW4AAAABBQAAAARuYW1lAQAAAA1pc0NyZWF0ZWROYW1lAAAAAQAAAARuYW1lCQEAAAAJaXNEZWZpbmVkAAAAAQkBAAAADV9nZXRDcmVhdGVkQXQAAAABBQAAAARuYW1lAQAAAA1pc0V4cGlyZWROYW1lAAAAAQAAAARuYW1lBAAAAAckbWF0Y2gwCQEAAAANX2dldEV4cGlyZXNBdAAAAAEFAAAABG5hbWUDCQAAAQAAAAIFAAAAByRtYXRjaDACAAAAA0ludAQAAAAJZXhwaXJlc0F0BQAAAAckbWF0Y2gwCQAAZgAAAAIIBQAAAAlsYXN0QmxvY2sAAAAJdGltZXN0YW1wBQAAAAlleHBpcmVzQXQHAQAAAAxpc0FjdGl2ZU5hbWUAAAABAAAABG5hbWUDAwkBAAAAEGlzUmVnaXN0ZXJlZE5hbWUAAAABBQAAAARuYW1lCQEAAAANaXNDcmVhdGVkTmFtZQAAAAEFAAAABG5hbWUHCQEAAAABIQAAAAEJAQAAAA1pc0V4cGlyZWROYW1lAAAAAQUAAAAEbmFtZQcBAAAAD2lzQXZhaWxhYmxlTmFtZQAAAAEAAAAEbmFtZQQAAAAHc3ltYm9scwIAAAAlYWJjZGVmZ2hpamtsbW5vcHFyc3R1dnd4eXoxMjM0NTY3ODkwLQoBAAAADXZhbGlkYXRlQ2hhcnMAAAACAAAAB2lzVmFsaWQAAAAEY2hhcgMFAAAAB2lzVmFsaWQJAQAAAAhjb250YWlucwAAAAIFAAAAB3N5bWJvbHMFAAAABGNoYXIHBAAAAAtpc1ZhbGlkTmFtZQMDAwMDCQAAZgAAAAIJAAExAAAAAQUAAAAEbmFtZQAAAAAAAAAAAAkAAGcAAAACAAAAAAAAAAA/CQABMQAAAAEFAAAABG5hbWUHCQEAAAACIT0AAAACCQAEswAAAAIFAAAABG5hbWUCAAAAAi0tAAAAAAAAAAACBwkBAAAAAiE9AAAAAgkABLMAAAACBQAAAARuYW1lAgAAAAEtAAAAAAAAAAAABwkBAAAAAiE9AAAAAgkABLcAAAACBQAAAARuYW1lAgAAAAEtCQAAZQAAAAIJAAExAAAAAQUAAAAEbmFtZQAAAAAAAAAAAQcKAAAAAAIkbAkABLUAAAACBQAAAARuYW1lAgAAAAAKAAAAAAIkcwkAAZAAAAABBQAAAAIkbAoAAAAABSRhY2MwBgoBAAAABSRmMF8xAAAAAgAAAAIkYQAAAAIkaQMJAABnAAAAAgUAAAACJGkFAAAAAiRzBQAAAAIkYQkBAAAADXZhbGlkYXRlQ2hhcnMAAAACBQAAAAIkYQkAAZEAAAACBQAAAAIkbAUAAAACJGkKAQAAAAUkZjBfMgAAAAIAAAACJGEAAAACJGkDCQAAZwAAAAIFAAAAAiRpBQAAAAIkcwUAAAACJGEJAAACAAAAAQIAAAAUTGlzdCBzaXplIGV4Y2VlZHMgNjMJAQAAAAUkZjBfMgAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIJAQAAAAUkZjBfMQAAAAIFAAAABSRhY2MwAAAAAAAAAAAAAAAAAAAAAAABAAAAAAAAAAACAAAAAAAAAAADAAAAAAAAAAAEAAAAAAAAAAAFAAAAAAAAAAAGAAAAAAAAAAAHAAAAAAAAAAAIAAAAAAAAAAAJAAAAAAAAAAAKAAAAAAAAAAALAAAAAAAAAAAMAAAAAAAAAAANAAAAAAAAAAAOAAAAAAAAAAAPAAAAAAAAAAAQAAAAAAAAAAARAAAAAAAAAAASAAAAAAAAAAATAAAAAAAAAAAUAAAAAAAAAAAVAAAAAAAAAAAWAAAAAAAAAAAXAAAAAAAAAAAYAAAAAAAAAAAZAAAAAAAAAAAaAAAAAAAAAAAbAAAAAAAAAAAcAAAAAAAAAAAdAAAAAAAAAAAeAAAAAAAAAAAfAAAAAAAAAAAgAAAAAAAAAAAhAAAAAAAAAAAiAAAAAAAAAAAjAAAAAAAAAAAkAAAAAAAAAAAlAAAAAAAAAAAmAAAAAAAAAAAnAAAAAAAAAAAoAAAAAAAAAAApAAAAAAAAAAAqAAAAAAAAAAArAAAAAAAAAAAsAAAAAAAAAAAtAAAAAAAAAAAuAAAAAAAAAAAvAAAAAAAAAAAwAAAAAAAAAAAxAAAAAAAAAAAyAAAAAAAAAAAzAAAAAAAAAAA0AAAAAAAAAAA1AAAAAAAAAAA2AAAAAAAAAAA3AAAAAAAAAAA4AAAAAAAAAAA5AAAAAAAAAAA6AAAAAAAAAAA7AAAAAAAAAAA8AAAAAAAAAAA9AAAAAAAAAAA+AAAAAAAAAAA/BwQAAAAFaW5Vc2UDCQEAAAAQaXNSZWdpc3RlcmVkTmFtZQAAAAEFAAAABG5hbWUJAQAAAAEhAAAAAQkBAAAADWlzRXhwaXJlZE5hbWUAAAABBQAAAARuYW1lBwMJAQAAAAEhAAAAAQUAAAAFaW5Vc2UFAAAAC2lzVmFsaWROYW1lBwEAAAAHaXNBZG1pbgAAAAEAAAADaW52CQAAAAAAAAIIBQAAAANpbnYAAAAGY2FsbGVyBQAAAAR0aGlzAQAAAAdpc093bmVyAAAAAgAAAANpbnYAAAAEbmFtZQkAAAAAAAACCQAEJQAAAAEIBQAAAANpbnYAAAAGY2FsbGVyCQEAAAATdmFsdWVPckVycm9yTWVzc2FnZQAAAAIJAQAAAAlfZ2V0T3duZXIAAAABBQAAAARuYW1lCQABLAAAAAIJAAEsAAAAAgIAAAALT3duZXIgZm9yIGAFAAAABG5hbWUCAAAADmAgaXMgbm90IGZvdW5kAQAAAAxpc0NvbnRyb2xsZXIAAAABAAAAB2FkZHJlc3MJAQAAAA9jb250YWluc0VsZW1lbnQAAAACBQAAAAtjb250cm9sbGVycwUAAAAHYWRkcmVzcwEAAAAPX2lzc3VlTmFtZVRva2VuAAAAAQAAAARuYW1lCQAETAAAAAIJAARCAAAABQMJAABmAAAAAgkAATEAAAABBQAAAARuYW1lAAAAAAAAAAAQCQABLAAAAAIJAAEvAAAAAgUAAAAEbmFtZQAAAAAAAAAADwIAAAABfgkAAS8AAAACBQAAAARuYW1lAAAAAAAAAAAQCQABLAAAAAIFAAAABG5hbWUCAAAABi53YXZlcwAAAAAAAAAAAQAAAAAAAAAAAAcFAAAAA25pbAEAAAAWX3JlZ2lzdGVyTmFtZVdpdGhUb2tlbgAAAAMAAAAEbmFtZQAAAAd0b2tlbklkAAAACWNyZWF0ZWRBdAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAOa2V5X05hbWVfdG9rZW4AAAABBQAAAARuYW1lBQAAAAd0b2tlbklkCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAA5rZXlfVG9rZW5fbmFtZQAAAAEFAAAAB3Rva2VuSWQFAAAABG5hbWUJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAABJrZXlfTmFtZV9jcmVhdGVkQXQAAAABBQAAAARuYW1lBQAAAAljcmVhdGVkQXQJAARMAAAAAgkBAAAADEludGVnZXJFbnRyeQAAAAIJAQAAABJrZXlfTmFtZV9leHBpcmVzQXQAAAABBQAAAARuYW1lCQAAZAAAAAIFAAAACWNyZWF0ZWRBdAUAAAAHbmFtZVRUTAUAAAADbmlsAQAAABVfcmVzdG9yZU5hbWVXaXRoVG9rZW4AAAACAAAABG5hbWUAAAAHdG9rZW5JZAkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACCQEAAAAOa2V5X05hbWVfdG9rZW4AAAABBQAAAARuYW1lBQAAAAd0b2tlbklkCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIJAQAAAA5rZXlfVG9rZW5fbmFtZQAAAAEFAAAAB3Rva2VuSWQFAAAABG5hbWUFAAAAA25pbAEAAAAVX3RyYW5zZmVyVG9rZW5Ub093bmVyAAAAAgAAAAd0b2tlbklkAAAABW93bmVyCQAETAAAAAIJAQAAAA5TY3JpcHRUcmFuc2ZlcgAAAAMJAQAAABNwYXJzZUFkZHJlc3NPclRocm93AAAAAQUAAAAFb3duZXIAAAAAAAAAAAEJAAJZAAAAAQUAAAAHdG9rZW5JZAUAAAADbmlsAQAAAAltb2RpZmllcnMAAAABAAAAC3ZhbGlkYXRpb25zBQAAAAR1bml0AQAAAAlvbmx5QWRtaW4AAAABAAAAA2ludgMJAQAAAAdpc0FkbWluAAAAAQUAAAADaW52BQAAAAR1bml0CQAAAgAAAAECAAAAEVBlcm1pc3Npb24gZGVuaWVkAQAAAA5vbmx5Q29udHJvbGxlcgAAAAEAAAADaW52AwMJAQAAAAdpc0FkbWluAAAAAQUAAAADaW52BgkBAAAADGlzQ29udHJvbGxlcgAAAAEJAAQlAAAAAQgFAAAAA2ludgAAAAZjYWxsZXIFAAAABHVuaXQJAAACAAAAAQIAAAARUGVybWlzc2lvbiBkZW5pZWQAAAAKAAAAA2ludgEAAAAEaW5pdAAAAAEAAAAHbmFtZVRUTAkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkBAAAACW1vZGlmaWVycwAAAAEJAARMAAAAAgkBAAAACW9ubHlBZG1pbgAAAAEFAAAAA2ludgUAAAADbmlsCQAETAAAAAIJAQAAAAxJbnRlZ2VyRW50cnkAAAACBQAAAAtrZXlfbmFtZVRUTAUAAAAHbmFtZVRUTAUAAAADbmlsAAAAA2ludgEAAAANYWRkQ29udHJvbGxlcgAAAAEAAAAHYWRkcmVzcwkBAAAAC3ZhbHVlT3JFbHNlAAAAAgkBAAAACW1vZGlmaWVycwAAAAEJAARMAAAAAgkBAAAACW9ubHlBZG1pbgAAAAEFAAAAA2ludgkABEwAAAACAwkBAAAAASEAAAABCQEAAAAMaXNDb250cm9sbGVyAAAAAQUAAAAHYWRkcmVzcwUAAAAEdW5pdAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAMQ29udHJvbGxlciBgBQAAAAdhZGRyZXNzAgAAABdgIGlzIGFscmVhZHkgcmVnaXN0ZXJlZAUAAAADbmlsCQAETAAAAAIJAQAAAAtTdHJpbmdFbnRyeQAAAAIFAAAAD2tleV9jb250cm9sbGVycwkABLkAAAACCQAETQAAAAIFAAAAC2NvbnRyb2xsZXJzBQAAAAdhZGRyZXNzAgAAAAEsBQAAAANuaWwAAAADaW52AQAAABByZW1vdmVDb250cm9sbGVyAAAAAQAAAAdhZGRyZXNzCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACCQEAAAAJb25seUFkbWluAAAAAQUAAAADaW52CQAETAAAAAIDCQEAAAAMaXNDb250cm9sbGVyAAAAAQUAAAAHYWRkcmVzcwUAAAAEdW5pdAkAAAIAAAABCQABLAAAAAIJAAEsAAAAAgIAAAAMQ29udHJvbGxlciBgBQAAAAdhZGRyZXNzAgAAABNgIGlzIG5vdCByZWdpc3RlcmVkBQAAAANuaWwEAAAAD2NvbnRyb2xsZXJJbmRleAkBAAAABXZhbHVlAAAAAQkABE8AAAACBQAAAAtjb250cm9sbGVycwUAAAAHYWRkcmVzcwkABEwAAAACCQEAAAALU3RyaW5nRW50cnkAAAACBQAAAA9rZXlfY29udHJvbGxlcnMJAAS5AAAAAgkABFEAAAACBQAAAAtjb250cm9sbGVycwUAAAAPY29udHJvbGxlckluZGV4AgAAAAEsBQAAAANuaWwAAAADaW52AQAAAAlhdmFpbGFibGUAAAABAAAABG5hbWUJAAUUAAAAAgUAAAADbmlsCQEAAAAPaXNBdmFpbGFibGVOYW1lAAAAAQUAAAAEbmFtZQAAAANpbnYBAAAABW93bmVyAAAAAQAAAARuYW1lCQAFFAAAAAIFAAAAA25pbAkBAAAACV9nZXRPd25lcgAAAAEFAAAABG5hbWUAAAADaW52AQAAAAtuYW1lQ3JlYXRlZAAAAAEAAAAEbmFtZQkABRQAAAACBQAAAANuaWwJAQAAAA1fZ2V0Q3JlYXRlZEF0AAAAAQUAAAAEbmFtZQAAAANpbnYBAAAAC25hbWVFeHBpcmVzAAAAAQAAAARuYW1lCQAFFAAAAAIFAAAAA25pbAkBAAAADV9nZXRFeHBpcmVzQXQAAAABBQAAAARuYW1lAAAAA2ludgEAAAAKbmFtZVN0YXR1cwAAAAEAAAAEbmFtZQkABRQAAAACBQAAAANuaWwDCQEAAAABIQAAAAEJAQAAABBpc1JlZ2lzdGVyZWROYW1lAAAAAQUAAAAEbmFtZQIAAAAOTk9UX1JFR0lTVEVSRUQDCQEAAAANaXNFeHBpcmVkTmFtZQAAAAEFAAAABG5hbWUCAAAAB0VYUElSRUQDCQAAAAAAAAIJAAPwAAAAAgkBAAAABXZhbHVlAAAAAQkABCYAAAABCQEAAAAFdmFsdWUAAAABCQEAAAAJX2dldE93bmVyAAAAAQUAAAAEbmFtZQkAAlkAAAABCQEAAAAFdmFsdWUAAAABCQEAAAAJX2dldFRva2VuAAAAAQUAAAAEbmFtZQAAAAAAAAAAAAIAAAAJU1VTUEVOREVEAgAAAAZBQ1RJVkUAAAADaW52AQAAAAhyZWdpc3RlcgAAAAMAAAAEbmFtZQAAAAVvd25lcgAAAAljcmVhdGVkQXQJAQAAAAt2YWx1ZU9yRWxzZQAAAAIJAQAAAAltb2RpZmllcnMAAAABCQAETAAAAAIJAQAAAA5vbmx5Q29udHJvbGxlcgAAAAEFAAAAA2ludgkABEwAAAACAwkBAAAAD2lzQXZhaWxhYmxlTmFtZQAAAAEFAAAABG5hbWUFAAAABHVuaXQJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAAWAFAAAABG5hbWUCAAAAFmAgY2Fubm90IGJlIHJlZ2lzdGVyZWQJAARMAAAAAgMJAABnAAAAAggFAAAACWxhc3RCbG9jawAAAAl0aW1lc3RhbXAFAAAACWNyZWF0ZWRBdAUAAAAEdW5pdAkAAAIAAAABAgAAACFjcmVhdGVkQXQgY2Fubm90IGJlIGluIHRoZSBmdXR1cmUFAAAAA25pbAQAAAAOaXNzdWVOYW1lVG9rZW4JAQAAAA9faXNzdWVOYW1lVG9rZW4AAAABBQAAAARuYW1lBAAAAAd0b2tlbklkCQAEOAAAAAEJAAGRAAAAAgUAAAAOaXNzdWVOYW1lVG9rZW4AAAAAAAAAAAAEAAAACHRva2VuU3RyCQACWAAAAAEFAAAAB3Rva2VuSWQEAAAAFXJlZ2lzdGVyTmFtZVdpdGhUb2tlbgkBAAAAFl9yZWdpc3Rlck5hbWVXaXRoVG9rZW4AAAADBQAAAARuYW1lBQAAAAh0b2tlblN0cgUAAAAJY3JlYXRlZEF0BAAAABR0cmFuc2ZlclRva2VuVG9Pd25lcgkBAAAAFV90cmFuc2ZlclRva2VuVG9Pd25lcgAAAAIFAAAACHRva2VuU3RyBQAAAAVvd25lcgQAAAAMc2V0T3duZXJzaGlwCQEAAAAJX3NldE93bmVyAAAAAgUAAAAEbmFtZQUAAAAFb3duZXIJAAROAAAAAgkABE4AAAACCQAETgAAAAIFAAAADmlzc3VlTmFtZVRva2VuBQAAABVyZWdpc3Rlck5hbWVXaXRoVG9rZW4FAAAAFHRyYW5zZmVyVG9rZW5Ub093bmVyBQAAAAxzZXRPd25lcnNoaXAAAAADaW52AQAAAAdyZWNsYWltAAAAAQAAAARuYW1lCQEAAAALdmFsdWVPckVsc2UAAAACCQEAAAAJbW9kaWZpZXJzAAAAAQkABEwAAAACAwkBAAAADGlzQWN0aXZlTmFtZQAAAAEFAAAABG5hbWUFAAAABHVuaXQJAAACAAAAAQkAASwAAAACCQABLAAAAAICAAAAAWAFAAAABG5hbWUCAAAAD2AgaXMgbm90IGFjdGl2ZQUAAAADbmlsBAAAAAhuZXdPd25lcggFAAAAA2ludgAAAAZjYWxsZXIEAAAAD25ld093bmVyQWRkcmVzcwkABCUAAAABBQAAAAhuZXdPd25lcgQAAAAIdG9rZW5TdHIJAQAAABN2YWx1ZU9yRXJyb3JNZXNzYWdlAAAAAgkBAAAACV9nZXRUb2tlbgAAAAEFAAAABG5hbWUJAAEsAAAAAgkAASwAAAACAgAAABhObyB0b2tlbiBpcyBpc3N1ZWQgZm9yIGAFAAAABG5hbWUCAAAAAWAEAAAAB3Rva2VuSWQJAAJZAAAAAQUAAAAIdG9rZW5TdHIEAAAACGhhc1Rva2VuCQAAAAAAAAIJAAPwAAAAAgUAAAAIbmV3T3duZXIFAAAAB3Rva2VuSWQAAAAAAAAAAAEEAAAADGlzVG9rZW5Pd25lcgkBAAAAB2lzT3duZXIAAAACBQAAAANpbnYFAAAABG5hbWUEAAAADWlzVG9rZW5FeGlzdHMEAAAAByRtYXRjaDAJAAPsAAAAAQUAAAAHdG9rZW5JZAMJAAABAAAAAgUAAAAHJG1hdGNoMAIAAAAFQXNzZXQEAAAABXRva2VuBQAAAAckbWF0Y2gwCQAAAAAAAAIIBQAAAAV0b2tlbgAAAAhxdWFudGl0eQAAAAAAAAAAAQcDAwUAAAAMaXNUb2tlbk93bmVyCQEAAAABIQAAAAEFAAAADWlzVG9rZW5FeGlzdHMHBAAAAA1pc3N1ZU5ld1Rva2VuCQEAAAAPX2lzc3VlTmFtZVRva2VuAAAAAQUAAAAEbmFtZQQAAAAKbmV3VG9rZW5JZAkABDgAAAABCQABkQAAAAIFAAAADWlzc3VlTmV3VG9rZW4AAAAAAAAAAAAEAAAAC25ld1Rva2VuU3RyCQACWAAAAAEFAAAACm5ld1Rva2VuSWQEAAAAF3Jlc3RvcmVOYW1lV2l0aE5ld1Rva2VuCQEAAAAVX3Jlc3RvcmVOYW1lV2l0aFRva2VuAAAAAgUAAAAEbmFtZQUAAAALbmV3VG9rZW5TdHIEAAAAF3RyYW5zZmVyTmV3VG9rZW5Ub093bmVyCQEAAAAVX3RyYW5zZmVyVG9rZW5Ub093bmVyAAAAAgUAAAALbmV3VG9rZW5TdHIFAAAAD25ld093bmVyQWRkcmVzcwkABE4AAAACCQAETgAAAAIFAAAADWlzc3VlTmV3VG9rZW4FAAAAF3Jlc3RvcmVOYW1lV2l0aE5ld1Rva2VuBQAAABd0cmFuc2Zlck5ld1Rva2VuVG9Pd25lcgMDBQAAAAxpc1Rva2VuT3duZXIFAAAACGhhc1Rva2VuBwkAAAIAAAABAgAAABxZb3UgYWxyZWFkeSBvd24gYSBuYW1lIHRva2VuAwkBAAAAASEAAAABBQAAAAhoYXNUb2tlbgkAAAIAAAABAgAAABtZb3UgZG9uJ3QgaGF2ZSBhIG5hbWUgdG9rZW4JAQAAAAlfc2V0T3duZXIAAAACBQAAAARuYW1lBQAAAA9uZXdPd25lckFkZHJlc3MAAAAAwnqOkw==", "height": 2267258, "applicationStatus": "succeeded", "spentComplexity": 0 } View: original | compacted Prev: BAdaQGgqqyGcP16g8okMXKSeEMgLd7ktKQri45EKjzQF Next: 9VXzJkXmyaeB2ZyAJowtUcYhtDzsTABjFBMZGtJsaJ4r Diff:
OldNewDifferences
2828 func key_Name_createdAt (name) = key_entity("Name", name, "createdAt")
2929
3030
31-func key_Owner_name (address) = key_entity("Owner", address, "name")
31+let key_nameTTL = "nameTTL"
32+
33+let key_controllers = "controllers"
34+
35+func _setOwner (name,owner) = [StringEntry(key_Name_owner(name), owner)]
3236
3337
34-let key_auctionAddress = "auctionAddress"
35-
36-let key_nameExpirationInterval = "nameExpirationInterval"
37-
38-let key_maxAuthorizedFee = "maxAuthorizedFee"
39-
40-let auctionAddress = getStringOrThrow(this, key_auctionAddress)
41-
42-let auction = parseAddressOrThrow(auctionAddress)
43-
44-let nameExpirationInterval = getIntegerOrThrow(this, key_nameExpirationInterval)
45-
46-let maxAuthorizedFee = getIntegerOrThrow(this, key_maxAuthorizedFee)
47-
48-func whoIs (name) = {
49- let expiresAt = getIntegerOrThrow(this, key_Name_expiresAt(name))
50- let token = getStringOrThrow(this, key_Name_token(name))
51- let owner = getStringOrThrow(this, key_Name_owner(name))
52- $Tuple3(owner, expiresAt, token)
53- }
38+func _getOwner (name) = getString(this, key_Name_owner(name))
5439
5540
56-func isRegisteredToken (tokenId) = isDefined(getString(this, key_Token_name(tokenId)))
41+func _getToken (name) = getString(this, key_Name_token(name))
5742
43+
44+func _getCreatedAt (name) = getInteger(this, key_Name_createdAt(name))
45+
46+
47+func _getExpiresAt (name) = getInteger(this, key_Name_expiresAt(name))
48+
49+
50+func _getControllers () = getString(this, key_controllers)
51+
52+
53+let controllers = match _getControllers() {
54+ case repr: String =>
55+ split(repr, ",")
56+ case _ =>
57+ nil
58+}
59+
60+let nameTTL = getIntegerOrThrow(this, key_nameTTL)
5861
5962 func isRegisteredName (name) = isDefined(getString(this, key_Name_token(name)))
6063
6164
62-func isExpiredName (name) = match getInteger(this, key_Name_expiresAt(name)) {
65+func isCreatedName (name) = isDefined(_getCreatedAt(name))
66+
67+
68+func isExpiredName (name) = match _getExpiresAt(name) {
6369 case expiresAt: Int =>
6470 (lastBlock.timestamp > expiresAt)
6571 case _ =>
6773 }
6874
6975
76+func isActiveName (name) = if (if (isRegisteredName(name))
77+ then isCreatedName(name)
78+ else false)
79+ then !(isExpiredName(name))
80+ else false
81+
82+
83+func isAvailableName (name) = {
84+ let symbols = "abcdefghijklmnopqrstuvwxyz1234567890-"
85+ func validateChars (isValid,char) = if (isValid)
86+ then contains(symbols, char)
87+ else false
88+
89+ let isValidName = if (if (if (if (if ((size(name) > 0))
90+ then (63 >= size(name))
91+ else false)
92+ then (indexOf(name, "--") != 2)
93+ else false)
94+ then (indexOf(name, "-") != 0)
95+ else false)
96+ then (lastIndexOf(name, "-") != (size(name) - 1))
97+ else false)
98+ then {
99+ let $l = split(name, "")
100+ let $s = size($l)
101+ let $acc0 = true
102+ func $f0_1 ($a,$i) = if (($i >= $s))
103+ then $a
104+ else validateChars($a, $l[$i])
105+
106+ func $f0_2 ($a,$i) = if (($i >= $s))
107+ then $a
108+ else throw("List size exceeds 63")
109+
110+ $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)
111+ }
112+ else false
113+ let inUse = if (isRegisteredName(name))
114+ then !(isExpiredName(name))
115+ else false
116+ if (!(inUse))
117+ then isValidName
118+ else false
119+ }
120+
121+
122+func isAdmin (inv) = (inv.caller == this)
123+
124+
125+func isOwner (inv,name) = (toString(inv.caller) == valueOrErrorMessage(_getOwner(name), (("Owner for `" + name) + "` is not found")))
126+
127+
128+func isController (address) = containsElement(controllers, address)
129+
130+
131+func _issueNameToken (name) = [Issue(if ((size(name) > 16))
132+ then (take(name, 15) + "~")
133+ else take(name, 16), (name + ".waves"), 1, 0, false)]
134+
135+
136+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))]
137+
138+
139+func _restoreNameWithToken (name,tokenId) = [StringEntry(key_Name_token(name), tokenId), StringEntry(key_Token_name(tokenId), name)]
140+
141+
142+func _transferTokenToOwner (tokenId,owner) = [ScriptTransfer(parseAddressOrThrow(owner), 1, fromBase58String(tokenId))]
143+
144+
145+func modifiers (validations) = unit
146+
147+
148+func onlyAdmin (inv) = if (isAdmin(inv))
149+ then unit
150+ else throw("Permission denied")
151+
152+
153+func onlyController (inv) = if (if (isAdmin(inv))
154+ then true
155+ else isController(toString(inv.caller)))
156+ then unit
157+ else throw("Permission denied")
158+
159+
70160 @Callable(inv)
71-func init (auctionAddress,nameExpirationInterval) = if ((inv.caller != this))
72- then throw("Permission denied")
73- else [StringEntry(key_auctionAddress, auctionAddress), IntegerEntry(key_nameExpirationInterval, nameExpirationInterval)]
161+func init (nameTTL) = valueOrElse(modifiers([onlyAdmin(inv)]), [IntegerEntry(key_nameTTL, nameTTL)])
74162
75163
76164
77165 @Callable(inv)
78-func registerOwnership (name) = {
79- let caller = inv.caller
80- let callerStr = toString(caller)
81- let $t028233081 = match invoke(auction, "getWinnerInfo", [name], nil) {
82- case winnerInfo: (Int, String, String) =>
83- winnerInfo
84- case _ =>
85- throw("Unsupported result format (getWinnerInfo)")
86- }
87- let winnerAuctionId = $t028233081._1
88- let winnerAddress = $t028233081._2
89- let winnerHash = $t028233081._3
90- let auctionEnd = match invoke(auction, "getAuctionById", [winnerAuctionId], nil) {
91- case info: (Int, String, Int, Int, Int) =>
92- info._5
93- case _ =>
94- throw("Unsupported result format (getAuctionById)")
95- }
96- if ((callerStr != winnerAddress))
97- then throw(((("Winner address " + winnerAddress) + "doesn't match with caller address") + callerStr))
98- else if (if (isRegisteredName(name))
99- then !(isExpiredName(name))
100- else false)
101- then throw("Name already in use")
102- else {
103- let issueNameToken = Issue(if ((size(name) > 16))
104- then (take(name, 15) + "~")
105- else take(name, 16), name, 1, 0, false)
106- let tokenId = calculateAssetId(issueNameToken)
107- let tokenStr = toBase58String(tokenId)
108- let issueAndRegister = [issueNameToken, StringEntry(key_Name_token(name), tokenStr), StringEntry(key_Token_name(tokenStr), name), IntegerEntry(key_Name_createdAt(name), auctionEnd), IntegerEntry(key_Name_expiresAt(name), (auctionEnd + nameExpirationInterval))]
109- let setOwnershipAndTransfer = [StringEntry(key_Name_owner(name), callerStr), ScriptTransfer(caller, 1, tokenId)]
110- (issueAndRegister ++ setOwnershipAndTransfer)
111- }
112- }
166+func addController (address) = valueOrElse(modifiers([onlyAdmin(inv), if (!(isController(address)))
167+ then unit
168+ else throw((("Controller `" + address) + "` is already registered"))]), [StringEntry(key_controllers, makeString((controllers :+ address), ","))])
113169
114170
115171
116172 @Callable(inv)
117-func approveOwnership (name) = {
118- let caller = inv.caller
119- let callerStr = toString(caller)
120- let owner = valueOrErrorMessage(getString(this, key_Name_owner(name)), "Owner is not defined")
121- let tokenStr = valueOrErrorMessage(getString(this, key_Name_token(name)), "No token is issued for this name")
173+func removeController (address) = valueOrElse(modifiers([onlyAdmin(inv), if (isController(address))
174+ then unit
175+ else throw((("Controller `" + address) + "` is not registered"))]), {
176+ let controllerIndex = value(indexOf(controllers, address))
177+[StringEntry(key_controllers, makeString(removeByIndex(controllers, controllerIndex), ","))]
178+ })
179+
180+
181+
182+@Callable(inv)
183+func available (name) = $Tuple2(nil, isAvailableName(name))
184+
185+
186+
187+@Callable(inv)
188+func owner (name) = $Tuple2(nil, _getOwner(name))
189+
190+
191+
192+@Callable(inv)
193+func nameCreated (name) = $Tuple2(nil, _getCreatedAt(name))
194+
195+
196+
197+@Callable(inv)
198+func nameExpires (name) = $Tuple2(nil, _getExpiresAt(name))
199+
200+
201+
202+@Callable(inv)
203+func nameStatus (name) = $Tuple2(nil, if (!(isRegisteredName(name)))
204+ then "NOT_REGISTERED"
205+ else if (isExpiredName(name))
206+ then "EXPIRED"
207+ else if ((assetBalance(value(addressFromString(value(_getOwner(name)))), fromBase58String(value(_getToken(name)))) == 0))
208+ then "SUSPENDED"
209+ else "ACTIVE")
210+
211+
212+
213+@Callable(inv)
214+func register (name,owner,createdAt) = valueOrElse(modifiers([onlyController(inv), if (isAvailableName(name))
215+ then unit
216+ else throw((("`" + name) + "` cannot be registered")), if ((lastBlock.timestamp >= createdAt))
217+ then unit
218+ else throw("createdAt cannot be in the future")]), {
219+ let issueNameToken = _issueNameToken(name)
220+ let tokenId = calculateAssetId(issueNameToken[0])
221+ let tokenStr = toBase58String(tokenId)
222+ let registerNameWithToken = _registerNameWithToken(name, tokenStr, createdAt)
223+ let transferTokenToOwner = _transferTokenToOwner(tokenStr, owner)
224+ let setOwnership = _setOwner(name, owner)
225+ (((issueNameToken ++ registerNameWithToken) ++ transferTokenToOwner) ++ setOwnership)
226+ })
227+
228+
229+
230+@Callable(inv)
231+func reclaim (name) = valueOrElse(modifiers([if (isActiveName(name))
232+ then unit
233+ else throw((("`" + name) + "` is not active"))]), {
234+ let newOwner = inv.caller
235+ let newOwnerAddress = toString(newOwner)
236+ let tokenStr = valueOrErrorMessage(_getToken(name), (("No token is issued for `" + name) + "`"))
122237 let tokenId = fromBase58String(tokenStr)
123- let token = match assetInfo(tokenId) {
124- case a: Asset =>
125- a
238+ let hasToken = (assetBalance(newOwner, tokenId) == 1)
239+ let isTokenOwner = isOwner(inv, name)
240+ let isTokenExists = match assetInfo(tokenId) {
241+ case token: Asset =>
242+ (token.quantity == 1)
126243 case _ =>
127- throw("Can't find asset")
244+ false
128245 }
129- if ((callerStr == owner))
130- then throw("You already own this name")
131- else if (!(isRegisteredName(name)))
132- then throw("Name is not registered")
133- else if (isExpiredName(name))
134- then throw("The period of ownership has expired")
135- else if ((assetBalance(caller, tokenId) == 0))
136- then throw("You don't have a named token")
137- else [StringEntry(key_Name_owner(name), callerStr)]
138- }
246+ if (if (isTokenOwner)
247+ then !(isTokenExists)
248+ else false)
249+ then {
250+ let issueNewToken = _issueNameToken(name)
251+ let newTokenId = calculateAssetId(issueNewToken[0])
252+ let newTokenStr = toBase58String(newTokenId)
253+ let restoreNameWithNewToken = _restoreNameWithToken(name, newTokenStr)
254+ let transferNewTokenToOwner = _transferTokenToOwner(newTokenStr, newOwnerAddress)
255+ ((issueNewToken ++ restoreNameWithNewToken) ++ transferNewTokenToOwner)
256+ }
257+ else if (if (isTokenOwner)
258+ then hasToken
259+ else false)
260+ then throw("You already own a name token")
261+ else if (!(hasToken))
262+ then throw("You don't have a name token")
263+ else _setOwner(name, newOwnerAddress)
264+ })
139265
140266
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
77 func getIntegerOrThrow (address,key) = valueOrErrorMessage(getInteger(address, key), ((("Can't read '" + key) + "' at address ") + toString(address)))
88
99
1010 func parseAddressOrThrow (maybeAddress) = valueOrErrorMessage(addressFromString(maybeAddress), (("Can't parse address from '" + maybeAddress) + "'"))
1111
1212
1313 func key_entity (name,pk,property) = ((((name + "_") + pk) + "_") + property)
1414
1515
1616 func key_Token_name (tokenId) = key_entity("Token", tokenId, "name")
1717
1818
1919 func key_Name_token (name) = key_entity("Name", name, "token")
2020
2121
2222 func key_Name_owner (name) = key_entity("Name", name, "owner")
2323
2424
2525 func key_Name_expiresAt (name) = key_entity("Name", name, "expiresAt")
2626
2727
2828 func key_Name_createdAt (name) = key_entity("Name", name, "createdAt")
2929
3030
31-func key_Owner_name (address) = key_entity("Owner", address, "name")
31+let key_nameTTL = "nameTTL"
32+
33+let key_controllers = "controllers"
34+
35+func _setOwner (name,owner) = [StringEntry(key_Name_owner(name), owner)]
3236
3337
34-let key_auctionAddress = "auctionAddress"
35-
36-let key_nameExpirationInterval = "nameExpirationInterval"
37-
38-let key_maxAuthorizedFee = "maxAuthorizedFee"
39-
40-let auctionAddress = getStringOrThrow(this, key_auctionAddress)
41-
42-let auction = parseAddressOrThrow(auctionAddress)
43-
44-let nameExpirationInterval = getIntegerOrThrow(this, key_nameExpirationInterval)
45-
46-let maxAuthorizedFee = getIntegerOrThrow(this, key_maxAuthorizedFee)
47-
48-func whoIs (name) = {
49- let expiresAt = getIntegerOrThrow(this, key_Name_expiresAt(name))
50- let token = getStringOrThrow(this, key_Name_token(name))
51- let owner = getStringOrThrow(this, key_Name_owner(name))
52- $Tuple3(owner, expiresAt, token)
53- }
38+func _getOwner (name) = getString(this, key_Name_owner(name))
5439
5540
56-func isRegisteredToken (tokenId) = isDefined(getString(this, key_Token_name(tokenId)))
41+func _getToken (name) = getString(this, key_Name_token(name))
5742
43+
44+func _getCreatedAt (name) = getInteger(this, key_Name_createdAt(name))
45+
46+
47+func _getExpiresAt (name) = getInteger(this, key_Name_expiresAt(name))
48+
49+
50+func _getControllers () = getString(this, key_controllers)
51+
52+
53+let controllers = match _getControllers() {
54+ case repr: String =>
55+ split(repr, ",")
56+ case _ =>
57+ nil
58+}
59+
60+let nameTTL = getIntegerOrThrow(this, key_nameTTL)
5861
5962 func isRegisteredName (name) = isDefined(getString(this, key_Name_token(name)))
6063
6164
62-func isExpiredName (name) = match getInteger(this, key_Name_expiresAt(name)) {
65+func isCreatedName (name) = isDefined(_getCreatedAt(name))
66+
67+
68+func isExpiredName (name) = match _getExpiresAt(name) {
6369 case expiresAt: Int =>
6470 (lastBlock.timestamp > expiresAt)
6571 case _ =>
6672 false
6773 }
6874
6975
76+func isActiveName (name) = if (if (isRegisteredName(name))
77+ then isCreatedName(name)
78+ else false)
79+ then !(isExpiredName(name))
80+ else false
81+
82+
83+func isAvailableName (name) = {
84+ let symbols = "abcdefghijklmnopqrstuvwxyz1234567890-"
85+ func validateChars (isValid,char) = if (isValid)
86+ then contains(symbols, char)
87+ else false
88+
89+ let isValidName = if (if (if (if (if ((size(name) > 0))
90+ then (63 >= size(name))
91+ else false)
92+ then (indexOf(name, "--") != 2)
93+ else false)
94+ then (indexOf(name, "-") != 0)
95+ else false)
96+ then (lastIndexOf(name, "-") != (size(name) - 1))
97+ else false)
98+ then {
99+ let $l = split(name, "")
100+ let $s = size($l)
101+ let $acc0 = true
102+ func $f0_1 ($a,$i) = if (($i >= $s))
103+ then $a
104+ else validateChars($a, $l[$i])
105+
106+ func $f0_2 ($a,$i) = if (($i >= $s))
107+ then $a
108+ else throw("List size exceeds 63")
109+
110+ $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)
111+ }
112+ else false
113+ let inUse = if (isRegisteredName(name))
114+ then !(isExpiredName(name))
115+ else false
116+ if (!(inUse))
117+ then isValidName
118+ else false
119+ }
120+
121+
122+func isAdmin (inv) = (inv.caller == this)
123+
124+
125+func isOwner (inv,name) = (toString(inv.caller) == valueOrErrorMessage(_getOwner(name), (("Owner for `" + name) + "` is not found")))
126+
127+
128+func isController (address) = containsElement(controllers, address)
129+
130+
131+func _issueNameToken (name) = [Issue(if ((size(name) > 16))
132+ then (take(name, 15) + "~")
133+ else take(name, 16), (name + ".waves"), 1, 0, false)]
134+
135+
136+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))]
137+
138+
139+func _restoreNameWithToken (name,tokenId) = [StringEntry(key_Name_token(name), tokenId), StringEntry(key_Token_name(tokenId), name)]
140+
141+
142+func _transferTokenToOwner (tokenId,owner) = [ScriptTransfer(parseAddressOrThrow(owner), 1, fromBase58String(tokenId))]
143+
144+
145+func modifiers (validations) = unit
146+
147+
148+func onlyAdmin (inv) = if (isAdmin(inv))
149+ then unit
150+ else throw("Permission denied")
151+
152+
153+func onlyController (inv) = if (if (isAdmin(inv))
154+ then true
155+ else isController(toString(inv.caller)))
156+ then unit
157+ else throw("Permission denied")
158+
159+
70160 @Callable(inv)
71-func init (auctionAddress,nameExpirationInterval) = if ((inv.caller != this))
72- then throw("Permission denied")
73- else [StringEntry(key_auctionAddress, auctionAddress), IntegerEntry(key_nameExpirationInterval, nameExpirationInterval)]
161+func init (nameTTL) = valueOrElse(modifiers([onlyAdmin(inv)]), [IntegerEntry(key_nameTTL, nameTTL)])
74162
75163
76164
77165 @Callable(inv)
78-func registerOwnership (name) = {
79- let caller = inv.caller
80- let callerStr = toString(caller)
81- let $t028233081 = match invoke(auction, "getWinnerInfo", [name], nil) {
82- case winnerInfo: (Int, String, String) =>
83- winnerInfo
84- case _ =>
85- throw("Unsupported result format (getWinnerInfo)")
86- }
87- let winnerAuctionId = $t028233081._1
88- let winnerAddress = $t028233081._2
89- let winnerHash = $t028233081._3
90- let auctionEnd = match invoke(auction, "getAuctionById", [winnerAuctionId], nil) {
91- case info: (Int, String, Int, Int, Int) =>
92- info._5
93- case _ =>
94- throw("Unsupported result format (getAuctionById)")
95- }
96- if ((callerStr != winnerAddress))
97- then throw(((("Winner address " + winnerAddress) + "doesn't match with caller address") + callerStr))
98- else if (if (isRegisteredName(name))
99- then !(isExpiredName(name))
100- else false)
101- then throw("Name already in use")
102- else {
103- let issueNameToken = Issue(if ((size(name) > 16))
104- then (take(name, 15) + "~")
105- else take(name, 16), name, 1, 0, false)
106- let tokenId = calculateAssetId(issueNameToken)
107- let tokenStr = toBase58String(tokenId)
108- let issueAndRegister = [issueNameToken, StringEntry(key_Name_token(name), tokenStr), StringEntry(key_Token_name(tokenStr), name), IntegerEntry(key_Name_createdAt(name), auctionEnd), IntegerEntry(key_Name_expiresAt(name), (auctionEnd + nameExpirationInterval))]
109- let setOwnershipAndTransfer = [StringEntry(key_Name_owner(name), callerStr), ScriptTransfer(caller, 1, tokenId)]
110- (issueAndRegister ++ setOwnershipAndTransfer)
111- }
112- }
166+func addController (address) = valueOrElse(modifiers([onlyAdmin(inv), if (!(isController(address)))
167+ then unit
168+ else throw((("Controller `" + address) + "` is already registered"))]), [StringEntry(key_controllers, makeString((controllers :+ address), ","))])
113169
114170
115171
116172 @Callable(inv)
117-func approveOwnership (name) = {
118- let caller = inv.caller
119- let callerStr = toString(caller)
120- let owner = valueOrErrorMessage(getString(this, key_Name_owner(name)), "Owner is not defined")
121- let tokenStr = valueOrErrorMessage(getString(this, key_Name_token(name)), "No token is issued for this name")
173+func removeController (address) = valueOrElse(modifiers([onlyAdmin(inv), if (isController(address))
174+ then unit
175+ else throw((("Controller `" + address) + "` is not registered"))]), {
176+ let controllerIndex = value(indexOf(controllers, address))
177+[StringEntry(key_controllers, makeString(removeByIndex(controllers, controllerIndex), ","))]
178+ })
179+
180+
181+
182+@Callable(inv)
183+func available (name) = $Tuple2(nil, isAvailableName(name))
184+
185+
186+
187+@Callable(inv)
188+func owner (name) = $Tuple2(nil, _getOwner(name))
189+
190+
191+
192+@Callable(inv)
193+func nameCreated (name) = $Tuple2(nil, _getCreatedAt(name))
194+
195+
196+
197+@Callable(inv)
198+func nameExpires (name) = $Tuple2(nil, _getExpiresAt(name))
199+
200+
201+
202+@Callable(inv)
203+func nameStatus (name) = $Tuple2(nil, if (!(isRegisteredName(name)))
204+ then "NOT_REGISTERED"
205+ else if (isExpiredName(name))
206+ then "EXPIRED"
207+ else if ((assetBalance(value(addressFromString(value(_getOwner(name)))), fromBase58String(value(_getToken(name)))) == 0))
208+ then "SUSPENDED"
209+ else "ACTIVE")
210+
211+
212+
213+@Callable(inv)
214+func register (name,owner,createdAt) = valueOrElse(modifiers([onlyController(inv), if (isAvailableName(name))
215+ then unit
216+ else throw((("`" + name) + "` cannot be registered")), if ((lastBlock.timestamp >= createdAt))
217+ then unit
218+ else throw("createdAt cannot be in the future")]), {
219+ let issueNameToken = _issueNameToken(name)
220+ let tokenId = calculateAssetId(issueNameToken[0])
221+ let tokenStr = toBase58String(tokenId)
222+ let registerNameWithToken = _registerNameWithToken(name, tokenStr, createdAt)
223+ let transferTokenToOwner = _transferTokenToOwner(tokenStr, owner)
224+ let setOwnership = _setOwner(name, owner)
225+ (((issueNameToken ++ registerNameWithToken) ++ transferTokenToOwner) ++ setOwnership)
226+ })
227+
228+
229+
230+@Callable(inv)
231+func reclaim (name) = valueOrElse(modifiers([if (isActiveName(name))
232+ then unit
233+ else throw((("`" + name) + "` is not active"))]), {
234+ let newOwner = inv.caller
235+ let newOwnerAddress = toString(newOwner)
236+ let tokenStr = valueOrErrorMessage(_getToken(name), (("No token is issued for `" + name) + "`"))
122237 let tokenId = fromBase58String(tokenStr)
123- let token = match assetInfo(tokenId) {
124- case a: Asset =>
125- a
238+ let hasToken = (assetBalance(newOwner, tokenId) == 1)
239+ let isTokenOwner = isOwner(inv, name)
240+ let isTokenExists = match assetInfo(tokenId) {
241+ case token: Asset =>
242+ (token.quantity == 1)
126243 case _ =>
127- throw("Can't find asset")
244+ false
128245 }
129- if ((callerStr == owner))
130- then throw("You already own this name")
131- else if (!(isRegisteredName(name)))
132- then throw("Name is not registered")
133- else if (isExpiredName(name))
134- then throw("The period of ownership has expired")
135- else if ((assetBalance(caller, tokenId) == 0))
136- then throw("You don't have a named token")
137- else [StringEntry(key_Name_owner(name), callerStr)]
138- }
246+ if (if (isTokenOwner)
247+ then !(isTokenExists)
248+ else false)
249+ then {
250+ let issueNewToken = _issueNameToken(name)
251+ let newTokenId = calculateAssetId(issueNewToken[0])
252+ let newTokenStr = toBase58String(newTokenId)
253+ let restoreNameWithNewToken = _restoreNameWithToken(name, newTokenStr)
254+ let transferNewTokenToOwner = _transferTokenToOwner(newTokenStr, newOwnerAddress)
255+ ((issueNewToken ++ restoreNameWithNewToken) ++ transferNewTokenToOwner)
256+ }
257+ else if (if (isTokenOwner)
258+ then hasToken
259+ else false)
260+ then throw("You already own a name token")
261+ else if (!(hasToken))
262+ then throw("You don't have a name token")
263+ else _setOwner(name, newOwnerAddress)
264+ })
139265
140266

github/deemru/w8io/3ef1775 
90.79 ms