The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Time Bomb!

How's your intuition? It had better be good ... if you want to survive!

A bomb is connected to 5 buttons. If you select the correct 3 buttons, you will deactivate the bomb. (Push either of the other two buttons, and it's curtains for you!) But you'd better hurry ... because the fuse is lit!

Source Listing

// // Program: Time Bomb! // Author: Tony Molino // randomize Do frame; move mouse (640, 480) Do i = 1, 5 line color (i+8); line (323, 220, 56*i+155, 360) tabxy (7*i+20, 24) draw button (i, char(i+64), i, -1) Loop solid color (4); solid ellipse (323, 222, 7, 4) solid rectangle (316, 170, 330, 222) line color (0); solid color (6) filled ellipse (323, 170, 8, 3) line color (8); line (323, 170, 319, 151) move mouse (323, 425) x = random(5)+1; y = (random(4)+x)%5+1 xx = 0; yy = 0; xfuse = 0.0; yfuse = 0.0; hit = 0 Do read quitkey (0) put pixel (xx, yy, 0) xfuse=xfuse+0.004; yfuse=yfuse+0.019 If yfuse>18 hide mouse; explode (323, 196) @toys cls; tabxy (31, 13); Display "You ran out of time!" song (10, 0) @toys If (Universe()="Ultra") waitkey (0, 1500) Break Endif xx = 316+random(7)+xfuse; yy = 150-random(5)+yfuse put pixel (xx, yy, 15); delay (10) z = iabs(read buttons()); If !z Continue disable button (z) sound (2000); delay (50) no sound; delay (50) If z=x Or z=y hide mouse; explode (323, 196) @toys cx = char(x+64); cy = char(y+64); tabxy (25, 13) Display cx," and ", cy," were the detonate buttons!" song (3, 0) @toys If (Universe()="Ultra") waitkey (0, 1500) Break Endif hit = hit + 1 If hit=3 hide mouse; put pixel (xx, yy, 0) line color (0); line (323, 170, 319, 151) line color (8); line (323, 170, 323, 140) Do s = 1, 13 If (s%2) line color (4) Else line color (7) line (324, s+140, 348, s+140) Loop solid color (9) solid rectangle (324, 141, 333, 147) song (1, 0) @toys song (1, 2) @toys song (1, 5) @toys cuckoo; cuckoo; cuckoo; delay (1000); Break Endif Loop cls; delay (500); flush kbd Loop

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.)