/***

PAC-MAC 2600

Remake using DIV Games studio

Started: 29/03/2015 20:26

***/

program pac2600;

global sounds[10];

player=0;

start=0;

playing=false;

score=0;

gactive=0;

powertime=0;

powersound=0;

numghosts=4;

flicker=1;

demo=1;

lives=0;

ghostpoints=0;

res=-1;

cart=0;

local

p=0;

ox=0;

oy=0;

nx=0;

ny=0;

dx=0;

dy=0;

ody=0;

odx=0;

anim=0;

animf=0;

eyes=false;

BEGIN

cart=load_map("gfx/cart.pcx");

graph=cart;

x=160;

y=100;

//put_screen(file,cart);

frame(10000);

fade(0,0,0,10);

while(fading)

frame;

end

graph=0;

load_fpg("pac2600.fpg");

fade(100,100,100,10);

define_region(1,0,0,320,168);

sounds[0]=load_wav("sounds/CHOMP.wav",0);

sounds[1]=load_wav("sounds/BOOP.wav",0);

sounds[2]=load_wav("sounds/START.wav",0);

sounds[3]=load_wav("sounds/DEATH.wav",0);

sounds[4]=load_wav("sounds/beeew.wav",1);

sounds[5]=load_wav("sounds/BUP_BWOOP.wav",0);

sounds[6]=load_wav("sounds/WHISTLE.wav",0);

set_mode(320200);

put_screen(file,100);

set_fps(60,0);

write_int(0,160,180,5,&score);

write_int(0,0,180,3,&lives);

LOOP

playing=false;

maze();

frame;

WHILE(get_id(type wafer) || get_id(type powerpill))

FRAME;

gactive ;

IF(gactive==4)

gactive=0;

END

IF(powertime>0)

powertime--;

IF(powertime==0)

stop_sound(powersound);

END

END

if(key(_enter) && demo==true)

load_pal("pac2600.fpg");

demo=false;

playing=false;

score=0;

lives=3;

signal(type maze, s_kill_tree);

maze();

end

END

signal(type maze, s_kill_tree);

if(powertime>0)

stop_sound(powersound);

powertime=0;

end

END

END

PROCESS maze()

PRIVATE

px;

py;

BEGIN

// setup wafers

FROM x = 9 to 134;

get_point(file,101,x,&px, &py);

wafer(px,py);

END

// setup powerpills

FROM x = 1 to 4;

get_point(file,101,x,&px,&py);

powerpill(px,py);

end

LOOP

// position pacman

if(!demo)

get_point(file,101,5,&px, &py);

player=pac(px,py);

else

player=id;

end

// position ghosts

get_point(file,101,7,&px, &py);

for( x = 1 ;x<=numghosts;x );

ghost(px,py,x-1);

END

if(demo)

frame(6000);

playing=true;

end

frame;

WHILE(get_id(type pac) || demo)

if(demo)

roll_palette(1,254,rand(0,255));

frame(10000);

else

FRAME;

end

END

signal(type ghost, s_kill);

signal(type pac, s_kill);

lives--;

if(lives<0)

demo=1;

end

END

END

PROCESS pac(x,y)

PRIVATE

frames[]=1,2,3,2;

eatsound=0;

g=0;

BEGIN

y ;

x--;

graph=frames[0];

//resolution=res;

region=1;

FRAME(6000);

start = sound(sounds[2],255,255);

LOOP

IF(playing==true || !is_playing_sound(start))

playing=true;

ox=x;

oy=y;

IF(key(_left))

x-=2;

nx=-2;

ny=0;

END

IF(key(_right))

x =2;

nx=2;

ny=0;

END

IF(key(_up))

y-=2;

ny=-2;

nx=0;

END

IF(key(_down))

y =2;

ny=2;

nx=0;

END

p=map_get_pixel(file,101,x,y-1);

IF((x!=ox || y!=oy) && p!=0 && p!=39 && y>2 && y<200)

dx=nx;

dy=ny;

ELSE

x=ox;

y=oy;

x=x dx;

y=y dy;

p=map_get_pixel(file,101,x,y-1);

if(dx==0 && dy!=0 && (y<2 || y>190))

if(y>200)

y=-20;

end

if(y<-20)

y=200;

end

else

IF(p==0 || p==39)

x=ox;

y=oy;

dx=0;

dy=0;

END

end

END

END

IF(anim >10)

anim=0;

animf ;

IF(animf==4)

animf=0;

END

graph=frames[animf];

END

g=collision(type ghost);

IF(g && y>0 && y<168)

if(g.eyes==false)

IF(powertime<1)

playing=false;

sound(sounds[3],255,255);

FROM graph = 4 to 10;

FRAME(1600);

END

RETURN;

ELSE

g.eyes=true;

playing=false;

eatsound=sound(sounds[5],255,255);

score =ghostpoints;

ghostpoints*=2;

WHILE(is_playing_sound(eatsound))

IF(anim >10)

anim=0;

animf ;

IF(animf==4)

animf=0;

END

graph=frames[animf];

END

FRAME;

END

sound(sounds[6],255,255);

playing=true;

END

END

END

FRAME;

END

END

PROCESS ghost(x,y,gid);

private

homex=0;

homey=0;

ograph=0;

try1=0;

sw=0;

BEGIN

homex=x;

homey=y;

dx=1;

graph=30;

resolution=res;

region=1;

LOOP

IF(playing)

p = map_get_pixel(file,101,x,y-1);

IF(p==54)

ox=dx;

oy=dy;

dx=0;

dy=0;

END

if(eyes)

try1=4;

else

try1=0;

end

WHILE(dx==0 && dy==0)

IF(eyes && try1>0)

switch(try1)

case 1:

IF(homex>x)

dx=1;

END

end

case 2:

if(homex<x && dx==0)

dx=-1;

END

end

case 3:

if(homey<y && dx==0)

dy=-1;

END

end

case 4:

if(homey>y && dx==0 && dy==0)

dy=1;

END

end

end

ELSE

sw=rand(0,3);

SWITCH(sw)

CASE 0:

if(homex>x && try1>0)

dx=1;

else

dx=1;

end

END

CASE 1:

if(homex<x && try1>0)

dx=-1;

else

dx=-1;

end

END

CASE 2:

if(homey>y && try1>0 )

dy=1;

else

dy=1;

end

END

CASE 3:

if(homey<y && try1>0)

dy=-1;

else

dy=-1;

end

END

END

END

if(dx!=0 || dy!=0)

p=map_get_pixel(file,101,x dx,y-1 dy);

IF(p==0 || (!eyes && p==39 && dx==-1) )

dx=0;

dy=0;

END

IF(dx==-ox && dy==-oy)

dx=0;

dy=0;

END

end

try1--;

END

ox=x;

oy=y;

if(eyes==1 && homex==x && homey==y)

if(powertime<1)

eyes=false;

dx=0;

dy=0;

end

else

x=x dx;

y=y dy;

end

END

IF(y<-20)

y =200;

END

IF(y>200)

y-=200;

END

IF(anim >10)

anim=0;

graph ;

IF(graph==34)

graph=30;

END

END

ograph=graph;

IF(eyes==true)

graph=34;

END

if(flicker)

size=100*(gid%4==gactive);

end

IF(powertime>0)

graph =10;

END

FRAME;

graph=ograph;

END

END

PROCESS wafer(x,y)

BEGIN

graph=20;

resolution = res;

REPEAT

FRAME;

UNTIL (player.y-1==y && abs(player.x-(x 4))<5)

sound(sounds[0],255,255);

score ;

END

PROCESS powerpill(x,y)

BEGIN

graph=21;

resolution=res;

REPEAT

size=100*((timer/20)&1);

FRAME;

UNTIL(abs(x-player.x)<2 && abs(y-player.y)<2)

stop_sound(powersound);

sound(sounds[1],255,255);

score =5;

ghostpoints=20;

powersound=sound(sounds[4],255,255);

powertime=600;

END

PROCESS bonus(x,y)

BEGIN

graph=22;

LOOP

FRAME;

END

END