The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Tunnel Game

Move the mouse to control your blue square.
Try to stay between the red lines.
If you hit a side of the tunnel you are dead.
The tunnel gets smaller and faster at every 100 points.
When you earn 1000 points you have won the game.

Good Luck!!

Source Listing

// // Program: Tunnel Version 2.3 // Author: Hans Vorsteveld (spacedude49@aol.com) // // Use the mouse to avoid the walls // begin: cls Display " Tunnel" Display " Created by Hans Vorsteveld" Display Display " Move the mouse to control your blue square." Display " Try to stay between the red lines." Display " If you hit a side of the tunnel you are dead." Display " The tunnel gets smaller and faster at every 100 points." Display " When you earn 1000 points you have won the game." Display " Good Luck!!" Display Display " Game is slightly challenging with" Display " SPEED set to 40 and" Display " WIDTH set to 80" Display "" options:Set d=keyinwhole (" Set beginning speed. Should be 40-150 (Higher is Slower) ") Set width=keyinwhole (" Set the starting width of the tunnel. Needs to be between 80 and 200. ") optionstest: If d>150 Display "Speed needs to be betweeb 40 and 150 " Go to options Endif If d<40 Display "Speed needs to be between 40 and 150 " Go to options Endif If width>200 Display "Width needs to be between 80 and 200 " Go to options Endif If width<80 Display "Width needs to be between 80 and 200 " Go to options Endif Display " Click LEFT mouse button to begin" start: Output mode(3) move mouse (320, 240) Set y=20;x=320;down=15;movel=width/2;mover=width/2;xmouse=320;ymouse=0;button=0;s=0;l=0 //variables Readmouse (xmouse,ymouse,button) If button=1 Go to move 1 Read quit key Go to start movelr: If movelr<15 Go to move1 If movelr>=15 Go to move2 move1: Set movel=movel+2 Set mover=mover-2 Go to drawwall move2: Set movel=movel-2 Set mover=mover+2 Go to drawwall drawwall: Set lbotx=(x-movel);lboty=(y) //bottom left point Set ltopx=(x-movel);ltopy=(y+down) //top left point for Set rbotx=(x+mover);rboty=(y) //bottom right point Set rtopx=(x+mover);rtopy=(y+down) //top right point Call line color(4) //line color Call line (lbotx,lboty,ltopx,ltopy) //left line Call line (rbotx,rboty,rtopx,rtopy) //right line drawmouse: Readmouse (xmouse,ymouse,button) Call solid color (3) //cursor color Call solid rectangle (xmouse-3,440-3,xmouse+3,440+3) //cursor size checkhit: If xmouse>x+mover Go to displayhit //did you hit either side If xmouse<x-movel Go to displayhit changevariables:movelr=random(30) read quit key Call delay (d) Set y=y+down l=l+1 If y>480 Set y=470 If s=1000 Go to win Set t2=t2+1 score: s=s+1 Output (s) If l=100 Go to levelup Go to movelr displayhit: Display "You Hit the wall!!" Display "You lose!!" Display "Score" Output (s) Display "Click left mouse button to Play again" Display "Press ESCAPE to exit" defhit: Readmouse (xmouse,ymouse,button) Call solid color (3) //cursor color Call solid rectangle (xmouse-3,440-3,xmouse+3,440+3) //cursor size If (button=1) cls; Go to start read quit key Go to defhit levelup: Set d=d-7 Set movel=movel-4 Set mover=mover-4 Set l=0 Go to movelr win: Display " You win!!" Display " You have not hit the wall for the entire game and earned 1000 Points" Display " Congratulations!!" Display " Click left mouse button to Play again" Display " Press ESCAPE to exit" won: Readmouse (xmouse,ymouse,button) If button = 1 Go to start read quit key Go to won

How To Run The Program

If you're feeling ambitious and have nothing better to do, you could just copy
the source listing by hand! However, there is a much easier way to do it:

Copy the source listing into the Windows Clipboard

Paste the Clipboard into a new text document

Drop that text document onto the "Drop SiMPLE Listing Here" icon

(If you would like to contribute any of your SiMPLE programs to The Gallery, just e-mail them to us.)