Hello,
This is my latest 20 Lines attempt. Here is the idea:
You have a tower, it is effected by wind and giant boulders. It leans left or right, depends on how you control it(using left or right arrow keys). If a boulder hits you left There is also wind(East or West which effects tower too). You are to control the tower for as long as possible so it doesn't hit the ground.
Here is the source:
`V1.04&&&&&&&&&&&&&&&&&V1.04
`&&&&&&&&&&&&&&&&&&&&&&&&&&&
`&& MINI TOWER CHALLANGE2 &&
`&&&&& By: Michael K. &&&&&&
`&&& 20 Lines Challange &&&&
`&&&&&&&&&&&&&&&&&&&&&&&&&&&
`&&&&&&&&&&&&&&&&&&&&&&&&&&&
`V1.04&&&&&&&&&&&&&&&&&V1.04
dim towerX#(15):dim towerY#(15):dim bad(10):dim badX#(10):sync on
for i=1 to 15:TowerY#(i)=480-i*20:TowerX#(i)=320:next i
newgame:
center text 320,270,"Press any key to start!":suspend for key:score#=0:m#=rnd(2)-1
n#=180:Wind=1:wind=rnd(1):if wind=1 then Wind$="West" else wind$="East"
for i=1 to 10:bad(i)=0:next i:time=timer():do
n#=n#+M#:for s=1 to 15:ink rgb(255/s,255/s,255/s),0:box s,s,640-s,480-s:next s
ink rgb(255,255,0),0:if TowerY#(15)>310 then ink rgb(255,0,0),0:center text 590,460,"WARNING!":ink rgb(255,255,0),0 else ink rgb(0,255,0),0:center text 590,460,"GOOD JOB!"
ink rgb(255,255,0),0:center text 320,30,"/Mini Tower Challange 2 - By: PiratSS":text 150,50," | Current Score: "+str$(score#)+" | Wind Direction: "+wind$+" | Time: "+STR$((timer()-time)/1000)+ " |"+" Fps: "+str$(screen fps())+" |":if rnd(10)=1:o=o+1
ball=(rnd(1)):if bad(o)=0 then bad(o)=ball+1:badx#(o)=ball*640:endif:if wind=1 then m#=m#+(N#/90000) else m#=m#-(N#/90000)
for i=1 to 10:if bad(i)>0:if bad(i)=2:circle badx#(i)+100,465,10:if badx#(i)>245 then badx#(i)=badx#(i)-5 else m#=m#+1+(timer()-time)/100000:bad(i)=0:badx#(i)=0:o=0:score#=score#+25
else:if bad(i)=1:circle badx#(i)+100,465,10
if badx#(i)<195 then badx#(i)=badx#(i)+5 else m#=m#-1-(timer()-time)/100000:bad(i)=0:badx#(i)=0:o=0:score#=score#+25
endif:endif:endif:next i:for i=1 to 15
if n#<90 or n#>270:center text 320,240,"You loose! "+" Your score: "+str$(score#)+" Your time: "+str$((timer()-time)/1000)+"(in seconds)":goto newgame:endif:if n#>180 then m#=m#+(N#/70000) else m#=m#-(N#/70000)
TowerY#(i)=(Cos(n#)*i*(38-i))+500:TowerX#(i)=(Sin(n#)*i*i)+320:if i<15 then ink rgb(255-i*12,i*12,255),0:circle Towerx#(i),TowerY#(i),16-i else ink rgb(255,0,0),0:circle Towerx#(i),TowerY#(i),4
next i:ink rgb(190,190,190),0:line TowerX#(15),TowerY#(15)-5,TowerX#(15),10:circle TowerX#(15)+5,10,5:circle TowerX#(15)+55,10,5
line TowerX#(15)+5,5,TowerX#(15)+55,5:box 1,7,TowerX#(15),12:box TowerX#(15)+60,7,639,12:line TowerX#(15)+5,15,TowerX#(15)+55,15
if leftkey()=1:m#=m#+.13:endif:if rightkey()=1:m#=m#-.13
endif:box TowerX#(15)+50,540-TowerY#(15)+10,TowerX#(15)+70,580-TowerY#(15)+5:line TowerX#(15)+60,540-TowerY#(15)-5,TowerX#(15)+60,10:sync:loop
You can find compiled version of Mini Tower here:
http://www24.brinkster.com/piratss/Compiled.html
This works under DBC, I am not sure if it does with DBPro, so if anyone want to check that out
My highest score was 4100 in 49 Seconds(In the old version) Beat that!
Here are few updates in new version:
-Ability to restart
-Tower now bends(so cool)
-Top of tower is red
-Controls are a bit easier now.
-Tower looks more like a real tower(circles seperated equally!)
Cheers.
There are two types of people in the world: The ones who summon and the ones that create. There is a big difference...