← Back to branch summary

~ubuntu-branches/ubuntu/hoary/inform/hoary

« back to all changes in this revision

Viewing changes to include/domenu.h

  • Committer: Bazaar Package Importer
  • Author(s): Mark Baker
  • Date: 2004-03-29 23:52:44 UTC
  • Revision ID: james.westby@ubuntu.com-20040329235244-fox1z1yv7d6vojoo
Tags: upstream-6.30
Import upstream version 6.30

Show diffs side-by-side

added added

removed removed

Lines of Context:
include/domenu.h
 
1
!    DOMENU             A replacement for Inform's standard DoMenu
 
2
!                       built for Inform 6 by L. Ross Raszewski
 
3
!                       (rraszews@skipjack.bluecrab.org)
 
4
!       REQUIRES CENTER.H
 
5
! Basically, this new menu does two very simple things.  First, unlike 
 
6
! with the traditional DoMenu, you can have any number of lines at the top 
 
7
! for a description or whatnot.  That is to say
 
8
! " Information is available on a variety of subjects^
 
9
!   You can access this information by selecting one of the lines below^
 
10
!   Press q to quit the menu^
 
11
!   ^     Prologue
 
12
!   ^     Beginning
 
13
!   ^     Middle
 
14
!   ^     End"
 
15
! will now work correctly as a menu.
 
16
! "How?" you ask.  Simple.  In your EntryR() routine (That's the first one you 
 
17
!  name after the string), you add a line
 
18
!       if (menu_item==-1) return x;
 
19
!  where x is the number of lines of description (4 in the above example)
 
20
!  The only change you'll have to make to existing menus if you don't want to 
 
21
!  change anthing is to remove 1 line at the top of the menu_choices.
 
22
!  (incidentally, if you put in a ",1" after the third argument, the title bar 
 
23
!  will say "Q=quit game".  Something for a game of mine I left in because I 
 
24
!  didn't want to take it out)
 
25
!
 
26
! Second, you can now have two lines of title at the top.  Depending on 
 
27
! your interpreter, (I believe Frotz and InfoTaskForce do this) the second 
 
28
! line will appear in reverse-bold
 
29
! For this trick, set item_name to the second line when menu_item=-1
 
30
!
 
31
! if (menu_item==-1) { item_name="Second Line"; return 4;} in the example above
 
32
!
 
33
! One more thing, you no longer have to fiddle with item_width.  DoMenu 
 
34
! doesn't need it anymore.  Merry Christmas.
 
35
!
 
36
! Replace DoMenu(); 
 
37
! Replace LowKey_Menu();
 
38
!
 
39
! Some time before including this.
 
40
!
 
41
! Comments?  e-mail me!
 
42
!
 
43
!  This is part of a series actually, these are inter-dependant libraries.
 
44
!  For this to work, you have to include:
 
45
!  center.h   -> Centers a line of text (or a routine to print one) in 
 
46
!  the upper or lower window.
 
47
!
 
48
! For maximum enjoyment, add on (not required)
 
49
!  AltMenu.H   -> An alternative to menus, object oriented menu system
 
50
!                       (inspired by Graham Nelson's attempt to do the same
 
51
!                        thing.  Mine makes use of the nifty abilities of this
 
52
!                        library)
 
53
!  Hints.H (UPDATED)  -> A system for making object-oriented hints which appear
 
54
!                      formatted in the same way as Infocom's InvisiClues
 
55
!
 
56
 
 
57
[ LowKey_Menu menu_choices EntryR ChoiceR lines main_title i j;
 
58
  menu_nesting++;
 
59
 .LKRD;
 
60
  menu_item=0;
 
61
  lines=indirect(EntryR);
 
62
  main_title=item_name;
 
63
  item_name=" ";
 
64
  menu_item=-1;
 
65
  indirect(EntryR);
 
66
  if (item_name ofclass string) print (string) item_name;
 
67
  else indirect(item_name);
 
68
  print "^--- "; 
 
69
  if (main_title ofclass string) print (string) main_title;
 
70
  else indirect(main_title);
 
71
  print " ---^^^";
 
72
  if (ZRegion(menu_choices)==3) print (string) menu_choices;
 
73
  else indirect(menu_choices);
 
74
 
 
75
 .LKML;
 
76
  print "^Type a number from 1 to ", lines,
 
77
        ", 0 to redisplay or press ENTER.^> ";
 
78
 
 
79
   #IFV3; read buffer parse; #ENDIF;
 
80
   temp_global=0;
 
81
   #IFV5; read buffer parse DrawStatusLine; #ENDIF;
 
82
   i=parse-->1;
 
83
   if (i=='quit' or #n$q || parse->1==0)
 
84
   {   menu_nesting--; if (menu_nesting>0) rfalse;
 
85
       if (deadflag==0) <<Look>>;
 
86
       rfalse;
 
87
   }
 
88
   i=TryNumber(1);
 
89
   if (i==0) jump LKRD;
 
90
   if (i<1 || i>lines) jump LKML;
 
91
   menu_item=i;
 
92
   j=indirect(ChoiceR);
 
93
   if (j==2) jump LKRD;
 
94
   if (j==3) rfalse;
 
95
   jump LKML;
 
96
];
 
97
 
 
98
#IFV3;
 
99
[ DoMenu menu_choices EntryR ChoiceR;
 
100
  LowKey_Menu(menu_choices,EntryR,ChoiceR);
 
101
];
 
102
#ENDIF;
 
103
 
 
104
 
 
105
#IFNDEF MenuFlag;
 
106
Global MenuFlag;
 
107
#ENDIF;
 
108
 
 
109
[ DoMenu menu_choices EntryR ChoiceR inflag 
 
110
         lines ban_lines main_title sub_title cl i j oldcl pkey;
 
111
        if (pretty_flag==0) 
 
112
         { LowKey_Menu(menu_choices,EntryR,ChoiceR);
 
113
           rfalse;}
 
114
         menu_nesting++;
 
115
         menu_item=0;
 
116
         lines=indirect(EntryR);
 
117
         main_title=item_name;
 
118
         item_name=" ";
 
119
         menu_item=-1;
 
120
         ban_lines=indirect(EntryR);
 
121
         ban_lines=ban_lines+5;
 
122
         sub_title=item_name;
 
123
         cl=ban_lines;
 
124
         .ReDisplay;
 
125
                oldcl=0;
 
126
                @erase_window -1;
 
127
                i=ban_lines+lines;
 
128
                @split_window i;
 
129
                i=0->33; if (i==0) i=80;
 
130
                @set_window 1;
 
131
                @set_cursor 1 1;
 
132
                style reverse;
 
133
                spaces(i);
 
134
                CenterU(main_title,1);
 
135
                @set_cursor 2 1; spaces (i);
 
136
                style bold;
 
137
                CenterU(sub_title,2);
 
138
                style roman; style reverse;
 
139
                @set_cursor 2 2; print "N = next subject";
 
140
                j=i-12; @set_cursor 2 j; print "P = previous";
 
141
                @set_cursor 3 1; spaces(i);
 
142
                @set_cursor 3 2; print "RETURN = read subject"; 
 
143
                j=i-17; @set_cursor 3 j;
 
144
                if (inflag==1) print "    Q = quit game";
 
145
                else
 
146
                if (inflag==2) print "    Q = quit menu";
 
147
                else
 
148
                if (menu_nesting==1)
 
149
                        print "  Q = resume game";
 
150
                else
 
151
                        print "Q = previous menu";
 
152
                style roman; font off;
 
153
                @set_cursor 5 2;
 
154
                if (menu_choices ofclass String) print (string) menu_choices;
 
155
                else indirect(menu_choices);
 
156
 
 
157
       .KeyLoop;
 
158
                if (cl~=oldcl)
 
159
                 {  if (oldcl>0) { @set_cursor oldcl 4; print " ";}
 
160
                    @set_cursor cl 4; print ">";
 
161
                 }
 
162
                oldcl=cl;
 
163
      @read_char 1 0 0 pkey;
 
164
      if (pkey=='N' or 'n' or 130)
 
165
          { cl++; if (cl>=ban_lines+lines) cl=ban_lines; jump KeyLoop; }
 
166
      if (pkey=='P' or 'p' or 129)
 
167
          { cl--; if (cl==ban_lines-1)  cl=ban_lines+lines-1; jump KeyLoop; }
 
168
      if ((pkey=='Q' or 'q' or 27)||(pkey==131)) { jump QuitHelp; }
 
169
      if (pkey==10 or 13 or 132)
 
170
      {   @set_window 0; font on;
 
171
          new_line; new_line; new_line;
 
172
          menu_item=cl-ban_lines+1;
 
173
          indirect(EntryR);
 
174
 
 
175
          @erase_window $ffff;
 
176
          @split_window 1;
 
177
          i = 0->33; if (i==0) { i=80; }
 
178
          @set_window 1; @set_cursor 1 1; style reverse; spaces(i);
 
179
          CenterU(item_name,1);
 
180
          style roman; @set_window 0; new_line;
 
181
 
 
182
          i = indirect(ChoiceR);
 
183
       !   if (i==2 && Menuflag~=10000) jump ReDisplay;
 
184
          if (i==2) jump ReDisplay;
 
185
          if (i==3) jump QuitHelp;
 
186
 
 
187
          print "^[Please press SPACE.]^";
 
188
          @read_char 1 0 0 pkey; jump ReDisplay;
 
189
      }
 
190
      jump KeyLoop;
 
191
      .QuitHelp;
 
192
      if (Menuflag==10000) Menuflag=0;
 
193
      menu_nesting--; if (menu_nesting>0) rfalse;
 
194
      font on; @set_cursor 1 1;
 
195
      @erase_window $ffff; @set_window 0;
 
196
      new_line; new_line; new_line;
 
197
      if (deadflag==0 && inflag==0) <<Look>>;
 
198
];  
 
199