addhook('spawn', 'car_spawn')
function car_spawn(id)
    parse('speedmod '..id..' 100')
    image(путь к картинке, 1, 0, 100 + id)
end

function Array(size,value)  
  local array = {}
  for i = 1, size do
   array[i]=value
  end
  return array
end

-- Carmod Values
car_img = Array(32,0)
car_img_pos = Array(32,0)
car_tx = Array(32,0)
car_ty = Array(32,0)
car_x = Array(32,0)
car_y = Array(32,0)
currentcar = Array(32,0)
pic = Array(32,0)
pl_speed = Array(32,0)
pl_have_car = Array(32,0)
car_pl = Array(32,0)

  function string.split(text,b)
    local cmd = {}
    if b then
    b = b
    else
    b = "%s"
    end
    b = "[^"..b.."]+"
    for o in string.gmatch(text,b) do
    table.insert(cmd,o)
    end
    return cmd
    end
    ---------------------------------------------------------------------------------------
    function totable(t,match)
      local cmd = {}
      if not match then match = "[^%s]+" end
      for word in string.gmatch(t, match) do
        table.insert(cmd, word)
      end
      return cmd
    end

addhook([[always]],[[rp_always]])
function rp_always()
  for id = 1,32 do
   if player(id,[[exists]]) then
    if player(id,[[health]])>0 then
    -- Carmod Auto Walk
     local rot = player(id,[[rot]])
     if rot < -90 then rot = rot + 360 end
     local angle = math.rad(math.abs( rot + 90 )) - math.pi
     local x = player(id,[[x]]) + math.cos(angle) * 5
     local y = player(id,[[y]]) + math.sin(angle) * 5
     if x > 0 and y > 0 and x < map([[xsize]]) * 32 and y < map([[ysize]]) * 32 then
      if tile(math.ceil(x / 32)-1,math.ceil(y / 32)-1,[[walkable]]) then
       if pic[id]>0 then
       parse([[setpos ]]..id..[[ ]]..x..[[ ]]..y)
        car_tx[id]=player(id,[[tilex]])
        car_ty[id]=player(id,[[tiley]])
        car_x[id]=x
        car_y[id]=y
       end
      end
     end
    end
   end
  end
end
addhook("serveraction","nfsact")
function nfsact(id,act)
if act==1 then
if pl_have_car[id]==1 then
menu(id,"props,destroy your car")
elseif pl_have_car[id]==0 then
menu(id,"props,create car")
end
end
end

addhook("spawn","a77")
function a77(id)
pic[id]=0
end

addhook([[menu]],[[nfs_menu]])
function nfs_menu(id,men,sel)
x = player(id,[[tilex]])
y = player(id,[[tiley]])
  if men == [[props]] then
   if sel == 1 then
    if pl_have_car[id]==0 then
     car_img_pos[id]=image([[gfx/gfx/CF_cars/rage.bmp]],1,1,1)
     imagepos(car_img_pos[id],player(id,[[x]]),player(id,[[y]]),player(id,[[rot]]))
     car_tx[id]=player(id,[[tilex]])
     car_ty[id]=player(id,[[tiley]])
     car_x[id]=player(id,[[x]])
     car_y[id]=player(id,[[y]])
     pl_have_car[id]=1
    elseif pl_have_car[id]==1 then
     if pic[id]>0 then
      parse([[customkill ]]..id..[[ Eject ]]..id)
      car_tx[id]=0
      car_ty[id]=0
      car_x[id]=0
      car_y[id]=0
      freeimage(car_img[id])
     else
      car_tx[id]=0
      car_ty[id]=0
      car_x[id]=0
      car_y[id]=0
      freeimage(car_img_pos[id])
     end
     pl_have_car[id]=0
    end
   end
  end
   
   end

addhook([[use]],[[carmod_use]])
function carmod_use(id,event,data,x,y)
  if event == 0 then
   if pic[id] == 0 then
    if player(id,[[tilex]])==car_tx[id] and player(id,[[tiley]])==car_ty[id] then
     freeimage(car_img_pos[id])
     pl_speed[id]=player(id,[[speedmod]])
     car_img[id]=image([[gfx/gfx/CF_cars/rage.bmp]],1,1,200+id) -- 423 Coloque onde esta o img do carro
     parse([[speedmod ]]..id..[[ -100]])
     pic[id]=1
    end
   elseif pic[id]==1 then
    freeimage(car_img[id])
    parse([[speedmod ]]..id..[[ ]]..pl_speed[id])
    car_tx[currentcar[id]]=player(id,[[tilex]])
    car_ty[currentcar[id]]=player(id,[[tiley]])
    car_img_pos[id]=image([[gfx/gfx/CF_cars/rage.bmp]],1,1,1) -- 423 Coloque onde esta o img do carro
    imagepos(car_img_pos[id],player(id,[[x]]),player(id,[[y]]),player(id,[[rot]]))
    pic[id]=0
    parse("strip "..id.." 78")
   end
  end
end