Sorry your browser is not supported!

`Load Weapons ======================
`G3
Load object "Data/Models/Weapons/G3/HUD.x",100
load effect "Data\Shaders\Weapons.fx",10,1
set object effect 100,10
    set object speed 100,40
    loop object 100,40,85
    rotate object 100,0,180,0
    lock object on 100 `Gunna change this after getting important parts of game done
    position object 100,4,-2,0





`Weapon Settings - IN LOOP
if mouseclick()=2 then ADS=1
if mouseclick()=0 then ADS=0



if ADS=1
 position object 100,-4.3,0.9,-7
rotate object 100,1,181,0
runon#=0.2
set camera fov 70
else
ADS=0
set camera fov 75
ENDIF
if ADS=0
position object 100,1,-2,0
rotate object 100,0,180,0
else
 ADS=1
ENDIF


   
   if KEYSTATE(46)=1 then Crouch=1
   if KEYSTATE(46)=0 then Crouch=0
   
   if crouch=1
   set object speed 100,20 
radius# = 25.0  
   else 
set object speed 100,40  
   radius#= 40.5
   crouch=0
   
`Sprint keystates (Wouldn't work without function for some reason)
       if KEYSTATE(42)=1 and KEYSTATE(17)=1 then sprint()
       if keystate(42)=1 and KEYSTATE(32)=1 then sprint()
       if keystate(42)=1 and  KEYSTATE(30)=1 then sprint() 
       if keystate(4)=1 and KEYSTATE(31) =1 then sprint()


function sprint()
            rotate object 100,-20,180,0
ENDFUNCTION

 if KEYSTATE(17) or KEYSTATE(32) or KEYSTATE(31) or KEYSTATE(30)=1
loop object 100,85,109
    else
loop object 100,40,85
endif

`keystate(19) = "R"
if keystate(19) and reload = 0
	reload = 1
	play object GUN,ReloadStartFrame,ReloadEndFrame
	bullets = 200
else
	loop object GUN,IdleStartFrame,IdleEndFrame
endif

if scancode() = 0 then reload = 0

if mouseclick = 1 
	if bullets > 0
		dec bullets
		loop object GUN,FireStartFrame,FireEndFrame
	else
		loop object GUN,EmptyStartFrame,EmptyEndFrame
	endif
else 
	loop object GUN,IdleStartFrame,IdleEndFrame
ENDIF

`declare some variables at the start to tell us whether we are running or walking, what state we are currently in and how many bullets are left

runwalk = 0
gunstate$ = "idle"
bullets = 30


`then inside your loop put something like this:

`part 1: the control code

if spacekey() and spacelock = 0
    spacelock = 1
    runwalk = abs(runwalk-1)
endif

if spacekey() = 0 then spacelock = 0

if inkey$() = "w"
    if runwalk = 0 
        gunstate$ = "walk"
        `put your movement code in here as well
    endif

    if runwalk = 1
        gunstate$ = "sprint"
        `put some faster movement code in here
    endif
ENDIF

`put the shooting code here since it will override the previous state changes if needed
if mouseclick()=1 AND gunstate$ <> "reload"
    gunstate$ = "fire"
    bullets = bullets - 1
    play object gunobj, gunfirestart, gunreloadend
    `do whatever bullet collision or damage code here that you want to
ENDIF

`and the reload state will override shooting if necessary
if keystate(19)
    gunstate$ = "reload"
    play object gunobj, gunreloadstart, gunreloadend
endif



`Part 2: the animation code

`now 'pick' the animation according to the gun's state
`the 3 looping animations are easy
if gunstate$ = "idle" then loop object gunobj, gunidlestart, gunidleend
if gunstate$ = "walk" then loop object gunobj, gunwalkstart, gunwalkend
if gunstate$ = "sprint" then loop object gunobj, gunsprintstart, gunsprintend

`the two transient animations get played once then go to idle when they are complete. 
`This will then get overriden next program loop if the gun is walking or sprinting
if gunstate$ = "fire"
    if object frame(gunobj) = gunfireend then gunstate$ = "idle"
ENDIF
if gunstate$ = "reload"
    if object frame(gunobj) = gunreloadend then gunstate$ = "idle"
    bullets = 30
ENDIF