Jump to content

Crocodile

Members
  • Posts

    26
  • Joined

  • Last visited

Everything posted by Crocodile

  1. بسم الله الرحمن الرحيم السلام عليكم ورحمه الله وبركاته اليوم جايبلكم بداية من تصميمي ، وساحة قتال تشبه يلي في وزارة بنسبه 98% تقدر تقول صور البداية الحين صور الساحة ملاحظة: البداية لما تركبها يجيك شخصيات عشوائية ، ماعرفت اثبت شخصية ومعطيكم رابط تحميل شوب هدية عشان الساحة الماب لعيون سكندر #مانجرس_في_وزارة صاحب الفكرة #كونان نجي لتحميييييييييييييييل الماب تحمييييييييييييل الشوب إهـداء الى ZA7F The Killer حياكم الله في سيرفر نجوم ليبيا mtasa://185.10.17.81:27029
  2. شكراً لك بالنسبة للمخالف تم واشتغل المود والمخالف ما يقدر يرقي نفسه ، لكن بالنسبة لتبديل الرتبة ما نفع اخذت حق المخالفة وهو الوحيد يلي اشتغل ذا الكوود يلي اشتغل معاي -- ** 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_)
  3. شكراً بالنسبة لأضافة الخط؟ انا نزلت خط لكن ياريت تقولي وشكراً
  4. المود مافيه مشكله , اتوقع المشكله منك انت المود مبرمج على انه يعطي رتبه ويكمل لاكن انت بنفسك تقدر تضيف تحققات for -- نجيب القيم من الجدول isObjectInACLGroup aclGroupRemoveObject aclGroupAddObject نتحقق اذا كان الاعب عنده قروب سابق , من القروبات الموجوده في الجدول نحذف منه الرتب السابقه , ونعطيه الرتبه الجديده لاكن المود مافييه اخطأء , غير الي فوق سويت كذا بس مازال لما ترقى تزيد رتبة ما تتبدل aclGroupRemoveObject (aclGetGroup( tostring(Group)),"user."..account) aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("* تم إضافة الرتبة مبروووك"..Name,source,0,255,0,true);
  5. بالزبط لكن سؤال : كيف اجيب القيم حق الجدول ؟ ووش هو الدوبق عشان اضبط المود وشكراً
  6. سويت كذا قولي لو فيه شي غلط او ناقص ذا بالنسبة لملف الكلنت 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 )
  7. سلام عليكم ورحمه الله عندي صورة لسكربت النظام حق استئجار مركبات ابي وحدة زيها ؟ انا حاولت اسوي وحده خاصة لكن ماعرفت كيف احط المواتر في آمان الله
  8. شكراً للتعديل ضفت الكود الى ملف سيرفر وعرفته في الميتا وشغلت المود في السيرفر لكـن ما يبي يكتب في الشات
  9. بالزبط عشان كذا طالب برمجة للمود ، ولا تنسى المخالف يقدر يرقي نفسه ، المود يبقى خرافي لو تبرمج على هذه الطلب
  10. + 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 )
  11. اعرف اسوي نافذة ووكل شي بس ما اعرف كيف ادمج المود مع الاسل والساعات ، مزلت جديد في البرمجة
  12. ركبت مود برستيج القديم قبل التعديل وقبل ما اعدل فيه شي اخذت الكلمات يلي انت كاتبهن في الكود بدون ماننسخها جميعاً عشان الكود معدل وبالسطر اخذت الوامر من حق المخالف الى النهاية وبالترتيب لكن ما زبط المود جرب انت حمل المود وعدل عليه وشوفه وش يصير ووشكراً
  13. لا متأكد معاي ساعات كافية و ماني موجود في القروب المخالف لكن اجرب مود او لوحة ترقية ثانية واكلمك شكراً
  14. طيب الكود يلي انت كاتبه احطه في ملف الكلنت ؟ لاني مزلت مش عارف شي
  15. سلام عليكم ورحمه الله في سكربت معين ادور عليه لي سنة مش لاقيه هو مود نفس يلي سواه Bozllit بس انا ابي فيه مواصفات معينة* مثلاً: مايكونش فيه خاصية اختيار اللوان #يكتب_ابيض_على_طول-1 يكتب في نص الشاشة-2 يكتب بخط حلو مثل في هذه الصورة-3 ملاحظة: بدون كلمة ادمن يكون مجرد كلمة تنكتب في اف8-4 مثلاً msgall سلام عليكم ورحمه الله لما حد يكتب في الشوت يطلع اسمه في الشات-5 نفس مايسوي بيتر في وزارة الهجولة*بالزبط,, يلي عنده سكربت يشفره براحته بس يطرحه ليا وشكراً لكـم في امان الله
  16. صح بالزبط كل كلمة قلتها صحيحة ، لكن انا معدل عليه المود وحاذف اشياء وخافية ، لو انت عندك مود لوحة ترقيات محمية تقدر تشاركنا بيها وشكراً لردك
  17. كل شي متأكد منه ، بس مش مشكلة شكراً انت ساعدتني بارك الله فيك
  18. شكراً على مساعدتك بس والله المود ما يبغى يعطى رتبة ابداً ولما رجعت كود قبل التعديل رجع اشتغل ياريت لو تعدل عليه ثاني واسف تعبتك معاي
  19. للأسف ما يبي يرقي ، لما رجعت الكود القديم حق السيرفر بقى يرقي لكن كودك ما خلاني اترقى ياريت تقولي وش السبب ، وشكراً لك عشان متابع معايا
  20. السلام عليكم ورحمه الله وبركاته اليوم جبت لكم مود من تعديلي المود من أصل الله يعطيه كل خير #برستيج طبعاً انا أخذت القديم وعدلت على بحيث يكون اجمل وكفو ، ونجحت في العمل بحمد الله ، وما شلت الحقوق حق برستيج والمود غير مشفّر نهائي الآن الصـور #قبـل و #بعـد قــــــــــــبــــــــــــــــــــــــــــــــــــــل بـــــــــــعــــــــــــــــــــــــــــــد أطـلب من ذوي الخبرة والمبرمجين يعدلون على المود ويخلّون ( المخالف ) ما يقدر يترقى في اللوحة ، ابي اسم القروب ( 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_) في أمان الله
  21. شكراً لك لكن انا ما عرفت اضيف الكود ؟ حاولت احطه في ملف السيرفر لكن المود مايبي يعطي رتبة من اساسه ياريت لو انت تعطيني الكود كامل أكون شاكر لك واسف تعبتك معاي والشي اهم ابي اي حد ينصك مخالف ما يقدر يرقي نفسه وشكراً لك على ردك هذه الكود خليه عندك وعدل عليه يجزيك الله كل خير ----------------------- -- ** 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_)
×
×
  • Create New...