Sorry your browser is not supported!

Knight_Fights:
if object playing(knight)=0 and knightdead=1
   eyelevel=25
   text 150,240, "YOU HAVE DIED PRESS SPACEBAR TO START AGAIN"
   DeActivateObjPRO(player)
      if spacekey()=1
         ActivateObjPRO(player)
         knightdead=0
         Draw_Healthbar()
         eyelevel=80
      endif
   exitfunction
endif
if knightdead=0 and NegativeHealth#=>476
   SET OBJECT SPEED Knight,5000
   play OBJECT Knight,56000,64000
   knightdead=1
endif
if smackobjectplayer=20 and knightdead=0 and myenemy1dead=0 and myenemy1distance <75
DeductPlayer1Health()
smackobjectplayer=0
   if object playing(Alien1)=0
      SET OBJECT SPEED Alien1,30
      play object Alien1,86,110
   endif
endif
if smackobjectplayer=21 and knightdead=0 and myenemy1dead=0 and myenemy1distance <75
DeductPlayer1Health()
smackobjectplayer=0
   if object playing(Alien1)=0
      SET OBJECT SPEED Alien1,30
      play object Alien1,86,110
   endif
endif
if smackobjectplayer=22 and knightdead=0 and myenemy1dead=0 and myenemy1distance <75
DeductPlayer1Health()
smackobjectplayer=0
   if object playing(Alien1)=0
      SET OBJECT SPEED Alien1,30
      play object Alien1,86,110
   endif
endif
if smackobjectplayer=23 and knightdead=0 and myenemy1dead=0 and myenemy1distance <75
DeductPlayer1Health()
smackobjectplayer=0
   if object playing(Alien1)=0
      SET OBJECT SPEED Alien1,30
      play object Alien1,86,110
   endif
endif
if smackobjectmyenemy1=8 and knightdead=0 and myenemy1dead=0 and myenemy1distance <75
DeductPlayer1Health()
smackobjectmyenemy1=0
   if object playing(Alien1)=0
      SET OBJECT SPEED Alien1,30
      play object Alien1,86,110
   endif
endif
if smackobjectmyenemy2=8 and knightdead=0 and myenemy2dead=0 and myenemy2distance <75
DeductPlayer1Health()
smackobjectmyenemy2=0
   if object playing(Alien2)=0
      SET OBJECT SPEED Alien2,30
      play object Alien2,86,110
   endif
endif
if smackobjectmyenemy3=8 and knightdead=0 and myenemy3dead=0 and myenemy3distance <75
DeductPlayer1Health()
smackobjectmyenemy3=0
 if object playing(Alien3)=0
      SET OBJECT SPEED Alien3,30
      play object Alien3,86,110
   endif
endif
if smackobjectmyenemy4=8 and knightdead=0 and myenemy4dead=0 and myenemy4distance <75
DeductPlayer1Health()
smackobjectmyenemy4=0
   if object playing(Alien4)=0
      SET OBJECT SPEED Alien4,30
      play object Alien4,86,110
   endif
endif
return

local dim t$(5)

for t=0 to 5
 t$(t)="T$ Array #"+str$(t)
next t
printt()
print ""
print "This shouldn't work either:"
for t=0 to 5
 print a$(t)
next t
suspend for key

function printt()
 print "This shouldn't work:"
 for t=0 to 5
  print t$(t)
 next t
 dim a$(5)
 for t=0 to 5
  a$(t)="A$ Array #"+str$(t)
 next t
endfunction

load object "media\palm.dbo",5
set object transparency 5,4
restore
for n=6 to 7
read d
instance object n,5
position object n,d,d,d
scale object n,300,300,300
next n

data 1870,90,3140,2757,90,2477

for n=6 to 7
  read dx,dy,dz
  instance object n,5
  position object n,dx,dy,dz 
  scale object n,300,300,300
next n