#include "player.h"
#include "living.h"
/* The effects of being drunk.
* It is not recomended for a good party :)
*/
void do_wander(int bing);
static int drunkness, missing;
int drunk_heart_beat(int intox) {
int lvl, i, con;
object *obs;
if (intox <= 0)
return 1;
if (missing) {
missing --;
return 0;
}
if (this_object()->query_property(PASSED_OUT_PROP))
return 0;
if (--drunkness > 0 && !missing)
return 1;
con = (int)this_player()->query_con();
if (random((50-con)*10) > intox)
return 1;
drunkness = 20+random(30);
lvl = random(intox)/1500;
if (lvl > 3)
lvl = 3;
switch (lvl) {
case 0 :
switch (random(5)) {
case 0 :
command("hiccup");
break;
case 1 :
command("burp");
break;
case 2 :
command("puke");
break;
case 3 :
command("trip");
break;
case 4 :
command("stagger");
break;
}
break;
case 1 :
switch (random(1)) {
case 0 :
write("You trip over and fall on your face.\n");
say(this_player()->query_cap_name()+" trips over "+
"and falls on " +
(string)this_object()->query_possessive() +
" face.\n");
missing = 10+random(10);
return 0;
break;
}
break;
case 2 :
switch (random(2)) {
case 0 :
obs = all_inventory();
while (sizeof(obs) &&
obs[(i=random(sizeof(obs)))]->move(environment())&&
!obs[i]->short() && !obs[i]->query_worn())
obs = delete(obs, i, 1);
if (!sizeof(obs))
break;
write("Weird, a "+obs[i]->short()+" that looks just "+
"like your own "+obs[i]->short()+" lies on the "+
"ground.\n");
say(this_player()->query_cap_name()+" stumbles a bit "+
"and drops "+obs[i]->short()+".\n");
break;
case 1 :
write("The ground rises up and strikes you in your face.\n");
say(this_player()->query_cap_name()+" falls heavily "+
"to the ground.\n");
this_player()->adjust_hp(-random(3),this_player());
break;
}
break;
case 3 :
switch (random(2)) {
case 0 :
this_player()->add_property(PASSED_OUT_PROP,1);
call_out("remove_property",20+random(30),
PASSED_OUT_PROP);
write("The world goes black. You have passed out.\n");
say(this_object()->query_cap_name()+
" looks ill the falls on the ground and lies "+
"there with a blank look on "+
this_object()->query_objective()+" face.\n");
return 0;
break;
case 1 : /* wandering fits */
do_wander(5+random(10));
break;
}
break;
}
return 1;
}
void do_wander(int num) {
string *direcs;
int i, bong;
if (num > 0)
call_out("do_wander", 2+random(5), --num);
direcs = (mixed *)environment()->query_dest_dir();
while (!bong && sizeof(direcs)) {
i = random(sizeof(direcs)/2)*2;
this_object()->add_property(UNKNOWN_MOVE_PROP, 1);
bong = command(direcs[i]);
this_object()->remove_property(UNKNOWN_MOVE_PROP);
if (!bong)
direcs = delete(direcs, i, 2);
}
}