CORE 09 - Hook Object.txt

@@ Core
@cmdquota me=99999

@skip isdbref(tag(setr(1,hobj)))={@assert/inline isdbref(tag(stor))=@pemit %#=ERROR: No storage object set!;@assert/inline isdbref(setr(0,create(Hook Object,,t)))=@pemit %#=ERROR: Could not create Include Library: %q0;@set %q0=INDESTRUCTIBLE NO_COMMAND;@tag/add %q1=%q0;@tel %q0=[tag(stor)]]}

@startup #hobj=@dolist/inline lattr(%!/HOOK.*)=@attach %!/%d0

&I_SCORE #hobj=0
&I_+PLAYERS #hobj=0
&I_KILL #hobj=0
&I_SLAY #hobj=0
&I_USE #hobj=0

&SHOW_ERROR #hobj=pemit(%#,rest(v(ERROR)))

&P_@password #hobj=0
&AF_@password #hobj=[pemit(%#,ansi(hr,ALERT:) @password has no affect on our softcoded login system! Use [ansi(hw,@acc/password <old>=<new>)] to change your password!)]

&B_@newpassword #hobj=[pemit(%#,ansi(hr,ALERT:) @newpassword has no affect on our softcoded login system! It will only work with the hidden [ansi(hw,_conn)] command at the login screen for emergencies! Use [ansi(hw,@account/newpassword <account>=<password>)] to properly reset passwords!)]

&HOOK.PASSWORDS #hobj=@hook/permit @password;@hook/fail @password;@hook/before @newpassword