class Window_PokemonOption < SpriteWindow_Selectable
attr_reader :bag
attr_reader :pocket
attr_reader :baseColor
attr_reader :shadowColor
attr_reader :mustUpdateOptions
def initialize(options,x,y,width,height)
super(x,y,width,height)
@options=options
@selarrow=BitmapCache.load_bitmap("Graphics/Pictures/selarrow.png")
@index=0
@nameBaseColor=Color.new(24*8,15*8,0)
@nameShadowColor=Color.new(31*8,22*8,10*8)
@baseColor=Color.new(9<<3,9<<3,9<<3)
@shadowColor=Color.new(26<<3,26<<3,26<<3)
@selBaseColor=Color.new(31*8,6*8,3*8)
@selShadowColor=Color.new(31*8,17*8,16*8)
@optvalues=[]
@mustUpdateOptions=false
for i in [email protected]
@optvalues[i]=0
end
refresh
end
def [](i)
return @optvalues[i]
end
def []=(i,value)
@optvalues[i]=value
refresh
end
def dispose
@selarrow.dispose
super
end
def refresh
@[email protected]+1
dwidth=self.width-32
dheight=self.height-32
if !self.contents || self.contents.disposed? ||
self.contents.height<dheight || self.contents.width<dwidth
self.contents.dispose if self.contents
self.contents=Bitmap.new([1,dwidth].max,[1,dheight].max)
pbSetSystemFont(self.contents)
end
self.contents.clear
contentsWidth=self.contents.width
self.contents.font.color=self.shadowColor
ypos=0
for i in [email protected]
if i<self.top_row || i>self.top_row+self.page_row_max
next
end
pbCopyBitmap(self.contents,@selarrow,0,ypos) if self.index==i
optionname=([email protected]) ? _INTL("CANCEL") : @options[i].name
self.contents.font.color=@nameShadowColor
optionwidth=(Graphics.width-96)/2
pbDrawShadow(self.contents,16,ypos,optionwidth,32,optionname)
self.contents.font.color=@nameBaseColor
self.contents.draw_text(16,ypos,optionwidth,32,optionname)
next if [email protected]
if @options[i].is_a?(EnumOption)
if @options[i].values.length>1
totalwidth=0
for value in @options[i].values
totalwidth+=self.contents.text_size(value).width
end
spacing=(optionwidth-totalwidth)/(@options[i].values.length-1)
spacing=0 if spacing<0
xpos=16+optionwidth
ivalue=0
for value in @options[i].values
self.contents.font.color=(ivalue==self[i]) ? @selShadowColor : self.shadowColor
pbDrawShadow(self.contents,xpos,ypos,optionwidth,32,value)
self.contents.font.color=(ivalue==self[i]) ? @selBaseColor : self.baseColor
self.contents.draw_text(xpos,ypos,optionwidth,32,value)
xpos+=self.contents.text_size(value).width
xpos+=spacing
ivalue+=1
end
else
self.contents.font.color=self.shadowColor
pbDrawShadow(self.contents,optionwidth+16,ypos,optionwidth,32,optionname)
self.contents.font.color=self.baseColor
self.contents.draw_text(optionwidth+16,ypos,optionwidth,32,optionname)
end
elsif @options[i].is_a?(NumberOption)
value=_ISPRINTF("{1:d}",@options[i].optstart+self[i])
xpos=16+optionwidth
self.contents.font.color=@selShadowColor
pbDrawShadow(self.contents,xpos,ypos,optionwidth,32,value)
self.contents.font.color=@selBaseColor
self.contents.draw_text(xpos,ypos,optionwidth,32,value)
else
value=@options[i].values[self[i]]
xpos=16+optionwidth
self.contents.font.color=@selShadowColor
pbDrawShadow(self.contents,xpos,ypos,optionwidth,32,value)
self.contents.font.color=@selBaseColor
self.contents.draw_text(xpos,ypos,optionwidth,32,value)
end
ypos+=32
end
end
def update
dorefresh=false
oldindex=self.index
@mustUpdateOptions=false
super
dorefresh=self.index!=oldindex
if self.active && self.index<@options.length
if Input.repeat?(Input::LEFT)
self[self.index]=@options[self.index].prev(self[self.index])
dorefresh=true
@mustUpdateOptions=true
elsif Input.repeat?(Input::RIGHT)
self[self.index]=@options[self.index].next(self[self.index])
dorefresh=true
@mustUpdateOptions=true
end
end
refresh if dorefresh
end
end
module PropertyMixin
def get
@getProc ? @getProc.call() : nil
end
def set(value)
@setProc.call(value) if @setProc
end
end
class EnumOption
include PropertyMixin
attr_reader :values
attr_reader :name
def initialize(name,options,getProc,setProc)
@values=options
@name=name
@getProc=getProc
@setProc=setProc
end
def next(current)
index=current+1
[email protected] if index>@values.length-1
return index
end
def prev(current)
index=current-1
index=0 if index<0
return index
end
end
class EnumOption2
include PropertyMixin
attr_reader :values
attr_reader :name
def initialize(name,options,getProc,setProc)
@values=options
@name=name
@getProc=getProc
@setProc=setProc
end
def next(current)
index=current+1
[email protected] if index>@values.length-1
return index
end
def prev(current)
index=current-1
index=0 if index<0
return index
end
end
class NumberOption
include PropertyMixin
attr_reader :name
attr_reader :optstart
def initialize(name,format,optstart,optend,getProc,setProc)
@name=name
@format=format
@optstart=optstart
@optend=optend
@getProc=getProc
@setProc=setProc
end
def next(current)
index=current+@optstart
index+=1
if index>@optend
index=@optstart
end
return index-@optstart
end
def prev(current)
index=current+@optstart
index-=1
if index<@optstart
index=@optend
end
return index-@optstart
end
end
#####################
#
# Stores game options
#
class PokemonSystem
attr_accessor :textspeed
attr_accessor :battlestyle
attr_accessor :frame
attr_accessor :font
attr_accessor :screensize
attr_accessor :battlescene
attr_accessor :tilemap
attr_accessor :textskin
attr_accessor :language
def language
return (!@language) ? 0 : @language
end
def textskin
return (!@textskin) ? 0 : @textskin
end
def initialize
# Default window frame (see also $TextFrames in script SpriteWindow)
@frame=0
# Battle style (0=shift, 1=set)
@battlestyle=0
# Battle scene (animations) (0=on, 1=off)
@battlescene=0
# Text speed (0=slow, 1=mid, 2=fast)
@textspeed=2
# Screen size (0=240x160, 1=480x320, 2=320x240, 3=640x480)
@screensize=1
# Font (see also $VersionStyles in script SpriteWindow)
@font=0
@tilemap=1
# Speech frame
@textskin=0
# Language (see also LANGUAGES in script PokemonSystem)
@language=0
end
end
class PokemonOptionScene
def pbStartScene
@sprites={}
@viewport=Viewport.new(0,0,Graphics.width,Graphics.height)
@viewport.z=99999
@sprites["title"]=Window_UnformattedTextPokemon.newWithSize(
_INTL("OPTION"),0,0,Graphics.width,64,@viewport)
# These are the different options in the game. To add an option, define a setter and
# a getter for that option. To delete an option, comment it out or delete it.
# The game's options may be placed in any order.
@PokemonOptions=[
EnumOption.new(_INTL("TEXT SPEED"),[_INTL("SLOW"),_INTL("MID"),_INTL("FAST")],
proc { $PokemonSystem.textspeed }, # Getter
proc {|value| $PokemonSystem.textspeed=value } # Setter
),
EnumOption.new(_INTL("BATTLE SCENE"),[_INTL("ON"),_INTL("OFF")],
proc { $PokemonSystem.battlescene },
proc {|value| $PokemonSystem.battlescene=value }
),
EnumOption.new(_INTL("BATTLE STYLE"),[_INTL("SHIFT"),_INTL("SET")],
proc { $PokemonSystem.battlestyle },
proc {|value| $PokemonSystem.battlestyle=value }
),
EnumOption.new(_INTL("FONT STYLE"),[_INTL("Em"),_INTL("R/S"),_INTL("FRLG"),_INTL("DP")],
proc { $PokemonSystem.font },
proc {|value| $PokemonSystem.font=value }
),
NumberOption.new(_INTL("FRAME"),_INTL("TYPE%d"),1,$TextFrames.length,
proc { $PokemonSystem.frame },
proc {|value|
$PokemonSystem.frame=value
MessageConfig.pbSetSystemFrame($TextFrames[value])}
),
NumberOption.new(_INTL("SPEECH FRAME"),_INTL("TYPE%d"),1,$SpeechFrames.length,
proc { $PokemonSystem.textskin },
proc {|value| $PokemonSystem.textskin=value;
MessageConfig.pbSetSpeechFrame(
"Graphics/Windowskins/"+$SpeechFrames[value])}
),
EnumOption2.new(_INTL("SCREEN SIZE"),[_INTL("240x160"),_INTL("480x320"),_INTL("320x240"),_INTL("640x480")],
proc { $PokemonSystem.screensize },
proc {|value|
oldvalue=$PokemonSystem.screensize
$PokemonSystem.screensize=value
$ResizeOffsetX=[0,0,80,80][value]
$ResizeOffsetY=[0,0,80,80][value]
pbSetResizeFactor([0.5,1.0,0.5,1.0][value])
if value!=oldvalue
ObjectSpace.each_object(TilemapLoader){|o| next if o.disposed?; o.updateClass }
end
@sprites["option"]=Window_PokemonOption.new(@PokemonOptions,0,
@sprites["title"].height,Graphics.width,
Graphics.height-@sprites["title"].height)
@sprites["option"].viewport=@viewport
@sprites["option"].visible=true
# Get the values of each option
for i in [email protected]
@sprites["option"][i]=(@PokemonOptions[i].get || 0)
end
pbFadeInAndShow(@sprites)}
end
def pbOptions
loop do
Graphics.update
Input.update
@sprites["title"].update
@sprites["option"].update
if @sprites["option"].mustUpdateOptions
# Set the values of each option
for i in [email protected]
@PokemonOptions[i].set(@sprites["option"][i])
end
end
if Input.trigger?(Input::B)
break
end
if Input.trigger?(Input::C) && @sprites["option"][email protected]
break
end
end
end
def pbEndScene
pbFadeOutAndHide(@sprites)
# Set the values of each option
for i in [email protected]
@PokemonOptions[i].set(@sprites["option"][i])
end
pbDisposeSpriteHash(@sprites)
pbRefreshSceneMap
@viewport.dispose
end
end
class PokemonOption
def initialize(scene)
@scene=scene
end
def pbStartScreen
@scene.pbStartScene
@scene.pbOptions
@scene.pbEndScene
end
end
