Direction Boards 2017-05-30

def pbDirBoard(text, dir = nil, speed = 16, windowskin = "directionBoard")
  vp = Viewport.new(0, 0, Graphics.width, Graphics.height)
  vp.z = 99999
  sp = {}
  sp[:box] = Sprite.new(vp)
  sp[:box].bitmap = Bitmap.new("Graphics/Windowskins/#{windowskin}")
  sp[:box].y = Graphics.height
  sp[:bmp] = Sprite.new(vp)
  sp[:bmp].bitmap = Bitmap.new(Graphics.width, Graphics.height)
  sp[:bmp].z = 1
  pbSetSystemFont(sp[:bmp].bitmap)
  drawTextEx(sp[:bmp].bitmap,32,Graphics.height - sp[:box].bitmap.height / 2 - 16,
                Graphics.width,2,text,Color.new(64,64,64),Color.new(172,172,172))
  sp[:bmp].y += sp[:box].bitmap.height
  sp[:dir] = Sprite.new(vp)
  begin
    sp[:dir].bitmap = Bitmap.new("Graphics/Pictures/board#{dir}")
    sp[:dir].ox = sp[:dir].bitmap.width
    sp[:dir].oy = sp[:dir].bitmap.height / 2
    sp[:dir].y = Graphics.height - sp[:box].bitmap.height / 2
    sp[:dir].x = Graphics.width - 48
  rescue; end
  sp[:dir].y += sp[:box].bitmap.height
  speed.times do # Intro animation
    Graphics.update
    $scene.updateSpritesets
    sp[:box].y -= sp[:box].bitmap.height / speed
    sp[:bmp].y -= sp[:box].bitmap.height / speed
    sp[:dir].y -= sp[:box].bitmap.height / speed
  end
  loop do # Update input
    Graphics.update
    Input.update
    $scene.updateSpritesets
    break if Input.trigger?(Input::B)    || Input.trigger?(Input::C) ||
             Input.trigger?(Input::UP)   || Input.trigger?(Input::DOWN) ||
             Input.trigger?(Input::LEFT) || Input.trigger?(Input::RIGHT)
  end
  speed.times do # Outro animation
    Graphics.update
    $scene.updateSpritesets
    sp[:box].y += sp[:box].bitmap.height / speed
    sp[:bmp].y += sp[:box].bitmap.height / speed
    sp[:dir].y += sp[:box].bitmap.height / speed
  end
  pbDisposeSpriteHash(sp)
  vp.dispose
  pbWait(1)
end