(continued...)
// Do Move
sprintf(buf, "%s\r\n", move_messages[j][0]);
act(buf, FALSE, 0, 0, 0, TO_ROOM);
char_from_room(mob);
char_to_room(mob, location);
sprintf(buf, "%s\r\n", move_messages[j][1]);
act(buf, FALSE, 0, 0, 0, TO_ROOM);
// Inbound Message
switch (number (0, 19)) {
case 0:
do_say(mob, "Hello!", cmd_say, 0);
break;
case 1:
do_say(mob, "Where did YOU come from?", cmd_say, 0);
break;
case 2:
do_say(mob, "I want my longbearded dwarfesses back!", cmd_say,
0);
do_action(mob, 0, cmd_whine, 0);
break;
case 3:
do_say(mob, "Did you remember to vote in the city elections?",
cmd_say, 0);
break;
case 4:
do_say(mob, "What time is it?", cmd_say, 0);
break;
case 5:
do_say(mob, "Where Am I?", cmd_say, 0);
break;
case 6:
do_say(mob, "Asch, not alone this time either...", cmd_say, 0);
break;
case 7:
do_emote(mob, "tosses away some leftover part of whoever was
close to him earlier.", cmd_emote, 0);
break;
case 8:
do_emote(mob, "looks at the fizzling rift closing
temporarely.", cmd_emote, 0);
break;
case 9:
do_gen_com(mob, "'Thank you Bod, for bringing me back.'",
cmd_yell, SCMD_YELL);
break;
case 10:
do_say(mob, "There is no place like home.", cmd_say, 0);
break;
case 11:
do_say(mob, "Home sweet, harbour town.", cmd_say, 0);
break;
case 12:
do_say(mob, "Who are you?", cmd_say, 0);
break;
case 13:
do_say(mob, "What are you doing here?", cmd_say, 0);
break;
case 14:
do_say(mob, "You can not imagine where I have been.", cmd_say,
0);
break;
case 15:
do_say(mob, "I am stil on the mainland, am I not?", cmd_say, 0);
do_say(mob, "Cause I always imagined the Northern Continent to
be much more different.", cmd_say, 0);
break;
case 16:
do_action(mob, 0, cmd_shudder, 0);
do_action(mob, 0, cmd_puke, 0);
do_action(mob, 0, cmd_sway, 0);
do_say(mob, "rough ride, I say.", cmd_say, 0);
break;
case 17:
do_gen_com(mob, "Yiikes...", cmd_yell, SCMD_YELL);
break;
case 18:
do_say(mob, "Hmmm, I need a boozer.", cmd_say, 0);
break;
case 19:
do_say(mob, "Feels like I have bought myself a full treatment
at Fritz the Slaughterer", cmd_say, 0);
break;
default:
break;
}
}
}
return(FALSE);
}
--
+---------------------------------------------------------------+
| FAQ: http://qsilver.queensu.ca/~fletchra/Circle/list-faq.html |
| Archives: http://post.queensu.ca/listserv/wwwarch/circle.html |
| Newbie List: http://groups.yahoo.com/group/circle-newbies/ |
+---------------------------------------------------------------+
This archive was generated by hypermail 2b30 : 06/25/03 PDT