MR.GRAND

بحيث ايه ؟ تصنعها مثلاً ؟ executeSQLQuery getPlayerFromSerial Value = --setPlayer value to activate something getPlayerSerial -- to get serial that's will enable setTimer = --to Delete user from SQLite database executeSQLQuery if -- to triggerServerEvent and check if player have Value or not --enable or disable the system

عفوا حياك الله

اوك بس السبب هيظهر في التور بار شات ؟ + هو بيظهر في الشات و التوب بار شات انا عاوزه يظهر توب بار شات بس شف مخارج الشات بالأدمنية وأحذف الإخراج بالشات حق الأشياء اللي تبغاها

السبب رح لوحة الأدمنية ودور احداث الازرار اللي تبغاهم وسوي داتا والداتا حط قيمتها السبب اللي يكتبه الاعب بالقريد لست حقت وضع السبب بالأدمنية ثم استقبل الداتا بالكود اللي فوق setElementData getElementData

أنت الأقمل ي الغالي ~~ حياك الله نورت الموضوع

انا اشوف الأنجليزي عالمي اللي مايفهم انقلش خسران وماتفيده يركب مودات ويبرمج

انت وش تخربط ؟

الرجال يقول لك بالبداية حطه ملف Server side وانت حاطه Client.lua

addEventHandler("onPlayerMute",root, function() local name = getPlayerName(source) exports["TopBarChat"]:sendClientMessage(name .." Has been muted ! ",root,255,0,0) end ) addEventHandler("onPlayerUnmute",root, function() local name = getPlayerName(source) exports["TopBarChat"]:sendClientMessage(name .." Has been Unmuted ! ",root,0,255,0) end ) addEventHandler("onPlayerBan",root, function() local name = getPlayerName(source) exports["TopBarChat"]:sendClientMessage(name .." Has been Banned ! ",root,255,0,0) end )

طيب ومن وين جبت الاعب ؟ source = nil غير معرفة اول سطر ! addEventHandler("onPlayerMute",root, function() local name = getPlayerName(source) exports["TopBarChat"]:sendClientMessage("".. name .." Has been muted ! ",root,255,0,0) end ) addEventHandler("onPlayerUnmute",root, function() local name = getPlayerName(source) exports["TopBarChat"]:sendClientMessage("".. name .." Has been Unmuted ! ",root,0,255,0) end ) addEventHandler("onPlayerBan",root, function() local name = getPlayerName(source) exports["TopBarChat"]:sendClientMessage("".. name .." Has been Banned ! ",root,255,0,0) end ) كذا يصير

اقدر احطه بالكومنتي لاكن لازملي اشيل رسالة تسجيل دخول الاعب اللي تجي ع اليمين لان كوداتها مايقبلها موقع الكومنتي

السلام عليكم , كيف حالكم ي حلوين , عساكم بخير ؟ المهم بدون مقدمات مثل ماهو واضضحءء بالعنوان ... صور السكربت : يرجى مشاهدة الفيديو لمعرفة كيفية استخدام النظام : التحميل : http://www.mediafire.com/download/5w6a3 ... al_v01.zip أتمنى تقدر التعب بضغطك على زر لايك للفيديو ~ مجتمع MultiTheftAuto العربي | للمشاركة معنا | https://www.facebook.com/groups/luaprofessional/ أي اقتراحات او استفسارات او مشاكل ... اكتب تعليق او راسلني سكايب Skype : kamel1234128 في أمان الله ~

حياك الله شكرا على مرورك المتواضع

function() local x, y, z = getElementPosition(source) if (not isElement(VIPvehicle)) then local VIPvehicle = createVehicle( 411, x + 2, y + 2, z + 1) warpPlayerIntoVehicle(source, VIPvehicle) else destroyElement(VIPvehicle) local VIPvehicle = createVehicle( 411, x + 2, y + 2, z + 1) warpPlayerIntoVehicle(source, VIPvehicle) end end مايشتغل

تم حل المشكلة + شكرا لك ... حليت مشكلة كبيرة بالنسبة لي ... ثااااااانكس يغلق # + لو ابي احط مثلآ 30 وابيه يكون متغير للتايمر يعني 30 ابي التايمر يحسبه 30 يوم وعلى الثواني وبعد 30 يوم التايمر يسوي الفنكشن اللي احطه ... وش قيمة التحويل من 1000 = ثانية الى 30 = يوم "؟؟

executeSQLQuery( ' CREATE TABLE IF NOT EXISTS `VIPsystemUSERS` (userSerial,status,expiretime) ' ) function getPlayerFromSerial ( serial ) assert ( type ( serial ) == "string" and #serial == 32, "getPlayerFromSerial - invalid serial" ) for index, player in ipairs ( getElementsByType ( "player" ) ) do if ( getPlayerSerial ( player ) == serial ) then return player end end return false end addEvent('playerLogined', true) addEventHandler('playerLogined', root, function() getName = getPlayerName( source ) for i, v in ipairs(getElementsByType('player')) do OutPut( "".. getName.. "| Has been logined in ~ [VIP] System", v,20,20,255) end end ) addEvent('CheckVIPuser', true) addEventHandler( 'CheckVIPuser', root, function() local checkUSER = executeSQLQuery( ' SELECT * FROM `VIPsystemUSERS` WHERE userSerial=? ', getPlayerSerial(source) ) if ( type (checkUSER) == "table" and #checkUSER == 0 or not checkUSER ) then triggerClientEvent( 'ErrorNotVIP', source) return end for i, item in ipairs(checkUSER) do VIPstatus = item.status expireTime = item.expiretime triggerClientEvent( 'YesVIPuser', source, VIPstatus, expireTime ) end end ) addEvent('CheckPlayerSerial', true) addEventHandler( 'CheckPlayerSerial', root, function(Serial) getPlayerFromSerial ( Serial ) if (not getPlayerFromSerial (Serial)) then return end playerStatus = "activated" expiredIn = "12/7/2016" executeSQLQuery( ' INSERT INTO `VIPsystemUSERS` (userSerial,status,expiretime) VALUES(?,?,?) ', Serial, playerStatus, expiredIn ) outputChatBox( 'Activated USER seccessfully', source, 0, 255, 0) end ) هذا السيرفر انا مسوي في السطر 28 + 33 إنه يرسل للكلنت ترايقر عشان يقول له باللوحة حقت الفايب إنه سجل دخوله ويفتح له ازرار اللوحة والخاصيات , لاكن المشكلة انه يفتح الخاصيات ويسجل دخول عند كل الاعبين وعلى حسب قولك عطني جزء السيرفر وقول لي اللي اسويه بالكلنت بالضبط عشان تظهر للاعب واحد وتكون خاصة فيه فقط مو لكل الاعبين

في طريقة اخلي كل شخص تطلع له لوحة خاصة فيه منفردة عن الثاني من غير عمل جداول ؟ لآن مليت وموراضية تضبط الجداول معي

function buildVIPsystem(EnabledTo) player[EnabledTo].VIP.Window = guiCreateWindow((screenW - 566) / 2, (screenH - 342) / 2, 566, 342, "# - | [VIP] System v1.0 | - #", false) guiWindowSetSizable(player[EnabledTo].VIP.Window, false) guiSetAlpha(player[EnabledTo].VIP.Window, 1.00) guiSetProperty(player[EnabledTo].VIP.Window, "CaptionColour", "FF00FF00") end لما اسوي زر يفتح اللوحة واحط buildVIPsystem(EnabledTo) عشان ينفذ الفنكشن " يجي بالديبوق attemp to index field '?' (a nil value) في احد يعرف يحلها ؟؟ مع إني مسوي تعريف لــ ذا الجدول player مسويه player = {}

أنرت الفيديو حياك الله

السلام عليكم ورحمة الله وبركاته كيف حالكم ي حلوين عساكم بخير .. المهم اليوم جبت لكم سكربت النظام الإداري , مدري كيف اشرحه لكم لكن يفضل مشاهدة الفيديو التحميل : - https://community.multitheftauto.com/in ... s&id=12958 لاتنسى تضغط على زر لايك على الفيديو ~~ مجتمع MultiTheftAuto العربي | للمشاركة معنا | https://www.facebook.com/groups/luaprofessional/ في أمان الله

# Client : open = {} Close = { Button = {} } Spectator = { Note = {} } RemoveAcc = { Button = {}, Note = {} } Line2 = { Label = {} } Management = {} Line = { Label = {} } PlayerSerial = { Note = {} } SetPassword = { Note = {} } ChangePassword = { Button = {} } PlayerAccount = { Note = {} } Players = { Grid = {} } PlayerMoney = { Note = {} } AccManage = { Label = {} } Money = { Label = {} } Kick = { Button = {}, Note = {} } Slap = { Button = {}, Note = {} } Spying = { Button = {} } Password = { Edit = {} } Ping = { Label = {} } Statur = { Label = {} } Search = { Edit = {}, Image = {} } AdminManage = { Label = {} } PlayerPing = { Note = {} } Serial = { Label = {} } Account = { Label = {} } Management.Window = guiCreateWindow(0.25, 0.20, 0.50, 0.60, "#-| Management System |-#", true) guiWindowSetSizable(Management.Window, false) guiSetAlpha(Management.Window, 1.00) guiSetVisible(Management.Window, false) Players.Grid.Window = guiCreateGridList(0.01, 0.11, 0.30, 0.86, true, Management.Window) guiGridListSetSelectionMode ( Players.Grid.Window, 0 ) guiGridListAddColumn(Players.Grid.Window, "# Players ...", 0.9) Search.Edit.Window = guiCreateEdit(0.01, 0.06, 0.26, 0.04, "Search ...", true, Management.Window) Search.Image.Window = guiCreateStaticImage(193, 27, 22, 18, ":admin/client/images/search.png", false, Management.Window) guiSetProperty(Search.Image.Window, "ImageColours", "tl:FF22F500 tr:FF22F500 bl:FF22F500 br:FF22F500") PlayerSerial.Note.Window = guiCreateLabel(0.32, 0.11, 0.13, 0.05, "* Player Serial :", true, Management.Window) guiSetFont(PlayerSerial.Note.Window, "default-bold-small") guiLabelSetColor(PlayerSerial.Note.Window, 0, 224, 245) guiLabelSetVerticalAlign(PlayerSerial.Note.Window, "center") Serial.Label.Window = guiCreateLabel(0.45, 0.11, 0.53, 0.05, "", true, Management.Window) guiSetFont(Serial.Label.Window, "default-bold-small") guiLabelSetVerticalAlign(Serial.Label.Window, "center") PlayerAccount.Note.Window = guiCreateLabel(0.32, 0.16, 0.15, 0.05, "* Player Account :", true, Management.Window) guiSetFont(PlayerAccount.Note.Window, "default-bold-small") guiLabelSetColor(PlayerAccount.Note.Window, 255, 23, 203) guiLabelSetVerticalAlign(PlayerAccount.Note.Window, "center") Account.Label.Window = guiCreateLabel(0.48, 0.16, 0.51, 0.05, "", true, Management.Window) guiSetFont(Account.Label.Window, "default-bold-small") guiLabelSetVerticalAlign(Account.Label.Window, "center") PlayerMoney.Note.Window = guiCreateLabel(0.32, 0.22, 0.14, 0.05, "* Player Money :", true, Management.Window) guiSetFont(PlayerMoney.Note.Window, "default-bold-small") guiLabelSetColor(PlayerMoney.Note.Window, 246, 254, 23) guiLabelSetVerticalAlign(PlayerMoney.Note.Window, "center") Money.Label.Window = guiCreateLabel(0.46, 0.22, 0.52, 0.05, "", true, Management.Window) guiSetFont(Money.Label.Window, "default-bold-small") guiLabelSetVerticalAlign(Money.Label.Window, "center") PlayerPing.Note.Window = guiCreateLabel(0.32, 0.28, 0.12, 0.05, "* Player Ping :", true, Management.Window) guiSetFont(PlayerPing.Note.Window, "default-bold-small") guiLabelSetColor(PlayerPing.Note.Window, 38, 254, 22) guiLabelSetVerticalAlign(PlayerPing.Note.Window, "center") Ping.Label.Window = guiCreateLabel(0.44, 0.28, 0.52, 0.05, "", true, Management.Window) guiSetFont(Ping.Label.Window, "default-bold-small") guiLabelSetVerticalAlign(Ping.Label.Window, "center") Statur.Label.Window = guiCreateLabel(0.32, 0.06, 0.13, 0.04, "#|* Status *|#", true, Management.Window) guiSetFont(Statur.Label.Window, "default-bold-small") guiLabelSetVerticalAlign(Statur.Label.Window, "center") AdminManage.Label.Window = guiCreateLabel(0.32, 0.38, 0.20, 0.05, "#|* Admin Manage *|#", true, Management.Window) guiSetFont(AdminManage.Label.Window, "default-bold-small") guiLabelSetVerticalAlign(AdminManage.Label.Window, "center") Line.Label.Window = guiCreateLabel(0.32, 0.34, 0.67, 0.03, "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~", true, Management.Window) guiSetFont(Line.Label.Window, "default-bold-small") guiLabelSetColor(Line.Label.Window, 254, 21, 21) guiLabelSetHorizontalAlign(Line.Label.Window, "center", false) guiLabelSetVerticalAlign(Line.Label.Window, "center") Spectator.Note.Window = guiCreateLabel(0.32, 0.45, 0.11, 0.05, "* Spectator :", true, Management.Window) guiSetFont(Spectator.Note.Window, "default-bold-small") guiLabelSetColor(Spectator.Note.Window, 254, 21, 21) guiLabelSetVerticalAlign(Spectator.Note.Window, "center") Spying.Button.Window = guiCreateButton(0.44, 0.45, 0.22, 0.05, "# Spying the player ~", true, Management.Window) guiSetFont(Spying.Button.Window, "default-bold-small") guiSetProperty(Spying.Button.Window, "NormalTextColour", "FFFF1D1D") Kick.Note.Window = guiCreateLabel(0.32, 0.52, 0.12, 0.05, "* Kick player :", true, Management.Window) guiSetFont(Kick.Note.Window, "default-bold-small") guiLabelSetColor(Kick.Note.Window, 61, 255, 29) guiLabelSetVerticalAlign(Kick.Note.Window, "center") Kick.Button.Window = guiCreateButton(0.44, 0.52, 0.22, 0.05, "# Kick the player ~", true, Management.Window) guiSetFont(Kick.Button.Window, "default-bold-small") guiSetProperty(Kick.Button.Window, "NormalTextColour", "FFFFFFFF") Slap.Note.Window = guiCreateLabel(0.32, 0.59, 0.12, 0.05, "* Slap player :", true, Management.Window) guiSetFont(Slap.Note.Window, "default-bold-small") guiLabelSetColor(Slap.Note.Window, 5, 46, 255) guiLabelSetVerticalAlign(Slap.Note.Window, "center") Slap.Button.Window = guiCreateButton(0.44, 0.59, 0.22, 0.05, "# Slap the player ~", true, Management.Window) guiSetFont(Slap.Button.Window, "default-bold-small") guiSetProperty(Slap.Button.Window, "NormalTextColour", "FFFFFFFF") Line2.Label.Window = guiCreateLabel(0.32, 0.65, 0.67, 0.03, "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~", true, Management.Window) guiSetFont(Line2.Label.Window, "default-bold-small") guiLabelSetColor(Line2.Label.Window, 254, 21, 21) guiLabelSetHorizontalAlign(Line2.Label.Window, "center", false) guiLabelSetVerticalAlign(Line2.Label.Window, "center") AccManage.Label.Window = guiCreateLabel(0.32, 0.69, 0.23, 0.05, "#|* Account Manange *|#", true, Management.Window) guiSetFont(AccManage.Label.Window, "default-bold-small") guiLabelSetVerticalAlign(AccManage.Label.Window, "center") SetPassword.Note.Window = guiCreateLabel(0.32, 0.75, 0.21, 0.04, "* Set Account Password :", true, Management.Window) guiSetFont(SetPassword.Note.Window, "default-bold-small") guiLabelSetColor(SetPassword.Note.Window, 4, 252, 255) guiLabelSetVerticalAlign(SetPassword.Note.Window, "center") Password.Edit.Window = guiCreateEdit(0.54, 0.75, 0.26, 0.04, "Password ...", true, Management.Window) ChangePassword.Button.Window = guiCreateButton(0.80, 0.75, 0.18, 0.04, "# Change ~", true, Management.Window) guiSetFont(ChangePassword.Button.Window, "default-bold-small") guiSetProperty(ChangePassword.Button.Window, "NormalTextColour", "FFFFFFFF") RemoveAcc.Note.Window = guiCreateLabel(0.32, 0.80, 0.23, 0.04, "* Remove Player Account :", true, Management.Window) guiSetFont(RemoveAcc.Note.Window, "default-bold-small") guiLabelSetColor(RemoveAcc.Note.Window, 4, 252, 255) guiLabelSetVerticalAlign(RemoveAcc.Note.Window, "center") RemoveAcc.Button.Window = guiCreateButton(0.56, 0.80, 0.18, 0.04, "# Remove ~", true, Management.Window) guiSetFont(RemoveAcc.Button.Window, "default-bold-small") guiSetProperty(RemoveAcc.Button.Window, "NormalTextColour", "FFFFFFFF") Close.Button.Window = guiCreateButton(0.91, 0.94, 0.07, 0.04, "X", true, Management.Window) guiSetFont(Close.Button.Window, "default-bold-small") guiSetProperty(Close.Button.Window, "NormalTextColour", "FFFF0303") addEventHandler("onClientGUIChanged",root, function () if ( source == Search.Edit.Window ) then local text = string.upper(guiGetText(Search.Edit.Window)) if ( text == "" ) then addPlayers() else guiGridListClear(Players.Grid.Window) for i,v in ipairs(getElementsByType("player")) do local name = string.upper(getPlayerName(v)) if string.find(name,text) then local row = guiGridListAddRow(Players.Grid.Window) guiGridListSetItemText(Players.Grid.Window,row,1,getPlayerName(v),false,false) else end end end end end ) addEvent( 'putINFO', true ) addEventHandler( 'putINFO', root, function( playerAccount, playerSerial, playerMoney, playerPing ) guiSetText(Serial.Label.Window, playerSerial) guiSetText(Account.Label.Window, playerAccount) guiSetText(Money.Label.Window, playerMoney) guiSetText(Ping.Label.Window, playerPing) end ) function addPlayers() guiGridListClear(Players.Grid.Window) for i, player in ipairs(getElementsByType('player')) do local itemPlayer = guiGridListAddRow(Players.Grid.Window) local itemText = guiGridListSetItemText(Players.Grid.Window, itemPlayer, 1, getPlayerName(player), false, false) end end addEventHandler('onClientPlayerJoin', root, addPlayers) addEventHandler('onClientPlayerQuit', root, addPlayers) addEventHandler('onClientPlayerChangeNick', root, addPlayers) addPlayers() function open() if ( guiGetVisible(Management.Window) == false ) then guiSetVisible(Management.Window, true) showCursor(true) else guiSetVisible(Management.Window, false) showCursor(false) end end bindKey ("F5", "down", open) addEventHandler( 'onClientGUIClick', root, function() if (source == Close.Button.Window) then guiSetVisible(Management.Window, false) showCursor(false) elseif (source == Search.Edit.Window) and (guiGetText(Search.Edit.Window) == "Search ...") then guiSetText(Search.Edit.Window, "") elseif (source == Password.Edit.Window) and (guiGetText(Password.Edit.Window) == "Password ...") then guiSetText(Password.Edit.Window, "") elseif (source == Players.Grid.Window) then local getitem = guiGridListGetItemText( Players.Grid.Window, guiGridListGetSelectedItem(Players.Grid.Window), 1 ) local playerSource = getPlayerFromName(getitem) if (not playerSource) then return end triggerServerEvent( 'getInformation', localPlayer, getitem ) elseif (source == Spying.Button.Window) then local getitem = guiGridListGetItemText( Players.Grid.Window, guiGridListGetSelectedItem(Players.Grid.Window), 1 ) local playerSource = getPlayerFromName(getitem) if (not playerSource) then return end

نفس الشي مايغير الباسوورد ومايطلع اي شي بالديبوق addEvent( 'setAccPassword', true ) addEventHandler( 'setAccPassword', root, function( getitem , getPassword ) playerSource = getPlayerFromName( getitem ) if playerSource then playerAccount = getPlayerAccount ( playerSource ) setAccountPassword ( playerAccount, getPassword ) outputChatBox( '#Password set to : ' ..getPassword.. "", source, 0, 255, 0) end end )