| Author |
Message |
|
Newbie
Bandwidth Hog
Joined: 23 Jan 2004
Posts: 2247
|
 Posted: 10 Mar 2004 03:50:10 pm Post subject: |
|
|
ClrHome
ClrDraw
0üXmin:94üXmax
0üYmin:62üYmax
For(A,0,9
End
0üA
Repeat K=105
Horizontal 0
Horizontal 62
Horizontal 38
Vertical 94
Vertical 0
Text(27,30,"New Game
Text(36,30,"Load Game
Text(45,30,"Rules
Text(54,30,"Exit
Line(25,36-9A,65,36-9A
Line(65,36-9A,65,28-9A
Line(65,28-9A,25,28-9A
Line(25,28-9A,25,36-9A
Repeat K=25 or K=34 or K=105
getKeyüK
End
Line(25,36-9A,65,36-9A,0
Line(65,36-9A,65,28-9A,0
Line(65,28-9A,25,28-9A,0
Line(25,28-9A,25A36-9A,0
A-(A>0)(K=25)+(A<3)(K=34)üA
End
If A=0:Goto 2
If A=1:Goto 3
If A=2:Goto 4
If A=3:Goto 5
End
Lbl 4
prgmRULES
Stop
Can someone see whats wrong with this? It worked fine before and now it just started acting up and is now screwed up. |
|
| Back to top |
|
|
tyskis
Member
Joined: 20 Nov 2003
Posts: 238
|
| Posted: 10 Mar 2004 03:59:42 pm Post subject: |
|
|
I have a basic graphmenu-routine somewhere, just have to find it  |
|
| Back to top |
|
|
Newbie
Bandwidth Hog
Joined: 23 Jan 2004
Posts: 2247
|
| Posted: 10 Mar 2004 04:20:58 pm Post subject: |
|
|
| That one was fine but for some reason last nigh it started to go crazy, but thanks though. |
|
| Back to top |
|
|
tyskis
Member
Joined: 20 Nov 2003
Posts: 238
|
| Posted: 10 Mar 2004 04:30:06 pm Post subject: |
|
|
If you want mine you can download it here: MENU
In the prgmAAA, change the values like this:
N= number of alternatives
S=spacing between alternatives
header=Str0
alt 1=Str1
alt 2=Str2
and so on
if you don't want to clear the screen before, store 2 in W
That's it, i believe. Just thougt if you wanted to use it, or get ideas from it.. |
|
| Back to top |
|
|
Newbie
Bandwidth Hog
Joined: 23 Jan 2004
Posts: 2247
|
| Posted: 10 Mar 2004 08:02:29 pm Post subject: |
|
|
In label 2 if you look at the repeat K and what not and look at the bottom of the code why is it if I press key 15 it does not take me to label 0?
Lbl 2
ClrDraw
For(A,0,9
End
0üA
Repeat K=105 or K=11 or K=15
Vertical 0
Vertical 94
Horizontal 0
Horizontal 62
Horizontal 8
Line(19,8,19,0
Line(38,8,38,0
Line(57,8,57,0
Line(76,8,76,0
Text(2,17,"Load a Saved Game
Text(11,27,"Save Game 1
Text(20,27,"Save Game 2
Text(29,27,"Save Game 3
Text(38,27,"Save Game 4
Text(55,2,"Load
Text(55,78,"Back
Line(22,52-9A,69,52-9A
Line(69,52-9A,69,44-9A
Line(69,44-9A,22,44-9A
Line(22,44-9A,22,52-9A
Repeat K=25 or K=34 or K=105
getKeyüK
End
Line(22,52-9A,69,52-9A,0
Line(69,52-9A,69,44-9A,0
Line(69,44-9A,22,44-9A,0
Line(22,44-9A,22,52-9A,0
A-(A>0)(K=25)+(A<3)(K=34)üA
End
getKey
If K=15:Goto 0 |
|
| Back to top |
|
|
Fr0sty
Member
Joined: 27 Nov 2003
Posts: 202
|
| Posted: 10 Mar 2004 08:14:17 pm Post subject: |
|
|
Easy.
Repeat UNTIL K=25 or K=34 or K=105
NOT K=15
So it will keep repeating until one of the three that you named are pressed. If you want 15 to be included, then add 15. It's simple. |
|
| Back to top |
|
|
Arcane Wizard
`semi-hippie`
Super Elite (Last Title)
Joined: 02 Jun 2003
Posts: 8993
|
| Posted: 11 Mar 2004 09:37:07 am Post subject: |
|
|
| And that final getKey doesn't store in K, and you'll have to be quick to first press 25, 34, or 105 and then press what you want. |
|
| Back to top |
|
|
|
TI-Basic => TI-BASIC
