[VX/XP] Rei Simple scripts

#===============================================================================
# † [VX/XP] † Window Resize † †
# † Mengaktifkan fitur Maximize dan resize window untuk Game Playernya !! †
#-------------------------------------------------------------------------------
#      * Ini adalah sebagian fitur dari script Web Browsernya berka *
#-------------------------------------------------------------------------------
# Taruh saja script ini di script editor sebelah mana saja, dan jalankan game.
# Tombol maximize akan otomatis ada lagi.
# Game akan otomatis menyesuaikan gambar dg ukuran windownya
#-------------------------------------------------------------------------------
# Bila digunakan di XP, gambar tidak akan menyesuaikan dg bentuk window,
# tapi tetap bisa di resize
#===============================================================================
# JANGAN EDIT APAPUN DI BAWAH SINI!!!
#===============================================================================
def window_resize
  Win32API.new('kernel32','GetPrivateProfileString','pppplp','l').call("Game",
              "Title","",title="\0"*256,256,".//Game.ini")
  Win32API.new('user32','FindWindow','pp','i').call("RGSS Player",title.delete!("\0"))
end
Win32API.new('user32','SetWindowLong','lll','l').call(window_resize,-16,
            0x10C70000|0x00080000)

#===============================================================================
# [VX/XP] Rei INI Read
# Script ini gunanya untuk membaca string yang ada di dalam sebuah file
# berekstensi .ini
# Script ini berguna kalau kamu mau player bisa merubah settingan2 tertentu
# yang kamu buat di script tanpa perlu membongkar game dan hanya perlu merubah
# data2 yang ada di dalam 1 file yang bisa dibuka oleh notepad saja.
#------------------------------------------------------------------------------
# Cara pakai :
# Rei::INI.read(field,key,ini)
#------------------------------------------------------------------------------
# Contoh, kamu punya sebuah file bernama Game.ini (Yang ada di semua game RMVX/XP)
# di dalamnya ada tulisan seperti ini :
#
# [Game]
# RTP                =RPGVX
# Library            =RGSS202E.dll
# Scripts            =Data\Scripts.rvdata
# Title              =Game Kuda
#
# Nah [Game] adalah field (Jangan pakai [] saat memanggil scriptnya!)
# RTP, Library, Scripts, dan Title adalah key
# RPGVX, RGSS202E.dll, Data\Scripts.rvdata dan Game Kuda adalah data yang akan
# dibaca oleh script ini dan dikembalikan ke script pemanggil.
# Value yang di return SELALU string, jadi kamu harus merubahnya ke bentuk lain
# kalau kamu mau menggunakannya untuk value selain string.
#
# Untuk contoh diatas, cara pemanggilang scriptnya adalah :
# Rei::INI.read("Game","RTP","Game.ini')
# script diatas akan mengembalikan "RPGVX" ke yang memanggilnya.
#
# Semoga bermanfaat !
#===============================================================================
module Rei
  module INI
    GPPS    = Win32API.new('kernel32','GetPrivateProfileString','pppplp','l')
    def self.read(field,key,ini)
      GPPS.call(field,key,"",result="\0"*256,256,".//#{ini}")rescue return result=""
      return result.delete!("\0")
    end
  end
end

#------------------------------------------------------
# [XP/VX]Rei Audio Player
#------------------------------------------------------
# Audio player yg bisa di pause dsb :)
# Tapi cuma bisa setel 1 file (Wajar kan)
#
# requrement : Rei INI Read
#
# Usage = Rei::Audio_Player.play(file,volume,seek time)
#        Rei::Audio_Player.set_volume(volume)      => 0-1000
#        Rei::Audio_Player.pause
#        Rei::Audio_Player.stop
#        Rei::Audio_Player.resume
#        Rei::Audio_Player.close
#------------------------------------------------------
# Ingat untuk selalu memanggil close saat sudah selesai
# dg bermain audio, kalau tidak Audio Playernya tidak
# di close dg benar
# Nama file HARUS ditambahkan dg extensinya, e.g : "Miku.mp3"
#------------------------------------------------------
module Rei
  module Audio_Player
    PATH = './Audio/BGM/'  # Atur path dimana audio di simpan
    WMP = Win32API.new('winmm','mciSendString','ppll','v')
    def self.play(audio_file,volume,seek=0)
      file=PATH+audio_file
      rm=Rei::INI.read("Game","Title","Game.ini")
      master=Win32API.new('user32','FindWindowEx','llpp','l').call(0,0,nil,rm)
      WMP.call("open #{file} alias FILE type mpegvideo style child parent "+master.to_s,0,0,0)
      WMP.call("play FILE from #{seek}",0,0,0)
      WMP.call("setaudio File volume to #{volume}",0,0,0)
    end
    def self.set_volume(v=800)WMP.call("setaudio FILE volume to #{v}",0,0,0);end
    def self.pause;WMP.call("pause FILE",0,0,0);end
    def self.resume;WMP.call("resume FILE",0,0,0);end
    def self.stop;WMP.call("stop FILE",0,0,0);end
    def self.close;WMP.call("close FILE",0,0,0);end
  end
end

#===============================================================================
# † [VX] † Rei Randomize Place † †
# † Pindahin event/player secara random †
# Script Level : Very Easy
# by reijubv
#===============================================================================
# Cara pakai :
# Di event command, halaman 3, dibawah Advanced, klik script dan ketik
# quick_randomize_place(#)
# ganti # dengan :
# -1 (player)
#  0 ("this event")
#  1 atau lebih adalah event dg Id tersebut
# Objek tidak akan dipindah ketempat yang unpassable!
#===============================================================================
# Taroh diatas Main, jgn lupa credit reijubv ( > o < )
#===============================================================================
class Game_Interpreter
  def quick_randomize_place(what)
    character = get_character(what)
    loop do
      character.moveto(rand($game_map.height), rand($game_map.width))
      break if $game_map.passable?(character.x, character.y)
    end
  end
end
#===============================================================================
#===============================================================================

#------------------------------------------------------
# [XP/VX]Rei Audio Player
#------------------------------------------------------
# Audio player yg bisa di pause dsb :)
# Tapi cuma bisa setel 1 file (Wajar kan)
#
# requrement : Rei INI Read
#
# Usage = Rei::Audio_Player.play(file,volume,seek time)
#        Rei::Audio_Player.set_volume(volume)      => 0-1000
#        Rei::Audio_Player.pause
#        Rei::Audio_Player.stop
#        Rei::Audio_Player.resume
#        Rei::Audio_Player.close
#------------------------------------------------------
# Ingat untuk selalu memanggil close saat sudah selesai
# dg bermain audio, kalau tidak Audio Playernya tidak
# di close dg benar
# Nama file HARUS ditambahkan dg extensinya, e.g : "Miku.mp3"
#------------------------------------------------------
module Rei
  module Audio_Player
    PATH = './Audio/BGM/'  # Atur path dimana audio di simpan
    WMP = Win32API.new('winmm','mciSendString','ppll','v')
    def self.play(audio_file,volume,seek=0)
      file=PATH+audio_file
      rm=Rei::INI.read("Game","Title","Game.ini")
      master=Win32API.new('user32','FindWindowEx','llpp','l').call(0,0,nil,rm)
      WMP.call("open #{file} alias FILE type mpegvideo style child parent "+master.to_s,0,0,0)
      WMP.call("play FILE from #{seek}",0,0,0)
      WMP.call("setaudio File volume to #{volume}",0,0,0)
    end
    def self.set_volume(v=800)WMP.call("setaudio FILE volume to #{v}",0,0,0);end
    def self.pause;WMP.call("pause FILE",0,0,0);end
    def self.resume;WMP.call("resume FILE",0,0,0);end
    def self.stop;WMP.call("stop FILE",0,0,0);end
    def self.close;WMP.call("close FILE",0,0,0);end
  end
end

#===============================================================================
# † [VX] † Rei Randomize Place † †
# † Pindahin event/player secara random †
# Script Level : Very Easy
# by reijubv
#===============================================================================
# Cara pakai :
# Di event command, halaman 3, dibawah Advanced, klik script dan ketik
# quick_randomize_place(#)
# ganti # dengan :
# -1 (player)
#  0 ("this event")
#  1 atau lebih adalah event dg Id tersebut
# Objek tidak akan dipindah ketempat yang unpassable!
#===============================================================================
# Taroh diatas Main, jgn lupa credit reijubv ( > o < )
#===============================================================================
class Game_Interpreter
  def quick_randomize_place(what)
    character = get_character(what)
    loop do
      character.moveto(rand($game_map.height), rand($game_map.width))
      break if $game_map.passable?(character.x, character.y)
    end
  end
end
#===============================================================================
#===============================================================================