' A F .

تفضل سويت لك نظـام كأمــل .. Client Side : LocalPlayer = getLocalPlayer ( ) addEventHandler("onClientResourceStart", resourceRoot, function() TheLabel = guiCreateLabel(8, 363, 206, 25, "Your Gold : ", false) guiSetFont(TheLabel, "default-bold-small") setTimer ( function ( ) triggerServerEvent("OnGetGold",localPlayer) end,1000,0) end ) addEventHandler("onClientRender",root, function ( ) if ( guiGetVisible ( TheLabel ) ) then local TheData = getElementData ( LocalPlayer , "TheGold" ) if ( TheData ) then guiSetText ( TheLabel , "Your Gold : "..TheData ) end end end ) Server Side : Sqlite = executeSQLQuery DefaultGold = 0 Sqlite("CREATE TABLE IF NOT EXISTS GoldSystem (TheSerial,TheGold)") addEventHandler("onResourceStart",resourceRoot, function ( ) local ThePlayers = getElementsByType("player") for Index,Values in ipairs ( ThePlayers ) do local Default = Sqlite("SELECT * FROM GoldSystem WHERE TheSerial=?",tostring(getPlayerSerial(Values))) if ( Default and type ( Default ) == "table" and #Default ~= 0 ) then setElementData ( Values , "TheGold" , Default[1]["TheGold"] ) else setElementData ( Values , "TheGold" , tonumber ( DefaultGold ) ) end end end ) addEventHandler("onPlayerJoin",root, function ( ) local Default = Sqlite("SELECT * FROM GoldSystem WHERE TheSerial=?",tostring(getPlayerSerial(source))) if ( Default and type ( Default ) == "table" and #Default ~= 0 ) then setElementData ( source , "TheGold" , Default[1]["TheGold"] ) else setElementData ( source , "TheGold" , tonumber ( DefaultGold ) ) end end ) addEvent("OnGetGold",true) addEventHandler("OnGetGold",root, function ( ) local Default = Sqlite("SELECT * FROM GoldSystem WHERE TheSerial=?",tostring(getPlayerSerial(client))) if ( Default and type ( Default ) == "table" and #Default ~= 0 ) then setElementData ( client , "TheGold" , Default[1]["TheGold"] ) else setElementData ( client , "TheGold" , tonumber ( DefaultGold ) ) end end ) function getPlayerGold ( player ) local Default = Sqlite("SELECT * FROM GoldSystem WHERE TheSerial=?",tostring(getPlayerSerial(player))) if ( Default and type ( Default ) == "table" and #Default ~= 0 ) then return Default[1]["TheGold"] else return false end end function setPlayerGold ( player , gold ) if ( type ( gold ) ~= "number" ) then return false end local Default = Sqlite("SELECT * FROM GoldSystem WHERE TheSerial=?",tostring(getPlayerSerial(player))) if ( Default and type ( Default ) == "table" and #Default ~= 0 ) then Sqlite("UPDATE GoldSystem SET TheGold=? WHERE TheSerial=?",Default[1]["TheGold"]+gold,tostring(getPlayerSerial(player))) setElementData ( player , "TheGold" , Default[1]["TheGold"] ) else Sqlite("INSERT INTO GoldSystem (TheSerial,TheGold) VALUES (?,?)",tostring(getPlayerSerial(player)),DefaultGold) setElementData ( player , "TheGold" , DefaultGold ) end end addCommandHandler("Gold", function ( player , command , text ) if ( player and text ) then if ( text == "info" ) then local Gold = getPlayerGold ( player ) outputChatBox("* Your Gold : "..Gold , player , 255 , 255 , 0 , true ) end if ( text == "giveing" ) then setPlayerGold ( player , 1 ) end end end ) ملأحظات : لو تبي تعطي نفسك ذهب اكتب في اف 8 Gold giveing لو تبي تجيب كم ذهب عندك اكتب في اف 8 Gold info

bindKey("f5","down", function ( ) showCursor ( not isCursorShowing () ) showBrowser ( ) end) function isPointInRect(posX, posY, posX1, posY1, posX2, posY2) return (posX > posX1 and posX < posX2) and (posY > posY1 and posY < posY2) end function showBrowser() if WebBrowserGUI.instance ~= nil then return end WebBrowserGUI.instance = WebBrowserGUI:new() end

^ سفاح شوف السطر الثالث انت مسحت الي دآخل المربع طيب .. وسطر 6 انت ارسلت الي دآخل المربع .. راح يكون الي دىخل المربع فراغ ويرسل بالترايقر فراغ فـ ضع كود مسح الكلام الي دآخل المربع تحت الترايقر .. بالتوفيق لك

مو احسن تستخدم الـ guiGetText

سكربت رائع , كمل لأتوقف عقبال مانشوفك من كبار المبرمجين

كوك خطأ من وين جبت الـ gv

ماعرفها الوظيفة ذي بسس اتوقع تعطل الجري عند الـ element

^ طيب لو ماكان عنده داتا لازمم تسوي تحقق من الداتا

بالتوفيقق لك ي بعديَ باذن الله يكون من افضل السيرفرات , تحياتي لك ي بعدي : )

ججَميل جداً , بـ التوفيق لك اخي

^ يختصر الوضع عشان مايطول الاكواد حقت الليبل

^ اخوي اي تحطيم ؟ انا قلت الحق , ان فيه وظيفة وتقدر تسويها من guieditor , وين التحطيم بالموضوع ؟

^ لا تقدر اظغط على المربع بـ guieditor وحط outline

^ +1 بـ الاضأفة فيه useful function https://wiki.multitheftauto.com/wiki/Dx ... dRectangle

أهنيك ي العششيرَ , سترونق مود رائع جداً

صراحة ابداع , اهنيكم واحد واحد

الكولمن ماتقدر , الرو guiSetFont + guiCreateFont

local screenW,screenH = guiGetScreenSize () ضيفها اول الملف اذا م اشتغل افتح ديبوق يمكن فيه غلط ثاني

شوف الحين هو كذا ظابط local dxElements = {} function dxCreateMemo ( x , y , w , h , text ) local element = createElement('dx_memo') table.insert ( dxElements , {element=element,x=x,y=y,w=w,h=h,text=text,scroll=1,render=dxCreateRenderTarget(w,h,true)}) return element end function Render ( ) for i,v in ipairs ( dxElements ) do local type = getElementType ( v.element ) if ( type == 'dx_memo' ) then if ( v.render ) then dxDrawRectangle(v.x,v.y,v.w,v.h,tocolor(0,0,0,190),false) dxDrawText(""..v.text,v.x,v.y+v.scroll,v.x+v.w,v.y+v.h,tocolor(255,255,255,255),1,'default-bold','left','top',true) dxSetRenderTarget () dxDrawImage(v.x,v.y+v.scroll,v.w,v.h,v.render) end end end end addEventHandler('onClientRender',root,Render) text = 'Hi\nHello\nWelcome\nIn\nServer\nHello\nWelcome\nIn\nServer\n\nHello\nWelcome\nIn\nServer\nHello\nWelcome\nIn\nServer\n\nHello\nWelcome\nIn\nServer\nHello\nWelcome\nIn\nServer\n\nHello\nWelcome\nIn\nServer\nHello\nWelcome\nIn\nServer\n\n\n' memo = dxCreateMemo(350, 168, 325, 175,text) bindKey('x','down', function ( ) for i,v in ipairs ( dxElements ) do if ( getElementType ( v.element ) == 'dx_memo' ) then v.scroll = v.scroll+10 end end end ) bindKey('z','down', function ( ) for i,v in ipairs ( dxElements ) do if ( getElementType ( v.element ) == 'dx_memo' ) then v.scroll = v.scroll-10 end end end ) لأكن الكلام يطلع فوق الـ rectangle انا ابي الكلام يبقى زي ماهو بس ينزل تحت وفوق

لأ , الدي بوق مايطلع شيء

انا ابي اسوي rectangle + dx text وابيه زي الميمو فيه سكرول كذا واحد قالي بالريندر تارجيت + انا م افهم ب الريندر تارجيت بس سويت كذت ع حسب المثالي الي بالويكي ..

السلام عليكم المهم اني لما احط dxSetRenderTarget ( ... ) الكود مايشتغل الكود local dxElements = {} function dxCreateMemo ( x , y , w , h , text ) local element = createElement('dx_memo') table.insert ( dxElements , {element=element,x=x,y=y,w=w,h=h,text=text,scroll=1,render=dxCreateRenderTarget(w,h,true)}) return element end function Render ( ) for i,v in ipairs ( dxElements ) do local type = getElementType ( v.element ) if ( type == 'dx_memo' ) then if ( v.render ) then --dxSetRenderTarget ( v.render , true) هنا المشكلة , الدي بوق مايقول شيء dxDrawRectangle(v.x,v.y,v.w,v.h,tocolor(0,0,0,190),false) dxDrawText(""..v.text,v.x,v.y,v.x+v.w,v.y+v.h,tocolor(255,255,255,255),1,'default-bold','left','top',true,true,false,true,true) dxSetRenderTarget () dxDrawImage(v.x,v.y+v.scroll,v.w,v.h,v.render) end end end end addEventHandler('onClientRender',root,Render) text = 'Hi\nHello\nWelcome\nIn\nServer' memo = dxCreateMemo(350, 168, 325, 175,text)[/b] ردود خارج الموضوع مانبي .. <3

مفطر ^ ؟

واو شرح رآئع و مختصر , أهنيك ي الحب آلعب ي مصنع الكرآسي