Оберон-клуб «ВЄДАsoft»

MODULE SemiAction;
IMPORT
  Scr := Console, Til := GrTiles, Fonts := GrFonts,
  Rsrc := DW2Rsrc, Cfg := DW2Config;
 
CONST
  TitleX      = Cfg.TitleX;
  TitleY      = Cfg.TitleY;
  FrameX      = Cfg.FrameX;
  FrameY      = Cfg.FrameY;
  FrameWidth  = Cfg.FrameWidth;
  FrameHeight = Cfg.FrameHeight;
  DarkWoodsX  = Cfg.DarkWoodsX;
  DarkWoodsY  = Cfg.DarkWoodsY;
  JockeX      = Cfg.JockeX;
  JockeY      = Cfg.JockeY;
 
PROCEDURE MainMenu* ;
VAR
  cor: Til.Coords;
BEGIN
  Scr.Clear(Scr.Black);
  Scr.SetFont(Fonts.ZxSpecRom8x8);
 
  IF Cfg.DarkWoods1 THEN
    Scr.SetColors(Scr.GrayOnBlue); Scr.WriteStr(" DarkWoods Port ");
    Scr.SetColors(Scr.BlueOnCyan); Scr.WriteStr(" VEDAsoft '2013 ");
  ELSE
    Scr.SetColors(Scr.GrayOnBlue); Scr.WriteStr("DarkWoods 2 Port ");
    Scr.SetColors(Scr.BlueOnCyan); Scr.WriteStr(" VEDAsoft '2013");
  END;
 
  Scr.SetFont(Fonts.MsDosCga8x8);
 
  IF Cfg.DarkWoods1 THEN (* "DarkWoods 1" title: *)
 
    Scr.SetColors(Scr.GreenOnGreen);
    Scr.At(2 + TitleX, 0 + TitleY); Scr.WriteStr("       ");
    Scr.At(1 + TitleX, 1 + TitleY); Scr.WriteStr("  ");
      Scr.At(4 + TitleX, 1 + TitleY); Scr.WriteStr("   ");
    Scr.At(8 + TitleX, 1 + TitleY); Scr.WriteStr("  ");
    Scr.At(0 + TitleX, 2 + TitleY); Scr.WriteStr("           ");
    Scr.At(1 + TitleX, 3 + TitleY); Scr.WriteStr("         ");
    Scr.At(3 + TitleX, 4 + TitleY); Scr.WriteStr("  ");
      Scr.At(6 + TitleX, 4 + TitleY); Scr.WriteStr("  ");
    Scr.At(3 + TitleX, 5 + TitleY); Scr.WriteStr("     ");
    Scr.At(3 + TitleX, 8 + TitleY); Scr.WriteStr("     ");
    Scr.At(4 + TitleX, 9 + TitleY); Scr.WriteStr("   ");
 
    Til.DrawMonoTile(FrameX, FrameY, Rsrc.CornerLeftUp, Scr.GreenOnBlack);
    Til.DrawMonoTile(FrameX + FrameWidth - 1, FrameY,
      Rsrc.CornerRightUp, Scr.GreenOnBlack);
    FOR cor := FrameX + 1 TO FrameX + FrameWidth - 2 DO
      Til.DrawMonoTile(cor, FrameY, Rsrc.HorizontalLine, Scr.GreenOnBlack);
      Til.DrawMonoTile(cor, FrameY + FrameHeight - 1,
      Rsrc.HorizontalLine, Scr.GreenOnBlack);
    END;
    FOR cor := FrameY + 1 TO FrameY + FrameHeight - 2 DO
      Til.DrawMonoTile(FrameX, cor, Rsrc.VerticalLine, Scr.GreenOnBlack);
      Til.DrawMonoTile(FrameX + FrameWidth - 1, cor,
        Rsrc.VerticalLine, Scr.GreenOnBlack);
    END;
    Til.DrawMonoTile(FrameX, FrameY + FrameHeight - 1,
      Rsrc.CornerLeftDown, Scr.GreenOnBlack);
    Til.DrawMonoTile(FrameX + FrameWidth - 1,
      FrameY + FrameHeight - 1, Rsrc.CornerRightDown, Scr.GreenOnBlack);
    Scr.SetColors(Scr.GreenOnBlack);
    Scr.At(0 + DarkWoodsX, 0 + DarkWoodsY); Scr.WriteStr("D A R K");
    Scr.At(3 + DarkWoodsX, 2 + DarkWoodsY); Scr.WriteStr("W O O D S");
 
    Scr.SetColors(Scr.BlueOnBlack);
    Scr.At(2 + JockeX, 0 + JockeY); Scr.WriteStr(  "Jocke The Beast");
    Scr.At(0 + JockeX, 1 + JockeY); Scr.WriteStr("-----------------");
    Scr.At(4 + JockeX, 2 + JockeY); Scr.WriteStr(    "(C) 2002");
 
    Scr.At(Cfg.MenuLineX, Cfg.MenuLineY);
    Scr.SetColors(Scr.CyanOnBlack); Scr.WriteStr("(P)");
      Scr.SetColors(Scr.MagentaOnBlack); Scr.WriteStr("lay  ");
    Scr.SetColors(Scr.CyanOnBlack); Scr.WriteStr("(I)");
      Scr.SetColors(Scr.MagentaOnBlack); Scr.WriteStr("nstructions  ");
    Scr.SetColors(Scr.CyanOnBlack); Scr.WriteStr("(Q)");
      Scr.SetColors(Scr.MagentaOnBlack); Scr.WriteStr("uit");
 
  ELSE (* "DarkWoods 2" title: *)
 
  END;
 
END MainMenu;
 
END SemiAction.

DEFINITION Input;
 
(* Константы, описывающие кнопки, опущены *)
 
  TYPE
    Key = CHAR;
 
  PROCEDURE Available (): INTEGER;
  PROCEDURE Read (): Key;
 
END Input.

  LOOP
    CASE CAP(Input.Read()) OF
    | "P": (* Играем! *) EXIT
    | "I": ShowIntro; EXIT
    | "Q": IF QuitMenu() THEN RETURN END; EXIT
    ELSE
    END;
  END; (* Обошлись без переменной типа Key,
    которая была бы обязательна для "Дубового" варианта Input.Read *)