Jump to content

gadid-lua

Members
  • Posts

    138
  • Joined

  • Last visited

Everything posted by gadid-lua

  1. اولا حط الاجابة هنا يعنى يستفيد الناس ثاني على مااعتقد المود مايتوافق مع اصدار السيرفر
  2. السلام عليكم انا عندي جريد لست ابي رتب الاسل كلها تنضاف للجريد لست يعنى انا عندي اسل ابيه رتبوا تنحطط في الجريد لست وشكرا
  3. السلام عليكم كيفكم انشاء الله بخير ابي مثلا انا رقيت حد رتبة بعد 3 ايام تنسحب وشكرا
  4. --client addEventHandler ( "onClientGUIClick", resourceRoot, function ( ) if ( source == b1 ) then if ( guiGridListGetSelectedItem ( GUIEditor.gridlist[1] ) ~= -1 ) then local SkinName = guiGridListGetItemText ( GUIEditor.gridlist[1], guiGridListGetSelectedItem ( GUIEditor.gridlist[1]), 1 ) local SkiniD = guiGridListGetItemData( GUIEditor.gridlist[1], guiGridListGetSelectedItem( GUIEditor.gridlist[1]), 1 ) if ( SkinName ~= '' and SkiniD ~= '' ) then triggerServerEvent ( "Skin", localPlayer, SkiniD ) end else outputChatBox ( "* Please Select Skin", 0, 255, 0, true ) end end end ) سيرفر addEvent ( "Skin", true ) addEventHandler ( "Skin", root, function ( SkiniD ) setElementModel ( source, tonumber ( SkiniD ) ) end )
  5. صارت مشكلة عندما غيرت مود التوب بار صار الديربي مايظهر في التوب ارجو الحل الديبري : spawns = {} setElementData(resourceRoot,"map","no") setElementData(resourceRoot,"winMoney","0") addEventHandler("onPlayerChat",getRootElement(),function(message) if tostring(message) == "ديربي" and checkDuel(source) == "prestart" and ( not checkExistPlrOnDuel(source) ) then online = countPlayersOnDerby() if tonumber(online)+1 < 32 then setData(source,"onCrossMap","yes") exports["TopBarChat"]:sendClientMessage ("المرجو الانتظار...") unbindKey("t","down") setD(source) spawnOnMap(source) else exports["TopBarChat"]:sendClientMessage ( 'عذرا الديربي الحالي ممتلئ نرجو الدخول لاحقا' ) end end end) function checkDuel(p) if tostring(getElementData(resourceRoot,"map")) == "yes" then exports["TopBarChat"]:sendClientMessage ( 'انتظر ريثما ينتهي الديربي الحالي' ) elseif tostring(getElementData(resourceRoot,"map")) == "no" then exports["TopBarChat"]:sendClientMessage ( 'انتظر ريثما يبدأ الديربي' ) end return tostring(getElementData(resourceRoot,"map")) end function checkExistPlrOnDuel(p) per = getElementData(p,"onCrossMap") if tostring(per) == "yes" then return true else return false end end function setData(element,key,vlr) setElementData(element,key,vlr) end function setD(element) setElementDimension(element,30) end function spawnOnMap(p) count = countPlayersOnDerby() spawned = "no" for i,data in pairs(spawns)do if tonumber(data.id) == tonumber(count) then spawned = "yes" v = createVehicle(411,data.x,data.y,data.z,data.rx,data.ry,data.rz) setElementDimension(v,30) setElementFrozen(v,true) setElementData(v,"creatorDerby","yes") break end end if spawned == "no" then randomS = math.random("1","32") for i,data in pairs(spawns)do if tonumber(data.id) == tonumber(randomS) then v = createVehicle(411,data.x,data.y,data.z,data.rx,data.ry,data.rz) setElementDimension(v,30) setElementFrozen(v,true) setElementData(v,"creatorDerby","yes") break end end end toggleControl(p,"enter_exit", false ) warpPedIntoVehicle(p,v) setCameraTarget(p,p) end function countPlayersOnDerby() c = -1 for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then c = c+1 end end return tonumber(c) end function eventCheck () if checkExistPlrOnDuel(source) then toggleControl(source,"enter_exit",true ) setData(source,"onCrossMap","no") checkEnd() end end addEventHandler("onPlayerWasted",getRootElement(),eventCheck) addEventHandler("onPlayerQuit",getRootElement(),eventCheck) addEventHandler("onPlayerJoin",getRootElement(),function() setData(source,"onCrossMap","no") end) for i,p in pairs(getElementsByType("player"))do setData(p,"onCrossMap","no") end function checkEnd() c = 0 for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then c = c+1 winner = p end end if tonumber(c) == 1 then givePlayerMoney(winner,tonumber(getElementData(resourceRoot,"winMoney"))) n = string.gsub(getPlayerName(winner), "#%x%x%x%x%x%x", "") outputChatBox("#00FF00[" .. n .. "]#FFFF00 Won the Derby and win#00FF00[" .. tonumber(getElementData(resourceRoot,"winMoney")) .. "$]",getRootElement(),255,255,0,true) setElementData(resourceRoot,"map","no") endDerby() setTimer(newDuel,30000,1) end end function newDuel() for i,p in pairs(getElementsByType("player"))do setData(p,"onCrossMap","no") end setElementData(resourceRoot,"map","prestart") exports["TopBarChat"]:sendClientMessage ( 'للدخول الى الدريبي اكتب في الشات , ديربي ' ) RMoney = math.random("50000","300000") setElementData(resourceRoot,"winMoney",tonumber(RMoney)) exports["TopBarChat"]:sendClientMessage ( 'سيحصل الفائز في الديربي على ') setTimer(checkPlrs,30000,1) end function checkPlrs () c = 0 for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then c = c+1 end end if tonumber(c) > 1 then setElementData(resourceRoot,"map","yes") for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then setElementCollisionsEnabled(getPedOccupiedVehicle(p),true) exports["TopBarChat"]:sendClientMessage ( 'لقد بدأ الديربي , يمكنك الانطلاق' ) setElementFrozen(getPedOccupiedVehicle(p),false) end end else endDerby() setElementData(resourceRoot,"map","no") exports["TopBarChat"]:sendClientMessage ( '! لم يبدأ الديربي لعدم توفر الاعبين' ) setTimer(newDuel,60000,1) end end setTimer(newDuel,3000,1) function onStartLoadSpawns () file = fileOpen("map.map") localFile = fileOpen("map.xml") fileWrite(localFile,"") data = fileRead(file,999999) fileWrite(localFile,data) fileClose(localFile) xml = xmlLoadFile("map.xml") c = 0 for i,data in pairs(xmlNodeGetChildren(xml)) do if xmlNodeGetName(data) == "spawnpoint" then c = c+1 v,xx,yy,zz,rxx,ryy,rzz = xmlNodeGetAttribute(data,"vehicle"),xmlNodeGetAttribute(data,"posX"),xmlNodeGetAttribute(data,"posY"),xmlNodeGetAttribute(data,"posZ"),xmlNodeGetAttribute(data,"rotX"),xmlNodeGetAttribute(data,"rotY"),xmlNodeGetAttribute(data,"rotZ") table.insert(spawns,{id = c,model = v,x = xx,y = yy,z = zz,rx = rxx,ry = ryy,rz = rzz}) end end for i,data in pairs(xmlNodeGetChildren(xml)) do if xmlNodeGetName(data) == "object" then m,xx,yy,zz,rxx,ryy,rzz = xmlNodeGetAttribute(data,"model"),xmlNodeGetAttribute(data,"posX"),xmlNodeGetAttribute(data,"posY"),xmlNodeGetAttribute(data,"posZ"),xmlNodeGetAttribute(data,"rotX"),xmlNodeGetAttribute(data,"rotY"),xmlNodeGetAttribute(data,"rotZ") object = createObject(m,xx,yy,zz,rxx,ryy,rzz) setElementDimension(object,30) end end end setTimer(onStartLoadSpawns,3000,1) function endDerby() for i,p in pairs(getElementsByType("player"))do if checkExistPlrOnDuel(p) then killPed(p) end end for i,v in pairs(getElementsByType("vehicle"))do if getElementData(v,"creatorDerby") then destroyElement(v) end end end setTimer(function() for i,p in pairs(getElementsByType("player"))do sea(p) resetHan(p) checkVeh(p) checkModel(p) end end,1000,0) function sea(p) if checkExistPlrOnDuel(p) then x,y,z = getElementPosition(p) if tonumber(z) <= 0 then killPed(p) end end end function checkVeh(p) if (tonumber(getElementDimension(p)) == 30) and not (isPedInVehicle(p))then killPed(p) end end function resetHan(p) if checkExistPlrOnDuel(p) then setVehicleHandling (getPedOccupiedVehicle(p), true ) end end function checkModel(p) if checkExistPlrOnDuel(p) and isPedInVehicle(p) then if tonumber(getElementModel(getPedOccupiedVehicle(p))) ~= 411 then killPed(p) end end end التوب : screenX, screenY = guiGetScreenSize() topChat = { {"", 255, 50, 50}, } setTimer(function() table.remove(topChat, 1) end, 10000, 1) setTimer(function() table.remove(topChat, 1) end, 10000, 1) addEventHandler("onClientPreRender",root, function() dxDrawRectangle(screenX/4+(screenX/16),1*20-20,screenX/2-(screenX/16),20.0,tocolor(0,0,0,150),false) local x, y, z = getElementPosition(localPlayer) if #topChat >= 8 then table.remove(topChat, 1) end for k, v in ipairs(topChat) do dxDrawRectangle(screenX/4+(screenX/16),k*20,screenX/2-(screenX/16),20.0,tocolor(0,250,0,150),false) dxDrawText(" "..v[1],screenX/4+(screenX/16),k*40,screenX/2-(screenX/16),20.0,tocolor(v[2],v[3],v[4],255),1.0,"default-bold","left","center",false,false,false, true) end end ) function outputTopChat(message, r, g, b) table.insert(topChat, { message, r, g, b }) local thetime = getRealTime() outputConsole("["..string.format("%.2d:%.2d:%.2d", thetime.hour, thetime.minute, thetime.second).."] "..message:gsub("#%x%x%x%x%x%x", "")) setTimer(function() table.remove(topChat, 1) end, 60000, 1) end addEvent("outputTopChat", true) addEventHandler("outputTopChat", root, outputTopChat) ارجو الحل في ارع وقت
  6. تم بنجاح بس التوب بار شات يظهر تحت ابيه يظهر فوق
  7. لا انا خطا هو صحيح
  8. اسف على الازعاج بس وين احها في ملف الديربي ؟
  9. addCommandHandler ( "me" , function () cancelEvent () end end
  10. السلام عليكم كيفكم انشائ اله بخير اليوم عندي مود توب بار شات ابي عندما يبدا الديربي يظهر في التوب بار شات
  11. السلام عليكم كيفكم انشاء الله بخير ابي فنكشن مقدر اوضحوا بس شوفوا الكود ذا outputChatBox("* ليس لديك مال كافي",source,255,0,0) ابي يتلون مخثلا حطيت قبلوا اللون الاحمر outputChatBox("#ff0000* ليس لديك مال كافي",source,255,0,0) يعنى احط رموز الالوان ويتلون عادي بس انا احط مايتلون يظهر هكذا #ff0000ليس لديك المال الكافي
  12. السلام عليكم كيفكم انشاء الله بخير اليوم بوريكم الانواع والقيم كافة القيم في lua هي قيم من الدرجة الأولى أو وهذا يعني أن جميع القيم يمكن تخزينها في المتغيرات، تمريرها كقيم للعمليات، و إعادتها كنتائج. الأنواع الأساسية nil : فارغ يختلف عن باقي القيم، ويمثل عدم وجود قيمة مفيدة أو حالة فراغ أو عدم للقيمة boolean: منطقية يمثل أنواع القيم التي تكون إما صحيح true أو خطأ false. كل من القيم المتمثلة في nil أو false ستنتج حالة خاطئة؛ بينما أي قيمة أخرى ستنتج حالة صحيحة number : رقم يمثل الأرقام الصحيحة (double-precision floating-point) string : سلسلة يمثل مصفوفة من الحروف السلسلة يمكن أن تحتوي على أي حرف 8 بت، بما في ذلك جزءا لا يتجزأ من الأصفار
  13. اولا المنتدى ماراح يسويلك باند بدون سبب ثانيا انت هكذا تتهرب من الحظر
  14. شو تبي ؟ مافي سلام ولا شئ بس شو تبي وخلاص + مين راح يحط لك جاهز
  15. السلام عليكم اخباركم ان شاء الله بخير اليوم بفضل الله افتتحنا منتدى مطربين المنتدى http://m6rpen-hj.koom.ma/massi نرجوا التفعال والسلام عليكم
×
×
  • Create New...