/**
* Main apply handler.
*
* Checks for unpaid items before applying.
* @param op ::object causing tmp to be applied.
* @param tmp ::object being applied.
* @param aflag Special (always apply/unapply) flags. Nothing is done
* with them in this function - they are passed to apply_special().
* @retval 0 Player or monster can't apply objects of that type.
* @retval 1 Has been applied, or there was an error applying the object.
* @retval 2 Objects of that type can't be applied if not in
* inventory. */
int manual_apply(object *op, object *tmp, int aflag)
{
if (tmp->head)
{
tmp = tmp->head;
}
if (op->type == PLAYER)
{
CONTR(op)->praying = 0;
}
if (QUERY_FLAG(tmp, FLAG_UNPAID) && !QUERY_FLAG(tmp, FLAG_APPLIED))
{
if (op->type == PLAYER)
{
new_draw_info(NDI_UNIQUE, op, "You should pay for it first.");
return 1;
}
/* Monsters just skip unpaid items */
else
{
return 0;
}
}
/* Monsters must not apply random chests, nor magic_mouths with a counter */
if (op->type != PLAYER && tmp->type == TREASURE)
{
return 0;
}
/* Trigger the APPLY event */
if (!(aflag & AP_NO_EVENT) && trigger_event(EVENT_APPLY, op, tmp, NULL, NULL, aflag, 0, 0, SCRIPT_FIX_ACTIVATOR))
{
return 1;
}
aflag &= ~AP_NO_EVENT;
/* Control apply by controling a set exp object level or player exp level */
if (tmp->item_level)
{
int tmp_lev;
if (tmp->item_skill)
{
tmp_lev = find_skill_exp_level(op, tmp->item_skill);
}
else
{
tmp_lev = op->level;
}
if (tmp->item_level > tmp_lev)
{
new_draw_info(NDI_UNIQUE, op, "The item level is too high to apply.");
return 1;
}
}
switch (tmp->type)
{
case HOLY_ALTAR:
new_draw_info_format(NDI_UNIQUE, op, "You touch the %s.", tmp->name);
if (change_skill(op, SK_PRAYING))
{
pray_at_altar(op, tmp);
}
else
{
new_draw_info(NDI_UNIQUE, op, "Nothing happens. It seems you miss the right skill.");
}
return 1;
break;
case HANDLE:
new_draw_info(NDI_UNIQUE, op, "You turn the handle.");
play_sound_map(op->map, op->x, op->y, SOUND_TURN_HANDLE, SOUND_NORMAL);
tmp->value = tmp->value ? 0 : 1;
SET_ANIMATION(tmp, ((NUM_ANIMATIONS(tmp) / NUM_FACINGS(tmp)) * tmp->direction) + tmp->value);
update_object(tmp, UP_OBJ_FACE);
push_button(tmp);
return 1;
case TRIGGER:
if (check_trigger(tmp, op))
{
new_draw_info(NDI_UNIQUE, op, "You turn the handle.");
play_sound_map(tmp->map, tmp->x, tmp->y, SOUND_TURN_HANDLE, SOUND_NORMAL);
}
else
{
new_draw_info(NDI_UNIQUE, op, "The handle doesn't move.");
}
return 1;
case EXIT:
if (op->type != PLAYER || !tmp->map)
{
return 0;
}
/* If no map path specified, we assume it is the map path of the exit. */
if (!EXIT_PATH(tmp))
{
FREE_AND_ADD_REF_HASH(EXIT_PATH(tmp), tmp->map->path);
}
if (!EXIT_PATH(tmp) || !is_legal_2ways_exit(op, tmp) || (EXIT_Y(tmp) == -1 && EXIT_X(tmp) == -1))
{
new_draw_info_format(NDI_UNIQUE, op, "The %s is closed.", query_name(tmp, NULL));
}
else
{
/* Don't display messages for random maps. */
if (tmp->msg && strncmp(EXIT_PATH(tmp), "/!", 2) && strncmp(EXIT_PATH(tmp), "/random/", 8))
{
new_draw_info(NDI_NAVY, op, tmp->msg);
}
enter_exit(op, tmp);
}
return 1;
case SIGN:
apply_sign(op, tmp);
return 1;
case BOOK:
if (op->type == PLAYER)
{
apply_book(op, tmp);
return 1;
}
return 0;
case SKILLSCROLL:
if (op->type == PLAYER)
{
apply_skillscroll(op, tmp);
return 1;
}
return 0;
case SPELLBOOK:
if (op->type == PLAYER)
{
apply_spellbook(op, tmp);
return 1;
}
return 0;
case SCROLL:
apply_scroll(op, tmp);
return 1;
case POTION:
(void) apply_potion(op, tmp);
return 1;
case LIGHT_APPLY:
apply_player_light(op, tmp);
return 1;
case LIGHT_REFILL:
apply_player_light_refill(op, tmp);
return 1;
/* Eneq(@csd.uu.se): Handle apply on containers. */
case CLOSE_CON:
if (op->type == PLAYER)
{
(void) esrv_apply_container(op, tmp->env);
}
return 1;
case CONTAINER:
if (op->type == PLAYER)
{
(void) esrv_apply_container(op, tmp);
}
return 1;
case TREASURE:
apply_treasure(op, tmp);
return 1;
case WEAPON:
case ARMOUR:
case BOOTS:
case GLOVES:
case AMULET:
case GIRDLE:
case BRACERS:
case SHIELD:
case HELMET:
case RING:
case CLOAK:
case WAND:
case ROD:
case HORN:
case SKILL:
case BOW:
case SKILL_ITEM:
/* Not in inventory */
if (tmp->env != op)
{
return 2;
}
(void) apply_special(op, tmp, aflag);
return 1;
case DRINK:
case FOOD:
case FLESH:
apply_food(op, tmp);
return 1;
case POISON:
apply_poison(op, tmp);
return 1;
case SAVEBED:
if (op->type == PLAYER)
{
apply_savebed(op);
return 1;
}
return 0;
case ARMOUR_IMPROVER:
if (op->type == PLAYER)
{
apply_armour_improver(op, tmp);
return 1;
}
return 0;
case WEAPON_IMPROVER:
apply_weapon_improver(op, tmp);
return 1;
case CLOCK:
if (op->type == PLAYER)
{
timeofday_t tod;
get_tod(&tod);
new_draw_info_format(NDI_UNIQUE, op, "It is %d minute%s past %d o'clock %s", tod.minute + 1, ((tod.minute + 1 < 2) ? "" : "s"), ((tod.hour % (HOURS_PER_DAY / 2) == 0) ? (HOURS_PER_DAY / 2) : ((tod.hour) % (HOURS_PER_DAY / 2))), ((tod.hour >= (HOURS_PER_DAY / 2)) ? "pm" : "am"));
return 1;
}
return 0;
case POWER_CRYSTAL:
apply_power_crystal(op, tmp);
return 1;
/* For lighting torches/lanterns/etc */
case LIGHTER:
if (op->type == PLAYER)
{
apply_lighter(op, tmp);
return 1;
}
return 0;
/* So the below default case doesn't execute for these objects,
* even if they have message. */
case DOOR:
return 0;
/* Nothing from the above... but show a message if it has one. */
default:
if (tmp->msg)
{
new_draw_info(NDI_UNIQUE, op, tmp->msg);
return 1;
}
return 0;
}
}
/*
* parse()
*
* get and execute a command
*/
static void parse(void)
{
int i, j, k, flag;
while (1)
{
k = yylex();
switch(k) /* get the token from the input and switch on it */
{
case 'h': moveplayer(4); return; /* west */
case 'H': run(4); return; /* west */
case 'l': moveplayer(2); return; /* east */
case 'L': run(2); return; /* east */
case 'j': moveplayer(1); return; /* south */
case 'J': run(1); return; /* south */
case 'k': moveplayer(3); return; /* north */
case 'K': run(3); return; /* north */
case 'u': moveplayer(5); return; /* northeast */
case 'U': run(5); return; /* northeast */
case 'y': moveplayer(6); return; /* northwest */
case 'Y': run(6); return; /* northwest */
case 'n': moveplayer(7); return; /* southeast */
case 'N': run(7); return; /* southeast */
case 'b': moveplayer(8); return; /* southwest */
case 'B': run(8); return; /* southwest */
case '.': /* stay here */
if (yrepcount)
viewflag=1;
return;
case 'c':
yrepcount=0;
cast();
return; /* cast a spell */
case 'd':
yrepcount=0;
if (c[TIMESTOP]==0)
dropobj();
return; /* to drop an object */
case 'e':
yrepcount=0;
if (c[TIMESTOP]==0)
if (!floor_consume( OCOOKIE, "eat" ))
consume( OCOOKIE, "eat", showeat );
return; /* to eat a fortune cookie */
case 'g':
yrepcount = 0 ;
cursors();
lprintf("\nThe stuff you are carrying presently weighs %d pounds",(long)packweight());
break ;
case 'i': /* inventory */
yrepcount=0;
nomove=1;
showstr(FALSE);
return;
case 'p': /* pray at an altar */
yrepcount = 0;
pray_at_altar();
return;
case 'q': /* quaff a potion */
yrepcount=0;
if (c[TIMESTOP]==0)
if (!floor_consume( OPOTION, "quaff"))
consume( OPOTION, "quaff", showquaff );
return;
case 'r':
yrepcount=0;
if (c[BLINDCOUNT])
{
cursors();
lprcat("\nYou can't read anything when you're blind!");
}
else if (c[TIMESTOP]==0)
if (!floor_consume( OSCROLL, "read" ))
if (!floor_consume( OBOOK, "read" ))
consume( OSCROLL, "read", showread );
return; /* to read a scroll */
case 's':
yrepcount = 0 ;
sit_on_throne();
return ;
case 't': /* Tidy up at fountain */
yrepcount = 0 ;
wash_fountain() ;
return ;
case 'v':
yrepcount=0;
nomove = 1;
cursors();
lprintf("\nLarn, Version %d.%d.%d, Diff=%d",(long)VERSION,(long)SUBVERSION,(long)PATCHLEVEL,(long)c[HARDGAME]);
if (wizard)
lprcat(" Wizard");
if (cheat)
lprcat(" Cheater");
return;
case 'w': /* wield a weapon */
yrepcount=0;
wield();
return;
case 'A':
yrepcount = 0;
desecrate_altar();
return;
case 'C': /* Close something */
yrepcount = 0 ;
close_something();
return;
case 'D': /* Drink at fountain */
yrepcount = 0 ;
drink_fountain() ;
return ;
case 'E': /* Enter a building */
yrepcount = 0 ;
enter() ;
break ;
case 'I': /* list spells and scrolls */
yrepcount=0;
seemagic(0);
nomove=1;
return;
case 'O': /* Open something */
yrepcount = 0 ;
open_something();
return;
case 'P':
cursors();
yrepcount = 0;
nomove = 1;
if (outstanding_taxes>0)
lprintf("\nYou presently owe %d gp in taxes.",(long)outstanding_taxes);
else
lprcat("\nYou do not owe any taxes.");
return;
case 'Q': /* quit */
yrepcount=0;
quit();
nomove=1;
return;
case 'R' : /* remove gems from a throne */
yrepcount = 0 ;
remove_gems( );
return ;
case 'S':
/* And do the save.
*/
cursors();
lprintf("\nSaving to `%s' . . . ", savefilename);
lflush();
save_mode = 1;
savegame(savefilename);
clear();
lflush();
wizard=1;
died(-257); /* doesn't return */
break;
case 'T': yrepcount=0; cursors(); if (c[SHIELD] != -1) { c[SHIELD] = -1; lprcat("\nYour shield is off"); bottomline(); } else
if (c[WEAR] != -1) { c[WEAR] = -1; lprcat("\nYour armor is off"); bottomline(); }
else lprcat("\nYou aren't wearing anything");
return;
case 'W':
yrepcount=0;
wear();
return; /* wear armor */
case 'Z':
yrepcount=0;
if (c[LEVEL]>9)
{
oteleport(1);
return;
}
cursors();
lprcat("\nAs yet, you don't have enough experience to use teleportation");
return; /* teleport yourself */
case ' ': yrepcount=0; nomove=1; return;
case 'L'-64: yrepcount=0; drawscreen(); nomove=1; return; /* look */
#if WIZID
#ifdef EXTRA
case 'A'-64: yrepcount=0; nomove=1; if (wizard) { diag(); return; } /* create diagnostic file */
return;
#endif
#endif
case '<': /* Go up stairs or vol shaft */
yrepcount = 0;
up_stairs();
return ;
case '>': /* Go down stairs or vol shaft*/
yrepcount = 0 ;
down_stairs();
return ;
case '?': /* give the help screen */
yrepcount=0;
help();
nomove=1;
return;
case ',': /* pick up an item */
yrepcount = 0 ;
/* pickup, don't identify or prompt for action */
lookforobject( FALSE, TRUE, FALSE );
return;
case ':': /* look at object */
yrepcount = 0 ;
/* identify, don't pick up or prompt for action */
lookforobject( TRUE, FALSE, FALSE );
nomove = 1; /* assumes look takes no time */
return;
case '/': /* identify object/monster */
specify_object();
nomove = 1 ;
yrepcount = 0 ;
return;
case '^': /* identify traps */
flag = yrepcount = 0;
cursors();
lprc('\n');
for (j=playery-1; j<playery+2; j++)
{
if (j < 0)
j=0;
if (j >= MAXY)
break;
for (i=playerx-1; i<playerx+2; i++)
{
if (i < 0)
i=0;
if (i >= MAXX)
break;
switch(item[i][j])
{
case OTRAPDOOR: case ODARTRAP:
case OTRAPARROW: case OTELEPORTER:
case OPIT:
lprcat("\nIts ");
lprcat(objectname[item[i][j]]);
flag++;
};
}
}
if (flag==0)
lprcat("\nNo traps are visible");
return;
#if WIZID
case '_': /* this is the fudge player password for wizard mode*/
yrepcount=0; cursors(); nomove=1;
if (getpassword()==0)
{
scbr(); /* system("stty -echo cbreak"); */ return;
}
wizard=1; scbr(); /* system("stty -echo cbreak"); */
for (i=0; i<6; i++) c[i]=70; iven[0]=iven[1]=0;
take(OPROTRING,50); take(OLANCE,25); c[WIELD]=1;
c[LANCEDEATH]=1; c[WEAR] = c[SHIELD] = -1;
raiseexperience(6000000L); c[AWARENESS] += 25000;
{
int i,j;
for (i=0; i<MAXY; i++)
for (j=0; j<MAXX; j++) know[j][i]=KNOWALL;
for (i=0; i<SPNUM; i++) spelknow[i]=1;
for (i=0; i<MAXSCROLL; i++) scrollname[i][0]=' ';
for (i=0; i<MAXPOTION; i++) potionname[i][0]=' ';
}
for (i=0; i<MAXSCROLL; i++)
if (strlen(scrollname[i])>2) /* no null items */
{ item[i][0]=OSCROLL; iarg[i][0]=i; }
for (i=MAXX-1; i>MAXX-1-MAXPOTION; i--)
if (strlen(potionname[i-MAXX+MAXPOTION])>2) /* no null items */
{ item[i][0]=OPOTION; iarg[i][0]=i-MAXX+MAXPOTION; }
for (i=1; i<MAXY; i++)
{ item[0][i]=i; iarg[0][i]=0; }
for (i=MAXY; i<MAXY+MAXX; i++)
{ item[i-MAXY][MAXY-1]=i; iarg[i-MAXY][MAXY-1]=0; }
for (i=MAXX+MAXY; i<MAXOBJECT; i++)
{
item[MAXX-1][i-MAXX-MAXY]=i;
iarg[MAXX-1][i-MAXX-MAXY]=0;
}
c[GOLD]+=250000; drawscreen(); return;
#endif
};
}
}
