(FILECREATED "14-Jan-85 17:05:14" ("compiled on " {INDIGO}TRUCKIN>MULTI>TRUCKINR.;18) "20-Dec-84 12:07:22" recompiled changes: Commodity.CanTransfer Commodity.CheckFragility Commodity.Display Commodity.TransferOwner Commodity.UpdateStatus Consumer.Buy Consumer.CanBuy Consumer.DisplayData Consumer.DisplayIcon Consumer.Show FragileCommodity.CheckFragility FragileCommodity.PartialTransfer OtherRoadStop.DisplayIcon OtherRoadStop.Initialize OtherRoadStop.ReInitialize OtherRoadStop.Show PerishableCommodity.PartialTransfer PerishableCommodity.UpdateStatus Producer.DisplayData Producer.DisplayIcon Producer.Sell Producer.Show RoadStop.AnyVictim RoadStop.BWDisplay RoadStop.Bandit? RoadStop.BanditReady RoadStop.ColorDisplay RoadStop.Crash RoadStop.Display RoadStop.DisplayData RoadStop.Flash RoadStop.GoingPast RoadStop.Initialize RoadStop.Park RoadStop.Parked? RoadStop.Place RoadStop.ReInitialize RoadStop.RoomToPark? RoadStop.TimeSpent RoadStop.TurnsStayed RoadStop.Unpark RoadStop.Visit SystemTruck.Buy SystemTruck.CanBuy SystemTruck.Sell Truck.BuyFuel Truck.CanBuyFuel Truck.FillTank Truck.Initialize Truck.SellFuel Truck.VisitUnionHall in "LOOPS 11-Jan-85 ..." dated "11-Jan-85 18:25:22") (FILECREATED "14-Jan-85 17:03:22" {INDIGO}TRUCKIN>MULTI>TRUCKINR.;18 66827 changes to: (METHODS Commodity.CanTransfer Commodity.CheckFragility Commodity.Display Commodity.TransferOwner Commodity.UpdateStatus Consumer.Buy Consumer.CanBuy Consumer.DisplayData Consumer.DisplayIcon Consumer.Show FragileCommodity.CheckFragility FragileCommodity.PartialTransfer OtherRoadStop.DisplayIcon OtherRoadStop.Initialize OtherRoadStop.ReInitialize OtherRoadStop.Show PerishableCommodity.PartialTransfer PerishableCommodity.UpdateStatus Producer.DisplayData Producer.DisplayIcon Producer.Sell Producer.Show RoadStop.AnyVictim RoadStop.BWDisplay RoadStop.Bandit? RoadStop.BanditReady RoadStop.ColorDisplay RoadStop.Crash RoadStop.Display RoadStop.DisplayData RoadStop.Flash RoadStop.GoingPast RoadStop.Initialize RoadStop.Park RoadStop.Parked? RoadStop.Place RoadStop.ReInitialize RoadStop.RoomToPark? RoadStop.TimeSpent RoadStop.TurnsStayed RoadStop.Unpark RoadStop.Visit SystemTruck.Buy SystemTruck.CanBuy SystemTruck.Sell Truck.BuyFuel Truck.CanBuyFuel Truck.FillTank Truck.Initialize Truck.SellFuel Truck.VisitUnionHall) (FNS Commodity.CanTransfer Commodity.CheckFragility Commodity.Display Commodity.TransferOwner Commodity.UpdateStatus Consumer.Buy Consumer.CanBuy Consumer.DisplayData Consumer.DisplayIcon Consumer.Show FragileCommodity.CheckFragility FragileCommodity.PartialTransfer OtherRoadStop.DisplayIcon OtherRoadStop.Initialize OtherRoadStop.ReInitialize OtherRoadStop.Show PerishableCommodity.PartialTransfer PerishableCommodity.UpdateStatus Producer.DisplayData Producer.DisplayIcon Producer.Sell Producer.Show RoadStop.AnyVictim RoadStop.BWDisplay RoadStop.Bandit? RoadStop.BanditReady RoadStop.ColorDisplay RoadStop.Crash RoadStop.Display RoadStop.DisplayData RoadStop.Flash RoadStop.GoingPast RoadStop.Initialize RoadStop.Park RoadStop.Parked? RoadStop.Place RoadStop.ReInitialize RoadStop.RoomToPark? RoadStop.TimeSpent RoadStop.TurnsStayed RoadStop.Unpark RoadStop.Visit SystemTruck.Buy SystemTruck.CanBuy SystemTruck.Sell Truck.BuyFuel Truck.CanBuyFuel Truck.FillTank Truck.Initialize Truck.SellFuel Truck.VisitUnionHall) previous date: "13-NOV-83 18:38:49" {INDIGO}TRUCKIN>MULTI>TRUCKINR.;17) CommodityTransportability.CheckFragility D1 (L (2 speed 1 rs 0 self)) iNIL NIL NIL CommodityTransportability.UpdateStatus D1 (L (2 oldStop 1 newStop 0 self)) iNIL NIL NIL RoadStop.BwPlace D1 (I 4 roadOrientation I 3 milePost I 2 y I 1 x I 0 self) HA#@gA @gB @gC @gD @g b@g b@g b@g (105Q GetValue 74Q GetValue 63Q GetValue 52Q GetValue 42Q PutValue 32Q PutValue 22Q PutValue 12Q PutValue) (102Q roadOrientation 71Q milePost 60Q y 47Q x 36Q roadOrientation 26Q milePost 16Q y 6 x) NIL RoadStop.ColorPlace D1 (I 4 roadOrientation I 3 milePost I 2 y I 1 x I 0 self) HA#@gA @gB @gC @gD @g b@g b@g b@g (105Q GetValue 74Q GetValue 63Q GetValue 52Q GetValue 42Q PutValue 32Q PutValue 22Q PutValue 12Q PutValue) (102Q roadOrientation 71Q milePost 60Q y 47Q x 36Q roadOrientation 26Q milePost 16Q y 6 x) NIL RoadStop.DisplayIcon D1 (P 5 yIcon P 4 xIcon P 3 icon P 2 yOffset P 1 commodity P 0 commodityName I 0 self F 13Q yPr) @g @g l @g Wo^dgl g iN J]@_g _Og lOq@g @g Ho_dgl g iO l\` M` o_dgl g iO` H` @g @g llh(330Q GetClassValue 321Q GetValue 310Q PRIN2 300Q DSPFONT 263Q FONTCREATE 235Q DSPYPOSITION 225Q DSPXPOSITION 211Q STRINGWIDTH 177Q FONTCREATE 151Q GetClassValue 142Q GetValue 123Q GetObjectRec 110Q FetchMethodOrHelp 72Q FONTHEIGHT 61Q FONTCREATE 34Q GetValue 20Q GetClassRec 15Q GetValue 6 GetValue) (325Q Width 316Q x 305Q gameWindow 275Q gameWindow 260Q BOLD 253Q HELVETICA 232Q gameWindow 222Q gameWindow 174Q BOLD 167Q HELVETICA 146Q Width 137Q x 120Q Consumer 105Q InstOf 56Q BOLD 51Q HELVETICA 31Q y 12Q commodity 3 commodity) (242Q (NIL) 156Q (NIL) 42Q (NIL)) Commodity.CanTransfer D1 (I 4 prevOwner I 3 qty I 2 pr I 1 newOwner I 0 self) *AHg H@B dg C @g DlI(41Q GetValue 27Q GetValue 12Q FetchMethodOrHelp) (36Q qty 24Q pr 7 CanBuy) () Commodity.CheckFragility D1 (L (2 speed 1 rs 0 self)) iNIL NIL () Commodity.Display D1 (I 0 self) @g - (23Q MOVEW 20Q OPENW 15Q CREATEWFROMIMAGE 12Q BITMAPCOPY 6 GetClassValue) (3 Icon) () Commodity.TransferOwner D1 (P 3 transfer P 2 tqty P 1 tpr P 0 prevOwner I 3 qty I 2 priceRatio I 1 newOwner I 0 self) @g BCs I@g J@g H]g M@IJlLCC@g @[P@d`d` _g OB @g CglN@g@g C o KgA A_g _OKHlOK(242Q FetchMethodOrHelp 231Q PutValue 220Q DoFringeMethods 210Q PutValue 203Q GetValue 156Q GetValue 141Q FetchMethodOrHelp 131Q GetLispClass 77Q EQUAL 74Q GetValue 47Q FetchMethodOrHelp 36Q GetValue 24Q GetValue 6 GetValue) (237Q Buy 225Q owner 200Q qty 174Q qty 162Q *SPECIAL* 153Q pr 136Q New 121Q classTYPE# 112Q instanceTYPE# 71Q qty 44Q Sell 33Q qty 21Q pr 3 owner) ( 215Q (transfer (QUOTE PartialTransfer) self)) Commodity.UpdateStatus D1 (L (2 oldStop 1 newStop 0 self)) iNIL NIL () Consumer.Buy D1 (I 2 prevOwner I 1 commodity I 0 self) $@g@g Ag jHHj @(40Q PutValue 21Q GetValue 12Q GetValue) (16Q qty 7 qty 3 qty) () Consumer.CanBuy D1 (I 4 seller I 3 qty I 2 pr I 1 commodity I 0 self) zAg gohAHg H@g lIgohC@g gohB@g goh@(144Q GetValue 112Q GetValue 53Q GetClassValue 42Q FetchMethodOrHelp 6 GetValue) (164Q FCTPenalty 154Q FCTReason 151Q PriceHigh 141Q pr 132Q FCTPenalty 122Q FCTReason 117Q TooMuchQty 107Q qty 100Q FCTPenalty 70Q FCTReason 65Q InvalidCommodity 50Q Commodity 37Q InstOf! 25Q FCTPenalty 15Q FCTReason 12Q PerishedGoods 3 status) ( 161Q .1 127Q .1 75Q .2 22Q .2) Consumer.DisplayData D1 (P 2 str P 1 y P 0 x I 0 self) 0l ` l` `hd`@g k@g ` @g jo@g o@g l Z@g j@g Jo l X@g `kYH` I` o` J` h(252Q PRIN1 243Q DSPFONT 231Q DSPYPOSITION 222Q DSPXPOSITION 204Q GetValue 173Q MAX 164Q STRINGWIDTH 154Q GetClassValue 144Q GetValue 134Q CONCAT 131Q STRINGNUM 124Q GetValue 111Q GetValue 71Q GetValue 62Q BITBLT 52Q GetValue 41Q GetValue 22Q DSPBACKCOLOR 12Q DSPCOLOR) (247Q gameWindow 240Q gameWindow 226Q gameWindow 217Q gameWindow 207Q yData 201Q y 151Q Width 141Q x 121Q pr 106Q qty 66Q qty 55Q yData 47Q y 36Q x 32Q gameWindow 25Q blankDataIcon 17Q gameWindow 7 gameWindow) ( 235Q (FONTCREATE (QUOTE HELVETICA) 12Q (QUOTE BOLD)) 161Q (FONTCREATE (QUOTE HELVETICA) 12Q (QUOTE BOLD)) 115Q " @ " 100Q "ENOUGH!!") Consumer.DisplayIcon D1 (P 3 yIcon P 2 xIcon P 1 yOffset P 0 commodityName I 0 self) s@g l"@g `o I[@g @g Ho lZd` K` l ` l` o` H` h(157Q PRIN2 150Q DSPFONT 136Q DSPBACKCOLOR 126Q DSPCOLOR 116Q DSPYPOSITION 107Q DSPXPOSITION 72Q STRINGWIDTH 62Q GetClassValue 53Q GetValue 37Q FONTHEIGHT 25Q GetValue 11Q ClassName 6 GetClassValue) (154Q gameWindow 145Q gameWindow 133Q gameWindow 123Q gameWindow 113Q gameWindow 104Q gameWindow 57Q Width 50Q x 30Q yData 22Q y 3 Commodity) ( 142Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD)) 67Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD)) 34Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD))) Consumer.Show D1 (P 2 cv P 1 commodity P 0 file I 0 self F 3 PPDefault) S@g H oH H oH @ H H oH `H I H `H H oH I H H o%dJH lhH IJ H H i(225Q TERPRI 220Q PRIN1 214Q GetClassValue 206Q TAB 176Q PRIN1 156Q TERPRI 151Q PRIN1 145Q GetObjectName 140Q PRIN1 130Q TERPRI 123Q CHANGEFONT 113Q PRIN1 107Q GetObjectName 102Q CHANGEFONT 72Q PRIN1 62Q TERPRI 55Q PRIN1 51Q ClassName 44Q PRIN1 34Q TERPRI 27Q PRIN1 16Q TERPRI 7 GetClassValue) (117Q DEFAULTFONT 76Q BOLDFONT 4 Commodity) ( 162Q (VolPerQty WtPerQty AvgPrice) 134Q "Data for: " 66Q "Consumer of: " 40Q "RoadStop: " 23Q "*****************") FragileCommodity.CheckFragility D1 (P 1 truck P 0 player I 2 dist I 1 hazard I 0 self) _@g g @g "Ag B@g Ig l)@g `[g KH@Ig lJh(126Q FindLocIndex 123Q GetValue 110Q FetchMethodOrHelp 74Q GetValue 56Q GetClassValue 45Q GetValue 35Q GetValue 23Q GetValue 14Q GetValue 6 GetValue) (120Q cargo 105Q BreakCargo 101Q Communicator 71Q status 53Q MaxDist 42Q fragility 32Q roughness 20Q owner 11Q driver 3 owner) () FragileCommodity.PartialTransfer D1 (I 1 copyFrom I 0 self) @gAg (15Q PutValue 12Q GetValue) (7 fragility 3 fragility) () OtherRoadStop.DisplayIcon D1 (P 3 yIcon P 2 xIcon P 1 yOffset P 0 iconName I 0 self) X@g l"@g `o I[@g @g llZl ` l` H-hd`JK h(124Q BITBLT 107Q DSPBACKCOLOR 77Q DSPCOLOR 57Q GetClassValue 50Q GetValue 34Q FONTHEIGHT 22Q GetValue 6 GetClassValue) (116Q gameWindow 104Q gameWindow 74Q gameWindow 54Q Width 45Q x 25Q yData 17Q y 3 Icon) ( 31Q (FONTCREATE (QUOTE HELVETICA) 12Q (QUOTE BOLD))) OtherRoadStop.Initialize D1 (I 0 self) @g @g @(15Q PutValue 6 PutValue) (12Q parkingPlace2 3 parkingPlace1) () OtherRoadStop.ReInitialize D1 (I 0 self) @Hg HkI(12Q FetchMethodOrHelp) (7 Initialize) () OtherRoadStop.Show D1 (I 0 self F 0 PPDefault) (P oP P @ P oP P (45Q TERPRI 41Q PRIN1 31Q PRIN1 25Q ClassName 21Q TERPRI 14Q PRIN1 3 TERPRI) NIL ( 35Q " is neither a producer nor a consumer" 10Q "**********") PerishableCommodity.PartialTransfer D1 (I 1 copyFrom I 0 self) @gAg (15Q PutValue 12Q GetValue) (7 lifetime 3 lifetime) () PerishableCommodity.UpdateStatus D1 (P 1 truck P 0 player I 2 oldStop I 1 newStop I 0 self) b@g g @g "@g@g k @g +@g j `[g KH@Ig lJ@g (137Q GetValue 122Q FindLocIndex 117Q GetValue 104Q FetchMethodOrHelp 66Q GetValue 55Q GetValue 46Q PutValue 41Q GetValue 23Q GetValue 14Q GetValue 6 GetValue) (134Q lifetime 114Q cargo 101Q SpoilCargo 75Q Communicator 63Q lifetime 52Q status 36Q lifetime 32Q lifetime 20Q owner 11Q driver 3 owner) () Producer.DisplayData D1 (P 2 str P 1 y P 0 x I 0 self) 0l ` l` `hd`@g k@g ` @g jo@g jo@g l Z@g j@g Jo l X@g `kYH` I` o` J` h(254Q PRIN1 245Q DSPFONT 233Q DSPYPOSITION 224Q DSPXPOSITION 206Q GetValue 175Q MAX 166Q STRINGWIDTH 156Q GetClassValue 146Q GetValue 136Q CONCAT 133Q STRINGNUM 126Q GetValue 111Q GetValue 71Q GetValue 62Q BITBLT 52Q GetValue 41Q GetValue 22Q DSPBACKCOLOR 12Q DSPCOLOR) (251Q gameWindow 242Q gameWindow 230Q gameWindow 221Q gameWindow 211Q yData 203Q y 153Q Width 143Q x 123Q pr 106Q qty 66Q qty 55Q yData 47Q y 36Q x 32Q gameWindow 25Q blankDataIcon 17Q gameWindow 7 gameWindow) ( 237Q (FONTCREATE (QUOTE HELVETICA) 12Q (QUOTE BOLD)) 163Q (FONTCREATE (QUOTE HELVETICA) 12Q (QUOTE BOLD)) 117Q " @ " 100Q "SOLD OUT") Producer.DisplayIcon D1 (P 4 yIcon P 3 xIcon P 2 iconName P 1 yOffset P 0 commodity I 0 self) g@g l2HQgZ@g `o I\@g @g ll[l ` l` J-hd`KL hg (143Q GetClassValue 133Q BITBLT 116Q DSPBACKCOLOR 106Q DSPCOLOR 66Q GetClassValue 57Q GetValue 43Q FONTHEIGHT 31Q GetValue 6 GetClassValue) (140Q Icon 125Q gameWindow 113Q gameWindow 103Q gameWindow 63Q Width 54Q x 34Q yData 26Q y 21Q defaultIcon 3 Commodity) ( 40Q (FONTCREATE (QUOTE HELVETICA) 12Q (QUOTE BOLD))) Producer.Sell D1 (I 3 qty I 2 pr I 1 commodity I 0 self) @g@g CjHHj @(32Q PutValue 12Q GetValue) (7 qty 3 qty) () Producer.Show D1 (P 2 cv P 1 commodity P 0 file I 0 self F 3 PPDefault) S@g H oH H oH @ H H oH `H I H `H H oH I H H o%dJH lhH IJ H H i(225Q TERPRI 220Q PRIN1 214Q GetClassValue 206Q TAB 176Q PRIN1 156Q TERPRI 151Q PRIN1 145Q GetObjectName 140Q PRIN1 130Q TERPRI 123Q CHANGEFONT 113Q PRIN1 107Q GetObjectName 102Q CHANGEFONT 72Q PRIN1 62Q TERPRI 55Q PRIN1 51Q ClassName 44Q PRIN1 34Q TERPRI 27Q PRIN1 16Q TERPRI 7 GetClassValue) (117Q DEFAULTFONT 76Q BOLDFONT 4 Commodity) ( 162Q (VolPerQty WtPerQty AvgPrice) 134Q "Data for: " 66Q "Producer of: " 40Q "RoadStop: " 23Q "*****************") RoadStop.AnyVictim D1 (P 4 x P 0 loc I 0 self) F0oKhXd@H @L @L Zg JglILiK[(56Q FetchMethodOrHelp 47Q GetValue 40Q GetValue 30Q GetValue) (63Q Bandit 53Q InstOf!) ( 6 (parkingPlace1 parkingPlace2)) RoadStop.BWDisplay D1 (P 11Q roadOrientation P 10Q milePost P 7 y P 6 x P 5 yOffset P 4 xOffset P 3 fontHeight P 2 roadSign P 1 height P 0 width I 0 self) p@g @g @g o  @g ^@g _@g _@g _hdd`NOHIgg@g - hdd`NOHkggn hdd`NOkIggn hdd`NOIkHkggn hdd`NHkOkIggn o` kHJo l dN\OIjo ]hdd`NMHKggn n` g` L` Ml` J` j` g` @_g _OkO@_g _OkOh(542Q FetchMethodOrHelp 516Q FetchMethodOrHelp 505Q DSPOPERATION 474Q DSPTEXTURE 465Q PRIN1 456Q DSPYPOSITION 444Q DSPXPOSITION 435Q DSPOPERATION 424Q DSPTEXTURE 413Q BITBLT 360Q FONTHEIGHT 341Q MAX 332Q STRINGWIDTH 320Q DSPFONT 306Q BITBLT 252Q BITBLT 216Q BITBLT 166Q BITBLT 136Q BITBLT 131Q GetClassValue 77Q GetValue 66Q GetValue 55Q GetValue 45Q GetValue 33Q FONTHEIGHT 24Q GetClassValue 15Q GetClassValue 6 GetClassValue) (537Q DisplayData 513Q DisplayIcon 502Q gameWindow 477Q REPLACE 471Q gameWindow 462Q gameWindow 453Q gameWindow 441Q gameWindow 432Q gameWindow 427Q INVERT 421Q gameWindow 404Q REPLACE 401Q TEXTURE 372Q gameWindow 315Q gameWindow 277Q REPLACE 274Q TEXTURE 260Q gameWindow 243Q REPLACE 240Q TEXTURE 224Q gameWindow 207Q REPLACE 204Q TEXTURE 174Q gameWindow 157Q REPLACE 154Q TEXTURE 144Q gameWindow 126Q Shade 122Q REPLACE 117Q TEXTURE 107Q gameWindow 74Q roadOrientation 63Q milePost 52Q y 42Q x 21Q RoadSign 12Q Height 3 Width) ( 355Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD)) 327Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD)) 312Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD)) 30Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD))) RoadStop.Bandit? D1 (P 4 x P 0 banditLoc I 0 self) H0oK hX@H @L @L Zg JglILiK[(60Q FetchMethodOrHelp 51Q GetValue 42Q GetObjectRec 37Q GetValue 27Q GetValue) (65Q Bandit 55Q InstOf!) ( 6 (parkingPlace1 parkingPlace2)) RoadStop.BanditReady D1 (I 0 self) '@Hg HkI@Hg HkI(36Q FetchMethodOrHelp 12Q FetchMethodOrHelp) (33Q Bandit? 7 RoomToPark?) () RoadStop.ColorDisplay D1 (P 11Q roadOrientation P 10Q milePost P 7 y P 6 x P 5 yOffset P 4 xOffset P 3 fontHeight P 2 roadSign P 1 height P 0 width I 0 self) M@g @g @g o  @g ^@g _@g _@g _hdd`NOHIggl hdd`NOHkggj hdd`NOkIggj hdd`NOIkHkggj hdd`NHkOkIggj o` kHJo l dN\OIjo ]hdd`NMHKggj l ` j` L` Ml` J` @_g _OkO@_g _OkOh(477Q FetchMethodOrHelp 453Q FetchMethodOrHelp 442Q PRIN1 433Q DSPYPOSITION 421Q DSPXPOSITION 412Q DSPBACKCOLOR 403Q DSPCOLOR 373Q BITBLT 342Q FONTHEIGHT 323Q MAX 314Q STRINGWIDTH 302Q DSPFONT 270Q BITBLT 236Q BITBLT 204Q BITBLT 156Q BITBLT 130Q BITBLT 77Q GetValue 66Q GetValue 55Q GetValue 45Q GetValue 33Q FONTHEIGHT 24Q GetClassValue 15Q GetClassValue 6 GetClassValue) (474Q DisplayData 450Q DisplayIcon 437Q gameWindow 430Q gameWindow 416Q gameWindow 407Q gameWindow 400Q gameWindow 366Q REPLACE 363Q TEXTURE 354Q gameWindow 277Q gameWindow 263Q REPLACE 260Q TEXTURE 244Q gameWindow 231Q REPLACE 226Q TEXTURE 212Q gameWindow 177Q REPLACE 174Q TEXTURE 164Q gameWindow 151Q REPLACE 146Q TEXTURE 136Q gameWindow 122Q REPLACE 117Q TEXTURE 107Q gameWindow 74Q roadOrientation 63Q milePost 52Q y 42Q x 21Q RoadSign 12Q Height 3 Width) ( 337Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD)) 311Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD)) 274Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD)) 30Q (FONTCREATE (QUOTE HELVETICA) 10Q (QUOTE BOLD))) RoadStop.Crash D1 (P 3 icon P 2 yPos P 1 xPos P 0 xMargin I 1 player I 0 self) lq@g gAgAg [@]g MAlL@_g OAlNl @g 3@gA @g Hع@g kغ`fKhd`IJ V@g F@gA @g @g jAg jHع@g kغ`Khd`IJ o h(331Q TruckinError 320Q BITBLT 274Q GetValue 255Q GetClassValue 245Q GetClassValue 236Q GetValue 226Q PutValue 214Q GetValue 202Q BITBLT 156Q GetValue 144Q GetValue 134Q PutValue 122Q GetValue 112Q WAITMS 73Q FetchMethodOrHelp 50Q FetchMethodOrHelp 37Q InvertIcon 34Q GetValue 13Q GetValue) (312Q gameWindow 302Q gameWindow 271Q y 252Q Width 242Q Width 233Q x 222Q parkingPlace2 211Q parkingPlace2 174Q gameWindow 164Q gameWindow 153Q y 141Q x 130Q parkingPlace1 117Q parkingPlace1 70Q Unpark 45Q Parked? 31Q reverseIcon 24Q icon 16Q Right 10Q roadOrientation) ( 326Q "Attempt to Park when there is no room.") RoadStop.Display D1 (I 0 self) 0`g @Hg HkI@Hg HkI(47Q FetchMethodOrHelp 25Q FetchMethodOrHelp 10Q GetClassValue) (44Q BWDisplay 22Q ColorDisplay 5 colorP 2 GameBoard) () RoadStop.DisplayData D1 (L (0 self)) hNIL NIL () RoadStop.Flash D1 (P 1 i I 1 player I 0 self) [lkbIHh@[g KAlJld @]g MAlLl @_g OAilNld IkY(122Q WAITMS 102Q FetchMethodOrHelp 70Q WAITMS 52Q FetchMethodOrHelp 41Q WAITMS 23Q FetchMethodOrHelp) (77Q Park 47Q Unpark 20Q Crash) () RoadStop.GoingPast D1 (I 2 dist I 1 player I 0 self) !@Hg HkI A@B g(31Q BanditGotYou? 12Q FetchMethodOrHelp) (36Q Bandit 7 BanditReady) () RoadStop.Initialize D1 (I 0 self) @g @g @g @g @(33Q GetValue 24Q GetValue 15Q PutValue 6 PutValue) (30Q pr 21Q qty 12Q parkingPlace2 3 parkingPlace1) () RoadStop.Park D1 (P 3 icon P 2 yPos P 1 xPos P 0 xMargin I 3 time I 2 tempFlg I 1 player I 0 self) l1@g gAgAg [@g a@gA B(@gjg @gjg C@gCg @g Hع@g kغ`Khd`IJ @g o@gA B(@gjg @gjg C@gCg @g @g jAg jHع@g kغ`Khd`IJ o h(402Q TruckinError 371Q BITBLT 345Q GetValue 326Q GetClassValue 316Q GetClassValue 307Q GetValue 277Q PutValue 261Q PutValue 245Q PutValue 226Q PutValue 214Q GetValue 201Q BITBLT 151Q GetValue 137Q GetValue 127Q PutValue 111Q PutValue 75Q PutValue 56Q PutValue 44Q GetValue 34Q GetValue 13Q GetValue) (363Q gameWindow 353Q gameWindow 342Q y 323Q Width 313Q Width 304Q x 274Q timeParked 270Q parkingPlace2 256Q timeUsed 252Q parkingPlace2 242Q howLong 236Q parkingPlace2 222Q parkingPlace2 211Q parkingPlace2 173Q gameWindow 157Q gameWindow 146Q y 134Q x 124Q timeParked 120Q parkingPlace1 106Q timeUsed 102Q parkingPlace1 72Q howLong 66Q parkingPlace1 52Q parkingPlace1 41Q parkingPlace1 31Q reverseIcon 24Q icon 16Q Right 10Q roadOrientation) ( 377Q "Attempt to Park when there is no room.") RoadStop.Parked? D1 (I 1 player I 0 self) A@g A@g (22Q GetValue 7 GetValue) (17Q parkingPlace2 4 parkingPlace1) () RoadStop.Place D1 (I 4 roadOrientation I 3 milePost I 2 y I 1 x I 0 self) %A"@gA @gB @gC @gD (42Q PutValue 32Q PutValue 22Q PutValue 12Q PutValue) (36Q roadOrientation 26Q milePost 16Q y 6 x) () RoadStop.ReInitialize D1 (I 0 self) ,@g @g @g@g @g@g (51Q PutValue 46Q GetInitialValue 33Q PutValue 30Q GetInitialValue 15Q PutValue 6 PutValue) (43Q pr 37Q pr 25Q qty 21Q qty 12Q parkingPlace2 3 parkingPlace1) () RoadStop.RoomToPark? D1 (I 0 self) @g h @g h(21Q GetValue 6 GetValue) (16Q parkingPlace2 3 parkingPlace1) () RoadStop.TimeSpent D1 (I 1 player I 0 self) 5A@g @gg A@g @gg j(57Q GetValue 45Q IDATE 40Q GetValue 26Q GetValue 14Q IDATE 7 GetValue) (54Q timeParked 51Q parkingPlace2 35Q parkingPlace2 23Q timeParked 20Q parkingPlace1 4 parkingPlace1) () RoadStop.TurnsStayed D1 (I 1 player I 0 self) -A@g @gg A@g @gg j(50Q GetValue 34Q GetValue 23Q GetValue 7 GetValue) (45Q howLong 42Q parkingPlace2 31Q parkingPlace2 20Q howLong 15Q parkingPlace1 4 parkingPlace1) () RoadStop.Unpark D1 (P 3 yPos P 2 xPos P 1 xMargin P 0 gb I 1 player I 0 self) `g l"A@g ^@g @g Iغ@g kػ`hdd`JKAg Ag ggHg l@g - A@g l@g @g @g jAg jIغ@g kػ`Ghdd`JKAg Ag ggHg l@g - oAo h(370Q TruckinError 365Q CONCAT 347Q BITBLT 342Q GetClassValue 327Q GetClassValue 312Q GetClassValue 303Q GetClassValue 254Q GetValue 235Q GetClassValue 225Q GetClassValue 216Q GetValue 206Q PutValue 174Q GetValue 160Q BITBLT 153Q GetClassValue 140Q GetClassValue 123Q GetClassValue 114Q GetClassValue 61Q GetValue 47Q GetValue 37Q PutValue 25Q GetValue 10Q GetValue) (337Q Shade 324Q colorP 320Q REPLACE 315Q TEXTURE 307Q Height 300Q Width 272Q gameWindow 262Q gameWindow 251Q y 232Q Width 222Q Width 213Q x 203Q parkingPlace2 171Q parkingPlace2 150Q Shade 135Q colorP 131Q REPLACE 126Q TEXTURE 120Q Height 111Q Width 103Q gameWindow 67Q gameWindow 56Q y 44Q x 34Q parkingPlace1 22Q parkingPlace1 5 gameBoard 2 Simulator) ( 362Q " Not parked here" 355Q "Cannot Unpark ") RoadStop.Visit D1 (P 34Q x P 4 bandit P 3 loss P 2 vtruck P 1 victim P 0 truck I 3 time I 2 reason I 1 player I 0 self) wAg @^g NAhClMHgBg Hg@ Bg#Ag o@g oB A_g _OglO@_g _OkOYf@_g _OIlOoIg Ig Zg ojػJgJg K oK Jg O6A_8_g _OglOAO8_ g _O Adg lO"oO8g oO8 o O6_6@_$g _"O$kO"\@_(g _&O(AlO&BgoAg o@g oAg Hg ojػHgHg K oK Hg O6*BBg@_4g _2O4AlO2_8_,g _*O,glO*AO8_0g _.O0Ldg lO."oO8g oO8 o O6_6v(1154Q WriteGameStatus 1145Q CONCAT 1142Q ClassName 1131Q GetValue 1105Q GetValue 1070Q FetchMethodOrHelp 1036Q FetchMethodOrHelp 1003Q FetchMethodOrHelp 743Q GetValue 733Q WriteGameStatus 722Q ChangeValue 715Q GetValue 672Q GetValue 662Q WriteGameStatus 657Q GetValue 643Q WriteGameStatus 640Q CONCAT 635Q GetClassValue 622Q GetValue 563Q FetchMethodOrHelp 533Q FetchMethodOrHelp 512Q WriteGameStatus 503Q CONCAT 500Q ClassName 467Q GetValue 443Q GetValue 426Q FetchMethodOrHelp 374Q FetchMethodOrHelp 347Q GetValue 337Q WriteGameStatus 326Q ChangeValue 321Q GetValue 276Q GetValue 267Q GetValue 257Q WriteGameStatus 254Q GetValue 224Q FetchMethodOrHelp 176Q FetchMethodOrHelp 143Q FetchMethodOrHelp 131Q WriteGameStatus 126Q CONCAT 116Q CONCAT 113Q GetClassValue 100Q GetValue 62Q PutValue 52Q PutValue 24Q FetchMethodOrHelp 6 GetValue) (1126Q qty 1102Q pr 1065Q TransferOwner 1046Q LuxuryGoods 1033Q InstOf! 1000Q Crash 765Q InitialPlacing 740Q cargo 712Q cashBox 706Q cashBox 667Q cashBox 654Q driver 632Q RoadSign 617Q driver 604Q Bandit 560Q Flash 530Q Bandit? 464Q qty 440Q pr 423Q TransferOwner 404Q LuxuryGoods 371Q InstOf! 344Q cargo 316Q cashBox 312Q cashBox 273Q cashBox 264Q truck 251Q driver 221Q Flash 173Q AnyVictim 153Q Bandit 140Q InstOf! 110Q RoadSign 75Q driver 66Q LowFuel 56Q location 47Q reason 43Q location 21Q Park 3 truck) ( 1151Q " units" 1135Q " " 1121Q "Bandits stole: " 727Q "Cash lost: $" 676Q .2 650Q "BANDITS robbed you!! " 626Q " at " 613Q "BANDITS stopped you!! " 507Q " units" 473Q " " 457Q "Bandits stole: " 333Q "Cash lost: $" 302Q .2 245Q "BANDIDOS robbed you!! " 122Q " - " 104Q " Towed to ") SystemTruck.Buy D1 (P 1 pr P 0 qty I 2 prevOwner I 1 commodity I 0 self) r Ag XAg Y@g@g HIAg j @g@g HAg @g@g HAg @gA@g  @(156Q PutValue 152Q GetValue 136Q PutValue 131Q GetClassValue 121Q GetValue 106Q PutValue 101Q GetClassValue 71Q GetValue 56Q ChangeValue 46Q GetClassValue 35Q GetValue 21Q GetValue 11Q GetValue) (147Q cargo 142Q cargo 126Q WtPerQty 116Q weight 112Q weight 76Q VolPerQty 66Q volume 62Q volume 43Q AvgPrice 32Q cashBox 26Q cashBox 16Q pr 6 qty) () SystemTruck.CanBuy D1 (I 4 seller I 3 qty I 2 pr I 1 commodity I 0 self) {j@g CBAg mgh@g CAg @g ogh@g CAg @g ogh@(145Q GetClassValue 134Q GetClassValue 124Q GetValue 73Q GetClassValue 62Q GetClassValue 52Q GetValue 20Q GetClassValue 7 GetValue) (165Q FCTReason 162Q InsufficientWeight 156Q FCTPenalty 142Q MaxWeight 131Q WtPerQty 121Q weight 113Q FCTReason 110Q InsufficientVolume 104Q FCTPenalty 70Q MaxVolume 57Q VolPerQty 47Q volume 41Q FCTReason 36Q InsufficientCash 32Q FCTPenalty 15Q AvgPrice 4 cashBox) ( 153Q .05 101Q .05) SystemTruck.Sell D1 (I 3 qty I 2 pr I 1 commodity I 0 self) CAg bBAg b@g@g CBAg j @g@g CAg @g@g CAg CAg @gA@g @(202Q PutValue 177Q REMOVE 174Q GetValue 156Q EQUAL 153Q GetValue 143Q PutValue 136Q GetClassValue 126Q GetValue 113Q PutValue 106Q GetClassValue 76Q GetValue 63Q ChangeValue 53Q GetClassValue 42Q GetValue 24Q GetValue 10Q GetValue) (171Q cargo 164Q cargo 150Q qty 133Q WtPerQty 123Q weight 117Q weight 103Q VolPerQty 73Q volume 67Q volume 50Q AvgPrice 37Q cashBox 33Q cashBox 21Q pr 5 qty) () Truck.BuyFuel D1 (I 2 prevOwner I 1 fuelInst I 0 self) A@g@g Ag @g@g Ag Ag Ag j @(75Q ChangeValue 65Q GetClassValue 56Q GetValue 47Q GetValue 40Q GetValue 25Q PutValue 21Q GetValue 12Q GetValue) (62Q AvgPrice 53Q pr 44Q qty 35Q cashBox 31Q cashBox 16Q qty 7 fuel 3 fuel) () Truck.CanBuyFuel D1 (I 4 seller I 3 qty I 2 pr I 1 commodity I 0 self) Ij@g CBAg mghC@g @g ogh@(62Q GetValue 53Q GetClassValue 20Q GetClassValue 7 GetValue) (103Q FCTReason 100Q NoCapacity 74Q FCTPenalty 57Q fuel 50Q MaxFuel 41Q FCTReason 36Q NoCash 32Q FCTPenalty 15Q AvgPrice 4 cashBox) ( 71Q .01) Truck.FillTank D1 (P 1 transVol P 0 availVol I 1 fuelInst I 0 self)  @g @g XAg HAg HYAg @g@g I @g@g IAg @g@g I IAg @gA@g AgAg I @(223Q PutValue 216Q GetValue 202Q REMOVE 177Q GetValue 162Q EQUAL 157Q GetValue 147Q PutValue 142Q GetValue 127Q PutValue 122Q GetClassValue 112Q GetValue 77Q PutValue 72Q GetValue 56Q GetValue 43Q GetValue 31Q GetValue 20Q GetValue 11Q GetClassValue) (213Q qty 207Q qty 174Q cargo 167Q cargo 154Q qty 137Q weight 133Q weight 117Q VolPerQty 107Q volume 103Q volume 67Q fuel 63Q fuel 53Q qty 40Q qty 26Q qty 15Q fuel 6 MaxFuel) () Truck.Initialize D1 (I 0 self) =@g @g@g @g@g @gj @gj @gj (72Q PutValue 62Q PutValue 52Q PutValue 42Q PutValue 37Q GetClassValue 24Q ChangeValue 21Q GetClassValue 6 PutValue) (66Q damage 56Q weight 46Q volume 34Q MaxFuel 30Q fuel 16Q InitCash 12Q cashBox 3 cargo) () Truck.SellFuel D1 (I 3 qty I 2 pr I 1 commodity I 0 self F 0 TTY) oP P h(14Q TERPRI 7 PRIN1) NIL ( 3 "Truckers cannot sell fuel!") Truck.VisitUnionHall D1 (I 0 self) -@Hg HkIo@g g o @(51Q WriteGameStatus 42Q GetValue 34Q GetValue 12Q FetchMethodOrHelp) (37Q driver 31Q driver 7 Initialize) ( 46Q " a new start." 25Q "Union Hall just gave ") (PRETTYCOMPRINT TRUCKINRCOMS) (RPAQQ TRUCKINRCOMS ((* Copyright (c) 1983 Xerox Corp) (* TRUCKIN Domain for Expert Systems. Created by Loops Design Team - Danny Bobrow, Sanjay Mittal, and Mark Stefik) (* Objects and associated methods for Commodity and RoadStop classes) (CLASSES * TRUCKINRCLASSES) (FNS CommodityTransportability.CheckFragility CommodityTransportability.UpdateStatus RoadStop.BwPlace RoadStop.ColorPlace RoadStop.DisplayIcon) (METHODS Commodity.CanTransfer Commodity.CheckFragility Commodity.Display Commodity.TransferOwner Commodity.UpdateStatus Consumer.Buy Consumer.BuyFuel Consumer.CanBuy Consumer.DisplayData Consumer.DisplayIcon Consumer.Show FragileCommodity.CheckFragility FragileCommodity.PartialTransfer OtherRoadStop.DisplayIcon OtherRoadStop.Initialize OtherRoadStop.ReInitialize OtherRoadStop.Show PerishableCommodity.PartialTransfer PerishableCommodity.UpdateStatus Producer.DisplayData Producer.DisplayIcon Producer.Sell Producer.SellFuel Producer.Show RoadStop.AnyVictim RoadStop.BWDisplay RoadStop.Bandit? RoadStop.BanditP RoadStop.BanditReady RoadStop.ColorDisplay RoadStop.Crash RoadStop.Display RoadStop.DisplayData RoadStop.Flash RoadStop.GoingPast RoadStop.Initialize RoadStop.Park RoadStop.Parked? RoadStop.Place RoadStop.ReInitialize RoadStop.RoomToPark? RoadStop.TimeSpent RoadStop.TurnsStayed RoadStop.Unpark RoadStop.Visit SystemTruck.Buy SystemTruck.CanBuy SystemTruck.Sell Truck.BuyFuel Truck.CanBuyFuel Truck.FillTank Truck.Initialize Truck.SellFuel Truck.VisitUnionHall))) (RPAQQ TRUCKINRCLASSES (Commodity CommodityTransportability Consumer FragileCommodity OtherRoadStop PerishableCommodity Producer RoadStop SystemTruck Truck)) (DEFCLASSES Commodity CommodityTransportability Consumer FragileCommodity OtherRoadStop PerishableCommodity Producer RoadStop SystemTruck Truck) (DEFCLASS Commodity (MetaClass CommodityClassMeta Edited: (* dgb: "23-SEP-83 09:33")) (Supers GameObject) (ClassVariables (VolPerQty 1 doc (* volume occupied by unit quantity)) (WtPerQty 1 doc (* weight per unit qty)) (AvgPrice 1 doc (* avg unit price for buying or selling by truckers)) (Icon defaultIcon doc (* name of a variable which is bound to a Bitmap)) (CopyCV (VolPerQty WtPerQty AvgPrice Icon))) (InstanceVariables (qty 0 doc (* actual qty on hand for truck)) (pr .9 doc (* this is the actual price RATIO paid by a trucker)) (owner *SYSTEM* doc (* truck object which owns this commodity)) (status T doc (* whether the commodity is alright or not. NIL would mean the commodity has been destroyed)))) (DEFCLASS CommodityTransportability (MetaClass GameClass Edited: (* sm: "26-JAN-83 17:34")) (Supers GameObject) (ClassVariables (CopyCV NIL))) (DEFCLASS Consumer (MetaClass GameClass doc (* * RoadStops that buy goods from Truckers.) Edited: (* mjs: "20-FEB-83 12:51")) (Supers RoadStop) (ClassVariables (Pr 1.3) (Commodity #$Commodity doc (* The commodity to be purchased from truckers, that is, a generic Loops class descriptive of the goods.)) ( CopyCV (Pr Qty Commodity)) (Qty 500) (Shade ConsumerShade)) (InstanceVariables (qty #(#(( GenConsumerQty self) FirstFetch NIL) NIL UpdateConsumerDisplay) doc (* quantity of goods to be purchased. Decreases as goods are purchased.)) (pr #(#((GenConsumerPr self) FirstFetch NIL) NIL UpdateConsumerDisplay) doc (* price ratio. This is multiplied times the AvgBuyingPrice for Commodities to determine the price paid to truckers.)))) (DEFCLASS FragileCommodity (MetaClass CommodityClassMeta Edited: (* sm: "28-JAN-83 21:31")) (Supers CommodityTransportability) (ClassVariables (FragilityLevel 20 doc (* breakability on a scale of 1 to 20)) (CopyCV (FragilityLevel))) (InstanceVariables (fragility #((RAND 1 (@@ FragilityLevel)) FirstFetch NIL)))) (DEFCLASS OtherRoadStop (MetaClass GameClass Edited: (* sm: "10-FEB-83 16:37")) (Supers RoadStop) ( ClassVariables (Icon ?) (Shade OtherRoadStopShade))) (DEFCLASS PerishableCommodity (MetaClass CommodityClassMeta Edited: (* mjs: "25-JAN-83 13:23")) ( Supers CommodityTransportability) (ClassVariables (MinLifetime 2 doc (* min number of turns before commodity perishes)) (MaxLifetime 20 doc (* max number of turns by when commodity perishes)) (CopyCV ( MinLifetime MaxLifetime))) (InstanceVariables (lifetime #(NIL SmashRandomPerishable NIL)))) (DEFCLASS Producer (MetaClass GameClass doc (* * RoadStops that sell goods to Truckers.) Edited: (* mjs: "20-FEB-83 12:51")) (Supers RoadStop) (ClassVariables (Commodity #$Commodity doc (* class of commodity sold by this producer)) (Pr .9 doc (* price ratio at which this producer typically sells. used to generate ACTUAL pr)) (Qty 50 doc (* quantity typically sold by this producer. used to generate ACTUAL qty)) (CopyCV (Pr Qty Commodity)) (Shade ProducerShade)) (InstanceVariables (qty #(#(( GenConsumerQty self) FirstFetch NIL) NIL UpdateConsumerDisplay) doc (* actual qty available)) (pr #(#((GenConsumerPr self) FirstFetch NIL) NIL UpdateConsumerDisplay) doc (* actual price ratio at which sold)))) (DEFCLASS RoadStop (MetaClass AbstractClass doc (* * A RoadStop on the game board for TRUCKIN. Subclasses of this class are saved on the global list RoadStops. Instances of these subclasses can be included on the game board by the gameMaster when a simulation is set up.) Edited: (* sm: "14-JUN-83 15:01")) (Supers GameObject) (ClassVariables (RoadSign "RoadSign" doc (* String name to appear in the display.)) (Width 75 doc (* width of RoadStop in pixels.)) (Height 75 doc (* height of RoadStop in pixels.)) (CopyCV (RoadSign))) (InstanceVariables (milePost 0 doc (* index of this RoadStop on the road. Assigned by Place message.)) (prev NIL doc (* previous RoadStop on the board. NIL if this is the beginning of the road.)) (next NIL doc (* next RoadStop on the board. NIL if this is the end of the road.)) (parkingPlace1 NIL howLong 0 timeParked 0 timeUsed 0 doc (* First parking place at RoadStop.) pdoc (* timeParked - time when first parked at Alice. timeUsed - time used computing at Alice)) (parkingPlace2 NIL howLong 0 timeParked 0 timeUsed 0 doc (* Second parking place at this RoadStop.)) (x 0 doc (* xOrigin on display in pixels. Assigned by Place message.)) (y 0 doc (* yOrigin on display in pixels. Assigned by Place message.)) (roadOrientation NIL doc (* Left or Right. Right means that next RoadStop is down the road to the right in the display.)))) (DEFCLASS SystemTruck (MetaClass GameAbstractClass doc (* System trucks -- includes ones that cannot be used by User-defined Players.) Edited: (* sm: " 7-JUN-83 14:16")) (Supers GameObject) ( ClassVariables (InitCash 10000) (Gpm 1 doc (* units of fuel used per moved location)) (Icon ? doc (* name of LISP variable bound to Bitmap)) (MaxDamage 10 doc (* maximum damage)) (MaxDist 15 doc (* max moves allowed in each turn)) (MaxFuel 30 doc (* max units of fuel truck can carry)) (MaxVolume 200 doc (* max volume)) (MaxWeight 200 doc (* max weight in commodity units)) (CopyCV (InitCash MaxFuel MaxVolume MaxWeight MaxDamage MaxDist Gpm Icon))) (InstanceVariables (driver NIL doc (* player driving this truck.)) (location NIL reason NIL doc (* current location on the road. A RoadStop.)) (cargo NIL doc (* cargo on the truck as a list of Commodity instances)) (cashBox #((@@ InitCash) FirstFetch NIL) DefaultGauge LCD GaugeLimit (0 1000000) doc (* money carried on the truck.)) (damage 0 DefaultGauge NIL doc (* current damage to truck)) (fuel #((@@ MaxFuel) FirstFetch NIL) DefaultGauge Dial GaugeLimit #((LIST 0 (@@ MaxFuel)) FirstFetch NIL) doc ( * fuel left in truck)) (volume 0 DefaultGauge NIL GaugeLimit #((LIST 0 (@@ MaxVolume)) FirstFetch NIL) doc (* volume used)) ( weight 0 DefaultGauge NIL GaugeLimit #((LIST 0 (@@ MaxWeight)) FirstFetch NIL) doc (* weight on truck)))) (DEFCLASS Truck (MetaClass GameAbstractClass Edited: (* mjs: "16-MAR-83 14:43")) (Supers SystemTruck)) (METH Commodity CanTransfer (newOwner pr qty prevOwner) (* Checks if ownership can be transferred)) (METH Commodity CheckFragility (rs speed) (* dummy method for checking fragility)) (METH Commodity Display NIL (* Displays the small icon from Truckin in its own window)) (METH Commodity TransferOwner (newOwner priceRatio qty) (* transfers the commodity from one owner to another)) (METH Commodity UpdateStatus (newStop oldStop) (* dummy for Updating status of commodities as they move)) (METH Consumer Buy (commodity prevOwner) (* perform BUY for a consumer)) (METH Consumer BuyFuel (commodity prevOwner) NIL (method Consumer.Buy)) (METH Consumer CanBuy (commodity pr qty seller) (* checks if consumer will buy this commodity)) (METH Consumer DisplayData NIL (* * Display the Qty and PR for the Consumer at a RoadStop.)) (METH Consumer DisplayIcon NIL (* * Display the Icon for a RoadStop that is a Consumer..)) (METH Consumer Show NIL NIL) (METH FragileCommodity CheckFragility (hazard dist) (* checks if fragile commodities have broken for currentPlayer's truck)) (METH FragileCommodity PartialTransfer (copyFrom) (* copies ivs when commodities have to be split up for partial buys)) (METH OtherRoadStop DisplayIcon NIL (* * Display the Icon for an OtherRoadStop.)) (METH OtherRoadStop Initialize NIL (* does nothing)) (METH OtherRoadStop ReInitialize NIL (* Same as Initialize)) (METH OtherRoadStop Show NIL (* prints a message)) (METH PerishableCommodity PartialTransfer (copyFrom) (* copies IVs specific to this class to transferred commodity)) (METH PerishableCommodity UpdateStatus (newStop oldStop) (* updates the status of the Commodity after each move)) (METH Producer DisplayData NIL (* Display the Qty and PR for the Producer at a RoadStop.)) (METH Producer DisplayIcon NIL (* Display the Icon for a RoadStop that is a Producer.)) (METH Producer Sell (commodity pr qty) (* perform SELL for consumer)) (METH Producer SellFuel (commodity pr qty) NIL (method Producer.Sell)) (METH Producer Show NIL (* shows the producer roadstop data)) (METH RoadStop AnyVictim NIL (* checks and returns the name of any non-bandit player at this loc)) (METH RoadStop BWDisplay NIL (* Does a BW display of a roadStop)) (METH RoadStop Bandit? NIL (* checks if there is a bandit here)) (METH RoadStop BanditP NIL (* checks if there is a bandit here) (method RoadStop.Bandit?)) (METH RoadStop BanditReady NIL (* checks if Bandit is ready to catch passing trucks)) (METH RoadStop ColorDisplay NIL (* Does a color display of roadStop)) (METH RoadStop Crash (player) (* Crashes player at this RoadStop if already parked. Else parks player in crashed state.)) (METH RoadStop Display NIL (* Actually displays roadStop)) (METH RoadStop DisplayData NIL (* * Dummy routine for displaying no data in an OtherRoadStop.)) (METH RoadStop Flash (player) (* flashes currentPlayer)) (METH RoadStop GoingPast (player dist) (* Message sent when a player wats to go past this roadstop.)) (METH RoadStop Initialize NIL (* Initializes roadStop the very first time without triggering display)) (METH RoadStop Park (player tempFlg time) (* Park the current player at this RoadStop.)) (METH RoadStop Parked? (player) (* * Returns T if the currentPlayer is parked at this RoadStop, and NIL otherwise.)) (METH RoadStop Place (x y milePost roadOrientation) (* Save RoadStop placement information)) (METH RoadStop ReInitialize NIL (* Initializes roadStop if subsequently reused. Does trigger display)) (METH RoadStop RoomToPark? NIL (* * Returns T if there is room to park at this RoadStop and NIL otherwise.)) (METH RoadStop TimeSpent (player) (* returns the time spent by player at this stop, if parked here)) (METH RoadStop TurnsStayed (player) (* If player is parked here, returns how long he has been here)) (METH RoadStop Unpark (player) (* Removes the current player from his parking place at a RoadStop.)) (METH RoadStop Visit (player reason time) (* player is visiting this stop)) (METH SystemTruck Buy (commodity prevOwner) (* sm: " 8-FEB-83 14:20")) (METH SystemTruck CanBuy (commodity pr qty seller) (* sm: " 8-FEB-83 14:16")) (METH SystemTruck Sell (commodity pr qty) (* sm: " 9-FEB-83 15:51")) (METH Truck BuyFuel (fuelInst prevOwner) (* buys Fuel and puts in fuel tank)) (METH Truck CanBuyFuel (commodity pr qty seller) (* check if the truck can buy fuel)) (METH Truck FillTank (fuelInst) (* sm: "20-JAN-83 16:12")) (METH Truck Initialize NIL NIL) (METH Truck SellFuel (commodity pr qty) (* perform the SELL fuel transaction for truck)) (METH Truck VisitUnionHall NIL (* initialize truck data for going to UnionHall)) (PUTPROPS TRUCKINR COPYRIGHT ("Xerox Corporation" 1985)) NIL