x[ مشكلة ]x في مود لوحة ديربى

Mr.OppS · September 9, 2017

السلام عليكم ,
كيف الحال ؟

مشكلة فى مود الديربى
يسوى اشياء خبيـثـة والله ,, الديربى بدأ وانت واقف و تلعب تشوف يطلع فى شات لقد بدأ ديربى للدخول اكتب فى شات ديربى
و انت تلعب تشوف حالك موت و الكل مات ! و يطلع فى شات لم يبدأ ديربى لعدم توافر لاعبين
الكود قبل كان شغال تمام صار بة شبح

ألـكـود ,, سيـرفـر

spawns = {} 
setElementData(resourceRoot,"map","no") 
setElementData(resourceRoot,"winMoney","0") 
sfa7DerbyMarker = createMarker(1504.96985,-2930.28979,14, "arrow", 1.1, 255, 0, 0, 170 )
addEventHandler('onMarkerHit', sfa7DerbyMarker, function(element) 
if getElementType(element) == 'player' and checkDuel(element) == "prestart" and ( not checkExistPlrOnDuel(element) ) then 
online = countPlayersOnDerby() 
if tonumber(online) +1 < 32 then 
setData(element,"onCrossMap","yes") 
outputChatBox("المرجو الانتظار...",source,255,255,0,true)
setD(element) 
spawnOnMap(element) 
else 
outputChatBox("لم يبق مكان لك بالديربي انتظر حتى الديربي القادم ",source,0,255,0,true)
end 
end 
end)
function checkDuel(p) 
if tostring(getElementData(resourceRoot,"map")) == "yes" then 
outputChatBox("انتظر ريثما ينتهي الديربي الحالي",p,255,255,0,true)
elseif tostring(getElementData(resourceRoot,"map")) == "no" then 
outputChatBox("انتظر ريثما يبدأ الديربي",p,255,255,0,true)
if _mytimer and isTimer(_mytimer) then 
local _r,_e,_t = getTimerDetails(_mytimer) 
        if _r and _e and _t then 
            total = _r / 60 / 1000 
             ss = math.floor( _r / 1000 ) 
             seconds = tostring( math.fmod( ss, 60 ) ) 
            outputChatBox("          باقـى :/   "..math.ceil(total)..":"..seconds.."",p,255,255,0,true) 
        end 
    end 
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() 
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", "") 
outputChatBox("#00FF00[" .. n .. "]#FFFF00 Won the Derby and win#00FF00[" .. tonumber(getElementData(resourceRoot,"winMoney")) .. "$]",getRootElement(),255,255,0,true)
setElementData(resourceRoot,"map","no") 
endDerby() 
_mytimer = setTimer(newDuel,60*1000*5,1) 
end 
end 
function newDuel() 
for i,p in pairs(getElementsByType("player"))do 
setData(p,"onCrossMap","no") 
end 
setElementData(resourceRoot,"map","prestart") 
outputChatBox("للدخول الى الدريبي اكتب في الشات ,  ديربي ",getRootElement(),255,255,0,true)
RMoney = math.random("25000","35000") 
setElementData(resourceRoot,"winMoney",tonumber(RMoney)) 
outputChatBox("سيحصل الفائز في الديربي على " .. RMoney .. "$",getRootElement(),0,255,0,true)
setTimer(checkPlrs,55000,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) 
outputChatBox("لقد بدأ الديربي , يمكنك الانطلاق",p,0,255,0,true)
setElementFrozen(getPedOccupiedVehicle(p),false) 
end end 
else 
endDerby() 
setElementData(resourceRoot,"map","no") 
outputChatBox("! لم يبدأ الديربي لعدم توفر الاعبين",getRootElement(),255,255,0,true)
_mytimer = setTimer(newDuel,60*1000*7,1) 
end 
end 
_mytimer = setTimer(newDuel,30000,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)) ) ~= 411 then 
killPed(p) 
end end
end

مساعدة شباب , رجاء واحد يصلح الكود و يعطنى ايها

شكراً

#BrosS · September 9, 2017

اخوي لو سمحت مانقدر نساعدك بهذي الطريقة

كلم صاحب المود لو تقدر يصلحه لك

Mr.OppS · September 9, 2017

2 minutes ago, #BrosS said:

اخوي لو سمحت مانقدر نساعدك بهذي الطريقة

كلم صاحب المود لو تقدر يصلحه لك

ليش ماتقدر تساعد
مامعى حساب صاحب مود ,, اذا انت معاك حساب او طريقة للتواصل معه اعطنى

#BrosS · September 9, 2017

2 minutes ago, Mr.OppS said:

ليش ماتقدر تساعد
مامعى حساب صاحب مود ,, اذا انت معاك حساب او طريقة للتواصل معه اعطنى

لا ما اقدر المود واضح طويل وانا جوال

شدراني من صاحب المود ض

Mr.OppS · September 9, 2017

1 minute ago, #BrosS said:

لا ما اقدر المود واضح طويل وانا جوال

شدراني من صاحب المود ض

شوف كود و ساعدنى , بسيطة <PC > اوك , من يتوافر معاك

^iiEcoo'x_) · September 9, 2017

الكود مسروق , لانه التعديل مش من تعديلك

MR.StoRm · September 9, 2017

17 minutes ago, #_iMr.[E]coo said:

الكود مسروق , لانه التعديل مش من تعديلك

كل واحد بدايته سرقة

Mr.OppS · September 9, 2017

55 minutes ago, #_iMr.[E]coo said:

الكود مسروق , لانه التعديل مش من تعديلك

ياخى ليش تستخدام كلمة مسرؤق ! عيب اخى احترم شوية , شيبك
الكود مو مسروق ! الكود منشور وانا استخدآم الكًود + راجع الكلام تشوف طلب مساعدة ! لم اذكر ان هذا مود خاص بى و هذة برمجتى

39 minutes ago, MR.StoRm said:

كل واحد بدايته سرقة

داخل تزيد مشاركات ,, //// ياخى ليش تستخدام كلمة مسرؤق ! عيب اخى احترم شوية , شيبك ,, الكود مو مسروق ! الكود منشور وانا استخدآم الكًود

MR.StoRm · September 9, 2017

1 minute ago, Mr.OppS said:

ياخى ليش تستخدام كلمة مسرؤق ! عيب اخى احترم شوية , شيبك
الكود مو مسروق ! الكود منشور وانا استخدآم الكًود + راجع الكلام تشوف طلب مساعدة ! لم اذكر ان هذا مود خاص بى و هذة برمجتى

داخل تزيد مشاركات ,, //// ياخى ليش تستخدام كلمة مسرؤق ! عيب اخى احترم شوية , شيبك ,, الكود مو مسروق ! الكود منشور وانا استخدآم الكًود

اح ادافع فوق م ادافع عنك

انا قصدي ان كل واحد بدايته بالبرمجة تتزريف وسرقة وهذا شي عادي مع الوقت يتعلم ,

Mr.OppS · September 9, 2017

1 minute ago, MR.StoRm said:

اح ادافع فوق م ادافع عنك

انا قصدي ان كل واحد بدايته بالبرمجة تتزريف وسرقة وهذا شي عادي مع الوقت يتعلم ,

مو زرف و سرقة الولد نشر الكود و شئ عادى , الكل يزيد مشاركات ولاحد يساعدفففففف

Mr.OppS · September 9, 2017

17 hours ago, Mr.OppS said:

السلام عليكم ,
كيف الحال ؟

مشكلة فى مود الديربى
يسوى اشياء خبيـثـة والله ,, الديربى بدأ وانت واقف و تلعب تشوف يطلع فى شات لقد بدأ ديربى للدخول اكتب فى شات ديربى
و انت تلعب تشوف حالك موت و الكل مات ! و يطلع فى شات لم يبدأ ديربى لعدم توافر لاعبين
الكود قبل كان شغال تمام صار بة شبح

ألـكـود ,, سيـرفـر


spawns = {} 
setElementData(resourceRoot,"map","no") 
setElementData(resourceRoot,"winMoney","0") 
sfa7DerbyMarker = createMarker(1504.96985,-2930.28979,14, "arrow", 1.1, 255, 0, 0, 170 )
addEventHandler('onMarkerHit', sfa7DerbyMarker, function(element) 
if getElementType(element) == 'player' and checkDuel(element) == "prestart" and ( not checkExistPlrOnDuel(element) ) then 
online = countPlayersOnDerby() 
if tonumber(online) +1 < 32 then 
setData(element,"onCrossMap","yes") 
outputChatBox("المرجو الانتظار...",source,255,255,0,true)
setD(element) 
spawnOnMap(element) 
else 
outputChatBox("لم يبق مكان لك بالديربي انتظر حتى الديربي القادم ",source,0,255,0,true)
end 
end 
end)
function checkDuel(p) 
if tostring(getElementData(resourceRoot,"map")) == "yes" then 
outputChatBox("انتظر ريثما ينتهي الديربي الحالي",p,255,255,0,true)
elseif tostring(getElementData(resourceRoot,"map")) == "no" then 
outputChatBox("انتظر ريثما يبدأ الديربي",p,255,255,0,true)
if _mytimer and isTimer(_mytimer) then 
local _r,_e,_t = getTimerDetails(_mytimer) 
        if _r and _e and _t then 
            total = _r / 60 / 1000 
             ss = math.floor( _r / 1000 ) 
             seconds = tostring( math.fmod( ss, 60 ) ) 
            outputChatBox("          باقـى :/   "..math.ceil(total)..":"..seconds.."",p,255,255,0,true) 
        end 
    end 
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() 
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", "") 
outputChatBox("#00FF00[" .. n .. "]#FFFF00 Won the Derby and win#00FF00[" .. tonumber(getElementData(resourceRoot,"winMoney")) .. "$]",getRootElement(),255,255,0,true)
setElementData(resourceRoot,"map","no") 
endDerby() 
_mytimer = setTimer(newDuel,60*1000*5,1) 
end 
end 
function newDuel() 
for i,p in pairs(getElementsByType("player"))do 
setData(p,"onCrossMap","no") 
end 
setElementData(resourceRoot,"map","prestart") 
outputChatBox("للدخول الى الدريبي اكتب في الشات ,  ديربي ",getRootElement(),255,255,0,true)
RMoney = math.random("25000","35000") 
setElementData(resourceRoot,"winMoney",tonumber(RMoney)) 
outputChatBox("سيحصل الفائز في الديربي على " .. RMoney .. "$",getRootElement(),0,255,0,true)
setTimer(checkPlrs,55000,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) 
outputChatBox("لقد بدأ الديربي , يمكنك الانطلاق",p,0,255,0,true)
setElementFrozen(getPedOccupiedVehicle(p),false) 
end end 
else 
endDerby() 
setElementData(resourceRoot,"map","no") 
outputChatBox("! لم يبدأ الديربي لعدم توفر الاعبين",getRootElement(),255,255,0,true)
_mytimer = setTimer(newDuel,60*1000*7,1) 
end 
end 
_mytimer = setTimer(newDuel,30000,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)) ) ~= 411 then 
killPed(p) 
end end
end

مساعدة شباب , رجاء واحد يصلح الكود و يعطنى ايها

شكراً

Mr.OppS · September 11, 2017

مسـاعـدة

Mr.OppS · September 11, 2017

Up

' A F . · September 11, 2017

موب فآهم عليك , كيف كان شغال وفجأءة خرب : ) .

^iiEcoo'x_) · September 11, 2017

Just now, Default#^ said:

موب فآهم عليك , كيف كان شغال وفجأءة خرب : ) .

تذكر موضوع سعيد عامر حق مود الديربي؟

ماخذ الكود منه بس هذي القصة .. عشان كذا ابصر شو ضايف عليه ومخربه ..

Mr.OppS · September 11, 2017

Just now, Default#^ said:

موب فآهم عليك , كيف كان شغال وفجأءة خرب : ) .

اى والله خرب لحالة

' A F . · September 11, 2017

لول , طيب كيف تبي نسآعدك ب 218 سطر ومانعرف الخطأ

قول لنا الاخطاء وافتح الدي بق واطرح لنا الي يجيك بس .

Mr.OppS · September 11, 2017

Just now, Default#^ said:

لول , طيب كيف تبي نسآعدك ب 218 سطر ومانعرف الخطأ

قول لنا الاخطاء وافتح الدي بق واطرح لنا الي يجيك بس .

مافى شئ يظهر فى الدى بق

^iiEcoo'x_) · September 11, 2017

روح للماركر الي إنت سويته وخشهه

Mr.OppS · September 11, 2017

Just now, #_iMr.[E]coo said:

روح للماركر الي إنت سويته وخشهه

x[ مشكلة ]x في مود لوحة ديربى

Recommended Posts

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Link to comment

Create an account or sign in to comment

Create an account

Sign in

Recently Browsing 0 members