Snackman! (DB Pacman clone) - GameCreators Forum

Author

Message

FiShFuN4eVeR

21

Years of Service

User Offline

Joined: 2nd Feb 2003

Location: Netherlands

Posted: 27th Jun 2003 23:16 Edited at: 27th Jun 2003 23:17

Link

Eyz

this is Snackman! I've made it in 2 days, the only realy difficulty parts where making the AI and fitting it into 20 lines LOL! It requires no media, so just copie and paste! Hope you enjoy it.

By the way, it works in classic, not testet in Pro.

Any comments are welcome!

autocam off:sync on:sync rate 60:hide mouse:set text size 20:ob=1:enob=2000:fob=3000:rotate=90:for y=1 to 25:for x=1 to 22:read level
if level=1:make object cube ob,100:make object collision box ob,-50,-50,-50,50,50,50,0:color object ob,rgb(255,0,0):position object ob,x*100,y*-100,0:inc ob:endif
if level=2:make object sphere 1000,100:make object collision box 1000,-50,-50,-50,50,50,50,0:color object 1000,rgb(255,255,0):px=x*100:py=y*-100:position object 1000,x*100,y*-100,0:endif
if level=3:make object sphere enob,100:make object collision box enob,-50,-50,-50,50,50,50,0:color object enob,rgb(0,255,0):position object enob,x*100,y*-100,0:yrotate object enob,90:inc enob:endif
if level=4:make object sphere fob,20:make object collision box fob,-10,-10,-10,10,10,10,0:color object fob,rgb(255,255,0):position object fob,x*100,y*-100,0:inc fob:endif:next x:next y:foodno=fob-1:enobj=enob-1
do:oldpx=px:oldpy=py:if upkey():py=py+10:endif:if downkey():py=py-10:endif:if leftkey():px=px-10:endif:if rightkey():px=px+10:endif:if object collision(1000,0)>0:dec px,get object collision x():dec py,get object collision y():endif
position object 1000,px,py,0:position camera px,py,-1000:for enemy=2000 to enobj:oldex=object position x(enemy):oldey=object position y(enemy):move object enemy,10:coll=0:for fob=3000 to foodno:fx=object position x(fob):fy=object position y(fob)
ex=object position x(enemy):ey=object position y(enemy):if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)<100 then set object collision off fob:if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)>100 then set object collision on fob
next fob:if object collision(enemy,0)>0 and coll=0:position object enemy,oldex,oldey,0:zrotate object enemy,wrapvalue(rotate):inc rotate,90:coll=1:endif:
if object collision(enemy,1000)>0:repeat:text 310,240,"Lost":until returnkey()=1:end:endif:next enemy:for fob=3000 to foodno:if object collision(1000,fob)>0:set object collision off fob:hide object fob:endif
next fob:gosub win:sync:loop
win:
for fob=3000 to foodno:if object visible(fob)=1 then return
next fob:repeat:text 310,240,"You win":until returnkey()=1:return
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,4,4,4,3,4,4,4,4,4,1,4,4,4,4,4,3,4,4,4,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,1,0,0,0,0,0,1,4,1,4,1,0,0,1,4,1,0,1,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1
data 1,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,4,1,3,1,4,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,4,1,4,1,4,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,0,0,0,0,0,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,1,1,1,1,1,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,3,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,4,1,1,1,1,4,4,4,4,1,4,4,4,4,1,1,1,1,1,4,1:data 1,4,1,4,1,1,1,4,1,4,1,4,1,1,1,1,3,1,4,1,4,1
data 1,4,1,4,1,4,4,4,1,4,4,4,1,1,4,1,4,1,4,1,4,1:data 1,4,1,4,1,4,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,1:data 1,4,1,4,1,4,4,4,4,4,2,4,4,4,4,1,1,1,1,1,4,1:data 1,4,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

autocam off:sync on:sync rate 60:hide mouse:set text size 20:ob=1:enob=2000:fob=3000:rotate=90:for y=1 to 25:for x=1 to 22:read level
if level=1:make object cube ob,100:make object collision box ob,-50,-50,-50,50,50,50,0:color object ob,rgb(255,0,0):position object ob,x*100,y*-100,0:inc ob:endif
if level=2:make object sphere 1000,100:make object collision box 1000,-50,-50,-50,50,50,50,0:color object 1000,rgb(255,255,0):px=x*100:py=y*-100:position object 1000,x*100,y*-100,0:endif
if level=3:make object sphere enob,100:make object collision box enob,-50,-50,-50,50,50,50,0:color object enob,rgb(0,255,0):position object enob,x*100,y*-100,0:yrotate object enob,90:inc enob:endif
if level=4:make object sphere fob,20:make object collision box fob,-10,-10,-10,10,10,10,0:color object fob,rgb(255,255,0):position object fob,x*100,y*-100,0:inc fob:endif:next x:next y:foodno=fob-1:enobj=enob-1
do:oldpx=px:oldpy=py:if upkey():py=py+10:endif:if downkey():py=py-10:endif:if leftkey():px=px-10:endif:if rightkey():px=px+10:endif:if object collision(1000,0)>0:dec px,get object collision x():dec py,get object collision y():endif
position object 1000,px,py,0:position camera px,py,-1000:for enemy=2000 to enobj:oldex=object position x(enemy):oldey=object position y(enemy):move object enemy,10:coll=0:for fob=3000 to foodno:fx=object position x(fob):fy=object position y(fob)
ex=object position x(enemy):ey=object position y(enemy):if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)<100 then set object collision off fob:if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)>100 then set object collision on fob
next fob:if object collision(enemy,0)>0 and coll=0:position object enemy,oldex,oldey,0:zrotate object enemy,wrapvalue(rotate):inc rotate,90:coll=1:endif:
if object collision(enemy,1000)>0:repeat:text 310,240,"Lost":until returnkey()=1:end:endif:next enemy:for fob=3000 to foodno:if object collision(1000,fob)>0:set object collision off fob:hide object fob:endif
next fob:gosub win:sync:loop
win:
for fob=3000 to foodno:if object visible(fob)=1 then return
next fob:repeat:text 310,240,"You win":until returnkey()=1:return
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,4,4,4,3,4,4,4,4,4,1,4,4,4,4,4,3,4,4,4,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,1,0,0,0,0,0,1,4,1,4,1,0,0,1,4,1,0,1,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1
data 1,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,4,1,3,1,4,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,4,1,4,1,4,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,0,0,0,0,0,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,1,1,1,1,1,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,3,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,4,1,1,1,1,4,4,4,4,1,4,4,4,4,1,1,1,1,1,4,1:data 1,4,1,4,1,1,1,4,1,4,1,4,1,1,1,1,3,1,4,1,4,1
data 1,4,1,4,1,4,4,4,1,4,4,4,1,1,4,1,4,1,4,1,4,1:data 1,4,1,4,1,4,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,1:data 1,4,1,4,1,4,4,4,4,4,2,4,4,4,4,1,1,1,1,1,4,1:data 1,4,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Lets make free games!
Download them at www.fishsoft.tk

Back to top

Profile PM Email Website

FiShFuN4eVeR

21

Years of Service

User Offline

Joined: 2nd Feb 2003

Location: Netherlands

Posted: 27th Jun 2003 23:18

Link

Sorry the code under the source button failet. Try again.

Lets make free games!
Download them at www.fishsoft.tk

Back to top

Profile PM Email Website

FiShFuN4eVeR

21

Years of Service

User Offline

Joined: 2nd Feb 2003

Location: Netherlands

Posted: 27th Jun 2003 23:22

Link

Made the level better!

autocam off:sync on:sync rate 60:hide mouse:set text size 20:ob=1:enob=2000:fob=3000:rotate=90:for y=1 to 25:for x=1 to 22:read level
if level=1:make object cube ob,100:make object collision box ob,-50,-50,-50,50,50,50,0:color object ob,rgb(255,0,0):position object ob,x*100,y*-100,0:inc ob:endif
if level=2:make object sphere 1000,100:make object collision box 1000,-50,-50,-50,50,50,50,0:color object 1000,rgb(255,255,0):px=x*100:py=y*-100:position object 1000,x*100,y*-100,0:endif
if level=3:make object sphere enob,100:make object collision box enob,-50,-50,-50,50,50,50,0:color object enob,rgb(0,255,0):position object enob,x*100,y*-100,0:yrotate object enob,90:inc enob:endif
if level=4:make object sphere fob,20:make object collision box fob,-10,-10,-10,10,10,10,0:color object fob,rgb(255,255,0):position object fob,x*100,y*-100,0:inc fob:endif:next x:next y:foodno=fob-1:enobj=enob-1
do:oldpx=px:oldpy=py:if upkey():py=py+10:endif:if downkey():py=py-10:endif:if leftkey():px=px-10:endif:if rightkey():px=px+10:endif:if object collision(1000,0)>0:dec px,get object collision x():dec py,get object collision y():endif
position object 1000,px,py,0:position camera px,py,-1000:for enemy=2000 to enobj:oldex=object position x(enemy):oldey=object position y(enemy):move object enemy,10:coll=0:for fob=3000 to foodno:fx=object position x(fob):fy=object position y(fob)
ex=object position x(enemy):ey=object position y(enemy):if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)<100 then set object collision off fob:if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)>100 then set object collision on fob
next fob:if object collision(enemy,0)>0 and coll=0:position object enemy,oldex,oldey,0:zrotate object enemy,wrapvalue(rotate):inc rotate,90:coll=1:endif:
if object collision(enemy,1000)>0:repeat:text 310,240,"Lost":until returnkey()=1:end:endif:next enemy:for fob=3000 to foodno:if object collision(1000,fob)>0:set object collision off fob:hide object fob:endif
next fob:gosub win:sync:loop
win:
for fob=3000 to foodno:if object visible(fob)=1 then return
next fob:repeat:text 310,240,"You win":until returnkey()=1:return
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,4,4,4,3,4,4,4,4,4,1,4,4,4,4,4,3,4,4,4,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,1,0,0,0,0,0,1,4,1,4,1,0,0,1,4,1,0,1,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1
data 1,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,4,1,3,1,4,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,4,1,4,1,4,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,0,0,0,0,0,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,1,1,1,1,1,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,3,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,4,1,1,1,1,4,4,4,4,1,4,4,4,4,1,1,1,1,1,4,1:data 1,4,1,4,1,1,1,4,1,4,1,4,1,1,1,1,3,1,4,1,4,1
data 1,4,1,4,1,4,4,4,1,4,4,4,1,4,4,1,4,1,4,1,4,1:data 1,4,1,4,1,4,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,1:data 1,4,1,4,1,4,4,4,4,4,2,4,4,4,4,1,1,1,1,1,4,1:data 1,4,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

autocam off:sync on:sync rate 60:hide mouse:set text size 20:ob=1:enob=2000:fob=3000:rotate=90:for y=1 to 25:for x=1 to 22:read level
if level=1:make object cube ob,100:make object collision box ob,-50,-50,-50,50,50,50,0:color object ob,rgb(255,0,0):position object ob,x*100,y*-100,0:inc ob:endif
if level=2:make object sphere 1000,100:make object collision box 1000,-50,-50,-50,50,50,50,0:color object 1000,rgb(255,255,0):px=x*100:py=y*-100:position object 1000,x*100,y*-100,0:endif
if level=3:make object sphere enob,100:make object collision box enob,-50,-50,-50,50,50,50,0:color object enob,rgb(0,255,0):position object enob,x*100,y*-100,0:yrotate object enob,90:inc enob:endif
if level=4:make object sphere fob,20:make object collision box fob,-10,-10,-10,10,10,10,0:color object fob,rgb(255,255,0):position object fob,x*100,y*-100,0:inc fob:endif:next x:next y:foodno=fob-1:enobj=enob-1
do:oldpx=px:oldpy=py:if upkey():py=py+10:endif:if downkey():py=py-10:endif:if leftkey():px=px-10:endif:if rightkey():px=px+10:endif:if object collision(1000,0)>0:dec px,get object collision x():dec py,get object collision y():endif
position object 1000,px,py,0:position camera px,py,-1000:for enemy=2000 to enobj:oldex=object position x(enemy):oldey=object position y(enemy):move object enemy,10:coll=0:for fob=3000 to foodno:fx=object position x(fob):fy=object position y(fob)
ex=object position x(enemy):ey=object position y(enemy):if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)<100 then set object collision off fob:if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)>100 then set object collision on fob
next fob:if object collision(enemy,0)>0 and coll=0:position object enemy,oldex,oldey,0:zrotate object enemy,wrapvalue(rotate):inc rotate,90:coll=1:endif:
if object collision(enemy,1000)>0:repeat:text 310,240,"Lost":until returnkey()=1:end:endif:next enemy:for fob=3000 to foodno:if object collision(1000,fob)>0:set object collision off fob:hide object fob:endif
next fob:gosub win:sync:loop
win:
for fob=3000 to foodno:if object visible(fob)=1 then return
next fob:repeat:text 310,240,"You win":until returnkey()=1:return
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,4,4,4,3,4,4,4,4,4,1,4,4,4,4,4,3,4,4,4,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,1,0,0,0,0,0,1,4,1,4,1,0,0,1,4,1,0,1,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1
data 1,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,4,1,3,1,4,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,4,1,4,1,4,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,0,0,0,0,0,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,1,1,1,1,1,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,3,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,4,1,1,1,1,4,4,4,4,1,4,4,4,4,1,1,1,1,1,4,1:data 1,4,1,4,1,1,1,4,1,4,1,4,1,1,1,1,3,1,4,1,4,1
data 1,4,1,4,1,4,4,4,1,4,4,4,1,4,4,1,4,1,4,1,4,1:data 1,4,1,4,1,4,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,1:data 1,4,1,4,1,4,4,4,4,4,2,4,4,4,4,1,1,1,1,1,4,1:data 1,4,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Lets make free games!
Download them at www.fishsoft.tk

Back to top

Profile PM Email Website

ReD_eYe

21

Years of Service

User Offline

Joined: 9th Mar 2003

Location: United Kingdom

Posted: 28th Jun 2003 11:28

Link

i wasn't able to collect all the dots, some just didn't seem to have collision, also when a ghost hit me nothing happended.

hi guys

Back to top

Profile PM Email Website

FiShFuN4eVeR

21

Years of Service

User Offline

Joined: 2nd Feb 2003

Location: Netherlands

Posted: 28th Jun 2003 15:04

Link

OOOOPS!

Sorry guys! My fault. There was something gone terribly wrong by fixing it into 20 lines LOL. I fixed that. I also fixed the problem whith the ghosts!

autocam off:sync on:sync rate 60:hide mouse:set text size 20:ob=1:enob=2000:fob=3000:rotate=90:for y=1 to 25:for x=1 to 22:read level
if level=1:make object cube ob,100:make object collision box ob,-50,-50,-50,50,50,50,0:color object ob,rgb(255,0,0):position object ob,x*100,y*-100,0:inc ob:endif
if level=2:make object sphere 1000,100:make object collision box 1000,-50,-50,-50,50,50,50,0:color object 1000,rgb(255,255,0):px=x*100:py=y*-100:position object 1000,x*100,y*-100,0:endif
if level=3:make object sphere enob,100:make object collision box enob,-50,-50,-50,50,50,50,0:color object enob,rgb(0,255,0):position object enob,x*100,y*-100,0:yrotate object enob,90:inc enob:endif
if level=4:make object sphere fob,20:make object collision box fob,-10,-10,-10,10,10,10,0:color object fob,rgb(255,255,0):position object fob,x*100,y*-100,0:inc fob:endif:next x:next y:foodno=fob-1:enobj=enob-1
do:oldpx=px:oldpy=py:if upkey():py=py+10:endif:if downkey():py=py-10:endif:if leftkey():px=px-10:endif:if rightkey():px=px+10:endif:if object collision(1000,0)>0:dec px,get object collision x():dec py,get object collision y():endif
position object 1000,px,py,0:position camera px,py,-1000:for enemy=2000 to enobj:oldex=object position x(enemy):oldey=object position y(enemy):move object enemy,10:coll=0:for fob=3000 to foodno:fx=object position x(fob):fy=object position y(fob)
ex=object position x(enemy):ey=object position y(enemy):if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)<100:set object collision off fob:endif:if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)>100:set object collision on fob:endif
next fob:if object collision(enemy,0)>0 and coll=0:position object enemy,oldex,oldey,0:zrotate object enemy,wrapvalue(rotate):inc rotate,90:coll=1:endif:
if Sqrt((px-ex)^2+(py-ey)^2+(pz-ez)^2)<100:repeat:text 310,240,"Lost":until returnkey()=1:end:endif:next enemy:for fob=3000 to foodno:if object collision(1000,fob)>0:set object collision off fob:hide object fob:endif
next fob:gosub win:sync:loop
win:
for fob=3000 to foodno:if object visible(fob)=1 then return
next fob:repeat:text 310,240,"You win":until returnkey()=1:return
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,4,4,4,3,4,4,4,4,4,1,4,4,4,4,4,3,4,4,4,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,1,0,0,0,0,0,1,4,1,4,1,0,0,1,4,1,0,1,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1
data 1,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,4,1,3,1,4,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,4,1,4,1,4,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,0,0,0,0,0,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,1,1,1,1,1,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,3,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,4,1,1,1,1,4,4,4,4,1,4,4,4,4,1,1,1,1,1,4,1:data 1,4,1,4,1,1,1,4,1,4,1,4,1,1,1,1,3,1,4,1,4,1
data 1,4,1,4,1,4,4,4,1,4,4,4,1,4,4,1,4,1,4,1,4,1:data 1,4,1,4,1,4,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,1:data 1,4,1,4,1,4,4,4,4,4,2,4,4,4,4,1,1,1,1,1,4,1:data 1,4,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

autocam off:sync on:sync rate 60:hide mouse:set text size 20:ob=1:enob=2000:fob=3000:rotate=90:for y=1 to 25:for x=1 to 22:read level
if level=1:make object cube ob,100:make object collision box ob,-50,-50,-50,50,50,50,0:color object ob,rgb(255,0,0):position object ob,x*100,y*-100,0:inc ob:endif
if level=2:make object sphere 1000,100:make object collision box 1000,-50,-50,-50,50,50,50,0:color object 1000,rgb(255,255,0):px=x*100:py=y*-100:position object 1000,x*100,y*-100,0:endif
if level=3:make object sphere enob,100:make object collision box enob,-50,-50,-50,50,50,50,0:color object enob,rgb(0,255,0):position object enob,x*100,y*-100,0:yrotate object enob,90:inc enob:endif
if level=4:make object sphere fob,20:make object collision box fob,-10,-10,-10,10,10,10,0:color object fob,rgb(255,255,0):position object fob,x*100,y*-100,0:inc fob:endif:next x:next y:foodno=fob-1:enobj=enob-1
do:oldpx=px:oldpy=py:if upkey():py=py+10:endif:if downkey():py=py-10:endif:if leftkey():px=px-10:endif:if rightkey():px=px+10:endif:if object collision(1000,0)>0:dec px,get object collision x():dec py,get object collision y():endif
position object 1000,px,py,0:position camera px,py,-1000:for enemy=2000 to enobj:oldex=object position x(enemy):oldey=object position y(enemy):move object enemy,10:coll=0:for fob=3000 to foodno:fx=object position x(fob):fy=object position y(fob)
ex=object position x(enemy):ey=object position y(enemy):if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)<100:set object collision off fob:endif:if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)>100:set object collision on fob:endif
next fob:if object collision(enemy,0)>0 and coll=0:position object enemy,oldex,oldey,0:zrotate object enemy,wrapvalue(rotate):inc rotate,90:coll=1:endif:
if Sqrt((px-ex)^2+(py-ey)^2+(pz-ez)^2)<100:repeat:text 310,240,"Lost":until returnkey()=1:end:endif:next enemy:for fob=3000 to foodno:if object collision(1000,fob)>0:set object collision off fob:hide object fob:endif
next fob:gosub win:sync:loop
win:
for fob=3000 to foodno:if object visible(fob)=1 then return
next fob:repeat:text 310,240,"You win":until returnkey()=1:return
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,4,4,4,3,4,4,4,4,4,1,4,4,4,4,4,3,4,4,4,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,1,0,0,0,0,0,1,4,1,4,1,0,0,1,4,1,0,1,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1
data 1,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,4,1,3,1,4,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,4,1,4,1,4,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,0,0,0,0,0,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,1,1,1,1,1,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,3,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,4,1,1,1,1,4,4,4,4,1,4,4,4,4,1,1,1,1,1,4,1:data 1,4,1,4,1,1,1,4,1,4,1,4,1,1,1,1,3,1,4,1,4,1
data 1,4,1,4,1,4,4,4,1,4,4,4,1,4,4,1,4,1,4,1,4,1:data 1,4,1,4,1,4,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,1:data 1,4,1,4,1,4,4,4,4,4,2,4,4,4,4,1,1,1,1,1,4,1:data 1,4,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Any comments are welcome!

Lets make free games!
Download them at www.fishsoft.tk

Back to top

Profile PM Email Website

FiShFuN4eVeR

21

Years of Service

User Offline

Joined: 2nd Feb 2003

Location: Netherlands

Posted: 28th Jun 2003 18:34

Link

I've updated the AI. The enemy's can't get stuck anymore. Every enemy now have their own variables, so the direction of each other are independent. They now even choose their own direction (left/right/back)!

autocam off:sync on:sync rate 60:hide mouse:randomize timer():set text size 20:ob=1:enob=2000:fob=3000:rotate=90:for y=1 to 25:for x=1 to 22:read level
if level=1:make object cube ob,100:make object collision box ob,-50,-50,-50,50,50,50,0:color object ob,rgb(255,0,0):position object ob,x*100,y*-100,0:inc ob:endif
if level=2:make object sphere 1000,100:make object collision box 1000,-50,-50,-50,50,50,50,0:color object 1000,rgb(255,255,0):px=x*100:py=y*-100:position object 1000,x*100,y*-100,0:endif
if level=3:make object sphere enob,100:make object collision box enob,-50,-50,-50,50,50,50,0:color object enob,rgb(0,255,0):position object enob,x*100,y*-100,0:yrotate object enob,90:inc enob:endif
if level=4:make object sphere fob,20:make object collision box fob,-10,-10,-10,10,10,10,0:color object fob,rgb(255,255,0):position object fob,x*100,y*-100,0:inc fob:endif:next x:next y:foodno=fob-1:enobj=enob-1:dim rotate(enobj)
do:oldpx=px:oldpy=py:if upkey():py=py+10:endif:if downkey():py=py-10:endif:if leftkey():px=px-10:endif:if rightkey():px=px+10:endif:if object collision(1000,0)>0:dec px,get object collision x():dec py,get object collision y():endif
position object 1000,px,py,0:position camera px,py,-1000:for enemy=2000 to enobj:oldex=object position x(enemy):oldey=object position y(enemy):move object enemy,10:coll=0:for fob=3000 to foodno:fx=object position x(fob):fy=object position y(fob)
ex=object position x(enemy):ey=object position y(enemy):if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)<100:set object collision off fob:endif:if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)>100:set object collision on fob:endif
next fob:if object collision(enemy,0)>0 and coll=0:position object enemy,oldex,oldey,0:zrotate object enemy,wrapvalue(rotate(enemy)):testrot=rnd(3)*90:rotate(enemy)=rotate(enemy)+testrot:coll=1:endif:
if Sqrt((px-ex)^2+(py-ey)^2+(pz-ez)^2)<100:repeat:text 310,240,"Game Over":until returnkey()=1:end:endif:next enemy:for fob=3000 to foodno:if object collision(1000,fob)>0:set object collision off fob:hide object fob:endif
next fob:gosub win:sync:loop
win:
for fob=3000 to foodno:if object visible(fob)=1 then return
next fob:repeat:text 310,240,"You win":until returnkey()=1:return
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,4,4,4,3,4,4,4,4,4,1,4,4,4,4,4,3,4,4,4,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,1,0,0,0,0,0,1,4,1,4,1,0,0,1,4,1,0,1,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1
data 1,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,4,1,3,1,4,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,4,1,4,1,4,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,0,0,0,0,0,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,1,1,1,1,1,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,3,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,4,1,1,1,1,4,4,4,4,1,4,4,4,4,1,1,1,1,1,4,1:data 1,4,1,4,1,1,1,4,1,4,1,4,1,1,1,1,3,1,4,1,4,1
data 1,4,1,4,1,4,4,4,1,4,4,4,1,4,4,1,4,1,4,1,4,1:data 1,4,1,4,1,4,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,1:data 1,4,1,4,1,4,4,4,4,4,2,4,4,4,4,1,1,1,1,1,4,1:data 1,4,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

+ Code Snippet

autocam off:sync on:sync rate 60:hide mouse:randomize timer():set text size 20:ob=1:enob=2000:fob=3000:rotate=90:for y=1 to 25:for x=1 to 22:read level
if level=1:make object cube ob,100:make object collision box ob,-50,-50,-50,50,50,50,0:color object ob,rgb(255,0,0):position object ob,x*100,y*-100,0:inc ob:endif
if level=2:make object sphere 1000,100:make object collision box 1000,-50,-50,-50,50,50,50,0:color object 1000,rgb(255,255,0):px=x*100:py=y*-100:position object 1000,x*100,y*-100,0:endif
if level=3:make object sphere enob,100:make object collision box enob,-50,-50,-50,50,50,50,0:color object enob,rgb(0,255,0):position object enob,x*100,y*-100,0:yrotate object enob,90:inc enob:endif
if level=4:make object sphere fob,20:make object collision box fob,-10,-10,-10,10,10,10,0:color object fob,rgb(255,255,0):position object fob,x*100,y*-100,0:inc fob:endif:next x:next y:foodno=fob-1:enobj=enob-1:dim rotate(enobj)
do:oldpx=px:oldpy=py:if upkey():py=py+10:endif:if downkey():py=py-10:endif:if leftkey():px=px-10:endif:if rightkey():px=px+10:endif:if object collision(1000,0)>0:dec px,get object collision x():dec py,get object collision y():endif
position object 1000,px,py,0:position camera px,py,-1000:for enemy=2000 to enobj:oldex=object position x(enemy):oldey=object position y(enemy):move object enemy,10:coll=0:for fob=3000 to foodno:fx=object position x(fob):fy=object position y(fob)
ex=object position x(enemy):ey=object position y(enemy):if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)<100:set object collision off fob:endif:if Sqrt((fx-ex)^2+(fy-ey)^2+(fz-ez)^2)>100:set object collision on fob:endif
next fob:if object collision(enemy,0)>0 and coll=0:position object enemy,oldex,oldey,0:zrotate object enemy,wrapvalue(rotate(enemy)):testrot=rnd(3)*90:rotate(enemy)=rotate(enemy)+testrot:coll=1:endif:
if Sqrt((px-ex)^2+(py-ey)^2+(pz-ez)^2)<100:repeat:text 310,240,"Game Over":until returnkey()=1:end:endif:next enemy:for fob=3000 to foodno:if object collision(1000,fob)>0:set object collision off fob:hide object fob:endif
next fob:gosub win:sync:loop
win:
for fob=3000 to foodno:if object visible(fob)=1 then return
next fob:repeat:text 310,240,"You win":until returnkey()=1:return
data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1:data 1,4,4,4,3,4,4,4,4,4,1,4,4,4,4,4,3,4,4,4,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,1,0,0,0,0,0,1,4,1,4,1,0,0,1,4,1,0,1,4,1:data 1,4,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1
data 1,4,4,4,4,4,4,4,4,4,1,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,4,1,4,1,1,1,1,4,1,1,1,4,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,4,1,3,1,4,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,4,1,4,1,4,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,4,1,4,1,4,1,4,1,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,4,1,1,1,1,1,1,1,4,1,1,1,1,1,1,1:data 0,0,0,0,0,1,4,1,0,0,0,0,0,1,4,1,0,0,0,0,0,0
data 0,0,0,0,0,1,4,1,1,1,1,1,1,1,4,1,0,0,0,0,0,0:data 1,1,1,1,1,1,3,4,4,4,4,4,4,4,4,1,1,1,1,1,1,1:data 1,4,4,4,4,4,4,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,4,1,1,1,1,4,4,4,4,1,4,4,4,4,1,1,1,1,1,4,1:data 1,4,1,4,1,1,1,4,1,4,1,4,1,1,1,1,3,1,4,1,4,1
data 1,4,1,4,1,4,4,4,1,4,4,4,1,4,4,1,4,1,4,1,4,1:data 1,4,1,4,1,4,1,1,1,1,1,1,1,1,4,1,4,4,4,4,4,1:data 1,4,1,4,1,4,4,4,4,4,2,4,4,4,4,1,1,1,1,1,4,1:data 1,4,4,4,4,4,1,1,1,1,1,1,1,1,4,4,4,4,4,4,4,1:data 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1

Any comments are welcome!

Lets make free games!
Download them at www.fishsoft.tk

Back to top

Profile PM Email Website

cusoi

21

Years of Service

User Offline

Joined: 3rd Jan 2003

Location: Netherlands

Posted: 28th Jun 2003 20:32

Link

Cool game, maybe a bit difficult sometimes, but it's real fun! I like this game.

Pentium IV 2.4 GHZ 256 MB Ram Geforce 4 TI 4200 128 MB
Visit my site: www.cuso.tk

Back to top

Profile PM Email Website

CrayZemon

21

Years of Service

User Offline

Joined: 16th Jun 2003

Location: United States

Posted: 3rd Jul 2003 20:04 Edited at: 3rd Jul 2003 20:04

Link

Nice game, always a classic. However, the AI still could use a little more work. Maybe a few of them could be less random so that they don't get stuck in the same corridor for five minutes.

"I need gopher-chucks!!"

Back to top

Profile PM

Shady Simpson

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: United Kingdom

Posted: 6th Jul 2003 01:04

Link

Hi,

I know you all are going to laugh at me, but how the hell do you figure out all this data 1,0,0,0,1,0 etc. crap?

I've seen a few programs now that use it,
can anyone tell me?

Thanx.

Back to top

Profile PM

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 6th Jul 2003 04:44

Link

Heres a simple program that uses it:
x=50
z=50
sync on
do
read a
if a=1 then box x,z,x+50,z+50
x=x+50
if x=450 then z=z+50 : x=50
sync
loop
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0
data 1,0,0,1,0,0,1,0
data 0,1,1,1,1,1,0,0
data 0,0,0,1,0,0,0,0
data 0,0,1,0,1,0,0,0
data 0,1,0,0,0,1,0,0

You see it uses the command read a which reads the first number on the data table thing(0) and sets a to that value. then if a=1 it makes a box 50 units wide and tall. then x goes up 50. then it checks to see if it is on the last number in the row. if so it skips to the next row. i had some trouble with this but i had to learn it myself. oh, by the way i'n only 11. check my other 20 line posts!

JetRace coming. Watch out!

Back to top

Profile PM

Shady Simpson

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: United Kingdom

Posted: 6th Jul 2003 11:13

Link

um ok I think I understand it, thanx IntermediateNewbie.

But I've also seen a program that makes music from them, how do you know what goes where etc.

Thanx.

Back to top

Profile PM

Ocean Runner

21

Years of Service

User Offline

Joined: 18th May 2003

Location: United States

Posted: 7th Jul 2003 04:06

Link

Actually I have no idea.

JetRace coming. Watch out!

Back to top

Profile PM

Angeleyes

21

Years of Service

User Offline

Joined: 17th Mar 2003

Location:

Posted: 8th Jul 2003 00:30

Link

Hey, I think this is a great game for 20 lines.... VERY good. ^_^.
Nice bit of code that is.

Shady :"But I've also seen a program that makes music from them, how do you know what goes where etc."

Easy..... You write a routine that will interpret the 0,1,2,3,etc etc in the data statements in to wave forms, which you can then play. Of another way is if you have small samples of diff instruments (call em sam1, sam2,sam3 etc) then when your program reads a 1 or a 2 etc the program plays the sample.
You can have multiple samples playing at the same time and provided your time coding for each sample is the same then it can sound like a piece of music....... a bit like the old Amiga mod trackers worked.

Ta ta for now
Mary

Back to top

Profile PM Website

Shady Simpson

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: United Kingdom

Posted: 8th Jul 2003 19:36

Link

um, I don't quite understand.

I seen a program that had no media at all, I just pasted the code into DBPro and it played.
How would I make sounds without any media?

I understand the data commands now, I even made a few 3D levels but I don't know how to make sounds without media.

Thanx.

Back to top

Profile PM

the_winch

21

Years of Service

User Offline

Joined: 1st Feb 2003

Location: Oxford, UK

Posted: 8th Jul 2003 23:23

Link

One way would be to use a memblock and the MAKE SOUND FROM MEMBLOCK commnd. Then play the sound.

Back to top

Profile PM Website

Pricey

21

Years of Service

User Offline

Joined: 22nd Feb 2003

Location:

Posted: 18th Jul 2003 16:41

Link

he intermediatenewbie i'm eleven too!

i'm so stuk with ai though

My programs don't crash... your computer does

http://johnsgamesuk.topcities.com

Back to top

Profile PM Email

Sorry your browser is not supported!

The 20 Line Challenge / Snackman! (DB Pacman clone)