Sorry your browser is not supported!

You are using an outdated browser that does not support modern web technologies, in order to use this site please update to a new browser.

Browsers supported include Chrome, FireFox, Safari, Opera, Internet Explorer 10+ or Microsoft Edge.

The 20 Line Challenge / Ring Rage

Author
Message
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 4th Jul 2004 19:42
Here's my first attempt at the 20 line challenge. Give it a go and let me know what you think.
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 4th Jul 2004 20:48
Sorry, code got changed when I attached it as source code. I'll try it here:


Type OrbAttr
xpos : ypos : xvel : yvel : radius
Endtype
Dim Orb(10) AS OrbAttr : Dim Player(1) AS OrbAttr : Dim Score(2) : hide mouse : sync on : sync rate 20
for n = 1 to 200 : ink rgb(200,200,0), rgb(0,0,0) : center text 320,120,"OOO OOO O O OO OOO OO OO OOO" : center text 320,120 + 1 * n/20, "O O O OO O O O O O O O O O O " : center text 320,120 + 2 * n/20, "O O O O O O O O O O O O O " : center text 320,120 + 3 * n/20, "OOO O O O O O OOO OOO OOOO O OOO OOO" : center text 320,120 + 4 * n/20, "O O O O O O O O O O O O O O O " : center text 320,120 + 5 * n/20, "O O O O OO O O O O O O O O O " : center text 320,120 + 6 * n/20, "O O OOO O O OO O O O O OO OOO" : sync : cls : next n
repeat : ink rgb(255,255,0),rgb(0,0,0) : set cursor 0,150 : center text 320,120, "WELCOME TO RING RAGE" : center text 320,130, "AVOID THE RED RINGS FOR AS LONG AS YOU CAN" : center text 320,140, "GUIDE YOUR GREEN RING WITH THE MOUSE" : center text 320,150, "LEFT CLICK TO BEGIN" : sync : cls : until mouseclick() = 1
Start:
Score(1) = 0 : Player(1).xpos = 600 : Player(1).ypos = 400 : Player(1).radius = 0 : for n = 1 to 10 : Orb(n).radius = 0 : Orb(n).xpos = 0 : Orb(n).ypos = 0 : Orb(n).xvel = n : Orb(n).yvel = 11 - n : next n
do : xmove = mousemovex() : ymove = mousemovey() : move = sqrt((xmove * xmove) + (ymove * ymove)) : if move > 25 : ratio = 25000 / move : xmove = (xmove * ratio) / 1000 : ymove = (ymove * ratio) / 1000 : endif : Player(1).xpos = Player(1).xpos + xmove : Player(1).ypos = Player(1).ypos + ymove
Player(1).radius = Player(1).radius + rnd(2) - 1 : if Player(1).radius < 5 : Player(1).radius = 5 : endif : if Player(1).radius > 25 : Player(1).radius = 25 : endif : if Player(1).xpos < 175 : Player(1).xpos = 175 : endif : if Player(1).xpos > 525 : Player(1).xpos = 525 : endif : if Player(1).ypos < 175 : Player(1).ypos = 175 : endif : if Player(1).ypos > 325 : Player(1).ypos = 325 : endif
for n = 1 to 10 : Orb(n).xpos = Orb(n).xpos + Orb(n).xvel : Orb(n).ypos = Orb(n).ypos + Orb(n).yvel : Orb(n).radius = Orb(n).radius + rnd(2) - 1 : if Orb(n).radius < 5 : Orb(n).radius = 5 : endif : if Orb(n).radius > 25 : Orb(n).radius = 25 : endif
if Orb(n).xpos < 100 : Orb(n).xvel = Orb(n).xvel * -1 : Orb(n).xpos = 100 : endif : if Orb(n).xpos > 600 : Orb(n).xvel = Orb(n).xvel * -1 : Orb(n).xpos = 600 : endif : if Orb(n).ypos < 100 : Orb(n).yvel = Orb(n).yvel * -1 : Orb(n).ypos = 100 : endif : if Orb(n).ypos > 400 : Orb(n).yvel = Orb(n).yvel * -1 : Orb(n).ypos = 400 : endif
if (sqrt(((Orb(n).xpos - Player(1).xpos) * (Orb(n).xpos - Player(1).xpos)) + ((Orb(n).ypos - Player(1).ypos) * (Orb(n).ypos - Player(1).ypos))) < (Orb(n).radius + Player(1).radius)) : if Score(1) > Score(2) : Score(2) = Score(1) : endif : repeat : ink rgb(255,255,0),rgb(0,0,0) : set cursor 0,150
center text 320,120, "NOT AS EASY AS YOU THOUGHT" : if Score(1) = Score(2) : center text 320,130, "WELL DONE YOU GOT " + str$(Score(1)) : else : center text 320,130, "YOUR SCORE WAS ONLY A PATHETIC " + str$(Score(1)) : endif : center text 320,140, "YOUR HIGH SCORE IS " + str$(Score(2))
center text 320,150, "LEFT CLICK TO PLAY AGAIN OR RIGHT CLICK TO EXIT" : if mouseclick() = 2 : end : endif : sync : cls : until mouseclick() = 1 : Goto Start : endif : next n
ink rgb(0,255,0),rgb(0,0,0) : circle Player(1).xpos,Player(1).ypos,Player(1).radius : ink rgb(255,0,0),rgb(0,0,0) : for n = 1 to 10 : circle Orb(n).xpos,Orb(n).ypos,Orb(n).radius : next n : ink rgb(0,0,255),rgb(0,0,0) : line 100,100,100,400 : line 100,400,600,400 : line 600,400,600,100 : line 600,100,100,100
line 175,175,175,325 : line 175,325,525,325 : line 525,325,525,175 : line 525,175,175,175 : Score(1) = Score(1) + 1 : ink rgb(255,255,0),rgb(0,0,0) : text 105,105, "SCORE: " + str$(Score(1)) : text 105,120, "HIGH SCORE: " + str$(Score(2)) : sync : cls : loop


Hope that works

Please post any feeback it will be greatly appreciated
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 4th Jul 2004 20:51
OK the above code seems to work properly except the title screen which is supposed to open up into the words RING RAGE. Unfortunately the spacing got messed up when I posted it
Other than that it works fine
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 4th Jul 2004 20:58
Just noticed that if you use the source code attached to the first post and use a find and replace to remove all of the \ symbols it will work fine (including the title page)

Sorry for the problem
Kohaku
15
Years of Service
User Offline
Joined: 3rd May 2004
Location: The not very United Kingdom
Posted: 5th Jul 2004 00:21
Press 'code' when typing your message. Then paste your code, followed by pressing 'code' again.



Infra-Dark
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 5th Jul 2004 00:43
Thanks for the help

Here's the correct code:

Atreides
15
Years of Service
User Offline
Joined: 11th Oct 2003
Location: Switzerland (but NOT on a mountain !)
Posted: 5th Jul 2004 22:14
very good
I made 324 ^^

The sleeper must awaken !
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 6th Jul 2004 02:16
Thanks
Hepy
15
Years of Service
User Offline
Joined: 16th Apr 2004
Location: United Kingdom
Posted: 6th Jul 2004 04:18
Wicked, good game and cool title! thumbs up ,
Hepy

Hepy
zenassem
16
Years of Service
User Offline
Joined: 10th Mar 2003
Location: Long Island, NY
Posted: 6th Jul 2004 04:36 Edited at: 6th Jul 2004 04:39
H.S. 698

Ridiculously fun, better than some of the FULL-out Apps. What a blast. I wish that I could pick up a shield from time to time and I would have been better with arrow keys, but heck it was still fun.

At first though I thought is was going to be a boxing game, like "Ring King" or "Punch-Out". But I'm not complaining. 20 lines and addictively fun.

Good Job!

P.S. Your animated avatar is even fun!

So I gave it 4 Funs!


robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 6th Jul 2004 04:52
Thanks for the comments everyone

I might consider making a full game based around it after the positive feedback
Ocean Runner
16
Years of Service
User Offline
Joined: 18th May 2003
Location: United States
Posted: 10th Jul 2004 06:34
I don't see any red rings! It just tells me I've lost after a little while.

"Computers in the future may weigh no more then
1.5 tons. - Popular Mechanics, 1949
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 10th Jul 2004 18:33
The game won't work in DBClassic. It only works in DBPro.

What version of Dark Basic are you using?
ReD_eYe
16
Years of Service
User Offline
Joined: 9th Mar 2003
Location: United Kingdom
Posted: 20th Jul 2004 05:36
this is great, really like it!!!


DBP Fanboy is a Unregistered trademark of ReD_eYe uninteractive, no rights reserved.
http://redeye.dbspot.com/fanboy.html
geecee3
15
Years of Service
User Offline
Joined: 25th Feb 2004
Location: edinburgh.scotland.
Posted: 21st Jul 2004 06:18
10/10

absolute moose driven madness, fantastic.

yes please, a bigger version with irregular playing fields and size control using the left and right mouse buttons during play would be nice, ( the bigger you make yourself, the more points you get ) also a hyperspace / teleport once per level would be a good addition, just to save your bacon now and again. all in all a very original game, and in only 17 lines, Damn this should have a place in the newsletter goddamit!!!!!

kindest regards in abundance, geecee3.

robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 26th Jul 2004 05:34
Thanks for the positive replies everyone.

Good ideas geecee3.

Currently working on another project at the moment but i'll work on a full version of Ring Rage when I have some time
Yart
15
Years of Service
User Offline
Joined: 23rd Jun 2004
Location: Turkey Sandwich
Posted: 27th Jul 2004 22:22 Edited at: 27th Jul 2004 22:23
Ok... Atari should have made this the first game instead of Pong! Friggin' awesome! (Pardon my use of... umm... word)

Great work! Keep up the more great work! Awesome man!

I also liked the title screen alot!
(The game's so simple... yet so awesome!)

Pie!
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 2nd Aug 2004 02:59
Thanks again for all the replies

Just letting you know that work has begun on the full version of Ring Rage. I've decided upon the final look and feel of the full game and I think I'm able to include all the fun of the 20 line version. I'm planning on entering it into the competition under the snake/nibbler section. I'll let you know again when any significant progress has been made, should hopefully have a playable demo up quite soon.
DqP
15
Years of Service
User Offline
Joined: 20th Dec 2003
Location: |\\/|/-\\|_\'|\'/-\\
Posted: 5th Aug 2004 05:11
Very Good Game.

robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 6th Aug 2004 06:04
Made a lot of progress on the full version.
Got most of the gameplay done, such as collision, and also a simple level editor(allowing walls of any shape or angle).
Got a few graphical enhancements before I release a playable demo.
When I get a demo up I'll probably put it in the WIP forums.
Nearly there!
robo cat
15
Years of Service
User Offline
Joined: 23rd Feb 2004
Location: In a cat litter tray, near you...
Posted: 10th Aug 2004 19:50
I have posted a demo of the full version of Ring Rage, currently being called Ring Worm. This new game is on the WIP forums, and no longer on this thread. This demo has the gameplay almost completely covered and it would be helpful if you could comment on if I have managed to include the fun gameplay of the original.
Pazza
16
Years of Service
User Offline
Joined: 27th Jan 2003
Location: United Kingdom
Posted: 26th Sep 2004 03:16
its good fun.

"Bite my shiny metal ass!" - Bender

Login to post a reply

Server time is: 2019-08-25 00:00:59
Your offset time is: 2019-08-25 00:00:59