Jump to content

وش الغلط في الكود

TD[M]ER

By TD[M]ER
in البرمجة

Recommended Posts

TD[M]ER Mack

TD[M]ER

Posted
Posted

السلام عليكم

طبعا اعادهـ للموضوع

:lol::lol:

وش الغلطـ في ذا الكود ><

  
  
addEvent("b1", true) 
addEventHandler("b1", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),0,0,0) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b2", true) 
addEventHandler("b2", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),128,128,128) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b3", true) 
addEventHandler("b3", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),192,192,192) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b4", true) 
addEventHandler("b4", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),255,255,255) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b5", true) 
addEventHandler("b5", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),128,0,0) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b6", true) 
addEventHandler("b6", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),255,0,0) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b7", true) 
addEventHandler("b7", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),128,128,0) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b8", true) 
addEventHandler("b8", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),255,255,0) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b9", true) 
addEventHandler("b9", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),0,128,0) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b10", true) 
addEventHandler("b10", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),0,255,0) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b11", true) 
addEventHandler("b11", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),0,128,128) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true) 
  else 
    outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b12", true) 
addEventHandler("b12", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),0,255,255) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true) 
  else 
    outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b13", true) 
addEventHandler("b13", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),0,0,128) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true) 
  else 
    outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b14", true) 
addEventHandler("b14", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),0,0,255) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true) 
  else 
    outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
addEvent("b15", true) 
addEventHandler("b15", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),128,0,128) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else     
      outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
  
addEvent("b16", true) 
addEventHandler("b16", getRootElement(), function() 
  if isPedInVehicle(source) then 
      setNeonColor(getPedOccupiedVehicle(source),255,0,255) 
      outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
      else 
    outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
  
  
thecmd = "neon" 
function neon(plr,cmd,r,g,b,a) 
if not r then openGui(plr) return true end 
if tonumber(tostring(r)) == nil then r,g,b,a = getColorFromString(r) 
end 
if not a then a = 200 end 
veh = getPedOccupiedVehicle(plr) 
if veh and r and g and b then 
model = getElementModel(veh) 
if canHaveNeon(veh) then  
if haveNeon(veh) then 
setNeonColor(veh,tonumber(r),tonumber(g),tonumber(b)) 
end 
end 
end 
end 
  
if cmd then 
addCommandHandler(thecmd,neon) 
end 
  
function setNeonColor(vehicle,r,g,b) 
setElementData(vehicle,"neonlight",tostring(r)..","..tostring(g)..","..tostring(b)..","..tostring(a)) 
for i,mark in ipairs(getElementsByType("marker")) do 
local type = getMarkerType(mark) 
if type == "corona" then 
local data1 = getElementData(vehicle,"neonMarker1") 
local data2 = getElementData(vehicle,"neonMarker2") 
if data1 == mark or data2 == mark then 
setMarkerColor(mark,r,g,b,80) 
end 
end 
end 
return true 
end 
  
  
  
function haveNeon(vehicle) 
local data = getElementData(vehicle,"haveneon") 
if data then 
return true 
else 
return false 
end 
end 
  
function addNeon(vehicle,state) 
if getElementType(vehicle) == "vehicle" then 
if state then 
setElementData(vehicle,"haveneon",true) 
x,y,z = getElementPosition(vehicle) 
-- 
local exist = nil 
for i,mark in ipairs(getElementsByType("marker")) do 
data = getElementData(vehicle,"neonMarker1") 
if data == mark then 
local exist = mark 
end 
end 
if not exist then 
local marker1 = createMarker(x,y,z,"corona",2,0,0,0,0) 
attachElements(marker1,vehicle,0,-1,-1.2) 
setElementData(vehicle,"neonMarker1",marker1) 
local marker2 = createMarker(x,y,z,"corona",2,0,0,0,0) 
attachElements(marker2,vehicle,0,1,-1.2) 
setElementData(vehicle,"neonMarker2",marker2) 
end 
-- 
return true 
else 
setElementData(vehicle,"haveneon",false) 
setElementData(veh,"neonlight","off!!!") 
-- 
for i,mark in ipairs(getElementsByType("marker")) do 
local type = getMarkerType(mark) 
if type == "corona" then 
local data1 = getElementData(vehicle,"neonMarker1") 
local data2 = getElementData(vehicle,"neonMarker2") 
if data1 == mark or data2 == mark then 
setMarkerColor(mark,0,0,0,0) 
end 
end 
end 
-- 
return true 
end 
else 
return false 
end 
end 
function canHaveNeon(veh) 
model = getElementModel(veh) 
    if veh and getElementType(veh) == "vehicle" then 
    x = mayHaveNeon(model) 
    return x 
    else 
    return false 
    end 
end 
  
function mayHaveNeon(model)
Link to comment
TD[M]ER Mack

TD[M]ER

Posted
  • Author
Posted
الكود الي عطيتك حطه فوق الملف
  
function setNeonColor(vehicle,r,b,g) 
x,y,z = getElementPosition(vehicle) 
marker = createMarker(x,y,z - 2,"arrow",4,r,b,g,170) 
AttachElements(marker,vehicle) 
end 
  
thecmd = "neon" 
function neon(plr,cmd,r,g,b,a) 
if not r then openGui(plr) return true end 
if tonumber(tostring(r)) == nil then r,g,b,a = getColorFromString(r) 
end 
if not a then a = 200 end 
veh = getPedOccupiedVehicle(plr) 
if veh and r and g and b then 
model = getElementModel(veh) 
if canHaveNeon(veh) then  
if haveNeon(veh) then 
setNeonColor(veh,tonumber(r),tonumber(g),tonumber(b)) 
end 
end 
end 
end 
  
if cmd then 
addCommandHandler(thecmd,neon) 
end 
  
function setNeonColor(vehicle,r,g,b) 
setElementData(vehicle,"neonlight",tostring(r)..","..tostring(g)..","..tostring(b)..","..tostring(a)) 
for i,mark in ipairs(getElementsByType("marker")) do 
local type = getMarkerType(mark) 
if type == "corona" then 
local data1 = getElementData(vehicle,"neonMarker1") 
local data2 = getElementData(vehicle,"neonMarker2") 
if data1 == mark or data2 == mark then 
setMarkerColor(mark,r,g,b,80) 
end 
end 
end 
return true 
end 
  
  
  
function haveNeon(vehicle) 
local data = getElementData(vehicle,"haveneon") 
if data then 
return true 
else 
return false 
end 
end 
  
function addNeon(vehicle,state) 
if getElementType(vehicle) == "vehicle" then 
if state then 
setElementData(vehicle,"haveneon",true) 
x,y,z = getElementPosition(vehicle) 
-- 
local exist = nil 
for i,mark in ipairs(getElementsByType("marker")) do 
data = getElementData(vehicle,"neonMarker1") 
if data == mark then 
local exist = mark 
end 
end 
if not exist then 
local marker1 = createMarker(x,y,z,"corona",2,0,0,0,0) 
attachElements(marker1,vehicle,0,-1,-1.2) 
setElementData(vehicle,"neonMarker1",marker1) 
local marker2 = createMarker(x,y,z,"corona",2,0,0,0,0) 
attachElements(marker2,vehicle,0,1,-1.2) 
setElementData(vehicle,"neonMarker2",marker2) 
end 
-- 
return true 
else 
setElementData(vehicle,"haveneon",false) 
setElementData(veh,"neonlight","off!!!") 
-- 
for i,mark in ipairs(getElementsByType("marker")) do 
local type = getMarkerType(mark) 
if type == "corona" then 
local data1 = getElementData(vehicle,"neonMarker1") 
local data2 = getElementData(vehicle,"neonMarker2") 
if data1 == mark or data2 == mark then 
setMarkerColor(mark,0,0,0,0) 
end 
end 
end 
-- 
return true 
end 
else 
return false 
end 
end 
function canHaveNeon(veh) 
model = getElementModel(veh) 
    if veh and getElementType(veh) == "vehicle" then 
    x = mayHaveNeon(model) 
    return x 
    else 
    return false 
    end 
end 
  
function mayHaveNeon(model) 
if model ~= 592 and model ~= 511 and model ~= 584 and model ~= 512 and model ~= 593 and model ~= 417 and 
model ~= 487 and model ~= 553 and model ~= 488 and model ~= 563 and model ~= 476 and model ~= 519 and 
model ~= 460 and model ~= 469 and model ~= 513 and model ~= 472 and model ~= 473 and model ~= 493 and 
model ~= 595 and model ~= 484 and model ~= 430 and model ~= 453 and model ~= 452 and model ~= 446 and 
model ~= 454 and model ~= 403 and model ~= 514 and model ~= 443 and model ~= 515 and model ~= 455 and 
model ~= 406 and model ~= 486 and model ~= 578 and model ~= 532 and model ~= 524 and model ~= 498 and 
model ~= 609 and model ~= 568 and model ~= 457 and model ~= 508 and model ~= 571 and model ~= 539 and 
model ~= 606 and model ~= 607 and model ~= 485 and model and model ~= 581 and model ~= 509 and  
model ~= 481 and model ~= 462 and model ~= 521 and model ~= 463 and model ~= 510 and model ~= 522 and  
model ~= 461 and model ~= 448 and model ~= 468 and model ~= 586 and model ~= 485 and model ~= 552 and 
model ~= 431 and model ~= 438 and model ~= 437 and model ~= 574 and model ~= 525 and model ~= 408 and 
model ~= 416 and model ~= 433 and model ~= 427 and model ~= 490 and model ~= 528 and model ~= 407 and  
model ~= 544 and model ~= 523 and model ~= 470 and model ~= 596 and model ~= 597 and model ~= 598 and  
model ~= 599 and model ~= 432 and model ~= 601 and model ~= 428 and model ~= 499 and model ~= 449 and  
model ~= 537 and model ~= 538 and model ~= 570 and model ~= 569 and model ~= 590 and model ~= 441 and  
model ~= 464 and model ~= 501 and model ~= 465 and model ~= 564 and model ~= 594 then 
return true 
else 
return false 
end 
end 
  
  
function deactivateNeon(vehicle) 
if getElementType(vehicle) == "vehicle" then 
setElementData(vehicle,"neonlight","off!!!") 
for i,mark in ipairs(getElementsByType("marker")) do 
local type = getMarkerType(mark) 
if type == "corona" then 
local data1 = getElementData(vehicle,"neonMarker1") 
local data2 = getElementData(vehicle,"neonMarker2") 
if data1 == mark or data2 == mark then 
setMarkerColor(mark,0,0,0,0) 
end 
end 
end 
return true 
else 
return false 
end 
end 
  
function openGui(plr) 
local veh = getPedOccupiedVehicle(plr) 
if haveNeon(veh) then 
triggerClientEvent(plr,"openNeonGui",root) 
end 
end 
  
addEventHandler("onPlayerJoin",root,function() 
for i,veh in ipairs(getElementsByType("vehicle")) do 
data = getElementData(veh,"neonlight") 
setElementData(veh,"neonlight",data) 
end 
end) 
  
for i,veh in ipairs(getElementsByType("vehicle")) do 
deactivateNeon(veh) 
end 
  
addEvent("closeNeonGui",true) 
addEventHandler("closeNeonGui",root,function(r,g,b) 
local veh = getPedOccupiedVehicle(source) 
setNeonColor(veh,r,g,b) 
end) 
  
  
  
 

كذا ؟؟

Link to comment
./BlackBird# Lil' G

./BlackBird#

Posted
Posted

جرب ذذ

      
         thecmd = "neon" 
    function neon(plr,cmd,r,g,b,a) 
    if not r then openGui(plr) return true end 
    if tonumber(tostring(r)) == nil then r,g,b,a = getColorFromString(r) 
    end 
    if not a then a = 200 end 
    veh = getPedOccupiedVehicle(plr) 
    if veh and r and g and b then 
    model = getElementModel(veh) 
    if canHaveNeon(veh) then 
    if haveNeon(veh) then 
    setNeonColor(veh,tonumber(r),tonumber(g),tonumber(b)) 
    end 
    end 
    end 
    end 
      
    if cmd then 
    addCommandHandler(thecmd,neon) 
    end 
      
    function setNeonColor(vehicle,r,g,b) 
    setElementData(vehicle,"neonlight",tostring(r)..","..tostring(g)..","..tostring(b)..","..tostring(a)) 
    for i,mark in ipairs(getElementsByType("marker")) do 
    local type = getMarkerType(mark) 
    if type == "corona" then 
    local data1 = getElementData(vehicle,"neonMarker1") 
    local data2 = getElementData(vehicle,"neonMarker2") 
    if data1 == mark or data2 == mark then 
    setMarkerColor(mark,r,g,b,80) 
    end 
    end 
    end 
    return true 
    end 
      
      
      
    function haveNeon(vehicle) 
    local data = getElementData(vehicle,"haveneon") 
    if data then 
    return true 
    else 
    return false 
    end 
    end 
      
    function addNeon(vehicle,state) 
    if getElementType(vehicle) == "vehicle" then 
    if state then 
    setElementData(vehicle,"haveneon",true) 
    x,y,z = getElementPosition(vehicle) 
    -- 
    local exist = nil 
    for i,mark in ipairs(getElementsByType("marker")) do 
    data = getElementData(vehicle,"neonMarker1") 
    if data == mark then 
    local exist = mark 
    end 
    end 
    if not exist then 
    local marker1 = createMarker(x,y,z,"corona",2,0,0,0,0) 
    attachElements(marker1,vehicle,0,-1,-1.2) 
    setElementData(vehicle,"neonMarker1",marker1) 
    local marker2 = createMarker(x,y,z,"corona",2,0,0,0,0) 
    attachElements(marker2,vehicle,0,1,-1.2) 
    setElementData(vehicle,"neonMarker2",marker2) 
    end 
    -- 
    return true 
    else 
    setElementData(vehicle,"haveneon",false) 
    setElementData(veh,"neonlight","off!!!") 
    -- 
    for i,mark in ipairs(getElementsByType("marker")) do 
    local type = getMarkerType(mark) 
    if type == "corona" then 
    local data1 = getElementData(vehicle,"neonMarker1") 
    local data2 = getElementData(vehicle,"neonMarker2") 
    if data1 == mark or data2 == mark then 
    setMarkerColor(mark,0,0,0,0) 
    end 
    end 
    end 
    -- 
    return true 
    end 
    else 
    return false 
    end 
    end 
    function canHaveNeon(veh) 
    model = getElementModel(veh) 
        if veh and getElementType(veh) == "vehicle" then 
        x = mayHaveNeon(model) 
        return x 
        else 
        return false 
        end 
    end 
      
    function mayHaveNeon(model) 
    if model ~= 592 and model ~= 511 and model ~= 584 and model ~= 512 and model ~= 593 and model ~= 417 and 
    model ~= 487 and model ~= 553 and model ~= 488 and model ~= 563 and model ~= 476 and model ~= 519 and 
    model ~= 460 and model ~= 469 and model ~= 513 and model ~= 472 and model ~= 473 and model ~= 493 and 
    model ~= 595 and model ~= 484 and model ~= 430 and model ~= 453 and model ~= 452 and model ~= 446 and 
    model ~= 454 and model ~= 403 and model ~= 514 and model ~= 443 and model ~= 515 and model ~= 455 and 
    model ~= 406 and model ~= 486 and model ~= 578 and model ~= 532 and model ~= 524 and model ~= 498 and 
    model ~= 609 and model ~= 568 and model ~= 457 and model ~= 508 and model ~= 571 and model ~= 539 and 
    model ~= 606 and model ~= 607 and model ~= 485 and model and model ~= 581 and model ~= 509 and 
    model ~= 481 and model ~= 462 and model ~= 521 and model ~= 463 and model ~= 510 and model ~= 522 and 
    model ~= 461 and model ~= 448 and model ~= 468 and model ~= 586 and model ~= 485 and model ~= 552 and 
    model ~= 431 and model ~= 438 and model ~= 437 and model ~= 574 and model ~= 525 and model ~= 408 and 
    model ~= 416 and model ~= 433 and model ~= 427 and model ~= 490 and model ~= 528 and model ~= 407 and 
    model ~= 544 and model ~= 523 and model ~= 470 and model ~= 596 and model ~= 597 and model ~= 598 and 
    model ~= 599 and model ~= 432 and model ~= 601 and model ~= 428 and model ~= 499 and model ~= 449 and 
    model ~= 537 and model ~= 538 and model ~= 570 and model ~= 569 and model ~= 590 and model ~= 441 and 
    model ~= 464 and model ~= 501 and model ~= 465 and model ~= 564 and model ~= 594 then 
    return true 
    else 
    return false 
    end 
    end 
      
      
    function deactivateNeon(vehicle) 
    if getElementType(vehicle) == "vehicle" then 
    setElementData(vehicle,"neonlight","off!!!") 
    for i,mark in ipairs(getElementsByType("marker")) do 
    local type = getMarkerType(mark) 
    if type == "corona" then 
    local data1 = getElementData(vehicle,"neonMarker1") 
    local data2 = getElementData(vehicle,"neonMarker2") 
    if data1 == mark or data2 == mark then 
    setMarkerColor(mark,0,0,0,0) 
    end 
    end 
    end 
    return true 
    else 
    return false 
    end 
    end 
      
    function openGui(plr) 
    local veh = getPedOccupiedVehicle(plr) 
    if haveNeon(veh) then 
    triggerClientEvent(plr,"openNeonGui",root) 
    end 
    end 
      
    addEventHandler("onPlayerJoin",root,function() 
    for i,veh in ipairs(getElementsByType("vehicle")) do 
    data = getElementData(veh,"neonlight") 
    setElementData(veh,"neonlight",data) 
    end 
    end) 
      
    for i,veh in ipairs(getElementsByType("vehicle")) do 
    deactivateNeon(veh) 
    end 
      
    addEvent("closeNeonGui",true) 
    addEventHandler("closeNeonGui",root,function(r,g,b) 
    local veh = getPedOccupiedVehicle(source) 
    setNeonColor(veh,r,g,b) 
    end) 
      
    addEvent("b1", true) 
    addEventHandler("b1", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),0,0,0) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
    addEvent("b2", true) 
    addEventHandler("b2", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),128,128,128) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
    addEvent("b3", true) 
    addEventHandler("b3", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),192,192,192) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
    addEvent("b4", true) 
    addEventHandler("b4", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),255,255,255) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
    addEvent("b5", true) 
    addEventHandler("b5", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),128,0,0) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
    addEvent("b6", true) 
    addEventHandler("b6", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),255,0,0) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
    addEvent("b7", true) 
    addEventHandler("b7", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),128,128,0) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
    addEvent("b8", true) 
    addEventHandler("b8", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),255,255,0) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
    addEvent("b9", true) 
    addEventHandler("b9", getRootElement(), function() 
      if isPedInVehicle(source) then 
          setNeonColor(getPedOccupiedVehicle(source),0,128,0) 
          outputChatBox("تم تغيير اللون", source, 255, 255, 0, true)   
          else     
          outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
    end) 
      
   
Link to comment
TD[M]ER Mack

TD[M]ER

Posted
  • Author
Posted

امرنا للهـ

هذا الملف كامل

addEvent("h", true) 
addEventHandler("h", getRootElement(), function() 
  if isPedInVehicle(source) then 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1087) 
      outputChatBox("تم اضافة الهيدروليك اضغط ا H", source, 255, 255, 0, true)  else 
    outputChatBox("انت لست بسيارتك ", source, 255, 0, 0, true)  end 
end) 
  
  
addEvent("1", true) 
addEventHandler("1", getRootElement(), function() 
  if isPedInVehicle(source) then 
    if getPlayerMoney(source) >= 0 then 
      takePlayerMoney(source, 1000) 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1074) 
      outputChatBox("~| Ok |~", source, 255, 255, 0, true) 
    else 
      outputChatBox("Not enough money.", source, 255, 0, 0, true) 
    end 
  else 
    outputChatBox("~| ErooR |~", source, 255, 0, 0, true) 
  end 
end 
) 
addEvent("2", true) 
addEventHandler("2", getRootElement(), function() 
  if isPedInVehicle(source) then 
    if getPlayerMoney(source) >= 0 then 
      takePlayerMoney(source, 0) 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1077) 
      outputChatBox("~| Ok |~", source, 255, 255, 0, true) 
    else 
      outputChatBox("Not enough money.", source, 255, 0, 0, true) 
    end 
  else 
    outputChatBox("~| Eroor |~", source, 255, 0, 0, true) 
  end 
end 
) 
addEvent("3", true) 
addEventHandler("3", getRootElement(), function() 
  if isPedInVehicle(source) then 
    if getPlayerMoney(source) >= 0 then 
      takePlayerMoney(source, 0) 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1078) 
      outputChatBox("~| Ok |~", source, 255, 255, 0, true) 
    else 
      outputChatBox("Not enough money.", source, 255, 0, 0, true) 
    end 
  else 
    outputChatBox("~| Eroor |~", source, 255, 0, 0, true) 
  end 
end 
) 
addEvent("4", true) 
addEventHandler("4", getRootElement(), function() 
  if isPedInVehicle(source) then 
    if getPlayerMoney(source) >= 0 then 
      takePlayerMoney(source, 0) 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1080) 
      outputChatBox("~| Ok |~", source, 255, 255, 0, true) 
    else 
      outputChatBox("Not enough money.", source, 255, 0, 0, true) 
    end 
  else 
    outputChatBox("~| Eroor |~", source, 255, 0, 0, true) 
  end 
end 
) 
addEvent("5", true) 
addEventHandler("5", getRootElement(), function() 
  if isPedInVehicle(source) then 
    if getPlayerMoney(source) >= 0 then 
      takePlayerMoney(source, 0) 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1081) 
      outputChatBox("~| Ok |~", source, 255, 255, 0, true) 
    else 
      outputChatBox("Not enough money.", source, 255, 0, 0, true) 
    end 
  else 
    outputChatBox("~| ErooR |~", source, 255, 0, 0, true) 
  end 
end 
) 
addEvent("6", true) 
addEventHandler("6", getRootElement(), function() 
  if isPedInVehicle(source) then 
    if getPlayerMoney(source) >= 0 then 
      takePlayerMoney(source, 0) 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1083) 
      outputChatBox("~| Ok |~", source, 255, 255, 0, true) 
    else 
      outputChatBox("Not enough money.", source, 255, 0, 0, true) 
    end 
  else 
    outputChatBox("~| ErooR |~", source, 255, 0, 0, true) 
  end 
end 
) 
addEvent("7", true) 
addEventHandler("7", getRootElement(), function() 
  if isPedInVehicle(source) then 
    if getPlayerMoney(source) >= 0 then 
      takePlayerMoney(source, 0) 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1084) 
      outputChatBox("~| Ok |~", source, 255, 255, 0, true) 
    else 
      outputChatBox("Not enough money.", source, 255, 0, 0, true) 
    end 
  else 
    outputChatBox("~| Eroor |~", source, 255, 0, 0, true) 
  end 
end 
) 
addEvent("8", true) 
addEventHandler("8", getRootElement(), function() 
  if isPedInVehicle(source) then 
    if getPlayerMoney(source) >= 0 then 
      takePlayerMoney(source, 0) 
      addVehicleUpgrade(getPedOccupiedVehicle(source), 1096) 
      outputChatBox("~| Ok |~", source, 255, 255, 0, true) 
    else 
      outputChatBox("Not enough money.", source, 255, 0, 0, true) 
    end 
  else 
    outputChatBox("~| Eroor |~", source, 255, 0, 0, true) 
  end 
end 
) 
  
  
  
  
  
  
         thecmd = "neon" 
    function neon(plr,cmd,r,g,b,a) 
    if not r then openGui(plr) return true end 
    if tonumber(tostring(r)) == nil then r,g,b,a = getColorFromString(r) 
    end 
    if not a then a = 200 end 
    veh = getPedOccupiedVehicle(plr) 
    if veh and r and g and b then 
    model = getElementModel(veh) 
    if canHaveNeon(veh) then 
    if haveNeon(veh) then 
    setNeonColor(veh,tonumber(r),tonumber(g),tonumber(b)) 
    end 
    end 
    end 
    end 
      
    if cmd then 
    addCommandHandler(thecmd,neon) 
    end 
      
    function setNeonColor(vehicle,r,g,b) 
    setElementData(vehicle,"neonlight",tostring(r)..","..tostring(g)..","..tostring(b)..","..tostring(a)) 
    for i,mark in ipairs(getElementsByType("marker")) do 
    local type = getMarkerType(mark) 
    if type == "corona" then 
    local data1 = getElementData(vehicle,"neonMarker1") 
    local data2 = getElementData(vehicle,"neonMarker2") 
    if data1 == mark or data2 == mark then 
    setMarkerColor(mark,r,g,b,80) 
    end 
    end 
    end 
    return true 
    end 
      
      
      
    function haveNeon(vehicle) 
    local data = getElementData(vehicle,"haveneon") 
    if data then 
    return true 
    else 
    return false 
    end 
    end 
      
    function addNeon(vehicle,state) 
    if getElementType(vehicle) == "vehicle" then 
    if state then 
    setElementData(vehicle,"haveneon",true) 
    x,y,z = getElementPosition(vehicle) 
    -- 
    local exist = nil 
    for i,mark in ipairs(getElementsByType("marker")) do 
    data = getElementData(vehicle,"neonMarker1") 
    if data == mark then 
    local exist = mark 
    end 
    end 
    if not exist then 
    local marker1 = createMarker(x,y,z,"corona",2,0,0,0,0) 
    attachElements(marker1,vehicle,0,-1,-1.2) 
    setElementData(vehicle,"neonMarker1",marker1) 
    local marker2 = createMarker(x,y,z,"corona",2,0,0,0,0) 
    attachElements(marker2,vehicle,0,1,-1.2) 
    setElementData(vehicle,"neonMarker2",marker2) 
    end 
    -- 
    return true 
    else 
    setElementData(vehicle,"haveneon",false) 
    setElementData(veh,"neonlight","off!!!") 
    -- 
    for i,mark in ipairs(getElementsByType("marker")) do 
    local type = getMarkerType(mark) 
    if type == "corona" then 
    local data1 = getElementData(vehicle,"neonMarker1") 
    local data2 = getElementData(vehicle,"neonMarker2") 
    if data1 == mark or data2 == mark then 
    setMarkerColor(mark,0,0,0,0) 
    end 
    end 
    end 
    -- 
    return true 
    end 
    else 
    return false 
    end 
    end 
    function canHaveNeon(veh) 
    model = getElementModel(veh) 
        if veh and getElementType(veh) == "vehicle" then 
        x = mayHaveNeon(model) 
        return x 
        else 
        return false 
        end 
    end 
      
    function mayHaveNeon(model) 
    if model ~= 592 and model ~= 511 and model ~= 584 and model ~= 512 and model ~= 593 and model ~= 417 and 
    model ~= 487 and model ~= 553 and model ~= 488 and model ~= 563 and model ~= 476 and model ~= 519 and 
    model ~= 460 and model ~= 469 and model ~= 513 and model ~= 472 and model ~= 473 and model ~= 493 and 
    model ~= 595 and model ~= 484 and model ~= 430 and model ~= 453 and model ~= 452 and model ~= 446 and 
    model ~= 454 and model ~= 403 and model ~= 514 and model ~= 443 and model ~= 515 and model ~= 455 and 
    model ~= 406 and model ~= 486 and model ~= 578 and model ~= 532 and model ~= 524 and model ~= 498 and 
    model ~= 609 and model ~= 568 and model ~= 457 and model ~= 508 and model ~= 571 and model ~= 539 and 
    model ~= 606 and model ~= 607 and model ~= 485 and model and model ~= 581 and model ~= 509 and 
    model ~= 481 and model ~= 462 and model ~= 521 and model ~= 463 and model ~= 510 and model ~= 522 and 
    model ~= 461 and model ~= 448 and model ~= 468 and model ~= 586 and model ~= 485 and model ~= 552 and 
    model ~= 431 and model ~= 438 and model ~= 437 and model ~= 574 and model ~= 525 and model ~= 408 and 
    model ~= 416 and model ~= 433 and model ~= 427 and model ~= 490 and model ~= 528 and model ~= 407 and 
    model ~= 544 and model ~= 523 and model ~= 470 and model ~= 596 and model ~= 597 and model ~= 598 and 
    model ~= 599 and model ~= 432 and model ~= 601 and model ~= 428 and model ~= 499 and model ~= 449 and 
    model ~=
Link to comment
TD[M]ER Mack

TD[M]ER

Posted
  • Author
Posted
مني مساعدك سبب

ان الاكواد انت ما سويتها

!! و ما تعرف وش تسوي اصلا

ض- ي رجال الاكوادـ لـ النور تحت السيارةة

انا كل شي ظابطـ عندي لكن لمن عطيتني اخر واحد خرب

انا كنت ابي اظبطـ اكوادـ نور تحت السيارة

لا اكثر

-ض

Link to comment

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...