Jump to content

طلب صغير

SaedAmer

By SaedAmer
in البرمجة

Recommended Posts

iMr.SFA7 Jacker

iMr.SFA7

Posted
Posted 
  
  
  
  
 ---- 
 --- 
 انزل تحت 
  
---- 
  
  
  
  
  
  
  
  
  
  
  
function checkDuel(p) 
if tostring(getElementData(resourceRoot,"map")) == "yes" then 
outputChatBox("*#ffffff [ #CD0000 DerbySystem #ffffff ]",p,255,255,0,true) 
elseif tostring(getElementData(resourceRoot,"map")) == "no" then 
outputChatBox("*#FFFFFF [ #CD0000Derby #FFFFFF ] : الرجآء الانتظآر,حتى يبدء الديربي",p,255,255,0,true) 
if _mytimer and isTimer(_mytimer) then 
    _r,_e,_t = getTimerDetails(_mytimer) 
        if _r and _e and _t then 
            total = _r / 60 / 1000 
            outputChatBox("تبقـى: "..math.ceil(total)) 
        end 
    end 
end 
return tostring(getElementData(resourceRoot,"map")) 
end

"A Year from Now You May Wish You Had Started Today"

  • Replies 59
  • Created
  • Last Reply

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

SaedAmer Hoodsta

SaedAmer

Posted
  • Author
Posted
طيب هجرب

كيف اخلي الماركر زي كده

1465339301531.png

sfa7DerbyMarker = createMarker(1542.35669, -2985.33887, 3.86081, "cylinder", 1.1, 255, 0, 0, 170 ) 


WiFiDerbyMarker = createMarker(1542.35669, -2985.33887, 3.86081, "arrow", 1.1, 255, 0, 0, 170 )

1465342012631.png

560x95_FFFFFF_FF9900_000000_000000.png
SaedAmer Hoodsta

SaedAmer

Posted
  • Author
Posted 
  
  
  
  
 ---- 
 --- 
 انزل تحت 
  
---- 
  
  
  
  
  
  
  
  
  
  
  
function checkDuel(p) 
if tostring(getElementData(resourceRoot,"map")) == "yes" then 
outputChatBox("*#ffffff [ #CD0000 DerbySystem #ffffff ]",p,255,255,0,true) 
elseif tostring(getElementData(resourceRoot,"map")) == "no" then 
outputChatBox("*#FFFFFF [ #CD0000Derby #FFFFFF ] : الرجآء الانتظآر,حتى يبدء الديربي",p,255,255,0,true) 
if _mytimer and isTimer(_mytimer) then 
    _r,_e,_t = getTimerDetails(_mytimer) 
        if _r and _e and _t then 
            total = _r / 60 / 1000 
            outputChatBox("تبقـى: "..math.ceil(total)) 
        end 
    end 
end 
return tostring(getElementData(resourceRoot,"map")) 
end

ما يجيب الدقائق و الثواني فقط دي

1465342352561.png

560x95_FFFFFF_FF9900_000000_000000.png
Anis Prankster

Anis

Posted
Posted

انا يجيب الدقائق عادي شوف

p_1595fco1.png

الدقائق تتغير :roll::roll:

جزائري

 

امازيغي 

 

شاوي

SaedAmer Hoodsta

SaedAmer

Posted
  • Author
Posted

انا عاوزو يقلي كم تبقي بالدقائق و الثواني

و عاوزو لما حد يدخل الديربي يكتب في الشات

انه دخل م

مثلا انا دخل

يكتب اسم العب و بعدين دخل الي الديربي

560x95_FFFFFF_FF9900_000000_000000.png
iMr.SFA7 Jacker

iMr.SFA7

Posted
Posted 
spawns = {} 
setElementData(resourceRoot,"map","no") 
setElementData(resourceRoot,"winMoney","0") 
  
sfa7DerbyMarker = createMarker(1555.50037, -1675.64880, 16.19531, "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("* #00BCCD≈ - ( #555555Derby #00BCCD} :الرجاء الانتظار ..",element,255,255,0,true) 
setD(element) 
spawnOnMap(element) 
else 
outputChatBox("* #00BCCD≈ - ( #555555Derby #00BCCD) : لم يبق مكان بالديـربي الرجآء, الانتظآر الديربي القآدم,",element,0,255,0,true) 
       end 
   end 
end) 
  
function checkDuel(p) 
if tostring(getElementData(resourceRoot,"map")) == "yes" then 
outputChatBox("* #ff0000≈ #ffffff[#ff0000 DerbySystem #ffffff ] #00BCCD≈",p,255,255,0,true) 
elseif tostring(getElementData(resourceRoot,"map")) == "no" then 
outputChatBox("* #00BCCD≈ - ( #555555Derby #00BCCD) : الرجآء الانتظآر,حتى يبدء الديربي",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.."") 
        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) 
outputChatBox(getPlayerName(p)..' دخل إلى الديربي', root, 255, 0 ,0, true) 
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("* #ff0000≈[ #ff0000 " .. n .. " #FF9700 Won the Derby and win#00FF00 " .. tonumber(getElementData(resourceRoot,"winMoney")) .. "$ ##ff0000]≈",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("* #00BCCD≈ - ( #555555Derby #00BCCD) : لدخول الديربي,اكتب في الشـآت ديربي.",getRootElement(),255,255,0,true) 
RMoney = math.random("50000","300000") 
setElementData(resourceRoot,"winMoney",tonumber(RMoney)) 
outputChatBox("* #00BCCD≈ - ( #555555Derby #00BCCD) : سيحصل الفآئز في الديربي على #00FF00|" .. RMoney .. "|$",getRootElement(),0,255,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) 
outputChatBox("* #00BCCD≈ - ( #555555Derby #00BCCD) : لقد بدآء الديربي , يمكنك الانطلاق",p,0,255,0,true) 
setElementFrozen(getPedOccupiedVehicle(p),false) 
end end 
else 
endDerby() 
setElementData(resourceRoot,"map","no") 
outputChatBox("* #00BCCD≈ - ( #555555Derby #00BCCD) : لم يبدآء الديربي, لعدم توفر الاعبين",getRootElement(),255,255,0,true) 
_mytimer = setTimer(newDuel,60*1000*5,1) 
end 
end 
_mytimer = 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)) ) ~= 411 then 
killPed(p) 
end end 
end

"A Year from Now You May Wish You Had Started Today"

iMr.SFA7 Jacker

iMr.SFA7

Posted
Posted

ايش هو الي ماشتغل؟ .. تحقق زين لأني مجربـه

اذا ماشتغل قلي الأخطاء التي تظهر بالدي بق

"A Year from Now You May Wish You Had Started Today"

SaedAmer Hoodsta

SaedAmer

Posted
  • Author
Posted

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

function checkDuel(p) 
if tostring(getElementData(resourceRoot,"map")) == "yes" then 
outputChatBox("*#ffffff [ #CD0000 DerbySystem #ffffff ]",p,255,255,0,true) 
elseif tostring(getElementData(resourceRoot,"map")) == "no" then 
outputChatBox("*#FFFFFF [ #CD0000Derby #FFFFFF ] : الرجآء الانتظآر,حتى يبدء الديربي",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("*#FFFFFF [ #CD0000Derby #FFFFFF ] : تبقـى   "..math.ceil(total)..":"..seconds.."") 
        end 
    end 
end

560x95_FFFFFF_FF9900_000000_000000.png
iMr.SFA7 Jacker

iMr.SFA7

Posted
Posted

ي أخوي الكود مافيه شيء مجربه تمام :/

( وبالنسبـة للكود الي طارحه فوق ( مدري ليه طارحه

فيه اند ناقصة

function checkDuel(p) 
if tostring(getElementData(resourceRoot,"map")) == "yes" then 
outputChatBox("* #ff0000≈ #ffffff[#ff0000 DerbySystem #ffffff ] #00BCCD≈",p,255,255,0,true) 
elseif tostring(getElementData(resourceRoot,"map")) == "no" then 
outputChatBox("* #00BCCD≈ - ( #555555Derby #00BCCD) : الرجآء الانتظآر,حتى يبدء الديربي",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.."") 
        end 
    end 
end 
return tostring(getElementData(resourceRoot,"map")) 
end

"A Year from Now You May Wish You Had Started Today"

SaedAmer Hoodsta

SaedAmer

Posted
  • Author
Posted

يا اخي الخطأ هنا

لانه مش راضي يقول كم تبقي

            outputChatBox("تبقـى: "..math.ceil(total)..":"..seconds.."") 
 

560x95_FFFFFF_FF9900_000000_000000.png
iMr.SFA7 Jacker

iMr.SFA7

Posted
Posted

ياليت ترفع السكربت كامل

وهذي هي صور لتجربتي مع السكربت:

1465482794651.png

1465482794832.png

"A Year from Now You May Wish You Had Started Today"

SaedAmer Hoodsta

SaedAmer

Posted
  • Author
Posted

شفت في الاول و ما فهمت شئ

+

-----------------

الكود ده عشان لو دخلت الديربي يقفل ف1 و ف1 و حرف لا

بس لما يخلص الديربي ما يرجعو !

  
addEventHandler( 'onClientKey', root, function (button , prees) 
    if button == 'F1' or button == 'F3' or button == 'b' and prees and getElementData(localPlayer,'onCrossMap') == 'yes' then 
        cancelEvent() 
    end 
end)

560x95_FFFFFF_FF9900_000000_000000.png

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 account

Sign in

Already have an account? Sign in here.

Sign In Now
Go to topic listing

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...