|
| | Bantuin Editin Script ini |  |
| | |
| Pengirim | Message |
|---|
yade26
Novice
Posts : 132
Thanked : 0
Engine : RMVX Ace
Skill : Skilled
Type : Scripter
| | Subyek: Bantuin Editin Script ini 2012-05-10, 20:58 | |
| First topic message reminder :OK agan agan... ini scriptnya - Spoiler:
module ADDON
ASK_FULLSCREEN = true # if set to false it wont ask you and it'll go straight to
# fullscreen
end
class Window_Text < Window_Base
def initialize(x, y)
super(x, y, 350, 65)
refresh
end
def refresh
self.contents.clear
self.contents.draw_text(0, 0, 544, 35, "Pilih Resolusi layar")
end
end
class Scene_Title
alias main_fullscreen? main
def main
if ADDON::ASK_FULLSCREEN
unless $game_started
Graphics.freeze
$data_system = load_data('Data/System.rvdata')
$game_system = Game_System.new
@text_window = Window_Text.new(92, 128)
@text_window.back_opacity = 0
@text_window.opacity = 0
s1 = "Layar Penuh"
s2 = "Normal"
@window = Window_Command.new(96, [s1 ,s2])
@window.x = 92
@window.y = 240 - @window.height / 2
@window.opacity = 0
Graphics.transition
loop do
Graphics.update
Input.update
@window.update
update_window
break if $game_started
end
Graphics.freeze
@window.dispose
@window = nil
@text_window.dispose
Graphics.transition
Graphics.freeze
end
else
auto
end
main_fullscreen?
end
def update_window
if Input.trigger?(Input::C)
if @window.index == 0
Sound.play_decision
keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
keybd.call(0xA4, 0, 0, 0)
keybd.call(13, 0, 0, 0)
keybd.call(13, 0, 2, 0)
keybd.call(0xA4, 0, 2, 0)
else
end
$game_started = true
elsif Input.trigger?(Input::B)
Sound.play_cancel
$game_started = true
end
end
def auto
keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
keybd.call(0xA4, 0, 0, 0)
keybd.call(13, 0, 0, 0)
keybd.call(13, 0, 2, 0)
keybd.call(0xA4, 0, 2, 0)
$game_started = true
end
end
1. Gimana caranya masukin musik BGM ke script itu ??? 2. Gmana cara ngedit text "Fullscreen" ato "Normal" dengan gambar... eh iyah... yang ininya juga "Pilih Resolusi layar" ingin diganti dengan gambar.... EDIT: lupa lagi, abis itu diset supaya udah milih resolusi layar langsung ke $scene = "Scene_Pretitle.new" | |
| | | |
| Pengirim | Message |
|---|
Lukas
Senior
Posts : 618
| | Subyek: Re: Bantuin Editin Script ini 2012-05-13, 22:22 | |
| - larkuzo wrote:
@Lukas
maksud saya kenapa di def main gak ada
@gambar = Sprite.new
@gambar.bitmap = Cache.picture("Fulscreen")
padahal di def update_window ada
when 0
@gambar.bitmap = Cache.picture("Fulscreen")
when 1
@gambar.bitmap = Cache.picture("Normal")
ah keburu sadar  , padahal udah cape2 ngetik di hp 
EDIT :
itu mending yang s1 sama s2 nya diganti jadi text aja, takutnya bentrok sama bitmap @gambar maaf lg badmood  iya itu emang bentrok, biar dia ganti sndiri lahh. ato om yg susun ulang,  | |
| | | | larkuzo
Advance
Posts : 445
Thanked : 12
Engine : RMXP
Skill : Beginner
Type : Event Designer
| | Subyek: Re: Bantuin Editin Script ini 2012-05-14, 15:14 | |
| ahaha, akhirnya bisa juga ol dari lappie  nih om, udah saya tambahin sedikit biar lebih "bagus" - Code:
-
module ADDON
ASK_FULLSCREEN = true # if set to false it wont ask you and it'll go straight to
# fullscreen
end
class Scene_Title
alias main_fullscreen? main
def main
if ADDON::ASK_FULLSCREEN
unless $game_started
Graphics.freeze
Audio.bgm_play("Audio/BGM/" + bgm_name, bgm_volume, bgm_pitch)
$data_system = load_data('Data/System.rvdata')
$game_system = Game_System.new
@gambara = Sprite.new
@gambara.bitmap = Cache.picture('Juice')
@gambara.x = -200
@gambara.y = 120
@gambarb = Sprite.new
@gambarb.bitmap = Cache.picture('Juice')
@gambarb.x = 640
@gambarb.y = 120
@gambar = Sprite.new
@gambar.bitmap = Cache.picture("Fullscreen") rescue nil
s1 = "Fullscreen"
s2 = "Normal"
@window = Window_Command.new(96, [s1 ,s2])
@window.x = 92
@window.y = 240 - @window.height / 2
@window.opacity = 0
@window.contents_opacity = 0
@change = 0
Graphics.transition
(0..19).each {|i| @gambarb.x -= 10; @gambara.x +=10; Graphics.update}
loop do
Graphics.update
Input.update
@window.update
update_window
break if $game_started
end
Graphics.freeze
@gambar.dispose
@gambara.dispose
@gambarb.dispose
@window.dispose
@window = nil
Graphics.transition
Graphics.freeze
end
else
auto
end
main_fullscreen?
end
def update_window
case @window.index
when 0
@change += 1
if @change < 10
@gambar.bitmap = Cache.picture("Fullscreen") rescue nil
elsif @change >= 10 and @change <= 20
@gambar.bitmap = Cache.picture("None") rescue nil
else
@change = 0
end
when 1
@change += 1
if @change < 10
@gambar.bitmap = Cache.picture("Normal") rescue nil
elsif @change >= 10 and @change <= 20
@gambar.bitmap = Cache.picture("None") rescue nil
else
@change = 0
end
end
if Input.trigger?(Input::C)
if @window.index == 0
Sound.play_decision
keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
keybd.call(0xA4, 0, 0, 0)
keybd.call(13, 0, 0, 0)
keybd.call(13, 0, 2, 0)
keybd.call(0xA4, 0, 2, 0)
else
end
$scene = Scene_Pretitle.new
elsif Input.trigger?(Input::B)
Sound.play_cancel
$scene = Scene_Pretitle.new
end
end
def auto
keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
keybd.call(0xA4, 0, 0, 0)
keybd.call(13, 0, 0, 0)
keybd.call(13, 0, 2, 0)
keybd.call(0xA4, 0, 2, 0)
$scene = Scene_Pretitle.new
end
end terus download ketiga gambar di bawah ini dan taruh di folder Graphics > Pictures http://www.fileden.com/files/2012/3/8/3275618/Fullscreen.png http://www.fileden.com/files/2012/3/8/3275618/None.png http://www.fileden.com/files/2012/3/8/3275618/Normal.png cuma yang masih saya ragukan adalah setelah memilih salah satu dari fullscreen atau normal tidak pergi ke Scene_Pretitle.new  semoga membantu !
EDIT : om udah ketemu nih yang bener ! yang tadi ganti dengan ini > - Code:
-
module ADDON
ASK_FULLSCREEN = true # if set to false it wont ask you and it'll go straight to
# fullscreen
end
module EDIT
LAGU = "Audio/BGM/NAMALAGU"
end
class Scene_Pretitle
alias main_fullscreen? main
def main
include EDIT
if ADDON::ASK_FULLSCREEN
unless $game_started
Graphics.freeze
Audio.bgm_play(EDIT::LAGU, 100, 100)
$data_system = load_data('Data/System.rvdata')
$game_system = Game_System.new
@gambara = Sprite.new
@gambara.bitmap = Cache.picture('Juice')
@gambara.x = -200
@gambara.y = 120
@gambarb = Sprite.new
@gambarb.bitmap = Cache.picture('Juice')
@gambarb.x = 640
@gambarb.y = 120
@gambar = Sprite.new
@gambar.bitmap = Cache.picture("Fullscreen") rescue nil
s1 = "Fullscreen"
s2 = "Normal"
@window = Window_Command.new(96, [s1 ,s2])
@window.x = 92
@window.y = 240 - @window.height / 2
@window.opacity = 0
@window.contents_opacity = 0
@change = 0
Graphics.transition
(0..19).each {|i| @gambarb.x -= 10; @gambara.x +=10; Graphics.update}
loop do
Graphics.update
Input.update
@window.update
update_window
break if $game_started
end
Graphics.freeze
@gambar.dispose
@gambara.dispose
@gambarb.dispose
@window.dispose
@window = nil
Graphics.transition
Graphics.freeze
end
else
auto
end
main_fullscreen?
end
def update_window
case @window.index
when 0
@change += 1
if @change < 10
@gambar.bitmap = Cache.picture("Fullscreen") rescue nil
elsif @change >= 10 and @change <= 20
@gambar.bitmap = Cache.picture("None") rescue nil
else
@change = 0
end
when 1
@change += 1
if @change < 10
@gambar.bitmap = Cache.picture("Normal") rescue nil
elsif @change >= 10 and @change <= 20
@gambar.bitmap = Cache.picture("None") rescue nil
else
@change = 0
end
end
if Input.trigger?(Input::C)
if @window.index == 0
Sound.play_decision
keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
keybd.call(0xA4, 0, 0, 0)
keybd.call(13, 0, 0, 0)
keybd.call(13, 0, 2, 0)
keybd.call(0xA4, 0, 2, 0)
else
end
$game_started = true
elsif Input.trigger?(Input::B)
Sound.play_cancel
$game_started = true
end
end
def auto
keybd = Win32API.new 'user32.dll', 'keybd_event', ['i', 'i', 'l', 'l'], 'v'
keybd.call(0xA4, 0, 0, 0)
keybd.call(13, 0, 0, 0)
keybd.call(13, 0, 2, 0)
keybd.call(0xA4, 0, 2, 0)
$game_started = true
end
end atur lagunya di module EDIT, ganti "NAMALAGU" nya terus Main (yang paling bawah) ganti dengan ini - Code:
-
#==============================================================================
# ** Main
#------------------------------------------------------------------------------
# After defining each class, actual processing begins here.
#==============================================================================
begin
Graphics.freeze
$scene = Scene_Pretitle.new
$scene.main while $scene != nil
Graphics.transition(30)
rescue Errno::ENOENT
filename = $!.message.sub("No such file or directory - ", "")
print("Unable to find file #{filename}.")
end
semoga berhasil !!
Terakhir diubah oleh larkuzo tanggal 2012-05-14, 19:30, total 1 kali diubah (Reason for editing : benerin script) | |
| | | | Sponsored content
| | Subyek: Re: Bantuin Editin Script ini | |
| |
| | | | | | Bantuin Editin Script ini | |
|
Similar topics | |
|
| | Permissions in this forum: | Anda tidak dapat menjawab topik
| |
| |
| | Latest topics | » [Web Novel] Gloria Infidelis
by LightNightKnight 2016-11-17, 21:27
» [Announcement] Forum baru untuk RMID
by TheoAllen 2016-08-25, 16:39
» Where I'm Wrong ?
by ReydVires 2016-07-24, 16:10
» flakeheartnet's Resources part III
by flakeheartnet 2016-07-08, 14:30
» Keira's Art Warehouse
by KeiraBlaze 2016-06-28, 19:27
» Theo Core Time System + Bingung
by Lockin 2016-06-27, 16:24
» Error Script, Maybe ?
by Lockin 2016-06-27, 16:20
» Nusaimoe @ RMID Lounge
by Jihad Bagas 2016-06-21, 05:02
» Call Random Battle
by Lockin 2016-06-15, 17:04
» Flakeheartnet Resources Part II [come back gift]
by flakeheartnet 2016-06-07, 15:51
|
|
Statistics
|
Members: [ 4947 ]
Topics: [ 8258 ]
Posts: [ 112606 ]
Newest member: [ https://rmid.forumotion.net/u4968 ]
|
|
|
|
|
