سلام عليكم
كيفكم ي شباب ؟؟
ندخل في صلب الموضوع ومن غير مقدمات
الزبده مودات القروب سستم المنشوره اغلبها او 95% منها
تصميم ال gui حقها
مثل سيرفر جراند العرب و cit
ف قلت في عقلي ليه مانسوي تطوير على اللوحه ونظيف خصائص جديدة لها
ونغير الواجهه حقتها إلى شكل جديد وسهل الإستخدام
طبعا انا خبرتي البرمجيه قليله جدا وماتسمح لي اني ابرمج مود مثل القروب سستم
ف حبيت اني اصمم لكم لوحه جديده للقروب سستم ورح اطرحها ب موضوع آخر
ومصرح للكل بأخذ اللوحه وبرمجتها
^ يعني افضل من اني اجلس اناظر فقط
اللوحه الرسمية للقروب سستم
الكود :
addEventHandler("onClientResourceStart", resourceRoot,
function()
local screenW, screenH = guiGetScreenSize()
wind = guiCreateWindow((screenW - 682) / 2, (screenH - 444) / 2, 682, 444, "[ Groups System ] ", false)
guiWindowSetSizable(wind, false)
guiSetAlpha(wind, 0.99)
GuOption = guiCreateLabel(196, 23, 287, 15, "==========| Guest Options |==========", false, wind)
guiSetFont(GuOption, "clear-normal")
guiLabelSetColor(GuOption, 0, 155, 255)
guiLabelSetHorizontalAlign(GuOption, "center", false)
guiLabelSetVerticalAlign(GuOption, "center")
GuTG = guiCreateButton(240, 48, 203, 39, "=| Top Groups |=", false, wind)
guiSetProperty(GuTG, "NormalTextColour", "FF007DFF")
GuCG = guiCreateButton(10, 48, 203, 39, "=| Create Group |=", false, wind)
guiSetProperty(GuCG, "NormalTextColour", "FF007DFF")
GuGI = guiCreateButton(473, 48, 199, 39, "=| Groups Invite |=", false, wind)
guiSetProperty(GuGI, "NormalTextColour", "FF007DFF")
MeOption = guiCreateLabel(188, 108, 308, 15, "==========| Member Options |==========", false, wind)
guiSetFont(MeOption, "clear-normal")
guiLabelSetColor(MeOption, 78, 255, 0)
guiLabelSetHorizontalAlign(MeOption, "center", false)
guiLabelSetVerticalAlign(MeOption, "center")
MeGM = guiCreateButton(10, 133, 203, 39, "=| Group Member |=", false, wind)
guiSetProperty(MeGM, "NormalTextColour", "FF1EFF00")
MeGN = guiCreateButton(240, 133, 203, 39, "=| Group News |=", false, wind)
guiSetProperty(MeGN, "NormalTextColour", "FF1EFF00")
MeGL = guiCreateButton(472, 133, 200, 39, "=| Group Logs |=", false, wind)
guiSetProperty(MeGL, "NormalTextColour", "FF1EFF00")
GroupName = guiCreateLabel(10, 108, 183, 15, "Group Name :", false, wind)
guiLabelSetColor(GroupName, 78, 255, 0)
MeGKL = guiCreateButton(10, 182, 203, 39, "=| Group Kill Logs |=", false, wind)
guiSetProperty(MeGKL, "NormalTextColour", "FF1EFF00")
MeAG = guiCreateButton(240, 182, 203, 39, "=| About The Group |=", false, wind)
guiSetProperty(MeAG, "NormalTextColour", "FF1EFF00")
LeaveG = guiCreateButton(472, 182, 200, 39, "=| Leave Group |=", false, wind)
guiSetProperty(LeaveG, "NormalTextColour", "FF1EFF00")
AdOption = guiCreateLabel(196, 246, 292, 15, "==========| Admin Options |==========", false, wind)
guiSetFont(AdOption, "clear-normal")
guiLabelSetColor(AdOption, 255, 0, 0)
guiLabelSetHorizontalAlign(AdOption, "center", false)
guiLabelSetVerticalAlign(AdOption, "center")
AdRO = guiCreateButton(10, 271, 203, 39, "=| Ranks Option |=", false, wind)
guiSetProperty(AdRO, "NormalTextColour", "FFFF0000")
AdRM = guiCreateButton(240, 271, 203, 39, "=| Ranks Manager |=", false, wind)
guiSetProperty(AdRM, "NormalTextColour", "FFFF0000")
BlackList = guiCreateButton(472, 271, 201, 39, "=| Black List |=", false, wind)
guiSetProperty(BlackList, "NormalTextColour", "FFFF0000")
AdAM = guiCreateButton(10, 320, 203, 39, "=| Alliance Manage |=", false, wind)
guiSetProperty(AdAM, "NormalTextColour", "FFFF0000")
Bankacc = guiCreateButton(240, 320, 203, 39, "=| Bank Account |=", false, wind)
guiSetProperty(Bankacc, "NormalTextColour", "FFFF0000")
DeleteG = guiCreateButton(472, 320, 201, 39, "=| Delete Group |=", false, wind)
guiSetProperty(DeleteG, "NormalTextColour", "FFFF0000")
GuZena = guiCreateLabel(40, 87, 604, 15, "_____________________________________________________________________________________", false, wind)
guiLabelSetColor(GuZena, 0, 155, 255)
guiLabelSetHorizontalAlign(GuZena, "center", false)
MeZena = guiCreateLabel(40, 221, 604, 15, "_____________________________________________________________________________________", false, wind)
guiLabelSetColor(MeZena, 78, 255, 0)
guiLabelSetHorizontalAlign(MeZena, "center", false)
AdZena = guiCreateLabel(40, 359, 604, 15, "_____________________________________________________________________________________", false, wind)
guiLabelSetColor(AdZena, 255, 0, 0)
guiLabelSetHorizontalAlign(AdZena, "center", false)
Total = guiCreateLabel(10, 384, 240, 19, "Total Groups :", false, wind)
BestG = guiCreateLabel(10, 413, 240, 20, "Best Group :", false, wind)
end
)
-----------------------------------
تحديث الموضوع ###
واجهه إنشاء القروب
الكود :
addEventHandler("onClientResourceStart", resourceRoot,
function()
local screenW, screenH = guiGetScreenSize()
CRwind = guiCreateWindow((screenW - 391) / 2, (screenH - 365) / 2, 391, 365, "[ Group System | Create Group ]", false)
guiWindowSetSizable(CRwind, false)
guiSetAlpha(CRwind, 0.97)
OwnName = guiCreateLabel(10, 28, 98, 18, "Owner Name :", false, CRwind)
OwneNameEdit = guiCreateEdit(118, 23, 263, 27, "", false, CRwind)
OwneSerial = guiCreateLabel(10, 64, 98, 18, "Owner serial :", false, CRwind)
OwneSerialEdit = guiCreateEdit(118, 60, 263, 27, "", false, CRwind)
None = guiCreateLabel(19, 87, 352, 15, "_________________________________________________", false, CRwind)
guiLabelSetHorizontalAlign(None, "center", false)
GroupName = guiCreateLabel(10, 112, 98, 18, "Group Name :", false, CRwind)
GroupNameEdit = guiCreateEdit(118, 108, 263, 27, "", false, CRwind)
MemberNum = guiCreateLabel(10, 145, 104, 16, "Members Number :", false, CRwind)
MemberNumCombo = guiCreateComboBox(118, 145, 263, 110, "30 Members", false, CRwind)
guiComboBoxAddItem(MemberNumCombo, "10 Members")
guiComboBoxAddItem(MemberNumCombo, "20 Members")
guiComboBoxAddItem(MemberNumCombo, "30 Members")
guiComboBoxAddItem(MemberNumCombo, "40 Members")
guiComboBoxAddItem(MemberNumCombo, "50 Members")
TotalAmount = guiCreateLabel(10, 179, 371, 16, "Total Amount :", false, CRwind)
TheRules = guiCreateLabel(10, 212, 98, 18, "The Rules :", false, CRwind)
RuleMemo = guiCreateMemo(119, 211, 262, 87, "Write The rules To create Group Here\nand make the memo for read only !!", false, CRwind)
DontAcceButt = guiCreateButton(205, 312, 160, 36, "I Dont Accept The Rules", false, CRwind)
guiSetProperty(DontAcceButt, "NormalTextColour", "FFAAAAAA")
AcceptButt = guiCreateButton(20, 312, 160, 36, "I Accept The Rules ", false, CRwind)
guiSetProperty(AcceptButt, "NormalTextColour", "FFAAAAAA")
end
)
---------------------------------------------
واجهه التوب قروب
الكود :
GUIEditor = {
window = {}
}
addEventHandler("onClientResourceStart", resourceRoot,
function()
local screenW, screenH = guiGetScreenSize()
GUIEditor.window[1] = guiCreateWindow((screenW - 340) / 2, (screenH - 436) / 2, 340, 436, "[ Group System | Top Groups ]", false)
guiWindowSetSizable(GUIEditor.window[1], false)
guiSetAlpha(GUIEditor.window[1], 0.97)
TopGridList = guiCreateGridList(9, 24, 321, 363, false, GUIEditor.window[1])
guiGridListAddColumn(TopGridList, "#", 0.3)
guiGridListAddColumn(TopGridList, "Group", 0.3)
guiGridListAddColumn(TopGridList, "Points", 0.3)
TopGClose = guiCreateButton(50, 397, 240, 29, "Close !", false, GUIEditor.window[1])
guiSetProperty(TopGClose, "NormalTextColour", "FFAAAAAA")
end
)
--------------------------------------------
واجهه طلبات الإنضمام للقروبات
الكود :
addEventHandler("onClientResourceStart", resourceRoot,
function()
local screenW, screenH = guiGetScreenSize()
Invitewind = guiCreateWindow((screenW - 528) / 2, (screenH - 291) / 2, 528, 291, "[ Group System | Group Invites ]", false)
guiWindowSetSizable(Invitewind, false)
guiSetAlpha(Invitewind, 0.97)
InviteGridList = guiCreateGridList(11, 24, 255, 257, false, Invitewind)
guiGridListAddColumn(InviteGridList, "#", 0.3)
guiGridListAddColumn(InviteGridList, "Group Name", 0.3)
guiGridListAddColumn(InviteGridList, "Points", 0.3)
AcceptRequest = guiCreateButton(299, 97, 182, 42, "Accept Request", false, Invitewind)
guiSetProperty(AcceptRequest, "NormalTextColour", "FFAAAAAA")
DeleteRequest = guiCreateButton(299, 159, 182, 42, "Delete Request", false, Invitewind)
guiSetProperty(DeleteRequest, "NormalTextColour", "FFAAAAAA")
CloseInvitewind = guiCreateButton(428, 257, 90, 24, "Close", false, Invitewind)
guiSetProperty(CloseInvitewind, "NormalTextColour", "FFAAAAAA")
end
)
--------------------------------------------
واجهه أعضاء القروب
الكود :
addEventHandler("onClientResourceStart", resourceRoot,
function()
local screenW, screenH = guiGetScreenSize()
Memberwind = guiCreateWindow((screenW - 702) / 2, (screenH - 451) / 2, 702, 451, "[ Group System | Group Members ]", false)
guiWindowSetSizable(Memberwind, false)
guiSetAlpha(Memberwind, 0.97)
Mute = guiCreateButton(562, 69, 125, 40, "Mute Player", false, Memberwind)
guiSetProperty(Mute, "NormalTextColour", "FFAAAAAA")
Kick = guiCreateButton(562, 123, 125, 40, "Kick Player", false, Memberwind)
guiSetProperty(Kick, "NormalTextColour", "FFAAAAAA")
Ban = guiCreateButton(562, 177, 125, 40, "Ban Player", false, Memberwind)
guiSetProperty(Ban, "NormalTextColour", "FFAAAAAA")
TotalMemberLable = guiCreateLabel(10, 397, 217, 18, "Total Members :", false, Memberwind)
CopyAcc = guiCreateButton(562, 231, 125, 40, "Copy Account", false, Memberwind)
guiSetProperty(CopyAcc, "NormalTextColour", "FFAAAAAA")
OnlineMemberLable = guiCreateLabel(10, 423, 217, 18, "Online Members :", false, Memberwind)
x = guiCreateButton(562, 285, 125, 40, "Close", false, Memberwind)
guiSetProperty(x, "NormalTextColour", "FFAAAAAA")
MemberGrid = guiCreateGridList(9, 22, 541, 369, false, Memberwind)
guiGridListAddColumn(MemberGrid, "#", 0.2)
guiGridListAddColumn(MemberGrid, "Players", 0.2)
guiGridListAddColumn(MemberGrid, "Account", 0.2)
guiGridListAddColumn(MemberGrid, "Rank", 0.2)
AdminsOptionLeabl = guiCreateLabel(550, 32, 147, 15, "= [ Admins Options ] =", false, Memberwind)
guiLabelSetHorizontalAlign(AdminsOptionLeabl, "center", false)
end
)
-------------------------------------------
واجهه أخبار القروب
الكود :
GUIEditor = {
label = {}
}
addEventHandler("onClientResourceStart", resourceRoot,
function()
local screenW, screenH = guiGetScreenSize()
Newswind = guiCreateWindow((screenW - 525) / 2, (screenH - 410) / 2, 525, 410, "[ Group System | Group News ]", false)
guiWindowSetSizable(Newswind, false)
guiSetAlpha(Newswind, 0.97)
NewsGrid = guiCreateGridList(10, 21, 260, 379, false, Newswind)
guiGridListAddColumn(NewsGrid, "#", 0.3)
guiGridListAddColumn(NewsGrid, "Topic", 0.3)
guiGridListAddColumn(NewsGrid, "By", 0.3)
GUIEditor.label[1] = guiCreateLabel(301, 31, 193, 17, "==== [ Admins Options ] ====", false, Newswind)
guiLabelSetColor(GUIEditor.label[1], 255, 0, 0)
guiLabelSetHorizontalAlign(GUIEditor.label[1], "center", false)
NewsAddTopic = guiCreateButton(316, 64, 162, 38, "Add New Topic", false, Newswind)
guiSetProperty(NewsAddTopic, "NormalTextColour", "FFAAAAAA")
NewsEditTopic = guiCreateButton(316, 117, 162, 38, "Edit Topic", false, Newswind)
guiSetProperty(NewsEditTopic, "NormalTextColour", "FFAAAAAA")
NewsDeleteTopic = guiCreateButton(316, 170, 162, 38, "Delete Topic", false, Newswind)
guiSetProperty(NewsDeleteTopic, "NormalTextColour", "FFAAAAAA")
GUIEditor.label[2] = guiCreateLabel(301, 226, 193, 17, "==== [ Members Options ] ====", false, Newswind)
guiLabelSetColor(GUIEditor.label[2], 48, 255, 0)
guiLabelSetHorizontalAlign(GUIEditor.label[2], "center", false)
NewsReadTopic = guiCreateButton(316, 260, 162, 38, "Read Topic", false, Newswind)
guiSetProperty(NewsReadTopic, "NormalTextColour", "FFAAAAAA")
NewsClose = guiCreateButton(316, 313, 162, 38, "Close", false, Newswind)
guiSetProperty(NewsClose, "NormalTextColour", "FFAAAAAA")
end
)
-------------------------------------------
واجهه اللوق ( هذا يجي فيه الأدمن يوم يصك واحد ميوت او كيك او باند ) ويجيب التاريخ والوقت والسبب
الكود :
GUIEditor = {
window = {}
}
addEventHandler("onClientResourceStart", resourceRoot,
function()
local screenW, screenH = guiGetScreenSize()
GUIEditor.window[1] = guiCreateWindow((screenW - 607) / 2, (screenH - 407) / 2, 607, 407, "[ Group System | Group Logs ]", false)
guiWindowSetSizable(GUIEditor.window[1], false)
guiSetAlpha(GUIEditor.window[1], 0.97)
Logswind = guiCreateGridList(9, 21, 588, 342, false, GUIEditor.window[1])
guiGridListAddColumn(Logswind, "Name", 0.1)
guiGridListAddColumn(Logswind, "Mute/Ban/Kick", 0.1)
guiGridListAddColumn(Logswind, "By", 0.1)
guiGridListAddColumn(Logswind, "Reason", 0.1)
guiGridListAddColumn(Logswind, "Date", 0.1)
guiGridListAddColumn(Logswind, "Time", 0.1)
LogsClose = guiCreateButton(116, 373, 374, 24, "Close Window", false, GUIEditor.window[1])
guiSetProperty(LogsClose, "NormalTextColour", "FFAAAAAA")
end
)
-------------------------------------------
طبعا تقريبا صرت مخلص 50% من واجهات القروب سستم
رايكم يهمني جدا #
وبالتوفيق لكم أجمعين
