WORM POWER!!! Worm game NO MEDIA!!! Made in DBpro but Should Work In Classic

Author

Message

3dZmaster

21

Years of Service

User Offline

Joined: 30th Jun 2003

Location: Finland

Posted: 18th Jul 2003 22:29

Link

Ok guys. I'm proud of this game 'cause it's the first 2d game I've ever made. Offcourse I have made lots of 3d stuff, but not tried 2d before. So I think this is pretty good.

Rulez:
You are the worm (Worm isn't growing like in many of games like this.)
Try to get as many fruits as you can before the time (60 secs, shown in millisecs) ends.
Don't hit the walls or it's game over with no result.

Controls:
Move using Arrow keys. Nothing else needed

Please inform your high score here! Mine is 12.

Code goes here and in the source box:

set display mode 320,200,32:hide mouse:a1#=101:a2#=100:b1#=102:b2#=100:c1#=103:c2#=100:d1#=104:d2#=100:e1#=105:e2#=100:f1#=106:f2#=100:g1#=107:g2#=100:h1#=108:h2#=100:i1#=109:i2#=100
fruitx#=rnd(300):fruity#=rnd(180):st#=timer():mov=4:do:ts#=timer():start#=0:end#=0
gosub time : cls :ink RGB(255,255,128),RGB(255,255,128):box 0,0,5,200:box 315,0,320,200:box 0,195,320,200:box 0,0,320,5
if fruitx#>313:fruitx#=rnd(100):endif:if fruitx#193:fruity#=rnd(100):endif:if fruity#2:mov=1:endif:if downkey()=1 and mov1:mov=2:endif:if leftkey()=1 and mov4:mov=3:endif:if rightkey()=1 and mov3:mov=4:endif
if mov=1:i2#=i2#-1:endif:if mov=2:i2#=i2#+1:endif:if mov=3:i1#=i1#-1:endif:if mov=4:i1#=i1#+1:endif
dot a1#,a2#,RGB(255,0,0) : dot b1#,b2#,RGB(255,0,0) : dot c1#,c2#,RGB(255,0,0) : dot d1#,d2#,RGB(255,0,0) : dot e1#,e2#,RGB(255,0,0) : dot f1#,f2#,RGB(255,0,0) : dot g1#,g2#,RGB(255,0,0) : dot h1#,h2#,RGB(255,0,0) : dot i1#,i2#,RGB(255,0,0)
if i1#>313:goto programend:endif:if i1#193:goto programend:endif:if i2#start#+10:exit:endif:back#=start#+10:end#=timer()-ts#:until end#=back#:return
programend: :set text font "Arial":set text size 20:set cursor 25,80:ink RGB(255,255,255),RGB(255,255,255):print "You Crashed!!! Press Any Key To Exit!":wait key:goto finalend
programend2: :set text font "Arial":set text size 20:set cursor 25,80:ink RGB(255,255,255),RGB(255,255,255):print "You Finished!!! Press Any Key To Exit!":set cursor 25,100:print "Finishing Score: ",score#:wait key:goto finalend
finalend:

+ Code Snippet

set display mode 320,200,32:hide mouse:a1#=101:a2#=100:b1#=102:b2#=100:c1#=103:c2#=100:d1#=104:d2#=100:e1#=105:e2#=100:f1#=106:f2#=100:g1#=107:g2#=100:h1#=108:h2#=100:i1#=109:i2#=100
fruitx#=rnd(300):fruity#=rnd(180):st#=timer():mov=4:do:ts#=timer():start#=0:end#=0
gosub time : cls :ink RGB(255,255,128),RGB(255,255,128):box 0,0,5,200:box 315,0,320,200:box 0,195,320,200:box 0,0,320,5
if fruitx#>313:fruitx#=rnd(100):endif:if fruitx#193:fruity#=rnd(100):endif:if fruity#2:mov=1:endif:if downkey()=1 and mov1:mov=2:endif:if leftkey()=1 and mov4:mov=3:endif:if rightkey()=1 and mov3:mov=4:endif
if mov=1:i2#=i2#-1:endif:if mov=2:i2#=i2#+1:endif:if mov=3:i1#=i1#-1:endif:if mov=4:i1#=i1#+1:endif
dot a1#,a2#,RGB(255,0,0) : dot b1#,b2#,RGB(255,0,0) : dot c1#,c2#,RGB(255,0,0) : dot d1#,d2#,RGB(255,0,0) : dot e1#,e2#,RGB(255,0,0) : dot f1#,f2#,RGB(255,0,0) : dot g1#,g2#,RGB(255,0,0) : dot h1#,h2#,RGB(255,0,0) : dot i1#,i2#,RGB(255,0,0)
if i1#>313:goto programend:endif:if i1#193:goto programend:endif:if i2#start#+10:exit:endif:back#=start#+10:end#=timer()-ts#:until end#=back#:return
programend: :set text font "Arial":set text size 20:set cursor 25,80:ink RGB(255,255,255),RGB(255,255,255):print "You Crashed!!! Press Any Key To Exit!":wait key:goto finalend
programend2: :set text font "Arial":set text size 20:set cursor 25,80:ink RGB(255,255,255),RGB(255,255,255):print "You Finished!!! Press Any Key To Exit!":set cursor 25,100:print "Finishing Score: ",score#:wait key:goto finalend
finalend:

Current project: Dodge Viper Car Game (Not named yet) Other car models are going to be included soon

Back to top

Profile PM Email

3dZmaster

21

Years of Service

User Offline

Joined: 30th Jun 2003

Location: Finland

Posted: 18th Jul 2003 22:50

Link

Sorry, there's problem that the game dosen't run at the same speed at every cpu. I'm trying to do it but... Well, try anyway.

Current project: Dodge Viper Car Game (Not named yet) Other car models are going to be included soon

Back to top

Profile PM Email

Shady Simpson

21

Years of Service

User Offline

Joined: 15th Mar 2003

Location: United Kingdom

Posted: 19th Jul 2003 00:22

Link

mine is 4, BTW somethings up with the code in the source box, it doesn't work.

Good work for a first attempt though

Back to top

Profile PM

The Darthster

22

Years of Service

User Offline

Joined: 25th Sep 2002

Location: United Kingdom

Posted: 19th Jul 2003 00:40

Link

I only got 2

. It's really hard to hit the dots when it's moving so fast.

Once I was but the learner,
now, I am the Master.

Back to top

Profile PM Email Website

Witch Bomber

21

Years of Service

User Offline

Joined: 25th Jan 2003

Location: Scotland

Posted: 19th Jul 2003 00:55

Link

Not a bad game. My highest score is 6. I just got a new computer and the worm is absolutely flying along! Also I'm running a trial version of DBP and the DBP logo is in the corner, which is annoying.

The leprechaun tells me to burn things

Back to top

Profile PM Website

Joe Cooning

21

Years of Service

User Offline

Joined: 29th Mar 2003

Location: United States

Posted: 19th Jul 2003 01:43

Link

Hmmmm . . . you should try mine here http://www.darkbasicpro.com/apollo/view_code.php?i=1314. It's under darkbasic disscusions. No media file callenge.

I posted a more incomplete version here a while ago under "My version of snake". Oddly enough, my newest version is under 20 lines. Oh well.

"The greatest oxymoron . . . ever, 'Microsoft Works'."

Back to top

Profile PM Email Website

3dZmaster

21

Years of Service

User Offline

Joined: 30th Jun 2003

Location: Finland

Posted: 19th Jul 2003 11:22

Link

Thanx guyz for trying this much. I'm sorry 'bout the thing that it's runnung too fast or two slow. I'm working on it, but I haven't got anything ready yet. Joe, your game is great, but it's more like an ordinary worm game. I was trying to make something new and... But very cool. If I get this code fixed up I will post it.

Current project: Dodge Viper Car Game (Not named yet) Other car models are going to be included soon

Back to top

Profile PM Email

3dZmaster

21

Years of Service

User Offline

Joined: 30th Jun 2003

Location: Finland

Posted: 19th Jul 2003 11:23

Link

Hey and, could you post your computer speeds and graphics card info. That would be could to know...

Current project: Dodge Viper Car Game (Not named yet) Other car models are going to be included soon

Back to top

Profile PM Email

3dZmaster

21

Years of Service

User Offline

Joined: 30th Jun 2003

Location: Finland

Posted: 20th Jul 2003 18:58

Link

Ok guyz.(Damn... Why do I have to start every post eith that!

)
Now the new version is available here!!! Don't take the first one 'cause it's full of bugs you know. Here's some info:

Fixed:
- Now the game is running at the same speed in every cpu (or should)
- Fruits are now randomized by timer() so they are always at different places.

Added:
- Worms head is colored blue

Here is the source(also in the box):

set display mode 320,200,32:hide mouse:a1#=101:a2#=100:b1#=102:b2#=100:c1#=103:c2#=100:d1#=104:d2#=100:e1#=105:e2#=100:f1#=106:f2#=100:g1#=107:g2#=100:h1#=108:h2#=100:i1#=109:i2#=100
randomize timer():fruitx#=rnd(300):fruity#=rnd(180):st#=timer():mov=4:sync on:sync rate 30
do:cls
ink RGB(255,255,128),RGB(255,255,128):box 0,0,5,200:box 315,0,320,200:box 0,195,320,200:box 0,0,320,5
randomize timer():if fruitx#>313:fruitx#=rnd(100):endif:if fruitx#<7:fruitx#=rnd(100):endif:if fruity#>193:fruity#=rnd(100):endif:if fruity#<7:fruity#=rnd(100):endif
dot fruitx#,fruity#,RGB(0,255,0):a1#=b1#:a2#=b2#:b1#=c1#:b2#=c2#:c1#=d1#:c2#=d2#:d1#=e1#:d2#=e2#:e1#=f1#:e2#=f2#:f1#=g1#:f2#=g2#:g1#=h1#:g2#=h2#:h1#=i1#:h2#=i2#
if upkey()=1 and mov<>2:mov=1:endif:if downkey()=1 and mov<>1:mov=2:endif:if leftkey()=1 and mov<>4:mov=3:endif:if rightkey()=1 and mov<>3:mov=4:endif
if mov=1:i2#=i2#-1:endif:if mov=2:i2#=i2#+1:endif:if mov=3:i1#=i1#-1:endif:if mov=4:i1#=i1#+1:endif
dot a1#,a2#,RGB(255,0,0) : dot b1#,b2#,RGB(255,0,0) : dot c1#,c2#,RGB(255,0,0) : dot d1#,d2#,RGB(255,0,0) : dot e1#,e2#,RGB(255,0,0) : dot f1#,f2#,RGB(255,0,0) : dot g1#,g2#,RGB(255,0,0) : dot h1#,h2#,RGB(255,0,0) : dot i1#,i2#,RGB(128,255,255)
if i1#>313:goto programend:endif:if i1#<7:goto programend:endif:if i2#>193:goto programend:endif:if i2#<7:goto programend:endif
randomize timer():if i1#=fruitx# and i2#=fruity#:fruitx#=rnd(300):fruity#=rnd(180):score#=score#+1:endif
ink RGB(255,0,0),RGB(255,0,0):set text font "system":set text size 1:set cursor 0,0:print "Score: ",score#:time#=timer()-st#:showtime#=60000-time#:if showtime#<1:goto programend2:endif:set cursor 200,0:print "Time Left: ",showtime#:sync
loop
programend: :sync off:set text font "Arial":set text size 20:set cursor 25,80:ink RGB(255,255,255),RGB(255,255,255):print "You Crashed!!! Press Any Key To Exit!":wait key:goto finalend
programend2: :sync off:set text font "Arial":set text size 20:set cursor 25,80:ink RGB(255,255,255),RGB(255,255,255):print "You Finished!!! Press Any Key To Exit!":set cursor 25,100:print "Finishing Score: ",score#:wait key:goto finalend
finalend:

+ Code Snippet

set display mode 320,200,32:hide mouse:a1#=101:a2#=100:b1#=102:b2#=100:c1#=103:c2#=100:d1#=104:d2#=100:e1#=105:e2#=100:f1#=106:f2#=100:g1#=107:g2#=100:h1#=108:h2#=100:i1#=109:i2#=100
randomize timer():fruitx#=rnd(300):fruity#=rnd(180):st#=timer():mov=4:sync on:sync rate 30
do:cls
ink RGB(255,255,128),RGB(255,255,128):box 0,0,5,200:box 315,0,320,200:box 0,195,320,200:box 0,0,320,5
randomize timer():if fruitx#>313:fruitx#=rnd(100):endif:if fruitx#<7:fruitx#=rnd(100):endif:if fruity#>193:fruity#=rnd(100):endif:if fruity#<7:fruity#=rnd(100):endif
dot fruitx#,fruity#,RGB(0,255,0):a1#=b1#:a2#=b2#:b1#=c1#:b2#=c2#:c1#=d1#:c2#=d2#:d1#=e1#:d2#=e2#:e1#=f1#:e2#=f2#:f1#=g1#:f2#=g2#:g1#=h1#:g2#=h2#:h1#=i1#:h2#=i2#
if upkey()=1 and mov<>2:mov=1:endif:if downkey()=1 and mov<>1:mov=2:endif:if leftkey()=1 and mov<>4:mov=3:endif:if rightkey()=1 and mov<>3:mov=4:endif
if mov=1:i2#=i2#-1:endif:if mov=2:i2#=i2#+1:endif:if mov=3:i1#=i1#-1:endif:if mov=4:i1#=i1#+1:endif
dot a1#,a2#,RGB(255,0,0) : dot b1#,b2#,RGB(255,0,0) : dot c1#,c2#,RGB(255,0,0) : dot d1#,d2#,RGB(255,0,0) : dot e1#,e2#,RGB(255,0,0) : dot f1#,f2#,RGB(255,0,0) : dot g1#,g2#,RGB(255,0,0) : dot h1#,h2#,RGB(255,0,0) : dot i1#,i2#,RGB(128,255,255)
if i1#>313:goto programend:endif:if i1#<7:goto programend:endif:if i2#>193:goto programend:endif:if i2#<7:goto programend:endif
randomize timer():if i1#=fruitx# and i2#=fruity#:fruitx#=rnd(300):fruity#=rnd(180):score#=score#+1:endif
ink RGB(255,0,0),RGB(255,0,0):set text font "system":set text size 1:set cursor 0,0:print "Score: ",score#:time#=timer()-st#:showtime#=60000-time#:if showtime#<1:goto programend2:endif:set cursor 200,0:print "Time Left: ",showtime#:sync
loop
programend: :sync off:set text font "Arial":set text size 20:set cursor 25,80:ink RGB(255,255,255),RGB(255,255,255):print "You Crashed!!! Press Any Key To Exit!":wait key:goto finalend
programend2: :sync off:set text font "Arial":set text size 20:set cursor 25,80:ink RGB(255,255,255),RGB(255,255,255):print "You Finished!!! Press Any Key To Exit!":set cursor 25,100:print "Finishing Score: ",score#:wait key:goto finalend
finalend:

Post your results, oppinions and suggests 'bout the game! And try to enjoy (Not sure if it's possible with this...

)

PS.
My high score in the new one is 10. Try to beat that...

Current project: Dodge Viper Car Game (Not named yet) Other car models are going to be included soon

Back to top

Profile PM Email

spooky

22

Years of Service

User Offline

Joined: 30th Aug 2002

Location: United Kingdom

Posted: 20th Jul 2003 20:25

Link

I beat that with no problem! High score is 12

R Tape loading error

Back to top

Profile PM Website

3dZmaster

21

Years of Service

User Offline

Joined: 30th Jun 2003

Location: Finland

Posted: 20th Jul 2003 20:33

Link

Damnit!!! Well, I think it's great that somebody plays my game... How did you like it? I mean, it's my first 2d project. And please everyone else, try this game and report your high score. Now I'm going to play the game whole evening, trying to get better score...

Thanx sonic!

Current project: Dodge Viper Car Game (Not named yet) Other car models are going to be included soon

Back to top

Profile PM Email

3dZmaster

21

Years of Service

User Offline

Joined: 30th Jun 2003

Location: Finland

Posted: 21st Jul 2003 13:54

Link

Nobody else wants to try? Well, I quess it sucks the...

Current project: Dodge Viper Car Game (Not named yet) Other car models are going to be included soon

Back to top

Profile PM Email

Sorry your browser is not supported!

The 20 Line Challenge / WORM POWER!!! Worm game NO MEDIA!!! Made in DBpro but Should Work In Classic