-
Posts
1,412 -
Joined
-
Last visited
-
Days Won
2
Everything posted by WASSIm.
-
hi guys i have problem if spawn vehicle or start resource all vehicle he make 99999999999999999999999 vehicles i want just double local vehicleBackLight = {} addEventHandler( "onClientResourceStart", getResourceRootElement( getThisResource() ), function () for k, theVehicle in ipairs ( getElementsByType( "vehicle" ) ) do if not ( vehicleBackLight[theVehicle] ) then local x,y,z = getElementPosition( theVehicle ) local id = getElementModel ( theVehicle ) vehicleBackLight[theVehicle] = createVehicle ( id, x, y, z ) attachElements ( vehicleBackLight[theVehicle], theVehicle, 0, 0, 0, 0, 0, 180 ) end end end ) addEventHandler( "onClientElementStreamIn", root, function() if ( getElementType( source ) == "vehicle" ) then if not ( vehicleBackLight[source] ) then local x,y,z = getElementPosition( source ) local id = getElementModel ( source ) vehicleBackLight[source] = createVehicle ( id, x, y, z ) attachElements ( vehicleBackLight[source], source, 0, 0, 1, 0, 0, 180 ) end end end )
-
ena nji lil honi ken ki yabda 3andi problem moch moham barcha wala 3andi script masro9 hadhokma kima executeSQLQuery ma yalzmek tast3ml il dbConnect wa hadhi yast3mlouha chi iconncti 3ala file sqlite wala server mysql a3awka tawa ar9a il exmple balahi tnajam trigli hadhi ? a3ika mafihach db Datebase query failed: no such table: user_data attempt to index local 'gangresult' (a boolean value) function firstTime() executeSQLQuery("CREATE TABLE IF NOT EXISTS newgangdb (gangname TEXT, money NUMERIC, hometext TEXT, inviteperm NUMERIC, motdperm NUMERIC, kickperm NUMERIC, levelperm NUMERIC, warnperm NUMERIC, depositperm NUMERIC, withdrawperm NUMERIC, deleteperm NUMERIC);") end addEventHandler("onResourceStart", getResourceRootElement(getThisResource()), firstTime) function gangCreate(player, commandname, gangname, ...) if arg.n == 0 and gangname then local playeraccount = getPlayerAccount(player) local gangresult = executeSQLQuery ( "SELECT `gang` FROM `user_data` WHERE `username` = ?", playeraccount ) local isingang = gangresult[1].gang if ( isingang == "false" ) then local existingGangsWithName = executeSQLQuery("SELECT * FROM `newgangdb` WHERE `gangname` = ?", gangname) if not existingGangsWithName[1] then executeSQLQuery("INSERT INTO newgangdb VALUES(?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)", gangname, 0, "Default home screen text, change me using the button below!", 5, 5, 5, 5, 5, 0, 5, 5) executeSQLQuery("UPDATE `user_data` SET `gang`=? WHERE `username`=?", gangname, playeraccount ) local dbName = "newgang_" .. gangname .. "_members" executeSQLQuery("CREATE TABLE ? (accountname TEXT, lastname TEXT, lastlogin NUMERIC, warnings NUMERIC, level NUMERIC)", dbName ) local realTime = getRealTime() local timestamp = realTime.year + 1900 .. "-" .. realTime.month + 1 .. "-" .. realTime.monthday executeSQLQuery("INSERT INTO ? VALUES(?, ?, ?, ?, ?)", dbName, getAccountName(playerAccount), getPlayerName(player), timestamp, 0, 5) setAccountData(playerAccount, "gang", gangname) outputChatBox("**INFO: "..getPlayerName(player).." is now in "..gangname.." **") outputChatBox("Gang successfully created. Use /gang for gangpanel.", player, 0, 255, 0) else outputChatBox("A gang with this name already exists.", player, 255, 0, 0) end else outputChatBox("You must leave your current gang to create a new one.", player, 255, 0, 0) end else outputChatBox("Invalid arguments. Gang name can't contain spaces.", player, 255, 0, 0) end end addCommandHandler("create", gangCreate) function gangPanel(player) local playeraccount = getPlayerAccount(player) local gangresult = executeSQLQuery ( "SELECT `gang` FROM `user_data` WHERE `username` = ?", playeraccount ) local isingang = gangresult[1].gang if isingang then triggerClientEvent(player, "displayPanel", player) populateGangPanel(player) else outputChatBox("* INFO: You are not in a Gang type /create to create a gang *",player,255,0,0) end end addCommandHandler("gang", gangPanel) addCommandHandler("squad", gangPanel) addCommandHandler("company", gangPanel) function populateGangPanel(player) --local playerAccount = getPlayerAccount(player) --local gangname = getAccountData(playerAccount, "gang") local playeraccount = getPlayerAccount(player) local gangnameresult = executeSQLQuery ( "SELECT `gang` FROM `user_data` WHERE `username` = ?", playeraccount ) local gangname = gangnameresult[1].gang local dbName = "newgang_" .. gangname .. "_members" local ganginfo = executeSQLQuery("SELECT * FROM `newgangdb` WHERE `gangname` = ?", gangname) local memberinfo = executeSQLQuery("SELECT * FROM ?", dbName) triggerClientEvent(player, "populatePanel", player, ganginfo[1], memberinfo, getAccountName(getPlayerAccount(player))) end function getPlayerLevel(player) local playeraccount = getPlayerAccount(player) local gangnameresult = executeSQLQuery ( "SELECT `gang` FROM `user_data` WHERE `username` = ?", playeraccount ) local gangname = gangnameresult[1].gang if gangname then local dbName = "newgang_" .. gangname .. "_members" local playerinfo = executeSQLQuery("SELECT * FROM ? WHERE `accountname` = ?", dbName, playerAccountName) return playerinfo[1]["level"] else return false end end function getPlayerGang(player) local playeraccount = getPlayerAccount(player) local gangnameresult = executeSQLQuery ( "SELECT `gang` FROM `user_data` WHERE `username` = ?", playeraccount ) local gangname = gangnameresult[1].gang return gangname end function getGangInfo(gangname) local ganginfo = executeSQLQuery("SELECT * FROM `newgangdb` WHERE `gangname` = ?", gangname) if ganginfo[1] then return ganginfo[1] else return false end end -- ALL THE HANDLER FUNCTIONS ARE HERE! function saveMOTD(motd) if getPlayerGang(source) then local ganginfo = getGangInfo(getPlayerGang(source)) local playerlevel = getPlayerLevel(source) if playerlevel >= tonumber(ganginfo['motdperm']) then executeSQLQuery("UPDATE `newgangdb` SET `hometext` = ? WHERE `gangname` = ?",motd, getPlayerGang(source)) populateGangPanel(source) end end end addEvent("_saveMOTD", true) addEventHandler("_saveMOTD", getRootElement(), saveMOTD) function levelPlayer(accountname) if getPlayerGang(source) then local ganginfo = getGangInfo(getPlayerGang(source)) local playerlevel = getPlayerLevel(source) if playerlevel >= tonumber(ganginfo['levelperm']) then local dbName = "newgang_" .. ganginfo['gangname'] .. "_members" local playerTo = executeSQLQuery("SELECT * FROM ? WHERE `accountname`=?", dbName, accountname) if playerTo[1] then if playerlevel > (tonumber(playerTo[1]['level']) + 1) and tonumber(playerTo[1]['level']) < 5 then local newlevel = tonumber(playerTo[1]['level']) + 1 executeSQLQuery("UPDATE ? SET `level` = ? WHERE `accountname` = ?", dbName, newlevel, accountname) populateGangPanel(source) else triggerClientEvent(source, "errorDisplay", source, "Error: You can't touch players equal to/over your level.") end else triggerClientEvent(source, "errorDisplay", source, "Error: Can not find player.") populateGangPanel(source) end end end end addEvent("_levelPlayer", true) addEventHandler("_levelPlayer", getRootElement(), levelPlayer) function unlevelPlayer(accountname) if getPlayerGang(source) then local ganginfo = getGangInfo(getPlayerGang(source)) local playerlevel = getPlayerLevel(source) if playerlevel >= tonumber(ganginfo['levelperm']) then local dbName = "newgang_" .. ganginfo['gangname'] .. "_members" local playerTo = executeSQLQuery("SELECT * FROM ? WHERE `accountname`=?", dbName, accountname) if playerTo[1] then if playerlevel > tonumber(playerTo[1]['level']) and tonumber(playerTo[1]['level']) > 0 then local newlevel = tonumber(playerTo[1]['level']) - 1 executeSQLQuery("UPDATE ? SET `level` = ? WHERE `accountname` = ?", dbName, newlevel, accountname) populateGangPanel(source) else triggerClientEvent(source, "errorDisplay", source, "Error: You can't touch players equal to/over your level.") end else triggerClientEvent(source, "errorDisplay", source, "Error: Can not find player.") populateGangPanel(source) end end end end addEvent("_unlevelPlayer", true) addEventHandler("_unlevelPlayer", getRootElement(), unlevelPlayer) function warnPlayer(accountname) if getPlayerGang(source) then local ganginfo = getGangInfo(getPlayerGang(source)) local playerlevel = getPlayerLevel(source) if playerlevel >= tonumber(ganginfo['levelperm']) then local dbName = "newgang_" .. ganginfo['gangname'] .. "_members" local playerTo = executeSQLQuery("SELECT * FROM ? WHERE `accountname`=?", dbName, accountname) if playerTo[1] then if playerlevel > tonumber(playerTo[1]['level']) and tonumber(playerTo[1]['warnings']) < 5 then local newwarn = tonumber(playerTo[1]['warnings']) + 1 executeSQLQuery("UPDATE ? SET `warnings` = ? WHERE `accountname` = ?", dbName, newwarn, accountname) populateGangPanel(source) else triggerClientEvent(source, "errorDisplay", source, "Error: You can't touch players equal to/over your level.") end else triggerClientEvent(source, "errorDisplay", source, "Error: Can not find player.") populateGangPanel(source) end end end end addEvent("_warnPlayer", true) addEventHandler("_warnPlayer", getRootElement(), warnPlayer) function unwarnPlayer(accountname) if getPlayerGang(source) then local ganginfo = getGangInfo(getPlayerGang(source)) local playerlevel = getPlayerLevel(source) if playerlevel >= tonumber(ganginfo['levelperm']) then local dbName = "newgang_" .. ganginfo['gangname'] .. "_members" local playerTo = executeSQLQuery("SELECT * FROM ? WHERE `accountname`=?", dbName, accountname) if playerTo[1] then if playerlevel > (tonumber(playerTo[1]['level'])) and tonumber(playerTo[1]['warnings']) > 0 then local newwarn = tonumber(playerTo[1]['warnings']) - 1 executeSQLQuery("UPDATE ? SET `warnings` = ? WHERE `accountname` = ?", dbName, newwarn, accountname) populateGangPanel(source) else triggerClientEvent(source, "errorDisplay", source, "Error: You can't touch players equal to/over your level.") end else triggerClientEvent(source, "errorDisplay", source, "Error: Can not find player.") populateGangPanel(source) end end end end addEvent("_unwarnPlayer", true) addEventHandler("_unwarnPlayer", getRootElement(), unwarnPlayer) function depositMoney(money) if tonumber(money) > 0 then if getPlayerGang(source) then local ganginfo = getGangInfo(getPlayerGang(source)) local playerlevel = getPlayerLevel(source) if playerlevel >= tonumber(ganginfo['depositperm']) then local newmoney = tonumber(ganginfo['money']) + tonumber(money) if getPlayerMoney(source) >= tonumber(money) then executeSQLQuery("UPDATE `newgangdb` SET `money` = ? WHERE `gangname` = ?", newmoney, getPlayerGang(source)) takePlayerMoney(source, tonumber(money)) populateGangPanel(source) else triggerClientEvent(source, "errorDisplay", source, "Error: You don't have enough money.") populateGangPanel(source) end end end end end addEvent("_depositMoney", true) addEventHandler("_depositMoney", getRootElement(), depositMoney) function withdrawMoney(money) if tonumber(money) > 0 then if getPlayerGang(source) then local ganginfo = getGangInfo(getPlayerGang(source)) local playerlevel = getPlayerLevel(source) if playerlevel >= tonumber(ganginfo['withdrawperm']) then local newmoney = tonumber(ganginfo['money']) - tonumber(money) if tonumber(ganginfo['money']) >= tonumber(money) then executeSQLQuery("UPDATE `newgangdb` SET `money` = ? WHERE `gangname` = ?", newmoney, getPlayerGang(source)) givePlayerMoney(source, tonumber(money)) populateGangPanel(source)
-
you're welcome
-
function unBanAll ( source, command ) if ( hasObjectPermissionTo ( source , "function.removeBan", true ) ) then local bans = getBans() for i,d in ipairs ( bans ) do removeBan(d) if (removeBan(d) ) then outputChatBox ("All players has been successfully unbanned using Pejczi's script !" , source) else outputChatBox ( " You have no permission to unban all" , source ) end end else outputChatBox ("No players to unban!" , source) end end addCommandHandler ("unbanall", unBanAll)
-
local isPlayerViewingPanel = false local sw,sh = guiGetScreenSize() function dxDrawTheImage ( ) if isPlayerViewingPanel then dxDrawImage (240, 145, 550, 480, "window.png" ) dxDrawText ( "Rules", sw/2 - 26, sh/2 - 230, sw/2 + 175, sh/2 + 80, tocolor ( 255, 255, 255, 255 ), 1.6, "default-bold") end end addEventHandler ( "onClientRender", root, dxDrawTheImage ) bindKey("f6", "down",function() if ( isPlayerViewingPanel == true ) then isPlayerViewingPanel = false showCursor (false) else isPlayerViewingPanel = true showCursor (true) end end )
-
edite tested and working function LanguageChat(thePlayer, cmd, ...) local msg = table.concat({...}, " ") for _,players in ipairs(getElementsByType("player")) do local r, g, b = getPlayerNametagColor (thePlayer) local name = getPlayerName(thePlayer) local mycountry = exports.admin:getPlayerCountry(thePlayer) local playerscountry = exports.admin:getPlayerCountry(players) if (playerscountry == mycountry) then if (msg and msg ~= "") then outputChatBox("("..mycountry..") "..name..": #FFFFFF"..msg.."",players,r, g, b,true) end end end end addCommandHandler("Language",LanguageChat) addEventHandler("onPlayerJoin",root, function () bindKey(source,"L","down","chatbox","Language") end ) addEventHandler("onResourceStart",resourceRoot, function () for index, player in ipairs(getElementsByType("player")) do bindKey(player,"L","down","chatbox","Language") end end )
-
error ? try it function LanguageChat(thePlayer, cmd, ...) local msg = table.concat({...}, " ") for _,players in ipairs(getElementsByType("player")) do local r, g, b = getPlayerNametagColor (thePlayer) local name = getPlayerName(thePlayer) local mycountry = exports.admin:getPlayerCountry(thePlayer) local playerscountry = exports.admin:getPlayerCountry(players) if (playerscountry == mycountry) then if (msg and msg ~= "") then outputChatBox("("..mycountry..") "..getPlayerName(name)..": #FFFFFF"..msg.."",players,r, g, b,true) end end end end addCommandHandler("Language",LanguageChat) addEventHandler("onPlayerJoin",root, function () bindKey(source,"L","down","chatbox","Language") end ) addEventHandler("onResourceStart",resourceRoot, function () for index, player in ipairs(getElementsByType("player")) do bindKey(player,"L","down","chatbox","Language") end end )
-
local window = guiCreateWindow ( 400, 100, 100, 100, "test", false ) guiSetVisible (window,false) bindKey ("F2", "down", -- key show windows function ( ) if ( guiGetVisible ( window ) == true ) then guiSetVisible ( window, false ) else guiSetVisible ( window, true ) showCursor (true) end end ) bindKey ("F9", "down", --key stop cursor function ( ) showCursor (false) end )
-
function LanguageChat(thePlayer, cmd, ...) local msg = table.concat({...}, " ") for _,players in ipairs(getElementsByType("player")) do local r, g, b = getPlayerNametagColor (thePlayer) local name = getPlayerName(thePlayer) local mycountry = exports.admin:getPlayerCountry(thePlayer) local playerscountry = exports.admin:getPlayerCountry(players) if (playerscountry == mycountry) then if (msg and msg ~= "") then local r, g, b = getPlayerNametagColor (thePlayer) local name = getPlayerName(thePlayer) outputChatBox("("..getPlayerCountry(thePlayer)..") "..getPlayerName(name)..": #FFFFFF"..msg,root,r, g, b,true) end end end end addCommandHandler("Language",LanguageChat) addEventHandler("onPlayerJoin",root, function () bindKey(source,"L","down","chatbox","Language") end ) addEventHandler("onResourceStart",resourceRoot, function () for index, player in ipairs(getElementsByType("player")) do bindKey(player,"L","down","chatbox","Language") end end )
-
slm lolad wa romdhankom mabrok. 3andi server fih problem mi5adamch il function hadhoma: dbConnect dbExec dbQuery dbPoll dbFree kol mara yatla3li bi error
-
8x 16 Slot servers for free! gta-servers.net giveaway!
WASSIm. replied to =FAS=Shigawire's topic in Hosting solutions
wtfff why my server is stoped -
why need table ? he is want if kill zombie with pistol in head win 1 point stat pistol and if kill zombie in other body win 0.5 stat pistol
-
addEvent( "onZombieWasted", true ) addEventHandler( "onZombieWasted", root, function ( killer, weapon, bodypart ) if getElementType ( killer ) == "player" if killer and killer ~= source then local stat = getPedStat(killer, 69 ) if (bodypart == 9) and (weapon == 22) then setPedStat( killer, 69, stat+1) elseif (weapon == 22) then setPedStat( killer, 69, stat+0.5) end end end end )
-
Dinar light?? wlh lé 3andi saref. On topic, MySQL w SQLite mech b3ad barcha 3lé b3adhom, mais MySQL lezmou server wa7dou, w SQLite intégrée fel server.
-
MySQL il sql itat7at fi server 5asa bil mysql
-
dabert, BMW fi type B, soumha 1.4M hoh hoh hoh ena dabart tayara somha 300K wa inti mdabar BMW bi 1.4M
-
( win ) is element function guidxCreateWindow(x,y,w,h,text) win = guiCreateStaticImage( x,y,w,h, "black.png", false) local wx, wy = guiGetSize ( win, false ) guiSetProperty( win, "Alpha", 70) local winup = guiCreateStaticImage( 0,0,1,0.1, "winup.jpg", true, win ) local text = guiCreateLabel(0,0,1, 1,text,true, winup) guiSetProperty( text, "Alpha", 300) guiLabelSetHorizontalAlign(text, "center") guiLabelSetVerticalAlign(text, "center") guiSetFont ( text, guiCreateFont( "font.ttf", 30 ) ) return win end
-
ena 3andi problem
-
no no no i dont want that i make this because i want all ( guidxCreateWindow ) moving function main ( ) if ( guiGetVisible ( win ) == true ) then start = getTickCount() addEventHandler ("onClientRender", root, move) else removeEventHandler ("onClientRender", root, move) end end addEventHandler ("onClientResourceStart", root, main)