#==============================================================================
# ■ Pokemon_Shop_New
# Misa-Xage
# 24/04/2011
#-----------------------------------------------------------------------------
# Test
#-----------------------------------------------------------------------------
# Test
# $scene = Pokemon_Shop_New.new
#-----------------------------------------------------------------------------
module POKEMON_S
class Pokemon_Shop_New < Window_Base
def initialize
@argent = 0
@liste = 0
end
def main
@argent = Window_Base.new(15, 15, 50, 25)
@argent.contents = Bitmap.new(15,15)
@argent.contents.font.name = $fontface
@argent.contents.font.size = $fontsize
@liste = Window_Base.new(100,5,100,250)
@liste.contents = Bitmap.new(15,15)
@liste.contents.font.name = $fontface
@liste.contents.font.size = $fontsize
refresh
end
def refresh
@argent.contents.clear
@liste.contents.clear
@argent.contents.draw_text(10,5,30,15,$pokemon_party.money.to_s + "$")
@liste.contents.draw_text(5,5,90,30,"Pokeball --> 200$")
end
def update
if Input.trigger?(Input::C)
if choix_OuiNon(text1 = "Voulez-vous vraiment", text2 = "prendre une pokeball")
draw_text("Vous obtenez une pokeball")
$pokemon_party.add_item(4, 1)
$pokemon_party.add_money(-200)
@argent.dispose
@liste.dispose
else
@argent.dispose
@liste.dispose
end
end
end
end
end