MR_Mahmoud

ولله هاد هوة كامل local aGroups = { ["3GL"] = true , ["FFO"] = true , ["Adminmsg"] = true , }; function removeGroups ( player ) if ( player ) and ( getElementType ( player ) == "player" ) then if isGuestAccount ( getPlayerAccount ( player ) ) then return end local Acc = getAccountName ( getPlayerAccount ( player ) ) if ( #aclGroupList ( ) == 0 ) then return end for _,Groups_ in ipairs( aclGroupList ( ) ) do if not ( aGroups [ aclGroupGetName ( Groups_ ) ] ) then if ( isObjectInACLGroup ( "user." ..Acc, Groups_ ) ) then aclGroupRemoveObject ( Groups_ ,"user."..Acc ) end end end end end xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff * يجب عليك التسجيل اولاَ",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** لديك هذهـ الرتبة فعـلا ! ",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup("Admin_x")) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** الحساب الخاص بك محظور | "..Name,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 removeGroups ( source ) if isObjectInACLGroup ("user."..account, aclGetGroup( tostring(Group)) ) then aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** تم اضافة الرتبة بنجاح | "..Name,source,0,255,0,true); end else outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff**ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true)

64 مب نفس كوادك سطر 64 هاد هوة outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** تم اضافة الرتبة بنجاح | "..Name,source,0,255,0,true);

في الكلنت ولا سيرفر ؟

يالغالي ابيه فيه ادمن مخالف +لو اشترا رتبة جديدة تروح القديمة الا رتب انا احددهم ---------------------- -- الكلنت ---------------------- local Key = "F7" local Admin = { {"ملك الدرفت","Admin.Mo7tref","5"}, {" شرطة ","Police","10"}, {"مـشـرف1","Moderator1","15"}, {"مـشـرف2","Moderator2","20"}, {"مـشـرف3","Moderator3","25"}, {"ادمن1","Admin1","30"}, {"ادمن2","Admin2","35"}, {"ادمن3","Admin3","40"}, {"مسؤل السيرفر","msaol.server","75"}, {"مساعد صاحب السيرفر","msad.neap","150"}, {"نائب صاحب السيرفر","neap.sahp","200"}, } ---------------------- -- Setting ---------------------- GUIEditor = { label = {}, button = {}, window = {}, gridlist = {}, combobox = {} } local screenW, screenH = guiGetScreenSize() GUIEditor.window[1] = guiCreateWindow(10, (screenH - 481) / 2, 393, 475, "[ Rank System ]", false) guiSetVisible(GUIEditor.window[1],false); guiWindowSetSizable(GUIEditor.window[1], false); guiSetProperty(GUIEditor.window[1], "CaptionColour", "FF0090FF") GUIEditor.label[1] = guiCreateLabel(10, 450, 360, 25, "#By BoyKa", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[1], "default-bold-small") GUIEditor.button[1] = guiCreateButton(10, 370, 373, 44, "[ Buy Rank ،/ ششرآءْ الرتبهةء ]", false, GUIEditor.window[1]) guiSetFont(GUIEditor.button[1], "default-bold-small") guiSetProperty(GUIEditor.button[1], "NormalTextColour", "FFFFFFFF") GUIEditor.label[4] = guiCreateLabel(129, 424, 254, 16, "ملاحظة : يمكنك رؤية ساعاتك عن طريق >Tab<", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[4], "default-bold-small") guiLabelSetColor(GUIEditor.label[4],0, 144, 255) guiLabelSetHorizontalAlign(GUIEditor.label[4], "right", false) GUIEditor.combobox[1] = guiCreateComboBox(12, 27, 371, 438, "--------------------------[ مساعدهه ]---------------------------", false, GUIEditor.window[1]) guiSetFont(GUIEditor.combobox[1], "default-bold-small") guiSetProperty(GUIEditor.combobox[1], "NormalEditTextColour", "FF0000FF") guiComboBoxAddItem(GUIEditor.combobox[1], "--------------------------[ مساعدهه ]---------------------------") guiComboBoxAddItem(GUIEditor.combobox[1], "سؤأل : لم استلم رتبتي ؟") guiComboBoxAddItem(GUIEditor.combobox[1], "الجوأب : تـأكد من ساعاتك عن طريق Tab") guiComboBoxAddItem(GUIEditor.combobox[1], "----------------------------------------------------------------") guiComboBoxAddItem(GUIEditor.combobox[1], "سؤال : كيف اجمع ساعات ؟") guiComboBoxAddItem(GUIEditor.combobox[1], "الجواب : عن طريق التواجد بالسيرفر") guiComboBoxAddItem(GUIEditor.combobox[1], "----------------------------------------------------------------") guiComboBoxAddItem(GUIEditor.combobox[1], "سؤال : لا تحفظ ساعاتي بالسيرفر لماذا ؟") guiComboBoxAddItem(GUIEditor.combobox[1], "الجواب : تأكد من تسجيلك حساب والدخول اليه بالسيرفر") guiComboBoxAddItem(GUIEditor.combobox[1], "----------------------------------------------------------------") GUIEditor.gridlist[1] = guiCreateGridList(10, 60, 373, 295, false, GUIEditor.window[1]) guiGridListAddColumn(GUIEditor.gridlist[1], "#", 0.2) guiSetFont(GUIEditor.gridlist[1],FontGrid) row = guiGridListAddRow(GUIEditor.gridlist[1]) guiGridListAddColumn(GUIEditor.gridlist[1], "الرتبه", 0.3) guiGridListAddColumn(GUIEditor.gridlist[1], "القروب", 0.3) guiGridListAddColumn(GUIEditor.gridlist[1], "ساعات", 0.1) for k,v in ipairs ( Admin ) do row = guiGridListAddRow(GUIEditor.gridlist[1]); guiGridListSetItemText(GUIEditor.gridlist[1],row,1,''..k..'- ',false,false) guiGridListSetItemText(GUIEditor.gridlist[1],row,2,v[1],false,false) guiGridListSetItemText(GUIEditor.gridlist[1],row,3,v[2],false,false) guiGridListSetItemText(GUIEditor.gridlist[1],row,4,v[3],false,false) guiGridListSetItemColor(GUIEditor.gridlist[1],row,1,0, 144, 255) guiGridListSetItemColor(GUIEditor.gridlist[1],row,2,255,255,255) guiGridListSetItemColor(GUIEditor.gridlist[1],row,3,0, 144, 255) guiGridListSetItemColor(GUIEditor.gridlist[1],row,4,255,255,255) guiSetFont (GUIEditor.gridlist[1],"default-bold-small") end xMainFunctions_ = function ( ) local row, col = guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ) local Group = tostring ( guiGridListGetItemText(GUIEditor.gridlist[1],row,3 )); local Price = tostring ( guiGridListGetItemText(GUIEditor.gridlist[1],row,4 )); local Name = tostring ( guiGridListGetItemText(GUIEditor.gridlist[1],row,2 )); if ( row and col and row ~= -1 and col ~= -1 ) then triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); else outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffffألرجاء اختيار الرتبة", 255, 255, 255, true ) end end addEventHandler("onClientGUIClick",GUIEditor.button[1],xMainFunctions_,false); xBindFunction_ = function () guiSetVisible(GUIEditor.window[1],not guiGetVisible(GUIEditor.window[1])); showCursor(guiGetVisible(GUIEditor.window[1])); end bindKey(Key,"down",xBindFunction_); fileDelete("Admin_Client.lua") السيرفر local aGroups = { ["3GL"] = true , ["FFO"] = true , ["Adminmsg"] = true , }; function removeGroups ( player ) if ( player ) and ( getElementType ( player ) == "player" ) then if isGuestAccount ( getPlayerAccount ( player ) ) then return end local Acc = getAccountName ( getPlayerAccount ( player ) ) if ( #aclGroupList ( ) == 0 ) then return end for _,Groups_ in ipairs( aclGroupList ( ) ) do if not ( aGroups [ aclGroupGetName ( Groups_ ) ] ) then if ( isObjectInACLGroup ( "user." ..Acc, Groups_ ) ) then aclGroupRemoveObject ( Groups_ ,"user."..Acc ) end end end end end xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff * يجب عليك التسجيل اولاَ",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** لديك هذهـ الرتبة فعـلا ! ",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup("Admin_x")) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** الحساب الخاص بك محظور | "..Name,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 removeGroups ( source ) if isObjectInACLGroup ("user."..account, aclGetGroup( tostring(Group)) ) then aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** تم اضافة الرتبة بنجاح | "..Name,source,0,255,0,true); end else outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff**ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true)

يب هاد كود الكلنت ^__

مافتحت الوحة اصلا

---------------------- -- Setting ---------------------- local Key = "F7" local Admin = { {"ملك الدرفت","Admin.Mo7tref","5"}, {" شرطة ","Police","10"}, {"مـشـرف1","Moderator1","15"}, {"مـشـرف2","Moderator2","20"}, {"مـشـرف3","Moderator3","25"}, {"ادمن1","Admin1","30"}, {"ادمن2","Admin2","35"}, {"ادمن3","Admin3","40"}, {"مسؤل السيرفر","msaol.server","75"}, {"مساعد صاحب السيرفر","msad.neap","150"}, {"نائب صاحب السيرفر","neap.sahp","200"}, } ---------------------- -- Setting ---------------------- GUIEditor = { label = {}, button = {}, window = {}, gridlist = {}, combobox = {} } local screenW, screenH = guiGetScreenSize() GUIEditor.window[1] = guiCreateWindow(10, (screenH - 481) / 2, 393, 475, "[ Rank System ]", false) guiSetVisible(GUIEditor.window[1],false); guiWindowSetSizable(GUIEditor.window[1], false); guiSetProperty(GUIEditor.window[1], "CaptionColour", "FF0090FF") GUIEditor.label[1] = guiCreateLabel(10, 450, 360, 25, "#By BoyKa", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[1], "default-bold-small") GUIEditor.button[1] = guiCreateButton(10, 370, 373, 44, "[ Buy Rank ،/ ششرآءْ الرتبهةء ]", false, GUIEditor.window[1]) guiSetFont(GUIEditor.button[1], "default-bold-small") guiSetProperty(GUIEditor.button[1], "NormalTextColour", "FFFFFFFF") GUIEditor.label[4] = guiCreateLabel(129, 424, 254, 16, "ملاحظة : يمكنك رؤية ساعاتك عن طريق >Tab<", false, GUIEditor.window[1]) guiSetFont(GUIEditor.label[4], "default-bold-small") guiLabelSetColor(GUIEditor.label[4],0, 144, 255) guiLabelSetHorizontalAlign(GUIEditor.label[4], "right", false) GUIEditor.combobox[1] = guiCreateComboBox(12, 27, 371, 438, "--------------------------[ مساعدهه ]---------------------------", false, GUIEditor.window[1]) guiSetFont(GUIEditor.combobox[1], "default-bold-small") guiSetProperty(GUIEditor.combobox[1], "NormalEditTextColour", "FF0000FF") guiComboBoxAddItem(GUIEditor.combobox[1], "--------------------------[ مساعدهه ]---------------------------") guiComboBoxAddItem(GUIEditor.combobox[1], "سؤأل : لم استلم رتبتي ؟") guiComboBoxAddItem(GUIEditor.combobox[1], "الجوأب : تـأكد من ساعاتك عن طريق Tab") guiComboBoxAddItem(GUIEditor.combobox[1], "----------------------------------------------------------------") guiComboBoxAddItem(GUIEditor.combobox[1], "سؤال : كيف اجمع ساعات ؟") guiComboBoxAddItem(GUIEditor.combobox[1], "الجواب : عن طريق التواجد بالسيرفر") guiComboBoxAddItem(GUIEditor.combobox[1], "----------------------------------------------------------------") guiComboBoxAddItem(GUIEditor.combobox[1], "سؤال : لا تحفظ ساعاتي بالسيرفر لماذا ؟") guiComboBoxAddItem(GUIEditor.combobox[1], "الجواب : تأكد من تسجيلك حساب والدخول اليه بالسيرفر") guiComboBoxAddItem(GUIEditor.combobox[1], "----------------------------------------------------------------") GUIEditor.gridlist[1] = guiCreateGridList(10, 60, 373, 295, false, GUIEditor.window[1]) guiGridListAddColumn(GUIEditor.gridlist[1], "#", 0.2) guiSetFont(GUIEditor.gridlist[1],FontGrid) row = guiGridListAddRow(GUIEditor.gridlist[1]) guiGridListAddColumn(GUIEditor.gridlist[1], "الرتبه", 0.3) guiGridListAddColumn(GUIEditor.gridlist[1], "القروب", 0.3) guiGridListAddColumn(GUIEditor.gridlist[1], "ساعات", 0.1) for k,v in ipairs ( Admin ) do row = guiGridListAddRow(GUIEditor.gridlist[1]); guiGridListSetItemText(GUIEditor.gridlist[1],row,1,''..k..'- ',false,false) guiGridListSetItemText(GUIEditor.gridlist[1],row,2,v[1],false,false) guiGridListSetItemText(GUIEditor.gridlist[1],row,3,v[2],false,false) guiGridListSetItemText(GUIEditor.gridlist[1],row,4,v[3],false,false) guiGridListSetItemColor(GUIEditor.gridlist[1],row,1,0, 144, 255) guiGridListSetItemColor(GUIEditor.gridlist[1],row,2,255,255,255) guiGridListSetItemColor(GUIEditor.gridlist[1],row,3,0, 144, 255) guiGridListSetItemColor(GUIEditor.gridlist[1],row,4,255,255,255) guiSetFont (GUIEditor.gridlist[1],"default-bold-small") end xMainFunctions_ = function ( ) local row, col = guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ) local Group = tostring ( guiGridListGetItemText(GUIEditor.gridlist[1],row,3 )); local Price = tostring ( guiGridListGetItemText(GUIEditor.gridlist[1],row,4 )); local Name = tostring ( guiGridListGetItemText(GUIEditor.gridlist[1],row,2 )); if ( row and col and row ~= -1 and col ~= -1 ) then triggerServerEvent("Accept:the:request",localPlayer,Group,Price,Name); else outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffffألرجاء اختيار الرتبة", 255, 255, 255, true ) end end addEventHandler("onClientGUIClick",GUIEditor.button[1],xMainFunctions_,false); xBindFunction_ = function () guiSetVisible(GUIEditor.window[1],not guiGetVisible(GUIEditor.window[1])); showCursor(guiGetVisible(GUIEditor.window[1])); end bindKey(Key,"down",xBindFunction_); fileDelete("Admin_Client.lua")

شوف انا وش طلبت طلبت تعديله بس عشان الادمن مخالف +لو اشترا رتبة تمسح القبلها ^____

بس انت قلت تبي المود كامل يابعدي

يب حاولت ومع الأسف لن تظبط معنااا ء ذذ

يالغالي وش صار معاك لي يومين استنا

ولله ماعرف في هادي الشياء كلها انا جديد في البرمجة لو ممكن تعدل الكود وطعتني ياه

تفضل http://up.top4top.net/downloadf-4361y2c71-zip.html

طيب ارسلك المود تشوفه لو سمحت

ههههههههههههههههههههههه ولله م انتبهت

هيك لما اضغط الزرار نفس الشيء وكمان سويت الكلمة ورسترت المود ونفس الشء

اوك يالغالي قسم بلله الي عنده اسلوب في حكيه الكل يحبه

ولله مدري وش يعني انا نوب برمجة

ولله مدري بس مايشتري ولا يقول شيء في الشات يعني بس عبارة عن لوحة صار مايفعل شيء

عدلته بس لما اشغله واضغط الرتبة بعدين شراء مايشتريها ولا يظهر شيء في الشات %عدلته بس لما اشغله واضغط الرتبة بعدين شراء مايشتريها ولا يظهر شيء في الشات

if isObjectInACLGroup("user."..account, aclGetGroup("Admin_x")) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** الحساب الخاص بك محظور | "..Name,source,255,0,0,true);; end

if isGuestAccount ( getPlayerAccount ( player ) ) then

اسف غلطت هادي الأصلية Abu-Solo

function removeGroups ( player ) if ( player ) and ( getElementType ( player ) == "player" ) then if isGuestAccount ( getPlayerAccount ( player ) ) then return end local Acc = getAccountName ( getPlayerAccount ( player ) ) if ( #aclGroupList ( ) == 0 ) then return end for _,Groups_ in ipairs( aclGroupList ( ) ) do if ( isObjectInACLGroup ( "user." ..Acc, Groups_ ) ) then aclGroupRemoveObject ( Groups_ ,"user."..Acc ) end end end end xAddToGroupFunction_ = function ( Group,Price,Name ) local account = getAccountName(getPlayerAccount(source)); if isGuestAccount(getPlayerAccount(source)) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff * يجب عليك التسجيل اولاَ",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup(tostring(Group))) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** لديك هذهـ الرتبة فعـلا ! ",source,255,0,0,true); end if isObjectInACLGroup("user."..account, aclGetGroup("Admin_x")) then return outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** الحساب الخاص بك محظور | "..Name,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 removeGroups ( source ) if isObjectInACLGroup ("user."..account, aclGetGroup( tostring(Group)) ) then aclGroupAddObject (aclGetGroup( tostring(Group)),"user."..account); outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff** تم اضافة الرتبة بنجاح | "..Name,source,0,255,0,true); end else outputChatBox("#ff4f00* ( #ffffffBuy Admin #ff4f00) : #ffffff**ليس لديك ساعات كافية",source,255,0,0,true); end end addEvent("Accept:the:request",true) addEventHandler("Accept:the:request",root,xAddToGroupFunction_) --------------- الرتب الي ماتنسحب حين يشتري رتبة من الوحة local aGroups = { ["3GL"] = true , ["FFO"] = true , ["Adminmsg"] = true , }; function removeGroups ( player ) if ( player ) and ( getElementType ( player ) == "player" ) then if isGuestAccount ( getPlayerAccount ( player ) ) then return end local Acc = getAccountName ( getPlayerAccount ( player ) ) if ( #aclGroupList ( ) == 0 ) then return end for _,Groups_ in ipairs( aclGroupList ( ) ) do if not ( aGroups [ aclGroupGetName ( Groups_ ) ] ) then if ( isObjectInACLGroup ( "user." ..Acc, Groups_ ) ) then aclGroupRemoveObject ( Groups_ ,"user."..Acc ) end end end end end