Помойка > ПЕТУНЬЙО !!!! 

    (24.03.10 14:50)  

обидно

    (24.03.10 14:51)  

Ничё, щас прорвёмся )))

    (24.03.10 14:53)  

))))

    (24.03.10 14:53)  

давай как то попробуем проскочить что б не убивать их !

    (24.03.10 14:58)  

давай попробуем

    (24.03.10 15:02)  

Ну всё , теперь пойдём шатать дом труба твоему гриту )))

    (24.03.10 15:02)  

)))

    (24.03.10 15:03)  

Давай я может начну , а ты добьёш , или как ? )

    (24.03.10 15:06)  

давай так попробуем

    (24.03.10 15:15)  

ну что, все)))

    (24.03.10 15:16)  

Ну вот - всё ))) ладно, спасибо тебе за поход , я на выход , ато мне ещё в полеклинику нада собиратся )))

    (24.03.10 15:16)  

аха и тебе спасибо за поход,удачи)

    (24.03.10 15:16)  

Вы получили 400 награды за выполнение задания.

    (24.03.10 15:18)  

Вы получили 450 награды

    (24.03.10 15:19)  

Чтобы восстановить пошатнувшийся баланс Света и Тьмы в Мире, Вам необходимо убить не менее 20 монстров "Дух-Хранитель". По слухам они обитают в зоне "Пещера Тысячи Проклятий". 0/20

    (24.03.10 20:24)  

uses crt, graph;
var
driver, mode, error:integer;
i:integer;
begin
driver:=detect;
initgraph(driver,mode,'C:\Program Files\TURBO PASCAL 7.1\BGI');
error:=graphresult;
if error <> grok then begin
writeln (grapherrormsg(error));
halt; end
else
begin
repeat

circle (320,150,6);
line (320,156,307,150);
line (307,150,305,165);
line (320,156,325,168);
line (325,168,311,166);
line (320,156,312,178);
line (312,178,312,208);
line (312,178,325,182);
line (325,182,323,196);

for i:=1 to 10 do
outtextxy (random (getmaxx), random (getmaxy), 'GSOM!!111');

clearviewport;
delay (20000);

2frame
circle (320,150,6);
line (320,156,333,150);
line (333,150,335,165);
line (320,156,315,168);
line (315,168,329,166);
line (320,156,328,178);
line (328,178,328,208);
line (328,178,315,182);
line (315,182,317,196);

for i:=1 to 10 do
outtextxy (random (getmaxx), random (getmaxy), 'GSOM!!111');

clearviewport;
delay (20000);

3frame
circle (320,150,6);
line (320,156,333,153);
line (333,153,331,166);
line (320,156,307,153);
line (307,153,310,165);
line (320,156,322,178);
line (322,178,337,182);
line (337,182,331,198);
line (322,178,307,182);
line (307,182,311,200);

for i:=1 to 10 do
outtextxy (random (getmaxx), random (getmaxy), 'GSOM!!111');

clearviewport;
delay (20000);

4frame
circle (320,150,6);
line (320,156,333,154);
line (333,154,341,151);
line (320,156,307,154);
line (307,154,298,150);
line (320,156,322,178);
line (322,178,330,190);
line (330,190,331,200);
line (322,178,314,190);
line (314,190,312,200);

for i:=1 to 10 do
outtextxy (random (getmaxx), random (getmaxy), 'GSOM!!111');

clearviewport;
delay (20000);

5frame
circle (320,160,6);
line (320,166,328,176);
line (328,176,315,170);
line (320,166,310,174);
line (310,174,325,170);
line (320,166,322,188);
line (322,188,337,183);
line (337,183,331,200);
line (322,188,307,184);
line (307,184,312,200);

for i:=1 to 10 do
outtextxy (random (getmaxx), random (getmaxy), 'GSOM!!111');

clearviewport;
delay (20000);

until keypressed;

end;
readln
end.