Jump to content

OmaR|FLaSH

Members
  • Posts

    14
  • Joined

  • Last visited

Everything posted by OmaR|FLaSH

  1. تمت الافادة شكرآ لكل من ساعد
  2. ملف سيرفر كلههءء 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.killmessages:outputMessage("#66ffb3▒ #ffffffتم الأنضمام للديربي .. انتظر قليلآ حتي قدوم اللاعبين#66ffb3▒ ",source,0,0,0,true) setD(source) spawnOnMap(source) else OutPut("#66ffb3▒ #ffffffعدد اللاعبين في الديربي كبير جدآ انتظر الديربي القادم ... #66ffb3▒ ",source,0,0,0,true) end end end) function checkDuel(p) if tostring(getElementData(resourceRoot,"map")) == "yes" then elseif tostring(getElementData(resourceRoot,"map")) == "no" then exports.killmessages:outputMessage("#66ffb3▒ #ffffffالديربي لم يبدأ الان .. أنتظر قليلآ حتي يبدأ الديربي #66ffb3▒ ",p,0,0,0,true) 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(502,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(502,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() outputChatBox("",source,255,255,0,true) 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", "") exports.killmessages:outputMessage("#66ffb3❀⌠ #e6b800 " .. tonumber(getElementData(resourceRoot,"winMoney")) .. "$ #ffffff هو الفائز في هذا الديربي وحصل علي مبلغ : #e6b800 " .. n .. " #66ffb3⌡❀ ",getRootElement(),0,0,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.killmessages:outputMessage("#66ffb3▒ #FFFFFFلقد بدأ ديربي سيرفر ستورم #66ffb3▒ ",getRootElement(),0,0,0,true) exports.killmessages:outputMessage("#66ffb3▒ #FFFFFFلدخول الديربي اكتب بالشات | ديربي #66ffb3▒ ",getRootElement(),0,0,0,true) RMoney = math.random("50000","300000") setElementData(resourceRoot,"winMoney",tonumber(RMoney)) exports.killmessages:outputMessage("#66ffb3▒ #FFFFFFسيحصل الفائز في الديربي علي | " .. RMoney .. " $ #66ffb3▒ ",getRootElement(),0,0,0,true) 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) OutPut("لقد بدأ الديربي يمكنك التحرك ..",p,0,255,0,true) setElementFrozen(getPedOccupiedVehicle(p),false) end end else endDerby() setElementData(resourceRoot,"map","no") exports.killmessages:outputMessage("#66ffb3▒ #ffffff لم يبدأ الديربي لعدم وجود لاعبين كافيين #66ffb3▒ ",getRootElement(),255,255,0,true) 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) outputChatBox("",getRootElement(),255,255,0,true) 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))) ~= 502 then killPed(p) end end end addEvent("JumpVehicle",true) addEventHandler("JumpVehicle",root, function (Vehicle) local speedx, speedy, speedz = getElementVelocity (Vehicle) setElementVelocity (Vehicle,speedx,speedy,0.3) end) addEvent( "Warning", true ) function Warningg () OutPut( "يمنع فتح اللوحات اثناء مسابقة الديربي", source, 36, 218, 199 ) end addEventHandler ( "Warning", getRootElement(), Warningg )
  3. طيب لامؤخذة ي شبب :"[] انا حطيت المود فكل حتة ف ملف سيرفر ومش شغال برضة الجاذبية جربت كتير قمد ومفيش
  4. جربت احطة في كل حتة ف المود المود مش بيشتغل ..
  5. كدا الحماية كلها اتشالت ... :"[]
  6. طب لامؤخذة في الكمة يعني احط الكود فين ؟؟؟؟؟
  7. اول يوم في المنتدي بقا سوري يسحب ع القسم المهم برضة الدم بينقص ..
  8. سلام عليكم كنت ابي كود يخلي اللاعب اللي يخش الديربي يخش بجاذبية معينة بمعني واحد مخلي الجاذبية قوية لو دخل الديربي الجاذبية ترجع طبيعية وشكرآ ♥
  9. يسحب اتكلم عربي بلظ بص انا ركبت الحماية للبداية وبرضة الدم بينقص function superman () cancelEvent () end xCol = createColRectangle (-3655,-3166.0693359375,379.03997802734,300) xRadar = createRadarArea (-3655,-3166.0693359375,379.03997802734,300,255,191,0,200,root) addEventHandler("onColShapeHit",resourceRoot,function (element) if ( getElementType(element) == "vehicle" ) then destroyElement(element) elseif ( getElementType(element) == "player" ) then toggleControl (element,"fire",false) toggleControl (element,"action",false) toggleControl (element,"aim_weapon",false) addEventHandler("onPlayerDamage",root,superman) addEventHandler("onClientPlayerDamage", localPlayer, cancelEvent) end end) addEventHandler("onColShapeLeave",resourceRoot,function (element) if ( getElementType(element) == "player" ) then toggleControl (element,"fire",true) toggleControl (element,"action",true) toggleControl (element,"aim_weapon",true) removeEventHandler("onPlayerDamage",root,superman) removeEventHandler("onClientPlayerDamage", localPlayer, cancelEvent) end end)
  10. لو سمحت يا شباب .. كنت عاوز كود حماية من الدم مثال لو حد في البداية سقط من مكان عالي دمة بينقص عاوز الدم مينقصش :"[]
  11. وااصل والله مود جميل. س ابي منك طلب لو ينفع ابيي ترفعلي المود بدون دمج مع مود الساعات
  12. ممكن ترفع المود علي موقع تاني عشان community.multitheftauto.com ما يشتغل عندي
×
×
  • Create New...