can some1 proofread this code? im lost on why it says i havent created the player1 variable
Rem Project: Sniper Showdown
Rem Created: Monday, March 08, 2010
Rem ***** Main Source File *****
SYNC ON : SYNC RATE 60 : HIDE MOUSE : SET DISPLAY MODE 800,600,32 : MAXIMIZE WINDOW
GOSUB Define_Types
GOSUB Define_Variables
GOSUB Load_Media
GOSUB Load_Entities
GOSUB Create_Level
DO
REM INPUT
IF UPKEY() = 1
oldangle = OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT 1,2
XROTATE OBJECT 1,oldangle
ENDIF
IF DOWNKEY()=1
oldangle = OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT 1,-2
XROTATE OBJECT 1,oldangle
ENDIF
IF RIGHTKEY()=1
oldangle = OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT RIGHT 1,2
XROTATE OBJECT 1,oldangle
ENDIF
IF LEFTKEY()=1
oldangle = OBJECT ANGLE X(1)
XROTATE OBJECT 1,0
MOVE OBJECT LEFT 1,2
XROTATE OBJECT 1,oldangle
ENDIF
IF MOUSECLICK() = 1
IF clicked = 0
clicked = 1
DEC player1.ammo,1
ENDIF
ELSE
clicked = 0
ENDIF
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 1,CAMY#
XROTATE OBJECT 1,CAMX#
REM UPDATE VARIABLES
player1.x# = OBJECT POSITION X(1)
player1.y# = OBJECT POSITION Y(1)
player1.z# = OBJECT POSITION Z(1)
REM ADJUST CAMERA
POSITION CAMERA player1.x#,player1.y#,player1.z#
REM UPDATE HUD
SPRITE 1,383,283,1
SCALE SPRITE 1,10
IF player1.ammo > 0
SPRITE 2,0,0,2
ELSE
SPRITE 2,0,0,3
ENDIF
SCALE SPRITE 2,20
TEXT 16,30,"X" + str$(player1.ammo)
SYNC
LOOP
`----------------------------------------------------------------------------------------------------------------
`SUBROUTINES
`----------------------------------------------------------------------------------------------------------------
Define_Types:
TYPE WEAPON
name AS STRING
range AS INTEGER
mesh AS INTEGER
clipsize AS INTEGER
recoil AS INTEGER
autoflag AS BOOLEAN
ENDTYPE
TYPE PLAYER
ammo AS INTEGER
clips AS INTEGER
currentweapon AS WEAPON
X# AS FLOAT
Y# AS FLOAT
Z# AS FLOAT
ENDTYPE
RETURN
Define_Variables:
REM CREATE THE SNIPER RIFLE OF THE WEAPON TYPE
sniper AS WEAPON
sniper.name = "Sniper"
sniper.range = 1000
sniper.clipsize = 5
sniper.recoil = 10
sniper.autoflag = 0
REM CREATE PLAYERS
player1 AS PLAYER
player1.ammo = 30
player1.clips = 3
player1.currentweapon = MAKE MEMORY(7)
player1.*curremtweapon = sniper
player1.X# = 0
player1.Y# = 0
player1.Z# = 0
RETURN
`----------------------------------------------------------------------------------------------------------------
Load_Media:
LOAD IMAGE "C:/documents and settings/brandon/my documents/my pictures/crosshair.jpg",1
LOAD IMAGE "C:/documents and settings/brandon/my documents/my pictures/bullet.jpg",2
LOAD IMAGE "C:/documents and settings/brandon/my documents/my pictures/bullet0.jpg",3
RETURN
`----------------------------------------------------------------------------------------------------------------
Load_Entities:
REM LOAD PLAYER
MAKE OBJECT SPHERE 1,10
COLOR OBJECT 1,RGB(150,255,0)
MOVE OBJECT UP 1,5
HIDE LIMB 1,0
REM CREATE A LIMB FOR SHOOTING
MAKE OBJECT PLAIN 9999,1,1
target_limb_mesh = 1
MAKE MESH FROM OBJECT target_limb_mesh,9999
DELETE OBJECT 9999
ADD LIMB 1,1,1
OFFSET LIMB 1,1,0,0,1000
`HIDE LIMB 1,1
REM CREATE A TEMPORARY "GUN"
MAKE OBJECT BOX 9999,1,2,10
MAKE MESH FROM OBJECT 2,9999
DELETE OBJECT 9999
ADD LIMB 1,2,2
OFFSET LIMB 1,2,5.5,0,5
COLOR LIMB 1,2,RGB(0,150,150)
REM CREATE ENEMY
CLONE OBJECT 2,1
COLOR OBJECT 2,RGB(255,0,0)
SHOW LIMB 2,0
REM CREATE GROUND
MAKE OBJECT PLAIN 3,10000,10000
COLOR OBJECT 3,RGB(0,255,0)
XROTATE OBJECT 3,270
RETURN
`----------------------------------------------------------------------------------------------------------------
Create_Level:
RETURN
`----------------------------------------------------------------------------------------------------------------
