The SiMPLE Program Gallery

< Prev | The SiMPLE Program Gallery | Next >

Box Game

You and your computer take turns connecting pairs of dots (by clicking between them with your mouse). Whoever completes the most squares wins the game.

Source Listing

// // Program: Box Game // Author: Paul Dragavon // Common Int score[2], player randomize Do cls; tabxy (20,12) p=keyin int ("Do you want to be player #1 or player #2? ") If p=1 Or p=2 Break Loop If (p=2) p=0 Do init @ player=p Do If player If !get move() Call quit End Else make move @ If (!update()) player=1-player If score[0]+score[1]=25 If (score[0]>score[1]) w="Red\nWins" Else w="Blue\nWins" tabxy (39,15) framed text (w) wait key (0, 2500) Break End delay (500) Loop Loop //-------------------------------------------------------------- Task init Common Int score[2], player score[0]=0; score[1]=0 cls (3); hide mouse solid color (7) solid rectangle (170, 90, 469, 389) frame (170, 90, 469, 389) solid color (0) Do ky=0,5 Do kx=0,5 x=195+50*kx y=115+50*ky solid rectangle (x-2, y-2, x+2, y+2) Loop Loop show mouse //-------------------------------------------------------------- Int get move () Int xc, yc, hv, but Do get door (xc, yc, hv, but) @ If but hide mouse If getpixel (xc, yc) Break show mouse End If readkey(27) Return 0 Loop move (xc, yc, hv) @ Return 1 //-------------------------------------------------------------- Task make move Common Int score[2], player hide mouse //Test for "gimmies" Do j=-2,+2 xx=320+50*j Do k=-2,+2 yy=240+50*k If getpixel(xx,yy)!=7 Continue z=getpixel(xx-25,yy) + \ getpixel(xx+25,yy) + \ getpixel(xx,yy-25) + \ getpixel(xx,yy+25) If z=7 If (getpixel(xx-25,yy)) move (xx-25, yy, 1) @ If (getpixel(xx+25,yy)) move (xx+25, yy, 1) @ If (getpixel(xx,yy-25)) move (xx, yy-25, 0) @ If (getpixel(xx,yy+25)) move (xx, yy+25, 0) @ Return End Loop Loop n1=0; n2=0 hv1=-1; hv2=-1 //Test vertical doors Do j=0,5 xx=195+50*j Do k=1,5 yy=90+50*k If getpixel(xx,yy)!=7 Continue zz=looklr(xx,yy) If zz>7 n1=n1+1 If random(n1) Continue x1=xx; y1=yy; hv1=1 End Else n2=n2+1 If random(n2) Continue x2=xx; y2=yy; hv2=1 End Loop Loop //Test horizontal doors Do j=1,5 xx=170+50*j Do k=0,5 yy=115+50*k If getpixel(xx,yy)!=7 Continue zz=lookud(xx,yy) If zz>7 n1=n1+1 If random(n1) Continue x1=xx; y1=yy; hv1=0 End Else n2=n2+1 If random(n2) Continue x2=xx; y2=yy; hv2=0 End Loop Loop //Select move If (hv1<0) move (x2, y2, hv2) @ Else move (x1, y1, hv1) @ //-------------------------------------------------------------- Int update () Common Int score[2], player hide mouse mark=0 Do j=-2,+2 xx=320+50*j Do k=-2,+2 yy=240+50*k If getpixel(xx,yy)!=7 Continue If getpixel(xx-25,yy) + \ getpixel(xx+25,yy) + \ getpixel(xx,yy-25) + \ getpixel(xx,yy+25) Continue If player solid color (1) filled circle (xx, yy, 20) solid color (9) filled circle (xx, yy, 10) End Else solid color (4) filled circle (xx, yy, 20) solid color (12) filled circle (xx, yy, 10) End score[player]=score[player]+1 mark=mark+1 Loop Loop show mouse Return mark //-------------------------------------------------------------- Task get door (Int xc, Int yc, Int hv, Int but) Int xa, xb, ya, yb, xm, ym da=9999; db=9999 read mouse (xm, ym, but) Do ky=0,5 y=115+50*ky Do kx=0,5 x=195+50*kx d=iabs(x-xm)+iabs(y-ym) If d<da xb=xa; xa=x yb=ya; ya=y db=da; da=d Continue End If d<db xb=x; yb=y; db=d End Loop Loop xc=(xa+xb)/2 yc=(ya+yb)/2 If (xa=xb) hv=1 Else hv=0 //-------------------------------------------------------------- Task move (Int xc, Int yc, Int hv) solid color (0) If (hv) solid rectangle (xc-1, yc-22, xc+1, yc+22) Else solid rectangle (xc-22, yc-1, xc+22, yc+1) show mouse pop //-------------------------------------------------------------- Int looklr (Int xx, Int yy) l=getpixel(xx-25,yy-25) + \ getpixel(xx-25,yy+25) + \ getpixel(xx-50,yy) r=getpixel(xx+25,yy-25) + \ getpixel(xx+25,yy+25) + \ getpixel(xx+50,yy) If xx<220 Return r If xx>420 Return l Return mini (l, r) //-------------------------------------------------------------- Int lookud (Int xx, Int yy) u=getpixel(xx-25,yy-25) + \ getpixel(xx+25,yy-25) + \ getpixel(xx,yy-50) d=getpixel(xx-25,yy+25) + \ getpixel(xx+25,yy+25) + \ getpixel(xx,yy+50) If yy<140 Return d If yy>340 Return u Return mini (u, d)

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