scn 00GroßesFassScript
short betrinken
short betrunken
begin OnActivate
MessageBox "Dieses Fass beinhaltet sehr viel Wein. Möchtest du kosten?", "Ja, sehr gern!", "Nein, lieber nicht."
set betrunken to 0
end
begin GameMode
if betrunken == 0
set betrinken to GetButtonPressed
endif
if betrinken == 0
MessageBox "Der Wein war sehr fein!"
set betrunken to 1
set betrinken to -1
endif
end