Per 2016, RMID pindah ke RMID Discord (Invite link dihapus untuk mencegah spambot -Theo @ 2019). Posting sudah tidak bisa dilakukan lagi.
Mohon maaf atas ketidaknyamanannya dan mohon kerjasamanya.
|
| | | Bantuin Editin Script ini |  |
| |
| 2012-05-10, 20:58 | Bantuin Editin Script ini |
|---|
yade26
Novice
Posts : 132
Thanked : 0
Engine : RMVX Ace
Skill : Skilled
Type : Scripter
| 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" |
| | | |
| 2012-05-13, 22:22 | Re: Bantuin Editin Script ini |
|---|
Lukas
Senior
Posts : 618
| - 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,  |
| | | | | 2012-05-14, 15:14 | Re: Bantuin Editin Script ini |
|---|
larkuzo
Advance
Posts : 445
Thanked : 12
Engine : RMXP
Skill : Beginner
Type : Event Designer
| 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) |
| | | | | Re: Bantuin Editin Script ini |
|---|
Sponsored content
| | | | | | | Bantuin Editin Script ini | |
|
Similar topics | |
|
Similar topics | |
| |
| Halaman 2 dari 2 | Pilih halaman : 1, 2 | |
| | Permissions in this forum: | Anda tidak dapat menjawab topik
| |
| |
| Latest 10 Topics | [Web Novel] Gloria Infidelis
 2016-11-17, 21:27
by LightNightKnight
[Announcement] Forum baru untuk RMID
2016-08-25, 16:39
by TheoAllen
Where I'm Wrong ?
2016-07-24, 16:10
by ReydVires
flakeheartnet's Resources part III
2016-07-08, 14:30
by flakeheartnet
Keira's Art Warehouse
2016-06-28, 19:27
by KeiraBlaze
Theo Core Time System + Bingung
2016-06-27, 16:24
by Lockin
Error Script, Maybe ?
2016-06-27, 16:20
by Lockin
Nusaimoe @ RMID Lounge
2016-06-21, 05:02
by Jihad Bagas
Call Random Battle
2016-06-15, 17:04
by Lockin
Flakeheartnet Resources Part II [come back gift]
2016-06-07, 15:51
by flakeheartnet
|
|
Statistics
|
Members: [ 4947 ]
Topics: [ 8258 ]
Posts: [ 112606 ]
Newest member: [ https://rmid.forumotion.net/u4968 ]
|
|
|
|
|
|
|
