Jump to content

Booo

Members
  • Posts

    335
  • Joined

  • Last visited

Everything posted by Booo

  1. function desBveh(veh) local attached = getAttachedElements ( veh ) if ( attached ) then for k,element in ipairs(attached) do if getElementType ( element ) == "blip" then destroyElement ( element ) end end end end setTimer( function() cars = getElementsByType("vehicle",root,true) for k, car in ipairs(cars) do local motor = math.floor(getElementHealth(car)) if motor < 500 then desBveh(car) createBlipAttachedTo(car,20) else desBveh(car) end end end, 300000, 0)
  2. شرح متاآلق ياوحش .. واصل بدون فواصل
  3. ماشاء الله ابداع .. + .. شرح مرتب ننتظر جديدك
  4. i get new error Error 20 error LNK1181: cannot open input file 'libpng.lib' this output :
  5. Hi, i was trying to compile the source Code on Windows 7. Tried to compiling to Release and got an error Error 27 error LNK1104: cannot open file 'zlib_d.lib' How can i fix this? VS2013
  6. شآكر مرورك وردك ي طيب ي هلآ بالوحش افكار وطرح جميل كالعآده ، شف يالغالي الرفع التلقائي للسكربتات ماهو مستحيل، ممكن يصير بس بشرط انك تعرف الاشخاص الي يرفعون السكربتات معرفه شخصيه ، بس المشكله تدري وين ؟؟ المشكله انه لو يصير رفع السكربتات تلقائي ويكون للجميع راح يصير دمار بالسيرفر من ناحية لاق والتهكير يعني لو يجيك واحد ويرفع سكربت زي كذا while true do createVehicle ( 432, 0,0,0) end خلاص ودع السيرفر سوى كنت حاطه setElementParent او ماحطيته .. لان لاعب في الاخير بيكون متصل على الروت الرئيسي الي هو getRootElement() و createElement تكون فروع للروت الرئيسي ! اما بالنسبه انه فقط يرفع ملفات كلنت ؟؟ مافيه فايده ، لان السكربت بدون ملفات سيرفر ماله قيمه لكن الحين رفع السكربتات ماهو مشكله في الكنق مود ، تقدر ترفع 10 سكربتات في نص ساعه شآكر لك مرورك وردك يالغآلي اآرحب الكنق فهد وعليكم السلام منؤر يالامير تسلم يدآك على آلرد آلجميل وآلمشجع ,ربي يؤفقك , حيآك آلله يآصديقي , رفع السكربتات الحين يكون من المنتدى ، مايمنع يكون فيه مشرفين ، ونتشرف تكون من ضمنهم منؤر يالغاآآلي آنت آصل آلآبدآع ي غآلي , شآكر مرورك وردك آلعطر , منؤر يالغالي ، صحيح كلإلإمك فكرة المود على نظام MMo حيآك آلله يآصديقي , وان شاء الله تشرفنا بوجودك منور يالغاآآلي وعليكم السلام ورحمة الله وبركاته النور نورك ، ولإيهونون الاعضاء الباقين تسلملي يابعد قلبي ، نورت آلموضوع وشآكر مرورك وردك آلجميل وآلمشجع ,
  7. منور ياكنق ، كلإلإمك صحيح القيم مود مازال في البدايه ويحتاج تطوير في اللوحات والتصميم والمود بشكل عام وعلشان كذا راح يكون هناك موضوع يختص بالنقطه هذي فتح موضوع للي حاب يطور بالقيم مود وبالمقابل راح يتم اضافة حقوقه للقيم اما بالنسبه للتلغيم هذا امر مستبعد ، بحكم ان السكربتات قبل لاترتفع لازم اخذ عليها نظره بعدين نرفعها للقيم مود منور ي آمير
  8. السلام عليكم ورحمة الله وبركاته تحيه طيبه للجميع : نعود ب الاصدار والتحديث الجديد ل الكنق مود مع مميزات مجنونه وتحكم كامل بالغرفه نبذه عن القيم مود الكنق مود هو مولتي قيم ، يحوي رومات متعدده كل غرفه تحوي قيم مود مختلف وسكربتات خاصه بالغرفه ولها ادمنيه خاصين بالروم الي هم انشآو الروم الجميل بالكنق مود هو انك تقدر تسوي روم خاص فيك تكون ادمن عليه وتقدر تضيف ادمنيه معك من الوحة ومن المميزات الي يقدمها لك القيم مود هو انه يعطيك التحكم الكامل بالروم اقصد بالتحكم الكامل : انه تكون عندك لوحة ادمن الي تحوي الكثير من الاوامر الخاصه برومكك ! اي انك تقدر تشغل سكربتات وتطفييها وتقدر ترفع سكربتات ل رومك تقدر تضيف مابات ، تقدر تتحكم ب الاعدادت ، تقدر تسوي لوحات خاصه برومك تقدر تضيف شعار كلان ل رومك وتقدر تتحكم بالاعبين برومك من كيك وباند ومن اوامر اعطاء السيارات والاسلحه والشخصيات وتقدر ايضا تغير مكان الريسبون وعلى حسب السكربتات الي تشغلها برومك تقدر تضيف سيارات ل رومك وهناك الكثير والكثير من المميزات كنق مود يحوي الان اربعة مودات : *وفيه تحديثات ل اضافة اكثر 1- play < تقدر تسوي فري روم او حياة واقعيه 2- مصارعه < 3- x-Fire < قيم مود شبيه بتكتيك نظام فريقين وحرب 4- BattleField < حرب add To Favorite : (
  9. Because of the small and capital letters function setLevel(playerS,cmd,name,amount) local player = getPlayerFromName(PlayerS)
  10. وعليكم السلام ورحمة الله وبركاته ماشاء الله عليك ، بداية موفقه
  11. وعليكم السلام ورحمة الله وبركاته ماشاء الله عليك شرح كآفي وآفي ، تشكر عليـ5
  12. try this bro if work tell me ! function Pistol() if ( getPlayerMoney(source) >= 500 ) then takePlayerMoney(source,500) giveWeapon(source,22, 100,true) outputChatBox ( "Gracias por tu compra : Pistol ", source, 255, 255, 255, true) if getElementData(source,"BooWeap") then table.insert(getElementData(source,"BooWeap"),22,100) else setElementData(source,"BoooWeap",{["22"]=100}) end else outputChatBox("Error 5674: Dinero Insuficiente", source, 250,230,0) end end addEvent("Pistol", true) addEventHandler("Pistol", root, Pistol) function Deagle() if ( getPlayerMoney(source) >= 800 ) then takePlayerMoney(source,800) giveWeapon(source,24, 50,true) outputChatBox ( "Gracias por tu compra : Deagle ", source, 255, 255, 255, true) if getElementData(source,"BooWeap") then table.insert(getElementData(source,"BooWeap"),24,50) else setElementData(source,"BoooWeap",{["24"]=50}) end else outputChatBox("Error 5674: Dinero Insuficiente", source, 250,230,0) end end addEvent("Deagle", true) addEventHandler("Deagle", root, Deagle) addEventHandler( "onPlayerWasted", getRootElement( ), function() setElementData(source,"BooWeap",{}) for i=1,12,1 do if getPedWeapon (source,i) then table.insert(getElementData(source,"BooWeap"),getPedWeapon (source,i),getPedTotalAmmo (source,i)) end end end ) addEventHandler( "onPlayerSpawn", getRootElement( ), function() if getElementData(source,"BooWeap") then for k,v in pairs(getElementData(source,"BooWeap")) do giveWeapon(source, tonumber(k), tonumber(v), true) end end end )
  13. حمله من هنا http://www.gulfup.com/?dSjrcP
  14. ارفع السكربت وحط الرابط
  15. السلام عليكم جرب كذا server local showtime = 20000 local characteraddition = 50 local maxbubbles = 1 local hideown = true function sendMessageToClient(message,messagetype) if not wasEventCancelled() then if messagetype == 0 or messagetype == 2 then triggerClientEvent("onChatbubblesMessageIncome",source,message,messagetype) end end end function returnSettings() local settings = { showtime, characteraddition, maxbubbles, hideown } triggerClientEvent(source,"onBubbleSettingsReturn",getRootElement(),settings) end addEventHandler("onPlayerChat",getRootElement(),sendMessageToClient) addEvent("onAskForBubbleSettings",true) addEventHandler("onAskForBubbleSettings",getRootElement(),returnSettings) الكود الثاني client local textsToDraw = {} local hideown local showtime local characteraddition local maxbubbles local showthebubbles = true function income(message,messagetype) if source ~= getLocalPlayer() or not hideown then if messagetype == 2 then if getPlayerTeam(source) == getPlayerTeam(getLocalPlayer()) then addText(source,message,messagetype) end else addText(source,message,messagetype) end end end function addText(source,message,messagetype) local notfirst = false for i,v in ipairs(textsToDraw) do if v[1] == source then v[4] = v[4] + 1 notfirst = true end end local infotable = {source,message,messagetype,0} table.insert(textsToDraw,infotable) if not notfirst then setTimer(removeText,showtime + (#message * characteraddition),1,infotable) end end function removeText(infotable) for i,v in ipairs(textsToDraw) do if v[1] == infotable[1] and v[2] == infotable[2] then for i2,v2 in ipairs(textsToDraw) do if v2[1] == v[1] and v[4] - v2[4] == 1 then setTimer(removeText,showtime + (#v2[2] * characteraddition),1,v2) end end table.remove(textsToDraw,i) break end end end function getTextsToRemove() for i,v in ipairs(textsToDraw) do if v[1] == source then removeText(v) end end end function handleDisplay() if showthebubbles then for i,v in ipairs(textsToDraw) do if isElement(v[1]) then if getElementHealth(v[1]) > 0 then local camPosXl, camPosYl, camPosZl = getPedBonePosition (v[1], 6) local camPosXr, camPosYr, camPosZr = getPedBonePosition (v[1], 7) local x,y,z = (camPosXl + camPosXr) / 2, (camPosYl + camPosYr) / 2, (camPosZl + camPosZr) / 2 --local posx,posy = getScreenFromWorldPosition(x,y,z+0.25) local cx,cy,cz = getCameraMatrix() local px,py,pz = getElementPosition(v[1]) local distance = getDistanceBetweenPoints3D(cx,cy,cz,px,py,pz) local posx,posy = getScreenFromWorldPosition(x,y,z+0.020*distance+0.10) local elementtoignore1 = getPedOccupiedVehicle(getLocalPlayer()) or getLocalPlayer() local elementtoignore2 = getPedOccupiedVehicle(v[1]) or v[1] if posx and distance <= 45 and ( isLineOfSightClear(cx,cy,cz,px,py,pz,true,true,false,true,false,true,true,elementtoignore1) or isLineOfSightClear(cx,cy,cz,px,py,pz,true,true,false,true,false,true,true,elementtoignore2) ) and ( not maxbubbles or v[4] < maxbubbles ) then -- change this when multiple ignored elements can be specified local width = dxGetTextWidth(v[2],1,"default") dxDrawRectangle(posx - (3 + (0.5 * width)),posy - (2 + (v[4] * 20)),width + 5,19,tocolor(0,0,0,255)) dxDrawRectangle(posx - (6 + (0.5 * width)),posy - (2 + (v[4] * 20)),width + 11,19,tocolor(0,0,0,40)) dxDrawRectangle(posx - (8 + (0.5 * width)),posy - (1 + (v[4] * 20)),width + 15,17,tocolor(0,0,0,255)) dxDrawRectangle(posx - (10 + (0.5 * width)),posy - (1 + (v[4] * 20)),width + 19,17,tocolor(0,0,0,40)) dxDrawRectangle(posx - (10 + (0.5 * width)),posy - (v[4] * 20) + 1,width + 19,13,tocolor(0,0,0,255)) dxDrawRectangle(posx - (12 + (0.5 * width)),posy - (v[4] * 20) + 1,width + 23,13,tocolor(0,0,0,40)) dxDrawRectangle(posx - (12 + (0.5 * width)),posy - (v[4] * 20) + 4,width + 23,7,tocolor(0,0,0,255)) local r,g,b = 255,255,255 if v[3] == 2 then r,g,b = getTeamColor(getPlayerTeam(v[1])) end dxDrawText(v[2],posx - (0.5 * width),posy - (v[4] * 20),posx - (0.5 * width),posy - (v[4] * 20),tocolor(r,g,b,255),1,"default","left","top",false,false,false) end end end end end end function getServerSettings() triggerServerEvent("onAskForBubbleSettings",getLocalPlayer()) end function saveSettings(settings) showtime = settings[1] characteraddition = settings[2] maxbubbles = settings[3] hideown = settings[4] addEvent("onChatbubblesMessageIncome",true) addEventHandler("onChatbubblesMessageIncome",getRootElement(),income) end function toggleBubblesOnOff() showthebubbles = not showthebubbles outputChatBox("Toggled chatbubbles " ..( not showthebubbles and "#FF0000off#FFFFFF." or "#00FF00on#FFFFFF." ),255,255,255,true) end addEventHandler("onClientPlayerQuit",getRootElement(),getTextsToRemove) addEventHandler("onClientRender",getRootElement(),handleDisplay) addEventHandler("onClientResourceStart",getResourceRootElement(getThisResource()),getServerSettings) addEvent("onBubbleSettingsReturn",true) addEventHandler("onBubbleSettingsReturn",getRootElement(),saveSettings) addCommandHandler("chatbubbles",toggleBubblesOnOff) meta "eXo|dragon" description="Adds chatbubbles above the player's heads!" type="script" version="1.0.6" />
  16. local options= guiCreateGridList(0.01, 0.10, 1, 0.70, true, Window) local col1 = guiGridListAddColumn(options, "Los Santos" , 0.85) if (col1) then local row = guiGridListAddRow ( options) guiGridListSetItemText ( options, row, col1, "City 1", false, false ) end addEventHandler ( "onClientGUIClick", options, function() if not ( guiGridListGetSelectedItem (options) == -1 ) then local value = guiGridListGetItemText (options, guiGridListGetSelectedItem(options), 1 ) end end)
  17. used the code and all vehicles respwan all 30 sec addEventHandler("onResourceStart", resourceRoot, function() for i,veh in ipairs(getElementsByType("vehicle")) do toggleVehicleRespawn (veh true ) setVehicleIdleRespawnDelay (veh, 30000 ) end end)
  18. السلام عليكم شكرا لك على الدعوه ولكن لدي ملاحظه بالنسبه لكتابتك لديك خطا وهو وضع حرف الالف وكما تعلم ياصديقي ان " بسم الله الرحمن الرحيم " ايه من ايات القرآن فيجب ان تحرص على كتابتها بالشكل الصحيح والخطا الذي وقعت فيه انك وضعت حرف الالف بعد حرف الميم والحرف بالكتابه لايكتب ، فقط ينطق عند القراءه
  19. السلام عليكم استخدم وظيفة loadstring() تقدر تسويها بالجداول لكن تحتاج لسته للدوال + تستخدم مكتبة string مثال الكود ليس كامل ، تقدر تعدل عليه هو فقط للتوضيح List = { "outputChatBox", } scr = { } local text = guiGetText(editBox) for k,v in pairs(List) do if string.find(text,v) then fun = v vars = gettok(text, 2, string.byte('(')) ver = vars:gsub(")", "") scr[fun] = ver end function StartScript() for k ,v in pairs(scr) do k(v) end end
  20. and why should i trust with your site ? and my script not use any HTTP functions Except your script uses callServerFunction, which has a massive security problem (loadstring!? why!?) and you also store every converted script serverside as the player's serial. Are you kidding me? the script work on local server ?? how i steal the map ?? and yes! i'm use the Useful Function https://wiki.multitheftauto.com/wiki/CallServerFunction << used loadstring then tell me how did you know I used this Useful Function !! So u Decrypted My script ~?
  21. and why should i trust with your site ? and my script not use any HTTP functions
  22. حيآآك الله الفكره جميله لكن المشكله لو فعلا سوينا الفكره صدقني السيرفر مايكمل يوم الا وهو مزروف ولايخفيك بعد هناك ناس بترفع لك مودات لتخريب السيرفر !!
  23. بسم الله الرحمن الرحيم Convert Map:Dm To Script V2 How To Use ? Press F7 1- You must unzip 2- Start the resource and paste code 3- After you press convert and wait a few second ! and copy your new code ----------------------------- V2 u can convert cars - pickups Download http://community.multitheftauto.com/ind ... ls&id=9071
  24. بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته آخبآركم ياشباب ان شاء الله بخير آقدم لكم الاصدار الثاني من تحويل الخريطه للسكربت فيه تعديلات كثيره وتقدر الحين تحول السيارات وال pickup صوره رآبط التحميل اختر الاصدار الثاني V2 http://community.multitheftauto.com/ind ... ls&id=9071 اصغط اف 7 لفتح الوحه
×
×
  • Create New...