Ok why is there just a black screen with nothing happening? Here is my code:
REM Project: war hero
REM Created: 1/5/2009 4:11:21 PM
REM
REM ***** Main Source File *****
REM
sync rate 60
set dir "F:\Program Files\The Game Creators\Dark Basic Professional Online\Projects\war hero\Data\weapons\ak47"
load object "ak47.x",1
load image "gun_D2.dds",2
texture object 1,2
lock object on 1
`Variables for camera angle and mouse movement.
hide mouse
CamY as Float
CamX as Float
MMoveX as Float
MMoveY as Float
`Init.
Set Display Mode 1024, 768, 32
Sync On
Sync Rate 60
`Main loop.
Do
`Check for key presses and move camera accordingly.
If KeyState( 17 )
Move Camera 1.0
EndIf
If KeyState( 30 )
Turn Camera Left 90.0
Move Camera 1.0
Turn Camera Right 90.0
EndIf
If KeyState( 31 )
Move Camera -1.0
EndIf
If KeyState( 32 )
Turn Camera Right 90.0
Move Camera 1.0
Turn Camera Left 90.0
EndIf
`Get camera angle and mouse movement and rotate camera.
CamX = Camera Angle X( )
CamY = Camera Angle Y( )
MMoveX = MouseMoveX( )
MMoveY = MouseMoveY( )
YRotate Camera CamY + ( MMoveX / 2 )
XRotate Camera CamX + ( MMoveY / 2 )
`Update screen.
Sync
Loop
The Geek of our time
