;Artificial Intelligence Script

;Header

desc = HumVee Drive Script (Vehikleh!!!!)

;Triggers

;///// Load up HUD and Humvee camera, set humvee cam offsets for third person perspective \\\\\
;///// Dim variables necessary \\\\\
:state=0:hudreset,hudx=50,hudy=90,hudimagefine=gamecore\text\pressentertouse.tga,hudname=driveprompt,hudhide=1,hudmake=display
:stat e=0:makecamera=HumveeCam
:state=0:offsetcamy=HumveeCam 150,offsetcamfore=HumveeCam -110
:state=0:dimvar=Temp,dimvar=TempX,dimvar=TempY,dimvar=HAccel,setvar=HAccel 0.5,dimvar=HVel,dimvar=HMaxVel
:state=0:animate=1,state=1

;///// Show Use HUD when player approaches \\\\\
:state=1,plrdistwithin=100:hudshow=driveprompt,hudfadeout=driveprompt

;///// If player activates SpyBot, then disable plr input using startmenu
;///// and view through the humvee third person camera, also loop motor sound
:state=1,plrdistwithin=100,plrusingaction=1:startmenu,viewcam=HumveeCam,plrcoloff,loopsound=audiobank/atmos/motorhum.wav,state=2

;///// Hide The Player HUDs \\\\\
:state=2:hudunshow=PlrLives,hudunshow=PlrLivesNum,hudunshow=PlrHealth,hudunshow=PlrHealthNum,hudunshow=GunPic,hudunshow=PlrAmmo,hudun show=PlrArmor,hudunshow=PlrArmorNum,hudunshow=PlrMoney,hudunshow=PlrMoneyNum,state=3

;///// Make sure Camera follows the Humvee \\\\\
:state=3:cameraposx=HumveeCam $EPX,cameraposy=HumveeCam $EPY,cameraposz=HumveeCam $EPZ
:state=3:cameraposx=0 $EPX,cameraposy=0 $EPY,cameraposz=0 $EPZ

;///// Give Humvee acceleration \\\\\
:state=3,plrusingrun=0:setvar=HMaxVel 15
:state=3,plrusingrun=1:setvar=HMaxVel 25
:state=3:setanimspeed=100,setvar=TempX 0
:state=3:setvar=Temp %HMaxVel,mulvar=Temp -1,divvar=Temp 2
:state=3,keypressed=17 1,plrusingrun=1,varless=HVel %HMaxVel:addvar=HVel %HAccel,addvar=HVel %HAccel,setvar=TempX 1
:state=3,keypressed=17 1,plrusingrun=0,varless=HVel %HMaxVel:addvar=HVel %HAccel,setvar=TempX 1
:state=3,keypressed=31 1,plrusingrun=1,vargreater=HVel %Temp:subvar=HVel %HAccel,subvar=Hvel %HAccel,setvar=TempX 1
:state=3,keypressed=31 1,plrusingrun=0,vargreater=HVel %Temp:subvar=HVel %HAccel,setvar=TempX 1

;///// Handle Humvee Velocity and movement \\\\\
:state=3:movefore=%HVel
:state=3,varless=HVel 0:setanimspeed=-100
:state=3:setvar=Temp %HAccel,divvar=Temp 2
:state=3,varequal=TempX 0,vargreater=HVel 0:subvar=HVel %Temp
:state=3,varequal=TempX 0,varless=HVel 0:addvar=HVel %Temp
:state=3,keypressed=57 1,vargreater=HVel 0:subvar=HVel %HAccel
:state=3,keypressed=57 1,varless=HVel 0:addvar=HVel %HAccel

;///// If moving, then start angling Humvee towards direction camera is facing \\\\\
:state=3,varequal=TempX 1:state=10

:state=10:setvar=TempY $CAY_HumveeCam,subvar=TempY $EAY
:state=10,vargreater=TempY 180:state=11
:state=10,varless=TempY -180:state=12

:state=11:setvar=TempX $EAY,addvar=TempX -2,entityangley=%TempX,state=3
:state=12:setvar=TempX $EAY,addvar=TempX 2,entityangley=%TempX,state=3

:state=10:setvar=TempY $CAY_HumveeCam,addvar=TempY -3
:state=10,varless=$EAY %TempY:setvar=TempX $EAY,addvar=TempX 2,entityangley=%TempX
:state=10:setvar=TempY $CAY_HumveeCam,addvar=TempY 3
:state=10,vargreater=$EAY %TempY:setvar=TempX $EAY,addvar=TempX -2,entityangley=%TempX
:state=10:state=3

;///// Restore normal FPS Cam when "G" is pressed \\\\\
;///// Need to restore player control with "stopmenu" and view the normal camera and stop motor sound \\\\\
:state=3,keypressed=34 1:state=4

;///// Make humvee cam look around based on mouse movement \\\\\
:state=3:setvar=TempX $MMY,setvar=TempY $MMX,divvar=TempX 7,divvar=TempY 7,addvar=TempX $CAX_HumveeCam,addvar=TempY $CAY_HumveeCam
:state=3:cameraangx=HumveeCam %TempX,cameraangy=HumveeCam %TempY

;///// Show the Player HUDs again \\\\\
:state=4:hudshow=PlrLives,hudshow=PlrLivesNum,hudshow=PlrHealth,hudshow=PlrHealthNum,hudshow=GunPic,hudshow=PlrAmmo,hudshow=PlrArmor, hudshow=PlrArmorNum,hudshow=PlrMoney,hudshow=PlrMoneyNum

;///// Position Player outside of driver door \\\\\
:state=4:cameraposx=HumveeCam $EPX,cameraposy=HumveeCam $EPY,cameraposz=HumveeCam $EPZ
:state=4:setvar=TempY $EAY,subvar=TempY 90
:state=4:cameraangx=HumveeCam 0,cameraangy=HumveeCam %TempY,cameraangz=HumveeCam 0
:state=4:movecam=HumveeCam 70
:state=4:setvar=TempX $CPX_HumveeCam,cameraposx=0 %TempX
:state=4:setvar=TempX $CPY_HumveeCam,addvar=TempX 100,cameraposy=0 %TempX
:state=4:setvar=TempX $CPZ_HumveeCam,cameraposz=0 %TempX
:state=4:addvar=TempY 90,cameraangy=HumveeCam %TempY
:state=4:cameraangy=0 %TempY
:state=4:stopmenu,viewcam=0,plrcolon,stopsound,state=1

;End of Script

Фанат игр Max Payne и Fahrenheit.

;Requires Ply's Mod V1.07+

;Artificial Intelligence Script

;Header

desc = Spy Bot Control Script (BindCamToEntity Test)

;Triggers

;///// Load up HUD and SpyBot camera, Bind the camera to the SpyBot entity \\
;///// Dim variables necessary \\
:state=0:hudreset,hudx=50,hudy=90,hudimagefine=gamecoretextpressentertouse.tga,hudname=usebotprompt,hudhide=1,hudmake=display
:state=0: makecamera=SpyBotCam,bindcamtoentity=SpyBotCam,offsetcamy=SpyBotCam 75,offsetcamfore=SpyBotCam -55
:state=0:dimvar=TempX,dimvar=TempY
:state=0:animate=1,state=1

;///// Show Use HUD when player approaches \\
:state=1,plrdistwithin=100:hudshow=usebotprompt,hudfadeout=usebotprompt
;///// If player activates SpyBot, then disable plr input through startmenu
;///// hide the spy bot, and view through the spybot camera
:state=1,plrdistwithin=100,plrusingaction=1:startmenu,viewcam=SpyBotCam,state=2

;///// Hide The Player HUDs \\
:state=2:hudunshow=PlrLives,hudunshow=PlrLivesNum,hudunshow=PlrHealth,hudunshow=PlrHealthNum,hudunshow=GunPic,hudunshow=PlrAmmo,hudunsho w=PlrArmor,hudunshow=PlrArmorNum,hudunshow=PlrMoney,hudunshow=PlrMoneyNum,state=3

;///// Make spy bot move forward, backward and strafe \\
:state=3:setanimspeed=100
:state=3,keypressed=17 1,plrusingrun=1:movefore=5,animate=5
:state=3,keypressed=17 1,plrusingrun=0:movefore=3,animate=2
:state=3,keypressed=31 1,plrusingrun=1:movefore=-5,animate=5,setanimspeed=-100
:state=3,keypressed=31 1,plrusingrun=0:movefore=-3,animate=2,setanimspeed=-100
:state=3,keypressed=30 1:setvar=TempY $EAY,addvar=TempY -90,entityangley=%TempY,movefore=4,addvar=TempY 90,entityangley=%TempY,animate=3
:state=3,keypressed=32 1:setvar=TempY $EAY,addvar=TempY 90,entityangley=%TempY,movefore=4,addvar=TempY -90,entityangley=%TempY,animate=4
;///// Restore normal FPS Cam when "G" is pressed \\
;///// Need to restore player control with "stopmenu" and view the normal camera \\
:state=3,keypressed=34 1:stopmenu,viewcam=0,state=4

;///// Make spy bot cam look around based on mouse movement \\
:state=3:setvar=TempX $MMY,setvar=TempY $MMX,divvar=TempX 7,divvar=TempY 7,addvar=TempX $EAX,addvar=TempY $EAY
:state=3:entityanglex=%TempX,entityangley=%TempY

;///// Show the Player HUDs again \\
:state=4:hudshow=PlrLives,hudshow=PlrLivesNum,hudshow=PlrHealth,hudshow=PlrHealthNum,hudshow=GunPic,hudshow=PlrAmmo,hudshow=PlrArmor,hud show=PlrArmorNum,hudshow=PlrMoney,hudshow=PlrMoneyNum
:state=4:state=1

;End of Script

;Requires Ply's Mod V1.07+

;Artificial Intelligence Script

;Header

desc = Fully Custumisable car with Gears, Brakes, Acceleration, Steering and More

:state=0:makecamera=carcam
:state=0:offsetcamy=carcam 100,offsetcamfore=carcam= -200
:state=0:dimvar=gear,dimvar=topspeed,dimvar=accel,dimvar=vel,dimvar=angle,dimvar=TempX,dimvar=TempY
:state=0,plrdistwithin=100,plrusi ngaction=1:startmenu,viewcam=carcam,plrcoloff,loopsound=audiobank/atmos/motorhum.wav,animate=1,state=1

:state=1:PlrLives,hudunshow=PlrLivesNum,hudunshow=PlrHealth,hudunshow=PlrHealthNum,hudunshow=GunPic,huduns how=PlrAmmo,hudunshow=PlrArmor,hudunshow=PlrArmorNum,hudunshow=PlrMoney,hudunshow=PlrMoneyNum,cameraposx=carcam $EPX,cameraposy=caram $EPY,cameraposz=carcam $EPZ,state=2

;ok now that everything is set up and we are in the car, We need to add movement to the car, Add some Gears and some Steering

:state=2,keypressed=30:addvar=angle 5,cameraangy=HumveeCam %angle
:state=2,keypressed=32:addvar=angle -5,cameraangy=HumveeCam %angle
:state=2:entityangley=%angle

;thats the steering done, Now to set the gear, We will start in gear 1 and you must press X to go up gears and Y to go down, C is clutch and you must release the accelerator

:state=2:setvar=gear 1
:state=2,keypressed=45,keypressed=46,keypressed=17 0:addvar=gear 1
:state=2,keypressed=44,keypressed=46,keypressed=17 0:addvar=gear -1
:state=2,varless=gear 0:setvar=gear 0
:state=2,vargreater=gear 5,setvar=gear 5

;Now thats our gears created, now we need to set the acceleration and limits for each gear

:state=2,varequal=gear 0:setvar=accel 0,setvar=topspeed 0
:state=2,varequal=gear 1:setvar=accel 7,setvar=topspeed 20
:state=2,varequal=gear 2:setvar=accel 12,setvar=topspeed 40
:state=2,varequal=gear 3:setvar=accel 17,setvar=topspeed 60
:state=2,varequal=gear 4:setvar=accel 20,setvar=topspeed 80
:state=2,varequal=gear 5:setvar=accel 10,setvar=topspeed 120

;Now with the limits set, we need to make sure, that if the player were to be going at 120 mph , that they could not go to gear 1 and maintain that speed

:state=2,vargreater=vel %topspeed:setvar=vel %topspeed,subvar=vel 1

;Now we need to Give the vehicle acceleration

:state=2,vargreater=gear 0,keypressed=17:addvar=vel %accel

;Now give the vehicle Reverse

:state=2,keypressed=17,varequal=gear 0:movefore=-2

;Now We need to give the Vehicle fowards movement

:state=2:movefore=%vel

;Give the vehicle Brakes

:state=2:dimvar=brakes,setvar=brakes 10
:state=2:keypressed=31:subvar=vel %brakes

;Now, Take this section from ply's version to allow the player to get out of the car

;///// Restore normal FPS Cam when "G" is pressed \\
;///// Need to restore player control with "stopmenu" and view the normal camera and stop motor sound \\
:state=2,keypressed=34 1:state=4

;///// Show the Player HUDs again \\
:state=4:hudshow=PlrLives,hudshow=PlrLivesNum,hudshow=PlrHealth,hudshow=PlrHealthNum,hudshow=GunPic,hudshow=PlrAmmo,hudshow=PlrArmor,hud show=PlrArmorNum,hudshow=PlrMoney,hudshow=PlrMoneyNum

;///// Position Player outside of driver door \\
:state=4:cameraposx=carcam $EPX,cameraposy=carcam $EPY,cameraposz=carcam $EPZ
:state=4:setvar=TempY $EAY,subvar=TempY 90
:state=4:cameraangx=carcam 0,cameraangy=carcam %TempY,cameraangz=carcam 0
:state=4:movecam=carcam 70
:state=4:setvar=TempX $CPX_carcam,cameraposx=0 %TempX
:state=4:setvar=TempX $CPY_carcam,,addvar=TempX 100,cameraposy=0 %TempX
:state=4:setvar=TempX $CPZ_carcam,,cameraposz=0 %TempX
:state=4:addvar=TempY 90,cameraangy=carcam %TempY
:state=4:cameraangy=0 %TempY
:state=4:stopmenu,viewcam=0,plrcolon,stopsound,state=0

;End of Script

;Requires Ply's Mod V1.07+

;Artificial Intelligence Script

;Header

desc = Player Character (Visible when activated)

;Triggers

:state=0:coloff,hideentity,bindentitytocam=0,offsetenty=6,state=1

:state=1,activated=1:showentity,animate=1,state=2
:state=2 ,activated=0:hideentity,state=1

;End of Script

Фанат игр Max Payne и Fahrenheit.