Suicide Bombers!

The Simplistian princess is trapped inside the temple of Labyrinthia, and a group of frenzied suicide bombers are trying to find her! Your mission: To reach the princess, and then get her safely out of the temple. (Use the arrow keys on your keyboard to make your moves.)

Source Listing

// // Program: Suicide Bombers! // Author: Bob Bishop // Ultra-SiMPLE Common Int state, level=1 Common Int size=8 randomize title @ Do draw layout (size) @ init men @ flush kbd; state=1 Do key=read key() If (key=27) quit flush kbd get vectors (key) @ move men @ test @ If state>2 Break Loop what next @ If (state=4) level=level+1 If (level>16) level=16 Loop Task title cls tabxy (25, 10); display2 ("Suicide Bombers!", 4, 0, 0) @ tabxy (35, 14); display2 ("- by -", 8, 0, 0) @ tabxy (31, 18); display2 ("Bob Bishop", 1, 0, 0) @ tabxy (29, 24); Display "(Press any key to start)", frame (24, 24, 615, 455) hide mouse; wait key Task draw layout (Int size) Common Int state, level cls tabxy (25, 2); display2 ("Suicide Bombers!", 4, 0, 0) @ tabxy (13, 5) cwrite ("You've got to get to the Princess before the bombers do!", 3, 0) Line color (9) rectangle (15, 0, 625, 465) rectangle (16, 1, 624, 464) Line (16, 95, 624, 95) Line (16, 96, 624, 96) draw maze (4, 17-size, 15, 2*size+1, 6) @ draw maze (21, 17-size, 15, 2*size+1, 6) @ rectangle (48, 272, 64, 288) rectangle (304, 272, 336, 288) rectangle (576, 264, 608, 296) putpixel (4*8, 17*16, 6) putpixel (4*8, 18*16, 6) putpixel (4*8+8, 17*16, 6) putpixel (4*8+8, 18*16, 6) putpixel (4*8, 17*16+8, 6) Line color (0) Line (48, 273, 48, 287) Line (64, 273, 64, 287) Line (304, 273, 304, 287) Line (336, 273, 336, 287) Line (576, 273, 576, 287) tabxy (37, 8); Display "Level:",,level, princess (577, 266) @ Task draw maze (Int xx, Int yy, Int dx, Int dy, Int color) Common Int board[25][25] make maze (dx, dy) @ Line color (color) Line (16*xx, 16*yy, 16*(xx+dx), 16*yy) Line (16*xx, 16*yy, 16*xx, 16*(yy+dy)) Do y=0, dy-1 Do x=0, dx-1 z=board[x][y] If (!(z%2)) \ Line (16*(xx+x+1), 16*(yy+y), 16*(xx+x+1), 16*(yy+y+1)) z=z/2; If (!(z%2)) \ Line (16*(xx+x), 16*(yy+y+1), 16*(xx+x+1), 16*(yy+y+1)) Loop Loop Line color (0) Do y=0, dy-2 Do x=0, dx-2 a=getpixel(16*(xx+x)-8,16*(yy+y+1)) b=getpixel(16*(xx+x)+8,16*(yy+y+1)) c=getpixel(16*(xx+x)+24,16*(yy+y+1)) If (a & b & c & random(2)) \ Line (16*(xx+x)+1, 16*(yy+y+1), 16*(xx+x+1)-1, 16*(yy+y+1)) a=getpixel(16*(xx+x+1),16*(yy+y)-8) b=getpixel(16*(xx+x+1),16*(yy+y)+8) c=getpixel(16*(xx+x+1),16*(yy+y)+24) If (a & b & c & random(2)) \ Line (16*(xx+x+1), 16*(yy+y)+1, 16*(xx+x+1), 16*(yy+y+1)-1) Loop Loop Line color (color) Task make maze (Int dx, Int dy) Common Int board[25][25] Int xq[625], yq[625] Int xcand[4], ycand[4], mask[4] Do j=0, dx-1 Do k=0, dy-1 board[j][k]=0 Loop k Loop j qpntr=1 xq[0]=dx/2 yq[0]=dy/2 Do qpntr=qpntr-1; If (qpntr<0) Break x=xq[qpntr]; y=yq[qpntr] Do numcand=0 If (x>0) If (board[x-1][y]=0) xcand[numcand]=x-1; ycand[numcand]=y mask[numcand]=20 numcand=numcand+1 End If End If If (x<dx-1) If (board[x+1][y]=0) xcand[numcand]=x+1; ycand[numcand]=y mask[numcand]=17 numcand=numcand+1 End If End If If (y>0) If (board[x][y-1]=0) xcand[numcand]=x; ycand[numcand]=y-1 mask[numcand]=24 numcand=numcand+1 End If End If If (y<dy-1) If (board[x][y+1]=0) xcand[numcand]=x; ycand[numcand]=y+1 mask[numcand]=18 numcand=numcand+1 End If End If If (numcand=0) Break ndx=Random(numcand) bits=mask[ndx] newx=xcand[ndx]; xq[qpntr]=newx newy=ycand[ndx]; yq[qpntr]=newy qpntr=qpntr+1 board[x][y]=board[x][y]+bits bits=bits/4 board[newx][newy]=board[newx][newy]+bits x=newx; y=newy Loop Loop Task display2 (Text text, Int forecolor, Int backcolor, Int direction) Int pixel[8][16] solid color (backcolor) Do i = 0, length(text)-1 Display extract(text,i,i), xul=8*(wherex()-2); yul=15*(wherey()-1) Do y = 0, 15 Do x = 0, 7 pixel[x][y]=getpixel(xul+x, yul+y) Loop Loop solid rectangle (xul, yul, xul+15, yul+31) Do y = 0, 15 Do x = 0, 7 If (!pixel[x][y]) Continue putpixel(xul+2*x, yul+2*y, forecolor) putpixel(xul+2*x+1, yul+2*y, forecolor) putpixel(xul+2*x, yul+2*y+1, forecolor) putpixel(xul+2*x+1, yul+2*y+1, forecolor) Loop Loop htab (wherex()+1) Loop Task explode (Int x, Int y) * * Generates an explosion at screen coordinates (x,y) * Int hue[]={0,8,7,15,6,6,5,12,14,15} id=open mci ("\\simple\\sounds\\explode.wav") start mci (id, 500, 0) Line color (15) Do r=1,7 Circle (x, y, r) Delay (8) Loop Kick io Line color (14) Do r=8,13 Circle (x, y, r) Delay (6) Loop Kick io Line color (12) Do r=14,18 Circle (x, y, r) Delay (4) Loop Line color (6) Do r=19,22 Circle (x, y, r) Delay (2) Loop Kick io Do r=23,50 Do j=1,50 Line color (hue[Random(9)+1]) a=Float(Random(31416))/5000.0 Line (x, y, x+r*Cos(a), y+r*Sin(a)) a=Float(Random(31416))/5000.0 rr=Random(Random(r)) xx=x+rr*Cos(a) yy=y+rr*Sin(a) Solid color (hue[Random(9)+1]) Solid circle (xx, yy, Random(5-rr/10)+1) Loop Kick io Loop Do k=1,100000L r=Random(Random(75)) a=Float(Random(31416))/5000.0 xx=x+r*Cos(a) yy=y+r*Sin(a) index=Random((32000-k/2)/5000+1)+(1-k/24000) If index<0 Set index=0 Solid color (hue[index]) Solid circle (xx, yy, Random(5-r/15)+1) index=30-k/500 If index<0 Set index=0 Loop Solid color (0) Solid circle (x, y, 76) Close mci (id) Flush kbd Task init men Common Int x[33], y[33], dx[33], dy[33] Common Int size, clock, klock x[0]=40; y[0]=17*16+8; dx[0]=0; dy[0]=0 x[1]=4*16+8; y[1]=(17-size)*16+8; dx[1]=0; dy[1]=0 x[2]=4*16+8; y[2]=(17+size)*16+8; dx[2]=0; dy[2]=0 x[3]=18*16+8; y[3]=(17-size)*16+8; dx[3]=0; dy[3]=0 x[4]=18*16+8; y[4]=(17+size)*16+8; dx[4]=0; dy[4]=0 x[5]=21*16+8; y[5]=(17-size)*16+8; dx[5]=0; dy[5]=0 x[6]=21*16+8; y[6]=(17+size)*16+8; dx[6]=0; dy[6]=0 x[7]=35*16+8; y[7]=(17-size)*16+8; dx[7]=0; dy[7]=0 x[8]=35*16+8; y[8]=(17+size)*16+8; dx[8]=0; dy[8]=0 Do k=1, 8 x[k+8]=x[k]; x[k+16]=x[k]; x[k+24]=x[k] y[k+8]=y[k]; y[k+16]=y[k]; y[k+24]=y[k] dx[k+8]=dx[k]; dx[k+16]=dx[k]; dx[k+24]=dx[k] dy[k+8]=dy[k]; dy[k+16]=dy[k]; dy[k+24]=dy[k] Loop draw man (x[0], y[0], 14) @ clock=0; klock=0 Task draw man (Int x, Int y, Int z) line color (0) fill color (z) filled circle (x, y, 7) fill color (15) filled rectangle (x-1, y-3, x-4, y-1) filled rectangle (x+1, y-3, x+4, y-1) putpixel (x-1, y+1, 0) putpixel (x+1, y+1, 0) line (x-2, y+4, x+2, y+4) putpixel (x-3, y+3, 0) putpixel (x+3, y+3, 0) Task get vectors (Int key) Common Int x[33], y[33], dx[33], dy[33] Common Int state, level Common Int clock, klock Int dxcand[4], dycand[4] If key & !klock w=getpixel(x[0]-8,y[0]) e=getpixel(x[0]+8,y[0]) n=getpixel(x[0],y[0]-8) s=getpixel(x[0],y[0]+8) If (dx[0]=-1 & w=6) dx[0]=0 If (dx[0]=+1 & e=6) dx[0]=0 If (dy[0]=-1 & n=6) dy[0]=0 If (dy[0]=+1 & s=6) dy[0]=0 numcand=0 If (!w) numcand=numcand+1 If (!e) numcand=numcand+1 If (!n) numcand=numcand+1 If (!s) numcand=numcand+1 If (numcand>2) dx[0]=0; dy[0]=0 Endif If key=331 & w!=6 dx[0]=-1; dy[0]=0 Endif If key=333 & e!=6 dx[0]=+1; dy[0]=0 Endif If key=328 & n!=6 dy[0]=-1; dx[0]=0 Endif If key=336 & s!=6 dy[0]=+1; dx[0]=0 Endif Endif If clock Return Do k=1, 2*level numcand=0 If dx[k]!=+1 & getpixel(x[k]-8,y[k])!=6 & x[k]!=72 dxcand[numcand]=-1; dycand[numcand]=0 numcand=numcand+1 Endif If dx[k]!=-1 & getpixel(x[k]+8,y[k])!=6 dxcand[numcand]=+1; dycand[numcand]=0 numcand=numcand+1 Endif If dy[k]!=+1 & getpixel(x[k],y[k]-8)!=6 dxcand[numcand]=0; dycand[numcand]=-1 numcand=numcand+1 Endif If dy[k]!=-1 & getpixel(x[k],y[k]+8)!=6 dxcand[numcand]=0; dycand[numcand]=+1 numcand=numcand+1 Endif If (!numcand) dx[k]=-dx[k]; dy[k]=-dy[k] Endif Else ndx=Random(numcand) dx[k]=dxcand[ndx]; dy[k]=dycand[ndx] Endelse Loop Task move men Common Int x[33], y[33], dx[33], dy[33] Common Int state, level Common Int clock, klock If dx[0] | dy[0] x[0]=x[0]+dx[0]; y[0]=y[0]+dy[0] draw man (x[0], y[0], 14) @ klock=(klock+1)%16 If (!klock) dx[0]=0; dy[0]=0 Endif Endif Do m=1, 2*level If clock%2 Break x[m]=x[m]+dx[m]; y[m]=y[m]+dy[m] draw man (x[m], y[m], 8) @ Loop clock=(clock+1)%32 delay (15) Task test Common Int x[33], y[33], dx[33], dy[33] Common Int state, level If x[0]=36*16 & y[0]=17*16+8 & state=1 solid color (0) solid rectangle (577, 265, 607, 295) putpixel (584, 272, 6) putpixel (600, 272, 6) putpixel (584, 288, 6) putpixel (600, 288, 6) tabxy (13, 5) Display " Ok, you've got the Princess... now get back out! ", state=2 Endif Do k=1, 2*level If ((iabs(x[k]-x[0])<12 & iabs(y[k]-y[0])<12) | (x[k]=36*16 & state=1)) explode (x[k], y[k]) @ cls; tabxy (32, 14); display2 ("Game Over", 3, 0, 0) @ skull (260) @ Line color (9) tabxy (25, 6); display2 ("Suicide Bombers!", 4, 0, 0) @ rectangle (65, 140, 570, 440) state=3; Return Endif Loop If x[0]=40 & state=2 tabxy (13, 5) Display " Congratulations! You've rescued the Princess! ", line color (9); fill color (0) filled rectangle (16, 96, 624, 464) tabxy (20, 12); display2 ("Mission Accomplished!", 11, 0, 0) @ princess (305, 250) @ state=4 Endif Task what next Common Int state tabxy (27, 23); Display "Press the 'Esc' key to quit.", If state=3 tabxy (19, 25); Display "Press any other key to play this level again.", Endif If state=4 tabxy (20, 25); Display "Press any other key to play the next level.", Endif flush kbd; key=wait key() If (key=27) quit Task princess (Int x, Int y) solid color (15) solid rectangle (x, y+12, x+7, y+14) solid color (13) solid rectangle (x+3, y+3, x+7, y+11) solid color (14) solid rectangle (x+5, y, x+9, y+2) line color (13) line (x+5, y+12, x+9, y+12) line (x+6, y+13, x+8, y+13) line color (14) line (x+1, y+7, x+1, y+9) line (x+2, y+4, x+2, y+10) line (x+3, y+2, x+3, y+4) line (x+3, y+7, x+3, y+9) line (x+4, y+1, x+4, y+3) line color (12) line (x+6, y+9, x+7, y+9) putpixel (x+7, y+7, 8) putpixel (x+3, y+10, 0) putpixel (x+4, y+10, 0) putpixel (x+3, y+11, 7) putpixel (x, y+12, 0) putpixel (x+7, y+14, 13) Do k=0, 6 Do yy=y, y+14 putpixel (x+14-k, yy, getpixel(x+k,yy)) Loop Loop putpixel (x+5, y+5, 3) putpixel (x+8, y+5, 3) putpixel (x+6, y+5, 11) putpixel (x+9, y+5, 11) Do k=14, 0 Do j=14, 0 z=getpixel (x+k, y+j) putpixel (x+2*k, y+2*j, z) putpixel (x+2*k+1, y+2*j, z) putpixel (x+2*k, y+2*j+1, z) putpixel (x+2*k+1, y+2*j+1, z) Loop Loop Task skull (Int yy) solid color (8) solid ellipse (320, yy, 19, 17) solid color (8) solid ellipse (320, yy+5, 16, 20) solid color (0) solid circle (320-7, yy, 4) solid circle (320+7, yy, 4) line color (0) Do k=0, 8 line (320-k/2, yy+k+3, 320+k/2, yy+k+3) Loop Do k=314, 326, 2 line (k, yy+14, k, yy+18) Loop line color (8) Do k=2, 17 line (285+k, yy+25, 335+k, yy+45) line (285+k, yy+45, 335+k, yy+25) Loop solid color (8) solid circle (293, yy+25, 5) solid circle (347, yy+45, 5) solid circle (347, yy+25, 5) solid circle (293, yy+45, 5)

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

  [ Webmaster | FAQ's | Home Page | Contact Us ]

© Copyright 2006 SiMPLE CodeWorks, Inc. All rights reserved.