mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-28 05:17:49 +00:00
169 lines
3.2 KiB
QBasic
169 lines
3.2 KiB
QBasic
|
RANDOMIZE TIMER
|
||
|
start:
|
||
|
CLS
|
||
|
PRINT "Welcome to the ultimate ASCII-player game: MOVE!"
|
||
|
PRINT "v.1.0 by mxmm"
|
||
|
SLEEP 5
|
||
|
CLS
|
||
|
PRINT "Choose one of the following:"
|
||
|
PRINT " 1. Play the Game!"
|
||
|
PRINT " 2. View the instructions!"
|
||
|
INPUT " So what is it going to be"; choice
|
||
|
CLS
|
||
|
IF (choice = 1) THEN
|
||
|
GOTO game
|
||
|
ELSEIF (choice = 2) THEN
|
||
|
GOTO instructions
|
||
|
ELSE
|
||
|
SOUND 1000, 15
|
||
|
PRINT "ERROR: YOU HAVE NOT TYPED IN A VALID CHARACTER. GAME WILL RESTART IN 5 SECONDS OR WHEN YOU PRESS A KEY"
|
||
|
SLEEP 5
|
||
|
CLS
|
||
|
GOTO start
|
||
|
END IF
|
||
|
instructions:
|
||
|
PRINT "The controls of this game are simple:"
|
||
|
PRINT " W: Move up"
|
||
|
PRINT " S: Move down"
|
||
|
PRINT " A: Move left"
|
||
|
PRINT " D: Move right"
|
||
|
PRINT " Q: Quit"
|
||
|
PRINT " Collect Items and avoid enemies"
|
||
|
PRINT "ITEMS:"
|
||
|
PRINT " T: Gives more time"
|
||
|
PRINT " F: Freezes the enemy"
|
||
|
PRINT " O: The enemy"
|
||
|
PRINT ""
|
||
|
PRINT "PRESS ANY BUTTON TO GO BACK TO THE MAIN SCREEN"
|
||
|
SLEEP
|
||
|
CLS
|
||
|
GOTO start
|
||
|
END
|
||
|
game:
|
||
|
INPUT "How much freeze to you want to start out with"; x
|
||
|
CLS
|
||
|
INPUT "What do you want the handicap to be (Higher is easier)"; y
|
||
|
CLS
|
||
|
freezel = 10 * y
|
||
|
freeze = 0
|
||
|
freezer = INT(RND * 21 + 1)
|
||
|
freezec = INT(RND * 71 + 1)
|
||
|
hurt = 1
|
||
|
playerc = 1 'Main player's column
|
||
|
playerr = 1 'Main player's row
|
||
|
enemyc = 20 'Enemy's column
|
||
|
enemyr = 20 'Enemy's row
|
||
|
turns = 35 * y'The starting amount of turns
|
||
|
turnitemr = INT(RND * 21 + 1)
|
||
|
turnitemc = INT(RND * 71 + 1)
|
||
|
compturn = 1
|
||
|
die = 0
|
||
|
death:
|
||
|
IF (die = 1) THEN
|
||
|
PRINT "GAME OVER!"
|
||
|
SOUND 500, 3
|
||
|
SOUND 250, 3
|
||
|
SOUND 90, 3
|
||
|
INPUT "Continue(y/n)"; cont$
|
||
|
IF (cont$ = "y") THEN
|
||
|
CLS
|
||
|
GOTO start
|
||
|
ELSEIF (cont$ = "n") THEN
|
||
|
CLS
|
||
|
END
|
||
|
END IF
|
||
|
END IF
|
||
|
DO
|
||
|
in$ = INKEY$
|
||
|
IF (compturn = 1) THEN
|
||
|
compturn = 0
|
||
|
ELSEIF (compturn = 0) THEN
|
||
|
compturn = 1
|
||
|
END IF
|
||
|
IF (playerr = enemyr) AND (playerc = enemyc) AND (hurt = 1) THEN
|
||
|
die = 1
|
||
|
GOTO death
|
||
|
END IF
|
||
|
IF (in$ = "a") AND (playerc > 1) THEN 'input
|
||
|
playerc = playerc - 1
|
||
|
turns = turns - 1
|
||
|
ELSEIF (in$ = "d") AND (playerc < 79) THEN
|
||
|
playerc = playerc + 1
|
||
|
turns = turns - 1
|
||
|
ELSEIF (in$ = "s") AND (playerr < 24) THEN
|
||
|
playerr = playerr + 1
|
||
|
turns = turns - 1
|
||
|
ELSEIF (in$ = "w") AND (playerr > 1) THEN
|
||
|
playerr = playerr - 1
|
||
|
turns = turns - 1
|
||
|
ELSEIF (in$ = "q") THEN
|
||
|
die = 1
|
||
|
GOTO death
|
||
|
END IF
|
||
|
IF (playerr = turnitemr) AND (playerc = turnitemc) THEN
|
||
|
turns = turns + 25 * y
|
||
|
turnitemr = INT(RND * 21 + 1)
|
||
|
turnitemc = INT(RND * 71 + 1)
|
||
|
END IF
|
||
|
IF (freezer = playerr) AND (freezec = playerc) THEN
|
||
|
freezel = freezel + 5 * y
|
||
|
freezer = INT(RND * 21 + 1)
|
||
|
freezec = INT(RND * 71 + 1)
|
||
|
END IF
|
||
|
IF (freeze = 0) THEN
|
||
|
IF (compturn = 1) THEN
|
||
|
IF (enemyc > playerc) THEN
|
||
|
enemyc = enemyc - 1
|
||
|
ELSEIF (enemyc < playerc) THEN
|
||
|
enemyc = enemyc + 1
|
||
|
END IF
|
||
|
IF (enemyr > playerr) THEN
|
||
|
enemyr = enemyr - 1
|
||
|
ELSEIF (enemyr < playerr) THEN
|
||
|
enemyr = enemyr + 1
|
||
|
END IF
|
||
|
END IF
|
||
|
END IF
|
||
|
CLS
|
||
|
LOCATE 25, 1
|
||
|
IF (turns = 0) THEN
|
||
|
GOTO death
|
||
|
END IF
|
||
|
freezer2 = freezer + 2
|
||
|
LOCATE freezer2, freezec
|
||
|
PRINT "F"
|
||
|
LOCATE 25, 1
|
||
|
PRINT "Freeze: "; freezel
|
||
|
LOCATE 24, 1
|
||
|
PRINT "Turns: "; turns
|
||
|
LOCATE turnitemr, turnitemc
|
||
|
PRINT "T"
|
||
|
LOCATE playerr, playerc
|
||
|
PRINT "X"
|
||
|
LOCATE enemyr, enemyc
|
||
|
PRINT "O"
|
||
|
IF (freezel > 0) THEN
|
||
|
freezel = freezel - 1
|
||
|
freeze = 1
|
||
|
END IF
|
||
|
IF (freezel = 0) THEN
|
||
|
freeze = 0
|
||
|
END IF
|
||
|
SLEEP 1
|
||
|
LOOP UNTIL (in$ = "q")
|
||
|
END
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|
||
|
|