Sorry your browser is not supported!

Rem Project: level 1
Rem Created: 7/5/2007 7:04:38 PM

Rem ***** Main Source File *****

autocam off
sync on
sync rate 0
hide mouse

rem building-----------------------------------------
make object plain 1,50,14 : position object 1,25,7,0

make object plain 3,40,14 : position object 3,20,7,10

make object plain 4,10,14 : position object 4,0,7,5 : yrotate object 4,90

make object plain 5,20,14
position object 5,50,7,10
yrotate object 5,90

make object plain 6,10,14
position object 6,40,7,15
yrotate object 6,90

make object plain 7,40,14
position object 7,20,7,20

make object plain 8,50,14
position object 8,0,7,45
yrotate object 8,90

make object plain 9,10,14
position object 9,55,7,20

make object plain 10,50,14
position object 10,60,7,45
yrotate object 10,90

make object plain 11,20,14
position object 11,40,7,80
yrotate object 11,90

make object plain 12,40,14
position object 12,20,7,70

make object box 13,20,14,10
position object 13,60,7,75

make object plain 14,60,14
position object 14,70,7,90

make object plain 15,70,14
position object 15,70,7,35
yrotate object 15,90

make object plain 16,30,14
position object 16,85,7,0

make object plain 17,90,14
position object 17,100,7,45
yrotate object 17,90

make object plain 18,100,100
position object 18,50,14,50
xrotate object 18,90



set camera range 1,100

rem player------------------------------------------------------
make object sphere 1000,5 : color object 1000, rgb(000,255,000) : position object 1000,5,3,5

rem enimy-------------------------------------------------------
make object sphere 2000,5 : position object 2000,25,3,45 : color object 2000, rgb(255,000,000)

make object plain 20000,100,100
xrotate object 20000,-90
position object 20000,50,0,50


rem bullet-----------------------------------------------------
MAKE OBJECT TRIANGLE 9999,0,0,0,0,0,0,0,0,0
make mesh from object 1,9999
delete object 9999
add limb 1000,1,1
offset limb 1000,1,0,0,1000
delete mesh 1

hide limb 1000,1




rem ammobox
MAKE OBJECT BOX 3000,1.5,3,5:COLOR OBJECT 3000,RGB(000,255,255):POSITION OBJECT 3000,85,0,75


make matrix 1,100,100,10,10
set matrix wireframe off 1


EnemyHP#=5000

Ammo#=1000

MaxAmmo#=1000

Clips#=3

MaxClips#=3





rem do do do do do do do-----------------
do





FPS#=SCREEN FPS()

TEXT 0,0,"FPS: "+STR$(FPS#)


rem fps camera
POSITION CAMERA OBJECT POSITION X(1000),OBJECT POSITION Y(1000),OBJECT POSITION Z(1000)


rem player controls
IF KEYSTATE(17)=1 THEN MOVE OBJECT 1000,.5

IF KEYSTATE(31)=1 THEN MOVE OBJECT 1000,-.5

IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1000,.3

IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1000,.3

rem mouse control
CAMY#=CAMY#+MOUSEMOVEX()*.1

CAMX#=CAMX#+MOUSEMOVEY()*.1

IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90

IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90

YROTATE CAMERA CAMY#

XROTATE CAMERA CAMX#

YROTATE OBJECT 1000,CAMY#

XROTATE OBJECT 1000,CAMX#

rem jump-----------------------
IF SPACEKEY()=1 AND JUMPING#=0 THEN JUMP#=1


IF JUMP#=1

GROUND#=OBJECT POSITION Y(1000)

JUMP_SPEED#=.5

JUMPING#=1

JUMP#=0

ENDIF



iF JUMPING#=1

DEC JUMP_SPEED#,.001

POSITION OBJECT 1000,OBJECT POSITION X(1000),OBJECT POSITION Y(1000)+JUMP_SPEED#, OBJECT POSITION Z(1000)

IF OBJECT POSITION Y(1000)<=GROUND# THEN JUMPING#=0

ENDIF






rem shooting
IF keystate(19)=0 and MOUSECLICK()=1

IF Ammo#>0

DEC Ammo#,1



ENDIF
IF OBJECT EXIST(2000)=1
IF Ammo#>0

IF INTERSECT OBJECT (2000, LIMB POSITION X(1000,1), LIMB POSITION Y(1000,1), LIMB POSITION Z(1000,1), OBJECT POSITION X(1000),OBJECT POSITION Y(1000), OBJECT POSITION Z(1000))>0

DEC EnemyHP#,1
ENDIF
ENDIF
ENDIF
ENDIF

IF EnemyHP#=0
IF OBJECT EXIST(2000)=1
DELETE OBJECT 2000
ENDIF
ENDIF

IF OBJECT EXIST(2000)=1 then CENTER TEXT OBJECT SCREEN X(2000),OBJECT SCREEN Y(2000)-70,"Enemy Health: "+str$(EnemyHP#)


IF MOUSECLICK()=0 AND KEYSTATE(19)=1 AND Ammo#<MaxAmmo# AND Clips#>0 THEN Reload#=1

IF Reload#=1 THEN INC Time#,.001

IF Time#>=1 THEN Ammo#=MaxAmmo#:DEC Clips#,1:Time#=0:Reload#=0
IF Reload#=1 THEN CENTER TEXT SCREEN WIDTH()/2,SCREEN HEIGHT()/2,"Reloading..."

rem ammo crate
IF OBJECT EXIST(3000)=1
IF Ammo#<MaxAmmo# AND  INTERSECT OBJECT (3000, OBJECT POSITION X(1000),OBJECT POSITION Y(1000)-50, OBJECT POSITION Z(1000), OBJECT POSITION X(1000),OBJECT POSITION Y(1000),OBJECT POSITION Z(1000))>0

Clips#=MaxClips#

Ammo#=MaxAmmo#

DELETE OBJECT 3000

ENDIF
ENDIF




TEXT 0,SCREEN HEIGHT()-50,"Ammo: "+str$(Ammo#)
TEXT 0,SCREEN HEIGHT()-40,"Clips: "+str$(Clips#)
CIRCLE SCREEN WIDTH()/2,SCREEN HEIGHT()/2,5




IF INTERSECT OBJECT (20000,X#,(Y#-OBJECT SIZE Y(1000)/2),Z#,X#,Y#,Z#)>0

MOVE OBJECT UP 1000,1
endif



sync

loop

Rem Project: level 1
Rem Created: 7/5/2007 7:04:38 PM

Rem ***** Main Source File *****

autocam off
sync on
sync rate 0
hide mouse

rem building-----------------------------------------


make object plain 1,50,14 : position object 1,25,7,0

make object plain 3,40,14 : position object 3,20,7,10

make object plain 4,10,14 : position object 4,0,7,5 : yrotate object 4,90

make object plain 5,20,14
position object 5,50,7,10
yrotate object 5,90

make object plain 6,10,14
position object 6,40,7,15
yrotate object 6,90

make object plain 7,40,14
position object 7,20,7,20

make object plain 8,50,14
position object 8,0,7,45
yrotate object 8,90

make object plain 9,10,14
position object 9,55,7,20

make object plain 10,50,14
position object 10,60,7,45
yrotate object 10,90

make object plain 11,20,14
position object 11,40,7,80
yrotate object 11,90

make object plain 12,40,14
position object 12,20,7,70

make object box 13,20,14,10
position object 13,60,7,75

make object plain 14,60,14
position object 14,70,7,90

make object plain 15,70,14
position object 15,70,7,35
yrotate object 15,90

make object plain 16,30,14
position object 16,85,7,0

make object plain 17,90,14
position object 17,100,7,45
yrotate object 17,90

make object plain 18,100,100
position object 18,50,14,50
xrotate object 18,90



set camera range 0.7,100

rem player------------------------------------------------------
make object sphere 1000,5 : color object 1000, rgb(000,255,000) : position object 1000,5,3,5






make matrix 1,100,100,10,10
set matrix wireframe off 1








Make Object Collision Box 1000,-2.5,-2.5,-2.5,2.5,2.5,2.5,0
MAKE OBJECT COLLISION BOX 1,-45,-7,0,45,7,0,0

rem do do do do do do do-----------------
do





FPS#=SCREEN FPS()

TEXT 0,0,"FPS: "+STR$(FPS#)


rem fps camera
POSITION CAMERA OBJECT POSITION X(1000),OBJECT POSITION Y(1000),OBJECT POSITION Z(1000)


rem player controls
IF KEYSTATE(17)=1 THEN MOVE OBJECT 1000,.1

IF KEYSTATE(31)=1 THEN MOVE OBJECT 1000,-.1

IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT 1000,.05

IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT 1000,.05

rem mouse control
CAMY#=CAMY#+MOUSEMOVEX()*.1

CAMX#=CAMX#+MOUSEMOVEY()*.1

IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90

IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90

YROTATE CAMERA CAMY#

XROTATE CAMERA CAMX#

YROTATE OBJECT 1000,CAMY#

XROTATE OBJECT 1000,CAMX#


CIRCLE SCREEN WIDTH()/2,SCREEN HEIGHT()/2,5


XPos#=Object Position X(1)
  YPos#=Object Position Y(1)
  ZPos#=Object Position Z(1)
  Rem The sliding collision bit
  If Object Collision(1,0)>0
    Dec XPos#,Get Object Collision X()
    Dec YPos#,Get Object Collision Y()
    Dec ZPos#,Get Object Collision Z()
  Endif
  Position Object 1,XPos#,YPos#,ZPos#
  Angle#=Object Angle y(1)



sync

loop

REM ----------------------------------------------------------------------------
Rem Project: level 1
Rem Created: 7/5/2007 7:04:38 PM
Rem ***** Main Source File *****
REM AUTHORS NAME : HUNTER
REM DARKBASIC SOFTWARE PRO /CLASSIC
REM DARKBASIC SOFTWARE VERSION 6.2
REM
REM
REM NOTES
REM CREATING THE BASIC LAYOUT FOR A FPS ENGINE
REM PROTOTYPE V1.0
REM -----------------------------------------------------------------------------

REM -----------------------------------------------------------------------------
REM SETUP ENVIRONMENT
REM -----------------------------------------------------------------------------
autocam off : sync on : sync rate 0 : hide mouse : randomize timer()


REM -----------------------------------------------------------------------------
REM SETUP TEXT
REM -----------------------------------------------------------------------------
set text font "Verdana" : set text size 15 : ink rgb(255,255,255),1


REM -----------------------------------------------------------------------------
REM DECLARE GAME VARIABLES
REM -----------------------------------------------------------------------------

REM FLAG THIS TO ZERO IF THE DEBUG IS TO BE DEACTIVATED
DEBUG = 1

REM PLAYER 1 MEDIA NUMBER USED AS A REFERENCE FOR ALL PLAYER MEDIA NUMBER USAGE AREAS
REM THIS ALLOWS YOU TO MOVE THE MEDIA NUMBER IN ONE AREA VERY QUICKLY
PLAYER = 1000

REM DEFINE THE MAX AMOUNT OF WALLS FOR USAGE IN CERTAIN AREAS
MAXWALLS = 20



REM -----------------------------------------------------------------------------
REM MAKE A GROUND MATRIX
REM -----------------------------------------------------------------------------
make matrix 1,100,100,10,10 : set matrix wireframe off 1




REM -----------------------------------------------------------------------------
REM MAKE MAXWALL TEXTURES FOR DEBUGGING THE WALLS
REM -----------------------------------------------------------------------------
for i = 1 to MAXWALLS
   REM PAINT THE WALL
   ink rgb(55,55,55),1 : box 0,0,64,64
   REM PAINT THE TEXT TO THE WALL
   ink rgb(255,255,255),1 : text 8,8,STR$(i)
   REM GRAB THAT AS AN IMAGE
   get image i,0,0,64,64,1
   cls
NEXT i


REM -----------------------------------------------------------------------------
REM 3D PLAINS TO BUILD THE MAP OR MAKE THE BUILDING
REM -----------------------------------------------------------------------------
make object plain 1,50,14 : position object 1,25,7,0
make object plain 3,40,14 : position object 3,20,7,10
make object plain 4,10,14 : position object 4,0,7,5 : yrotate object 4,90
make object plain 5,20,14 : position object 5,50,7,10 : yrotate object 5,90
make object plain 6,10,14 : position object 6,40,7,15 : yrotate object 6,90
make object plain 7,40,14 : position object 7,20,7,20
make object plain 8,50,14 : position object 8,0,7,45 : yrotate object 8,90
make object plain 9,10,14 : position object 9,55,7,20
make object plain 10,50,14 : position object 10,60,7,45 : yrotate object 10,90
make object plain 11,20,14 : position object 11,40,7,80 : yrotate object 11,90
make object plain 12,40,14 : position object 12,20,7,70
make object box 13,20,14,10 : position object 13,60,7,75
make object plain 14,60,14 : position object 14,70,7,90
make object plain 15,70,14 : position object 15,70,7,35 : yrotate object 15,90
make object plain 16,30,14 : position object 16,85,7,0
make object plain 17,90,14 : position object 17,100,7,45 : yrotate object 17,90

REM ROOF PLAIN
make object plain 18,100,100 : position object 18,50,14,50 : xrotate object 18,90



REM -----------------------------------------------------------------------------
REM DYNAMICALLY PAINT ALL WALLS WITH A TEXTURE NUMBER FOR DEBUGGING
REM -----------------------------------------------------------------------------
for w = 1 to 20
   if object exist(w) = 1
         REM MAKE BOTH SIDES VISIBLE IN DEBUGGING
         set object cull w,0
         REM TEXTURE THE WALLS
         texture object w,w
   endif
next w



REM -----------------------------------------------------------------------------
REM BUILD PLAYER
REM -----------------------------------------------------------------------------
make object sphere PLAYER,5
color object PLAYER, rgb(000,255,000)
position object PLAYER,5,3,5
REM PLAYERS COLLISION BOX
Make Object Collision Box PLAYER,-2.5,-2.5,-2.5,2.5,2.5,2.5,0






REM TESTING?
MAKE OBJECT COLLISION BOX 1,-45,-7,0,45,7,0,0



REM -----------------------------------------------------------------------------
REM PRE - MAIN GAME LOOP
REM -----------------------------------------------------------------------------
   set camera range 0.7,100

   REM -----------------------------------------------------------------------------
   REM POSITION AND SET THE DEFAULT LIGHT ZERO
   REM PLUS THE ENVIRONMENTS LIGHT FACTORS LIKE AMBIENCE ETC
   REM -----------------------------------------------------------------------------
   position light 0,0,100,0 : point light 0,0,0,0 : color light 0,rgb(255,255,0)
   set ambient light 75



REM -----------------------------------------------------------------------------
REM START MAIN GAME LOOP
REM -----------------------------------------------------------------------------
disable escapekey : while escapekey()=0

      REM -----------------------------------------------------------------------------
      REM CATCH PLAYER CONTROLS
      REM -----------------------------------------------------------------------------

      REM KEYSTATE KEYS WASD
      IF KEYSTATE(17)=1 THEN MOVE OBJECT PLAYER,.1
      IF KEYSTATE(31)=1 THEN MOVE OBJECT PLAYER,-.1
      IF KEYSTATE(30)=1 THEN MOVE OBJECT LEFT PLAYER,.05
      IF KEYSTATE(32)=1 THEN MOVE OBJECT RIGHT PLAYER,.05
      REM MOUSE MOVEMENT
      CAMY#=CAMY#+MOUSEMOVEX()*.1
      CAMX#=CAMX#+MOUSEMOVEY()*.1
      REM LIMIT THE MOUSE MOVEMENT
      IF CAMX#>90 AND CAMX#<135 THEN CAMX#=90
      IF CAMX#>270 AND CAMX#<225 THEN CAMX#=90

      REM UPDATE THE CAMERA LOCATION
      YROTATE CAMERA CAMY#
      XROTATE CAMERA CAMX#
      REM UPDATE THE PLAYERS LOCATION
      YROTATE OBJECT PLAYER,CAMY#
      XROTATE OBJECT PLAYER,CAMX#




REM CLEAN UP THIS PROBLEM BIT- TESTING?
XPos#=Object Position X(1)
  YPos#=Object Position Y(1)
  ZPos#=Object Position Z(1)
  Rem The sliding collision bit
  If Object Collision(1,0)>0
    Dec XPos#,Get Object Collision X()
    Dec YPos#,Get Object Collision Y()
    Dec ZPos#,Get Object Collision Z()
  Endif
  Position Object 1,XPos#,YPos#,ZPos#
  Angle#=Object Angle y(1)



      REM -----------------------------------------------------------------------------
      REM UPDATE THE CAMERA AFTER PLAYER CONDITIONS AND CONTROLS
      REM -----------------------------------------------------------------------------
      POSITION CAMERA OBJECT POSITION X(PLAYER),OBJECT POSITION Y(PLAYER),OBJECT POSITION Z(PLAYER)

      REM -----------------------------------------------------------------------------
      REM PAINT 2D STUFF AFTER PLAYER CONTROLS UPDATE AND MOVEMENT OF 3D
      REM -----------------------------------------------------------------------------
      CIRCLE SCREEN WIDTH()/2,SCREEN HEIGHT()/2,5

      REM -----------------------------------------------------------------------------
      REM DEBUGGING TEXT
      REM -----------------------------------------------------------------------------
      IF DEBUG = 1
         TEXT 1,1,"FPS: "+STR$(SCREEN FPS())
         TEXT 1,16,"scancode: "+STR$(SCANCODE())
         TEXT 1,32,"polys "+STR$(STATISTIC(1))
         TEXT 1,48,"primitives: "+STR$(STATISTIC(5))
      ENDIF

REM -----------------------------------------------------------------------------
REM END MAIN LOOP
REM -----------------------------------------------------------------------------
fastsync : endwhile


REM -----------------------------------------------------------------------------
REM CLEANUP MEDIA CLEAN UP 1000 MEDIA LOCATIONS QUICKLY
REM -----------------------------------------------------------------------------
for m = 1 to 1000
   if object exist(m) = 1
      delete object m
   endif
next m

REM -----------------------------------------------------------------------------
REM TERMINATE PROGRAM
REM -----------------------------------------------------------------------------
end