mirror of
https://github.com/QB64Official/qb64.git
synced 2024-09-04 11:10:15 +00:00
6e01fc8dce
Added new _STRCMP and _STRICMP commands for quick string comparisons. Cleaned up QB64 to finish removing the QUI (quick user insert) code and folders. Altered UCASE and LCASE routines to be faster in some situations for us.
168 lines
3.3 KiB
QBasic
168 lines
3.3 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
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|