Refactored ability/item/ball battle handlers, added "UltraBeast" species flag for Beast Ball

Data/Scripts/011_Battle/006_Other battle code/006_Battle_Clauses.rb

@@ -0,0 +1,275 @@
+#===============================================================================
+# This script modifies the battle system to implement battle rules
+#===============================================================================
+class Battle
+  unless @__clauses__aliased
+    alias __clauses__pbDecisionOnDraw pbDecisionOnDraw
+    alias __clauses__pbEndOfRoundPhase pbEndOfRoundPhase
+    @__clauses__aliased = true
+  end
+
+  def pbDecisionOnDraw
+    if @rules["selfkoclause"]
+      if self.lastMoveUser<0
+        # in extreme cases there may be no last move user
+        return 5   # game is a draw
+      elsif opposes?(self.lastMoveUser)
+        return 2   # loss
+      else
+        return 1   # win
+      end
+    end
+    return __clauses__pbDecisionOnDraw
+  end
+
+  def pbJudgeCheckpoint(user,move=nil)
+    if pbAllFainted?(0) && pbAllFainted?(1)
+      if @rules["drawclause"]   # NOTE: Also includes Life Orb (not implemented)
+        if !(move && move.function=="HealUserByHalfOfDamageDone")
+          # Not a draw if fainting occurred due to Liquid Ooze
+          @decision = (user.opposes?) ? 1 : 2   # win / loss
+        end
+      elsif @rules["modifiedselfdestructclause"]
+        if move && move.function=="UserFaintsExplosive"   # Self-Destruct
+          @decision = (user.opposes?) ? 1 : 2   # win / loss
+        end
+      end
+    end
+  end
+
+  def pbEndOfRoundPhase
+    __clauses__pbEndOfRoundPhase
+    if @rules["suddendeath"] && @decision==0
+      p1able = pbAbleCount(0)
+      p2able = pbAbleCount(1)
+      if p1able>p2able
+        @decision = 1   # loss
+      elsif p1able<p2able
+        @decision = 2   # win
+      end
+    end
+  end
+end
+
+
+
+class Battle::Battler
+  unless @__clauses__aliased
+    alias __clauses__pbCanSleep? pbCanSleep?
+    alias __clauses__pbCanSleepYawn? pbCanSleepYawn?
+    alias __clauses__pbCanFreeze? pbCanFreeze?
+    alias __clauses__pbUseMove pbUseMove
+    @__clauses__aliased = true
+  end
+
+  def pbCanSleep?(user,showMessages,move=nil,ignoreStatus=false)
+    selfsleep = (user && user.index==@index)
+    if ((@battle.rules["modifiedsleepclause"]) || (!selfsleep && @battle.rules["sleepclause"])) &&
+       pbHasStatusPokemon?(:SLEEP)
+      if showMessages
+        @battle.pbDisplay(_INTL("But {1} couldn't sleep!",pbThis(true)))
+      end
+      return false
+    end
+    return __clauses__pbCanSleep?(user,showMessages,move,ignoreStatus)
+  end
+
+  def pbCanSleepYawn?
+    if (@battle.rules["sleepclause"] || @battle.rules["modifiedsleepclause"]) &&
+       pbHasStatusPokemon?(:SLEEP)
+      return false
+    end
+    return __clauses__pbCanSleepYawn?
+  end
+
+  def pbCanFreeze?(*arg)
+    if @battle.rules["freezeclause"] && pbHasStatusPokemon?(:FROZEN)
+      return false
+    end
+    return __clauses__pbCanFreeze?(*arg)
+  end
+
+  def pbHasStatusPokemon?(status)
+    count = 0
+    @battle.pbParty(@index).each do |pkmn|
+      next if !pkmn || pkmn.egg?
+      next if pkmn.status!=status
+      count += 1
+    end
+    return count>0
+  end
+end
+
+
+
+class Battle::Move::RaiseUserEvasion1   # Double Team
+  alias __clauses__pbMoveFailed? pbMoveFailed?
+
+  def pbMoveFailed?(user,targets)
+    if !damagingMove? && @battle.rules["evasionclause"]
+      @battle.pbDisplay(_INTL("But it failed!"))
+      return true
+    end
+    return __clauses__pbMoveFailed?(user,targets)
+  end
+end
+
+
+
+class Battle::Move::RaiseUserEvasion2MinimizeUser   # Minimize
+  alias __clauses__pbMoveFailed? pbMoveFailed?
+
+  def pbMoveFailed?(user,targets)
+    if !damagingMove? && @battle.rules["evasionclause"]
+      @battle.pbDisplay(_INTL("But it failed!"))
+      return true
+    end
+    return __clauses__pbMoveFailed?(user,targets)
+  end
+end
+
+
+
+class Battle::Move::UserTargetSwapAbilities   # Skill Swap
+  alias __clauses__pbFailsAgainstTarget? pbFailsAgainstTarget?
+
+  def pbFailsAgainstTarget?(user, target, show_message)
+    if @battle.rules["skillswapclause"]
+      @battle.pbDisplay(_INTL("But it failed!")) if show_message
+      return true
+    end
+    return __clauses__pbFailsAgainstTarget?(user, target, show_message)
+  end
+end
+
+
+
+class Battle::Move::FixedDamage20   # Sonic Boom
+  alias __clauses__pbFailsAgainstTarget? pbFailsAgainstTarget?
+
+  def pbFailsAgainstTarget?(user, target, show_message)
+    if @battle.rules["sonicboomclause"]
+      @battle.pbDisplay(_INTL("But it failed!")) if show_message
+      return true
+    end
+    return __clauses__pbFailsAgainstTarget?(user, target, show_message)
+  end
+end
+
+
+
+class Battle::Move::FixedDamage40   # Dragon Rage
+  alias __clauses__pbFailsAgainstTarget? pbFailsAgainstTarget?
+
+  def pbFailsAgainstTarget?(user, target, show_message)
+    if @battle.rules["sonicboomclause"]
+      @battle.pbDisplay(_INTL("But it failed!")) if show_message
+      return true
+    end
+    return __clauses__pbFailsAgainstTarget?(user, target, show_message)
+  end
+end
+
+
+
+class Battle::Move::OHKO
+  alias __clauses__pbFailsAgainstTarget? pbFailsAgainstTarget?
+
+  def pbFailsAgainstTarget?(user, target, show_message)
+    if @battle.rules["ohkoclause"]
+      @battle.pbDisplay(_INTL("But it failed!")) if show_message
+      return true
+    end
+    return __clauses__pbFailsAgainstTarget?(user, target, show_message)
+  end
+end
+
+
+
+class Battle::Move::OHKOIce
+  alias __clauses__pbFailsAgainstTarget? pbFailsAgainstTarget?
+
+  def pbFailsAgainstTarget?(user, target, show_message)
+    if @battle.rules["ohkoclause"]
+      @battle.pbDisplay(_INTL("But it failed!")) if show_message
+      return true
+    end
+    return __clauses__pbFailsAgainstTarget?(user, target, show_message)
+  end
+end
+
+
+
+class Battle::Move::OHKOHitsUndergroundTarget
+  alias __clauses__pbFailsAgainstTarget? pbFailsAgainstTarget?
+
+  def pbFailsAgainstTarget?(user, target, show_message)
+    if @battle.rules["ohkoclause"]
+      @battle.pbDisplay(_INTL("But it failed!")) if show_message
+      return true
+    end
+    return __clauses__pbFailsAgainstTarget?(user, target, show_message)
+  end
+end
+
+
+
+class Battle::Move::UserFaintsExplosive   # Self-Destruct
+  unless @__clauses__aliased
+    alias __clauses__pbMoveFailed? pbMoveFailed?
+    @__clauses__aliased = true
+  end
+
+  def pbMoveFailed?(user,targets)
+    if @battle.rules["selfkoclause"]
+      # Check whether no unfainted Pokemon remain in either party
+      count  = @battle.pbAbleNonActiveCount(user.idxOwnSide)
+      count += @battle.pbAbleNonActiveCount(user.idxOpposingSide)
+      if count==0
+        @battle.pbDisplay("But it failed!")
+        return false
+      end
+    end
+    if @battle.rules["selfdestructclause"]
+      # Check whether no unfainted Pokemon remain in either party
+      count  = @battle.pbAbleNonActiveCount(user.idxOwnSide)
+      count += @battle.pbAbleNonActiveCount(user.idxOpposingSide)
+      if count==0
+        @battle.pbDisplay(_INTL("{1}'s team was disqualified!",user.pbThis))
+        @battle.decision = (user.opposes?) ? 1 : 2
+        return false
+      end
+    end
+    return __clauses__pbMoveFailed?(user,targets)
+  end
+end
+
+
+
+class Battle::Move::StartPerishCountsForAllBattlers   # Perish Song
+  alias __clauses__pbFailsAgainstTarget? pbFailsAgainstTarget?
+
+  def pbFailsAgainstTarget?(user, target, show_message)
+    if @battle.rules["perishsongclause"] &&
+       @battle.pbAbleNonActiveCount(user.idxOwnSide)==0
+      @battle.pbDisplay(_INTL("But it failed!")) if show_message
+      return true
+    end
+    return __clauses__pbFailsAgainstTarget?(user, target, show_message)
+  end
+end
+
+
+
+class Battle::Move::AttackerFaintsIfUserFaints   # Destiny Bond
+  alias __clauses__pbFailsAgainstTarget? pbFailsAgainstTarget?
+
+  def pbFailsAgainstTarget?(user, target, show_message)
+    if @battle.rules["perishsongclause"] &&
+       @battle.pbAbleNonActiveCount(user.idxOwnSide)==0
+      @battle.pbDisplay(_INTL("But it failed!")) if show_message
+      return true
+    end
+    return __clauses__pbFailsAgainstTarget?(user, target, show_message)
+  end
+end