RANDOMIZE TIMER

DIM X.pacman AS INTEGER
X.pacman = 12
DIM Y.pacman AS INTEGER
Y.pacman = 40

DIM Stars AS INTEGER
DIM X.star(30) AS INTEGER
DIM Y.star(30) AS INTEGER
DIM PacMan AS STRING
	PacMan = CHR$(2)
DIM Star AS STRING
	Star = CHR$(15)
DIM Score AS INTEGER
DIM Level AS INTEGER
DIM StartTime AS DOUBLE
DIM TimeGone AS DOUBLE
DIM EatenNow AS INTEGER
DIM TotalEaten AS INTEGER

CLS
PRINT "Please choose a level 1) Beginner 2) Advanced 3) Expert"
INPUT "Please input your selection: ", Level%
IF Level = 1 THEN
	TotalTime = 60
	Stars = 10
END IF
IF Level = 2 THEN
	TotalTime = 50
	Stars = 20
END IF
IF Level = 3 THEN
	TotalTime = 40
	Stars = 30
END IF

PRINT "You will have "; TotalTime; "seconds to collect "; Stars; "stars"
PRINT "Press any key to continue"
DO WHILE INKEY$ = ""
LOOP

CLS
LOCATE X.pacman, Y.pacman
PRINT PacMan$
FOR i = 1 TO Stars
	X.star(i) = INT(RND * 23) + 1
	Y.star(i) = INT(RND * 80) + 1
	LOCATE X.star(i), Y.star(i)
	PRINT Star$
NEXT i

STARTIME = TIMER
TimeGone = TIMER - STARTIME

DO WHILE TimeGone < TotalTime AND TotalEaten < Stars
DO
	TimeGone = TIMER - STARTIME
	trap$ = INKEY$
LOOP WHILE trap$ <> CHR$(0) + CHR$(72) AND trap$ <> CHR$(0) + CHR$(80) AND trap$ <> CHR$(0) + CHR$(77) AND trap$ <> CHR$(0) + CHR$(75) AND TimeGone < STARTIME

IF trap$ = CHR$(0) + CHR$(72) THEN
	LOCATE X.pacman, Y.pacman
	PRINT " "
	X.pacman = X.pacman - 1
	IF X.pacman = 0 THEN X.pacman = 23
	LOCATE X.pacman, Y.pacman
	PRINT PacMan$
	GOSUB Eaten
END IF

IF trap$ = CHR$(0) + CHR$(80) THEN
	LOCATE X.pacman, Y.pacman
	PRINT " "
	X.pacman = X.pacman + 1
	IF X.pacman = 24 THEN X.pacman = 1
	LOCATE X.pacman, Y.pacman
	PRINT PacMan$
	GOSUB Eaten
END IF
IF trap$ = CHR$(0) + CHR$(75) THEN
	LOCATE X.pacman, Y.pacman
	PRINT " "
	Y.pacman = Y.pacman - 1
	IF Y.pacman = 0 THEN Y.pacman = 80
	LOCATE X.pacman, Y.pacman
	PRINT PacMan$
	GOSUB Eaten
END IF

IF trap$ = CHR$(0) + CHR$(77) THEN
	LOCATE X.pacman, Y.pacman
	PRINT " "
	Y.pacman = Y.pacman + 1
	IF Y.pacman = 81 THEN Y.pacman = 1
	LOCATE X.pacman, Y.pacman
	PRINT PacMan$
	GOSUB Eaten
END IF
LOOP
IF TimeGone >= TotalTime THEN
	CLS
	PRINT "Sorry you ran out of time, please try again"
	TotalScore = 0
END IF
IF TotalEaten = Stars THEN
	PRINT "Congradulations you succeeded, And it only took you "; TimeGone; "Seconds"
	PRINT "Thus your score is "; INT((TotalTime - TimeGone) * 10); "Points"
END IF
END

Eaten:
	i = 0
	EatenNow = 0
	DO WHILE i < Stars% + 1 AND EatenNow = 0
		IF X.pacman = X.star(i) AND Y.pacman = Y.star(i) THEN
			BEEP
			EatenNow = 1
			TotalEaten = TotalEaten + EatenNow
			X.star(i) = 0
			Y.star(i) = 0
		END IF
	i = i + 1
	LOOP
       
	RETURN