void
dighole()
{
struct trap *ttmp = t_at(u.ux, u.uy);
if(!xdnstair) {
pline("The floor here seems too hard to dig in.");
} else {
if(ttmp)
ttmp->ttyp = TRAPDOOR;
else
ttmp = maketrap(u.ux, u.uy, TRAPDOOR);
ttmp->tseen = 1;
pline("You've made a hole in the floor.");
if(!u.ustuck) {
if(inshop())
shopdig(1);
pline("You fall through ...");
if(u.utraptype == TT_PIT) {
u.utrap = 0;
u.utraptype = 0;
}
goto_level(dlevel+1, FALSE);
}
}
}
static void ask_lower_levels()
{
for (int i = current_position-1; i >= 0; i--)
{
if (levels[i].state == 0) { continue; }
goto_level(i);
}
}
static void ask_higher_levels()
{
for (int i = current_position+1; i < levels_size; i++)
{
if (levels[i].state == 0) { continue; }
goto_level(i);
}
}
void main()
#endif
{
game_t game;
/* Initialize the front end */
fe_init();
/* Initialize the game */
/* Create the game */
memset(&game, 0, sizeof(game_t));
/* Create the paddle */
init_paddle(&game.paddle, SPECIAL_NONE, (SCREEN_WIDTH/2)-(PADDLE_WIDTH/2));
/* Init the balls (only one active) */
init_ball(&game.p_balls[0], game.paddle.x+(PADDLE_WIDTH/2), PADDLE_Y-PADDLE_HEIGHT, BALL_STATE_ACTIVE|BALL_STATE_HOLDING);
game.nr_balls = 1;
/* Init the specials */
game.lives = NR_LIVES;
/* Set the numbe of levels */
if (fe_load_data(game.p_levels, 0, (FIELD_WIDTH+1)*FIELD_HEIGHT, "Zarkanoid"))
fe_finalize(); /* Could not load the levels */
game.levels = (game.p_levels[0]-'0')*10+(game.p_levels[1]-'0'); /* Number of levels */
game.level = 5*((game.p_levels[3]-'0')*10+(game.p_levels[4]-'0')); /* Starting level (skip 5 levels at a time) */
#if defined(TARGET_SDL)
/* Set the level to start at to the argument */
if (argc > 1)
game.level = atoi(argv[1]);
#endif
/* Load the first level */
goto_level(&game);
/* Draw the game screen */
draw_screen(&game);
fe_sleep(100);
/* Start the game */
do_game(&game);
/* Clean up afterwards */
fe_finalize();
#if defined(TARGET_SDL)
return 0;
#endif
}
int
doup()
{
if(u.ux != xupstair || u.uy != yupstair) {
pline("You can't go up here.");
return(0);
}
if(u.ustuck) {
pline("You are being held, and cannot go up.");
return(1);
}
if(!Levitation && inv_weight() + 5 > 0) {
pline("Your load is too heavy to climb the stairs.");
return(1);
}
goto_level(dlevel-1, TRUE);
return(1);
}
int
dodown()
{
if(u.ux != xdnstair || u.uy != ydnstair) {
pline("You can't go down here.");
return(0);
}
if(u.ustuck) {
pline("You are being held, and cannot go down.");
return(1);
}
if(Levitation) {
pline("You're floating high above the stairs.");
return(0);
}
goto_level(dlevel+1, TRUE);
return(1);
}
// Caller must have already prompted user and got 'newlevel' if applicable.
void level_tele(Short newlevel, Boolean controlled)
{
if (controlled) {
// caller should already have used the engrave form to get a Number.
} else {
newlevel = 5 + rund(20); /* 5 - 24 */
if (dlevel == newlevel) {
if (!xdnstair) newlevel--; else newlevel++;
}
}
if (newlevel >= 30) {
if (newlevel > MAXLEVEL) newlevel = MAXLEVEL;
message("You arrive at the center of the earth ...");
message("Unfortunately it is here that hell is located.");
if (Fire_resistance) {
message("But the fire doesn't seem to harm you.");
} else {
message("You burn to a crisp.");
dlevel = maxdlevel = newlevel;
killer = "visit to the hell";
done("burned");
return;
}
}
if (newlevel < 0) {
newlevel = 0;
message("You are now high above the clouds ...");
if (Levitation) {
message("You float gently down to earth.");
done("escaped");
return;
}
message("Unfortunately, you don't know how to fly.");
message("You fall down a few thousand feet and break your neck.");
dlevel = 0;
killer = "fall";
done("died");
return;
}
goto_level(newlevel, false); /* calls done("escaped") if newlevel==0 */
}
/* Called when the player finishes a level (move to next) */
static int handle_level_finished(game_t *p_game)
{
fe_clear_screen();
draw_screen(p_game);
/* Move the paddle to starting place */
init_paddle(&p_game->paddle, PADDLE_NORMAL, (SCREEN_WIDTH/2)-(PADDLE_WIDTH/2));
/* Init the balls (only one active) */
memset(p_game->p_balls, 0, sizeof(ball_t)*MAX_BALLS);
init_ball(&p_game->p_balls[0], p_game->paddle.x+(PADDLE_WIDTH/2), PADDLE_Y-PADDLE_HEIGHT, BALL_STATE_ACTIVE|BALL_STATE_HOLDING);
p_game->nr_balls = 1;
p_game->state = 0;
/* Clear the specials */
memset(p_game->p_specials, 0, sizeof(special_t)*MAX_SPECIALS);
p_game->level++;
return goto_level(p_game);
}
static int arti_invoke(struct obj *obj)
{
const struct artifact *oart = get_artifact(obj);
if (!oart || !oart->inv_prop) {
if (obj->oclass == WAND_CLASS)
return do_break_wand(obj);
else if (obj->oclass == GEM_CLASS || obj->oclass == TOOL_CLASS)
return dorub(obj);
else if (obj->otyp == CRYSTAL_BALL)
use_crystal_ball(obj);
else
pline("Nothing happens.");
return 1;
}
if (oart->inv_prop > LAST_PROP) {
/* It's a special power, not "just" a property */
if (obj->age > moves) {
/* the artifact is tired :-) */
pline("You feel that %s %s ignoring you.",
the(xname(obj)), otense(obj, "are"));
/* and just got more so; patience is essential... */
obj->age += (long) dice(3,10);
return 1;
}
obj->age = moves + rnz(100);
switch(oart->inv_prop) {
case TAMING: {
struct obj pseudo;
boolean unused_known;
pseudo = zeroobj; /* neither cursed nor blessed */
pseudo.otyp = SCR_TAMING;
seffects(&pseudo, &unused_known);
break;
}
case HEALING: {
int healamt = (u.uhpmax + 1 - u.uhp) / 2;
long creamed = (long)u.ucreamed;
if (Upolyd) healamt = (u.mhmax + 1 - u.mh) / 2;
if (healamt || Sick || Slimed || Blinded > creamed)
pline("You feel better.");
else
goto nothing_special;
if (healamt > 0) {
if (Upolyd) u.mh += healamt;
else u.uhp += healamt;
}
if (Sick) make_sick(0L,NULL,FALSE,SICK_ALL);
if (Slimed) Slimed = 0L;
if (Blinded > creamed) make_blinded(creamed, FALSE);
iflags.botl = 1;
break;
}
case ENERGY_BOOST: {
int epboost = (u.uenmax + 1 - u.uen) / 2;
if (epboost > 120) epboost = 120; /* arbitrary */
else if (epboost < 12) epboost = u.uenmax - u.uen;
if (epboost) {
pline("You feel re-energized.");
u.uen += epboost;
iflags.botl = 1;
} else
goto nothing_special;
break;
}
case UNTRAP: {
if (!untrap(TRUE)) {
obj->age = 0; /* don't charge for changing their mind */
return 0;
}
break;
}
case CHARGE_OBJ: {
struct obj *otmp = getobj(recharge_type, "charge");
boolean b_effect;
if (!otmp) {
obj->age = 0;
return 0;
}
b_effect = obj->blessed &&
(Role_switch == oart->role || !oart->role);
recharge(otmp, b_effect ? 1 : obj->cursed ? -1 : 0);
update_inventory();
break;
}
case LEV_TELE:
level_tele();
break;
case CREATE_PORTAL: {
int i, num_ok_dungeons, last_ok_dungeon = 0;
d_level newlev;
extern int n_dgns; /* from dungeon.c */
struct nh_menuitem *items;
items = malloc(n_dgns * sizeof(struct nh_menuitem));
num_ok_dungeons = 0;
for (i = 0; i < n_dgns; i++) {
if (!dungeons[i].dunlev_ureached)
continue;
items[num_ok_dungeons].id = i+1;
items[num_ok_dungeons].accel = 0;
items[num_ok_dungeons].role = MI_NORMAL;
items[num_ok_dungeons].selected = FALSE;
strcpy(items[num_ok_dungeons].caption, dungeons[i].dname);
num_ok_dungeons++;
last_ok_dungeon = i;
}
if (num_ok_dungeons > 1) {
/* more than one entry; display menu for choices */
int n;
int selected[1];
n = display_menu(items, num_ok_dungeons, "Open a portal to which dungeon?", PICK_ONE, selected);
free(items);
if (n <= 0)
goto nothing_special;
i = selected[0] - 1;
} else {
free(items);
i = last_ok_dungeon; /* also first & only OK dungeon */
}
/*
* i is now index into dungeon structure for the new dungeon.
* Find the closest level in the given dungeon, open
* a use-once portal to that dungeon and go there.
* The closest level is either the entry or dunlev_ureached.
*/
newlev.dnum = i;
if (dungeons[i].depth_start >= depth(&u.uz))
newlev.dlevel = dungeons[i].entry_lev;
else
newlev.dlevel = dungeons[i].dunlev_ureached;
if (u.uhave.amulet || In_endgame(&u.uz) || In_endgame(&newlev) ||
newlev.dnum == u.uz.dnum) {
pline("You feel very disoriented for a moment.");
} else {
if (!Blind) pline("You are surrounded by a shimmering sphere!");
else pline("You feel weightless for a moment.");
goto_level(&newlev, FALSE, FALSE, FALSE);
}
break;
}
case ENLIGHTENING:
enlightenment(0);
break;
case CREATE_AMMO: {
struct obj *otmp = mksobj(level, ARROW, TRUE, FALSE);
if (!otmp) goto nothing_special;
otmp->blessed = obj->blessed;
otmp->cursed = obj->cursed;
otmp->bknown = obj->bknown;
if (obj->blessed) {
if (otmp->spe < 0) otmp->spe = 0;
otmp->quan += rnd(10);
} else if (obj->cursed) {
if (otmp->spe > 0) otmp->spe = 0;
} else
otmp->quan += rnd(5);
otmp->owt = weight(otmp);
hold_another_object(otmp, "Suddenly %s out.", aobjnam(otmp, "fall"), NULL);
break;
}
}
} else {
long eprop = (u.uprops[oart->inv_prop].extrinsic ^= W_ARTI),
iprop = u.uprops[oart->inv_prop].intrinsic;
boolean on = (eprop & W_ARTI) != 0; /* true if invoked prop just set */
if (on && obj->age > moves) {
/* the artifact is tired :-) */
u.uprops[oart->inv_prop].extrinsic ^= W_ARTI;
pline("You feel that %s %s ignoring you.",
the(xname(obj)), otense(obj, "are"));
/* can't just keep repeatedly trying */
obj->age += (long) dice(3,10);
return 1;
} else if (!on) {
/* when turning off property, determine downtime */
/* arbitrary for now until we can tune this -dlc */
obj->age = moves + rnz(100);
}
if ((eprop & ~W_ARTI) || iprop) {
nothing_special:
/* you had the property from some other source too */
if (carried(obj))
pline("You feel a surge of power, but nothing seems to happen.");
return 1;
}
switch(oart->inv_prop) {
case CONFLICT:
if (on) pline("You feel like a rabble-rouser.");
else pline("You feel the tension decrease around you.");
break;
case LEVITATION:
if (on) {
float_up();
spoteffects(FALSE);
} else float_down(I_SPECIAL|TIMEOUT, W_ARTI);
break;
case INVIS:
if (BInvis || Blind) goto nothing_special;
newsym(u.ux, u.uy);
if (on)
pline("Your body takes on a %s transparency...",
Hallucination ? "normal" : "strange");
else
pline("Your body seems to unfade...");
break;
}
}
return 1;
}
void do_trap(trap_t *trap) // was dotrap
{
Short ttype = get_trap_type(trap->trap_info);
nomul(0);
if (get_trap_seen(trap->trap_info) && !rund(5) && ttype != PIT) {
StrPrintF(ScratchBuffer, "You escape a%s.", traps[ttype]);
message(ScratchBuffer);
} else {
trap->trap_info |= SEEN_TRAP;
switch(ttype) {
case SLP_GAS_TRAP:
message("A cloud of gas puts you to sleep!");
nomul(-rnd(25));
break;
case BEAR_TRAP:
if (Levitation) {
message("You float over a bear trap.");
break;
}
you.utrap = 4 + rund(4);
you.utraptype = TT_BEARTRAP;
message("A bear trap closes on your foot!");
break;
case PIERC:
deltrap(trap);
if (makemon(PM_PIERCER, you.ux, you.uy)) {
message("A piercer suddenly drops from the ceiling!");
if (uarmh)
message("Its blow glances off your helmet.");
else
thing_hit_you(3, dice(4,6), "falling piercer");
}
break;
case ARROW_TRAP:
message("An arrow shoots out at you!");
if (!thing_hit_you(8, rnd(6), "arrow")){
mksobj_at(ARROW, you.ux, you.uy);
fobj->quantity = 1;
}
break;
case TRAPDOOR:
if (!xdnstair) {
message("A trap door in the ceiling opens and a rock falls on your head!");
if (uarmh) message("Fortunately, you are wearing a helmet!");
losehp((uarmh ? 2 : dice(2,10)), "falling rock");
mksobj_at(ROCK, you.ux, you.uy);
fobj->quantity = 1;
stackobj(fobj);
if (Invisible) newsym(you.ux, you.uy);
} else {
Short newlevel = dlevel + 1;
while (!rund(4) && newlevel < 29)
newlevel++;
message("A trap door opens up under you!");
if (Levitation || you.ustuck) {
message("For some reason you don't fall in.");
break;
}
goto_level(newlevel, false);
}
break;
case DART_TRAP:
message("A little dart shoots out at you!");
if (thing_hit_you(7, rnd(3), "little dart")) {
if (!rund(6))
poisoned("dart", "poison dart");
} else {
mksobj_at(DART, you.ux, you.uy);
fobj->quantity = 1;
}
break;
case TELEP_TRAP:
map_mode_teleport = TELE_TRAP;
if (get_trap_once(trap->trap_info)) {
deltrap(trap);
newsym(you.ux,you.uy);
vtele();
} else {
newsym(you.ux,you.uy);
tele();
}
break;
case PIT:
if (Levitation) {
message("A pit opens up under you!");
message("You don't fall in!");
break;
}
message("You fall into a pit!");
you.utrap = rund(6) + 2;
you.utraptype = TT_PIT;
losehp(rnd(6),"fall into a pit");
selftouch("Falling, you");
break;
default:
StrPrintF(ScratchBuffer, "BUG: You hit a trap with info=%u",
trap->trap_info);
message(ScratchBuffer);
}
}
}
