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