DBP - Airborne Defense - 3D Action Clickfest!

Author

Message

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 15th May 2006 06:16 Edited at: 16th May 2006 17:43

Link

back from a hiatus of insanity,
IBOL returns to the 20-line challenge.

this 3d shooter features innovative action, progressively harder levels,
timer-based movement, and even saves your high scores!
no media, the program does it all in just 18 lines.

screenshot:

Code as 20-Liner:

set display mode 640,480,32 : sync on : sync rate 0 :  sync :   randomize timer() :   autocam off :    color backdrop 0 :     hide mouse : dim level(50) : level(1)=1 : MGS#=0.01225 :  nme=4 :  shot#=0.0 :  newEX=0 :  global gs# : SET TEXT FONT "ARIAL" : SET TEXT SIZE 28 : SET TEXT TO BOLD : shots=1 : hits=1
if file exist("AirborneDefenseHighScores.txt") :  open to read 1,"AirborneDefenseHighScores.txt" :  read long 1,HiScore :  close file 1 : endif : make object cube 1,1 : yrotate object 1,45 : make mesh from object 1,1 : yrotate object 1,0 : scale object 1,250,250,250 : add limb 1,1,1 : offset limb 1,1,-.5,-.5,-.5 : add limb 1,2,1 : offset limb 1,2,.5,-.5,.5 : add limb 1,3,1 : offset limb 1,3,.5,-.5,-.5 : add limb 1,4,1 : offset limb 1,4,-.5,-.5,.5 :  scale object 1,180,280,180 :  make mesh from object 6,1 :   delete object 1
make object sphere 1,4.4 : make object cone 2,3 : xrotate object 2,180 : make mesh from object 3,2 : add limb 1,1,3 : offset limb 1,1,0,-3,0 : make object cone 3,3 : scale object 3,100,100,10 : make mesh from object 4,3 : add limb 1,2,4 : add limb 1,3,4 : rotate limb 1,3,0,90,0 : offset limb 1,2,0,-3,0 : offset limb 1,3,0,-3,0 : make mesh from object 5,1 : delete object 1 : delete object 2 : delete object 3
create bitmap 1,16,16 : box 0,0,15,15,0,0,0,0 : for g=1 to 300 :  dot rnd(15),rnd(15),rgb(rnd(50),100+rnd(100),rnd(100)) : next g :  get image 11,0,0,15,15 :  delete bitmap 1 : make object cone 10,5 : scale object 10,35,150,35 : make object cone 11,9 : scale object 11,120,45,120 : make mesh from object 11,11 : add limb 10,1,11 : scale limb 10,1,50,50,50 : offset limb 10,1,0,3,0 :  add limb 10,2,11 :   add limb 10,3,11 :    scale limb 10,3,135,135,135 :    offset limb 10,3,0,-3,0 :     make mesh from object 10,10
for g=2001 to 2050 :       make object g,10,11 :       scale object g,150+rnd(150),150+rnd(150),150+rnd(150) :        repeat :       a=rnd(300)-150 :       b=rnd(300)-150 :        until (a>50 or a<-50) or (b>50 or b<-50) :         position object g,a,0,b :          set object light g,0 :      next g
delete object 10 : delete object 11 : create bitmap 1,16,16 :  box 0,0,15,15 :  ink rgb(173,23,223),0 : for t=0 to 16 step 4 :   for u=0 to 16 step 4 :    box t,u,t+2,u+2 :   next u : next t :  get image 1,0,0,15,15 :   delete bitmap 1 :create bitmap 1,16,16 : ink RGB(255,128,64),0 : box 0,0,15,15 : ink RGB(0,128,64),0 :  circle 7,7,3 :  circle 7,7,5 : get image 2,0,0,15,15 :delete bitmap 1
create bitmap 1,640,480 : for t=0 to 5 :  ink rgb(255-t*30,255-t*30,255-t*30),0 :  box t,t,640-t,480-t : next t :  for y=5 to 475 :   ink rgb(y/3,y/5,y/2),0 :   line 5,y,635,y :  next y :  ink 0,0 :  box 150,0,490,400 : get image 3,0,0,640,480 : delete bitmap 1 : create bitmap 1,16,16 :  ink rgb(0,255,0),0 :  box 0,0,15,15 :  for t=1 to 100 : dot rnd(15),rnd(15),rgb(rnd(50),100+rnd(100),rnd(50)) :  next t : get image 4,0,0,15,15 : delete bitmap 1
create bitmap 1,32,32 :  ink rgb(0,0,200),0 :  box 0,0,31,31 : ink rgb(255,255,255),0 : for g=1 to 500 :  dot rnd(31),rnd(31) : next g : for t=15 to 20 : ink RGB(128+rnd(32),64+rnd(16),0),0 : line 0,t,31,t : next t : blur bitmap 1,1.25 : get image 5,0,0,31,31 : delete bitmap 1 : create bitmap 1,2,2 : dot 0,0,rgb(255,0,0) : get image 6,0,0,1,1 : delete bitmap 1 : make object sphere 500,300 : set object cull 500,0 : set object light 500,0 : texture object 500,5 : set object collision off 500
ink rgb(155,155,255),0 : for t=1 to 10 : for u=1 to 10 : inc x : make object x,6,1 : set object collision to boxes x : position object x,t*7-35,0,u*7-35 : next u : next t : for t=0 to 9 : for u=0 to 9 : x=1000+(t*10)+u : make object sphere x,0.55 : set object collision off x : texture object x,6 : next u : next t : make matrix 1,400,400,48,48 : position matrix 1,-200,-7,-200 : prepare matrix texture 1,4,1,1 : fill matrix 1,0,1 : randomize matrix 1,6 : update matrix 1
MOVE CAMERA -75 : sync : INK 0,0 : paste image 3,0,0,1 : center text 320,20,"AIRBORNE DEFENSE" : center text 320,60,"Use mouse and left click to" : center text 320,80,"shoot enemies as they" : center text 320,100,"try to steal your blocks." : center text 320,140,"Score more points for" : center text 320,160,"enemies carrying blocks." : center text 320,270,"Game ends when you have" : center text 320,290,"less than 10 blocks left." : center text 320,330,"Click Mouse To Begin!" : sync : repeat : until mouseclick() :  t1#=timer() : position mouse 320,120
do : paste image 3,0,0,1 : gs#=((timer()-t1#)*MGS#) : t1#=timer() :  walk#=wrapvalue(walk#+gs#) : position camera 0,sin(walk#)*115,55,cos(walk#)*115 : point camera 0,0,0,0 : for t=1 to 100 :  if object visible(t) :  if object position y(t)>0 :  move object down t,gs# : endif : endif : next t : for t=101 to 100+nme :  if object exist(t)=0 : make object t,5,2 : set object collision to boxes t : set object light t,0 : position object t,(rnd(9)+1)*7-35,70+rnd(9),(rnd(9)+1)*7-35 : endif : if object exist(t) : if object visible(t) : move object down t,gs#*2 : v=object collision(t,0)
if v>0 and v<101 : move object up t,gs#*6 : move object up v,gs#*5.1 : endif : if object position y(t)>80 or object position y(t)<-10 : if v>0 and v<101 : hide object v : position object v,-999,-999,-999 : set object collision off v : endif : position object t,(rnd(9)+1)*7-35,70+rnd(9),(rnd(9)+1)*7-35 : endif : endif : endif : next t
dec shot#,gs# : if shot#>0 : ink rgb(0,0,100),0 : else : ink rgb(255,0,0),0 : endif : for t=3 to 5 : circle mousex(),mousey(),t : next t : if mouseclick() : if shot#<0.0 : shot#=3.75 : inc shots : a=pick object(mousex(),mousey(),101,100+nme) : if a>99 : if NewEX>8 : NewEX=0 : endif
inc score,10+(level/5)*5 :  inc hits : for f=1 to 100 : if object visible(f) : if object collision(a,f)=1 :  inc score,10+(level*5) : exit : endif : endif : next f : for u=1 to 10 : x=1000+(NewEX*10)+u : position object x,object position x(a),object position y(a),object position z(a) : rotate object x,rnd(359),rnd(359),rnd(359) : next u : inc NewEX : position object a,0,90,0 : endif : endif : endif
for t=0 to 9 : for u=0 to 9 : x=1000+(t*10)+u : move object x,gs#*3.357 : next u : next t : level=score/250+1 : if level>50 : level=50 : endif : if level(level)=0 :  level(level)=1 :  if level mod 2=0 :   inc nme :  else :   inc MGS#,0.0025 :  endif : endif : ink rgb(155,155,255),0 : cubes=0 : for t=1 to 100 :  if object visible(t) : inc cubes : endif : next t
center text 70,50,"SCORE" : CENTER TEXT 70,68,STR$(SCORE) :  center text 70,100,"BLOCKS" :  CENTER TEXT 70,118,STR$(CUBES) :   center text 70,150,"LEVEL" :   CENTER TEXT 70,168,STR$(LEVEL) : center text 560,50,"SHOTS" : CENTER TEXT 560,68,STR$(SHOTS-1) :  center text 560,100,"HITS" :  CENTER TEXT 560,118,STR$(HITS-1) :   center text 560,150,"RATIO" :    R#=(100.0*(HITS))/(SHOTS) :   CENTER TEXT 560,168,STR$(int(r#))+"%" :     center text 320,420,"HIGH SCORE" :     center text 324,440,str$(hiscore)
if cubes<10 : ink 0,0 : center text 320,70,"GAME OVER!" : center text 320,95,"Your Final Score:" : center text 320,115,str$(score) : center text 320,305,"(click mouse to exit)" : if score>HiScore : center text 320,200,"YOU GOT THE" : CENTER TEXT 320,220,"NEW HIGH SCORE!" : if file exist("AirborneDefenseHighScores.txt") : delete file "AirborneDefenseHighScores.txt" :  endif : open to write 1,"AirborneDefenseHighScores.txt" :  write long 1,score :  close file 1 : endif :  sync :   wait 3000 : repeat : until mouseclick() :    end : endif
sync : loop

+ Code Snippet

set display mode 640,480,32 : sync on : sync rate 0 :  sync :   randomize timer() :   autocam off :    color backdrop 0 :     hide mouse : dim level(50) : level(1)=1 : MGS#=0.01225 :  nme=4 :  shot#=0.0 :  newEX=0 :  global gs# : SET TEXT FONT "ARIAL" : SET TEXT SIZE 28 : SET TEXT TO BOLD : shots=1 : hits=1
if file exist("AirborneDefenseHighScores.txt") :  open to read 1,"AirborneDefenseHighScores.txt" :  read long 1,HiScore :  close file 1 : endif : make object cube 1,1 : yrotate object 1,45 : make mesh from object 1,1 : yrotate object 1,0 : scale object 1,250,250,250 : add limb 1,1,1 : offset limb 1,1,-.5,-.5,-.5 : add limb 1,2,1 : offset limb 1,2,.5,-.5,.5 : add limb 1,3,1 : offset limb 1,3,.5,-.5,-.5 : add limb 1,4,1 : offset limb 1,4,-.5,-.5,.5 :  scale object 1,180,280,180 :  make mesh from object 6,1 :   delete object 1
make object sphere 1,4.4 : make object cone 2,3 : xrotate object 2,180 : make mesh from object 3,2 : add limb 1,1,3 : offset limb 1,1,0,-3,0 : make object cone 3,3 : scale object 3,100,100,10 : make mesh from object 4,3 : add limb 1,2,4 : add limb 1,3,4 : rotate limb 1,3,0,90,0 : offset limb 1,2,0,-3,0 : offset limb 1,3,0,-3,0 : make mesh from object 5,1 : delete object 1 : delete object 2 : delete object 3
create bitmap 1,16,16 : box 0,0,15,15,0,0,0,0 : for g=1 to 300 :  dot rnd(15),rnd(15),rgb(rnd(50),100+rnd(100),rnd(100)) : next g :  get image 11,0,0,15,15 :  delete bitmap 1 : make object cone 10,5 : scale object 10,35,150,35 : make object cone 11,9 : scale object 11,120,45,120 : make mesh from object 11,11 : add limb 10,1,11 : scale limb 10,1,50,50,50 : offset limb 10,1,0,3,0 :  add limb 10,2,11 :   add limb 10,3,11 :    scale limb 10,3,135,135,135 :    offset limb 10,3,0,-3,0 :     make mesh from object 10,10
for g=2001 to 2050 :       make object g,10,11 :       scale object g,150+rnd(150),150+rnd(150),150+rnd(150) :        repeat :       a=rnd(300)-150 :       b=rnd(300)-150 :        until (a>50 or a<-50) or (b>50 or b<-50) :         position object g,a,0,b :          set object light g,0 :      next g
delete object 10 : delete object 11 : create bitmap 1,16,16 :  box 0,0,15,15 :  ink rgb(173,23,223),0 : for t=0 to 16 step 4 :   for u=0 to 16 step 4 :    box t,u,t+2,u+2 :   next u : next t :  get image 1,0,0,15,15 :   delete bitmap 1 :create bitmap 1,16,16 : ink RGB(255,128,64),0 : box 0,0,15,15 : ink RGB(0,128,64),0 :  circle 7,7,3 :  circle 7,7,5 : get image 2,0,0,15,15 :delete bitmap 1
create bitmap 1,640,480 : for t=0 to 5 :  ink rgb(255-t*30,255-t*30,255-t*30),0 :  box t,t,640-t,480-t : next t :  for y=5 to 475 :   ink rgb(y/3,y/5,y/2),0 :   line 5,y,635,y :  next y :  ink 0,0 :  box 150,0,490,400 : get image 3,0,0,640,480 : delete bitmap 1 : create bitmap 1,16,16 :  ink rgb(0,255,0),0 :  box 0,0,15,15 :  for t=1 to 100 : dot rnd(15),rnd(15),rgb(rnd(50),100+rnd(100),rnd(50)) :  next t : get image 4,0,0,15,15 : delete bitmap 1
create bitmap 1,32,32 :  ink rgb(0,0,200),0 :  box 0,0,31,31 : ink rgb(255,255,255),0 : for g=1 to 500 :  dot rnd(31),rnd(31) : next g : for t=15 to 20 : ink RGB(128+rnd(32),64+rnd(16),0),0 : line 0,t,31,t : next t : blur bitmap 1,1.25 : get image 5,0,0,31,31 : delete bitmap 1 : create bitmap 1,2,2 : dot 0,0,rgb(255,0,0) : get image 6,0,0,1,1 : delete bitmap 1 : make object sphere 500,300 : set object cull 500,0 : set object light 500,0 : texture object 500,5 : set object collision off 500
ink rgb(155,155,255),0 : for t=1 to 10 : for u=1 to 10 : inc x : make object x,6,1 : set object collision to boxes x : position object x,t*7-35,0,u*7-35 : next u : next t : for t=0 to 9 : for u=0 to 9 : x=1000+(t*10)+u : make object sphere x,0.55 : set object collision off x : texture object x,6 : next u : next t : make matrix 1,400,400,48,48 : position matrix 1,-200,-7,-200 : prepare matrix texture 1,4,1,1 : fill matrix 1,0,1 : randomize matrix 1,6 : update matrix 1
MOVE CAMERA -75 : sync : INK 0,0 : paste image 3,0,0,1 : center text 320,20,"AIRBORNE DEFENSE" : center text 320,60,"Use mouse and left click to" : center text 320,80,"shoot enemies as they" : center text 320,100,"try to steal your blocks." : center text 320,140,"Score more points for" : center text 320,160,"enemies carrying blocks." : center text 320,270,"Game ends when you have" : center text 320,290,"less than 10 blocks left." : center text 320,330,"Click Mouse To Begin!" : sync : repeat : until mouseclick() :  t1#=timer() : position mouse 320,120
do : paste image 3,0,0,1 : gs#=((timer()-t1#)*MGS#) : t1#=timer() :  walk#=wrapvalue(walk#+gs#) : position camera 0,sin(walk#)*115,55,cos(walk#)*115 : point camera 0,0,0,0 : for t=1 to 100 :  if object visible(t) :  if object position y(t)>0 :  move object down t,gs# : endif : endif : next t : for t=101 to 100+nme :  if object exist(t)=0 : make object t,5,2 : set object collision to boxes t : set object light t,0 : position object t,(rnd(9)+1)*7-35,70+rnd(9),(rnd(9)+1)*7-35 : endif : if object exist(t) : if object visible(t) : move object down t,gs#*2 : v=object collision(t,0)
if v>0 and v<101 : move object up t,gs#*6 : move object up v,gs#*5.1 : endif : if object position y(t)>80 or object position y(t)<-10 : if v>0 and v<101 : hide object v : position object v,-999,-999,-999 : set object collision off v : endif : position object t,(rnd(9)+1)*7-35,70+rnd(9),(rnd(9)+1)*7-35 : endif : endif : endif : next t
dec shot#,gs# : if shot#>0 : ink rgb(0,0,100),0 : else : ink rgb(255,0,0),0 : endif : for t=3 to 5 : circle mousex(),mousey(),t : next t : if mouseclick() : if shot#<0.0 : shot#=3.75 : inc shots : a=pick object(mousex(),mousey(),101,100+nme) : if a>99 : if NewEX>8 : NewEX=0 : endif
inc score,10+(level/5)*5 :  inc hits : for f=1 to 100 : if object visible(f) : if object collision(a,f)=1 :  inc score,10+(level*5) : exit : endif : endif : next f : for u=1 to 10 : x=1000+(NewEX*10)+u : position object x,object position x(a),object position y(a),object position z(a) : rotate object x,rnd(359),rnd(359),rnd(359) : next u : inc NewEX : position object a,0,90,0 : endif : endif : endif
for t=0 to 9 : for u=0 to 9 : x=1000+(t*10)+u : move object x,gs#*3.357 : next u : next t : level=score/250+1 : if level>50 : level=50 : endif : if level(level)=0 :  level(level)=1 :  if level mod 2=0 :   inc nme :  else :   inc MGS#,0.0025 :  endif : endif : ink rgb(155,155,255),0 : cubes=0 : for t=1 to 100 :  if object visible(t) : inc cubes : endif : next t
center text 70,50,"SCORE" : CENTER TEXT 70,68,STR$(SCORE) :  center text 70,100,"BLOCKS" :  CENTER TEXT 70,118,STR$(CUBES) :   center text 70,150,"LEVEL" :   CENTER TEXT 70,168,STR$(LEVEL) : center text 560,50,"SHOTS" : CENTER TEXT 560,68,STR$(SHOTS-1) :  center text 560,100,"HITS" :  CENTER TEXT 560,118,STR$(HITS-1) :   center text 560,150,"RATIO" :    R#=(100.0*(HITS))/(SHOTS) :   CENTER TEXT 560,168,STR$(int(r#))+"%" :     center text 320,420,"HIGH SCORE" :     center text 324,440,str$(hiscore)
if cubes<10 : ink 0,0 : center text 320,70,"GAME OVER!" : center text 320,95,"Your Final Score:" : center text 320,115,str$(score) : center text 320,305,"(click mouse to exit)" : if score>HiScore : center text 320,200,"YOU GOT THE" : CENTER TEXT 320,220,"NEW HIGH SCORE!" : if file exist("AirborneDefenseHighScores.txt") : delete file "AirborneDefenseHighScores.txt" :  endif : open to write 1,"AirborneDefenseHighScores.txt" :  write long 1,score :  close file 1 : endif :  sync :   wait 3000 : repeat : until mouseclick() :    end : endif
sync : loop

and here's the code all spread out so you can look at it:

set display mode 640,480,32
sync on
sync rate 0
 sync
  randomize timer()
  autocam off
   color backdrop 0
    hide mouse
dim level(50)
level(1)=1
MGS#=0.01225
 nme=4
 shot#=0.0
 newEX=0
 global gs#
SET TEXT FONT "ARIAL"
SET TEXT SIZE 28
SET TEXT TO BOLD
shots=1
hits=1

if file exist("AirborneDefenseHighScores.txt")
 open to read 1,"AirborneDefenseHighScores.txt"
 read long 1,HiScore
 close file 1
endif
make object cube 1,1
yrotate object 1,45
make mesh from object 1,1
yrotate object 1,0
scale object 1,250,250,250
add limb 1,1,1
offset limb 1,1,-.5,-.5,-.5
add limb 1,2,1
offset limb 1,2,.5,-.5,.5
add limb 1,3,1
offset limb 1,3,.5,-.5,-.5
add limb 1,4,1
offset limb 1,4,-.5,-.5,.5
 scale object 1,180,280,180
 make mesh from object 6,1
  delete object 1

make object sphere 1,4.4
make object cone 2,3
xrotate object 2,180
make mesh from object 3,2
add limb 1,1,3
offset limb 1,1,0,-3,0
make object cone 3,3
scale object 3,100,100,10
make mesh from object 4,3
add limb 1,2,4
add limb 1,3,4
rotate limb 1,3,0,90,0
offset limb 1,2,0,-3,0
offset limb 1,3,0,-3,0
make mesh from object 5,1
delete object 1
delete object 2
delete object 3

create bitmap 1,16,16
box 0,0,15,15,0,0,0,0
for g=1 to 300
 dot rnd(15),rnd(15),rgb(rnd(50),100+rnd(100),rnd(100))
next g
 get image 11,0,0,15,15
 delete bitmap 1

make object cone 10,5
scale object 10,35,150,35
make object cone 11,9
scale object 11,120,45,120
make mesh from object 11,11
add limb 10,1,11
scale limb 10,1,50,50,50
offset limb 10,1,0,3,0
 add limb 10,2,11
  add limb 10,3,11
   scale limb 10,3,135,135,135
   offset limb 10,3,0,-3,0
    make mesh from object 10,10
     for g=2001 to 2050
      make object g,10,11
      scale object g,150+rnd(150),150+rnd(150),150+rnd(150)
       repeat
      a=rnd(300)-150
      b=rnd(300)-150
       until (a>50 or a<-50) or (b>50 or b<-50)
        position object g,a,0,b
         set object light g,0
     next g

delete object 10
delete object 11
create bitmap 1,16,16 :
 box 0,0,15,15 :
 ink rgb(173,23,223),0 :
 for t=0 to 16 step 4 :
   for u=0 to 16 step 4 :
    box t,u,t+2,u+2 :
   next u :
 next t :
  get image 1,0,0,15,15 :
   delete bitmap 1 :
create bitmap 1,16,16 :
 ink RGB(255,128,64),0 :
 box 0,0,15,15 :
 ink RGB(0,128,64),0 :
  circle 7,7,3 :
  circle 7,7,5 :
 get image 2,0,0,15,15 :
delete bitmap 1 :

create bitmap 1,640,480
for t=0 to 5
 ink rgb(255-t*30,255-t*30,255-t*30),0
 box t,t,640-t,480-t
next t
 for y=5 to 475
  ink rgb(y/3,y/5,y/2),0
  line 5,y,635,y
 next y
 ink 0,0
 box 150,0,490,400
get image 3,0,0,640,480
delete bitmap 1
create bitmap 1,16,16
 ink rgb(0,255,0),0
 box 0,0,15,15
 for t=1 to 100
dot rnd(15),rnd(15),rgb(rnd(50),100+rnd(100),rnd(50))
 next t
get image 4,0,0,15,15
delete bitmap 1

create bitmap 1,32,32
 ink rgb(0,0,200),0
 box 0,0,31,31
ink rgb(255,255,255),0
for g=1 to 500
 dot rnd(31),rnd(31)
next g
for t=15 to 20
ink RGB(128+rnd(32),64+rnd(16),0),0
line 0,t,31,t
next t
blur bitmap 1,1.25
get image 5,0,0,31,31
delete bitmap 1
create bitmap 1,2,2
dot 0,0,rgb(255,0,0)
get image 6,0,0,1,1
delete bitmap 1
make object sphere 500,300
set object cull 500,0
set object light 500,0
texture object 500,5
set object collision off 500

ink rgb(155,155,255),0
for t=1 to 10
for u=1 to 10
inc x
make object x,6,1
set object collision to boxes x
position object x,t*7-35,0,u*7-35
next u
next t
for t=0 to 9
for u=0 to 9
x=1000+(t*10)+u
make object sphere x,0.55
set object collision off x
texture object x,6
next u
next t
make matrix 1,400,400,48,48
position matrix 1,-200,-7,-200
prepare matrix texture 1,4,1,1
fill matrix 1,0,1
randomize matrix 1,6
update matrix 1
 t1#=timer()

MOVE CAMERA -75

sync

INK 0,0
paste image 3,0,0,1
center text 320,20,"AIRBORNE DEFENSE"
center text 320,60,"Use mouse and left click to"
center text 320,80,"shoot enemies as they"
center text 320,100,"try to steal your blocks."
center text 320,140,"Score more points for"
center text 320,160,"enemies carrying blocks."
center text 320,270,"Game ends when you have"
center text 320,290,"less than 10 blocks left."
center text 320,330,"Click Mouse To Begin!"

sync

repeat
until mouseclick()

do
paste image 3,0,0,1
gs#=((timer()-t1#)*MGS#) : t1#=timer()
 walk#=wrapvalue(walk#+gs#)
position camera 0,sin(walk#)*115,55,cos(walk#)*115
point camera 0,0,0,0
for t=1 to 100 :  if object visible(t)
 if object position y(t)>0
 move object down t,gs#
endif
endif
next t
for t=101 to 100+nme
 if object exist(t)=0
make object t,5,2
set object collision to boxes t
set object light t,0
position object t,(rnd(9)+1)*7-35,70+rnd(9),(rnd(9)+1)*7-35
endif : if object exist(t)
if object visible(t)
move object down t,gs#*2
v=object collision(t,0)

if v>0 and v<101
move object up t,gs#*6
move object up v,gs#*5.1
endif
if object position y(t)>80 or object position y(t)<-10
if v>0 and v<101
hide object v
position object v,-999,-999,-999
set object collision off v
endif
position object t,(rnd(9)+1)*7-35,70+rnd(9),(rnd(9)+1)*7-35
endif
endif
endif
next t

dec shot#,gs#
if shot#>0
ink rgb(0,0,100),0
else
ink rgb(255,0,0),0
endif
for t=3 to 5
circle mousex(),mousey(),t
next t
if mouseclick()
if shot#<0.0
shot#=3.75
inc shots
a=pick object(mousex(),mousey(),101,100+nme)
if a>99
if NewEX>8
NewEX=0
endif

inc score,10+(level/5)*5
 inc hits
for f=1 to 100
if object visible(f)
if object collision(a,f)=1
 inc score,10+(level*5) : exit
endif
endif
next f
for u=1 to 10
x=1000+(NewEX*10)+u
position object x,object position x(a),object position y(a),object position z(a)
rotate object x,rnd(359),rnd(359),rnd(359)
next u
inc NewEX
position object a,0,90,0
endif
endif
endif

for t=0 to 9
for u=0 to 9
x=1000+(t*10)+u
move object x,gs#*3.357
next u
next t
level=score/250+1
if level>50 then level=50
if level(level)=0
 level(level)=1
 if level mod 2=0
  inc nme
 else
  inc MGS#,0.0025
 endif
endif
ink rgb(155,155,255),0
cubes=0
for t=1 to 100
 if object visible(t) then inc cubes
next t

center text 70,50,"SCORE"
CENTER TEXT 70,68,STR$(SCORE)
 center text 70,100,"BLOCKS"
 CENTER TEXT 70,118,STR$(CUBES)
  center text 70,150,"LEVEL"
  CENTER TEXT 70,168,STR$(LEVEL)
center text 560,50,"SHOTS"
CENTER TEXT 560,68,STR$(SHOTS-1)
 center text 560,100,"HITS"
 CENTER TEXT 560,118,STR$(HITS-1)
  center text 560,150,"RATIO"
   R#=(100.0*(HITS))/(SHOTS)
  CENTER TEXT 560,168,STR$(int(r#))+"%"
    center text 320,420,"HIGH SCORE"
    center text 324,440,str$(hiscore)

if cubes<10
ink 0,0
center text 320,70,"GAME OVER!"
center text 320,95,"Your Final Score:"
center text 320,115,str$(score)
center text 320,305,"(click mouse to exit)"
if score>HiScore
center text 320,200,"YOU GOT THE"
CENTER TEXT 320,220,"NEW HIGH SCORE!"
if file exist("AirborneDefenseHighScores.txt") THEN delete file "AirborneDefenseHighScores.txt"
 open to write 1,"AirborneDefenseHighScores.txt"
 write long 1,score
 close file 1
endif
 sync
  wait 3000
repeat
until mouseclick()
   end
endif

sync
loop

+ Code Snippet

set display mode 640,480,32
sync on
sync rate 0
 sync
  randomize timer()
  autocam off
   color backdrop 0
    hide mouse
dim level(50)
level(1)=1
MGS#=0.01225
 nme=4
 shot#=0.0
 newEX=0
 global gs#
SET TEXT FONT "ARIAL"
SET TEXT SIZE 28
SET TEXT TO BOLD
shots=1
hits=1

if file exist("AirborneDefenseHighScores.txt")
 open to read 1,"AirborneDefenseHighScores.txt"
 read long 1,HiScore
 close file 1
endif
make object cube 1,1
yrotate object 1,45
make mesh from object 1,1
yrotate object 1,0
scale object 1,250,250,250
add limb 1,1,1
offset limb 1,1,-.5,-.5,-.5
add limb 1,2,1
offset limb 1,2,.5,-.5,.5
add limb 1,3,1
offset limb 1,3,.5,-.5,-.5
add limb 1,4,1
offset limb 1,4,-.5,-.5,.5
 scale object 1,180,280,180
 make mesh from object 6,1
  delete object 1


make object sphere 1,4.4
make object cone 2,3
xrotate object 2,180
make mesh from object 3,2
add limb 1,1,3
offset limb 1,1,0,-3,0
make object cone 3,3
scale object 3,100,100,10
make mesh from object 4,3
add limb 1,2,4
add limb 1,3,4
rotate limb 1,3,0,90,0
offset limb 1,2,0,-3,0
offset limb 1,3,0,-3,0
make mesh from object 5,1
delete object 1
delete object 2
delete object 3

create bitmap 1,16,16
box 0,0,15,15,0,0,0,0
for g=1 to 300
 dot rnd(15),rnd(15),rgb(rnd(50),100+rnd(100),rnd(100))
next g
 get image 11,0,0,15,15
 delete bitmap 1

make object cone 10,5
scale object 10,35,150,35
make object cone 11,9
scale object 11,120,45,120
make mesh from object 11,11
add limb 10,1,11
scale limb 10,1,50,50,50
offset limb 10,1,0,3,0
 add limb 10,2,11
  add limb 10,3,11
   scale limb 10,3,135,135,135
   offset limb 10,3,0,-3,0
    make mesh from object 10,10
     for g=2001 to 2050
      make object g,10,11
      scale object g,150+rnd(150),150+rnd(150),150+rnd(150)
       repeat
      a=rnd(300)-150
      b=rnd(300)-150
       until (a>50 or a<-50) or (b>50 or b<-50)
        position object g,a,0,b
         set object light g,0
     next g

delete object 10
delete object 11
create bitmap 1,16,16 :
 box 0,0,15,15 :
 ink rgb(173,23,223),0 :
 for t=0 to 16 step 4 :
   for u=0 to 16 step 4 :
    box t,u,t+2,u+2 :
   next u :
 next t :
  get image 1,0,0,15,15 :
   delete bitmap 1 :
create bitmap 1,16,16 :
 ink RGB(255,128,64),0 :
 box 0,0,15,15 :
 ink RGB(0,128,64),0 :
  circle 7,7,3 :
  circle 7,7,5 :
 get image 2,0,0,15,15 :
delete bitmap 1 :

create bitmap 1,640,480
for t=0 to 5
 ink rgb(255-t*30,255-t*30,255-t*30),0
 box t,t,640-t,480-t
next t
 for y=5 to 475
  ink rgb(y/3,y/5,y/2),0
  line 5,y,635,y
 next y
 ink 0,0
 box 150,0,490,400
get image 3,0,0,640,480
delete bitmap 1
create bitmap 1,16,16
 ink rgb(0,255,0),0
 box 0,0,15,15
 for t=1 to 100
dot rnd(15),rnd(15),rgb(rnd(50),100+rnd(100),rnd(50))
 next t
get image 4,0,0,15,15
delete bitmap 1


create bitmap 1,32,32
 ink rgb(0,0,200),0
 box 0,0,31,31
ink rgb(255,255,255),0
for g=1 to 500
 dot rnd(31),rnd(31)
next g
for t=15 to 20
ink RGB(128+rnd(32),64+rnd(16),0),0
line 0,t,31,t
next t
blur bitmap 1,1.25
get image 5,0,0,31,31
delete bitmap 1
create bitmap 1,2,2
dot 0,0,rgb(255,0,0)
get image 6,0,0,1,1
delete bitmap 1
make object sphere 500,300
set object cull 500,0
set object light 500,0
texture object 500,5
set object collision off 500



ink rgb(155,155,255),0
for t=1 to 10
for u=1 to 10
inc x
make object x,6,1
set object collision to boxes x
position object x,t*7-35,0,u*7-35
next u
next t
for t=0 to 9
for u=0 to 9
x=1000+(t*10)+u
make object sphere x,0.55
set object collision off x
texture object x,6
next u
next t
make matrix 1,400,400,48,48
position matrix 1,-200,-7,-200
prepare matrix texture 1,4,1,1
fill matrix 1,0,1
randomize matrix 1,6
update matrix 1
 t1#=timer()

MOVE CAMERA -75

sync

INK 0,0
paste image 3,0,0,1
center text 320,20,"AIRBORNE DEFENSE"
center text 320,60,"Use mouse and left click to"
center text 320,80,"shoot enemies as they"
center text 320,100,"try to steal your blocks."
center text 320,140,"Score more points for"
center text 320,160,"enemies carrying blocks."
center text 320,270,"Game ends when you have"
center text 320,290,"less than 10 blocks left."
center text 320,330,"Click Mouse To Begin!"

sync

repeat
until mouseclick()

do
paste image 3,0,0,1
gs#=((timer()-t1#)*MGS#) : t1#=timer()
 walk#=wrapvalue(walk#+gs#)
position camera 0,sin(walk#)*115,55,cos(walk#)*115
point camera 0,0,0,0
for t=1 to 100 :  if object visible(t)
 if object position y(t)>0
 move object down t,gs#
endif
endif
next t
for t=101 to 100+nme
 if object exist(t)=0
make object t,5,2
set object collision to boxes t
set object light t,0
position object t,(rnd(9)+1)*7-35,70+rnd(9),(rnd(9)+1)*7-35
endif : if object exist(t)
if object visible(t)
move object down t,gs#*2
v=object collision(t,0)


if v>0 and v<101
move object up t,gs#*6
move object up v,gs#*5.1
endif
if object position y(t)>80 or object position y(t)<-10
if v>0 and v<101
hide object v
position object v,-999,-999,-999
set object collision off v
endif
position object t,(rnd(9)+1)*7-35,70+rnd(9),(rnd(9)+1)*7-35
endif
endif
endif
next t


dec shot#,gs#
if shot#>0
ink rgb(0,0,100),0
else
ink rgb(255,0,0),0
endif
for t=3 to 5
circle mousex(),mousey(),t
next t
if mouseclick()
if shot#<0.0
shot#=3.75
inc shots
a=pick object(mousex(),mousey(),101,100+nme)
if a>99
if NewEX>8
NewEX=0
endif

 inc score,10+(level/5)*5
 inc hits
for f=1 to 100
if object visible(f)
if object collision(a,f)=1
 inc score,10+(level*5) : exit
endif
endif
next f
for u=1 to 10
x=1000+(NewEX*10)+u
position object x,object position x(a),object position y(a),object position z(a)
rotate object x,rnd(359),rnd(359),rnd(359)
next u
inc NewEX
position object a,0,90,0
endif
endif
endif

for t=0 to 9
for u=0 to 9
x=1000+(t*10)+u
move object x,gs#*3.357
next u
next t
level=score/250+1
if level>50 then level=50
if level(level)=0
 level(level)=1
 if level mod 2=0
  inc nme
 else
  inc MGS#,0.0025
 endif
endif
ink rgb(155,155,255),0
cubes=0
for t=1 to 100
 if object visible(t) then inc cubes
next t


center text 70,50,"SCORE"
CENTER TEXT 70,68,STR$(SCORE)
 center text 70,100,"BLOCKS"
 CENTER TEXT 70,118,STR$(CUBES)
  center text 70,150,"LEVEL"
  CENTER TEXT 70,168,STR$(LEVEL)
center text 560,50,"SHOTS"
CENTER TEXT 560,68,STR$(SHOTS-1)
 center text 560,100,"HITS"
 CENTER TEXT 560,118,STR$(HITS-1)
  center text 560,150,"RATIO"
   R#=(100.0*(HITS))/(SHOTS)
  CENTER TEXT 560,168,STR$(int(r#))+"%"
    center text 320,420,"HIGH SCORE"
    center text 324,440,str$(hiscore)

if cubes<10
ink 0,0
center text 320,70,"GAME OVER!"
center text 320,95,"Your Final Score:"
center text 320,115,str$(score)
center text 320,305,"(click mouse to exit)"
if score>HiScore
center text 320,200,"YOU GOT THE"
CENTER TEXT 320,220,"NEW HIGH SCORE!"
if file exist("AirborneDefenseHighScores.txt") THEN delete file "AirborneDefenseHighScores.txt"
 open to write 1,"AirborneDefenseHighScores.txt"
 write long 1,score
 close file 1
endif
 sync
  wait 3000
repeat
until mouseclick()
   end
endif


sync
loop

Starlord Omega: SCI-FI 4X TBS
http://forum.thegamecreators.com/?m=forum_view&t=61670&b=8

Attachments

Login to view attachments

Back to top

Profile PM Email Website

NeX the Fairly Fast Ferret

19

Years of Service

User Offline

Joined: 10th Apr 2005

Location: The Fifth Plane of Oblivion

Posted: 15th May 2006 20:31

Link

Totally 1337!

<OMG>

</OMG>
NeX, you cant be serious - CattleRustler.

Back to top

Profile PM Website

Steve Fash

21

Years of Service

User Offline

Joined: 31st Dec 2002

Location: Doncaster, UK

Posted: 15th May 2006 21:26

Link

Excellent that mate

Steve

For game/demo music for YOUR PC productions visit:-www.futuredevelopments.org.uk

Back to top

Profile PM Email

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 18th May 2006 10:03

Link

i was seriously hoping for a lot more comments on this.
sometimes i just get into programming moods,
and like to pump out 20-liners, because
you can make an entire game within a 48-hour period,
lemme know,
bob

Starlord Omega: SCI-FI 4X TBS
http://forum.thegamecreators.com/?m=forum_view&t=61670&b=8

Back to top

Profile PM Email Website

sneaky smith12

18

Years of Service

User Offline

Joined: 30th Apr 2006

Location: Like id tell you, oh wait i just did

Posted: 19th May 2006 06:25

Link

Great Job.

Some things you could do would be:
Zoom
Ability to change rotation
and Randomize enemy movement

You really ought to make more this was really great
My highscore 1345

If at first you dont succeed, LOWER YOUR STANDARDS.

Back to top

Profile PM Email

Benjamin

21

Years of Service

User Offline

Joined: 24th Nov 2002

Location: France

Posted: 19th May 2006 13:32

Link

It's a good idea for a game, although I'm not very good at it because my mouse needs a serious clean because it's sticking. It's not the fact that I'm crap at it.

Tempest - P2P UDP Multiplayer Plugin (DBP/DBCe) - 71%
Download the free version

Back to top

Profile PM Email

flashing snall

19

Years of Service

User Offline

Joined: 8th Oct 2005

Location: Boston

Posted: 19th May 2006 22:56

Link

nice dude

dont assume cause ull make an ass out of you and me!

Back to top

Profile PM Email Website

Hippie Dude

19

Years of Service

User Offline

Joined: 6th Feb 2005

Location: California, United States

Posted: 20th May 2006 20:18

Link

this is the best 20-liner so far!

Mysteries Surround You

Back to top

Profile PM

3Nigma

18

Years of Service

User Offline

Joined: 23rd Apr 2006

Location: RoManiA

Posted: 22nd May 2006 17:42

Link

That is really nice dude..the best part is that there is NO media!

Knowledge belongs to the world...but not this time

Back to top

Profile PM Website

smallg

Valued Member

18

Years of Service

User Offline

Joined: 8th Dec 2005

Location: steam

Posted: 22nd May 2006 19:16

Link

the crosshair seems alittle off center, and some enemies just go straight through the ground (i know this is because the box has already gone but it just seems wrong) it's an amazing one-time game though.

life's one big game
spec= 2.6ghz, 1gb ram, 512mb gpu, directx 9.0c, dbpro and classic

Back to top

Profile PM Email

zenassem

21

Years of Service

User Offline

Joined: 10th Mar 2003

Location: Long Island, NY

Posted: 23rd May 2006 05:29

Link

I'll admit that I wasn't too good at this game (I'll blame it on the fact that I was using a touchpad), but I was still impressed. It's a fun game to play. It sorta reminded me of my days playing defender for the Atari 2600.

I began to get a slightly sick feeling from the constant rotation.

Thanks for giving the expanded source code. I'm sure I will learn a few things from your game.

~zenassem

Back to top

Profile PM Email

Chily Dog

20

Years of Service

User Offline

Joined: 6th Nov 2004

Location: U.S.A.

Posted: 24th May 2006 09:45

Link

Very nice. The fact you did it all without media and crammed it into 20 lines is the most impressive thing in my book. I bet this will show up in the next newsletter.

Back to top

Profile PM Email

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 25th May 2006 00:20 Edited at: 25th May 2006 00:21

Link

i am doing some research for a new 20-liner i'm working on.
it would involve downloading a text file for the game.
media is allowed, up to 200k , and it probably would be max 25k
am am trying to attach a plain text file here. it's just the source to this game.

OK, that works.
now, would you be willing to download a small file for a 20-liner?
thanks, bob

Starlord Omega: SCI-FI 4X TBS
http://forum.thegamecreators.com/?m=forum_view&t=61670&b=8

Attachments

Login to view attachments

Back to top

Profile PM Email Website

Uncle Sam

19

Years of Service

User Offline

Joined: 23rd Jul 2005

Location: West Coast, USA

Posted: 25th May 2006 21:17

Link

Wow! So neat!

I got 2170.

Uncle Sam
Nvidia Geforce 7600 GS 256MB PCIEx, 2.66 GHZ Pentium 4 proccessor, 768MB RAM
Need particles? Click here!

Back to top

Profile PM Email

Dodic

19

Years of Service

User Offline

Joined: 6th Nov 2005

Location: SNM (Serbia&Montenegro)

Posted: 26th May 2006 00:22

Link

Outstanding job.

Sig. pics are only increasing the loading time of the threads, so why have them...

Back to top

Profile PM Email

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 26th May 2006 19:41

Link

wow, uncle sam, that's a really high score!

thanks all, glad you like it.
i have been inspired lately and i am working on
3 more 20-liners
all different, all better than this one...
stay tuned...
bob

Starlord Omega: SCI-FI 4X TBS
http://forum.thegamecreators.com/?m=forum_view&t=61670&b=8

Back to top

Profile PM Email Website

IBOL

Retired Moderator

20

Years of Service

User Offline

Joined: 30th Mar 2004

Location: @IBOL17

Posted: 1st Jun 2006 22:14

Link

they didn't even mention the 20 line challenge in the newsletter this month.
i thought i was a sure winner.
wonder why...?

Starlord Omega: SCI-FI 4X TBS
http://forum.thegamecreators.com/?m=forum_view&t=61670&b=8

Back to top

Profile PM Email Website

StevieC

18

Years of Service

User Offline

Joined: 5th Jun 2006

Location:

Posted: 6th Jun 2006 12:51

Link

I like it.

It's fun.

The only thing I didn't like was the speed of the rotation - the fact it was rotating was nice, but maybe not so fast? And, at times, I would click on one of those little buggers and it wouldn't actually shoot!

That, or my eye sight is really off today...

Steve

Back to top

Profile PM Email

Sorry your browser is not supported!

The 20 Line Challenge / DBP - Airborne Defense - 3D Action Clickfest!

Attachments

Attachments