[kyonides]

RandomEnkounters XP

by Kyonides-Arkanthos

Introduction

This scriptlet adds a very simple but curious feature to your game mechanics, it shows one of the semi-randomly generated monsters that could emerge out of the blue every other hero's step. Once this happens the hero can't do much about it but turn around in desperation possibly. Later on the player would listen to some "I'm here" or "Come and get me" or any similar (customizable) sound effect just a few moments before the battle starts.

After a short discussion about my script I added a new feature that allows the game dev to set a custom animation when the enemy trooper shows up. (I haven't tested it yet, though.) Let's say DerV convinced me to add it. Honestly I think I'm kind of spoiling forum members or visitors lately by adding more and more features to scripts. I hope interested people really appreciate it.

SCRIPT

Code:

# * RandomEnkounter XP
#   Plug & Play Script & Configurable
#   Scripter : Kyonides-Arkanthos
#   2016-05-29

module RandomEnkounter
  ENEMY_APPEARS = '018-Teleport01'
  WAIT_COUNT = 80
  ANIME_POPUP = {} # Do Not Edit This Line
  # Animation on Enemy Trooper on Map [Troop ID] = Animation ID
  ANIME_POPUP[1] = 14
  ANIME_POPUP[2] = 20
  def self.enemy() @enemy end
  def self.enemy=(new_enemy) @enemy = new_enemy end
  def self.enemy_appears() RPG::AudioFile.new(ENEMY_APPEARS,100,350) end
end

class Game_RandomEnemy < Game_Enemy
  attr_reader :character_name, :character_hue, :tile_id, :pattern, :transparent
  attr_reader :direction, :opacity, :blend_type, :x, :y, :through
  def refresh
    @character_name = @battler_name
    @character_hue = @battler_hue
    dir = $game_player.direction
    @x = $game_player.x + (dir == 6 ? 1 : dir == 4 ? -1 : 0)
    @y = $game_player.y + (dir == 2 ? 1 : dir == 8 ? -1 : 0)
    @direction = 10 - dir
    valid_coord = $game_map.valid?(@x, @y)
    result = false
    if valid_coord
      $game_map.events.values.each {|event| through = event.through
        (result = true; break) if event.x == @x and event.y == @y and !through }
    end
    if !valid_coord or result
      @x = $game_player.x + (dir == 6 ? -1 : dir == 4 ? 1 : 0)
      @y = $game_player.y + (dir == 2 ? -1 : dir == 8 ? 1 : 0)
      @direction = dir
    end
    @real_x = @x * 128
    @real_y = @y * 128
    @opacity = 255
    @blend_type = 0
    @tile_id = 0
    @pattern = 0
    @jump_count = 0
    @jump_peak = 0
    @through = false
    @transparent = false
    tid = RandomEnkounter::ANIME_POPUP[@troop_id]
    @animation_id = tid ? tid : 0
  end

  def screen_x() (@real_x - $game_map.display_x + 3) / 4 + 16 end

  def screen_y
    y = (@real_y - $game_map.display_y + 3) / 4 + 32
    n = (@jump_count >= @jump_peak)? @jump_count - @jump_peak :
        @jump_peak - @jump_count
    return y - (@jump_peak * @jump_peak - n * n) / 2
  end

  def screen_z(height = 0)
    return 999 if @always_on_top
    z = (@real_y - $game_map.display_y + 3) / 4 + 32
    return z + ((height > 32) ? 31 : 0) # If height exceeds 32, then add 31
  end

  def bush_depth
    return 0 if @tile_id > 0 or @always_on_top
    (@jump_count == 0 and $game_map.bush?(@x, @y))? 12 : 0
  end
end

class Game_Map
  alias kyon_enkounters_gm_map_setup setup
  alias kyon_enkounters_gm_map_passable? passable?
  def setup(map_id)
    kyon_enkounters_gm_map_setup(map_id)
    RandomEnkounter.enemy = nil
  end

  def passable?(x, y, d, self_event=nil)
    enemy = RandomEnkounter.enemy
    return false if enemy != nil and !enemy.through
    kyon_enkounters_gm_map_passable?(x, y, d, self_event)
  end
end

class Sprite_RandomCharacter < Sprite_Character
  def update
    return if @character == nil
    super
  end
end

class Spriteset_Map
  alias kyon_enkounters_sprite_map_init initialize
  def initialize
    kyon_enkounters_sprite_map_init
    character = Game_Character.new
    character.transparent = true
    @character_sprites << Sprite_RandomCharacter.new(@viewport1, character)
  end

  def random_enemy=(new_enemy) @character_sprites[-1].character = new_enemy end

  def dispose_random_enemy
    @character_sprites.dispose
    @character_sprites.pop
  end
end

class Scene_Map
  alias kyon_enkounters_scn_map_call_battle call_battle
  def call_battle
    if $game_player.encounter_count == 0 and $game_map.encounter_list != []
      unless @wait_count
        $game_system.se_play(RandomEnkounter.enemy_appears)
        tid = $game_temp.battle_troop_id
        enemies_size = $data_troops[tid].members.size
        RandomEnkounter.enemy = Game_RandomEnemy.new(tid, rand(enemies_size))
        RandomEnkounter.enemy.refresh
        @spriteset.random_enemy = RandomEnkounter.enemy
        @wait_count = RandomEnkounter::WAIT_COUNT
        return
      else
        @wait_count -= 1
        return if @wait_count > 0
      end
    end
    kyon_enkounters_scn_map_call_battle
  end
end

class Scene_Battle
  alias kyon_enkounters_scn_battle_battle_end battle_end
  def battle_end(result)
    RandomEnkounter.enemy = nil
    kyon_enkounters_scn_battle_battle_end(result)
  end
end

Credits

To me, Kyonides-Arkanthos.

Terms of Use

It's Free as in beer and speech. Just don't forget to add me to your credits list.

[kyonides]

Bump It Up! Bump It Up!

Well, I just updated my script to include a very small but sometimes significant feature. If your hero can see there is an event right in front of it, the randomly called monster or enemy won't show up right above it as it were smashing it to smithereens due to its overweight. Instead it will show up right behind the hero!

[kyonides]

A Big Bump Doesn't Cry!

I received a report about some F12 refresh related issue so now I'm posting the new version of my script here. Yeah, I do hate F12 for some good reasons.