o.0 What you mean..?
Maybe i missunderstood..?
Scripts
Lua Scripts/Questions/Help
(I've got many ideas)image("gfx/cars/car.png",0,0,132+id) --I don't know if this works, I'm in rush.
addhook("second","health")
function health(id)
if player (id,"health") > 99 then
parse("sethealth "..id.." +1")
end
end
addhook("second","health")
function health(id)
if player (id,"health") > 99 then
parse("sethealth "..id.." +1")
end
end
addhook("second", "health")
function health()
	for i=1,32 do
		if (player(i, "health") > 99) then
			parse("sethealth "..i.." +1")
		end
	end
end
addhook("second", "health")
function health()
for i=1,32 do
	if player(id,"exists") then
if (player(i, "health") > 99) then
parse("sethealth "..i.." "..player(id,"health")+1) --does sethealth id +1 work?(idk so just try this)
end
	end
end
end
addhook("spawn","pistol")
function pistol(id)
	parse('hudtxt2 '..id..' 1 "1: USP" 13 200')
	parse('hudtxt2 '..id..' 2 "2: Glock" 13 212')
	parse('hudtxt2 '..id..' 3 "3: Deagle" 13 224')
	parse('hudtxt2 '..id..' 4 "4: P228" 13 236')
	parse('hudtxt2 '..id..' 5 "5: Elite" 13 248')
	parse('hudtxt2 '..id..' 6 "6: Five-Seven" 13 260')
	menu(id,"Choose Pistol@i,USP,Glock,P228,Deagle,Elite,Five-Seven")
	if player(id,"bot") then
		bot=math.random(1,6)
		parse("equip "..id.." "..bot)
		parse("setweapon "..id.." "..bot)
	end
end
addhook("menu","pistoll")
function pistoll(id,title,sel)
	if title == "Choose Pistol" then
		if sel == 1 then
			parse("equip "..id.." 1")
			parse("setweapon "..id.." 1")
			parse('hudtxt2 '..id..' 1 " " 13 140')
			parse('hudtxt2 '..id..' 2 " " 13 140')
			parse('hudtxt2 '..id..' 3 " " 13 140')
			parse('hudtxt2 '..id..' 4 " " 13 140')
			parse('hudtxt2 '..id..' 5 " " 13 140')
			parse('hudtxt2 '..id..' 6 " " 13 140')
		end
		if sel == 2 then
			parse("equip "..id.." 2")
			parse("setweapon "..id.." 2")
			parse('hudtxt2 '..id..' 1 " " 13 140')
			parse('hudtxt2 '..id..' 2 " " 13 140')
			parse('hudtxt2 '..id..' 3 " " 13 140')
			parse('hudtxt2 '..id..' 4 " " 13 140')
			parse('hudtxt2 '..id..' 5 " " 13 140')
			parse('hudtxt2 '..id..' 6 " " 13 140')
		end
		if sel == 3 then
			parse("equip "..id.." 3")
			parse("setweapon "..id.." 3")
			parse('hudtxt2 '..id..' 1 " " 13 140')
			parse('hudtxt2 '..id..' 2 " " 13 140')
			parse('hudtxt2 '..id..' 3 " " 13 140')
			parse('hudtxt2 '..id..' 4 " " 13 140')
			parse('hudtxt2 '..id..' 5 " " 13 140')
			parse('hudtxt2 '..id..' 6 " " 13 140')
		end
		if sel == 4 then
			parse("equip "..id.." 4")
			parse("setweapon "..id.." 4")
			parse('hudtxt2 '..id..' 1 " " 13 140')
			parse('hudtxt2 '..id..' 2 " " 13 140')
			parse('hudtxt2 '..id..' 3 " " 13 140')
			parse('hudtxt2 '..id..' 4 " " 13 140')
			parse('hudtxt2 '..id..' 5 " " 13 140')
			parse('hudtxt2 '..id..' 6 " " 13 140')
		end
		if sel == 5 then
			parse("equip "..id.." 5")
			parse("setweapon "..id.." 5")
			parse('hudtxt2 '..id..' 1 " " 13 140')
			parse('hudtxt2 '..id..' 2 " " 13 140')
			parse('hudtxt2 '..id..' 3 " " 13 140')
			parse('hudtxt2 '..id..' 4 " " 13 140')
			parse('hudtxt2 '..id..' 5 " " 13 140')
			parse('hudtxt2 '..id..' 6 " " 13 140')
		end
		if sel == 6 then
			parse("equip "..id.." 6")
			parse("setweapon "..id.." 6")
			parse('hudtxt2 '..id..' 1 " " 13 140')
			parse('hudtxt2 '..id..' 2 " " 13 140')
			parse('hudtxt2 '..id..' 3 " " 13 140')
			parse('hudtxt2 '..id..' 4 " " 13 140')
			parse('hudtxt2 '..id..' 5 " " 13 140')
			parse('hudtxt2 '..id..' 6 " " 13 140')
		end
	end
end
CARS = {}
CARS_MAXSPEED = 25
CARS_ACCELERATION = function(speed) return speed/2 + 1 end
CARS_DECELERATION = function(speed) return -speed/2 - 1 end
CARS_IMAGEPATH = "gfx/Yates-CityLife/car.bmp"
CARS_PRICE = 10000
if not addmoney then
function addmoney(id, amount)
if player(id, 'money') >= amount then
parse(string.format("setmoney %i %i", id, player(id, 'money') - amount))
return true
end
return false
end
end
function addcar(x, y)
table.insert(CARS, {x = x, y = y, speed = 0, image = image(CARS_IMAGEPATH, x, y, 0), rot = 0})
end
function carpos(car, x, y)
local tilex, tiley = math.floor(car.x/32), math.floor(car.y/32)
if not tile(tilex, tiley, 'walkable') then
return false
end
for _, id in ipairs(player(0, 'table')) do
if car.driver and car.driver ~= id and player(id, 'health') > 0 and math.abs(x - player(id, 'x')) < 16 and math.abs(y - player(id, 'y')) < 16 then
parse(string.format("customkill %i Car %i", car.driver, id))
end
end
car.x, car.y = x, y
if car.driver then
parse(string.format("setpos %i %i %i", car.driver, x, y))
else
imagepos(car.image, x, y, car.rot)
end
return true
end
addhook("ms100", "CARms100")
function CARms100()
for id, car in pairs(CARS) do
if car.driver then
if not player(car.driver, 'exists') or player(car.driver, 'health') <= 0 then
car.driver = nil
car.speed = math.min(CARS_MAXSPEED, car.speed + CARS_DECELERATION(car.speed))
else
car.rot = player(car.driver, 'rot')
car.speed = math.min(CARS_MAXSPEED, car.speed + CARS_ACCELERATION(car.speed))
end
elseif car.speed > 0 then
car.speed = math.min(CARS_MAXSPEED, car.speed + CARS_DECELERATION(car.speed))
end
if car.speed > 0 then
local rot = math.rad(car.rot - 180)
if not carpos(car, car.x - math.sin(rot)*car.speed, car.y + math.cos(rot)*car.speed) then
if car.driver then
parse(string.format("customkill %i Car %i", car.driver, car.driver))
end
freeimage(car.image)
parse(string.format("explosion %i %i 128 250 %i", car.x, car.y, car.driver or 0))
parse(string.format("effect \"fire\" %i %i 256 128", car.x, car.y))
CARS[id] = nil
end
end
end
end
addhook("use", "CARuse")
function CARuse(id,event,data,x,y)
x, y = player(id, 'x'), player(id, 'y')
for _, car in pairs(CARS) do
if not car.driver and math.abs(car.x - x) < 32 and math.abs(car.y - y) < 32 then
car.speedmod = player(id, 'speedmod')
parse(string.format("speedmod %i 0", id))
car.driver = id
freeimage(car.image)
car.image = image(CARS_IMAGEPATH, 1, 0, 200+id)
break
elseif car.driver == id then
parse(string.format("speedmod %i %i", id, car.speedmod))
car.driver = nil
freeimage(car.image)
car.image = image(CARS_IMAGEPATH, player(id, 'x'), player(id, 'y'), 0)
break
end
end
end
local bought, nomoney = "You have bought a car for $" .. CARS_PRICE .. ".", "You do not have enough money to buy a car. ($" .. CARS_PRICE .. ")"
addhook("say", "CARsay")
function CARsay(id,message)
if message == "!car" then
if addmoney(id, -CARS_PRICE) then
addcar(player(id, 'x'), player(id, 'y'))
msg2(id, bought)
else
msg2(id, nomoney)
end
return 1
end
end