Sick (#539)

(an instance of Generic Scorpion Player Class made by Sick)

     Sick is a wonderfully sick thing.

Sick is carrying sick features, generic integrating room, sick utilities and Millebornes database.

Go to location of this object, Tower Chamber.


Sick owns Sick sick features generic integrating room sick utilities Millebornes database Millebornes Game


VERB SOURCE CODE:

@code: 
if (!(spec = $code_utils:parse_verbref(args[1])))
    player:tell("Usage:  @code :");
    return;
endif
object = player:my_match_object(spec[1]);
if ($command_utils:object_match_failed(object, spec[1]))
    return;
endif
what = object;
vname = spec[2];
while ((what != $nothing) && ((code = verb_code(what, vname)) == E_VERBNF))
    what = parent(what);
endwhile
if (code == E_VERBNF)
    player:tell("That object does not define that verb.");
elseif (typeof(code) == ERR)
    player:tell(code);
elseif (code == {})
    player:tell("That verb has not been programmed.");
else
    su = $string_utils;
    if (what != object)
        player:tell("Object ", object, " does not define that verb, but its ancestor 
", what, " does.");
    endif
    info = verb_info(what, vname);
    vargs = verb_args(what, vname);
    if (index(vargs[2], "/"))
        vargs = listset(vargs, tostr("(", vargs[2], ")"), 2);
    endif
    player:tell("@verb ", what, ":", su:from_value(info[3], 1), " ", su:from_list(vargs, 
" "), " ", info[2]);
    player:tell("@program ", what, ":", vname);
    player:tell_lines(code);
    player:tell(".");
endif
.




eval_value_to_string:

set_task_perms(caller_perms());
this.last_eval_result = args[1];
return pass(@args);
.







PROPERTY DATA:


      misc


      misc2


      last_eval_result