Wiremod.com Forums - Wiremod Lua Coding

[E2 Function] keyReload()

PINGAS — Tue, 07 Sep 2010 23:13:13 GMT

I was attempting to learn some lua and noticed that there was an absence of keyReload(), its an extremely simple but useful code that i think should be added to either wiremod svn or UWSVN. I don't feel like going through the processes necessary to have this committed to either svns heres the code and if any dev sees this add it if you want. (I and many others think this should have been there in the first place)

keyReload()

Code:

e2function number entity:keyReload()

        if not validEntity(this) then return 0 end

        if this:IsPlayer() and this:KeyDown(8192) then return 1 end

        return 0

end

To install this just simple place in garrysmod/addons/wire/lua/entities/gmod_wire_expression2/base/custom as a .lua file.
Enjoy -PINGAS

[PropCore] Global spawn limit

jacoby6000 — Tue, 07 Sep 2010 03:45:20 GMT

As many people may have noticed, the limit for how many props can be spawned per second using propCore is shared by every person in the server. This means that you can't have more than one person consistently using propCore. I honestly don't know if it was intended to be like this, or if the author failed to think of a workaround, but I went ahead and did it.. To my knowledge, it works, but i've only tried in SP. In theory it should make it so every one has their own spawn limit per second, but i'd need someone to test it server side for me first.. Anyway, here's the code for whoever wants to try it out (It still works EXACTLY like the old prop core, the only difference would be the shared spawn limit being made into a personal spawn limit)

Installation:
Just replace your prop.lua with the one below

Code:



/******************************************************************************\

Prop Core by ZeikJT and MrFaul. Limiter by Jacoby6000

\******************************************************************************/



E2Lib.RegisterExtension("propcore", true)



hook.Add("PlayerInitialSpawn", "wire_expression2_propcore", function(ply)

        ply:SendLua('language.Add("Undone_e2_spawned_prop", "E2 Spawned Prop")')

end)



local sbox_E2_maxProps = CreateConVar( "sbox_E2_maxProps", "-1", FCVAR_ARCHIVE )

local sbox_E2_maxPropsPerSecond = CreateConVar( "sbox_E2_maxPropsPerSecond", "4", FCVAR_ARCHIVE )

local sbox_E2_PropCore = CreateConVar( "sbox_E2_PropCore", "2", FCVAR_ARCHIVE )



local E2Helper = { Descriptions = {} }

local E2totalspawnedprops = 0

local E2tempSpawnedProps = {}





local function ValidSpawn(ent)

        if E2tempSpawnedProps[ent] >= sbox_E2_maxPropsPerSecond:GetInt() then return false end

        if sbox_E2_maxProps:GetInt() <= -1 then

                return true

        elseif E2totalspawnedprops>=sbox_E2_maxProps:GetInt() then

                return false

        end

        return true

end



local function ValidAction(ply)

        return sbox_E2_PropCore:GetInt()==2 or (sbox_E2_PropCore:GetInt()==1 and ply:IsAdmin())

end



local function MakePropNoEffect(...)

        local backup = DoPropSpawnedEffect

        DoPropSpawnedEffect = function() end

        local ret = MakeProp(...)

        DoPropSpawnedEffect = backup

        return ret

end



local function createpropsfromE2(self,model,pos,angles,freeze,owner)

        if E2tempSpawnedProps[owner] == nil then E2tempSpawnedProps[owner] = 0 end

        if E2tempSpawnedProps[owner] <= sbox_E2_maxPropsPerSecond:GetInt() then

                if(!util.IsValidModel(model) || !util.IsValidProp(model) || not ValidSpawn(owner) )then

                        return nil

                end

                local prop

                if self.data.propSpawnEffect then

                        prop = MakeProp( self.player, pos, angles, model, {}, {} )

                else

                        prop = MakePropNoEffect( self.player, pos, angles, model, {}, {} )

                end

                if not prop then return end

                prop:Activate()

                self.player:AddCleanup( "props", prop )

                undo.Create("e2_spawned_prop")

                        undo.AddEntity( prop )

                        undo.SetPlayer( self.player )

                undo.Finish()

                local phys = prop:GetPhysicsObject()

                if (phys:IsValid()) then

                        phys:Wake()

                        if(freeze>0)then phys:EnableMotion( false ) end

                end

                prop.OnDieFunctions.GetCountUpdate.Function2 = prop.OnDieFunctions.GetCountUpdate.Function

                prop.OnDieFunctions.GetCountUpdate.Function =  function(self,player,class)

                        if CLIENT then return end

                        E2totalspawnedprops=E2totalspawnedprops-1

                        self.OnDieFunctions.GetCountUpdate.Function2(self,player,class)

                end

                E2totalspawnedprops = E2totalspawnedprops+1

                E2tempSpawnedProps[owner] = E2tempSpawnedProps[owner]+1

        local timerName = "propCore" ..owner

                if(timer.IsTimer(timerName) == false) then

            timer.Create(timerName, 1, 0, function()

                timer.Destroy(timerName)

                E2tempSpawnedProps[owner] = 0

            end)

        end

                return prop

        else return nil end

end



--------------------------------------------------------------------------------

e2function entity propSpawn(string model, number frozen)

        if not ValidAction(self.player) then return nil end

        return createpropsfromE2(self,model,self.entity:GetPos()+self.entity:GetUp()*25,self.entity:GetAngles(),frozen,self.player:EntIndex())

end



e2function entity propSpawn(entity template, number frozen)

        if not ValidAction(self.player) then return nil end

        if not validEntity(template) then return nil end

        return createpropsfromE2(self,template:GetModel(),self.entity:GetPos()+self.entity:GetUp()*25,self.entity:GetAngles(),frozen,self.player:EntIndex())

end



e2function entity propSpawn(string model, vector pos, number frozen)

        if not ValidAction(self.player) then return nil end

        return createpropsfromE2(self,model,Vector(pos[1],pos[2],pos[3]),self.entity:GetAngles(),frozen,self.player:EntIndex())

end



e2function entity propSpawn(entity template, vector pos, number frozen)

        if not ValidAction(self.player) then return nil end

        if not validEntity(template) then return nil end

        return createpropsfromE2(self,template:GetModel(),Vector(pos[1],pos[2],pos[3]),self.entity:GetAngles(),frozen,self.player:EntIndex())

end



e2function entity propSpawn(string model, angle rot, number frozen)

        if not ValidAction(self.player) then return nil end

        return createpropsfromE2(self,model,self.entity:GetPos()+self.entity:GetUp()*25,Angle(rot[1],rot[2],rot[3]),frozen,self.player:EntIndex())

end



e2function entity propSpawn(entity template, angle rot, number frozen)

        if not ValidAction(self.player) then return nil end

        if not validEntity(template) then return nil end

        return createpropsfromE2(self,template:GetModel(),self.entity:GetPos()+self.entity:GetUp()*25,Angle(rot[1],rot[2],rot[3]),frozen,self.player:EntIndex())

end



e2function entity propSpawn(string model, vector pos, angle rot, number frozen)

        if not ValidAction(self.player) then return nil end

        return createpropsfromE2(self,model,Vector(pos[1],pos[2],pos[3]),Angle(rot[1],rot[2],rot[3]),frozen,self.player:EntIndex())

end



e2function entity propSpawn(entity template, vector pos, angle rot, number frozen)

        if not ValidAction(self.player) then return nil end

        if not validEntity(template) then return nil end

        return createpropsfromE2(self,template:GetModel(),Vector(pos[1],pos[2],pos[3]),Angle(rot[1],rot[2],rot[3]),frozen,self.player)

end



--------------------------------------------------------------------------------

e2function void entity:propDelete()

        if not ValidAction(self.player) then return end

        if not validEntity(this) then return end

        if(!isOwner(self, this)) then return end

        if this:IsPlayer() then return end        

        this:Remove()

end



e2function number table:propDelete()

        if not ValidAction(self.player) then return 0 end

        local count = 0

        for _,ent in pairs(this) do

                if validEntity(ent) and isOwner(self, ent) and not ent:IsPlayer() then

                        count = count+1

                        ent:Remove()

                end

        end

        return count

end



e2function number array:propDelete() = e2function number table:propDelete()



--------------------------------------------------------------------------------

e2function void entity:propFreeze(number freeze)

        if not ValidAction(self.player) then return end

        if (!validPhysics(this)) then return end

        if(!isOwner(self, this)) then return end

        if(!this:IsWorld()) then

                local phys = this:GetPhysicsObject()

                phys:EnableMotion(freeze == 0)

        end

end



e2function void entity:propNotSolid(number notsolid)

        if not ValidAction(self.player) then return end

        if not validEntity(this) then return end

        if(!isOwner(self, this)) then return end

        if(!this:IsWorld()) then

                this:SetNotSolid(notsolid ~= 0)

        end

end



e2function void entity:propGravity(number gravity)

        if not ValidAction(self.player) then return end

        if (!validPhysics(this)) then return end

        if(!isOwner(self, this)) then return end

        if(!this:IsWorld()) then

                local phys = this:GetPhysicsObject()

                phys:EnableGravity(gravity~=0)

        end

end



--------------------------------------------------------------------------------



e2function void entity:setPos(vector pos)

        if not ValidAction(self.player) then return end

        if (!validPhysics(this)) then return end

        if(!isOwner(self, this)) then return end

        local phys = this:GetPhysicsObject()

        phys:SetPos(Vector(pos[1],pos[2],pos[3]))

        phys:Wake()

        if(!phys:IsMoveable())then

        phys:EnableMotion(true)

        phys:EnableMotion(false)

        end

end



e2function void entity:reposition(vector pos) = e2function void entity:setPos(vector pos)



e2function void entity:setAng(angle rot)

        if not ValidAction(self.player) then return end

        if (!validPhysics(this)) then return end

        if(!isOwner(self, this)) then return end

        local phys = this:GetPhysicsObject()

        phys:SetAngle(Angle(rot[1],rot[2],rot[3]))

        phys:Wake()

        if(!phys:IsMoveable())then

        phys:EnableMotion(true)

        phys:EnableMotion(false)

        end

end



e2function void entity:rerotate(angle rot) = e2function void entity:setAng(angle rot)



--------------------------------------------------------------------------------

e2function void entity:parentTo(entity target)

        if not ValidAction(self.player) then return end

        if not validEntity(this) then return nil end

        if not validEntity(target) then return nil end

        if(!isOwner(self, this) || !isOwner(self, target)) then return end

        this:SetParent(target)

end



e2function void entity:deparent()

        if not ValidAction(self.player) then return end

        if not validEntity(this) then return nil end

        if(!isOwner(self, this)) then return end

        this:SetParent( nil )

end



e2function void propSpawnEffect(number on)

        self.data.propSpawnEffect = on ~= 0

end



registerCallback("construct", function(self)

        self.data.propSpawnEffect = true

end)

where do we put these stuff?

sadpwner — Sat, 28 Aug 2010 09:45:23 GMT

Do i place the stuff in wiremod lua coding in my addon folder or lua?

Small Increment fix/help

Karroon — Wed, 25 Aug 2010 07:10:12 GMT

I'm trying to make an increment button that will have a clk and increment an inputted variable by another user defined variable.

If anyone can help me with my crappy gate code (I've never used LUA before and i know this is VERY incorrect) or can help me make a gate system to do this, I'd appreciate that very much.

Code:

GateActions["increment"] = {

        group = "Arithmetic",

        name = "Increment",

        inputs = { "A", "B", "Clk"},

        output = function(gate, A)

                local clk = ( Clk > 0 )

                



                        if ( clk ) then

                                

                                        A = B + A

                                        return A

                        end        





                

        end,

        label = function(Out, A)

                return "A += " .. B .. " = " .. Out

        end

}

Sorry if this is in the wrong thread, I'm new to the site
PS: this is not E2

[E2 Extinsion] cl_info

freeman — Sun, 15 Aug 2010 14:25:59 GMT

Here's a few functions to find stuff like the players xfire, email, website ect... if you have those's variables set, players can read them now.
getXfire() returns players xfire name
getEmail() returns players email account
getAIM() instant messenger
getMSN() microsoft nets
getGtalk() Gtalk
ect...
You can set these variables with cl_xfire, cl_email, cl_aim, ect...

Code:

/******************************************************************************/

e2function string entity:getXfire()

        if(!validEntity(this)) then return "" end

        if(!this:IsPlayer()) then return "" end

        return this:GetXFire()

end



e2function string entity:getEmail()

        if(!validEntity(this)) then return "" end

        if(!this:IsPlayer()) then return "" end

        return this:GetEmail()

end



e2function string entity:getAIM()

        if(!validEntity(this)) then return "" end

        if(!this:IsPlayer()) then return "" end

        return this:GetAIM()

end



e2function string entity:getMSN()

        if(!validEntity(this)) then return "" end

        if(!this:IsPlayer()) then return "" end

        return this:GetMSN()

end



e2function string entity:getGtalk()

        if(!validEntity(this)) then return "" end

        if(!this:IsPlayer()) then return "" end

        return this:GetGTalk()

end



e2function string entity:getWebsite()

        if(!validEntity(this)) then return "" end

        if(!this:IsPlayer()) then return "" end

        return this:GetWebsite()

end



e2function string entity:getLocation()

        if(!validEntity(this)) then return "" end

        if(!this:IsPlayer()) then return "" end

        return this:GetLocation()

end

/******************************************************************************/

Posting to see if these would be useful to anyone besides myself, or just so you can add them to your custom e2 extensions.

E:setpos(V) and E:chatPrint(N) restrict, need help.

sadow200 — Fri, 13 Aug 2010 02:32:45 GMT

Hello Could you help me please.
I have tried to make the functions for admin and specific players by SteamId or by ULX groups but every time the player I tried to add got this error

sv: Expression 2 (Test Teleport): ...gmod_wire_expression2\core\custom\divranse2stuf f.lua:293: attempt to index global 'ply' (a nil value)

Here Are The Codes:

Code:

//PRINT TO CHAT VERSION 1

registerFunction("chatPrint", "ns", "", function(self,args)

    local op1, op2 = args[2], args[3]

    local rv1, rv2 = op1[1](self,op1), op2[1](self,op2)

    if (!self.player:IsAdmin() and self.player != ULib.getUser(    daranable,

    enable_keywords,

    ply    )) then return end

    local Msg = rv2

    local Number = rv1

    if (Number == 0) then

        Msg = Msg

    elseif (Number == 1) then

        Msg = "[E2] "..Msg

    elseif (Number == 2) then

        Msg = "[".. self.player:GetName() .."'s E2] ".. Msg

    else 

    self.player:PrintMessage( HUD_PRINTTALK, "You can only use 0, 1 or 2. This message tells you that you entered the wrong number. This cannot be seen by others." )

    return

    end

    for k,v in pairs ( player.GetAll() ) do

        v:PrintMessage( HUD_PRINTTALK, Msg );

    end



end)

//PRINT TO CHAT VERSION 1 END

//PRINT TO CHAT VERSION 2

registerFunction("chatPrint", "s", "", function(self,args)

    local op1 = args[2]

    local rv1 = op1[1](self,op1)

    if (!self.player:IsAdmin() and ply.steamID()!="STEAM_0:1:148*****") then return end

    local Msg = rv1

    for k,v in pairs ( player.GetAll() ) do

        v:PrintMessage( HUD_PRINTTALK, Msg );

    end



end)

//PRINT TO CHAT VERSION 2 END

//PRINT TO CHAT VERSION 3

registerFunction("chatPrint", "e:s", "", function(self,args)

    local op1, op2 = args[2], args[3]

    local rv1, rv2 = op1[1](self,op1), op2[1](self,op2)

    if (!self.player:IsAdmin() and ply.steamID()!="STEAM_0:1:148*****") then return end

    if (!validEntity(rv1)) then return end

        rv1:PrintMessage( HUD_PRINTTALK, rv2 );

end)

//PRINT TO CHAT VERSION 3 END

//PRINT TO CHAT VERSION 4

registerFunction("chatPrint", "e:ns", "", function(self,args)

    local op1, op2, op3 = args[2], args[3], args[4]

    local rv1, rv2, rv3 = op1[1](self,op1), op2[1](self,op2), op3[1](self,op3)

    if (!self.player:IsAdmin() and ply.steamID()!="STEAM_0:1:148*****") then return end

    if (!validEntity(rv1)) then return end

    local Number = rv2

    local Msg = rv3

    if (Number == 0) then

        Msg = Msg

    elseif (Number == 1) then

        Msg = "[E2] "..Msg

    elseif (Number == 2) then

        Msg = "[".. self.player:GetName() .."'s E2] ".. Msg

    else 

    self.player:PrintMessage( HUD_PRINTTALK, "You can only use 0, 1 or 2. This message tells you that you entered the wrong number. This message cannot be seen by others." )

    return

    end

        rv1:PrintMessage( HUD_PRINTTALK, Msg );

end)

//PRINT TO CHAT VERSION 4 END

Code:

//Teleport

registerFunction("setPos", "e:v", "", function(self,args)

    local op1, op2 = args[2], args[3]

    local rv1, rv2 = op1[1](self, op1), op2[1](self, op2)

    local Pos = Vector( rv2[1], rv2[2], rv2[3] )

    if (!validEntity(rv1)) then return end

    if (!self.player:IsAdmin()) then

        if (rv1:IsPlayer() and ply.steamID()!="STEAM_0:1:148*****" or !isOwner(self,rv1)) then return end

    end

    if (!util.IsInWorld(Pos)) then return end

    rv1:SetPos( Pos )

end)

//Teleport