Remove Scripts folder to convert to submodule

Data/Scripts/012_Overworld/005_Overworld_Fishing.rb

@@ -1,174 +0,0 @@
-#===============================================================================
-# Fishing
-#===============================================================================
-def pbFishingBegin
-  $PokemonGlobal.fishing = true
-  if !pbCommonEvent(Settings::FISHING_BEGIN_COMMON_EVENT)
-    patternb = 2*$game_player.direction - 1
-    meta = GameData::Metadata.get_player($Trainer.character_ID)
-    num = ($PokemonGlobal.surfing) ? 7 : 6
-    if meta && meta[num] && meta[num]!=""
-      charset = pbGetPlayerCharset(meta,num)
-      4.times do |pattern|
-        $game_player.setDefaultCharName(charset,patternb-pattern,true)
-        (Graphics.frame_rate/20).times do
-          Graphics.update
-          Input.update
-          pbUpdateSceneMap
-        end
-      end
-    end
-  end
-end
-
-def pbFishingEnd
-  if !pbCommonEvent(Settings::FISHING_END_COMMON_EVENT)
-    patternb = 2*($game_player.direction - 2)
-    meta = GameData::Metadata.get_player($Trainer.character_ID)
-    num = ($PokemonGlobal.surfing) ? 7 : 6
-    if meta && meta[num] && meta[num]!=""
-      charset = pbGetPlayerCharset(meta,num)
-      4.times do |pattern|
-        $game_player.setDefaultCharName(charset,patternb+pattern,true)
-        (Graphics.frame_rate/20).times do
-          Graphics.update
-          Input.update
-          pbUpdateSceneMap
-        end
-      end
-    end
-  end
-  $PokemonGlobal.fishing = false
-end
-
-def pbFishing(hasEncounter,rodType=1)
-  autohook= Settings::FISHING_AUTO_HOOK || $game_switches[SWITCH_FISHING_AUTOHOOK]
-  speedup = ($Trainer.first_pokemon && [:STICKYHOLD, :SUCTIONCUPS].include?($Trainer.first_pokemon.ability_id))
-  biteChance = 20+(25*rodType)   # 45, 70, 95
-  biteChance *= 1.5 if speedup   # 67.5, 100, 100
-  hookChance = 100
-  oldpattern = $game_player.fullPattern
-  pbFishingBegin
-  msgWindow = pbCreateMessageWindow
-  ret = false
-  loop do
-    time = 5+rand(6)
-    time = [time,5+rand(6)].min if speedup
-    message = ""
-    time.times { message += ".   " }
-    if pbWaitMessage(msgWindow,time)
-      pbFishingEnd
-      $game_player.setDefaultCharName(nil,oldpattern)
-      pbMessageDisplay(msgWindow,_INTL("Not even a nibble..."))
-      break
-    end
-    if hasEncounter && rand(100)<biteChance
-      $scene.spriteset.addUserAnimation(Settings::EXCLAMATION_ANIMATION_ID,$game_player.x,$game_player.y,true,3)
-      frames = Graphics.frame_rate - rand(Graphics.frame_rate/2)   # 0.5-1 second
-      if !pbWaitForInput(msgWindow,message+_INTL("\r\nOh! A bite!"),frames)
-        pbFishingEnd
-        $game_player.setDefaultCharName(nil,oldpattern)
-        pbMessageDisplay(msgWindow,_INTL("The Pokémon got away..."))
-        break
-      end
-
-      itemChance = rand((rodType)*5)
-      if itemChance<=1
-        #ITEM
-        items =  [:PEARL,
-                  :OLDBOOT,
-                  :OLDBOOT,
-                  :OLDBOOT,
-                  :OLDBOOT,
-                  :WATERGEM,
-                  :PEARL,
-                  :WATERGEM
-        ]
-        hats = [
-          HAT_SLOWKING_SHELL,
-        ]
-        hatChance = rand(5)
-        if true#hatChance == 0
-          hat = hats.sample
-          if !hasHat?(hat)
-            obtainHat(hat)
-          else
-            Kernel.pbItemBall(items[rand(items.size)],1,nil,false)
-          end
-        else
-          Kernel.pbItemBall(items[rand(items.size)],1,nil,false)
-        end
-        Kernel.pbDisposeMessageWindow(msgWindow)
-        pbFishingEnd
-        $game_player.setDefaultCharName(nil,oldpattern)
-        return false
-      end
-
-
-      if autohook || rand(100) < hookChance
-        pbFishingEnd
-        pbMessageDisplay(msgWindow,_INTL("Landed a Pokémon!")) if !autohook
-        $game_player.setDefaultCharName(nil,oldpattern)
-        ret = true
-        break
-      end
-#      biteChance += 15
-#      hookChance += 15
-    else
-      pbFishingEnd
-      $game_player.setDefaultCharName(nil,oldpattern)
-      pbMessageDisplay(msgWindow,_INTL("Not even a nibble..."))
-      break
-    end
-  end
-  pbDisposeMessageWindow(msgWindow)
-  return ret
-end
-
-# Show waiting dots before a Pokémon bites
-def pbWaitMessage(msgWindow,time)
-  message = ""
-  periodTime = Graphics.frame_rate*4/10   # 0.4 seconds, 16 frames per dot
-  (time+1).times do |i|
-    message += ".   " if i>0
-    pbMessageDisplay(msgWindow,message,false)
-    periodTime.times do
-      Graphics.update
-      Input.update
-      pbUpdateSceneMap
-      if Input.trigger?(Input::USE) || Input.trigger?(Input::BACK)
-        return true
-      end
-    end
-  end
-  return false
-end
-
-# A Pokémon is biting, reflex test to reel it in
-def pbWaitForInput(msgWindow,message,frames)
-  autohook= Settings::FISHING_AUTO_HOOK || $game_switches[SWITCH_FISHING_AUTOHOOK]
-  pbMessageDisplay(msgWindow,message,false)
-  numFrame = 0
-  twitchFrame = 0
-  twitchFrameTime = Graphics.frame_rate/10   # 0.1 seconds, 4 frames
-  loop do
-    Graphics.update
-    Input.update
-    pbUpdateSceneMap
-    # Twitch cycle: 1,0,1,0,0,0,0,0
-    twitchFrame = (twitchFrame+1)%(twitchFrameTime*8)
-    case twitchFrame%twitchFrameTime
-    when 0, 2
-      $game_player.pattern = 1
-    else
-      $game_player.pattern = 0
-    end
-    if Input.trigger?(Input::USE) || Input.trigger?(Input::BACK)
-      $game_player.pattern = 0
-      return true
-    end
-    break if !autohook && numFrame > frames
-    numFrame += 1
-  end
-  return false
-end