config = {
	countdown = 5, -- shoot to target after X seconds
	laserimage = "gfx/lsr.bmp", -- laser image
	turretimg = "gfx/trtimg.bmp", -- turret image
	turretshooterimg = "gfx/shtrimg.bmp", -- turret shooter image
	r = 0, g = 255, b = 0, -- laser color (RGB)
	damage = 145, -- laser damage
	limit = 3, -- max turret limit per team
	playerlimit = 1, -- max turret limit per player
	turretprice = 16000, -- laser turret price
}

laserturrets = {}
_player = {}

function getpos(x, y, dir, speed)
	return x + math.sin(math.rad(dir)) * speed, y + -math.cos(math.rad(dir)) * speed
end

function freeline(x1, y1, x2, y2)
	local len = math.sqrt((x1 - x2)^2 + (y1 - y2)^2)
	len = math.floor(len)
	for k = 20, len do
		local x, y = getpos(x1, y1, -math.deg(math.atan2(x1 - x2, y1 - y2)), k)
		if tile(math.floor(x / 32), math.floor(y / 32), "wall") then
			return false
		end
	end
return true
end

addhook('buildattempt', 'buildattempt_hook')
function buildattempt_hook(id, type, x, y, mode)
	if type == 8 then
		menu(id, "Select turret, Normal turret|5000, Laser turret|".. config.turretprice)
		_player[id].lx = x
		_player[id].ly = y
		return 1
	end
end

addhook('menu', 'menu_hook')
function menu_hook(id, title, button)
	if title == "Select turret" then
		if button == 2 then
			if player(id, 'money') >= config.turretprice then
				if #_player[id].turrettable ~= config.playerlimit then
					if #laserturrets ~= config.limit then
						local x, y = _player[id].lx, _player[id].ly
						parse('spawnobject 3 '.. x ..' '.. y ..' 0 0 '.. player(id, 'team') ..' '.. id)
						local obj
						for n, w in pairs(object(0, 'table')) do
							if object(w, 'tilex') == x and object(w, 'tiley') == y and object(w, 'type') == 3 then
								obj = w
							end
						end
						table.insert(laserturrets, {x = x, y = y, turretimg = image(config.turretimg, x * 32 + 16, y * 32 + 16, 1), turretlightingimg = image('gfx/sprites/flare1.bmp', x * 32 + 16, y * 32 + 16, 1), turretshooterimg = image(config.turretshooterimg, x * 32 + 16, y * 32 + 16, 1), object = obj, lasers = 0, cntdwn = 0, team = player(id, 'team'), player = id, rotationvar = 0, rootrotation = player(id, 'rot'), rotationcooldown = 0})
						table.insert(_player[id].turrettable, obj)
						tween_rotateconstantly(laserturrets[#laserturrets].turretlightingimg, 2)
						imageblend(laserturrets[#laserturrets].turretlightingimg, 1)
						local col
						if player(id, 'team') == 1 then col = {255, 0, 0} else col = {0, 0, 255} end
						imagecolor(laserturrets[#laserturrets].turretlightingimg, col[1], col[2], col[3])
						parse('setmoney '.. id ..' '.. player(id, 'money') - config.turretprice)
						return 1
					else
						msg2(id, string.char(169) .."255000000Server limit reached! You can't build anymore laser turrets!@C")
					end
				else
					msg2(id, string.char(169) .."255000000Player limit reached! You can't build anymore laser turrets!@C")
				end
			else
				msg2(id, string.char(169) .."255000000Not enough money!")
			end
		elseif button == 1 then
			if player(id, 'money') >= 5000 then
				parse('spawnobject 8 '.. _player[id].lx ..' '.. _player[id].ly ..' 0 0 '.. player(id, 'team') ..' '.. id)
				parse('setmoney '.. id ..' '.. player(id, 'money') - 5000)
			else
				msg2(id, string.char(169) .."255000000Not enough money!")
			end
		end
	end	
end
	
addhook('join', 'join_hook')
function join_hook(id)
	_player[id] = {turrettable = {}, lx = 0, ly = 0}
end

addhook('ms100', 'ms100_hook')
function ms100_hook()
	for _, tur in pairs(laserturrets) do
		if tur.rotationcooldown > 0 then
			tur.rotationcooldown = tur.rotationcooldown - 1
		end
		local x = tur.x * 32 + 16
		local y = tur.y * 32 + 16
		local cls = 255
		local closest
		local t if tur.team == 1 then t = 2 elseif tur.team == 2 then t = 1 end
		for __, id in pairs(player(0, 'team'.. t)) do
			if math.sqrt((player(id, 'x') - x)^2 + (player(id, 'y') - y)^2) < cls then
				if freeline(x, y, player(id, 'x'), player(id, 'y')) then
					cls = math.sqrt((player(id, 'x') - x)^2 + (player(id, 'y') - y)^2)
					if player(id, 'health') > 0 then
						closest = id
					end
				end
			end
		end
		tur.cntdwn = tur.cntdwn + 0.1
		if tur.cntdwn >= config.countdown then
			if closest then
				tur.lasers = image(config.laserimage, x + 16, y + 16, 1)
				local rot = -math.deg(math.atan2(x - player(closest, 'x'), y - player(closest, 'y'))) 
				tur.rootrotation = rot
				tur.rotationvar = 0
				tur.rotationcooldown = 10
				imagepos(tur.lasers, x + math.sin(math.rad(rot)) * cls/2, y + -math.cos(math.rad(rot)) * cls/2, -math.deg(math.atan2(x - player(closest, 'x'), y - player(closest, 'y'))))
				imagepos(tur.turretshooterimg, x, y, rot)
				imagecolor(tur.lasers, config.r, config.g, config.b)
				imagescale(tur.lasers, 1, cls)
				tween_alpha(tur.lasers, 1000, 0.0)
				timer(1000, "freeimage", tur.lasers)
				if player(closest, 'health') - config.damage <= 0 then
					parse('customkill '.. tur.player ..' "laser turret" '.. closest)
				else
					parse('sethealth '.. closest ..' '.. player(closest, 'health') - config.damage)
				end
				tur.cntdwn = 0
			else
				tur.cntdwn = 0
			end
		end
	end
end

addhook('always', 'always_hook')
function always_hook()
	for n, w in pairs(laserturrets) do
		if w.rotationcooldown == 0 then
			w.rotationvar = w.rotationvar + 1
			imagepos(w.turretshooterimg, w.x * 32 + 16, w.y * 32 + 16, w.rootrotation + math.sin(math.rad(w.rotationvar)) * 60)
		end
	end
end

addhook('objectkill', 'objectkill_hook')
function objectkill_hook(id, player)
	for n, w in pairs(laserturrets) do
		if id == w.object then
			freeimage(w.turretimg)
			freeimage(w.turretshooterimg)
			freeimage(w.turretlightingimg)
			table.remove(laserturrets, n)
		end
	end
	for n, w in pairs(_player[id].turrettable) do
		if id == w then
			table.remove(_player[id].turrettable, n) 
		end
	end
end

addhook('team', 'team_hook')
function team_hook(id)
	if player(id, 'bot') then return end
	for n, w in pairs(_player[id].turrettable) do
		parse('killobject '.. w)
	end
	_player[id].turrettable = {}
end

addhook('leave', 'leave_hook')
function leave_hook(id)
	if player(id, 'bot') then return end
	for n, w in pairs(_player[id].turrettable) do
		parse('killobject '.. w)
	end
	_player[id].turrettable = {}
end

addhook('startround', 'startround_hook')
function startround_hook()
	laserturrets = {}
	for n, w in pairs(player(0, 'table')) do
		if not player(w, 'bot') then
			_player[w].turrettable = {}
		end
	end
end

function initArray(m)
local array = {}
for i = 1, m do
array[i]=0
end
return array
end
color_admin=initArray(32)
admincolor=initArray(32)
admin_color_name=initArray(32)

admin_color_name[0]="White"
admin_color_name[1]="Green"
admin_color_name[2]="Brown"
admin_color_name[3]="Purple"
admin_color_name[4]="Blue"
admin_color_name[5]="Red"
admin_color_name[6]="Cyan"
admin_color_name[7]="Lime"

admincolor[0]="©255255255" ---- White
admincolor[1]="©000555000" ---- Green
admincolor[2]="©15075   0" ---- Brown
admincolor[3]="©155000255" ---- Purple
admincolor[4]="©30 144255" ---- Blue
admincolor[5]="©255000000" ---- Red
admincolor[6]="©000255255" ---- Cyan
admincolor[7]="©000255111" ---- Lime

Admins = {120840,114540,114940,120792,129519,124200,125610,105111,130196,107398,19952,114160,108309} -- Every ID is Admin
Mods = {} -- Every ID is Mod
godMode= {}

-- Huds --
addhook("ms100","t")
function t()
for id=1,32 do 
if player(id,"exists") then
parse('hudtxt2 '..id..' 1 " ©000255000Kills: '..player(id,'score')..'" 10 150')
parse('hudtxt2 '..id..' 2 " ©055140233Deaths: '..player(id,'deaths')..'" 10 165')
parse('hudtxt2 '..id..' 3 " ©255000000Health: '..player(id,'health')..'" 10 180')
parse('hudtxt2 '..id..' 4 " ©255255000Name: '..player(id,'name')..'" 10 135')
parse('hudtxt2 '..id..' 5 " ©255255000Money: '..player(id,'money')..'" 10 210')
parse('hudtxt2 '..id..' 6 " ©255255000"..game("sv_name").." 10 500')
parse('hudtxt2 '..id..' 7 " ©000255000[PK]Admin script V0.1.4" 250 20')
parse('hudtxt2 '..id..' 8 " ©255128000Server Name: '..game("sv_name")..'" 250 35')
parse('hudtxt2 '..id..' 9 " ©255255255U.S.G.N. # id: '..player(id,'usgn')..'" 10 195')
parse('hudtxt2 '..id..' 10 " ©255011255Max Players: '..game("sv_maxplayers")..'" 10 225')
parse('hudtxt2 '..id..' 11 " ©111111111Armor: '..player(id,'armor')..'" 10 240')
end
end
end

-- Admin join --
addhook("join","adminiuserjoin")
function adminiuserjoin(id)
godMode[id]=0
for _, usgn in ipairs(Admins) do
if player(id,"usgn") == usgn then
color_admin[id]=0
msg("©255128000 "..player(id,"name").." joined the server !@C")
end
end
msg2(id,"©75 75   0 Welcome on my Server, "..player(id,"name").."!")
end

addhook("minute","adsminute")
function adsminute()
     msg("©666222653This server is powered by")
     msg("©666222653[PK]Admin script V0.1.4")
end

-- No Teamkill --
addhook("kill","NoTeamKill")
function NoTeamKill(killer,victim,weapon,x,y)
if player(killer,"team") == player(victim,"team") then
msg2(killer,"©255000000You killed "..player(victim,"name").." don't do it again!")
msg("©255000000"..player(killer,"name").." killed "..player(victim,"name"))
end
end

-- Admin Say --
addhook("say","adminsay")
function adminsay(id,txt)
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then
msg(""..admincolor[color_admin[id]]..""..player(id,"name").." (Admin): "..txt)
return 1
end
for _, usgn in ipairs(Mods) do
if player(id,'usgn') == usgn then
msg("©100000000"..player(id,"name").." (Mod): "..txt)
return 1
end
if player(id,"usgn")>=1 then
msg("©100100100"..player(id,"name").." (User): "..txt)
return 1
else
msg("©000000000"..player(id,"name").." (Non-User): "..txt)
return 1
end
end
end
end

-- Admin Punish --
addhook ("say","sayfuncs")
function sayfuncs(id,txt,usgn)
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then if (txt=="!rs") then
parse ("setscore "..id.." ..sc")
parse ("setdeaths "..id.." ..sc")
end
if (txt=="@kick 1") then
parse ('kick 1')
end
if (txt=="@kick 2") then
parse ('kick 2')
end
if (txt=="@kick 3") then
parse ('kick 3')
end
if (txt=="@kick 4") then
parse ('kick 4')
end
if (txt=="@kick 5") then
parse ('kick 5')
end
if (txt=="@kick 6") then
parse ('kick 6')
end
if (txt=="@kick 7") then
parse ('kick 7')
end
if (txt=="@kick 8") then
parse ('kick 8')
end
if (txt=="@kick 9") then
parse ('kick 9')
end
if (txt=="@kick 10") then
parse ('kick 10')
end
if (txt=="@kick 11") then
parse ('kick 11')
end
if (txt=="@kick 12") then
parse ('kick 12')
end
if (txt=="@kick 13") then
parse ('kick 13')
end
if (txt=="@kick 14") then
parse ('kick 14')
end
if (txt=="@kick 15") then
parse ('kick 15')
end
if (txt=="@kick 16") then
parse ('kick 16')
end
if (txt=="@kick 17") then
parse ('kick 17')
end
if (txt=="@kick 18") then
parse ('kick 18')
end
if (txt=="@kick 19") then
parse ('kick 19')
end
if (txt=="@kick 20") then
parse ('kick 20')
end
if (txt=="@kick 21") then
parse ('kick 21')
end
if (txt=="@kick 22") then
parse ('kick 22')
end
if (txt=="@kick 23") then
parse ('kick 23')
end
if (txt=="@kick 24") then
parse ('kick 24')
end
if (txt=="@kick 25") then
parse ('kick 25')
end
if (txt=="@kick 26") then
parse ('kick 26')
end
if (txt=="@kick 27") then
parse ('kick 27')
end
if (txt=="@kick 28") then
parse ('kick 28')
end
if (txt=="@kick 29") then
parse ('kick 29')
end
if (txt=="@kick 30") then
parse ('kick 30')
end
if (txt=="@kick 31") then
parse ('kick 31')
end
if (txt=="@kick 32") then
parse ('kick 32')
end
if (txt=="@ban 1") then
parse ('banip 1')
end
if (txt=="@ban 2") then
parse ('banip 2')
end
if (txt=="@ban 3") then
parse ('banip 3')
end
if (txt=="@ban 4") then
parse ('banip 4')
end
if (txt=="@ban 5") then
parse ('banip 5')
end
if (txt=="@ban 6") then
parse ('banip 6')
end
if (txt=="@ban 7") then
parse ('banip 7')
end
if (txt=="@ban 8") then
parse ('banip 8')
end
if (txt=="@ban 9") then
parse ('banip 9')
end
if (txt=="@ban 10") then
parse ('banip 10')
end
if (txt=="@ban 11") then
parse ('banip 11')
end
if (txt=="@ban 12") then
parse ('banip 12')
end
if (txt=="@ban 13") then
parse ('banip 13')
end
if (txt=="@ban 14") then
parse ('banip 14')
end
if (txt=="@ban 15") then
parse ('banip 15')
end
if (txt=="@ban 16") then
parse ('banip 16')
end
if (txt=="@ban 17") then
parse ('banip 17')
end
if (txt=="@ban 18") then
parse ('banip 18')
end
if (txt=="@ban 19") then
parse ('banip 19')
end
if (txt=="@ban 20") then
parse ('banip 20')
end
if (txt=="@ban 21") then
parse ('banip 21')
end
if (txt=="@ban 22") then
parse ('banip 22')
end
if (txt=="@ban 23") then
parse ('banip 23')
end
if (txt=="@ban 24") then
parse ('banip 24')
end
if (txt=="@ban 25") then
parse ('banip 25')
end
if (txt=="@ban 26") then
parse ('banip 26')
end
if (txt=="@ban 27") then
parse ('banip 27')
end
if (txt=="@ban 28") then
parse ('banip 28')
end
if (txt=="@ban 29") then
parse ('banip 29')
end
if (txt=="@ban 30") then
parse ('banip 30')
end
if (txt=="@ban 31") then
parse ('banip 31')
end
if (txt=="@ban 32") then
parse ('banip 32')
end
if (txt=="@freeze 1") then
parse ('speedmod 1 -30')
end
if (txt=="@freeze 2") then
parse ('speedmod 2 -30')
end
if (txt=="@freeze 3") then
parse ('speedmod 3 -30')
end
if (txt=="@freeze 4") then
parse ('speedmod 4 -30')
end
if (txt=="@freeze 5") then
parse ('speedmod 5 -30')
end
if (txt=="@freeze 6") then
parse ('speedmod 6 -30')
end
if (txt=="@freeze 7") then
parse ('speedmod 7 -30')
end
if (txt=="@freeze 8") then
parse ('speedmod 8 -30')
end
if (txt=="@freeze 9") then
parse ('speedmod 9 -30')
end
if (txt=="@freeze 10") then
parse ('speedmod 10 -30')
end
if (txt=="@freeze 11") then
parse ('speedmod 11 -30')
end
if (txt=="@freeze 12") then
parse ('speedmod 12 -30')
end
if (txt=="@freeze 13") then
parse ('speedmod 13 -30')
end
if (txt=="@freeze 14") then
parse ('speedmod 14 -30')
end
if (txt=="@freeze 15") then
parse ('speedmod 15 -30')
end
if (txt=="@freeze 16") then
parse ('speedmod 16 -30')
end
if (txt=="@freeze 17") then
parse ('speedmod 17 -30')
end
if (txt=="@freeze 18") then
parse ('speedmod 18 -30')
end
if (txt=="@freeze 19") then
parse ('speedmod 19 -30')
end
if (txt=="@freeze 20") then
parse ('speedmod 20 -30')
end
if (txt=="@freeze 21") then
parse ('speedmod 21 -30')
end
if (txt=="@freeze 22") then
parse ('speedmod 22 -30')
end
if (txt=="@freeze 23") then
parse ('speedmod 23 -30')
end
if (txt=="@freeze 24") then
parse ('speedmod 24 -30')
end
if (txt=="@freeze 25") then
parse ('speedmod 25 -30')
end
if (txt=="@freeze 26") then
parse ('speedmod 26 -30')
end
if (txt=="@freeze 27") then
parse ('speedmod 27 -30')
end
if (txt=="@freeze 28") then
parse ('speedmod 28 -30')
end
if (txt=="@freeze 29") then
parse ('speedmod 29 -30')
end
if (txt=="@freeze 30") then
parse ('speedmod 30 -30')
end
if (txt=="@freeze 31") then
parse ('speedmod 31 -30')
end
if (txt=="@freeze 32") then
parse ('speedmod 32 -30')
end
if (txt=="@unfreeze 1") then
parse ('speedmod 1 0')
end
if (txt=="@unfreeze 2") then
parse ('speedmod 2 0')
end
if (txt=="@unfreeze 3") then
parse ('speedmod 3 0')
end
if (txt=="@unfreeze 4") then
parse ('speedmod 4 0')
end
if (txt=="@unfreeze 5") then
parse ('speedmod 5 0')
end
if (txt=="@unfreeze 6") then
parse ('speedmod 6 0')
end
if (txt=="@unfreeze 7") then
parse ('speedmod 7 0')
end
if (txt=="@unfreeze 8") then
parse ('speedmod 8 0')
end
if (txt=="@unfreeze 9") then
parse ('speedmod 9 0')
end
if (txt=="@unfreeze 10") then
parse ('speedmod 10 0')
end
if (txt=="@unfreeze 11") then
parse ('speedmod 11 0')
end
if (txt=="@unfreeze 12") then
parse ('speedmod 12 0')
end
if (txt=="@unfreeze 13") then
parse ('speedmod 13 0')
end
if (txt=="@unfreeze 14") then
parse ('speedmod 14 0')
end
if (txt=="@unfreeze 15") then
parse ('speedmod 15 0')
end
if (txt=="@unfreeze 16") then
parse ('speedmod 16 0')
end
if (txt=="@unfreeze 17") then
parse ('speedmod 17 0')
end
if (txt=="@unfreeze 18") then
parse ('speedmod 18 0')
end
if (txt=="@unfreeze 19") then
parse ('speedmod 19 0')
end
if (txt=="@unfreeze 20") then
parse ('speedmod 20 0')
end
if (txt=="@unfreeze 21") then
parse ('speedmod 21 0')
end
if (txt=="@unfreeze 22") then
parse ('speedmod 22 0')
end
if (txt=="@unfreeze 23") then
parse ('speedmod 23 0')
end
if (txt=="@unfreeze 24") then
parse ('speedmod 24 0')
end
if (txt=="@unfreeze 25") then
parse ('speedmod 25 0')
end
if (txt=="@unfreeze 26") then
parse ('speedmod 26 0')
end
if (txt=="@unfreeze 27") then
parse ('speedmod 27 0')
end
if (txt=="@unfreeze 28") then
parse ('speedmod 28 0')
end
if (txt=="@unfreeze 29") then
parse ('speedmod 29 0')
end
if (txt=="@unfreeze 30") then
parse ('speedmod 30 0')
end
if (txt=="@unfreeze 31") then
parse ('speedmod 31 0')
end
if (txt=="@unfreeze 32") then
parse ('speedmod 32 0')
end
if (txt=="@spec 1") then
parse('makespec 1')
end
if (txt=="@spec 2") then
parse('makespec 2')
end
if (txt=="@spec 3") then
parse('makespec 3')
end
if (txt=="@spec 4") then
parse('makespec 4')
end
if (txt=="@spec 5") then
parse('makespec 5')
end
if (txt=="@spec 6") then
parse('makespec 6')
end
if (txt=="@spec 7") then
parse('makespec 7')
end
if (txt=="@spec 8") then
parse('makespec 8')
end
if (txt=="@spec 9") then
parse('makespec 9')
end
if (txt=="@spec 10") then
parse('makespec 10')
end
if (txt=="@spec 11") then
parse('makespec 11')
end
if (txt=="@spec 12") then
parse('makespec 12')
end
if (txt=="@spec 13") then
parse('makespec 13')
end
if (txt=="@spec 14") then
parse('makespec 14')
end
if (txt=="@spec 15") then
parse('makespec 15')
end
if (txt=="@spec 16") then
parse('makespec 16')
end
if (txt=="@spec 17") then
parse('makespec 17')
end
if (txt=="@spec 18") then
parse('makespec 18')
end
if (txt=="@spec 19") then
parse('makespec 19')
end
if (txt=="@spec 20") then
parse('makespec 20')
end
if (txt=="@spec 21") then
parse('makespec 21')
end
if (txt=="@spec 22") then
parse('makespec 22')
end
if (txt=="@spec 23") then
parse('makespec 23')
end
if (txt=="@spec 24") then
parse('makespec 24')
end
if (txt=="@spec 25") then
parse('makespec 25')
end
if (txt=="@spec 26") then
parse('makespec 26')
end
if (txt=="@spec 27") then
parse('makespec 27')
end
if (txt=="@spec 28") then
parse('makespec 28')
end
if (txt=="@spec 29") then
parse('makespec 29')
end
if (txt=="@spec 30") then
parse('makespec 30')
end
if (txt=="@spec 31") then
parse('makespec 31')
end
if (txt=="@spec 32") then
parse('makespec 32')
end
if (txt=="@freeze all") then
parse('speedmod 1 -30')
parse('speedmod 2 -30')
parse('speedmod 3 -30')
parse('speedmod 4 -30')
parse('speedmod 5 -30')
parse('speedmod 6 -30')
parse('speedmod 7 -30')
parse('speedmod 8 -30')
parse('speedmod 9 -30')
parse('speedmod 10 -30')
parse('speedmod 11 -30')
parse('speedmod 12 -30')
parse('speedmod 13 -30')
parse('speedmod 14 -30')
parse('speedmod 15 -30')
parse('speedmod 16 -30')
parse('speedmod 17 -30')
parse('speedmod 18 -30')
parse('speedmod 19 -30')
parse('speedmod 20 -30')
parse('speedmod 21 -30')
parse('speedmod 22 -30')
parse('speedmod 23 -30')
parse('speedmod 24 -30')
parse('speedmod 25 -30')
parse('speedmod 26 -30')
parse('speedmod 27 -30')
parse('speedmod 28 -30')
parse('speedmod 29 -30')
parse('speedmod 30 -30')
parse('speedmod 31 -30')
parse('speedmod 32 -30')
end
if (txt=="@unfreeze all") then
parse('speedmod 1 0')
parse('speedmod 2 0')
parse('speedmod 3 0')
parse('speedmod 4 0')
parse('speedmod 5 0')
parse('speedmod 6 0')
parse('speedmod 7 0')
parse('speedmod 8 0')
parse('speedmod 9 0')
parse('speedmod 10 0')
parse('speedmod 11 0')
parse('speedmod 12 0')
parse('speedmod 13 0')
parse('speedmod 14 0')
parse('speedmod 15 0')
parse('speedmod 16 0')
parse('speedmod 17 0')
parse('speedmod 18 0')
parse('speedmod 19 0')
parse('speedmod 20 0')
parse('speedmod 21 0')
parse('speedmod 22 0')
parse('speedmod 23 0')
parse('speedmod 24 0')
parse('speedmod 25 0')
parse('speedmod 26 0')
parse('speedmod 27 0')
parse('speedmod 28 0')
parse('speedmod 29 0')
parse('speedmod 30 0')
parse('speedmod 31 0')
parse('speedmod 32 0')
end
if (txt=="@specall") then
parse('makespec 1')
parse('makespec 2')
parse('makespec 3')
parse('makespec 4')
parse('makespec 5')
parse('makespec 6')
parse('makespec 7')
parse('makespec 8')
parse('makespec 9')
parse('makespec 10')
parse('makespec 11')
parse('makespec 12')
parse('makespec 13')
parse('makespec 14')
parse('makespec 15')
parse('makespec 16')
parse('makespec 17')
parse('makespec 18')
parse('makespec 19')
parse('makespec 20')
parse('makespec 21')
parse('makespec 22')
parse('makespec 23')
parse('makespec 24')
parse('makespec 25')
parse('makespec 26')
parse('makespec 27')
parse('makespec 28')
parse('makespec 29')
parse('makespec 30')
parse('makespec 31')
parse('makespec 32')
end
end
end
end

-- Serveraction for Admin&Mod --
addhook("serveraction","adminaction")
function adminaction(id,b)
if b == 1 then
for _, usgn in ipairs(Admins) do
if player(id,'usgn') == usgn then
menu(id,"Admin Menu,Kill every Player|Everyone,Give energie ,Training Rounds Menu,Build Options,Restart Round|In 3 Seconds,Mapchange,Fog of war,Game mode,Admin menu 2")
return 1
end
end
for _, usgn in ipairs(Mods) do
if player(id,'usgn') == usgn then
menu(id,"Mod Menu,Buy Menu,Game mode,Build Options,Hats,Training Rounds,Bot menu")
return 1
end
end
end
end

-- Menu Settings --
addhook("menu","adminmenu")
function adminmenu(id,t,b)
if t=="Admin Menu" then
if b==1 then
msg("©255000000Everyone dies from the admin!@C")
for _, pl in ipairs(player(0, "tableliving")) do
parse("killplayer " .. pl)
end
elseif b==2 then
menu(id,"Admin Energie,Give everyone +10 Energie,Give everyone +20 Energie,Give everyone +30 Energie, Give everyone +50 Energie, Give everyone +100 Energie,Set HP to 50, Set HP to 10")
elseif b==3 then
menu(id,"Training Rounds,M4A1 + AK-47 Round,Knife Round,M3 Round,FN F2000 Round,AWP + SCOUT Round,deadly Round,Mini Round,Laser Round,Portal & M4A1 & AK41 Round")
elseif b==4 then
menu(id,"Build Options,Turrets,Dispenser,Supply,Gate Field")
elseif b==5 then
parse("restartround 3")
elseif b==6 then
menu(id,"Map change,M4A1_Deagle,fr33kz,awp grey,awp mexico,de dust,cs italy,de infernopod,dm_dust,dm_dust_xmas")
elseif b==7 then
menu(id,"Fog of war,ON,OFF")
elseif b==8 then
menu(id,"Game mode,Standard,Deathmatch,Team deathmatch,Constructions,Zombies")
elseif b==9 then
menu(id,"Admin menu 2,Friendly fire,Hats,Freeze time,Info,Start money,Infinite ammo,Bot menu,Admin menu,Admin menu 3")
end

elseif t == "Admin Energie" then
if type(b) == "number" and b > 0 then
if b > 5 then
if b == 6 then
for _, id in ipairs(player(0, "tableliving")) do
parse("sethealth "..id.." 50")
end
elseif b==7 then
for _, id in ipairs(player(0, "tableliving")) do
parse("sethealth "..id.." 10")
end
end
else
local c = { 10, 20, 30, 50, 100 }
for _, id in ipairs(player(0, "tableliving")) do
msg2(id,"©255000000Your Energy increases by " .. c[b] .. "!")
parse('setmaxhealth ' .. id .. ' ' .. player(id, "health") + c[b])
end
end
end
elseif t=="Training Rounds" then
if b==1 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000M4A1,AK-47 Round!@C")
elseif b==2 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 50")
end
msg("©255000000Knife Round!@C")
elseif b==3 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 10")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." 5")
end
msg("©255000000M3 Round!@C")
elseif b==4 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 91")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." -5")
end
msg("©255000000FN F2000 Round!@C")
elseif b==5 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 35")
parse("equip "..pl.." 34")
parse("equip "..pl.." 3")
end
msg("©255000000AWP + SCOUT Round!@C")
elseif b==6 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 46")
parse("equip "..pl.." 47")
parse("equip "..pl.." 90")
end
msg("©255000000deadly Round!@C")
elseif b==7 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 38")
parse("equip "..pl.." 39")
parse("equip "..pl.." 6")
end
msg("©255000000Mini Round!@C")
elseif b==8 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 45")
parse("equip "..pl.." 6")
end
msg("©255000000Laser Round!@C")
elseif b==9 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 88")
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000Portal & M4A1 & AK41 Round!@C")
end
elseif t=="Build Options" then
if b==1 then
menu(id,"Turrets,1 Turret,2 Turrets,5 Turrets,10 Turrets,15 Turrets,20 Turrets,30 Turrets,50 Turrets,Unlimit Turrets")
elseif b==2 then
menu(id,"Dispenser,1 Dispenser,2 Dispenser,5 Dispenser,10 Dispenser,15 Dispenser,20 Dispenser,30 Dispenser,50 Dispenser,Unlimit Dispenser")
elseif b==3 then
menu(id,"Supply,1 Supply,2 Supply,5 Supply,10 Supply,15 Supply,20 Supply,30 Supply,50 Supply,Unlimit Supply")
elseif b==4 then
menu(id,"GateField,1 Gate Field,2 Gate Field,5 Gate Field,10 Gate Field,15 Gate Field,20 Gate Field,30 Gate Field,50 Gate Field,Unlimit Gate Field")
end
elseif t=="Turrets" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Turrets now!")
parse('mp_building_limit "turret" ' .. c[b])
end
elseif t=="Dispenser" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Dispensers now!")
parse('mp_building_limit "dispenser" ' .. c[b])
end 
elseif t=="Supply" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Supplys now!")
parse('mp_building_limit "supply" ' .. c[b])
end 
elseif t=="GateField" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Gate Fields now!")
parse('mp_building_limit "gate field" ' .. c[b])
end
elseif t=="Map change" then
if b==1 then
parse("map aim_m4a1_deagle")
elseif b==2 then
parse("map aim_fr33kz")
elseif b==3 then
parse("map awp_grey")
elseif b==4 then
parse("map awp_mexico")
elseif b==5 then
parse("map de_dust")
elseif b==6 then
parse("map cs_italy")
elseif b==7 then
parse("map de_infernopod")
elseif b==8 then
parse("map dm_dust")
elseif b==9 then
parse("map dm_dust_xmas")
end
elseif t=="Fog of war" then
if b==1 then
parse("sv_fow 1")
elseif b==2 then
parse("sv_fow 2")
end
elseif t=="Game mode" then
if b==1 then
parse("sv_gamemode 0")
elseif b==2 then
parse("sv_gamemode 1")
elseif b==3 then
parse("sv_gamemode 2")
elseif b==4 then
parse("sv_gamemode 3")
elseif b==5 then
parse("sv_gamemode 4")
end
elseif t=="Admin menu 2" then
if b==1 then
menu(id,"Friendly fire,ON,OFF")
elseif b==2 then
menu(id,"Hats,Sonic,No Hat")
elseif b==3 then
menu(id,"Freeze time,No sec [0],3 Sec,5 Sec")
elseif b==4 then
msg2(id,"©999999999Server Name: "..game("sv_name"))
msg2(id,"©999999999Script made by : Pirates killer")
msg2(id,"©999999999Script version : 0.1.2")
elseif b==5 then
menu(id,"Start money,2000$,4500$,8000$,16000$")
elseif b==6 then
menu(id,"Infinite ammo,ON,OFF")
elseif b==7 then
parse("bot")
elseif b==8 then
menu(id,"Admin Menu,Kill every Player|Everyone,Give energie ,Training Rounds Menu,Build Options,Restart Round|In 3 Seconds,Mapchange,Fog of war,Game mode,Admin menu 2")
elseif b==9 then
menu(id,"Admin menu 3,God mode|"..godMode[id]..",Admin color chat|"..admin_color_name[color_admin[id]]..",,,,,,Admin menu,Admin menu 2")
end
elseif t=="Admin menu 3" then
if b==1 and godMode[id]==0 then
msg2(id,"GodMode Activated")
godMode[id]=1
elseif b==1 and godMode[id]==1 then
msg2(id,"GodMode Deactivated")
godMode[id]=0
elseif b==2 then
menu(id,"Admin color chat,White,Green,Brown,Purple,Blue,Red,Cyan,Lime,Admin menu 3")
elseif b==8 then
menu(id,"Admin Menu,Kill every Player|Everyone,Give energie ,Training Rounds Menu,Build Options,Restart Round|In 3 Seconds,Mapchange,Fog of war,Game mode,Admin menu 2")
elseif b==9 then
menu(id,"Admin menu 2,Friendly fire,Hats,Freeze time,Info,Start money,Infinite ammo,Bot menu,Admin menu,Admin menu 3")
end
elseif t=="Admin color chat" then
if b==1 then
color_admin[id]=0
msg2(id,""..admincolor[color_admin[id]].."Your color chat is "..admin_color_name[color_admin[id]].."")
elseif b==2 then
color_admin[id]=1
msg2(id,""..admincolor[color_admin[id]].."Your color chat is "..admin_color_name[color_admin[id]].."")
elseif b==3 then
color_admin[id]=2
msg2(id,""..admincolor[color_admin[id]].."Your color chat is "..admin_color_name[color_admin[id]].."")
elseif b==4 then
color_admin[id]=3
msg2(id,""..admincolor[color_admin[id]].."Your color chat is "..admin_color_name[color_admin[id]].."")
elseif b==5 then
color_admin[id]=4
msg2(id,""..admincolor[color_admin[id]].."Your color chat is "..admin_color_name[color_admin[id]].."")
elseif b==6 then
color_admin[id]=5
msg2(id,""..admincolor[color_admin[id]].."Your color chat is "..admin_color_name[color_admin[id]].."")
elseif b==7 then
color_admin[id]=6
msg2(id,""..admincolor[color_admin[id]].."Your color chat is "..admin_color_name[color_admin[id]].."")
elseif b==8 then
color_admin[id]=7
msg2(id,""..admincolor[color_admin[id]].."Your color chat is "..admin_color_name[color_admin[id]].."")
elseif b==9 then
menu(id,"Admin menu 3,God mode|"..godMode[id]..",Admin color chat|"..admin_color_name[color_admin[id]]..",,,,,,Admin menu,Admin menu 2")
end
elseif t=="Friendly fire" then
if b==1 then
parse("sv_friendlyfire 1")
elseif b==2 then
parse("sv_friendlyfire 2")
end
elseif t=="Hats" then
if b==1 then
freeimage(id)
id1=image("gfx/hc/attribs/sonic.png",1,1,200+id)
imagealpha(id1,1.0)
elseif b==2 then
freeimage(id)
imagealpha(id1,1.0)
end
elseif t=="Freeze time" then
if b==1 then
parse("mp_freezetime 0")
elseif b==2 then
parse("mp_freezetime 3")
elseif b==3 then
parse("mp_freezetime 5")
end
elseif t=="Start money" then
if b==1 then
parse("mp_startmoney 2000")
elseif b==2 then
parse("mp_startmoney 4500")
elseif b==3 then
parse("mp_startmoney 8000")
elseif b==4 then
parse("mp_startmoney 16000")
end
elseif t=="Infinite ammo" then
if b==1 then
parse("mp_infammo 1")
elseif b==2 then
parse("mp_infammo 0")
end
elseif t=="Mod Menu" then
if b==1 then
menu(id,"Buy Menu,Gas Grenade|3.000$,Shield|3.000$,Chainsaw|6.500$,Wrench|4.500$")
elseif b==2 then
menu(id,"Game mode,Standard,Deathmatch,Team deathmatch,Constructions,Zombies") 
elseif b==3 then
menu(id,"Build Options,Turrets,Dispenser,Supply,Gate Field")
elseif b==4 then
menu(id,"Hats,Sonic,No Hat")
elseif b==5 then
menu(id,"Training Rounds,M4A1 + AK-47 Round,Knife Round,M3 Round,FN F2000 Round,AWP + SCOUT Round,deadly Round,Mini Round,Laser Round,Portal & M4A1 & AK41 Round")
elseif b==6 then
parse("bot")
end 
elseif t=="Buy Menu" then
local a, c = { 3000, 3000, 6500, 4500 }, { 72, 41, 85, 74 }
if type(b) == "number" and b > 0 and b < 5 then
if player(id, "money") >= a[b] then
msg2(id,"©255000000You bought a " .. itemtype(c[b], "name") .. "!@C")
parse("equip " .. id .. " " .. c[b])
parse("setmoney " .. id .. " " .. player(id, "money") - a[b])
end
elseif t=="Game mode" then
if b==1 then
parse("sv_gamemode 0")
elseif b==2 then
parse("sv_gamemode 1")
elseif b==3 then
parse("sv_gamemode 2")
elseif b==4 then
parse("sv_gamemode 3")
elseif b==5 then
parse("sv_gamemode 4")
end
elseif t=="Build Options" then
if b==1 then
menu(id,"Turrets,1 Turret,2 Turrets,5 Turrets,10 Turrets,15 Turrets,20 Turrets,30 Turrets,50 Turrets,Unlimit Turrets")
elseif b==2 then
menu(id,"Dispenser,1 Dispenser,2 Dispenser,5 Dispenser,10 Dispenser,15 Dispenser,20 Dispenser,30 Dispenser,50 Dispenser,Unlimit Dispenser")
elseif b==3 then
menu(id,"Supply,1 Supply,2 Supply,5 Supply,10 Supply,15 Supply,20 Supply,30 Supply,50 Supply,Unlimit Supply")
elseif b==4 then
menu(id,"GateField,1 Gate Field,2 Gate Field,5 Gate Field,10 Gate Field,15 Gate Field,20 Gate Field,30 Gate Field,50 Gate Field,Unlimit Gate Field")
end
elseif t=="Turrets" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Turrets now!")
parse('mp_building_limit "turret" ' .. c[b])
end
elseif t=="Dispenser" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Dispensers now!")
parse('mp_building_limit "dispenser" ' .. c[b])
end 
elseif t=="Supply" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Supplys now!")
parse('mp_building_limit "supply" ' .. c[b])
end 
elseif t=="GateField" then
if type(b) == "number" and b > 0 then
local c = { 1, 2, 5, 10, 15, 20, 30, 50, 9999 }
msg("©255000000You can build " .. c[b] .. " Gate Fields now!")
parse('mp_building_limit "gate field" ' .. c[b])
end
elseif t=="Hats" then
if b==1 then
freeimage(id)
id1=image("gfx/hc/attribs/sonic.png",1,1,200+id)
imagealpha(id1,1.0)
elseif b==2 then
freeimage(id)
imagealpha(id1,1.0)
end
elseif t=="Training Rounds" then
if b==1 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000M4A1,AK-47 Round!@C")
elseif b==2 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 50")
end
msg("©255000000Knife Round!@C")
elseif b==3 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 10")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." 5")
end
msg("©255000000M3 Round!@C")
elseif b==4 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 91")
parse("equip "..pl.." 3")
parse("speedmod "..pl.." -5")
end
msg("©255000000FN F2000 Round!@C")
elseif b==5 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 35")
parse("equip "..pl.." 34")
parse("equip "..pl.." 3")
end
msg("©255000000AWP + SCOUT Round!@C")
elseif b==6 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 46")
parse("equip "..pl.." 47")
parse("equip "..pl.." 90")
end
msg("©255000000deadly Round!@C")
elseif b==7 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 38")
parse("equip "..pl.." 39")
parse("equip "..pl.." 6")
end
msg("©255000000Mini Round!@C")
elseif b==8 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 45")
parse("equip "..pl.." 6")
end
msg("©255000000Laser Round!@C")
elseif b==9 then
for _, pl in ipairs(player(0, "tableliving")) do
parse("strip "..pl)
parse("equip "..pl.." 88")
parse("equip "..pl.." 32")
parse("equip "..pl.." 30")
parse("equip "..pl.." 3")
end
msg("©255000000Portal & M4A1 & AK41 Round!@C")
end
end
end
end

-------------god mode --------------------
addhook("hit","_hit")
function _hit(id)
if godMode[id]==1 then
return 1
end
end 

--Array function
function array(m, d)
	local a = {}
	for id = 1, m do
		a[id] = d
	end
	return a
end

--arrays
mousex = array(32, 0)
mousey = array(32, 0)
grabstate = array(32, 0)
grabbedby = array(32, 0)
grabbedvictim = array(32, 0)
reason = array(32, 0)


--hooks
print('©255255000Hooks Initialising...')
addhook('serveraction', 'menuCall')
addhook('menu', 'menuCheck')
addhook('attack', 'sendClientData')
addhook('clientdata', 'getGrab')
addhook('ms100', 'followMouse')
addhook('die', 'dieUnGrab')

print('©255255000Hooks initialising finished')

print('©255255000Function initialising...')

--functions
print('©255255255Call menu')
function menuCall(id, action)
	if action == 2 then
		for adm = 1, #Admins 
			if player(id, 'usgn') == Admins[adm] then
				if grabstate[id] == 0 then
					menu(id, 'Fun menu, Turn grap player ON')
				elseif grabstate[id] == 1 then
					menu(id, 'Fun menu, Turn grab player OFF')
				end
			end
		end
	end
end

print('©255255255Check menu')

function menuCheck(id, title, button)
	if title == 'Fun menu' then
		grabstate[id] = 1
	elseif title == 'Fun menu' then
		grabstate[id] = 0
	end
end

print('©255255255Send client data')

function sendClientData(id)
	if grabbedvictim[id] ~= 0 then
		parse('speedmod '.. grabbedvictim[id] ..' 0')
		grabbedby[grabbedvictim[id]] = 0
		grabbedvictim[id] = 0
	elseif grabbedvictim[id] == 0 and grabstate[id] == 1 then
		reason[id] = 1
		reqcld(id, 2)
	end
end

print('©255255255Get client data')

function getGrab(id, mode, data1, data2)
	if grabstate[id] == 1 and mode == 2 then
		if reason[id] == 1 then
			mousex[id] = math.floor(data1/32)
			mousey[id] = math.floor(data2/32)
			for p = 1, 32 do
				if player(p, 'tilex') == mousex[id] and player(p, 'tiley') == mousey[id] then
					if grabbedvictim[id] == 0 then
						if grabbedvictim[p] == 0 then
							grabbedvictim[id] = p
							grabbedby[p] = id
						else
							msg2('©255000000You cant grab him, he already grab someone!')
						end
					end
				end
			end
		end
		if reason[id] == 2 then
			if grabbedvictim[id] ~= id then
				mousex[id] = math.floor(data1/32)
				mousey[id] = math.floor(data2/32)
				parse('speedmod '.. grabbedvictim[id] ..' -100')
				parse('setpos '.. grabbedvictim[id] ..' '.. mousex[id] * 32 + 16 ..' '.. mousey[id] * 32 + 16)
			else
				msg2(id, 'You cant grab yourself!')
				grabbedby[grabbedvictim[id]] = 0
				grabbedvictim[id] = 0
			end
		end
	end
end

print('©255255255Get mouse data')

function followMouse()
	for id = 1, 32 do
		if grabbedby[id] ~= 0 then
			reason[grabbedby[id]] = 2
			reqcld(grabbedby[id], 2)
		end
	end
end

print('©255255255Die ungrab')

function dieUnGrab(victim, killer, weapon, x, y)
	if grabbedvictim[victim] ~= 0 then
		parse('speedmod '.. grabbedvictim[victim] ..' 0')
		grabbedvictim[victim] = 0
		grabbedby[grabbedvictim[victim]] = 0
	end
	if grabbedby[victim] ~= 0 then
		parse('speedmod '.. victim ..' 0')
		grabbedvictim[grabbedby[victim]] = 0
		grabbedby[victim] = 0
	end
end

print('©255255000Function initialising finished')

print('©255255000Script loaded succesfully!')
print('©255255000Script loaded succesfully!')