[Essentials Tutorial] Roto Bike (Marin Poeride add-on)

#Not Important · Jan 26, 2020

So, I read on a lot of threads that people wanted a rotom bike script,
So, I adapted Marin's pokeride script to work with a bike too:
Change log:

Spoiler:

HAS POKERIDE SCRIPT:

Spoiler:

DOESN'T HAVE POKERIDE SCRIPT:

Spoiler:

Just add these two scripts (Roto bike 1 & 2):
1:

Code:

#==============================================================================#
#                Pokéride for Pokémon Essentials v16.X | v17.X                 #
#                                    v1.0                                      #
#                                                                              #
#                                  by Marin                                    #
#                           Roto bike by #Not Important                        #
#==============================================================================#
#                                    Note                                      #
# This script is merely for functionality. It does not provide a whole system, #
#    and things such as availability of certain Pokérides is not included.     #
#==============================================================================#
#                                    Usage                                     #
#  To mount a Pokéride, use "pbMount(name)". "name" is the name of the module, #
#                  which can be found in "Pokéride_Rides".                     #
#==============================================================================#

# Example:
# pbMount(Tauros)
def pbMount(_module)
  sheet = _module::MoveSheet[$Trainer.gender]
  $game_player.setDefaultCharName(sheet,$game_player.fullPattern)
  _module.mount if _module.respond_to?("mount")
  if _module=Bike
    if !hasConst?(PBItems,:BICYCLE)
      $PokemonGlobal.surfing = true
    else
      $PokemonGlobal.surfing = false
    end
  end
  $PokemonGlobal.surfing = true if defined?(_module::CanSurf) && _module::CanSurf
  $PokemonGlobal.mount = _module
end

def pbDismount
  $PokemonGlobal.mount.dismount if $PokemonGlobal.mount &&
                                   $PokemonGlobal.mount.respond_to?("dismount")
  $PokemonGlobal.surfing = false if defined?(_module::CanSurf) && _module::CanSurf
  $PokemonGlobal.mount = nil
  $game_player.setDefaultCharName(nil,$game_player.fullPattern)
end

# $Trainer.can_rock_climb has to be true if you want to be able to use Rock Climb.
class PokeBattle_Trainer
  attr_accessor :can_rock_climb
  
  alias pokeride_init initialize
  def initialize(name, trainertype)
    pokeride_init(name, trainertype)
    @can_rock_climb = false
  end
end

unless defined?(pbList)
  # If you call this on an event, it'll be no longer listed in the Itemfinder
  # (if it even had ".hidden" in the name)
  def pbUnlist(event_id)
    $game_map.events[event_id].listed = false if $game_map.events[event_id]
  end
  
  # The Itemfinder will show this event (but still only if it has .hidden in name)
  def pbList(event_id)
    $game_map.events[event_id].listed = true if $game_map.events[event_id]
  end
end


class PokemonGlobalMetadata
  attr_accessor :mount
  attr_accessor :mount_action
end

unless defined?(Game_Event.listed)
  class Game_Event
    attr_accessor :listed
    
    alias pokeride_init initialize
    def initialize(map_id, event, map = nil)
      pokeride_init(map_id, event, map)
      @listed = true # Set to true, but whether it's actually listed or not
                     # depends on the name.
    end
  end
end

def pbHiddenItemNearby?
  x = $game_player.x
  y = $game_player.y
  for event in $game_map.events
    event = event[1]
    if event.name.include?(".hidden") && event.listed
      if event.x - x >= -4 && event.x - x <= 4
        if event.y - y >= -4 && event.y - y <= 4
          return true
        end
      end
    end
  end
  return false
end

class Game_Player
  alias pokeride_update update
  def update
    pokeride_update
    if $PokemonGlobal.mount
      if Input.press?(Input::A)
        @move_speed = $PokemonGlobal.mount::ActionSpeed
        sheet = $PokemonGlobal.mount::ActionSheet[$Trainer.gender]
        $game_player.setDefaultCharName(sheet,$game_player.fullPattern)
        $PokemonGlobal.mount_action = true
        if defined?($PokemonGlobal.mount::ShowHidden) && $PokemonGlobal.mount::ShowHidden
          if pbHiddenItemNearby?
            sheet = $PokemonGlobal.mount::HiddenNearbySheet[$Trainer.gender]
            $game_player.setDefaultCharName(sheet,$game_player.fullPattern)
            @move_speed = $PokemonGlobal.mount::HiddenNearbySpeed
          end
        end
      else
        @move_speed = $PokemonGlobal.mount::MoveSpeed
        sheet = $PokemonGlobal.mount::MoveSheet[$Trainer.gender]
        $game_player.setDefaultCharName(sheet,$game_player.fullPattern)
        $PokemonGlobal.mount_action = false
      end
    end
  end
  
  alias pokeride_trigger check_event_trigger_there
  def check_event_trigger_there(triggers)
    result = pokeride_trigger(triggers)
    return result if ROCK_CLIMB_MOUNT.nil?
    new_x = @x + (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
    new_y = @y + (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
    if result == false
      for i in [2,1,0]
        if $game_map.terrain_tags[$game_map.map.data[new_x, new_y, i]] == PBTerrain::RockClimb
          activemount = $PokemonGlobal.mount && defined?($PokemonGlobal.mount::RockClimb) &&
                        $PokemonGlobal.mount::RockClimb
          if activemount || $Trainer.can_rock_climb && Kernel.pbConfirmMessage(_INTL("Do you want to rock climb here?"))
            unless activemount
              Kernel.pbCancelVehicles
              pbMount(eval(ROCK_CLIMB_MOUNT))
              pbWait(10)
            end
            climb = true
            up = false
            for j in [2,1,0]
              if @y > 0 && (($game_map.terrain_tags[$game_map.map.data[@x+2,@y-1,j]] == PBTerrain::RockClimb rescue false) ||
                 (@x > 1 && $game_map.terrain_tags[$game_map.map.data[@x-2,@y-1,j]] == PBTerrain::RockClimb))
                up = true
                break
              end
            end
            unless @direction == 2 || direction == 8
              @x += (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
            end
            pbWait(4)
            while climb
              _x = @x + (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
              _y = @y
              if @direction == 2 || @direction == 8
                _y = @y + (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
              elsif up
                _y -= 1
              else
                _y += 1
              end
              pbWait(4)
              climb = false
              @x = _x
              for j in [2,1,0]
                if $game_map.terrain_tags[$game_map.map.data[_x, _y, j]] == PBTerrain::RockClimb
                  climb = true
                  break
                end
              end
              @y = _y if climb || @direction == 2 || @direction == 8
            end
          end
          return true
        end
      end
    end
    return result
  end
end

if defined?(Sprite_SurfBase)
  class Sprite_SurfBase
    alias pokeride_init initialize
    def initialize(sprite, event, viewport = nil)
      return if $PokemonGlobal.mount
      pokeride_init(sprite, event, viewport)
    end
    
    alias pokeride_update update
    def update
      return if $PokemonGlobal.mount
      pokeride_update
    end
    
    def dispose
      if !@disposed
        @sprite.dispose if @sprite
        @sprite   = nil
        @surfbitmap.dispose if @surfbitmap
        @surfbitmap = nil
        @disposed = true
      end
    end
  end
end

module Kernel
  class << Kernel
    alias pokeride_cancel_vehicles pbCancelVehicles
    alias pokeride_surf pbSurf
  end
  
  def self.pbCancelVehicles(destination = nil)
    pbDismount
    pokeride_cancel_vehicles(destination)
  end
  
  def self.pbSurf
    unless SURF_MOUNT.nil?
      Kernel.pbCancelVehicles
      $PokemonEncounters.clearStepCount
      $PokemonGlobal.surfing = true
      if defined?($PokemonTemp.surfJump)
        $PokemonTemp.surfJump = $MapFactory.getFacingCoords($game_player.x,$game_player.y,$game_player.direction)
      end
      $PokemonGlobal.mount = eval(SURF_MOUNT)
      Kernel.pbUpdateVehicle
      Kernel.pbJumpToward
      if defined?($PokemonTemp.surfJump)
        $PokemonTemp.surfJump = nil
      end
      Kernel.pbUpdateVehicle
      $game_player.check_event_trigger_here([1,2])
    else
      pokeride_surf
    end
  end
end

unless defined?(pbSmashEvent)
  def pbSmashEvent(event)
    return if !event
    if event.name=="Tree";    pbSEPlay("Cut",80)
    elsif event.name=="Rock"; pbSEPlay("Rock Smash",80)
    end
    pbMoveRoute(event,[
       PBMoveRoute::Wait,2,
       PBMoveRoute::TurnLeft,
       PBMoveRoute::Wait,2,
       PBMoveRoute::TurnRight,
       PBMoveRoute::Wait,2,
       PBMoveRoute::TurnUp,
       PBMoveRoute::Wait,2
    ])
    pbWait(2*2*4)
    event.erase
    $PokemonMap.addErasedEvent(event.id) if $PokemonMap
  end
end

class Game_Character
  alias pokeride_passableex passableEx?
  def passableEx?(x, y, d, strict = false)
    new_x = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
    new_y = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
    return false unless self.map.valid?(new_x, new_y)
    return true if @through
    # Pokéride Rock Smash
    if $PokemonGlobal.mount && $PokemonGlobal.mount_action &&
       defined?($PokemonGlobal.mount::RockSmash) &&
       $PokemonGlobal.mount::RockSmash
      for event in self.map.events
        if event[1].name == "Rock" && event[1].x == new_x && event[1].y == new_y
          facingEvent = $game_player.pbFacingEvent
          if facingEvent
            pbSmashEvent(facingEvent)
            return true
          end
        end
      end
    end
    return pokeride_passableex(x, y, d, strict)
  end
end

class Spriteset_Map
  alias pokeride_update update
  def update
    pokeride_update
    if $PokemonGlobal.mount && defined?($PokemonGlobal.mount::Strength) &&
       $PokemonGlobal.mount::Strength
      $PokemonMap.strengthUsed = $PokemonGlobal.mount_action
    end
  end
end

module PBTerrain
  Mudsdale = 17 # Only passable if on a Mudsdale
  RockClimb = 18 # Can only be traversed on a Pokéride with RockClimb capabilities
end

class Game_Map
  attr_reader :map
  
  alias pokeride_playerpassable playerPassable?
  def playerPassable?(x, y, d, self_event = nil)
    for i in [2, 1, 0]
      if @terrain_tags[data[x, y, i]] == PBTerrain::Mudsdale
        return $PokemonGlobal.mount && defined?($PokemonGlobal.mount::WalkOnMudsdale) &&
               $PokemonGlobal.mount::WalkOnMudsdale
      end
    end
    pokeride_playerpassable(x, y, d, self_event)
  end
end

def pbStartSurfing
  Kernel.pbCancelVehicles
  $PokemonEncounters.clearStepCount
  $PokemonGlobal.surfing = true
  if defined?($PokemonTemp.surfJump)
    $PokemonTemp.surfJump = $MapFactory.getFacingCoords($game_player.x,$game_player.y,$game_player.direction)
  end
  Kernel.pbUpdateVehicle
  Kernel.pbJumpToward
  if defined?($PokemonTemp.surfJump)
    $PokemonTemp.surfJump = nil
  end
  Kernel.pbUpdateVehicle
end

2:

Code:

# Every PokéRide should have MoveSheet, MoveSpeed, ActionSheet, and ActionSpeed.
# A PokéRide can also have one or more of the following options:

#  -> RockSmash: While the action button (Z) is being pressed, any rock you
#                walk up to will be smashed.
#  -> CanSurf: This Pokémon can be surfed with.
#  -> WalkOnMudsdale: With this PokéRide, you can walk over terrain with
#                     terrain tag 17.
#  -> Strength: Boulders can be moved if the action button is held down.
#  -> ShowHidden: If the action button is held down, any listed event with
#                 ".hidden" (without the quotation marks) within a 4x4 radius
#                 will cause the Pokéride to use "HiddenNearbySheet" and
#                 "HiddenNearbySpeed". Those two must also be implemented if your
#                 Pokéride has "ShowHidden"
#  -> RockClimb: If set to true, 

# You can have multiple of these options at once. They should all be compatible
# with one another.


# Rock Smash rocks still have to be called "Rock" without the quotation marks.
# Boulders still have to be called "Boulder" and their trigger method should be
#     "Player Touch" and it should have just one line of script: "pbPushThisBoulder"

# Hidden items are ".hidden" without the quotation marks for compatibility
# with my Pokétch resource.
# They work the same way as hidden items there:
# pbUnlist(event_id): The event becomes hidden from the Itemfinder (Stoutland)
# pbList(event_id): The event becomes visible for the Itemfinder (Stoutland)
#                   IF the event has ".hidden" in the name.


# If you want Surf to be the normal surf, set this to nil. Else, set it to the
# name of the PokéRide in a string (e.g. "Sharpedo")  
if !hasConst?(PBItems,:BICYCLE)#Checks if has a bike
  SURF_MOUNT = "Bike"
else#If they don't, surf on Sharpedo
  SURF_MOUNT = "Sharpedo"
end

# If you want a Pokéride to be able to perform Rock Climb, set this to the
# name of the Pokéride. If you don't want Rock Climb, set this to nil.
ROCK_CLIMB_MOUNT = "Rhyhorn"
# This is the Pokéride that is called if you press C in front of a Rock Climb tile
# while not being on a Pokéride that can already use Rock Climb, which means
# that this is essentially the same as "SURF_MOUNT".


# A Pokéride can also have an effect that is activated when you mount it.
# To implement something there, add your code in a method called "def self.mount".
# The same can be done for dismounting, but in "def self.dismount"
#pbMount(Bike) can be used to force players on their bikes
module Bike
  MoveSheet = ["boy_bike","girl_bike"]
  MoveSpeed = 4.8
  ActionSheet = ["boy_bike","girl_bike"]
  ActionSpeed = 6.3
  CanSurf = true
end

module Sharpedo#Just to keep a surf mount
  MoveSheet = ["Pokeride/boy_sharpedo","Pokeride/girl_sharpedo"]
  MoveSpeed = 5.4
  ActionSheet = ["Pokeride/boy_sharpedo_fast","Pokeride/girl_sharpedo_fast"]
  ActionSpeed = 6.0
  CanSurf = true
  RockSmash = true
end

module Rhyhorn#Just to keep a rock climb mount
  MoveSheet = ["Pokeride/boy_rhyhorn","Pokeride/girl_rhyhorn"]
  MoveSpeed = 4.4
  ActionSheet = ["Pokeride/boy_rhyhorn","Pokeride/girl_rhyhorn"]
  ActionSpeed = 4.4
  RockClimb = true
end

And that's it!

[Essentials Tutorial] Roto Bike (Marin Poeride add-on)

More options

#Not Important

All hail the wishmaker