(FILECREATED "14-Jan-85 17:18:43" ("compiled on " {INDIGO}TRUCKIN>MULTI>TRUCKIN.;55) "20-Dec-84 12:07:22" recompiled changes: SetMachineDepPara CommodityMeta.New CommodityMeta.Subs! GameBoard.NewInstance GameClass.AddCV! GameClass.DeleteCV! GameClass.RenameCV! GameClass.Subs! GameMetaClass.New GameObject.AddGauges GameObject.Initialize GameParameters.LoadPara GameParameters.SetUp GameParameters.StorePara in "LOOPS 11-Jan-85 ..." dated "11-Jan-85 18:25:22") (FILECREATED "14-Jan-85 17:16:33" {INDIGO}TRUCKIN>MULTI>TRUCKIN.;55 77626 changes to: (METHODS CommodityMeta.New CommodityMeta.Subs! GameBoard.NewInstance GameClass.AddCV! GameClass.DeleteCV! GameClass.RenameCV! GameClass.Subs! GameMetaClass.New GameObject.AddGauges GameObject.Initialize GameParameters.LoadPara GameParameters.SetUp GameParameters.StorePara) (FNS SetMachineDepPara CommodityMeta.New CommodityMeta.Subs! GameBoard.NewInstance GameClass.AddCV! GameClass.DeleteCV! GameClass.RenameCV! GameClass.Subs! GameMetaClass.New GameObject.AddGauges GameObject.Initialize GameParameters.LoadPara GameParameters.SetUp GameParameters.StorePara) previous date: " 9-Mar-84 13:23:14" {INDIGO}TRUCKIN>MULTI>TRUCKIN.;54) 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 @g oj (44Q RAND 31Q GetValue 22Q GetClassValue 6 GetValue) (26Q maxMove 17Q MaxDist 3 truck) (36Q .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 11Q debugMode) @\g LglK@g b@Zdg o A @g XBjBCjB bhb`oho i B.HgHg BkBHg BjY hoI DhoD W2@^g NglM@_g _OglO@ @(327Q TruckinRE 304Q FetchMethodOrHelp 257Q FetchMethodOrHelp 242Q WriteGameStatus 226Q WriteGameStatus 214Q ChangeValue 203Q GetValue 166Q GetValue 147Q EVAL.IN.TTY.PROCESS 143Q INTTYL 112Q ABS 72Q GetValue 63Q WriteGameStatus 57Q CONCAT 50Q GetValue 34Q GetValue 12Q FetchMethodOrHelp) (314Q Player 301Q InstOf! 264Q RemotePlayer 254Q InstOf! 200Q cashBox 163Q cashBox 157Q cashBox 125Q gameDebugFlg 67Q truck 45Q driver 31Q driver 17Q SystemTruck 7 InstOf!) (236Q "Penalty: " 222Q "Cash Penalty: $" 140Q "Type Return to Continue." 133Q "Debug Pause: " 54Q ", ") 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 currentPlayer F 22Q banditCutOff) @g kl W"DB@ACE B_g OkN[W$IKc"B_g _OkOB_g _OkOJc"oKg Kg ]g ojؼMgMg L oL Mg bdO _g _OglOAO _g _OHdg lO"oO g oO o B(415Q WriteGameStatus 406Q CONCAT 403Q ClassName 372Q GetValue 346Q GetValue 331Q FetchMethodOrHelp 277Q FetchMethodOrHelp 256Q GetValue 246Q WriteGameStatus 235Q ChangeValue 230Q GetValue 205Q GetValue 176Q GetValue 166Q WriteGameStatus 163Q GetValue 131Q FetchMethodOrHelp 105Q FetchMethodOrHelp 44Q FetchMethodOrHelp 33Q PutLocalState 14Q RAND 6 GetValue) (367Q qty 343Q pr 326Q TransferOwner 307Q LuxuryGoods 274Q InstOf! 253Q cargo 225Q cashBox 221Q cashBox 202Q cashBox 173Q truck 160Q driver 126Q Flash 102Q Unpark 41Q AnyVictim 3 driver) (412Q " units" 376Q " " 362Q "Bandits stole: " 242Q "Cash lost: $" 211Q .2 154Q "BANDIDOS robbed you!! ") CommodityClassMeta.New D1 (I 0 self F 0 TTY) oP P h(14Q TERPRI 7 PRIN1) NIL (3 "Cannot create an instance of a class of commodities!") CreateNewPlayer D1 (P 5 plClass P 4 menuItems P 3 temp P 2 obj P 1 res P 0 player I 2 truck I 1 type I 0 name F 14Q TTY)  A ]M_g OglN=ggg _g _OglO oLoi Y M_g _O@BlOXoW H W W Hd``H(212Q TERPRI 204Q PRIN1 177Q GetObjectName 172Q PRIN1 143Q FetchMethodOrHelp 131Q GetObjectRec 125Q INMENU 107Q REMOVE 104Q REMOVE 63Q FetchMethodOrHelp 53Q GetObjectRec 22Q FetchMethodOrHelp 6 GetClassRec) (230Q ExistingPlayers 224Q ExistingPlayers 217Q ExistingPlayers 140Q New 73Q Subs 60Q List! 50Q Player 45Q DemoPeddler 42Q RemotePlayer 30Q Player 17Q Subclass) (165Q "Player created: " 121Q "Select type of player" 114Q "Type of player: ") CreatePlayers D1 (P 37Q index P 35Q i P 33Q x P 11Q menuItems P 10Q temp P 7 obj P 6 exPlayers P 5 res P 4 players P 3 player P 2 miscOptions P 1 moreNeeded P 0 pcount I 0 numOrPlayers F 40Q TTY)  @ddlio`0`9dO6_g _OglOd_0O2 O0h_4O0&_2O4@JNggg _g _OglO _Hk"k_>O:O8IOW@ W@ oOoi ]dgGhYddv0`d _0O2 O0h_4O0&_2O4oZFgoW@ NW@ W@ NdO6O gO O>N _>0NTdO6 _g _g _OkOO_"g _ O"kO O_0O2 O0h_4O0&_2O4M _O>k_>Od`[g _&g _$O&kO$O_*g _(O*kO(oW@ MW@ W@ MO gO O0_.g _,O.kO,oW@ K W@ W@ Kh _ @Ag @g ggHdAhIdgHgg Hg hJA8L5Kg Hg !KIdgKgg Kg iHg gIgHg gPIgIM`Hg `ؾLJg `؆Jg _Hg Hg _NOOB JMHg `Hg `ؾL`Jg `_Hg Hg _NOOB L]KJX(461Q DriveLeft 444Q GetClassValue 435Q GetValue 417Q GetValue 375Q GetValue 362Q GetValue 347Q DriveRight 332Q GetClassValue 323Q GetValue 311Q GetValue 275Q GetValue 257Q GetValue 225Q GetValue 202Q GetValue 165Q GetValue 126Q GetValue 117Q GetValue 75Q GetValue 21Q GetValue 12Q GetValue) (441Q Height 432Q y 422Q roadStopHalfWidth 414Q x 407Q xTunnelLeft 400Q roadStopHalfWidth 372Q x 365Q xTunnelRight 357Q x 327Q Height 320Q y 306Q x 300Q xTunnelRight 272Q x 262Q roadStopHalfWidth 254Q x 247Q xTunnelLeft 237Q Down 230Q Left 222Q roadOrientation 213Q Up 205Q Right 177Q roadOrientation 162Q prev 153Q Down 147Q next 140Q Up 123Q roadOrientation 114Q roadOrientation 72Q prev 63Q Down 57Q next 50Q Up 32Q Down 26Q Up 16Q milePost 7 milePost) NIL DriveLeft D1 (P 6 x P 4 truckX P 3 height P 2 nextCol P 1 endSave P 0 tempTruckDelay I 3 player I 2 y I 1 xStop I 0 xStart) `g g `g g g g Cg hd` `@B` Cg hd`@B @`bA@OOjjOANNAwo `Ih`Jh`K `hd``hIK `NB`hd`K `hd`NB N\A`HkXHjH Nj`_ؾu`hd`LB h(402Q BITBLT 345Q WAITMS 315Q BITBLT 276Q BITBLT 253Q BITBLT 230Q BITBLT 205Q WaitIfControlKey 131Q BITBLT 116Q GetValue 107Q BITBLT 74Q BITBLT 64Q GetValue 52Q GetClassValue 44Q GetObjectRec 36Q GetClassValue 30Q GetObjectRec 16Q GetClassValue 10Q GetObjectRec) (374Q gameWindow 367Q saveMap 353Q truckIncr 325Q truckSlowDownDistance 307Q gameWindow 302Q paintMap 271Q truckIncr 264Q saveMap 257Q gameWindow 244Q truckIncr 241Q saveMap 234Q saveMap 223Q truckIncr 216Q paintMap 211Q saveMap 135Q truckIncr 123Q gameWindow 113Q reverseIcon 104Q saveMap 77Q gameWindow 71Q paintMap 61Q reverseIcon 47Q Height 41Q Player 33Q Width 25Q Player 21Q truckIncr 13Q Width 5 Player 2 truckDelay) (202Q "driving") DriveRight D1 (P 6 x P 4 truckX P 3 height P 2 nextCol P 1 endSave P 0 tempTruckDelay I 3 player I 2 y I 1 xStop I 0 xStart) `g g `g g g g Cg hd`` `@B` Cg hd`@B A@OOjjOANNAxo `hd`hd`K ``h`hdIK `NJB`Ih`K `hd`NB NAN`HkXHjH N`_ؾt`hd`L`B h(404Q BITBLT 345Q WAITMS 314Q BITBLT 275Q BITBLT 250Q BITBLT 225Q BITBLT 202Q WaitIfControlKey 135Q BITBLT 122Q GetValue 113Q BITBLT 100Q BITBLT 64Q GetValue 52Q GetClassValue 44Q GetObjectRec 36Q GetClassValue 30Q GetObjectRec 16Q GetClassValue 10Q GetObjectRec) (376Q truckIncr 372Q gameWindow 365Q saveMap 352Q truckIncr 325Q truckSlowDownDistance 306Q gameWindow 301Q paintMap 270Q truckIncr 263Q saveMap 254Q gameWindow 240Q saveMap 234Q truckIncr 231Q saveMap 220Q truckIncr 213Q paintMap 206Q saveMap 127Q gameWindow 117Q icon 110Q saveMap 103Q gameWindow 74Q truckIncr 71Q paintMap 61Q icon 47Q Height 41Q Player 33Q Width 25Q Player 21Q truckIncr 13Q Width 5 Player 2 truckDelay) (177Q "driving") ELIMINATE D1 (I 1 l I 0 x) 0Ah@A AbAd@A AbA@A (54Q ELIMINATE 35Q EQUAL 11Q EQUAL) NIL NIL FindFirstNIL D1 (P 1 i I 0 lst) &@ kIH@I I iIkYhj(21Q NTH 3 FLENGTH) NIL NIL FindLocIndex D1 (P 1 i I 1 l I 0 el) $A kIH@AI IiIkYh(22Q NTH 3 LENGTH) NIL NIL FindRandomNIL D1 (P 4 i P 2 ri P 1 length P 0 index I 0 lst) 9j@ IkLKHjkI @J JLk\Hdj@ (66Q FindFirstNIL 41Q NTH 33Q RAND 4 FLENGTH) NIL NIL GameClass.New D1 (P 0 inst I 5 a5 I 4 a4 I 3 a3 I 2 a2 I 1 a1 I 0 self) 0@Zg JkI(12Q GetSuperMethod) (7 New) NIL GameControlMenu D1 (F 2 GameControlWindow F 3 GameControlRegion F 4 GameSuspendMenu) So cg `=g`didodg dgjdndhHdI  g `=g`didodg dgjdndhHdI  TRo (242Q ADDMENU 230Q SETTOPVAL 127Q GETTOPVAL 120Q SETTOPVAL 17Q GETTOPVAL 7 CREATEW) (175Q DEFAULTMENUHELDFN 166Q CLRPROMPT 144Q MENUTYPE# 141Q GameAwakeMenu 133Q MENUTYPE# 124Q GameAwakeMenu 65Q DEFAULTMENUHELDFN 56Q CLRPROMPT 34Q MENUTYPE# 31Q GameSuspendMenu 23Q MENUTYPE# 14Q GameSuspendMenu) (237Q (1 . 1) 157Q ((Awake (WakeGame) "Resumes suspended game") ("Kill Game" (KillGame) "Kill Running Truckin Game")) 47Q ((Suspend (SuspendGame T) "Suspend running Truckin") ("Kill Game" (KillGame) "Kill Running Truckin Game")) 4 "GameControl") GameMasterMeta.New D1 (P 0 gbClass I 1 gameBoardType I 0 self F 15Q gameBoard)  @Zg JkI`` `` A A \g LglKA`g X ^g NkMcd_g _OkO`_g _OWlO`_g _OkO`(233Q FetchMethodOrHelp 202Q FetchMethodOrHelp 154Q FetchMethodOrHelp 133Q FetchMethodOrHelp 124Q GetObjectRec 120Q GetValue 72Q FetchMethodOrHelp 63Q GetObjectRec 55Q GetObjectRec 50Q CLOSEW 35Q CLOSEW 12Q GetSuperMethod) (250Q gameMaster 230Q SetUpGauges 223Q gameMaster 177Q AttachBoard 172Q gameMaster 151Q NewBoard 130Q New 115Q gameBoard 112Q gameMaster 77Q GameBoard 67Q InstOf 45Q GameCommandW 41Q GameCommandW 32Q GameParamW 26Q GameParamW 23Q gameMaster 7 New) NIL GameObject.NewInstance D1 (I 5 a4 I 4 a3 I 3 a2 I 2 a1 I 1 name I 0 self) @Hg HABCDElI(12Q GetSuperMethod) (7 NewInstance) NIL GenConsumerPr D1 (I 0 self) >o@g @g o@g @g o ldjo (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 oj@g @g oj kHHk(56Q RAND 43Q GetClassValue 34Q GetClassValue 15Q GetClassValue 6 GetClassValue) (40Q Qty 31Q Qty 12Q Qty 3 Qty) (47Q .3 21Q .3) GetRuleSetMethods D1 (P 5 y P 4 x I 0 class) L@Hg HglIQHI @Lgg ]dgJ KhZYHXK&Z(57Q GetItHere 41Q SORT 12Q FetchMethodOrHelp) (64Q ? 54Q METHOD 51Q RuleSet 17Q Selectors 7 List) NIL InCopyCV? D1 (L (1 list 0 x)) EAHh@dI 'dI@I @@I I@I hIiHX(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 F 30Q currentPlayer) $jpDB@ACE @g \g LglKB^g NglM`XB_g _OkOB_g _OkOBg @g l ָW0ohdoBg HBg @g l jع@g I,@g g o I @g@g I @oI hk B_g _OkOZB_g _OkO`NB_ g _O kOB_$g _"O$kO"o@g g oBg o@g g @g ojع@g@g I oI @g bdO._(g _&O(glO&AO._,g _*O,Jdg lO*"oO.g oO. o B(1032Q WriteGameStatus 1023Q CONCAT 1020Q ClassName 1007Q GetValue 763Q GetValue 746Q FetchMethodOrHelp 714Q FetchMethodOrHelp 673Q GetValue 663Q WriteGameStatus 652Q ChangeValue 645Q GetValue 622Q GetValue 612Q WriteGameStatus 607Q GetValue 601Q GetValue 564Q WriteGameStatus 561Q CONCAT 556Q GetClassValue 543Q GetValue 535Q GetValue 507Q FetchMethodOrHelp 463Q FetchMethodOrHelp 432Q FetchMethodOrHelp 402Q FetchMethodOrHelp 370Q BrokenRules 363Q CONCAT 351Q ChangeValue 344Q GetValue 330Q WriteGameStatus 324Q CONCAT 315Q GetValue 307Q GetValue 273Q GetValue 254Q GetValue 245Q GetValue 234Q BrokenRules 230Q CONCAT 225Q GetClassValue 175Q GetValue 166Q GetValue 144Q FetchMethodOrHelp 120Q FetchMethodOrHelp 64Q FetchMethodOrHelp 36Q FetchMethodOrHelp 27Q GetValue 20Q PutLocalState) (1004Q qty 760Q pr 743Q TransferOwner 724Q LuxuryGoods 711Q InstOf! 670Q cargo 642Q cashBox 636Q cashBox 617Q cashBox 604Q driver 576Q driver 553Q RoadSign 540Q driver 532Q driver 504Q Crash 460Q Unpark 450Q forcedStop 427Q Flash 377Q Bandit? 341Q cashBox 335Q cashBox 312Q driver 304Q driver 270Q cashBox 251Q weight 242Q weightTax 222Q RoadSign 172Q weight 163Q penaltyFactor 141Q Crash 115Q Unpark 105Q forcedStop 71Q WeighStation 61Q InstOf! 43Q Bandit 33Q InstOf! 24Q driver) (1027Q " units" 1013Q " " 777Q "Bandits Stole: " 657Q "Cash lost: $" 626Q .2 572Q "BANDITS robbed you!! " 547Q " at " 526Q "BANDITS stopped you!! " 357Q "Cannot pay WeighStation tax of $" 321Q " paid total Wt. Tax $" 216Q "Forcibly stopped!! at " 210Q "Speeding past a WeighStation at high speed") InitializeTruckin D1 (P 4 var P 0 yMargin F 5 TRUCKINVARS F 6 HandicapRatio F 7 MPenalty F 10Q replenishFreq F 11Q MReason F 12Q debugTimeTrace F 13Q banditIndex F 14Q debugMode F 15Q DemoPlayerMode F 16Q defaultGaugesFlg F 17Q banditCutOff) J l1UdL kc hdccdghdcichcicl(cldjlllkcdcohg g lmg g ldg g g g g g loYdgl g iI g g oZdglg iJ o[dgl g iK lHh(475Q FONTHEIGHT 464Q FONTCREATE 440Q FONTHEIGHT 427Q FONTCREATE 404Q GetClassValue 376Q GetObjectRec 365Q BITMAPCREATE 362Q FONTHEIGHT 351Q FONTCREATE 323Q GetClassValue 315Q GetObjectRec 304Q BITMAPCREATE 301Q GetClassValue 273Q GetObjectRec 265Q GetClassValue 257Q GetObjectRec 243Q GetClassValue 235Q GetObjectRec 214Q GetClassValue 206Q GetObjectRec 32Q SetMachineDepPara 17Q SET) (506Q yData 461Q BOLD 454Q HELVETICA 424Q BOLD 417Q HELVETICA 401Q Height 373Q RoadStop 370Q blankDataIcon 346Q BOLD 341Q HELVETICA 320Q Width 312Q RoadStop 307Q blankPlayerIcon 276Q Height 270Q Player 262Q Width 254Q Player 251Q xTunnelRight 240Q Width 232Q Player 227Q xTunnelLeft 222Q roadStopHalfWidth 211Q Width 203Q RoadStop 200Q Communicator 175Q DecisionMaker 172Q PlayerInterface 167Q GameBoard 164Q Simulator 160Q banditNames 143Q banditMoveRange 136Q banditMoveFrequency 131Q truckSlowDownDistance 124Q truckDelay 120Q aliceCount 114Q banditCount 72Q timeTrace 64Q truckinLogFlg 60Q truckinLogFile 55Q TRUCKINLOG 52Q truckinLogHandle 41Q FCTReason 36Q FCTPenalty) (445Q (NIL) 410Q (NIL) 332Q (NIL) 155Q (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)) IntervalToEvent D1 (P 0 waitinterval I 0 time) @XjHdnj(6 IDATE) NIL NIL InvertIcon D1 (P 0 rIcon I 0 icon) @ X@hdHhdddgg H(31Q BITBLT 6 BITMAPCOPY) (25Q REPLACE 22Q INVERT) NIL KillGame D1 NIL 'g g g `Hg HkI(36Q FetchMethodOrHelp 21Q DEL.PROCESS 13Q DEL.PROCESS 5 DEL.PROCESS) (33Q CleanGameWorld 24Q Communicator 16Q InterimWorldProcess 10Q WorldProcess 2 GameClock) NIL MailOutA1357 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 x F 1 exp) PQQPd`d` i(34Q ApplyMethod 31Q GetLispClass) (21Q classTYPE# 12Q instanceTYPE#) NIL MailOut D1 (P 0 x I 1 exp I 0 comm) @g doi h(24Q MailOutA1357 6 GetValue) (3 broadcastList) (20Q (DUMMY.FOR.ERRORSET)) 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 MakePlayerFile D1 (P 4 file P 3 temp P 2 fileVar P 1 playerName P 0 options I 0 playerClass F 11Q TTY) K o@ b@ b Y \do Zd oW LW oW W ooo g2oX@W oW W oW W hJgIhg@^g NglM"JgIhg@_g _OglO g@ h oW LW W W J-W W W oW W oW LW W LH L(507Q MAKEFILE 502Q FILES? 477Q TERPRI 471Q PRIN1 462Q PRIN1 450Q TERPRI 442Q PRIN1 431Q TERPRI 423Q TERPRI 415Q PRIN1 406Q TERPRI 400Q TERPRI 372Q PRIN1 363Q PRIN1 351Q SET 341Q GetRuleSetMethods 331Q SORT 326Q \APPEND2 305Q FetchMethodOrHelp 247Q FetchMethodOrHelp 222Q TERPRI 214Q PRIN1 202Q TERPRI 174Q PRIN1 162Q PRIN1 136Q INTTY 116Q TERPRI 110Q PRIN1 76Q PRIN1 67Q PRIN1 52Q BOUNDP 45Q MKATOM 42Q CONCAT 31Q U-CASE 25Q GetObjectName 20Q GetClassRec 12Q GetClassRec) (335Q INSTANCES 315Q Functions 302Q List 274Q FNS 265Q CLASSES 254Q Functions 244Q List 237Q FNS 230Q CLASSES 141Q YES) (455Q "select from the following items to be added to file: " 435Q "If you want to add any more items to this file" 356Q "Following is being saved on the file: " 207Q "Please call this function with a valid class/className as arg" 167Q " is NOT a class." 150Q (RC ST) 133Q "Y - reuse existing file. N - make it afresh" 127Q (YES NO) 123Q "Should I reuse existing file? " 103Q " already exists." 62Q "File: " 37Q "COMS" 3 (NEW C ST)) NormalizeValue D1 (L (1 factor 0 value)) AldHj@j@HjHNIL NIL NIL PlayerInterruptMenu D1 (P 2 w I 2 Y I 1 POSorX I 0 playerList) M`d@dgdg dgjdndhHdI  Jgo JAB J(111Q MOVEW 103Q PUTWINDOWPROP 65Q ADDMENU) (74Q TITLE 32Q DEFAULTMENUHELDFN 23Q CLRPROMPT 14Q RunPlayerRE 2 MENUTYPE#) (100Q "Interrupt Player") RunPlayerRE D1 (P 0 playerProcess I 2 key I 1 menu I 0 playerName) Q@ Hjd` @` o` g@ddidd g@hh hi h(115Q SuspendGame 110Q PROCESS.EVAL 42Q PRIN1 30Q PRIN1 21Q TAB 3 FIND.PROCESS) (76Q QUOTE 46Q RunPlayerRE1 37Q PROMPTWINDOW 25Q PROMPTWINDOW 16Q PROMPTWINDOW) (34Q " is NOT a running player") RunPlayerRE1A1368A1369 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 playerName) P i(3 RE) NIL NIL RunPlayerRE1A1368 D1 (NAME ERRORSET L (2 ERRORSET.W 1 ERRORSET.V 0 ERRORSET.U) F 0 MACROY) >`g `g o `g `g ci(70Q WakeGame 64Q OPENW 61Q GetValue 47Q GetValue 35Q RunPlayerRE1A1368A1369 25Q CLOSEW 22Q GetValue 10Q GetValue) (56Q playerMenuWindow 53Q PlayerInterface 44Q playerMenuWindow 41Q PlayerInterface 17Q playerMenuWindow 14Q PlayerInterface 5 playerMenuWindow 2 PlayerInterface) (32Q (DUMMY.FOR.ERRORSET)) RunPlayerRE1 D1 (P 3 RESETSTATE P 2 MACROY P 0 OLDVALUE I 1 awakeWho I 0 playerName F 4 RESETVARSLST) = 1gHhhTcYog gIcgI KJ(70Q ERROR! 63Q APPLY 40Q RunPlayerRE1A1368 5 TTY.PROCESS 2 THIS.PROCESS) (54Q TTY.PROCESS 44Q ERROR 35Q INTERNAL 13Q TTY.PROCESS) (32Q (DUMMY.FOR.ERRORSET)) 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@kB@A ZdKKHJ ]g MkLJK I B(76Q EQUAL 72Q FLENGTH 55Q FetchMethodOrHelp 45Q NTH 25Q RAND 10Q GetValue) (52Q RoomToPark? 5 roadStops 2 Simulator) NIL ReceiveIn D1 (P 0 msg I 0 comm) ;0@g Zg JkIXd @HH@d`d` h(67Q ApplyMethod 64Q GetLispClass 20Q FetchMethodOrHelp 11Q GetValue) (54Q classTYPE# 45Q instanceTYPE# 15Q Receive 6 postman) NIL ReflectIcon D1 (P 3 rCol P 2 col P 0 rIcon I 0 icon) 1ld XljJIlJٻ@JjHKjkl JkZH(46Q BITBLT 10Q BITMAPCREATE) NIL NIL STRINGNUM D1 (P 0 string I 1 WIDTH I 0 NUM) @ H AHkA H(23Q SUBSTRING 12Q NCHARS 3 MKSTRING) NIL NIL SendOut D1 (I 1 exp I 0 comm) @g Hg HAlI(20Q FetchMethodOrHelp 6 GetValue) (15Q Send 3 postman) NIL SetMachineDepPara D1 (F 0 HandicapRatio) ?dgkdcdglocglockdc(2 MACHINETYPE) (71Q truckIncr 56Q truckIncr 47Q DANDELION 35Q truckIncr 25Q DOLPHIN 15Q truckIncr 6 DORADO) ( 62Q .4 41Q .25) SetUpGame D1 (I 1 gameType I 0 numPlayers) "Ag 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 (P 0 x)  g Zg JkIXdgo H\g LolKg ^g NkMXdgo H_g _OolOg _g _OkOXdgo H_g _OolOg _g _OkOXdgo H_ g _O olOh(332Q FetchMethodOrHelp 321Q PutValue 273Q FetchMethodOrHelp 263Q GetObjectRec 235Q FetchMethodOrHelp 224Q PutValue 176Q FetchMethodOrHelp 166Q GetObjectRec 140Q FetchMethodOrHelp 127Q PutValue 105Q FetchMethodOrHelp 76Q GetObjectRec 54Q FetchMethodOrHelp 44Q PutValue 22Q FetchMethodOrHelp 13Q GetObjectRec) (327Q Show 312Q title 270Q New 260Q ClassBrowser 232Q Show 215Q title 173Q New 163Q ClassBrowser 135Q Show 120Q title 102Q New 73Q ClassBrowser 51Q Show 35Q title 17Q New 10Q ClassBrowser) (343Q (Hazard) 316Q "Hazard lattice" 246Q (Commodity CommodityTransportability) 221Q "Commodity and transportability lattice" 151Q (Commodity) 124Q "Commodity lattice" 62Q (GameObject) 41Q "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 oj@g @g oj kKKkYo@g @g o@g @g o ldjo 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) "AddAjA@ @A B@(34Q NTH 25Q FLENGTH) NIL NIL SuspendGame D1 (I 1 closeFlg I 0 clockFlg F 0 GameControlWindow F 1 GameSuspendMenu F 2 GameAwakeMenu) DAPP P QRP @g g g g g g (101Q SUSPEND.PROCESS 71Q FIND.PROCESS 62Q SUSPEND.PROCESS 53Q FIND.PROCESS 44Q SUSPEND.PROCESS 35Q FIND.PROCESS 24Q SwitchMenu 15Q OPENW 10Q CLOSEW) (76Q WorldProcess 66Q WorldProcess 57Q InterimWorldProcess 50Q InterimWorldProcess 41Q GameClock 32Q GameClock) NIL SwitchMenu D1 (I 3 pos I 2 window I 1 toMenu I 0 fromMenu) @ ABC (11Q ADDMENU 3 DELETEMENU) 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 TruckinError D1 (I 0 msg) @ (3 PROMPT) NIL NIL TruckinRE D1 (P 1 endT P 0 begT I 0 player) P g 7` /@dl `g`g IH @dl h(114Q RunPlayerRE 111Q GetObjectName 76Q PutValue 67Q GetValue 47Q CLOCK 43Q RunPlayerRE 40Q GetObjectName 25Q CLOCK 20Q GetObjectRec 10Q BOUNDP) (64Q unchargedTime 61Q PlayerInterface 56Q unchargedTime 53Q PlayerInterface 15Q PlayerInterface 5 PlayerInterface) NIL UpdateConsumerDisplay D1 (I 5 type I 4 activeVal I 3 propName I 2 newValue I 1 varName I 0 self) "DB@ACE `Hg H@lIB(26Q FetchMethodOrHelp 11Q PutLocalState) (23Q UpdateRS 14Q Simulator) 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 F 2 PPDefault) R `njAX`nj,`l@j@@R R oi n @(116Q CLOCK 111Q WAITMS 102Q EVAL.IN.TTY.PROCESS 71Q TERPRI 64Q PRIN1 22Q CLOCK) (44Q \EM.KBDAD2 27Q \EM.KBDAD2 5 \EM.KBDAD2) (76Q (UE)) WakeGame D1 (F 0 GameControlWindow F 1 GameAwakeMenu F 2 GameSuspendMenu) 6g g g g g g P QRP (63Q SwitchMenu 55Q OPENW 50Q WAKE.PROCESS 41Q FIND.PROCESS 32Q WAKE.PROCESS 23Q FIND.PROCESS 14Q WAKE.PROCESS 5 FIND.PROCESS) (45Q GameClock 36Q GameClock 27Q InterimWorldProcess 20Q InterimWorldProcess 11Q WorldProcess 2 WorldProcess) 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<`h5dCjdO @3A`O AO `O B iO O (270Q PRIN1 260Q PRIN1 251Q CLOCK 235Q CHANGEFONT 224Q PRIN1 215Q CHANGEFONT 176Q TAB 126Q OPENFILE 102Q DSPSCROLL 65Q CREATEW 17Q WINDOWP 10Q CLOCK 2 WaitIfControlKey) (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") CommodityMeta.New D1 (P 7 obj% P 0 new I 3 owner I 2 qty I 1 pr I 0 self F 15Q TTY) 2 p@g OYA I`h`4Igl_Id`O`Og`OaI_gOh _OO__6OO _`#`OI`Og`OOO go OkJXBAd\g LAlKHCg'C^g NglMoW W hHgB HgA CgHgC H(456Q PutValue 440Q PutValue 430Q PutValue 416Q TERPRI 410Q PRIN1 363Q FetchMethodOrHelp 332Q FetchMethodOrHelp 304Q ERROR 214Q GetNthMethod 163Q \FindEntryIndex 14Q GetObjectRec) (452Q owner 444Q *SPECIAL* 434Q pr 424Q qty 370Q Producer 360Q InstOf! 350Q *SPECIAL* 327Q SetName 275Q New 255Q MethodBlock 247Q New 241Q SelectorBlock 227Q ClassBlock 222Q UseMethodCacheFlg 151Q class 144Q New 134Q class 121Q MethodBlock 114Q New 104Q SelectorBlock 70Q ClassBlock 53Q New 44Q UseMethodCacheFlg 33Q classTYPE# 11Q Class) ( 403Q "Attempt to illegally create an instance of commodity" 301Q "not found for DoMethod") CommodityMeta.Subs! D1 (L (0 self)) hNIL NIL () GameBoard.NewInstance D1 (I 1 simulator I 0 self) '@!HgoYdg iI HkJ(36Q FindSuperMethod 25Q OldClass) (22Q GameBoard 7 NewInstance) ( 13Q (NIL)) GameClass.AddCV! D1 (P 2 x I 3 copyValue I 2 value I 1 name I 0 self) @Hg HgABlIg@Hg HglI@Hg HgghlI@gCAACh@g @Hg HglI#d!J \g LACgClKA(222Q FetchMethodOrHelp 213Q GetObjectRec 165Q FetchMethodOrHelp 152Q PutClassValue 147Q SettifyCopyCV 144Q ATTACH 141Q GetClassValue 76Q FetchMethodOrHelp 45Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (233Q ? 217Q AddCV! 172Q Subs 162Q List 136Q CopyCV 121Q CopyCV 106Q CopyCV 103Q CV 73Q Add 52Q CVs 42Q List 32Q CopyCV 17Q CV 7 Add) () GameClass.DeleteCV! D1 (P 2 x I 1 name I 0 self) ~@Hg HgAlIg@Hg HglI@gA@g @Hg HglId!J \g LAlKA(155Q FetchMethodOrHelp 146Q GetObjectRec 120Q FetchMethodOrHelp 104Q PutClassValue 101Q ELIMINATE 76Q GetClassValue 44Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (152Q DeleteCV! 125Q Subs 115Q List 73Q CopyCV 66Q CopyCV 51Q CVs 41Q List 31Q CopyCV 17Q CV 7 Delete) () GameClass.RenameCV! D1 (P 2 x I 2 newName I 1 oldName I 0 self F 5 y) Z@ ABi @gBA@g @Hg HglI1IBZ c \g LABlKIY(111Q FetchMethodOrHelp 100Q GetObjectRec 47Q FetchMethodOrHelp 34Q PutClassValue 31Q SUBST 26Q GetClassValue 11Q RenameVariable 3 GetObjectName) (106Q RenameCV! 54Q Subs 44Q List 23Q CopyCV 15Q CopyCV) () GameClass.Subs! D1 (P 10Q x P 2 subs I 0 self) W @Hg HglI!J0J&dO \g LkK]NM_^O  ^M(120Q LAST 114Q \APPEND2 60Q FetchMethodOrHelp 51Q GetObjectRec 12Q FetchMethodOrHelp) (55Q Subs! 17Q Subs 7 List) () GameMetaClass.New D1 (P 23Q z P 22Q x P 20Q x P 2 y P 1 CopyList P 0 newClass I 2 supers I 1 name I 0 self) 6@]go[dg iK MABlLA X@g SdO lH_g OgO glN)H_g _OgO O dHO lOB O"#H_g _OggI lOH_$ Zg I Jg VdO&lH_g _OgO&glO)H_g _OgO&O&dJO& lOO"_"e(436Q GetClassValueOnly 407Q FetchMethodOrHelp 353Q FetchMethodOrHelp 323Q GetClassValue 313Q \APPEND2 307Q GetClassValue 300Q GetObjectRec 262Q SettifyCopyCV 243Q FetchMethodOrHelp 221Q REVERSE 177Q GetClassValueOnly 150Q FetchMethodOrHelp 117Q FetchMethodOrHelp 67Q GetClassValue 57Q GetObjectRec 41Q FindSuperMethod 30Q OldClass) (417Q CV 404Q Add 370Q ? 363Q CV 350Q Add 320Q CopyCV 304Q CopyCV 256Q CopyCV 253Q CV 240Q Add 160Q CV 145Q Add 132Q ? 125Q CV 114Q Add 64Q CopyCV 25Q GameMetaClass 12Q New) ( 16Q (NIL)) GameObject.AddGauges D1 (P 25Q iv P 23Q gcn P 6 gaugePos P 5 limit P 4 gaugeObj P 3 res P 2 gaugeClassNames P 1 gaugeClassName P 0 gauge I 3 titleForm I 2 default I 1 ivs I 0 self) Addhb@\g _g _OglOZdAOO ZAO(HA_& d`d` gO&_$O"O$h_"_ O_O$&_"_*B$oO*o oo [dgKgBLO*g LO*g oJhg Y _g _OkOLO*g H_g _OMMdddjMMdddldlOHgCO*o@ @ O*oC C H_g _OLO*hdddLO*g ^dghlOO(_((610Q GetValue 563Q FetchMethodOrHelp 551Q PutValue 544Q CONCAT 526Q CONCAT 520Q GetObjectName 406Q FetchMethodOrHelp 374Q GetValue 350Q FetchMethodOrHelp 340Q GetClassRec 334Q INMENU 317Q GetValue 305Q GetObjectRec 302Q GetValue 246Q INMENU 233Q CONCAT 140Q ClassName 135Q GetLispClass 111Q GetObjectRec 34Q FetchMethodOrHelp 24Q GetObjectRec) (615Q ? 605Q GaugePos 560Q Attach 503Q title 403Q SetScale 371Q GaugeLimit 345Q New 331Q NoShift 314Q DefaultGauge 277Q DefaultGauge 264Q DEFAULT 253Q NO 143Q AbstractClass 125Q classTYPE# 116Q instanceTYPE# 44Q Subs 31Q List! 21Q Gauge) ( 537Q " of " 514Q " of " 324Q "Type of Gauge: " 243Q "Type Y to add a gauge of choice, D for default gauge, and N to skip this iv." 237Q (YES NO DEFAULT) 230Q "? " 222Q "Add gauge to ") GameObject.Initialize D1 (P 0 x I 0 self) @g d@H@H h(27Q PutValue 24Q GetInitialValue 6 GetClassValue) (3 InitializeIVs) () GameParameters.LoadPara D1 (P 4 val P 3 exp P 2 x I 0 self) a@Hg HglI1Ih@Jg [/ggKlK-gK @JL @JLg IY(131Q PutValue 117Q PutValue 110Q EVAL 50Q GetValue 12Q FetchMethodOrHelp) (126Q oldVal 103Q @ 65Q ? 60Q ? 45Q exp 17Q IVs 7 List) () GameParameters.SetUp D1 (I 0 self F 2 GameParaSet F 3 GameParamRegion F 4 GameCommandX F 5 GameCommandY) |`` `d hc@Hg HkI@Hg HSlI`dodg dgjdndhHdI  TU (171Q MOVEW 161Q ADDMENU 63Q FetchMethodOrHelp 41Q FetchMethodOrHelp 22Q CLOSEW 11Q CLOSEW) (164Q GameCommandW 126Q DEFAULTMENUHELDFN 117Q CLRPROMPT 102Q MENUTYPE# 77Q GameParamW 60Q Inspect 36Q LoadPara 15Q GameParamW 6 GameCommandW 2 GameCommandW) ( 110Q ((DONE (PROGN (CLOSEW GameParamW) (CLOSEW GameCommandW) (SETQ GameParaSet T)) "Clicking DONE will cause Game Parameters to be changed"))) GameParameters.StorePara D1 (P 6 changeExp P 5 oldVal P 4 val P 3 exp P 2 x I 0 self) ~@Hg HglIQIh@Jg [N@J @Jg KgKlKL gKLh  LM @Jg ^gNi IY(166Q ERRORSET 153Q GetValue 141Q EQUAL 133Q EVAL 127Q \APPEND2 114Q SET 71Q GetValue 60Q GetValue 50Q GetValue 12Q FetchMethodOrHelp) (157Q ? 150Q changeExp 120Q _@ 76Q ? 66Q oldVal 45Q exp 17Q IVs 7 List) () (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 Design Team -- Daniel Bobrow, Sanjay Mittal, and Mark Stefik.) (CONSTANTS * TRUCKINCONSTANTS) (CLASSES * TRUCKINCLASSES) (GLOBALVARS * TRUCKINVARS) (FNS * TRUCKINFNS) (GLOBALVARS PlayerProcRestFlg GameProcRestFlg) (VARS GameCommandX GameCommandY GameParamRegion HandicapRatio aliceCount banditCount banditMoveFrequency banditMoveRange debugMode debugTimeTrace defaultGaugesFlg GameControlRegion (GameControlMenu) (GameControlWindow) (GameSuspendMenu) (GameAwakeMenu)) (APPENDVARS (BREAKRESETFORMS (TTY.PROCESS (THIS.PROCESS)))) (METHODS CommodityMeta.New CommodityMeta.Subs! GameAbstractClass.New GameBoard.NewInstance GameClass.AddCV! GameClass.DeleteCV! GameClass.RenameCV! GameClass.Subs! GameMetaClass.New GameObject.AddGauges GameObject.Initialize GameParameters.LoadPara GameParameters.SetUp GameParameters.StorePara))) (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 (CommodityClassMeta CommodityMeta GameAbstractClass GameBoard GameClass GameMetaClass GameObject GameParameters TDMTParameters TruckinDMParameters TruckinParameters)) (DEFCLASSES CommodityClassMeta CommodityMeta GameAbstractClass GameBoard GameClass GameMetaClass GameObject GameParameters TDMTParameters TruckinDMParameters TruckinParameters) (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))) (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))) (DEFCLASS GameAbstractClass (MetaClass GameMetaClass Edited: (* sm: "20-JAN-83 17:29")) (Supers GameClass)) (DEFCLASS GameBoard (MetaClass GameClass Edited: (* sm: "27-JUN-83 17:36")) (Supers GameObject) ( ClassVariables (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. )) (simulator NIL doc (* pointer to simulator which is playing this board)))) (DEFCLASS GameClass (MetaClass GameMetaClass Edited: (* sm: "20-JAN-83 14:29")) (Supers Class) ( ClassVariables (ComsVar TRUCKINCLASSES) (CopyCV NIL))) (DEFCLASS GameMetaClass (MetaClass MetaClass Edited: (* sm: "20-JAN-83 14:29")) (Supers MetaClass) ( ClassVariables (ComsVar TRUCKINCLASSES))) (DEFCLASS GameObject (MetaClass GameClass Edited: (* sm: "26-JUL-83 09:46")) (Supers Object) ( ClassVariables (UnnamedInstanceCount 0) (Icon ?) (CopyCV (Icon InitializeIVs)) (InitializeIVs NIL doc (* list of IVs which are initialized by Initialize msg))) (InstanceVariables (lex NIL doc (* used by the Announcer System)))) (DEFCLASS GameParameters (MetaClass GameClass Edited: (* sm: "13-JUN-83 15:39")) (Supers GameObject) ( ClassVariables (CopyCV (Icon)) (Icon ?))) (DEFCLASS TDMTParameters (MetaClass GameClass Edited: (* sm: "30-JUN-83 18:57") doc (* Parameters for TimeTruckinDM)) (Supers TruckinDMParameters) (ClassVariables (CopyCV (Icon)) (Icon ?))) (DEFCLASS TruckinDMParameters (MetaClass GameClass Edited: (* sm: " 1-JUL-83 17:42")) (Supers TruckinParameters) (ClassVariables (CopyCV)) (InstanceVariables (startsAfter NIL goodVal NUMBERP exp ( DecisionMaker startsAfter) doc "Number of mins from now when game will start") (gameDuration NIL goodVal NUMBERP exp (DecisionMaker gameDuration) doc "How long the game will run (in minutes"))) (DEFCLASS TruckinParameters (MetaClass GameClass Edited: (* sm: " 5-AUG-83 09:59") doc (* Used for Setting/resetting Truckin parameters)) (Supers GameParameters) (ClassVariables (CopyCV)) ( InstanceVariables (banditCount 2 goodVal NUMBERP exp banditCount doc "Number of Bandits in game") ( timeTrace NIL goodVal (T NIL) exp timeTrace doc "If T then prints time taken by each player after each request") (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") (truckDelay 0 goodVal NUMBERP exp truckDelay doc "Controls speed at which trucks move. Higher delay means slower motion"))) (RPAQQ TRUCKINVARS (Communicator DecisionMaker GameBoard GameCommandW GameParamW aliceCount banditCount banditMoveFrequency banditMoveRange banditNames blankDataIcon blankPlayerIcon forcedStop gameDebugFlg gameMaster gameStatusWindow gameWindow interactiveGameMenu ExistingPlayers paintMap roadStopHalfWidth saveMap timeTrace truckDelay truckSlowDownDistance truckIncr truckinLogHandle truckinLogFile truckinLogFlg xTunnelLeft xTunnelRight yData FCTPenalty FCTReason PI PlayerInterface Simulator)) (RPAQQ TRUCKINFNS (AuxBuyMade AuxMoveMade AuxSellMade BanditGotYou? BrokenRules ChangeValue CheckVictim CommodityClassMeta.New CreateNewPlayer CreatePlayers DrawRoadMarks Drive DriveLeft DriveRight ELIMINATE FindFirstNIL FindLocIndex FindRandomNIL GameClass.New GameControlMenu GameMasterMeta.New GameObject.NewInstance GenConsumerPr GenConsumerQty GetRuleSetMethods InCopyCV? InformBandit&WS InitializeTruckin IntervalToEvent InvertIcon KillGame MailOut MakeDriveBitMaps MakePlayerFile NormalizeValue PlayerInterruptMenu RunPlayerRE RunPlayerRE1 RandomRoomAvailable ReceiveIn ReflectIcon STRINGNUM SendOut SetMachineDepPara SetUpGame SettifyCopyCV SetupGameBrowsers SmashCreateCommodity SmashRandomPerishable SubstituteStop SuspendGame SwitchMenu TalkinBuyMade TalkinMoveMade TalkinSellMade TruckinError TruckinRE UpdateConsumerDisplay UpdatePrDisplay UpdateProducerSoldout UpdateQtyDisplay WSRuleViolated? WaitIfControlKey WakeGame WriteGameStatus)) (RPAQQ GameCommandX 585) (RPAQQ GameCommandY 651) (RPAQQ GameParamRegion (622 650 273 140)) (RPAQQ HandicapRatio 1) (RPAQQ aliceCount 2) (RPAQQ banditCount 2) (RPAQQ banditMoveFrequency 5) (RPAQQ banditMoveRange 15) (RPAQQ debugMode T) (RPAQQ debugTimeTrace NIL) (RPAQQ defaultGaugesFlg T) (RPAQQ GameControlRegion (645 635 68 48)) (RPAQQ GameControlMenu NIL) (RPAQQ GameControlWindow NIL) (RPAQQ GameSuspendMenu NIL) (RPAQQ GameAwakeMenu NIL) (APPENDTOVAR BREAKRESETFORMS (TTY.PROCESS (THIS.PROCESS))) (METH CommodityMeta New (pr qty owner) (* create a new instance of a commodity with qty, pr, and owner specified)) (METH CommodityMeta Subs! NIL NIL) (METH GameAbstractClass New NIL NIL (method AbstractClass.New)) (METH GameBoard NewInstance (simulator) (* Received when new instance is created)) (METH GameClass AddCV! (name value copyValue) (* * Adds CV to self, its subs, and CopyCV list)) (METH GameClass DeleteCV! (name) (* * Deletes CV from self, its subs, and CopyCV list)) (METH GameClass RenameCV! (oldName newName) (* * Renames a CV in self and all subclasses. Changes CopyCV list also.)) (METH GameClass Subs! NIL (* sm: " 7-JAN-83 11:55")) (METH GameMetaClass New (name supers) (* * New method for creating new Game classes)) (METH GameObject AddGauges (ivs default titleForm) (* Adds a collection of gauges to the ivs of some game object under interactive control of a user.)) (METH GameObject Initialize NIL (* Initializes)) (METH GameParameters LoadPara NIL (* Loads the defined parameters with existing values)) (METH GameParameters SetUp NIL (* Displays the inspector containing parameters, and a menu to signal when to accept the parameters)) (METH GameParameters StorePara NIL (* Store values where they came from)) (PUTPROPS TRUCKIN COPYRIGHT ("Xerox Corporation" 1985)) NIL