(FILECREATED "22-SEP-83 15:41:04" ("compiled on " {INDIGO}TRUCKIN>MULTI>TRUCKINM.;60) "20-SEP-83 19:27:00" recompiled exprs: GameCommInterface.NewInstance GameDecisionMaker.NewInstance GamePlayerInterface.NewInstance GameSimulator.NewInstance in LOOPS.SYSOUT dated "21-SEP-83 18:53:36") (FILECREATED "22-SEP-83 15:38:53" {INDIGO}TRUCKIN>MULTI>TRUCKINM.;60 208067 changes to: (FNS GamePlayerInterface.NewInstance GameCommInterface.NewInstance GameDecisionMaker.NewInstance GameSimulator.NewInstance) previous date: "19-SEP-83 11:24:38" {INDIGO}TRUCKIN>MULTI>TRUCKINM.;59) BWTruckin.InitializeGameWindow D1 (I 0 self) '@g hdd@g hdddggnZZ (44Q BITBLT 23Q GetValue 11Q CLEARW 6 GetValue) (35Q REPLACE 32Q TEXTURE 20Q gameWindow 3 gameWindow) NIL ColorTruckin.CreateGameBoard D1 (P 0 screen I 2 title I 1 region I 0 self) WPžX™HÈlð«il ¿X€H @g`@Zg ¹JAlI¿@\g »LkK`(113Q FetchMethodOrHelp 72Q FetchMethodOrHelp 62Q PutValue 45Q DSPCREATE 37Q COLORSCREENBITMAP 33Q COLORDISPLAY 11Q COLORSCREENBITMAP 5 COLORDISPLAYP) (124Q gameWindow 110Q MakeDriveBitMaps 67Q InitializeGameWindow 57Q gameWindow 54Q gameWindow 50Q gameWindow 17Q BITMAP) NIL ColorTruckin.InitializeGameWindow D1 (I 1 region I 0 self) t@g hdd`hdddggl n€AÙlÛ` nàAÙlÛ` jdAAh` hdd`hdddggl `(156Q BITBLT 130Q DSPCLIPPINGREGION 102Q DSPYOFFSET 60Q DSPXOFFSET 37Q BITBLT 6 GetValue) (161Q gameWindow 150Q REPLACE 145Q TEXTURE 136Q gameWindow 125Q gameWindow 77Q gameWindow 55Q gameWindow 31Q REPLACE 26Q TEXTURE 17Q gameWindow 11Q gameWindow 3 gameWindow) NIL ColorTruckin.MakeDriveBitMaps D1 (I 0 self) l (4 MakeDriveBitMaps) NIL NIL DisplayTruckinS.NewGame D1 (I 2 board I 1 seed I 0 self) .@Hg ¹HABlI@g Hg ¹HkI(45Q FetchMethodOrHelp 33Q GetValue 12Q GetSuperMethod) (42Q DisplayGameBoard 30Q gameBoard 7 NewGame) NIL DisplayTruckinS.ReUseGame D1 (I 1 seed I 0 self) -@Hg ¹HAlI@g Hg ¹HkI(44Q FetchMethodOrHelp 32Q GetValue 12Q GetSuperMethod) (41Q DisplayGameBoard 27Q gameBoard 7 ReUseGame) NIL GameCommInterface.NewInstance D1 (I 4 dlist I 3 displayType I 2 boardType I 1 gameType I 0 self F 2 Communicator) 5@Hg ¹HkI@cdgD@Hg ¹HABClI@(47Q FetchMethodOrHelp 34Q PutValue 12Q GetSuperMethod) (44Q SetUp 30Q broadcastList 7 NewInstance) NIL GameDecisionMaker.NewInstance D1 (I 0 self) @Hg ¹HkI(12Q GetSuperMethod) (7 NewInstance) NIL GamePlayerInterface.ChangeGameParameters D1 (P 0 gp I 0 self F 5 GameParaSet) iP@g Xdgð²#@g Zg ¹JkI¸@gH¿oo H\g »LkK¿U³` ¿` ¿nô °èi(143Q DISMISS 134Q TOTOPW 125Q TOTOPW 105Q FetchMethodOrHelp 75Q PROMPT 61Q PutValue 42Q FetchMethodOrHelp 33Q GetObjectRec 30Q GetValue 11Q GetItHere) (131Q GameCommandW 122Q GameParamW 102Q SetUp 55Q gameParameters 37Q New 25Q gameParameters 16Q ? 6 gameParameters) (72Q "When done, click DONE" 66Q "Change Game Parameters by using the displayed Inspector.") GamePlayerInterface.NewInstance D1 (I 0 self F 2 gameMaster) @Hg ¹HkI@c(12Q GetSuperMethod) (7 NewInstance) NIL GameSimulator.NewInstance D1 (I 0 self) @Hg ¹HkI(12Q GetSuperMethod) (7 NewInstance) NIL MainCommInterface.AddBandit D1 (I 1 name I 0 self) A@g Hg ¹HAlI@g Hg ¹HAlI@gAh (76Q MailOut 52Q FetchMethodOrHelp 40Q GetValue 20Q FetchMethodOrHelp 6 GetValue) (67Q AddBandit 47Q AddBandit 35Q decisionMaker 15Q AddBandit 3 simulator) NIL MainCommInterface.AddPlayer D1 (I 5 deniedFlg I 4 truck I 3 type I 2 name I 1 reqID I 0 self) n@g Hg ¹HABCDElI@g Hg ¹HABCDElI@gABCDEh @g Hg ¹HABCDElI(137Q FetchMethodOrHelp 125Q GetValue 116Q MailOut 56Q FetchMethodOrHelp 44Q GetValue 20Q FetchMethodOrHelp 6 GetValue) (134Q AddPlayer 122Q decisionMaker 77Q AddPlayer 53Q AddPlayer 41Q simulator 15Q AddPlayer 3 playerInterface) NIL MainCommInterface.AddPlayerRequest D1 (I 4 truck I 3 type I 2 name I 1 reqID I 0 self) @g Hg ¹HABCDlI(20Q FetchMethodOrHelp 6 GetValue) (15Q AddPlayerRequest 3 decisionMaker) NIL MainCommInterface.BeginGameRequest D1 (I 0 self) @g Hg ¹HkI(20Q FetchMethodOrHelp 6 GetValue) (15Q BeginGameRequest 3 decisionMaker) NIL MainCommInterface.BreakCargo D1 (I 2 cargoPos I 1 playerName I 0 self) -@g Hg ¹HABlI@gA Bh (52Q MailOut 42Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (36Q BreakCargo 15Q BreakCargo 3 simulator) NIL MainCommInterface.BuyMade D1 (I 10Q lifetime I 7 fragility I 6 penaltyAmt I 5 reason I 4 qty I 3 reqQty I 2 roadPosition I 1 playerName I 0 self) ’ @g Hg ¹HA BCDEFGGl I@g Hg ¹HA BCDEFGGl I@g Hg ¹HA BCDEFGGl I@gA BCDEFGGh (217Q MailOut 171Q GetObjectRec 142Q GetObjectRec 134Q FetchMethodOrHelp 122Q GetValue 74Q GetObjectRec 66Q FetchMethodOrHelp 54Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (165Q BuyMade 131Q BuyMade 117Q playerInterface 63Q BuyMade 51Q decisionMaker 15Q BuyMade 3 simulator) NIL MainCommInterface.BuyRequest D1 (I 3 qty I 2 roadPosition I 1 player I 0 self) @g Hg ¹HA BClI(26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (15Q BuyRequest 3 decisionMaker) NIL MainCommInterface.GameOver D1 (I 0 self) *@g Hg ¹HkI@gh @g (47Q PutValue 40Q MailOut 20Q FetchMethodOrHelp 6 GetValue) (44Q gameStarted 33Q GameOver 15Q GameOver 3 simulator) NIL MainCommInterface.GasFill D1 (I 4 pr I 3 qty I 2 new I 1 prev I 0 self) 0@g Hg ¹HABCDlI@gABCDh (55Q MailOut 20Q FetchMethodOrHelp 6 GetValue) (40Q GasFill 15Q GasFill 3 simulator) NIL MainCommInterface.MaxMove D1 (I 2 maxMove I 1 player I 0 self) -@g Hg ¹HABlI@gA Bh (52Q MailOut 42Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (36Q MaxMove 15Q MaxMove 3 simulator) NIL MainCommInterface.MoveMade D1 (I 6 missTurns I 5 penaltyAmount I 4 reason I 3 toStop I 2 fromStop I 1 playerName I 0 self) œ@g Hg ¹HA BCDEFlI@g Hg ¹HA BCDEFlI@g Hg ¹HA BCDEFlI@gA BCDEFh @g Hg ¹HA lI(224Q GetObjectRec 216Q FetchMethodOrHelp 204Q GetValue 175Q MailOut 155Q GetObjectRec 132Q GetObjectRec 124Q FetchMethodOrHelp 112Q GetValue 70Q GetObjectRec 62Q FetchMethodOrHelp 50Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (213Q UpdateAlice 201Q decisionMaker 151Q MoveMade 121Q MoveMade 107Q playerInterface 57Q MoveMade 45Q decisionMaker 15Q MoveMade 3 simulator) NIL MainCommInterface.MoveRequest D1 (I 4 reason I 3 to I 2 from I 1 player I 0 self) !@g Hg ¹HA BCDlI(26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (15Q MoveRequest 3 decisionMaker) NIL MainCommInterface.NewGame D1 (I 3 gameType I 2 boardType I 1 seed I 0 self) ]@g Hg ¹HABClI@Hg ¹HClI@g Hg ¹HABClI@gABCh (132Q MailOut 100Q FetchMethodOrHelp 66Q GetValue 46Q FetchMethodOrHelp 20Q FetchMethodOrHelp 6 GetValue) (117Q NewGame 75Q NewGame 63Q playerInterface 43Q CreatePlayerInterface 15Q NewGame 3 simulator) NIL MainCommInterface.NewGameRequest D1 (I 1 board I 0 self) @g Hg ¹HAlI(20Q FetchMethodOrHelp 6 GetValue) (15Q NewGameRequest 3 decisionMaker) NIL MainCommInterface.ParkedAtAlice D1 (I 2 time I 1 player I 0 self) -@g Hg ¹HABlI@gA Bh (52Q MailOut 42Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (36Q ParkedAtAlice 15Q ParkedAtAlice 3 simulator) NIL MainCommInterface.ReUseGame D1 (I 1 seed I 0 self) ?@g Hg ¹HAlI@g Hg ¹HkI@gAh (74Q MailOut 52Q FetchMethodOrHelp 40Q GetValue 20Q FetchMethodOrHelp 6 GetValue) (65Q ReUseGame 47Q ReUseGame 35Q playerInterface 15Q ReUseGame 3 simulator) NIL MainCommInterface.ReUseGameRequest D1 (I 0 self) @g Hg ¹HkI(20Q FetchMethodOrHelp 6 GetValue) (15Q ReUseGameRequest 3 decisionMaker) NIL MainCommInterface.RemovePlayer D1 (I 2 reason I 1 playerName I 0 self) H@g Hg ¹HABlI@g Hg ¹HABlI@gA Bh (105Q MailOut 75Q GetObjectRec 53Q FetchMethodOrHelp 41Q GetValue 20Q FetchMethodOrHelp 6 GetValue) (71Q RemovePlayer 50Q RemovePlayer 36Q playerInterface 15Q RemovePlayer 3 simulator) NIL MainCommInterface.RemovePlayerRequest D1 (I 2 reason I 1 player I 0 self) @g Hg ¹HABlI(20Q FetchMethodOrHelp 6 GetValue) (15Q RemovePlayerRequest 3 decisionMaker) NIL MainCommInterface.SellMade D1 (I 7 penaltyAmt I 6 reason I 5 cargoPos I 4 qty I 3 reqQty I 2 roadPosition I 1 playerName I 0 self) ‰@g Hg ¹HA BCDEFGlI@g Hg ¹HA BCDEFGlI@g Hg ¹HA BCDEFGlI@gA BCDEFGh (206Q MailOut 163Q GetObjectRec 136Q GetObjectRec 130Q FetchMethodOrHelp 116Q GetValue 72Q GetObjectRec 64Q FetchMethodOrHelp 52Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (157Q SellMade 125Q SellMade 113Q playerInterface 61Q SellMade 47Q decisionMaker 15Q SellMade 3 simulator) NIL MainCommInterface.SellRequest D1 (I 4 qty I 3 commodityIndex I 2 roadPosition I 1 player I 0 self) !@g Hg ¹HA BCDlI(26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (15Q SellRequest 3 decisionMaker) NIL MainCommInterface.SetInitialParameters D1 (I 0 self) @g gj(15Q PutValue 6 GetValue) (11Q startsAfter 3 decisionMaker) NIL MainCommInterface.SetUp D1 (I 3 display I 2 board I 1 game I 0 self) U@Hg ¹HAlI@Hg ¹HClI@Hg ¹HkI@g Hg ¹HBlI(112Q FetchMethodOrHelp 100Q GetValue 62Q FetchMethodOrHelp 36Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (107Q NewGameRequest 75Q decisionMaker 57Q SetInitialParameters 33Q CreateSimulator 7 CreateDecisionMaker) NIL MainCommInterface.SpoilCargo D1 (I 2 cargoPos I 1 playerName I 0 self) -@g Hg ¹HABlI@gA Bh (52Q MailOut 42Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (36Q SpoilCargo 15Q SpoilCargo 3 simulator) NIL MainCommInterface.StartGame D1 (I 2 endTime I 1 begTime I 0 self) r@g Hg ¹HABlI@g Hg ¹HABlI@g Hg ¹HABlI@Hg ¹HkI@gABh (157Q MailOut 133Q FetchMethodOrHelp 106Q FetchMethodOrHelp 74Q GetValue 53Q FetchMethodOrHelp 41Q GetValue 20Q FetchMethodOrHelp 6 GetValue) (146Q StartGame 130Q StartWorldProcess 103Q StartGame 71Q decisionMaker 50Q StartGame 36Q playerInterface 15Q StartGame 3 simulator) NIL MainCommInterface.WorldProcess D1 (P 21Q x P 2 pendReq P 1 cTime P 0 endTime I 0 self F 22Q \FIXP) 8`g kØ ñhW$ `g ö @g \g »LkK¿@g ^g ½NkM¿@g g@g g Ù@g g @g _g _¿OkO¿Hg ³Y@g _g _¿OkO¿¿@g g ŽdO"g µð@g _g _¿OkO°Ÿ@g _g _¿OilO¿@g @_ g _¿O kOg(450Q FetchMethodOrHelp 437Q PutValue 413Q FetchMethodOrHelp 403Q GetValue 362Q FetchMethodOrHelp 352Q GetValue 336Q PutValue 320Q GetValue 312Q GetValue 302Q BLOCK 264Q FetchMethodOrHelp 254Q GetValue 243Q TIMEREXPIRED? 221Q FetchMethodOrHelp 211Q GetValue 202Q PutValue 174Q GetValue 165Q PutValue 161Q IDATE 156Q GetValue 150Q GetValue 136Q GetValue 120Q FetchMethodOrHelp 111Q GetValue 73Q FetchMethodOrHelp 64Q GetValue 55Q BLOCK 51Q IntervalToEvent 46Q GetValue 35Q \CLOCK0 20Q SETUPTIMER.DATE 15Q GDATE 10Q GetValue) (465Q Done 445Q CleanGameWorld 434Q gameStarted 410Q MonitorGame 400Q decisionMaker 357Q MonitorGame 347Q decisionMaker 333Q staySuspend 315Q suspendedPlayers 307Q playerInterface 261Q ScheduleNextPlayer 251Q playerInterface 240Q SECONDS 216Q CheckLocalPlayers 206Q playerInterface 177Q runningPlayer 171Q playerInterface 153Q endTime 145Q simulator 141Q timeLeft 133Q simulator 115Q RedoGameParameters 106Q simulator 70Q RedoGameParameters 61Q decisionMaker 43Q beginTime 40Q Simulator 5 endTime 2 Simulator) NIL MoveTruckinDM.InitializeGameParameters D1 (I 0 self) T@Hg ¹HkI@ggið›@ghg@g@g ¿oo@g (121Q WriteGameStatus 116Q CONCAT 113Q GetValue 74Q DATE 70Q PutValue 65Q GetInitialValue 51Q PutValue 33Q GetValue 12Q GetSuperMethod) (110Q numMovesRemaining 62Q numMovesRemaining 56Q numMovesRemaining 46Q SetByUser 42Q numMovesRemaining 30Q SetByUser 25Q numMovesRemaining 7 InitializeGameParameters) (104Q "Total Moves: " 100Q " New Simulation! ") MoveTruckinDM.MoveBandits D1 (I 0 self) (@g @g jð´@Hg ¹HkI(37Q GetSuperMethod 20Q IMOD 15Q GetValue 6 GetValue) (34Q MoveBandits 12Q banditFreq 3 numMovesRemaining) NIL MoveTruckinPI.BeginGame D1 (I 2 moves I 1 players I 0 self) 7Bd¥d¡²@gB¿@gig¿@Hg ¹HAlI(54Q GetSuperMethod 40Q PutValue 24Q PutValue) (51Q BeginGame 35Q SetByUser 31Q numMovesRemaining 20Q numMovesRemaining) NIL MoveTruckinPI.RunGameA1963 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 x) RHg ¹HkIh(12Q FetchMethodOrHelp) (7 TakeTurn) NIL MoveTruckinPI.RunGame D1 (P 14Q y P 13Q x P 0 playerRet I 1 players I 0 self F 15Q currentPlayer F 16Q maxMove F 17Q debugMode) n ° @g jó¡ho ¿@g @g jðž@Zg ¹JkI¿@g l jðŸho@g ¿@\g »LkK¿@^g ½NkM¿@g@g kÙ¿@g ±Ôd@gOc¿@gj¿h¿Og g do µñO@g ²*Og o ¿@gO@g °VkOg g c¿W²O_g _¿OkO°'oi X³@_g _¿OOolO¿@g µ‚±ÿ+±þ™(540Q PutValue 507Q FetchMethodOrHelp 473Q MoveTruckinPI.RunGameA1963 447Q FetchMethodOrHelp 426Q RAND 423Q GetClassValue 415Q GetValue 402Q PutValue 377Q REMOVE 374Q GetValue 356Q WriteGameStatus 353Q CONCAT 344Q GetValue 331Q GetValue 313Q DoFringeMethods 276Q GetValue 270Q GetValue 252Q PutValue 237Q PutValue 216Q GetValue 206Q PutValue 201Q GetValue 157Q FetchMethodOrHelp 140Q FetchMethodOrHelp 127Q WriteGameStatus 124Q GetValue 105Q IMOD 100Q GetValue 62Q FetchMethodOrHelp 47Q IMOD 44Q GetValue 35Q GetValue 25Q WaitIfControlKey 11Q GetValue) (535Q lastMoved 504Q RemovePlayer 444Q TakeTurn 420Q MaxDist 412Q truck 371Q loseTurn 363Q loseTurn 341Q driver 326Q loseTurn 273Q cargo 265Q truck 257Q forcedStop 246Q unchargedTime 232Q currentPlayer 213Q players 176Q numMovesRemaining 172Q numMovesRemaining 154Q MoveBandits 135Q CheckAlice 121Q numMovesRemaining 75Q numMovesRemaining 57Q ReplenishQty 41Q replenishFreq 32Q numMovesRemaining 6 numMovesRemaining) (522Q "Player crashed on a Bug" 467Q (DUMMY.FOR.ERRORSET) 350Q " lost his turn" 310Q (y (QUOTE UpdateStatus)) 115Q "Moves Remaining: " 22Q "Beginning of Game Loop") NoDisplayTruckinS.AttachBoard D1 (I 1 gameBoard I 0 self) @Hg ¹HAlIh(12Q GetSuperMethod) (27Q gameWindow 7 AttachBoard) NIL NoDisplayTruckinS.DrivePlayer D1 (L (3 player 2 finalLoc 1 curLoc 0 self)) @NIL NIL NIL NoDisplayTruckinS.UpdateRS D1 (L (1 roadStop 0 self)) ANIL NIL NIL RemoteMasterComm.AddBandit D1 (P 0 msg I 1 name I 0 self) FP@g Zg ¹JAlI¿@g \g »LAlK¿gAhX@H @H h(102Q MailOut 75Q SendOut 47Q FetchMethodOrHelp 40Q GetValue 20Q FetchMethodOrHelp 11Q GetValue) (63Q AddBandit 44Q AddBandit 35Q decisionMaker 15Q AddBandit 6 simulator) NIL RemoteMasterComm.AddPlayer D1 (P 0 msg I 5 deniedFlg I 4 truck I 3 type I 2 name I 1 reqID I 0 self) pp@g Zg ¹JABCDElI¿@g \g »LABCDElK¿gABCDEhX@H @H @g ^g ½NABCDElMh(140Q FetchMethodOrHelp 131Q GetValue 122Q MailOut 115Q SendOut 53Q FetchMethodOrHelp 44Q GetValue 20Q FetchMethodOrHelp 11Q GetValue) (135Q AddPlayer 126Q decisionMaker 73Q AddPlayer 50Q AddPlayer 41Q simulator 15Q AddPlayer 6 playerInterface) NIL RemoteMasterComm.AddPlayerRequest D1 (I 4 truck I 3 type I 2 name I 1 reqID I 0 self) @g Hg ¹HABCDlI(20Q FetchMethodOrHelp 6 GetValue) (15Q AddPlayerRequest 3 decisionMaker) NIL RemoteMasterComm.BeginGameRequest D1 (I 0 self) @g Hg ¹HkI(20Q FetchMethodOrHelp 6 GetValue) (15Q BeginGameRequest 3 decisionMaker) NIL RemoteMasterComm.BreakCargo D1 (P 0 msg I 2 cargoPos I 1 playerName I 0 self) A0@g Zg ¹JA BlI¿@gA Bh @gA Bh h(75Q MailOut 65Q GetObjectRec 55Q SendOut 45Q GetObjectName 26Q GetObjectRec 20Q FetchMethodOrHelp 11Q GetValue) (61Q BreakCargo 41Q BreakCargo 15Q BreakCargo 6 simulator) NIL RemoteMasterComm.BuyMade D1 (I 10Q lifetime I 7 fragility I 6 penaltyAmt I 5 reason I 4 qty I 3 reqQty I 2 roadPosition I 1 playerName I 0 self) ° @g Hg ¹HA BCDEFGGl I@g Hg ¹HA BCDEFGGl I@g Hg ¹HA BCDEFGGl I@gA BCDEFGGh @gA BCDEFGGh (255Q MailOut 227Q GetObjectRec 217Q SendOut 171Q GetObjectName 142Q GetObjectRec 134Q FetchMethodOrHelp 122Q GetValue 74Q GetObjectRec 66Q FetchMethodOrHelp 54Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (223Q BuyMade 165Q BuyMade 131Q BuyMade 117Q playerInterface 63Q BuyMade 51Q decisionMaker 15Q BuyMade 3 simulator) NIL RemoteMasterComm.BuyRequest D1 (I 3 qty I 2 roadPosition I 1 player I 0 self) @g Hg ¹HA BClI(26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (15Q BuyRequest 3 decisionMaker) NIL RemoteMasterComm.GameOver D1 (I 0 self) 3@g Hg ¹HkI@gh @gh @g (60Q PutValue 51Q MailOut 40Q SendOut 20Q FetchMethodOrHelp 6 GetValue) (55Q gameStarted 44Q GameOver 33Q GameOver 15Q GameOver 3 simulator) NIL RemoteMasterComm.GasFill D1 (P 0 msg I 4 pr I 3 qty I 2 new I 1 prev I 0 self) 80@g Zg ¹JABCDlI¿gABCDhX@H @H h(64Q MailOut 57Q SendOut 20Q FetchMethodOrHelp 11Q GetValue) (37Q GasFill 15Q GasFill 6 simulator) NIL RemoteMasterComm.InterimWorldProcess D1 (I 0 self) 5@g ³&@g Hg ¹HkI”@ ¿¿°Õ (62Q DEL.PROCESS 57Q THIS.PROCESS 51Q BLOCK 45Q ReceiveIn 31Q FetchMethodOrHelp 17Q GetValue 6 GetValue) (26Q ReceiveP 14Q postman 3 gameStarted) NIL RemoteMasterComm.MaxMove D1 (I 2 maxMove I 1 player I 0 self) F@g Hg ¹HA BlI@gAdlð¢ Bh @gA Bh (103Q MailOut 73Q GetObjectRec 63Q SendOut 53Q GetObjectName 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (67Q MaxMove 41Q MaxMove 15Q MaxMove 3 simulator) NIL RemoteMasterComm.MoveMade D1 (I 6 missTurns I 5 penaltyAmount I 4 reason I 3 toStop I 2 fromStop I 1 playerName I 0 self) ´@g Hg ¹HA BCDEFlI@g Hg ¹HA BCDEFlI@g Hg ¹HA BCDEFlI@gA BCDEFh @gA BCDEFh @g Hg ¹HA lI(254Q GetObjectRec 246Q FetchMethodOrHelp 234Q GetValue 225Q MailOut 205Q GetObjectRec 175Q SendOut 155Q GetObjectName 132Q GetObjectRec 124Q FetchMethodOrHelp 112Q GetValue 70Q GetObjectRec 62Q FetchMethodOrHelp 50Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (243Q UpdateAlice 231Q decisionMaker 201Q MoveMade 151Q MoveMade 121Q MoveMade 107Q playerInterface 57Q MoveMade 45Q decisionMaker 15Q MoveMade 3 simulator) NIL RemoteMasterComm.MoveRequest D1 (I 4 reason I 3 to I 2 from I 1 player I 0 self) !@g Hg ¹HA BCDlI(26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (15Q MoveRequest 3 decisionMaker) NIL RemoteMasterComm.NewGame D1 (P 0 msg I 3 gameType I 2 boardType I 1 seed I 0 self) _p@g Zg ¹JABClI¿@\g »LClK¿@g ^g ½NABClM¿gABChX@H @H h(133Q MailOut 126Q SendOut 72Q FetchMethodOrHelp 63Q GetValue 43Q FetchMethodOrHelp 20Q FetchMethodOrHelp 11Q GetValue) (110Q NewGame 67Q NewGame 60Q playerInterface 40Q CreatePlayerInterface 15Q NewGame 6 simulator) NIL RemoteMasterComm.NewGameRequest D1 (I 1 board I 0 self) @g Hg ¹HAlI(20Q FetchMethodOrHelp 6 GetValue) (15Q NewGameRequest 3 decisionMaker) NIL RemoteMasterComm.ParkedAtAlice D1 (I 2 time I 1 player I 0 self) @@g Hg ¹HA BlI@gA Bh @gA Bh (75Q MailOut 65Q GetObjectRec 55Q SendOut 45Q GetObjectName 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (61Q ParkedAtAlice 41Q ParkedAtAlice 15Q ParkedAtAlice 3 simulator) NIL RemoteMasterComm.ReUseGame D1 (I 1 seed I 0 self) J@g Hg ¹HAlI@g Hg ¹HkI@gAh @gAh (107Q MailOut 74Q SendOut 52Q FetchMethodOrHelp 40Q GetValue 20Q FetchMethodOrHelp 6 GetValue) (100Q ReUseGame 65Q ReUseGame 47Q ReUseGame 35Q playerInterface 15Q ReUseGame 3 simulator) NIL RemoteMasterComm.ReUseGameRequest D1 (I 0 self) @g Hg ¹HkI(20Q FetchMethodOrHelp 6 GetValue) (15Q ReUseGameRequest 3 decisionMaker) NIL RemoteMasterComm.RemovePlayer D1 (I 2 reason I 1 playerName I 0 self) ^@g Hg ¹HA BlI@g Hg ¹HA BlI@gA Bh @gA Bh (133Q MailOut 123Q GetObjectRec 113Q SendOut 103Q GetObjectName 64Q GetObjectRec 56Q FetchMethodOrHelp 44Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (117Q RemovePlayer 77Q RemovePlayer 53Q RemovePlayer 41Q playerInterface 15Q RemovePlayer 3 simulator) NIL RemoteMasterComm.RemovePlayerRequest D1 (I 2 reason I 1 player I 0 self) @g Hg ¹HA BlI(26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (15Q RemovePlayerRequest 3 decisionMaker) NIL RemoteMasterComm.SellMade D1 (I 7 penaltyAmt I 6 reason I 5 cargoPos I 4 qty I 3 reqQty I 2 roadPosition I 1 playerName I 0 self) ¤@g Hg ¹HA BCDEFGlI@g Hg ¹HA BCDEFGlI@g Hg ¹HA BCDEFGlI@gA BCDEFGh @gA BCDEFGh (241Q MailOut 216Q GetObjectRec 206Q SendOut 163Q GetObjectName 136Q GetObjectRec 130Q FetchMethodOrHelp 116Q GetValue 72Q GetObjectRec 64Q FetchMethodOrHelp 52Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (212Q SellMade 157Q SellMade 125Q SellMade 113Q playerInterface 61Q SellMade 47Q decisionMaker 15Q SellMade 3 simulator) NIL RemoteMasterComm.SellRequest D1 (I 4 qty I 3 commodityIndex I 2 roadPosition I 1 player I 0 self) !@g Hg ¹HA BCDlI(26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (15Q SellRequest 3 decisionMaker) NIL RemoteMasterComm.SetInitialParameters D1 (I 0 self F 0 debugMode) @g gl hc(16Q PutValue 6 GetValue) (11Q startsAfter 3 decisionMaker) NIL RemoteMasterComm.SetUp D1 (I 3 display I 2 board I 1 game I 0 self) y@Hg ¹HAlI@Hg ¹HClI@Hg ¹HkI@Hg ¹HkI@Hg ¹HkI@g Hg ¹HBlI(156Q FetchMethodOrHelp 144Q GetValue 126Q FetchMethodOrHelp 104Q FetchMethodOrHelp 62Q FetchMethodOrHelp 36Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (153Q NewGameRequest 141Q decisionMaker 123Q StartInterimWorldProcess 101Q SetInitialParameters 57Q CreateGateWay 33Q CreateSimulator 7 CreateDecisionMaker) NIL RemoteMasterComm.SpoilCargo D1 (I 2 cargoPos I 1 playerName I 0 self) 0@g Hg ¹HA BlI@gA Bh (55Q MailOut 45Q GetObjectRec 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (41Q SpoilCargo 15Q SpoilCargo 3 simulator) NIL RemoteMasterComm.StartGame D1 (I 2 endTime I 1 begTime I 0 self) @g Hg ¹HABlI@Hg ¹HkI@g Hg ¹HABlI@g Hg ¹HABlI@gABh @gABh (174Q MailOut 157Q SendOut 130Q FetchMethodOrHelp 116Q GetValue 75Q FetchMethodOrHelp 63Q GetValue 45Q FetchMethodOrHelp 20Q FetchMethodOrHelp 6 GetValue) (163Q StartGame 146Q StartGame 125Q StartGame 113Q decisionMaker 72Q StartGame 60Q playerInterface 42Q StartWorldProcess 15Q StartGame 3 simulator) NIL RemoteMasterComm.StartInterimWorldProcess D1 (I 0 self) 1g @g @gg@ghggg` (56Q PutValue 53Q ADD.PROCESS 14Q PutValue 5 DEL.PROCESS) (47Q GameProcRestFlg 44Q RESTARTABLE 41Q InterimWorldProc 36Q NAME 27Q InterimWorldProcess 23Q _ 20Q interimWP 11Q gameStarted 2 InterimWorldProc) NIL RemoteMasterComm.StartWorldProcess D1 (P 0 hand I 0 self) <g g@ghgggi X@gH@giH(70Q GameControlMenu 65Q PutValue 55Q PutValue 44Q ADD.PROCESS 13Q DEL.PROCESS 10Q FIND.PROCESS) (61Q gameStarted 51Q worldProcess 37Q RESTARTABLE 34Q WorldProcess 31Q NAME 22Q WorldProcess 16Q _ 5 WorldProcess) NIL RemoteMasterComm.WorldProcess D1 (P 3 pendReq P 2 cTime P 1 begTime P 0 endTime I 0 self F 26Q \FIXP) k`g W, `g öòPIg ³"@g ]g ¼MkL”@ ¿¿°Ù@g _g ¾OkN¿@g _g _¿OkO¿@g g@g g Ù@g g @g _g _¿OkO¿Hg ³b@g _g _¿OkO¿¿@g _g _¿OkO¿¿@g _"g _ ¿O"kO ”@ ¿°˜@g _&g _$¿O&ilO$¿@g @_*g _(¿O*kO(g(533Q FetchMethodOrHelp 522Q PutValue 476Q FetchMethodOrHelp 466Q GetValue 455Q BLOCK 451Q ReceiveIn 432Q FetchMethodOrHelp 422Q GetValue 412Q BLOCK 374Q FetchMethodOrHelp 364Q GetValue 354Q BLOCK 336Q FetchMethodOrHelp 326Q GetValue 315Q TIMEREXPIRED? 273Q FetchMethodOrHelp 263Q GetValue 254Q PutValue 246Q GetValue 237Q PutValue 233Q IDATE 230Q GetValue 222Q GetValue 210Q GetValue 166Q FetchMethodOrHelp 156Q GetValue 137Q FetchMethodOrHelp 127Q GetValue 115Q BLOCK 111Q ReceiveIn 76Q FetchMethodOrHelp 67Q GetValue 56Q TIMEREXPIRED? 40Q IntervalToEvent 35Q GetValue 24Q \CLOCK0 16Q SETUPTIMER.DATE 13Q GDATE 10Q GetValue) (550Q Done 530Q CleanGameWorld 517Q gameStarted 473Q MonitorGame 463Q decisionMaker 427Q ReceiveP 417Q postman 371Q MonitorGame 361Q decisionMaker 333Q ScheduleNextPlayer 323Q playerInterface 312Q SECONDS 270Q CheckLocalPlayers 260Q playerInterface 251Q runningPlayer 243Q playerInterface 225Q endTime 217Q simulator 213Q timeLeft 205Q simulator 163Q RedoGameParameters 153Q simulator 134Q RedoGameParameters 124Q decisionMaker 73Q ReceiveP 64Q postman 53Q MILLISECONDS 32Q beginTime 27Q Simulator 5 endTime 2 Simulator) NIL RemoteSlaveComm.AddBandit D1 (P 0 msg I 1 name I 0 self) *0@g Zg ¹JAlI¿gAhX@H h(46Q MailOut 20Q FetchMethodOrHelp 11Q GetValue) (34Q AddBandit 15Q AddBandit 6 simulator) NIL RemoteSlaveComm.AddPlayer D1 (P 0 msg I 5 deniedFlg I 4 truck I 3 type I 2 name I 1 reqID I 0 self) QP@g Zg ¹JABCDElI¿@g \g »LABCDElK¿gABCDEhX@H h(115Q MailOut 53Q FetchMethodOrHelp 44Q GetValue 20Q FetchMethodOrHelp 11Q GetValue) (73Q AddPlayer 50Q AddPlayer 41Q simulator 15Q AddPlayer 6 playerInterface) NIL RemoteSlaveComm.AddPlayerRequest D1 (I 4 truck I 3 type I 2 name I 1 reqID I 0 self) @gABCDh (20Q SendOut) (3 AddPlayerRequest) NIL RemoteSlaveComm.BeginGameRequest D1 (I 0 self) #o` ¿` o` ` (40Q TERPRI 32Q PRIN1 20Q TERPRI 11Q PRIN1) (35Q TTY 27Q TTY 15Q TTY 6 TTY) (24Q "Wait till the Master Machine sends a StartGame to your machine" 3 "You cannot start a game from the Slave Machine!!") RemoteSlaveComm.BreakCargo D1 (P 0 msg I 2 cargoPos I 1 playerName I 0 self) 10@g Zg ¹JA BlI¿@gA Bh h(55Q MailOut 45Q GetObjectRec 26Q GetObjectRec 20Q FetchMethodOrHelp 11Q GetValue) (41Q BreakCargo 15Q BreakCargo 6 simulator) NIL RemoteSlaveComm.BuyMade D1 (I 10Q lifetime I 7 fragility I 6 penaltyAmt I 5 reason I 4 qty I 3 reqQty I 2 roadPosition I 1 playerName I 0 self) l @g Hg ¹HA BCDEFGGl I@g Hg ¹HA BCDEFGGl I@gA BCDEFGGh (151Q MailOut 123Q GetObjectRec 74Q GetObjectRec 66Q FetchMethodOrHelp 54Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (117Q BuyMade 63Q BuyMade 51Q playerInterface 15Q BuyMade 3 simulator) NIL RemoteSlaveComm.BuyRequest D1 (I 3 qty I 2 roadPosition I 1 player I 0 self) @gAdlð¢ BCh (27Q SendOut 15Q GetObjectName) (3 BuyRequest) NIL RemoteSlaveComm.GameOver D1 (I 0 self) *@g Hg ¹HkI@gh @g (47Q PutValue 40Q MailOut 20Q FetchMethodOrHelp 6 GetValue) (44Q gameStarted 33Q GameOver 15Q GameOver 3 simulator) NIL RemoteSlaveComm.GasFill D1 (P 0 msg I 4 pr I 3 qty I 2 new I 1 prev I 0 self) 30@g Zg ¹JABCDlI¿gABCDhX@H h(57Q MailOut 20Q FetchMethodOrHelp 11Q GetValue) (37Q GasFill 15Q GasFill 6 simulator) NIL RemoteSlaveComm.InterimWorldProcess D1 (I 0 self) 5@g ³&@g Hg ¹HkI”@ ¿¿°Õ (62Q DEL.PROCESS 57Q THIS.PROCESS 51Q BLOCK 45Q ReceiveIn 31Q FetchMethodOrHelp 17Q GetValue 6 GetValue) (26Q ReceiveP 14Q postman 3 gameStarted) NIL RemoteSlaveComm.MaxMove D1 (I 2 maxMove I 1 player I 0 self) 6@g Hg ¹HA BlI@gAdlð¢ Bh (63Q MailOut 53Q GetObjectName 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (41Q MaxMove 15Q MaxMove 3 simulator) NIL RemoteSlaveComm.MoveMade D1 (I 6 missTurns I 5 penaltyAmount I 4 reason I 3 toStop I 2 fromStop I 1 playerName I 0 self) ^@g Hg ¹HA BCDEFlI@g Hg ¹HA BCDEFlI@gA BCDEFh (133Q MailOut 113Q GetObjectRec 70Q GetObjectRec 62Q FetchMethodOrHelp 50Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (107Q MoveMade 57Q MoveMade 45Q playerInterface 15Q MoveMade 3 simulator) NIL RemoteSlaveComm.MoveRequest D1 (I 4 reason I 3 to I 2 from I 1 player I 0 self) @gAdlð¢ BCDh (31Q SendOut 15Q GetObjectName) (3 MoveRequest) NIL RemoteSlaveComm.NewGame D1 (I 3 gameType I 2 boardType I 1 seed I 0 self) ]@g Hg ¹HABClI@Hg ¹HClI@g Hg ¹HABClI@gABCh (132Q MailOut 100Q FetchMethodOrHelp 66Q GetValue 46Q FetchMethodOrHelp 20Q FetchMethodOrHelp 6 GetValue) (117Q NewGame 75Q NewGame 63Q playerInterface 43Q CreatePlayerInterface 15Q NewGame 3 simulator) NIL RemoteSlaveComm.NewGameRequest D1 (I 1 board I 0 self) o` o` ` (31Q TERPRI 23Q PRIN1 11Q PRIN1) (26Q TTY 20Q TTY 6 TTY) (15Q " Master Machine" 3 "Requests for new games can only be generated at the") RemoteSlaveComm.ParkedAtAlice D1 (I 2 time I 1 player I 0 self) 0@g Hg ¹HA BlI@gA Bh (55Q MailOut 45Q GetObjectRec 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (41Q ParkedAtAlice 15Q ParkedAtAlice 3 simulator) NIL RemoteSlaveComm.ReUseGame D1 (I 1 seed I 0 self) ?@g Hg ¹HAlI@g Hg ¹HkI@gAh (74Q MailOut 52Q FetchMethodOrHelp 40Q GetValue 20Q FetchMethodOrHelp 6 GetValue) (65Q ReUseGame 47Q ReUseGame 35Q playerInterface 15Q ReUseGame 3 simulator) NIL RemoteSlaveComm.ReUseGameRequest D1 (I 0 self) "o` ` o` ` (37Q TERPRI 31Q PRIN1 17Q TERPRI 11Q PRIN1) (34Q TTY 26Q TTY 14Q TTY 6 TTY) (23Q " ONLY at the Master Machine" 3 "Request to ReUse existing board can be given") RemoteSlaveComm.RemovePlayer D1 (I 2 reason I 1 playerName I 0 self) N@g Hg ¹HA BlI@g Hg ¹HA BlI@gA Bh (113Q MailOut 103Q GetObjectRec 64Q GetObjectRec 56Q FetchMethodOrHelp 44Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (77Q RemovePlayer 53Q RemovePlayer 41Q playerInterface 15Q RemovePlayer 3 simulator) NIL RemoteSlaveComm.RemovePlayerRequest D1 (I 2 reason I 1 player I 0 self) @gA Bh (17Q SendOut 7 GetObjectName) (3 RemovePlayerRequest) NIL RemoteSlaveComm.SellMade D1 (I 7 penaltyAmt I 6 reason I 5 cargoPos I 4 qty I 3 reqQty I 2 roadPosition I 1 playerName I 0 self) e@g Hg ¹HA BCDEFGlI@g Hg ¹HA BCDEFGlI@gA BCDEFGh (142Q MailOut 117Q GetObjectRec 72Q GetObjectRec 64Q FetchMethodOrHelp 52Q GetValue 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (113Q SellMade 61Q SellMade 47Q playerInterface 15Q SellMade 3 simulator) NIL RemoteSlaveComm.SellRequest D1 (I 4 qty I 3 commodityIndex I 2 roadPosition I 1 player I 0 self) @gAdlð¢ BCDh (31Q SendOut 15Q GetObjectName) (3 SellRequest) NIL RemoteSlaveComm.SetInitialParameters D1 (L (0 self) F 0 debugMode) icdNIL (6 timeTrace) NIL RemoteSlaveComm.SetUp D1 (I 3 display I 2 board I 1 game I 0 self) K@Hg ¹HClI@Hg ¹HkI@Hg ¹HkI@Hg ¹HkI(102Q FetchMethodOrHelp 60Q FetchMethodOrHelp 36Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (77Q StartInterimWorldProcess 55Q SetInitialParameters 33Q CreateGateWay 7 CreateSimulator) NIL RemoteSlaveComm.SpoilCargo D1 (I 2 cargoPos I 1 playerName I 0 self) 0@g Hg ¹HA BlI@gA Bh (55Q MailOut 45Q GetObjectRec 26Q GetObjectRec 20Q FetchMethodOrHelp 6 GetValue) (41Q SpoilCargo 15Q SpoilCargo 3 simulator) NIL RemoteSlaveComm.StartGame D1 (I 2 endTime I 1 begTime I 0 self) n@g Hg ¹HABlI@Hg ¹HkI@g Hg ¹HABlI@gABh @g Hg ¹HkI(145Q FetchMethodOrHelp 133Q GetValue 124Q MailOut 75Q FetchMethodOrHelp 63Q GetValue 45Q FetchMethodOrHelp 20Q FetchMethodOrHelp 6 GetValue) (142Q SelectPlayers 130Q playerInterface 113Q StartGame 72Q StartGame 60Q playerInterface 42Q StartWorldProcess 15Q StartGame 3 simulator) NIL RemoteSlaveComm.StartInterimWorldProcess D1 (I 0 self) 1g @g @gg@ghggg` (56Q PutValue 53Q ADD.PROCESS 14Q PutValue 5 DEL.PROCESS) (47Q GameProcRestFlg 44Q RESTARTABLE 41Q InterimWorldProc 36Q NAME 27Q InterimWorldProcess 23Q _ 20Q interimWP 11Q gameStarted 2 InterimWorldProc) NIL RemoteSlaveComm.StartWorldProcess D1 (P 0 hand I 0 self) <g g@ghgggi X@gH@giH(70Q GameControlMenu 65Q PutValue 55Q PutValue 44Q ADD.PROCESS 13Q DEL.PROCESS 10Q FIND.PROCESS) (61Q gameStarted 51Q worldProcess 37Q RESTARTABLE 34Q WorldProcess 31Q NAME 22Q WorldProcess 16Q _ 5 WorldProcess) NIL RemoteSlaveComm.WorldProcess D1 (P 22Q x P 3 pendReq P 2 cTime P 1 begTime P 0 endTime I 0 self F 23Q \FIXP) ‘`g W& `g öòIg ³"@g ]g ¼MkL”@ ¿¿°Ù@g _g ¾OkN¿@g g@g g Ù@g g @g _g _¿OkO¿Hg ’±»@g _g _¿OkO¿¿@g g °BdO$g [²0O$g ¿O$gg¿O$gKg¿@KK¿µ¿@g _g _¿OkO”@ ¿±ÿb@g _g _¿OkO”@ ¿¿@g ³Ö@_"g _ ¿O"kO g(601Q FetchMethodOrHelp 566Q GetValue 556Q BLOCK 552Q ReceiveIn 533Q FetchMethodOrHelp 523Q GetValue 511Q BLOCK 505Q ReceiveIn 466Q FetchMethodOrHelp 456Q GetValue 441Q ApplyMethod 430Q PutValue 413Q PutValue 405Q IDATE 374Q PutValue 361Q GetValue 342Q GetValue 334Q GetValue 324Q BLOCK 306Q FetchMethodOrHelp 276Q GetValue 263Q TIMEREXPIRED? 241Q FetchMethodOrHelp 231Q GetValue 222Q PutValue 214Q GetValue 205Q PutValue 201Q IDATE 176Q GetValue 170Q GetValue 156Q GetValue 137Q FetchMethodOrHelp 127Q GetValue 115Q BLOCK 111Q ReceiveIn 76Q FetchMethodOrHelp 67Q GetValue 56Q TIMEREXPIRED? 40Q IntervalToEvent 35Q GetValue 24Q \CLOCK0 16Q SETUPTIMER.DATE 13Q GDATE 10Q GetValue) (616Q Done 576Q CleanGameWorld 563Q gameStarted 530Q ReceiveP 520Q postman 463Q ReceiveP 453Q postman 425Q inProcess 421Q pendingRequest 410Q whenSent 402Q pendingRequest 371Q pendingRequest 356Q pendingRequest 337Q suspendedPlayers 331Q playerInterface 303Q ScheduleNextPlayer 273Q playerInterface 260Q SECONDS 236Q CheckLocalPlayers 226Q playerInterface 217Q runningPlayer 211Q playerInterface 173Q endTime 165Q simulator 161Q timeLeft 153Q simulator 134Q RedoGameParameters 124Q simulator 73Q ReceiveP 64Q postman 53Q MILLISECONDS 32Q beginTime 27Q Simulator 5 endTime 2 Simulator) NIL SlaveTruckin D1 (I 0 displayFlg F 2 debugMode) ,g Hg ¹Hhd@‘d‚glIhcg(17Q FetchMethodOrHelp 5 GetObjectRec) (51Q PlayerProcRestFlg 46Q HARDRESET 32Q NoDisplayTruckinS 14Q New 2 SlaveTruckin) NIL TimeTruckinDM.ChargeTime D1 (P 1 charge P 0 time I 2 clockTime I 1 player I 0 self F 4 HandicapRatio F 5 debugTimeTrace) Î@Bµ@g °Y@g Ag ØÙXTÖnôÔnè×jØXY@g ýó˜@g °'H@g ó²@[g ºKAoI lJ¿j¹AgIAg Ø@g@g IÙU²$oAg oB oH ¿`²oAg oIoI(312Q WriteGameStatus 307Q CONCAT 273Q GetValue 252Q WriteGameStatus 247Q CONCAT 237Q CONCAT 227Q CONCAT 224Q GetValue 206Q PutValue 201Q GetValue 166Q PutValue 162Q GetValue 136Q CONCAT 123Q FetchMethodOrHelp 110Q GetClassValue 76Q GetClassValue 64Q GetClassValue 34Q GetClassValue 25Q GetValue 14Q GetClassValue) (270Q driver 256Q timeTrace 221Q driver 176Q timeRemaining 172Q timeRemaining 157Q timeUsed 152Q timeUsed 120Q RemovePlayer 105Q MaxMoveTime 73Q MinMoveTime 61Q MinMoveTime 31Q Handicap 22Q unchargedTime 11Q MinMoveTime) (304Q " sec" 277Q " " 264Q "Time Charged to: " 243Q "Used(sec)" 233Q "Clock(ms) " 215Q "Time Used: by " 132Q "Too much time taken ") TimeTruckinDM.CheckAlice D1 (P 12Q reason P 11Q msg P 10Q time P 7 loc P 2 parked P 1 x I 1 player I 0 self) Ü@g qHµh¹o±¸d_¿0 IO Z¢±£IOgjó¢±”IOgÙ_@ggó²woO _²jg_²c@g \g »LkK²?JOhko ¿@^g ½NJI@g @g @g OlMŒJOhko ¿µ‚±ÿGHX±ÿ3(312Q BrokenRules 265Q FindLocIndex 262Q GetValue 253Q GetValue 244Q FindLocIndex 241Q GetValue 226Q FetchMethodOrHelp 215Q BrokenRules 170Q FetchMethodOrHelp 161Q GetValue 137Q CONCAT 123Q GetValue 106Q GetValue 75Q IDATE 64Q GetValue 46Q GetValue 6 GetValue) (257Q roadStops 250Q unionHall 236Q roadStops 223Q MoveRequest 165Q RoomToPark? 156Q unionHall 146Q AliceTime 120Q MaxTime 115Q aliceStay 103Q timeParked 61Q howLong 3 alices) (306Q "Will be moved to UnionHall next turn" 211Q "Forcibly moved to UnionHall" 132Q "Spent too much time at Alice: " 25Q (parkingPlace1 parkingPlace2)) TimeTruckinDM.InitializeGameParameters D1 (I 0 self) 6@Hg ¹HkI@g@g g@g@g g(63Q PutValue 55Q GetValue 42Q PutValue 34Q GetValue 12Q GetSuperMethod) (60Q LastTime 52Q beginTime 46Q banditFreq 37Q LastTime 31Q beginTime 25Q replenishFreq 7 InitializeGameParameters) NIL TimeTruckinDM.MoveBandits D1 (P 0 ctime I 0 self) 9!H@ggÙ@g ñ´@gHg¿@Zg ¹JkIh(57Q GetSuperMethod 46Q PutValue 30Q GetValue 20Q GetValue 2 IDATE) (54Q MoveBandits 43Q LastTime 37Q banditFreq 25Q banditFreq 15Q LastTime 12Q banditFreq) NIL TimeTruckinDM.RedoGameParameters D1 (I 0 self) C@Hg ¹HkI@g@g @g @ggÚÚ@ggh(77Q PutValue 65Q PutValue 60Q GetValue 46Q LENGTH 43Q GetValue 34Q GetClassValue 12Q GetSuperMethod) (74Q ? 71Q replenishFreq 55Q BanditFactor 52Q banditFreq 40Q players 31Q MinMoveTime 25Q banditFreq 7 RedoGameParameters) NIL TimeTruckinDM.ReplenishQty D1 (P 0 ctime I 0 self) 9!H@ggÙ@g ñ´@gHg¿@Zg ¹JkIh(57Q GetSuperMethod 46Q PutValue 30Q GetValue 20Q GetValue 2 IDATE) (54Q ReplenishQty 43Q LastTime 37Q replenishFreq 25Q replenishFreq 15Q LastTime 12Q replenishFreq) NIL TimeTruckinPI.BeginGame D1 (I 3 time I 2 moves I 1 players I 0 self) LBd¥d¡˜@gB¿Cd¥d¡²@gC¿@gig¿@Hg ¹HAlI(101Q GetSuperMethod 65Q PutValue 51Q PutValue 23Q PutValue) (76Q BeginGame 62Q SetByUser 56Q timeRemaining 45Q timeRemaining 17Q avgNumMoves) NIL TimeTruckinPI.RunGameA2184 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 currPlayer) RHg ¹HkIh(12Q FetchMethodOrHelp) (7 TakeTurn) NIL TimeTruckinPI.RunGame D1 (P 27Q y P 26Q p P 25Q minTimeSoFar P 3 playerRet P 2 chargeTime P 1 begTime P 0 currPlayer I 1 players I 0 self F 30Q currentPlayer F 31Q maxMove F 32Q debugMode) ÒðP@g jó¡ho ¿@g l jðŸho@g ¿@]g ¼MkL¿@_g ¾OkN¿@g oO(µ"@gHc0¿h¿Hg g °1_,g O*ýñ›O,Xg _*¿O(_(°¾do µñ@gj¿H@g ²FHg o ¿@_g _¿OHlOº@gH@g ¿@g °{kHg g c2¿¹W4²H_g _¿OkO°&oi [³@_g _¿OHolO¿@g ¿@_g _¿OHIÙlOZ¿HgHg kØ¿@_"g _ ¿O"HJlO ¿@_&g _$¿O&HlO$¿±þ8(700Q FetchMethodOrHelp 651Q FetchMethodOrHelp 637Q PutValue 632Q GetValue 605Q CLOCK 574Q FetchMethodOrHelp 562Q PutValue 532Q FetchMethodOrHelp 516Q TimeTruckinPI.RunGameA2184 472Q FetchMethodOrHelp 454Q CLOCK 446Q RAND 443Q GetClassValue 435Q GetValue 423Q PutValue 413Q PutValue 410Q REMOVE 405Q GetValue 354Q FetchMethodOrHelp 342Q WriteGameStatus 337Q CONCAT 330Q GetValue 316Q GetValue 305Q PutValue 270Q DoFringeMethods 242Q GetValue 224Q GetValue 211Q GetValue 203Q GetValue 166Q PutValue 137Q GetValue 120Q FetchMethodOrHelp 100Q FetchMethodOrHelp 67Q WriteGameStatus 64Q GetValue 45Q IMOD 40Q GetValue 30Q WaitIfControlKey 14Q GetValue) (675Q CheckAlice 646Q UpdateAlice 627Q movesMade 623Q movesMade 571Q ChargeTime 557Q lastMoved 527Q RemovePlayer 467Q TakeTurn 440Q MaxDist 432Q truck 420Q lastMoved 402Q loseTurn 375Q loseTurn 351Q ChargeTime 325Q driver 313Q loseTurn 301Q unchargedTime 237Q timeUsed 221Q timeUsed 206Q cargo 200Q truck 173Q forcedStop 160Q currentPlayer 134Q players 115Q MoveBandits 75Q ReplenishQty 61Q timeRemaining 35Q timeRemaining 11Q timeRemaining) (544Q "Player crashed on a Bug" 512Q (DUMMY.FOR.ERRORSET) 334Q " lost his turn" 265Q (y (QUOTE UpdateStatus)) 143Q 46113200Q 55Q "Time Remaining: " 25Q "Beginning of Game Loop") TruckinBoard.AssignRoadStops D1 (P 27Q i P 25Q x P 6 count P 5 stillNeeded P 4 rs P 3 stops P 2 numStopsKnown P 1 availRS P 0 numStopsWanted I 0 self F 30Q BoardPattern F 31Q MustStops F 32Q StopsNotUsed) ‚@g @g Ú ò@Hk_¿_¿OOñ´#Kkg _g _¿OkOW0°4K»OkØ_°ÑdKd g _g _¿OkOµØW2°(dKd O* _g _¿OkOµÙKj_ ¿_µ9O ] Yd Zl MO,O.ñ²+kl O,O.ñ²_Ic4@gK¦O kØ_ ¿O°¸IkJ ¼O.Jñ©LI Y ºKd L _$g _"¿O$kO"¿O.kÙ_.¿°IkJ ¼O.Jñ©LI Y ºKd L _(g _&¿O(kO&¿O.kÙ_.¿±ÿ\(565Q SubstituteStop 550Q FetchMethodOrHelp 540Q GetClassRec 534Q FindFirstNIL 526Q FLENGTH 522Q DREMOVE 506Q NTH 503Q RAND 463Q SubstituteStop 446Q FetchMethodOrHelp 436Q GetClassRec 432Q FindRandomNIL 424Q FLENGTH 420Q DREMOVE 404Q NTH 401Q RAND 354Q PutValue 304Q FLENGTH 277Q FillerRoadStops 274Q DefaultMustStops 247Q SubstituteStop 232Q FetchMethodOrHelp 222Q GetObjectRec 215Q FindRandomNIL 172Q SubstituteStop 155Q FetchMethodOrHelp 145Q GetObjectRec 137Q FindRandomNIL 106Q SubstituteStop 71Q FetchMethodOrHelp 61Q GetObjectRec 24Q \APPEND2 21Q SetRoadStops 15Q GetClassValue 6 GetClassValue) (545Q New 443Q New 350Q roadStops 227Q New 152Q New 142Q AlicesRestaurant 66Q New 56Q UnionHall 12Q numColumns 3 numRows) NIL TruckinBoard.AttachToGame D1 (P 0 prevGame I 1 game I 0 self) *0@g Xd žHZg ¹JkI¿@gAH(46Q PutValue 27Q FetchMethodOrHelp 16Q GetObjectRec 11Q GetValue) (42Q simulator 24Q UnattachBoard 6 simulator) NIL TruckinBoard.CreateGameBoard D1 (I 2 title I 1 region I 0 self) :AB @g`@Hg ¹HkI@Hg ¹HkI`(56Q FetchMethodOrHelp 34Q FetchMethodOrHelp 21Q PutValue 4 CREATEW) (67Q gameWindow 53Q MakeDriveBitMaps 31Q InitializeGameWindow 16Q gameWindow 13Q gameWindow 7 gameWindow) NIL TruckinBoard.DisplayGameBoard D1 (P 20Q roadStop P 7 height P 6 width P 5 region P 4 date P 3 k P 2 yExtra P 1 xExtra P 0 xMargin I 0 self) üll ljµ@g d’±‘I@g g g ÚØ¾J@g g g g g ØÚØ_¿l dNOh½@gM¿@_g _¿OMooLll oo lO°@_g _¿OkO¿@_g _¿OkO¿@g °dO _g _¿OkOµä@(351Q FetchMethodOrHelp 330Q GetValue 306Q FetchMethodOrHelp 262Q FetchMethodOrHelp 236Q CONCAT 232Q DATE 217Q CONCAT 214Q SUBSTRING 166Q FetchMethodOrHelp 154Q PutValue 122Q GetClassValue 114Q GetObjectRec 106Q GetClassValue 100Q GetObjectRec 72Q GetClassValue 57Q GetClassValue 51Q GetObjectRec 43Q GetClassValue 23Q GetValue 11Q DATE) (346Q Display 325Q roadStops 303Q DrawRoadMarks 257Q InitializeGameWindow 247Q gameWindow 163Q CreateGameBoard 150Q windowRegion 117Q Height 111Q Player 103Q Height 75Q RoadStop 67Q numRows 54Q Width 46Q RoadStop 40Q numColumns 26Q gameWindow 20Q gameWindow) (227Q " " 223Q " Xerox Corp" 204Q "19" 200Q "TRUCKIN Knowledge System. Created by: DANIEL BOBROW, SANJAY MITTAL, and MARK STEFIK. Copyright (c) ") TruckinBoard.InitializeRoadStops D1 (P 0 x I 1 seed I 0 self) (A @g °d!HZg ¹JkIµêh(31Q FetchMethodOrHelp 12Q GetValue 3 RANDSET) (26Q Initialize 7 roadStops) NIL TruckinBoard.MakeDriveBitMaps D1 (I 0 self) k (3 MakeDriveBitMaps) NIL NIL TruckinBoard.NewBoard D1 (I 1 seed I 0 self) VA h@Hg ¹HkI@Hg ¹HkI@Hg ¹HkI@Hg ¹HlI@(115Q RANDSET 110Q FetchMethodOrHelp 66Q FetchMethodOrHelp 44Q FetchMethodOrHelp 22Q FetchMethodOrHelp 3 RANDSET) (105Q InitializeRoadStops 63Q PlaceRoadStops 41Q AssignRoadStops 17Q Initialize 7 gameWindow) NIL TruckinBoard.PlaceRoadStops D1 (P 23Q col P 21Q col P 17Q row P 11Q prev P 10Q yIncr P 7 xIncr P 6 y P 5 x P 4 roadStop P 3 milePost P 2 roadStops P 1 numColumns P 0 numRows I 0 self) '@g @g @g j¤ g g g g Ø_g g _HOÚ^kHOOñ’±Òj½NOÙ¾IkO"O ñ³PJJº¼Oµg g@ghggg` X@gH@giH(72Q GameControlMenu 67Q PutValue 57Q PutValue 46Q ADD.PROCESS 13Q DEL.PROCESS 10Q FIND.PROCESS) (63Q gameStarted 53Q worldProcess 42Q GameProcRestFlg 37Q RESTARTABLE 34Q WorldProcess 31Q NAME 22Q WorldProcess 16Q _ 5 WorldProcess) NIL TruckinCommInterface.TellMe D1 (I 1 obj I 0 self) BA ´@g @g ò`g µg ^g ½NkMZAjð²?ho ¿H_g _¿OkO²H_g _¿OJlO¿nÜ ¿H…IA »Bjð‘H…IB ¼K_g _¿OJlO²K_g _¿OJlO¿KLJLdHð²K_ g _¿O kO²jL_$g _"¿O$JlO"¿nÜ ¿L_(g _&¿O(JlO&¿°5_,g _*¿O,JlO*¿lÈ ¿LgC¿LgD¿n, L(472Q DISMISS 463Q PutValue 452Q PutValue 441Q DISMISS 417Q FetchMethodOrHelp 370Q FetchMethodOrHelp 356Q DISMISS 333Q FetchMethodOrHelp 306Q FetchMethodOrHelp 270Q Drive 245Q FetchMethodOrHelp 216Q FetchMethodOrHelp 203Q NTH 166Q NTH 156Q DISMISS 133Q FetchMethodOrHelp 106Q FetchMethodOrHelp 74Q WriteGameStatus 50Q FetchMethodOrHelp 41Q GetObjectRec 31Q GetObjectRec 15Q GetValue 6 GetValue) (457Q pr 446Q qty 414Q Park 365Q Unpark 330Q Crash 303Q RoomToPark? 242Q Unpark 213Q Parked? 130Q Crash 103Q RoomToPark? 45Q New 36Q GasPlayer 26Q Gas 12Q roadStops 3 unionHall) (71Q "Here comes the GasMan!") TruckinSimulator.GiveAliceBonus D1 (P 0 p I 1 atAlice I 0 self) Bo@g A°-dHg gHg g @g ÖjØµÔh(71Q PutValue 63Q GetClassValue 54Q GetValue 46Q GetValue 34Q GetValue 15Q WriteGameStatus 12Q GetClassValue) (60Q AliceBonus 51Q cashBox 43Q truck 37Q cashBox 31Q truck 7 AliceBonus) (3 "Their cashbox multiplied by ") TruckinSimulator.Initialize D1 (P 2 x I 0 self) i@g ²@g Hg ¹HkI@g °+dAJ\g »LglKžJ^g ½NkM¿µÖ@Hg ¹HkI(140Q GetSuperMethod 111Q FetchMethodOrHelp 66Q FetchMethodOrHelp 47Q GetValue 31Q FetchMethodOrHelp 17Q GetValue 6 GetValue) (135Q Initialize 106Q Destroy 73Q RemotePlayer 63Q InstOf! 44Q players 26Q Close 14Q barChart 3 barChart) NIL TruckinSimulator.MaxMove D1 (I 2 maxMove I 1 player I 0 self) AgB(7 PutValue) (3 maxMove) NIL TruckinSimulator.MoveMade D1 (P 20Q y P 3 dist P 2 finalLoc P 1 curLoc P 0 truck I 6 missTurn I 5 penaltyAmt I 4 reason I 3 to I 2 from I 1 player I 0 self) LAg ñAgAg kØA]g ¼MglL²!Ag g do µñBC ²VA_g ¾OglN²@AoD EF¿Dgð´)Ag oAg g oB hBjó´@g B Y@g C ZBCÙ_¿jOñ¢OƒjOÙ[HgHg KHg ÚÙ_¿jOñ¢O€jIµJ_g _¿OADlOJ_g _¿OAlO¿@_g _¿OIJAlO¿°¸(471Q FetchMethodOrHelp 443Q FetchMethodOrHelp 423Q IDATE 411Q FetchMethodOrHelp 375Q PutValue 354Q GetClassValue 344Q GetValue 304Q NTH 300Q GetValue 267Q NTH 263Q GetValue 245Q WriteGameStatus 242Q CONCAT 232Q CONCAT 227Q GetValue 221Q GetValue 206Q GetValue 167Q BrokenRules 162Q CONCAT 134Q FetchMethodOrHelp 121Q EQUAL 107Q DoFringeMethods 72Q GetValue 64Q GetValue 41Q FetchMethodOrHelp 31Q PutValue 24Q GetValue 6 GetValue) (466Q DrivePlayer 440Q Unpark 406Q Visit 351Q Gpm 341Q fuel 335Q fuel 275Q roadStops 260Q roadStops 224Q location 216Q truck 203Q driver 174Q IncorrectLoc 142Q Player 131Q InstOf! 67Q cargo 61Q truck 46Q Player 36Q InstOf! 21Q movesMade 15Q movesMade 3 truck) (236Q " thinks he is at stop# " 212Q " located at: " 156Q "Move not made: " 104Q (y (QUOTE UpdateStatus))) TruckinSimulator.NewGame D1 (P 20Q x P 0 gb I 2 board I 1 seed I 0 self) ÎÐB Zg ¹J@lIXdhH\g »LAlK¿@^g ½NHlM¿@_g _¿OkO¿@_g _¿OkO¿@g0@g °9dO _g _¿OglO²d_¿Oµ Oh_‚O&_¿µÈO@g@g @(312Q PutValue 306Q GetValue 273Q PutValue 212Q FetchMethodOrHelp 171Q GetValue 140Q FetchMethodOrHelp 114Q FetchMethodOrHelp 72Q FetchMethodOrHelp 51Q FetchMethodOrHelp 41Q SetMachineDepPara 15Q FetchMethodOrHelp 6 GetClassRec) (303Q roadStops 277Q unionHall 222Q AlicesRestaurant 207Q InstOf! 166Q roadStops 157Q alices 135Q SetUpGauges 111Q Initialize 67Q AttachBoard 46Q NewBoard 36Q gameWindow 32Q GameBoard 12Q New) NIL TruckinSimulator.ParkedAtAlice D1 (P 2 loc P 1 x I 2 time I 1 player I 0 self) 4oAg g HµhºAIJ ð™IJBg¿HX°ä(54Q PutValue 41Q GetValue 20Q GetValue 12Q GetValue) (51Q timeParked 15Q location 7 truck) (3 (parkingPlace1 parkingPlace2)) TruckinSimulator.ReUseGame D1 (I 1 seed I 0 self) -@g Hg ¹HAlI@Hg ¹HkI(44Q FetchMethodOrHelp 20Q FetchMethodOrHelp 6 GetValue) (41Q Initialize 15Q ReUseBoard 3 gameBoard) NIL TruckinSimulator.RedoGameParameters D1 (P 3 classForMethod P 2 obj% I 0 self) W@g µN@gg Hg ¹HkI!Jg ¼J@g gonN oholL¿J(124Q PutValue 66Q GetValue 55Q FetchMethodOrHelp 34Q FetchMethodOrHelp 22Q GetObjectRec 6 GetValue) (71Q cashBox 63Q players 52Q SetUp 31Q New 17Q SSBarChart 14Q barChart 3 barChart) (111Q (656Q . 1166Q) 104Q (truck) 75Q "CashBox of Players") TruckinSimulator.RemovePlayer D1 (P 0 pobj I 2 reason I 1 player I 0 self) 8A!H@g @g Zg ¹JHlI¿Ag oBA(64Q WriteGameStatus 54Q GetValue 34Q FetchMethodOrHelp 25Q GetValue 16Q DREMOVE 13Q GetValue) (51Q driver 31Q RemovePlayer 22Q gameBoard 10Q players) (60Q "Removed from game: ") TruckinSimulator.SellMade D1 (P 2 commodity P 1 loc P 0 truck I 7 penalty I 6 reason I 5 cargoPosition I 4 qty I 3 reqQty I 2 roadPosition I 1 player I 0 self) QAg @g B 2DjðŸAoF GhHg E Zd[g ¼KIdg DlL(110Q GetValue 76Q FetchMethodOrHelp 64Q NTH 60Q GetValue 47Q BrokenRules 42Q CONCAT 21Q NTH 15Q GetValue 6 GetValue) (105Q pr 73Q TransferOwner 55Q cargo 12Q roadStops 3 truck) (36Q "Unable to sell: ") TruckinSimulator.SetUpGauges D1 (I 0 self) @Hg ¹HgiolI(12Q FetchMethodOrHelp) (17Q timeLeft 7 AddGauges) (24Q "Time Remaining (sec)") TruckinSimulator.SpoilCargo D1 (P 1 commod P 0 truck I 2 commodIndex I 1 player I 0 self) LAg Hg B Ydg Ag o Ig oI ooh(110Q WriteGameStatus 101Q CONCAT 72Q ClassName 62Q GetValue 53Q CONCAT 44Q GetValue 35Q PutValue 24Q NTH 20Q GetValue 6 GetValue) (57Q qty 41Q driver 32Q status 15Q cargo 3 truck) (105Q " just perished. Tch! Tch!" 76Q " units" 66Q " " 50Q "'s cargo of: ") TruckinSimulator.StartClockProcess D1 (I 0 self) &g g@ghggg` (43Q ADD.PROCESS 10Q DEL.PROCESS 5 FIND.PROCESS) (37Q GameProcRestFlg 34Q RESTARTABLE 31Q GameClock 26Q NAME 17Q ClockProcess 13Q _ 2 GameClock) NIL TruckinSimulator.StartGame D1 (I 2 endTime I 1 begTime I 0 self) e@gA@gB@gBAÙ@Hg ¹HkIo o@g o@g @gi(142Q PutValue 132Q WriteGameStatus 127Q CONCAT 124Q GDATE 121Q GetValue 106Q CONCAT 103Q GDATE 100Q GetValue 65Q WriteGameStatus 56Q DATE 44Q FetchMethodOrHelp 31Q PutValue 17Q PutValue 7 PutValue) (136Q gameRunningFlg 116Q endTime 75Q beginTime 41Q StartClockProcess 23Q timeLeft 13Q endTime 3 beginTime) (112Q "Game will end at: " 71Q "Game Begins at: " 62Q " New Simulation!") TruckinSimulator.UnattachBoard D1 (I 0 self) @gg@g (20Q PutValue 11Q PutValue) (15Q roadStops 6 ? 3 gameBoard) NIL TruckinSimulator.UpdateRS D1 (I 1 roadStop I 0 self) AHg ¹HkI(12Q FetchMethodOrHelp) (7 DisplayData) NIL TruckinSimulator.WhoWon D1 (P 17Q y P 13Q x P 1 winner P 0 atAlice I 0 self F 20Q PPDefault) f€lh`¿`` ¿o` ¿`` ¿` ho 0 @g °Od0o°*dOO ´OO h_šOµfO__¿µ×O_šOµEO__¿µ²OXo` ¿` ¿` o @[g ºKHlJ¿H±‡ _O°» _O°šd`` ¿Og ` ¿l` ¿o` ¿Og g ` ¿` ¿Og oOg g µW ¿`W ¿oW ¿W @g °9dO]g ¼MkL¿`²`²O_g ¾O`lN¿µÈW @g XdYH°(dOg g Ig g ó’O¹µØ`` ¿o` ¿Ig ` ¿oIg g ` ¿`` ¿` oIg oIg g I(1142Q WriteGameStatus 1137Q CONCAT 1134Q GetValue 1126Q GetValue 1113Q GetValue 1100Q TERPRI 1071Q CHANGEFONT 1057Q PRIN1 1051Q CONCAT 1046Q GetValue 1040Q GetValue 1024Q PRIN1 1016Q GetValue 1006Q PRIN1 773Q CHANGEFONT 750Q GetValue 742Q GetValue 733Q GetValue 725Q GetValue 701Q GetValue 672Q TERPRI 644Q FetchMethodOrHelp 611Q FetchMethodOrHelp 571Q GetValue 562Q TERPRI 554Q PRIN1 542Q CHANGEFONT 531Q TERPRI 517Q WriteGameStatus 514Q CONCAT 511Q GetValue 503Q GetValue 467Q GetValue 456Q TERPRI 447Q PRIN1 441Q GetValue 433Q GetValue 422Q PRIN1 407Q SPACES 376Q PRIN1 370Q GetValue 357Q CHANGEFONT 332Q LAST 320Q LAST 300Q FetchMethodOrHelp 270Q WriteGameStatus 261Q TERPRI 252Q TERPRI 243Q PRIN1 150Q GetValue 137Q GetValue 103Q GetValue 71Q WriteGameStatus 61Q TERPRI 52Q CHANGEFONT 40Q PRIN1 25Q CHANGEFONT 13Q TAB) (1131Q cashBox 1123Q truck 1110Q driver 1075Q TTY 1066Q TTY 1063Q DEFAULTFONT 1054Q TTY 1043Q cashBox 1035Q truck 1021Q TTY 1013Q driver 1003Q TTY 770Q TTY 765Q BOLDFONT 745Q cashBox 737Q truck 730Q cashBox 722Q truck 676Q players 652Q truckinLogHandle 641Q Summarize 630Q truckinLogHandle 623Q truckinLogFlg 606Q Summarize 566Q players 535Q DEFAULTFONT 506Q cashBox 500Q truck 464Q driver 453Q TTY 444Q TTY 436Q cashBox 430Q truck 417Q TTY 404Q TTY 373Q TTY 365Q driver 354Q TTY 351Q BOLDFONT 275Q GiveAliceBonus 256Q TTY 247Q TTY 240Q TTY 100Q alices 56Q TTY 47Q TTY 44Q DEFAULTFONT 35Q TTY 22Q TTY 17Q BOLDFONT 10Q TTY) (1117Q " Cash: $" 1104Q "Winner is: " 1031Q " Cash: $" 1000Q "Winner is :" 547Q "Summary of all player's status" 473Q " $" 414Q "$" 265Q "Following players made it to Alices" 235Q "Following players made it to Alices" 121Q (parkingPlace1 parkingPlace2) 66Q "Summary of Game" 32Q "Summary of Game") (PRETTYCOMPRINT TRUCKINMCOMS) (RPAQQ TRUCKINMCOMS ((* Copyright (c) 1983 Xerox Corporation) (* Classes for MultiMachineTruckin Knowledge System) (* Programmed by LoopsDesignTeam in June 1983.0 Maintained by Sanjay Mittal) (* This version of Truckin supersedes the older versions) (CLASSES BWTruckin ColorTruckin DisplayTruckinS GameCommInterface GameDecisionMaker GamePlayerInterface GameSimulator MainCommInterface MasterTruckin MoveTruckinDM MoveTruckinPI NoDisplayTruckinS RemoteMasterComm RemoteSlaveComm SlaveTruckin TimeTruckinDM TimeTruckinPI Truckin TruckinBoard TruckinCommInterface TruckinDecisionMaker TruckinPlayerInterface TruckinSimulator) (FNS BWTruckin.InitializeGameWindow ColorTruckin.CreateGameBoard ColorTruckin.InitializeGameWindow ColorTruckin.MakeDriveBitMaps DisplayTruckinS.NewGame DisplayTruckinS.ReUseGame GameCommInterface.NewInstance GameDecisionMaker.NewInstance GamePlayerInterface.ChangeGameParameters GamePlayerInterface.NewInstance GameSimulator.NewInstance MainCommInterface.AddBandit MainCommInterface.AddPlayer MainCommInterface.AddPlayerRequest MainCommInterface.BeginGameRequest MainCommInterface.BreakCargo MainCommInterface.BuyMade MainCommInterface.BuyRequest MainCommInterface.GameOver MainCommInterface.GasFill MainCommInterface.MaxMove MainCommInterface.MoveMade MainCommInterface.MoveRequest MainCommInterface.NewGame MainCommInterface.NewGameRequest MainCommInterface.ParkedAtAlice MainCommInterface.ReUseGame MainCommInterface.ReUseGameRequest MainCommInterface.RemovePlayer MainCommInterface.RemovePlayerRequest MainCommInterface.SellMade MainCommInterface.SellRequest MainCommInterface.SetInitialParameters MainCommInterface.SetUp MainCommInterface.SpoilCargo MainCommInterface.StartGame MainCommInterface.WorldProcess MoveTruckinDM.InitializeGameParameters MoveTruckinDM.MoveBandits MoveTruckinPI.BeginGame MoveTruckinPI.RunGame NoDisplayTruckinS.AttachBoard NoDisplayTruckinS.DrivePlayer NoDisplayTruckinS.UpdateRS RemoteMasterComm.AddBandit RemoteMasterComm.AddPlayer RemoteMasterComm.AddPlayerRequest RemoteMasterComm.BeginGameRequest RemoteMasterComm.BreakCargo RemoteMasterComm.BuyMade RemoteMasterComm.BuyRequest RemoteMasterComm.GameOver RemoteMasterComm.GasFill RemoteMasterComm.InterimWorldProcess RemoteMasterComm.MaxMove RemoteMasterComm.MoveMade RemoteMasterComm.MoveRequest RemoteMasterComm.NewGame RemoteMasterComm.NewGameRequest RemoteMasterComm.ParkedAtAlice RemoteMasterComm.ReUseGame RemoteMasterComm.ReUseGameRequest RemoteMasterComm.RemovePlayer RemoteMasterComm.RemovePlayerRequest RemoteMasterComm.SellMade RemoteMasterComm.SellRequest RemoteMasterComm.SetInitialParameters RemoteMasterComm.SetUp RemoteMasterComm.SpoilCargo RemoteMasterComm.StartGame RemoteMasterComm.StartInterimWorldProcess RemoteMasterComm.StartWorldProcess RemoteMasterComm.WorldProcess RemoteSlaveComm.AddBandit RemoteSlaveComm.AddPlayer RemoteSlaveComm.AddPlayerRequest RemoteSlaveComm.BeginGameRequest RemoteSlaveComm.BreakCargo RemoteSlaveComm.BuyMade RemoteSlaveComm.BuyRequest RemoteSlaveComm.GameOver RemoteSlaveComm.GasFill RemoteSlaveComm.InterimWorldProcess RemoteSlaveComm.MaxMove RemoteSlaveComm.MoveMade RemoteSlaveComm.MoveRequest RemoteSlaveComm.NewGame RemoteSlaveComm.NewGameRequest RemoteSlaveComm.ParkedAtAlice RemoteSlaveComm.ReUseGame RemoteSlaveComm.ReUseGameRequest RemoteSlaveComm.RemovePlayer RemoteSlaveComm.RemovePlayerRequest RemoteSlaveComm.SellMade RemoteSlaveComm.SellRequest RemoteSlaveComm.SetInitialParameters RemoteSlaveComm.SetUp RemoteSlaveComm.SpoilCargo RemoteSlaveComm.StartGame RemoteSlaveComm.StartInterimWorldProcess RemoteSlaveComm.StartWorldProcess RemoteSlaveComm.WorldProcess SlaveTruckin TimeTruckinDM.ChargeTime TimeTruckinDM.CheckAlice TimeTruckinDM.InitializeGameParameters TimeTruckinDM.MoveBandits TimeTruckinDM.RedoGameParameters TimeTruckinDM.ReplenishQty TimeTruckinPI.BeginGame TimeTruckinPI.RunGame TruckinBoard.AssignRoadStops TruckinBoard.AttachToGame TruckinBoard.CreateGameBoard TruckinBoard.DisplayGameBoard TruckinBoard.InitializeRoadStops TruckinBoard.MakeDriveBitMaps TruckinBoard.NewBoard TruckinBoard.PlaceRoadStops TruckinBoard.ReInitializeRoadStops TruckinBoard.ReUseBoard TruckinBoard.RemovePlayer TruckinCommInterface.CleanGameWorld TruckinCommInterface.CreateDecisionMaker TruckinCommInterface.CreateGateWay TruckinCommInterface.CreatePlayerInterface TruckinCommInterface.CreateSimulator TruckinCommInterface.NewInstance TruckinCommInterface.SetInitialParameters TruckinCommInterface.StartWorldProcess TruckinCommInterface.TellMe TruckinDecisionMaker.AddBandit TruckinDecisionMaker.AddPlayer TruckinDecisionMaker.AddPlayerRequest TruckinDecisionMaker.AttachSimulator TruckinDecisionMaker.BeginGameRequest TruckinDecisionMaker.BuyMade TruckinDecisionMaker.BuyRequest TruckinDecisionMaker.ChangeGameParameters TruckinDecisionMaker.CheckAlice TruckinDecisionMaker.ForcedMove TruckinDecisionMaker.GameOver TruckinDecisionMaker.GiveAliceBonus TruckinDecisionMaker.InitializeGameParameters TruckinDecisionMaker.MonitorGame TruckinDecisionMaker.MonitorProcess TruckinDecisionMaker.MoveBandits TruckinDecisionMaker.MoveCheckingHazards TruckinDecisionMaker.MoveMade TruckinDecisionMaker.MoveRequest TruckinDecisionMaker.MoveTruck TruckinDecisionMaker.NewGameRequest TruckinDecisionMaker.ReUseGameRequest TruckinDecisionMaker.RedoGameParameters TruckinDecisionMaker.RemovePlayer TruckinDecisionMaker.RemovePlayerRequest TruckinDecisionMaker.ReplenishQty TruckinDecisionMaker.SellMade TruckinDecisionMaker.SellRequest TruckinDecisionMaker.StartGame TruckinDecisionMaker.StartMonitorProcess TruckinDecisionMaker.UpdateAlice TruckinPlayerInterface.AddPlayer TruckinPlayerInterface.AddPlayerRequest TruckinPlayerInterface.BeginGame TruckinPlayerInterface.Buy TruckinPlayerInterface.BuyMade TruckinPlayerInterface.ChargeTime TruckinPlayerInterface.CheckLocalPlayers TruckinPlayerInterface.ContinueGame TruckinPlayerInterface.CreatePlayerProcess TruckinPlayerInterface.DeletePlayerProcesses TruckinPlayerInterface.Move TruckinPlayerInterface.MoveMade TruckinPlayerInterface.NewGame TruckinPlayerInterface.NewGameRequest TruckinPlayerInterface.PlayerRequestComplete TruckinPlayerInterface.ReUseGame TruckinPlayerInterface.RemovePlayer TruckinPlayerInterface.RemovePlayerRequest TruckinPlayerInterface.RunNextPlayer TruckinPlayerInterface.ScheduleNextPlayer TruckinPlayerInterface.SelectPlayers TruckinPlayerInterface.Sell TruckinPlayerInterface.SellMade TruckinPlayerInterface.StartGame TruckinPlayerInterface.StartPlayerProcesses TruckinPlayerInterface.SuspendPlayer TruckinPlayerInterface.WakePlayer TruckinSimulator.AddBandit TruckinSimulator.AddPlayer TruckinSimulator.AttachBoard TruckinSimulator.BreakCargo TruckinSimulator.BuyMade TruckinSimulator.ClockProcess TruckinSimulator.DrivePlayer TruckinSimulator.GameOver TruckinSimulator.GasFill TruckinSimulator.GiveAliceBonus TruckinSimulator.Initialize TruckinSimulator.MaxMove TruckinSimulator.MoveMade TruckinSimulator.NewGame TruckinSimulator.ParkedAtAlice TruckinSimulator.ReUseGame TruckinSimulator.RedoGameParameters TruckinSimulator.RemovePlayer TruckinSimulator.SellMade TruckinSimulator.SetUpGauges TruckinSimulator.SpoilCargo TruckinSimulator.StartClockProcess TruckinSimulator.StartGame TruckinSimulator.UnattachBoard TruckinSimulator.UpdateRS TruckinSimulator.WhoWon) (VARS GameBrowse ( GameProcRestFlg T) (PlayerProcRestFlg (QUOTE HARDRESET))))) (DEFCLASSES BWTruckin ColorTruckin DisplayTruckinS GameCommInterface GameDecisionMaker GamePlayerInterface GameSimulator MainCommInterface MasterTruckin MoveTruckinDM MoveTruckinPI NoDisplayTruckinS RemoteMasterComm RemoteSlaveComm SlaveTruckin TimeTruckinDM TimeTruckinPI Truckin TruckinBoard TruckinCommInterface TruckinDecisionMaker TruckinPlayerInterface TruckinSimulator) (DEFCLASS BWTruckin (MetaClass GameClass Edited: (* sm: "27-JUN-83 17:31")) (Supers TruckinBoard) ( ClassVariables (CopyCV NIL)) (InstanceVariables) (Methods (InitializeGameWindow BWTruckin.InitializeGameWindow args NIL doc (* Clears window and puts in proper background)))) (DEFCLASS ColorTruckin (MetaClass GameClass Edited: (* sm: "27-JUN-83 17:32")) (Supers TruckinBoard) ( ClassVariables (numRows 4 doc (* number of RoadStops arranged vertically on the game board.)) ( numColumns 7 doc (* number of RoadStops arranged horizontally on the game board.)) (colorP T doc (* This indicates that the display will be on the color screen)) (CopyCV NIL)) (InstanceVariables) ( Methods (MakeDriveBitMaps ColorTruckin.MakeDriveBitMaps args NIL doc (* Creates Bit maps for Trucks)) (CreateGameBoard ColorTruckin.CreateGameBoard args (region title) doc (* * Creates a new Window for the gameBoard.)) (InitializeGameWindow ColorTruckin.InitializeGameWindow args (region) doc (* Initializes gamewindow and puts in proper background)))) (DEFCLASS DisplayTruckinS (MetaClass GameClass Edited: (* sm: "27-JUN-83 17:10")) (Supers TruckinSimulator) (ClassVariables (CopyCV (Icon)) (Icon ?)) (InstanceVariables) (Methods (NewGame DisplayTruckinS.NewGame args (seed board) doc (* Generates a new game based on seed and board specified by DecisionMaster)) (ReUseGame DisplayTruckinS.ReUseGame args (seed) doc (* Sends message to GameBoard to reuse)))) (DEFCLASS GameCommInterface (MetaClass GameClass Edited: (* edited: "12-JUL-83 11:36") doc (* General class for Game Communications)) (Supers GameObject) (ClassVariables (CopyCV)) (InstanceVariables ( simulator NIL doc (* instance of GameSimulator)) (playerInterface NIL doc (* instance of PlayerInterface)) (broadcastList NIL doc (* list of objects which will get copies of incoming messages )) (machineID NIL doc (* unique ID for identifying different machines in the multiMC Truckin)) ( worldProcess NIL doc (* handle of the WorldProcess)) (interimWP NIL doc (* handle of Interim World Process))) (Methods (NewInstance GameCommInterface.NewInstance args (gameType boardType displayType dlist) doc (* Received when new instance is created)))) (DEFCLASS GameDecisionMaker (MetaClass GameClass Edited: (* sm: "30-JUN-83 18:53") doc (* Makes all decisions in the game)) (Supers GameObject) (ClassVariables (CopyCV)) (InstanceVariables ( gameParameters DMParameters doc (* class for changing game parameters at DecisionMaker level))) ( Methods (NewInstance GameDecisionMaker.NewInstance args NIL doc (* Received when new instance is created)))) (DEFCLASS GamePlayerInterface (MetaClass GameClass Edited: (* sm: "30-JUN-83 15:34") doc (* All players's messages go to this class)) (Supers GameObject) (ClassVariables (CopyCV)) (InstanceVariables (localPlayers NIL doc (* list of players locally connected to this interface)) (suspendedPlayers NIL doc (* list of players suspended pending completion of their requests))) (Methods (NewInstance GamePlayerInterface.NewInstance args NIL doc (* Does initialization when created)) ( ChangeGameParameters GamePlayerInterface.ChangeGameParameters args NIL doc (* Changes gameParameters via inspector)))) (DEFCLASS GameSimulator (MetaClass GameClass Edited: (* sm: "27-JUN-83 15:33") doc (* Handles the game simulation and keeps the game world in sync)) (Supers GameObject) (ClassVariables (CopyCV (Icon)) ( Icon ?)) (InstanceVariables) (Methods (NewInstance GameSimulator.NewInstance args NIL doc (* Received when new instance is created)))) (DEFCLASS MainCommInterface (MetaClass GameClass Edited: (* sm: " 8-JUL-83 15:34")) (Supers TruckinCommInterface) (ClassVariables (CopyCV NIL)) (InstanceVariables (decisionMaker NIL DefaultClass TimeTruckinDM doc (* instance of GameDecisionMaker)) (gameStarted NIL)) (Methods (SetUp MainCommInterface.SetUp args (game board display) doc (* Sets up the Standard configuration)) ( BuyRequest MainCommInterface.BuyRequest args (player roadPosition qty) doc (* Forwards to DecisionMaker)) (SellRequest MainCommInterface.SellRequest args (player roadPosition commodityIndex qty) doc (* Forwards to DecisionMaker)) (MoveRequest MainCommInterface.MoveRequest args (player from to reason) doc (* Forwards to DecisionMaker)) (NewGame MainCommInterface.NewGame args (seed boardType gameType) doc (* Forwards to Simulator)) (MoveMade MainCommInterface.MoveMade args (playerName fromStop toStop reason penaltyAmount missTurns) doc (* Forwards to Simulator)) (BuyMade MainCommInterface.BuyMade args (playerName roadPosition reqQty qty reason penaltyAmt fragility lifetime) doc (* Forwards to Simulator)) (SellMade MainCommInterface.SellMade args (playerName roadPosition reqQty qty cargoPos reason penaltyAmt) doc (* Forwards to Simulator, DecisionMaker, PlayerInterface)) (GasFill MainCommInterface.GasFill args (prev new qty pr) doc (* Forwards to Simulator)) (BreakCargo MainCommInterface.BreakCargo args (playerName cargoPos) doc (* Forwards to Simulator)) (SpoilCargo MainCommInterface.SpoilCargo args (playerName cargoPos) doc (* Forwards to Simulator)) (RemovePlayer MainCommInterface.RemovePlayer args (playerName reason) doc (* Forwards to Simulator)) (NewGameRequest MainCommInterface.NewGameRequest args (board) doc (* Forwards to DecisionMaker)) (ReUseGameRequest MainCommInterface.ReUseGameRequest args NIL doc (* Forwards to DecisionMaker for reusing existing game board)) (ReUseGame MainCommInterface.ReUseGame args (seed) doc (* Forwards to Simulator and other recipients)) (AddPlayerRequest MainCommInterface.AddPlayerRequest args (reqID name type truck) doc (* Forwards to DecisionMaker)) (AddPlayer MainCommInterface.AddPlayer args (reqID name type truck deniedFlg) doc (* Forwards to PI, Simulator, and DecisionMaker)) ( BeginGameRequest MainCommInterface.BeginGameRequest args NIL doc (* Request for starting game - forwarded to DecisionMaker)) (AddBandit MainCommInterface.AddBandit args (name) doc (* Add bandit to game)) (StartGame MainCommInterface.StartGame args (begTime endTime) doc (* Forwards to simulator, PI, DM, and then starts WorldProcess)) (ParkedAtAlice MainCommInterface.ParkedAtAlice args (player time) doc (* Forwards to Simulator)) (MaxMove MainCommInterface.MaxMove args (player maxMove) doc (* Forwards to Simulator)) (WorldProcess MainCommInterface.WorldProcess args NIL doc (* This is the World Process)) (GameOver MainCommInterface.GameOver args NIL doc (* Sent to Simulator)) ( SetInitialParameters MainCommInterface.SetInitialParameters args NIL doc (* Sets initial parameters)) (RemovePlayerRequest MainCommInterface.RemovePlayerRequest args (player reason) doc (* Request to remove player)))) (DEFCLASS MasterTruckin (MetaClass GameClass Edited: (* sm: "10-JUL-83 20:51")) (Supers RemoteMasterComm) (ClassVariables (CopyCV NIL)) (InstanceVariables) (Methods)) (DEFCLASS MoveTruckinDM (MetaClass GameClass Edited: (* sm: "29-JUN-83 10:17")) (Supers TruckinDecisionMaker) (ClassVariables (CopyCV) (PlayerInterface MoveTruckinPI doc (* name of class of this type associated with this DecisionMaker))) (InstanceVariables (aliceStay 3 doc (* how many moves can stay at Alices)) (banditFreq 5 doc (* how often bandits move)) (numMovesRemaining 200 DefaultGauge DigiMeter GaugeLimit (0 200) GaugePos (852 . 465) SetByUser NIL doc (* number of moves remaining in the game. SetByUser is used to flag that value is not to be reinitialized)) (replenishFreq 40 doc (* how often gas is replenished))) (Methods (MoveBandits MoveTruckinDM.MoveBandits args NIL doc (* randomly moves bandits around on the board before each turn)) (InitializeGameParameters MoveTruckinDM.InitializeGameParameters args NIL doc (* Initializes critical variables for new game to run)))) (DEFCLASS MoveTruckinPI (MetaClass GameClass Edited: (* sm: "29-JUN-83 10:16")) (Supers TruckinPlayerInterface) (ClassVariables (CopyCV) (DecisionMaker MoveTruckinDM doc (* name of associated DecisionMaker class))) (InstanceVariables) (Methods (RunGame MoveTruckinPI.RunGame args ( players) doc (* This is the main loop that runs the game)))) (DEFCLASS NoDisplayTruckinS (MetaClass GameClass Edited: (* sm: "27-JUN-83 17:10")) (Supers TruckinSimulator) (ClassVariables (CopyCV (Icon)) (Icon ?)) (InstanceVariables) (Methods (UpdateRS NoDisplayTruckinS.UpdateRS args (roadStop) doc (* Sent when any RoadStop's data changes)) (DrivePlayer NoDisplayTruckinS.DrivePlayer args (curLoc finalLoc player) doc (* Noop for NoDisplay case)) ( AttachBoard NoDisplayTruckinS.AttachBoard args (gameBoard) doc (* Attaches gameBoard to game)))) (DEFCLASS RemoteMasterComm (MetaClass GameClass Edited: (* sm: " 8-JUL-83 12:16")) (Supers TruckinCommInterface) (ClassVariables (CopyCV NIL)) (InstanceVariables (decisionMaker NIL DefaultClass TimeTruckinDM doc (* instance of GameDecisionMaker)) (postman NIL DefaultClass MasterGateway doc (* instance of Master GateWay)) (gameStarted NIL)) (Methods (SetUp RemoteMasterComm.SetUp args (game board display) doc (* Sets up the Standard configuration)) (AddBandit RemoteMasterComm.AddBandit args (name) doc (* Add bandit to game)) (AddPlayer RemoteMasterComm.AddPlayer args (reqID name type truck deniedFlg) doc (* Forwards to PI, Simulator, and DecisionMaker)) (AddPlayerRequest RemoteMasterComm.AddPlayerRequest args (reqID name type truck) doc (* Forwards to DecisionMaker)) ( BeginGameRequest RemoteMasterComm.BeginGameRequest args NIL doc (* Request for starting game - forwarded to DecisionMaker)) (BreakCargo RemoteMasterComm.BreakCargo args (playerName cargoPos) doc (* Forwards to Simulator)) (BuyMade RemoteMasterComm.BuyMade args (playerName roadPosition reqQty qty reason penaltyAmt fragility lifetime) doc (* Forwards to Simulator)) (BuyRequest RemoteMasterComm.BuyRequest args (player roadPosition qty) doc (* Forwards to DecisionMaker)) ( GameOver RemoteMasterComm.GameOver args NIL doc (* Sent to Simulator)) (GasFill RemoteMasterComm.GasFill args (prev new qty pr) doc (* Forwards to Simulator)) (MaxMove RemoteMasterComm.MaxMove args (player maxMove) doc (* Forwards to Simulator)) (MoveMade RemoteMasterComm.MoveMade args (playerName fromStop toStop reason penaltyAmount missTurns) doc (* Forwards to Simulator)) (MoveRequest RemoteMasterComm.MoveRequest args (player from to reason) doc (* Forwards to DecisionMaker)) (NewGame RemoteMasterComm.NewGame args (seed boardType gameType) doc (* Forwards to Simulator)) (NewGameRequest RemoteMasterComm.NewGameRequest args (board) doc (* Forwards to DecisionMaker)) (ParkedAtAlice RemoteMasterComm.ParkedAtAlice args (player time) doc (* Forwards to Simulator)) (ReUseGame RemoteMasterComm.ReUseGame args (seed) doc (* Forwards to Simulator and other recipients)) (ReUseGameRequest RemoteMasterComm.ReUseGameRequest args NIL doc (* Forwards to DecisionMaker for reusing existing game board)) (RemovePlayer RemoteMasterComm.RemovePlayer args ( playerName reason) doc (* Forwards to Simulator)) (SellMade RemoteMasterComm.SellMade args (playerName roadPosition reqQty qty cargoPos reason penaltyAmt) doc (* Forwards to Simulator, DecisionMaker, PlayerInterface)) (SellRequest RemoteMasterComm.SellRequest args (player roadPosition commodityIndex qty) doc (* Forwards to DecisionMaker)) (SpoilCargo RemoteMasterComm.SpoilCargo args (playerName cargoPos) doc (* Forwards to Simulator)) (StartGame RemoteMasterComm.StartGame args (begTime endTime) doc (* Forwards to simulator, PI, DM, and then starts WorldProcess)) (WorldProcess RemoteMasterComm.WorldProcess args NIL doc (* This is the World Process.)) (StartInterimWorldProcess RemoteMasterComm.StartInterimWorldProcess args NIL doc (* Starts Interim World Process)) ( InterimWorldProcess RemoteMasterComm.InterimWorldProcess args NIL doc (* Interim world process)) ( SetInitialParameters RemoteMasterComm.SetInitialParameters args NIL doc (* Sets initial parameters)) ( RemovePlayerRequest RemoteMasterComm.RemovePlayerRequest args (player reason) doc (* Request to remove player)))) (DEFCLASS RemoteSlaveComm (MetaClass GameClass Edited: (* sm: " 8-JUL-83 12:14")) (Supers TruckinCommInterface) (ClassVariables (CopyCV (Icon)) (Icon ?)) (InstanceVariables (postman NIL DefaultClass SlaveGateway doc (* instance of Slave GateWay)) (gameStarted NIL doc (* set to T when StartGame msg received))) (Methods (BuyRequest RemoteSlaveComm.BuyRequest args (player roadPosition qty) doc (* Forwards to DecisionMaker)) (SetUp RemoteSlaveComm.SetUp args (game board display) doc (* Sets up the Standard configuration)) (AddBandit RemoteSlaveComm.AddBandit args (name) doc (* Add bandit to game)) (AddPlayer RemoteSlaveComm.AddPlayer args (reqID name type truck deniedFlg) doc (* Forwards to PI, Simulator, and DecisionMaker)) (AddPlayerRequest RemoteSlaveComm.AddPlayerRequest args (reqID name type truck) doc (* Forwards to DecisionMaker)) (BeginGameRequest RemoteSlaveComm.BeginGameRequest args NIL doc (* Blocks it.)) (BreakCargo RemoteSlaveComm.BreakCargo args (playerName cargoPos) doc (* Forwards to Simulator)) (BuyMade RemoteSlaveComm.BuyMade args ( playerName roadPosition reqQty qty reason penaltyAmt fragility lifetime) doc (* Forwards to Simulator) ) (GameOver RemoteSlaveComm.GameOver args NIL doc (* Sent to Simulator)) (GasFill RemoteSlaveComm.GasFill args (prev new qty pr) doc (* Forwards to Simulator)) (MaxMove RemoteSlaveComm.MaxMove args (player maxMove) doc (* Forwards to Simulator)) (MoveMade RemoteSlaveComm.MoveMade args (playerName fromStop toStop reason penaltyAmount missTurns) doc (* Forwards to Simulator)) (MoveRequest RemoteSlaveComm.MoveRequest args (player from to reason) doc (* Forwards to DecisionMaker)) (NewGame RemoteSlaveComm.NewGame args (seed boardType gameType) doc (* Forwards to Simulator)) (NewGameRequest RemoteSlaveComm.NewGameRequest args (board) doc (* Blocks it)) (ParkedAtAlice RemoteSlaveComm.ParkedAtAlice args (player time) doc (* Forwards to Simulator)) ( ReUseGame RemoteSlaveComm.ReUseGame args (seed) doc (* Forwards to Simulator and other recipients)) ( ReUseGameRequest RemoteSlaveComm.ReUseGameRequest args NIL doc (* Blocks it)) (RemovePlayer RemoteSlaveComm.RemovePlayer args (playerName reason) doc (* Forwards to Simulator)) (SellMade RemoteSlaveComm.SellMade args (playerName roadPosition reqQty qty cargoPos reason penaltyAmt) doc (* Forwards to Simulator, DecisionMaker, PlayerInterface)) (SellRequest RemoteSlaveComm.SellRequest args (player roadPosition commodityIndex qty) doc (* Forwards to DecisionMaker)) (SpoilCargo RemoteSlaveComm.SpoilCargo args (playerName cargoPos) doc (* Forwards to Simulator)) (StartGame RemoteSlaveComm.StartGame args (begTime endTime) doc (* Forwards to simulator, PI, DM, and then starts WorldProcess)) (WorldProcess RemoteSlaveComm.WorldProcess args NIL doc (* This is the World Process)) (StartInterimWorldProcess RemoteSlaveComm.StartInterimWorldProcess args NIL doc (* Starts Interim World Process)) (InterimWorldProcess RemoteSlaveComm.InterimWorldProcess args NIL doc (* Interim world process)) (SetInitialParameters RemoteSlaveComm.SetInitialParameters args NIL doc (* Sets initial parameters)) (RemovePlayerRequest RemoteSlaveComm.RemovePlayerRequest args (player reason) doc (* Request to remove player)))) (DEFCLASS SlaveTruckin (MetaClass GameClass Edited: (* sm: "10-JUL-83 20:51")) (Supers RemoteSlaveComm ) (ClassVariables (CopyCV (Icon)) (Icon ?)) (InstanceVariables) (Methods)) (DEFCLASS TimeTruckinDM (MetaClass GameClass Edited: (* sm: " 4-AUG-83 13:14")) (Supers TruckinDecisionMaker) (ClassVariables (MinMoveTime 1 doc (* min time everyone is charged)) ( MaxMoveTime 30 doc (* max time per move, after which player yanked from game)) (AliceBonus 2 doc (* cashBox multiplied by this for reaching Alice)) (CopyCV) (PlayerInterface TimeTruckinPI)) ( InstanceVariables (aliceStay 3 MaxTime 30 AliceFactor 8 doc (* aliceStay - max conseq turns at Alice. MaxTime - Max time allowed at Alice during a conseq stay)) (gameParameters TDMTParameters) (banditFreq 50 LastTime 3000 BanditFactor 15 doc (* freq of bandits move)) (replenishFreq 300 LastTime 3000 ReplenishFactor 30 doc (* how freq are gas stations filled))) (Methods (ChargeTime TimeTruckinDM.ChargeTime args (player clockTime) doc (* Calculates the actual time to be charged to player)) (CheckAlice TimeTruckinDM.CheckAlice args (player) doc (* check AlicesRestaurant's before each turn)) (MoveBandits TimeTruckinDM.MoveBandits args NIL doc (* randomly moves bandits around on the board before each turn)) (ReplenishQty TimeTruckinDM.ReplenishQty args NIL doc (* Checks if time to replenish)) (InitializeGameParameters TimeTruckinDM.InitializeGameParameters args NIL doc (* Initializes critical variables for new game to run)) (RedoGameParameters TimeTruckinDM.RedoGameParameters doc (* Change game parameters based on players in the game) args NIL) )) (DEFCLASS TimeTruckinPI (MetaClass GameClass Edited: (* sm: "29-JUN-83 10:16")) (Supers TruckinPlayerInterface) (ClassVariables (CopyCV) (DecisionMaker TimeTruckinDM doc (* name of associated DecisionMaker class))) (InstanceVariables) (Methods (RunGame TimeTruckinPI.RunGame args ( players) doc (* This is the main loop that runs the game)))) (DEFCLASS Truckin (MetaClass GameClass Edited: (* sm: "10-JUL-83 20:50")) (Supers MainCommInterface) ( ClassVariables (CopyCV NIL)) (InstanceVariables) (Methods)) (DEFCLASS TruckinBoard (MetaClass GameClass Edited: (* sm: "27-JUN-83 17:31")) (Supers GameBoard) ( ClassVariables (numRows 6 doc (* number of RoadStops arranged vertically on the game board.)) ( numColumns 11 doc (* number of RoadStops arranged horizontally on the game board.)) (colorP NIL doc (* This indicates that this is not a colordisplay)) (CopyCV NIL)) (InstanceVariables (roadStops NIL doc (* List of RoadStops on gameBoard.))) (Methods (AssignRoadStops TruckinBoard.AssignRoadStops args NIL doc (* * Assign RoadStops to the current GameBoard)) (AttachToGame TruckinBoard.AttachToGame args ( game) doc (* attaches self to game)) (CreateGameBoard TruckinBoard.CreateGameBoard args (region title) doc (* * Creates a new Window for the gameBoard.)) (DisplayGameBoard TruckinBoard.DisplayGameBoard args NIL doc (* * Displays the gameBoard. ReAllocates gameBoard window if needed.)) (DrawRoadMarks DrawRoadMarks args NIL doc (* * Draw the dotted Lines in the road above the RoadStops.)) ( MakeDriveBitMaps TruckinBoard.MakeDriveBitMaps args NIL doc (* Creates Bit maps for Trucks)) (NewBoard TruckinBoard.NewBoard args (seed) doc (* Creates and displays a new game board)) (PlaceRoadStops TruckinBoard.PlaceRoadStops doc (* mjs: "17-JAN-83 10:34") args NIL) (RemovePlayer TruckinBoard.RemovePlayer args (player) doc (* Sent to game board so it can remove player from board)) (InitializeRoadStops TruckinBoard.InitializeRoadStops args (seed) doc (* Initializes RoadStop qty and pr)) (ReInitializeRoadStops TruckinBoard.ReInitializeRoadStops args (seed) doc (* Reinitializes roadstops)) (ReUseBoard TruckinBoard.ReUseBoard args (seed) doc (* Reuses game board: displaying afresh)))) (DEFCLASS TruckinCommInterface (MetaClass GameClass Edited: (* sm: " 8-JUL-83 15:35") doc (* Class for handling Truckin Communications on a single machine)) (Supers GameCommInterface) (ClassVariables ( CopyCV) (InitializeIVs (gameStarted))) (InstanceVariables (simulator NIL DefaultClass DisplayTruckinS) (playerInterface NIL DefaultClass TimeTruckinPI) (gameStarted NIL)) (Methods (CreateSimulator TruckinCommInterface.CreateSimulator args (display) doc (* Creates a new simulator)) ( CreatePlayerInterface TruckinCommInterface.CreatePlayerInterface args (gameType) doc (* Create a PlayerInterface (if needed) matching gameType)) (CreateDecisionMaker TruckinCommInterface.CreateDecisionMaker args (game) doc (* Creates a new DecisionMaker)) ( CreateGateWay TruckinCommInterface.CreateGateWay args (machineName postalAddress) doc (* creates a gateway and links it)) (TellMe TruckinCommInterface.TellMe args (obj) doc (* Adds obj to broadcastList )) (SetInitialParameters TruckinCommInterface.SetInitialParameters args NIL doc (* Sets initial parameters)) (StartWorldProcess TruckinCommInterface.StartWorldProcess args NIL doc (* Starts world process)) (CleanGameWorld TruckinCommInterface.CleanGameWorld args NIL doc (* Cleans up the game world after game over)))) (DEFCLASS TruckinDecisionMaker (MetaClass GameClass Edited: (* dgb: "11-JUL-83 13:35")) (Supers GameDecisionMaker) (ClassVariables (CopyCV (PlayerInterface)) (PlayerInterface NIL doc (* name of class of this type associated with this DecisionMaker)) (InitializeIVs (bandits timeLeft players playerNames beginTime endTime timeLeft lastMoved loseTurn gameDuration startsAfter)) (AliceBonus 2)) ( InstanceVariables (gameParameters TruckinDMParameters) (gameSeed NIL doc (* random number generator seed used for creating game)) (simulator NIL doc (* instance of GameSimulator used by DecisionMaker)) (alices NIL doc (* actual AlicesRestaurant's on board)) (bandits NIL nextTime NIL doc (* list of bandits currently on board. nextTime is a list of locs to be used for placing bandits in next turn)) ( lastMoved NIL doc (* last player who issued Move command)) (loseTurn NIL doc (* List of players that lose the next turn.)) (players NIL doc (* List of the players for this simulation.)) (playerNames NIL doc (* list of names of players already in game)) (roadStops NIL doc (* same roadStops as in ( gameBoard roadStops))) (unionHall NIL doc (* actual instance of UnionHall on board)) (beginTime 0 doc (* real clock time when game begins)) (endTime 0 doc (* real clock time when game ends)) (gameDuration 15 doc (* duration of game: endTime-beginTime)) (startsAfter 0 doc (* mins from now when game starts) ) (timeLeft 1800 DefaultGauge SSDigiMeter DefaultLimit (0 1800) GaugePos (852 . 465))) (Methods ( BuyRequest TruckinDecisionMaker.BuyRequest args (player roadPosition qty) doc (* message sent to DecisionMaker to BUY qty at roadPosition)) (CheckAlice TruckinDecisionMaker.CheckAlice args NIL doc (* check AlicesRestaurant's before each turn)) (GiveAliceBonus TruckinDecisionMaker.GiveAliceBonus args (atAlice) doc (* Dummy method)) (MoveBandits TruckinDecisionMaker.MoveBandits args NIL doc (* randomly moves bandits around on the board before each turn)) (MoveCheckingHazards TruckinDecisionMaker.MoveCheckingHazards args (player curLoc newLoc reason) doc (* moves truck checking for hazards along the way. Called by GameMaster.MoveTruck)) (MoveRequest TruckinDecisionMaker.MoveRequest args (player from to reason) doc (* sent to DecisionMaker for deciding if move can be made)) (MoveTruck TruckinDecisionMaker.MoveTruck args (player curLoc newLoc reason) doc (* actually moves the currentPlayer's truck)) (RemovePlayer TruckinDecisionMaker.RemovePlayer args (player reason) doc (* removes player from game)) (ReplenishQty TruckinDecisionMaker.ReplenishQty args NIL doc (* replenish GasStations qty)) (SellRequest TruckinDecisionMaker.SellRequest args (player roadPosition commodityIndex qty) doc (* message sent to DecisionMaker to sell qty of commodity at the player's roadPosition.)) (ForcedMove TruckinDecisionMaker.ForcedMove args (player curLoc maxMilePost reason) doc (* determines the loc to move currentPlayer as a forced move close to maxMilePost)) (NewGameRequest TruckinDecisionMaker.NewGameRequest args (board) doc (* Generates seed for a new game)) ( AttachSimulator TruckinDecisionMaker.AttachSimulator args (sim) doc (* Attaches local simulator by copying relevant info)) (ReUseGameRequest TruckinDecisionMaker.ReUseGameRequest args NIL doc (* Generates a new seed for reusing existing game)) (AddPlayerRequest TruckinDecisionMaker.AddPlayerRequest args (reqID name type truck) doc (* Decides if a new player can be added or not)) (AddPlayer TruckinDecisionMaker.AddPlayer args (reqID name type truck deniedFlg) doc (* If player added, do initial placing for him)) (BeginGameRequest TruckinDecisionMaker.BeginGameRequest args NIL doc (* Starts the game)) (ChangeGameParameters TruckinDecisionMaker.ChangeGameParameters args NIL doc (* Changes gameParameters via inspector)) ( AddBandit TruckinDecisionMaker.AddBandit args (name) doc (* Add bandit to list)) (StartGame TruckinDecisionMaker.StartGame args NIL doc (* Starts game)) (BuyMade TruckinDecisionMaker.BuyMade args (player roadPosition reqQty qty reason penaltyAmt fragility lifetime) doc (* Dummy for now)) ( SellMade TruckinDecisionMaker.SellMade args (player roadPosition reqQty qty cargoPos reason penaltyAmt ) doc (* Dummy for now)) (MoveMade TruckinDecisionMaker.MoveMade args (player fromStop toStop reason penaltyAmount missTurns) doc (* Generates new MaxMove for player and checks for Alice overstay)) ( UpdateAlice TruckinDecisionMaker.UpdateAlice args (player) doc (* Decides when parked at Alice)) ( StartMonitorProcess TruckinDecisionMaker.StartMonitorProcess args NIL doc (* Start the monitor process )) (MonitorProcess TruckinDecisionMaker.MonitorProcess args NIL doc (* Monitors the game to move bandits, replenish qty, check alice, and signal game end)) (InitializeGameParameters TruckinDecisionMaker.InitializeGameParameters args NIL doc (* Initializes critical variables for new game to run)) (RedoGameParameters TruckinDecisionMaker.RedoGameParameters args NIL doc (* Dummy. Needed if some game parameters need to be changed after the players are known)) (MonitorGame TruckinDecisionMaker.MonitorGame args (gameOverFlg) doc (* Monitors the game to move bandits, replenish qty, check alice, and signal game end.)) (GameOver TruckinDecisionMaker.GameOver args NIL doc (* Sent when game is over)) (RemovePlayerRequest TruckinDecisionMaker.RemovePlayerRequest args ( player reason) doc (* Request to remove player)))) (DEFCLASS TruckinPlayerInterface (MetaClass GameClass Edited: (* sm: "10-JUL-83 21:59")) (Supers GamePlayerInterface) (ClassVariables (CopyCV (DecisionMaker)) (DecisionMaker NIL doc (* name of associated DecisionMaker class)) (InitializeIVs (endTime beginTime unchargedTime lastMoved loseTurn localPlayers suspendedPlayers runningPlayer playerMenuWindow)) (MinMoveTime 1) (MaxMoveTime 30)) ( InstanceVariables (localPlayers NIL doc (* list of players locally controlled by this PI)) ( suspendedPlayers NIL doc (* players suspended pending response from DM)) (unchargedTime 0) (roadStops NIL) (lastMoved NIL) (loseTurn NIL) (beginTime 0) (endTime 0) (runningPlayer NIL doc (* player currently running)) (playerMenuWindow NIL position (650 . 720) doc (* Window for Menu to interrupt player processes))) (Methods (Buy TruckinPlayerInterface.Buy args (player qty) doc (* message sent by currentPlayer to BUY qty at its current location)) (Move TruckinPlayerInterface.Move args (player newLoc) doc (* sent by to move to newLoc)) (Sell TruckinPlayerInterface.Sell args (player commodity qty) doc (* message sent by currentPlayer to sell qty of commodity at the player's current location.)) (BeginGame TruckinPlayerInterface.BeginGame args (players moves) doc (* * Starts a new game. Players is either the number of players or a list of Player objects. If players is NIL, but the gameMaster has previous players, it uses those.)) (ContinueGame TruckinPlayerInterface.ContinueGame args ( noRedrawFlg) doc (* to resume a game in the middle.)) (NewGameRequest TruckinPlayerInterface.NewGameRequest args (board) doc (* Request for creating a new game of existing type)) (SelectPlayers TruckinPlayerInterface.SelectPlayers args (players) doc (* Asks user to select players)) (AddPlayerRequest TruckinPlayerInterface.AddPlayerRequest args (playerName playerType truckType) doc (* A request to create a new Player)) (AddPlayer TruckinPlayerInterface.AddPlayer args (reqID name type truck deniedFlg) doc (* New player being added to game)) (StartGame TruckinPlayerInterface.StartGame args (begTime endTime) doc (* Starts the game at begTime)) ( StartPlayerProcesses TruckinPlayerInterface.StartPlayerProcesses args NIL doc (* starts players in separate processes)) (MoveMade TruckinPlayerInterface.MoveMade args (player fromStop toStop reason penaltyAmount missTurns) doc (* check if for local player)) (RunNextPlayer TruckinPlayerInterface.RunNextPlayer args NIL doc (* Decides who to run next -)) (BuyMade TruckinPlayerInterface.BuyMade args (player roadPosition reqQty qty reason penaltyAmt fragility lifetime) doc (* check if for local player)) (SellMade TruckinPlayerInterface.SellMade args (player roadPosition reqQty qty cargoPos reason penaltyAmt) doc (* check if for local player)) (NewGame TruckinPlayerInterface.NewGame args (seed boardType gameType) doc (* Adds roadStops locally)) ( ReUseGame TruckinPlayerInterface.ReUseGame args NIL doc (* Received when the current board is used for a new game)) (PlayerRequestComplete TruckinPlayerInterface.PlayerRequestComplete args (player reason) doc (* if player passed as arg, set wakeReason)) (ScheduleNextPlayer TruckinPlayerInterface.ScheduleNextPlayer args NIL doc (* Decides who to run next -)) (SuspendPlayer TruckinPlayerInterface.SuspendPlayer args (player staySuspend) doc (* Suspends player after a Buy/Move/Sell request)) (ChargeTime TruckinPlayerInterface.ChargeTime args (player clockTime) doc (* Calculates the actual time to be charged to player)) (DeletePlayerProcesses TruckinPlayerInterface.DeletePlayerProcesses args NIL doc (* Deletes players processes after the game) ) (RemovePlayer TruckinPlayerInterface.RemovePlayer args (player reason) doc (* New method template)) (CreatePlayerProcess TruckinPlayerInterface.CreatePlayerProcess args (player staySuspendFlg) doc (* Creates a process for player and suspends the process)) (RemovePlayerRequest TruckinPlayerInterface.RemovePlayerRequest args (player reason) doc (* Request to remove player)) ( WakePlayer TruckinPlayerInterface.WakePlayer args (player) doc (* Wakes player so it can be run at next BLOCK)) (CheckLocalPlayers TruckinPlayerInterface.CheckLocalPlayers args NIL doc (* Checks to make sure that all local players have processes)))) (DEFCLASS TruckinSimulator (MetaClass GameClass Edited: (* dgb: "11-JUL-83 14:02")) (Supers GameSimulator) (ClassVariables (CopyCV) (InitializeIVs (gameRunningFlg bandits timeLeft players unchargedTime beginTime endTime timeLeft barChart clock)) (AliceBonus 2)) (InstanceVariables (barChart NIL doc (* barchart for players cash)) (gameBoard NIL doc DefaultClass BWTruckin (* instance of GameBoard)) (gameRunningFlg NIL doc (* this flag is set to T when game starts and back to NIL when it ends)) (roadStops NIL doc (* same roadStops as in (gameBoard roadStops))) (alices NIL doc (* actual AlicesRestaurant's on board)) (bandits NIL nextTime NIL doc (* list of bandits currently on board. nextTime is a list of locs to be used for placing bandits in next turn)) (gameParameters TruckinParameters doc (* pointer to gameParameters object)) (players NIL doc (* List of the players for this simulation.)) (unchargedTime 0 doc (* time not charged because used by Execs or Breaks)) ( unionHall NIL doc (* actual instance of UnionHall on board)) (beginTime 0) (endTime 0) (timeLeft 1800 DefaultGauge SSDigiMeter GaugeLimit (0 2000) GaugePos (852 . 465)) (clock NIL doc (* gauge attached to timeLeft))) (Methods (RemovePlayer TruckinSimulator.RemovePlayer args (player reason) doc (* Sent to game board so it can remove player from board)) (BreakCargo TruckinSimulator.BreakCargo args (player commodIndex) doc (* Sent by a commodity when it breaks)) (BuyMade TruckinSimulator.BuyMade args ( player roadPosition reqQty qty reason penalty fragility lifetime) doc (* Indicates a definite BUY to be made, or reasons for not carrying out a BuyRequest)) (GasFill TruckinSimulator.GasFill args ( prevStop gsStop qty pr) doc (* Instructions for moving a gas truck and filling GasStation)) (MoveMade TruckinSimulator.MoveMade args (player from to reason penaltyAmt missTurn) doc (* Actually makes the move after all checks are done)) (SellMade TruckinSimulator.SellMade args (player roadPosition reqQty qty cargoPosition reason penalty) doc (* Performs an actual Sell, once all checking is done)) ( SpoilCargo TruckinSimulator.SpoilCargo args (player commodIndex) doc (* Sent by commodity when it spoils)) (NewGame TruckinSimulator.NewGame args (seed board) doc (* Generates a new game based on seed and board specified by DecisionMaster)) (AttachBoard TruckinSimulator.AttachBoard args (gameBoard) doc (* Attaches gameBoard to game)) (UnattachBoard TruckinSimulator.UnattachBoard args NIL doc (* Removes game board)) (UpdateRS TruckinSimulator.UpdateRS args (roadStop) doc (* Sent when any RoadStop's data changes)) (AddPlayer TruckinSimulator.AddPlayer args (reqID name type truck deniedFlg) doc (* Adds player to its list - assumes player created by PlayerInterface)) (ReUseGame TruckinSimulator.ReUseGame args (seed) doc (* Sends message to GameBoard to reuse)) (AddBandit TruckinSimulator.AddBandit args (name) doc (* Add bandit to game)) (StartGame TruckinSimulator.StartGame args (begTime endTime) doc (* SetsUp IVs for time left etc and starts game clock process)) (ParkedAtAlice TruckinSimulator.ParkedAtAlice args (player time) doc (* Marks when player parked at alice)) (MaxMove TruckinSimulator.MaxMove args (player maxMove) doc (* Puts maxMove in player)) (StartClockProcess TruckinSimulator.StartClockProcess args NIL doc (* Starts the clock process)) (ClockProcess TruckinSimulator.ClockProcess args NIL doc (* Monitors game clock)) ( SetUpGauges TruckinSimulator.SetUpGauges args NIL doc (* Sets up gauges)) (GameOver TruckinSimulator.GameOver args NIL doc (* Game Over)) (WhoWon TruckinSimulator.WhoWon args NIL doc (* summarizes the game results)) (GiveAliceBonus TruckinSimulator.GiveAliceBonus args (atAlice) doc (* Give bonus for reaching Alices)) (RedoGameParameters TruckinSimulator.RedoGameParameters args NIL doc (* Change anything after all game info is known - prior to game start)) (DrivePlayer TruckinSimulator.DrivePlayer args (curLoc finalLoc player) doc (* Drives player from curLoc to finalLoc)) (Initialize TruckinSimulator.Initialize args NIL doc (* Initializes)))) (RPAQQ GameBrowse (GameBoard GameSimulator GameDecisionMaker GameCommInterface GamePlayerInterface)) (RPAQQ GameProcRestFlg T) (RPAQQ PlayerProcRestFlg HARDRESET) NIL