Well today, I started this 20 line project and within about an hour, I had finished this rather simple but somewhat fun game.
I coded it in Dark BASIC Pro, version 6.3 and the only special effect it uses is shadow shading but that comes with 6.3.
Rem Project: Box drop
Rem Created: 01/08/2007 12:40:25
Rem ***** Main Source File *****
sync on : sync rate 50 : load image "Images\Box.bmp",1 : load object "Objects\Man.x",1 : set shadow shading on 1 : make object box 2,100,5,50 : position object 2,0,-8,0 : color object 2,196416 : make object cube 3,5 : position object 3,-50,125,0 : make object cube 4,5 : position object 4,50,125,0 : make object cube 5,5 : position object 5,0,125,0 : color backdrop 0 : AVAL=0 : CVAL=6
do
if AVAL=0 then move object left 5,1 : move object up 5,1
if AVAL=1 then move object right 5,1 : move object up 5,1
if object collision (5,4) then AVAL=0
if object collision (5,3) then AVAL=1
if BVAL=5 then make object cube CVAL,5 : position object CVAL,object position x(5),object position y(5),0 : texture object CVAL,1 : set shadow shading on CVAL, : inc CVAL
if DVAL>0 then inc EVAL,10 : delete object DVAL
if leftkey()=1 then move object left 1,2
if rightkey()=1 then move object right 1,2
set point light 0,0,object position y(1)+1000,0 : set light range 0,100000 : set shadow position 0,0,object position y(1)+1000,0 : BVAL=rnd(25) : DVAL=object collision (1,0) : move object up 1,1 : move object up 2,1 : move object up 3,1 : move object up 4,1 : position camera 0,object position y(1)+25,-50 : point camera 0,object position y(1),0 : text 0,0,"Points: "+str$(EVAL) : sync : loop
Media is attatched and should be extracted in the same folder as the executable.
Enjoy
Cowbox
Soharix HQ
http://www.soharix.homestead.com/
<a href="http://www.soharix.homestead.com/Recre_John_Hits.html"<img
src="http://i2.photobucket.com/albums/y20/Joeeigel/rj07.png"></a>