home *** CD-ROM | disk | FTP | other *** search
/ Inside Multimedia 1995 August / IMM0895.BIN / magazin / optix / disk1 / optxppac.set / JOYSTICK.OPT < prev    next >
Text File  |  1994-06-25  |  555b  |  40 lines
  1. def(x,320)
  2. def(y,240)
  3. def(jx)
  4. def(jy)
  5. def(jk)
  6. defs(jx$)
  7. defs(jy$)
  8. defs(jk$)
  9.  
  10. begin
  11. setcolor(12)
  12. setrgbcolor(63,63,63,4)
  13.  
  14. if joy<>0
  15.   repeat
  16.     jx:=6-joy1x/32
  17.     jy:=7-joy1y/32
  18.     jk:=joyk
  19.     str(jx,4,jx$)
  20.     str(jy,4,jy$)
  21.     str(jk ,4,jk$)
  22.     printat(100,100,jx$+jy$+jk$)
  23.     if jk:=0
  24.       disk(x-jx,y-jy,33,4)
  25.     endif
  26.     if jk:=1
  27.       disk(x-jx,y-jy,3,9)
  28.     endif
  29.     if jk:=2
  30.       disk(x-jx,y-jy,6,14)
  31.     endif
  32.     x:=x-jx
  33.     y:=y-jy
  34.     bound(x,0,xmax)
  35.     bound(y,0,ymax)
  36.   until jk=3
  37. endif
  38.  
  39. end
  40.