E2 - CJ's functions

[[FX]CJ[CrS]]

hey
im a beginner of LUA and i will show you my first "working" scripts

 registerFunction("extinguish", "e:n", " ", function(self, args)
    local op1, op2 = args[2], args[3]
    local rv1, rv2 = op1[1](self, op1),op2[1](self, op2)
    if(!validEntity(rv1)) then return 0 end
    if(!isOwner(self, rv1)) then return end
    if rv2 then rv1:Extinguish(); end
end)

registerFunction("sequence", "e:s", " ", function(self, args)
    local op1, op2 = args[2],args[3]
    local rv1, rv2 = op1[1](self, op1),op2[1](self, op2)
    if(!validEntity(rv1)) then return 0 end
    if(!isOwner(self, rv1)) then return end
    local sequence = rv1:LookupSequence( rv2 )
    rv1:SetSequence(sequence) 
end)

registerFunction("setHealth", "e:n", " ", function(self, args)
    local op1, op2 = args[2],args[3]
    local rv1, rv2 = op1[1](self, op1),op2[1](self, op2)
    if(!validEntity(rv1)) then return 0 end
    if(!isOwner(self, rv1)) then return end
    rv1:SetHealth( rv2 )
end)

registerFunction("npcSetEnemy", "e:e", " ", function(self, args)
    local op1, op2 = args[2],args[3]
    local rv1, rv2 = op1[1](self, op1),op2[1](self, op2)
    if(!validEntity(rv1)) then return 0 end
    if(!isOwner(self, rv1)) then return end
    rv1:SetEnemy( rv2 )
end)

/* NEW functions */
registerFunction("takeDamage", "e:ne", " ", 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(!isOwner(self, rv1)) then return end
    if(!validEntity(rv1)) then return 0 end
    rv1:TakeDamage( rv2, rv3 )
end)

registerFunction("createEffect", "svv", " ", 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)
    local effectdata = EffectData()
    local vPoint = Vector(rv2[1],rv2[2],rv2[3])
    local vPointUp = Vector(rv3[1],rv3[2],rv3[3])
    if (rv1 == "Explosion") then return 0 end
    if (rv1 == "dof_node") then return 0 end
    effectdata:SetOrigin( vPointUp ) 
    effectdata:SetStart( vPoint )
    effectdata:SetScale( 1 )
    util.Effect( rv1, effectdata ) 
end) 
  

extinguish -> unignite a prop
sequence -> set a animation (string) of the input entity
setHealth -> set the health of the entity
npcSetEnemy -> set the enemy (entity2) of the NPC (entity1)
E:takeDamage(N,E) entity 1"E" take "N" damage from "E"
createEffect(S,v,v) -> creates a effect (effects -> Util.Effect - GMod Wiki) (Explosion and dof_node effect are restricted!) Vector1 ist the aimpos from the effect and vector2 is the position of the effect

->

Entity:extinguish(1) # number are 0 or 1
Entity:sequence("idle")
Entity:setHealth(100)
Entity:npcSetEnemy(Entity2) # e("npc_alyx") ?!
E:takeDamage(N,E)
createEffect(S,v,v)

all functions are tested

BUGS: the npcSetEnemy function dosnt work correctly and takeDamage returns a "script error" if the entity dead or removed )


/EDIT: UPDATE!!!! createEffect with Position system added
have fun

[TomyLobo]

if rv2 then rv1:Extinguish(); end <-- doesnt work

in lua, _everything_ but nil and false is evaluated as false
that means both 0 and 1 are true
use this:
if rv2 and rv2 ~= 0 then rv1:Extinguish() end

this way it should work as expected
although i dont know why there is this argument anyway... if you dont want to extinguish, why are you calling this function at all?

This way it'd make much more sense:

registerFunction("extinguish", "e:", "", function(self, args)
    local op1 = args[2]
    local rv1 = op1[1](self, op1)
    if(!validEntity(rv1)) then return end
    if(!isOwner(self, rv1)) then return end
    rv1:Extinguish()
end)

[Azrael]

I'm not entirely sure about that, TomyLobo. Sure, '0 or 5' will give you 0 whereas 'nil or 5' gives 5, but I'm pretty sure that 'if false' will not execute the code inside its code block.

But TomyLobo has a point -- why the argument to the function?

[TomyLobo]

'if 0' WILL execute the block of code.
'if 1' WILL execute the block of code.
'if true' WILL execute the block of code.
'if false' will NOT execute the block of code.
'if nil' will NOT execute the block of code.
everything else WILL execute the block of code.

that's how it's written and that's how it shall be done

[jonney934]

Well, this seems to me pretty simple to add functions to E2, I guess now that he made an extinguish then there has to be an ignite.

registerFunction("ignite", "e:", "", function(self, args)
    local op1, op2 = args[2], args[3]
    local rv1, rv2 = op1[1](self, op1),op2[1](self, op2)
    if(!validEntity(rv1)) then return end
    if(!isOwner(self, rv1)) then return end
    rv1:Ignite()
end)

Would that work?

[[FX]CJ[CrS]]

Well, this seems to me pretty simple to add functions to E2, I guess now that he made an extinguish then there has to be an ignite.

registerFunction("ignite", "e:", "", function(self, args)
    local op1, op2 = args[2], args[3]
    local rv1, rv2 = op1[1](self, op1),op2[1](self, op2)
    if(!validEntity(rv1)) then return end
    if(!isOwner(self, rv1)) then return end
    rv1:Ignite()
end)

Would that work?

no
that work

registerFunction("ignite", "e:", "", function(self, args)
    local op1 = args[2]]
    local rv1 = op1[1](self, op1)
    if(!validEntity(rv1)) then return end
    if(!isOwner(self, rv1)) then return end
    rv1:Ignite()
end)

or

registerFunction("ignite", "e:n", "", function(self, args)
    local op1, op2 = args[2], args[3]
    local rv1, rv2 = op1[1](self, op1),op2[1](self, op2)
    if(!validEntity(rv1)) then return end
    if(!isOwner(self, rv1)) then return end
    if rv2 > 0 then rv1:Ignite() end
end)

UPDATE: look post 1