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
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!