TheGameCreators - CodeBase - WoRms (Not snakes)

Category: 2D

Version: 1.0

Information

Uploaded: 21st Apr 2005 23:33

Modified: 29th Apr 2005 21:07

Author: Anonymous Coder

Summary

A simple game you may have played. There are two worms that get longer and longer, slowly the screen will fill up with 'worm'. Object is to be the surviver(last to crash)

Full Description

WoRms-v1.0 How to play At the start enter in 1 or 2 for human vs Computer or human vs human Play will start when all human players have pressed a directional buttion. Aim The point of the game is to be the last 'worm' to crash into a wall, themselves, or the enemy worm. Hints You don't have to hold the key of the direction you are going, if a few keys are pressed at once it is likely the worm will continue on its normal path To do a 'u-turn' hold the direction button that is opposite the direction you are going (if worm is heading down hold up) and tap left or right (or down or up) to turn. Release the back button when fully turned Keys (When versing Computer, use player 2 keys) PLayer1 - w,s,a,d PLayer2 - Up,Down,Left,Right

DarkBASIC Source Code

` This code was downloaded from The Game Creators

` It is reproduced here with full permission

` http://www.thegamecreators.com

REM WoRms v1.0

set display mode 640,480,24

sync on

input "One or Two Player??: ",players

create bitmap 1,640,480

set current bitmap 0

hide mouse

dim r(2)

dim g(2)

dim b(2)

REM Player Colours

r(1)=100:g(1)=200:b(1)=0

r(2)=180:g(2)=0:b(2)=200

xres=44

yres=34

sep#=600/xres

dim grid(xres,yres)

REM Used by computer

dim points(4)

REM Position of the worms

dim pos(2,2)

REM player1,2  x,y pos

dim hit(2)

time#=5

dim dir(2)

REM 1 is up, then right,down,left

REM startup - - - - - - - - - - - - - - - - - - - - -

REPEAT

FOR x=0 to xres

FOR y=0 to yres

REM Clears The playing Grid and then adds walls

grid(x,y)=0

IF x=0 THEN grid(x,y)=1

IF y=0 THEN grid(x,y)=1

IF x=xres THEN grid(x,y)=1

IF y=yres THEN grid(x,y)=1

NEXT y

NEXT x

REM More initialisation

dir1=0 : dir2=0

hit(1)=0:hit(2)=0

x=rnd(xres/3)+2

y=rnd(yres-4)+2

flip=(rnd(1)*2)-1

y2=y

REM if 'Flipped = -1 then the second worms y-pos is inverted

IF flip=-1 THEN y2=yres-y

pos(1,1)=x:pos(1,2)=y:pos(2,1)=xres-x:pos(2,2)=y2

cls

ink rgb(r(1),g(1),b(1)),1

box x*sep#+1,y*sep#+1,x*sep#+sep#-1,y*sep#+sep#-1

ink rgb(r(2),g(2),b(2)),1

box (xres-x)*sep#+1,y2*sep#+1,(xres-x)*sep#+sep#-1,y2*sep#+sep#-1

ink rgb(200,200,200),1

REM drawing worms and walls

line sep#,sep#,sep#,sep#*yres:line sep#*xres,sep#,sep#*xres,sep#*yres

line sep#,sep#,sep#*xres,sep#:line sep#,sep#*yres,sep#*xres,sep#*yres

sync

wait 100

grid(x,y)=1

grid(xres-x,y2)=1

REM This loop waits until both players are pressing a button before proceding

REPEAT

dir1=pl(0,1)

IF players=1 THEN dir1=rnd(3)+1

dir2=pl(0,2)

UNTIL dir1>0 AND dir2>0

dir(1)=dir1

dir(2)=dir2

gap=0

REM - - - - - - - - - - - - - - - - - - - - - -

REPEAT

REM This is a counter, whenn it = 21 and 22 a gap is left in the worm

gap=gap+1

IF gap>22 THEN gap=0

REM this akward code adds temparary blocks to the grid near player 2

REM which ensures that player1 (If a cpu) will not constantly have

REM head-ons with player2

IF x(dir(2))<>0

FOR x=pos(2,1)-x(dir(2)) to pos(2,1)+(x(dir(2))*2) step x(dir(2))

grid(x,pos(2,2))=grid(x,pos(2,2))+2

NEXT x

ENDIF

IF y(dir(2))<>0

FOR y=pos(2,2)-y(dir(2)) to pos(2,2)+(y(dir(2))*2) step y(dir(2))

grid(pos(2,1),y)=grid(pos(2,1),y)+2

NEXT y

ENDIF

grid(pos(1,1),pos(1,2))=grid(pos(1,1),pos(1,2))+2

FOR frame=1 TO time#

frame#=frame

dist#=(frame#*sep#)/time#

FOR plr=1 TO 2

ink rgb(r(plr),g(plr),b(plr)),1

REM More akward code

IF gap=22 AND frame<>time# OR gap=20 AND frame=time# OR gap=21 THEN ink rgb(r(plr)/2,g(plr)/2,b(plr)/2),1

x=pos(plr,1)*sep#+x(dir(plr))*dist#:y=pos(plr,2)*sep#+y(dir(plr))*dist#

box x+1,y+1,x+sep#-1,y+sep#-1

NEXT plr

sync

IF players=1

IF frame<5

n=frame

points(n)=0

REM The AI is done in pieces so it doen't slow the game down

points(n)=ai(n,dir(1),pos(1,1)+x(dir(1)),pos(1,2)+y(dir(1)),15,4)

ENDIF

d1=pl(dir(1),1)

d2=pl(dir(2),2)

IF d1<>dir(1) THEN dir1=d1

IF d2<>dir(2) THEN dir2=d2

NEXT frame

REM This deletes the akward code above

IF x(dir(2))<>0

FOR x=pos(2,1)-x(dir(2)) to pos(2,1)+(x(dir(2))*2) step x(dir(2))

grid(x,pos(2,2))=grid(x,pos(2,2))-2

NEXT x

ENDIF

IF y(dir(2))<>0

FOR y=pos(2,2)-y(dir(2)) to pos(2,2)+(y(dir(2))*2) step y(dir(2))

grid(pos(2,1),y)=grid(pos(2,1),y)-2

NEXT y

ENDIF

grid(pos(1,1),pos(1,2))=grid(pos(1,1),pos(1,2))-2

REM This 'moves' the worms and fills in the grid

FOR plr=1 TO 2

pos(plr,1)=pos(plr,1)+x(dir(plr))

pos(plr,2)=pos(plr,2)+y(dir(plr))

IF gap<20 OR gap>21 THEN grid(pos(plr,1),pos(plr,2))=1

NEXT plr

REM This code is where the computer chooses the best option

REM (the points array has already been filled in, the more points

REM assigned to each direction the better

IF players=1

dir1=1

biggest=points(1)

IF 1=dir(1) THEN points(1)=points(1)*1.2

FOR n=2 to 4

IF n=dir(1) THEN points(n)=points(n)*1.2

IF points(n)>biggest

dir1=n

biggest=points(n)

ENDIF

NEXT n

ENDIF

IF dir1<>0 THEN dir(1)=dir1

IF dir2<>0 THEN dir(2)=dir2

FOR plr=1 TO 2

IF grid(pos(plr,1)+x(dir(plr)),pos(plr,2)+y(dir(plr)))=1 THEN hit(plr)=1

NEXT plr

IF pos(1,1)=pos(2,1) AND pos(1,2)=pos(2,2)

hit(1)=1:hit(2)=1

ENDIF

IF escapekey()=1 THEN end

until hit(1)=1 OR hit(2)=1

ink rgb(240,240,240),1

IF hit(1)=1 AND hit(2)=0 THEN print "Player 2 won!"

IF hit(1)=1 AND hit(2)=1 THEN print "Tie"

IF hit(1)=0 AND hit(2)=1 THEN print "Player 1 won!"

sync

copy bitmap 0,1

blur bitmap 1,3

REPEAT

sync

UNTIL returnkey()=1

REM effect of screen going into distance

set current bitmap 1

get image 5,0,0,640,480

set current bitmap 0

set sprite 1,0,1

sprite 1,0,0,5

cls

sync

FOR n=1 to 25

sprite 1,n*12.8,n*9.6,5

scale sprite 1,100-n*4

sync

cls

NEXT n

sync

until 1=2

REM ur, to explain. This code 'draws' a line from the posion given to

REM it to three other points(In all directions except where it came form)

REM After the line hits a wall or reaches a certain size, the function

REM calls ITSELF so this will be repeated, making many branching lines.

REM Where there is more space, the lines will be able to go further before

REM stopping, thus awawding more point to that direction.

function ai(n,dir,x,y,length,change)

points=0

IF n<>dir-2 AND n<>dir+2

WHILE grid(x+x(n),y+y(n))=0 AND points<length

x=x+x(n)

y=y+y(n)

points=points+1

ENDWHILE

length=length-change

IF points>0 AND length>0

FOR nn=1 to 4

points=points+ai(nn,n,x,y,length,change)

NEXT nn

ENDIF

endfunction points

function pl(currdir,plr)

dir=currdir

dim compass(4)

IF plr=2

IF upkey()=1 THEN compass(1)=1

IF rightkey()=1 THEN compass(2)=1

IF downkey()=1 THEN compass(3)=1

IF leftkey()=1 THEN compass(4)=1

ELSE

IF keystate(17)=1 THEN compass(1)=1

IF keystate(32)=1 THEN compass(2)=1

IF keystate(31)=1 THEN compass(3)=1

IF keystate(30)=1 THEN compass(4)=1

ENDIF

IF dir>0

WHILE (dir>1)

backup=compass(1):compass(1)=compass(2)

compass(2)=compass(3):compass(3)=compass(4):compass(4)=backup

dir=dir-1

ENDWHILE

dir=currdir

IF compass(4)=1 THEN dir=currdir-1

IF compass(2)=1 THEN dir=currdir-3

IF compass(2)=1 AND compass(4)=1 OR compass(1)=1 THEN dir=currdir

IF dir<1 THEN dir=dir+4

ELSE

FOR n=1 TO 4

IF compass(n)=1 THEN dir=n

NEXT n

ENDIF

endfunction dir

function x(dir)

result=0

if dir=2 then result=1

if dir=4 then result=-1

endfunction result

function y(dir)

result=0

if dir=1 then result=-1

if dir=3 then result=1

endfunction result

Download

Please login to download

Comments

No comments yet.

Author Name:	Anonymous Coder
CodeBase Entries:	2

CodeBase - WoRms (Not snakes)

Information

Summary

Full Description

DarkBASIC Source Code

Download

Screen Shot

Author

Comments