mixster

var poi: TPoint;
    chooselines, chooselevel: integer;
procedure MenuDraw(Sender: TObject);
var //mainM: array [0..2] of array [0..2] of boolean;
   // key: array of char;
    i: integer;
    str: string;
    b: Boolean;
begin
  //Draw Menu
  str := 'wasdp' + #13;
  for i := 1 to Length(str) do
    if IsKeyDown(str[i]) then
    case paused of
      true: begin end;
      false: begin
        b := True;
        case i of
          1: if Poi.y > 0 then
                 dec(poi.x);
          2: if Poi.x > 0 then
                 dec(poi.x);
          3: if Poi.y < 3 then
                 inc(poi.x);
          4: if Poi.x < 3 then
                 inc(poi.x);
          6: begin
                 if poi.x < 3 then
                   chooselevel := 3 * poi.y + poi.x;
                 writeln(chooselevel);
                 writeln(poi.x);
                 writeln(poi.y);
                 writeln('');
               end;
          else
            b := False;
            end;
          if b then Writeln('Did something -> ' + IntToStr(i));
        end;
    end;
end;