Whakmole



whakmole
--------

In this game, you have to press the buttons 1-9, to hit the "mole" (which is
an X). The buttons 1-9 make a little square grid. This grid matches the _
marks on the screen. When the "mole" pops up, you "whak" him by hitting the
corresponding grid key (1-9). There are different speeds to challenge you.
Enjoy.

Any questions can go to PopF12345@aol.com


Here's the code:

ClrHome
Output(1,1,"B*WHACK-A-MOLE**
Output(8,1,"**WHACK-A-MOLE*N
Output(2,1,"Y VERSION 2.2  F"
Output(3,16,"R"
Output(4,1,"J PRESS--(1-9) E
Output(5,1,"E    QUICKLY   E"
Output(6,1,"F(DURING  GAME)M
Output(7,1,"F              A"
Pause 
ClrHome
Menu("PICK SPEED","SLOW",S,"NORMAL",N,"FAST",F,"CUSTOM",C
Lbl S
35üS
"SLOW"üStr1
13üG
Goto 50
Lbl N
23üS
"NORMAL"üStr1
11üG
Goto 50
Lbl F
14üS
"FAST"üStr1
13üG
Goto 50
Lbl C
Output(3,1,"SLOW-- 35
Output(5,1,"NORMAL-- 23
Output(7,1,"FAST-- 14
Input "SPEED (1-100)",S
"CUSTOM"üStr1
11üG
Goto 50
Lbl 50
ClrHome
Output(8,G,Str1
Output(3,1,"  -    -    -"
Output(5,1,"  -    -    -"
Output(7,1,"  -    -    -"
20üX
0üP
For(X,20,1,ú1)
0üF
Output(1,1,X
Output(8,1,P
randInt(1,9üR
If R=1:Then
Output(2,3,"X
72üA
End
If R=2:Then
Output(2,8,"X
73üA
End
If R=3:Then
Output(2,13,"X
74üA
End
If R=4:Then
Output(4,3,"X
82üA
End
If R=5:Then
Output(4,8,"X
83üA
End
If R=6:Then
Output(4,13,"X
84üA
End
If R=7:Then
Output(6,3,"X
92üA
End
If R=8:Then
Output(6,8,"X
93üA
End
If R=9:Then
Output(6,13,"X
94üA
End
For(K,1,S
getKeyüÁ
If Á=A and Fø1
Then
P+10üP
Output(1,13,"HIT!"
1üF
End
End
Output(2,1,"                "
Output(4,1,"                "
Output(6,1,"                "
Output(1,1,"                "
End
ClrHome
If P÷160:Then
For(J,1,P/10)
Output(3,J,"X
End
End
If P>160:Then
For(J,1,16
Output(3,J,"X
End
For(J,1,(P/10)-16)
Output(4,J,"X
End
End
Output(5,1,".S..C..O..R..E.."
Output(8,1,"..S..C..O..R..E."
Output(6,1,P
Output(6,5,"/ 200 POINTS
Output(7,1,(P/200)100
Output(7,4," PERCENT"
Output(1,3,"PRESS ENTER"
Pause 
Output(1,1,"                "
If P÷40:Then
Output(1,4,"TRY AGAIN"
Goto X:End
If P>40 and P÷80:Then
Output(1,8,"OK"
Goto X:End
If P>80 and P÷130:Then
Output(1,7,"GOOD"
Goto X:End
If P>130 and P÷170:Then
Output(1,7,"GREAT"
Goto X:End
If P>170:Then
Output(1,6,"AWESOME"
Goto X:End
Lbl X
Pause 
ClrHome

© 1997 bckcoats@ix.netcom.com

This page hosted by GeoCities Get your own Free Home Page


1