Курсовая работа: Игра "Vertolet"

setlinestyle(0,0,3);

setcolor(3);

ch:=readkey;

key(ch);

setlinestyle(0,0,1);

until ord(ch)=13;

if d =170 then option:=true;

end;

begin

end.

Модуль Help

unit help;

interface

uses crt;

procedure pravila;

implementation

procedure pravila;

var ch:char;

begin

clrscr;

textcolor(red);

Writeln(' ПРАВИЛАИГРЫ');

textcolor(Green);

Writeln('Вы управляете вертолетом "А-308" на борту которого находятся взрывчатые');

Write('вещества. Ваша цель перевести их в пункт назначения не врезавшись в препятствия. ');

Write('В начале игры у вас имеется 70 бонусов, с помощью которых вы можете пролететь');

Write('сквозь препятствие. Через каждые 500 метров вам начисляется 35 бонусов');

textcolor(red);

Writeln;