
momar5700
Members-
Posts
381 -
Joined
-
Last visited
Everything posted by momar5700
-
بس مشكله راح يكون صعب تركيب علي لوحة تحكم بقعد شهر علشان كلل شوي اسوي مجلد واحط موتر طيب علي العموم شكرا لك علي مساعدتي
-
هو اشتغل بس مشكله هي انه كانت علي الارشيف فكيته وحطيتها في مجللد واشتغلت ابي موتر تكون علي الارشف علشان تكون سهلة في تركيب علي الاستضافة
-
طيب انا سويت كدا واشتغل مود بس لما جيت اضفي ماردي يضفي ليه حاولت اضفي سيارة مايبي وش غلط سويت كدا { 'Camry 2011', 566, 'xCar7' }; { '1sHiLuX_Khli-909-2014', 491, '1sHiLuX_Khli-909-2014' }; وماصار شيء هل في خطاء في الاكواد انا ضفته في قروب الادمن
-
وش بكم والله انا مش فاهم عليكم وش يعني جاي تفلسف فب واحد مسوي مود وانا جاي ابي اعرف كيف احط مواتر وانتم تقول لي جاي تفلسف والخ ................... ياخي وش بكم انا وش غلط وقال ايش نفسية بالخط العريض وشده..(نفسيه بالخط العريض)والله انا مش فاهم منكم اي شيء وش بكم انا وش غلط انا مش فاهم منكم شيء وانا الحين انا وش دخلني بي مستر جراند علشان قناتك وما قناتك هو وش دخله بالموضعي انا ابي اطلب منكم مساعدة بس وش غلطي علشان تقول لي كل ده ..............................................................
-
انا بالمود نفسخ وخليت ملف mtasa.xml "ReplaceRestore" author="3NAD and M7mdAl7arthy" type="script" version="1.0" description="NONE." /> انا حاول جبتسيارة ماتغيرت شكلها طفبتها من لوحة وشغلته ماجات اي سيارة وش خطاء انا طايف كتا بي ملف كلنت -- M7mdAl7arthy -- -- Skype: M7mdAl7arthy -- -- Updated: 3NAD -- getTDByType = { --[[ { 'car name', car id, 'file Path' }; --]] { 'Camry 2011', 566, 'xCar7' }; { '1sHiLuX_Khli-909-2014', 491, '1sHiLuX_Khli-909-2014' }; }; Languages = { ["English"] = { ["Information"] = "Welcome @ 6ArH Server's, \n\nIf you have a bad Video Card ' Law FPS '\nof Real Cars,\n\nYou can stop it by this script..\n\nIt's so easily :\n- Select any car.\n- Press \" Run / Stop Selected \".\n\nYou can open this window again\nby pressing ' / '\n\nWe hope you have fun : )"; ["Run Or Stop"] = "Run / Stop Selected"; ["Run All"] = "Run All"; ["Stop All"] = "Stop All"; }; ["عربي"] = { ["Information"] = "مرحباً بكم في سيرفرات طارهـ,\n\nإذا كآن لديك كرت شاشة سيء ' FPS منخفض '\nو تعاني من الـ ' لاق ' بـسبب السيارات\n\nيمكنك إيقاف السيارات بواسطة هذا السكربت\n\nتابع الخطوات :\n- أختر اي سيارة من القائمة.\n- أضغط ' إيقاف / تشغيل '.\n\nيمكنك فتح هذه النافذة مرة أخرى\nبواسطة الزر ' ظ '\n\n نتمنى لكم قضاء اوقات سعيدة"; ["Run Or Stop"] = "تشغيل / إيقاف"; ["Run All"] = "تشغيل الكل"; ["Stop All"] = "إيقاف الكل"; }; } Enad = { button = {}, window = {}, gridlist = {}, label = {}, combobox = {}, } function centerWindow(center_window, x, y) local screenW,screenH=guiGetScreenSize() local windowW,windowH=guiGetSize(center_window,false) local x,y = (screenW-windowW)/x,(screenH-windowH)/y guiSetPosition(center_window,x,y,false) end load_ = true i = true Enad.window[1] = guiCreateWindow(120, 138, 571, 328, ":: Cars Options ::", false) guiSetVisible ( Enad.window[1], false ) guiWindowSetSizable(Enad.window[1], false) guiSetAlpha(Enad.window[1], 1.00) centerWindow ( Enad.window[1], 2, 2 ) Enad.gridlist[1] = guiCreateGridList(18, 28, 264, 252, false, Enad.window[1]) Enad.label[1] = guiCreateLabel(294, 59, 266, 252, "Welcome @ 6ArH Server's, \n\nIf you have a bad Video Card ' Law FPS '\nof Real Cars,\n\nYou can stop it by this script..\n\nIt's so easily :\n- Select any car.\n- Press \" Run / Stop Selected \".\n\nYou can open this window again\nby pressing ' / '\n\nWe hope you have fun : )", false, Enad.window[1]) Enad.button[1] = guiCreateButton(36, 285, 126, 34, "Run / Stop Selected", false, Enad.window[1]) guiSetProperty(Enad.button[1], "NormalTextColour", "FFAAAAAA") Enad.combobox[1] = guiCreateComboBox(307, 28, 197, 100, "English", false, Enad.window[1]) Enad.button[2] = guiCreateButton(516, 25, 32, 25, "X", false, Enad.window[1]) guiSetProperty(Enad.button[2], "NormalTextColour", "FFAAAAAA") Enad.button[3] = guiCreateButton(166, 285, 90, 34, "Stop All", false, Enad.window[1]) guiSetProperty(Enad.button[3], "NormalTextColour", "FFAAAAAA") --Enad.button[4] = guiCreateButton(218, 285, 72, 34, "Run All", false, Enad.window[1]) --guiSetProperty(Enad.button[4], "NormalTextColour", "FFAAAAAA") Column2 = guiGridListAddColumn( Enad.gridlist[1], 'ID', .25 ) Column2_ = guiGridListAddColumn( Enad.gridlist[1], 'Vehicle', .60 ) for _, type in ipairs( getTDByType )do local gRow = guiGridListAddRow( Enad.gridlist[1] ) guiGridListSetItemText( Enad.gridlist[1], gRow, Column2, tostring( type[ 2 ] ), false, false ) guiGridListSetItemText( Enad.gridlist[1], gRow, Column2_, tostring( type[ 1 ] ), false, false ) t = guiGridListSetItemData( Enad.gridlist[1], gRow, Column2_, tostring( type[ 3 ] ) ) guiGridListSetItemColor ( Enad.gridlist[1], gRow, Column2, 0, 255, 0 ) end addEventHandler ( "onClientGUIClick", root, function ( ) if source == Enad.button[1] then local iRow, iCol = guiGridListGetSelectedItem( Enad.gridlist[1] ) if( iRow and iCol and iRow ~= -1 and iCol ~= -1 )then local ID = tonumber( guiGridListGetItemText( Enad.gridlist[1], iRow, 1 ) ) local CN = tostring( guiGridListGetItemText( Enad.gridlist[1], iRow, 2 ) ) local filePath = tostring( guiGridListGetItemData( Enad.gridlist[1], iRow, 2 ) ) if( ID ~= '' )then if fileExists( ':'.. filePath ..'/'.. ID ..'.txd' ) and fileExists( ':'.. filePath ..'/'.. ID ..'.dff', ID ) then if not( engineRestoreModel( ID ) )then engineImportTXD( engineLoadTXD( ':'.. filePath ..'/'.. ID ..'.txd' ), ID ) engineReplaceModel( engineLoadDFF( ':'.. filePath ..'/'.. ID ..'.dff', ID ), ID ) guiGridListSetItemColor ( Enad.gridlist[1], iRow, 1, 0, 255, 0 ) load_ = true else guiGridListSetItemColor ( Enad.gridlist[1], iRow, 1, 255, 0, 0 ) load_ = false end guiSetEnabled ( source, false ) setTimer ( guiSetEnabled, 3000, 1, source, true ) else if i == true then guiGridListSetItemColor ( Enad.gridlist[1], iRow, 1, 255, 255, 0 ) i = false setTimer( function( ) i = true end, 5000, 1 ) end end end end elseif source == Enad.button[2] then guiSetVisible ( Enad.window[1], false ) showCursor ( false ) executeCommandHandler ( "onStartPlay_" ) bindKey( '/', 'down', 'rr_' ) elseif source == Enad.button[3] then guiSetEnabled ( source, false ) setTimer ( guiSetEnabled, 10000, 1, source, true ) if not load_ then return end load_ = false for i, type in ipairs( getTDByType )do if fileExists( ':'.. type[3] ..'/'.. type[2] ..'.txd' ) and fileExists( ':'.. type[3] ..'/'.. type[2] ..'.dff', type[2] ) then engineRestoreModel( type[2] ) end end guiGridListClear ( Enad.gridlist[1] ) for _, type in ipairs( getTDByType )do local gRow = guiGridListAddRow( Enad.gridlist[1] ) guiGridListSetItemText( Enad.gridlist[1], gRow, Column2, tostring( type[ 2 ] ), false, false ) guiGridListSetItemText( Enad.gridlist[1], gRow, Column2_, tostring( type[ 1 ] ), false, false ) t = guiGridListSetItemData( Enad.gridlist[1], gRow, Column2_, tostring( type[ 3 ] ) ) guiGridListSetItemColor ( Enad.gridlist[1], gRow, Column2, 255, 0, 0 ) end elseif source == Enad.button[4] then guiSetEnabled ( source, false ) setTimer ( guiSetEnabled, 10000, 1, source, true ) if load_ then return end load_ = true if isTimer ( loadTimer ) then killTimer ( loadTimer ) end loadTimer = setTimer ( function ( ) for i, type in ipairs( getTDByType )do if fileExists( ':'.. type[3] ..'/'.. type[2] ..'.txd' ) and fileExists( ':'.. type[3] ..'/'.. type[2] ..'.dff', type[2] ) then engineImportTXD( engineLoadTXD( ':'.. type[3] ..'/'.. type[2] ..'.txd' ), type[2] ) engineReplaceModel( engineLoadDFF( ':'.. type[3] ..'/'.. type[2] ..'.dff', type[2] ), type[2] ) end end end , 1500, 1 ) guiGridListClear ( Enad.gridlist[1] ) for _, type in ipairs( getTDByType )do local gRow = guiGridListAddRow( Enad.gridlist[1] ) guiGridListSetItemText( Enad.gridlist[1], gRow, Column2, tostring( type[ 2 ] ), false, false ) guiGridListSetItemText( Enad.gridlist[1], gRow, Column2_, tostring( type[ 1 ] ), false, false ) t = guiGridListSetItemData( Enad.gridlist[1], gRow, Column2_, tostring( type[ 3 ] ) ) guiGridListSetItemColor ( Enad.gridlist[1], gRow, Column2, 0, 255, 0 ) end if isTimer ( Timer ) then killTimer ( Timer ) end resetProgress_ ( pp_ ) fadeCamera ( false ) Timer = setTimer ( upgradeValues_, 50, 0, pp_ ) end end ) for i, v in pairs ( Languages ) do guiComboBoxAddItem ( Enad.combobox[1], tostring ( i ) ) end addEventHandler ( "onClientGUIComboBoxAccepted", Enad.combobox[1], function ( ) local text = tostring ( guiComboBoxGetItemText ( source, guiComboBoxGetSelected ( source ) ) ) if text == "" then return end if text == "عربي" then guiLabelSetHorizontalAlign ( Enad.label[1], "right" ) else guiLabelSetHorizontalAlign ( Enad.label[1], "left" ) end guiSetText ( Enad.label[1], Languages[text]["Information"] ) guiSetText ( Enad.button[1], Languages[text]["Run Or Stop"] ) guiSetText ( Enad.button[4], Languages[text]["Run All"] ) guiSetText ( Enad.button[3], Languages[text]["Stop All"] ) end , false ) addCommandHandler( 'openOptionsCar', function( ) if not guiGetVisible ( Enad.window[1] ) then guiSetVisible( Enad.window[1], true ) showCursor( true ) guiBringToFront( Enad.window[1] ) guiSetVisible ( Enad.button[2], true ) end end ) addCommandHandler( 'rr_', function ( ) if not guiGetVisible ( Enad.window[1] ) then guiSetVisible( Enad.window[1], true ) showCursor( true ) guiBringToFront( Enad.window[1] ) guiSetVisible ( Enad.button[2], false ) else guiSetVisible( Enad.window[1], false ) showCursor( false ) end end ) --[[ addCommandHandler( 'reall', function( ) for i, type in ipairs( getTDByType )do if fileExists( ':'.. type[3] ..'/'.. type[2] ..'.txd' ) and fileExists( ':'.. type[3] ..'/'.. type[2] ..'.dff', type[2] ) then if not( engineRestoreModel( type[2] ) )then engineImportTXD( engineLoadTXD( ':'.. type[3] ..'/'.. type[2] ..'.txd' ), type[2] ) engineReplaceModel( engineLoadDFF( ':'.. type[3] ..'/'.. type[2] ..'.dff', type[2] ), type[2] ) end end end end )]] ممكن تقول لي وش خطاء رجاء
-
هل كود الي حاطه لك في اخطاء
-
هادي هي "save cj clothes" version="1" type="script" />
-
ليه ناسوتوني ابي مساعتكتكم ممكن صاري لي يومين ونصف ومخحد يرد رد حلو
-
طيب الحين مود سيارة اضيفة في مود لوحة ولا كل حده لحاله ؟ انا شغلت مود سيارة وجتني سيارة بس مود ده حيت فيه كدا { 'Camry 2011', 566, 'xCar7' }; { '1sHiLuX_Khli-909-2014.zip', 491, '1sHiLuX_Khli-909-2014.zip' }; وفتحت لوحة جيت اضفي سيارة ماشتغلت ليش وش سبب ؟
-
https://community.multitheftauto.com/ind ... ls&id=9650 انا كيف اضيف سيارات انا سويت سيارات بملف خارجي بس مانجح ليش كيف اضيف المواتر علموني ارجوكم اطفيي اشغل مافي شيء يعني كانك سويت لوحة بس ممكن حد يعلمني ضفته في قروب ادمن والكونسل ماشتغل حدفته من قروب كونسل وغليته في ادمن ماشتغل ووعكست طريقة وماشتغل وش اسوي اتمننا تساعدوني
-
ياخي لا توني انا اقدر اساعد في بعض المودات وبعدين ممكن تساعدني في موضوع الي مايبي احد يرض عليه
-
شباب لو سمحتم طلب صغير كبير بليزر ساعدوناhellp وبعدن كيف تسوي هاي [*][*]#CroSs wrote: تقصد يحفظ مكان اللاعب لما يطلع ولا يحفظ اماكن ويحطها في قريد ليست وبعدين ينتقل لها ؟
-
كلمني سكايب بي يمكن اقدر اساعدك بالتوفيق skype:momar5911
-
شفت مود حفظ المكان الي في سيرفر وزارة لما تضغط اف 12 تفتح لوحة حفظ المكان هو نفسة بظبظ تكتب اسم مكان وتضغط حفظ لما تبي ترجع للمكان تفتح لوحة زتضغط علي المكان وينقلك لعنده كدا يعني فهمت
-
هو من فري روم مثل الي في فري روم ممكن مساعدتي
-
هو الحين وش الخطاء لو سمحتم انا حاولت فيه وبالخير فشل ممكن تساعدونا
-
سلام عليكم ورحمة الله وبركاته انا سويت مود حفظ المكان بس واجهتني مشاكل ممكن تساعدوني اجي اسوي حفظ مايظهر بالقريد GUIEditor = { gridlist = {}, window = {}, button = {}, edit = {} } GUIEditor.window[1] = guiCreateWindow(100, 120, 400, 510, "Bookmarks", false) guiWindowSetSizable(GUIEditor.window[1], false) text = guiCreateEdit(10, 451, 225, 24, "bookmarkname", false, GUIEditor.window[1]) guiEditSetMaxLength(GUIEditor.edit[1], false) saveLocation = guiCreateButton(240, 451, 150, 20, "save current location", false, GUIEditor.window[1]) deleteLocation = guiCreateButton(10, 480, 225, 20, "delete selected location", false, GUIEditor.window[1]) closeswindow = guiCreateButton(240, 480, 150, 20, "close", false, GUIEditor.window[1]) bookmarklist = guiCreateGridList(9, 21, 382, 421, false, GUIEditor.window[1]) local name = guiGridListAddColumn(bookmarklist, "Name", 0.3) local zone = guiGridListAddColumn(bookmarklist, "Zone", 0.6) addCommandHandler('cj', function () guiSetVisible(GUIEditor.window[1],not guiGetVisible(GUIEditor.window[1])) showCursor(guiGetVisible(GUIEditor.window[1])) guiMoveRightToCenter(GUIEditor.window[1]) end) addEventHandler("onClientGUIClick",root, function() if source == closeswindow then -- هنا يتحققق بأن الشيء اللي نبيه يشتغل عليه الحدث هو الزر حق الاغلاق guiSetVisible(GUIEditor.window[1],false) showCursor(false) -- هنا يغلق اللوحة ويشيل المؤشر بعد مايتحقق من الشرط end -- نهاية end -- .. ) -- اقفال الحدث TimeGuiSetRightC = { } function guiMoveRightToCenter(gui) if getElementData(gui,"HelhGui") == false then setElementData(gui,"HelhGui",true) local s1,s2=guiGetScreenSize() local w1,w2=guiGetSize(gui,false) local x,y = (s1-w1)/2,(s2-w2)/2 guiSetPosition(gui,-x,y,false) TimeGuiSetRightC[gui] = setTimer(guiMoveRightToCenter,50,0,gui) end local a,b=guiGetScreenSize() local w1,w2=guiGetSize(gui,false) local x,y = (a-w1)/2,(b-w2)/2 local x1,y1 = guiGetPosition ( gui, false) if (x1 >= x) then killTimer(TimeGuiSetRightC[gui]) setElementData(gui,"HelhGui",false) else guiSetPosition(gui,x1+20,y,false) end end --------------------------- -- Bookmarks window --------------------------- local bookmarkList local bookmarks function initBookmarks () bookmarkList = wndBookmarks.controls[1].element if bookmarks then return end loadBookmarks () addEventHandler("onClientGUIDoubleClick",bookmarkList,gotoBookmark) end function loadBookmarks () bookmarks = {} local xml = xmlLoadFile("bookmarks.xml") if not xml then xml = xmlCreateFile("bookmarks.xml","catalog") end guiGridListClear(bookmarkList) for i,child in ipairs (xmlNodeGetChildren(xml) or {}) do local row = guiGridListAddRow(bookmarkList) guiGridListSetItemText(bookmarkList,row,1,tostring(xmlNodeGetAttribute(child,"name")),false,false) guiGridListSetItemText(bookmarkList,row,2,tostring(xmlNodeGetAttribute(child,"zone")),false,false) bookmarks[row+1] = {tonumber(xmlNodeGetAttribute(child,"x")),tonumber(xmlNodeGetAttribute(child,"y")),tonumber(xmlNodeGetAttribute(child,"z"))} end end function saveBookmarks () if fileExists("bookmarks.xml") then fileDelete("bookmarks.xml") end local xml = xmlCreateFile("bookmarks.xml","catalog") for row=0,(guiGridListGetRowCount(bookmarkList)-1) do local child = xmlCreateChild(xml,"bookmark") xmlNodeSetAttribute(child,"name",guiGridListGetItemText(bookmarkList,row,1)) xmlNodeSetAttribute(child,"zone",guiGridListGetItemText(bookmarkList,row,2)) xmlNodeSetAttribute(child,"x",tostring(bookmarks[row+1][1])) xmlNodeSetAttribute(child,"y",tostring(bookmarks[row+1][2])) xmlNodeSetAttribute(child,"z",tostring(bookmarks[row+1][3])) end xmlSaveFile(xml) xmlUnloadFile(xml) end function saveLocation () local name = getControlText(wndBookmarks,"bookmarkname") if name ~= "" then local x,y,z = getElementPosition(g_Me) local zone = getZoneName(x,y,z,false) if x and y and z then local row = guiGridListAddRow(bookmarkList) guiGridListSetItemText(bookmarkList,row,1,name,false,false) guiGridListSetItemText(bookmarkList,row,2,zone,false,false) bookmarks[row+1] = {x,y,z} setControlText(wndBookmarks,"bookmarkname","") saveBookmarks() end else outputChatBox("Please enter a name for the bookmark") end end function deleteLocation () local row,column = guiGridListGetSelectedItem(bookmarkList) if row and row ~= -1 then table.remove(bookmarks,row+1) guiGridListRemoveRow(bookmarkList,row) saveBookmarks() end end function gotoBookmark () local row,column = guiGridListGetSelectedItem(bookmarkList) if row and row ~= -1 then fadeCamera(false) if isPedDead(g_Me) then setTimer(server.spawnMe,1000,1,unpack(bookmarks[row+1])) else setTimer(setElementPosition,1000,1,g_Me,unpack(bookmarks[row+1])) end setTimer(function () fadeCamera(true) setCameraTarget(g_Me) end,2000,1) end end ممكن تساعدونا وش الخطاء لو سمحتم
-
ايه انا اعرف كيف اضفب سلاب واشغله بس الي ابيه الحين اني اتكد هل الاسل محمي ولا لا وهل هو الحين مناسب لي سيرفر ولالا بس لانكم مبرمجين وتعرفن كل ده
-
سلام عليكم ورحمة الله وبركاته ابي اعرف ادا كان اسل محمي اما لا وادا كان الاسل مناسب ولا ممكن تقول لي وادا كان مش مناسب ممكن تقول لي وش اغير لانه اول مره اسوي اسل انا مش عرفت احط الاسل هنا لانه قال لي مايكون عدد الاحرف فوق 1200000 فا بحط رابط تحميله لتحميل اسل http://up.top4top.net/downloadf-top4top ... 1-xml.html
-
شباب طيب الحين حليانل مشكلت ترقيات في مشكله تانيه وهي مشكله اساسة الموضوع كله وهي بمود توزيع ساعات local t = { } local w = {} addEventHandler("ToServer",root, function (word,get,time) if word and tonumber(get) and tonumber(time) then table.insert(w,{word,get}) setTimer(function () for _,v in ipairs(w) do if v[1] == word and v[2] == get then table.remove(w,i) end end end,time*60*60*1000,1) end end ) addEventHandler("onConsole",root, function (msg) for _,v in ipairs(w) do if msg == v[1] then local playeraccount = getPlayerAccount ( source ) if ( playeraccount ) and not isGuestAccount ( playeraccount ) then if not getAccountData ( playeraccount, "time-"..msg) then addPlayerTime(source,v[2]) setAccountData( playeraccount, "time-"..msg,true) outputChatBox ("تم اعطائك ساعات", source, 0, 255, 0) else outputChatBox ("مود توزيع السساعات مقفل", source, 255, 0, 0) end end end end end ) ها دا توزيع وده مو الي يحدف التوزيع addEvent('removeCommand',true) addEventHandler('removeCommand',root, function(commandName) for i,v in pairs(getElementsByType('player')) do removeCommandHandler(commandName,commandd) outputChatBox('* تمم انتههاء التوززيع وشكرا #',v,0,255,0,false) accountt = getPlayerAccount(v) setAccountData(accountt,'havee',false) end end ) مممكن تساعدني فيه الله يعضيك العافية مشكله اني لما احدف توزيع ماينحدف وش المشكله ممكن تحل لي مشكله لو سمحت وبتكون عملت معنا واجب حلو
-
يا [*]Allawi. شكرا لك ماعرف كيف اتشكررك الله يعضيك الف عافية انت الوحيد الي عضتني كود من اول مره اشتغل مادري كيف اشكر فعلا الله يعضيك الف عافية شكرا لك
-
ياسفاح اتمنا تساعدني انا كنت راح اغير تعديل بس لما واجهتني مشكلت سيرفر عضيتكم علشان تحل مشكلتي في الاخر تقولون اني سارقة ماتبون تحلوها اتمنا مساعدتكم
-
ياخي والله مش سارقة ليه ماتصدق اقسم لك اني مش سارقة لو تبي اقسم لك بالله اني مش سارقة لو مش تصدقة ادخل هنا وحمل مود وبتلاقيه نفس الاكواد انا بس قمت بتعديل علييه خليته كاني سارقة من وزارة والله اني مش سارقة ده تعديل لي https://community.multitheftauto.com/ind ... ls&id=9832 ادخل شوفة بتلاقي نفس الي موجود بالكلنت حجي والله اني مش سارقة ده من تعديلي ياخي بتخلني اكره المنتدي كل مره اجيب موضوع والا ماتقوللي سارقة وش بكم هاااااااااااااااا اققققققققققققسمممممممممممممممممممممم بااااااللللههه اننننننيييييي مممممشششش سارقة وش بكم اقسم لكم بالله اني مش سارقة
-
شف انا عندي فكره انا بعضيك مود كامل وانت اقعد جربه لان لما ينجح وعضني كود هنا لاني تاعبت وابي اروح ماراح ارجع الي بليل واتمناء منك مساعدتدي سيرفر ----------------------- -- ** 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,238,158,73,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("لا يمكنك اختيار الرتبه لانه فعلا معك",source,238,158,73,true); end if isObjectInACLGroup("user."..account, aclGetGroup("Admin-EX")) then return outputChatBox("انت مخآلف لايمكنك الحصول على رتبه",source,238,158,73,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 removeGroups ( source ) aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("مبروك لقد حصلت على الرتبه "..Name,source,238,158,73,true); else outputChatBox("عدد ساعاتك غير كافيه",source,238,158,73,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_) Groups = {"Console","Managers","Maps"} function removeGroups ( 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 for _,Group in ipairs(Groups) do if not ( isObjectInACLGroup ( "user."..getAccountName ( getPlayerAccount ( element ) ),aclGetGroup (Group) ) ) then aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) end end end end end end end كلنت ----------------------- -- ** Buy Admin's Script -- Created By Mr.omar -- Ver 1.0.0 -- Mail : [email protected] -- [url=http://www.gta-arabs.com]www.gta-arabs.com[/url] ---------------------- ---------------------- -- Setting ---------------------- local Key = "f10" local Admin = { {'King Of Time', 25,'Time'}, {'V.I.P', 35,'V.I.P'}, {'VotePolice', 40,'VotePolice'}, {'Police', 60,'police'}, {'VoteModerator', 95,'VoteModerator'}, {'Moderator', 130,'Moderator'}, {'Moderator2', 150,'Moderator2'}, {'SuperModerator', 170,'SuperModerator'}, {'SuperModerator2', 180,'SuperModerator2'}, {'Admin', 200,'Admin'}, {'Head.Admin', 300,'Head.Admin'}, {'Speical Admin', 350,'DE'}, {'Prince of Server', 400,'Prince'}, {'Leader Admin', 450,'Leader'}, {'Professional Admin', 500,'Professional'}, {'V.I.P Admin', 550,'Vip-Admin'}, {'Admin Top', 600,'AdminTop'}, {'Admin Plus', 650,'AdminPlus'}, {'Best Admin', 700,'BestAdmin'}, {'Admin Boss', 750,'AdminBoss'}, {'King Of Server', 800,'KingOfServer'}, {'Big admin', 850,'Bigadmin'}, {'Admin Monitor', 900,'AdminMonitor'}, {'Emperor Of Server', 950,'EmperorOfServer'}, {'Admin Official', 1000,'AdminOfficial'}, {'Admin Prime', 1050,'AdminPrime'}, {'Admin General', 1100,'AdminGeneral'}, {'KING ADMIN ', 1500,'KINGADMIN'}, {'ADMIN POWER', 1800,'ADMINPOWER'}, {'ADMIN WZARH', 2000,'ADMINWZARH'}, {'ADMIN M7TRF', 2200,'ADMINM7TRF'}, {'PRINCE ADMIN', 2500,'PRINCEADMIN'}, {'Senior Admin', 3000,'ADMINSENIOR'}, {'SPECIALPRINCE', 3500,'SPECIALPRINCE'}, } ---------------------- -- 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(343, 157, 427, 290, "=[ لــوحة ألترقــيآت ]=", 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", "FFFF00CC"); GiveAdmin.gridlist[1] = guiCreateGridList(9, 21, 409, 200, false, GiveAdmin.Window[1]); guiGridListAddColumn(GiveAdmin.gridlist[1], "الرتبة", 0.50); guiGridListAddColumn(GiveAdmin.gridlist[1], "عدد الساعات المطلوبة#", 0.30); GiveAdmin.button[1] = guiCreateButton(115, 230, 176, 69, "=[ تـــــرقيـــة ]=", false, GiveAdmin.Window[1]); guiSetFont(GiveAdmin.button[1], "default-bold-small"); guiSetProperty(GiveAdmin.button[1], "NormalTextColour", "FF01FD60"); for k,v in ipairs ( Admin ) do row = guiGridListAddRow(GiveAdmin.gridlist[1]); guiGridListSetItemText(GiveAdmin.gridlist[1],row,1,v[1],false,false); guiGridListSetItemText(GiveAdmin.gridlist[1],row,2,v[2],false,false); 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,3 )); if ( row and col and row ~= -1 and col ~= -1 ) then triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); else outputChatBox("# الرجاء اختيار رتبة",255,0,255,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_); اتمنا لا تنساني وتساعدني
-
مانجح راحت كل رتبات وجت رتبت مود ياخي ابيه لما تاخد رتبه ماتروحمنك رتبت كونسل او مانجرس