Circle Game - GameCreators Forum

Author

Message

fearred

14

Years of Service

User Offline

Joined: 18th Sep 2009

Location:

Posted: 23rd Sep 2009 02:27

Link

The idea for this game was not mine, I saw it somewhere on this forum. It was attached as an exe on someones post and so I decided to try and replicate it and post it as a 20 liner. Here it is:

Sync Rate 60 : Randomize Timer() : Click = 1 : Dim Random(5) : Input "Enter a difficulty level 1-5: ",Difficulty
If Difficulty = 1 then Movement# = 13
If Difficulty = 2 then Movement# = 12
If Difficulty = 3 then Movement# = 11
If Difficulty = 4 then Movement# = 10
If Difficulty = 5 then Movement# = 9
Print "READY?" : wait 1000 : Print "SET" : wait 1000 : Print "GOOO!!!!" : wait 500 : do : If MouseClick() = 1 and Click = 1 : Click = 2 : X# = X# + Movement# : EndIf : If MouseClick() = 2 and Click = 2 : Click = 1 : X# = X# + Movement# : EndIf : Random(1) = rnd(5) : If Random(1) = 0 then inc X1#,0
If Random(1) = 1 then inc X1#,1
If Random(1) = 2 then inc X1#,2
If Random(1) = 3 then inc X1#,3
If Random(1) = 4 then inc X1#,4
If Random(1) = 5 then inc X1#,5
Random(2) = rnd(5) : If Random(2) = 0 then inc X2#,0
If Random(2) = 1 then inc X2#,1
If Random(2) = 2 then inc X2#,2
If Random(2) = 3 then inc X2#,3
If Random(2) = 4 then inc X2#,4
If Random(2) = 5 then inc X2#,5
Random(3) = rnd(5) : If Random(3) = 0 then inc X3#,0
If Random(3) = 1 then inc X3#,1
If Random(3) = 2 then inc X3#,2
If Random(3) = 3 then inc X3#,3
If Random(3) = 4 then inc X3#,4
If Random(3) = 5 then inc X3#,5
Random(4) = rnd(5) : If Random(4) = 0 then inc X4#,0
If Random(4) = 1 then inc X4#,1
If Random(4) = 2 then inc X4#,2
If Random(4) = 3 then inc X4#,3
If Random(4) = 4 then inc X4#,4
If Random(4) = 5 then inc X4#,5
Cls : Ink RGB(255,255,255),RGB(255,255,255) : Circle X#,10,10 : Ink RGB (255,0,0),RGB(255,0,0) : Circle X1#,60,10 : Ink RGB (255,153,0),RGB(255,153,0) : Circle X2#,110,10 : Ink RGB (255,51,153),RGB(255,51,153) : Circle X3#,160,10 : Ink RGB (0,102,255),RGB(0,102,255) : Circle X4#,210,10 : Ink RGB (51,255,0),RGB(51,255,0) : Line 580,0,580,480 : Ink RGB(255,255,255),RGB(255,255,255) : If X# > 590 : Print "You win!" : Print "Your time was: ",Time : Sync : Wait key : End : EndIf
If X1# > 590 or X2# > 590 or X3# > 590 or X4# > 590 : Print "You lose..." : Print "Your time was: ",Time : Sync : Wait Key : End : EndIf : Time = Time + 10 : Print Time : Sync : Loop

+ Code Snippet

Sync Rate 60 : Randomize Timer() : Click = 1 : Dim Random(5) : Input "Enter a difficulty level 1-5: ",Difficulty
If Difficulty = 1 then Movement# = 13
If Difficulty = 2 then Movement# = 12
If Difficulty = 3 then Movement# = 11
If Difficulty = 4 then Movement# = 10
If Difficulty = 5 then Movement# = 9
Print "READY?" : wait 1000 : Print "SET" : wait 1000 : Print "GOOO!!!!" : wait 500 : do : If MouseClick() = 1 and Click = 1 : Click = 2 : X# = X# + Movement# : EndIf : If MouseClick() = 2 and Click = 2 : Click = 1 : X# = X# + Movement# : EndIf : Random(1) = rnd(5) : If Random(1) = 0 then inc X1#,0
If Random(1) = 1 then inc X1#,1
If Random(1) = 2 then inc X1#,2
If Random(1) = 3 then inc X1#,3
If Random(1) = 4 then inc X1#,4
If Random(1) = 5 then inc X1#,5
Random(2) = rnd(5) : If Random(2) = 0 then inc X2#,0
If Random(2) = 1 then inc X2#,1
If Random(2) = 2 then inc X2#,2
If Random(2) = 3 then inc X2#,3
If Random(2) = 4 then inc X2#,4
If Random(2) = 5 then inc X2#,5
Random(3) = rnd(5) : If Random(3) = 0 then inc X3#,0
If Random(3) = 1 then inc X3#,1
If Random(3) = 2 then inc X3#,2
If Random(3) = 3 then inc X3#,3
If Random(3) = 4 then inc X3#,4
If Random(3) = 5 then inc X3#,5
Random(4) = rnd(5) : If Random(4) = 0 then inc X4#,0
If Random(4) = 1 then inc X4#,1
If Random(4) = 2 then inc X4#,2
If Random(4) = 3 then inc X4#,3
If Random(4) = 4 then inc X4#,4
If Random(4) = 5 then inc X4#,5
Cls : Ink RGB(255,255,255),RGB(255,255,255) : Circle X#,10,10 : Ink RGB (255,0,0),RGB(255,0,0) : Circle X1#,60,10 : Ink RGB (255,153,0),RGB(255,153,0) : Circle X2#,110,10 : Ink RGB (255,51,153),RGB(255,51,153) : Circle X3#,160,10 : Ink RGB (0,102,255),RGB(0,102,255) : Circle X4#,210,10 : Ink RGB (51,255,0),RGB(51,255,0) : Line 580,0,580,480 : Ink RGB(255,255,255),RGB(255,255,255) : If X# > 590 : Print "You win!" : Print "Your time was: ",Time : Sync : Wait key : End : EndIf
If X1# > 590 or X2# > 590 or X3# > 590 or X4# > 590 : Print "You lose..." : Print "Your time was: ",Time : Sync : Wait Key : End : EndIf : Time = Time + 10 : Print Time : Sync : Loop

This was done in DBPro and truth be told its actually 32 lines. If anyone can suggest a way to compress it more that would be great!

Back to top

Profile PM

Indicium

15

Years of Service

User Offline

Joined: 26th May 2008

Location:

Posted: 23rd Sep 2009 23:38

Link

Between the statements you can put a colon,

this thread will be locked i imagine if its over 20 lines

Omricon W.I.P

Back to top

Profile PM

fearred

14

Years of Service

User Offline

Joined: 18th Sep 2009

Location:

Posted: 24th Sep 2009 00:46

Link

between the if, then statements? I thought that you couldn't???

Back to top

Profile PM

fearred

14

Years of Service

User Offline

Joined: 18th Sep 2009

Location:

Posted: 24th Sep 2009 05:55

Link

I optimised my code and now its only 16 lines!!!!!!!!!!!!!!
Here it is:

Sync Rate 60 : Randomize Timer() : Click = 1 : Dim Random(5) : Dim X(5) : Input "Enter a difficulty level 1-5: ",Difficulty
If Difficulty = 1 then Movement# = 13
If Difficulty = 2 then Movement# = 12
If Difficulty = 3 then Movement# = 11
If Difficulty = 4 then Movement# = 10
If Difficulty = 5 then Movement# = 9
Print "READY?" : wait 1000 : Print "SET" : wait 1000 : Print "GOOO!!!!" : wait 500 : do : If MouseClick() = 1 and Click = 1 : Click = 2 : X# = X# + Movement# : EndIf : If MouseClick() = 2 and Click = 2 : Click = 1 : X# = X# + Movement# : EndIf
For i = 1 to 5 : Random(i) = rnd(5)
If Random(i) = 1 then inc X(i),1
If Random(i) = 2 then inc X(i),2
If Random(i) = 3 then inc X(i),3
If Random(i) = 4 then inc X(i),4
If Random(i) = 5 then inc X(i),5
next i
Cls : Ink RGB(255,255,255),RGB(255,255,255) : Circle X#,10,10 : Ink RGB (255,0,0),RGB(255,0,0) : Circle X(1),60,10 : Ink RGB (255,153,0),RGB(255,153,0) : Circle X(2),110,10 : Ink RGB (255,51,153),RGB(255,51,153) : Circle X(3),160,10 : Ink RGB (0,102,255),RGB(0,102,255) : Circle X(4),210,10 : Ink RGB (51,255,0),RGB(51,255,0) : Line 580,0,580,480 : Ink RGB(255,255,255),RGB(255,255,255) : If X# > 590 : Print "You win!" : Print "Your time was: ",Time : Sync : Wait key : End : EndIf
If X(1) > 590 or X(2) > 590 or X(3) > 590 or X(4) > 590 : Print "You lose..." : Print "Your time was: ",Time : Sync : Wait Key : End : EndIf : Time = Time + 10 : Print Time : Sync : Loop

+ Code Snippet

Sync Rate 60 : Randomize Timer() : Click = 1 : Dim Random(5) : Dim X(5) : Input "Enter a difficulty level 1-5: ",Difficulty
If Difficulty = 1 then Movement# = 13
If Difficulty = 2 then Movement# = 12
If Difficulty = 3 then Movement# = 11
If Difficulty = 4 then Movement# = 10
If Difficulty = 5 then Movement# = 9
Print "READY?" : wait 1000 : Print "SET" : wait 1000 : Print "GOOO!!!!" : wait 500 : do : If MouseClick() = 1 and Click = 1 : Click = 2 : X# = X# + Movement# : EndIf : If MouseClick() = 2 and Click = 2 : Click = 1 : X# = X# + Movement# : EndIf
For i = 1 to 5 : Random(i) = rnd(5)
If Random(i) = 1 then inc X(i),1
If Random(i) = 2 then inc X(i),2
If Random(i) = 3 then inc X(i),3
If Random(i) = 4 then inc X(i),4
If Random(i) = 5 then inc X(i),5
next i
Cls : Ink RGB(255,255,255),RGB(255,255,255) : Circle X#,10,10 : Ink RGB (255,0,0),RGB(255,0,0) : Circle X(1),60,10 : Ink RGB (255,153,0),RGB(255,153,0) : Circle X(2),110,10 : Ink RGB (255,51,153),RGB(255,51,153) : Circle X(3),160,10 : Ink RGB (0,102,255),RGB(0,102,255) : Circle X(4),210,10 : Ink RGB (51,255,0),RGB(51,255,0) : Line 580,0,580,480 : Ink RGB(255,255,255),RGB(255,255,255) : If X# > 590 : Print "You win!" : Print "Your time was: ",Time : Sync : Wait key : End : EndIf
If X(1) > 590 or X(2) > 590 or X(3) > 590 or X(4) > 590 : Print "You lose..." : Print "Your time was: ",Time : Sync : Wait Key : End : EndIf : Time = Time + 10 : Print Time : Sync : Loop

Back to top

Profile PM

Kira Vakaan

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location: MI, United States

Posted: 26th Sep 2009 11:17

Link

I optimized your code and now it's only three lines.

+ Code Snippet

randomize timer() : Click=1 : dim X(5) : input "Enter a difficulty level 1-5: ",Difficulty : Movement=14-Difficulty : print "READY?" : wait 1000 : print "SET" : wait 1000 : print "GOOO!!!!" : wait 500 : sync on : sync rate 30 : do : if mouseclick()=Click : Click=(2-Click)+1 : inc X(0),Movement : endif : cls : ink rgb(255,255,255),0 : circle X(0),10,10 : for a=1 to 4 : inc X(a),rnd(5) : if a=2 then g=255
r=255*(a<4) : g=(((g+153)%%153)+51)*(a>1) : b=(153+(a-3)*51)*(a>2) : ink rgb(r,g,b),0 : circle X(a),60+(a-1)*50,10 : next a : ink rgb(51,255,0),0 : line 580,0,580,480 : ink rgb(255,255,255),0 : if X(0)>590 : print "You win!" : print "Your time was: ";Time : sync : wait key : end : endif : if X(1)>590 or X(2)>590 or X(3)>590 or X(4)>590 : print "You lose..." : print "Your time was: ";Time : sync : wait key : end : endif : inc Time,10 : set cursor 0,0
print Time : sync : loop

I think it's hardly a twenty-line challenge anymore.

Back to top

Profile PM Email

fearred

14

Years of Service

User Offline

Joined: 18th Sep 2009

Location:

Posted: 26th Sep 2009 16:25

Link

lol nice

Back to top

Profile PM

fearred

14

Years of Service

User Offline

Joined: 18th Sep 2009

Location:

Posted: 26th Sep 2009 16:28

Link

just reviewed your code and you had some weird formulas in there

Back to top

Profile PM

Madscientist

14

Years of Service

User Offline

Joined: 23rd Aug 2009

Location: Between a rock and a hard place

Posted: 26th Sep 2009 17:15 Edited at: 26th Sep 2009 17:18

Link

I made the original. Good, I see that it has been changed to be so short. Nice! The only thing is that it is to hard. Lower the circle's speeds in general because easy isn't to easy.

If it hasn't exploded yet, I haven't touched it.

Back to top

Profile PM

Kira Vakaan

15

Years of Service

User Offline

Joined: 1st Dec 2008

Location: MI, United States

Posted: 26th Sep 2009 22:26

Link

Quote: "just reviewed your code and you had some weird formulas in there"

Haha, yeah, well the order of the circle colors was weird so I had to scratch my head for a while coming up with a way to map all of them in one go. Modulus division is a useful thing.

I tried to make it work exactly like fearred's original code, and an interesting thing I noticed was, even though you set the sync rate to 60 at the beginning, you never call sync on. I don't know why it works this way, but it pretty effectively cut the framerate to 30. So, in my version I used sync on, but set the sync rate at 30. Maybe it's just my hardware that does this. I don't know.

Back to top

Profile PM Email

fearred

14

Years of Service

User Offline

Joined: 18th Sep 2009

Location:

Posted: 27th Sep 2009 02:31

Link

Since I didn't understand half of Kira Vakaan's code I decided to shorten it myself, again. So I fixed the sync on and set the sync rate to 30 which didn't actually change the game but made more sense....

Then I just did some overall optimising and followed Madscientist's suggestion and made the game easier. The difficulty level was originally 1 to 5 but I changed it to 1 to 10.

* For some reason its not letting me put in the new code as when I paste it in it just expands it to like 10 lines? Anyways just so you know I managed to get it down to 3 lines without using your weird formulas.

Back to top

Profile PM

Sorry your browser is not supported!

The 20 Line Challenge / Circle Game