!##############################################################################
! La risposta al "domandone" dell'articolo è che bisogna indicare
! if( children(self) == 1)
! perché nella stanza inizialmente non ci sono solo TRE oggetti,
! ma ce ne sono QUATTRO: VA INCLUSO ANCHE IL GIOCATORE!
! quindi nel momento in cui sono stati fatti fuori fungo, mela e torta
! nella stanza rimane ancora uno ed un solo "oggetto": il giocatore stesso
!##############################################################################

Constant Story "Esempio utilizzo verbi/variabili^";
Constant Headline "Parte 1^";

Include "Parser";
Include "Verblib";
Include "Replace";

Global punti_ebbrezza = 9;
Global visione = 1;

Object stanza "Una stanza"
with initial [; style bold; print "^Una stanza^^"; rtrue; ],
before [; 
Look: 
    style bold; print "^Una stanza^^";
    style roman; print "Ti trovi in una stanza";
    if (children(stanza) == 1) { 
        print " spoglia.^"; rtrue; }
    else {
        print " in cui puoi vedere:^";
        if (rhum in self) print "-", visione, "  quantita' di rhum^";
        if (whiskey in self) print "-", visione, " quantita' di whiskey^";
        if (bourbon in self) print "-", visione, " quantita' di bourbon^";
        print "e nient'altro.^";
        rtrue;
        };
],
has light;

Object -> whiskey "whiskey"
with name 'whiskey',
description "Dell'ottimo whiskey.",
before [;
Drink:
    Bevi(whiskey);
    rtrue;
];

Object -> bourbon "bourbon"
with name 'bourbon',
description "Dell'ottimo bourbon.",
before [;
Drink:
    Bevi(bourbon);
    rtrue;
];

Object -> rhum "rhum"
with name 'rhum',
description "Dell'ottimo rhum",
before [;
Drink:
    Bevi(rhum);
    rtrue;
];

[ Initialise;
location = stanza;
];

[ Bevi alcolico;
remove alcolico;
punti_ebbrezza = punti_ebbrezza - 3;
visione = visione + 1;
Stato();
];

[Stato;
if (punti_ebbrezza == 9) print "Sei perfettamente lucido.^";
if (punti_ebbrezza == 6) print "Ti senti un po' brillo.^";
if (punti_ebbrezza == 3) print "Ti senti decisamente ubriaco.^";
if (punti_ebbrezza == 0) {
    print "Hai pi@`u alcol che sangue nelle vene!^";
    deadflag = 1;
};
];

[ AlcolSub;
print "Hai ", punti_ebbrezza, " punti ebbrezza.^";
Stato();
];

Verb 'alcol' '?' * -> Alcol;

Include "ItalianG";