The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

TRAPPED!

Will the bouncing ball ever break out of its prison of
randomly forming colored squares? Watch and see!

(TRAPPED is also part of the BLOCKOUT construction kit.)

Source Listing

// // Program: TRAPPED! // Author: Bob Bishop // Int num Randomize; Hide mouse frame (20, 20, 619, 459, 1, 0) @ xball=320.0; yball=240.0 vector=16384*Random(4)+8192 Do xx=Int(xball/20); yy=Int(yball/20) Do k=1,25 x=Random(Random(14)+1)+2; If Random(2) Set x=31-x y=Random(Random(10)+1)+2; If Random(2) Set y=23-y If (x!=xx Or y!=yy) square (x, y, Random(6)+9) @ Loop move ball (xball, yball, vector) @ zap square (num) @ No sound If num Sound (500+300*num) vector=vector+Random(5001)-2500 If Iabs(vector % 16384)<250 \ Or Iabs((vector-16384) % 16384)<250 \ Set vector=vector+250 Endif Wait quit key (27, 1) Loop Task moveball (Float x, Float y, Int vector) Common Float oldx, oldy Common Int oldvect=0 Common Float dx=0.0, dy=-1.0 Common Int size=4 a=Getpixel(x-size,y-size) b=Getpixel(x+size,y-size) c=Getpixel(x-size,y+size) d=Getpixel(x+size,y+size) If (a And b) vector=absdy(vector) If (c And d) vector=negdy(absdy(vector)) If (a And c) vector=absdx(vector) If (b And d) vector=negdx(absdx(vector)) If (a And !b And !c And !d) vector=absdx(vector) vector=absdy(vector) Endif If (!a And b And !c And !d) vector=negdx(absdx(vector)) vector=absdy(vector) Endif If (!a And !b And c And !d) vector=absdx(vector) vector=negdy(absdy(vector)) Endif If (!a And !b And !c And d) vector=negdx(absdx(vector)) vector=negdy(absdy(vector)) Endif If (a And !b And !c And d) Or (!a And b And c And !d) \ Set vector=vector-32768 If vector!=oldvect ang=3.14159265*(16384-vector)/32768.0 dx=Cos(ang) ; dy=-Sin(ang) oldvect=vector Endif oldx=x ; oldy=y x=x+dx ; y=y+dy Linecolor(0) ; Fillcolor(15) Filledrectangle(x-size+1,y-size+1,x+size-1,y+size-1) Task frame (Int xul, Int yul, Int xlr, Int ylr, Int shade, Int hollow) Int gray[]={0,8,7,15} If shade<0 Or shade>1 Return Linecolor(gray[1+shade]) Do k=yul-20,ylr+20 Line(xul-20,k,xul-1,k) If (k<yul Or k>ylr) Line(xul,k,xlr,k) Line(xlr+1,k,xlr+20,k) Loop Linecolor(gray[2+shade]) Line(xul-5,ylr+5,xlr+5,ylr+5) Line(xlr+5,ylr+5,xlr+5,yul-5) Do k=0,5 Line(xul-20+k,yul-20+k,xlr+20-k,yul-20+k) Line(xul-20+k,yul-20+k,xul-20+k,ylr+20-k) Loop Linecolor(gray[0+shade]) Line(xul-5,yul-5,xlr+5,yul-5) Line(xul-5,ylr+5,xul-5,yul-5) Do k=0,5 Line(xul-20+k,ylr+20-k,xlr+20-k,ylr+20-k) Line(xlr+20-k,yul-20+k,xlr+20-k,ylr+20-k) Loop If hollow Return Solidcolor(0) Solidrectangle(xul,yul,xlr,ylr) Task square(Int x, Int y, Int color) If color<0 Solidcolor(0) Solidrectangle(20*x,20*y,20*x+19,20*y+19) Return Endif Do k=0,1 Linecolor(15) Line(20*x+k,20*y+k,20*x+k,20*y+18-k) Line(20*x+k,20*y+k,20*x+18-k,20*y+k) If color=8 Call Linecolor(8) Else Call Linecolor(color-8) Line(20*x+19-k,20*y+k,20*x+19-k,20*y+19-k) Line(20*x+k,20*y+19-k,20*x+19-k,20*y+19-k) Loop If color=8 Call Solidcolor(7) Else Call Solidcolor(color) Solidrectangle(20*x+2,20*y+2,20*x+17,20*y+17) Return Task zap square (Int num) Common Float oldx, oldy Common Int size=4 num=0; xpdl=0; something=0 guts (oldx-size, oldy-size, num) @ guts (oldx+size, oldy-size, num) @ guts (oldx-size, oldy+size, num) @ guts (oldx+size, oldy+size, num) @ Task guts (Int x, Int y, Int num) z=Getpixel(x, y) If z And x>19 And x<620 And y>19 And y<460 zz=Getpixel(20*(x/20)+10, 20*(y/20)+10) If zz!=0 And zz!=7 And zz!=8 And zz!=15 square (x/20, y/20, -1) @ num=num+1 Endif Endif Int negdx (Int vector) Return -vector Int negdy (Int vector) Return -vector-32768 Int absdx (Int vector) Return Iabs (vector) Int absdy (Int vector) If vector>-16384 And vector<16384 Return -vector-32768 Else Return vector

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