Самолет в пространтсве Опции

[Styleofjune]

Привет всем , совсем недавно я наткнулся на задание , и сразу же сел в лужу как его делать , помогите мне кто чем может пожалуйста , а вот и задача:
При запуске программы должна выскочить менюшка , где написано "Свободное движение , с помощью клавиатуры , выход)
Свободное:Движение со сменой направления на границах экрана с диагонального на вертикальное и наоборот
Спомощью клавиатуры: F1(0,59), F2(0,60), F3(0,61), F4(0,62).
ну а летать должен самолетик , помогите пожалуйста , я даже заплатить смогу , ну действительно срочно нужно

[Styleofjune]

uses crt, graph;
type str20 = string[20];
     menu = array [1..3] of str20;
const mm:menu=('Free Motion  ','With Keyboard','Exit         ');
var i,j:integer;
    gD,gM:integer;
    x,y:word;
    dx,dy:shortint;
    ch:char;
    k:byte;
function readChar:char;
 var c:char;
 begin
   c:=readkey;
   if c=#0 then c:=readkey;
   readchar:=c;
 end;
function case_k(ch:char; k:byte):byte;
 begin
   case ch of
     #61: if k>1 then k:=k-1 else k:=3;
     #62: if k<3 then k:=k+1 else k:=1;
   end;
   case_k:=k;
 end;
{dalee druz'ya napisalo chto-to no tak i ne ponala}
procedure showstring(k1,k2:byte; s:str20; gr,cl:byte);
 begin
   textbackground(gr);
   textcolor(cl);
   gotoXY(k1,k2);
   write(s);
 end;
procedure redraw;
begin
     
{a tut kak ya ponala mne nado narisovat samoletik}

end;
BEGIN
  clrscr;
  


  case k of
       1: while not keypressed do
          begin
               if (x>=610) or (x<=30) then dx:=-dx;
               if (y>=455) or (y<=30) then dy:=-dy;
               x:=x+dx;
               y:=y+dy;
               redraw;
               delay(1100);
          end;
       2: repeat
                redraw;
                ch:=readkey;
                if (ch=#75) and (x>30) then
                begin
                     dx:=-3;
                     dy:=0;
                     x:=x+dx;
                end;
                if (ch=#77) and (x<610) then
                begin
                     dx:=3;
                     dy:=0;
                     x:=x+dx;
                end;
                if (ch=#72) and (y>30) then
                begin
                     dx:=0;
                     dy:=-3;
                     y:=y+dy;
                end;
                if (ch=#80) and (y<455) then
                begin
                     dx:=0;
                     dy:=3;
                     y:=y+dy;
                end;
          until (ch=#13) or (ch=#32);
       3: halt;
  end;
  closegraph;
END.

ВОт отрывками все поделала , запуталась блин
Я все сделала , закройте тему

Сообщение отредактировано: Styleofjune - 29.11.2006 17:03