Тема: Процедуры
Показать сообщение отдельно
Старый 13.02.2015, 09:18   #2
Kirillza
AnyKey`щик
 
Регистрация: 13.02.2015
Сообщений: 5
Написано 0 полезных сообщений
(для 0 пользователей)
Ответ: Процедуры

Вот сделал небольшой набросок. Но всё равно не работает.
Begin
procedure otch;
begin
SetColor(255,255,255);
FillRect(0,0,GetWidth,GetHeight);
end;
procedure gorod;
drawtext('[1] Карта',0,0);
repaint;
delay(50000);
procedure karta;
var key,pos,i: integer;
begin
drawtext('[1] Карта',0,0);
repaint;
delay(20);
key:=getKeyClicked;
key:=keyToAction(key);
if key=GA_UP then
begin
cls;
gorod;
end;
until false;
end;

begin
  otch;
  karta;
end.
(Offline)
 
Ответить с цитированием