void drawbox(char **lines)
{
int x = 28;
int y = 64;
int i,numlines = 0;
//count number of lines
for(i=0;lines[i+1];i++)
numlines++;
//clear screen
memset(nesscr,0,256*240);
//draw window
gui_draw_window(lines[0],x,y,256-60,11 + (numlines * 6));
//draw text
for(i=1;lines[i];i++)
gui_draw_text(GUI_TEXT,x + 2,y + 4 + (i * 6),lines[i]);
//copy old screen for neat background
video_copyscreen();
//update screen
video_update(nesscr,256+8);
#ifdef PS2
//double buffered?
video_update(nesscr,256+8);
#endif
}
void terminate (void)
{
/*
int fh[10000], i;
char buffer[100];
for (i=0; i<10000; i++)
{
sprintf (buffer, "file%d", i);
fh[i] = open (buffer, O_CREAT|O_WRONLY);
if (fh[i] < 0) break;
}
close (fh[0]);
*/
write_config ();
video_update (0);
set_window_name (wintitle);
fly_terminate ();
#ifdef __MINGW32__
WSACleanup ();
#endif
}
//draw/update splash screen
void splash_draw()
{
int i,j,k;
int offset = 264*32+16;
int frame;
memset(scr,0,(256+8)*240);
video_setpalentry(0xCC,0xFF,0xFF,0xFF);
video_setpalentry(0,0x00,0x00,0x00);
video_setpalentry(1,0xF0,0xA0,0x80);
video_setpalentry(2,0x20,0xD0,0x20);
video_setpalentry(3,0xC0,0x40,0x40);
video_setpalentry(4,0x00,0x00,0x00);
video_setpalentry(5,0x00,0x00,0xC0);
video_setpalentry(6,0x00,0x00,0xC0);
video_setpalentry(7,0xFF,0xFF,0xFF);
video_setpalentry(8,0x80,0x80,0xFF);
for(i=0;i<progress;i++) {
frame = i;
for(j=0;j<16;j++) {
for(k=0;k<12;k++) {
*(scr+offset+progress*14+j*264+k) = zeldaobj[frame % 7][k + j*12];
}
}
}
gui_draw_text(7 + 0x40,32,64,"nesemu v"VERSION);
gui_draw_text(7 + 0x40,32,74,"loading...");
video_update(scr,256+8);
}
void zx_frame_end()
{
unsigned dev;
// frame done
device_scan_asc(frame)
zx_device[dev]->frame();
video_update();
//tape_frame();
sync_wait();
}
void terminate (void)
{
write_config ();
video_update (0);
set_window_name (wintitle);
fly_terminate ();
#ifdef __MINGW32__
WSACleanup ();
#endif
}
void video_update_rect (int r1, int c1, int r2, int c2)
{
int r;
char *p_char, *p_attr;
// invalidate rectange
for (r=r1; r<=r2; r++)
{
p_char = scrn_store_chars + r*COLS;
p_attr = scrn_store_attrs + r*COLS;
memset (p_char+c1, 0, c2-c1+1);
memset (p_attr+c1, 0, c2-c1+1);
}
// refresh
video_update (0);
}
void video_init (int rows, int cols)
{
int row;
char *scrn_cache_chars1, *scrn_cache_attrs1;
// free old store, create new one
if (scrn_store_chars != NULL) free (scrn_store_chars);
if (scrn_store_attrs != NULL) free (scrn_store_attrs);
scrn_store_chars = malloc (rows*cols);
scrn_store_attrs = malloc (rows*cols);
// allocate new backing store buffers
scrn_cache_chars1 = malloc (rows*cols);
scrn_cache_attrs1 = malloc (rows*cols);
memset (scrn_cache_chars1, ' ', rows*cols);
memset (scrn_cache_attrs1, fl_clr.background, rows*cols);
if (scrn_cache_chars != NULL && scrn_cache_attrs != NULL)
{
for (row=0; row < min1(ROWS,rows); row++)
{
memcpy (scrn_cache_chars1+row*cols, scrn_cache_chars+row*COLS, min1(cols, COLS));
memcpy (scrn_cache_attrs1+row*cols, scrn_cache_attrs+row*COLS, min1(cols, COLS));
}
free (scrn_cache_chars);
free (scrn_cache_attrs);
CURSOR_ROW = min1 (rows-1, CURSOR_ROW);
CURSOR_COL = min1 (cols-1, CURSOR_COL);
}
else
{
CURSOR_ROW = 0;
CURSOR_COL = 0;
}
scrn_cache_chars = scrn_cache_chars1;
scrn_cache_attrs = scrn_cache_attrs1;
// bring the screen to the initial state
ROWS = rows;
COLS = cols;
set_cursor (cursor_store);
video_update (1);
}
//draw/update splash screen
void splash_draw()
{
int i,j,k;
int offset = 264*32+16;
int frame;
log_message("calling memset\n");
memset(scr,0,256+8*240);
log_message("returned from memset\n");
video_setpalentry(0xCC,0xFF,0xFF,0xFF);
video_setpalentry(0,0x00,0x00,0x00);
video_setpalentry(1,0xF0,0xA0,0x80);
video_setpalentry(2,0x20,0xD0,0x20);
video_setpalentry(3,0xC0,0x40,0x40);
video_setpalentry(4,0x00,0x00,0x00);
video_setpalentry(5,0x00,0x00,0xC0);
video_setpalentry(6,0x00,0x00,0xC0);
video_setpalentry(7,0xFF,0xFF,0xFF);
video_setpalentry(8,0x80,0x80,0xFF);
for(i=0;i<progress;i++) {
frame = i;
for(j=0;j<16;j++) {
for(k=0;k<12;k++) {
*(scr+offset+progress*14+j*264+k) = zeldaobj[frame % 7][k + j*12];
}
}
}
log_message("about to call gui_draw_test once\n");
gui_draw_text(7 + 0x40,32,64,"nesemu v"VERSION);
log_message("calling again\n");
gui_draw_text(7 + 0x40,32,74,"loading...");
log_message("video update...\n");
video_update(scr,256+8);
}
void
game_update ()
{
if (false == initialized)
{
LOG_FATAL ("not initialized");
}
static uint32_t last_frame_ticks = 0;
update_pit_isr ();
handle_events ();
if (0 < last_frame_ticks)
{
enum
{
DELAY_CHUNK = 5
};
int32_t delay = 1000 / fps - (SDL_GetTicks () - last_frame_ticks);
while (0 < delay)
{
const uint32_t t = SDL_GetTicks ();
update_pit_isr ();
handle_events ();
SDL_Delay (DELAY_CHUNK);
delay -= (SDL_GetTicks () - t);
}
}
video_update ();
last_frame_ticks = SDL_GetTicks ();
}
int main(){
BOOL done = FALSE;
MSG msg;
IDirect3DDevice9 *device = NULL;
IDirect3DSurface9 *main_rendertarget = NULL;
D3DFORMAT format;
float old_time = 0;
/* render-to-texture-stuff */
IDirect3DTexture9 *rtt_texture;
IDirect3DSurface9 *rtt_surface;
IDirect3DTexture9 *rtt_32_texture;
IDirect3DSurface9 *rtt_32_surface;
/* textures used from mainloop */
int white, black;
int odd_is_back_again[4];
int at_the_gathering_2003[4];
int o_d_d_in_your_face[4];
int world_domination[4];
int back_once_again[3];
int were_back;
int cred[4];
int mad_props[4];
int not_eph[4];
int piss_the_fuck_off[11];
int hardcore;
int refmap, refmap2;
int eatyrcode;
int code_0, code_1;
int overlaytest;
int circle_particle;
/* special-textures */
int rtt_texture_id;
int rtt_32_texture_id;
int video_texture_id;
int dilldall,dilldall2;
int metaball_text;
/* videos */
video *vid;
/* 3d-scenes */
scene *fysikkfjall;
scene *startblob;
scene *inni_abstrakt;
scene *korridor;
scene *skjerm_rom;
scene *bare_paa_lissom;
format = D3DFMT_X8R8G8B8;
device = d3dwin_open(TITLE, WIDTH, HEIGHT, format, FULLSCREEN);
if(!device){
format = D3DFMT_A8R8G8B8;
device = d3dwin_open(TITLE, WIDTH, HEIGHT, format, FULLSCREEN);
if(!device){
format = D3DFMT_X1R5G5B5;
device = d3dwin_open(TITLE, WIDTH, HEIGHT, format, FULLSCREEN);
if(!device){
format = D3DFMT_R5G6B5;
device = d3dwin_open(TITLE, WIDTH, HEIGHT, format, FULLSCREEN);
if(!device) error("failed to initialize Direct3D9");
}
}
}
#ifdef BIGSCREEN
set_gamma(device,1.05f);
#endif
if (!BASS_Init(1, 44100, BASS_DEVICE_LATENCY, win, NULL)) error("failed to initialize BASS");
fp = file_open("worlddomination.ogg");
if (!fp) error("music-file not found");
music_file = BASS_StreamCreateFile(1, fp->data, 0, fp->size, 0);
/*** music ***/
// if(!pest_open(win)) error("failed to initialize DirectSond");
// if(!pest_load("worlddomination.ogg",0)) error("failed to load music-file");
/*** subsystems ***/
init_tunnel();
video_init();
if(!init_particles(device)) error("failed to initialize");
if(!init_overlays(device)) error("f**k a duck");
if(!init_marching_cubes(device)) error("screw a kangaroo");
make_random_particles(particles, PARTICLES, vector_make(0,-180,0), 500);
make_random_particles(particles2, PARTICLES2, vector_make(0,-180,0), 500);
make_random_particles(particles3, PARTICLES3, vector_make(0,0,0), 800);
/*** rendertextures ***/
if (IDirect3DDevice9_CreateTexture(device, 512, 256, 0,D3DUSAGE_RENDERTARGET, D3DFMT_X8R8G8B8, D3DPOOL_DEFAULT, &rtt_texture, NULL)!=D3D_OK) error("failed to create rendertarget-texture");
if (IDirect3DTexture9_GetSurfaceLevel(rtt_texture,0,&rtt_surface)!=D3D_OK) error("could not get kvasi-backbuffer-surface");
if ((rtt_texture_id=texture_insert(device, "rendertexture.jpg", rtt_texture))==-1) error("fakk off!");
if(IDirect3DDevice9_CreateTexture(device,16,16,0,D3DUSAGE_RENDERTARGET|D3DUSAGE_AUTOGENMIPMAP,D3DFMT_X8R8G8B8,D3DPOOL_DEFAULT, &rtt_32_texture, NULL)!=D3D_OK) error("failed to create rendertarget-texture");
if(IDirect3DTexture9_GetSurfaceLevel(rtt_32_texture,0,&rtt_32_surface)!=D3D_OK) error("could not get kvasi-backbuffer-surface");
if((rtt_32_texture_id=texture_insert(device, "rendertexture2.jpg", rtt_32_texture))==-1) error("fakk off!");
/*** textures ***/
/* solid colors for fades etc */
if((white=texture_load(device,"white.png",FALSE))==-1) error("shjit!");
if((black=texture_load(device,"black.png",FALSE))==-1) error("shjit!");
/* textoverlays */
if((odd_is_back_again[0]=texture_load(device,"odd_is_back_again_0.png",FALSE))==-1) error("failed to load image");
if((odd_is_back_again[1]=texture_load(device,"odd_is_back_again_1.png",FALSE))==-1) error("failed to load image");
if((odd_is_back_again[2]=texture_load(device,"odd_is_back_again_2.png",FALSE))==-1) error("failed to load image");
if((odd_is_back_again[3]=texture_load(device,"odd_is_back_again_3.png",FALSE))==-1) error("failed to load image");
if((at_the_gathering_2003[0]=texture_load(device,"at_the_gathering_2003_0.png",FALSE))==-1) error("failed to load image");
if((at_the_gathering_2003[1]=texture_load(device,"at_the_gathering_2003_1.png",FALSE))==-1) error("failed to load image");
if((at_the_gathering_2003[2]=texture_load(device,"at_the_gathering_2003_2.png",FALSE))==-1) error("failed to load image");
if((at_the_gathering_2003[3]=texture_load(device,"at_the_gathering_2003_3.png",FALSE))==-1) error("failed to load image");
if((back_once_again[0]=texture_load(device,"back_once_again_0.png",TRUE))==-1) error("failed to load image");
if((back_once_again[1]=texture_load(device,"back_once_again_1.png",TRUE))==-1) error("failed to load image");
if((back_once_again[2]=texture_load(device,"back_once_again_2.png",TRUE))==-1) error("failed to load image");
if((o_d_d_in_your_face[0]=texture_load(device,"o_d_d_in_your_face_0.png",TRUE))==-1) error("failed to load image");
if((o_d_d_in_your_face[1]=texture_load(device,"o_d_d_in_your_face_1.png",TRUE))==-1) error("failed to load image");
if((o_d_d_in_your_face[2]=texture_load(device,"o_d_d_in_your_face_2.png",TRUE))==-1) error("failed to load image");
if((o_d_d_in_your_face[3]=texture_load(device,"o_d_d_in_your_face_3.png",TRUE))==-1) error("failed to load image");
if((world_domination[0]=texture_load(device,"world_domination_0.png",TRUE))==-1) error("failed to load image");
if((world_domination[1]=texture_load(device,"world_domination_1.png",TRUE))==-1) error("failed to load image");
if((world_domination[2]=texture_load(device,"world_domination_2.png",TRUE))==-1) error("failed to load image");
if((world_domination[3]=texture_load(device,"world_domination_3.png",TRUE))==-1) error("failed to load image");
if((were_back=texture_load(device,"were_back.png",TRUE))==-1) error("failed to load image");
if((cred[0]=texture_load(device,"cred_0.png",TRUE))==-1) error("failed to load image");
if((cred[1]=texture_load(device,"cred_1.png",TRUE))==-1) error("failed to load image");
if((cred[2]=texture_load(device,"cred_2.png",TRUE))==-1) error("failed to load image");
if((cred[3]=texture_load(device,"cred_3.png",TRUE))==-1) error("failed to load image");
if((mad_props[0]=texture_load(device,"mad_props_0.png",TRUE))==-1) error("failed to load image");
if((mad_props[1]=texture_load(device,"mad_props_1.png",TRUE))==-1) error("failed to load image");
if((mad_props[2]=texture_load(device,"mad_props_2.png",TRUE))==-1) error("failed to load image");
if((mad_props[3]=texture_load(device,"mad_props_3.png",TRUE))==-1) error("failed to load image");
if((not_eph[0]=texture_load(device,"not_eph_0.png",TRUE))==-1) error("failed to load image");
if((not_eph[1]=texture_load(device,"not_eph_1.png",TRUE))==-1) error("failed to load image");
if((not_eph[2]=texture_load(device,"not_eph_2.png",TRUE))==-1) error("failed to load image");
if((not_eph[3]=texture_load(device,"not_eph_3.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[0]=texture_load(device,"piss_the_fuck_off_0.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[1]=texture_load(device,"piss_the_fuck_off_1.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[2]=texture_load(device,"piss_the_fuck_off_2.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[3]=texture_load(device,"piss_the_fuck_off_3.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[4]=texture_load(device,"piss_the_fuck_off_4.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[5]=texture_load(device,"piss_the_fuck_off_5.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[6]=texture_load(device,"piss_the_fuck_off_6.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[7]=texture_load(device,"piss_the_fuck_off_7.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[8]=texture_load(device,"piss_the_fuck_off_8.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[9]=texture_load(device,"piss_the_fuck_off_9.png",TRUE))==-1) error("failed to load image");
if((piss_the_fuck_off[10]=texture_load(device,"piss_the_fuck_off_10.png",TRUE))==-1) error("failed to load image");
if((hardcore=texture_load(device,"hardcore.png",TRUE))==-1) error("failed to load image");
/* other textures */
if((circle_particle=texture_load(device,"circle_particle.jpg",FALSE))==-1) error("shjit!");
if((refmap=texture_load(device,"fysikkfjall/refmap.jpg",FALSE))==-1) error("shjit!");
if((refmap2=texture_load(device,"refmap2.jpg",FALSE))==-1) error("shjit!");
if((eatyrcode=texture_load(device,"eatyrcode.jpg",FULLSCREEN_HACK))==-1) error("shjit!");
if((code_0=texture_load(device,"code-0.jpg",FALSE))==-1) error("shjit!");
if((code_1=texture_load(device,"code-1.jpg",FALSE))==-1) error("shjit!");
if((overlaytest=texture_load(device,"overlaytest.jpg",FALSE))==-1) error("shjit!");
if((dilldall=texture_load(device,"dilldall.png",FALSE))==-1) error("shjit!");
if((dilldall2=texture_load(device,"dilldall2.png",FALSE))==-1) error("shjit!");
if((metaball_text=texture_load(device,"metaballs.png",TRUE))==-1) error("shjit!");
/*** video ***/
if(!(vid=video_load(device,"test.kpg"))) error("fæck!");
video_texture_id = texture_insert(device, "skjerm_rom/skjerm_tom.tga", vid->texture);
/*** misc stuff ***/
/* main rendertarget */
IDirect3DDevice9_GetRenderTarget(device,0,&main_rendertarget);
/* default state */
IDirect3DDevice9_CreateStateBlock(device, D3DSBT_ALL, &default_state);
init_defaultstate(device);
IDirect3DStateBlock9_Capture(default_state);
/*** 3d scenes ***/
if(!(fysikkfjall=load_scene(device,"fysikkfjall/fysikkfjall.krs"))) error("failed to load 3d scene");
if(!(startblob=load_scene(device,"startblob/startblob.krs"))) error("failed to load 3d scene");
if(!(inni_abstrakt=load_scene(device,"inni_abstrakt/inni_abstrakt.krs"))) error("failed to load 3d scene");
if(!(korridor=load_scene(device,"korridor/korridor.krs"))) error("failed to load 3d scene");
if(!(skjerm_rom=load_scene(device,"skjerm_rom/skjerm_rom.krs"))) error("failed to load 3d scene");
if(!(bare_paa_lissom=load_scene(device,"bare_paa_lissom/bare_paa_lissom.krs"))) error("failed to load 3d scene");
// pest_play();
BASS_Start();
BASS_StreamPlay(music_file, 1, 0);
do{
grid g;
int i;
matrix m, temp, temp_matrix;
matrix marching_cubes_matrix;
long long bytes_played = BASS_ChannelGetPosition(music_file);
float time = bytes_played * (1.0 / (44100 * 2 * 2));
// float time = pest_get_pos()+0.05f;
float delta_time = time-old_time;
int beat = (int)(time*((float)BPM/60.f));
if(time_index<(sizeof(timetable)/4)){
while(timetable[time_index]<time) time_index++;
}
#ifdef _DEBUG
printf("time: %2.2f, delta_time: %2.2f, time_index: %i, beat: %i \r",time,delta_time,time_index,beat);
#endif
IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
IDirect3DStateBlock9_Apply(default_state);
IDirect3DDevice9_Clear(device, 0, NULL, D3DCLEAR_TARGET|D3DCLEAR_ZBUFFER|D3DCLEAR_STENCIL, 0, 1.0f, 0);
// IDirect3DDevice9_Clear(device, 0, NULL, D3DCLEAR_ZBUFFER, 0, 1.0f, 0);
IDirect3DDevice9_BeginScene(device);
#if 1
if(time_index<40){
if(time_index>0&&time_index<5){
draw_overlay(device,odd_is_back_again[time_index-1],0,0,1,FALSE);
}else if(time_index>4&&time_index<19){
float itime = time*10;
grid_flat(g,0,0);
for(i=0;i<7;i++){
int scale = (time_index&1);
grid_wave(g,(float)sin(itime-i+sin(i-itime))*0.3f*scale,(float)cos(itime*0.69f+i*0.733f)*0.3f*scale,7,(float)sin(itime+i*0.1f)*0.5f*scale);
}
draw_grid(device, g, odd_is_back_again[3], FALSE);
}else if(time_index>=19){
float itime = (time-timetable[18])*0.5f;
grid_flat(g,0,0);
for(i=0;i<7;i++){
grid_wave(g,(float)sin(time-i+sin(i-time))*0.3f,(float)cos(time*0.69f+i*0.733f)*0.3f,7, itime*itime);
}
draw_grid(device, g, odd_is_back_again[3], FALSE);
}
if(time_index>20&&time_index<25){
draw_overlay(device,at_the_gathering_2003[(time_index-21)%4],0,0,1,TRUE);
}else if(time_index>=25&&time_index<38){
float itime = time*10;
grid_flat(g,0,0);
for(i=0;i<10;i++){
int scale = (time_index&1);
grid_wave(g,(float)sin(itime-i+sin(i-itime))*0.3f*scale,(float)cos(itime*0.69f+i*0.733f)*0.3f*scale,7,(float)sin(itime+i*0.1f)*0.5f*scale);
}
draw_grid(device,g,at_the_gathering_2003[3],TRUE);
}else if(time_index>=38){
float itime = (time-timetable[37])*0.5f;
grid_flat(g,0,0);
for(i=0;i<10;i++){
grid_wave(g,(float)sin(time-i+sin(i-time))*0.3f,(float)cos(time*0.69f+i*0.733f)*0.3f,7, itime*itime);
}
draw_grid(device,g,at_the_gathering_2003[3],TRUE);
}
}else if(time_index<52){
animate_scene(inni_abstrakt,(time-timetable[39]));
draw_scene(device,inni_abstrakt,0,TRUE);
flash(device,white,time,timetable[39],1);
if(time_index<43){
draw_overlay(device, back_once_again[(time_index-40)%3],0,0,1,FALSE);
}else if(time_index<47){
draw_overlay(device, o_d_d_in_your_face[(time_index-43)%4],0,0,1,FALSE);
}else if(time_index<51){
draw_overlay(device, world_domination[(time_index-47)%4],0,0,1,FALSE);
}else{
draw_overlay(device, were_back,0,0,(time-timetable[51]),FALSE);
}
draw_overlay(device,dilldall,sin(sin(time)*0.07f+(((beat+1)/2)*0.8f)),sin(time*0.03337f+(((beat+1)/2)*0.14f)),0.5f,TRUE);
draw_overlay(device,dilldall2,sin(sin(time*0.1f)*0.07f+time*0.1f+(((beat+1)/2)*0.8f)),sin(time*0.01337f+(((beat+1)/2)*0.14f)),0.5f,TRUE);
}else if(time_index<69){
animate_scene(startblob,(time-timetable[39]-0.27f+((beat+1)&2))*0.74948f);
startblob->cameras[0].fog = TRUE;
startblob->cameras[0].fog_start = 100.f;
startblob->cameras[0].fog_end = 700.f;
if(time_index>=53 && time_index<66 && time_index&1 ){
float f = fade(timetable[time_index-1],1.7f,time,0.5f,0);
f *= f;
f *= 2;
if(f>0.f)
IDirect3DDevice9_SetRenderTarget(device,0,rtt_surface);
draw_scene(device,startblob,0,TRUE);
draw_particles(device, particles3, PARTICLES3, code_0);
if(f>0.f){
IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
draw_radialblur(device,0,0,f,0,rtt_texture_id, FALSE);
}
if(time_index<61) draw_overlay(device,cred[((time_index/2)-2)%4],0,0,f*3,FALSE);
}else{
draw_scene(device,startblob,0,TRUE);
draw_particles(device, particles3, PARTICLES3, circle_particle);
}
if(time_index>=54&& !(time_index&1)){
float f = fade(timetable[time_index-1],1.8f,time,1.f,0)*0.8f;
IDirect3DDevice9_SetRenderTarget(device,0,rtt_32_surface);
draw_scene(device,startblob,0,TRUE);
draw_particles(device, particles3, PARTICLES3, code_0);
IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
IDirect3DDevice9_SetSamplerState(device, 0, D3DSAMP_MAGFILTER, D3DTEXF_POINT);
draw_overlay(device,rtt_32_texture_id,0,0,f,TRUE);
draw_overlay(device,rtt_32_texture_id,0,0,f,TRUE);
IDirect3DDevice9_SetSamplerState(device, 0, D3DSAMP_MAGFILTER, D3DTEXF_LINEAR);
}
flash(device,were_back,time,timetable[51],2);
flash(device,white,time,timetable[51],1);
}else if(time_index<79){
for(i=0;i<BALLS;i++){
balls[i].pos.x = (float)sin(time+i-sin((float)i*0.1212111f))*0.35f;
balls[i].pos.y = (float)cos(time-(float)i*0.29342111f)*0.35f;
balls[i].pos.z = (float)sin(time*0.31121f+sin(i-time))*0.35f;
balls[i].r = 0.15f + (float)sin(time+i)*0.01f;
balls[i].pos = vector_normalize(balls[i].pos);
balls[i].pos = vector_scale(balls[i].pos, (float)(cos(i*0.11131f-time*0.55311f)+sin(time+(float)sin(time-i+time*0.3f)))*0.2f );
}
animate_scene(korridor,(time-timetable[68])*0.65f );
draw_scene(device,korridor,(beat/4)&1,TRUE);
memcpy(temp,korridor->objects[korridor->object_count-1]->mat,sizeof(matrix));
matrix_scale(marching_cubes_matrix,vector_make(120,120,120));
matrix_multiply(marching_cubes_matrix,temp,marching_cubes_matrix);
matrix_rotate(temp,vector_make(time,-time,time*0.5f+sin(time)));
matrix_multiply(marching_cubes_matrix,marching_cubes_matrix,temp);
IDirect3DDevice9_SetTransform( device, D3DTS_WORLD, (D3DMATRIX*)&marching_cubes_matrix );
fill_metafield_blur(balls, BALLS,0.98f);
march_my_cubes_opt(balls, BALLS, 0.9f);
IDirect3DDevice9_SetRenderState(device, D3DRS_CULLMODE, D3DCULL_NONE);
set_texture(device,0,refmap2);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_TEXCOORDINDEX, D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR );
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLOROP, D3DTOP_ADD);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG1, D3DTA_TEXTURE);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG2, D3DTA_CURRENT);
draw_marched_cubes(device);
flash(device,white,time,timetable[68],1);
if(time_index>69&&time_index<74){
draw_overlay(device,mad_props[(time_index+2)%4],0,0,1,FALSE);
}else if(time_index>73&&time_index<77){
draw_overlay(device,not_eph[(time_index+2)%4],0,0,1,FALSE);
}else if(time_index==77){
float f = fade(timetable[76],2.5f,time,1,0);
draw_overlay(device,not_eph[3],0,0,f,FALSE);
}
}
if(time_index>77&&time_index<92){
float f = fade(timetable[77],timetable[78]-timetable[77],time,0,1);
draw_overlay(device,eatyrcode,0,0,f,FALSE);
if(time>109.5f){
IDirect3DStateBlock9_Apply(default_state);
animate_particles(particles, PARTICLES, delta_time*30);
animate_particles(particles2, PARTICLES2, delta_time*28);
draw_particles(device, particles, PARTICLES, code_0);
draw_particles(device, particles2, PARTICLES2, code_1);
}
if(time_index>79&&time_index<90){
draw_overlay(device,piss_the_fuck_off[(time_index-80)%11],0,0,1,FALSE);
}else if(time_index==90){
float f = fade(timetable[89],2,time,1,0);
draw_overlay(device,piss_the_fuck_off[10],0,0,f,FALSE);
}
if(time_index==91){
float f = fade(timetable[90],2,time,1,0);
draw_overlay(device,hardcore,0,0,f,FALSE);
}
}else if(time_index>91 && time_index<97){
animate_scene(skjerm_rom,time);
video_update(vid, time);
draw_scene(device,skjerm_rom,((beat/4)&1),TRUE);
draw_overlay(device,dilldall,sin(sin(time)*0.07f+(((beat+1)/2)*0.8f)),sin(time*0.03337f+(((beat+1)/2)*0.14f)),0.5f,TRUE);
draw_overlay(device,dilldall2,sin(sin(time*0.1f)*0.07f+time*0.1f+(((beat+1)/2)*0.8f)),sin(time*0.01337f+(((beat+1)/2)*0.14f)),0.5f,TRUE);
if(time_index>92)
draw_overlay(device, world_domination[(time_index-93)%4],0,0,1,FALSE);
}else if(time_index>96&&time_index<104){
grid_zero(g);
matrix_translate(m, vector_make(cos(time)*1.5f, sin(time)*1.5f,time*10));
matrix_rotate(temp_matrix, vector_make(sin(time*0.8111f)*0.2f,sin(time*1.2f)*0.2f,time));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
matrix_rotate(temp_matrix, vector_make(0,M_PI,0));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
matrix_rotate(temp_matrix, vector_make(M_PI,0,0));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
grid_add_noice(g,sin(time)*0.1f);
draw_grid(device, g, circle_particle, FALSE);
if(time_index>97&&time_index<102){
float f = 1;
if(time_index==101) f = fade(timetable[100],3,time,1,0);
draw_overlay(device, o_d_d_in_your_face[(time_index-42)%4],0,0,f,FALSE);
}
}
if(time_index>101 && time_index<104){
float f = fade(timetable[101],8,time,0,1);
float f2 = fade(timetable[101],4,time,0,1);
draw_overlay(device,black,0,0,f2,FALSE);
IDirect3DDevice9_SetRenderTarget(device,0,rtt_surface);
IDirect3DDevice9_Clear(device, 0, NULL, D3DCLEAR_TARGET|D3DCLEAR_ZBUFFER, 0, 1.0f, 0);
IDirect3DStateBlock9_Apply(default_state);
animate_scene(bare_paa_lissom,time-timetable[101]);
draw_scene(device,bare_paa_lissom,0,TRUE);
time *=0.5f;
for(i=0;i<BALLS2;i++){
balls2[i].pos.x = (float)sin(time+i-sin((float)i*0.1212111f))*0.35f;
balls2[i].pos.y = (float)cos(time-(float)i*0.29342111f)*0.35f;
balls2[i].pos.z = (float)sin(time*0.31121f+sin(i-time))*0.35f;
balls2[i].r = 0.15f + (float)sin(time+i)*0.01f;
balls2[i].pos = vector_normalize(balls2[i].pos);
balls2[i].pos = vector_scale(balls2[i].pos, (float)(cos(i*0.11131f-time*0.55311f)+sin(time+(float)sin(time-i+time*0.3f)))*0.2f );
}
memcpy(temp,bare_paa_lissom->objects[bare_paa_lissom->object_count-1]->mat,sizeof(matrix));
matrix_scale(marching_cubes_matrix,vector_make(120,120,120));
matrix_multiply(marching_cubes_matrix,temp,marching_cubes_matrix);
IDirect3DDevice9_SetTransform( device, D3DTS_WORLD, (D3DMATRIX*)&marching_cubes_matrix );
fill_metafield(balls2, BALLS2);
march_my_cubes_opt(balls2, BALLS2, 0.9f);
IDirect3DDevice9_SetRenderState(device, D3DRS_CULLMODE, D3DCULL_NONE);
set_texture(device,0,refmap);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_TEXCOORDINDEX, D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR );
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLOROP, D3DTOP_ADD);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG1, D3DTA_TEXTURE);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG2, D3DTA_CURRENT);
draw_marched_cubes(device);
IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
draw_overlay(device,rtt_texture_id,0,0,f,TRUE);
if(time_index==103){
float f;
time *= 2;
f = fade(timetable[time_index-1],3,time,1,0);
draw_overlay(device,metaball_text,0,0,f,FALSE);
flash(device,white,time,timetable[time_index-1],1);
}
}
if(time_index==104){
float f = fade(timetable[103],timetable[104]-timetable[103],time,0,1);
animate_scene(korridor,180-(time-timetable[time_index-1])*0.8f );
draw_scene(device,korridor,(beat/4)&1,TRUE);
draw_overlay(device,black,0,0,f,FALSE);
}
if(time_index==105){
float f = fade(timetable[104],timetable[105]-timetable[104],time,0,1);
float t = (time-timetable[time_index-1])*0.6f+2.2f;
animate_scene(fysikkfjall,t);
draw_scene(device,fysikkfjall,0,TRUE);
draw_overlay(device,black,0,0,f,FALSE);
}
#endif
/*
*/
/*
draw_overlay(device, were_back, (1+sin(time))*0.5f, TRUE);
*/
// animate_scene(risterom,time);
// draw_scene(device,risterom,0,TRUE);
#if 0 //helvete_har_frosset
draw_overlay(device, eatyrcode, 1,FALSE);
IDirect3DStateBlock9_Apply(default_state);
animate_particles(particles, PARTICLES, delta_time*30);
animate_particles(particles2, PARTICLES2, delta_time*28);
draw_particles(device, particles, PARTICLES, code_0);
draw_particles(device, particles2, PARTICLES2, code_1);
#endif
#ifdef pikk
// IDirect3DDevice9_SetRenderTarget(device,0,rtt_surface);
IDirect3DDevice9_Clear(device, 0, NULL, D3DCLEAR_TARGET|D3DCLEAR_ZBUFFER, 0, 1.0f, 0);
draw_overlay(device, eatyrcode, TRUE);
animate_scene(startblob,(time-timetable[39]-0.27f)*0.7453f);
draw_scene(device,startblob,0,FALSE);
draw_particles(device, particles, PARTICLES, code_0);
draw_particles(device, particles2, PARTICLES2, code_1);
// IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
/*
draw_radialblur(device,
(float)sin(time)*0.2f,
(float)sin(-time*0.331f)*0.13f,
(float)(2+(float)sin(time*0.5f))*0.2f,
0,//sin(time)*0.25f,
rtt_texture_id, TRUE);
animate_scene(fysikkfjall,time);
draw_scene(device,fysikkfjall,0,FALSE);
*/
// draw_overlay(device, rtt_texture_id, TRUE);
#endif
// draw_overlay(device, eatyrcode, FALSE);
// video_update(vid, time);
#if 0
// IDirect3DDevice9_SetRenderTarget(device,0,rtt_surface);
animate_scene(testscene,time);
// morph_object(testscene->objects[0], time );
draw_scene(device,testscene,0,TRUE);
// draw_particles(device, particles, PARTICLES, particle);
// IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
#endif
#if 0
time *=0.5f;
for(i=0;i<BALLS2;i++){
balls2[i].pos.x = (float)sin(time+i-sin((float)i*0.1212111f))*0.35f;
balls2[i].pos.y = (float)cos(time-(float)i*0.29342111f)*0.35f;
balls2[i].pos.z = (float)sin(time*0.31121f+sin(i-time))*0.35f;
balls2[i].r = 0.15f + (float)sin(time+i)*0.01f;
balls2[i].pos = vector_normalize(balls2[i].pos);
balls2[i].pos = vector_scale(balls2[i].pos, (float)(cos(i*0.11131f-time*0.55311f)+sin(time+(float)sin(time-i+time*0.3f)))*0.2f );
// balls2[i].pos.x *= 2.8f;
}
matrix_translate(temp,vector_make(0,0,87));
matrix_scale(marching_cubes_matrix,vector_make(50,50,50));
matrix_multiply(marching_cubes_matrix,temp,marching_cubes_matrix);
IDirect3DDevice9_SetTransform( device, D3DTS_WORLD, (D3DMATRIX*)&marching_cubes_matrix );
fill_metafield(balls2, BALLS2);
// fill_metafield_blur(balls, BALLS,0.98f);
march_my_cubes_opt(balls2, BALLS2, 0.9f);
// march_my_cubes(0.9f);
IDirect3DDevice9_SetRenderState(device, D3DRS_CULLMODE, D3DCULL_CW);
set_texture(device,0,refmap);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_TEXCOORDINDEX, D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR );
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLOROP, D3DTOP_ADD);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG1, D3DTA_TEXTURE);
IDirect3DDevice9_SetTextureStageState(device, 0, D3DTSS_COLORARG2, D3DTA_CURRENT);
draw_marched_cubes(device);
#endif
#if 0
// time *= 0.5f;
grid_zero(g);
// for(i=0;i<10;i++)
// grid_wave(g,sin(time-i+sin(i-time))*0.3f,cos(time*0.69f+i*0.733f)*0.3f,7,sin(time+i*0.1f)*0.5f);
matrix_translate(m, vector_make(cos(time)*1.5f, sin(time)*1.5f,time*10));
matrix_rotate(temp_matrix, vector_make(sin(time*0.8111f)*0.2f,sin(time*1.2f)*0.2f,time));
matrix_multiply(m,m,temp_matrix);
// empty_grid( grid );
render_tunnel(g,m);
matrix_rotate(temp_matrix, vector_make(0,M_PI,0));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
matrix_rotate(temp_matrix, vector_make(M_PI,0,0));
matrix_multiply(m,m,temp_matrix);
render_tunnel(g,m);
// tyfuus_expand_grid( screen, grid, texture );
grid_add_noice(g,sin(time)*0.1f);
draw_grid(device, g, circle_particle, FALSE);
#endif
// IDirect3DDevice9_SetRenderTarget(device,0,main_rendertarget);
// video_update(vid,time);
/*
draw_radialblur(device,
(float)sin(time)*0.2f,
(float)sin(-time*0.331f)*0.13f,
(float)(1+(float)sin(time*0.5f))*0.2f,
0,//sin(time)*0.25f,
rtt_texture_id, FALSE);
*/
// IDirect3DStateBlock9_Apply(default_state);
// draw_overlay(device,rtt_texture_id,FALSE);
// draw_overlay(device,fullscreen,FALSE);
// draw_radialblur(device,0,sin(time*0.2f)*2.f, rtt_texture_id);
// IDirect3DDevice9_StretchRect(device,main_rendertarget,NULL,rtt_surface,NULL,D3DTEXF_NONE);
// IDirect3DBaseTexture9_GenerateMipSubLevels(rtt_texture);
IDirect3DDevice9_EndScene(device);
if(IDirect3DDevice9_Present(device, NULL, NULL, NULL, NULL)==D3DERR_DEVICELOST)
error("fakkin lost device. keep your hands off alt-tab, looser.");
old_time = time;
while (PeekMessage(&msg,NULL,0,0,PM_REMOVE)){
TranslateMessage(&msg);
DispatchMessage(&msg);
if (msg.message == WM_QUIT ||
msg.message == WM_KEYDOWN && LOWORD(msg.wParam) == VK_ESCAPE)
done = TRUE;
}
}while(!done);
deinit_marching_cubes();
deinit_overlays();
deinit_particles();
free_scene(fysikkfjall);
free_scene(startblob);
free_scene(inni_abstrakt);
free_scene(korridor);
free_scene(skjerm_rom);
free_scene(bare_paa_lissom);
free_materials();
free_textures();
free_video(vid);
rtt_surface->lpVtbl->Release(rtt_surface);
rtt_32_surface->lpVtbl->Release(rtt_32_surface);
main_rendertarget->lpVtbl->Release(main_rendertarget);
IDirect3DStateBlock9_Release(default_state);
d3dwin_close();
if (music_file) BASS_StreamFree( music_file );
if (fp) file_close( fp );
BASS_Free();
// pest_close();
return 0;
}
static void enemy_tag_loop() {
update_caption = tag_update_caption;
tag_enemy_current_route = 0;
tag_enemy_current_shot = 0;
tag_enemy_spawnline = map_spawn_line;
tag_enemy_y = 0;
tag_enemy_upscrolled = 0;
reset_tag_enemy();
tag_enemy_id = init_enemy(&tag_enemy);
SDL_Event sdl_event;
while(1) {
if(!obj_slot_used[tag_enemy_id]) update_tag_enemy(0);
//tag_enemy_id = init_enemy(&tag_enemy);
unsigned need_redraw = 1;
while (SDL_PollEvent(&sdl_event)) {
need_redraw = 0;
int dir = -1;
switch (sdl_event.type) {
case SDL_KEYUP:
switch(sdl_event.key.keysym.sym) {
case SDLK_e: dump_enemy(); return;
case SDLK_g: toggle_gun(); break;
case SDLK_d: enter_direction(); break;
case SDLK_i: insert_steps(); break;
case SDLK_s: insert_shot(); break;
case SDLK_p: do_pause(); break;
case SDLK_c: clear_screen(); video_update(); need_redraw = 1; break;
case SDLK_SPACE: update_tag_enemy(1); break;
case SDLK_PAGEUP: scrollup(); break;
case SDLK_KP_PLUS:
dir = 1;
case SDLK_KP_MINUS:
if((sdl_event.key.keysym.mod & KMOD_RSHIFT) ||
(sdl_event.key.keysym.mod & KMOD_LSHIFT))
toggle_shape(dir);
else
if((sdl_event.key.keysym.mod & KMOD_RALT) ||
(sdl_event.key.keysym.mod & KMOD_LALT))
toggle_route(dir);
else
if((sdl_event.key.keysym.mod & KMOD_RCTRL) ||
(sdl_event.key.keysym.mod & KMOD_LCTRL))
toggle_shot(dir);
else
toggle_vel(dir);
break;
default: break;
}
case SDL_KEYDOWN:
switch(sdl_event.key.keysym.sym) {
case SDLK_RIGHT: dir = 1;
case SDLK_LEFT:
if((sdl_event.key.keysym.mod & KMOD_RSHIFT) ||
(sdl_event.key.keysym.mod & KMOD_LSHIFT)) dir *= 4;
tag_enemy.x += dir;
update_tag_enemy(1);
break;
case SDLK_DOWN:
dir = 1;
case SDLK_UP:
if((sdl_event.key.keysym.mod & KMOD_RSHIFT) ||
(sdl_event.key.keysym.mod & KMOD_LSHIFT)) dir *= 4;
tag_enemy_y += dir;
update_tag_enemy(1);
break;
default: ;
}
break;
default: ;
}
}
game_tick(need_redraw);
}
}
void editor (char *filename, int startpos)
{
int stop = FALSE; // exit main loop?
int fline = 0; // no. of first displayed line
int cline = 0; // no. of line with cursor
int shift = 0; // shift to the right
int ccol = 0; // column of the cursor position in the file window
int k, i, ndisp, rc, reply;
char *p, buf[1024];
if (editor_open_file (filename) < 0) return;
cline = min1 (startpos, nl-1);
fline = max1 (0, cline - video_vsize()/2);
// enter the loop
while (1)
{
if (stop)
{
rc = 0;
if (changed)
{
rc = -1;
reply = fly_ask (0, " Save file `%s'? ", " Yes \n No \n Cancel ", filename);
if (reply == 1) rc = editor_save_file (filename);
if (reply == 2) rc = 0;
if (reply == 3) stop = FALSE;
}
if (rc == 0) break;
}
ndisp = video_vsize()-1;
// draw the screen
for (i=0; i<ndisp; i++)
{
video_put_n_cell (' ', _BackWhite+_Black, video_hsize(), i, 0);
if (i+fline < nl)
editor_display_line (i, fline+i, shift);
}
video_put_n_cell (' ', _BackBlue+_White, video_hsize(), video_vsize()-1, 0);
snprintf1 (buf, sizeof(buf), "L%d:C%d:S%d %c %s%s", cline, ccol, shift, fl_sym.v,
changed ? "*" : "", filename);
video_put (buf, video_vsize()-1, 0);
video_set_cursor (cline-fline, ccol-shift);
video_update (0);
// get a keyboard/mouse event and process it
k = getmessage (-1);
if (IS_KEY(k))
{
switch (k)
{
// Navigation keys
case _Up:
case _Down:
case _PgUp:
case _PgDn:
fly_scroll_it (k, &fline, &cline, nl, video_vsize()-1);
break;
case _Right:
ccol++;
if (ccol-shift > video_hsize()-1) shift = ccol-video_hsize()+1;
break;
case _Left:
ccol = max1 (ccol-1, 0);
if (ccol < shift) shift = ccol;
break;
case _Home:
ccol = 0; shift = 0;
break;
case _End:
ccol = strlen(lines[cline]);
if (ccol-shift > video_hsize()-1) shift = ccol-video_hsize()+1;
break;
case _CtrlHome:
fline = 0; cline = 0; ccol = 0; shift = 0; break;
case _CtrlEnd:
fline = max1 (0, nl-video_vsize()+1);
cline = min1 (fline+video_vsize()-1, nl-1);
shift = 0;
ccol = 0;
break;
// Action keys
case _CtrlY:
put_clipboard (lines[cline]);
free (lines[cline]);
for (i=cline; i<nl-1; i++)
lines[i] = lines[i+1];
nl--;
changed = TRUE;
break;
case _ShiftInsert:
case _CtrlV:
p = get_clipboard ();
if (p == NULL || *p == '\0') break;
if (nl == na)
{
na *= 2;
lines = realloc (lines, sizeof(char *) * na);
}
for (i=nl-1; i>cline; i--)
lines[i+1] = lines[i];
lines[cline+1] = p;
ccol = 0;
shift = 0;
cline++;
if (cline-fline == video_vsize()-1) fline++;
nl++;
changed = TRUE;
break;
case _BackSpace:
if (ccol == 0)
{
// ccol == 0: glue this line to the previous
if (cline == 0) break;
p = malloc (strlen (lines[cline])+strlen(lines[cline-1])+1);
strcpy (p, lines[cline-1]);
strcat (p, lines[cline]);
ccol = strlen (lines[cline-1]);
if (ccol-shift > video_hsize()-1) shift = ccol-video_hsize()+1;
free (lines[cline-1]);
free (lines[cline]);
lines[cline-1] = p;
for (i=cline; i<nl-1; i++)
lines[i] = lines[i+1];
cline--;
nl--;
}
else
{
// ccol != 0: delete char at ccol-1, move cursor left
str_delete (lines[cline], lines[cline]+ccol-1);
ccol--;
if (ccol < shift) shift = ccol;
}
changed = TRUE;
break;
case _Enter:
if (nl == na)
{
na *= 2;
lines = realloc (lines, sizeof(char *) * na);
}
for (i=nl-1; i>cline; i--)
lines[i+1] = lines[i];
if (ccol < strlen (lines[cline]))
{
lines[cline+1] = strdup (lines[cline]+ccol);
lines[cline][ccol] = '\0';
}
else
{
lines[cline+1] = strdup ("");
}
ccol = 0;
shift = 0;
cline++;
if (cline-fline == video_vsize()-1) fline++;
nl++;
changed = TRUE;
break;
case _Delete:
if (ccol >= strlen (lines[cline]))
{
// glue previous line to this one
if (cline == nl-1) break;
p = malloc (ccol+strlen(lines[cline+1])+1);
strcpy (p, lines[cline]);
memset (p+strlen(lines[cline]), ' ', ccol-strlen(lines[cline]));
strcpy (p+ccol, lines[cline+1]);
free (lines[cline]);
free (lines[cline+1]);
lines[cline] = p;
for (i=cline+1; i<nl-1; i++)
lines[i] = lines[i+1];
nl--;
}
else
{
// ccol != 0: delete char at ccol-1, move cursor left
str_delete (lines[cline], lines[cline]+ccol);
}
changed = TRUE;
break;
case _F2:
rc = editor_save_file (filename);
if (rc == 0) changed = FALSE;
break;
case _Esc:
case _F10:
stop = TRUE; break;
// character keys
default:
if (k >= ' ' && k <= 255)
{
str_insert_at (cline, k, ccol);
ccol++;
changed = TRUE;
}
}
}
else if (IS_MOUSE(k))
{
}
else if (IS_SYSTEM(k))
{
switch (SYS_TYPE(k))
{
case SYSTEM_QUIT:
stop = TRUE; break;
}
}
}
if (nl != 0 && lines != NULL)
for (i=0; i<nl; i++)
free (lines[i]);
if (na != 0 && lines != NULL) free (lines);
na = 0;
lines = NULL;
}
