--[[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