DefInt A-Z
Screen 13
For a = 0 To 31
Palette a, a * 2
Palette a + 32, a * 2 * &H100
Palette a + 64, a * 2 * &H10000
Next a
Do
x = Int(Rnd * 320)
y = Int(Rnd * 200)
c = Int(Rnd * 3) * 32 + 31
For r = 0 To 31
Circle (x, y), r, c - r
Circle (x + 1, y), r, c - r
Next r
Rem Sleep 1
Loop Until InKey$ = Chr$(27)
'
' M E M O R Y (juego memorizar parejas con caracteres)
' Created By: BattleCraft99 of ~BC99 Inc.
' para salir pulsar teclas: Windows + D
'
'
' H O L D S H I F T A N D P R E S S F 5 T O P L A Y
'
DECLARE SUB makebox (x!, y!, x1!, y1!)
nscore1$ = "Sir Chomps-A-Lot"
nscore2$ = "Bart Simpson"
nscore3$ = "Kung Lao"
nscore4$ = "Raiden"
nscore5$ = "Luke SkyWalker"
nscore6$ = "Darth Vader"
nscore7$ = "Kane"
nscore8$ = "Papa John"
nscore9$ = "Mini Me"
nscore10$ = "Draconis "
hscore1 = 3000
hscore2 = 2500
hscore3 = 2250
hscore4 = 2000
hscore5 = 1700
hscore6 = 1400
hscore7 = 1000
hscore8 = 750
hscore9 = 250
hscore10 = 1
diff$ = "Normal"
turns = 300
rturns = 300
snd$ = "On "
1
turns = rturns
Color 15
Randomize Timer
Colors:
clrA = Int(Rnd * 14) + 1
clrB = Int(Rnd * 14) + 1
clrC = Int(Rnd * 14) + 1
clrD = Int(Rnd * 14) + 1
clrE = Int(Rnd * 14) + 1
clrF = Int(Rnd * 14) + 1
clrG = Int(Rnd * 14) + 1
clrH = Int(Rnd * 14) + 1
clrI = Int(Rnd * 14) + 1
clrJ = Int(Rnd * 14) + 1
clrK = Int(Rnd * 14) + 1
clrL = Int(Rnd * 14) + 1
clrM = Int(Rnd * 14) + 1
clrN = Int(Rnd * 14) + 1
clrO = Int(Rnd * 14) + 1
MainMenu:
Cls
Screen 13
_FullScreen
Locate 23, 1: Color 7: Print "Use Space Bar to select.."
Window Screen(0, 0)-(1000, 1000)
d = 16: clr = 16
Call makebox(100, 380, 900, 780)
Locate 12, 7: Color 2: Print "StartGame"
Locate 14, 7: Color 3: Print "Options"
Locate 16, 7: Color 4: Print "HighScore"
Locate 18, 7: Color 5: Print "Creds&Info"
Line (145, 420)-(400, 490), , B
Line (245, 20)-(680, 90), 7, B
Line (250, 30)-(675, 80), 9, B
Locate 2, 13: Color 7: Print "Z E M M O R Y"
x = 145: y = 420
ctr = 1
Do
ass$ = InKey$
Select Case ass$
Case Chr$(0) + "H"
Line (x, y)-(x + 255, y + 70), 0, B
ctr = ctr - 1
If ctr <= 1 Then ctr = 1
y = y - 80
If x <= 145 Then x = 145
If y <= 420 Then y = 420
GoSub snd
Case Chr$(0) + "P"
Line (x, y)-(x + 255, y + 70), 0, B
ctr = ctr + 1
If ctr >= 4 Then ctr = 4
y = y + 80
If x >= 145 Then x = 145
If y >= 660 Then y = 660
GoSub snd
Case Chr$(32)
GoSub snd
If ctr = 1 Then GoTo InputName
If ctr = 2 Then GoTo Options
If ctr = 3 Then GoTo HighScoreDisplay
If ctr = 4 Then GoTo Credits
End Select
If on1 = 0 Then clr = clr + 1
If on1 = 1 Then clr = clr - 1
If clr >= 31 Then on1 = 1
If clr <= 16 Then on1 = 0
For sweep = 1 To 9000: Next
Line (x, y)-(x + 255, y + 70), clr, B
Loop
InputName:
Cls
Rem Print "Enter Your Name:"
Rem Locate 2, 10: Input "", name$
name$ = "Yo"
score = 0
msec = 0
sec = 0
min = 0
hour = 0
thecolumns = 0
therows = 0
turns = rturns
r1 = 0
r2 = 0
r3 = 0
r4 = 0
r5 = 0
r6 = 0
r7 = 0
r8 = 0
r9 = 0
r10 = 0
c1 = 0
c2 = 0
c3 = 0
c4 = 0
c5 = 0
c6 = 0
c7 = 0
c8 = 0
c9 = 0
c10 = 0
chr2 = 0
chr3 = 0
chr4 = 0
chr5 = 0
chr6 = 0
chr7 = 0
chr8 = 0
chr12 = 0
chr14 = 0
chr15 = 0
chr16 = 0
chr17 = 0
chr25 = 0
chr29 = 0
chr30 = 0
chr31 = 0
chr35 = 0
chr60 = 0
chr127 = 0
chr210 = 0
chr240 = 0
chr244 = 0
chr247 = 0
chr167 = 0
chr243 = 0
chr2x = 0
chr3x = 0
chr4x = 0
chr5x = 0
chr6x = 0
chr7x = 0
chr8x = 0
chr12x = 0
chr14x = 0
chr15x = 0
chr16x = 0
chr17x = 0
chr25x = 0
chr29x = 0
chr30x = 0
chr31x = 0
chr35x = 0
chr60x = 0
chr127x = 0
chr210x = 0
chr243x = 0
chr240x = 0
chr244x = 0
chr247x = 0
chr167x = 0
chr2d1 = 0: chr2d2 = 0: chr2d3 = 0: chr2d4 = 0
chr3d1 = 0: chr3d2 = 0: chr3d3 = 0: chr3d4 = 0
chr4d1 = 0: chr4d2 = 0: chr4d3 = 0: chr4d4 = 0
chr5d1 = 0: chr5d2 = 0: chr5d3 = 0: chr5d4 = 0
chr6d1 = 0: chr6d2 = 0: chr6d3 = 0: chr6d4 = 0
chr7d1 = 0: chr7d2 = 0: chr7d3 = 0: chr7d4 = 0
chr8d1 = 0: chr8d2 = 0: chr8d3 = 0: chr8d4 = 0
chr12d1 = 0: chr12d2 = 0: chr12d3 = 0: chr12d4 = 0
chr14d1 = 0: chr14d2 = 0: chr14d3 = 0: chr14d4 = 0
chr15d1 = 0: chr15d2 = 0: chr15d3 = 0: chr15d4 = 0
chr16d1 = 0: chr16d2 = 0: chr16d3 = 0: chr16d4 = 0
chr17d1 = 0: chr17d2 = 0: chr17d3 = 0: chr17d4 = 0
chr25d1 = 0: chr25d2 = 0: chr25d3 = 0: chr25d4 = 0
chr29d1 = 0: chr29d2 = 0: chr29d3 = 0: chr29d4 = 0
chr30d1 = 0: chr30d2 = 0: chr30d3 = 0: chr30d4 = 0
chr31d1 = 0: chr31d2 = 0: chr31d3 = 0: chr31d4 = 0
chr35d1 = 0: chr35d2 = 0: chr35d3 = 0: chr35d4 = 0
chr60d1 = 0: chr60d2 = 0: chr60d3 = 0: chr60d4 = 0
chr127d1 = 0: chr127d2 = 0: chr127d3 = 0: chr127d4 = 0
chr210d1 = 0: chr210d2 = 0: chr210d3 = 0: chr210d4 = 0
chr243d1 = 0: chr243d2 = 0: chr243d3 = 0: chr243d4 = 0
chr240d1 = 0: chr240d2 = 0: chr240d3 = 0: chr240d4 = 0
chr244d1 = 0: chr244d2 = 0: chr244d3 = 0: chr244d4 = 0
chr247d1 = 0: chr247d2 = 0: chr247d3 = 0: chr247d4 = 0
chr167d1 = 0: chr167d2 = 0: chr167d3 = 0: chr167d4 = 0
If diff$ = "Hard " Then GoTo hardlevel
If diff$ = "Normal" Then GoTo normallevel
normallevel:
Cls
Screen 13
Window Screen(0, 0)-(1000, 1000)
Randomize Timer
Xr8 = Int(Rnd * 4) + 1
If Xr8 <= 1 Then GoSub Xr81
If Xr8 = 2 Then GoSub Xr82
If Xr8 = 3 Then GoSub Xr83
If Xr8 = 4 Then GoSub Xr84
If Xr8 >= 5 Then GoSub Xr85
Cr8 = Int(Rnd * 4) + 1
If Cr8 <= 1 Then GoSub Cr81
If Cr8 = 2 Then GoSub Cr82
If Cr8 = 3 Then GoSub Cr83
If Cr8 = 4 Then GoSub Cr84
If Cr8 >= 5 Then GoSub Cr85
Color 15
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219)
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219)
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219)
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219)
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219)
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219)
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219)
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219)
fg = 3
Line (20.38, 32.67)-(51.72, 82.91), 2, B
x = 20.38: y = 32.67
row = 1
col = 1
xx = 2
yy = 2
Do
If turns <= 0 Then GoTo LoseGame
If chr2 = 4 And chr3 = 4 And chr4 = 4 And chr5 = 4 And chr6 = 4 And chr7 = 4 And chr8 = 4 Then GoSub NormCheckWin
scrlmsgspeed = scrlmsgspeed + 1
scrlclr = scrlclr + 1
msec = msec + 1
If msec >= 40 Then sec = sec + 1: msec = 0
If sec >= 60 Then min = min + 1: sec = 0
If min >= 60 Then hour = hour + 1: min = 0
ass$ = InKey$
Select Case ass$
Case Chr$(0) + "H" 'UP ARROW
Line (x, y)-(x + 31.34, y + 50.24), 0, B
row = row - 1
xx = xx - 2
If row <= 1 Then row = 1
If xx <= 2 Then xx = 2
y = y - 80.402
If x <= 20.38 Then x = 20.38
If y <= 32.67 Then y = 32.67
GoSub snd
Case Chr$(0) + "P" 'DOWN ARROW
Line (x, y)-(x + 31.34, y + 50.24), 0, B
row = row + 1
xx = xx + 2
If row >= 8 Then row = 8
If xx >= 16 Then xx = 16
y = y + 80.402
If y >= 595.484 Then y = 595.484
GoSub snd
Case Chr$(0) + "K" 'LEFT ARROW
Line (x, y)-(x + 31.34, y + 50.24), 0, B
col = col - 1
yy = yy - 2
If col <= 1 Then col = 1
If yy <= 2 Then yy = 2
x = x - 50.157
If x <= 20.38 Then x = 20.38
GoSub snd
Case Chr$(0) + "M" 'RIGHT ARROW
Line (x, y)-(x + 31.34, y + 50.24), 0, B
col = col + 1
yy = yy + 2
If col >= 8 Then col = 8
If yy >= 16 Then yy = 16
x = x + 50.157
If y >= 756.288 Then y = 595.484
If x >= 371.479 Then x = 371.479
GoSub snd
Case Chr$(32) 'SPACE BAR
If flip = 0 Then xx1 = xx
If flip = 0 Then yy1 = yy
If flip = 1 Then xx2 = xx
If flip = 1 Then yy2 = yy
flip = flip + 1
If row = r8 And col = c1 And chr3d1 = 0 Then Locate xx, yy: Color clrB: Print "f": Color 15: chr3d1 = 1: chr3 = chr3 + 1: GoSub snd
If row = r3 And col = c3 And chr3d2 = 0 Then Locate xx, yy: Color clrB: Print "f": Color 15: chr3d2 = 1: chr3 = chr3 + 1: GoSub snd
If row = r8 And col = c4 And chr3d3 = 0 Then Locate xx, yy: Color clrB: Print "f": Color 15: chr3d3 = 1: chr3 = chr3 + 1: GoSub snd
If row = r1 And col = c8 And chr3d4 = 0 Then Locate xx, yy: Color clrB: Print "f": Color 15: chr3d4 = 1: chr3 = chr3 + 1: GoSub snd
If row = r4 And col = c1 And chr2d1 = 0 Then Locate xx, yy: Color clrA: Print "X": Color 15: chr2d1 = 1: chr2 = chr2 + 1: GoSub snd
If row = r2 And col = c4 And chr2d2 = 0 Then Locate xx, yy: Color clrA: Print "X": Color 15: chr2d2 = 1: chr2 = chr2 + 1: GoSub snd
If row = r5 And col = c5 And chr2d3 = 0 Then Locate xx, yy: Color clrA: Print "X": Color 15: chr2d3 = 1: chr2 = chr2 + 1: GoSub snd
If row = r5 And col = c6 And chr2d4 = 0 Then Locate xx, yy: Color clrA: Print "X": Color 15: chr2d4 = 1: chr2 = chr2 + 1: GoSub snd
If row = r4 And col = c2 And chr4d1 = 0 Then Locate xx, yy: Color clrC: Print "x": Color 15: chr4d1 = 1: chr4 = chr4 + 1: GoSub snd
If row = r1 And col = c4 And chr4d2 = 0 Then Locate xx, yy: Color clrC: Print "x": Color 15: chr4d2 = 1: chr4 = chr4 + 1: GoSub snd
If row = r5 And col = c4 And chr4d3 = 0 Then Locate xx, yy: Color clrC: Print "x": Color 15: chr4d3 = 1: chr4 = chr4 + 1: GoSub snd
If row = r3 And col = c6 And chr4d4 = 0 Then Locate xx, yy: Color clrC: Print "x": Color 15: chr4d4 = 1: chr4 = chr4 + 1: GoSub snd
If row = r1 And col = c1 And chr5d1 = 0 Then Locate xx, yy: Color clrD: Print "F": Color 15: chr5d1 = 1: chr5 = chr5 + 1: GoSub snd
If row = r2 And col = c2 And chr5d2 = 0 Then Locate xx, yy: Color clrD: Print "F": Color 15: chr5d2 = 1: chr5 = chr5 + 1: GoSub snd
If row = r4 And col = c5 And chr5d3 = 0 Then Locate xx, yy: Color clrD: Print "F": Color 15: chr5d3 = 1: chr5 = chr5 + 1: GoSub snd
If row = r2 And col = c7 And chr5d4 = 0 Then Locate xx, yy: Color clrD: Print "F": Color 15: chr5d4 = 1: chr5 = chr5 + 1: GoSub snd
If row = r3 And col = c2 And chr6d1 = 0 Then Locate xx, yy: Color clrE: Print "S": Color 15: chr6d1 = 1: chr6 = chr6 + 1: GoSub snd
If row = r6 And col = c3 And chr6d2 = 0 Then Locate xx, yy: Color clrE: Print "S": Color 15: chr6d2 = 1: chr6 = chr6 + 1: GoSub snd
If row = r6 And col = c5 And chr6d3 = 0 Then Locate xx, yy: Color clrE: Print "S": Color 15: chr6d3 = 1: chr6 = chr6 + 1: GoSub snd
If row = r6 And col = c7 And chr6d4 = 0 Then Locate xx, yy: Color clrE: Print "S": Color 15: chr6d4 = 1: chr6 = chr6 + 1: GoSub snd
If row = r5 And col = c1 And chr7d1 = 0 Then Locate xx, yy: Color clrF: Print "G": Color 15: chr7d1 = 1: chr7 = chr7 + 1: GoSub snd
If row = r3 And col = c4 And chr7d2 = 0 Then Locate xx, yy: Color clrF: Print "G": Color 15: chr7d2 = 1: chr7 = chr7 + 1: GoSub snd
If row = r1 And col = c6 And chr7d3 = 0 Then Locate xx, yy: Color clrF: Print "G": Color 15: chr7d3 = 1: chr7 = chr7 + 1: GoSub snd
If row = r7 And col = c6 And chr7d4 = 0 Then Locate xx, yy: Color clrF: Print "G": Color 15: chr7d4 = 1: chr7 = chr7 + 1: GoSub snd
If row = r6 And col = c2 And chr8d1 = 0 Then Locate xx, yy: Color clrG: Print "M": Color 15: chr8d1 = 1: chr8 = chr8 + 1: GoSub snd
If row = r4 And col = c7 And chr8d2 = 0 Then Locate xx, yy: Color clrG: Print "M": Color 15: chr8d2 = 1: chr8 = chr8 + 1: GoSub snd
If row = r6 And col = c8 And chr8d3 = 0 Then Locate xx, yy: Color clrG: Print "M": Color 15: chr8d3 = 1: chr8 = chr8 + 1: GoSub snd
If row = r8 And col = c8 And chr8d4 = 0 Then Locate xx, yy: Color clrG: Print "M": Color 15: chr8d4 = 1: chr8 = chr8 + 1: GoSub snd
If row = r3 And col = c1 And chr12d1 = 0 Then Locate xx, yy: Color clrH: Print "p": Color 15: chr12d1 = 1: chr12 = chr12 + 1: GoSub snd
If row = r7 And col = c2 And chr12d2 = 0 Then Locate xx, yy: Color clrH: Print "p": Color 15: chr12d2 = 1: chr12 = chr12 + 1: GoSub snd
If row = r2 And col = c5 And chr12d3 = 0 Then Locate xx, yy: Color clrH: Print "p": Color 15: chr12d3 = 1: chr12 = chr12 + 1: GoSub snd
If row = r4 And col = c6 And chr12d4 = 0 Then Locate xx, yy: Color clrH: Print "p": Color 15: chr12d4 = 1: chr12 = chr12 + 1: GoSub snd
If row = r1 And col = c2 And chr14d1 = 0 Then Locate xx, yy: Color clrI: Print "r": Color 15: chr14d1 = 1: chr14 = chr14 + 1: GoSub snd
If row = r5 And col = c3 And chr14d2 = 0 Then Locate xx, yy: Color clrI: Print "r": Color 15: chr14d2 = 1: chr14 = chr14 + 1: GoSub snd
If row = r8 And col = c5 And chr14d3 = 0 Then Locate xx, yy: Color clrI: Print "r": Color 15: chr14d3 = 1: chr14 = chr14 + 1: GoSub snd
If row = r3 And col = c8 And chr14d4 = 0 Then Locate xx, yy: Color clrI: Print "r": Color 15: chr14d4 = 1: chr14 = chr14 + 1: GoSub snd
If row = r6 And col = c1 And chr15d1 = 0 Then Locate xx, yy: Color clrJ: Print "P": Color 15: chr15d1 = 1: chr15 = chr15 + 1: GoSub snd
If row = r7 And col = c1 And chr15d2 = 0 Then Locate xx, yy: Color clrJ: Print "P": Color 15: chr15d2 = 1: chr15 = chr15 + 1: GoSub snd
If row = r4 And col = c3 And chr15d3 = 0 Then Locate xx, yy: Color clrJ: Print "P": Color 15: chr15d3 = 1: chr15 = chr15 + 1: GoSub snd
If row = r1 And col = c5 And chr15d4 = 0 Then Locate xx, yy: Color clrJ: Print "P": Color 15: chr15d4 = 1: chr15 = chr15 + 1: GoSub snd
If row = r2 And col = c1 And chr16d1 = 0 Then Locate xx, yy: Color clrK: Print "R": Color 15: chr16d1 = 1: chr16 = chr16 + 1: GoSub snd
If row = r6 And col = c4 And chr16d2 = 0 Then Locate xx, yy: Color clrK: Print "R": Color 15: chr16d2 = 1: chr16 = chr16 + 1: GoSub snd
If row = r1 And col = c7 And chr16d3 = 0 Then Locate xx, yy: Color clrK: Print "R": Color 15: chr16d3 = 1: chr16 = chr16 + 1: GoSub snd
If row = r5 And col = c8 And chr16d4 = 0 Then Locate xx, yy: Color clrK: Print "R": Color 15: chr16d4 = 1: chr16 = chr16 + 1: GoSub snd
If row = r2 And col = c3 And chr17d1 = 0 Then Locate xx, yy: Color clrL: Print "g": Color 15: chr17d1 = 1: chr17 = chr17 + 1: GoSub snd
If row = r7 And col = c4 And chr17d2 = 0 Then Locate xx, yy: Color clrL: Print "g": Color 15: chr17d2 = 1: chr17 = chr17 + 1: GoSub snd
If row = r3 And col = c5 And chr17d3 = 0 Then Locate xx, yy: Color clrL: Print "g": Color 15: chr17d3 = 1: chr17 = chr17 + 1: GoSub snd
If row = r2 And col = c8 And chr17d4 = 0 Then Locate xx, yy: Color clrL: Print "g": Color 15: chr17d4 = 1: chr17 = chr17 + 1: GoSub snd
If row = r7 And col = c3 And chr25d1 = 0 Then Locate xx, yy: Color clrM: Print "s": Color 15: chr25d1 = 1: chr25 = chr25 + 1: GoSub snd
If row = r4 And col = c4 And chr25d2 = 0 Then Locate xx, yy: Color clrM: Print "s": Color 15: chr25d2 = 1: chr25 = chr25 + 1: GoSub snd
If row = r6 And col = c6 And chr25d3 = 0 Then Locate xx, yy: Color clrM: Print "s": Color 15: chr25d3 = 1: chr25 = chr25 + 1: GoSub snd
If row = r5 And col = c7 And chr25d4 = 0 Then Locate xx, yy: Color clrM: Print "s": Color 15: chr25d4 = 1: chr25 = chr25 + 1: GoSub snd
If row = r8 And col = c2 And chr29d1 = 0 Then Locate xx, yy: Color clrN: Print "W": Color 15: chr29d1 = 1: chr29 = chr29 + 1: GoSub snd
If row = r2 And col = c6 And chr29d2 = 0 Then Locate xx, yy: Color clrN: Print "W": Color 15: chr29d2 = 1: chr29 = chr29 + 1: GoSub snd
If row = r8 And col = c6 And chr29d3 = 0 Then Locate xx, yy: Color clrN: Print "W": Color 15: chr29d3 = 1: chr29 = chr29 + 1: GoSub snd
If row = r4 And col = c8 And chr29d4 = 0 Then Locate xx, yy: Color clrN: Print "W": Color 15: chr29d4 = 1: chr29 = chr29 + 1: GoSub snd
If row = r1 And col = c3 And chr30d1 = 0 Then Locate xx, yy: Color clrO: Print "w": Color 15: chr30d1 = 1: chr30 = chr30 + 1: GoSub snd
If row = r3 And col = c7 And chr30d2 = 0 Then Locate xx, yy: Color clrO: Print "w": Color 15: chr30d2 = 1: chr30 = chr30 + 1: GoSub snd
If row = r7 And col = c7 And chr30d3 = 0 Then Locate xx, yy: Color clrO: Print "w": Color 15: chr30d3 = 1: chr30 = chr30 + 1: GoSub snd
If row = r8 And col = c7 And chr30d4 = 0 Then Locate xx, yy: Color clrO: Print "w": Color 15: chr30d4 = 1: chr30 = chr30 + 1: GoSub snd
If row = r5 And col = c2 And chr31d1 = 0 Then Locate xx, yy: Color clrA: Print "m": Color 15: chr31d1 = 1: chr31 = chr31 + 1: GoSub snd
If row = r8 And col = c3 And chr31d2 = 0 Then Locate xx, yy: Color clrA: Print "m": Color 15: chr31d2 = 1: chr31 = chr31 + 1: GoSub snd
If row = r7 And col = c5 And chr31d3 = 0 Then Locate xx, yy: Color clrA: Print "m": Color 15: chr31d3 = 1: chr31 = chr31 + 1: GoSub snd
If row = r7 And col = c8 And chr31d4 = 0 Then Locate xx, yy: Color clrA: Print "m": Color 15: chr31d4 = 1: chr31 = chr31 + 1: GoSub snd
Case "q" 'Q KEY
Locate 20, 1: Print "Are you sure you want to quit? (yes/no)"
Locate 21, 1: Print " "
again$ = ""
Locate 21, 1: Input "", again$
If again$ = "yes" Then GoSub highscorelist: GoTo 1
If again$ = "YES" Then GoSub highscorelist: GoTo 1
If again$ = "Yes" Then GoSub highscorelist: GoTo 1
If again$ = "y" Then GoSub highscorelist: GoTo 1
If again$ = "Y" Then GoSub highscorelist: GoTo 1
Locate 20, 1: Print " ": Locate 21, 1: Print " "
Case "Q"
Locate 20, 1: Print "Are you sure you want to quit? (yes/no)"
Locate 21, 1: Print " Salir teclas: Windows + D "
again$ = ""
Locate 21, 1: Input "", again$
If again$ = "yes" Then GoSub highscorelist: GoTo 1
If again$ = "YES" Then GoSub highscorelist: GoTo 1
If again$ = "Yes" Then GoSub highscorelist: GoTo 1
If again$ = "y" Then GoSub highscorelist: GoTo 1
If again$ = "Y" Then GoSub highscorelist: GoTo 1
Locate 20, 1: Print " ": Locate 21, 1: Print " "
Case Chr$(0) + "G" 'HOME KEY
Line (x, y)-(x + 31.34, y + 50.24), 0, B
col = col - 10
yy = yy - 20
If col <= 1 Then col = 1
If yy <= 2 Then yy = 2
x = x - 501.57
If x <= 20.38 Then x = 20.38
GoSub snd
Case Chr$(0) + "O" 'END KEY
Line (x, y)-(x + 31.34, y + 50.24), 0, B
col = col + 10
yy = yy + 20
If col >= 8 Then col = 8
If yy >= 16 Then yy = 16
x = x + 501.57
If y >= 756.288 Then y = 595.484
If x >= 371.479 Then x = 371.479
GoSub snd
Case Chr$(0) + "I" 'PAGE UP
Line (x, y)-(x + 31.34, y + 50.24), 0, B
row = row - 10
xx = xx - 20
If row <= 1 Then row = 1
If xx <= 2 Then xx = 2
y = y - 804.02
If x <= 20.38 Then x = 20.38
If y <= 32.67 Then y = 32.67
GoSub snd
Case Chr$(0) + "Q" 'PAGE DOWN
Line (x, y)-(x + 31.34, y + 50.24), 0, B
row = row + 10
xx = xx + 20
If row >= 8 Then row = 8
If xx >= 16 Then xx = 16
y = y + 804.02
If y >= 595.484 Then y = 595.484
GoSub snd
End Select
If flip >= 3 Then flip = 2
If flip = 2 Then GoSub FlipCardsBack
If on1 = 0 Then clr = clr + 1
If on1 = 1 Then clr = clr - 1
If clr >= 7 Then on1 = 1
If clr <= 1 Then on1 = 0
For sweep = 1 To 9000: Next
Line (x, y)-(x + 31.34, y + 50.24), clr, B
GoSub GameStats
If scrlclr = 1 Then Locate 23, 1: Color 7
If scrlclr = 2 Then Locate 23, 1: Color 2
If scrlclr = 3 Then Locate 23, 1: Color 3
If scrlclr = 4 Then Locate 23, 1: Color 4
If scrlclr = 5 Then Locate 23, 1: Color 5
If scrlclr = 6 Then Locate 23, 1: Color 9
If scrlclr = 7 Then Locate 23, 1: Color 10
If scrlclr = 8 Then Locate 23, 1: Color 11
If scrlclr = 9 Then Locate 23, 1: Color 12
If scrlclr = 10 Then Locate 23, 1: Color 13
If scrlclr = 11 Then Locate 23, 1: Color 14
If scrlclr = 12 Then Locate 23, 1: Color 15
Loop
hardlevel:
Cls
Screen 13
Window Screen(0, 0)-(1000, 1000)
Randomize Timer
Xr10 = Int(Rnd * 4) + 1
If Xr10 <= 1 Then GoSub Xr101
If Xr10 = 2 Then GoSub Xr102
If Xr10 = 3 Then GoSub Xr103
If Xr10 = 4 Then GoSub Xr104
If Xr10 >= 5 Then GoSub Xr105
Cr10 = Int(Rnd * 4) + 1
If Cr10 <= 1 Then GoSub Cr101
If Cr10 = 2 Then GoSub Cr102
If Cr10 = 3 Then GoSub Cr103
If Cr10 = 4 Then GoSub Cr104
If Cr10 >= 5 Then GoSub Cr105
Color 1
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
Print " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " "; Chr$(219); " ";
fg = 3
Line (20.38, 32.67)-(51.72, 82.91), 2, B
x = 20.38: y = 32.67
row = 1
col = 1
xx = 2
yy = 2
Do
If turns = 0 Then GoTo LoseGame
If chr2 = 4 And chr3 = 4 And chr4 = 4 And chr5 = 4 And chr6 = 4 And chr7 = 4 And chr8 = 4 And chr12 = 4 And chr14 = 4 And chr15 = 4 And chr16 = 4 Then GoSub HCheck2
BHCheck:
scrlmsgspeed = scrlmsgspeed + 1
scrlclr = scrlclr + 1
msec = msec + 1
If msec >= 40 Then sec = sec + 1: msec = 0
If sec >= 60 Then min = min + 1: sec = 0
If min >= 60 Then hour = hour + 1: min = 0
ass$ = InKey$
Select Case ass$
Case Chr$(0) + "H" 'UP ARROW
Line (x, y)-(x + 31.34, y + 50.24), 0, B
row = row - 1
xx = xx - 2
If row <= 1 Then row = 1
If xx <= 2 Then xx = 2
y = y - 80.402
If x <= 20.38 Then x = 20.38
If y <= 32.67 Then y = 32.67
GoSub snd
Case Chr$(0) + "P" 'DOWN ARROW
Line (x, y)-(x + 31.34, y + 50.24), 0, B
row = row + 1
xx = xx + 2
If row >= 10 Then row = 10
If xx >= 20 Then xx = 20
y = y + 80.402
If y >= 756.288 Then y = 756.288
GoSub snd
Case Chr$(0) + "K" 'LEFT ARROW
Line (x, y)-(x + 31.34, y + 50.24), 0, B
col = col - 1
yy = yy - 2
If col <= 1 Then col = 1
If yy <= 2 Then yy = 2
x = x - 50.157
If x <= 20.38 Then x = 20.38
GoSub snd
Case Chr$(0) + "M" 'RIGHT ARROW
Line (x, y)-(x + 31.34, y + 50.24), 0, B
col = col + 1
yy = yy + 2
If col >= 10 Then col = 10
If yy >= 20 Then yy = 20
x = x + 50.157
If y >= 756.288 Then y = 756.288
If x >= 471.7931 Then x = 471.7931
GoSub snd
Case Chr$(32) 'SPACE BAR
If flip = 0 Then xx1 = xx
If flip = 0 Then yy1 = yy
If flip = 1 Then xx2 = xx
If flip = 1 Then yy2 = yy
flip = flip + 1
If row = r1 And col = c1 And chr3d1 = 0 Then Locate xx, yy: Color clrA: Print "C": Color 15: chr3d1 = 1: chr3 = chr3 + 1: GoSub snd
If row = r3 And col = c1 And chr3d2 = 0 Then Locate xx, yy: Color clrA: Print "C": Color 15: chr3d2 = 1: chr3 = chr3 + 1: GoSub snd
If row = r5 And col = c5 And chr3d3 = 0 Then Locate xx, yy: Color clrA: Print "C": Color 15: chr3d3 = 1: chr3 = chr3 + 1: GoSub snd
If row = r3 And col = c8 And chr3d4 = 0 Then Locate xx, yy: Color clrA: Print "C": Color 15: chr3d4 = 1: chr3 = chr3 + 1: GoSub snd
If row = r2 And col = c1 And chr4d1 = 0 Then Locate xx, yy: Color clrB: Print "B": Color 15: chr4d1 = 1: chr4 = chr4 + 1: GoSub snd
If row = r4 And col = c3 And chr4d2 = 0 Then Locate xx, yy: Color clrB: Print "B": Color 15: chr4d2 = 1: chr4 = chr4 + 1: GoSub snd
If row = r3 And col = c5 And chr4d3 = 0 Then Locate xx, yy: Color clrB: Print "B": Color 15: chr4d3 = 1: chr4 = chr4 + 1: GoSub snd
If row = r6 And col = c7 And chr4d4 = 0 Then Locate xx, yy: Color clrB: Print "B": Color 15: chr4d4 = 1: chr4 = chr4 + 1: GoSub snd
If row = r4 And col = c1 And chr7d1 = 0 Then Locate xx, yy: Color clrC: Print "D": Color 15: chr7d1 = 1: chr7 = chr7 + 1: GoSub snd
If row = r3 And col = c2 And chr7d2 = 0 Then Locate xx, yy: Color clrC: Print "D": Color 15: chr7d2 = 1: chr7 = chr7 + 1: GoSub snd
If row = r4 And col = c8 And chr7d3 = 0 Then Locate xx, yy: Color clrC: Print "D": Color 15: chr7d3 = 1: chr7 = chr7 + 1: GoSub snd
If row = r2 And col = c10 And chr7d4 = 0 Then Locate xx, yy: Color clrC: Print "D": Color 15: chr7d4 = 1: chr7 = chr7 + 1: GoSub snd
If row = r5 And col = c1 And chr31d1 = 0 Then Locate xx, yy: Color clrD: Print "Z": Color 15: chr31d1 = 1: chr31 = chr31 + 1: GoSub snd
If row = r10 And col = c4 And chr31d2 = 0 Then Locate xx, yy: Color clrD: Print "Z": Color 15: chr31d2 = 1: chr31 = chr31 + 1: GoSub snd
If row = r7 And col = c7 And chr31d3 = 0 Then Locate xx, yy: Color clrD: Print "Z": Color 15: chr31d3 = 1: chr31 = chr31 + 1: GoSub snd
If row = r8 And col = c7 And chr31d4 = 0 Then Locate xx, yy: Color clrD: Print "Z": Color 15: chr31d4 = 1: chr31 = chr31 + 1: GoSub snd
If row = r6 And col = c1 And chr30d1 = 0 Then Locate xx, yy: Color clrE: Print "V": Color 15: chr30d1 = 1: chr30 = chr30 + 1: GoSub snd
If row = r10 And col = c2 And chr30d2 = 0 Then Locate xx, yy: Color clrE: Print "V": Color 15: chr30d2 = 1: chr30 = chr30 + 1: GoSub snd
If row = r5 And col = c4 And chr30d3 = 0 Then Locate xx, yy: Color clrE: Print "V": Color 15: chr30d3 = 1: chr30 = chr30 + 1: GoSub snd
If row = r4 And col = c4 And chr30d4 = 0 Then Locate xx, yy: Color clrE: Print "V": Color 15: chr30d4 = 1: chr30 = chr30 + 1: GoSub snd
If row = r7 And col = c1 And chr35d1 = 0 Then Locate xx, yy: Color clrF: Print "G": Color 15: chr35d1 = 1: chr35 = chr35 + 1: GoSub snd
If row = r10 And col = c8 And chr35d2 = 0 Then Locate xx, yy: Color clrF: Print "G": Color 15: chr35d2 = 1: chr35 = chr35 + 1: GoSub snd
If row = r4 And col = c9 And chr35d3 = 0 Then Locate xx, yy: Color clrF: Print "G": Color 15: chr35d3 = 1: chr35 = chr35 + 1: GoSub snd
If row = r10 And col = c1 And chr35d4 = 0 Then Locate xx, yy: Color clrF: Print "G": Color 15: chr35d4 = 1: chr35 = chr35 + 1: GoSub snd
If row = r8 And col = c1 And chr12d1 = 0 Then Locate xx, yy: Color clrG: Print "M": Color 15: chr12d1 = 1: chr12 = chr12 + 1: GoSub snd
If row = r8 And col = c2 And chr12d2 = 0 Then Locate xx, yy: Color clrG: Print "M": Color 15: chr12d2 = 1: chr12 = chr12 + 1: GoSub snd
If row = r2 And col = c4 And chr12d3 = 0 Then Locate xx, yy: Color clrG: Print "M": Color 15: chr12d3 = 1: chr12 = chr12 + 1: GoSub snd
If row = r8 And col = c8 And chr12d4 = 0 Then Locate xx, yy: Color clrG: Print "M": Color 15: chr12d4 = 1: chr12 = chr12 + 1: GoSub snd
If row = r9 And col = c1 And chr243d1 = 0 Then Locate xx, yy: Color clrH: Print "W": Color 15: chr243d1 = 1: chr243 = chr243 + 1: GoSub snd
If row = r8 And col = c3 And chr243d2 = 0 Then Locate xx, yy: Color clrH: Print "W": Color 15: chr243d2 = 1: chr243 = chr243 + 1: GoSub snd
If row = r9 And col = c6 And chr243d3 = 0 Then Locate xx, yy: Color clrH: Print "W": Color 15: chr243d3 = 1: chr243 = chr243 + 1: GoSub snd
If row = r7 And col = c9 And chr243d4 = 0 Then Locate xx, yy: Color clrH: Print "W": Color 15: chr243d4 = 1: chr243 = chr243 + 1: GoSub snd
If row = r1 And col = c2 And chr25d1 = 0 Then Locate xx, yy: Color clrI: Print "N": Color 15: chr25d1 = 1: chr25 = chr25 + 1: GoSub snd
If row = r2 And col = c3 And chr25d2 = 0 Then Locate xx, yy: Color clrI: Print "N": Color 15: chr25d2 = 1: chr25 = chr25 + 1: GoSub snd
If row = r9 And col = c7 And chr25d3 = 0 Then Locate xx, yy: Color clrI: Print "N": Color 15: chr25d3 = 1: chr25 = chr25 + 1: GoSub snd
If row = r8 And col = c9 And chr25d4 = 0 Then Locate xx, yy: Color clrI: Print "N": Color 15: chr25d4 = 1: chr25 = chr25 + 1: GoSub snd
If row = r2 And col = c2 And chr29d1 = 0 Then Locate xx, yy: Color clrJ: Print "P": Color 15: chr29d1 = 1: chr29 = chr29 + 1: GoSub snd
If row = r7 And col = c2 And chr29d2 = 0 Then Locate xx, yy: Color clrJ: Print "P": Color 15: chr29d2 = 1: chr29 = chr29 + 1: GoSub snd
If row = r7 And col = c8 And chr29d3 = 0 Then Locate xx, yy: Color clrJ: Print "P": Color 15: chr29d3 = 1: chr29 = chr29 + 1: GoSub snd
If row = r5 And col = c6 And chr29d4 = 0 Then Locate xx, yy: Color clrJ: Print "P": Color 15: chr29d4 = 1: chr29 = chr29 + 1: GoSub snd
If row = r4 And col = c2 And chr6d1 = 0 Then Locate xx, yy: Color clrK: Print "H": Color 15: chr6d1 = 1: chr6 = chr6 + 1: GoSub snd
If row = r6 And col = c4 And chr6d2 = 0 Then Locate xx, yy: Color clrK: Print "H": Color 15: chr6d2 = 1: chr6 = chr6 + 1: GoSub snd
If row = r4 And col = c6 And chr6d3 = 0 Then Locate xx, yy: Color clrK: Print "H": Color 15: chr6d3 = 1: chr6 = chr6 + 1: GoSub snd
If row = r2 And col = c7 And chr6d4 = 0 Then Locate xx, yy: Color clrK: Print "H": Color 15: chr6d4 = 1: chr6 = chr6 + 1: GoSub snd
If row = r5 And col = c2 And chr5d1 = 0 Then Locate xx, yy: Color clrL: Print "X": Color 15: chr5d1 = 1: chr5 = chr5 + 1: GoSub snd
If row = r7 And col = c4 And chr5d2 = 0 Then Locate xx, yy: Color clrL: Print "X": Color 15: chr5d2 = 1: chr5 = chr5 + 1: GoSub snd
If row = r2 And col = c6 And chr5d3 = 0 Then Locate xx, yy: Color clrL: Print "X": Color 15: chr5d3 = 1: chr5 = chr5 + 1: GoSub snd
If row = r5 And col = c8 And chr5d4 = 0 Then Locate xx, yy: Color clrL: Print "X": Color 15: chr5d4 = 1: chr5 = chr5 + 1: GoSub snd
If row = r6 And col = c2 And chr60d1 = 0 Then Locate xx, yy: Color clrM: Print "c": Color 15: chr60d1 = 1: chr60 = chr60 + 1: GoSub snd
If row = r10 And col = c6 And chr60d2 = 0 Then Locate xx, yy: Color clrM: Print "c": Color 15: chr60d2 = 1: chr60 = chr60 + 1: GoSub snd
If row = r3 And col = c7 And chr60d3 = 0 Then Locate xx, yy: Color clrM: Print "c": Color 15: chr60d3 = 1: chr60 = chr60 + 1: GoSub snd
If row = r4 And col = c7 And chr60d4 = 0 Then Locate xx, yy: Color clrM: Print "c": Color 15: chr60d4 = 1: chr60 = chr60 + 1: GoSub snd
If row = r9 And col = c2 And chr210d1 = 0 Then Locate xx, yy: Color clrN: Print "d": Color 15: chr210d1 = 1: chr210 = chr210 + 1: GoSub snd
If row = r10 And col = c5 And chr210d2 = 0 Then Locate xx, yy: Color clrN: Print "d": Color 15: chr210d2 = 1: chr210 = chr210 + 1: GoSub snd
If row = r3 And col = c9 And chr210d3 = 0 Then Locate xx, yy: Color clrN: Print "d": Color 15: chr210d3 = 1: chr210 = chr210 + 1: GoSub snd
If row = r9 And col = c9 And chr210d4 = 0 Then Locate xx, yy: Color clrN: Print "d": Color 15: chr210d4 = 1: chr210 = chr210 + 1: GoSub snd
If row = r1 And col = c3 And chr127d1 = 0 Then Locate xx, yy: Color clrO: Print "S": Color 15: chr127d1 = 1: chr127 = chr127 + 1: GoSub snd
If row = r6 And col = c3 And chr127d2 = 0 Then Locate xx, yy: Color clrO: Print "S": Color 15: chr127d2 = 1: chr127 = chr127 + 1: GoSub snd
If row = r7 And col = c5 And chr127d3 = 0 Then Locate xx, yy: Color clrO: Print "S": Color 15: chr127d3 = 1: chr127 = chr127 + 1: GoSub snd
If row = r10 And col = c9 And chr127d4 = 0 Then Locate xx, yy: Color clrO: Print "S": Color 15: chr127d4 = 1: chr127 = chr127 + 1: GoSub snd
If row = r3 And col = c3 And chr240d1 = 0 Then Locate xx, yy: Color clrA: Print "L": Color 15: chr240d1 = 1: chr240 = chr240 + 1: GoSub snd
If row = r2 And col = c8 And chr240d2 = 0 Then Locate xx, yy: Color clrA: Print "L": Color 15: chr240d2 = 1: chr240 = chr240 + 1: GoSub snd
If row = r5 And col = c10 And chr240d3 = 0 Then Locate xx, yy: Color clrA: Print "L": Color 15: chr240d3 = 1: chr240 = chr240 + 1: GoSub snd
If row = r10 And col = c10 And chr240d4 = 0 Then Locate xx, yy: Color clrA: Print "L": Color 15: chr240d4 = 1: chr240 = chr240 + 1: GoSub snd
If row = r5 And col = c3 And chr2d1 = 0 Then Locate xx, yy: Color clrB: Print "r": Color 15: chr2d1 = 1: chr2 = chr2 + 1: GoSub snd
If row = r8 And col = c4 And chr2d2 = 0 Then Locate xx, yy: Color clrB: Print "r": Color 15: chr2d2 = 1: chr2 = chr2 + 1: GoSub snd
If row = r6 And col = c5 And chr2d3 = 0 Then Locate xx, yy: Color clrB: Print "r": Color 15: chr2d3 = 1: chr2 = chr2 + 1: GoSub snd
If row = r2 And col = c9 And chr2d4 = 0 Then Locate xx, yy: Color clrB: Print "r": Color 15: chr2d4 = 1: chr2 = chr2 + 1: GoSub snd
If row = r7 And col = c3 And chr15d1 = 0 Then Locate xx, yy: Color clrC: Print "t": Color 15: chr15d1 = 1: chr15 = chr15 + 1: GoSub snd
If row = r3 And col = c6 And chr15d2 = 0 Then Locate xx, yy: Color clrC: Print "t": Color 15: chr15d2 = 1: chr15 = chr15 + 1: GoSub snd
If row = r10 And col = c7 And chr15d3 = 0 Then Locate xx, yy: Color clrC: Print "t": Color 15: chr15d3 = 1: chr15 = chr15 + 1: GoSub snd
If row = r10 And col = c3 And chr15d4 = 0 Then Locate xx, yy: Color clrC: Print "t": Color 15: chr15d4 = 1: chr15 = chr15 + 1: GoSub snd
If row = r9 And col = c3 And chr244d1 = 0 Then Locate xx, yy: Color clrD: Print "R": Color 15: chr244d1 = 1: chr244 = chr244 + 1: GoSub snd
If row = r2 And col = c5 And chr244d2 = 0 Then Locate xx, yy: Color clrD: Print "R": Color 15: chr244d2 = 1: chr244 = chr244 + 1: GoSub snd
If row = r3 And col = c10 And chr244d3 = 0 Then Locate xx, yy: Color clrD: Print "R": Color 15: chr244d3 = 1: chr244 = chr244 + 1: GoSub snd
If row = r9 And col = c10 And chr244d4 = 0 Then Locate xx, yy: Color clrD: Print "R": Color 15: chr244d4 = 1: chr244 = chr244 + 1: GoSub snd
If row = r1 And col = c4 And chr247d1 = 0 Then Locate xx, yy: Color clrE: Print "T": Color 15: chr247d1 = 1: chr247 = chr247 + 1: GoSub snd
If row = r9 And col = c4 And chr247d2 = 0 Then Locate xx, yy: Color clrE: Print "T": Color 15: chr247d2 = 1: chr247 = chr247 + 1: GoSub snd
If row = r9 And col = c8 And chr247d3 = 0 Then Locate xx, yy: Color clrE: Print "T": Color 15: chr247d3 = 1: chr247 = chr247 + 1: GoSub snd
If row = r5 And col = c9 And chr247d4 = 0 Then Locate xx, yy: Color clrE: Print "T": Color 15: chr247d4 = 1: chr247 = chr247 + 1: GoSub snd
If row = r3 And col = c4 And chr16d1 = 0 Then Locate xx, yy: Color clrF: Print "n": Color 15: chr16d1 = 1: chr16 = chr16 + 1: GoSub snd
If row = r1 And col = c6 And chr16d2 = 0 Then Locate xx, yy: Color clrF: Print "n": Color 15: chr16d2 = 1: chr16 = chr16 + 1: GoSub snd
If row = r1 And col = c10 And chr16d3 = 0 Then Locate xx, yy: Color clrF: Print "n": Color 15: chr16d3 = 1: chr16 = chr16 + 1: GoSub snd
If row = r6 And col = c10 And chr16d4 = 0 Then Locate xx, yy: Color clrF: Print "n": Color 15: chr16d4 = 1: chr16 = chr16 + 1: GoSub snd
If row = r1 And col = c5 And chr167d1 = 0 Then Locate xx, yy: Color clrG: Print "h": Color 15: chr167d1 = 1: chr167 = chr167 + 1: GoSub snd
If row = r8 And col = c6 And chr167d2 = 0 Then Locate xx, yy: Color clrG: Print "h": Color 15: chr167d2 = 1: chr167 = chr167 + 1: GoSub snd
If row = r6 And col = c9 And chr167d3 = 0 Then Locate xx, yy: Color clrG: Print "h": Color 15: chr167d3 = 1: chr167 = chr167 + 1: GoSub snd
If row = r9 And col = c5 And chr167d4 = 0 Then Locate xx, yy: Color clrG: Print "h": Color 15: chr167d4 = 1: chr167 = chr167 + 1: GoSub snd
If row = r4 And col = c5 And chr8d1 = 0 Then Locate xx, yy: Color clrH: Print "z": Color 15: chr8d1 = 1: chr8 = chr8 + 1: GoSub snd
If row = r1 And col = c7 And chr8d2 = 0 Then Locate xx, yy: Color clrH: Print "z": Color 15: chr8d2 = 1: chr8 = chr8 + 1: GoSub snd
If row = r1 And col = c8 And chr8d3 = 0 Then Locate xx, yy: Color clrH: Print "z": Color 15: chr8d3 = 1: chr8 = chr8 + 1: GoSub snd
If row = r8 And col = c10 And chr8d4 = 0 Then Locate xx, yy: Color clrH: Print "z": Color 15: chr8d4 = 1: chr8 = chr8 + 1: GoSub snd
If row = r8 And col = c5 And chr17d1 = 0 Then Locate xx, yy: Color clrI: Print "p": Color 15: chr17d1 = 1: chr17 = chr17 + 1: GoSub snd
If row = r5 And col = c7 And chr17d2 = 0 Then Locate xx, yy: Color clrI: Print "p": Color 15: chr17d2 = 1: chr17 = chr17 + 1: GoSub snd
If row = r4 And col = c10 And chr17d3 = 0 Then Locate xx, yy: Color clrI: Print "p": Color 15: chr17d3 = 1: chr17 = chr17 + 1: GoSub snd
If row = r7 And col = c10 And chr17d4 = 0 Then Locate xx, yy: Color clrI: Print "p": Color 15: chr17d4 = 1: chr17 = chr17 + 1: GoSub snd
If row = r6 And col = c6 And chr14d1 = 0 Then Locate xx, yy: Color clrJ: Print "v": Color 15: chr14d1 = 1: chr14 = chr14 + 1: GoSub snd
If row = r7 And col = c6 And chr14d2 = 0 Then Locate xx, yy: Color clrJ: Print "v": Color 15: chr14d2 = 1: chr14 = chr14 + 1: GoSub snd
If row = r6 And col = c8 And chr14d3 = 0 Then Locate xx, yy: Color clrJ: Print "v": Color 15: chr14d3 = 1: chr14 = chr14 + 1: GoSub snd
If row = r1 And col = c9 And chr14d4 = 0 Then Locate xx, yy: Color clrJ: Print "v": Color 15: chr14d4 = 1: chr14 = chr14 + 1: GoSub snd
Case "q" 'Q KEY
Locate 21, 1: Print "Are you sure you want to quit? (yes/no)"
Locate 22, 1: Print " "
again$ = ""
Locate 22, 1: Input "", again$
If again$ = "yes" Then GoSub highscorelist: GoTo 1
If again$ = "YES" Then GoSub highscorelist: GoTo 1
If again$ = "Yes" Then GoSub highscorelist: GoTo 1
If again$ = "y" Then GoSub highscorelist: GoTo 1
If again$ = "Y" Then GoSub highscorelist: GoTo 1
Locate 21, 1: Print " ": Locate 21, 1: Print " "
Case "Q" 'Q KEY
Locate 21, 1: Print "Are you sure you want to quit? (yes/no)"
Locate 22, 1: Print " "
again$ = ""
Locate 22, 1: Input "", again$
If again$ = "yes" Then GoSub highscorelist: GoTo 1
If again$ = "YES" Then GoSub highscorelist: GoTo 1
If again$ = "Yes" Then GoSub highscorelist: GoTo 1
If again$ = "y" Then GoSub highscorelist: GoTo 1
If again$ = "Y" Then GoSub highscorelist: GoTo 1
Locate 21, 1: Print " ": Locate 21, 1: Print " "
Case Chr$(0) + "G" 'HOME KEY
Line (x, y)-(x + 31.34, y + 50.24), 0, B
col = col - 100
yy = yy - 200
If col <= 1 Then col = 1
If yy <= 2 Then yy = 2
x = x - 5000
If x <= 20.38 Then x = 20.38
GoSub snd
Case Chr$(0) + "O" 'END KEY
Line (x, y)-(x + 31.34, y + 50.24), 0, B
col = col + 100
yy = yy + 200
If col >= 10 Then col = 10
If yy >= 20 Then yy = 20
x = x + 5000
If y >= 756.288 Then y = 756.288
If x >= 471.7931 Then x = 471.7931
GoSub snd
Case Chr$(0) + "I" 'PAGE UP
Line (x, y)-(x + 31.34, y + 50.24), 0, B
row = row - 10
xx = xx - 20
If row <= 1 Then row = 1
If xx <= 2 Then xx = 2
y = y - 804.02
If x <= 20.38 Then x = 20.38
If y <= 32.67 Then y = 32.67
GoSub snd
Case Chr$(0) + "Q" 'PAGE DOWN
Line (x, y)-(x + 31.34, y + 50.24), 0, B
row = row + 10
xx = xx + 20
If row >= 10 Then row = 10
If xx >= 20 Then xx = 20
y = y + 804.02
If y >= 756.288 Then y = 756.288
GoSub snd
End Select
If flip >= 3 Then flip = 2
If flip = 2 Then GoSub FlipCardsBack
If on1 = 0 Then clr = clr + 1
If on1 = 1 Then clr = clr - 1
If clr >= 7 Then on1 = 1
If clr <= 1 Then on1 = 0
For sweep = 1 To 9000: Next
Line (x, y)-(x + 31.34, y + 50.24), clr, B
GoSub GameStats:
If scrlclr = 1 Then Locate 23, 1: Color 7
If scrlclr = 2 Then Locate 23, 1: Color 2
If scrlclr = 3 Then Locate 23, 1: Color 3
If scrlclr = 4 Then Locate 23, 1: Color 4
If scrlclr = 5 Then Locate 23, 1: Color 5
If scrlclr = 6 Then Locate 23, 1: Color 9
If scrlclr = 7 Then Locate 23, 1: Color 10
If scrlclr = 8 Then Locate 23, 1: Color 11
If scrlclr = 9 Then Locate 23, 1: Color 12
If scrlclr = 10 Then Locate 23, 1: Color 13
If scrlclr = 11 Then Locate 23, 1: Color 14
If scrlclr = 12 Then Locate 23, 1: Color 15
If scrlclr = 13 Then scrlclr = 0
Loop
FlipCardsBack:
flip = 0
turns = turns - 1
If chr2 = 2 And chr2x = 0 Then score = score + 50: chr2x = 1
If chr2 = 4 And chr2x = 1 Then score = score + 50: chr2x = 2
If chr3 = 2 And chr3x = 0 Then score = score + 50: chr3x = 1
If chr3 = 4 And chr3x = 1 Then score = score + 50: chr3x = 2
If chr4 = 2 And chr4x = 0 Then score = score + 50: chr4x = 1
If chr4 = 4 And chr4x = 1 Then score = score + 50: chr4x = 2
If chr5 = 2 And chr5x = 0 Then score = score + 50: chr5x = 1
If chr5 = 4 And chr5x = 1 Then score = score + 50: chr5x = 2
If chr6 = 2 And chr6x = 0 Then score = score + 50: chr6x = 1
If chr6 = 4 And chr6x = 1 Then score = score + 50: chr6x = 2
If chr7 = 2 And chr7x = 0 Then score = score + 50: chr7x = 1
If chr7 = 4 And chr7x = 1 Then score = score + 50: chr7x = 2
If chr8 = 2 And chr8x = 0 Then score = score + 50: chr8x = 1
If chr8 = 4 And chr8x = 1 Then score = score + 50: chr8x = 2
If chr12 = 2 And chr12x = 0 Then score = score + 50: chr12x = 1
If chr12 = 4 And chr12x = 1 Then score = score + 50: chr12x = 2
If chr14 = 2 And chr14x = 0 Then score = score + 50: chr14x = 1
If chr14 = 4 And chr14x = 1 Then score = score + 50: chr14x = 2
If chr15 = 2 And chr15x = 0 Then score = score + 50: chr15x = 1
If chr15 = 4 And chr15x = 1 Then score = score + 50: chr15x = 2
If chr16 = 2 And chr16x = 0 Then score = score + 50: chr16x = 1
If chr16 = 4 And chr16x = 1 Then score = score + 50: chr16x = 2
If chr17 = 2 And chr17x = 0 Then score = score + 50: chr17x = 1
If chr17 = 4 And chr17x = 1 Then score = score + 50: chr17x = 2
If chr25 = 2 And chr25x = 0 Then score = score + 50: chr25x = 1
If chr25 = 4 And chr25x = 1 Then score = score + 50: chr25x = 2
If chr29 = 2 And chr29x = 0 Then score = score + 50: chr29x = 1
If chr29 = 4 And chr29x = 1 Then score = score + 50: chr29x = 2
If chr30 = 2 And chr30x = 0 Then score = score + 50: chr30x = 1
If chr30 = 4 And chr30x = 1 Then score = score + 50: chr30x = 2
If chr31 = 2 And chr31x = 0 Then score = score + 50: chr31x = 1
If chr31 = 4 And chr31x = 1 Then score = score + 50: chr31x = 2
If chr35 = 2 And chr35x = 0 Then score = score + 50: chr35x = 1
If chr35 = 4 And chr35x = 1 Then score = score + 50: chr35x = 2
If chr60 = 2 And chr60x = 0 Then score = score + 50: chr60x = 1
If chr60 = 4 And chr60x = 1 Then score = score + 50: chr60x = 2
If chr127 = 2 And chr127x = 0 Then score = score + 50: chr127x = 1
If chr127 = 4 And chr127x = 1 Then score = score + 50: chr127x = 2
If chr210 = 2 And chr210x = 0 Then score = score + 50: chr210x = 1
If chr210 = 4 And chr210x = 1 Then score = score + 50: chr210x = 2
If chr243 = 2 And chr243x = 0 Then score = score + 50: chr243x = 1
If chr243 = 4 And chr243x = 1 Then score = score + 50: chr243x = 2
If chr240 = 2 And chr240x = 0 Then score = score + 50: chr240x = 1
If chr240 = 4 And chr240x = 1 Then score = score + 50: chr240x = 2
If chr244 = 2 And chr244x = 0 Then score = score + 50: chr244x = 1
If chr244 = 4 And chr244x = 1 Then score = score + 50: chr244x = 2
If chr247 = 2 And chr247x = 0 Then score = score + 50: chr247x = 1
If chr247 = 4 And chr247x = 1 Then score = score + 50: chr247x = 2
If chr167 = 2 And chr167x = 0 Then score = score + 50: chr167x = 1
If chr167 = 4 And chr167x = 1 Then score = score + 50: chr167x = 2
If chr2 = 1 Then chr2 = 0: chr2d1 = 0: chr2d2 = 0: chr2d3 = 0: chr2d4 = 0: flipem = 1
If chr2 = 3 Then chr2 = 2: chr2d1 = 0: chr2d2 = 0: chr2d3 = 0: chr2d4 = 0: flipem = 1
If chr3 = 1 Then chr3 = 0: chr3d1 = 0: chr3d2 = 0: chr3d3 = 0: chr3d4 = 0: flipem = 1
If chr3 = 3 Then chr3 = 2: chr3d1 = 0: chr3d2 = 0: chr3d3 = 0: chr3d4 = 0: flipem = 1
If chr4 = 1 Then chr4 = 0: chr4d1 = 0: chr4d2 = 0: chr4d3 = 0: chr4d4 = 0: flipem = 1
If chr4 = 3 Then chr4 = 2: chr4d1 = 0: chr4d2 = 0: chr4d3 = 0: chr4d4 = 0: flipem = 1
If chr5 = 1 Then chr5 = 0: chr5d1 = 0: chr5d2 = 0: chr5d3 = 0: chr5d4 = 0: flipem = 1
If chr5 = 3 Then chr5 = 2: chr5d1 = 0: chr5d2 = 0: chr5d3 = 0: chr5d4 = 0: flipem = 1
If chr6 = 1 Then chr6 = 0: chr6d1 = 0: chr6d2 = 0: chr6d3 = 0: chr6d4 = 0: flipem = 1
If chr6 = 3 Then chr6 = 2: chr6d1 = 0: chr6d2 = 0: chr6d3 = 0: chr6d4 = 0: flipem = 1
If chr7 = 1 Then chr7 = 0: chr7d1 = 0: chr7d2 = 0: chr7d3 = 0: chr7d4 = 0: flipem = 1
If chr7 = 3 Then chr7 = 2: chr7d1 = 0: chr7d2 = 0: chr7d3 = 0: chr7d4 = 0: flipem = 1
If chr8 = 1 Then chr8 = 0: chr8d1 = 0: chr8d2 = 0: chr8d3 = 0: chr8d4 = 0: flipem = 1
If chr8 = 3 Then chr8 = 2: chr8d1 = 0: chr8d2 = 0: chr8d3 = 0: chr8d4 = 0: flipem = 1
If chr12 = 1 Then chr12 = 0: chr12d1 = 0: chr12d2 = 0: chr12d3 = 0: chr12d4 = 0: flipem = 1
If chr12 = 3 Then chr12 = 2: chr12d1 = 0: chr12d2 = 0: chr12d3 = 0: chr12d4 = 0: flipem = 1
If chr14 = 1 Then chr14 = 0: chr14d1 = 0: chr14d2 = 0: chr14d3 = 0: chr14d4 = 0: flipem = 1
If chr14 = 3 Then chr14 = 2: chr14d1 = 0: chr14d2 = 0: chr14d3 = 0: chr14d4 = 0: flipem = 1
If chr15 = 1 Then chr15 = 0: chr15d1 = 0: chr15d2 = 0: chr15d3 = 0: chr15d4 = 0: flipem = 1
If chr15 = 3 Then chr15 = 2: chr15d1 = 0: chr15d2 = 0: chr15d3 = 0: chr15d4 = 0: flipem = 1
If chr16 = 1 Then chr16 = 0: chr16d1 = 0: chr16d2 = 0: chr16d3 = 0: chr16d4 = 0: flipem = 1
If chr16 = 3 Then chr16 = 2: chr16d1 = 0: chr16d2 = 0: chr16d3 = 0: chr16d4 = 0: flipem = 1
If chr17 = 1 Then chr17 = 0: chr17d1 = 0: chr17d2 = 0: chr17d3 = 0: chr17d4 = 0: flipem = 1
If chr17 = 3 Then chr17 = 2: chr17d1 = 0: chr17d2 = 0: chr17d3 = 0: chr17d4 = 0: flipem = 1
If chr25 = 1 Then chr25 = 0: chr25d1 = 0: chr25d2 = 0: chr25d3 = 0: chr25d4 = 0: flipem = 1
If chr25 = 3 Then chr25 = 2: chr25d1 = 0: chr25d2 = 0: chr25d3 = 0: chr25d4 = 0: flipem = 1
If chr29 = 1 Then chr29 = 0: chr29d1 = 0: chr29d2 = 0: chr29d3 = 0: chr29d4 = 0: flipem = 1
If chr29 = 3 Then chr29 = 2: chr29d1 = 0: chr29d2 = 0: chr29d3 = 0: chr29d4 = 0: flipem = 1
If chr30 = 1 Then chr30 = 0: chr30d1 = 0: chr30d2 = 0: chr30d3 = 0: chr30d4 = 0: flipem = 1
If chr30 = 3 Then chr30 = 2: chr30d1 = 0: chr30d2 = 0: chr30d3 = 0: chr30d4 = 0: flipem = 1
If chr31 = 1 Then chr31 = 0: chr31d1 = 0: chr31d2 = 0: chr31d3 = 0: chr31d4 = 0: flipem = 1
If chr31 = 3 Then chr31 = 2: chr31d1 = 0: chr31d2 = 0: chr31d3 = 0: chr31d4 = 0: flipem = 1
If chr35 = 1 Then chr35 = 0: chr35d1 = 0: chr35d2 = 0: chr35d3 = 0: chr35d4 = 0: flipem = 1
If chr35 = 3 Then chr35 = 2: chr35d1 = 0: chr35d2 = 0: chr35d3 = 0: chr35d4 = 0: flipem = 1
If chr60 = 1 Then chr60 = 0: chr60d1 = 0: chr60d2 = 0: chr60d3 = 0: chr60d4 = 0: flipem = 1
If chr60 = 3 Then chr60 = 2: chr60d1 = 0: chr60d2 = 0: chr60d3 = 0: chr60d4 = 0: flipem = 1
If chr127 = 1 Then chr127 = 0: chr127d1 = 0: chr127d2 = 0: chr127d3 = 0: chr127d4 = 0: flipem = 1
If chr127 = 3 Then chr127 = 2: chr127d1 = 0: chr127d2 = 0: chr127d3 = 0: chr127d4 = 0: flipem = 1
If chr210 = 1 Then chr210 = 0: chr210d1 = 0: chr210d2 = 0: chr210d3 = 0: chr210d4 = 0: flipem = 1
If chr210 = 3 Then chr210 = 2: chr210d1 = 0: chr210d2 = 0: chr210d3 = 0: chr210d4 = 0: flipem = 1
If chr243 = 1 Then chr243 = 0: chr243d1 = 0: chr243d2 = 0: chr243d3 = 0: chr243d4 = 0: flipem = 1
If chr243 = 3 Then chr243 = 2: chr243d1 = 0: chr243d2 = 0: chr243d3 = 0: chr243d4 = 0: flipem = 1
If chr240 = 1 Then chr240 = 0: chr240d1 = 0: chr240d2 = 0: chr240d3 = 0: chr240d4 = 0: flipem = 1
If chr240 = 3 Then chr240 = 2: chr240d1 = 0: chr240d2 = 0: chr240d3 = 0: chr240d4 = 0: flipem = 1
If chr244 = 1 Then chr244 = 0: chr244d1 = 0: chr244d2 = 0: chr244d3 = 0: chr244d4 = 0: flipem = 1
If chr244 = 3 Then chr244 = 2: chr244d1 = 0: chr244d2 = 0: chr244d3 = 0: chr244d4 = 0: flipem = 1
If chr247 = 1 Then chr247 = 0: chr247d1 = 0: chr247d2 = 0: chr247d3 = 0: chr247d4 = 0: flipem = 1
If chr247 = 3 Then chr247 = 2: chr247d1 = 0: chr247d2 = 0: chr247d3 = 0: chr247d4 = 0: flipem = 1
If chr167 = 1 Then chr167 = 0: chr167d1 = 0: chr167d2 = 0: chr167d3 = 0: chr167d4 = 0: flipem = 1
If chr167 = 3 Then chr167 = 2: chr167d1 = 0: chr167d2 = 0: chr167d3 = 0: chr167d4 = 0: flipem = 1
If flipem = 1 Then Sleep 1: Color 15: Locate xx1, yy1: Print Chr$(219): Locate xx2, yy2: Print Chr$(219): flipem = 0: score = score - 5
If score < 0 Then score = 0
Return
snd:
If snd$ = "On " Then Sound 250, .1
If snd$ = "On " Then Sound 32766, 1
Return
Options:
Cls
Screen 13
Print ""
Print " Difficulty: "
Print ""
Print " Number of Turns: "
Print ""
Print " Sound: "
Print ""
Print " Exit"
Locate 21, 1: Print "Use Space Bar To Select When On Exit..."
Locate 22, 1: Print "Use arrow keys to move around and change selections..."
x = 450
y = 25
post = 1
Ops:
Locate 2, 20: Print diff$
Locate 4, 19: Print turns
If turns = 500 Then rturns = 500
If turns = 400 Then rturns = 400
If turns = 300 Then rturns = 300
If turns = 200 Then rturns = 200
If turns = 100 Then rturns = 100
Locate 6, 20: Print snd$
Do
ass$ = InKey$
Select Case ass$
Case Chr$(0) + "H"
Line (x, y)-(x + 200, y + 59), 0, B
y = y - 80
post = post - 1
If post <= 1 Then post = 1
If x <= 450 Then x = 450
If y <= 25 Then y = 25
GoSub snd
Case Chr$(0) + "P"
Line (x, y)-(x + 200, y + 59), 0, B
y = y + 80
post = post + 1
If post >= 4 Then post = 4
If y >= 265 Then x = 1
If y >= 265 Then y = 265
GoSub snd
Case Chr$(0) + "K"
Line (x, y)-(x + 200, y + 59), 0, B
If post = 1 And diff$ = "Hard " Then diff$ = "Normal": GoSub snd: GoTo Ops
If post = 1 And diff$ = "Normal" Then diff$ = "Hard ": GoSub snd: GoTo Ops
If post = 2 And turns = 500 Then turns = 400: GoSub snd: GoTo Ops
If post = 2 And turns = 400 Then turns = 300: GoSub snd: GoTo Ops
If post = 2 And turns = 300 Then turns = 200: GoSub snd: GoTo Ops
If post = 2 And turns = 200 Then turns = 100: GoSub snd: GoTo Ops
If post = 2 And turns = 100 Then turns = 500: GoSub snd: GoTo Ops
If post = 3 And snd$ = "On " Then snd$ = "Off": GoSub snd: GoTo Ops
If post = 3 And snd$ = "Off" Then snd$ = "On ": GoSub snd: GoTo Ops
Case Chr$(0) + "M"
Line (x, y)-(x + 200, y + 59), 0, B
If post = 1 And diff$ = "Hard " Then diff$ = "Normal": GoSub snd: GoTo Ops
If post = 1 And diff$ = "Normal" Then diff$ = "Hard ": GoSub snd: GoTo Ops
If post = 2 And turns = 100 Then turns = 200: GoSub snd: GoTo Ops
If post = 2 And turns = 200 Then turns = 300: GoSub snd: GoTo Ops
If post = 2 And turns = 300 Then turns = 400: GoSub snd: GoTo Ops
If post = 2 And turns = 400 Then turns = 500: GoSub snd: GoTo Ops
If post = 2 And turns = 500 Then turns = 100: GoSub snd: GoTo Ops
If post = 3 And snd$ = "On " Then snd$ = "Off": GoSub snd: GoTo Ops
If post = 3 And snd$ = "Off" Then snd$ = "On ": GoSub snd: GoTo Ops
Case Chr$(32)
If post = 4 Then GoSub snd: GoTo MainMenu
End Select
If on1 = 0 Then clr = clr + 1
If on1 = 1 Then clr = clr - 1
If clr >= 31 Then on1 = 1
If clr <= 16 Then on1 = 0
For sweep = 1 To 9000: Next
Line (x, y)-(x + 200, y + 59), clr, B
Loop
Credits:
Cls
Screen 13
Print "Creds:"
Print "This game was made by BattleCraft99"
Print ""
Print "Email - BattleCraft99@hotmail.com"
Print "ICQ - 29829729"
Print ""
Print ""
Print "Info:"
Print "I originally wanted to have different"
Print "characters under each card but that"
Print "didn't work out to well..."
Print "Game board disappeared.. Cards flipped"
Print "back over.. Cards switched places and"
Print "disappeared.. etc. It wasn't very good."
Print "So..after about 2 hours of testing I"
Print "I decided capital and lower case letters"
Print "would work out fine.."
Print "Also wanted an easy level but kinda ran"
Print "out of memmory (no pun intended)"
Locate 23, 1: Print "Press Any Key To Continue..."
Do
Loop While InKey$ = ""
Cls
Print "I did all the testing on this game"
Print "through my home computer. Some things"
Print "may not work as perfectly as they do"
Print "for me due to your computer being"
Print "faster or slower, but it won't be"
Print "anything too important. Just the"
Print "scrolling of the word Zemmory during"
Print "game play and the clock are both"
Print "structured upon a timing clock I made"
Print "to fit my own computer speed while"
Print "playing through a MS-DOS shell on "
Print "Windows 95. Hope the timing ain't off"
Print "too bad but if so it won't effect"
Print "game play at least."
Locate 23, 1: Print "Press Any Key To Continue..."
Do
Loop While InKey$ = ""
Cls
Print "There is 1 little bug:"
Print "If you click on a card that has already"
Print "been flipped face side up it still"
Print "counts. So don't click on matches you've"
Print "made or the game gets screwed up and you"
Print "can't win."
Print ""
Print "Controls:"
Print "Arrow keys move your cursor around the"
Print "game board."
Print "Space bar selects the card to turn over"
Print "Hit Q during a game to Quit"
Print "Use the Home, End, Page Up, And Page "
Print "Down keys to move to the edges of board"
Print ""
Print "Scoring:"
Print "Bonus Points for Win -"
Print " based on difficulty & max guesses"
Print "+50 points per match"
Print "-5 per messup"
Locate 23, 1: Print "Press Any Key To Return..."
Do
Loop While InKey$ = ""
GoTo MainMenu
LoseGame:
Cls
Locate 4, 5: Print "Sorry You Lost!"
Locate 7, 1: Print "Name: "; name$
Locate 9, 1: Print "Turns Remaining: "; turns
Locate 11, 1: Print "Time Taken: "; hour; ":"; min; ":"; sec
Locate 13, 1: Print "Score: "; score
If score > hscore10 Then Locate 17, 1: Print "You reached a new high score!!"
If score < hscore10 Then Locate 17, 1: Print "You did not reach a high score "
GoSub highscorelist
Locate 20, 1: Print "Play again? (yes/no)"
Locate 21, 1: Input "", again$
If again$ = "yes" Then GoTo 1
If again$ = "YES" Then GoTo 1
If again$ = "Yes" Then GoTo 1
If again$ = "y" Then GoTo 1
If again$ = "Y" Then GoTo 1
If again$ = "no" Then End
If again$ = "NO" Then End
If again$ = "No" Then End
If again$ = "n" Then End
If again$ = "N" Then End
Locate 22, 8: Print "INVALID...TRY AGAIN": GoTo LoseGame
WinGame:
If diff$ = "Hard " And rturns = 500 Then bonus = 750
If diff$ = "Hard " And rturns = 400 Then bonus = 1000
If diff$ = "Hard " And rturns = 300 Then bonus = 1500
If diff$ = "Hard " And rturns = 200 Then bonus = 1750
If diff$ = "Hard " And rturns = 100 Then bonus = 2000
If diff$ = "Normal" And rturns = 500 Then bonus = 500
If diff$ = "Normal" And rturns = 400 Then bonus = 700
If diff$ = "Normal" And rturns = 300 Then bonus = 800
If diff$ = "Normal" And rturns = 200 Then bonus = 875
If diff$ = "Normal" And rturns = 100 Then bonus = 1000
score = score + bonus
winGameX:
Cls
Locate 4, 5: Print "CONGRATULATIONS!!!!"
Locate 7, 1: Print "Name: "; name$
Locate 9, 1: Print "Turns Remaining: "; turns
Locate 11, 1: Print "Time Taken: "; hour; ":"; min; ":"; sec
Locate 13, 1: Print "Score: "; score
Locate 15, 1: Print "You receive"; bonus; "bonus points!"
If score > hscore10 Then Locate 17, 1: Print "You reached a new high score!!"
If score < hscore10 Then Locate 17, 1: Print "You did not reach a high score "
GoSub highscorelist
Locate 20, 1: Print "Play again? (yes/no)"
Locate 21, 1: Input "", again$
If again$ = "yes" Then GoTo 1
If again$ = "YES" Then GoTo 1
If again$ = "Yes" Then GoTo 1
If again$ = "y" Then GoTo 1
If again$ = "Y" Then GoTo 1
If again$ = "no" Then GoTo 1
If again$ = "NO" Then GoTo 1
If again$ = "No" Then GoTo 1
If again$ = "n" Then GoTo 1
If again$ = "N" Then GoTo 1
Locate 22, 8: Print "INVALID...TRY AGAIN": Sleep 1: GoTo winGameX
HighScoreDisplay:
Cls
Locate 1, 10: Print "High Score List:"
Print ""
Print "1st Place: "; nscore1$
Print "2nd Place: "; nscore2$
Print "3rd Place: "; nscore3$
Print "4th Place: "; nscore4$
Print "5th Place: "; nscore5$
Print "6th Place: "; nscore6$
Print "7th Place: "; nscore7$
Print "8th Place: "; nscore8$
Print "9th Place: "; nscore9$
Print "10th Place: "; nscore10$
Locate 3, 30: Print hscore1
Locate 4, 30: Print hscore2
Locate 5, 30: Print hscore3
Locate 6, 30: Print hscore4
Locate 7, 30: Print hscore5
Locate 8, 30: Print hscore6
Locate 9, 30: Print hscore7
Locate 10, 30: Print hscore8
Locate 11, 30: Print hscore9
Locate 12, 30: Print hscore10
If hscore1 > 3000 Then GoSub High1
If hscore2 > 2500 Then GoSub High2
Locate 23, 1: Print "Press Any Key To Return.."
Do
Loop While InKey$ = ""
GoTo MainMenu
High1:
If nscore1$ <> "Sir Chomps-A-Lot" Then Locate 3, 35: Print "<W0W!!"
Return
High2:
If nscore2$ <> "Sir Chomps-A-Lot" And nscore2$ <> "Bart Simpson" Then Locate 4, 35: Print "<Nice!"
Return
GameStats:
Color 1: Locate 2, 22: Print "Name: "; name$
Color 2: Locate 4, 22: Print "Difficulty: "; diff$
Color 3: Locate 6, 22: Print "Score: "; score
Color 4: Locate 8, 22: Print "Turns Left: "; turns
Color 7: Locate 11, 22: Print "Arrow Keys -"
Color 7: Locate 12, 24: Print "Move Around Board"
Color 7: Locate 14, 22: Print "Home, End, "
Color 7: Locate 15, 22: Print "Pg Up, Pg Down -"
Color 7: Locate 16, 24: Print "Move To Edge"
Color 7: Locate 17, 24: Print "Of Board"
Color 7: Locate 19, 22: Print "Space Bar -"
Color 7: Locate 20, 24: Print "Flip A Card"
Color 7: Locate 21, 1: Print "Q - Quit"
Color 5: Locate 22, 25: Print hour; ":"; min; ":"; sec
Return
highscorelist:
IF score > hscore1 THEN hscore10 = hscore9: hscore9 = hscore8: hscore8 = hscore7: hscore7 = hscore6: hscore6 = hscore5: hscore5 = hscore4: hscore4 = hscore3: hscore3 = hscore2: hscore2 = hscore1: hscore1 = score: nscore10$ = nscore9$: nscore9$ = _
nscore8$: nscore8$ = nscore7$: nscore7$ = nscore6$: nscore6$ = nscore5$: nscore5$ = nscore4$: nscore4$ = nscore3$: nscore3$ = nscore2$: nscore2$ = nscore1$: nscore1$ = name$: RETURN
IF score > hscore2 THEN hscore10 = hscore9: hscore9 = hscore8: hscore8 = hscore7: hscore7 = hscore6: hscore6 = hscore5: hscore5 = hscore4: hscore4 = hscore3: hscore3 = hscore2: hscore2 = score: nscore10$ = nscore9$: nscore9$ = nscore8$: nscore8$ = _
nscore7$: nscore7$ = nscore6$: nscore6$ = nscore5$: nscore5$ = nscore4$: nscore4$ = nscore3$: nscore3$ = nscore2$: nscore2$ = name$: RETURN
IF score > hscore3 THEN hscore10 = hscore9: hscore9 = hscore8: hscore8 = hscore7: hscore7 = hscore6: hscore6 = hscore5: hscore5 = hscore4: hscore4 = hscore3: hscore3 = score: nscore10$ = nscore9$: nscore9$ = nscore8$: nscore8$ = nscore7$: nscore7$ _
= nscore6$: nscore6$ = nscore5$: nscore5$ = nscore4$: nscore4$ = nscore3$: nscore3$ = name$: RETURN
IF score > hscore4 THEN hscore10 = hscore9: hscore9 = hscore8: hscore8 = hscore7: hscore7 = hscore6: hscore6 = hscore5: hscore5 = hscore4: hscore4 = score: nscore10$ = nscore9$: nscore9$ = nscore8$: nscore8$ = nscore7$: nscore7$ = nscore6$: nscore6$ _
= nscore5$: nscore5$ = nscore4$: nscore4$ = name$: RETURN
IF score > hscore5 THEN hscore10 = hscore9: hscore9 = hscore8: hscore8 = hscore7: hscore7 = hscore6: hscore6 = hscore5: hscore5 = score: nscore10$ = nscore9$: nscore9$ = nscore8$: nscore8$ = nscore7$: nscore7$ = nscore6$: nscore6$ = nscore5$: _
nscore5$ = name$: RETURN
If score > hscore6 Then hscore10 = hscore9: hscore9 = hscore8: hscore8 = hscore7: hscore7 = hscore6: hscore6 = score: nscore10$ = nscore9$: nscore9$ = nscore8$: nscore8$ = nscore7$: nscore7$ = nscore6$: nscore6$ = name$: Return
If score > hscore7 Then hscore10 = hscore9: hscore9 = hscore8: hscore8 = hscore7: hscore7 = score: nscore10$ = nscore9$: nscore9$ = nscore8$: nscore8$ = nscore7$: nscore7$ = name$: Return
If score > hscore8 Then hscore10 = hscore9: hscore9 = hscore8: hscore8 = score: nscore10$ = nscore9$: nscore9$ = nscore8$: nscore8$ = name$: Return
If score > hscore9 Then hscore10 = hscore9: hscore9 = score: nscore10$ = nscore9$: nscore9$ = name$: Return
If score > hscore10 Then hscore10 = score: nscore10$ = name$: Return
Return
Xr81:
r1 = 4: r2 = 3: r3 = 8: r4 = 5: r5 = 6: r6 = 7: r7 = 1: r8 = 2
Return
Xr82:
r1 = 7: r2 = 2: r3 = 1: r4 = 6: r5 = 3: r6 = 8: r7 = 4: r8 = 5
Return
Xr83:
r1 = 5: r2 = 1: r3 = 6: r4 = 8: r5 = 2: r6 = 3: r7 = 7: r8 = 4
Return
Xr84:
r1 = 6: r2 = 7: r3 = 5: r4 = 4: r5 = 1: r6 = 2: r7 = 8: r8 = 3
Return
Xr85:
r1 = 2: r2 = 1: r3 = 7: r4 = 3: r5 = 8: r6 = 4: r7 = 6: r8 = 5
Return
Cr81:
c1 = 4: c2 = 3: c3 = 8: c4 = 5: c5 = 6: c6 = 7: c7 = 1: c8 = 2
Return
Cr82:
c1 = 7: c2 = 2: c3 = 1: c4 = 6: c5 = 3: c6 = 8: c7 = 4: c8 = 5
Return
Cr83:
c1 = 5: c2 = 1: c3 = 6: c4 = 8: c5 = 2: c6 = 3: c7 = 7: c8 = 4
Return
Cr84:
c1 = 8: c2 = 7: c3 = 5: c4 = 4: c5 = 6: c6 = 2: c7 = 1: c8 = 3
Return
Cr85:
c1 = 2: c2 = 1: c3 = 7: c4 = 3: c5 = 8: c6 = 4: c7 = 6: c8 = 5
Return
Xr101:
r1 = 6: r2 = 9: r3 = 5: r4 = 10: r5 = 1: r6 = 8: r7 = 7: r8 = 2: r9 = 3: r10 = 4
Return
Xr102:
r1 = 5: r2 = 3: r3 = 4: r4 = 7: r5 = 8: r6 = 1: r7 = 2: r8 = 10: r9 = 6: r10 = 9
Return
Xr103:
r1 = 8: r2 = 5: r3 = 7: r4 = 1: r5 = 2: r6 = 9: r7 = 10: r8 = 3: r9 = 4: r10 = 6
Return
Xr104:
r1 = 3: r2 = 1: r3 = 10: r4 = 8: r5 = 4: r6 = 5: r7 = 6: r8 = 7: r9 = 9: r10 = 2
Return
Xr105:
r1 = 6: r2 = 7: r3 = 9: r4 = 2: r5 = 3: r6 = 10: r7 = 1: r8 = 4: r9 = 5: r10 = 8
Return
Cr101:
c1 = 4: c2 = 7: c3 = 5: c4 = 10: c5 = 1: c6 = 8: c7 = 9: c8 = 2: c9 = 3: c10 = 6
Return
Cr102:
c1 = 5: c2 = 3: c3 = 4: c4 = 7: c5 = 8: c6 = 1: c7 = 2: c8 = 10: c9 = 6: c10 = 9
Return
Cr103:
c1 = 8: c2 = 5: c3 = 7: c4 = 1: c5 = 2: c6 = 9: c7 = 10: c8 = 3: c9 = 4: c10 = 6
Return
Cr104:
c1 = 3: c2 = 1: c3 = 10: c4 = 8: c5 = 4: c6 = 5: c7 = 6: c8 = 7: c9 = 9: c10 = 2
Return
Cr105:
c1 = 6: c2 = 7: c3 = 9: c4 = 2: c5 = 3: c6 = 10: c7 = 1: c8 = 4: c9 = 5: c10 = 8
Return
NormCheckWin:
If chr12 = 4 And chr14 = 4 And chr15 = 4 And chr16 = 4 And chr17 = 4 And chr25 = 4 And chr29 = 4 And chr30 = 4 And chr31 = 4 Then GoTo WinGame
Return
HCheck:
If chr60 = 4 And chr127 = 4 And chr210 = 4 And chr243 = 4 And chr240 = 4 And chr244 = 4 And chr247 = 4 And chr167 = 4 Then GoTo WinGame
GoTo BHCheck
HCheck2:
If chr17 = 4 And chr25 = 4 And chr29 = 4 And chr30 = 4 And chr31 = 4 And chr35 = 4 Then GoTo HCheck
Return
Sub makebox (x, y, x1, y1)
c = 31
Screen 13
Do
x = x + 1
y = y + 1
x1 = x1 - 1
y1 = y1 - 1
c = c - 1
Line (x, y)-(x1, y1), c, B
Loop Until c = 16
c = 16
Do
c = c + 1
x = x + 1
y = y + 1
x1 = x1 - 1
y1 = y1 - 1
Line (x - 16, y - 16)-(x1 + 16, y1 + 16), c, B
Loop Until c = 31
c = 30
Do
c = c - 1
x = x + 1
y = y + 1
x1 = x1 - 1
y1 = y1 - 1
Line (x - 15, y - 15)-(x1 + 15, y1 + 15), c, B
Loop Until c = 16
End Sub
Dibuja un reloj en funcionamiento usando círculos.
Este ejemplo usa la instrucción CIRCLE para dibujar líneas rectas creando las manecillas de un reloj y las marcas de verificación alrededor de la esfera del reloj
'Author : Terry Ritchie
'--------------------------------
'- Variables
'--------------------------------
CONST GRAY = _RGB32(127, 127, 127) ' define colors
CONST DARKGRAY = _RGB32(63, 63, 63)
CONST LIGHTGRAY = _RGB32(191, 191, 191)
CONST BLACK = _RGB32(0, 0, 0)
CONST WHITE = _RGB32(255, 255, 255)
CONST RED = _RGB32(127, 0, 0)
CONST YELLOW = _RGB32(255, 255, 0)
DIM Clock!(60) ' 60 radian points around circle
DIM Tick% ' counter to keep track of tick marks
DIM Tc~& ' tick mark color
DIM Radian! ' FOR...NEXT radian counter
DIM h% ' value of hour extracted from TIME$
DIM m% ' value of minute extracted from TIME$
DIM s% ' value of second extracted from TIME$
DIM Tm$ ' current TIME$ value
'--------------------------------
´ - Programa
'--------------------------------
Screen _NewImage(640, 480, 32) ' initiate graphics screen
Tick% = 15 ' first position is 15 seconds
For Radian! = 6.2831852 To 0 Step -.10471975 ' clockwise from 2*Pi in steps of -60ths
Clock!(Tick%) = Radian! ' save circle radian seconds position
Tick% = Tick% + 1 ' move to next seconds position
If Tick% = 60 Then Tick% = 0 ' reset to 0 seconds position if needed
Next Radian!
Do ' begin main loop
Cls ' clear the screen
_Limit 5 ' 5 updates per second
Circle (319, 239), 120, GRAY ' draw outer circle of clock
Paint (319, 239), DARKGRAY, GRAY ' paint circle dark gray
Circle (319, 239), 110, BLACK ' draw inner circle of clock
Paint (319, 239), WHITE, BLACK ' paint face bright white
For Tick% = 0 To 59 ' cycle through radian seconds positions
If Tick% Mod 5 = 0 Then Tc~& = BLACK Else Tc~& = LIGHTGRAY ' 5 second ticks are black in color
Circle (319, 239), 109, Tc~&, -Clock!(Tick%), Clock!(Tick%) ' draw radian line from center of circle
Next Tick%
Circle (319, 239), 102, DARKGRAY ' draw circle to cut off radian lines
Paint (319, 239), WHITE, DARKGRAY ' paint face again to remove radian lines
Circle (319, 239), 102, WHITE ' fill in cut off circle
Circle (319, 239), 4, BLACK ' draw small black circle in center
Paint (319, 239), 0, BLACK ' paint small black circle
Tm$ = Time$ ' get current time from TIME$
s% = Val(Right$(Tm$, 2)) ' get numeric value of seconds
m% = Val(Mid$(Tm$, 4, 2)) ' get numeric value of minutes
h% = Val(Left$(Tm$, 2)) ' get numeric value of hours
If h% >= 12 Then h% = h% - 12 ' convert from military time
Color BLACK, WHITE ' black text on bright white background
Locate 19, 37 ' position cursor on screen
Print Right$("0" + LTrim$(Str$(h%)), 2) + Right$(Tm$, 6) ' print current time in face of clock
Color GRAY, BLACK ' white text on black background
Tick% = (h% * 5) + (m% \ 12) ' calculate which hour hand radian to use
Circle (319, 239), 80, BLACK, -Clock(Tick%), Clock(Tick%) ' display hour hand
h% = h% + 6 ' move to opposite hour on clock face
If h% >= 12 Then h% = h% - 12 ' adjust hour if necessary
Tick% = (h% * 5) + (m% \ 12) ' calculate which hour hand radian to use
Circle (319, 239), 15, BLACK, -Clock(Tick%), Clock(Tick%) ' display small opposite tail of hour hand
Circle (319, 239), 95, BLACK, -Clock(m%), Clock(m%) ' display minute hand
m% = m% + 30 ' move to opposite minute on clock face
If m% > 59 Then m% = m% - 60 ' adjust minute if necessary
Circle (319, 239), 15, BLACK, -Clock(m%), Clock(m%) ' display small opposite tail of min hand
Circle (319, 239), 2, RED ' draw small red circle in center
Paint (319, 239), RED, RED ' paint small red circle
Circle (319, 239), 100, RED, -Clock(s%), Clock(s%) ' draw second hand
s% = s% + 30 ' move to opposite second on clock face
If s% > 59 Then s% = s% - 60 ' adjust second if necessary
Circle (319, 239), 25, RED, -Clock(s%), Clock(s%) ' display small opposite tail of sec hand
Circle (319, 239), 1, YELLOW ' draw small yellow circle in center
PSet (319, 239), YELLOW ' fill in small yellow circle
_Display ' update screen with loop's changes
Loop Until InKey$ <> "" ' end program when key pressed
System ' return to Windows