/* Dartboard, originally from LustyMUD, donated by Lusty, patched to work
under MudOS by Veronica, and changed a bit by Shadowthief */
inherit "/std/object";
string *creators, name1, name2, target;
object player1, player2;
int score1, score2, in_use, thrown, bet;
void end_game();
int score_it( int i );
void setup() {
set_name("dartboard");
add_property( "there", "mounted on the wall" );
add_adjective("party");
set_main_plural("dartboards");
set_short("party dartboard");
set_long("This is the party dartboard. "
"It was originally on LustyMUD, donated by Lusty herself "
"and patched to work under MudOS by Veronica.\n");
set_weight(10000);
set_value(0);
reset_get();
set_read_mess(
"This is a game of darts for two players. Before beginning "
"their throws, the players must both type 'play'. Each player "
"in turn can then throw three darts at the board (by typing "
"'throw' three times). Note that your accuracy is affected "
"by your DEX stat. The winner of the game is the player with the highest "
"score after all darts have been thrown.\n"
);
}
void init() {
creators = ({"Terano", "Turrican", "Wodan", "Rhinehold", "Sojan",
"Atom", "Rue", "Ohdamn", "Brandobas", "Ariadne",
"Talonia", "Titania", "Drakkos", "Hobbes", "Obilix",
"Presto", "Magpie", "Ceres", "Ember", "Pinkfish", "Rywfol",
"Nevvyn", "Sasquatch", "Chelle", "Taffyd", "Jeremy",
"Imme", "Laurana", "Ranee", "Shining", "Tannah",
"Shalla", "Threed", "Wenda", "Akane", "Cerisa"});
add_command("abandon", "", (:this_object()->abandon(""):));
add_command("play", "", (:this_object()->play(0):));
add_command("play", "<word'bet'>", (:this_object()->play($4[0]):));
add_command("throw", "", (:this_object()->throw_dart():));
}
int abandon( string str ) {
if (this_player() == player1 || this_player() == player2) {
write("You call off the game of darts.\n");
say("The game of darts is called off by "+this_player()->query_short()+".\n");
end_game();
return 1;
}
}
int play( string str ) {
int val;
if (in_use) {
write("The dartboard is in use right now.\n");
return 1;
}
if (!str) str = "0";
if (!sscanf(str, "%d", val) || val < 0) {
write("Bets must be for zero or greater coins.\n");
return 1;
}
if (this_player()->query_money() < val) {
write("Betting is not yet supported... I'm working on it! "+
"Just type \"play\".\n");
return 1;
}
if (player1) {
if (this_player() == player1) {
write("You can't play against yourself!\n");
return 1;
}
if (val != bet) {
write("Bet amounts must match. " + name1 + " bet " + bet + ".\n");
return 1;
}
player2 = this_player();
name2 = player2->query_short();
target = (creators[(random(sizeof(creators)))]);
tell_room( environment(), name1 + " and " + name2 +
" have started a game of darts, throwing at "+ target +
".\n");
tell_object(player1, "Throw your darts.\n");
in_use = 1;
return 1;
}
bet = val;
player1 = this_player();
name1 = player1->query_short();
write("You can 'abandon' the game if no one takes up your challenge.\n");
say(name1 + " is looking for someone else to play darts with.\n");
set_heart_beat(1);
return 1;
}
int throw_dart() {
int hit;
string start;
if (!in_use) {
return notify_fail( "You are not currently playing.\n ");
}
if (this_player() != player1 && this_player() != player2) {
return notify_fail( "You are not currently playing.\n" );
}
if (in_use == 1 && this_player() == player1) {
thrown += 1;
write("You throw a dart.\n");
say( name1 + " throws a dart.\n" );
hit = score_it(random(21) + ((player1->query_dex() -13 ) / 2 ));
if (hit == 500 && bet >= 50) {
write("You feel a bit more experienced.\n");
player1->ajdust_xp(10);
}
score1 += hit;
if (thrown == 3) {
write("That was your third dart. Your score is " + score1 + ".\n");
say(name1 + " has a score of " + score1 + " after three darts.\n");
if (player2) tell_object(player2, "Your turn to throw.\n");
in_use = 2;
}
return 1;
}
if (in_use == 2 && this_player() == player2) {
thrown += 1;
write("You throw a dart.\n");
say(name2+ " throws a dart.\n" );
hit = score_it(random(21) + ((player2->query_dex() - 13 ) / 2 ));
if (hit == 500 && bet >= 50) {
write("You feel a bit more experienced.\n");
player2->adjust_xp(10);
}
score2 += hit;
if (thrown == 6) {
write("That was your third dart.\n");
if (score1 > score2) {
start = " with a score of " + score1 + " to " +
score2 + ".\n";
write(name1 + " beats you" + start);
tell_room( environment(), name1 + " beats " + name2 + start,
({ player1, player2 }));
tell_object(player1, "You beat " + name2 + start);
} else if (score2 > score1) {
start = " with a score of " + score2 + " to " +
score1 + ".\n";
write("You beat " + name1 + start);
tell_room( environment(), name2 + " beats " + name1 + start,
({ player1, player2 }));
tell_object(player1, name2 + " beats you" + start);
} else {
tell_room(environment(this_object()),
"It's a tie with a score of " + score1 + "!\n");
}
end_game();
}
return 1;
}
write("It's not your turn to throw a dart!\n");
return 1;
} /* throw_dart() */
int score_it( int i ) {
string rest_mess;
int ret;
if (i < 2) {
rest_mess = "the wall. No score.\n";
ret = 0;
} else if (i < 19) {
rest_mess = "number "+i+", scoring "+(i*5)+".\n" ;
ret = i * 5;
} else if (i == 19) {
rest_mess = target+"'s face! Score of 250!\n";
ret = 250;
} else {
rest_mess = target+"'s nose! Score of 500!\n";
ret = 500;
}
write("You hit " + rest_mess);
say( this_player()->query_short() + " hit " + rest_mess);
return ret;
} /* score_it() */
void heart_beat() {
if (!player1) player1 = find_player(lower_case(name1));
if (name2 && !player2) player2 = find_player(lower_case(name2));
if (!player1 || environment() != environment(player1))
say(name1 + " is no longer here. The game of darts is called off.\n");
else if (name2 && (!player2 || environment() != environment(player2)))
say(name2 + " is no longer here. The game of darts is called off.\n");
else
return;
end_game();
}
void end_game() {
set_heart_beat(0);
/* if (player1) player1->add_money(bet);
if (player2) player2->add_money(bet); */
in_use = 0; bet = 0; thrown = 0;
player1 = 0; player2 = 0;
name1 = 0; name2 = 0;
score1 = 0; score2 = 0;
}
