Crocodile
-
Posts
26 -
Joined
-
Last visited
Posts posted by Crocodile
-
-
بسم الله الرحمن الرحيم
السلام عليكم ورحمه الله وبركاته
اليوم جايبلكم بداية من تصميمي ، وساحة قتال تشبه يلي في وزارة بنسبه 98% تقدر تقول
صور البداية
الحين صور الساحة
ملاحظة: البداية لما تركبها يجيك شخصيات عشوائية ، ماعرفت اثبت شخصية
ومعطيكم رابط تحميل شوب هدية عشان الساحة
الماب لعيون سكندر #مانجرس_في_وزارة
صاحب الفكرة #كونان
نجي لتحميييييييييييييييل الماب
تحمييييييييييييل الشوب
إهـداء الى
ZA7F
The Killer
حياكم الله في سيرفر نجوم ليبيا
mtasa://185.10.17.81:27029
-
عدل ال جدول
Groups
خله على اسماء القروبات الموجوده عندك في القائمه
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل ---------------------- local Groups = { "KingOfTime", "V.I.P", "PoliceAssistant", "Police", "Moderator", "SuperModerator", "AdminTop", "AdminPlus", "AdminBoss", "AdminGeneral", "HeadAdmin", "KINGADMIN", } xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup ( "Admin-ex" ) ) then return end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end local sValue = getElementData( source,'PlayTime' ) if not sValue then sValue = '0:0:0' end local data = split(sValue,':') local hour = tonumber( data[1] ) if hour == nil or not tonumber(hour) then hour = 0 end if ( hour >= tonumber(Price)) then for _,v in ipairs(Groups) do if isObjectInACLGroup ("user." .. account, aclGetGroup (v)) then aclGroupRemoveObject(aclGetGroup(v),'user.'..account) end end setTimer (aclGroupAddObject, 500, 1, aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); else outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_)
شكراً لك بالنسبة للمخالف تم واشتغل المود والمخالف ما يقدر يرقي نفسه ، لكن بالنسبة لتبديل الرتبة ما نفع اخذت حق المخالفة وهو الوحيد يلي اشتغل
ذا الكوود يلي اشتغل معاي
-- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل ---------------------- xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup ( "Admin-F" ) ) then return outputChatBox("* ماتقدر ترقي نفسك لأنك مخالف",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end local sValue = getElementData( source,'PlayTime' ) if not sValue then sValue = '0:0:0' end local data = split(sValue,':') local hour = tonumber( data[1] ) if hour == nil or not tonumber(hour) then hour = 0 end if ( hour >= tonumber(Price)) then isObjectInACLGroup (aclGetGroup("AdminTop"),"user."..account) aclGroupRemoveObject (aclGetGroup( tostring(Group)),"user."..account) aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); else outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_)
-
https://community.multitheftauto.com/index.php?p=resources&s=details&id=1201
وضيف في السطر الـ رابع ذا
outputChatBox(''..getPlayerName(player)..' ارسل شوت ',root,255,255,0,true)
وعشان تخلي الـ تكست ابيض بدل السطر ذا
local textItem = textCreateTextItem( ""..message, 0.5, 0.5, 2, 255, 255, 255, 255, 3, "center", "center" )
شكراً بالنسبة لأضافة الخط؟ انا نزلت خط لكن ياريت تقولي وشكراً
-
مود برستيج في مشكلة
لو مثلا معي رتبة Police
ورحت اشتريت Mod
راح يكون معي 2 رتبة
Police , Mod
وهذه مشكلة
المود مافيه مشكله , اتوقع المشكله منك انت
المود مبرمج على انه يعطي رتبه ويكمل
لاكن انت بنفسك تقدر تضيف تحققات
for -- نجيب القيم من الجدول isObjectInACLGroup aclGroupRemoveObject aclGroupAddObject
نتحقق اذا كان الاعب عنده قروب سابق , من القروبات الموجوده في الجدول
نحذف منه الرتب السابقه , ونعطيه الرتبه الجديده
لاكن المود مافييه اخطأء , غير الي فوق
سويت كذا بس مازال لما ترقى تزيد رتبة ما تتبدل
aclGroupRemoveObject (aclGetGroup( tostring(Group)),"user."..account) aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true);
-
السكربت لاتوجد فية اخطاء انما بعض الشروط تجاهلت وضعها يمكنك اضافتها بـنفسك .
بالزبط لكن سؤال : كيف اجيب القيم حق الجدول ؟ ووش هو الدوبق عشان اضبط المود وشكراً
-
يكتب في الشاشه ومايكتب في الشات؟
شيك على ال
debugscript
لا مايكتب بعدين وش هو دوبق
-
Event # 'onClientGUIClick' 'onClientResourceStart' function # guiCreateWindow guiCreateGridList guiCreateButton guiCreateEdit bindKey guiSetVisible showCursor --------------- for -- نجيب القيم الموجوده في الجدول , او نجيب جميع السيارات لو تبي guiGridListAddRow guiGridListSetItemText guiGridListGetSelectedItem guiGridListGetItemText getVehicleNameFromModel getVehicleModelFromName triggerServerEvent -- Server Side createVehicle executeSQLQuery triggerClientEvent warpPedIntoVehicle setElementPosition
سويت كذا قولي لو فيه شي غلط او ناقص ذا بالنسبة لملف الكلنت
function CPanelWindow = guiCreateWindow(432, 194, 501, 440, ":: Control Panel Of Rent System ::", false) guiWindowSetSizable(CPanelWindow, false) centerWindow( CPanelWindow, 2, 2 ) guiSetAlpha(CPanelWindow, 1.00) guiSetVisible(CPanelWindow,false) carGridList = guiCreateGridList(10, 21, 260, 406, false, CPanelWindow) guiSetVisible(carGridList,false) Searching = guiCreateEdit(287, 40, 191, 25, "", false, CPanelWindow) guiEditSetMaxLength(Searching, 35) createBTN = guiCreateButton(287, 79, 191, 39, "Create Vehicle", false, CPanelWindow) guiSetProperty(createBTN, "NormalTextColour", "FFAAAAAA") destroyBTN = guiCreateButton(287, 128, 191, 39, "Destroy Vehicle", false, CPanelWindow) guiSetProperty(destroyBTN, "NormalTextColour", "FFAAAAAA") warpMeBTN = guiCreateButton(287, 177, 191, 39, "Warp Me To Vehicle", false, CPanelWindow) guiSetProperty(warpMeBTN, "NormalTextColour", "FFAAAAAA") warpVehicleBTN = guiCreateButton(287, 226, 191, 39, "Warp Vehicle To Me", false, CPanelWindow) guiSetProperty(warpVehicleBTN, "NormalTextColour", "FFAAAAAA") CCBTN = guiCreateButton(287, 276, 191, 39, "X", false, CPanelWindow) showingWindow = guiCreateWindow(190, 29, 775, 595, "", false) guiWindowSetSizable(showingWindow, false) guiSetVisible ( showingWindow, false ) centerWindow( showingWindow, 2, 2 ) guiSetAlpha(showingWindow, 1) img = guiCreateStaticImage(19, 27, 728, 510, "info.png", false, showingWindow) guiSetAlpha(img, 0.5) closeShowing = guiCreateButton(103, 548, 556, 37, "X", false, showingWindow) addEventHandler ( "onClientResourceStart", resourceRoot, function ( ) for i = 400, 600 do if ( getVehicleNameFromModel ( i ) ~= "" ) then if not DisabledCars[i] then table.insert( CAR, { model = i, name = getVehicleNameFromModel ( i ) } ) end end end table.sort( CAR, function(a, b) return a.name < b.name end ) CL1 = guiGridListAddColumn( carGridList, "Vehicle", 0.60 ) CL2 = guiGridListAddColumn( carGridList, "ID", 0.25 ) for i,v in ipairs(CAR) do local row = guiGridListAddRow ( carGridList ) guiGridListSetItemText ( carGridList, row, CL1, v.name, false, true ) guiGridListSetItemText ( carGridList, row, CL2, tostring(v.model), false, true ) end setElementData ( localPlayer, "playerCar", false ) triggerServerEvent('getRentSystem',localPlayer) end ) local Show = false bindKey ( "O", "down", function ( ) if Show == true then guiSetVisible ( CPanelWindow, not guiGetVisible ( CPanelWindow ) ) showCursor ( guiGetVisible ( CPanelWindow ) ) guiSetInputEnabled ( guiGetVisible ( CPanelWindow ) ) end end )
-
-
بسطر ثنين منت معرف player
وانت مخبص شوي مسوي كومندين واقواس وايندات زايده
صححت لك الكود وقارنه بالكود حقك عشان تعرف الاخطاء وكل شي
addCommandHandler ("msgall",function(player,cmd,...) local accName = getAccountName ( getPlayerAccount ( player ) ) if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Console" ) ) then outputChatBox("هذا اللاعب كتب على شاشة الجميع #FF00FF "..getPlayerName(player).."#FF0000", getRootElement(), 255, 0, 0, true) local message = table.concat ( { ... }," " ) textDisplay = textCreateDisplay ( ) textItem = textCreateTextItem ( message, 0.5, 0.6, 2, 255, 255, 255, 255, 2.5, "center", "center" ) setTimer ( function ( ) textDestroyTextItem ( textItem ) textDestroyDisplay ( textDisplay ) end ,5000, 1 ) end end )
شكراً للتعديل ضفت الكود الى ملف سيرفر وعرفته في الميتا وشغلت المود في السيرفر لكـن ما يبي يكتب في الشات
-
مود برستيج في مشكلة
لو مثلا معي رتبة Police
ورحت اشتريت Mod
راح يكون معي 2 رتبة
Police , Mod
وهذه مشكلة
بالزبط عشان كذا طالب برمجة للمود ، ولا تنسى المخالف يقدر يرقي نفسه ، المود يبقى خرافي لو تبرمج على هذه الطلب
-
سهلة جدا :
addCommandHandler isObjectInACLGroup outputChatBox triggerClientEvent addEventHandler dxDrawText setTimer removeEventHandler
Text functions في طريقة ثانية بـ استخدام
+
dxCreateFont
يجيب الخط الي هو يبيه
انا سويت يلي قلتولي عليه قولولي فيه خطأ او لا؟ وهل احطه في ملف السيرفر او الكلنت وشكراً
addCommandHandler ("msgall"),function() outputChatBox("هذا اللاعب كتب على شاشة الجميع #FF00FF "..getPlayerName(player).."#FF0000", getRootElement(), 255, 0, 0, true) end local accName = getAccountName ( getPlayerAccount ( thePlayer ) ) if isObjectInACLGroup ("user."..accName, aclGetGroup ( "Console" ) ) then local message = table.concat ( { ... }," " ) textDisplay = textCreateDisplay ( ) textItem = textCreateTextItem ( message, 0.5, 0.6, 2, 255, 255, 255, 255, 2.5, "center", "center" ) end setTimer ( function ( ) textDestroyTextItem ( textItem ) textDestroyDisplay ( textDisplay ) end ,5000, 1 ) end end addCommandHandler ( "msgall", shout )
-
طيب ليه ما انت تسوي لحالك وحده احسن ما تطلب وخليها دي اكس وكذا
اعرف اسوي نافذة ووكل شي بس ما اعرف كيف ادمج المود مع الاسل والساعات ، مزلت جديد في البرمجة
-
اكيد المشكلة من عندكـ تحقق انكـ مو موجود بالقروب وعندك عدد الساعات المطلوب وهالامور
وتحقق لو في اغلاط من اللي ضفته انا او انت او من الاكواد الاصلية نفسها .
ركبت مود برستيج القديم قبل التعديل وقبل ما اعدل فيه شي اخذت الكلمات يلي انت كاتبهن في الكود بدون ماننسخها جميعاً عشان الكود معدل وبالسطر اخذت الوامر من حق المخالف الى النهاية وبالترتيب لكن ما زبط المود جرب انت حمل المود وعدل عليه وشوفه وش يصير ووشكراً
-
اكيد المشكلة من عندكـ تحقق انكـ مو موجود بالقروب وعندك عدد الساعات المطلوب وهالامور
وتحقق لو في اغلاط من اللي ضفته انا او انت او من الاكواد الاصلية نفسها .
لا متأكد معاي ساعات كافية و ماني موجود في القروب المخالف لكن اجرب مود او لوحة ترقية ثانية واكلمك شكراً
-
سهلة جدا :
addCommandHandler isObjectInACLGroup outputChatBox triggerClientEvent addEventHandler dxDrawText setTimer removeEventHandler
Text functions في طريقة ثانية بـ استخدام
طيب الكود يلي انت كاتبه احطه في ملف الكلنت ؟ لاني مزلت مش عارف شي
-
سلام عليكم ورحمه الله
في سكربت معين ادور عليه لي سنة مش لاقيه
هو مود نفس يلي سواه Bozllit
بس انا ابي فيه مواصفات معينة* مثلاً:
مايكونش فيه خاصية اختيار اللوان #يكتب_ابيض_على_طول-1
يكتب في نص الشاشة-2
يكتب بخط حلو مثل في هذه الصورة-3
ملاحظة: بدون كلمة ادمن
يكون مجرد كلمة تنكتب في اف8-4
مثلاً msgall سلام عليكم ورحمه الله
لما حد يكتب في الشوت يطلع اسمه في الشات-5
نفس مايسوي بيتر في وزارة الهجولة*بالزبط,,
يلي عنده سكربت يشفره براحته بس يطرحه ليا وشكراً لكـم
في امان الله
-
الكود الي انت طارحة بالموضوع فيه اخطاء واضحه بالكلينت
عندك 4 كولمن فقط
guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة", 0.6); guiGridListAddColumn(GiveAdmin.gridlist[1], "الساعات المطلوبة", 0.2); guiGridListAddColumn(GiveAdmin.gridlist[1], "", 0.0) guiGridListAddColumn(GiveAdmin.gridlist[1], "", 0.0);
بينما انت هنا جالس تحط كلام بكولمن رقم 6 و انت ما عندك كولمن 6
guiGridListSetItemText(GiveAdmin.gridlist[1],row,6,v[1],false,false);
و هنا تجيب الكلام من كولمن رقم 6 و هو غير موجود
local Name = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,6 ));
و بعد تسوي تريقر للمتغير
triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name);
و تستخدمه بالسيرفر و هو بالأساس مافيه كولمن رقم 6
xAddToGroupFunction_ = function ( Group,Price,Name ) .. .. .. outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true);
صح بالزبط كل كلمة قلتها صحيحة ، لكن انا معدل عليه المود وحاذف اشياء وخافية ، لو انت عندك مود لوحة ترقيات محمية تقدر تشاركنا بيها وشكراً لردك
-
كتبت اسم القروب ؟ .. ومتاكد انك مو موجود بالقروب
في اخطاء بالديبوق ؟
كل شي متأكد منه ، بس مش مشكلة شكراً انت ساعدتني بارك الله فيك
-
server side
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل ---------------------- xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup ( "Admin-ex" ) ) then return end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end local sValue = getElementData( source,'PlayTime' ) if not sValue then sValue = '0:0:0' end local data = split(sValue,':') local hour = tonumber( data[1] ) if hour == nil or not tonumber(hour) then hour = 0 end if ( hour >= tonumber(Price)) then for _,group in ipairs(aclGroupList()) do local name = aclGroupGetName(group) aclGroupRemoveObject(aclGetGroup(name),'user.'..account) end aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); else outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_)
نصيحه لاتكتب created by : .. & اسمك
لانك ماصنعت السكربت عدلت عليه فقط
create by :
edited by : اسمك
شكراً على مساعدتك بس والله المود ما يبغى يعطى رتبة ابداً ولما رجعت كود قبل التعديل رجع اشتغل ياريت لو تعدل عليه ثاني واسف تعبتك معاي
-
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل ---------------------- local ForbiddenGroup = "" -- اسم قروب المخالفين xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(ForbiddenGroup)) then return outputChatBox("* انت مخالف",source,255,0,0,true); end local sValue = getElementData( source,'PlayTime' ) if not sValue then sValue = '0:0:0' end local data = split(sValue,':') local hour = tonumber( data[1] ) if hour == nil or not tonumber(hour) then hour = 0 end if ( hour >= tonumber(Price)) then revmoeOtherGroups ( source ) aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); else outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_) function revmoeOtherGroups ( element ) if ( element and isElement ( element ) ) then if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then for _, v in ipairs( aclGroupList ( ) ) do if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ), v ) ) then aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) end end end end end
للأسف ما يبي يرقي ، لما رجعت الكود القديم حق السيرفر بقى يرقي لكن كودك ما خلاني اترقى ياريت تقولي وش السبب ، وشكراً لك عشان متابع معايا
-
السلام عليكم ورحمه الله وبركاته
اليوم جبت لكم مود من تعديلي المود من أصل الله يعطيه كل خير #برستيج
طبعاً انا أخذت القديم وعدلت على بحيث يكون اجمل وكفو ، ونجحت في العمل بحمد الله ، وما شلت الحقوق حق برستيج والمود غير مشفّر نهائي
الآن الصـور #قبـل و #بعـد
قــــــــــــبــــــــــــــــــــــــــــــــــــــل
بـــــــــــعــــــــــــــــــــــــــــــد
أطـلب من ذوي الخبرة والمبرمجين يعدلون على المود ويخلّون ( المخالف ) ما يقدر يترقى في اللوحة ، ابي اسم القروب ( Admin-ex )
والشي الثاني ، لو اي شخص يترقى تتبـدل رتبته ما تزيد! ، لأنه في هذه المود لو ترقي نفسك من شرطي الى مشرف تكون عندك رتبتين #شرطي_و_مشرف ، انا ما ابي هذه الشي #فضلاً_وليس_أمراً
ياريت تضبطون يلي قلتلكم عليه وتحطون كل شي وشكراً مقدماً
كود ملف الكلنت
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل ---------------------- ---------------------- -- Setting ---------------------- local Key = "F7" local Admin = { {"","KingOfTime","10"}, {"","V.I.P","20"}, {"","PoliceAssistant","25"}, {"","Police","30"}, {"","Moderator","40"}, {"","SuperModerator","45"}, {"","AdminTop","50"}, {"","AdminPlus","55"}, {"","AdminBoss","60"}, {"","AdminGeneral","80"}, {"","HeadAdmin","90"}, {"","KINGADMIN","90"}, } ---------------------- -- Setting ---------------------- GiveAdmin = { Window = {}, gridlist = {}, button = {}, label = {}, } function centerWindow(center_window) local screenW,screenH=guiGetScreenSize() local windowW,windowH=guiGetSize(center_window,false); local x,y = (screenW-windowW)/2,(screenH-windowH)/2 guiSetPosition(center_window,x,y,false); end GiveAdmin.Window[1] = guiCreateWindow(445, 532, 400, 339, "حياكم الله في لوحة الترقيات", false); centerWindow(GiveAdmin.Window[1]); guiSetVisible(GiveAdmin.Window[1],false); guiWindowSetSizable(GiveAdmin.Window[1], false); guiSetAlpha(GiveAdmin.Window[1], 1.00); guiSetProperty(GiveAdmin.Window[1], "CaptionColour", "FF0383FB"); GiveAdmin.label[1] = guiCreateLabel(8, 19, 232, 33, "You Can Take a Group By Your Hours", false, GiveAdmin.Window[1]); GiveAdmin.label[2] = guiCreateLabel(243, 33, 232, 53, "يمكنك أن تأخذ رتبة بساعاتك", false, GiveAdmin.Window[1]); guiSetFont(GiveAdmin.label[1], "default-bold-small") guiLabelSetColor(GiveAdmin.label[1], 255, 0, 0) GiveAdmin.gridlist[1] = guiCreateGridList(9, 51, 494, 236, false, GiveAdmin.Window[1]); guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة", 0.6); guiGridListAddColumn(GiveAdmin.gridlist[1], "الساعات المطلوبة", 0.2); guiGridListAddColumn(GiveAdmin.gridlist[1], "", 0.0) guiGridListAddColumn(GiveAdmin.gridlist[1], "", 0.0); GiveAdmin.label[3] = guiCreateLabel(10, 303, 267, 26, "Created By : Mr.Pres[T]ege & =][Croco[D]ile][=", false, GiveAdmin.Window[1]); guiSetFont(GiveAdmin.label[2], "default-bold-small"); guiLabelSetColor(GiveAdmin.label[2], 41, 255, 0); GiveAdmin.button[1] = guiCreateButton(289, 292, 185, 86, "أختار الرتبة", false, GiveAdmin.Window[1]); guiSetFont(GiveAdmin.button[1], "default-bold-small"); guiSetProperty(GiveAdmin.button[1], "NormalTextColour", "FFF5FF00"); for k,v in ipairs ( Admin ) do row = guiGridListAddRow(GiveAdmin.gridlist[1]); guiGridListSetItemText(GiveAdmin.gridlist[1],row,1,v[2],false,false); guiGridListSetItemText(GiveAdmin.gridlist[1],row,2,v[3],false,false); guiGridListSetItemText(GiveAdmin.gridlist[1],row,6,v[1],false,false); guiGridListSetItemColor(GiveAdmin.gridlist[1],row,3,0,0,0); guiGridListSetItemColor(GiveAdmin.gridlist[1],row,1,255,0,0); guiGridListSetItemColor(GiveAdmin.gridlist[1],row,2,0,255,0); guiSetFont(GiveAdmin.gridlist[1],"default-bold-small"); end xMainFunctions_ = function ( ) local row, col = guiGridListGetSelectedItem ( GiveAdmin.gridlist[1] ) local Group = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,1 )); local Price = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,2 )); local Name = tostring ( guiGridListGetItemText(GiveAdmin.gridlist[1],row,6 )); if ( row and col and row ~= -1 and col ~= -1 ) then triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); else outputChatBox("* الرجاء أختيار رتبة",255,0,0,true); end end addEventHandler("onClientGUIClick",GiveAdmin.button[1],xMainFunctions_,false); xBindFunction_ = function () guiSetVisible(GiveAdmin.Window[1],not guiGetVisible(GiveAdmin.Window[1])); showCursor(guiGetVisible(GiveAdmin.Window[1])); end bindKey(Key,"down",xBindFunction_);
كود ملف السيرفر
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل ---------------------- xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end local sValue = getElementData( source,'PlayTime' ) if not sValue then sValue = '0:0:0' end local data = split(sValue,':') local hour = tonumber( data[1] ) if hour == nil or not tonumber(hour) then hour = 0 end if ( hour >= tonumber(Price)) then aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); else outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_)
في أمان الله
-
بالنسبة للمخالف .. كيف نعرف انه مخالف ؟ داتا ؟ قروب ؟ تيم ؟ كيف ؟
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل ---------------------- xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end local sValue = getElementData( source,'PlayTime' ) if not sValue then sValue = '0:0:0' end local data = split(sValue,':') local hour = tonumber( data[1] ) if hour == nil or not tonumber(hour) then hour = 0 end if ( hour >= tonumber(Price)) then revmoeOtherGroups ( source ) aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); else outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_) function revmoeOtherGroups ( element ) if ( element and isElement ( element ) ) then if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then for _, v in ipairs( aclGroupList ( ) ) do if ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ), v ) ) then aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) end end end end end
قروب
-
المود حلو ..D
شكلي بسوي واحد , ومشكور ع الطرح
العفو
-
شكراً لك لكن انا ما عرفت اضيف الكود ؟ حاولت احطه في ملف السيرفر لكن المود مايبي يعطي رتبة من اساسه
ياريت لو انت تعطيني الكود كامل أكون شاكر لك واسف تعبتك معاي
والشي اهم ابي اي حد ينصك مخالف ما يقدر يرقي نفسه وشكراً لك على ردك
هذه الكود خليه عندك وعدل عليه يجزيك الله كل خير
----------------------- -- ** Buy Admin's Script -- Created By Mr.Pres[T]ege -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]http://www.gta-arabs.com[/url] --زي ما وعدتكم المود غير مشفّر انا عدلت عليه بحيث يكون أجمل من قبل ---------------------- xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("* يجب عليك التسجيل اولاً",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("* لديك هذه الرتبة فعلاً",source,255,0,0,true); end local sValue = getElementData( source,'PlayTime' ) if not sValue then sValue = '0:0:0' end local data = split(sValue,':') local hour = tonumber( data[1] ) if hour == nil or not tonumber(hour) then hour = 0 end if ( hour >= tonumber(Price)) then aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true); else outputChatBox("* ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_)
_••!!بدايـــــة وساحة قتــال طبق الأصل من سيرفر الوزارة!!••_
in المساهمات
Posted
تحس؟ جديدة هذي!!