Jump to content

Wleed1998

Members
  • Posts

    320
  • Joined

  • Last visited

Details

  • Gang
    KsA
  • Interests
    --- معرفة الناس لاتقآس بالزمن و السنين --- --- ولكن بآطيبة آلقلوب و جمآل الآسلوب ---

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

Wleed1998's Achievements

Prankster

Prankster (22/54)

4

Reputation

  1. الرجاء الرد و حل المشكله
  2. رياض محرز ; محمد صلاح
  3. مازبط + ياشباب جيت اسجل جاني الحساب الي فوق غريبه المهم اني انا صصاحب الموضوع
  4. نفس الشيء لو دخلت المهم انا و خويي و قتلت خويي مايجي كيل بد ولا يدوني فلوس + ابي لو بعد 1 دقيقه المهم فيه 1 يسوي له كيل بيد
  5. طيب اديني الساينتاكس الصحيح
  6. 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:outputMessagee(root, getPlayerName(killer).." Killed "..getPlayerName(source).." in shooter", 255, 0, 255)("المرجو الانتظار...",source,0,0,255,true) setD(source) spawnOnMap(source) else exports.killmessages:outputMessage("لم يبق مكان لك بالديربي انتظر حتى الديربي القادم ",source,250,0,0,true) end end end) function checkDuel(p) if tostring(getElementData(resourceRoot,"map")) == "yes" then exports.killmessages:outputMessage("انتظر ريثما ينتهي الديربي الحالي",p,255,255,0,true) elseif tostring(getElementData(resourceRoot,"map")) == "no" then exports.killmessages:outputMessage("انتظر ريثما يبدأ الديربي",p,0,0,255,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(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", "") exports.killmessages:outputMessage("#0000FF[" .. n .. "]#FFFF00 ولقد حصل الفائز بديربي#FFFF00[" .. tonumber(getElementData(resourceRoot,"winMoney")) .. "$]",getRootElement(),0,255,255,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("للدخول الى الديربي اكتب في الشات ديربي",getRootElement(),0,0,255,true) RMoney = math.random("50000","300000") setElementData(resourceRoot,"winMoney",tonumber(RMoney)) exports.killmessages:outputMessage("سيحصل الفائز في الديربي على " .. RMoney .. "$",getRootElement(),255,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) exports.killmessages:outputMessage("لقد بدأ الديربي , يمكنك الانطلاق",p,255,0,255,true) setElementFrozen(getPedOccupiedVehicle(p),false) end end else endDerby() setElementData(resourceRoot,"map","no") exports.killmessages:outputMessage("#00ff00! لم يبدأ الديربي لعدم توفر الاعبين",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) 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 لما ضفته على الكيل مسج قائم لما يبدا الديربي و نكتب ديربي ماينقلنا لديربي
  7. الموضوع قديم لو شفت الموضوع و فتحة مووضوع جديد افضل عن مشكلتك if ( source == button ) then -- اذا ضرب الزر if ( guiGridListGetSelectedItem ( GridList ) ~= -1 ) then -- شرط اذا ماكان الشيء المختار بالقريد اقل من واحد wleed = guiGridListGetSelectedItem(GUIEditor.gridlist[1])-- هذي عشان تجيب الغرض المحدد عليه من القريد Wleed1 = guiGridListGetItemText(GUIEditor.gridlist[1], wleed, 1) -- هذي عشان تجيب إسم غرض في القريد
  8. السلام عليكم ورحمة الله و بركاته انا ابي اسوي لوق للوحة الادمن ع رابط انا لحضة بعض السيرفرات معهم لوق فقلت ليه ما اطرح موضوع و اشوف كيف وهو لوق نظام مراقبه للوحة الادمن وشكرا كيف ؟ كيف اسويه؟
  9. لما انا وواحد ندخل المهم و اقتله مايديني كيل بيد و فلوس غريبها ليه + ترى كود اختصار الاسلحه بي جدول مايطعي الاسلحه غير شلت الاختاصر و رديت الاسله مثل اول + مشكور اخي شآطح
  10. نسور ممكن فآنكش مايضرب ازرار محدده في عالم وهمي +ممكن مثال على منع انتقال او سحب الاعب
  11. ممكن مساعده لما اخر واحد يبقى في المهمه ليه مايجي بي الشات انه فاز و يديه كيل بيد؟ انا مسويها فوق
  12. السلام عليكم المشكله : اخر لاعب يبقى مايخذ فلوس ولا ينتحر + ابي لما تبدا المهم الماركه تنشآل وماترجع الا بعد المهمه + لما احد يسحبك في المهمه او ينتقل لك مايقدر حلو مشكلتي الاول ثمن الثنين الباقيه الفانكشنات وانا بحآول aTable = { } addEventHandler ( "onPlayerJoin",root,function() outputChatBox("تم بددآ المهم اذهب الى المآركه لـدخول الى المهمه",source, 50, 30, 255) outputChatBox("تم تغشيل المهمه",source, 0, 150, 255) end) --------create Marker local WarMission = createMarker(2727.24390,-1826.40039,11.84375, "cylinder", 2, 255, 150, 250, 150) --------Taple local war = { {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375}, {2485.00000,-1667.00000,13.34375},} -------- Event Marker addEventHandler( "onMarkerHit", WarMission,function (player) if getElementType(player) == "player" and not isPedInVehicle(player) then if #aTable >= 32 then return outputChatBox ( 'العدد مكتمل لايمكنك دخول المهمه', player ) end local x, y, z = unpack(war[math.random(#war)]) setElementPosition(player, x, y, z) setElementModel (player, 2) setElementDimension ( player, 6 ) giveWeapon ( player, 4, 1, true ) giveWeapon ( player, 27, 999999, true ) giveWeapon ( player, 31, 999999, true ) giveWeapon ( player, 30, 999999, true ) giveWeapon ( player, 16, 2, true ) giveWeapon ( player, 25, 999999, true ) toggleControl ( player, "fire", false ) setElementFrozen(player, true) if getPlayerTable ( player , aTable ) then return outputChatBox ( "انت بالمهمة الان" , player , 255 , 255 , 255 , true ) end; table.insert ( aTable , player ) setTimer ( toggleControl , 5000 , 1 , player , "fire" , true ) setTimer ( setElementFrozen , 5000 , 1 , player , false ) end end ) function getPlayerTable(player, Table) for i, v in ipairs (Table) do if (v == player) then return true end end end buttons = { ['F1'] = true, ['F2'] = true, ['F3'] = true, } addEventHandler( 'onElementClicked', root, function (button , prees) if prees and getElementDimension(localPlayer) == 6 then if buttons[button] then outputChatBox("غير مصرح لك بفتح اللوحة الان ", source, 255, 0, 0) cancelEvent() end end end) addEventHandler( "onPlayerWasted", root, function ( ) if getPlayerTable ( player , aTable ) then for i , v in ipairs ( aTable ) do if ( v == source ) then table.remove ( aTable , i ); end if ( #aTable == 1 ) then player = aTable [ 1 ] givePlayerMoney ( player , 9999 ) killPed (player) end end end end ) addEventHandler( "onPlayerQuit", root, function() if getPlayerTable ( player , aTable ) then for i , v in ipairs ( aTable ) do if ( v == source ) then table.remove ( aTable , i ); end if ( #aTable == 1 ) then player = aTable [ 1 ] killPed ( player ) givePlayerMoney ( player , 9999 ) end end end end ) function dPlayers(player) if getPlayerTable ( player , aTable ) then for i , v in ipairs ( aTable ) do if ( v == source ) then if ( #aTable == 1 ) then killPed ( player ) givePlayerMoney ( player , 9999 ) table.remove ( aTable , i ); end end end end end
  13. نايسء بس لو تضيف صوره او فييديو يكون احلى مود رائع آهنيكء صرآحه
  14. طيب مشكور الخطا كان في القاعد الثاني المفروض احطها فوق صح + طيب النا اانا مسوي زر لو ضربته يجيب لك الي محدده من القريد ليست و رسلته لسيرفر ابيه يحذف رو واحد مثل 1 1 1 1 1 2 2 2 2 2 ابي لما اضرب الزر ينحفف الرو مثل انا محدد 1 1 1 1 1 ابيه يحذفه كيف
×
×
  • Create New...