---

@inputs Fire
@outputs Gun1 Gun2 Gun3 Gun4 Gun5 Gun6 Gun7 Gun8
@persist X
if (Fire) {
    interval(100)
    X++
    if(X>8) {X=1}
    ioSetOutput("Gun"+((X==1 ? 9 : X)-1),0)
    ioSetOutput("Gun"+X,1)
}

---

---

/******************************************************************************/
-- i/o functions

-- Returns an array of all entities wired to the output
e2function array ioOutputEntities( string output )
        local ret = {}
        if (self.entity.Outputs[output]) then
                local tbl = self.entity.Outputs[output].Connected
                for i=1,#tbl do if (ValidEntity(tbl[i].Entity)) then ret[#ret+1] = tbl[i].Entity end end
        end
        return ret
end

-- Returns the entity the input is wired to
e2function entity ioInputEntity( string input )
        if (self.entity.Inputs[input] and self.entity.Inputs[input].Src and ValidEntity(self.entity.Inputs[input].Src)) then return self.entity.Inputs[input].Src end
end

local function setOutput( self, args, Type )
        local op1, op2 = args[2], args[3]
        local rv1, rv2 = op1[1](self,op1), op2[1](self,op2)
        if (self.entity.Outputs[rv1] and self.entity.Outputs[rv1].Type == Type) then
                self.vars[rv1] = rv2
                self.vclk[rv1] = true
        end
end

local function getInput( self, args, default, Type )
        local op1 = args[2]
        local rv1 = op1[1](self,op1)
        if (type(default) == "table") then default = table.Copy(default) end
        if (self.entity.Inputs[rv1] and self.entity.Inputs[rv1].Type == Type) then
                return self.vars[rv1] or default
        end
        return default
end

local excluded_types = {
        xgt = true,
}

local function upperfirst( word )
        return word:Left(1):upper() .. word:Right(-2):lower()
end

registerCallback("postinit",function()
        for k,v in pairs( wire_expression_types ) do
                if (!excluded_types[short]) then
                        local short = v[1]
                        registerFunction("ioSetOutput","s"..short,""..short,function(self,args) return setOutput(self,args,k) end)
                        registerFunction("ioGetInput"..upperfirst(k == "NORMAL" and "NUMBER" or k),"s",short,function(self,args) return getInput(self,args,v[2],k) end)
                end
        end
end)

---

---

#[ Ooo, block comments
The E2 can't see this text, bwahaha! ]#

if (Stuff #[ & BrokenStuff ]#)
{
    moarStuff()
}

print("Hey look
strings can go to the next line.
BTW, newlines are preserved, so the text is printed in multiple lines.
You can stop this by placing a backslash \
at the end of the line.")

---

---

Test = "\d120" # Test = "x"

---

---

Test = "\d"+Number

---

---

N = pointHasContent( V, S )

---

---

print(pointHasContent( entity():pos() - vec(0,0,50), "water" ))

---

---

print(pointHasContent( entity():pos() - vec(0,0,50), "water,solid" ))

---

---

S = pointContents( V )

---