interface
uses
MyMozg,Beer;
const
pachka=20, pachka_cost:15, beer_cost:20;
var
otkompilirovalos, DONE:boolean;
kolvo_Sigaret, have_pachkas, need_pachkas, luck:Integer;
procedure magazin(have_lave:integer, now_need_pachkas:integer)
begin
if now_need_pachkas*pachka_cost<have_lave then begin
write('ÈÄÈÎÒ, ÈÄÈ ÏÐÎÃÐÀÌÜ!!! ÁÀÁËÀ ÂÑÅ ÐÀÂÍÎ ÍÅÒÓ...');
break;
end
else begin
until pachka_cost*now_need_pachkas>have_lave do now_need_pachkas:=now_need_pachkas-1;
have_pachkas:=now_need_pachkas;
if have_lave>beer_cost then begin
beer:=beer+1;
have_lave:=have_lave-beer_cost;
end:
lave:=have_lave;
write('ÏÀ×ÅÊ ÑÈÃÀÐÅÒ ÊÓÏËÅÍÎ', have_pachkas:2);
write('ÏÈÂÀ ÊÓÏËÅÍÎ', beer:2);
write('ÄÅÍÅÃ ÎÑÒÀËÎÑÜ', lave:4);
end;
end;
procedure smoke
begin
if kolvo_Sigaret=0 then begin
writeln('Â ÌÀÃÀÇÈÍ ÍÀÄÎ ÏÅÐÅÒÑß ÇÀ ÊÓÐÈÂÎÌ...');
magazin(lave, need_pachkas);
end;
if kolvo_Sigaret<>0 then kolvo_sigaret:=kolvo_sigaret-1;
end;
procedure timer(time:time)
var
need_smoke:string;
begin
writeln('ÊÓÐÈÒÜ ÕÎ×ÅØÜ?(Y/N) ');
read(need_smoke);
if need_smoke='Y' then do smoke;
end;
procedure kodim(have_mozgi:integer, have_beer:integer)
begin
randomize;
have_mozgi:=have_mozgi-random(10);
have_beer:=have_beer-random(1);
if luck>random(15) then begin
otkompilirovalos:=true;
DONE:=true:
end;
end;
Begin
beer=9;
mozgi=100;
lave=300;
have_pachkas:=1;
luck:=4;
otkompilirovalos:=false;
kolvo_sigaret:=pachka;
randomize;
until DONE=true do begin
timer(15000);
kodim(mozgi,beer);
if (beer=0) or (mozgi=0) then begin
write('!!!ÒÛ ÏÎËÍÛÉ ËÓÇÅÐ!!!');
otkompilirovalos:=false;
DONE:=true;
end:
end;
if otkompilirovalos=thue then write('!!!×ÓÂÀÊ, ÒÛ ÏÐÎÑÒÎ ÃÅÍÈÉ!!!') else write('ÄÀ ÒÛ ÏÎËÍÛÉ ËÓÇÅÐ! íÓ-ÊÀ ÎÒÎÉÄÈ ÎÒ ÏÅÐÑÎÍÀËÀ!!!');
end.
Èãðàòü »
[Þìîð â ëþáûõ èïîñòàñèÿõ., Ñìåõ ïðîäëèâàåò æèçíü ;))] Àâòîð ñîîáùåíèÿ: speedias_is_deadly (17.01.2006 12:37:01)
Òåìà "Þìîð â ëþáûõ èïîñòàñèÿõ., Ñìåõ ïðîäëèâàåò æèçíü ;))" (t.bbgam.com/c/?tid=19013)
Òåìà "Þìîð â ëþáûõ èïîñòàñèÿõ., Ñìåõ ïðîäëèâàåò æèçíü ;))" (t.bbgam.com/c/?tid=19013)
