--[[Constants]]--



rpiconst = 180 / math.pi

imagepath = "sys/lua/rocketmod/Rocket.png" -- path to image

speed = 15 --speed of rocket

dmg = 100 --damage the rocket does

turnrate = 20 --@depricated turnrate of the rocket

tileconst =32 --width/height of tile

collisionradius = 200 -- the radius in which the rocket will do damage

money = 1000
pl={}
pl.x={}
pl.y={}





--[[ Table setups! ]]--





ROCKETS = {} -- table to store all rockets

rocket = {}

rocket_mt = { __index = rocket}

rocketmod = {}



--[[ Hooks! ]]--


addhook("attack","boom")
function boom(id)
	for _k,_v in ipairs(ROCKETS) do

		if(id == _v.pid) then

			_v:explode()

			break

		end

	end
end


addhook("serveraction","rocketmod.serveraction")

function rocketmod.serveraction(id,action)

	if action == 1 then



		if(buyItem(id,money)) then

			local fb = rocket:new(player(id,"x"),player(id,"y"),toRad(player(id,"rot")),player(id,"rot"),id)

			table.insert(ROCKETS,fb)

			fb.id = #ROCKETS

			fb:draw() -- draw once to get an imageid

		end

	end



	if action == 2 then

		msg2(id,"attack to explode!")

	end

end



addhook("ms100","my_ms100")

function my_ms100()

	for i,v in ipairs(ROCKETS) do
		reqcld(1,2)--change to "reqcld(0,2)" when playing with other real players (with bots leave it as it is)

		v:update()

	end

end






--[[



	Below here is the rocket class!



	]]--





function rocket:new(x,y,dir,rot,playerid)

	return setmetatable({x=x,y=y,dir=dir,rot=rot,id = nil,imageid = nil,pid = playerid},rocket_mt)

end



function rocket:draw()

	self.imageid = image(imagepath,self.x,self.y,1)

	imagepos(self.imageid,self.x,self.y,self.rot)

	imagescale(self.imageid,0.6,0.6)

end



function rocket:explode()

	parse(string.format("%s %i %i %i %i %i","explosion",self.x,self.y,collisionradius,dmg,self.pid))

	self:destroy()

end


addhook("clientdata","getCursorPos")
function getCursorPos(id,mode,d1,d2)
	pl.x[id]=d1
	pl.y[id]=d2
end


function rocket:update()
	local dis = math.sqrt((self.x-pl.x[self.pid])*(self.x-pl.x[self.pid])+(self.y-pl.y[self.pid])*(self.y-pl.y[self.pid]))
	self.y = self.y - ((self.y-pl.y[self.pid])/dis)*speed

	self.x = self.x - ((self.x-pl.x[self.pid])/dis)*speed

	tween_rotate(self.imageid,1,math.deg(math.atan((self.y-pl.y[self.pid])/(self.x-pl.x[self.pid])))-90) --some problem here :)



	--Map boundaries collision

	if(self.x > (map("xsize")*tileconst) or self.x < 0 or self.y > (map("ysize")*tileconst) or self.y < 0) then

		self:destroy()

	else

		imagepos(self.imageid,self.x,self.y,self.rot)

	end

end



function rocket:destroy()

	freeimage(self.imageid)



	table.remove(ROCKETS,self.id)



	for i,m in ipairs(ROCKETS) do

		m.id = i

	end

end



function rocket:collision(playerid)

	if((self.x > player(playerid,"x") - collisionradius) and (self.x <  player(playerid,"x") + collisionradius)) then

		if((self.y > player(playerid,"y") - collisionradius) and (self.y <  player(playerid,"y") + collisionradius)) then

			return true

		end

	end

	return false

end



function rocket:turn(rate)

	self.dir = self.dir + toRad(rate)

	self.rot = self.rot + rate

end



--[[ Additional functions ]]--



function buyItem(id,price)

	cm = player(id,"money")

	if(cm>=price) then

		parse("setmoney "..id.." "..cm-price)

		return true

	else

		msg2(id,"©255000000 You have insufficient funds!")

		return false

	end

end





function toRad(deg)

	return ((deg-90)/ rpiconst)

end