Hellas Zone #29998TevI Owner: Elene  Credits: 1 Type: Thing  Flags: enter_ok visible inherit Zone: Universal Zone Created: Tue Sep  3 16:13:37 1996 Modified: Sun Dec 29 05:35:35 1996 Attribute definitions:ListQuestCmd DelQuestCmd AddQuestCmd Quest(): function HELLAS_WHO DOSEARCH Color: 1 #29998.DelQuestCmd: $@delquest *=*:/[wmatch(owner(v(#)),owner(me))]/[s(ifelse(wmatch(get(#22171,strcat(Q,v(1))),rmatch(v(#),v(0))),{@set#22171=Q[v(1)]:[s_with({[remove(v(1),wmatch(v(1),rmatch(v(#),v(0))),1)]},v(0),get(#22171,strcat(Q,v(1))))]},{@noop}))];@npem %#=Done.#29998.ListQuestCmd: $@listquest *:/[wmatch(owner(v(#)),owner(me))]/@npem%#=People who have completed the `%0' quest:[foreach(get(#22171,strcat(Q,v(0))),{[name(v(0))]([num(v(0))])})]#29998.Quest(): [truth(wmatch(get(#22171,strcat(Q,v(1))),num(v(0))))]#29998.AddQuestCmd: $@addquest*=*:/[wmatch(owner(v(#)),owner(me))]/[s(ifelse(wmatch(get(#22171,strcat(Q,v(1))),rmatch(v(#),v(0))),{@noop},{@set#22171=Q[v(1)]:[extract(s({[rmatch(v(#),v(0))][get(#22171,strcat(Q,v(1)))]}),1,20)]}))];@pem %#=Done.#29998.HELLAS_WHO: $HWHO:@foreach zwho(#29998)=@pemit %#=name(v(0)) %tname(room(v(0)))#29998.DOSEARCH: $search:[s(ifelse(scomp(get(loc(v(#)),searchmsg),NOMATCH),{@tr [loc(v(#))]/searchmsg=%#},{@pem %#=Carefully you look around you,but nothing out of the ordinary catches your eye.}))]I