home *** CD-ROM | disk | FTP | other *** search
/ Mac Power 1996 June / MACPOWER-1996-06.ISO.7z / MACPOWER-1996-06.ISO / MacPowerオリジナル / キョービのプログラマー / ﾘﾊﾞｰｽｸﾗｲｱﾝﾄ東山1 / 東山通り.proj / reverseClient.GLBL next >
Text File  |  1996-04-01  |  3KB  |  105 lines
  1. '--------------------------------------------------
  2. '----------------- ReverseClient.GLBL -------------
  3. '------------- Reverse Client Program -------------
  4. '--------------------------------------------------
  5. ' Original C version by Takuji Matsubara
  6. ' FutureBASIC II porting by Takayuki Nakano 
  7. '--------------------------------------------------
  8.  
  9. '============ constants ============
  10. _ReverseMessage = _"rEVe"
  11.  
  12. _YourTurn      = 0
  13. _YouWin        = 1
  14. _YouLose       = 2
  15. _Drawn         = 3
  16. _AreYouReverse = 998
  17. _YesIam        = 999
  18.  
  19. _EmptyCell  = 0
  20. _BlackStone = 1
  21. _WhiteStone = 2
  22.  
  23. _BoardSize        = 10
  24. _MaxPlaceableCell = 96                    '_MaxPlaceableCell = _BoardSize*_BoardSize-4
  25.  
  26. '------------- define window size -------------
  27. _WindowRectResType = _"RECT"
  28. _WindowRectResID   = 128
  29.  
  30. '------------- define STR# 128's Index Number -------------
  31. _STRWndTitle          = 1
  32. _STRWaitingConnection = 2
  33. _STRWaitingStartGame  = 3
  34. _STRGameStarted       = 4
  35. _STRWin               = 5
  36. _STRLose              = 6
  37. _STRDrawn             = 7
  38.  
  39. '------------- menu constants -------------
  40. _mApple = 127
  41. _iAbout = 1
  42.  
  43. _mFile  = 1
  44. _iQuit  = 1
  45.  
  46. _mEdit  = 2
  47. _iUndo  = 1
  48. _iCut   = 3
  49. _iCopy  = 4
  50. _iPaste = 5
  51. _iClear = 6
  52.  
  53. '------------- ALRT ID's -------------
  54. _ErrorALRT = 129
  55. _AboutALRT = 128
  56.  
  57. '------------- AppleEvent constants -------------
  58. _kCoreEventClass      = _"aevt"
  59. _kAEOpenApplication   = _"oapp"
  60. _kAEOpenDocuments     = _"odoc"
  61. _kAEPrintDocuments    = _"pdoc"
  62. _kAEQuitApplication   = _"quit"
  63.  
  64. _typeAEList           = _"list"
  65. _typeFSS              = _"fss "
  66. _keyDirectObject      = _"----"
  67.  
  68. _errAEEventNotHandled = -1708
  69. _receiverIDisTargetID = &00005000
  70.  
  71. '------------- for think routine -------------
  72.  
  73.  
  74.  
  75. '========== globals ==========
  76. DIM gLastReceivedServerID.252
  77. DIM    gProgramEnds%
  78.  
  79. '------------- AppleEvent globals -------------
  80. DIM gOpenDocAEPtr& , gPrintDocAEPtr&
  81. DIM gOpenApplAEPtr&, gQuitApplAEPtr&
  82. DIM gWndCnt%
  83.  
  84. '------------- record types -------------
  85. DIM RECORD ReverseRec                     'host -> client
  86.  DIM RevMessage&                          '_YourTurn OR _YouWin OR _YouLose OR _Drawn OR _AreYouReverse
  87.  DIM myStoneR&                            '_BlackStone OR _WhiteStone
  88.  DIM board.100                            'current status of game board
  89.  '100 = 1 * _BoardSize * _BoardSize <-- FutureBASIC can't use array in record
  90. DIM END RECORD .ReverseRec 
  91.  
  92. DIM RECORD PlaceRec                       'client -> host
  93.  DIM myStoneP&                            '_BlackStone OR _WhiteStone
  94.  DIM placeCell.4                          'cell number that you want TO place stone.
  95. DIM END RECORD .PlaceRec
  96.  
  97. DIM RECORD PlaceInfo 
  98.  DIM nCell&                               'number of cells that you can place stone.
  99.  DIM pt.384                               'cell numbers that you can place stone.
  100.  DIM nReverse.384                         'number of reverse stones that when you place stone.
  101.  '384 = 4 * _MaxPlaceableCell <-- FutureBASIC can't use array in record
  102. DIM END RECORD .PlaceInfo
  103.  
  104. '------------- for think routine -------------
  105.