twitter

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كيف حالكم انشاء الله بخير اليوم حبيت أقدم لكم أول سكربت لي ولي هو سكربت الانتحار مفيد لسيرفرات حرب العصابات ( أظن ) الزوبد وش ميزات المود ؟ شوفو الصوره وبعدين أوضح :صوره طبعآ الأزرار ملونه لكن عندي مود ملون كل الأزرار المود بدايته بلغتين وتضغط زر يصير عربي وزر انقلش المود منظم بشكل ممتاز أتركم مع المود تحياتي #Twitter http://up.top4top.net/downloadf-334c0s7u1-zip.html قبل التعليق تذكر أني مبرمج مبتدأ واذا انت مبرمج أكيد جربت المرحلة الي انا امر فيها يليت تقدر التعب

باختصار يبغى زي طارهـ يعني يكون فيه 3 مابات مثلآ ويبدأ اول ماب بعد م يخلص بوقت يبدا الثاني وبعده الثالث ويرجع للأول وكذا

الصراحة مود خورافي لكن أحس أن لازمه تنظيم أكثر ! الزوبد استمر بالطرح بانتظار مودات الثانيه

ططيب لو نوب هو ؟ يعني باختصار نفسيي وش يسوي ؟

انت تلعب أصلا ض1

وش تبغى نبرمج فيه ؟ يليت توضح لي علشن اقدر اساعدك

طيب تبغاه يظهر للكل ولا للاعب او الديفلوبر ؟ وش تبغاه ؟ كيل مسج ؟ شات ؟ توب بار شات ؟

بانتظار رد -:

ياخي حط عنوان صح مافي مشكلة هنا قول طلب مساعدهـ عالعموم انا م عندي الاكواد لكن ييليت تحط عنوان مناسببء

طيب شكرآ عالمساعده

ترا اعتقد انكم معقدين الموضوع شوي كل الي تحتاجه تبدل السورس بالسطر السادس local sValue = getElementData( source,'PlayTime' ) local sValue = getElementData( source,'PlayTime' ) لو م عرفت اطرح اكواد كوينز وبنساعدك

شكرآ زبط معاي

يخي جبت من طريقة بشروحات البرمجه وم زبطت سويها مع الكود الي حطيته لاهنت

عطني الكود كامل لاهنت

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كيف حالكم انشاء الله بخير اليوم وبكل اختصار حملت مود توزيع وعدلته عدلته كل شيء ابغاه تعدل الا شيء واحد ابغى اللوحه عالسيريالات بحط لكم ملف سيرفر ساعدوني -----سيرفر function onAdmins ( thePlayer ) local cuenta = getAccountName( getPlayerAccount(thePlayer) ) if isObjectInACLGroup("user."..cuenta, aclGetGroup("Console")) then triggerClientEvent ( "Abrir", thePlayer) else outputChatBox("ACCESO DENEGADO!", thePlayer, 255, 0, 0, true) end end addCommandHandler("توزيع", onAdmins) addEvent("SendMoney1", true) addEventHandler("SendMoney1", getRootElement(), Enviar)

اشكرك على هذي الاضافة للي يسأل من المبرمج الي م يعرف شفت كثيرين يسألون ومحد رد عليهم

طيب وين اكتب ذا الكلام ؟؟ ويليت لو تساعدني بالتطويرات الباقيه

السلام عليكم ورحمة الله وبركاته بدون أي مقدمات هو كود واحد وبعض المبرمجين م يعرفون outputChatBox("هنا تحط الكلام او الحقوق",0,255,255,true) وتحطه بملف صيغته كلنت وبدون أي إضافات متى شغلت المود او دخلت يطلع الكلام:)

طبيعي كل مبرمج يبدأ يأخذ مودات ويغير حقوق بعدين يعدل بالمودات , شوي بالكلام وشوي باللوحة ثم ينتقل للمرحلة الي بعدها , ويبدأ يصنع مودات خفيفة وآخر شيء يتطور مع الوقت

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته كيف حالكم انشاء الله بخير طبعآ نفس العاجل الي عطيتوني هو ابغى اضافاة تعديلات عليه ومعليش للي تعبتهم وللي بتبعبهم المهم انا ابغى إضافات عالعاجل وتكون : كالتالي يتلون العاجل ( كلمه ادمن للون اخضر , والكلام للون اصفر , واسم اللاعب للون ازرق ).1 2. اكتب كلمه باف8 تشيل العاجل 3. اكتب كلمه باف8 تغلق العاجل ومحد يقدر يكتب الا ارجع اكتبها وتكون هذي عيريالات منفرده 4. المود يكون عالسيريالات 5. في كلمات احطها بالمود ممنوع تنذكر بالعاجل الي يسأل ليه م تسويها انت لأني م عندي القدرات الكافيه ولو عندي كنت سويت المهم كلنت local x,y = guiGetScreenSize(); addEvent ( "3MEED", true ) addEventHandler ( "3MEED", getRootElement(),function(message) txt = message; playSoundFrontEnd ( 49 ) end) addEventHandler("onClientRender", getRootElement( ),function( ) if ( txt ) then dxDrawText ( "#FF0000Admin :", x*(9.0/800), y*(145.0/600), x*(55.0/800), y*(182.0/600), tocolor ( 255, 255, 0, 255 ), 1.1, "default-bold", "left", "top", false, false, false ,true) dxDrawText (txt, x*(38.0/800), y*(147.0/600), x*(799.0/800), y*(224.0/600), tocolor ( 255, 255, 255, 255 ), 1.0, "default-bold", "left", "top", false, false, false ,true) end if ( getElementData(resourceRoot,"PlrAdmin") ) then dxDrawText("#ffffff "..getElementData(resourceRoot,"PlrAdmin"),x*(9.0/800),y*(160.0/600),x*(799.0/800),y*(224.0/600),tocolor(255,255,255,255),1.0,"default-bold","left","top",false,false,false,true) end end) bindKey ( "i", "down", "chatbox", "AM" ) addEventHandler ( "onClientResourceStart", resourceRoot, function ( ) triggerServerEvent ( "SetMessage", localPlayer ) end ) سيرفر Groups = { -- القروبات المسموح لها بالكتابة "Console", } -------------------- لا داعي لتعديل الأكواد تحت هذا السطر ------------------- function check ( thePlayer, commandName, ... ) local accName = getAccountName ( getPlayerAccount ( thePlayer ) ) local veve = { ... } local message = table.concat ( veve, " " ) for i, v in ipairs ( Groups ) do if isObjectInACLGroup ( "user."..accName, aclGetGroup ( v ) ) then setElementData ( resourceRoot, "MessageAdmin", message); setElementData(resourceRoot,"PlrAdmin",getPlayerName(thePlayer)); SaveMessage ( ) triggerClientEvent ( "3MEED", getRootElement( ), getElementData ( resourceRoot, "MessageAdmin" ) ) end end end addCommandHandler( "AM", check ) addEventHandler ( "onResourceStart", resourceRoot, function ( ) executeSQLQuery("CREATE TABLE IF NOT EXISTS SaveMessagee (Message, Server)") end ) addEvent ( "SetMessage", true ) addEventHandler ( "SetMessage", root, function ( ) getMessage ( ) end ) SaveMessage = function ( ) local msg = executeSQLQuery ( "SELECT * FROM SaveMessagee WHERE Server = '" .. getServerName ( ) .."'" ) if ( #msg ~= 0 ) then return executeSQLQuery("UPDATE SaveMessagee SET Message=? WHERE Server=? ", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) ) else return executeSQLQuery("INSERT INTO SaveMessagee (Message,Server) VALUES(?,?)", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) ) end end getMessage = function ( ) local msg = executeSQLQuery ( "SELECT * FROM SaveMessagee" ) if ( #msg ~= 0 ) then setElementData ( resourceRoot, "MessageAdmin", msg[1]["Message"] ) return setTimer ( triggerClientEvent, 1000, 1, "3MEED", getRootElement( ), getElementData ( resourceRoot, "MessageAdmin" ) ) else return setTimer ( triggerClientEvent, 1000, 1, "3MEED", getRootElement( ), " " ) end end اذا احتاج سيرفر او كلنت للتغير عادي بس المهم شكل العاجل يكون نفسه ملاحظة : يمكن أتاخر بالرد اعذرني وبرد عالكل

بسم اله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته بكل اختصار تذكرون العاجل الي حطيته اليوم ؟؟ بحطه لكم من جديد : وابغى إضافات كالتالي 1. يكون العاجل على اسم الحساب او السيريال 2. يتلون العاجل عند الارسال ( كلمه ادمن تتلون اخضر , والكلام يتلون اصفر , ثم يرجع ) 3. اكتب كلمه باف8 تشيل العاجل 4. اكتب كلمه باف8 وتغلق العاجل ( يعني محد يقدر يكتب الين اكتب نفس الكلمه مره ثانيه ) بطرح لكم الأكواد للي يسأل ليه م تسويها انت لأن م عندي القدرات علشن اسويها ولا سويتها كلنت local x,y = guiGetScreenSize(); addEvent ( "3MEED", true ) addEventHandler ( "3MEED", getRootElement(),function(message) txt = message; playSoundFrontEnd ( 49 ) end) addEventHandler("onClientRender", getRootElement( ),function( ) if ( txt ) then dxDrawText ( "#FF0000Admin :", x*(9.0/800), y*(145.0/600), x*(55.0/800), y*(182.0/600), tocolor ( 255, 255, 0, 255 ), 1.1, "default-bold", "left", "top", false, false, false ,true) dxDrawText (txt, x*(38.0/800), y*(147.0/600), x*(799.0/800), y*(224.0/600), tocolor ( 255, 255, 255, 255 ), 1.0, "default-bold", "left", "top", false, false, false ,true) end if ( getElementData(resourceRoot,"PlrAdmin") ) then dxDrawText("#ffffff "..getElementData(resourceRoot,"PlrAdmin"),x*(9.0/800),y*(160.0/600),x*(799.0/800),y*(224.0/600),tocolor(255,255,255,255),1.0,"default-bold","left","top",false,false,false,true) end end) bindKey ( "i", "down", "chatbox", "AM" ) addEventHandler ( "onClientResourceStart", resourceRoot, function ( ) triggerServerEvent ( "SetMessage", localPlayer ) end ) سيرفر Groups = { -- القروبات المسموح لها بالكتابة "Console", } -------------------- لا داعي لتعديل الأكواد تحت هذا السطر ------------------- function check ( thePlayer, commandName, ... ) local accName = getAccountName ( getPlayerAccount ( thePlayer ) ) local veve = { ... } local message = table.concat ( veve, " " ) for i, v in ipairs ( Groups ) do if isObjectInACLGroup ( "user."..accName, aclGetGroup ( v ) ) then setElementData ( resourceRoot, "MessageAdmin", message); setElementData(resourceRoot,"PlrAdmin",getPlayerName(thePlayer)); SaveMessage ( ) triggerClientEvent ( "3MEED", getRootElement( ), getElementData ( resourceRoot, "MessageAdmin" ) ) end end end addCommandHandler( "AM", check ) addEventHandler ( "onResourceStart", resourceRoot, function ( ) executeSQLQuery("CREATE TABLE IF NOT EXISTS SaveMessagee (Message, Server)") end ) addEvent ( "SetMessage", true ) addEventHandler ( "SetMessage", root, function ( ) getMessage ( ) end ) SaveMessage = function ( ) local msg = executeSQLQuery ( "SELECT * FROM SaveMessagee WHERE Server = '" .. getServerName ( ) .."'" ) if ( #msg ~= 0 ) then return executeSQLQuery("UPDATE SaveMessagee SET Message=? WHERE Server=? ", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) ) else return executeSQLQuery("INSERT INTO SaveMessagee (Message,Server) VALUES(?,?)", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) ) end end getMessage = function ( ) local msg = executeSQLQuery ( "SELECT * FROM SaveMessagee" ) if ( #msg ~= 0 ) then setElementData ( resourceRoot, "MessageAdmin", msg[1]["Message"] ) return setTimer ( triggerClientEvent, 1000, 1, "3MEED", getRootElement( ), getElementData ( resourceRoot, "MessageAdmin" ) ) else return setTimer ( triggerClientEvent, 1000, 1, "3MEED", getRootElement( ), " " ) end end اذا احتاج السيرفر تغير م امنع والكلنت اذا احتاج م امنع لكن ابغى نفس الشكل ملاحظة : يمكن أتأخر في الرد اعذرني وبرد على كل واحد

شكرآ طيب لاهنت ابغى العاجل على السيريال + اكتب كلمه باف8 تشيله

ابشر -------- سيرفر Groups = { -- القروبات المسموح لها بالكتابة "Admin1", "Admin2", "Console", "Console2", "Head.Admin", "Man-Server", "ACL", } -------------------- لا داعي لتعديل الأكواد تحت هذا السطر ------------------- function check ( thePlayer, commandName, ... ) local accName = getAccountName ( getPlayerAccount ( thePlayer ) ) local veve = { ... } local message = table.concat ( veve, " " ) for i, v in ipairs ( Groups ) do if isObjectInACLGroup ( "user."..accName, aclGetGroup ( v ) ) then setElementData ( resourceRoot, "MessageAdmin", message); setElementData(resourceRoot,"PlrAdmin",getPlayerName(thePlayer)); SaveMessage ( ) triggerClientEvent ( "3MEED", getRootElement( ), getElementData ( resourceRoot, "MessageAdmin" ) ) end end end addCommandHandler( "Admin", check ) addEventHandler ( "onResourceStart", resourceRoot, function ( ) executeSQLQuery("CREATE TABLE IF NOT EXISTS SaveMessagee (Message, Server)") end ) addEvent ( "SetMessage", true ) addEventHandler ( "SetMessage", root, function ( ) getMessage ( ) end ) SaveMessage = function ( ) local msg = executeSQLQuery ( "SELECT * FROM SaveMessagee WHERE Server = '" .. getServerName ( ) .."'" ) if ( #msg ~= 0 ) then return executeSQLQuery("UPDATE SaveMessagee SET Message=? WHERE Server=? ", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) ) else return executeSQLQuery("INSERT INTO SaveMessagee (Message,Server) VALUES(?,?)", tostring ( getElementData ( resourceRoot, "MessageAdmin" ) ), getServerName ( ) ) end end getMessage = function ( ) local msg = executeSQLQuery ( "SELECT * FROM SaveMessagee" ) if ( #msg ~= 0 ) then setElementData ( resourceRoot, "MessageAdmin", msg[1]["Message"] ) return setTimer ( triggerClientEvent, 1000, 1, "3MEED", getRootElement( ), getElementData ( resourceRoot, "MessageAdmin" ) ) else return setTimer ( triggerClientEvent, 1000, 1, "3MEED", getRootElement( ), " " ) end end ---------- كلنت -- * Edited By 3MEED local x,y = guiGetScreenSize(); addEvent ( "3MEED", true ) addEventHandler ( "3MEED", getRootElement(),function(message) txt = message; end) addEventHandler("onClientRender", getRootElement( ),function( ) if ( txt ) then dxDrawText ( "#FF0000Admin :", x*(13.0/800), y*(167.0/600), x*(55.0/800), y*(182.0/600), tocolor ( 255, 255, 0, 255 ), 1.0, "default-bold", "left", "top", false, false, false ,true) dxDrawText (txt, x*(60.0/800), y*(168.0/600), x*(799.0/800), y*(224.0/600), tocolor ( 255, 255, 255, 255 ), 1.0, "default-bold", "left", "top", false, false, false ,true) end if ( getElementData(resourceRoot,"PlrAdmin") ) then dxDrawText("#ffffff "..getElementData(resourceRoot,"PlrAdmin"),x*(13.0/800),y*(184.0/600),x*(799.0/800),y*(224.0/600),tocolor(255,255,255,255),1.3,"default-bold","left","top",false,false,false,true) end end) bindKey ( "i", "down", "chatbox", "Admin" ) addEventHandler ( "onClientResourceStart", resourceRoot, function ( ) triggerServerEvent ( "SetMessage", localPlayer ) end ) يليت ترد بسرعه

زي م قال أخونا نكست يمكن فيه مسافات او رموز أو ان المود كذا أول م تدخل او تشغل المود يجيك outputChatBox("Error could not start the resource *blabla has come back from the futur player, 255, 0, 0, true)

منتظر رد :-