version=2

:if:<register.registered(kimono_tinwhirl_story)>=true
:then

@text.show(Oh, you are back,~<player.name>.*We awaited your arrival,~seeing that something is~going on at the Tin Tower.*A small but noticeable~disturbance.*<player.name>!~I'd like to ask you~a few questions.*First,~Heads or Tails.)
@storage.set(integer,Q,1)

@Options.show(Heads,Tails)
:when:Heads
@storage.set(integer,Q,<storage.get(integer,Q)>+1)
:endwhen

@text.show(If you could go~on vacation right now~where would you go?)
@Options.show(Beach,Mountains)
:When:Mountains
@storage.set(integer,Q,<storage.get(integer,Q)>+1)
:endwhen

@text.show(What is your~favorite time of day?)
@Options.show(Night,Day)
:When:Day
@storage.set(integer,Q,<storage.get(integer,Q)>+1)
:endwhen

@text.show(How would you prefer~to cross the ocean?)
@Options.show(Airplane,Boat)
:When:Airplane
@storage.set(integer,Q,<storage.get(integer,Q)>+1)
:endwhen

@text.show(Do you like it~when it rains?)
@Options.show(Yes,No)
:When:No
@storage.set(integer,Q,<storage.get(integer,Q)>+1)
:endwhen

@text.show(Which of these~do you like more?)
@Options.show(Rattata,Zubat)
:When:Rattata
@storage.set(integer,Q,<storage.get(integer,Q)>+1)
:endwhen

@text.show(You gaze into a~valley and see~beautiful scattered~light after fallen rain.*Further away a~shimmer catches your~eye as you spot~an abandoned mine.*What do you~want to do?)
@options.show(Gaze at the light,Explore the mine)
:When:Gaze at the light
@storage.set(integer,Q,<storage.get(integer,Q)>+1)
:endwhen

@text.show(Based on your answers~I think you deserve this item.)

:if:<storage.get(integer,Q)>>3
:then
@item.give(178,1)
@item.messagegive(178,1)
@register.register(rainbow_wing_radio_tower)
@text.show(Perhaps...*That wing has some~connection to the*Tin Tower...)
:else
@item.give(71,1)
@item.messagegive(71,1)
@register.register(silver_wing_radio_tower)
@text.show(Perhaps...*That wing has some~connection to the*Whirl Islands on Route 41...)
:endif

@text.show(<player.name>, this~item is really valuable~to me.*If you find out what~its connection to the Johto~region is, please tell me.*I hope it has something~to do with the disturbance~in the Tin Tower.)
@register.unregister(kimono_tinwhirl_story)

:else
@battle.starttrainer(ecruteak\003)
:endif

:end