trainer card fixes

Data/Scripts/050_AddOns/Footprints.rb

@@ -0,0 +1,225 @@
+#===============================================================================
+# Klein Footprints / WolfPP for Pokémon Essentials
+# Give credits if you're using this!
+# http://kleinstudio.deviantart.com
+#
+# bo4p5687 update (v.19)
+#===============================================================================
+
+# Fix event comment
+def pbEventCommentInput(*args)
+  parameters = []
+  list = *args[0].list   # Event or event page
+  elements = *args[1]    # Number of elements
+  trigger = *args[2]     # Trigger
+  return nil if list == nil
+  return nil unless list.is_a?(Array)
+  for item in list
+    next unless item.code == 108 || item.code == 408
+    if item.parameters[0] == trigger[0]
+      start = list.index(item) + 1
+      finish = start + elements[0]
+      for id in start...finish
+        next if !list[id]
+        parameters.push(list[id].parameters[0])
+      end
+      return parameters
+    end
+  end
+  return nil
+end
+
+module FootprintVariables
+  # If you set pokemon here, they doesn't have footprints
+  FOLLOWING_DONT_WALK = [
+    # Example:
+    # 12,15,17
+  ]
+
+  # Set here the terrain tag for footprints, 3 is sand
+  TERRAIN_FOOT = 3
+
+  # Initial opacity for footprints
+  FOOT_OPACITY = 62
+
+  # Delay velocity
+  FOOT_DELAY = 1.1
+
+  def self.get_new_id
+    newId = 1
+    while !$game_map.events[newId].nil? do
+      break if $game_map.events[newId].erased
+      newId += 1
+    end
+    return newId
+  end
+
+  def self.show(event, position)
+    if event != $game_player
+      return if event.character_name == "" || event.character_name == "nil" || event.name.include?("/nofoot/")
+      return if pbEventCommentInput(event, 0, "NoFoot")
+      if $Trainer.party.length > 0
+        return if (!($game_map.events[event] && $game_map.events[event].name == "Dependent") &&
+          (FOLLOWING_DONT_WALK.include?($Trainer.party[0].species) || $PokemonGlobal.bicycle))
+      end
+    end
+    character_sprites = $scene.spriteset.character_sprites
+    viewport = $scene.spriteset.viewport1
+    footsprites = $scene.spriteset.footsprites
+    nid = self.get_new_id
+    rpgEvent    = RPG::Event.new(position[0], position[1])
+    rpgEvent.id = nid
+    fev = Game_Event.new($game_map.map_id, rpgEvent, $game_map)
+    eventsprite = Sprite_Character.new(viewport, fev)
+    character_sprites.push(eventsprite)
+    footsprites.push(Footsprite.new(eventsprite, fev, viewport, $game_map, position[2], nid, character_sprites, (event==$game_player)))
+  end
+
+end
+
+class Game_Event < Game_Character
+  attr_reader :erased
+end
+
+class Sprite_Character
+  alias old_initialize_foot initialize
+  def initialize(viewport, character=nil)
+    old_initialize_foot(viewport, character)
+    @disposed = false
+  end
+
+  alias old_update_foot update
+  def update
+    return if @disposed
+    old_update_foot
+  end
+
+  alias old_dispose_foot dispose
+  def dispose
+    old_dispose_foot
+    @disposed = true
+  end
+end
+
+class Spriteset_Map
+  attr_accessor :character_sprites
+  attr_accessor :footsprites
+
+  alias old_initialize initialize
+  def initialize(map=nil)
+    old_initialize(map)
+    @footsprites = []
+  end
+
+  def viewport1
+    return @@viewport1
+  end
+
+  def putFootprint(event, pos)
+    return FootprintVariables.show(event, pos)
+  end
+
+  alias old_dispose dispose
+  def dispose
+    old_dispose
+    @footsprites.each { |sprite| sprite.dispose } if !@footsprites.nil?
+    @footsprites.clear
+  end
+
+  alias old_update update
+  def update
+    old_update
+    return if @footsprites.nil?
+    @footsprites.each { |sprite| sprite.update  }
+  end
+end
+
+class Scene_Map
+  def spriteset?
+    return !@spritesets.nil?
+  end
+end
+
+class Game_Character
+
+  def get_last_pos
+    case direction
+    when 2 then return [@x,   @y-1, direction] # Move down
+    when 4 then return [@x+1, @y,   direction] # Move left
+    when 6 then return [@x-1, @y,   direction] # Move right
+    when 8 then return [@x,   @y+1, direction] # Move up
+    end
+    return false
+  end
+
+  def foot_prints?
+    return $game_map.terrain_tag(get_last_pos[0], get_last_pos[1]) == FootprintVariables::TERRAIN_FOOT && $scene.is_a?(Scene_Map) && $scene.spriteset?
+  end
+
+  alias leave_tile_footprints triggerLeaveTile
+  def triggerLeaveTile
+    leave_tile_footprints
+    $scene.spriteset.putFootprint(self, get_last_pos) if foot_prints?
+  end
+
+end
+
+class Footsprite
+  def initialize(sprite,event,viewport,map,direction,nid,chardata,player)
+    @rsprite = sprite
+    # Sprite
+    @sprite  = Sprite.new(viewport)
+    file = player && $PokemonGlobal.bicycle ? "footsetbike.png" : "footset.png"
+    @sprite.bitmap = RPG::Cache.load_bitmap("Graphics/Pictures/", file)
+    # Set position
+    @realwidth = @sprite.bitmap.width/4
+    @sprite.src_rect.width = @realwidth
+    @opacity = FootprintVariables::FOOT_OPACITY
+    setFootset(direction)
+    # Values
+    @map = map
+    @event = event
+    @disposed = false
+    @eventid  = nid
+    @viewport = viewport
+    @chardata = chardata
+    update
+  end
+
+  def setFootset(direction)
+    @sprite.src_rect.x =
+      case direction
+      when 2 then 0              # Move down
+      when 4 then @realwidth * 3 # Move left
+      when 6 then @realwidth * 2 # Move right
+      when 8 then @realwidth     # Move up
+      end
+    @sprite.opacity = @opacity
+  end
+
+  def dispose
+    return if @disposed
+    @disposed = true
+    @event.erase
+    (0...@chardata.length).each { |i| @chardata.delete_at(i) if @chardata[i] == @rsprite }
+    @rsprite.dispose
+    @sprite.dispose
+    @sprite = nil
+  end
+
+  def update
+    return if @disposed
+    x = @rsprite.x - @rsprite.ox
+    y = @rsprite.y - @rsprite.oy
+    width  = @rsprite.src_rect.width
+    height = @rsprite.src_rect.height
+    @sprite.x  = x + width / 2
+    @sprite.y  = y + height
+    @sprite.ox = @realwidth / 2
+    @sprite.oy = @sprite.bitmap.height
+    @sprite.z  = @rsprite.z - 2
+    @opacity  -= FootprintVariables::FOOT_DELAY
+    @sprite.opacity = @opacity
+    dispose if @sprite.opacity <= 0
+  end
+end

Data/Scripts/050_AddOns/New Balls.rb

@@ -70,31 +70,26 @@ BallHandlers::OnCatch.add(:PERFECTBALL,proc{|ball,battle,pokemon|
 #DREAMBALL  - endormi
 BallHandlers::ModifyCatchRate.add(:DREAMBALL,proc{|ball,catchRate,battle,battler|
    battler.status = :SLEEP
-   catchRate = 1
    next catchRate
 })
 #TOXICBALL  - empoisonné
 BallHandlers::ModifyCatchRate.add(:TOXICBALL,proc{|ball,catchRate,battle,battler|
   battler.status = :POISON
-  catchRate = 1
    next catchRate
 })
 #SCORCHBALL - brulé
 BallHandlers::ModifyCatchRate.add(:SCORCHBALL,proc{|ball,catchRate,battle,battler|
    battler.status = :BURN
-   catchRate = 1
    next catchRate
 })
 #FROSTBALL - frozen
 BallHandlers::ModifyCatchRate.add(:FROSTBALL,proc{|ball,catchRate,battle,battler|
    battler.status = :FROZEN
-   catchRate = 1
    next catchRate
 })
 #SPARKBALL  - paralizé
 BallHandlers::ModifyCatchRate.add(:SPARKBALL,proc{|ball,catchRate,battle,battler|
    battler.status = :PARALYSIS
-   catchRate = 1
    next catchRate
 })
 #PUREBALL  - marche mieux quand pas de status