Mothback/data/scripts/entities/kupo.lua

Kupo = Entity:New(x,y)

 function Kupo:New(x,y)
 	local o = Entity:New(x,y)

 	o.pos = {x = x, y = y}
  o.speed = 20
  o.range = 200
  o.target = {x = x, y = y}
	o.sprite_offset = {x = 8, y = 5}
  -- kupo bow
  o.bow = self:NewAnimation(animation.kupo.bow)
  o.bow_flip = 1
  o.bow_rotation = 0
  o.bow_frame = 1
  o.bow_subframe = 1
  o.bow_aim_frame = 0
  o.bow_speed = 1/10
  o.bow_frames = 6
  o.bow_extraframes = 18
  o.bow_aim_frames = 8
 	setmetatable(o, self)
 	self.__index = self

 	return o
 end

function Kupo:Smart()

  self.target.x = main_Player.pos.x - main_Player.target_offset.x
  self.target.y = main_Player.pos.y - main_Player.target_offset.y
  local distance_x = self.target.x - self.pos.x
  local distance_y = self.target.y - self.pos.y
  local distance = math.sqrt(distance_x ^ 2 + distance_y ^ 2)
  local angle = math.atan(distance_y/distance_x)

  if distance <= self.range then
    self.draw_bow = true

    if distance_x > 0 then
      self.sprite_flip.x = 1
    else
      angle = angle + math.rad(180)
        self.sprite_flip.x = -1
    end

    -- fix so it can rotate from 0 to 360
    if math.deg(self.bow_rotation - angle) < 0 then
      self.bow_rotation = self.bow_rotation + math.rad(360)
    end

    -- fix so it can rotate from 360 to 0
    if math.deg(self.bow_rotation - angle) > 180 then
      self.bow_rotation = self.bow_rotation - math.rad(360)
    end

    -- actual rotation
    if self.bow_rotation < angle then
      self.bow_rotation = self.bow_rotation + math.rad(2)
    else
      self.bow_rotation = self.bow_rotation - math.rad(2)
    end
    --set in place
    if math.abs(math.deg(self.bow_rotation) - math.deg(angle)) < 2 then
        self.bow_rotation = angle
    end

    -- holding tight dispersion -- also affets arrows
    if self.bow_rotation == angle then
      self.bow_rotation = self.bow_rotation + math.rad(math.random(math.abs(self.bow_frame-self.bow_aim_frames-self.bow_frames)/2))
    end

    -- AIMING AI

      self.bow_subframe = self.bow_subframe + current_dt

    if self.bow_subframe > self.bow_speed then
      self.bow_subframe = self.bow_subframe - self.bow_speed
      if self.bow_frame == 3 then
        self.bow_aim_frame = self.bow_aim_frame + 1
        if self.bow_aim_frame > self.bow_aim_frames then
          self.bow_aim_frame = self.bow_aim_frame - self.bow_aim_frames
          self.bow_frame = self.bow_frame + 1
          Arrow:New(self.pos.x,self.pos.y,self.bow_rotation,15)
        end
      else
        self.bow_frame = self.bow_frame + 1
      end
      if self.bow_frame > self.bow_frames + self.bow_extraframes then
        self.bow_frame = self.bow_frame - self.bow_frames - self.bow_extraframes
      end
    end
  else
    self.bow_frame = 6
    self.draw_bow = true
    -- rest bow animation
    if distance_x > 0 then
      if self.bow_rotation > math.rad(45) then
        self.bow_rotation = self.bow_rotation - math.rad(3)
      elseif self.bow_rotation < math.rad(45) then
        self.bow_rotation = self.bow_rotation + math.rad(3)
      end

      -- set in place
      if math.abs(math.deg(self.bow_rotation) - 45) < 3 then
          self.bow_rotation = math.rad(45)
      end
      self.sprite_flip.x = 1
    else
      if self.bow_rotation > math.rad(135) then
        self.bow_rotation = self.bow_rotation - math.rad(3)
      elseif self.bow_rotation < math.rad(135) then
        self.bow_rotation = self.bow_rotation + math.rad(3)
      end
      -- set in place
      if math.abs(math.deg(self.bow_rotation) - 135) < 3 then
        self.bow_rotation = math.rad(135)
      end
      self.sprite_flip.x = -1
    end
  end
  self.angle = angle
end

function Kupo:HandleAnimation()
  	-- flip sprite to look in the direction is moving
  	if self.vel.x ~= 0 then self.sprite_flip.x = math.sign(self.vel.x) end
    self:LoadAnimation(animation.kupo.body)
    if self.draw_bow == true then
      DrawAnimationFrame(
        self.bow,
        math.min(self.bow_frame,self.bow_frames),
        self.pos.x + (    8 * math.sin(self.bow_rotation)),
        self.pos.y + (2 - 6 * math.cos(self.bow_rotation)),
        self.bow_rotation
      )
    end
if debug_collision then
    love.graphics.setColor(1,0,0)
    love.graphics.line(
      self.pos.x - Camera.pos.x,
      self.pos.y - Camera.pos.y,
      self.target.x - Camera.pos.x,
      self.target.y - Camera.pos.y
  )
  love.graphics.circle( "line", self.pos.x - Camera.pos.x, self.pos.y - Camera.pos.y, self.range )
    love.graphics.setColor(1,1,1)
    love.graphics.print(self.bow_rotation, self.pos.x, self.pos.y+30)
    love.graphics.print(self.angle, self.pos.x, self.pos.y+50)
  end
end

function Kupo:DoPhysics()

  	-- horizontal collisions
  if not isThereAnyCollisionAt(self.pos.x + self.vel.x, self.pos.y) then
  	self.pos.x = self.pos.x + self.vel.x
  end
  if not isThereAnyCollisionAt(self.pos.x, self.pos.y + self.vel.y) then
    self.pos.y = self.pos.y + self.vel.y
  end
end