home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 June / MACPOWER-1996-06.ISO.7z / MACPOWER-1996-06.ISO / MacPowerオリジナル / キョービのプログラマー / ﾘﾊﾞｰｽｸﾗｲｱﾝﾄ東山1 / 東山通り.proj / reverseClient.INCL < prev    next >
Text File  |  1996-04-01  |  1KB  |  43 lines
  1. '--------------------------------------------------
  2. '----------------- ReverseClient.INCL -------------
  3. '------------- Reverse Client Program -------------
  4. '--------------------------------------------------
  5. ' think routine by Takayuki Nakano
  6. '--------------------------------------------------
  7.  
  8. GLOBALS "reverseClient.GLBL"
  9. END GLOBALS
  10.  
  11. INCLUDE "reverseUtils.INCL"
  12. INCLUDE FILE _aplIncl
  13.  
  14. '------------- Initialization for think routine -------------
  15. LOCAL FN myInit
  16.  RANDOM
  17. END FN
  18.  
  19. '------------- THINK ROUTINE -------------
  20. LOCAL
  21. DIM pinfo.PlaceInfo
  22. DIM locationOfMyStone.4
  23. LOCAL FN think(curboard&, whichplace&)
  24.  pinfoPt& = @pinfo + _pt
  25.  'XREF pinfoPt.4(_MaxPlaceableCell)       '<-- this causes bus error
  26.  pinfoNReverse& = @pinfo + _nReverse
  27.  XREF pinfoNReverse&(_MaxPlaceableCell)   'enables array in record
  28.  locationOfMyStone.h% = 0 : locationOfMyStone.v% = 0
  29.  '------------- check board status -------------
  30.  count% = FN countStone(curboard&)
  31.  IF count% = 4 OR count% = 5 THEN FN myInit'initialization for think routine
  32.  '------------- find place-able location -------------
  33.  LONG IF FN getPlaceInfo(curboard&, @pinfo)
  34.   '------------- decide new stone's location -------------
  35.   which% = RND(pinfo.nCell&) - 1
  36.   locationOfMyStone.h% = {pinfoPt& + _h + which%*4}
  37.   locationOfMyStone.v% = {pinfoPt& + _v + which%*4}
  38.  END IF
  39.  '------------- RETURN new stone's location -------------
  40.  BLOCKMOVE @locationOfMyStone, whichplace&, 4
  41. END FN
  42.  
  43.