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

local hangulatjelek = { 
{\":D\", \"#dec277*nevet*#FFFFFF\"},
{\":)\", \"#dec277*mosolyog*#FFFFFF\"},
{\":(\", \"#dec277*szomorú*#FFFFFF\"},
{\";)\", \"#dec277*kacsint*#FFFFFF\"},
{\"xD\", \"#dec277*röhög*#FFFFFF\"},
{\"XD\", \"#dec277*röhög*#FFFFFF\"},
{\":O\", \"#dec277*csodálkozik*#FFFFFF\"},
{\":/\", \"#dec277*fintorog*#FFFFFF\"},
}
for k, v in ipairs(hangulatjelek) do
return msg:gsub(v[1], v[2])
end

igenyTablak[#igenyTablak + 1] = {tonumber(dolog), tostring(igeny), tonumber(ido), #igenyTablak + 1}
function igenyLejaras()
for k, v in ipairs(igenyTablak) do
   if tonumber(v[3]) <= 0 then
      table.remove(igenyTablak, v[4])
   else
      igenyTablak[v[4]][3] = igenyTablak[v[4]][3] - 1
   end
end
end
setTimer ( igenyLejaras, 1000, 0, \"\" )

-- Ez ugye render alatt van:
if (distance <= 1) then
bindKey (\"U\", \"down\", TankolasKezd)
bindKey (\"U\", \"up\", TankolasVege)
dxDrawImage(screenOffset, 64, 44, \"icon.png\", 0, 0, 0, tocolor(255, 255, 255, 220), false)
else
unbindKey (\"U\", \"down\", TankolasKezd)
unbindKey (\"U\", \"up\", TankolasVege)
end
  
function TankolasKezd()

jarmu = getNearestVehicle(localPlayer)

if getElementData(jarmu, \"jarmu.Motor\") == 1 then
   outputChatBox(\"Előbb állítsd le a jármű motorját!\", 255, 255 ,255)
else 
   tankolTimer = setTimer(UzemanyagAdd, 2000, 0, \"\")
end
end
function TankolasVege()
if isTimer ( tankolTimer ) then killTimer ( tankolTimer ) end
unbindKey (\"U\", \"down\", TankolasKezd)
unbindKey (\"U\", \"up\", TankolasVege)
end
function UzemanyagAdd()
setElementData(jarmu, \"jarmu.Uzemanyag\", tonumber(getElementData(jarmu, \"jarmu.Uzemanyag\")) + 1)
end

-- Itt van az a rész, mikor ráklikkelünk:
local panelState = false
if not panelState then
panelState = true
end
PanelRender(clickedElement)
function PanelRender(clickedElement)
if panelState then
addEventHandler(\"onClientRender\",getRootElement(),
function()
   ........

if(hoverElement == localPlayer) then
guiCreateStaticImage(50, 50, 295, 388, \"kepek/jelveny.png\", false)
end

addEventHandler(\"onClientRender\",getRootElement(), PanelRender)

addEventHandler(\"onClientRender\",localPlayer, PanelRender)

        
local player_cache = {}
local taglista = {}
local elem = 0
 
player_cache = getElementsByType(\"player\")
for k,v in ipairs(player_cache) do
   elem = elem + 1
   local nev = getPlayerName(v)
 
   taglista[elem] = guiCreateLabel(400,60 + elem * (30) ,700,50,nev,false,bg)
         guiSetFont(taglista[elem], myFont)
 

end

elseif (source == taglista[elem]) then
   outputChatBox(tostring(elem))
   guiLabelSetColor ( taglista[elem], 255, 0, 0 )
   local neve = guiGetText ( taglista[elem] )
   local jatekos = getPlayerFromName (neve)
   outputChatBox(tostring(getElementData(jatekos, \"CharSzomj\"))..\" -os az éhsége \"..getPlayerName(jatekos)..\" -nak/-nek\")
else
   return false --its not one of our gomb...
end

addCommandHandler(\"setalevel\",
function(playerSource, cmd, id, level)
if id and level then
   aszint = getElementData(playerSource, \"adminlevel\")
   if(aszint >= 1) then
      local targetPlayer, targetPlayerName = exports[\'sg_functions\']:findPlayerByID(playerSource, id)
      if targetPlayer then
         oldlevel = getElementData(targetPlayer, \"adminlevel\")
         setElementData(targetPlayer, \"adminlevel\", tonumber(level))
         pc = toPlayer()
         dbExec(kapcsolat, \"UPDATE accounts SET admin = ? WHERE ID = ?\",level,getElementData(targetPlayer, \"accountID\"))         
      end
   else
      outputChatBox(\"Nincs elég magas Adminszinted a parancshoz!\", playerSource,169,139,101,true)
   end
else
   outputChatBox(\"[sGaming] #ffffff/\"..cmd..\" [NÉVRÉSZLET/ID] [ADMINSZINT]\", playerSource,169,139,101,true)   
end
end
)

function findPlayerByPartialNick(thePlayer, partialNick)
if not partialNick and not isElement(thePlayer) and type( thePlayer ) == \"string\" then
outputDebugString( \"Hibás paraméterek lettek megadva.\" )
partialNick = thePlayer
thePlayer = nil
end
local candidates = {}
local matchPlayer = nil
local matchNick = nil
local matchNickAccuracy = -1
local partialNick = string.lower(partialNick)
if thePlayer and partialNick == \"*\" then
return thePlayer, getPlayerName(thePlayer):gsub(\"_\", \" \")
elseif getPlayerFromName(partialNick) then
return getPlayerFromName(partialNick), getPlayerName( getPlayerFromName(partialNick) ):gsub(\"_\", \" \")
elseif tonumber(partialNick) then
matchPlayer = findP(thePlayer, partialNick)
candidates = { matchPlayer }
else
local players = getElementsByType(\"player\")
for playerKey, arrayPlayer in ipairs(players) do
   if isElement(arrayPlayer) then
      local playerName = string.lower(getPlayerName(arrayPlayer))
      if(string.find(playerName, tostring(partialNick))) then
         local posStart, posEnd = string.find(playerName, tostring(partialNick))
         if posEnd - posStart > matchNickAccuracy then
            -- better match
            matchNickAccuracy = posEnd-posStart
            matchNick = playerName
            matchPlayer = arrayPlayer
            candidates = { arrayPlayer }
         elseif posEnd - posStart == matchNickAccuracy then
            matchNick = nil
            matchPlayer = nil
            table.insert( candidates, arrayPlayer )
         end
      end
   end
end
end
if not matchPlayer or not isElement(matchPlayer) then
if isElement( thePlayer ) then
   if #candidates == 0 then
      outputChatBox(\"#dc143c[Hiba]:#ffffff Nincs találat.\", thePlayer, 255, 255, 255, true )
   else
      --outputChatBox( #candidates .. \" találat:\", thePlayer, 255, 194, 14)
      for _, arrayPlayer in ipairs( candidates ) do
         outputChatBox(\"(\" .. tostring( getElementData( arrayPlayer, \"playerid\" ) ) .. \") \" .. getPlayerName( arrayPlayer ), thePlayer)
      end
   end
end
return false
else
return matchPlayer, getPlayerName( matchPlayer ):gsub(\"_\", \" \")
end
end
function findP(thePlayer, nick)
nick = tonumber(nick)
for key, value in ipairs(getElementsByType(\"player\")) do
local playerID = tonumber(getElementData(value, \"playerid\"))
local playerName2 = getPlayerName(value):gsub(\"_\", \" \")
if playerID == nick then
   return value, playerName2
end
end
outputChatBox(\"#cb1919[Hiba]: #ffffffNem találtam meg a játékost.\", thePlayer,0,0,0,true)
return false
end
function findPlayerByID(thePlayer, nick)
return findPlayerByPartialNick(thePlayer, nick)
end

local ids = {}
function assignID()
    for i=1,getMaxPlayers() do
        if not ids then
            ids = source
            setElementData(source,\"char:id\",i,not optimize)
            setElementData(source,\"playerid\",i,not optimize)
            break
        end
    end
end
addEventHandler(\"onPlayerJoin\",root,assignID)
 
function freeID()
    local id = getElementData(source,\"char:id\")
    if not id then return end
    ids[id] = nil
end
addEventHandler(\"onPlayerQuit\",root,freeID)