#------------------------------------------------------
# [VX/XP]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/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