this is my first game that is any good, please post your comments and/or improvements!
controls - up,down,left,right
guide the yellow ball around the maze picking up dots, avoid the green ball/ghosts
rem !!!!!!!!!!!!!!!!!!!!!
rem !!!Packman clone!!!!!
rem !!!!!!20 lines!!!!!!!
rem !!!!!!!ReD_EyE!!!!!!!
rem !!!!!!!!!!!!!!!!!!!!!
sync on : sync rate 40 : hide mouse : obj=1 : obj2=500 : obj3=1000 : obj4=1500 : x#=90 : y#=-20 : z#=0 : score=0 : w=0 : lose=0 : for y=1 to 20 : for x=1 to 20 : read a : if a=5 : make object sphere 2000,8 : position object 2000,x*10,y*-10,0
make object collision box 2000,-3,-3,-3,3,3,3,0 : color object 2000,rgb(255,255,0) : endif : if a=1 : obj=obj+1 : make object cube obj,10 : position object obj,x*10,y*-10,0 : color object obj,rgb(255,0,0) :make object collision box obj,-5,-5,-5,5,5,5,0
endif : if a=2 : obj2=obj2+1 : make object sphere obj2,2.5 : position object obj2,x*10,y*-10,0 : make object collision box obj2,-2.5,-2.5,-2.5,2.5,2.5,2.5,0 : color object obj2,rgb(255,255,0) : w=w+1 : endif : if a=4 : obj4=obj4+1
make object sphere obj4,8 : position object obj4,x*10,y*-10,0 : color object obj4,rgb(0,180,0) : make object collision box obj4,-3,-3,-3,3,3,3,0 : ghost object on obj4 : endif : if a=3 : obj3=obj3+1 : make object sphere obj3,2.5
position object obj3,x*10,y*-10,0 : make object collision box obj3,-2.5,-2.5,-2.5,2.5,2.5,2.5,0 : color object obj3,rgb(255,180,0) : w=w+1 : endif : next x : next y : color backdrop 0 : do : for t=1501 to obj4 : gx#=object position x(t)
gy#=object position y(t) : point object t,x#,y#,z# : move object t,2.2 : if object collision(t,0) : if object collision(t,2000) : hide object 2000 : lose=1 : endif : position object t,gx#,gy#,0 :
if object collision(t,0)<1000 and object collision(t,0)>500 : point object t,x#,y#,z# : move object t,2.2 : endif : endif : next t : oldx#=object position x(2000) : oldy#=object position y(2000) : if rightkey()=1 : x#=x#+2.5
position object 2000,x#,y#,z# : endif : if leftkey()=1 : x#=x#-2.5 : position object 2000,x#,y#,z# : endif : if downkey()=1 : y#=y#-2.5 : position object 2000,x#,y#,z# : endif : if upkey()=1 : y#=y#+2.5 : position object 2000,x#,y#,z# : endif
if object collision(2000,0) : if object collision(2000,0)>=500 and object collision(2000,0)<=obj3 : score=score+1 : delete object object collision(2000,0) : endif : position object 2000,oldx#,oldy#,0 : endif :
if score=w : center text 320,240,"You Win!!!" : endif : if lose=1 : center text 320,240,"You Lose!!!" : endif : x#=object position x(2000) : z#=object position z(2000) : y#=object position y(2000) :
position camera curvevalue(x#,camera position x(),5),curvevalue(y#,camera position y(),5),-130 : sync : loop : data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 : data 1,5,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0,0,2,1 : data 1,0,1,1,0,1,1,2,0,0,0,1,1,1,0,1,1,1,0,1
data 1,0,1,0,0,0,0,0,1,1,4,1,1,1,0,1,0,1,0,1 : data 1,0,1,0,1,1,1,1,1,1,0,0,0,0,0,0,2,0,0,1 : data 1,0,0,0,0,0,0,0,0,1,2,1,1,0,1,1,1,0,1,1 : data 1,0,1,1,1,1,0,1,1,1,0,1,1,0,1,1,1,0,1,1 : data 1,0,0,0,2,0,0,0,0,1,0,0,0,0,1,0,0,0,0,1
data 1,1,1,1,1,1,0,1,0,0,0,1,1,0,2,0,1,1,0,1 : data 1,2,0,0,1,1,0,1,1,1,0,1,1,1,1,1,1,1,0,1 : data 1,1,0,1,1,1,0,1,1,0,0,0,2,1,0,4,0,0,0,1 : data 1,1,0,0,0,0,0,1,1,0,1,1,1,1,0,1,1,0,1,1 : data 1,1,1,1,1,0,1,1,1,4,1,1,0,1,0,0,0,0,0,1
data 1,0,1,1,1,0,1,1,1,0,0,0,0,1,0,1,1,1,0,1 : data 1,0,0,0,0,0,1,0,0,0,1,0,1,1,0,1,1,1,0,1 : data 1,0,1,1,1,0,1,1,1,0,1,0,1,1,0,2,0,0,0,1 : data 1,0,1,1,0,0,0,0,0,0,0,0,1,1,0,1,1,1,4,1 : data 1,2,1,1,0,1,0,1,1,0,1,0,2,0,0,0,0,2,0,1
data 1,0,0,4,0,1,0,0,2,0,1,1,1,1,1,1,1,1,1,1 : data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1
'You were born crying while people around you smiled'