Colour Cubes - Puzzle Game for 20 Line Compo

Author

Message

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 12th Jul 2005 22:49 Edited at: 19th Jul 2005 17:08

Link

Hey guys, I just coded this. It took about an hour.
It's not quite finished yet, it doesn't really do anything once you've cleared all the blocks, I'll add something like 'Click to play again' tomorrow coz it's bed time now

It has media (sounds and a splash screen) and they are attatched below in ZIP format.
You know the drill, make sure you unzip the files in the same folder as the exe.
Coded in DBPro, but may work in DBC, haven't tried.

Best played in a 640x480 window!

while mouseclick()=0:load bitmap "Splash.jpg":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial"
load sound "good.wav",1:load sound "bad.wav",2:load sound "fall.wav",3:load sound "score.wav",4 : load music "zipadee.mid",1:loop music 1
for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do
inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#
set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0)
if c<>oldc and oldc>0:ghost object off oldc:endif:if c>0:ghost object on c:endif:if mouseclick()=1 and hold=0 and count<10:if c>0:if selected(count)>0
if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26
if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count)
count=count+1:selected(count)=c:play sound 1:endif:endif:endif:else:count=count+1:selected(count)=c:play sound 1:endif:endif:hold=1:endif:if mouseclick()=0:hold=0:hold2=0:endif
if mouseclick()=2 and hold2=0:scoreup=0:for m=1 to count:for t=101 to 325:if selected(m)>0
if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m)):move object t,25:play sound 3:endif:endif:next t:if selected(m)>0
position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000
score=score+scoreinc:scoreup=scoreup+scoreinc:scoreinc=scoreinc+50:endif:selected(m)=0:next m:count=0:scoreinc=0
if scoreup>150:playsound=1:endif:texty=0:hold2=1:endif:if scoreup>150:if playsound=1:play sound 4:playsound=0:endif
inc texty,5 : set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS":endif
if camx#=75:camdown=1:endif:if camx#=-75:camdown=0:endif:if camdown=0 : camx#=camx#+0.5:else:camx#=camx#-0.5:endif
position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350:point camera camxpos#,camypos#,0:sync:loop

+ Code Snippet

while mouseclick()=0:load bitmap "Splash.jpg":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial"
load sound "good.wav",1:load sound "bad.wav",2:load sound "fall.wav",3:load sound "score.wav",4 : load music "zipadee.mid",1:loop music 1
for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do
inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#
set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0)
if c<>oldc and oldc>0:ghost object off oldc:endif:if c>0:ghost object on c:endif:if mouseclick()=1 and hold=0 and count<10:if c>0:if selected(count)>0
if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26
if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count)
count=count+1:selected(count)=c:play sound 1:endif:endif:endif:else:count=count+1:selected(count)=c:play sound 1:endif:endif:hold=1:endif:if mouseclick()=0:hold=0:hold2=0:endif
if mouseclick()=2 and hold2=0:scoreup=0:for m=1 to count:for t=101 to 325:if selected(m)>0
if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m)):move object t,25:play sound 3:endif:endif:next t:if selected(m)>0
position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000
score=score+scoreinc:scoreup=scoreup+scoreinc:scoreinc=scoreinc+50:endif:selected(m)=0:next m:count=0:scoreinc=0
if scoreup>150:playsound=1:endif:texty=0:hold2=1:endif:if scoreup>150:if playsound=1:play sound 4:playsound=0:endif
inc texty,5 : set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS":endif
if camx#=75:camdown=1:endif:if camx#=-75:camdown=0:endif:if camdown=0 : camx#=camx#+0.5:else:camx#=camx#-0.5:endif
position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350:point camera camxpos#,camypos#,0:sync:loop

Post your scores! I got over 19000 when I was testing it...

Thanks guys,
-Ev

<UPDATE> A no-media version is available in a later post <UPDATE>

AMD939 3500+, Gigabyte PCI-E X800XL 256mb, 1024mb RAM
Logitech Z680 5.1 Speakers

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Eddie B

19

Years of Service

User Offline

Joined: 10th Apr 2005

Location:

Posted: 13th Jul 2005 00:50

Link

12400, I found a bug:

If you click more than once on a block it still adds up and gets your points

http://graphics-monkey.co.uk/index.php?p=projects

Back to top

Profile PM Email

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 13th Jul 2005 08:20

Link

Thanks for pointing that out, I'll fix that when I get a chance.

-Ev

AMD939 3500+, Gigabyte PCI-E X800XL 256mb, 1024mb RAM
Logitech Z680 5.1 Speakers

Back to top

Profile PM Email Website

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 13th Jul 2005 23:24 Edited at: 13th Jul 2005 23:25

Link

Ok, here's the updated version.
I've fixed that bug and added an end (tells you your score).
I also fixed a few other things, made some changes here and there.

Here it is in 20 lines:

while mouseclick()=0:load bitmap "Splash.jpg":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial"
load sound "good.wav",1:load sound "bad.wav",2:load sound "fall.wav",3:load sound "score.wav",4 : load music "zipadee.mid",1:loop music 1:wait 100
for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do
inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#
set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0)
if c<>oldc and oldc>0:ghost object off oldc:endif:if c>0:ghost object on c:endif
if mouseclick()=1 and hold=0 and count<10:if c>0:if selected(count)>0:if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26
if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count):for t=1 to 10:if selected(t)=c:picked=1:endif:next t
if picked=0:count=count+1:selected(count)=c:fade object selected(count),200:play sound 1:endif:endif:endif:else:count=count+1:selected(count)=c:fade object selected(count),200:play sound 1:endif:endif:hold=1:endif
if mouseclick()=0:hold=0:hold2=0:endif:if mouseclick()=2 and hold2=0:scoreup=0:for m=1 to count:for t=101 to 325:if selected(m)>0:if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m))
move object t,25:play sound 3:endif:endif:next t:if selected(m)>0:position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000:score=score+scoreinc:scoreup=scoreup+scoreinc:scoreinc=scoreinc+50:endif
selected(m)=0:next m:count=0:scoreinc=0:picked=0:if scoreup>150:playsound=1:endif:texty=0:hold2=1:endif
cleared=0:for t=101 to 335:if object exist(t)=1:if object position z(t)=-1000:inc cleared:endif:endif:next t:print "Blocks cleared: ",cleared,"/225"
if cleared=>4:cls:center text 320,230,"Well Done":center text 320,250,"You scored "+str$(score)+" points!":sync:wait mouse:end:endif
if scoreup>150:if playsound=1:play sound 4:playsound=0:endif:inc texty,5:set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS":endif
if camx#=75:camdown=1:endif:if camx#=-75:camdown=0:endif:if camdown=0:camx#=camx#+0.5:else:camx#=camx#-0.5:endif
endif:position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350:point camera camxpos#,camypos#,0:sync:loop

+ Code Snippet

while mouseclick()=0:load bitmap "Splash.jpg":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial"
load sound "good.wav",1:load sound "bad.wav",2:load sound "fall.wav",3:load sound "score.wav",4 : load music "zipadee.mid",1:loop music 1:wait 100
for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do
inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#
set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0)
if c<>oldc and oldc>0:ghost object off oldc:endif:if c>0:ghost object on c:endif
if mouseclick()=1 and hold=0 and count<10:if c>0:if selected(count)>0:if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26
if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count):for t=1 to 10:if selected(t)=c:picked=1:endif:next t
if picked=0:count=count+1:selected(count)=c:fade object selected(count),200:play sound 1:endif:endif:endif:else:count=count+1:selected(count)=c:fade object selected(count),200:play sound 1:endif:endif:hold=1:endif
if mouseclick()=0:hold=0:hold2=0:endif:if mouseclick()=2 and hold2=0:scoreup=0:for m=1 to count:for t=101 to 325:if selected(m)>0:if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m))
move object t,25:play sound 3:endif:endif:next t:if selected(m)>0:position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000:score=score+scoreinc:scoreup=scoreup+scoreinc:scoreinc=scoreinc+50:endif
selected(m)=0:next m:count=0:scoreinc=0:picked=0:if scoreup>150:playsound=1:endif:texty=0:hold2=1:endif
cleared=0:for t=101 to 335:if object exist(t)=1:if object position z(t)=-1000:inc cleared:endif:endif:next t:print "Blocks cleared: ",cleared,"/225"
if cleared=>4:cls:center text 320,230,"Well Done":center text 320,250,"You scored "+str$(score)+" points!":sync:wait mouse:end:endif
if scoreup>150:if playsound=1:play sound 4:playsound=0:endif:inc texty,5:set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS":endif
if camx#=75:camdown=1:endif:if camx#=-75:camdown=0:endif:if camdown=0:camx#=camx#+0.5:else:camx#=camx#-0.5:endif
endif:position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350:point camera camxpos#,camypos#,0:sync:loop

and here it is spaced out (110 lines):

while mouseclick()=0:load bitmap "Splash.jpg":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial"
load sound "good.wav",1:load sound "bad.wav",2:load sound "fall.wav",3:load sound "score.wav",4 : load music "zipadee.mid",1:loop music 1
wait 100
for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do
inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#
set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0)

if c<>oldc and oldc>0
ghost object off oldc
endif
if c>0
ghost object on c
endif
if mouseclick()=1 and hold=0 and count<10
   if c>0
      if selected(count)>0
         if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26
            if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
               if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count)
                  for t=1 to 10
                     if selected(t)=c:picked=1:endif
                  next t
                  if picked=0
                     count=count+1
                     selected(count)=c
                     fade object selected(count),200
                     play sound 1
                  endif
               endif
            endif
         endif
      else
            count=count+1
            selected(count)=c
            fade object selected(count),200
         play sound 1
      endif
   endif
   hold=1
endif
if mouseclick()=0:hold=0:hold2=0:endif

if mouseclick()=2 and hold2=0:scoreup=0
   for m=1 to count
      for t=101 to 325
         if selected(m)>0
            if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m))
                  move object t,25
                  play sound 3
            endif
         endif
      next t
      if selected(m)>0
         position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000
         score=score+scoreinc
         scoreup=scoreup+scoreinc
         scoreinc=scoreinc+50
      endif
      selected(m)=0
   next m
   count=0:scoreinc=0:picked=0

if scoreup>150
      playsound=1
   endif
   texty=0:hold2=1
endif

cleared=0:for t=101 to 335
   if object exist(t)=1:if object position z(t)=-1000:inc cleared:endif:endif
next t
print "Blocks cleared: ",cleared,"/225"

if cleared=>4 : cls
center text 320,230,"Well Done"
center text 320,250,"You scored "+str$(score)+" points!"
sync
wait mouse
end
endif

if scoreup>150
   if playsound=1
      play sound 4
      playsound=0
   endif
   inc texty,5
   set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS"
endif

if camx#=75
   camdown=1
endif

if camx#=-75
   camdown=0
endif

if camdown=0
   camx#=camx#+0.5
else
   camx#=camx#-0.5
endif

position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350
point camera camxpos#,camypos#,0
sync
loop

+ Code Snippet

while mouseclick()=0:load bitmap "Splash.jpg":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial"
load sound "good.wav",1:load sound "bad.wav",2:load sound "fall.wav",3:load sound "score.wav",4 : load music "zipadee.mid",1:loop music 1
wait 100
for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do
inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#
set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0)

if c<>oldc and oldc>0
ghost object off oldc
endif
if c>0
ghost object on c
endif
if mouseclick()=1 and hold=0 and count<10
   if c>0
      if selected(count)>0
         if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26
            if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
               if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count)
                  for t=1 to 10
                     if selected(t)=c:picked=1:endif
                  next t
                  if picked=0
                     count=count+1
                     selected(count)=c
                     fade object selected(count),200
                     play sound 1
                  endif
               endif
            endif
         endif
      else
            count=count+1
            selected(count)=c
            fade object selected(count),200
         play sound 1
      endif
   endif
   hold=1
endif
if mouseclick()=0:hold=0:hold2=0:endif

if mouseclick()=2 and hold2=0:scoreup=0
   for m=1 to count
      for t=101 to 325
         if selected(m)>0
            if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m))
                  move object t,25
                  play sound 3
            endif
         endif
      next t
      if selected(m)>0
         position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000
         score=score+scoreinc
         scoreup=scoreup+scoreinc
         scoreinc=scoreinc+50
      endif
      selected(m)=0
   next m
   count=0:scoreinc=0:picked=0

   if scoreup>150
      playsound=1
   endif
   texty=0:hold2=1
endif

cleared=0:for t=101 to 335
   if object exist(t)=1:if object position z(t)=-1000:inc cleared:endif:endif
next t
print "Blocks cleared: ",cleared,"/225"

if cleared=>4 : cls
center text 320,230,"Well Done"
center text 320,250,"You scored "+str$(score)+" points!"
sync
wait mouse
end
endif

if scoreup>150
   if playsound=1
      play sound 4
      playsound=0
   endif
   inc texty,5
   set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS"
endif

if camx#=75
   camdown=1
endif

if camx#=-75
   camdown=0
endif

if camdown=0
   camx#=camx#+0.5
else
   camx#=camx#-0.5
endif

position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350
point camera camxpos#,camypos#,0
sync
loop

Also, don't forget the media (download in first post).

Thanks guys,
-Ev

AMD939 3500+, Gigabyte PCI-E X800XL 256mb, 1024mb RAM
Logitech Z680 5.1 Speakers

Back to top

Profile PM Email Website

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 14th Jul 2005 22:34 Edited at: 14th Jul 2005 22:38

Link

Sorry that version is buggy, I don't think it works at all

Here's the most up-to-date version (only 12 lines now!):

while mouseclick()=0:load bitmap "Splash.jpg":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial"
load sound "good.wav",1:load sound "bad.wav",2:load sound "fall.wav",3:load sound "score.wav",4 : load music "zipadee.mid",1:loop music 1:wait 100:for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do:inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#:set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0):text 0,457,"Press M to toggle music onoff"
if c<>oldc and oldc>0:ghost object off oldc:endif:if c>0:ghost object on c:endif:if mouseclick()=1 and hold=0 and count<10:if c>0:if selected(count)>0:if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26:if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count):for t=1 to 10:if selected(t)=c:picked=1:endif:next t:if picked=0:count=count+1:selected(count)=c:fade object selected(count),200
play sound 1:endif:endif:endif:endif:else:count=count+1:selected(count)=c:fade object selected(count),200:play sound 1:endif:endif:hold=1:endif:if mouseclick()=0:hold=0:hold2=0:endif:if mouseclick()=2 and hold2=0:scoreup=0
for m=1 to count:for t=101 to 325:if selected(m)>0:if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m)):move object t,25:play sound 3:endif:endif:next t
if selected(m)>0:position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000:score=score+scoreinc:scoreup=scoreup+scoreinc:scoreinc=scoreinc+50:endif:selected(m)=0:next m:count=0:scoreinc=0:picked=0:if scoreup>150:playsound=1:endif:texty=0:hold2=1:endif
cleared=0:for t=101 to 335:if object exist(t)=1:if object position z(t)=-1000:inc cleared:endif:endif:next t:print "Blocks cleared: ",cleared,"/225":if cleared=>225:cls:center text 320,230,"Well Done":center text 320,250,"You scored "+str$(score)+" points!":sync:wait mouse:end:endif
if scoreup>150:if playsound=1:play sound 4:playsound=0:endif:inc texty,5:set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS":endif:if camx#=75:camdown=1:endif:if camx#=-75:camdown=0:endif:if camdown=0:camx#=camx#+0.5:else:camx#=camx#-0.5:endif
if inkey$()="m" and music playing(1)=1:stop music 1:wait 100:endif:if inkey$()="m" and music playing(1)=0:loop music 1:wait 100:endif:position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350:point camera camxpos#,camypos#,0:sync:loop

+ Code Snippet

while mouseclick()=0:load bitmap "Splash.jpg":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial"
load sound "good.wav",1:load sound "bad.wav",2:load sound "fall.wav",3:load sound "score.wav",4 : load music "zipadee.mid",1:loop music 1:wait 100:for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do:inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#:set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0):text 0,457,"Press M to toggle music onoff"
if c<>oldc and oldc>0:ghost object off oldc:endif:if c>0:ghost object on c:endif:if mouseclick()=1 and hold=0 and count<10:if c>0:if selected(count)>0:if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26:if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count):for t=1 to 10:if selected(t)=c:picked=1:endif:next t:if picked=0:count=count+1:selected(count)=c:fade object selected(count),200
play sound 1:endif:endif:endif:endif:else:count=count+1:selected(count)=c:fade object selected(count),200:play sound 1:endif:endif:hold=1:endif:if mouseclick()=0:hold=0:hold2=0:endif:if mouseclick()=2 and hold2=0:scoreup=0
for m=1 to count:for t=101 to 325:if selected(m)>0:if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m)):move object t,25:play sound 3:endif:endif:next t
if selected(m)>0:position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000:score=score+scoreinc:scoreup=scoreup+scoreinc:scoreinc=scoreinc+50:endif:selected(m)=0:next m:count=0:scoreinc=0:picked=0:if scoreup>150:playsound=1:endif:texty=0:hold2=1:endif
cleared=0:for t=101 to 335:if object exist(t)=1:if object position z(t)=-1000:inc cleared:endif:endif:next t:print "Blocks cleared: ",cleared,"/225":if cleared=>225:cls:center text 320,230,"Well Done":center text 320,250,"You scored "+str$(score)+" points!":sync:wait mouse:end:endif
if scoreup>150:if playsound=1:play sound 4:playsound=0:endif:inc texty,5:set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS":endif:if camx#=75:camdown=1:endif:if camx#=-75:camdown=0:endif:if camdown=0:camx#=camx#+0.5:else:camx#=camx#-0.5:endif
if inkey$()="m" and music playing(1)=1:stop music 1:wait 100:endif:if inkey$()="m" and music playing(1)=0:loop music 1:wait 100:endif:position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350:point camera camxpos#,camypos#,0:sync:loop

I put in a feature to stop the music (it does get annoying), just press M.

Tell me what you think!!!!!!!
In fact, every time you don't tell me what you think I'll kill you

I might enter it into the Puzzle Compo, can't see it winning anything tho...

Thanks guys,
-Ev

AMD939 3500+, Gigabyte PCI-E X800XL 256mb, 1024mb RAM
Logitech Z680 5.1 Speakers

Back to top

Profile PM Email Website

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 18th Jul 2005 22:43 Edited at: 18th Jul 2005 22:44

Link

Is this game SO bland that nobody will even comment?!
Or is it just that you have to download the sounds n stuff? I thought that might put people off, maybe I should release a no-media version...

-Ev

AMD939 3500+, Gigabyte PCI-E X800XL 256mb, 1024mb RAM
Logitech Z680 5.1 Speakers

Back to top

Profile PM Email Website

Ric

19

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 19th Jul 2005 07:18

Link

Personally, I'm such a lazy fat-arse, that having to download media actually does put me off. A no-media version would be good.

Back to top

Profile PM Email Website

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 19th Jul 2005 17:06

Link

Ok, for all you lazy people, here it is.
10 lines, no media requried.

`Remember to play in 640x480 windowed mode

while mouseclick()=0:center text 320,240,"Click to Play":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial":wait 100:for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do:inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#:set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0)
if c<>oldc and oldc>0:ghost object off oldc:endif:if c>0:ghost object on c:endif:if mouseclick()=1 and hold=0 and count<10:if c>0:if selected(count)>0:if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26:if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count):for t=1 to 10:if selected(t)=c:picked=1:endif:next t:if picked=0:count=count+1:selected(count)=c:fade object selected(count),200
endif:endif:endif:endif:else:count=count+1:selected(count)=c:fade object selected(count),200:endif:endif:hold=1:endif:if mouseclick()=0:hold=0:hold2=0:endif:if mouseclick()=2 and hold2=0:scoreup=0
for m=1 to count:for t=101 to 325:if selected(m)>0:if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m)):move object t,25:endif:endif:next t
if selected(m)>0:position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000:score=score+scoreinc:scoreup=scoreup+scoreinc:scoreinc=scoreinc+50:endif:selected(m)=0:next m:count=0:scoreinc=0:picked=0:if scoreup>150:endif:texty=0:hold2=1:endif
cleared=0:for t=101 to 335:if object exist(t)=1:if object position z(t)=-1000:inc cleared:endif:endif:next t:print "Blocks cleared: ",cleared,"/225":if cleared=>225:cls:center text 320,230,"Well Done":center text 320,250,"You scored "+str$(score)+" points!":sync:wait mouse:end:endif
if scoreup>150:inc texty,5:set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS":endif:if camx#=75:camdown=1:endif:if camx#=-75:camdown=0:endif:if camdown=0:camx#=camx#+0.5:else:camx#=camx#-0.5:endif:position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350:point camera camxpos#,camypos#,0:sync:loop

`Code by EvMaster

+ Code Snippet

`Remember to play in 640x480 windowed mode

while mouseclick()=0:center text 320,240,"Click to Play":sync:endwhile:sync on:sync rate 60:color backdrop 0:cubenum=100:dim colors(500,3):dim selected(10):make object cube 1,1:set text font "arial":wait 100:for t=1 to 15:inc yvalue:for f=1 to 15:inc cubenum:make object cube cubenum,20 : position object cubenum,-200+(f*25),250-(yvalue*25),0
colors(cubenum,1)=rnd(1)*255:colors(cubenum,2)=rnd(1)*255:colors(cubenum,3)=rnd(1)*255:color object cubenum,rgb(colors(cubenum,1),colors(cubenum,2),colors(cubenum,3)):point object cubenum,object position x(cubenum),object position y(cubenum)-100,object position z(cubenum):next f:next t
camxpos#=object position x(213):camypos#=object position y(213):do:inc x#,mousex()-object screen x(1):dec y#,mousey()-object screen y(1):position object 1,x#,y#,z#:set cursor 0,0 :set text size 24:print "Score: ",score:print "Steps: ",count:oldc=c:c=object collision(1,0)
if c<>oldc and oldc>0:ghost object off oldc:endif:if c>0:ghost object on c:endif:if mouseclick()=1 and hold=0 and count<10:if c>0:if selected(count)>0:if object position x(c)>object position x(selected(count))-26 and object position x(c)<object position x(selected(count))+26:if object position y(c)>object position y(selected(count))-26 and object position y(c)<object position y(selected(count))+26
if colors(c,1)=colors(selected(count),1) and colors(c,2)=colors(selected(count),2) and colors(c,3)=colors(selected(count),3) and c<>selected(count):for t=1 to 10:if selected(t)=c:picked=1:endif:next t:if picked=0:count=count+1:selected(count)=c:fade object selected(count),200
endif:endif:endif:endif:else:count=count+1:selected(count)=c:fade object selected(count),200:endif:endif:hold=1:endif:if mouseclick()=0:hold=0:hold2=0:endif:if mouseclick()=2 and hold2=0:scoreup=0
for m=1 to count:for t=101 to 325:if selected(m)>0:if object position x(t)=object position x(selected(m)) and object position y(t)>object position y(selected(m)):move object t,25:endif:endif:next t
if selected(m)>0:position object selected(m),object position x(selected(m)),object position y(selected(m)),-1000:score=score+scoreinc:scoreup=scoreup+scoreinc:scoreinc=scoreinc+50:endif:selected(m)=0:next m:count=0:scoreinc=0:picked=0:if scoreup>150:endif:texty=0:hold2=1:endif
cleared=0:for t=101 to 335:if object exist(t)=1:if object position z(t)=-1000:inc cleared:endif:endif:next t:print "Blocks cleared: ",cleared,"/225":if cleared=>225:cls:center text 320,230,"Well Done":center text 320,250,"You scored "+str$(score)+" points!":sync:wait mouse:end:endif
if scoreup>150:inc texty,5:set text size texty:center text 320,240+texty,str$(scoreup)+" POINTS":endif:if camx#=75:camdown=1:endif:if camx#=-75:camdown=0:endif:if camdown=0:camx#=camx#+0.5:else:camx#=camx#-0.5:endif:position camera camxpos#+(camx#/2),camypos#-(camx#/3),-350:point camera camxpos#,camypos#,0:sync:loop

`Code by EvMaster

Let me know what you think.
Remeber to try the media version if you like this, coz it's much better.
-Ev

AMD939 3500+, Gigabyte PCI-E X800XL 256mb, 1024mb RAM
Logitech Z680 5.1 Speakers

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 23rd Jul 2005 06:55 Edited at: 23rd Jul 2005 06:57

Link

EvMaster, good job. I think it needs a little more development in the playability department.

1) There is a bug that won't let me select all adjacent blocks of the same color. Not sure if this was intentional, but it didn't "feel" right.
2) Once the game is pretty much over - that is to say, no more points can be earned - the game goes on. If the game were to continue itself, let's say a new level or just start over again, then one would have to clear the board completely or stop the game. As it is right now, this is okay since the game closes out anyway.
3) Another "feeling" I got was that there are a lot of wasted moves just trying to get the blocks down to align them up. That in turn diminished the sense of strategy the game had when it started.

I hope you take this as constructive feedback - that's the intent. I think you have a great start and can actually end up with a BeJeweled competitor.

As far as responses to your thread here (trust me on this one), it seems to take a while. I think people visit the 20 Line Challenge board only once in a while; perhaps maybe once a week or so. I might be wrong, but take a look at the thread response-to-age ratio (like 1.3 responses per day - or whatever) and compare to the DBPro Discussion board. Anyway - just a little patience is needed, that's all.

"Droids don't rip your arms off when they lose." -H. Solo
REALITY II

Back to top

Profile PM Email

Crazy Programmer

AGK Developer

19

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Lost in AGK

Posted: 31st Jul 2005 22:30

Link

Nice job

Back to top

Profile PM Email Website

EvMaster

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: Australia

Posted: 1st Aug 2005 08:26

Link

Thanks for the feedback.
RiiDii:
1) Yeah I know that, it would have taken a while to get the other blocks to respond, so I left it as part of the strategy

2) If you plan it out you can still get more points, right up until there's only a handful left to clear.

3) Another strategy thing, I had it set up so when you clear a column it would move all the columns right of that one to the left one space, if that makes sense. Like Tetris... only vertical... and opposite... Anyway, that worked, but it had some unexplained bugs that turned up everynow and then.
I can post that code if you're interested.

Thanks
-Ev

AMD939 3500+, Gigabyte PCI-E X800XL 256mb, 1024mb RAM
Logitech Z680 5.1 Speakers

Back to top

Profile PM Email Website

Sorry your browser is not supported!

The 20 Line Challenge / Colour Cubes - Puzzle Game for 20 Line Compo

Attachments