Gold Engine Scripts

[PiaCRT]

Figured I'd just post these as I go along, I'm rewriting the engine to be more plug and play, so that you can just install scripts and graphics instead of editing scripts, which is both a pain and a mess.

If you don't know what the gold engine is, it's an attempt to change Essentials into a G/S/C oriented engine, by Pia Carrot and Sukiyami.

Here is our disclaimer (with fun ascii art):

Spoiler:

################################################################################
##                        _           _                                       ##
##                       / `_  / _/  /_`_  _  ._  _                           ##
##                      /_;/_///_/  /_,/ //_/// //_'                          ##
##                                        _/                                  ##
##                        by Pia Carrot & Sukiyami                            ##
##                                                                            ##
##     _\/_                pia♥kyarotto e yōkoso                              ##
##     \  /                                                                   ##
##      \/   GSC Engine Notes                                                 ##
################################################################################
## First off, thanks for using the Gold Engine. We worked really hard to make ##
## it and I tried my best to make it plug-and-play by not editing existing    ##
## scripts. If you would like to donate to support future updates, here is my ##
## Paypal:                                                                    ##
##                                                                            ##
## [url]https://www.paypal.com/cgi-bin/webscr?cmd=_donations&business=piacarrot%40live%2ecom&lc=US&item_name=Desu%20Soft&currency_code=USD&bn=PP-DonationsBF%3abtn_donate_SM%2egif%3aNonHosted[/url]
##
##                                                                            ##
## or just send it to [email][email protected][/email] via paypal.                          ##
##                                                                            ##
################################################################################
## This kit is an edit of Pokémon Essentials v13. I hope to include support for#
## Mega-Evolutions. Double battles aren't possible with the limited screen size,
## my apologies. For this reason I will try to keep this as open-source as    ##
## possible if our kit does not completely fit your needs. This kit will include
## sprites for all Pokémon over time.                                         ##
##                                                                            ##
## Visit my deviantArt for more info on my sprite project "Kalos Silver":     ##
## piacarrot.deviantart.com                                                   ##
##                                                                            ##
################################################################################
##           ___  _           _       _                                       ##
##          | . \<_> ___ ___ | | ___ <_>._ _ _  ___  _ _                      ##
##          | | || |<_-</ | '| |<_> || || ' ' |/ ._>| '_>                     ##
##          |___/|_|/__/\_|_.|_|<___||_||_|_|_|\___.|_|                       ##
##                                                                            ##
## If you use this kit please have a link in your thread to this kit's thread,##
## wherever you found it (dA, PHO, Savepoint or PC). You may not sell this kit,#
## as it is freeware. If you bought this kit, you have been ripped off! General#
## Essentials information can be found on its respective wiki. Do not claim this
## kit as your own work, that's just plain rude.                              ##
##                                                                            ##
## If you would like to post this kit elsewhere or want to update it, please  ##
## contact me or Sukiyami.                                                    ##
################################################################################

CameraGSC (edit of GamePlayer)

This will change the cameras position to that of GSC's.

Spoiler:

#############################################################################
##  This script will change the camera position to match that of G/S/C's   ##
##                                                                         ##
##     _\/_               pia♥kyarotto e yōkoso                            ##
##     \  /                                                                ##
##      \/   GSC Camera by Pia Carrot                                      ##
#############################################################################
class Game_Player < Game_Character
  attr_accessor :bump_se

  def map
    @map=nil
    return $game_map
  end

  def initialize(*arg)
    super(*arg)
    @lastdir=0
    @lastdirframe=0
    @bump_se=0
  end

  def pbHasDependentEvents?
    return $PokemonGlobal.dependentEvents.length>0   
  end

  def move_down(turn_enabled = true)
    if turn_enabled
      turn_down
    end
    if passable?(@x, @y, 2)
      return if pbLedge(0,1)
      return if pbEndSurf(0,1)
      turn_down
      @y += 1
      $PokemonTemp.dependentEvents.pbMoveDependentEvents
      increase_steps
    else
      if !check_event_trigger_touch(@x, @y+1)
        if !@bump_se || @bump_se<=0
          pbSEPlay("bump"); @bump_se=10
        end
      end
    end
  end

  def move_left(turn_enabled = true)
    if turn_enabled
      turn_left
    end
    if passable?(@x, @y, 4)
      return if pbLedge(-1,0)
      return if pbEndSurf(-1,0)
      turn_left
      @x -= 1
      $PokemonTemp.dependentEvents.pbMoveDependentEvents
      increase_steps
    else
      if !check_event_trigger_touch(@x-1, @y)
        if !@bump_se || @bump_se<=0
          pbSEPlay("bump"); @bump_se=10
        end
      end
    end
  end

  def move_right(turn_enabled = true)
    if turn_enabled
      turn_right
    end
    if passable?(@x, @y, 6)
      return if pbLedge(1,0)
      return if pbEndSurf(1,0)
      turn_right
      @x += 1
      $PokemonTemp.dependentEvents.pbMoveDependentEvents
      increase_steps
    else
      if !check_event_trigger_touch(@x+1, @y)
        if !@bump_se || @bump_se<=0
          pbSEPlay("bump"); @bump_se=10
        end
      end
    end
  end

  def move_up(turn_enabled = true)
    if turn_enabled
      turn_up
    end
    if passable?(@x, @y, 8)
      return if pbLedge(0,-1)
      return if pbEndSurf(0,-1)
      turn_up
      @y -= 1
      $PokemonTemp.dependentEvents.pbMoveDependentEvents
      increase_steps
    else
      if !check_event_trigger_touch(@x, @y-1)
        if !@bump_se || @bump_se<=0
          pbSEPlay("bump"); @bump_se=10
        end
      end
    end
  end

  def pbTriggeredTrainerEvents(triggers,checkIfRunning=true)
    result = []
    # If event is running
    if checkIfRunning && $game_system.map_interpreter.running?
      return result
    end
    # All event loops
    for event in $game_map.events.values
      next if !event.name[/^Trainer\((\d+)\)$/]
      distance=$~[1].to_i
      # If event coordinates and triggers are consistent
      if pbEventCanReachPlayer?(event,self,distance) and triggers.include?(event.trigger)
          # If starting determinant is front event (other than jumping)
        if not event.jumping? and not event.over_trigger?
          result.push(event)
        end
      end
    end
    return result
  end

  def pbTriggeredCounterEvents(triggers,checkIfRunning=true)
    result = []
    # If event is running
    if checkIfRunning && $game_system.map_interpreter.running?
      return result
    end
    # All event loops
    for event in $game_map.events.values
      next if !event.name[/^Counter\((\d+)\)$/]
      distance=$~[1].to_i
      # If event coordinates and triggers are consistent
      if pbEventFacesPlayer?(event,self,distance) and triggers.include?(event.trigger)
          # If starting determinant is front event (other than jumping)
        if not event.jumping? and not event.over_trigger?
          result.push(event)
        end
      end
    end
    return result
  end

  def pbCheckEventTriggerAfterTurning
  end

  def pbCheckEventTriggerFromDistance(triggers)
    ret=pbTriggeredTrainerEvents(triggers)
    ret.concat(pbTriggeredCounterEvents(triggers))
    return false if ret.length==0
    for event in ret
      event.start
    end
    return true
  end

  def pbFacingEvent
    if $game_system.map_interpreter.running?
      return nil
    end
    new_x = @x + (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
    new_y = @y + (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
    for event in $game_map.events.values
      if event.x == new_x and event.y == new_y
        if not event.jumping? and not event.over_trigger?
          return event
        end
      end
    end
    if $game_map.counter?(new_x, new_y)
      new_x += (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
      new_y += (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
      for event in $game_map.events.values
        if event.x == new_x and event.y == new_y
          if not event.jumping? and not event.over_trigger?
            return event
          end
        end
      end
    end
    return nil
  end
  #-----------------------------------------------------------------------------
  # * Passable Determinants
  #     x : x-coordinate
  #     y : y-coordinate
  #     d : direction (0,2,4,6,8)
  #         * 0 = Determines if all directions are impassable (for jumping)
  #-----------------------------------------------------------------------------
  def passable?(x, y, d)
    # Get new coordinates
    new_x = x + (d == 6 ? 1 : d == 4 ? -1 : 0)
    new_y = y + (d == 2 ? 1 : d == 8 ? -1 : 0)
    # If coordinates are outside of map
    unless $game_map.validLax?(new_x, new_y)
      # Impassable
      return false
    end
    if !$game_map.valid?(new_x, new_y)
      return false if !$MapFactory
      return $MapFactory.isPassableFromEdge?(new_x, new_y)
    end
    # If debug mode is ON and ctrl key was pressed
    if $DEBUG and Input.press?(Input::CTRL)
      # Passable
      return true
    end
    super
  end
  #-----------------------------------------------------------------------------
  # * Set Map Display Position to Center of Screen
  #-----------------------------------------------------------------------------
  def center(x, y)
    # X coordinate in the center of the screen
    center_x = (Graphics.width/2 - 16 - Game_Map::TILEWIDTH/2) * Game_Map::XSUBPIXEL 
    # Y coordinate in the center of the screen   
    center_y = (Graphics.height/2 - Game_Map::TILEHEIGHT/2) * Game_Map::YSUBPIXEL
    max_x = (self.map.width - Graphics.width*1.0/Game_Map::TILEWIDTH) * Game_Map.realResX
    max_y = (self.map.height - Graphics.height*1.0/Game_Map::TILEHEIGHT) * Game_Map.realResY
    dispx=x * Game_Map.realResX - center_x
    dispy=y * Game_Map.realResY - center_y
    self.map.display_x = dispx
    self.map.display_y = dispy
  end
  #-----------------------------------------------------------------------------
  # * Move to Designated Position
  #     x : x-coordinate
  #     y : y-coordinate
  #-----------------------------------------------------------------------------
  def moveto(x, y)
    super
    # Centering
    center(x, y)
    # Make encounter count
    make_encounter_count
  end
  #-----------------------------------------------------------------------------
  # * Get Encounter Count
  #-----------------------------------------------------------------------------
  def encounter_count
    return @encounter_count
  end
  #-----------------------------------------------------------------------------
  # * Make Encounter Count
  #-----------------------------------------------------------------------------
  def make_encounter_count
    # Image of two dice rolling
    if $game_map.map_id != 0
      n = $game_map.encounter_step
      @encounter_count = rand(n) + rand(n) + 1
    end
  end
  #-----------------------------------------------------------------------------
  # * Refresh
  #-----------------------------------------------------------------------------
  def refresh
    @opacity = 255
    @blend_type = 0
  end
  #-----------------------------------------------------------------------------
  # * Same Position Starting Determinant
  #-----------------------------------------------------------------------------
  def check_event_trigger_here(triggers)
    result = false
    # If event is running
    if $game_system.map_interpreter.running?
      return result
    end
    # All event loops
    for event in $game_map.events.values
      # If event coordinates and triggers are consistent
      if event.x == @x and event.y == @y and triggers.include?(event.trigger)
        # If starting determinant is same position event (other than jumping)
        if not event.jumping? and event.over_trigger?
          event.start
          result = true
        end
      end
    end
    return result
  end
  #-----------------------------------------------------------------------------
  # * Front Event Starting Determinant
  #-----------------------------------------------------------------------------
  def check_event_trigger_there(triggers)
    result = false
    # If event is running
    if $game_system.map_interpreter.running?
      return result
    end
    # Calculate front event coordinates
    new_x = @x + (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
    new_y = @y + (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
    # All event loops
    for event in $game_map.events.values
      # If event coordinates and triggers are consistent
      if event.x == new_x and event.y == new_y and
         triggers.include?(event.trigger)
        # If starting determinant is front event (other than jumping)
        if not event.jumping? and (!event.over_trigger?)
          event.start
          result = true
        end
      end
    end
    # If fitting event is not found
    if result == false
      # If front tile is a counter
      if $game_map.counter?(new_x, new_y)
        # Calculate 1 tile inside coordinates
        new_x += (@direction == 6 ? 1 : @direction == 4 ? -1 : 0)
        new_y += (@direction == 2 ? 1 : @direction == 8 ? -1 : 0)
        # All event loops
        for event in $game_map.events.values
          # If event coordinates and triggers are consistent
          if event.x == new_x and event.y == new_y and
             triggers.include?(event.trigger)
            # If starting determinant is front event (other than jumping)
            if not event.jumping? and (!event.over_trigger?)
              event.start
              result = true
            end
          end
        end
      end
    end
    return result
  end
  #-----------------------------------------------------------------------------
  # * Touch Event Starting Determinant
  #-----------------------------------------------------------------------------
  def check_event_trigger_touch(x, y)
    result = false
    # If event is running
    if $game_system.map_interpreter.running?
      return result
    end
    # All event loops
    for event in $game_map.events.values
      if event.name[/^Trainer\((\d+)\)$/]
        distance=$~[1].to_i
        next if !pbEventCanReachPlayer?(event,self,distance)
      end
      if event.name[/^Counter\((\d+)\)$/]
        distance=$~[1].to_i
        next if !pbEventFacesPlayer?(event,self,distance)
      end
      # If event coordinates and triggers are consistent
      if event.x == x and event.y == y and [1,2].include?(event.trigger)
        # If starting determinant is front event (other than jumping)
        if not event.jumping? and not event.over_trigger?
          event.start
          result = true
        end
      end
    end
    return result
  end
  #-----------------------------------------------------------------------------
  # * Frame Update
  #-----------------------------------------------------------------------------
  def update
    # Remember whether or not moving in local variables
    last_moving = moving?
    # If moving, event running, move route forcing, and message window
    # display are all not occurring
    dir=Input.dir4
    unless moving? or $game_system.map_interpreter.running? or
           @move_route_forcing or $game_temp.message_window_showing or
           $PokemonTemp.miniupdate
      # Move player in the direction the directional button is being pressed
      if dir==@lastdir && Graphics.frame_count-@lastdirframe>2
        case dir
          when 2
            move_down
          when 4
            move_left
          when 6
            move_right
          when 8
            move_up
        end
      elsif dir!=@lastdir
        case dir
          when 2
            turn_down
          when 4
            turn_left
          when 6
            turn_right
          when 8
            turn_up
        end
      end
    end
    $PokemonTemp.dependentEvents.updateDependentEvents
    if dir!=@lastdir
      @lastdirframe=Graphics.frame_count
    end
    @lastdir=dir
    # Remember coordinates in local variables
    last_real_x = @real_x
    last_real_y = @real_y
    super
    center_x = (Graphics.width/2 - 16 - Game_Map::TILEWIDTH/2) * 
              Game_Map::XSUBPIXEL   # Center screen x-coordinate * 4
    center_y = (Graphics.height/2 - Game_Map::TILEHEIGHT/2) * 
              Game_Map::YSUBPIXEL   # Center screen y-coordinate * 4
    # If character moves down and is positioned lower than the center
    # of the screen
    if @real_y > last_real_y and @real_y - $game_map.display_y > center_y
      # Scroll map down
      $game_map.scroll_down(@real_y - last_real_y)
    end
    # If character moves left and is positioned more left on-screen than
    # center
    if @real_x < last_real_x and @real_x - $game_map.display_x < center_x
      # Scroll map left
      $game_map.scroll_left(last_real_x - @real_x)
    end
    # If character moves right and is positioned more right on-screen than
    # center
    if @real_x > last_real_x and @real_x - $game_map.display_x > center_x
      # Scroll map right
      $game_map.scroll_right(@real_x - last_real_x)
    end
    # If character moves up and is positioned higher than the center
    # of the screen
    if @real_y < last_real_y and @real_y - $game_map.display_y < center_y
      # Scroll map up
      $game_map.scroll_up(last_real_y - @real_y)
    end
    # Count down the time between allowed bump sounds
    @bump_se-=1 if @bump_se && @bump_se>0
    # If not moving
    unless moving?
      # If player was moving last time
      if last_moving
        $PokemonTemp.dependentEvents.pbTurnDependentEvents
        result = pbCheckEventTriggerFromDistance([2])
        # Event determinant is via touch of same position event
        result |= check_event_trigger_here([1,2])
        # If event which started does not exist
        Kernel.pbOnStepTaken(result) # *Added function call
      end
      # If C button was pressed
      if Input.trigger?(Input::C) && !$PokemonTemp.miniupdate
        # Same position and front event determinant
        check_event_trigger_here([0])
        check_event_trigger_there([0,2]) # *Modified to prevent unnecessary triggers
      end
    end
  end
end

ShowAreaGSC

Spoiler:

#############################################################################
##  This script will change the Location signpost to match that of G/S/C's ##
##                                                                         ##
##     _\/_               pia♥kyarotto e yōkoso                            ##
##     \  /                                                                ##
##      \/   GSC Location by Pia Carrot                                    ##
#############################################################################
class LocationWindow 
  def initialize(name) 
    @window=Window_AdvancedTextPokemon.new(name) 
    @window.setSkin("Graphics/Windowskins/showarea") 
    @window.baseColor=Color.new(0,0,0)
    @window.shadowColor=Color.new(248,248,128)
    @window.width=320 
    @window.height=64 
    @window.x=0 
    @[email protected] 
    @window.z=99999 
    @currentmap=$game_map.map_id 
    @frames=0 
  end 
  
  def disposed? 
    @window.disposed? 
  end 
  
  def dispose 
    @window.dispose 
  end 
  
  def update 
    return if @window.disposed? 
    @window.update 
    if $game_temp.message_window_showing || 
      @currentmap!=$game_map.map_id 
      @window.dispose 
      return 
    end 
    if @frames>80 
      @window.y-=288 
      @window.dispose if @[email protected]<0 
    else @window.y+=288 if @window.y<0 
      @frames+=1 
    end 
  end 
end

Showarea.png:

 

[PiaCRT]

Updated with ShowAreaGSC. Add showarea.png to your windowskins. Text isn't centered, I will update this another time.

 

[Daruda]

This is so Nice, it's wonderful.....
I really love G/S/C and well, doing a game similar to them is awesome, Really, but there is always the problem of pokemon sprite...
Do you know any project for them?

 

[PiaCRT]

This is so Nice, it's wonderful.....
I really love G/S/C and well, doing a game similar to them is awesome, Really, but there is always the problem of pokemon sprite...
Do you know any project for them?

No idea what you mean. If you are talking about the sprites from Gold and Silver, Full Metal and I already compiled them.

As for custom sprites, there was a project on Spriters-Resource forums, though you'll need the authors' permission for each sprite...

And then I have a project, Kalos Silver, which aims to make sprites for all of the Kalos Pokémon.

 

[Daruda]

Sorry, I must have explained, what I was thinking, not very well.
I love 1-2gen sprite style, but they're just up gen2, obvious, so I was wondering if there were some sprite in gen2 style already done.
I don't really know if I can get the permission to use them through...
I can always make them myself, but that would be really overworking myself.
If I happen to do something from kalos I'll send them to you as thanks.

 

[Juka15]

Excuse me, but my game is giving error. Could you tell me how to help me, since you created the script?
PS: Sorry my english, I do not speak your language.