gsister.h8"DD@4388"TEXTR*chLQ NPC sister "Cindy Mail" with description [; print "Cindy, your sister, married Rich Mail, a wealthy man who, in your opinion, was much too old for her. She now runs a payroll service."; print " She appears to be carrying "; if (child(self) == 0) print "nothing",(string) random(".^"," important.^"," interesting.^"); else { writelistfrom(child(self),ENGLISH_BIT+WORKFLAG_BIT+PARTINV_BIT+TERSE_BIT+CONCEAL_BIT,1); ".^"; } ], name "sister" "cindy" "mail", wantswill 1, AdjBefore [c Adj; switch(Adj) { ADJ_GEN: if (c==1) print "your "; print "sister "; c++; } return c; ], life [; Give: if (IsWill(noun) && self.wantswill < 3) { vox(self,"Oh, good. This will be fun!"); move noun to self; if(actor ~= uncle) self.wantswill = 4; rtrue; } if (self.WantsIt(noun)) { voxto(self,actor,"Oh, thank you."); move noun to self; rtrue; } voxto(self,actor,"No, thank you."); rtrue; ], NPC_hear [o s a b c t p; if (o ofclass phone && o.connection) p = (o.connection).caller; else p = o; switch(s) { sister: switch(a) { ##NotUnderStood: self.huh(o); ##give: if (b in self) switch(c) { default: switch(b) { default: voxto(self,o,"Oh, no. We must be fair.",-4,o); self.SetPro(o); } } else self.def_hear(o,s,a,b,c); default: self.def_hear(o,s,a,b,c); } default: ! s must be a string switch(a) { -3: if (b==self) switch(self.talktopic) { 'will': voxto(self,o,"Oh, good."); default: self.def_hear(o,s,a,b,c); } -4: if (b==self) switch(self.talktopic) { 'will': voxto(self,o,"Hmm."); default: self.def_hear(o,s,a,b,c); } -6: if (b==self) { self.SetPro(c); switch(c) { sister: if (p==player) voxto(self,o,"I'm your sister."); default: self.def_hear(o,s,a,b,c); } } -7: if (b==self) { self.SetPro(c); switch(c) { sister: voxto(self,o,"Oh, I'm sorry."); default: self.def_hear(o,s,a,b,c); } } -8: if (b==self) { self.SetPro(c); switch(c) { sister: voxto(self,o,"I like to knit."); playerobj: voxto(self,o,"Oh, you do whatever you like."); default: self.def_hear(o,s,a,b,c); } } -9: if (b==self) { self.SetPro(c); switch(c) { default: self.def_hear(o,s,a,b,c); } } -11: if (b==self) { self.SetPro(c); switch(c) { uncle,aunt,sister,sister,playerobj: voxto(self,o,"We're having a family reunion!"); default: self.def_hear(o,s,a,b,c); } } -12: if (b==self) voxto(self,o,"Oh."); -13: if (b==self) { self.SetPro(c); switch(c) { playerobj: if (p==player) voxto(self,o,"Oh, you're doing fine."); default: self.def_hear(o,s,a,b,c); } } -14: if (b==self) voxto(self,o,"Good bye!",-14,o); -15: if (b==self) voxto(self,o,"Tee hee",-1,o); -16: if (b==self) switch(o) { default: voxto(self,o,"Doh.",-15,o); } -17: if (b==self) voxto(self,o,"Pardon?",-1,o); -18: if (b==self) voxto(self,o,"Erm...",-17,o); -19: if (b==self) { self.SetPro(c); switch(c) { sister: voxto(self,o,"Just a whim, I suppose."); default: self.def_hear(o,s,a,b,c); } } -20: if (b==self) voxto(self,o,"I'd like to help.",-1,o); -23: if (b==self) { self.SetPro(c); if (ObjectSees(b,c)) voxto(self,o,"Why, right here."); else switch(c) { default: self.def_hear(o,s,a,b,c); } } -24: if (b==self) { self.SetPro(c); if (c in b) switch(c) { default: self.def_hear(o,s,a,b,c); } else self.def_hear(o,s,a,b,c);; } -25: if (b==self) voxto(self,o,"Alice Opovit."); ! user messages 1: if (b ~= self) rfalse; t = child(self); while (t ~= 0 && IsWill(t) == 0) t = sibling(t); if (t == 0) {voxto(self,o,"I don't have one.",2,o); rtrue;} if (o == uncle) { voxto(self,o,"Oh, be nice."); self.Act(##give,t,o); if (t in o) self.wantswill = 5-self.wantswill; rtrue; } else voxto(self,o,"I'm sure Uncle Ogdajon has one for you."); 4: voxto(self,o,"Ooh, I think I like pink."); 5: voxto(self,o,"I do it at the salon."); 11: voxto(self,o,"Get the cheques in the mail on time."); default: self.def_hear(o,s,a,b,c); } } ], Brain [s; switch(s) { 1: !Get a copy of the will if (self.wantswill < 3) { if (SameScope(uncle,self)) { if (self.wantswill == 1) voxto(self,uncle,"Uncle Ogdajon, may I have a copy of the will?",1,uncle); self.talktopic = 'will'; rtrue; } else Treasurehunt(self); } } ], WantsIt [ o; if (IsTreasure(o)) rtrue; rfalse; ], has transparent proper static animate female; hhF could this be?"); } gsister.hTEXTR*chTEXTR*chs phone && o.connection) p = (o.connection).caller; else p = o; switch(s) { cousin: switch(H Monacor`"tscckh 0h 044R*chHH(FG(HH(d'Monaco  Helvetica ConfidentialHhhFkY>FMPSRBBSTLkX$