HсBOT.lua

-- Îãðîìíîå ñïàñèáî: exportaccountdata, quesada, ÷îêî ìàìè (ðàçáàíüòå åãî ïæ)

require("addon")
local sampev = require("samp.events")
local inicfg = require('inicfg')
local cfg = inicfg.load(nil, "hcbot")

local hcbot_start = false
local packets = 0

function onRunCommand(cmd)
	if cmd:find("^!key %d+$") then -- êîìàíäà äëÿ ýìóëÿöèè íàæàòèé êíîïîê
        sendKey(tonumber(cmd:match("%d+")))
        return false
    end
	if cmd == "!hcbot" then -- äëÿ çàïóñêà áîòà
        hcbot_start = not hcbot_start
		if hcbot_start then printm("HcBot íà÷àë ñâîþ ðàáîòó.") else printm("HcBot çàêîí÷èë ñâîþ ðàáîòó.") end
		return false
    end	
	if cmd:find("^!hcbot offatspawn") then -- âûêëþ÷àòü ëè êóðä ïðè ñïàâíå
        cfg.settings.coord_ofatspawn = not cfg.settings.coord_ofatspawn
		if cfg.settings.coord_ofatspawn then
			printm("Åñëè çàñïàâíÿò - êîîðäìàñòåð îñòàíîâèòñÿ.")
		else
			printm("Åñëè çàñïàâíÿò - êîîðäìàñòåð ÍÅ îñòàíîâèòñÿ.")
		end
		return false
    end
	if cmd:find("^!hcbot timestep_onfoot %d+$") then -- íàñòðîéêà çàäåðæêè òï ñ íîã
        cfg.settings.timestep_onfoot = tonumber(cmd:match("%d+"))
		printm("Çàäåðæêà ìåæäó òåëåïîðòîì: " .. cfg.settings.timestep_onfoot .. " ìñ.")
        return false
    end
	if cmd:find("^!hcbot step_onfoot %d+$") then -- íàñòðîéêà øàãà òï ñ íîã
        cfg.settings.step_onfoot = tonumber(cmd:match("%d+"))
		printm("Øàã òåëåïîðòà: " .. cfg.settings.step_onfoot .. " ìåòðîâ.")
        return false
    end
	if cmd:find("^!hcbot timestep_incar %d+$") then -- íàñòðîéêà çàäåðæêè òï ñ êàðà
        cfg.settings.timestep_incar = tonumber(cmd:match("%d+"))
		printm("Çàäåðæêà ìåæäó òåëåïîðòîì: " .. cfg.settings.timestep_incar .. " ìñ.")
        return false
    end
	if cmd:find("^!hcbot step_incar %d+$") then -- íàñòðîéêà øàãà òï ñ êàðà
        cfg.settings.step_incar = tonumber(cmd:match("%d+"))
		printm("Øàã òåëåïîðòà: " .. cfg.settings.step_incar .. " ìåòðîâ.")
        return false
    end
	if cmd:find("^!hcbot visota %d+$") then -- íàñòðîéêà øàãà òï ñ êàðà
        cfg.settings.visota = tonumber(cmd:match("%d+"))
		printm("Íà ñêîëüêî ìåòðîâ òåïàòñÿ íèæå: " .. cfg.settings.visota .. " ì.")
        return false
    end
	if cmd:find("^!hcbot info") then -- äëÿ âûâîäà èíôîðìàöèè
		printm("================ Íàñòðîéêè ñ íîã ===============")
		printm("Çàäåðæêà ìåæäó òåëåïîðòîì: " .. cfg.settings.timestep_onfoot .. " ìñ.")
		printm("Øàã òåëåïîðòà: " .. cfg.settings.step_onfoot .. " ìåòðîâ.")
		printm("================ Íàñòðîéêè ñ ìàøèíû ===============")
		printm("Çàäåðæêà ìåæäó òåëåïîðòîì: " .. cfg.settings.timestep_incar .. " ìñ.")
		printm("Øàã òåëåïîðòà: " .. cfg.settings.step_incar .. " ìåòðîâ.")
		printm("================ Ïðî÷èå íàñòðîéêè ==============")
		printm("Íà ñêîëüêî ìåòðîâ òåïàòñÿ íèæå: " .. cfg.settings.visota .. " ì.")
		printm("Áîò â ìàøèíå: " .. tostring(getBotVehicle()).." (åñëè 0 - íå â ìàøèíå, îñòàëüíîå ýòî èä ìàøèíû)")
		printm("Áîò âêëþ÷åí: " .. tostring(hcbot_start))
		printm("!hcbot save - ñîõðàíèòü íàñòðîéêè")
		printm(" * https://www.blast.hk/members/421795/")
        return false
    end
	if cmd:find("^!hcbot save") then -- äëÿ ñîõðàíåíèÿ íàñòðîåê
		inicfg.save(cfg, 'hcbot.ini')
		printm("Íàñòðîéêè óñïåøíî ñîõðàíåíû!")
        return false
    end
	if cmd:find("^!hcbot repare_old") then -- äëÿ âîçâðàùåíèÿ íàñòðîåê â ïðåæíåå ñîñòîÿíèå
		cfg.settings.coord_ofatspawn = "true"
		cfg.settings.timestep_onfoot = "40"
		cfg.settings.step_onfoot = "2"
		cfg.settings.timestep_incar = "50"
		cfg.settings.step_incar = "7"
		cfg.settings.visota = "10"
		inicfg.save(cfg, 'hcbot.ini')
		printm("Íàñòðîéêè óñïåøíî âîññòàíîâëåíû!")
        return false
    end
	if cmd:find("^!hcbot help") then -- äëÿ âûâîäà êîìàíä
		printm("!hcbot - âêëþ÷èòü ÷åêïîèíò áîòà")
		printm("!key àéäè - åìóëèðîâàòü íàæàòèå êíîïêè")
		printm("!hcbot save - ñîõðàíèòü íàñòðîéêè")
		printm("!hcbot repare_old - âîññòàíîâèòü íàñòðîéêè êàê áûëè")
		printm("!hcbot offatspawn - âûêëþ÷àòü ëè òï åñëè âî âðåìÿ òï ñïàâíÿò")
		printm("!hcbot timestep_onfoot ìñ - íàñòðîéêà çàäåðæêè ïåðåä òï ñ íîã")
		printm("!hcbot step_onfoot ìåòðû - íàñòðîéêà øàãà òï ñ íîã")
		printm("!hcbot timestep_incar ìñ - íàñòðîéêà çàäåðæêè ïåðåä òï ñ ìàøèíû")
		printm("!hcbot step_incar ìåòðû - íàñòðîéêà øàãà òï ñ ìàøèíû")
		printm("!hcbot info - âûâåñòè èíôîðìàöèþ îá íàñòðîéêàõ")
		printm("!getcars - âûâåñòè ìàøèíû êîòîðûå íàõîäÿòñÿ â çîíå ñòðèìà")
		printm("!sest idcar x_car y_car z_car - ñåñòü â ìàøèíó")
		printm(" * x_car, y_car, z_car - êîîðäèíàòû ìàøèíû, idcar - èä ìàøèíû")
		printm("!musor - âêë/âûêë îòîáðàæåíèÿ ìóñîðíûõ ñîîáùåíèé â ÷àò")
		printm("!hcbot help - âûâåñòè äàííîå ñîîáùåíèå")
		printm(" * https://www.blast.hk/members/421795/")
        return false
    end
	
	if cmd == "!getcars" then -- äëÿ âûâîäà ìàøèí â çîíå ñòðèìà
        cars = getAllVehicles()
		for k, v in pairs(cars) do
			x, y, z = getBotPosition() 
			distance = getDistanceBetweenCoords(x, y, z, v.position.x, v.position.y, v.position.z)
			print(v.name .. "["..k.."]" .. " | Coord: X: "..math.floor(v.position.x).." Y: "..math.floor(v.position.y).." Z: "..math.floor(v.position.z) .. " | Çàêðûò: "..tostring(v.locked).." | Äèñòàíöèÿ: "..math.floor(distance).." ì.")
		end
        return false
    end
	if cmd:find("^!sest (.*)") then -- ÷òîáû ñåñòü â ìàøèíó (èñïîëüçîâàíèå !sest àéäè_ìàøèíû êîîðäèíàòà_ìàøèíû_X êîîðäèíàòà_ìàøèíû_Y êîîðäèíàòà_ìàøèíû_Z)
		if getBotVehicle() == 0 then
			sesti(cmd:match("(.*)"))
		else
			printm("Áîò íàõîäèòñÿ â ìàøèíå.")
		end       
        return false
    end
	if cmd == "!musor" then -- îòîáðàæàòü ëè ìóñîð â ÷àòå
		cfg.settings.chat_musor = not cfg.settings.chat_musor
		if cfg.settings.chat_musor then printm("Îòîáðàæåíèå ìóñîðà â ÷àòå - âêëþ÷åíî.") else printm("Îòîáðàæåíèå ìóñîðà â ÷àòå - âûêëþ÷åíî.") end
        return false
    end
end

function onPrintLog(text) -- õóê íà òåêñò
	if cfg.settings.chat_musor then
		if text:find("gtasounds") or text:find("COORD") then --or text:find("")
			return false
		end
	end
end

function sesti(param) -- êîìàíäà ÷òîáû ïðèëèòåòü è ñåñòü â ìàïàøèíó íà âîäèòåëüñêîå
	local id, xs, ys, zs = string.match(param, '(%d+)%s(.*)%s(.*)%s(.*)')
	xs = tonumber(xs)
	ys = tonumber(ys)
	zs = tonumber(zs)
	idd = tonumber(id)
	mashinka = 1
	coordStart(xs, ys, zs, cfg.settings.timestep_onfoot, cfg.settings.step_onfoot, cfg.settings.coord_ofatspawn)
end

function onCoordStop() -- åñëè êóðäìàñòåð çêîí÷èë ðàáîòó
	newTask(function()
		if mashinka == 1 then
			mashinka = 0
			sendVehicleEnter(idd, 0) -- ñåñòü â ìàøèíó
			wait(1000)
			setBotVehicle(idd, 0) -- ñåñòü â ìàøèíó ÷òîá òî÷íî
			print("Ñåëè â ìàøèíó: "..idd)
		end
		printm("Óñïåøíî ïðèëåòåëè.")
		if getBotVehicle() ~= 0 then
			wait(2500)
			x, y, z = getBotPosition() 
			setBotPosition(x, y, z-cfg.settings.visota+1)
		end
	end)
end

function sampev.onSendVehicleSync(data) -- åñëè èíêàð îòïðàâèò sync
	if hcbot_start then
		data.moveSpeed.x = 0.5
		data.moveSpeed.y = 0.5
		data.moveSpeed.z = 1.0
	end
end

function sampev.onSendPlayerSync(data) -- åñëè îíôóò îòïðàâèò sync
	if hcbot_start then
		data.moveSpeed.x = 0.5
		data.moveSpeed.y = 0.5
		data.moveSpeed.z = 1.0
	end
end

function getDistanceBetweenCoords(x, y, z, px, py, pz) -- äëÿ óçíàâàíèÿ äèñòàíöèè ìåæäó òîáîé è êîîðäèàíàòîé
    local distance = math.sqrt((px - x)^2 + (py - y)^2 + (pz - z)^2)
    return distance
end

function onCoordStart() -- åñëè êóðäìàñòåð íà÷àë ðàáîòó
	if getBotVehicle() ~= 0 then
		x, y, z = getBotPosition() 
		setBotPosition(x, y, z-cfg.settings.visota)
	end

	printm("Êóðäìàñòåð íà÷àë ñâîþ ðàáîòó.")
end

newTask(function()
	while true do wait(0)
	    if isCoordActive() then
			wait(100)
	        if getBotVehicle() == 0 then -- 0 - íå â ìàøèíå
			    packets = packets + 1
			
			    if packets >= 7 then
			        packets = 0
			        sleep(239)
			    end
		    else
			    packets = packets + 1
			
			    if packets >= 7 then
			        packets = 0
					sleep(400)
			    end
		    end
	    end
	end
end)

function sampev.onSetRaceCheckpoint(type, position, nextPosition, size) -- åñëè îòïðàâèëè ÷åêïîèíò
	if hcbot_start then
		x, y, z = getBotPosition() 
		distance = getDistanceBetweenCoords(x, y, z, position.x, position.y, position.z)
		printm("Ïîéìàëè ÷åêïîèíò: "..math.floor(position.x)..", "..math.floor(position.y)..", "..math.floor(position.z).." | Äèñòàíöèÿ: "..math.floor(distance).." m.")
		if getBotVehicle() == 0 then -- 0 - íå â ìàøèíå
			coordStart(position.x, position.y, position.z, cfg.settings.timestep_onfoot, cfg.settings.step_onfoot, cfg.settings.coord_ofatspawn)
		else			
			coordStart(position.x, position.y, position.z, cfg.settings.timestep_incar, cfg.settings.step_incar, cfg.settings.coord_ofatspawn)
		end
	end
end

-- âíèçó âñ¸ ÷òî íóæíî äëÿ àâòîðèçàöèè ëèáî ðåãèñòðàöèè àêêàóíòà
function sampev.onShowDialog(id, style, title, btn1, btn2, text)
    if title:find('Ïàðîëü') then
        sendDialogResponse(id, 1, 0, cfg.settings.password)
        return false
    end
    if title:find('Âûáåðèòå âàø ïîë') then
		sendDialogResponse(id, 1, 0, "")
        return false
    end
	if title:find('Âûáåðèòå öâåò êîæè') then
		sendDialogResponse(id, 1, 0, "")
        return false
    end
	if title:find('âû î íàñ óçíàëè?') then
		sendDialogResponse(id, 1, 1, "")
        return false
	end
	if title:find('Ââåäèòå íèê ïðèãëàñèâøåãî?') then
		sendDialogResponse(id, 1, 0, cfg.settings.referal)
        return false
	end
	if title:find('Äîïîëíèòåëüíàÿ') then
		sendDialogResponse(id, 0, 0, "")
		return false
	end	
	if title:find('Àâòîðèçàöèÿ') then
		sendDialogResponse(id, 1, 0, cfg.settings.password)
		return false
	end
end

function sampev.onShowTextDraw(id, data) -- ÷òî-áû âûáðàëî ñêèí íîðìàëüíî
	if id == 419 then
		newTask(function()
			wait(1000)
			sendClickTextdraw(id)
		end)
	end
end

function onSendRPC(id, bs)
	if id == 128 then -- ÷òîáû ïðèíÿòü ðåêâåñò êëàññ
		return true
	end
end

-- äëÿ ýìóëÿöèè íàæàòèé íà êíîïêè è òä
function sampev.onSendPlayerSync(data)
    if key then
        data.keysData = key
        key = nil
    end
end

function sendKey(id)
	printm("Îòïðàâèë êíîïêó: "..id)
    key = id
    updateSync()
end

-- âíèçó íå íóæíîå (äëÿ ðàáîòû ñêðèïòà íóæíîå)
function printm(text)
	print("[HcBOT]: "..text)
end

function onLoad()
	printm("Óñïåøíî çàãðóæåí! By Haymiritch")
	printm(" * https://www.blast.hk/members/421795/")
	printm(" * Êîìàíäû: !hcbot help")
end