momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 ايه اشتغل الحين صار يرقي بس ظهرت مشكله وهي رتبات تتكرر لمادا؟ Link to comment
iMr.SFA7 Posted September 14, 2015 Share Posted September 14, 2015 ايه اشتغل الحين صار يرقي بسظهرت مشكله وهي رتبات تتكرر لمادا؟ آيش قصدك بتتكرر!؟ Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 يعني لما مثلا ترقي نفسك مود وتيجي مره اخري وترقي نفسك بي مود2 تفضل معك 2 رتبه انا ابيه لما ترقي رتبت مود 2 تروح ععنك رتبت مود1 وهاكدا فهمت Link to comment
iMr.SFA7 Posted September 14, 2015 Share Posted September 14, 2015 ----------------------- -- ** 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_) 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 if (v ~= "Console" or v ~= "Managers" or v ~= "Maps") aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) end end end end end end Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 ظهرت مشكله وهي ادوس ترقيه مايرقي ابدا ودي بق صار يقول لي كدا Link to comment
iMr.SFA7 Posted September 14, 2015 Share Posted September 14, 2015 ----------------------- -- ** 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_) 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 if (v ~= "Console" or v ~= "Managers" or v ~= "Maps") then aclGroupRemoveObject ( v, "user."..getAccountName ( getPlayerAccount ( element ) ) ) end end end end end end Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 الحين اشتغل وصار حلو بس ش صار طارت رتبت كونسل ياخي الحين وش وظيفت ده if (v ~= "Console" or v ~= "Managers" or v ~= "Maps") then ياخي انا مابيه تكون ابيهتكون لما ترقي رتبه اخري ماتحدف كل رتبات لا في رتبات ماتتحدف زي رتبت مانججرس كونسل فهمت اسف علي انا اتعبك والمود الاصلي هادا هو https://community.multitheftauto.com/ind ... ls&id=9832 بس مشكلته نفس المشكله الاولا الحين كيف اصلحها Link to comment
iMr.SFA7 Posted September 14, 2015 Share Posted September 14, 2015 ----------------------- -- ** 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 Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 مانجح راحت كل رتبات وجت رتبت مود ياخي ابيه لما تاخد رتبه ماتروحمنك رتبت كونسل او مانجرس Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 شف انا عندي فكره انا بعضيك مود كامل وانت اقعد جربه لان لما ينجح وعضني كود هنا لاني تاعبت وابي اروح ماراح ارجع الي بليل واتمناء منك مساعدتدي سيرفر ----------------------- -- ** 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_); اتمنا لا تنساني وتساعدني Link to comment
iMr.SFA7 Posted September 14, 2015 Share Posted September 14, 2015 أكتشفت بعد ما جربت كود الكلنت أنك ماخذ كود الكلنت من ملف التحميلات يعني سارقه = | الله لا يبلانا بس جينا نساعدهم وهم يبونا نساعدهم بالمسروق ذذذ Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 ياخي والله مش سارقة ليه ماتصدق اقسم لك اني مش سارقة لو تبي اقسم لك بالله اني مش سارقة لو مش تصدقة ادخل هنا وحمل مود وبتلاقيه نفس الاكواد انا بس قمت بتعديل علييه خليته كاني سارقة من وزارة والله اني مش سارقة ده تعديل لي https://community.multitheftauto.com/ind ... ls&id=9832 ادخل شوفة بتلاقي نفس الي موجود بالكلنت حجي والله اني مش سارقة ده من تعديلي ياخي بتخلني اكره المنتدي كل مره اجيب موضوع والا ماتقوللي سارقة وش بكم هاااااااااااااااا اققققققققققققسمممممممممممممممممممممم بااااااللللههه اننننننيييييي مممممشششش سارقة وش بكم اقسم لكم بالله اني مش سارقة [divbox=]اقسم لكم بالله اني مش سارقة [/divbox] Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 ياسفاح اتمنا تساعدني انا كنت راح اغير تعديل بس لما واجهتني مشكلت سيرفر عضيتكم علشان تحل مشكلتي في الاخر تقولون اني سارقة ماتبون تحلوها اتمنا مساعدتكم Link to comment
` Allawi Posted September 14, 2015 Share Posted September 14, 2015 Server: ----------------------- -- ** 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_) function removeGroups ( element ) if ( element and isElement ( element ) ) then if ( getPlayerAccount ( element ) and not isGuestAccount ( getPlayerAccount ( element ) ) ) then for _, v in ipairs ( aclGroupList ( ) ) do g = aclGroupGetName ( v ) if g ~= "Console" and g ~= "Managers" and g ~= "Maps" then if ( isObjectInACLGroup ( "user." .. getAccountName ( getPlayerAccount ( element ) ), v ) ) then aclGroupRemoveObject ( v, "user." .. getAccountName ( getPlayerAccount ( element ) ) ) end end end end end end Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 يا [*]Allawi. شكرا لك ماعرف كيف اتشكررك الله يعضيك الف عافية انت الوحيد الي عضتني كود من اول مره اشتغل مادري كيف اشكر فعلا الله يعضيك الف عافية شكرا لك Link to comment
momar5700 Posted September 14, 2015 Author Share Posted September 14, 2015 شباب طيب الحين حليانل مشكلت ترقيات في مشكله تانيه وهي مشكله اساسة الموضوع كله وهي بمود توزيع ساعات 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 ) مممكن تساعدني فيه الله يعضيك العافية مشكله اني لما احدف توزيع ماينحدف وش المشكله ممكن تحل لي مشكله لو سمحت وبتكون عملت معنا واجب حلو Link to comment
` Allawi Posted September 14, 2015 Share Posted September 14, 2015 مايصير كذا تجيب كود من مود ثانيه وتبيه يشتغل + كيف تبي طريقه الحذف واعطيك الوظائف وحاول تسويه او انت سويه ونصحح لك الاخطاء Link to comment
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now