'This game was written in 1997 by Peter Berg
'you must change the delay value below... On a pentium, or QB 4.5, it's
'extremely fast... On QB 1.1 and a 486 (what I wrote it on), It's perfect.
'this program is freeware, change it whatever way you want, distribute it,
'whatever you want to do... If you distribute it on a website, give credit
'to Peter Berg.
' my email is: pete_berg@yahoo.com

qwert = 1000  'Universal delay command. Change to fix your preferances.

CLS
LOCATE 2, 33
PRINT "Tower"
PRINT
PRINT "Tower is a game where you have to shoot an evil castle in the"
PRINT "mouth."
PRINT
PRINT "Press Spacebar to shoot. You get 5 shots."
PRINT
PRINT "If you run out of shots, or pres 'q' then the game is over."
PRINT
PRINT "If you shoot the tower in the mouth, he blows up."
PRINT
PRINT "Press any key to continue."

COLOR 2
PRINT TAB(25); "лмлмлмлмлмлмлмл"
PRINT TAB(25); "  ллллллллллл"
PRINT TAB(25); "  л    л    л"
PRINT TAB(25); "  ллллллллллл"
PRINT TAB(25); "  лллл   лллл"
PRINT TAB(25); "  лллл   лллл"
PRINT TAB(25); "  ллллллллллл"
PRINT TAB(25); "  ллллллллллл"
PRINT TAB(25); "  ллллллллллл"
PRINT TAB(25); "  ллллллллллл"

iyi$ = INPUT$(1)

'Pete's Program
LET shots = 5
m = 1
dir = 1

fooz:
IF shots = 0 THEN 150
CLS
LOCATE 1
COLOR 2
PRINT TAB(m); "лмлмлмлмлмлмлмл"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  л    л    л"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  лллл   лллл"
PRINT TAB(m); "  лллл   лллл"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  ллллллллллл"
IF dir = 1 THEN LET m = m + 1
IF dir = 2 THEN LET m = m - 1
IF m = 65 THEN dir = dir + 1
IF m = 1 THEN dir = dir - 1
IF skmp < 1 THEN FOR t = 1 TO qwert: NEXT t
IF skmp > 0 THEN FOR t = 1 TO (qwert / 2): NEXT t
s$ = INKEY$
IF s$ = "q" THEN END
IF s$ = " " THEN skmp = skmp + 1
IF skmp > 0 THEN 50
GOTO fooz

50
skmp = skmp + 1
COLOR 1
IF skmp = 2 THEN LOCATE 23, 40: PRINT "м"
IF skmp = 3 THEN LOCATE 22, 40: PRINT "м"
IF skmp = 4 THEN LOCATE 21, 40: PRINT "м"
IF skmp = 5 THEN LOCATE 20, 40: PRINT "м"
IF skmp = 6 THEN LOCATE 19, 40: PRINT "м"
IF skmp = 7 THEN LOCATE 18, 40: PRINT "м"
IF skmp = 8 THEN LOCATE 17, 40: PRINT "м"
IF skmp = 9 THEN LOCATE 16, 40: PRINT "м"
IF skmp = 10 THEN LOCATE 15, 40: PRINT "м"
IF skmp = 11 THEN LOCATE 14, 40: PRINT "м"
IF skmp = 12 THEN LOCATE 13, 40: PRINT "м"
IF skmp = 13 THEN LOCATE 12, 40: PRINT "м"
IF skmp = 14 THEN LOCATE 11, 40: PRINT "м"
IF skmp = 15 THEN LOCATE 10, 40: PRINT "м"
IF skmp = 16 THEN LOCATE 9, 40: PRINT "м"
IF skmp = 17 THEN LOCATE 8, 40: PRINT "м"
IF skmp = 18 THEN LOCATE 7, 40: PRINT "м"
IF skmp = 19 THEN LOCATE 6, 40: PRINT "м"
IF skmp = 20 THEN LOCATE 5, 40: PRINT "м"
IF skmp = 21 THEN LOCATE 4, 40: PRINT "м"
IF skmp = 22 THEN LOCATE 3, 40: PRINT "м"
IF skmp = 23 THEN LOCATE 2, 40: PRINT "м"
IF skmp = 24 THEN LOCATE 1, 40: PRINT "м"
IF skmp = 25 THEN skmp = 0: shots = shots - 1
FOR t = 1 TO (qwert / 2): NEXT t
IF skmp = 19 OR skmp = 20 THEN GOTO 75
GOTO fooz

75
IF m = 33 OR m = 34 OR m = 35 THEN GOTO 100
GOTO fooz

100
DO
tms = tms + 1
COLOR 4
FOR t = 1 TO qwert: NEXT t
CLS
PRINT TAB(m); "лмлмлмлмлмлмлмл"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  л    л    л"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  лллл   лллл"
PRINT TAB(m); "  лллл   лллл"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  ллллллллллл"
PRINT TAB(m); "  ллллллллллл"
IF sh = 2 THEN sh = 0
sh = sh + 1
IF sh = 1 THEN m = m - 1
IF sh = 2 THEN m = m + 1
IF tms = 50 THEN 110
LOOP

110
CLS
FOR cb = 1 TO 22
IF h = 4 THEN h = 0
h = h + 2
COLOR h
z = INT(RND * 80) + 1
PRINT TAB(z); "л"
FOR ch = 1 TO 900: NEXT ch
NEXT cb
COLOR 4
PRINT TAB(30); "You WON!!!"
END


150
PRINT "Out of Shots"
PRINT "GAME OVER"
END