(FILECREATED "27-JUN-83 00:31:04" ("compiled on " {INDIGO}TRUCKIN>TRUCKIN.;21) "24-JUN-83 23:51:35" recompiled exprs: nothing in WORK dated "25-JUN-83 00:09:44") (FILECREATED "27-JUN-83 00:30:00" {INDIGO}TRUCKIN>TRUCKIN.;21 144206 changes to: (FNS CreatePlayers GameObject.AddGauges GameParameters.SetUp InitializeTruckin TimeTruckin.RedoGameParameters TruckinGame.RedoGameParameters) (VARS TRUCKINCOMS) previous date: "16-JUN-83 19:53:58" {INDIGO}TRUCKIN>TRUCKIN.;19) AuxBuyMade D1 (P 0 begT I 7 lifetime I 6 fragility I 5 penalty I 4 reason I 3 qty I 2 reqQty I 1 roadPosition I 0 player) /X@ABCDEFG `g`g HÙØ@(53Q PutValue 45Q CLOCK 42Q GetValue 23Q TalkinBuyMade 5 CLOCK) (37Q unchargedTime 34Q gameMaster 31Q unchargedTime 26Q gameMaster) NIL AuxMoveMade D1 (P 0 begT I 5 missTurn I 4 penaltyAmt I 3 reason I 2 to I 1 from I 0 player) ,X@ABCDE `g`g HÙØ@(50Q PutValue 42Q CLOCK 37Q GetValue 20Q TalkinMoveMade 5 CLOCK) (34Q unchargedTime 31Q gameMaster 26Q unchargedTime 23Q gameMaster) NIL AuxSellMade D1 (P 0 begT I 6 penalty I 5 reason I 4 cargoPosition I 3 qty I 2 reqQty I 1 roadPosition I 0 player) -X@ABCDEF `g`g HÙØh(51Q PutValue 43Q CLOCK 40Q GetValue 21Q TalkinSellMade 5 CLOCK) (35Q unchargedTime 32Q gameMaster 27Q unchargedTime 24Q gameMaster) NIL BanditGotYou? D1 (P 0 truck I 2 speed I 1 rs I 0 player) %@g BkHg `ÔoÖjØ ýó(40Q RAND 22Q GetClassValue 6 GetValue) (25Q maxMove 17Q MaxDist 3 truck) (32Q .5) BrokenRules D1 (P 2 ^ws P 1 tmp P 0 truck I 4 penaltyMsg I 3 moveP I 2 cashP I 1 msg I 0 culprit F 5 debugMode) ÍP@\g »LglK™@g b€@Zdg o A @g XB²jBóŸCµjB Øb¿hb¿`œoho¿B².HgHg Bkó‘BŠHg BÖjØYÙ¿hoI¿C²&`g@`g ¿@g o ¿D˜oD ¿U’@(311Q TruckinRE 303Q WriteGameStatus 270Q WriteGameStatus 261Q GetValue 251Q PutValue 245Q GetValue 221Q WriteGameStatus 207Q ChangeValue 176Q GetValue 161Q GetValue 142Q INTTYL 112Q ABS 72Q GetValue 63Q WriteGameStatus 57Q CONCAT 50Q GetValue 34Q GetValue 12Q FetchMethodOrHelp) (256Q driver 242Q loseTurn 237Q gameMaster 233Q loseTurn 230Q gameMaster 173Q cashBox 156Q cashBox 152Q cashBox 125Q gameDebugFlg 67Q truck 45Q driver 31Q driver 17Q SystemTruck 7 InstOf!) (277Q "Penalty: " 265Q " Loses Next Turn" 215Q "Cash Penalty: $" 137Q "Type Return to Continue." 132Q "Debug Pause: " 54Q " violated Rule: ") ChangeValue D1 (I 2 value I 1 var I 0 self) @AB(5 PutValue) NIL NIL CheckVictim D1 (P 20Q x P 5 truck P 4 loss P 3 victim P 2 savedBandit P 1 caught P 0 bandit I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self F 21Q banditCutOff) @g kl `ÓDB@ACE B_g ¾OkN[¢±èW"Iñ’±àK¿B_g _¿OkO¿B_g _¿OkO¿J¿oKg ¿Kg ]g oÖjØ¼MgMg LÙ¿oL ¿Mg °bdO _g _¿OglO²AO _g _¿OHdg lO²"oO g oO o¿µŸB(420Q WriteGameStatus 411Q CONCAT 406Q ClassName 375Q GetValue 351Q GetValue 334Q FetchMethodOrHelp 302Q FetchMethodOrHelp 261Q GetValue 251Q WriteGameStatus 240Q ChangeValue 233Q GetValue 210Q GetValue 201Q GetValue 171Q WriteGameStatus 166Q GetValue 133Q FetchMethodOrHelp 107Q FetchMethodOrHelp 45Q FetchMethodOrHelp 34Q PutLocalState 14Q RAND 6 GetValue) (372Q qty 346Q pr 331Q TransferOwner 312Q LuxuryGoods 277Q InstOf! 256Q cargo 230Q cashBox 224Q cashBox 205Q cashBox 176Q truck 163Q driver 152Q currentPlayer 130Q Flash 104Q Unpark 75Q currentPlayer 42Q AnyVictim 17Q currentPlayer 3 driver) (415Q " units" 401Q " " 365Q "Bandits stole: " 245Q "Cash lost: $" 214Q .2 157Q "BANDIDOS robbed you!! ") CityDump.CanBuy D1 (I 4 seller I 3 qty I 2 pr I 1 commodity I 0 self) PAHg ¹H@g lI©Do hC@g ó™Do hB@g ó™Do h@(112Q BrokenRules 100Q GetValue 66Q BrokenRules 54Q GetValue 42Q BrokenRules 23Q GetClassValue 12Q FetchMethodOrHelp) (75Q pr 51Q qty 20Q Commodity 7 InstOf!) (107Q "price too high" 63Q "too much quantity" 37Q "wrongcommodity") ColorGameBoard.CreateGameBoard D1 (P 1 screen P 0 gameWindow I 2 title I 1 region I 0 self) Š žY™IÈlð«il ¿Y€I XhddHhdddggl n€AÙlÛH nàAÙlÛH jdAAhH hddHhdddggl l H(206Q MakeDriveBitMaps 201Q BITBLT 155Q DSPCLIPPINGREGION 131Q DSPYOFFSET 111Q DSPXOFFSET 72Q BITBLT 45Q DSPCREATE 37Q COLORSCREENBITMAP 33Q COLORDISPLAY 11Q COLORSCREENBITMAP 5 COLORDISPLAYP) (173Q REPLACE 170Q TEXTURE 64Q REPLACE 61Q TEXTURE 17Q BITMAP) NIL ColorGameBoard.MakeDriveBitMaps D1 (I 0 self) l (4 MakeDriveBitMaps) NIL NIL CommodityClassMeta.New D1 (I 0 self) oi ¿i h(14Q TERPRI 7 PRIN1) NIL (3 "Cannot create an instance of a class of commodities!") CommodityMeta.New D1 (P 11Q obj% P 0 new I 3 owner I 2 qty I 1 pr I 0 self) ä @ g µOÉ[!Kd`ð£¿h°2É_¿OÉd²Z´j¹JIÐÉd–gð²;I_² _g _g _¿OkO¿O_g _¿OkO¿O_8¿O:µ O8h_<‚O8&_:¿µO<±£M _d`ð²Xg _"g _ ¿O"kO ¿O_&g _$¿O&kO$¿oi ¿Mi ¿i ¿MO ¿gO ¿O°<_*g _(¿O*kO(»oi ¿K i ¿i ¿Kd`¨`¿Kh _4¿O2kØ_2±þ}O4(757Q \NCONC2 731Q TERPRI 724Q PRIN1 720Q GetObjectName 713Q PRIN1 670Q FetchMethodOrHelp 653Q DREMOVE 642Q DREMOVE 633Q TERPRI 626Q PRIN1 620Q PRIN1 575Q FetchMethodOrHelp 550Q FetchMethodOrHelp 540Q GetValue 520Q GetObjectRec 440Q FetchMethodOrHelp 413Q FetchMethodOrHelp 403Q GetValue 373Q GetObjectRec 352Q DREMOVE 335Q DREMOVE 316Q TERPRI 311Q PRIN1 303Q PRIN1 246Q INMENU 227Q TERPRI 222Q PRIN1 213Q PRIN1 154Q \APPEND2 151Q \APPEND2 146Q REMOVE 125Q FetchMethodOrHelp 115Q GetObjectRec 46Q GetObjectName) (750Q newPlayers 744Q newPlayers 737Q newPlayers 665Q New 646Q ALL-EXISTING 572Q Initialize 545Q Initialize 535Q truck 527Q instanceTYPE# 435Q Initialize 410Q Initialize 400Q truck 345Q ALL-EXISTING 266Q ALL-EXISTING 253Q NO 135Q Subs 122Q List! 112Q Player 107Q DemoPeddler 37Q newPlayers) (707Q "Player created: " 614Q "Player selected: " 277Q "Existing players are: " 242Q "Enter one of: type of player, name of existing player, A for use existing players, or N for no more players" 234Q "Type of player: " 207Q "************ Player No. " 23Q (ALL-EXISTING NO)) DrawRoadMarks D1 (P 13Q mark P 11Q road P 7 marksPerRoad P 6 numRoads P 5 yIncr P 4 y P 3 x P 2 stripeWidth P 1 blackIncr P 0 whiteIncr I 0 self) ›l llS@g ^g g g g Ø]@g HIØÛ_Mg g lÛÙ\Nk OOñ³Aj»OkOOñ´LMØ¼OkØ_°ádd`KLHJggj ¿KIHØØ»OkØ_°Íh(210Q BITBLT 107Q GetClassValue 101Q GetObjectRec 61Q GetValue 50Q GetClassValue 42Q GetObjectRec 34Q GetClassValue 26Q GetObjectRec 17Q GetClassValue) (203Q REPLACE 200Q TEXTURE 171Q gameWindow 104Q Height 76Q Player 56Q windowRegion 45Q Height 37Q Player 31Q Height 23Q RoadStop 14Q numRows) NIL Drive D1 (P 10Q y P 7 xStop P 6 xStart P 5 prevTunnelFlg P 4 tunnelFlg P 3 nextRs P 2 stopRs P 1 direction P 0 rs I 2 player I 1 stopRoadStop I 0 startRoadStop) G @Bµ`b¿Ag @g ó“g‚g¹HdAð‘hºIdgð•¿Hg‰gð´ Hg »h¼JAð³8L³5Kg Hg ð²!KºIdgð•¿Kg‰gð´ Kg »°Êi°ÆHg gð–Igð³Hg gð²PIgð²IM“`ŠHg `Ø¾L›Jg `Ø†Jg _¿Hg Hg Ø_¿NOOB°JMšHg `‰Hg `Ø¾L“`ŠJg `Ø_¿Hg Hg Ø_¿NOOB¿L]‘K€JX±þã(472Q DriveLeft 455Q GetClassValue 446Q GetValue 430Q GetValue 406Q GetValue 373Q GetValue 360Q DriveRight 343Q GetClassValue 334Q GetValue 322Q GetValue 306Q GetValue 270Q GetValue 236Q GetValue 213Q GetValue 176Q GetValue 137Q GetValue 130Q GetValue 106Q GetValue 32Q GetValue 23Q GetValue) (452Q Height 443Q y 433Q roadStopHalfWidth 425Q x 420Q xTunnelLeft 411Q roadStopHalfWidth 403Q x 376Q xTunnelRight 370Q x 340Q Height 331Q y 317Q x 311Q xTunnelRight 303Q x 273Q roadStopHalfWidth 265Q x 260Q xTunnelLeft 250Q Down 241Q Left 233Q roadOrientation 224Q Up 216Q Right 210Q roadOrientation 173Q prev 164Q Down 160Q next 151Q Up 134Q roadOrientation 125Q roadOrientation 103Q prev 74Q Down 70Q next 61Q Up 43Q Down 37Q Up 27Q milePost 20Q milePost 11Q currentPlayer) NIL DriveLeftA0043 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 x P 3 truckX P 2 height P 1 nextCol P 0 endSave F 7 xStart F 10Q y F 11Q xStop F 12Q player) 0g` ¿g g `Ùg g g g Wµ`cg hd`¿`WW`¿Wg hd`WW ¿W`Ùc¿WWN²Njð’±’jNó“WM‚MWñ’±‚o ¿`Hh`Ih`J ¿`hd``hHJ ¿`MW`hd`J ¿`hd`MW ¿M[WÙ`ýñ˜`kØ‚`jð¦` ¿Mj`Ù^Ø½±ÿj`hd`KW hh(451Q BITBLT 414Q DISMISS 353Q BITBLT 333Q BITBLT 307Q BITBLT 264Q BITBLT 241Q WaitIfControlKey 157Q BITBLT 142Q GetValue 131Q BITBLT 113Q BITBLT 103Q GetValue 61Q GetClassValue 53Q GetObjectRec 45Q GetClassValue 37Q GetObjectRec 25Q GetClassValue 17Q GetObjectRec 10Q SETTOPVAL) (442Q gameWindow 435Q saveMap 422Q truckIncr 411Q truckDelay 403Q truckDelay 377Q truckDelay 372Q truckDelay 364Q truckSlowDownDistance 344Q gameWindow 337Q paintMap 326Q truckIncr 321Q saveMap 313Q gameWindow 300Q truckIncr 275Q saveMap 270Q saveMap 257Q truckIncr 252Q paintMap 245Q saveMap 165Q truckIncr 147Q gameWindow 137Q reverseIcon 126Q saveMap 117Q gameWindow 110Q paintMap 100Q reverseIcon 73Q currentPlayer 56Q Height 50Q Player 42Q Width 34Q Player 30Q truckIncr 22Q Width 14Q Player 5 truckDelay 2 truckDelay) (236Q "driving") DriveLeft D1 (P 1 MACROY P 0 MACROX I 3 player I 2 y I 1 xStop I 0 xStart F 2 RESETVARSLST) 3 gd RcXog YgH HcIµh(55Q ERROR! 43Q SETTOPVAL 31Q DriveLeftA0043 11Q GETTOPVAL) (35Q truckDelay 26Q INTERNAL 5 truckDelay) (23Q (DUMMY.FOR.ERRORSET)) DriveRightA0044 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) P 5 x P 3 truckX P 2 height P 1 nextCol P 0 endSave F 7 y F 10Q xStop F 11Q player F 12Q xStart) 0g` ¿g g `Ùg g g g Wµ`cg hd`` ¿`WW`¿Wg hd`WW ¿WWN²Njð’±“jNó“WM‚MWñ’±ƒo ¿`hd`hd`J ¿``h`hdHJ ¿`MIØW`Hh`J ¿`hd`MW ¿M»WMÙ`ýñ˜`kØ‚`jð¦` ¿M`^Ø½±ÿi`hd`K`ØW hh(451Q BITBLT 412Q DISMISS 350Q BITBLT 330Q BITBLT 302Q BITBLT 257Q BITBLT 234Q WaitIfControlKey 163Q BITBLT 146Q GetValue 135Q BITBLT 117Q BITBLT 103Q GetValue 61Q GetClassValue 53Q GetObjectRec 45Q GetClassValue 37Q GetObjectRec 25Q GetClassValue 17Q GetObjectRec 10Q SETTOPVAL) (442Q truckIncr 436Q gameWindow 431Q saveMap 417Q truckIncr 407Q truckDelay 401Q truckDelay 375Q truckDelay 370Q truckDelay 362Q truckSlowDownDistance 341Q gameWindow 334Q paintMap 323Q truckIncr 316Q saveMap 306Q gameWindow 272Q saveMap 266Q truckIncr 263Q saveMap 252Q truckIncr 245Q paintMap 240Q saveMap 153Q gameWindow 143Q icon 132Q saveMap 123Q gameWindow 113Q truckIncr 110Q paintMap 100Q icon 73Q currentPlayer 56Q Height 50Q Player 42Q Width 34Q Player 30Q truckIncr 22Q Width 14Q Player 5 truckDelay 2 truckDelay) (231Q "driving") DriveRight D1 (P 1 MACROY P 0 MACROX I 3 player I 2 y I 1 xStop I 0 xStart F 2 RESETVARSLST) 3 gd RcXog YgH HcIµh(55Q ERROR! 43Q SETTOPVAL 31Q DriveRightA0044 11Q GETTOPVAL) (35Q truckDelay 26Q INTERNAL 5 truckDelay) (23Q (DUMMY.FOR.ERRORSET)) ELIMINATE D1 (I 1 l I 0 x) 0A¡h@A •Ab°òAdŸ¿@A •Ab°ÞA@A (54Q ELIMINATE 35Q EQUAL 11Q EQUAL) NIL NIL FindFirstNIL D1 (P 1 i I 0 lst) &@ kIHñ³@I ¤Iµi†IkØY°ìhµj(21Q NTH 3 FLENGTH) NIL NIL FindLocIndex D1 (P 1 i I 1 l I 0 el) $A kIHñ³@AI ð”IµiIkØY°êh(22Q NTH 3 LENGTH) NIL NIL FindRandomNIL D1 (P 4 i P 2 ri P 1 length P 0 index I 0 lst) 9j@ IkLKñ³Hjð²kI º@J ¡J¸LkØ\°äHdjð”¿@ (66Q FindFirstNIL 41Q NTH 33Q RAND 4 FLENGTH) NIL NIL GameBoard.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 GameBoard.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 gameMaster 24Q UnattachBoard 6 gameMaster) NIL GameBoard.CreateGameBoard D1 (P 0 gameWindow I 2 title I 1 region I 0 self) /0AB XhddHhdddggnZZ @Zg ¹JkIH(45Q FetchMethodOrHelp 35Q BITBLT 7 CREATEW) (42Q MakeDriveBitMaps 26Q REPLACE 23Q TEXTURE) NIL GameBoard.DisplayGameBoard D1 (P 16Q 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½@_g _¿OMooLll oolO¿@g`¿@gM°hdd`hdddggnZZ ¿@_g _¿OkO¿@g °dO_g _¿OkOµä@(364Q FetchMethodOrHelp 343Q GetValue 321Q FetchMethodOrHelp 307Q BITBLT 256Q PutValue 245Q PutValue 221Q CONCAT 206Q CONCAT 203Q SUBSTRING 155Q FetchMethodOrHelp 122Q GetClassValue 114Q GetObjectRec 106Q GetClassValue 100Q GetObjectRec 72Q GetClassValue 57Q GetClassValue 51Q GetObjectRec 43Q GetClassValue 23Q GetValue 11Q DATE) (361Q Place 340Q roadStops 316Q DrawRoadMarks 300Q REPLACE 275Q TEXTURE 266Q gameWindow 252Q windowRegion 242Q gameWindow 237Q gameWindow 232Q gameWindow 152Q CreateGameBoard 117Q Height 111Q Player 103Q Height 75Q RoadStop 67Q numRows 54Q Width 46Q RoadStop 40Q numColumns 26Q gameWindow 20Q gameWindow) (216Q " " 212Q " Xerox Corp" 173Q "19" 167Q "TRUCKIN Knowledge System. Created by: DANIEL BOBROW, SANJAY MITTAL, and MARK STEFIK. Copyright (c) ") GameBoard.MakeDriveBitMaps D1 (I 0 self) k (3 MakeDriveBitMaps) NIL NIL GameBoard.NewBoard D1 (I 0 self) >i @Hg ¹HkI@Hg ¹HkI@Hg ¹HkI`(62Q FetchMethodOrHelp 40Q FetchMethodOrHelp 16Q FetchMethodOrHelp 3 RANDSET) (73Q gameBoard 57Q PlaceRoadStops 35Q AssignRoadStops 13Q DisplayGameBoard) NIL GameBoard.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µo@g @g oÖÕ@g @g oÖÔ ldÖjØoë (73Q MAX 56Q RAND 45Q GetClassValue 36Q GetClassValue 21Q GetClassValue 12Q GetClassValue) (42Q Pr 33Q Pr 16Q Pr 7 Pr) (67Q 100.0 51Q .2 25Q .2 3 .1) GenConsumerQty D1 (I 0 self) ;@g @g oÖÕjØ@g @g oÖÔjØ kHñ¡Hk(56Q RAND 43Q GetClassValue 34Q GetClassValue 15Q GetClassValue 6 GetClassValue) (40Q Qty 31Q Qty 12Q Qty 3 Qty) (47Q .3 21Q .3) InCopyCV? D1 (L (1 list 0 x)) EAHµh¹@dI ³'d¿I˜@I ³@–@I «I@I ¡h”IµiHX°Ã(66Q EQUAL 54Q EQUAL 41Q EQUAL 21Q EQUAL) NIL NIL InformBandit&WS D1 (P 27Q x P 2 bandit P 1 fine P 0 penalty I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) %jñpDB@ACE @g \g »LglK’±øB^g ½NglM¢±»`²YB_g _¿OkO¿B_g _¿OkO¿Bg @g l ÔÖ¸`ohdoBg ¿HBg @g l ÔÖÔjØ¹@g Iýó³,@g g o I ¿@g@g IÙ@oI hk¿B_g _¿OkOZ¢±B_g _¿OkO¿`²NB_ g _¿O kO¿B_$g _"¿O$kO"¿o@g g oBg °o@g g ¿@g oÖjØ¹@g@g IÙ¿oI ¿@g °bdO._(g _&¿O(glO&²AO._,g _*¿O,Jdg lO*²"oO.g oO. o¿µŸB(1033Q WriteGameStatus 1024Q CONCAT 1021Q ClassName 1010Q GetValue 764Q GetValue 747Q FetchMethodOrHelp 715Q FetchMethodOrHelp 674Q GetValue 664Q WriteGameStatus 653Q ChangeValue 646Q GetValue 623Q GetValue 613Q WriteGameStatus 610Q GetValue 602Q GetValue 565Q WriteGameStatus 562Q CONCAT 557Q GetClassValue 544Q GetValue 536Q GetValue 510Q FetchMethodOrHelp 464Q FetchMethodOrHelp 433Q FetchMethodOrHelp 403Q FetchMethodOrHelp 371Q BrokenRules 364Q CONCAT 352Q ChangeValue 345Q GetValue 331Q WriteGameStatus 325Q CONCAT 316Q GetValue 310Q GetValue 274Q GetValue 255Q GetValue 246Q GetValue 235Q BrokenRules 231Q CONCAT 226Q GetClassValue 175Q GetValue 166Q GetValue 144Q FetchMethodOrHelp 120Q FetchMethodOrHelp 64Q FetchMethodOrHelp 36Q FetchMethodOrHelp 27Q GetValue 20Q PutLocalState) (1005Q qty 761Q pr 744Q TransferOwner 725Q LuxuryGoods 712Q InstOf! 671Q cargo 643Q cashBox 637Q cashBox 620Q cashBox 605Q driver 577Q driver 554Q RoadSign 541Q driver 533Q driver 505Q Crash 461Q Unpark 451Q forcedStop 430Q Flash 400Q Bandit? 342Q cashBox 336Q cashBox 313Q driver 305Q driver 271Q cashBox 252Q weight 243Q weightTax 223Q RoadSign 205Q currentPlayer 172Q weight 163Q penaltyFactor 141Q Crash 115Q Unpark 105Q forcedStop 71Q WeighStation 61Q InstOf! 43Q Bandit 33Q InstOf! 24Q driver) (1030Q " units" 1014Q " " 1000Q "Bandits Stole: " 660Q "Cash lost: $" 627Q .2 573Q "BANDITS robbed you!! " 550Q " at " 527Q "BANDITS stopped you!! " 360Q "Cannot pay WeighStation tax of $" 322Q " paid total Wt. Tax $" 217Q "Forcibly stopped!! at " 211Q "Speeding past a WeighStation at high speed") InitializeTruckin D1 (P 4 var P 0 yMargin F 5 TRUCKINVARS F 6 MPenalty F 7 MReason F 10Q replenishFreq F 11Q debugTimeTrace F 12Q debugMode F 13Q banditIndex F 14Q DemoPlayerMode F 15Q defaultGaugesFlg F 16Q banditCutOff) ; l1UŠdL µôhdccdghdcichcicl(cldjlllkcdcoi g g lÛmœg g ldØg g g g g g lÙoYd¯gl gi¿I g g oZd¯glgi¿J Ùo[d¯gl gi¿K ÙlÙHÙh(456Q FONTHEIGHT 445Q FONTCREATE 421Q FONTHEIGHT 410Q FONTCREATE 365Q GetClassValue 357Q GetObjectRec 346Q BITMAPCREATE 343Q FONTHEIGHT 332Q FONTCREATE 304Q GetClassValue 276Q GetObjectRec 265Q BITMAPCREATE 262Q GetClassValue 254Q GetObjectRec 246Q GetClassValue 240Q GetObjectRec 224Q GetClassValue 216Q GetObjectRec 175Q GetClassValue 167Q GetObjectRec 161Q RANDSET 27Q SetMachineDepPara 17Q SET) (467Q yData 442Q BOLD 435Q HELVETICA 405Q BOLD 400Q HELVETICA 362Q Height 354Q RoadStop 351Q blankDataIcon 327Q BOLD 322Q HELVETICA 301Q Width 273Q RoadStop 270Q blankPlayerIcon 257Q Height 251Q Player 243Q Width 235Q Player 232Q xTunnelRight 221Q Width 213Q Player 210Q xTunnelLeft 203Q roadStopHalfWidth 172Q Width 164Q RoadStop 155Q banditNames 140Q banditMoveRange 133Q banditMoveFrequency 126Q truckSlowDownDistance 121Q truckDelay 115Q aliceCount 111Q banditCount 67Q timeTrace 61Q truckinLogFlg 55Q truckinLogFile 52Q TRUCKINLOG 47Q truckinLogHandle 36Q FCTReason 33Q FCTPenalty) (426Q (NIL) 371Q (NIL) 313Q (NIL) 152Q (Bonnie Clyde Capone JesseJ RHood Zorro Robber Thief Thug Mugger Clyde2 Clyde3 Clyde4 Clyde5 Clyde6 Zorro2 Zorro3 Zorro4 Zorro5 Zorro6 Thief2 Thief3 Thief4 Thief5 Thief6 Thug2 Thug3 Thug4 Thug5 Thug6)) InvertIcon D1 (P 0 rIcon I 0 icon) @ X@hdHhdddgg H(31Q BITBLT 6 BITMAPCOPY) (25Q REPLACE 22Q INVERT) NIL MakeDriveBitMaps D1 (I 0 bitsPerPixel) Dg g g g @`g g Øg g @(76Q BITMAPCREATE 72Q GetClassValue 64Q GetObjectRec 55Q GetClassValue 47Q GetObjectRec 33Q BITMAPCREATE 27Q GetClassValue 21Q GetObjectRec 13Q GetClassValue 5 GetObjectRec) (101Q paintMap 67Q Height 61Q Player 52Q Width 44Q Player 41Q truckIncr 36Q saveMap 24Q Height 16Q Player 10Q Width 2 Player) NIL MetaBrowser.GetSubs D1 (P 2 meta I 1 elt I 0 self) .A Hg ¹HglI JA ð‘hJh(44Q GetObjectRec 34Q GetObjectRec 15Q FetchMethodOrHelp 3 GetObjectRec) (22Q Meta 12Q List) NIL MoveTruckin.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 MoveTruckin.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! ") MoveTruckin.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 MoveTruckin.RunGameA0173 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 x) RHg ¹HkIh(12Q FetchMethodOrHelp) (7 TakeTurn) NIL MoveTruckin.RunGame D1 (P 14Q y P 13Q x P 0 playerRet I 1 players I 0 self F 15Q debugMode) p ° @g jó¡ho ¿@g @g jðž@Zg ¹JkI¿@g l jðŸho@g ¿@\g »LkK¿@^g ½NkM¿@g@g kÙ¿@g ±Öd@gO¿@gj¿h¿Og g do µñO@g ²*Og o ¿@gO@g °WkOg g ¿W²O_g _¿OkO°'oi X³@_g _¿OOolO¿@g µ‚±ÿ)±þ—(542Q PutValue 511Q FetchMethodOrHelp 475Q MoveTruckin.RunGameA0173 451Q FetchMethodOrHelp 427Q RAND 424Q GetClassValue 416Q GetValue 403Q PutValue 400Q REMOVE 375Q GetValue 357Q WriteGameStatus 354Q CONCAT 345Q GetValue 332Q GetValue 314Q DoFringeMethods 277Q GetValue 271Q GetValue 253Q 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) (537Q lastMoved 506Q RemovePlayer 446Q TakeTurn 432Q maxMove 421Q MaxDist 413Q truck 372Q loseTurn 364Q loseTurn 342Q driver 327Q loseTurn 274Q cargo 266Q truck 260Q forcedStop 247Q unchargedTime 242Q currentPlayer 232Q currentPlayer 213Q players 176Q numMovesRemaining 172Q numMovesRemaining 154Q MoveBandits 135Q CheckAlice 121Q numMovesRemaining 75Q numMovesRemaining 57Q ReplenishQty 41Q replenishFreq 32Q numMovesRemaining 6 numMovesRemaining) (524Q "Player crashed on a Bug" 471Q (DUMMY.FOR.ERRORSET) 351Q " lost his turn" 311Q (y (QUOTE UpdateStatus)) 115Q "Moves Remaining: " 22Q "Beginning of Game Loop") MoveTruckin.SetUpGauges D1 (I 0 self) .@Hg ¹HgiolI@Hg ¹HkI(45Q GetSuperMethod 12Q FetchMethodOrHelp) (42Q SetUpGauges 17Q numMovesRemaining 7 AddGauges) (24Q "Moves Remaining") NormalizeValue D1 (L (1 factor 0 value)) AµldHjð“@jØ@HÖjØHëNIL NIL NIL RandomRoomAvailable D1 (P 3 seen P 2 index P 1 maxSize P 0 rs I 2 lastChoice I 1 end I 0 begin) D`g A@ÙkØB@A ZdK’¿°õK»HJ ]g ¼MkL‘JK I ²ÒB(76Q EQUAL 72Q FLENGTH 55Q FetchMethodOrHelp 45Q NTH 25Q RAND 10Q GetValue) (52Q RoomToPark? 5 roadStops 2 gameMaster) NIL ReflectIcon D1 (P 3 rCol P 2 col P 0 rIcon I 0 icon) 1ld XljJIñ³lJÙ»@JjHKjkl ¿JkØZ°åH(46Q BITBLT 10Q BITMAPCREATE) NIL NIL STRINGNUM D1 (P 0 string I 1 WIDTH I 0 NUM) @ H Añ–HkAH(23Q SUBSTRING 12Q NCHARS 3 MKSTRING) NIL NIL SetMachineDepPara D1 NIL jdgð²¿kg gkdgð²¿lg gogð²lg gokg gk(147Q PutClassValue 140Q GetObjectRec 125Q PutClassValue 113Q GetObjectRec 71Q PutClassValue 57Q GetObjectRec 33Q PutClassValue 24Q GetObjectRec 2 MACHINETYPE) (143Q HandicapRatio 135Q Player 132Q truckIncr 116Q HandicapRatio 110Q Player 105Q truckIncr 75Q DANDELION 62Q HandicapRatio 54Q Player 51Q truckIncr 40Q DOLPHIN 27Q HandicapRatio 21Q Player 16Q truckIncr 6 DORADO) (122Q .25 66Q .25) SetUpGame D1 (I 1 gameType I 0 numPlayers) "Aµg Hg ¹HkI@d’ (37Q CreatePlayers 22Q FetchMethodOrHelp 10Q $!) (17Q New 5 TimeTruckin) NIL SettifyCopyCV D1 (P 1 x P 0 new I 0 list) hh@dYH ¥HI ¿µïH(25Q TCONC 17Q InCopyCV?) NIL NIL SetupGameBrowsers D1 (F 2 x) îg Hg ¹HkIcdgoRHg ¹HolIg Hg ¹HkIcdgoRHg ¹HolIg Hg ¹HkIcdgoRHg ¹HolIg Hg ¹HkIcdgoRHg ¹HolIh(337Q FetchMethodOrHelp 324Q PutValue 300Q FetchMethodOrHelp 266Q GetObjectRec 244Q FetchMethodOrHelp 231Q PutValue 205Q FetchMethodOrHelp 173Q GetObjectRec 151Q FetchMethodOrHelp 136Q PutValue 112Q FetchMethodOrHelp 100Q GetObjectRec 56Q FetchMethodOrHelp 43Q PutValue 17Q FetchMethodOrHelp 5 GetObjectRec) (334Q Show 315Q title 275Q New 263Q ClassBrowser 241Q Show 222Q title 202Q New 170Q ClassBrowser 146Q Show 127Q title 107Q New 75Q ClassBrowser 53Q Show 34Q title 14Q New 2 ClassBrowser) (345Q (Hazard) 321Q "Hazard lattice" 252Q (Commodity CommodityTransportability) 226Q "Commodity and transportability lattice" 157Q (Commodity) 133Q "Commodity lattice" 64Q (GameObject) 40Q "GameObject lattice") SmashCreateCommodity D1 (P 2 pr P 1 qty P 0 commodity I 5 type I 4 activeVal I 3 propName I 2 localSt I 1 varName I 0 self) ž`@g @g oÖÕjØ@g @g oÖÔjØ »kKñ¡K€kYo@g @g oÖÕ@g @g oÖÔ ldÖjØoë Z@g ]g ¼MJI@lLXDH@ACE H(232Q ReplaceActiveValue 205Q FetchMethodOrHelp 176Q GetClassValue 166Q MAX 151Q RAND 140Q GetClassValue 131Q GetClassValue 114Q GetClassValue 105Q GetClassValue 61Q RAND 46Q GetClassValue 37Q GetClassValue 20Q GetClassValue 11Q GetClassValue) (202Q New 173Q Commodity 135Q Pr 126Q Pr 111Q Pr 102Q Pr 43Q Qty 34Q Qty 15Q Qty 6 Qty) (162Q 100.0 144Q .2 120Q .2 76Q .1 52Q .3 24Q .3) SmashRandomPerishable D1 (I 5 type I 4 activeVal I 3 propName I 2 localSt I 1 varName I 0 self) D@g @g @A(26Q ReplaceActiveValue 21Q RAND 16Q GetClassValue 7 GetClassValue) (13Q MaxLifetime 4 MinLifetime) NIL SubstituteStop D1 (I 2 new I 1 index I 0 lst) "Ad¥d¡²AjñA@ ó¦@A B@(34Q NTH 25Q FLENGTH) NIL NIL TalkinBuyMade D1 (L (7 lifetime 6 fragility 5 penalty 4 reason 3 qty 2 reqQty 1 roadPosition 0 player)) hNIL NIL NIL TalkinMoveMade D1 (L (5 missTurn 4 penaltyAmt 3 reason 2 to 1 from 0 player)) hNIL NIL NIL TalkinSellMade D1 (L (6 penalty 5 reason 4 cargoPosition 3 qty 2 reqQty 1 roadPosition 0 player)) hNIL NIL NIL TimeTruckin.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 TimeTruckin.ChargeTime D1 (P 1 charge P 0 time I 2 clockTime I 1 player I 0 self F 4 debugTimeTrace) Ô@Bµ@g °_@g Ag ØÙXAg ÖnôÔnè×jØXY@g ýó˜@g °'H@g ó²@[g ºKAoI lJ¿j¹AgIAg Ø@g@g IÙT²$oAg oB oH ¿`²oAg oIoI(320Q WriteGameStatus 315Q CONCAT 301Q GetValue 260Q WriteGameStatus 255Q CONCAT 245Q CONCAT 235Q CONCAT 232Q GetValue 214Q PutValue 207Q GetValue 174Q PutValue 170Q GetValue 144Q CONCAT 131Q FetchMethodOrHelp 116Q GetClassValue 104Q GetClassValue 72Q GetClassValue 46Q GetClassValue 34Q GetClassValue 25Q GetValue 14Q GetClassValue) (276Q driver 264Q timeTrace 227Q driver 204Q timeRemaining 200Q timeRemaining 165Q timeUsed 160Q timeUsed 126Q RemovePlayer 113Q MaxMoveTime 101Q MinMoveTime 67Q MinMoveTime 43Q HandicapRatio 31Q Handicap 22Q unchargedTime 11Q MinMoveTime) (312Q " sec" 305Q " " 272Q "Time Charged to: " 251Q "Used(sec)" 241Q "Clock(ms) " 223Q "Time Used: by " 140Q "Too much time taken ") TimeTruckin.CheckAlice D1 (P 10Q reason P 7 msg P 6 time P 5 loc P 0 x I 1 player I 0 self) ò @g ±ádQo±Ëd½0AHM ð¢±¸HMHMgkØg¿HMgkó¢±—HMg`g Ù^@ggó²voN _²jg_²c@g Zg ¹JkI²?AOhko ¿@\g »LAH@g @g @g OlKŒAOhko ¿µ‚±ÿ4hµ‚±ÿh(332Q BrokenRules 305Q FindLocIndex 302Q GetValue 273Q GetValue 264Q FindLocIndex 261Q GetValue 246Q FetchMethodOrHelp 235Q BrokenRules 210Q FetchMethodOrHelp 201Q GetValue 157Q CONCAT 144Q GetValue 130Q GetValue 117Q GetValue 101Q GetValue 70Q PutValue 60Q GetValue 41Q GetValue 6 GetValue) (277Q roadStops 270Q unionHall 256Q roadStops 243Q MoveRequest 205Q RoomToPark? 176Q unionHall 166Q AliceTime 141Q MaxTime 136Q aliceStay 125Q timeRemaining 122Q gameMaster 114Q timeParked 76Q howLong 65Q howLong 55Q howLong 3 alices) (326Q "Will be moved to UnionHall next turn" 231Q "Forcibly moved to UnionHall" 153Q "Spent too much time at Alice: " 22Q (parkingPlace1 parkingPlace2)) TimeTruckin.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 ") TimeTruckin.InitializeGameParameters D1 (I 0 self) Y@Hg ¹HkI@ggið®@g@g ¿@ggg@ggg@gj@g (126Q PutValue 117Q PutValue 107Q PutValue 72Q PutValue 54Q PutValue 51Q GetInitialValue 33Q GetValue 12Q GetSuperMethod) (123Q lastPlayer 113Q unchargedTime 104Q LastTime 101Q ? 76Q banditFreq 67Q LastTime 64Q ? 61Q replenishFreq 46Q timeRemaining 42Q timeRemaining 30Q SetByUser 25Q timeRemaining 7 InitializeGameParameters) NIL TimeTruckin.MoveBandits D1 (I 0 self) @@gg@g Ù@g ó´$@g@g g@Hg ¹HkI(67Q GetSuperMethod 54Q PutValue 46Q GetValue 30Q GetValue 20Q GetValue 11Q GetValue) (64Q MoveBandits 51Q LastTime 43Q timeRemaining 37Q banditFreq 25Q banditFreq 15Q timeRemaining 6 LastTime 3 banditFreq) NIL TimeTruckin.RedoGameParameters D1 (I 0 self) á@Hg ¹HkI@ggiðœ@ghg°.@g@g @gg@g @g ÚÚÚ¿oo@g @g@g g@g@g lÚg@g@g @g @ggÚÚ@g@g @g @ggÚÚh(335Q PutValue 330Q GetValue 316Q LENGTH 313Q GetValue 304Q GetClassValue 271Q PutValue 264Q GetValue 252Q LENGTH 247Q GetValue 240Q GetClassValue 225Q PutValue 214Q GetValue 201Q PutValue 173Q GetValue 160Q WriteGameStatus 155Q CONCAT 152Q GetValue 133Q DATE 127Q PutValue 121Q GetClassValue 112Q LENGTH 107Q GetValue 100Q GetValue 66Q GetValue 51Q PutValue 33Q GetValue 12Q GetSuperMethod) (325Q ReplenishFactor 322Q replenishFreq 310Q players 301Q MinMoveTime 275Q replenishFreq 261Q BanditFactor 256Q banditFreq 244Q players 235Q MinMoveTime 231Q banditFreq 222Q LastTime 211Q timeRemaining 205Q banditFreq 176Q LastTime 170Q timeRemaining 164Q replenishFreq 147Q timeRemaining 116Q MinMoveTime 104Q players 75Q Factor 72Q avgNumMoves 63Q avgNumMoves 57Q timeRemaining 46Q SetByUser 42Q timeRemaining 30Q SetByUser 25Q timeRemaining 7 RedoGameParameters) (143Q "Total Time (in sec.): " 137Q " New Simulation! ") TimeTruckin.ReplenishQty D1 (I 0 self) @@gg@g Ù@g ó´$@g@g g@Hg ¹HkI(67Q GetSuperMethod 54Q PutValue 46Q GetValue 30Q GetValue 20Q GetValue 11Q GetValue) (64Q ReplenishQty 51Q LastTime 43Q timeRemaining 37Q replenishFreq 25Q replenishFreq 15Q timeRemaining 6 LastTime 3 replenishFreq) NIL TimeTruckin.RunGameA0097 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 2 currPlayer) RHg ¹HkIh(12Q FetchMethodOrHelp) (7 TakeTurn) NIL TimeTruckin.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 debugMode) ÔðP@g jó¡ho ¿@g l jðŸho@g ¿@]g ¼MkL¿@_g ¾OkN¿@g oO(µ#@gH¿h¿Hg g °1_,g O*ýñ›O,Xg _*¿O(_(°½do µñ@gj¿H@g ²FHg o ¿@_g _¿OHlOº@gH@g ¿@g °|kHg g ¿¹W0²H_g _¿OkO°&oi [³@_g _¿OHolO¿@g ¿@_g _¿OHIÙlOZ¿HgHg kØ¿@_"g _ ¿O"HJlO ¿@_&g _$¿O&HlO$¿±þ6(702Q FetchMethodOrHelp 653Q FetchMethodOrHelp 641Q PutValue 634Q GetValue 607Q CLOCK 576Q FetchMethodOrHelp 564Q PutValue 534Q FetchMethodOrHelp 520Q TimeTruckin.RunGameA0097 474Q FetchMethodOrHelp 456Q CLOCK 447Q RAND 444Q GetClassValue 436Q GetValue 424Q PutValue 414Q PutValue 411Q REMOVE 406Q GetValue 355Q FetchMethodOrHelp 343Q WriteGameStatus 340Q CONCAT 331Q GetValue 317Q GetValue 306Q PutValue 271Q DoFringeMethods 243Q GetValue 225Q GetValue 212Q GetValue 204Q GetValue 167Q PutValue 137Q GetValue 120Q FetchMethodOrHelp 100Q FetchMethodOrHelp 67Q WriteGameStatus 64Q GetValue 45Q IMOD 40Q GetValue 30Q WaitIfControlKey 14Q GetValue) (677Q CheckAlice 650Q UpdateAlice 631Q movesMade 625Q movesMade 573Q ChargeTime 561Q lastMoved 531Q RemovePlayer 471Q TakeTurn 452Q maxMove 441Q MaxDist 433Q truck 421Q lastMoved 403Q loseTurn 376Q loseTurn 352Q ChargeTime 326Q driver 314Q loseTurn 302Q unchargedTime 240Q timeUsed 222Q timeUsed 207Q cargo 201Q truck 174Q forcedStop 164Q currentPlayer 160Q currentPlayer 134Q players 115Q MoveBandits 75Q ReplenishQty 61Q timeRemaining 35Q timeRemaining 11Q timeRemaining) (546Q "Player crashed on a Bug" 514Q (DUMMY.FOR.ERRORSET) 335Q " lost his turn" 266Q (y (QUOTE UpdateStatus)) 143Q 46113200Q 55Q "Time Remaining: " 25Q "Beginning of Game Loop") TimeTruckin.SetUpGauges D1 (I 0 self) .@Hg ¹HgiolI@Hg ¹HkI(45Q GetSuperMethod 12Q FetchMethodOrHelp) (42Q SetUpGauges 17Q timeRemaining 7 AddGauges) (24Q "Time Remaining") TimeTruckin.UpdateAlice D1 (P 1 loc P 0 x I 2 time I 1 player I 0 self) [@g °Ndo°=d¹AHI ð²0HIBHIgØg¿HIgjðŸHI@g g¿µÄhµ³h(114Q PutValue 106Q GetValue 72Q GetValue 61Q PutValue 52Q GetValue 34Q GetValue 6 GetValue) (111Q timeParked 103Q timeRemaining 67Q howLong 56Q timeUsed 47Q timeUsed 3 alices) (21Q (parkingPlace1 parkingPlace2)) TimeTruckin.WhoWon D1 (P 17Q y P 13Q x P 1 winner P 0 atAlice I 0 self) €lhi¿`i ¿oi ¿`i ¿i ho 0 @g °Od0o°*dOO ´OO h_šOµ_O__¿µ×O_šOµ>O__¿µ²OXoi ¿i ¿i o @[g ºKHlJ¿H°z _O°Â _O°¡d`i ¿Og i ¿li ¿oi ¿Og g i ¿i ¿Og oOg g µ›i ¿`i ¿oi ¿i @g °9dO]g ¼MkL¿`²`²O_g ¾O`lN¿µÈi ¿i ¿i @g XdYH°(dOg g Ig g ó’O¹µØ`i ¿oi ¿Ig i ¿`i ¿i oIg I(1021Q WriteGameStatus 1016Q GetValue 1003Q TERPRI 776Q CHANGEFONT 766Q PRIN1 762Q GetValue 752Q PRIN1 741Q CHANGEFONT 720Q GetValue 712Q GetValue 703Q GetValue 675Q GetValue 651Q GetValue 642Q TERPRI 635Q TERPRI 630Q TERPRI 603Q FetchMethodOrHelp 550Q FetchMethodOrHelp 530Q GetValue 521Q TERPRI 514Q PRIN1 503Q CHANGEFONT 473Q TERPRI 462Q WriteGameStatus 457Q CONCAT 454Q GetValue 446Q GetValue 432Q GetValue 421Q TERPRI 414Q PRIN1 410Q GetValue 402Q GetValue 371Q PRIN1 360Q SPACES 351Q PRIN1 345Q GetValue 334Q CHANGEFONT 311Q LAST 277Q LAST 260Q FetchMethodOrHelp 250Q WriteGameStatus 241Q TERPRI 234Q TERPRI 227Q PRIN1 136Q GetValue 125Q GetValue 71Q GetValue 57Q WriteGameStatus 47Q TERPRI 42Q CHANGEFONT 32Q PRIN1 21Q CHANGEFONT 11Q TAB) (1013Q driver 772Q DEFAULTFONT 757Q driver 735Q BOLDFONT 715Q cashBox 707Q truck 700Q cashBox 672Q truck 646Q players 611Q truckinLogHandle 600Q Show 567Q truckinLogHandle 562Q truckinLogFlg 545Q Show 525Q players 477Q DEFAULTFONT 451Q cashBox 443Q truck 427Q driver 405Q cashBox 377Q truck 342Q driver 330Q BOLDFONT 255Q GiveAliceBonus 66Q alices 36Q DEFAULTFONT 15Q BOLDFONT) (1007Q "Winner is: " 746Q "Winner is :" 510Q "Summary of all player's status" 436Q " $" 365Q "$" 245Q "Following players made it to Alices" 223Q "Following players made it to Alices" 107Q (parkingPlace1 parkingPlace2) 54Q "Summary of Game" 26Q "Summary of Game") TruckinError D1 (I 0 msg) @ (3 PROMPT) NIL NIL TruckinGame.BeginGame D1 (P 45Q banditIndex P 41Q x P 3 board P 2 locs P 1 nextLoc P 0 move I 2 moves I 1 players I 0 self) È)ðð0 @g [@]g ¼MkL¿K_g ¾OkN¿@_g _¿OkO¿@g ¨@g ²HKg ¿Kg °d!OB_g _¿OkOµäK_g _¿OkO¿Adið–¿`µFAd¥d¡¢AµaA b¿@gA@_"g _ ¿O"kO ¿Kg ZdYJZA±˜b°#d!OBg _g _¿OkOµÞ°”lñ³¤oi ¿li ¿Ai ¿i hd!I_&g _$¿O&kO$²DOB¿I_*g _(¿O*OBlO(¿`g gIµ¶@g0$Kg °AJ¹Jº°£d!OB_.g _,¿O.glO,²d_D¿OFµ ODh_H‚OD&_F¿µÈOH@gKg `µA±‰jó²ú@g`` _0¿dO0ñ’¿O0k2(OJOHñ³=g _4g _2¿O4OJlO2_P¿ONµOPh_N_L¿OJkØ_J°ÊOP&_N¿°òOL¿°“d!OB_8g _6¿O8kO6µä@_¿O@kO>¿ho`d” ¿ho(1274Q CLOSEF? 1264Q WriteGameStatus 1261Q DATE 1236Q FetchMethodOrHelp 1207Q FetchMethodOrHelp 1157Q FetchMethodOrHelp 1135Q PutValue 1052Q FetchMethodOrHelp 1042Q GetObjectRec 1006Q FLENGTH 754Q PutValue 750Q GetValue 735Q PutValue 654Q FetchMethodOrHelp 623Q GetValue 600Q PutValue 571Q GetValue 542Q FetchMethodOrHelp 507Q FetchMethodOrHelp 467Q TERPRI 462Q PRIN1 454Q SPACES 445Q PRIN1 406Q FetchMethodOrHelp 376Q GetValue 342Q GetValue 320Q FetchMethodOrHelp 307Q PutValue 274Q CreatePlayers 223Q FetchMethodOrHelp 173Q FetchMethodOrHelp 152Q GetValue 142Q CLEARW 137Q GetValue 126Q GetValue 116Q GetValue 74Q FetchMethodOrHelp 53Q FetchMethodOrHelp 42Q SetMachineDepPara 30Q FetchMethodOrHelp 17Q GetValue) (1301Q truckinLogHandle 1267Q truckinLogHandle 1233Q WhoWon 1204Q RunGame 1154Q Initialize 1047Q New 1037Q Bandit 1003Q banditNames 1000Q banditCount 775Q bandits 757Q banditCount 745Q roadStops 741Q unionHall 664Q AlicesRestaurant 651Q InstOf! 620Q roadStops 611Q alices 574Q location 566Q truck 563Q currentPlayer 537Q Park 530Q currentPlayer 504Q RoomToPark? 403Q Initialize 373Q truck 337Q roadStops 315Q RedoGameParameters 303Q players 247Q newPlayers 220Q DisplayGameBoard 170Q Initialize 147Q roadStops 134Q gameWindow 123Q bandits 113Q players 71Q InitializeGameParameters 50Q MakeDriveBitMaps 25Q ChangeGameParameters 14Q gameBoard) (1305Q "Simulation Complete!" 1256Q "Simulation Complete! " 441Q "Illegal arg") TruckinGame.BreakCargo 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 " destroyed by RoughRoad" 76Q " units" 66Q " " 50Q "'s Cargo of:") TruckinGame.Buy D1 (P 2 cmile P 1 loc P 0 truck I 1 qty I 0 self) qPAd¥d¡µ[`g Xdg Yd@g Z`g oAoIg o@[g ¼K`JAlLjØb¿°¢(133Q FetchMethodOrHelp 123Q WriteGameStatus 120Q CONCAT 111Q GetObjectName 106Q GetClassValue 66Q GetValue 54Q FindLocIndex 51Q GetValue 40Q GetValue 30Q GetValue) (140Q currentPlayer 130Q BuyRequest 103Q Commodity 63Q driver 60Q currentPlayer 46Q roadStops 35Q location 25Q truck 22Q currentPlayer) (115Q " units" 77Q " " 72Q " Wants to Buy ") TruckinGame.BuyMade D1 (P 2 commodity P 1 loc P 0 truck I 10Q lifetime I 7 fragility I 6 penalty I 5 reason I 4 qty I 3 reqQty I 2 roadPosition I 1 player I 0 self) ± Ag @g B ’ ABCDEFGG DjðžAoE FhIg \g »LIg DIlKZd^g ½NglM™JgG¿J_g _¿OglO™JgG¿J_g _¿OHhDlO(240Q FetchMethodOrHelp 226Q PutValue 176Q FetchMethodOrHelp 164Q PutValue 140Q FetchMethodOrHelp 120Q GetValue 107Q FetchMethodOrHelp 100Q GetObjectRec 75Q GetClassValue 64Q BrokenRules 60Q CONCAT 43Q AuxBuyMade 21Q NTH 15Q GetValue 6 GetValue) (235Q TransferOwner 221Q lifetime 206Q PerishableCommodity 173Q InstOf! 157Q fragility 145Q FragileCommodity 135Q InstOf! 115Q pr 104Q New 72Q Commodity 12Q roadStops 3 truck) (54Q "Buy not made: ") TruckinGame.BuyRequest D1 (P 3 intendedLoc P 2 commodity P 1 loc P 0 truck I 3 qty I 2 roadPosition I 1 player I 0 self) ð°`g Xdg Y@g B [IdKð³¿@\g ½LABCjglM ²I_g ¾OglN³ @_g _¿O`BCjglOCdjð²!¿@_g _¿O`BCjglO²/CIg ó²$@_g _¿O`BCjgolOIg _g _¿OIg Cµ Ig IlOZd_"g _ ¿O"`hClO ²e@_$g _&¿O$`BCJg hdJ_*g _(¿O*glO(´ Jg J_.g _,¿O.glO,´ Jg l O&@_0g _2¿O0`BCj``lO2(603Q FetchMethodOrHelp 563Q GetValue 534Q FetchMethodOrHelp 523Q GetValue 474Q FetchMethodOrHelp 461Q GetValue 440Q FetchMethodOrHelp 405Q FetchMethodOrHelp 364Q GetValue 352Q GetValue 336Q FetchMethodOrHelp 326Q GetClassValue 266Q FetchMethodOrHelp 252Q GetValue 213Q FetchMethodOrHelp 146Q FetchMethodOrHelp 120Q FetchMethodOrHelp 105Q GetObjectRec 63Q FetchMethodOrHelp 42Q NTH 36Q GetValue 26Q GetValue 16Q GetValue) (624Q FCTPenalty 621Q FCTReason 613Q currentPlayer 600Q BuyMade 560Q lifetime 544Q PerishableCommodity 531Q InstOf! 520Q fragility 504Q FragileCommodity 471Q InstOf! 456Q qty 450Q currentPlayer 435Q BuyMade 415Q currentPlayer 402Q CanTransfer 361Q qty 347Q pr 333Q New 323Q Commodity 304Q MoreThanAvailable 276Q currentPlayer 263Q BuyMade 247Q qty 231Q Zero 223Q currentPlayer 210Q BuyMade 164Q NotProducer 156Q currentPlayer 143Q BuyMade 126Q Producer 115Q InstOf! 74Q IncorrectLoc 60Q BuyMade 33Q roadStops 23Q location 13Q truck 10Q currentPlayer) (310Q .01) TruckinGame.CheckAlice D1 (P 5 loc P 0 x I 0 self) Í@g ±¼dQo±¦d½HM ¢±™HMHMgkØg¿HMgló²xHM ¿@g Zg ¹JkI²G`ohko ¿@\g »L`H@g @g @g glK°`ohko ¿µ‚±ÿYhµ‚±ÿCh(266Q BrokenRules 233Q FindLocIndex 230Q GetValue 221Q GetValue 212Q FindLocIndex 207Q GetValue 172Q FetchMethodOrHelp 161Q BrokenRules 130Q FetchMethodOrHelp 121Q GetValue 106Q GetValue 74Q GetValue 63Q PutValue 53Q GetValue 35Q GetValue 6 GetValue) (250Q currentPlayer 236Q AliceTurn 225Q roadStops 216Q unionHall 204Q roadStops 177Q currentPlayer 167Q MoveRequest 143Q currentPlayer 125Q RoomToPark? 116Q unionHall 111Q currentPlayer 71Q howLong 60Q howLong 50Q howLong 3 alices) (262Q "Will be moved to UnionHall next turn" 254Q "Stayed at Alices more than 3 turns" 155Q "Forcibly moved to UnionHall" 147Q "Stayed at Alices more than 3 turns" 22Q (parkingPlace1 parkingPlace2)) TruckinGame.ContinueGame D1 (P 15Q b P 14Q p P 13Q rs P 0 board I 1 noRedrawFlg I 0 self) õ@g ¡ A’±£Hg ¿HZg ¹JkI¿Hg °dOg ¿Og µç@g °'dOg g \g »LkKµÚ@g °'d Og g ^g ½NkMµÚ@_g _¿OkO¿@_g _¿OkO¿ho`d” ¿ho(351Q CLOSEF? 341Q WriteGameStatus 336Q DATE 313Q FetchMethodOrHelp 267Q FetchMethodOrHelp 243Q FetchMethodOrHelp 234Q GetValue 226Q GetValue 204Q GetValue 162Q FetchMethodOrHelp 153Q GetValue 145Q GetValue 123Q GetValue 107Q PutValue 76Q PutValue 57Q GetValue 41Q FetchMethodOrHelp 30Q CLEARW 25Q GetValue 6 GetValue) (356Q truckinLogHandle 344Q truckinLogHandle 310Q WhoWon 264Q RunGame 240Q Park 231Q location 223Q truck 220Q currentPlayer 201Q bandits 157Q Park 150Q location 142Q truck 137Q currentPlayer 120Q players 104Q parkingPlace2 73Q parkingPlace1 54Q roadStops 36Q DisplayGameBoard 22Q gameWindow 3 gameBoard) (362Q "Simulation Complete!" 333Q "Simulation Complete! ") TruckinGame.ForcedMove D1 (P 13Q i P 1 newLoc P 0 cmile I 4 reason I 3 maxMilePost I 2 curLoc I 1 player I 0 self) ÄBg ‘ HCó²;HCOOñ³+@g O [g ºKkJ•Oµ iˆOkØ_°Ôh°:HCOOñ³,@g O ]g ¼MkL•Oµi‰OkÙ_¿°ÑhYd³@^g _¿NAHdglO@g I Y@_g _¿OABIDlO(262Q FetchMethodOrHelp 247Q NTH 243Q GetValue 213Q FetchMethodOrHelp 147Q FetchMethodOrHelp 137Q NTH 132Q GetValue 56Q FetchMethodOrHelp 46Q NTH 41Q GetValue 6 GetValue) (257Q MoveTruck 240Q roadStops 225Q NoRoom 210Q MoveMade 144Q RoomToPark? 127Q roadStops 53Q RoomToPark? 36Q roadStops 3 milePost) NIL TruckinGame.GasFill D1 (P 4 newRS P 3 prevRS P 2 gasMan P 1 roadStops P 0 unionHall I 4 pr I 3 qty I 2 gsStop I 1 prevStop I 0 self) F@g @g ò`g µg ^g ½NkMZ@gJAjð²?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(502Q DISMISS 473Q PutValue 462Q PutValue 451Q DISMISS 427Q FetchMethodOrHelp 400Q FetchMethodOrHelp 366Q DISMISS 343Q FetchMethodOrHelp 316Q FetchMethodOrHelp 300Q Drive 255Q FetchMethodOrHelp 226Q FetchMethodOrHelp 213Q NTH 176Q NTH 166Q DISMISS 143Q FetchMethodOrHelp 116Q FetchMethodOrHelp 104Q WriteGameStatus 67Q PutValue 50Q FetchMethodOrHelp 41Q GetObjectRec 31Q GetObjectRec 15Q GetValue 6 GetValue) (467Q pr 456Q qty 424Q Park 375Q Unpark 340Q Crash 313Q RoomToPark? 252Q Unpark 223Q Parked? 140Q Crash 113Q RoomToPark? 63Q currentPlayer 45Q New 36Q GasPlayer 26Q Gas 12Q roadStops 3 unionHall) (101Q "Here comes the GasMan!") TruckinGame.GiveAliceBonus D1 (L (1 atAlice 0 self)) @NIL NIL NIL TruckinGame.InitializeGameParameters D1 (I 0 self) K`–` ¿`µ6`´`g ¿@g @g @g @gjj ¿°È(106Q CLOSEF? 76Q PutValue 66Q PutValue 57Q PutValue 50Q PutValue 35Q OPENFILE 11Q CLEARW) (102Q maxMove 72Q unchargedTime 63Q currentPlayer 54Q lastMoved 45Q loseTurn 40Q truckinLogHandle 32Q OUTPUT 27Q truckinLogFile 22Q truckinLogFlg 15Q truckinLogHandle 6 gameStatusWindow 2 gameStatusWindow) NIL TruckinGame.Move D1 (P 5 maxLoc P 4 nli P 3 cli P 2 curLoc P 1 gb P 0 truck I 1 newLoc I 0 self) ß`g @g bIg Ig Ú]Hg Zdµj‰@g [Add¥d¡–¿dAÔ\°&@g œA@g \`oA ¿`g oLKÙ o`oLjó´$LMó³@g L b¿oAg h‚hddi¿@^g _¿N`KLlO(315Q FetchMethodOrHelp 304Q WriteGameStatus 273Q GetClassValue 254Q NTH 250Q GetValue 227Q WriteGameStatus 224Q CONCAT 206Q CONCAT 174Q GetValue 162Q BrokenRules 157Q CONCAT 142Q FindLocIndex 137Q GetValue 125Q GetValue 71Q FindLocIndex 66Q GetValue 51Q GetValue 40Q GetClassValue 31Q GetClassValue 17Q GetValue 10Q GetValue) (324Q currentPlayer 312Q MoveRequest 270Q RoadSign 245Q roadStops 215Q maxMove 171Q driver 166Q currentPlayer 147Q currentPlayer 134Q roadStops 122Q roadStops 63Q roadStops 46Q location 35Q numColumns 26Q numRows 14Q gameBoard 5 truck 2 currentPlayer) (264Q " To: " 221Q ")" 212Q " (max " 200Q " Moves " 153Q "Illegal location: ") TruckinGame.MoveBandits D1 (P 15Q x P 10Q dmile P 7 cmile P 6 truck P 5 direction P 4 banditLoc P 3 curLoc P 2 loc P 1 oldDelay P 0 maxLoc I 0 self) ;@g `²jho @g ± d Og ¾Og ½Ng [ ¥kH †Kg ¼Mdgð²¿L`ØHó™Ogg°Mgð²kL`Ùó›Ogg¿@g Mgð’L°L`Ù_¿kOñ¢O€kMgð’L°HL`Ø_¿dOñ’¿O µkH ºKµj‰@g _¿J@g _¿Og oJg ¿@_g _¿OOOOglOµ‚±þõIi(426Q FetchMethodOrHelp 414Q WriteGameStatus 411Q GetClassValue 376Q GetValue 363Q FindLocIndex 360Q GetValue 345Q FindLocIndex 342Q GetValue 324Q NTH 321Q RandomRoomAvailable 312Q RandomRoomAvailable 223Q GetValue 213Q PutValue 125Q GetValue 115Q RAND 107Q GetObjectRec 103Q GetValue 73Q GetValue 62Q GetValue 42Q GetValue 33Q WriteGameStatus 11Q FLENGTH 6 GetValue) (467Q truckDelay 444Q BanditMove 423Q MoveMade 406Q RoadSign 373Q driver 355Q roadStops 337Q roadStops 273Q banditMoveRange 261Q B 240Q banditMoveRange 227Q F 220Q roadStops 210Q F 205Q direction 175Q banditMoveRange 165Q B 157Q B 154Q direction 143Q banditMoveRange 133Q F 122Q milePost 100Q location 70Q direction 57Q truck 37Q bandits 23Q truckDelay 14Q truckDelay 3 roadStops) (402Q " Moves to " 30Q "Watch out!! The Bandits are Moving") TruckinGame.MoveCheckingHazards D1 (P 15Q i P 7 fuelNeeded P 6 dist P 5 forcedIndex P 4 rs P 3 whoStopped P 2 cmile P 1 truck P 0 dmile I 4 reason I 3 newLoc I 2 curLoc I 1 player I 0 self) òCg Ag ¢BIg ð³oho¿Ig b€Bg ZdddHñ£¿¿HJHñ‘H€JÙ^HJ`g O ¼O²Ojð³RjOó“HO‚OHñ³COJ ³)OH ³!L_g _¿OANlO[–Oµi°OJHó’mÿ€k_Ø_¿°˜h]d²`g M b¿M¸@_g _¿OAJHKµDlO(335Q FetchMethodOrHelp 316Q NTH 312Q GetValue 223Q FetchMethodOrHelp 210Q EQUAL 200Q EQUAL 137Q NTH 132Q GetValue 71Q GetValue 57Q GetValue 47Q INTTYL 30Q GetValue 15Q GetValue 6 GetValue) (332Q MoveMade 307Q roadStops 304Q gameMaster 220Q GoingPast 127Q roadStops 124Q gameMaster 66Q milePost 54Q location 25Q location 12Q truck 3 milePost) (44Q "Type return to continue." 37Q "Bug in MoveCheckingHazards") TruckinGame.MoveMade D1 (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) ÉAg ±ABCDEF BC ²%A]g ¼MglLŸAoD EFhBjó´@g B Y@g C ZBCÙ¾jNñ¡N‚jNÙ[HgHg KHg ÚÙ_¿jOñ¢O€jIµJ_g _¿OADlOJ_g _¿OAlO¿IJA¿°Ì(304Q Drive 261Q FetchMethodOrHelp 232Q FetchMethodOrHelp 216Q PutValue 175Q GetClassValue 165Q GetValue 132Q NTH 126Q GetValue 115Q NTH 111Q GetValue 73Q BrokenRules 66Q CONCAT 42Q FetchMethodOrHelp 30Q EQUAL 23Q AuxMoveMade 6 GetValue) (256Q Unpark 227Q Visit 172Q Gpm 162Q fuel 156Q fuel 123Q roadStops 106Q roadStops 47Q Player 37Q InstOf! 3 truck) (62Q "Move not made: ") TruckinGame.MoveRequest D1 (P 10Q fromLoc P 7 maxLoc P 6 moves P 5 curLoc P 4 newLoc P 3 gb P 2 nli P 1 cli P 0 truck I 4 reason I 3 to I 2 from I 1 player I 0 self) ÊAg BC@g CõKg Kg Ú_Hg ]@g B _MOð³@_g _¿OABdglOD³3A@g ð²@_g _¿OAIdglOD¨@gA¿Cdd¥d¡²S¿kJó²@_g _¿OAIdglOJOó²@_g _ ¿OAIdglO @g J \°@g ²@C@g ºL_(g _&¿O(glO&²C@_*g _,¿O*AMLDlO,AoC ¿@_"g _$¿O"AIdglO$JI`Ôó©JI`Õýó²@_.g _0¿O.AIdghklO0LMð²@_2g _4¿O2AIdglO4@_6g _8¿O6AMLlO8(671Q FetchMethodOrHelp 636Q FetchMethodOrHelp 574Q FetchMethodOrHelp 517Q FetchMethodOrHelp 505Q BrokenRules 502Q CONCAT 451Q FetchMethodOrHelp 420Q FetchMethodOrHelp 406Q FindLocIndex 403Q GetValue 370Q GetValue 355Q NTH 351Q GetValue 320Q FetchMethodOrHelp 257Q FetchMethodOrHelp 221Q PutValue 165Q FetchMethodOrHelp 151Q GetValue 114Q FetchMethodOrHelp 72Q NTH 66Q GetValue 56Q GetValue 44Q GetClassValue 35Q GetClassValue 17Q GetValue 6 GetValue) (666Q MoveTruck 651Q AlreadyThere 633Q MoveMade 607Q MoreThanAllowed 571Q MoveMade 556Q maxMove 546Q maxMove 532Q IllegalLoc 514Q MoveMade 446Q MoveTruck 430Q UnionHall 415Q InstOf! 400Q roadStops 365Q roadStops 346Q roadStops 333Q OffBoardEnd 315Q MoveMade 272Q OffBoardBeg 254Q MoveMade 215Q lastMoved 200Q ConsecutiveMove 162Q MoveMade 146Q lastMoved 127Q IncorrectLoc 111Q MoveMade 63Q roadStops 53Q location 41Q numColumns 32Q numRows 14Q gameBoard 3 truck) (476Q "Illegal location: ") TruckinGame.MoveTruck D1 (P 6 forcedMP P 5 actMile P 4 fuelNeeded P 3 dmile P 2 cmile P 1 dist P 0 truck I 4 reason I 3 newLoc I 2 curLoc I 1 player I 0 self) SAg ñBg ZCg [C_g _¿OglO²NC_g _¿OkO²@_g _¿OAJKDlO@_g _¿OAJdDµglOJddKñ£¿¿KJKñ‘K€JÙYdHg Ö\dHg ó²aHg Hg ëjØ]jð²#@_g _ ¿OAB@g glO KJó“JMÔ‚JMÕ¾@_$g _"¿O$ABNglO"hC_(g _&¿O(kO&³@_,g _*¿O,ABKglO*h@_.g _0¿O.ABCDlO0(501Q FetchMethodOrHelp 445Q FetchMethodOrHelp 420Q FetchMethodOrHelp 364Q FetchMethodOrHelp 325Q GetValue 307Q FetchMethodOrHelp 266Q GetClassValue 257Q GetValue 245Q GetValue 233Q GetClassValue 154Q FetchMethodOrHelp 123Q FetchMethodOrHelp 76Q FetchMethodOrHelp 45Q FetchMethodOrHelp 33Q GetValue 23Q GetValue 6 GetValue) (476Q MoveCheckingHazards 460Q NoRoom 442Q ForcedMove 415Q RoomToPark? 377Q LowFuel 361Q ForcedMove 330Q NoFuel 322Q unionHall 304Q MoveTruck 263Q Gpm 254Q fuel 242Q fuel 230Q Gpm 172Q NoRoomStayPut 151Q MoveMade 120Q MoveMade 73Q RoomToPark? 55Q UnionHall 42Q InstOf! 30Q milePost 20Q milePost 3 truck) NIL TruckinGame.RedoGameParameters D1 (P 3 classForMethod P 2 obj% I 0 self) Eg Hg ¹HkI!Jg ¼J@g gonN oholLJ(51Q GetValue 40Q FetchMethodOrHelp 17Q FetchMethodOrHelp 5 GetObjectRec) (54Q cashBox 46Q players 35Q SetUp 14Q New 2 SSBarChart) (74Q (656Q . 1166Q) 67Q (truck) 60Q "CashBox of Players") TruckinGame.RemovePlayer D1 (I 2 reason I 1 player I 0 self) aAg oBoAg ooogð².@gA@g ¿@g Hg ¹HAlIA(125Q FetchMethodOrHelp 113Q GetValue 103Q PutValue 100Q REMOVE 75Q GetValue 53Q INTTY 40Q CONCAT 31Q GetValue 16Q WriteGameStatus 6 GetValue) (122Q RemovePlayer 110Q gameBoard 72Q players 65Q players 56Q YES 26Q driver 3 driver) (50Q "Y to remove. N to let stay in game" 44Q (YES NO) 35Q " from game?" 22Q "Should I remove " 12Q " Committed serious violation: ") TruckinGame.ReplenishQty D1 (P 22Q x P 21Q gasStation P 5 unionHall P 4 nextStop P 3 gasStations P 2 gasMan P 1 roadStops P 0 prevStop I 0 self) Èj@g Â @I°Wd_"_g ¾Og lN²:O"_g _¿OkO²$O"g jð²d_¿Oµ Oh_ ‚O&_¿µªO [d´Xd°;d@_g _¿OHO$I \O$g O$g lÖlO¿LXµÆ@_g _¿OHjlOK(267Q FetchMethodOrHelp 235Q GetValue 225Q GetInitialValue 214Q FindLocIndex 200Q FetchMethodOrHelp 112Q GetValue 66Q FetchMethodOrHelp 45Q GetObjectRec 34Q FetchMethodOrHelp 7 GetValue) (264Q GasFill 232Q pr 222Q qty 175Q GasFill 107Q qty 63Q RoomToPark? 42Q GasStation 31Q InstOf! 4 roadStops) NIL TruckinGame.Sell D1 (P 3 cmile P 2 commodityIndex P 1 loc P 0 truck I 2 qty I 1 commodity I 0 self) `Bd¥d¡µi`g Xdg Yd@g [Ad`ð™Hg º`g oBoA o@\g ½L`KJBlMjØb¿°”(150Q FetchMethodOrHelp 140Q WriteGameStatus 135Q CONCAT 126Q ClassName 111Q GetValue 77Q FindLocIndex 74Q GetValue 54Q FindLocIndex 51Q GetValue 40Q GetValue 30Q GetValue) (155Q currentPlayer 145Q SellRequest 106Q driver 103Q currentPlayer 71Q cargo 63Q instanceTYPE# 46Q roadStops 35Q location 25Q truck 22Q currentPlayer) (132Q " units." 122Q " " 115Q " Wants to sell") TruckinGame.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) ]Ag @g B 2ABCDEFG DjðŸAoF GhHg E Zd[g ¼KIdg DlL(124Q GetValue 112Q FetchMethodOrHelp 100Q NTH 74Q GetValue 63Q BrokenRules 56Q CONCAT 41Q AuxSellMade 21Q NTH 15Q GetValue 6 GetValue) (121Q pr 107Q TransferOwner 71Q cargo 12Q roadStops 3 truck) (52Q "Unable to sell: ") TruckinGame.SellRequest D1 (P 40Q x P 4 commodities P 3 intendedLoc P 2 commodity P 1 loc P 0 truck I 4 qty I 3 commodityIndex I 2 roadPosition I 1 player I 0 self) .!ðà`g Xdg Y@g B [IdKð³¿@]g ¾MABDjCglN ²I_g _¿OglO³@_g _¿OABDjCglODµIg bjð²@_g _¿OABDjCglOCdd¥d¡ž¿Hg C ±Â ²C _g _¿OglO³!@_ g _¿O ABDjCglO±„0Ag g °7d O@_$g _"¿O$ClO"²d_:¿O<µ O:h_>‚O:&_<¿µÊO>\µ$@_(g _&¿O(ABDjCgolO&h O>µ6hZ£LZ¿DJg ó²A@_*g _,¿O*ABDjCgolO,_@¿DO@g ýó¦O@µ»i°¸O>_>°J_0g _.¿O0Idg DlO.²@_2g _4¿O2ABDdClO4@_6g _8¿O6ABDjC``lO8(1025Q FetchMethodOrHelp 773Q FetchMethodOrHelp 751Q GetValue 734Q FetchMethodOrHelp 702Q GetValue 635Q FetchMethodOrHelp 621Q GetValue 540Q FetchMethodOrHelp 450Q FetchMethodOrHelp 427Q GetValue 421Q GetValue 361Q FetchMethodOrHelp 330Q FetchMethodOrHelp 320Q GetClassRec 312Q GetClassRec 304Q NTH 300Q GetValue 227Q FetchMethodOrHelp 210Q GetValue 152Q FetchMethodOrHelp 121Q FetchMethodOrHelp 106Q GetObjectRec 63Q FetchMethodOrHelp 42Q NTH 36Q GetValue 26Q GetValue 16Q GetValue) (1045Q FCTPenalty 1042Q FCTReason 1022Q SellMade 770Q SellMade 746Q pr 731Q CanTransfer 677Q qty 652Q MoreThanOwned 632Q SellMade 616Q qty 555Q NotOwned 535Q SellMade 445Q InstOf! 424Q cargo 416Q truck 376Q InvalidCommodity 356Q SellMade 340Q Commodity 325Q InstOf! 275Q cargo 244Q Zero 224Q SellMade 205Q qty 167Q NotConsumer 147Q SellMade 131Q Consumer 116Q InstOf! 75Q IncorrectLoc 60Q SellMade 33Q roadStops 23Q location 13Q truck 10Q currentPlayer) (656Q .1 561Q .1) TruckinGame.SetUpGauges D1 (I 0 self) @Hg ¹HgiolI(12Q FetchMethodOrHelp) (17Q currentPlayer 7 AddGauges) (24Q "Current Player") TruckinGame.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: ") TruckinGame.WhoWon D1 (P 17Q y P 13Q x P 1 winner P 0 atAlice I 0 self) '€lhi¿`i ¿oi ¿`i ¿i ho 0 @g °Od0o°*dOO ´OO h_šOµ_O__¿µ×O_šOµ>O__¿µ²OXoi ¿i ¿i o @[g ºKHlJ¿H°z _O°Â _O°¡d`i ¿Og i ¿li ¿oi ¿Og g i ¿i ¿Og oOg g µ›i ¿`i ¿oi ¿i @g °9dO]g ¼MkL¿`²`²O_g ¾O`lN¿µÈi ¿i ¿i Hµoi ¿i ¿o °i¹H°(dOg g Ig g ó’O¹µØ`i ¿oi ¿Ig i ¿`i ¿i ¿oIg I(1043Q WriteGameStatus 1040Q GetValue 1024Q TERPRI 1017Q CHANGEFONT 1007Q PRIN1 1003Q GetValue 773Q PRIN1 762Q CHANGEFONT 741Q GetValue 733Q GetValue 724Q GetValue 716Q GetValue 672Q WriteGameStatus 662Q TERPRI 655Q PRIN1 642Q TERPRI 635Q TERPRI 630Q TERPRI 603Q FetchMethodOrHelp 550Q FetchMethodOrHelp 530Q GetValue 521Q TERPRI 514Q PRIN1 503Q CHANGEFONT 473Q TERPRI 462Q WriteGameStatus 457Q CONCAT 454Q GetValue 446Q GetValue 432Q GetValue 421Q TERPRI 414Q PRIN1 410Q GetValue 402Q GetValue 371Q PRIN1 360Q SPACES 351Q PRIN1 345Q GetValue 334Q CHANGEFONT 311Q LAST 277Q LAST 260Q FetchMethodOrHelp 250Q WriteGameStatus 241Q TERPRI 234Q TERPRI 227Q PRIN1 136Q GetValue 125Q GetValue 71Q GetValue 57Q WriteGameStatus 47Q TERPRI 42Q CHANGEFONT 32Q PRIN1 21Q CHANGEFONT 11Q TAB) (1035Q driver 1013Q DEFAULTFONT 1000Q driver 756Q BOLDFONT 736Q cashBox 730Q truck 721Q cashBox 713Q truck 611Q truckinLogHandle 600Q Show 567Q truckinLogHandle 562Q truckinLogFlg 545Q Show 525Q players 477Q DEFAULTFONT 451Q cashBox 443Q truck 427Q driver 405Q cashBox 377Q truck 342Q driver 330Q BOLDFONT 255Q GiveAliceBonus 66Q alices 36Q DEFAULTFONT 15Q BOLDFONT) (1031Q "Winner is: " 767Q "Winner is :" 667Q "Sorry!! No one made it to Alice" 651Q "Sorry!! No one made it to Alice" 510Q "Summary of all player's status" 436Q " $" 365Q "$" 245Q "Following players made it to Alices" 223Q "Following players made it to Alices" 107Q (parkingPlace1 parkingPlace2) 54Q "Summary of Game" 26Q "Summary of Game") TruckinRE D1 (P 1 endT P 0 begT) < g ²-` ²%¸¿¹`g`g IHÙØ‚h(70Q RE 64Q PutValue 55Q GetValue 35Q CLOCK 31Q RE 25Q CLOCK 20Q GetObjectRec 10Q BOUNDP) (52Q unchargedTime 47Q gameMaster 44Q unchargedTime 41Q gameMaster 15Q gameMaster 5 gameMaster) NIL UpdateConsumerDisplay D1 (I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) DB@ACE @Hg ¹HkIB(24Q FetchMethodOrHelp 11Q PutLocalState) (21Q DisplayData) NIL UpdatePrDisplay D1 (I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) NDB@ACE @g ²7@g Hg ¹HglI²@g Hg ¹HkIB(104Q FetchMethodOrHelp 72Q GetValue 46Q FetchMethodOrHelp 34Q GetValue 23Q GetObjectRec 20Q GetValue 11Q PutLocalState) (101Q DisplayData 67Q owner 53Q Producer 43Q InstOf! 31Q owner 15Q owner) NIL UpdateProducerSoldout D1 (I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) IDB@ACE B³;@A@g Hg ¹H@g j@lI@Hg ¹HkIh(76Q FetchMethodOrHelp 63Q PutValue 50Q GetClassValue 37Q FetchMethodOrHelp 25Q GetClassValue 11Q PutLocalState) (73Q DisplayData 45Q Pr 34Q New 22Q Commodity) NIL UpdateQtyDisplay D1 (I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) NDB@ACE @g ²7@g Hg ¹HglI²@g Hg ¹HkIB(104Q FetchMethodOrHelp 72Q GetValue 46Q FetchMethodOrHelp 34Q GetValue 23Q GetObjectRec 20Q GetValue 11Q PutLocalState) (101Q DisplayData 67Q owner 53Q Producer 43Q InstOf! 31Q owner 15Q owner) NIL WSRuleViolated? D1 (P 1 fine P 0 truck I 2 speed I 1 rs I 0 player) @g BlHg ó´i(26Q RAND 23Q GetClassValue 6 GetValue) (20Q MaxDist 3 truck) NIL WaitIfControlKey D1 (P 1 endT P 0 begT I 0 where) d `Ènåjð´TX¿`Ènåjð²'`Èl@åjð²@š@i ¿i ¿¿nô °Ï¹`g`g IHÙØh(140Q PutValue 131Q GetValue 111Q CLOCK 104Q DISMISS 75Q UE 71Q TERPRI 64Q PRIN1 22Q CLOCK) (126Q unchargedTime 123Q gameMaster 120Q unchargedTime 115Q gameMaster 44Q \EM.KBDAD2 27Q \EM.KBDAD2 5 \EM.KBDAD2) NIL WriteGameStatus D1 (P 7 file P 6 bottom P 5 left P 4 height P 3 width P 2 endT P 1 begT P 0 oldFont I 3 asIsFlg I 2 moreMsg I 1 boldMsg I 0 msg) Ô0Y` ³4n,l¯"`KÙ½`LÙ¾MNKLho ¿g` `³`²`g ¿`š``h°<`h°5dC§jdO¿@µJA²`O ¿AO ¿`O ¿Bµ#µÌZ`g`g JIÙØhO ¿°ÙO ¿°²(317Q PRIN1 307Q PRIN1 300Q PutValue 271Q GetValue 251Q CLOCK 235Q CHANGEFONT 224Q PRIN1 215Q CHANGEFONT 176Q TAB 126Q OPENFILE 102Q DSPSCROLL 65Q CREATEW 17Q WINDOWP 10Q CLOCK 2 WaitIfControlKey) (266Q unchargedTime 263Q gameMaster 260Q unchargedTime 255Q gameMaster 230Q DEFAULTFONT 210Q BOLDFONT 154Q gameStatusWindow 144Q truckinLogHandle 141Q gameStatusWindow 135Q truckinLogFlg 131Q truckinLogHandle 123Q OUTPUT 120Q truckinLogFile 113Q truckinLogFlg 106Q truckinLogHandle 77Q gameStatusWindow 74Q ON 70Q gameStatusWindow 42Q SCREENHEIGHT 34Q SCREENWIDTH 14Q gameStatusWindow) (62Q "Game Status") MYINSPECT D1 (I 2 INSPECTLOC I 1 ASTYPE I 0 DATUM) @A (4 INSPECT) NIL NIL (PRETTYCOMPRINT TRUCKINCOMS) (RPAQQ TRUCKINCOMS ((* Copyright (c) 1983 by Xerox Corporation.) (* Source Code for Truckin. This program is a mini-expert system for teaching knowledge representation techniques in the Loops programming system. Truckin provides a simple simulation environment for novice Loops users in which small bodies of knowledge can be created and tested interactively. Knowledge in Truckin is in the form of rules for controlling a game piece to "maximize profit" along a truck route.) (* Written in January 1983 by the Loops Group -- Daniel Bobrow, Sanjay Mittal, and Mark Stefik.) (CONSTANTS * TRUCKINCONSTANTS) (CLASSES * TRUCKINCLASSES) (GLOBALVARS * TRUCKINVARS) (FNS * TRUCKINFNS) (VARS GameCommandX GameCommandY GameParamRegion aliceCount banditCount banditMoveFrequency banditMoveRange debugMode debugTimeTrace defaultGaugesFlg) (P (INTERRUPTCHAR 6 (LIST (FUNCTION TruckinRE)))) (* A fix up for the inspector to allow it to place a window exactly where is is wanted. A patch until this is put in the system. Used in GameParameter.Setup) (VARS INSPECTLOC) (FNS MYINSPECT) (ADVISE GETBOXREGION-IN-INSPECTW.CREATE))) (RPAQQ TRUCKINCONSTANTS ((lineSize 1) (iconSide 16) (boardShade 23130) (BLACKCOLOR 0) (roadColor 15) ( roadStopColor 14) (roadStopNameColor 13) (otherRoadStopIconColor 12) (consumerIconColor 11) ( producerIconColor 10) (borderColor 9) (roadSignFont (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD))) ( driverFont (FONTCREATE (QUOTE HELVETICA) 8)) (dataFont (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD))) (commodityFont (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD))) (gameStatusBoldFont (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))))) (RPAQQ lineSize 1) (RPAQQ iconSide 16) (RPAQQ boardShade 23130) (RPAQQ BLACKCOLOR 0) (RPAQQ roadColor 15) (RPAQQ roadStopColor 14) (RPAQQ roadStopNameColor 13) (RPAQQ otherRoadStopIconColor 12) (RPAQQ consumerIconColor 11) (RPAQQ producerIconColor 10) (RPAQQ borderColor 9) (RPAQ roadSignFont (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD))) (RPAQ driverFont (FONTCREATE (QUOTE HELVETICA) 8)) (RPAQ dataFont (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD))) (RPAQ commodityFont (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD))) (RPAQ gameStatusBoldFont (FONTCREATE (QUOTE HELVETICA) 12 (QUOTE BOLD))) (CONSTANTS (lineSize 1) (iconSide 16) (boardShade 23130) (BLACKCOLOR 0) (roadColor 15) (roadStopColor 14) (roadStopNameColor 13) (otherRoadStopIconColor 12) (consumerIconColor 11) (producerIconColor 10) ( borderColor 9) (roadSignFont (FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD))) (driverFont (FONTCREATE ( QUOTE HELVETICA) 8)) (dataFont (FONTCREATE (QUOTE HELVETICA) 10 (QUOTE BOLD))) (commodityFont ( FONTCREATE (QUOTE HELVETICA) 8 (QUOTE BOLD))) (gameStatusBoldFont (FONTCREATE (QUOTE HELVETICA) 12 ( QUOTE BOLD)))) (RPAQQ TRUCKINCLASSES (BWGameBoard ColorGameBoard CommodityClassMeta CommodityMeta GameAbstractClass GameBoard GameClass GameMaster GameMasterMeta GameMetaClass GameObject GameParameters MTParameters MetaBrowser MoveTruckin TTParameters TimeTruckin TruckinGame TruckinParameters)) (DEFCLASSES BWGameBoard ColorGameBoard CommodityClassMeta CommodityMeta GameAbstractClass GameBoard GameClass GameMaster GameMasterMeta GameMetaClass GameObject GameParameters MTParameters MetaBrowser MoveTruckin TTParameters TimeTruckin TruckinGame TruckinParameters) (DEFCLASS BWGameBoard (MetaClass GameClass Edited: (* sm: "11-MAY-83 17:32")) (Supers GameBoard) ( ClassVariables) (InstanceVariables) (Methods)) (DEFCLASS ColorGameBoard (MetaClass GameClass Edited: (* sm: "11-MAY-83 17:31")) (Supers GameBoard) ( ClassVariables (colorP T doc (* This indicates that the display will be on the color screen)) ( numColumns 7 doc (* number of RoadStops arranged horizontally on the game board.)) (numRows 4 doc (* number of RoadStops arranged vertically on the game board.)) (CopyCV NIL)) (InstanceVariables) ( Methods (CreateGameBoard ColorGameBoard.CreateGameBoard args (region title) doc (* * Creates a new Window for the gameBoard.)) (MakeDriveBitMaps ColorGameBoard.MakeDriveBitMaps args NIL doc (* Creates Bit maps for Trucks)))) (DEFCLASS CommodityClassMeta (MetaClass GameMetaClass Edited: (* sm: "20-JAN-83 17:32") doc (* MetaClass for all classes of commodities)) (Supers GameAbstractClass) (ClassVariables (CopyCV NIL) ( ComsVar Commodities)) (InstanceVariables) (Methods)) (DEFCLASS CommodityMeta (MetaClass GameMetaClass Edited: (* sm: "20-JAN-83 14:28") doc (* MetaClass for all commodities which are not classes of commodities)) (Supers GameClass) (ClassVariables (ComsVar Commodities)) (InstanceVariables) (Methods (New CommodityMeta.New args (pr qty owner) doc (* create a new instance of a commodity with qty, pr, and owner specified)) (Subs! CommodityMeta.Subs! args NIL)) ) (DEFCLASS GameAbstractClass (MetaClass GameMetaClass Edited: (* sm: "20-JAN-83 17:29")) (Supers GameClass) (ClassVariables) (InstanceVariables) (Methods (New AbstractClass.New args NIL))) (DEFCLASS GameBoard (MetaClass GameClass Edited: (* sm: "11-MAY-83 17:32")) (Supers GameObject) ( ClassVariables (colorP NIL doc (* This indicates that this is not a colordisplay)) (numColumns 11 doc (* number of RoadStops arranged horizontally on the game board.)) (numRows 6 doc (* number of RoadStops arranged vertically on the game board.)) (CopyCV NIL)) (InstanceVariables (gameWindow NIL dontSave Value doc (* A Lisp Window in which the game board is displayed.)) (windowRegion NIL doc (* This is the region decribing the board.)) (roadStops NIL doc (* List of RoadStops on gameBoard.)) ( gameMaster NIL doc (* pointer to game master which is playing this board))) (Methods (AssignRoadStops GameBoard.AssignRoadStops args NIL doc (* * Assign RoadStops to the current GameBoard)) (AttachToGame GameBoard.AttachToGame args (game) doc (* attaches self to game)) (CreateGameBoard GameBoard.CreateGameBoard args (region title) doc (* * Creates a new Window for the gameBoard.)) ( DisplayGameBoard GameBoard.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.)) (NewBoard GameBoard.NewBoard args NIL doc (* Creates and displays a new game board)) (PlaceRoadStops GameBoard.PlaceRoadStops args NIL doc (* mjs: "17-JAN-83 10:34")) ( RemovePlayer GameBoard.RemovePlayer args (player) doc (* Sent to game board so it can remove player from board)) (MakeDriveBitMaps GameBoard.MakeDriveBitMaps args NIL doc (* Creates Bit maps for Trucks) ))) (DEFCLASS GameClass (MetaClass GameMetaClass Edited: (* sm: "20-JAN-83 14:29")) (Supers Class) ( ClassVariables (ComsVar TRUCKINCLASSES) (CopyCV NIL)) (InstanceVariables) (Methods (AddCV! GameClass.AddCV! args (name value copyValue) doc (* * Adds CV to self, its subs, and CopyCV list)) ( DeleteCV! GameClass.DeleteCV! args (name) doc (* * Deletes CV from self, its subs, and CopyCV list)) ( RenameCV! GameClass.RenameCV! args (oldName newName) doc (* * Renames a CV in self and all subclasses. Changes CopyCV list also.)) (Subs! GameClass.Subs! args ? doc (* sm: " 7-JAN-83 11:55")))) (DEFCLASS GameMaster (MetaClass GameMasterMeta doc (* * Controller for the TRUCKIN game.) Edited: (* sm: "14-JUN-83 10:05")) (Supers GameObject) (ClassVariables) (InstanceVariables (gameBoard BWGameBoard doc (* pointer to game board)) (gameParameters GameParameters doc (* pointer to gameParameters object ))) (Methods (AttachBoard GameMaster.AttachBoard args (gameBoard) doc (* Attaches gameBoard to game)) (UnattachBoard GameMaster.UnattachBoard args NIL doc (* Removes game board)) (ChangeGameParameters GameMaster.ChangeGameParameters args NIL doc (* Changes gameParameters via inspector)))) (DEFCLASS GameMasterMeta (MetaClass MetaClass doc (* MetaClass for making a new Gamemaster.) Edited: ( * mjs: "13-JAN-83 09:49")) (Supers Class) (ClassVariables) (InstanceVariables) (Methods (New GameMasterMeta.New args (gameBoardType) doc (* Creates and initializes a new GameMaster.)))) (DEFCLASS GameMetaClass (MetaClass MetaClass Edited: (* sm: "20-JAN-83 14:29")) (Supers MetaClass) ( ClassVariables (ComsVar TRUCKINCLASSES)) (InstanceVariables) (Methods (New GameMetaClass.New doc (* * New method for creating new Game classes) args (name supers)))) (DEFCLASS GameObject (MetaClass GameClass Edited: (* sm: "19-JAN-83 11:15")) (Supers Object) ( ClassVariables (UnnamedInstanceCount 0) (Icon ?) (CopyCV (Icon))) (InstanceVariables) (Methods ( AddGauges GameObject.AddGauges args (ivs default titleForm) doc (* Adds a collection of gauges to the ivs of some game object under interactive control of a user.)))) (DEFCLASS GameParameters (MetaClass GameClass Edited: (* sm: "13-JUN-83 15:39")) (Supers GameObject) ( ClassVariables (CopyCV (Icon)) (Icon ?)) (InstanceVariables) (Methods (LoadPara GameParameters.LoadPara args NIL doc (* Loads the defined parameters with existing values)) (SetUp GameParameters.SetUp args NIL doc (* Displays the inspector containing parameters, and a menu to signal when to accept the parameters)) (StorePara GameParameters.StorePara args NIL doc (* Store values where they came from)))) (DEFCLASS MTParameters (MetaClass GameClass Edited: (* sm: "14-JUN-83 10:04")) (Supers TruckinParameters) (ClassVariables (CopyCV (Icon)) (Icon ?)) (InstanceVariables (numMovesRemaining 200 doc (* number of moves remaining in game) goodVal NUMBERP exp (gameMaster numMovesRemaining))) ( Methods)) (DEFCLASS MetaBrowser (MetaClass GameClass Edited: (* sm: " 7-JAN-83 17:28")) (Supers ClassBrowser) ( ClassVariables) (InstanceVariables (title "MetaClass Lattice")) (Methods (GetSubs MetaBrowser.GetSubs args (elt)))) (DEFCLASS MoveTruckin (MetaClass GameMasterMeta Edited: (* dgb: "23-JUN-83 18:45")) (Supers TruckinGame) (ClassVariables) (InstanceVariables (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)) (banditFreq 5 doc (* how often bandits move)) (replenishFreq 40 doc (* how often gas is replenished)) (aliceStay 3 doc (* how many moves can stay at Alices)) (gameParameters MTParameters doc (* pointer to gameParameters object))) ( Methods (BeginGame MoveTruckin.BeginGame) (InitializeGameParameters MoveTruckin.InitializeGameParameters doc (* Initializes critical variables for new game to run) args NIL) (MoveBandits MoveTruckin.MoveBandits args NIL) (RunGame MoveTruckin.RunGame args (players) doc (* This is the main loop that runs the game)) (SetUpGauges MoveTruckin.SetUpGauges args NIL doc (* Set up gauges)))) (DEFCLASS TTParameters (MetaClass GameClass Edited: (* sm: "14-JUN-83 15:19")) (Supers TruckinParameters) (ClassVariables (CopyCV (Icon)) (Icon ?)) (InstanceVariables (timeRemaining 3000 goodVal NUMBERP exp (gameMaster timeRemaining) changeExp (PutValue gameMaster (QUOTE timeRemaining) T (QUOTE SetByUser)) oldVal 3000 doc "Time remaining in game") (timeTrace NIL goodVal (T NIL) exp timeTrace doc "If T then prints time taken by each player after each move")) (Methods)) (DEFCLASS TimeTruckin (MetaClass GameMasterMeta Edited: (* dgb: "23-JUN-83 18:43")) (Supers TruckinGame) (ClassVariables (MinMoveTime 1 doc (* min time everyone is charged)) (MaxMoveTime 25 doc (* max time per move, after which player yanked from game)) (AliceBonus 2 doc (* cashBox multiplied by this for reaching Alice))) (InstanceVariables (timeRemaining 1000 DefaultGauge SSDigiMeter GaugeLimit (0 1000) GaugePos (852 . 465) SetByUser NIL doc (* time remaining in game. SetByUser is used to indicate that value is not to be re-initialized)) (lastPlayer NIL doc (* player who moved last time)) (replenishFreq 200 LastTime 3000 ReplenishFactor 30 doc (* how freq are gas stations filled)) ( banditFreq 50 LastTime 3000 BanditFactor 10 doc (* freq of bandits move)) (avgNumMoves 200 Factor 2 doc (* average num of moves/player. Used to calculate time paras)) (aliceStay 3 MaxTime 30 AliceFactor 8 doc (* aliceStay - max conseq turns at Alice. MaxTime - Max time allowed at Alice during a conseq stay)) (gameParameters TTParameters doc (* pointer to gameParameters object))) (Methods (BeginGame TimeTruckin.BeginGame args (players moves time)) (ChargeTime TimeTruckin.ChargeTime args (player clockTime) doc (* Calculates the actual time to be charged to player)) (CheckAlice TimeTruckin.CheckAlice args (player)) (GiveAliceBonus TimeTruckin.GiveAliceBonus args (atAlice) doc (* Give bonus for reaching Alices)) (InitializeGameParameters TimeTruckin.InitializeGameParameters doc ( * Initializes critical variables for new game to run) args NIL) (MoveBandits TimeTruckin.MoveBandits args NIL) (RedoGameParameters TimeTruckin.RedoGameParameters doc (* Change game parameters based on players in the game) args NIL) (ReplenishQty TimeTruckin.ReplenishQty doc (* Checks if time to replenish) args NIL) (RunGame TimeTruckin.RunGame args (players) doc (* This is the main loop that runs the game)) (SetUpGauges TimeTruckin.SetUpGauges args NIL doc (* Sets up gauges)) (UpdateAlice TimeTruckin.UpdateAlice args (player time) doc (* Adds time used if parked at Alice)) (WhoWon TimeTruckin.WhoWon))) (DEFCLASS TruckinGame (MetaClass GameMasterMeta Edited: (* dgb: "23-JUN-83 18:44")) (Supers GameMaster ) (ClassVariables) (InstanceVariables (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)) (currentPlayer NIL DefaultGauge LCD GaugePos (879 . 430) doc (* current player who has control)) (unionHall NIL doc (* actual instance of UnionHall on board)) ( unchargedTime 0 doc (* time not charged because used by Execs or Breaks)) (roadStops NIL doc (* same roadStops as in (gameBoard roadStops))) (players NIL doc (* List of the players for this simulation.)) (loseTurn NIL doc (* List of players that lose the next turn.)) (lastMoved NIL doc (* last player who issued Move command)) (gameParameters TruckinParameters doc (* pointer to gameParameters object))) ( Methods (BeginGame TruckinGame.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.)) (BreakCargo TruckinGame.BreakCargo args (player commodIndex) doc (* Sent by a commodity when it breaks)) (Buy TruckinGame.Buy args (qty) doc (* message sent by currentPlayer to BUY qty at its current location)) (BuyMade TruckinGame.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)) (BuyRequest TruckinGame.BuyRequest args (player roadPosition qty) doc (* sm: " 6-JUN-83 10:34")) (CheckAlice TruckinGame.CheckAlice args NIL doc (* check AlicesRestaurant's before each turn)) (ContinueGame TruckinGame.ContinueGame args (noRedrawFlg) doc (* to resume a game in the middle.)) (ForcedMove TruckinGame.ForcedMove args (player curLoc maxMilePost reason) doc (* determines the loc to move currentPlayer as a forced move close to maxMilePost)) (GasFill TruckinGame.GasFill args (prevStop gsStop qty pr) doc (* Instructions for moving a gas truck and filling GasStation)) (GiveAliceBonus TruckinGame.GiveAliceBonus args (atAlice) doc (* Dummy method)) (InitializeGameParameters TruckinGame.InitializeGameParameters doc (* sm: "12-MAY-83 13:20") args ?) (Move TruckinGame.Move args (newLoc) doc (* sent by currentPlayer to move to newLoc)) (MoveBandits TruckinGame.MoveBandits args NIL doc (* randomly moves bandits around on the board before each turn)) (MoveCheckingHazards TruckinGame.MoveCheckingHazards args (player curLoc newLoc reason) doc (* moves truck checking for hazards along the way. Called by GameMaster.MoveTruck)) (MoveMade TruckinGame.MoveMade args (player from to reason penaltyAmt missTurn) doc (* Actually makes the move after all checks are done)) (MoveRequest TruckinGame.MoveRequest args (player from to reason ) doc (* sent to DecisionMaker for deciding if move can be made)) (MoveTruck TruckinGame.MoveTruck args (player curLoc newLoc reason) doc (* actually moves the currentPlayer's truck)) ( RedoGameParameters TruckinGame.RedoGameParameters args NIL doc (* Dummy. Needed if some game parameters need to be changed after the players are known)) (RemovePlayer TruckinGame.RemovePlayer args (player reason) doc (* removes player from game)) (ReplenishQty TruckinGame.ReplenishQty args NIL doc (* replenish GasStations qty)) (Sell TruckinGame.Sell args (commodity qty) doc (* message sent by currentPlayer to sell qty of commodity at the player's current location.)) (SellMade TruckinGame.SellMade args (player roadPosition reqQty qty cargoPosition reason penalty) doc (* Performs an actual Sell, once all checking is done)) (SellRequest TruckinGame.SellRequest args (player roadPosition commodityIndex qty) doc (* sm: "25-MAY-83 15:40")) (SetUpGauges TruckinGame.SetUpGauges args ? doc (* Sets up gauges)) (SpoilCargo TruckinGame.SpoilCargo args (player commodIndex) doc (* Sent by commodity when it spoils)) (WhoWon TruckinGame.WhoWon args NIL doc (* summarizes the game results)))) (DEFCLASS TruckinParameters (MetaClass GameClass Edited: (* sm: "14-JUN-83 15:16") doc (* Used for Setting/resetting Truckin parameters)) (Supers GameParameters) (ClassVariables (CopyCV (Icon)) (Icon ? )) (InstanceVariables (banditCount 2 goodVal NUMBERP exp banditCount doc "Number of Bandits in game") (debugMode T goodVal (T NIL) exp debugMode doc "If T then rule violations bring up RuleExec") (gameDebugFlg NIL goodVal (T NIL) exp gameDebugFlg doc "If T then prints some extra diagnostic messages") (truckinLogFlg NIL goodVal (T NIL) exp truckinLogFlg doc "If T then keeps a log of all Game Printout in Status window")) (Methods)) (RPAQQ TRUCKINVARS (GameCommandW GameParamW aliceCount banditCount banditMoveFrequency banditMoveRange banditNames blankDataIcon blankPlayerIcon currentPlayer forcedStop gameBoard gameDebugFlg gameBoard gameMaster gameStatusWindow gameWindow interactiveGameMenu maxMove newPlayers numMovesRemaining paintMap roadStopHalfWidth saveMap timeTrace truckDelay truckSlowDownDistance truckIncr truckinLogHandle truckinLogFile truckinLogFlg xTunnelLeft xTunnelRight yData FCTPenalty FCTReason)) (RPAQQ TRUCKINFNS (AuxBuyMade AuxMoveMade AuxSellMade BanditGotYou? BrokenRules ChangeValue CheckVictim CityDump.CanBuy ColorGameBoard.CreateGameBoard ColorGameBoard.MakeDriveBitMaps CommodityClassMeta.New CommodityMeta.New CommodityMeta.Subs! CreatePlayers DrawRoadMarks Drive DriveLeft DriveRight ELIMINATE FindFirstNIL FindLocIndex FindRandomNIL GameBoard.AssignRoadStops GameBoard.AttachToGame GameBoard.CreateGameBoard GameBoard.DisplayGameBoard GameBoard.MakeDriveBitMaps GameBoard.NewBoard GameBoard.PlaceRoadStops GameBoard.RemovePlayer GameClass.AddCV! GameClass.DeleteCV! GameClass.RenameCV! GameClass.Subs! GameMaster.AttachBoard GameMaster.ChangeGameParameters GameMaster.UnattachBoard GameMasterMeta.New GameMetaClass.New GameObject.AddGauges GameParameters.LoadPara GameParameters.SetUp GameParameters.StorePara GenConsumerPr GenConsumerQty InCopyCV? InformBandit&WS InitializeTruckin InvertIcon MakeDriveBitMaps MetaBrowser.GetSubs MoveTruckin.BeginGame MoveTruckin.InitializeGameParameters MoveTruckin.MoveBandits MoveTruckin.RunGame MoveTruckin.SetUpGauges NormalizeValue RandomRoomAvailable ReflectIcon STRINGNUM SetMachineDepPara SetUpGame SettifyCopyCV SetupGameBrowsers SmashCreateCommodity SmashRandomPerishable SubstituteStop TalkinBuyMade TalkinMoveMade TalkinSellMade TimeTruckin.BeginGame TimeTruckin.ChargeTime TimeTruckin.CheckAlice TimeTruckin.GiveAliceBonus TimeTruckin.InitializeGameParameters TimeTruckin.MoveBandits TimeTruckin.RedoGameParameters TimeTruckin.ReplenishQty TimeTruckin.RunGame TimeTruckin.SetUpGauges TimeTruckin.UpdateAlice TimeTruckin.WhoWon TruckinError TruckinGame.BeginGame TruckinGame.BreakCargo TruckinGame.Buy TruckinGame.BuyMade TruckinGame.BuyRequest TruckinGame.CheckAlice TruckinGame.ContinueGame TruckinGame.ForcedMove TruckinGame.GasFill TruckinGame.GiveAliceBonus TruckinGame.InitializeGameParameters TruckinGame.Move TruckinGame.MoveBandits TruckinGame.MoveCheckingHazards TruckinGame.MoveMade TruckinGame.MoveRequest TruckinGame.MoveTruck TruckinGame.RedoGameParameters TruckinGame.RemovePlayer TruckinGame.ReplenishQty TruckinGame.Sell TruckinGame.SellMade TruckinGame.SellRequest TruckinGame.SetUpGauges TruckinGame.SpoilCargo TruckinGame.WhoWon TruckinRE UpdateConsumerDisplay UpdatePrDisplay UpdateProducerSoldout UpdateQtyDisplay WSRuleViolated? WaitIfControlKey WriteGameStatus)) (RPAQQ GameCommandX 595) (RPAQQ GameCommandY 651) (RPAQQ GameParamRegion (630 650 270 90)) (RPAQQ aliceCount 2) (RPAQQ banditCount 2) (RPAQQ banditMoveFrequency 5) (RPAQQ banditMoveRange 15) (RPAQQ debugMode T) (RPAQQ debugTimeTrace NIL) (RPAQQ defaultGaugesFlg T) (INTERRUPTCHAR 6 (LIST (FUNCTION TruckinRE))) (RPAQQ INSPECTLOC NIL) (PUTPROPS GETBOXREGION-IN-INSPECTW.CREATE READVICE ((INSPECTW.CREATE . GETBOXREGION) (BEFORE NIL (COND (INSPECTLOC (RETURN INSPECTLOC)))))) (READVISE GETBOXREGION-IN-INSPECTW.CREATE) NIL