Jump to content

طلب كود لوحة شكوى لاهنتوو

iMr.3a[Z]eF

By iMr.3a[Z]eF
in البرمجة

Recommended Posts

iMr.3a[Z]eF Road Dawg

iMr.3a[Z]eF

Posted
Posted (edited)

السلآم عليكم ورحمة الله وبركاته ,.,

ممكن كود مثل الريبورت الخاص بلوحة الأدمنية .,.

أبي اللوحة مفتوحة للزوار وترسل للوحة حق الكونسل ,.,

Edited by Guest
Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted
السلآم عليكم ورحمة الله وبركاته ,.,

ممكن كود مثل الريبورت الخاص بلوحة الأدمنية .,.

أبي اللوحة مفتوحة للزوار وترسل للوحة حق الكونسل ,.,

خذهـ من الادمنية ملف :

--[[********************************** 
* 
*   Multi Theft Auto - Admin Panel 
* 
*   gui\admin_report.lua 
* 
*   Original File by lil_Toady 
* 
**************************************]] 
  
aReportForm = nil 
  
function aReport ( player ) 
    if ( aReportForm == nil ) then 
        local x, y = guiGetScreenSize() 
        aReportForm     = guiCreateWindow ( x / 2 - 150, y / 2 - 150, 300, 300, "Contact Admin", false ) 
                       guiCreateLabel ( 0.05, 0.11, 0.20, 0.09, "Category:", true, aReportForm ) 
                       guiCreateLabel ( 0.05, 0.21, 0.20, 0.09, "Subject:", true, aReportForm ) 
                       guiCreateLabel ( 0.05, 0.30, 0.20, 0.07, "Message:", true, aReportForm ) 
        aReportCategory = guiCreateEdit ( 0.30, 0.10, 0.65, 0.09, "Question", true, aReportForm ) 
                       guiEditSetReadOnly ( aReportCategory, true ) 
        aReportDropDown = guiCreateStaticImage ( 0.86, 0.10, 0.09, 0.09, "client\\images\\dropdown.png", true, aReportForm ) 
                       guiBringToFront ( aReportDropDown ) 
        aReportCategories   = guiCreateGridList ( 0.30, 0.10, 0.65, 0.30, true, aReportForm ) 
                       guiGridListAddColumn( aReportCategories, "", 0.85 ) 
                       guiSetVisible ( aReportCategories, false ) 
                       guiGridListSetItemText ( aReportCategories, guiGridListAddRow ( aReportCategories ), 1, "Question", false, false ) 
                       guiGridListSetItemText ( aReportCategories, guiGridListAddRow ( aReportCategories ), 1, "Suggestion", false, false ) 
                       guiGridListSetItemText ( aReportCategories, guiGridListAddRow ( aReportCategories ), 1, "Cheater/Moder", false, false ) 
                       guiGridListSetItemText ( aReportCategories, guiGridListAddRow ( aReportCategories ), 1, "Other", false, false ) 
        aReportSubject      = guiCreateEdit ( 0.30, 0.20, 0.65, 0.09, "", true, aReportForm ) 
        aReportMessage  = guiCreateMemo ( 0.05, 0.38, 0.90, 0.45, "", true, aReportForm ) 
        aReportAccept       = guiCreateButton ( 0.40, 0.88, 0.25, 0.09, "Send", true, aReportForm ) 
        aReportCancel       = guiCreateButton ( 0.70, 0.88, 0.25, 0.09, "Cancel", true, aReportForm ) 
  
        addEventHandler ( "onClientGUIClick", aReportForm, aClientReportClick ) 
        addEventHandler ( "onClientGUIDoubleClick", aReportForm, aClientReportDoubleClick ) 
    end 
    guiBringToFront ( aReportForm ) 
    showCursor ( true ) 
end 
addCommandHandler ( "report", aReport ) 
  
function aReportClose ( ) 
    guiSetInputEnabled ( false ) 
    if ( aReportForm ) then 
        removeEventHandler ( "onClientGUIClick", aReportForm, aClientReportClick ) 
        removeEventHandler ( "onClientGUIDoubleClick", aReportForm, aClientReportDoubleClick ) 
        destroyElement ( aReportForm ) 
        aReportForm = nil 
        showCursor ( false ) 
    end 
end 
  
function aClientReportDoubleClick ( button ) 
    if ( button == "left" ) then 
        if ( source == aReportCategories ) then 
            if ( guiGridListGetSelectedItem ( aReportCategories ) ~= -1 ) then 
                local cat = guiGridListGetItemText ( aReportCategories, guiGridListGetSelectedItem ( aReportCategories ), 1 ) 
                guiSetText ( aReportCategory, cat ) 
                guiSetVisible ( aReportCategories, false ) 
            end 
        end 
    end 
end 
  
function aClientReportClick ( button ) 
    if ( source == aReportCategory ) then 
        guiBringToFront ( aReportDropDown ) 
    end 
    if ( source ~= aReportCategories ) then 
        guiSetVisible ( aReportCategories, false ) 
    end 
    if ( button == "left" ) then 
        if ( source == aReportAccept ) then 
            if ( ( string.len ( guiGetText ( aReportSubject ) ) < 1 ) or ( string.len ( guiGetText ( aReportMessage ) ) < 5 ) ) then 
                aMessageBox ( "error", "Subject/Message missing." ) 
            else 
                aMessageBox ( "info", "Your message has been submited and will be processed as soon as possible." ) 
                setTimer ( aMessageBoxClose, 3000, 1, true ) 
                local tableOut = {} 
                tableOut.category = guiGetText ( aReportCategory ) 
                tableOut.subject = guiGetText ( aReportSubject ) 
                tableOut.message = guiGetText ( aReportMessage ) 
                triggerServerEvent ( "aMessage", getLocalPlayer(), "new", tableOut ) 
                aReportClose () 
            end 
        elseif ( source == aReportSubject ) then 
            guiSetInputEnabled ( true ) 
        elseif ( source == aReportMessage ) then 
            guiSetInputEnabled ( true ) 
        elseif ( source == aReportCancel ) then 
            aReportClose () 
        elseif ( source == aReportDropDown ) then 
            guiBringToFront ( aReportCategories ) 
            guiSetVisible ( aReportCategories, true ) 
        end 
    end 
end

ولا تنسى تبدل بعض الوظائف خاصة مثل الاخطاء حولها شات بوكس #

Link to comment
yazan Loc

yazan

Posted
Posted (edited)
تـــم

بس ليه ؟؟!!

أعذرني برستيج الموضوع الأول طار ذذ

قونين عناد جديد افتح و شوف ممنوع فتح اي موضع يكون اسمه مو دال عليه

يعني تبي كود تامير

مو تكتب طلب كود اكتب طلب كود تيمر :wink::P

Edited by Guest
Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted

مدري انلحست ماحصلت ملف السيرفر >!<

استخدم الوظائف :

guiCreateGridList 
guiGridListAddRow 
guiCreateEdit 
guiGridListGetSelectedItem 
guiGetText 
guiGridListSetItemText 
guiSetVisible 
guiSetText 
triggerServerEvent 
triggerClientEvent 
isObjectInACLGroup 
  
-- For Save Text And Data : 
  
SQL or XML 
  
executeSQLQuery 
  
or: 
  
dbExec 
dbQuery 
dbPoll 
  
or 
  
xmlCreateFile 
xmlLoadFile 
xmlNodeSetValue 
xmlCreateChild 
xmlFindChild 
xmlSaveFile 
xmlUnloadFile 
xmlNodeGetValue 
 
Link to comment
#Al-Ha[J]aRii Hustler

#Al-Ha[J]aRii

Posted
Posted
مدري انلحست ماحصلت ملف السيرفر >!<

استخدم الوظائف :

guiCreateGridList 
guiGridListAddRow 
guiCreateEdit 
guiGridListGetSelectedItem 
guiGetText 
guiGridListSetItemText 
guiSetVisible 
guiSetText 
triggerServerEvent 
triggerClientEvent 
isObjectInACLGroup 
  
-- For Save Text And Data : 
  
SQL or XML 
  
executeSQLQuery 
  
or: 
  
dbExec 
dbQuery 
dbPoll 
  
or 
  
xmlCreateFile 
xmlLoadFile 
xmlNodeSetValue 
xmlCreateChild 
xmlFindChild 
xmlSaveFile 
xmlUnloadFile 
xmlNodeGetValue 
 

:o

شغل طويل -_-"

Link to comment
iMr.3a[Z]eF Road Dawg

iMr.3a[Z]eF

Posted
  • Author
Posted

خخخخخخخخخخ خطوة خطوة يا برستيج مخي ملحووس .,.

الحين انا سويت لوحة مثل الشكاوي الخاصة بالكونسل يقرأها

وبعدين؟

أسوي كلنت ثاني أللي هو قلت لي عليه من اللوحة وتسذآ؟

Link to comment
iMr.3a[Z]eF Road Dawg

iMr.3a[Z]eF

Posted
  • Author
Posted (edited)

طيب أنا غيرت لوحة الشكاوي ذذ

يكفي اللي باللوحة أعدلها

الحين بأسوي أملاك خاصةً .,.

شف الكود طيب::

  
GUIEditor = { 
    gridlist = {}, 
    window = {}, 
    label = {} 
} 
GUIEditor.window[1] = guiCreateWindow(182, 142, 423, 339, "طلبات الأملاك", false) 
guiWindowSetSizable(GUIEditor.window[1], false) 
guiSetAlpha(GUIEditor.window[1], 1.00) 
  
GUIEditor.label[1] = guiCreateLabel(272, 302, 141, 27, "By 3aZeF |V.1", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[1], "clear-normal") 
guiLabelSetColor(GUIEditor.label[1], 255, 0, 0) 
guiLabelSetHorizontalAlign(GUIEditor.label[1], "center", false) 
GUIEditor.gridlist[1] = guiCreateGridList(9, 18, 404, 284, false, GUIEditor.window[1]) 
guiGridListAddColumn(GUIEditor.gridlist[1], "Player Name", 0.3) 
guiGridListAddColumn(GUIEditor.gridlist[1], "The Code-NUM", 0.3) 
guiGridListAddColumn(GUIEditor.gridlist[1], "Player Serial", 0.3) 
  
addEventHandler("onClientGUIClick",badmin, 
    function ( ) 
        triggerServerEvent("admin1",localPlayer); 
    end,false); 
  
addEvent("admin2",true); 
addEventHandler("admin2",root, 
    function ( ) 
        guiSetVisible(GUIEditor.window[1],true); 
    end 
); 
  
function Color ( ) 
        guiLabelSetColor ( GUIEditor.label[1], math.random(0, 255), math.random(0, 255), math.random(0, 255) ) 
end 
setTimer ( Color, 100, 0 ) 
 

ذذ ع السريع سويته

اللي لاحس مخي التريقر 

addEventHandler("onClientGUIClick",badmin, 
    function ( ) 
        triggerServerEvent("admin1",localPlayer); 
    end,false); 
  
addEvent("admin2",true); 
addEventHandler("admin2",root, 
    function ( ) 
        guiSetVisible(GUIEditor.window[1],true); 
    end 
);

أبيه للكونسل

Edited by Guest
Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted 

guiGridListGetSelectedItem 
getPlayerName 
getPlayerSerial 
guiGridListSetItemText 
triggerServerEvent 
triggerClientEvent 
isObjectInACLGroup 
  
-- For Save Text And Data : 
  
SQL or XML 
  
executeSQLQuery 
  
or: 
  
dbExec 
dbQuery 
dbPoll 
  
or 
  
xmlCreateFile 
xmlLoadFile 
xmlNodeSetValue 
xmlCreateChild 
xmlFindChild 
xmlSaveFile 
xmlUnloadFile 
xmlNodeGetValue 
 
Link to comment
iPrestege Boss Hawg

iPrestege

Posted
Posted

سوية كذا # سوي زر بس زر بدون ايديت ولا شيء هو بيجيب السريال وكل شيء ذذ زر الطلب وبيحط السريال + الاسم + رقم الطلب

كلنت :

GUIEditor = { 
    gridlist = {}, 
    window = {}, 
    label = {} 
} 
GUIEditor.window[1] = guiCreateWindow(182, 142, 423, 339, "طلبات الأملاك", false) 
guiWindowSetSizable(GUIEditor.window[1], false) 
guiSetAlpha(GUIEditor.window[1], 1.00) 
  
GUIEditor.label[1] = guiCreateLabel(272, 302, 141, 27, "By 3aZeF |V.1", false, GUIEditor.window[1]) 
guiSetFont(GUIEditor.label[1], "clear-normal") 
guiLabelSetColor(GUIEditor.label[1], 255, 0, 0) 
guiLabelSetHorizontalAlign(GUIEditor.label[1], "center", false) 
GUIEditor.gridlist[1] = guiCreateGridList(9, 18, 404, 284, false, GUIEditor.window[1]) 
guiGridListAddColumn(GUIEditor.gridlist[1], "Player Name", 0.3) 
guiGridListAddColumn(GUIEditor.gridlist[1], "The Code-NUM", 0.3) 
guiGridListAddColumn(GUIEditor.gridlist[1], "Player Serial", 0.3) 
  
  
function Color ( ) 
        guiLabelSetColor ( GUIEditor.label[1], math.random(0, 255), math.random(0, 255), math.random(0, 255) ) 
end 
setTimer ( Color, 100, 0 ) 
  
  
addEventHandler("onClientGUIClick",root, 
    function ( ) 
        if ( source == زر الطلب ) then 
        local serial = getPlayerSerial(localPlayer); 
        local name = getPlayerName(localPlayer); 
            triggerServerEvent("SQL_Save",localPlayer,serial,name); 
            end; 
        end 
    ); 
     
     
addEvent ( "AddDataSerialName", true ) 
addEventHandler ( "AddDataSerialName", root, 
    function ( serial,name ) 
        local count = guiGridListGetRowCount (  GUIEditor.gridlist[1] ) + 1 
        local row = guiGridListAddRow ( GUIEditor.gridlist[1] ); 
        guiGridListSetItemText ( GUIEditor.gridlist[1], row, 1, tostring ( name ), false, false ); 
        guiGridListSetItemText( GUIEditor.gridlist[1], row, 2,''..count..'-',false,false );  
        guiGridListSetItemText ( GUIEditor.gridlist[1], row, 3, tostring ( serial ), false, false ); 
    end 
) 
  
addEvent ( "AddSerialName", true ) 
addEventHandler ( "AddSerialName", root, 
    function ( onClientSqlList ) 
        guiGridListClear ( GUIEditor.gridlist[1] ); 
        for k, v in ipairs ( onClientSqlList ) do 
            row = guiGridListAddRow ( GUIEditor.gridlist[1] ) 
            guiGridListSetItemText ( GUIEditor.gridlist[1], row, 1, tostring ( v.serial ), false, false ); 
            guiGridListSetItemText( GUIEditor.gridlist[1], row, 2,''..k..'-',false,false ); 
            guiGridListSetItemText ( GUIEditor.gridlist[1], row, 3, tostring ( v.name ), false, false ); 
        end; 
    end 
); 
     
addEventHandler ( "onClientResourceStart", resourceRoot, 
    function ( ) 
        triggerServerEvent ( "Rferesh", localPlayer ); 
    end 
); 
 

سيرفر :

addEventHandler ( "onResourceStart", resourceRoot, 
    function ( ) 
        executeSQLQuery ( "CREATE TABLE IF NOT EXISTS Amlak_System (serial,name)" ); 
         outputDebugString("SQL Data Base Started!",0,0,255,0,0); 
    end 
); 
  
function setAmlak_System ( serial,name ) 
    return executeSQLQuery ( "INSERT INTO `Amlak_System` ( `serial`, `name` ) VALUES ( ?, ?  )", tostring(name),tostring(serial) ); 
end; 
  
function SelectFromSql ( ) 
    local data = executeSQLQuery ( "SELECT * FROM Amlak_System" ) 
    if ( type ( data ) == "table" and #data == 0) or not data then 
        return { }; 
    else 
        return data; 
    end; 
end; 
  
function UpDateListInSql ( element ) 
    if ( not isElement ( element ) ) then 
        return; 
    end; 
  
    local Upsql = SelectFromSql ( ); 
    triggerClientEvent ( element, "AddSerialName", element, Upsql ); 
end; 
  
addEvent ( "Rferesh", true ) 
addEventHandler ( "Rferesh", root, 
    function ( ) 
        UpDateListInSql ( source ); 
    end 
) 
  
addEvent ( "SQL_Save", true ) 
addEventHandler ( "SQL_Save", root, 
    function ( serial,name ) 
        setAmlak_System ( serial,name ); 
        triggerClientEvent ( root, "AddDataSerialName", root,serial,name ); 
    end 
);

بيحفظة في القاعدهـ مهما تسوي ريستارت او او الخ ذذ جربةة و ان شاء الله خير

#

Link to comment
iMr.3a[Z]eF Road Dawg

iMr.3a[Z]eF

Posted
  • Author
Posted (edited)

بس أبي هاللوحة بس الكونسل يشوفها .,. ذذ تعبتكـ معي

ورح اسوي لوحة ثانية يقدر الزائر يحط بياناته فيها

هو رقم بطاقة الشحن ذذ Code-NUM وطبعاً الـ

واحد من الشباب طلبها ولحس مخي مقدر أقول له ما أعرف اسوي هالمود

لقيتك نشيط وساعدتني في كل شي .,.

تستاهل الأشراف هنا مو في جراند العرب فقط ذذ

edit :

بس أبي هاللوحة بس الكونسل يشوفها .,. ذذ تعبتكـ معي

ورح اسوي لوحة ثانية يقدر الزائر يحط بياناته فيها

وتنرسل البيانات لهذهـ اللوحة السريال + بطاقة الشحن + أسم اللاعب

هو رقم بطاقة الشحن ذذ Code-NUM وطبعاً الـ

واحد من الشباب طلبها ولحس مخي مقدر أقول له ما أعرف اسوي هالمود

لقيتك نشيط وساعدتني في كل شي .,.

تستاهل الأشراف هنا مو في جراند العرب فقط ذذ

Edited by Guest
Link to comment

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...