function equip(id,wid)
parse('equip '..id..' '..wid)
end

function setarmor(id,a)
parse('setarmor '..id..' '..a)
end

function setmaxhealth(id,h)
parse('setmaxhealth '..id..' '..h)
end

function speedmod(id,speed)
parse("speedmod "..id.." "..speed)
end

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

mx = Array(32,0)
my = Array(32,0)

timer(150,"requestdata","",0)


function requestdata()
	reqcld(0,2)
end

addhook("spawn","mnu")
function mnu(id)
	if (player(id,"team")==2) then
		menu(id,"Survivor Menu,Pick Class From Map,Blocker,Tank,Attack Freak,The Noob,Trickster")
	elseif (player(id,"team")==1) then
		menu(id,"Zombie Classes,Normal Zombie,Ninja,Tank Zombie,Pyro Zombie,Ripper Zombie,Scout Zombie")
	end
end

addhook("die","nodeathdrop")
function nodeathdrop()
	return 1
end

addhook("drop","nodrop")
function nodrop()
	return 1
end
addhook("walkover","nowalk")
function nowalk(id,iid,type)
     if (type>=61 and type<=68) then
          return 0
		end
		return 1
	end

addhook("endround","botkick")
function botkick()
	parse("bot_remove_all")
end

addhook("clientdata","clientdata")
function clientdata(id,mode,x,y)
	if mode == 2 then
		mx[id] = x
		my[id] = y
	end
end

addhook("attack","client")
function client(id)
	if (player(id,"team")==2) then
		if player(id,"weapon") == 78 then
			parse("setpos "..id.." "..mx[id].." "..my[id].."")
		end
	end
	if player(id,"weapontype") == 69 then
		reqcld(id,2)
		parse("explosion "..cx[id].." "..cy[id].." 75 5000 "..id)
	end
end

cx={50}
cy={50}

addhook("clientdata","reccd")
function reccd(id,mode,x,y)
	if (mode==2) then
	cx[id]=x
	cy[id]=y
	end
end

addhook("say","_say")
function _say(id,message)
    if string.lower(message)=="!team" then
        toggleTeam(id)
		return 1
    end
end

function toggleTeam(id)
    if player(id,"team")~=0 then
        if player(id,"health")>0 then
            if player(id,"team")==1 then
                parse("makect "..id)
            else
               parse("maket "..id)
               end
               parse("setdeaths "..id.." "..player(id,"deaths")-1)
        end
    end
end


addhook("minute","makemsg")
function makemsg()
	msg("If you want to be a Survivor, type: !team")
	parse("bot_add_t")
	parse("bot_add_t")
	parse("bot_add_t")
end


------------
-- CONFIG --
------------
HP = 3 -- how many HP will be added per second?
------------

addhook("second", "every_second")
function every_second()
	players = player(0, "tableliving") -- get all living players IDs
	if #players > 0 then -- is anybody alive?
		table.foreach( players, Heal ) -- if is, then heal :)
	end
end

function Heal(_index)
	id = players[_index]
	plus = player(id, "health")+HP -- calculate final HP
	parse("sethealth "..id.." "..plus) -- make it happen
end

addhook("startround","antifreeze")
function antifreeze()
	parse("bot_freeze 0")
end

addhook("kill","no_money")
function no_money(id)
	parse("setmoney "..id.." "..(player(id,"money")-295))
end

function shopmenu(id)
		menu(id,"Shop,Weapons,Equipment,Next")
	end

addhook("use","gunbuy")
function gunbuy(id,event,data,x,y)
	if (x == 43 and y == 62) then
		shopmenu(id)
	end
end

addhook("menu", "smenu")
function smenu(id,title,button)
	if title=="Shop" then
		if button == 1 then
			menu(id,"Weapons Page 1,Mac10|15Pts.,Shotgun|30Pts.,Ak-47|60Pts.,P90|120Pts.,Rocket Launcher|200Pts.,Divine Blade|600Pts.,Claw of Teleportation|650Pts.,Wrench|700Pts.,Back")
		elseif button == 2 then
			menu(id,"Equipment,HE|5Pts.,Molotov Cocktail|15Pts.,Gas Grenade|30Pts.,Speed|50Pts.,150 HP|100Pts.,Armor 50%|200Pts.,Air Strike|400Pts.,Back")
		elseif button == 3 then
			menu(id,"Special Stuff,Super Armor|450Pts.,Laser|600Pts.,Medic Armor|350Pts.,Tactical Shield|125Pts.,Stealth Suit|250Pts.,Back")
		end
		
	elseif title=="Weapons Page 1" then
		if button == 1 then
			if player(id,"money")>=15 then
				equip(id,23)
				parse("setmoney "..id.." "..(player(id,"money")-15))
			end
		elseif button == 2 then
			if player(id,"money")>=30 then
				equip(id,11)
				parse("setmoney "..id.." "..(player(id,"money")-30))
			end
		elseif button == 3 then
			if player(id,"money")>=60 then
				equip(id,30)
				parse("setmoney "..id.." "..(player(id,"money")-60))
			end
		elseif button == 4 then
			if player(id,"money")>=120 then
				equip(id,22)
				parse("setmoney "..id.." "..(player(id,"money")-120))
			end
		elseif button == 5 then
			if player(id,"money")>=200 then
				equip(id,48)
				parse("setmoney "..id.." "..(player(id,"money")-200))
			end
		elseif button == 6 then
			if player(id,"money")>=600 then
				equip(id,69)
				parse("setmoney "..id.." "..(player(id,"money")-600))
			end
		elseif button == 7 then
			if player(id,"money")>=650 then
				equip(id,78)
				parse("setmoney "..id.." "..(player(id,"money")-650))
			end
		elseif button == 8 then
			if player(id,"money")>=700 then
				equip(id,74)
				parse("setmoney "..id.." "..(player(id,"money")-700))
			end
		elseif button == 9 then
			shopmenu(id)
			
	elseif title=="Equipment" then
		if button == 1 then
			if player(id,"money")>=5 then
				equip(id,51)
				parse("setmoney "..id.." "..(player(id,"money")-5))
			end
		elseif button == 2 then
			if player(id,"money")>=15 then
				equip(id,73)
				parse("setmoney "..id.." "..(player(id,"money")-15))
			end
		elseif button == 3 then
			if player(id,"money")>=30 then
				equip(id,72)
				parse("setmoney "..id.." "..(player(id,"money")-30))
			end
		elseif button == 4 then
			if player(id,"money")>=50 then
				parse("speedmod "..id.." "..player(id,"speedmod")+2)
				parse("setmoney "..id.." "..(player(id,"money")-50))
			end
		elseif button == 5 then
			if player(id,"money")>=100 then
				setmaxhealth(id,150)
				parse("setmoney "..id.." "..(player(id,"money")-100))
			end
		elseif button == 6 then
			if player(id,"money")>=200 then
				equip(id,80)
				parse("setmoney "..id.." "..(player(id,"money")-200))
			end
		elseif button == 7 then
			if player(id,"money")>=400 then
				equip(id,76)
				parse("setmoney "..id.." "..(player(id,"money")-400))
			end
			
		elseif button == 8 then
			shopmenu(id)
	elseif title=="Special Stuff" then
		if button == 1 then
			if player(id,"money")>=450 then
				equip(id,83)
				parse("setmoney "..id.." "..(player(id,"money")-450))
			end
		elseif button == 2 then
			if player(id,"money")>=600 then
				equip(id,45)
				parse("setmoney "..id.." "..(player(id,"money")-600))
			end
		elseif button == 3 then
			if player(id,"money")>=350 then
				equip(id,82)
				parse("setmoney "..id.." "..(player(id,"money")-350))
			end
		elseif button == 4 then
			if player(id,"money")>=125 then
				equip(id,41)
				parse("setmoney "..id.." "..(player(id,"money")-125))
			end
		elseif button == 5 then
			if player(id,"money")>=250 then
				equip(id,84)
				parse("setmoney "..id.." "..(player(id,"money")-250))
			end
		elseif button == 6 then
			shopmenu(id)
			
	elseif title=="Survivor Classes" then
		if button == 1 then
			parse("strip "..id)
			end
		elseif button == 2 then
			parse("strip "..id)
			equip(id,41)
			equip(id,39)
			equip(id,81)
			speedmod(id,-10)
			end
		elseif button == 3 then
			parse("strip "..id)
			equip(id,47)
			equip(id,81)
			speedmod(id,-20)
			end
		elseif button == 4 then
			parse("strip "..id)
			equip(id,32)
			equip(id,35)
			equip(id,10)
			equip(id,85)
			equip(id,5)
			speedmod(id,15)
			end
		elseif button == 5 then
			parse("strip "..id)
			setmaxhealth(id,1)
			equip(id,45)
			speedmod(id,-5)
		elseif button == 6 then
			parse("strip "..id)
			equip(id,88)
			equip(id,77)
			equip(id,87)
			speedmod(id,5)
			
	elseif title=="Zombie Classes" then
		if button == 1 then
			parse("strip "..id)
			end
		elseif button == 2 then
			parse("strip "..id)
			equip(id,84)
			equip(id,69)
			setmaxhealth(id,30)
		elseif button == 3 then 
			parse("strip "..id)
			equip(id,47)
			equip(id,81)
			speedmod(id,-20)
			setmaxhealth(id,125)
		elseif button == 4 then
			parse("strip "..id)
			equip(id,46)
			equip(id,79)
			setmaxhealth(id,110)
		elseif button == 5 then
			parse("strip "..id)
			equip(id,85)
			speedmod(id,7)
			setmaxhealth(id,115)
		elseif button == 6 then
			parse("strip"..id)
			equip(id,21)
			setmaxhealth(id,50)
			speedmod(id,15)
			end
		end