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

function ehseg()
local players = getElementsByType(\"player\")
for k, p in ipairs(players) do
if(getElementData(p, \"CharLoggedIn\") or 0 == 1) then
   if(tonumber(getElementData(p, \"char.hunger\") or 0)<=0)then
      if(getElementHealth(p)<=5 and getElementHealth(p)~=1)then
         outputChatBox(\"Éhezel! Egyél valamit, mielőtt valami baj történne!\", p, 255, 60, 40)
      end
      setElementHealth(p,getElementHealth(p)-1)
   else
      setElementData(p, \"char.hunger\", getElementData(p, \"char.hunger\")-1)
   end
end
end
end
ehseg()
setTimer(ehseg, 120000, 0)

--- ID RENDSZER
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)
function onPlayerNameChange()
cancelEvent()
end
addEventHandler(\"onPlayerChangeNick\", getRootElement(), onPlayerNameChange)

Gondolok ez alatt pl ha felmegyek egy szerverre és beírok x-y parancsot akkor admint dobok magamra vagy eh ez hasonlókat?!

Esetleg valakinek megvan a finemta item-system-e vagy hasonló?!

function load()
    for index, weapon in pairs(weapons) do
        tex = engineLoadTXD ( \"weap/\"..weapon.fileName.. \".txd\", weapon.model )
        engineImportTXD ( tex, weapon.model )
        mod = engineLoadDFF ( \"weap/\"..weapon.fileName.. \".dff\", weapon.model )
        engineReplaceModel ( mod, weapon.model )
    end
end

Esetleg valaki tudna segíteni egy teljesen üres sql táblázat létrehozásában? Ha valaki tud küldhetne is :D

local dxpS = {guiGetScreenSize()}
local dxpK = {401,500}
local dxpP = {dxpS[1]/2-dxpK[1]/2,dxpS[2]/2-dxpK[2]/2}
local screen = {}
local comandofund = false
local functionlist = 0
local commandfunction = -dxpK[1]
local r = {0,0,0}--fekete
local H = {157, 126, 88}--hover
 
local coloredText = \"#ffffff\"
local listacomandos = { -- \"..\"
{\"/teszt\",\"teszt\",10},
}
function comandos()
if not comandofund then return end
commandfunction = commandfunction + 10
if commandfunction > dxpP[2] then
commandfunction = dxpP[2]
end                              
screen = {dxpP[1],commandfunction}
 
    
dxDrawRectangle(screen[1],screen[2],dxpK[1],dxpK[2],tocolor(r[1],r[2],r[3],255/2))
dxDrawRectangle(screen[1],screen[2],dxpK[1],50,tocolor(r[1],r[2],r[3],255/3))
dxDrawRectangle(screen[1],screen[2],dxpK[1],1,tocolor(r[1],r[2],r[3],255/2))
dxDrawRectangle(screen[1],screen[2],1,dxpK[2],tocolor(r[1],r[2],r[3],255/2))
dxDrawRectangle(screen[1]+400,screen[2],1,dxpK[2],tocolor(r[1],r[2],r[3],255/2))
dxDrawRectangle(screen[1]+200,screen[2]+50,1,dxpK[2]-50,tocolor(r[1],r[2],r[3],255/1.5))
dxDrawText(\"Valami MTA #4097DFSzabályzat\",screen[1]+60,screen[2]+10,dxpK[1],dxpK[2],tocolor(255,255,255,255),2,\"default-bold\",\"left\",\"top\",false, false, false, true)
dxDrawText(\"Szabályok:\", screen[1]+70,screen[2]+70,dxpK[1],dxpK[2], tocolor(255, 255, 255, 255), 1.0, \"default-bold\", \"left\", \"top\", false, false, false, true)
dxDrawText(\"Leírások:\", screen[1]+280,screen[2]+70,dxpK[1],dxpK[2], tocolor(255, 255, 255, 255), 1.0, \"default-bold\", \"left\", \"top\", false, false, false, true)
local elecommandfunction = 0
   for i, parafunctioncommand in ipairs( listacomandos ) do
      if (i > functionlist and elecommandfunction < 12) then
         elecommandfunction = elecommandfunction + 1
 
            coloredText = \"#ffffff\"
            dxDrawRectangle(screen[1],screen[2]+65 + elecommandfunction * 30,dxpK[1],25,tocolor(r[1],r[2],r[3],255/4))
            dxDrawText(coloredText..\"/\"..tostring(parafunctioncommand[1],parafunctioncommand[2]),screen[1]+40,screen[2]+70 + elecommandfunction * 30,dxpK[1],dxpK[2], tocolor(255, 255, 255, 255), 1.0, \"default-bold\", \"left\", \"top\", false, false, false, true)
            dxDrawText(coloredText..tostring(parafunctioncommand[2]),screen[1]+235,screen[2]+70 + elecommandfunction * 30,dxpK[1],dxpK[2], tocolor(255, 255, 255, 255), 1.0, \"default-bold\", \"left\", \"top\", false, false, false, true)
         end   
   end
end   
 
addEventHandler(\"onClientRender\",getRootElement  (),comandos)
addEventHandler(\"onClientKey\", getRootElement  (), function(g, v)
if not comandofund or not v then return end
if g == \"mouse_wheel_down\" then
functionlist = functionlist + 1
if functionlist > #listacomandos - 12 then
   functionlist = #listacomandos - 12
end   
elseif g == \"mouse_wheel_up\" then
functionlist = functionlist - 1
if functionlist < 1 then
   functionlist = 0
end   
end
end)
function functioncomandoslist2(dX, dY, dSZ, dM, eX, eY)
if(eX >= dX and eX <= dX+dSZ and eY >= dY and eY <= dY+dM) then
return true
else
return false
end
end
 

bindKey(\"c\", \"down\", function()
if comandofund then
   comandofund = false
   commandfunction = -500
   playSound (\"fechar.mp3\")
   showChat(true)
   setElementData(localPlayer, \"screenmod\",false)
else
   comandofund = true
   playSound (\"abrir.mp3\")
   showChat(false)
   setElementData(localPlayer, \"screenmod\",true)
end
end)

 
Valaki tuda segíteni, hogyan kéne ezt a (bind c ) átalakítani mert most C gomra ugrik elő és vissza.  Azt szeretném megcsinálni , hogy parancsra ugorjon elő meg hát tűnjön is el pl /infobox

function penz_set()
   setPlayerMoney(1000000)
end
addCommanhandler(\"penz_set\",penz_set)

 
http://www.kepfeltoltes.hu/150806/491712510N_vtelen_www.kepfeltoltes.hu_.png\" alt=\"491712510N_vtelen_www.kepfeltoltes.hu_.png\" />
Például ha egy scriptbe belerakom és levédetem az az pl script.luac de a file tartalmazza ezt a kódot és ha máshol fölhasználják ott is működni fog ez a parancs?
- Ha valaki esetleg tudna még ilyen kódokat írhatna :)

Sziasztok! Olyan problémám van, hogy van egy bizonyos alap radar ( kör alakú radar) és ezt hogyan tudnám,lehetne eltüntetni?
Itt egy kép és a radar alatt van ami nagyon zavar és el kellene tűnnie.
http://www.kepfeltoltes.hu/150806/1_www.kepfeltoltes.hu_.png\" alt=\"1_www.kepfeltoltes.hu_.png\" />

Üdv! Egy olyan elképzelésem lenne,hogy hogyan lehetne azt megcsinálni ahol vannak az autó módok script file-ba hogy a /ki parancsal kikapcsolná az összeset /be parancsal pedig be, ez hogyan lehetséges?!

-- Kapcsolódási adatok
local host = \"37.221.210.24\"
local felhasznalonev = \"user8712\"
local jelszo = \"46b41454\"
local adatbazis = \"paki111?server1\"
--local port = 3306
local MySqlCsatlakozas = nil
local QueryLogolas = false
function csatlakozasAzAdatbazishoz(res)
MySqlCsatlakozas = dbConnect( \"mysql\", \"dbname=\"..adatbazis..\";host=\"..host, felhasznalonev, jelszo, \"charset=utf8\" )
if (not MySqlCsatlakozas) then
if (res == getThisResource()) then
   cancelEvent(true, \"Nem sikerült elérni az adatbázist\")
end
return nil
end
return nil
end
addEventHandler(\"onResourceStart\", getResourceRootElement(getThisResource()), csatlakozasAzAdatbazishoz, false)
-- destroyDatabaseConnection - Internal function, kill the connection if theres one.
function lecsatlakozasAzAdatbazisrol()
if (not MySqlCsatlakozas) then
return nil
end
MySqlCsatlakozas = nil
return nil
end
addEventHandler(\"onResourceStop\", getResourceRootElement(getThisResource()), lecsatlakozasAzAdatbazisrol, false)
function kapcsolatCallback()
if(MySqlCsatlakozas) then
return MySqlCsatlakozas
else
return nil
end
end