CS2D Lua Scan Training Script

scans.lua

--------------------------------------------------
-- Based on Laserpointer Script by Plookerbooy  --
-- &                                            --
-- Hitzone Script by Unreal Software            --
--                                              --
-- Modified by United                           --
--------------------------------------------------

function init(a,b)
	local array = {}
	for i = 1, a do
		array[i] = b
	end
	return array
end

lpline=init(32, "")
lppostion=init(32, {})
lpstate=init(32, false)

addhook("die","_reset")
addhook("leave","_reset")
addhook("use","_attack")
addhook("always","_always")
addhook("clientdata","_clientdata")
-- addhook("flashlight","_reset")

if sample==nil then sample={} end
sample.hitzone={}
sample.hitzone.id=0

-----------------------
-- STARTROUND        --
-----------------------
addhook("startround","sample.hitzone.startround")
function sample.hitzone.startround()
	sample.hitzone.id=0
end

-----------------------
-- HITZONE           --
-----------------------
addhook("hitzone","sample.hitzone.hit")
hits = 0
function sample.hitzone.hit(id)
	-- Show Message
	if hits == 0 then
		msg("+++ Hit!")
		hits = hits + 1
		return
	end
	if hits == 1 then
		msg("--- Hit!")
		hits = hits -1
		return
	end
end

function _attack(id)
	reqcld(id, 2)
end


function _clientdata(id, t, x, y, team)
	-- get data and assign to variables
	local xf, yf, teamf = x, y, team
	if (player(id, "team") == 1) then
		parse('effect "flare" '..xf..' '..yf..' 32 16 0 0 255')
	end
	if (player(id, "team") == 2) then
		parse('effect "flare" '..xf..' '..yf..' 32 16 255 0 0')
	end
	lppostion[id] = {xf, yf}
	lpstate[id]=id
	-- remove previous dummy hitzone
	freeimage(sample.hitzone.id)
	-- create dummy hitzone
	for _, id in pairs(player(0, "tableliving")) do
		if lpstate[id] then
			local x, y = lppostion[id][1], lppostion[id][2]
			sample.hitzone.id=image("gfx/player/randomplayer.bmp",x,y,1)
			imagehitzone(sample.hitzone.id,3,-28/2,-28/2,28,28)
			if (player(id, "team") == 1) then
				imagecolor(sample.hitzone.id,0,0,255)
			end
			if (player(id, "team") == 2) then
				imagecolor(sample.hitzone.id,255,0,0)
			end
			rot = player(id, "rot") - 180
			imagepos(sample.hitzone.id,x,y,rot)
		end
	end
end

function _reset(id)
	if lpstate[id] then
		lpstate[id]=false
		freeimage(lpline[id])
		freeimage(sample.hitzone.id)
	end
end

function _always()
	for _, id in pairs(player(0, "tableliving")) do
		if lpstate[id] then
			local x, y, ix, iy = player(id,"x"), player(id,"y"), lppostion[id][1], lppostion[id][2]
			local lpdist = math.sqrt((x-ix)^2 + (y-iy)^2)
			if lpline[id]~="" then
				freeimage(lpline[id])
			end
			lpline[id] = image("gfx/line.bmp", x, y, 1)
			local hp=100
			local angle= -math.deg(math.atan2(ix-x,iy-y))
			local linex,liney= x-math.sin(math.rad(angle))*lpdist/2, y+math.cos(math.rad(angle))*lpdist/2
			imagepos(lpline[id], linex, liney, angle)
			imagescale(lpline[id],1,lpdist)
			if freeline(x, y, ix, iy) then
				imagecolor(lpline[id], 0, 255, 0)
			else
				imagecolor(lpline[id], 255, 0, 0)
			end
		end
	end
end

function freeline(x1, y1, x2, y2)
    for i=1, math.floor(math.sqrt(math.pow(x1 - x2, 2) + math.pow(y1 - y2, 2))) do
        if tile(math.floor((x1 + i * math.cos(math.atan2(y2 - y1, x2 - x1))) / 32),math.floor((y1 + i * math.sin(math.atan2(y2 - y1, x2 - x1))) / 32), "wall") == true then
            return false
        end
    end
    return true
end