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}

  -- animations
  o.body = Animation:New(animation.kupo.body)
  o.bow = Animation:New(animation.kupo.bow)

  -- 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
  o.hostile = true

  o.lightRange = o.range/10
	o.light = CreateLight(o.pos.x,o.pos.y,o.lightRange)

 	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)
  self.draw_bow = false
  if distance <= self.range then

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

    if self.hostile == true then
      self.draw_bow = true
      -- 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
    end
  else
    self.bow_frame = 6
    -- 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.body:Animate()
      self.body:Draw(
        self.pos.x - Camera.pos.x - ( (self.sprite_offset.x) * math.cos(self.sprite_rotation) - (self.sprite_offset.y) * math.sin(self.sprite_rotation)) * self.sprite_scale.x * self.sprite_flip.x,
    		self.pos.y - Camera.pos.y - ( (self.sprite_offset.x) * math.sin(self.sprite_rotation) + (self.sprite_offset.y) * math.cos(self.sprite_rotation)) * self.sprite_scale.y * self.sprite_flip.y,
        self.sprite_rotation,
        self.sprite_scale.x * self.sprite_flip.x,
        self.sprite_scale.y * self.sprite_flip.y
      )

    if self.draw_bow == true then
      self.bow:DrawFrame(
        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
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