yaza034 Posted December 6, 2013 Author Share Posted December 6, 2013 عناد اعطيك وش اريد مفصل اريد الكود لما يكتب سباق يروح للسباق وينتظر لمدة دقيقة وبداً السباق ما يستطيع ان يدخل حد بعد ما بدا السباق واذا ما كان في عدد كافي اقل من 2 يعمل للاعبين سلاب "ويموتهن" ويكتب في الشات لكل الاعضاء عدد السباق غير كفي الحين بس يبداً السباق يكتبون سباق وينتظر لمدةدقيقة مثل الريس بس اريدة في الهجولة والشخص الاخير يوخذ مبلغ من المال ذا كل شي اريدة انتسويت اغلبة بس بقي انا اذا طاح على الماء يوت واذا كبس انتر يمون "Enter" ويسلموا اديك يا غالي تعبناك معي اخوي عناد Link to comment
3NAD Posted December 7, 2013 Share Posted December 7, 2013 جرب و رد خبر Race = { Players = { }; Vehicles = { }; Position = { [1] = { x, y, z }; [2] = { x, y, z }; [3] = { x, y, z }; [4] = { x, y, z }; [5] = { x, y, z }; }; Cars = { { 432 }; { 432 }; }; }; local Timer setRaceStats = function ( stats ) if stats then setElementData ( resourceRoot, "RaceStarted", true ) else Race.Players = 0 setElementData ( resourceRoot, "RaceStarted", false ) outputChatBox ( "* تم إفتتاح السباق", root, 255, 255, 0, true ) end end checkPlayers = function ( ) if Race.Players < 2 then for i, v in ipairs ( Race.Vehicles ) do local player = getElementData ( v, "Owner" ) if player then killPed ( player ) end destroyElement ( v ) end outputChatBox ( "* تم إلغاء السباق بسبب قلة اللاعبين", root, 255, 0, 0, true ) end end getPlayerVehicle = function ( element ) if element then local type = getElementType if type ( element ) == "player" or type ( element ) == "ped" then if isPedInVehicle ( element ) then local vehicle = getPedOccupiedVehicle ( element ) if getVehicleController ( vehicle ) == element then return vehicle end return false end return false end return false end return false end addEventHandler ( "onPlayerChat", root, function ( msg ) if string.find ( msg, "سباق" ) then if getElementData ( resourceRoot, "RaceStarted" ) then return outputChatBox ( "* لم ينتهي السباق بعد", source, 255, 0, 0, true ) end if Race.Players < 5 then if not Race.Vehicles[source] then Race.Players = Race.Players+1 if Race.Players == 5 then setRaceStats ( true ) if isTimer ( Timer ) then killTimer ( Timer ) end else if not isTimer ( Timer ) then Timer = setTimer ( checkPlayers, 60000, 1 ) end end Race.Vehicles[source] = createVehicle ( Race.Cars[math.random(#Race.Cars)][1], Race.Position[Race.Players][1], Race.Position[Race.Players][2], Race.Position[Race.Players][3] ) setElementDimension ( Race.Vehicles[source], 1 ) setElementDimension ( source, 1 ) setTimer ( warpPedIntoVehicle, 100, 1, source, Race.Vehicles[source] ) setElementData ( Race.Vehicles[source], "Owner", source ) end else outputChatBox ( "* أكتمل العدد", source, 255, 0, 0, true ) end end end ) addEventHandler ( "onVehicleExplode", resourceRoot, function ( ) if Race.Players == 1 then local player = getElementData ( source, "Owner" ) if isElement ( player ) then if getElementData ( resourceRoot, "RaceStarted" ) then givePlayerMoney ( player, 5000 ) outputChatBox ( "* $5000 لقد ربحت", player, 255, 255, 0, true ) end Race.Vehicles[player] = nil end setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end ) addEventHandler ( "onElementDestroy", resourceRoot, function ( ) if getElementType ( source ) == "vehicle" then if Race.Players == 1 then local player = getElementData ( source, "Owner" ) if isElement ( player ) then if getElementData ( resourceRoot, "RaceStarted" ) then givePlayerMoney ( player, 5000 ) outputChatBox ( "* $5000 لقد ربحت", player, 255, 255, 0, true ) end Race.Vehicles[player] = nil end setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end end ) addEventHandler ( "onPlayerQuit", root, function ( ) if Race.Vehicles[source] then if isElement ( Race.Vehicles[source] ) then destroyElement ( Race.Vehicles[source] ) else if Race.Players == 1 then setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end Race.Vehicles[source] = nil end end ) addEventHandler ( "onVehicleExit", resourceRoot, function ( player ) if getVehicleController ( source ) == player then killPed ( player ) destroyElement ( source ) end end ) addEventHandler ( "onPlayerWasted", root, function ( ) local vehicle = getPlayerVehicle ( source ) if vehicle then local player = getElementData ( vehicle, "Owner" ) if player then if player == source then destroyElement ( vehicle ) end end end end ) setRaceStats ( false ) Link to comment
yaza034 Posted December 7, 2013 Author Share Posted December 7, 2013 اجربة واردلك جواب اخوي بس كيف احط اسم صانع المود ابي احط اسمك على المود والله لأحط اسمك اتعبت معي Link to comment
The Killer Posted December 7, 2013 Share Posted December 7, 2013 اذا تبي تحط اسمه اول ما يشتغل المود استخدم هذي addEventHandler("onResourceStart", resourceRoot, function () outputChatBox("3NAD تم تشغيل مود السباق بواسطة", root, 255, 255, 0) end ) ضيفها للكود Link to comment
yaza034 Posted December 7, 2013 Author Share Posted December 7, 2013 اي بس في مشكلة لما يدخل على السباق يبدا فوراً لكن انا ابي بعد 30 ثانية يبداً ولمل يحط على انتر او لما يطيح في الماء يموت وكذا اكون خلصنا كل شي ويعطيك العافية عناد + ذا كيل يعطيكوا العافية Link to comment
#DRAGON!FIRE Posted December 7, 2013 Share Posted December 7, 2013 (edited) اي بس في مشكلة لما يدخل على السباق يبدا فوراً لكن انا ابي بعد 30 ثانية يبداً ولمل يحط على انتر او لما يطيح في الماء يموت وكذا اكون خلصنا كل شي ويعطيك العافية عناد + ذا كيل يعطيكوا العافية # لما يححط انتر موجودة , + ما فهمت تبي بعد 30 ثانيةة . + سويت لك حق الموية Race = { Players = { }; Vehicles = { }; Position = { [1] = { x, y, z }; [2] = { x, y, z }; [3] = { x, y, z }; [4] = { x, y, z }; [5] = { x, y, z }; }; Cars = { { 432 }; { 432 }; }; }; local Timer setRaceStats = function ( stats ) if stats then setElementData ( resourceRoot, "RaceStarted", true ) else Race.Players = 0 setElementData ( resourceRoot, "RaceStarted", false ) outputChatBox ( "* تم إفتتاح السباق", root, 255, 255, 0, true ) end end checkPlayers = function ( ) if Race.Players < 2 then for i, v in ipairs ( Race.Vehicles ) do local player = getElementData ( v, "Owner" ) if player then killPed ( player ) end destroyElement ( v ) end outputChatBox ( "* تم إلغاء السباق بسبب قلة اللاعبين", root, 255, 0, 0, true ) end end getPlayerVehicle = function ( element ) if element then local type = getElementType if type ( element ) == "player" or type ( element ) == "ped" then if isPedInVehicle ( element ) then local vehicle = getPedOccupiedVehicle ( element ) if getVehicleController ( vehicle ) == element then return vehicle end return false end return false end return false end return false end addEventHandler ( "onPlayerChat", root, function ( msg ) if string.find ( msg, "سباق" ) then if getElementData ( resourceRoot, "RaceStarted" ) then return outputChatBox ( "* لم ينتهي السباق بعد", source, 255, 0, 0, true ) end if Race.Players < 5 then if not Race.Vehicles[source] then Race.Players = Race.Players+1 if Race.Players == 5 then setRaceStats ( true ) if isTimer ( Timer ) then killTimer ( Timer ) end else if not isTimer ( Timer ) then Timer = setTimer ( checkPlayers, 60000, 1 ) end end Race.Vehicles[source] = createVehicle ( Race.Cars[math.random(#Race.Cars)][1], Race.Position[Race.Players][1], Race.Position[Race.Players][2], Race.Position[Race.Players][3] ) setElementDimension ( Race.Vehicles[source], 1 ) setElementDimension ( source, 1 ) setTimer ( warpPedIntoVehicle, 100, 1, source, Race.Vehicles[source] ) setElementData ( Race.Vehicles[source], "Owner", source ) end else outputChatBox ( "* أكتمل العدد", source, 255, 0, 0, true ) end end end ) addEventHandler ( "onVehicleExplode", resourceRoot, function ( ) if Race.Players == 1 then local player = getElementData ( source, "Owner" ) if isElement ( player ) then if getElementData ( resourceRoot, "RaceStarted" ) then givePlayerMoney ( player, 5000 ) outputChatBox ( "* $5000 لقد ربحت", player, 255, 255, 0, true ) end Race.Vehicles[player] = nil end setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end ) addEventHandler ( "onElementDestroy", resourceRoot, function ( ) if getElementType ( source ) == "vehicle" then if Race.Players == 1 then local player = getElementData ( source, "Owner" ) if isElement ( player ) then if getElementData ( resourceRoot, "RaceStarted" ) then givePlayerMoney ( player, 5000 ) outputChatBox ( "* $5000 لقد ربحت", player, 255, 255, 0, true ) end Race.Vehicles[player] = nil end setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end end ) addEventHandler ( "onPlayerQuit", root, function ( ) if Race.Vehicles[source] then if isElement ( Race.Vehicles[source] ) then destroyElement ( Race.Vehicles[source] ) else if Race.Players == 1 then setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end Race.Vehicles[source] = nil end end ) addEventHandler ( "onVehicleExit", resourceRoot, function ( player ) if getVehicleController ( source ) == player then killPed ( player ) destroyElement ( source ) end end ) addEventHandler ( "onPlayerWasted", root, function ( ) local vehicle = getPlayerVehicle ( source ) if vehicle then local player = getElementData ( vehicle, "Owner" ) if player then if player == source then destroyElement ( vehicle ) end end end end ) setTimer ( function ( ) for _,v in ipairs(Race.Vehicles) do if isElement( v ) and isElementInWater( v ) then killPed ( getVehicleController( v ) ) destroyElement ( v ) end end end, 1000, 0 ) setRaceStats ( false ) Edited December 8, 2013 by Guest Link to comment
jafar Posted December 7, 2013 Share Posted December 7, 2013 اي بس في مشكلة لما يدخل على السباق يبدا فوراً لكن انا ابي بعد 30 ثانية يبداً ولمل يحط على انتر او لما يطيح في الماء يموت وكذا اكون خلصنا كل شي ويعطيك العافية عناد + ذا كيل يعطيكوا العافية # لما يححط انتر موجودة , + ما فهمت تبي بعد 30 ثانيةة . + سويت لك حق الموية Race = { Players = { }; Vehicles = { }; Position = { [1] = { x, y, z }; [2] = { x, y, z }; [3] = { x, y, z }; [4] = { x, y, z }; [5] = { x, y, z }; }; Cars = { { 432 }; { 432 }; }; }; local Timer setRaceStats = function ( stats ) if stats then setElementData ( resourceRoot, "RaceStarted", true ) else Race.Players = 0 setElementData ( resourceRoot, "RaceStarted", false ) outputChatBox ( "* تم إفتتاح السباق", root, 255, 255, 0, true ) end end checkPlayers = function ( ) if Race.Players < 2 then for i, v in ipairs ( Race.Vehicles ) do local player = getElementData ( v, "Owner" ) if player then killPed ( player ) end destroyElement ( v ) end outputChatBox ( "* تم إلغاء السباق بسبب قلة اللاعبين", root, 255, 0, 0, true ) end end getPlayerVehicle = function ( element ) if element then local type = getElementType if type ( element ) == "player" or type ( element ) == "ped" then if isPedInVehicle ( element ) then local vehicle = getPedOccupiedVehicle ( element ) if getVehicleController ( vehicle ) == element then return vehicle end return false end return false end return false end return false end addEventHandler ( "onPlayerChat", root, function ( msg ) if string.find ( msg, "سباق" ) then if getElementData ( resourceRoot, "RaceStarted" ) then return outputChatBox ( "* لم ينتهي السباق بعد", source, 255, 0, 0, true ) end if Race.Players < 5 then if not Race.Vehicles[source] then Race.Players = Race.Players+1 if Race.Players == 5 then setRaceStats ( true ) if isTimer ( Timer ) then killTimer ( Timer ) end else if not isTimer ( Timer ) then Timer = setTimer ( checkPlayers, 60000, 1 ) end end Race.Vehicles[source] = createVehicle ( Race.Cars[math.random(#Race.Cars)][1], Race.Position[Race.Players][1], Race.Position[Race.Players][2], Race.Position[Race.Players][3] ) setElementDimension ( Race.Vehicles[source], 1 ) setElementDimension ( source, 1 ) setTimer ( warpPedIntoVehicle, 100, 1, source, Race.Vehicles[source] ) setElementData ( Race.Vehicles[source], "Owner", source ) end else outputChatBox ( "* أكتمل العدد", source, 255, 0, 0, true ) end end end ) addEventHandler ( "onVehicleExplode", resourceRoot, function ( ) if Race.Players == 1 then local player = getElementData ( source, "Owner" ) if isElement ( player ) then if getElementData ( resourceRoot, "RaceStarted" ) then givePlayerMoney ( player, 5000 ) outputChatBox ( "* $5000 لقد ربحت", player, 255, 255, 0, true ) end Race.Vehicles[player] = nil end setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end ) addEventHandler ( "onElementDestroy", resourceRoot, function ( ) if getElementType ( source ) == "vehicle" then if Race.Players == 1 then local player = getElementData ( source, "Owner" ) if isElement ( player ) then if getElementData ( resourceRoot, "RaceStarted" ) then givePlayerMoney ( player, 5000 ) outputChatBox ( "* $5000 لقد ربحت", player, 255, 255, 0, true ) end Race.Vehicles[player] = nil end setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end end ) addEventHandler ( "onPlayerQuit", root, function ( ) if Race.Vehicles[source] then if isElement ( Race.Vehicles[source] ) then destroyElement ( Race.Vehicles[source] ) else if Race.Players == 1 then setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end Race.Vehicles[source] = nil end end ) addEventHandler ( "onVehicleExit", resourceRoot, function ( player ) if getVehicleController ( source ) == player then killPed ( player ) destroyElement ( source ) end end ) addEventHandler ( "onPlayerWasted", root, function ( ) local vehicle = getPlayerVehicle ( source ) if vehicle then local player = getElementData ( vehicle, "Owner" ) if player then if player == source then destroyElement ( vehicle ) end end end end ) setTimer ( function ( ) if isElement( Race.Vehicles[source] ) and isElementInWater( Race.Vehicles[source] ) and getVehicleController ( source ) == player then killPed ( source ) destroyElement ( Race.Vehicles[source] ) end end, 1000, 0 ) setRaceStats ( false ) انت مو معرف لا source ولا player ~~ Link to comment
yaza034 Posted December 8, 2013 Author Share Posted December 8, 2013 انت الحين حطيت اذا طاح في الموية الموية يموت صح و مشكور الحين ابي اذا كبس انتر يعني اذا نزل من السيارة يموت وانة يبداً السباق بعد 30 ثانية اي ما يبداً مرة واحدة يكتب سباق ينتظر 30 ثانية تنى يجي لاعبين ويبداً السباق وكذا اون اخلص المود :] ويعطيكوا العافية Link to comment
The Killer Posted December 8, 2013 Share Posted December 8, 2013 addEventHandler( "onClientKey", root, function(button) if button == "enter" then setElementHealth(localPlayer,0) end end ) Link to comment
#DRAGON!FIRE Posted December 8, 2013 Share Posted December 8, 2013 اي بس في مشكلة لما يدخل على السباق يبدا فوراً لكن انا ابي بعد 30 ثانية يبداً ولمل يحط على انتر او لما يطيح في الماء يموت وكذا اكون خلصنا كل شي ويعطيك العافية عناد + ذا كيل يعطيكوا العافية # لما يححط انتر موجودة , + ما فهمت تبي بعد 30 ثانيةة . + سويت لك حق الموية Race = { Players = { }; Vehicles = { }; Position = { [1] = { x, y, z }; [2] = { x, y, z }; [3] = { x, y, z }; [4] = { x, y, z }; [5] = { x, y, z }; }; Cars = { { 432 }; { 432 }; }; }; local Timer setRaceStats = function ( stats ) if stats then setElementData ( resourceRoot, "RaceStarted", true ) else Race.Players = 0 setElementData ( resourceRoot, "RaceStarted", false ) outputChatBox ( "* تم إفتتاح السباق", root, 255, 255, 0, true ) end end checkPlayers = function ( ) if Race.Players < 2 then for i, v in ipairs ( Race.Vehicles ) do local player = getElementData ( v, "Owner" ) if player then killPed ( player ) end destroyElement ( v ) end outputChatBox ( "* تم إلغاء السباق بسبب قلة اللاعبين", root, 255, 0, 0, true ) end end getPlayerVehicle = function ( element ) if element then local type = getElementType if type ( element ) == "player" or type ( element ) == "ped" then if isPedInVehicle ( element ) then local vehicle = getPedOccupiedVehicle ( element ) if getVehicleController ( vehicle ) == element then return vehicle end return false end return false end return false end return false end addEventHandler ( "onPlayerChat", root, function ( msg ) if string.find ( msg, "سباق" ) then if getElementData ( resourceRoot, "RaceStarted" ) then return outputChatBox ( "* لم ينتهي السباق بعد", source, 255, 0, 0, true ) end if Race.Players < 5 then if not Race.Vehicles[source] then Race.Players = Race.Players+1 if Race.Players == 5 then setRaceStats ( true ) if isTimer ( Timer ) then killTimer ( Timer ) end else if not isTimer ( Timer ) then Timer = setTimer ( checkPlayers, 60000, 1 ) end end Race.Vehicles[source] = createVehicle ( Race.Cars[math.random(#Race.Cars)][1], Race.Position[Race.Players][1], Race.Position[Race.Players][2], Race.Position[Race.Players][3] ) setElementDimension ( Race.Vehicles[source], 1 ) setElementDimension ( source, 1 ) setTimer ( warpPedIntoVehicle, 100, 1, source, Race.Vehicles[source] ) setElementData ( Race.Vehicles[source], "Owner", source ) end else outputChatBox ( "* أكتمل العدد", source, 255, 0, 0, true ) end end end ) addEventHandler ( "onVehicleExplode", resourceRoot, function ( ) if Race.Players == 1 then local player = getElementData ( source, "Owner" ) if isElement ( player ) then if getElementData ( resourceRoot, "RaceStarted" ) then givePlayerMoney ( player, 5000 ) outputChatBox ( "* $5000 لقد ربحت", player, 255, 255, 0, true ) end Race.Vehicles[player] = nil end setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end ) addEventHandler ( "onElementDestroy", resourceRoot, function ( ) if getElementType ( source ) == "vehicle" then if Race.Players == 1 then local player = getElementData ( source, "Owner" ) if isElement ( player ) then if getElementData ( resourceRoot, "RaceStarted" ) then givePlayerMoney ( player, 5000 ) outputChatBox ( "* $5000 لقد ربحت", player, 255, 255, 0, true ) end Race.Vehicles[player] = nil end setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end end ) addEventHandler ( "onPlayerQuit", root, function ( ) if Race.Vehicles[source] then if isElement ( Race.Vehicles[source] ) then destroyElement ( Race.Vehicles[source] ) else if Race.Players == 1 then setTimer ( setRaceStats, 2000, 1, false ) else Race.Players = Race.Players-1 end end Race.Vehicles[source] = nil end end ) addEventHandler ( "onVehicleExit", resourceRoot, function ( player ) if getVehicleController ( source ) == player then killPed ( player ) destroyElement ( source ) end end ) addEventHandler ( "onPlayerWasted", root, function ( ) local vehicle = getPlayerVehicle ( source ) if vehicle then local player = getElementData ( vehicle, "Owner" ) if player then if player == source then destroyElement ( vehicle ) end end end end ) setTimer ( function ( ) if isElement( Race.Vehicles[source] ) and isElementInWater( Race.Vehicles[source] ) and getVehicleController ( source ) == player then killPed ( source ) destroyElement ( Race.Vehicles[source] ) end end, 1000, 0 ) setRaceStats ( false ) انت مو معرف لا source ولا player ~~ # نسسيت ^ , مشكور على التنبيه , تم التعديل Link to comment
The Killer Posted December 8, 2013 Share Posted December 8, 2013 شكرا ذا كيل حياك الله Link to comment
jafar Posted December 8, 2013 Share Posted December 8, 2013 # نسسيت ^ , مشكور على التنبيه , تم التعديل لحد الحين عندك خطأ , بما أن التايمر في وظيفة لوحدها , لازم تستخدم اللوب ^ + بالنسبة حق اذا ضغط انتر , ف الكود موجود onPlayerVehicleExit لأن من الأساس اذا ضغطت على انتر راح يخرج من السيارة واذا خرج على طول بيموت , يمكن الوظيفة ذي ماتضبط اذا كان اللاعب معدل على الستنق حق الخروج Link to comment
#DRAGON!FIRE Posted December 8, 2013 Share Posted December 8, 2013 # نسسيت ^ , مشكور على التنبيه , تم التعديل لحد الحين عندك خطأ , بما أن التايمر في وظيفة لوحدها , لازم تستخدم اللوب ^ # معاك حق , نسيت ^ , تم التعديل Link to comment
K1NG Posted December 8, 2013 Share Posted December 8, 2013 # نسسيت ^ , مشكور على التنبيه , تم التعديل لحد الحين عندك خطأ , بما أن التايمر في وظيفة لوحدها , لازم تستخدم اللوب ^ + بالنسبة حق اذا ضغط انتر , ف الكود موجود onPlayerVehicleExit لأن من الأساس اذا ضغطت على انتر راح يخرج من السيارة واذا خرج على طول بيموت , يمكن الوظيفة ذي ماتضبط اذا كان اللاعب معدل على الستنق حق الخروج .. الحدث ذا يوصله إشارة يوم اللاعب يخرج من المركبة لأي سبب من الأسباب .. يعني حتى لو اللاعب مغير الستنق حقت الخروج رح يضل يوصل الحدث إشارة Link to comment
Recommended Posts
Create an account or sign in to comment
You need to be a member in order to leave a comment
Create an account
Sign up for a new account in our community. It's easy!
Register a new accountSign in
Already have an account? Sign in here.
Sign In Now