REQUEST "nvweapon.lua" script

Author

Message

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 10th Dec 2014 13:31 Edited at: 10th Dec 2014 13:33

Link

Hello dear friends

Need help to combine two scripts in one "nvweapon.lua":

"weapon.lua" with this "fpinv.lua"

function fpinv_init(e)

end

function fpinv_main(e)

--  ------Firing Control

if (fpi_state(e, 0)) then

fpi_dimvar(e, "weapzoom");

fpi_dimvar(e, "breath");

fpi_etimerstart(e, false);

end

if (fpi_state(e, 0) and fpi_isrightweap(e, false) and fpi_haveweapleft(e, 0) and fpi_mouseclick(e, 1) and fpi_reloading(e, 0)) then

fpi_fireweapon(e, false);

end

if (fpi_state(e, 0) and fpi_isrightweap(e, false) and fpi_haveweapleft(e, 1) and fpi_mouseclick(e, 2) and fpi_reloading(e, 0)) then

fpi_fireweapon(e, false);

end

if (fpi_state(e, 0) and fpi_isrightweap(e, false) and fpi_haveweapleft(e, 1) and fpi_mouseclick(e, 3) and fpi_reloading(e, 0)) then

fpi_fireweapon(e, false);

end

if (fpi_state(e, 0) and fpi_isleftweap(e, false) and fpi_mouseclick(e, 1) and fpi_reloading(e, 0)) then

fpi_fireweapon(e, false);

end

if (fpi_state(e, 0) and fpi_isleftweap(e, false) and fpi_mouseclick(e, 3) and fpi_reloading(e, 0)) then

fpi_fireweapon(e, false);

end

--  ------Reload Control

if (fpi_state(e, 1) and fpi_reloading(e, 0)) then

fpi_enterzoom(e, false);

fpi_set_state(e, 0);

end

if (fpi_state(e, 0) and fpi_plrusingreload(e, 1) and fpi_zoomed(e, 0)) then

fpi_reloadplrweap(e, false);

end

if (fpi_state(e, 0) and fpi_plrusingreload(e, 1) and fpi_zoomed(e, 1)) then

fpi_reloadplrweap(e, false);

fpi_leavezoom(e, false);

fpi_set_state(e, 1);

end

if (fpi_state(e, 0) and fpi_reloading(e, 1) and fpi_zoomed(e, 1)) then

fpi_leavezoom(e, false);

fpi_set_state(e, 1);

end

--  ------Zoom Control

if (fpi_state(e, 0) and fpi_mouseclick(e, 2) and fpi_zoomed(e, 0)) then

fpi_enterzoom(e, false);

end

if (fpi_state(e, 0) and fpi_mouseclick(e, 2) and fpi_zoomed(e, 1)) then

fpi_leavezoom(e, false);

end

if (fpi_zoomed(e, 1)) then

fpi_setvar(e, "nv 1");

fpi_setvar(e, "thermal 0");

fpi_setvar(e, "weapzoom 1");

end

if (fpi_zoomed(e, 0)) then

fpi_setvar(e, "nv 0");

fpi_setvar(e, "weapzoom 0");

end

if (fpi_zoomed(e, 1) and fpi_keypressed(e, "20 1") and fpi_vargreater(e, "breath 0")) then

fpi_plrwobble(e, 0);

fpi_subvar(e, "breath 0.5");

end

if (fpi_zoomed(e, 1) and fpi_varequal(e, "breathing 0")) then

fpi_plrwobble(e, 20);

end

if (fpi_zoomed(e, 1) and fpi_keypressed(e, "20 0")) then

fpi_setvar(e, "breathing 0");

fpi_addvar(e, "breath 1");

end

if (fpi_zoomed(e, 1) and fpi_keypressed(e, "20 1") and fpi_vargreater(e, "breath 0") and fpi_etimergreater(e, 1850)) then

fpi_sound(e, "audiobank\music\heartbeat2.wav");

end

-- End of Script

end

+ Code Snippet

function fpinv_init(e)

end

function fpinv_main(e)

--  ------Firing Control



	if (fpi_state(e, 0)) then

		fpi_dimvar(e, "weapzoom");

		fpi_dimvar(e, "breath");

		fpi_etimerstart(e, false);

	end



	if (fpi_state(e, 0) and fpi_isrightweap(e, false) and fpi_haveweapleft(e, 0) and fpi_mouseclick(e, 1) and fpi_reloading(e, 0)) then

		fpi_fireweapon(e, false);

	end



	if (fpi_state(e, 0) and fpi_isrightweap(e, false) and fpi_haveweapleft(e, 1) and fpi_mouseclick(e, 2) and fpi_reloading(e, 0)) then

		fpi_fireweapon(e, false);

	end



	if (fpi_state(e, 0) and fpi_isrightweap(e, false) and fpi_haveweapleft(e, 1) and fpi_mouseclick(e, 3) and fpi_reloading(e, 0)) then

		fpi_fireweapon(e, false);

	end



	if (fpi_state(e, 0) and fpi_isleftweap(e, false) and fpi_mouseclick(e, 1) and fpi_reloading(e, 0)) then

		fpi_fireweapon(e, false);

	end



	if (fpi_state(e, 0) and fpi_isleftweap(e, false) and fpi_mouseclick(e, 3) and fpi_reloading(e, 0)) then

		fpi_fireweapon(e, false);

	end



	--  ------Reload Control



	if (fpi_state(e, 1) and fpi_reloading(e, 0)) then

		fpi_enterzoom(e, false);

		fpi_set_state(e, 0);

	end



	if (fpi_state(e, 0) and fpi_plrusingreload(e, 1) and fpi_zoomed(e, 0)) then

		fpi_reloadplrweap(e, false);

	end



	if (fpi_state(e, 0) and fpi_plrusingreload(e, 1) and fpi_zoomed(e, 1)) then

		fpi_reloadplrweap(e, false);

		fpi_leavezoom(e, false);

		fpi_set_state(e, 1);

	end



	if (fpi_state(e, 0) and fpi_reloading(e, 1) and fpi_zoomed(e, 1)) then

		fpi_leavezoom(e, false);

		fpi_set_state(e, 1);

	end



	--  ------Zoom Control



	if (fpi_state(e, 0) and fpi_mouseclick(e, 2) and fpi_zoomed(e, 0)) then

		fpi_enterzoom(e, false);

	end



	if (fpi_state(e, 0) and fpi_mouseclick(e, 2) and fpi_zoomed(e, 1)) then

		fpi_leavezoom(e, false);

	end



	if (fpi_zoomed(e, 1)) then

		fpi_setvar(e, "nv 1");

		fpi_setvar(e, "thermal 0");

		fpi_setvar(e, "weapzoom 1");

	end



	if (fpi_zoomed(e, 0)) then

		fpi_setvar(e, "nv 0");

		fpi_setvar(e, "weapzoom 0");

	end



	if (fpi_zoomed(e, 1) and fpi_keypressed(e, "20 1") and fpi_vargreater(e, "breath 0")) then

		fpi_plrwobble(e, 0);

		fpi_subvar(e, "breath 0.5");

	end



	if (fpi_zoomed(e, 1) and fpi_varequal(e, "breathing 0")) then

		fpi_plrwobble(e, 20);

	end



	if (fpi_zoomed(e, 1) and fpi_keypressed(e, "20 0")) then

		fpi_setvar(e, "breathing 0");

		fpi_addvar(e, "breath 1");

	end



	if (fpi_zoomed(e, 1) and fpi_keypressed(e, "20 1") and fpi_vargreater(e, "breath 0") and fpi_etimergreater(e, 1850)) then

		fpi_sound(e, "audiobank\music\heartbeat2.wav");

	end



	-- End of Script



end

I've try to use the command

"Include ("fpinv.lua") - Use within the init function to ensure the script is pre loaded"

OR the

"SwitchScript ( e,"fpinv" ) - Switch AI to use a different script"

on the "weapon.lua" but not work...

Maybe the script "fpinv.lua" is not correct ?

Any help will be appreciate, thanks in advance

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fpsarea

"The best forum, game software, operating system or web platform, it's that software which can give you most of the options and speed, not just amazing graphics."

PM Email Website

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 10th Dec 2014 18:25 Edited at: 10th Dec 2014 18:38

Link

Problem update:

I found in my computer the "LuaEdit" program, an I make (with this program) one script file named "sweapon" ...

-- LUA Script - precede every function and global member with lowercase name of script + '_main'

function sweapon_init(e,name)

weapon_name[e] = name

end

function sweapon_main(e)

PlayerDist = GetPlayerDistance(e)

if PlayerDist < 150 then

SourceAngle = g_PlayerAngY

while SourceAngle < 0.0 do

SourceAngle = SourceAngle + 360.0

end

while SourceAngle > 340.0 do

SourceAngle = SourceAngle - 360.0

end

PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)

PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)

DestAngle = math.atan2( PlayerDZ , PlayerDX )

-- Convert to degrees

DestAngle = (DestAngle * 57.2957795) - 90.0

Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))

if Result > 180 then

Result = 0

end

if Result < 20.0 then

--[[

SourceAngle = g_PlayerAngX

while SourceAngle < 0.0 do

SourceAngle = SourceAngle + 360.0

end

while SourceAngle > 335.0 do

SourceAngle = SourceAngle - 360.0

end

DestAngle = math.atan2( PlayerDZ , PlayerDY )

-- Convert to degrees

DestAngle = (DestAngle * 57.2957795) - 90.0

Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))

if Result > 180 then

Result = 0

end

if Result < 25.0 then

--]]

Prompt ("Press E To pick up the " .. weapon_name[e])

if g_KeyPressE == 1 then

PromptDuration("Collected the " .. weapon_name[e],3000)

PlaySound(e,0)

AddPlayerWeapon(e)

Destroy(e)

ActivateIfUsed(e)

end

--end

--Zoom Control

if (zoom_state(e, 0) and zoom_mouseclick(e, 2) and zoom_zoomed(e, 0)) then

zoom_enterzoom(e, false);

end

if (zoom_state(e, 0) and zoom_mouseclick(e, 2) and zoom_zoomed(e, 1)) then

zoom_leavezoom(e, false);

end

if (zoom_zoomed(e, 1)) then

zoom_setvar(e, "nv 1");

zoom_setvar(e, "thermal 0");

zoom_setvar(e, "weapzoom 1");

end

if (zoom_zoomed(e, 0)) then

zoom_setvar(e, "nv 0");

zoom_setvar(e, "weapzoom 0");

end

if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 1") and zoom_vargreater(e, "breath 0")) then

zoom_plrwobble(e, 0);

zoom_subvar(e, "breath 0.5");

end

if (zoom_zoomed(e, 1) and zoom_varequal(e, "breathing 0")) then

zoom_plrwobble(e, 20);

end

if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 0")) then

zoom_setvar(e, "breathing 0");

zoom_addvar(e, "breath 1");

end

if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 1") and zoom_vargreater(e, "breath 0") and zoom_etimergreater(e, 1850)) then

zoom_sound(e, "audiobank\zoom.wav");

end

+ Code Snippet

-- LUA Script - precede every function and global member with lowercase name of script + '_main'





function sweapon_init(e,name)

	weapon_name[e] = name

end



function sweapon_main(e)

 PlayerDist = GetPlayerDistance(e)

 if PlayerDist < 150 then

	SourceAngle = g_PlayerAngY

	while SourceAngle < 0.0 do

		SourceAngle = SourceAngle + 360.0

	end	

	while SourceAngle > 340.0 do

		SourceAngle = SourceAngle - 360.0

	end

		

    PlayerDX = (g_Entity[e]['x'] - g_PlayerPosX)

    PlayerDZ = (g_Entity[e]['z'] - g_PlayerPosZ)

	DestAngle = math.atan2( PlayerDZ , PlayerDX )

	-- Convert to degrees

	DestAngle = (DestAngle * 57.2957795) - 90.0

	

	Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))

	if Result > 180 then

		Result = 0

	end	

	

	if Result < 20.0 then

	--[[

		SourceAngle = g_PlayerAngX

		while SourceAngle < 0.0 do

			SourceAngle = SourceAngle + 360.0

		end	

		while SourceAngle > 335.0 do

			SourceAngle = SourceAngle - 360.0

		end	

				

		DestAngle = math.atan2( PlayerDZ , PlayerDY )

		-- Convert to degrees

		DestAngle = (DestAngle * 57.2957795) - 90.0		

				

		Result = math.abs(math.abs(SourceAngle)-math.abs(DestAngle))

		if Result > 180 then

			Result = 0

		end		

		

		if Result < 25.0 then

		--]]

	Prompt ("Press E To pick up the " .. weapon_name[e])

	 

			if g_KeyPressE == 1 then

			   PromptDuration("Collected the " .. weapon_name[e],3000)

			   PlaySound(e,0)

			   AddPlayerWeapon(e)

			   Destroy(e)

			   ActivateIfUsed(e)

			end

		--end

   

 



 

    --Zoom Control

 

    if (zoom_state(e, 0) and zoom_mouseclick(e, 2) and zoom_zoomed(e, 0)) then

        zoom_enterzoom(e, false);

    end

 

    if (zoom_state(e, 0) and zoom_mouseclick(e, 2) and zoom_zoomed(e, 1)) then

        zoom_leavezoom(e, false);

    end

 

    if (zoom_zoomed(e, 1)) then

        zoom_setvar(e, "nv 1");

        zoom_setvar(e, "thermal 0");

        zoom_setvar(e, "weapzoom 1");

    end

 

    if (zoom_zoomed(e, 0)) then

        zoom_setvar(e, "nv 0");

        zoom_setvar(e, "weapzoom 0");

    end

 

    if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 1") and zoom_vargreater(e, "breath 0")) then

        zoom_plrwobble(e, 0);

        zoom_subvar(e, "breath 0.5");

    end

 

    if (zoom_zoomed(e, 1) and zoom_varequal(e, "breathing 0")) then

        zoom_plrwobble(e, 20);

    end

 

    if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 0")) then

        zoom_setvar(e, "breathing 0");

        zoom_addvar(e, "breath 1");

    end

 

    if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 1") and zoom_vargreater(e, "breath 0") and zoom_etimergreater(e, 1850)) then

        zoom_sound(e, "audiobank\zoom.wav");



end

   end

 end

end

No error after I check syntax and Debugging in the LuaEdit.

But in test game pop up this error "error running function: scriptbank\sweapon.lua:51: attemp to concatenate field '?' (a nill value)"

Any idea why ?!?

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fpsarea

"The best forum, game software, operating system or web platform, it's that software which can give you most of the options and speed, not just amazing graphics."

PM Email Website

smallg

Community Leader

18

Years of Service

User Offline

Joined: 8th Dec 2005

Location:

Profile

Posted: 10th Dec 2014 19:45 Edited at: 10th Dec 2014 19:46

Link

Quote: "Prompt ("Press E To pick up the " .. weapon_name[e])"

we dont have access to the 'name' properties yet afaik, only works for the default weapon script - basically change the 2 prompts to "Press E to pick up" and it'll work

also i dont think any of the following will work unless u have some custom functions somewhere

--Zoom Control

if (zoom_state(e, 0) and zoom_mouseclick(e, 2) and zoom_zoomed(e, 0)) then

zoom_enterzoom(e, false);

end

if (zoom_state(e, 0) and zoom_mouseclick(e, 2) and zoom_zoomed(e, 1)) then

zoom_leavezoom(e, false);

end

if (zoom_zoomed(e, 1)) then

zoom_setvar(e, "nv 1");

zoom_setvar(e, "thermal 0");

zoom_setvar(e, "weapzoom 1");

end

if (zoom_zoomed(e, 0)) then

zoom_setvar(e, "nv 0");

zoom_setvar(e, "weapzoom 0");

end

if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 1") and zoom_vargreater(e, "breath 0")) then

zoom_plrwobble(e, 0);

zoom_subvar(e, "breath 0.5");

end

if (zoom_zoomed(e, 1) and zoom_varequal(e, "breathing 0")) then

zoom_plrwobble(e, 20);

end

if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 0")) then

zoom_setvar(e, "breathing 0");

zoom_addvar(e, "breath 1");

end

if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 1") and zoom_vargreater(e, "breath 0") and zoom_etimergreater(e, 1850)) then

zoom_sound(e, "audiobank\zoom.wav");

end

+ Code Snippet

 --Zoom Control

  

    if (zoom_state(e, 0) and zoom_mouseclick(e, 2) and zoom_zoomed(e, 0)) then

        zoom_enterzoom(e, false);

    end

  

    if (zoom_state(e, 0) and zoom_mouseclick(e, 2) and zoom_zoomed(e, 1)) then

        zoom_leavezoom(e, false);

    end

  

    if (zoom_zoomed(e, 1)) then

        zoom_setvar(e, "nv 1");

        zoom_setvar(e, "thermal 0");

        zoom_setvar(e, "weapzoom 1");

    end

  

    if (zoom_zoomed(e, 0)) then

        zoom_setvar(e, "nv 0");

        zoom_setvar(e, "weapzoom 0");

    end

  

    if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 1") and zoom_vargreater(e, "breath 0")) then

        zoom_plrwobble(e, 0);

        zoom_subvar(e, "breath 0.5");

    end

  

    if (zoom_zoomed(e, 1) and zoom_varequal(e, "breathing 0")) then

        zoom_plrwobble(e, 20);

    end

  

    if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 0")) then

        zoom_setvar(e, "breathing 0");

        zoom_addvar(e, "breath 1");

    end

  

    if (zoom_zoomed(e, 1) and zoom_keypressed(e, "20 1") and zoom_vargreater(e, "breath 0") and zoom_etimergreater(e, 1850)) then

        zoom_sound(e, "audiobank\zoom.wav");

 

end

life's one big game

windows vista ultimate

i5 @3.3ghz, 4gb ram, geforce gtx460, directx 11

PM Email

Old Larry

GameGuru TGC Backer

12

Years of Service

User Offline

Joined: 26th Apr 2012

Location: Bucharest, Romania

Profile

Posted: 10th Dec 2014 20:09 Edited at: 10th Dec 2014 21:13

Link

smallg wrote: "basically change the 2 prompts to "Press E to pick up" and it'll work"

You are right smallg -work, but indeed, for "zoom" part of script need some custom function to run...

Full thanks for your help

Smile today, tomorrow could be worse

http://bestradiolarry.ro/fpsarea

"The best forum, game software, operating system or web platform, it's that software which can give you most of the options and speed, not just amazing graphics."

PM Email Website

Scripts / REQUEST "nvweapon.lua" script