|
|
DataMuseum.dkPresents historical artifacts from the history of: DKUUG/EUUG Conference tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about DKUUG/EUUG Conference tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T i
Length: 517 (0x205)
Types: TextFile
Names: »init.c«
└─⟦b20c6495f⟧ Bits:30007238 EUUGD18: Wien-båndet, efterår 1987
└─⟦this⟧ »EUUGD18/General/Adv/Program/init.c«
#include "adv.h"
/*
* Initialize game variables. Move to init room; carrying nothing;
* light has full time; move items to initial rooms; set vars to 0.
* Clear the base window and print the startup message.
*/
init()
{
register int i;
register struct item *ip;
rm = i_rm;
littim = litmax;
for (ip = items; ip < iteme; ip++)
ip->rm = ip->i_rm;
for (i = 0; i < 256; ++i)
var[i] = 0;
isend = FALSE;
CurWin = BaseWin;
Wclear(BaseWin, 2);
WAcursor(BaseWin, ROWS - 1, 0);
prt(msg[0]);
prt("\n");
}