Sorry your browser is not supported!

Rem
Rem   Simple BSP collision test using (PATCH 4)
Rem   Author: Paul Millard - 15/04/03
Rem

Sync On
Sync Rate 100
Autocam Off
Hide Mouse
BackDrop On
Color BackDrop Rgb(255, 0, 0)
Set Camera Range 0, 0.1, 50000

Rem Predefine vars
fX As Float
fY As Float
fZ As Float
bFlag As Boolean
fSpeed As Float

fSpeed = 0.001

Rem Load a simple BSP file with a few square obstructions
Load Bsp "map.wad", "map.bsp"

Rem Create a simple sphere and position it above the world origin
Make Object Sphere 1, 1
Position Object 1, 0, 5, 0

Set Bsp Camera 0

Rem Setup sphere for BSP collision detection
Set Bsp Object Collision 1, 1, Object Size(1), 1

Repeat

   Rem Position camera to look down from a 45deg angle above the sphere
   Rem Note - camera does not use BSP collision
   Point Camera 0, Object Position X(1), Object Position Y(1), Object Position Z(1)
   Set Camera To Follow 0, Object Position X(1), Object Position Y(1), Object Position Z(1), 45, 4, Object Position Y(1) + 2, 50, 0

   Rem
   Rem   Quick keyboard handler for moving sphere
   Rem
   If UpKey()
      Inc fZ, fSpeed
   Else
      If fZ > 0 Then Dec fZ, fSpeed
   EndIf

   If DownKey()
      Dec fZ, fSpeed
   Else
      If fZ < 0 Then Inc fZ, fSpeed
   EndIf

   If LeftKey()
      Dec fX, fSpeed
   Else
      If fX < 0 Then Inc fX, fSpeed
   EndIf

   If RightKey()
      Inc fX, fSpeed
   Else
      If fX > 0 Then Dec fX, fSpeed
   EndIf

   REM ***
   REM Whether this is in or not, Bsp Collision Hit always returns false
   REM irrispective of sphere collision with obstructions in the BSP Geometry
   REM Process Bsp Collision 1
   REM ***

   bFlag = Bsp Collision Hit(1)

   Rem Because this condition is always false, the gravity and speed
   Rem factors for the sphere are never reset, but this besides point,
   Rem BSP COLLISION HIT never returns TRUE
   If bFlag
      Text 0, 0, "Hit Occured"   : REM @@@ Never shown @@@
      fX = 0
      fY = 0
      fZ = 0
      Position Object 1, Bsp Collision X(1), Bsp Collision Y(1), Bsp Collision Z(1)
   Else
      REM Simulate simple gravity, I know, not very elegant
      Dec fY, 0.0001
      Text 0, Text Size() * 1, Str$(fY)
      Position Object 1, Object Position X(1) + fX, Object Position Y(1) + fY, Object Position Z(1) + fZ
   Endif

   REM This flag is always 0 when displayed as part of the test
   Text 0, Text Size() * 2, Str$(bFlag)

   Sync
Until ReturnKey()

End

rem Tutorial 6 

rem Impostazioni iniziali 
sync on : sync rate 100 
backdrop off : hide mouse 

rem Seleziona il font 
set text font "arial" : set text size 16 
set text to bold : set text transparent 

rem Prompt di caricamento 
sync : center text screen width()/2,screen height()/2,"CARICANDO" : sync 

rem Carica tutti i files multimediali per il gioco 
gosub _load_game 

rem Imposta tutti gli oggetti per il gioco 
gosub _setup_game 

rem Ciclo del gioco 
do 

rem Controlla gli elementi del gioco 
gosub _control_player 
gosub _control_gunandbullet 
gosub _control_enemies 

rem Aggiorna lo schermo 
sync 

rem Termina il ciclo 
loop 

rem Termina il programma 
end 

_control_player: 

rem Controlla la direzione del giocatore 
rotate camera camera angle x(0)+(mousemovey()/2.0),camera angle y(0)+(mousemovex()/2.0),0 

rem Controlla il movimento del giocatore 
cx#=camera angle x(0) : cy#=camera angle y(0) 
if upkey()=1 then xrotate camera 0,0 : move camera 0,0.2 : xrotate camera 0,cx# 
if downkey()=1 then xrotate camera 0,0 : move camera 0,-0.2 : xrotate camera 0,cx# 
if leftkey()=1 then yrotate camera 0,cy#-90 : move camera 0.2 : yrotate camera 0,cy# 
if rightkey()=1 then yrotate camera 0,cy#+90 : move camera 0.2 : yrotate camera 0,cy# 
if wrapvalue(camera angle x(0))>40 and wrapvalue(camera angle x(0))<180 then xrotate camera 0,40 
if wrapvalue(camera angle x(0))>180 and wrapvalue(camera angle x(0))<280 then xrotate camera 0,280 

rem Applica una semplice gravita' al giocatore 
position camera camera position x(),camera position y()-0.1,camera position z() 

rem Il giocatore e' sempre il punto focale del cielo 
position object SkyObj,camera position x(),camera position y(),camera position z() 

rem Posiziona l'ascoltatore sul giocatore per il suono 3D 
position listener camera position x(),camera position y(),camera position z() 
rotate listener camera angle x(),camera angle y(),camera angle z() 

rem In caso di ripartenza 
if restart=1 
   restart=0 
   set bsp collision off 1 
   rotate camera 0,0,0 
   position camera 2,2,2 
   set bsp camera collision 1,0,0.75,0 
endif 

return 

_control_gunandbullet: 

rem *ADDCODE* TUT6C 

rem *ADDCODE* TUT6D 

return 

_control_enemies: 
return 

_control_stats: 
return 

_setup_game: 

rem Imposta la cinepresa 
set camera range 0.1,5000 
autocam off 

rem Imposta il modello del cielo 
set object SkyObj,1,0,0,0,0,0,0 
scale object SkyObj,20,20,20 

rem *ADDCODE* TUT6B 

rem Inizializzazione del giocatore 
restart=1 

return 

_load_game: 

rem Carica il mondo BSP ed il modello del cielo 
load bsp "","map.bsp" 
SkyObj=1 : load object "models\sky\am.x",SkyObj 

rem *ADDCODE* TUT6A 

return