Код: Выделить всё
starting
begin
begin
Say(major,m0);
Say(burlak,b0);
Say(major,m1
Say(burlak,b1);
Say(major,m2);
Say(burlak,b2);
end
every 0$1 trigger IsInArea(burlak,kamien) do
SetLives(burlak,200);
Wait(0$2);
SetLives(burlak,1000);
end;
begin
say(major,m3);
end;
begin
goto(burlak,czapa);
end;
on enterbuilding(b,un) do
begin
if b=czapa then
if un=burlak then
begin
youwin;
end;
end;
end;
end;