GTA Közösség - A magyar GTA fórum

local credits = \" (\"..tostring(getElementData(thePlayer, \"accounts:credits\"))..\")\"
local credits =  getElementData(thePlayer, \"accounts:credits\")
local credits =  getElementData(thePlayer, \"credits\")
local credits =  (getElementData(thePlayer, \"accounts:credits\"))
local credits =  (getElementData(thePlayer, \"credits\"))

local myShader
local timer
function update( )
if tonumber( exports[\'account-system\']:loadSavedData(\"enable_vehicle_shader\", \"1\") ) == 1 then
if myShader then
   return
end
-- Create shader
myShader, tec = dxCreateShader ( \"car_paint.fx\" )
if not myShader then
   -- outputChatBox( \"Could not create shader. Please use debugscript 3\" )
else
   --outputDebugString( \"water shader: Using technique \" .. tec )
   local textureVol = dxCreateTexture ( \"images/smallnoise3d.dds\" );
   local textureCube = dxCreateTexture ( \"images/cube_env256.dds\" );
   dxSetShaderValue ( myShader, \"sRandomTexture\", textureVol );
   dxSetShaderValue ( myShader, \"sReflectionTexture\", textureCube );
   -- Apply to world texture
   engineApplyShaderToWorldTexture ( myShader, \"vehiclegrunge256\" )
   engineApplyShaderToWorldTexture ( myShader, \"?emap*\" )
   --[[
   timer = setTimer(
      function()
         if myShader then
            local r,g,b,a = getWaterColor()
            dxSetShaderValue ( myShader, \"gVehicleColor\", r/255, g/255, b/255, a/255 );
         end
      end,
      5000,
      0
   )
end
else
if myShader then
   destroyElement(myShader)
   killTimer(timer)
   myShader = nil]]
end
end
end
addEventHandler( \"onClientResourceStart\", resourceRoot, update )
addEventHandler( \"accounts:options:settings:updated\", root, update )

bMods = guiCreateButton(0.01, 0.50, 0.20, 0.10, \"Modpanel\", true, aTeszt)
addEventHandler

addEventHandler(\"onClientGUIClick\", bMods, modPanel)

function modPanel(button, state)
if (source==bMods) and (button==\"left\") then
triggerClientEvent(source, \"panelCommand\", root)
end
end

function panelCommand()
togglePanel(not panelState)
end
addCommandHandler(\"mod\", panelCommand)
addEvent(\"panelCommand\", true)
addEventHandler(\"panelCommand\", root, panelCommand)
/code]
A Modpanel Kliens oldali.
Előre is köszönöm a Segítségeteket

      for id,terminal in ipairs(term) do

elseif action == \"load\" then
    cctvT = nil
    cctvC = nil
    cctvT = {}
    cctvC = {}
    local term = executeSQLSelect(\"cctvterminals\", \"name, loc, interior, restricted, access, options\")
    if #term > 0 then
      for id,terminal in ipairs(term) do
        cctvT[terminal.name] = {}
        cctvT[terminal.name].name = terminal.name
        cctvT[terminal.name].x = tonumber(gettok(terminal.loc,1,32)) 
        cctvT[terminal.name].y = tonumber(gettok(terminal.loc,2,32)) 
        cctvT[terminal.name].z = tonumber(gettok(terminal.loc,3,32)) 
        cctvT[terminal.name].rz = tonumber(gettok(terminal.loc,4,32)) 
        cctvT[terminal.name].mr = tonumber(gettok(terminal.loc,5,32)) or 1
        cctvT[terminal.name].mg = tonumber(gettok(terminal.loc,6,32)) or 200
        cctvT[terminal.name].mb = tonumber(gettok(terminal.loc,7,32)) or 200
        cctvT[terminal.name].ma = tonumber(gettok(terminal.loc,8,32)) or 127
        cctvT[terminal.name].dimension = tonumber(gettok(terminal.loc,9,32)) or 0
        cctvT[terminal.name].interior = tonumber(terminal.interior)
        cctvT[terminal.name].restricted = tonumber(terminal.restricted)
        cctvT[terminal.name].access = tostring(terminal.access)
        cctvT[terminal.name].onlymarker = tonumber(gettok(terminal.options,1,32)) or 0
        cctvT[terminal.name].markersize = tonumber(gettok(terminal.options,2,32)) or 2
        cctvT[terminal.name].camcount = 0
      end
    end    

function cctvDB(action, id, data)
  if action == \"create\" then
    local checkT = executeSQLSelect(\"cctvterminals\", \"name, loc, interior, restricted, access, options\")
    if not checkT then 
      local alter = executeSQLSelect(\"cctvterminals\", \"name\", \"\", 1)
      if not alter then 
        executeSQLCreateTable(\"cctvterminals\", \"name TEXT, loc TEXT, interior INTEGER, restricted INTEGER, access TEXT, options TEXT\")   
        outputChatBox(\"CCTV: DB: Created terminal table\", getRootElement(), 0, 222, 222, true)
      else 
        executeSQLQuery(\"ALTER TABLE cctvterminals ADD COLUMN options TEXT DEFAULT \'0\'\") 
        outputChatBox(\"CCTV: DB: Updated terminal table structure\", getRootElement(), 0, 222, 222, true)
      end
    end
    local checkC = executeSQLSelect(\"cctvcameras\", \"name, type, terminal, loc, interior, target, color, scan, zoom, motor, options\")
    if not checkC then 
      local alter = executeSQLSelect(\"cctvcameras\", \"name\", \"\", 1)
      if not alter then 
        executeSQLCreateTable(\"cctvcameras\", \"name TEXT, type INTEGER, terminal TEXT, loc TEXT, interior INTEGER, target TEXT, color TEXT, scan TEXT, zoom BOOL, motor BOOL, options TEXT\")
        outputChatBox(\"CCTV: DB: Created camera table\", getRootElement(), 0, 222, 222, true)
      else 
        executeSQLQuery(\"ALTER TABLE cctvcameras ADD COLUMN options TEXT DEFAULT \'0\'\") 
        outputChatBox(\"CCTV: DB: Updated camera table structure\", getRootElement(), 0, 222, 222, true)
      end
    end