CORE 01 - Initial.txt

@@ Core
@set me=INHERIT
@cmdquota me=99999

@if !isdbref(globalroom())=@pemit %#=[ansi(hr,ERROR: You have not set a global room yet!)]
@if lte(config(includenest),3)=@pemit %#=[ansi(hr,ERROR: Includenest is far too low. Check the readme!)]

@skip isdbref(tag(stor))={@assert/inline isdbref(globalroom())=@pemit %#=ERROR: No global room set!;@assert/inline isdbref(setr(0,create(Library Storage,,t)))=@pemit %#=ERROR: Could not create code object: %q0;@set %q0=INDESTRUCTIBLE NO_COMMAND;@tag/add stor=%q0;@tel #stor=[globalroom()]}

@skip isdbref(tag(setr(1,help_files)))={@assert/inline isdbref(tag(stor))=@pemit %#=ERROR: No storage object set!;@assert/inline isdbref(setr(0,create(Help Files,,t)))=@pemit %#=ERROR: Could not create code object %q1: %q0;@set %q0=INDESTRUCTIBLE NO_COMMAND;@tag/add %q1=%q0;@tel %q0=#stor}