function initArray2(f,v)
	local cmd={}
	for c=1,f do
		cmd[c]=v
	end
	return cmd
end

config = {
	startdmg = 1,		--This is the first dmg of Pet
	startaccuracy = 1,		--This is the first accuracy point of pet (it >0) 
	updmgcost = 1,		--Up Pet's dmg price
	addeddmg = 1,		--This dmg will be added to Pet's dmg in one up
	upaccuracycost = 1,	--Up Pet's accuracy price
	addedaccuracy = 1,	--This point will be added to Pet's accuracy in one up
	--added stuff
	startrange=80,--in pixels, i guess. it gets used in distance formula calculation. for reference: 32 pixels is 1 tile length
	uprangecost=1,
	addedrange=1
}
sa=3--the serveraction for menu (1=f2,2=f3,3=f4)
Con = {lvl = 0,x = 0,y = 0,rot = 0,tg = 0,dmg = 0, accuracy = 0,exist = 0,range = 0}
Pet = initArray2(32,Con)
petimages={}
timer(10000,"fillimages")
function fillimages()
	for i=1,32 do
		petimages[i]=image("gfx/pet.bmp",0,0,1)
	end
end

addhook('join','join')
function join(id)
	Pet[id]={lvl = 1,x = 0,y = 0, rot = 0, tg = 0, dmg = config.startdmg, accuracy = config.startaccuracy,exist = 0,range=config.startrange}
end

addhook("leave","existomatic")
function existomatic(id)
	Pet[id].exist=0
	Pet[id].x=0
	Pet[id].y=0
	Pet[id].tg=0
	imagepos(petimages[id],0,0,0)
end

addhook('serveraction','sv_act')
function sv_act(id,act)
	if act==sa then
		minimenu(id)
	end
end

function minimenu(id)
	local ex=""
	if Pet[id].exist==1 then ex="Off" else ex="On" end
	menu(id,"Pet Menu,Pet "..ex..",Pet information,Up "..config.addeddmg.." Dmg|"..config.updmgcost..",Up "..config.addedaccuracy.." Accuracy|"..config.upaccuracycost..",Up 10 Range|2012")
end

addhook('menu','mn')
function mn(id,t,b)
	if t=="Pet Menu" then
		if b==1 then
			if Pet[id].exist==0 then
				Pet[id].exist=1
				imagepos(petimages[id],player(id,"x"),player(id,"y"),0)
			else
				Pet[id].exist=0
				Pet[id].x=0
				Pet[id].y=0
				Pet[id].tg=0
				imagepos(petimages[id],0,0,0)
			end
		elseif b==2 then
			local ex=""
			if Pet[id].exist==1 then ex="Yes" else ex="No" end 
			menu(id,"Pet Infomation,Dmg|"..Pet[id].dmg..",Accuracy|"..Pet[id].accuracy..",Exists|"..ex..",Range|"..Pet[id].range.."")
		elseif b==3 then
			if player(id,'money')>=config.updmgcost then
				Pet[id].dmg=Pet[id].dmg + config.addeddmg
				parse("setmoney "..id.." "..player(id,'money')-config.updmgcost)
				minimenu(id)
				msg2(id,"©000255000Successful!@C")
			else
				msg2(id,"©255000000Dont have enough money!@C")
			end
		elseif b==4 then
			if player(id,'money')>=config.upaccuracycost then
				Pet[id].accuracy=Pet[id].accuracy + config.addedaccuracy
				parse("setmoney "..id.." "..player(id,'money')-config.upaccuracycost)
				minimenu(id)
				msg2(id,"©000255000Successful!@C")
			else
				msg2(id,"©255000000Dont have enough money!@C")
			end
		elseif b==5 then
			if player(id,'money')>=config.uprangecost then
				Pet[id].range=Pet[id].range+config.addedrange
				parse("setmoney "..id.." "..player(id,"money")-config.uprangecost)
				minimenu(id)
				msg2(id,"©000255000Successful!@C")
			else
				msg2(id,"©255000000Dont have enough money!@C")
			end
		end
	end
end

function checkfreeline(x1, y1, x2, y2)
	local len = math.floor(math.sqrt((x1 - x2)^2 + (y1 - y2)^2))
	local c=-math.deg(math.atan2(x1 - x2, y1 - y2))
	local d=math.sin(math.rad(c))
	local e=-math.cos(math.rad(c))
	for k = 0,len,16 do--this can be readjusted for accuracy or performance; make 16 larger for performance, closer to 1 for accuracy. 16 is just my recommended optimization
		if tile(math.floor((x1+d*k)/32),math.floor((y1+e*k)/32),"wall") then
			return false
		end
	end
	return true
end

addhook('second','sec')
function sec()
	local tblL=player(0,"tableliving")
	for _,id in ipairs(tblL) do
		if Pet[id].exist==1 then
			Pet[id].tg = 0
			for _,i in ipairs(tblL) do
				if player(i,'team')~= player(id,'team') then
					if checkfreeline(Pet[id].x , Pet[id].y , player(i,'x') , player(i,'y')) then
						local cls = math.sqrt((Pet[id].x - player(i,'x'))^2 + (Pet[id].y - player(i, 'y'))^2)
						if cls<Pet[id].range then
							Pet[id].tg = i
							fire(id)
							return
						else
							Pet[id].tg = 0
						end
					end
				end
			end
			Pet[id].x = player(id,'x')
			Pet[id].y = player(id,'y')
			tween_move(petimages[id],1000,Pet[id].x,Pet[id].y)
		end
	end
end

function fire(id)
	local img=image("gfx/petfire.bmp",0,0,1)
	rot = -math.deg(math.atan2(Pet[id].x - player(Pet[id].tg, 'x'), Pet[id].y - player(Pet[id].tg, 'y'))) 
	imagepos(img,Pet[id].x,Pet[id].y,rot)
	tween_move(img,200, player(Pet[id].tg,'x') , player(Pet[id].tg,'y'))
	timer(200,"freeimage",img)
	if math.random(0,Pet[id].accuracy)~=0 then
		if player(Pet[id].tg,'health')>Pet[id].dmg then
			timer(200,"parse","sethealth "..Pet[id].tg.." "..player(Pet[id].tg,'health')-Pet[id].dmg)
			timer(200,"parse","explosion "..player(Pet[id].tg,"x").." "..player(Pet[id].tg,"y").." "..(Pet[id].dmg*4+32).." 1 "..id)
		else
			timer(200,"parse","customkill "..id.." \"Uber Missile\" "..Pet[id].tg)
		end
		Pet[id].tg = 0
	end
end