(FILECREATED "27-JUL-83 16:39:11" ("compiled on " {INDIGO}TRUCKIN>MULTI>HOUSEPLAYER.;3) "28-JUN-83 18:54:59" recompiled exprs: MaxPurchaseHousePlayerRules RateProducersHousePlannerRules TakeTurnHousePlannerRules in LOOPSDEMO.SYSOUT dated "25-JUL-83 17:56:58") (FILECREATED "27-JUL-83 16:35:37" {INDIGO}TRUCKIN>MULTI>HOUSEPLAYER.;3 88976 changes to: (FNS MaxPurchaseHousePlayerRules TakeTurnHousePlannerRules RateProducersHousePlannerRules) previous date: "26-JUL-83 16:51:48" {INDIGO}TRUCKIN>MULTI>HOUSEPLAYER.;2) FindStoppingPlaceHousePlannerRules D1 (P 5 roughRd P 4 has P 3 gasStation P 2 wStation P 1 ^value P 0 ^auditRecord I 0 self) P@g g @g 6g _g OkNXgo @g@g H @g g &g @g @g g Z@g g ?@g g \.Lg "g @g @g g ]i@g @_g _OkO@g g _g _OkOXgo @g@g H  @g g _g _OkOXgo @gMH  @g g _g _OkOXgo @gJH @g gE@g g @g g o"g @g @g g [Gg _&g _$O&kO$Xgo @g@g @g hg H g jg _"g _ O"kO Xgo @gKH (1213Q PutAuditRec 1201Q PutValue 1176Q GetObjFromUID 1151Q FetchMethodOrHelp 1141Q GetObjectRec 1127Q GetValue 1120Q PutAuditRec 1114Q NthRoadStop 1105Q GetValue 1076Q GetValue 1062Q PutValue 1057Q GetObjFromUID 1032Q FetchMethodOrHelp 1022Q GetObjectRec 1011Q FurthestRoadStop 1006Q RoadStops 1000Q GetValue 771Q GetValue 762Q GetObjectRec 743Q GetClassValue 735Q GetValue 726Q GetValue 720Q GetValue 703Q GetValue 673Q PutAuditRec 661Q PutValue 656Q GetObjFromUID 631Q FetchMethodOrHelp 621Q GetObjectRec 605Q Distance 602Q GetValue 573Q Distance 567Q PutAuditRec 555Q PutValue 552Q GetObjFromUID 525Q FetchMethodOrHelp 515Q GetObjectRec 503Q Distance 500Q GetValue 471Q Distance 465Q PutAuditRec 461Q GetValue 445Q PutValue 442Q GetObjFromUID 415Q FetchMethodOrHelp 405Q GetObjectRec 373Q RoomToParkP 370Q GetValue 342Q FetchMethodOrHelp 331Q Distance 326Q GetValue 314Q NearestRoadStop 311Q RoadStops 303Q GetValue 274Q GetValue 265Q GetObjectRec 255Q ISA 252Q GetObjectRec 237Q GetValue 231Q GetValue 220Q GetValue 212Q GetValue 174Q NearestRoadStop 171Q RoadStops 163Q GetValue 154Q GetValue 145Q GetObjectRec 135Q GetValue 127Q GetValue 117Q PutAuditRec 113Q GetValue 77Q PutValue 74Q GetObjFromUID 52Q FetchMethodOrHelp 42Q GetObjectRec 31Q GetValue 22Q GetValue 14Q GetValue) (1206Q stoppingPlace 1167Q rule 1146Q NewTemp 1136Q StandardAuditRecord 1124Q qty 1111Q Room 1102Q direction 1073Q horizon 1067Q stoppingPlace 1050Q rule 1027Q NewTemp 1017Q StandardAuditRecord 1003Q Room 775Q direction 766Q horizon 757Q GasStation 740Q MaxFuel 732Q truck 723Q fuel 715Q truck 706Q GoToAlices 700Q goal 666Q stoppingPlace 647Q rule 626Q NewTemp 616Q StandardAuditRecord 577Q destination 562Q stoppingPlace 543Q rule 522Q NewTemp 512Q StandardAuditRecord 475Q destination 456Q destination 452Q stoppingPlace 433Q rule 412Q NewTemp 402Q StandardAuditRecord 365Q destination 337Q Range1 323Q destination 306Q Room 300Q direction 271Q horizon 262Q RoughRoad 247Q FragileCommodity 234Q cargo 226Q truck 215Q cargo 207Q truck 166Q Room 160Q direction 151Q horizon 142Q WeighStation 132Q cargo 124Q truck 110Q destination 104Q stoppingPlace 65Q rule 47Q NewTemp 37Q StandardAuditRecord 26Q destination 17Q location 11Q truck) (1173Q "LZS.0.5349.129.33698.52" 1054Q "LZS.0.5349.129.33698.53" 747Q .6 653Q "LZS.0.5349.129.33698.49" 547Q "LZS.0.5349.129.33698.50" 437Q "LZS.0.5349.129.33698.51" 71Q "LZS.0.5349.129.33698.48") FindStoppingPlaceHousePlayerRules D1 (P 3 gasStation P 2 wStation P 1 ^value P 0 ^auditRecord I 0 self) ,@g g @g 4g ]g MkLXgo @g@g H @g g +g @_g OkN@g g Zg@g @_g _OkO@g {g _g _OkOXgo @g@g H  @g g _g _OkOXgo @gJH @g gQ@g g @g g o.g @_g _OkO@g g [hg _&g _$O&kO$Xgo @g@_*g _(O*kO(@g _,dO,O,@g hg H g jg _"g _ O"kO Xgo @gKH (1051Q PutAuditRec 1037Q PutValue 1034Q GetObjFromUID 1007Q FetchMethodOrHelp 777Q GetObjectRec 765Q GetValue 756Q PutAuditRec 752Q NthRoadStop 743Q GetValue 721Q Distance 716Q GetValue 675Q FetchMethodOrHelp 657Q PutValue 654Q GetObjFromUID 627Q FetchMethodOrHelp 617Q GetObjectRec 606Q FurthestRoadStop 603Q RoadStops 575Q GetValue 554Q FetchMethodOrHelp 543Q GetObjectRec 524Q GetClassValue 516Q GetValue 507Q GetValue 501Q GetValue 464Q GetValue 454Q PutAuditRec 442Q PutValue 437Q GetObjFromUID 412Q FetchMethodOrHelp 402Q GetObjectRec 370Q Distance 365Q GetValue 356Q Distance 352Q PutAuditRec 346Q GetValue 332Q PutValue 327Q GetObjFromUID 302Q FetchMethodOrHelp 272Q GetObjectRec 262Q RoomToParkP 257Q GetValue 231Q FetchMethodOrHelp 220Q Distance 215Q GetValue 203Q NearestRoadStop 200Q RoadStops 172Q GetValue 154Q FetchMethodOrHelp 143Q GetObjectRec 133Q GetValue 125Q GetValue 115Q PutAuditRec 111Q GetValue 75Q PutValue 72Q GetObjFromUID 51Q FetchMethodOrHelp 42Q GetObjectRec 31Q GetValue 22Q GetValue 14Q GetValue) (1044Q stoppingPlace 1025Q rule 1004Q NewTemp 774Q StandardAuditRecord 762Q qty 747Q Room 740Q direction 713Q destination 672Q Range1 664Q stoppingPlace 645Q rule 624Q NewTemp 614Q StandardAuditRecord 600Q Room 572Q direction 551Q Range1 540Q GasStation 521Q MaxFuel 513Q truck 504Q fuel 476Q truck 467Q GoToAlices 461Q goal 447Q stoppingPlace 430Q rule 407Q NewTemp 377Q StandardAuditRecord 362Q destination 343Q destination 337Q stoppingPlace 320Q rule 277Q NewTemp 267Q StandardAuditRecord 254Q destination 226Q Range1 212Q destination 175Q Room 167Q direction 151Q Range1 140Q WeighStation 130Q cargo 122Q truck 106Q destination 102Q stoppingPlace 63Q rule 46Q NewTemp 37Q StandardAuditRecord 26Q destination 17Q location 11Q truck) (1031Q "LZS.0.5349.129.33698.14" 651Q "LZS.0.5349.129.33698.15" 530Q .6 434Q "LZS.0.5349.129.33698.12" 324Q "LZS.0.5349.129.33698.13" 67Q "LZS.0.5349.129.33698.11") GoToStoppingPlaceHousePlannerRules D1 (P 1 ^value P 0 ^auditRecord I 0 self) @g @g g o@g o @g [g KkJ1@g o `]g M@dg g lL`_g O@dg lN(207Q GetValue 174Q FetchMethodOrHelp 153Q GetValue 145Q GetValue 133Q FetchMethodOrHelp 120Q WriteGameStatus 111Q GetValue 72Q FetchMethodOrHelp 63Q GetValue 53Q WriteGameStatus 44Q GetValue 26Q GetValue 20Q GetValue 11Q GetValue) (204Q stoppingPlace 171Q Move 164Q PlayerInterface 150Q location 142Q truck 130Q Move 124Q PlayerInterface 106Q driver 67Q BanditP 60Q stoppingPlace 41Q driver 23Q location 15Q truck 6 stoppingPlace) (115Q " Not moving because of bandits" 50Q " already there" 35Q "Hm! ") GoToStoppingPlaceHousePlayerRules D1 (P 3 numBuy P 2 realLocation P 1 ^value P 0 ^auditRecord I 0 self) g ]g MkLXgo @g@g H @g g Z@_g OkNc@g @g g L@g _g _OkO1`_g _O@dg lO@g g ZYJ@g o@g o Jg jJg j_g _g _OkOXgo @_g _OkO@ggH @ghH ghg IJg P@g gCJ@g 8@_"g _ O"JlO [ kK`_&g _$O&@KlO$Jg %@g g @_*g _(O*kO(J@g kg _.g _,O.kO,Xgo @ghH (1024Q PutAuditRec 1012Q PutValue 1007Q GetObjFromUID 762Q FetchMethodOrHelp 752Q GetObjectRec 737Q GetValue 714Q FetchMethodOrHelp 701Q GetValue 673Q GetValue 662Q ISA 657Q GetObjectRec 632Q FetchMethodOrHelp 573Q FetchMethodOrHelp 557Q GetValue 541Q GetValue 530Q ISA 525Q GetObjectRec 514Q RuleSetStop 501Q PutAuditRec 467Q PutAuditRec 441Q FetchMethodOrHelp 427Q PutValue 424Q GetObjFromUID 377Q FetchMethodOrHelp 367Q GetObjectRec 355Q GetValue 344Q ISA 341Q GetObjectRec 331Q WriteGameStatus 322Q GetValue 304Q GetValue 271Q GetValue 263Q GetValue 245Q GetValue 230Q FetchMethodOrHelp 201Q FetchMethodOrHelp 171Q GetValue 157Q GetValue 151Q GetValue 142Q GetValue 122Q FetchMethodOrHelp 107Q GetValue 101Q GetValue 71Q PutAuditRec 65Q DirectionOf 62Q GetValue 46Q PutValue 43Q GetObjFromUID 22Q FetchMethodOrHelp 13Q GetObjectRec) (1017Q destination 1000Q rule 757Q NewTemp 747Q StandardAuditRecord 734Q destination 711Q SellGoods 676Q cargo 670Q truck 654Q Consumer 627Q Buy 622Q PlayerInterface 570Q MaxPurchase 554Q destination 544Q Peddle 536Q goal 522Q Producer 511Q BoughtGas 505Q Peddle 474Q destination 463Q Peddle 460Q goal 436Q BuyGas 415Q rule 374Q NewTemp 364Q StandardAuditRecord 352Q qty 336Q GasStation 317Q driver 301Q stoppingPlace 266Q location 260Q truck 242Q stoppingPlace 225Q Move 220Q PlayerInterface 176Q BanditP 166Q stoppingPlace 154Q location 146Q truck 137Q stoppingPlace 117Q FindStoppingPlace 104Q location 76Q truck 57Q destination 53Q direction 34Q rule 17Q NewTemp 10Q StandardAuditRecord) (1004Q "LZS.0.5349.129.33698.18" 421Q "LZS.0.5349.129.33698.17" 326Q " didnt go to stoppingPlace" 313Q "Oh!! " 40Q "LZS.0.5349.129.33698.16") HPRateConsumers D1 (P 3 cargo P 2 rating P 1 ^value P 0 ^auditRecord I 1 rs I 0 self) `@g g jZKg Ag ngg Kg hgg KAg n' hg okAg n' hg VA JlZA]g MkLJn'ZYJAg ldZY@g g A@g g lYI(316Q Distance 313Q GetValue 305Q GetValue 275Q GetClassValue 267Q GetValue 252Q GetValue 223Q FetchMethodOrHelp 204Q RoomToParkP 176Q RuleSetStop 167Q MINUS 157Q GetValue 145Q RuleSetStop 136Q MINUS 127Q ISA 124Q GetClassValue 111Q RuleSetStop 76Q GetValue 64Q RuleSetStop 47Q ISA 44Q GetObjectRec 33Q GetValue 17Q GetValue 11Q GetValue) (310Q location 302Q truck 272Q Gpm 264Q truck 247Q pr 220Q BanditP 173Q CannotSellHere 154Q qty 142Q CannotSellHere 121Q Commodity 106Q CannotSell 103Q SpoiltGoods 73Q status 61Q LookNoMore 56Q CityDump 41Q CityDump 30Q status 14Q cargo 6 truck) NIL HPRateGasStations D1 (P 2 rating P 1 ^value P 0 ^auditRecord I 1 rs I 0 self) o`jZAg jn ZA JlZA\g LkKJlZYJA@g g l ZYAg @g g dMM(144Q GetClassValue 136Q GetValue 127Q GetValue 112Q Distance 107Q GetValue 101Q GetValue 52Q FetchMethodOrHelp 33Q RoomToParkP 25Q MINUS 14Q GetValue) (141Q MaxFuel 133Q truck 124Q qty 104Q location 76Q truck 47Q BanditP 11Q qty) NIL HPRateProducers D1 (P 2 maxBuy P 1 rating P 0 ^value I 1 rs I 0 self) ;pjYAg o hg kAg o hg @\g LAlKZkJo hg A n YA^g NkMIn'YAg g InAg g ldYAg g IAg g ldYAg g InYAg g InYXIJlYX@g g A@g g l XH(461Q Distance 456Q GetValue 450Q GetValue 440Q GetClassValue 432Q GetValue 402Q SUBCLASS 377Q GetObjectRec 371Q GetClassValue 352Q SUBCLASS 347Q GetObjectRec 341Q GetClassValue 324Q GetClassValue 316Q GetClassValue 304Q SUBCLASS 301Q GetObjectRec 273Q GetClassValue 256Q GetClassValue 250Q GetClassValue 232Q SUBCLASS 227Q GetObjectRec 221Q GetClassValue 174Q FetchMethodOrHelp 162Q MINUS 153Q RoomToParkP 144Q RuleSetStop 135Q MINUS 106Q FetchMethodOrHelp 73Q RuleSetStop 64Q MINUS 52Q GetValue 37Q RuleSetStop 30Q MINUS 17Q ISA 14Q GetObjectRec) (453Q location 445Q truck 435Q Gpm 427Q truck 374Q Xerox1100 366Q Commodity 344Q LuxuryGoods 336Q Commodity 321Q FragilityLevel 313Q Commodity 276Q FragileCommodity 270Q Commodity 253Q MinLifetime 245Q Commodity 224Q PerishableCommodity 216Q Commodity 171Q BanditP 141Q CannotBuy 103Q MaxPurchase 70Q CannotBuy 47Q qty 34Q GasStation 11Q GasStation) (132Q 303240Q 61Q 303240Q 25Q 303240Q) MaxPurchaseHousePlayerRules D1 (P 11Q cashCapacity P 10Q numBuy P 7 producerLimit P 6 cashLimit P 5 weightLimit P 4 volumeLimit P 3 weightCapacity P 2 volumeCapacity P 1 ^value P 0 ^auditRecord I 1 roadStop I 0 self)  @g g @g g պ@g g @g g ջj@g g @g _JAg g ׼KAg g ׽OA ׾Ag _LMNO (220Q MIN 205Q GetValue 174Q PricePerUnit 164Q GetClassValue 156Q GetClassValue 144Q GetClassValue 136Q GetClassValue 123Q MAX 117Q GetValue 110Q GetValue 102Q GetValue 70Q GetValue 62Q GetValue 53Q GetClassValue 45Q GetValue 34Q GetValue 26Q GetValue 17Q GetClassValue 11Q GetValue) (202Q qty 161Q WtPerQty 153Q Commodity 141Q VolPerQty 133Q Commodity 114Q cashReserve 105Q cashBox 77Q truck 65Q weight 57Q truck 50Q MaxWeight 42Q truck 31Q volume 23Q truck 14Q MaxVolume 6 truck) NIL RateConsumersHousePlannerRules D1 (P 3 cargo P 2 rating P 1 ^value P 0 ^auditRecord I 1 rs I 0 self) `@g g jZKAg n' hg dkAg n' hg KA]g MkLJn'ZYJAg ldZY@g g A@g g lYI(213Q Distance 210Q GetValue 202Q GetValue 172Q GetClassValue 164Q GetValue 147Q GetValue 120Q FetchMethodOrHelp 106Q RuleSetStop 77Q MINUS 67Q GetValue 55Q RuleSetStop 46Q MINUS 37Q ISA 34Q GetClassValue 17Q GetValue 11Q GetValue) (205Q location 177Q truck 167Q Gpm 161Q truck 144Q pr 115Q BanditP 103Q CannotSellHere 64Q qty 52Q CannotSellHere 31Q Commodity 14Q cargo 6 truck) NIL RateGasStationsHousePlannerRules D1 (P 2 rating P 1 ^value P 0 ^auditRecord I 1 rs I 0 self) o`jZAg jn ZA JlZA\g LkKJlZYJA@g g l ZYAg @g g dMM(144Q GetClassValue 136Q GetValue 127Q GetValue 112Q Distance 107Q GetValue 101Q GetValue 52Q FetchMethodOrHelp 33Q RoomToParkP 25Q MINUS 14Q GetValue) (141Q MaxFuel 133Q truck 124Q qty 104Q location 76Q truck 47Q BanditP 11Q qty) NIL RateProducersHousePlannerRules D1 (P 2 maxBuy P 1 rating P 0 ^value I 1 rs I 0 self) pjYAg o hg kAg o hg @\g LAlKZkJo hg A^g NkMIn'YAg g InAg g ldYAg g InYAg g InYXIJl YX@g g A@g g l XH(376Q Distance 373Q GetValue 365Q GetValue 355Q GetClassValue 347Q GetValue 317Q SUBCLASS 314Q GetObjectRec 306Q GetClassValue 267Q SUBCLASS 264Q GetObjectRec 256Q GetClassValue 241Q GetClassValue 233Q GetClassValue 215Q SUBCLASS 212Q GetObjectRec 204Q GetClassValue 157Q FetchMethodOrHelp 144Q RuleSetStop 135Q MINUS 106Q FetchMethodOrHelp 73Q RuleSetStop 64Q MINUS 52Q GetValue 37Q RuleSetStop 30Q MINUS 17Q ISA 14Q GetObjectRec) (370Q location 362Q truck 352Q Gpm 344Q truck 311Q Xerox1100 303Q Commodity 261Q LuxuryGoods 253Q Commodity 236Q MinLifetime 230Q Commodity 207Q PerishableCommodity 201Q Commodity 154Q BanditP 141Q CannotBuy 103Q MaxPurchase 70Q CannotBuy 47Q qty 34Q GasStation 11Q GasStation) (132Q 303240Q 61Q 303240Q 25Q 303240Q) RateSpotsNearAlicesHousePlayerRules D1 (P 2 cargo P 1 rating P 0 ^value I 1 roadStop I 0 self) 0@g g ZldA@g lYA n YAg n YAg n YJ4Ag (JAg Ag jAg kIlH(205Q GetValue 173Q GetValue 162Q ISA 157Q GetClassValue 145Q ISA 142Q GetObjectRec 126Q MINUS 117Q ISA 114Q GetObjectRec 103Q MINUS 74Q ISA 71Q GetObjectRec 60Q MINUS 51Q RoomToParkP 37Q Distance 34Q GetValue 17Q GetValue 11Q GetValue) (202Q pr 170Q qty 154Q Commodity 137Q Consumer 111Q AlicesRestaurant 66Q UnionHall 31Q alices 14Q cargo 6 truck) NIL SellGoodsHousePlayerRules D1 (P 3 sellQty P 2 cargo P 1 ^value P 0 ^auditRecord I 0 self) W  @g g ZY@g g g hggJg Z@g g g B@g g g Jg dLL`^g N@JKlMigg&@g g g Jg hgg IJg @g g g Jg _dOO[kKg _g _OkOXgo `_g _O@JKlO@gn@g g o H (524Q PutAuditRec 520Q MIN 510Q GetValue 502Q GetValue 445Q FetchMethodOrHelp 431Q PutValue 426Q GetObjFromUID 401Q FetchMethodOrHelp 371Q GetObjectRec 340Q GetValue 331Q GetValue 323Q GetValue 315Q GetValue 304Q GetValue 273Q RuleSetStop 256Q GetValue 247Q GetValue 241Q GetValue 233Q GetValue 200Q FetchMethodOrHelp 156Q GetValue 147Q GetValue 141Q GetValue 133Q GetValue 122Q ISA 117Q GetObjectRec 111Q GetValue 103Q GetValue 72Q GetValue 50Q ISA 45Q GetClassValue 37Q GetValue 31Q GetValue 17Q GetValue 11Q GetValue) (505Q cashBox 477Q truck 470Q cashReserve 442Q Sell 435Q PlayerInterface 417Q rule 376Q NewTemp 366Q StandardAuditRecord 335Q qty 326Q qty 320Q location 312Q truck 301Q status 270Q AvoidLoss 265Q NoSale 253Q pr 244Q pr 236Q location 230Q truck 222Q AtCityDump 217Q Sold 175Q Sell 171Q PlayerInterface 153Q qty 144Q qty 136Q location 130Q truck 114Q CityDump 106Q location 100Q truck 67Q status 60Q WrongKindOfBuyer 55Q NoSale 42Q Commodity 34Q location 26Q truck 14Q cargo 6 truck) (514Q .1 423Q "LZS.0.5349.129.33698.188") SetGoalHousePlannerRules D1 (P 0 ^value I 0 self) 0@g g g l@Zg JkI@gg @g dgdgihh@g g$@g g g @gg l`g @gg @gg @g g @g g o-@g g j@g@g @gg l<`g @gg @gg @g g j@g g o;@g g j`g n,@gg @g g @gg @gg (613Q PutValue 600Q PutValue 565Q GetValue 557Q GetValue 547Q PutValue 530Q GetValue 513Q GetValue 505Q GetValue 465Q GetValue 457Q GetValue 444Q GetValue 436Q GetValue 426Q PutValue 413Q PutValue 376Q GetValue 362Q PutValue 347Q PutValue 344Q GetValue 325Q GetValue 317Q GetValue 277Q GetClassValue 271Q GetValue 262Q GetValue 254Q GetValue 244Q PutValue 231Q PutValue 214Q GetValue 200Q PutValue 165Q ISA 162Q GetObjectRec 154Q GetValue 146Q GetValue 131Q GetValue 76Q GetValue 66Q PutValue 44Q FetchMethodOrHelp 30Q ISA 25Q GetObjectRec 17Q GetValue 11Q GetValue) (610Q Buy 605Q goal 575Q Sell 572Q goal 562Q cargo 554Q truck 544Q UnionHall 541Q goal 525Q timeLeft 522Q Simulator 510Q fuel 502Q truck 462Q cashBox 454Q truck 441Q fuel 433Q truck 423Q GoToAlice 420Q higherGoal 410Q GetClose 405Q goal 373Q timeLeft 370Q Simulator 357Q BuyGas 354Q goal 341Q goal 335Q higherGoal 322Q cashBox 314Q truck 274Q MaxFuel 266Q truck 257Q fuel 251Q truck 241Q GoToAlice 236Q higherGoal 226Q GoToAlice 223Q goal 211Q timeLeft 206Q Simulator 175Q SitTight 172Q goal 157Q AlicesRestaurant 151Q location 143Q truck 134Q GoToAlice 126Q goal 110Q BuyGas 102Q SitTight 73Q goal 63Q LeaveAlice 60Q goal 41Q TimeAtStop 22Q AlicesRestaurant 14Q location 6 truck) (471Q 1720440Q 303Q .35) TakeTurnHousePlannerRules D1 (P 27Q obj% P 2 possibleStops P 1 ^value P 0 ^auditRecord I 0 self) q@\g LkK@g @O.@g __!Od`hE_4OO0h!__OjOM^hONM_2O0O2 @g o _O.kO@g ng _g _OkOXgo @g@_g _OkO@g _ dO O H @_$g _"O$kO"@g N@g E@_(g _&O(kO&@_,g _*O,kO*MlرO4O4_4_0I(507Q FetchMethodOrHelp 463Q FetchMethodOrHelp 450Q GetValue 437Q GetValue 415Q FetchMethodOrHelp 403Q PutAuditRec 364Q Distance 361Q GetValue 340Q FetchMethodOrHelp 322Q PutValue 317Q GetObjFromUID 272Q FetchMethodOrHelp 262Q GetObjectRec 252Q GetValue 227Q ERROR 220Q GetValue 206Q GetNthMethod 56Q GetValue 33Q GetValue 15Q FetchMethodOrHelp) (504Q AtCurrentStop 460Q GoToStoppingPlace 445Q stoppingPlace 434Q destination 412Q FindStoppingPlace 356Q destination 335Q Range1 327Q horizon 310Q rule 267Q NewTemp 257Q StandardAuditRecord 247Q destination 215Q goal 122Q class 106Q class 75Q classTYPE# 53Q goal 30Q goal 12Q SetGoal) (314Q "L[S.0.5349.120.41796.17" 224Q "not found for DoMethod") TakeTurnHousePlayerRules D1 (P 3 gasStation P 2 possibleStops P 1 ^value P 0 ^auditRecord I 0 self) @g g j]@g g oIn,`g :g ]g MkLXgo @ghH @ggH @g gJ@g g g 2g _g OkNXgo @ggH @g gz@g g g bl@_g _OkOJg _g _OkOXgo @gg H @g gl<`g }@g dgdgdgih]g _g _OkOXgo @gg H @g@g H @ggH l`g e@g g g Mg _g _OkOXgo @gg hdi H @ggH @g g@g g @g g ov@g g je@gg @_"g _ O"kO  [?g _&g _$O&kO$Xgo @ggH @gKH @g g_@g g P@g g hi Z:g _*g _(O*kO(Xgo @g@gJ H @g gc@g g T`g lFFg Z:g _.g _,O.kO,Xgo @g@gJ H @g @_2g _0O2kO0I(1725Q FetchMethodOrHelp 1712Q GetValue 1702Q PutAuditRec 1676Q PickHiObj 1661Q PutValue 1656Q GetObjFromUID 1631Q FetchMethodOrHelp 1621Q GetObjectRec 1610Q RoadStops 1605Q GetObjectRec 1572Q GetValue 1557Q GetValue 1551Q GetValue 1534Q GetValue 1524Q PutAuditRec 1520Q PickHiObj 1503Q PutValue 1500Q GetObjFromUID 1453Q FetchMethodOrHelp 1443Q GetObjectRec 1432Q Buyers 1424Q GetValue 1416Q GetValue 1405Q GetValue 1377Q GetValue 1362Q GetValue 1352Q PutAuditRec 1340Q PutAuditRec 1324Q PutValue 1321Q GetObjFromUID 1274Q FetchMethodOrHelp 1264Q GetObjectRec 1253Q PickHiObj 1250Q RoadStops 1233Q FetchMethodOrHelp 1222Q GetObjectRec 1204Q GetValue 1176Q GetValue 1156Q GetClassValue 1150Q GetValue 1141Q GetValue 1133Q GetValue 1114Q GetValue 1104Q PutAuditRec 1070Q PutAuditRec 1064Q NearestRoadStop 1061Q RoadStops 1053Q GetObjectRec 1040Q PutValue 1035Q GetObjFromUID 1010Q FetchMethodOrHelp 1000Q GetObjectRec 770Q ISA 765Q GetObjectRec 757Q GetValue 751Q GetValue 737Q GetValue 723Q PutAuditRec 707Q PutAuditRec 703Q PickHiObj 700Q RoadStops 664Q PutAuditRec 660Q NearestRoadStop 655Q RoadStops 652Q GetObjectRec 637Q PutValue 634Q GetObjFromUID 607Q FetchMethodOrHelp 577Q GetObjectRec 540Q GetValue 526Q GetValue 506Q GetValue 476Q PutAuditRec 472Q NearestRoadStop 467Q RoadStops 464Q GetObjectRec 451Q PutValue 446Q GetObjFromUID 421Q FetchMethodOrHelp 411Q GetObjectRec 366Q FetchMethodOrHelp 351Q ISA 346Q GetObjectRec 340Q GetValue 332Q GetValue 315Q GetValue 305Q PutAuditRec 271Q PutValue 266Q GetObjFromUID 244Q FetchMethodOrHelp 234Q GetObjectRec 224Q ISA 221Q GetObjectRec 213Q GetValue 205Q GetValue 170Q GetValue 160Q PutAuditRec 144Q PutAuditRec 132Q PutValue 127Q GetObjFromUID 106Q FetchMethodOrHelp 77Q GetObjectRec 66Q GetValue 43Q GetValue 35Q GetValue 22Q GetValue 14Q GetValue) (1722Q GoToStoppingPlace 1707Q destination 1672Q RateProducers 1666Q destination 1647Q rule 1626Q NewTemp 1616Q StandardAuditRecord 1602Q Producer 1567Q timeLeft 1564Q Simulator 1554Q cargo 1546Q truck 1537Q Peddle 1531Q goal 1514Q RateConsumers 1510Q destination 1471Q rule 1450Q NewTemp 1440Q StandardAuditRecord 1421Q cargo 1413Q truck 1402Q cargo 1374Q truck 1365Q Peddle 1357Q goal 1345Q destination 1334Q BuyGas 1331Q goal 1312Q rule 1271Q NewTemp 1261Q StandardAuditRecord 1230Q Range 1217Q GasStation 1214Q RateGasStations 1201Q cashBox 1173Q truck 1153Q MaxFuel 1145Q truck 1136Q fuel 1130Q truck 1117Q SitTight 1111Q goal 1100Q GoToAlices 1075Q goal 1050Q AlicesRestaurant 1045Q destination 1026Q rule 1005Q NewTemp 775Q StandardAuditRecord 762Q AlicesRestaurant 754Q location 746Q truck 734Q timeLeft 731Q Simulator 717Q GetClose 714Q goal 675Q RateSpotsNearAlices 671Q destination 647Q AlicesRestaurant 644Q alices 625Q rule 604Q NewTemp 574Q StandardAuditRecord 560Q GoToAlices 552Q GetClose 544Q SitTight 535Q goal 523Q timeLeft 520Q Simulator 511Q GoToAlices 503Q goal 461Q AlicesRestaurant 456Q destination 437Q rule 416Q NewTemp 406Q StandardAuditRecord 363Q TimeAtStop 343Q AlicesRestaurant 335Q location 327Q truck 320Q SitTight 312Q goal 301Q SitTight 276Q goal 257Q rule 241Q NewTemp 231Q StandardAuditRecord 216Q AlicesRestaurant 210Q location 202Q truck 173Q GoToAlices 165Q goal 154Q SitTight 151Q goal 137Q destination 120Q rule 103Q NewTemp 74Q StandardAuditRecord 63Q timeRemaining 60Q gameMaster 40Q cashBox 32Q truck 17Q fuel 11Q truck) (1653Q "LZS.0.5349.129.33698.9" 1475Q "LZS.0.5349.129.33698.8" 1316Q "LZS.0.5349.129.33698.7" 1162Q .35 1032Q "LZS.0.5349.129.33698.6" 631Q "LZS.0.5349.129.33698.5" 443Q "LZS.0.5349.129.33698.4" 263Q "LZS.0.5349.129.33698.3" 124Q "LZS.0.5349.129.33698.2" 47Q 1111740Q) UnionHallHousePlanner D1 (P 0 ^value I 0 self) '@gg @g@g (44Q PutValue 41Q DirectionOf 36Q GetValue 22Q PutValue 17Q AnyRoadStop 14Q GetObjectRec) (33Q destination 27Q direction 11Q UnionHall 6 destination) NIL (PRETTYCOMPRINT HOUSEPLAYERCOMS) (RPAQQ HOUSEPLAYERCOMS ((INSTANCES FindStoppingPlaceHousePlannerRules FindStoppingPlaceHousePlayerRules GoToStoppingPlaceHousePlannerRules GoToStoppingPlaceHousePlayerRules HPRateConsumers HPRateGasStations HPRateProducers MaxPurchaseHousePlayerRules RateConsumersHousePlannerRules RateGasStationsHousePlannerRules RateProducersHousePlannerRules RateSpotsNearAlicesHousePlayerRules SellGoodsHousePlayerRules SetGoalHousePlannerRules TakeTurnHousePlannerRules TakeTurnHousePlayerRules UnionHallHousePlanner) (CLASSES HousePlanner HousePlayer) (FNS FindStoppingPlaceHousePlannerRules FindStoppingPlaceHousePlayerRules GoToStoppingPlaceHousePlannerRules GoToStoppingPlaceHousePlayerRules HPRateConsumers HPRateGasStations HPRateProducers MaxPurchaseHousePlayerRules RateConsumersHousePlannerRules RateGasStationsHousePlannerRules RateProducersHousePlannerRules RateSpotsNearAlicesHousePlayerRules SellGoodsHousePlayerRules SetGoalHousePlannerRules TakeTurnHousePlannerRules TakeTurnHousePlayerRules UnionHallHousePlanner))) (DEFINST RuleSet (FindStoppingPlaceHousePlannerRules "LZS.0.5349.129.33698.29") (perspectiveNode #&( RuleSetNode "LZS.0.5349.129.33698.56") myViewName RuleSet) (name #(FindStoppingPlaceHousePlannerRules NIL RememberName)) (compiledRules FindStoppingPlaceHousePlannerRules) (workSpace HousePlanner) (args NIL) (tempVars (wStation gasStation has roughRd)) (taskVars NIL) (debugVars NIL) (numRules 6) (controlStructure DO1) (whileCondition NIL) (compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (FindStoppingPlaceHousePlayerRules "YSSC@<>`") (perspectiveNode #&(RuleSetNode "YSSC@<>r") myViewName RuleSet) (name #(FindStoppingPlaceHousePlayerRules NIL RememberName)) ( compiledRules FindStoppingPlaceHousePlayerRules) (workSpace HousePlayer) (args NIL) (tempVars ( wStation gasStation)) (taskVars NIL) (debugVars NIL) (numRules 5) (controlStructure DO1) ( whileCondition NIL) (compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) ( taskClass) (arguments)) (DEFINST RuleSet (GoToStoppingPlaceHousePlannerRules "LZS.0.5349.129.33698.197") (perspectiveNode #&( RuleSetNode "LZS.0.5349.129.33698.198") myViewName RuleSet) (name #( GoToStoppingPlaceHousePlannerRules NIL RememberName)) (compiledRules GoToStoppingPlaceHousePlannerRules) (workSpace HousePlanner) (args NIL) (tempVars NIL) (taskVars NIL) (debugVars NIL) (numRules 3) (controlStructure DO1) (whileCondition NIL) (compilerOptions (A)) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (GoToStoppingPlaceHousePlayerRules "YWSC@8@L") (perspectiveNode #&(RuleSetNode "YWSC@8@S") myViewName RuleSet) (name #(GoToStoppingPlaceHousePlayerRules NIL RememberName)) ( compiledRules GoToStoppingPlaceHousePlayerRules) (workSpace HousePlayer) (args NIL) (tempVars ( realLocation numBuy)) (taskVars NIL) (debugVars NIL) (numRules 8) (controlStructure DOALL) ( whileCondition NIL) (compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) ( taskClass) (arguments)) (DEFINST RuleSet (HPRateConsumers "YWSC@8@p") (perspectiveNode #&(RuleSetNode "YWSC@8AO") myViewName RuleSet) (name #(HPRateConsumers NIL RememberName)) (compiledRules HPRateConsumers) (workSpace HousePlayer) (args (rs)) (tempVars (rating cargo)) (taskVars NIL) (debugVars NIL) (numRules 9) ( controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass) (arguments)) (DEFINST RuleSet (HPRateGasStations "YSSC@<>m") (perspectiveNode #&(RuleSetNode "YSSC@<>s") myViewName RuleSet) (name #(HPRateGasStations NIL RememberName)) (compiledRules HPRateGasStations) (workSpace HousePlayer) (args (rs)) (tempVars (rating)) (taskVars NIL) (debugVars NIL) (numRules 6) ( controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass) (arguments)) (DEFINST RuleSet (HPRateProducers "YWSC@8@h") (perspectiveNode #&(RuleSetNode "YWSC@8AP") myViewName RuleSet) (name #(HPRateProducers NIL RememberName)) (compiledRules HPRateProducers) (workSpace HousePlayer) (args (rs)) (tempVars (rating maxBuy)) (taskVars NIL) (debugVars NIL) (numRules 12) ( controlStructure DOALL) (whileCondition NIL) (compilerOptions NIL) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass) (arguments)) (DEFINST RuleSet (MaxPurchaseHousePlayerRules "UVSC@ENE") (perspectiveNode #&(RuleSetNode "UVSC@ENn") myViewName RuleSet) (name #(MaxPurchaseHousePlayerRules NIL RememberName)) (compiledRules MaxPurchaseHousePlayerRules) (workSpace HousePlayer) (args (roadStop)) (tempVars (volumeCapacity weightCapacity volumeLimit weightLimit cashLimit producerLimit numBuy cashCapacity)) (taskVars NIL) ( debugVars NIL) (numRules 3) (controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (RateConsumersHousePlannerRules "LZS.0.5349.129.33698.21") (perspectiveNode #&( RuleSetNode "LZS.0.5349.129.33698.57") myViewName RuleSet) (name #(RateConsumersHousePlannerRules NIL RememberName)) (compiledRules RateConsumersHousePlannerRules) (workSpace HousePlanner) (args (rs)) (tempVars (rating cargo)) ( taskVars NIL) (debugVars NIL) (numRules 6) (controlStructure DOALL) (whileCondition NIL) ( compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (RateGasStationsHousePlannerRules "LZS.0.5349.129.33698.22") (perspectiveNode #&( RuleSetNode "LZS.0.5349.129.33698.58") myViewName RuleSet) (name #(RateGasStationsHousePlannerRules NIL RememberName)) (compiledRules RateGasStationsHousePlannerRules) (workSpace HousePlanner) (args (rs)) (tempVars (rating)) (taskVars NIL) (debugVars NIL) (numRules 6) (controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (RateProducersHousePlannerRules "LZS.0.5349.129.33698.20") (perspectiveNode #&( RuleSetNode "LZS.0.5349.129.33698.59") myViewName RuleSet) (name #(RateProducersHousePlannerRules NIL RememberName)) (compiledRules RateProducersHousePlannerRules) (workSpace HousePlanner) (args (rs)) (tempVars (rating maxBuy)) ( taskVars NIL) (debugVars NIL) (numRules 10) (controlStructure DOALL) (whileCondition NIL) ( compilerOptions NIL) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (RateSpotsNearAlicesHousePlayerRules "UVSC@END") (perspectiveNode #&(RuleSetNode "UVSC@ENo") myViewName RuleSet) (name #(RateSpotsNearAlicesHousePlayerRules NIL RememberName)) ( compiledRules RateSpotsNearAlicesHousePlayerRules) (workSpace HousePlayer) (args (roadStop)) (tempVars (rating cargo)) (taskVars NIL) (debugVars NIL) (numRules 6) (controlStructure DOALL) (whileCondition NIL) (compilerOptions NIL) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (SellGoodsHousePlayerRules "YWSC@8@x") (perspectiveNode #&(RuleSetNode "YWSC@8AQ") myViewName RuleSet) (name #(SellGoodsHousePlayerRules NIL RememberName)) (compiledRules SellGoodsHousePlayerRules) (workSpace HousePlayer) (args NIL) (tempVars (cargo sellQty)) (taskVars NIL ) (debugVars NIL) (numRules 5) (controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass) (arguments)) (DEFINST RuleSet (SetGoalHousePlannerRules "LZS.0.5349.129.33698.54") (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.60") myViewName RuleSet) (name #(SetGoalHousePlannerRules NIL RememberName)) ( compiledRules SetGoalHousePlannerRules) (workSpace HousePlanner) (args NIL) (tempVars NIL) (taskVars NIL) (debugVars NIL) (numRules 10) (controlStructure DO1) (whileCondition NIL) (compilerOptions NIL) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (TakeTurnHousePlannerRules "LZS.0.5349.129.33698.46") (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.61") myViewName RuleSet) (name #(TakeTurnHousePlannerRules NIL RememberName)) ( compiledRules TakeTurnHousePlannerRules) (workSpace HousePlanner) (args NIL) (tempVars (possibleStops) ) (taskVars NIL) (debugVars NIL) (numRules 4) (controlStructure DOALL) (whileCondition ((: (\ LispVar Communicator) gameStarted))) (compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (TakeTurnHousePlayerRules "YSSC@<>") (perspectiveNode #&(RuleSetNode "YSSC@<^") myViewName RuleSet) (name #(TakeTurnHousePlayerRules NIL RememberName)) (compiledRules TakeTurnHousePlayerRules) (workSpace HousePlayer) (args NIL) (tempVars (possibleStops gasStation)) ( taskVars NIL) (debugVars NIL) (numRules 9) (controlStructure DOALL) (whileCondition NIL) ( compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass) (arguments)) (DEFINST RuleSet (UnionHallHousePlanner "LZS.0.5349.129.33698.55") (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.62")) (name #(UnionHallHousePlanner NIL RememberName)) (compiledRules UnionHallHousePlanner) (workSpace HousePlanner) (args NIL) (tempVars NIL) (taskVars NIL) (debugVars NIL) (numRules 1) (controlStructure DO1) (whileCondition NIL) (compilerOptions NIL) (auditClass NIL) ( metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.56") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.29") Source #&(RuleSetSource "LZS.0.5349.129.33698.63"))) (DEFINST RuleSetNode ("YSSC@<>r") (perspectives ? RuleSet #&(RuleSet "YSSC@<>`") Source #&( RuleSetSource "YSSC@<>t"))) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.198") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.197") Source #&(RuleSetSource "LZS.0.5349.129.33698.199"))) (DEFINST RuleSetNode ("YWSC@8@S") (perspectives ? RuleSet #&(RuleSet "YWSC@8@L") Source #&( RuleSetSource "YWSC@8@T"))) (DEFINST RuleSetNode ("YWSC@8AO") (perspectives ? RuleSet #&(RuleSet "YWSC@8@p") Source #&( RuleSetSource "YWSC@8AR"))) (DEFINST RuleSetNode ("YSSC@<>s") (perspectives ? RuleSet #&(RuleSet "YSSC@<>m") Source #&( RuleSetSource "YSSC@<>u"))) (DEFINST RuleSetNode ("YWSC@8AP") (perspectives ? RuleSet #&(RuleSet "YWSC@8@h") Source #&( RuleSetSource "YWSC@8AS"))) (DEFINST RuleSetNode ("UVSC@ENn") (perspectives ? RuleSet #&(RuleSet "UVSC@ENE") Source #&( RuleSetSource "UVSC@ENp"))) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.57") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.21") Source #&(RuleSetSource "LZS.0.5349.129.33698.64"))) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.58") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.22") Source #&(RuleSetSource "LZS.0.5349.129.33698.65"))) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.59") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.20") Source #&(RuleSetSource "LZS.0.5349.129.33698.66"))) (DEFINST RuleSetNode ("UVSC@ENo") (perspectives ? RuleSet #&(RuleSet "UVSC@END") Source #&( RuleSetSource "UVSC@ENq"))) (DEFINST RuleSetNode ("YWSC@8AQ") (perspectives ? RuleSet #&(RuleSet "YWSC@8@x") Source #&( RuleSetSource "YWSC@8AT"))) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.60") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.54") Source #&(RuleSetSource "LZS.0.5349.129.33698.67"))) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.61") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.46") Source #&(RuleSetSource "LZS.0.5349.129.33698.68"))) (DEFINST RuleSetNode ("YSSC@<^") (perspectives ? RuleSet #&(RuleSet "YSSC@<>") Source #&(RuleSetSource "YSSC@<_"))) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.62") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.55") Source #&(RuleSetSource "LZS.0.5349.129.33698.69"))) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.63") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.48")) (#&(Rule "LZS.0.5349.129.33698.49")) (#&(Rule "LZS.0.5349.129.33698.50")) (#&(Rule "LZS.0.5349.129.33698.51")) (#&(Rule "LZS.0.5349.129.33698.52")) (#&(Rule "LZS.0.5349.129.33698.53"))) ) (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.56") myViewName Source) (created " 1-FEB-83 14:25:23") (creator LOOPSCOURSE) (edited "26-JUL-83 13:56:35") (editor MITTAL)) (DEFINST RuleSetSource ("YSSC@<>t") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.70")) (#&(Rule "LZS.0.5349.129.33698.71")) (#&(Rule "LZS.0.5349.129.33698.72")) (#&(Rule "LZS.0.5349.129.33698.73")) (#&(Rule "LZS.0.5349.129.33698.74")))) (perspectiveNode #&(RuleSetNode "YSSC@<>r") myViewName Source) (created " 1-FEB-83 14:25:23") (creator LOOPSCOURSE) (edited "26-JUL-83 13:30:23") (editor MITTAL)) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.199") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.200") ) (#&(Rule "LZS.0.5349.129.33698.201")) (#&(Rule "LZS.0.5349.129.33698.202")))) (perspectiveNode #&( RuleSetNode "LZS.0.5349.129.33698.198") myViewName Source) (created " 1-FEB-83 14:25:34") (creator LOOPSCOURSE) (edited "26-JUL-83 16:45:19") (editor MITTAL)) (DEFINST RuleSetSource ("YWSC@8@T") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.16")) (#&(Rule "LZS.0.5349.129.33698.75")) (#&(Rule "LZS.0.5349.129.33698.76")) (#&(Rule "LZS.0.5349.129.33698.77")) (#&(Rule "LZS.0.5349.129.33698.17")) (#&(Rule "LZS.0.5349.129.33698.78")) (#&(Rule "LZS.0.5349.129.33698.79")) (#&(Rule "LZS.0.5349.129.33698.18")))) (perspectiveNode #&(RuleSetNode "YWSC@8@S") myViewName Source) (created " 1-FEB-83 14:25:34") (creator LOOPSCOURSE) (edited "26-JUL-83 13:18:32") (editor MITTAL)) (DEFINST RuleSetSource ("YWSC@8AR") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.80")) (#&(Rule "LZS.0.5349.129.33698.81")) (#&(Rule "LZS.0.5349.129.33698.82")) (#&(Rule "LZS.0.5349.129.33698.83")) (#&(Rule "LZS.0.5349.129.33698.84")) (#&(Rule "LZS.0.5349.129.33698.85")) (#&(Rule "LZS.0.5349.129.33698.86")) (#&(Rule "LZS.0.5349.129.33698.87")) (#&(Rule "LZS.0.5349.129.33698.88"))) ) (perspectiveNode #&(RuleSetNode "YWSC@8AO") myViewName Source) (created "18-FEB-83 22:45:14") ( creator STEFIK) (edited "26-JUL-83 13:24:46") (editor MITTAL)) (DEFINST RuleSetSource ("YSSC@<>u") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.89")) (#&(Rule "LZS.0.5349.129.33698.90")) (#&(Rule "LZS.0.5349.129.33698.91")) (#&(Rule "LZS.0.5349.129.33698.92")) (#&(Rule "LZS.0.5349.129.33698.93")) (#&(Rule "LZS.0.5349.129.33698.94")))) (perspectiveNode #&( RuleSetNode "YSSC@<>s") myViewName Source) (created "19-MAY-83 17:26:44") (creator MITTAL) (edited "26-JUL-83 13:25:00") (editor MITTAL)) (DEFINST RuleSetSource ("YWSC@8AS") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.95")) (#&(Rule "LZS.0.5349.129.33698.96")) (#&(Rule "LZS.0.5349.129.33698.97")) (#&(Rule "LZS.0.5349.129.33698.98")) (#&(Rule "LZS.0.5349.129.33698.99")) (#&(Rule "LZS.0.5349.129.33698.100")) (#&(Rule "LZS.0.5349.129.33698.101")) (#&(Rule "LZS.0.5349.129.33698.102")) (#&(Rule "LZS.0.5349.129.33698.103" )) (#&(Rule "LZS.0.5349.129.33698.104")) (#&(Rule "LZS.0.5349.129.33698.105")) (#&(Rule "LZS.0.5349.129.33698.106")))) (perspectiveNode #&(RuleSetNode "YWSC@8AP") myViewName Source) (created "18-FEB-83 22:45:14") (creator STEFIK) (edited "26-JUL-83 13:24:40") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@ENp") (indexedVars ((#&(Rule "L[S.0.5349.120.41796.18")) (#&(Rule "L[S.0.5349.120.41796.19")) (#&(Rule "L[S.0.5349.120.41796.20")))) (perspectiveNode #&(RuleSetNode "UVSC@ENn") myViewName Source) (created " 1-FEB-83 14:25:11") (creator LOOPSCOURSE) (edited "27-JUL-83 11:44:45") (editor MITTAL)) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.64") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.107")) (#&(Rule "LZS.0.5349.129.33698.108")) (#&(Rule "LZS.0.5349.129.33698.109")) (#&(Rule "LZS.0.5349.129.33698.110")) (#&(Rule "LZS.0.5349.129.33698.111")) (#&(Rule "LZS.0.5349.129.33698.112" )))) (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.57") myViewName Source) (created "18-FEB-83 22:45:14") (creator STEFIK) (edited "26-JUL-83 14:22:31") (editor MITTAL)) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.65") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.113")) (#&(Rule "LZS.0.5349.129.33698.114")) (#&(Rule "LZS.0.5349.129.33698.115")) (#&(Rule "LZS.0.5349.129.33698.116")) (#&(Rule "LZS.0.5349.129.33698.117")) (#&(Rule "LZS.0.5349.129.33698.118" )))) (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.58") myViewName Source) (created "19-MAY-83 17:26:44") (creator MITTAL) (edited "26-JUL-83 13:20:12") (editor MITTAL)) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.66") (indexedVars ((#&(Rule "L[S.0.5349.120.41796.21")) (#&(Rule "L[S.0.5349.120.41796.22")) (#&(Rule "L[S.0.5349.120.41796.23")) (#&(Rule "L[S.0.5349.120.41796.24")) (#&(Rule "L[S.0.5349.120.41796.25")) (#&(Rule "L[S.0.5349.120.41796.26")) (#&(Rule "L[S.0.5349.120.41796.27")) (#&(Rule "L[S.0.5349.120.41796.28")) (#&(Rule "L[S.0.5349.120.41796.29")) (#&(Rule "L[S.0.5349.120.41796.30")))) (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.59") myViewName Source) (created "18-FEB-83 22:45:14") (creator STEFIK) (edited "27-JUL-83 16:33:34") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@ENq") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.129")) (#&(Rule "LZS.0.5349.129.33698.130")) (#&(Rule "LZS.0.5349.129.33698.131")) (#&(Rule "LZS.0.5349.129.33698.132" )) (#&(Rule "LZS.0.5349.129.33698.133")) (#&(Rule "LZS.0.5349.129.33698.134")))) (perspectiveNode #&( RuleSetNode "UVSC@ENo") myViewName Source) (created "18-FEB-83 20:41:23") (creator STEFIK) (edited "26-JUL-83 13:21:20") (editor MITTAL)) (DEFINST RuleSetSource ("YWSC@8AT") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.203")) (#&(Rule "LZS.0.5349.129.33698.204")) (#&(Rule "LZS.0.5349.129.33698.205")) (#&(Rule "LZS.0.5349.129.33698.206" )) (#&(Rule "LZS.0.5349.129.33698.188")))) (perspectiveNode #&(RuleSetNode "YWSC@8AQ") myViewName Source) (created " 1-FEB-83 14:25:40") (creator LOOPSCOURSE) (edited "26-JUL-83 16:08:28") (editor MITTAL)) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.67") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.139")) (#&(Rule "LZS.0.5349.129.33698.140")) (#&(Rule "LZS.0.5349.129.33698.141")) (#&(Rule "LZS.0.5349.129.33698.142")) (#&(Rule "LZS.0.5349.129.33698.143")) (#&(Rule "LZS.0.5349.129.33698.144" )) (#&(Rule "LZS.0.5349.129.33698.145")) (#&(Rule "LZS.0.5349.129.33698.146")) (#&(Rule "LZS.0.5349.129.33698.147")) (#&(Rule "LZS.0.5349.129.33698.148")))) (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.60") myViewName Source) (created "22-JUN-83 15:37:14") (creator MITTAL) (edited "26-JUL-83 14:17:11") (editor MITTAL)) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.68") (indexedVars ((#&(Rule "L[S.0.5349.120.41796.31")) (#&(Rule "L[S.0.5349.120.41796.32")) (#&(Rule "L[S.0.5349.120.41796.17")) (#&(Rule "L[S.0.5349.120.41796.33")))) (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.61") myViewName Source) (created " 1-FEB-83 14:25:51") (creator LOOPSCOURSE) (edited "27-JUL-83 16:30:47") (editor MITTAL)) (DEFINST RuleSetSource ("YSSC@<_") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.2")) (#&(Rule "LZS.0.5349.129.33698.3")) (#&(Rule "LZS.0.5349.129.33698.4")) (#&(Rule "LZS.0.5349.129.33698.5")) (#& (Rule "LZS.0.5349.129.33698.6")) (#&(Rule "LZS.0.5349.129.33698.7")) (#&(Rule "LZS.0.5349.129.33698.8" )) (#&(Rule "LZS.0.5349.129.33698.9")) (#&(Rule "LZS.0.5349.129.33698.152")))) (perspectiveNode #&( RuleSetNode "YSSC@<^") myViewName Source) (created " 1-FEB-83 14:25:51") (creator LOOPSCOURSE) (edited "26-JUL-83 13:14:32") (editor MITTAL)) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.69") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.153")) )) (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.62")) (created "26-JUL-83 14:17:26") (creator MITTAL) (edited "26-JUL-83 14:18:34") (editor MITTAL)) (DEFINST Rule ("LZS.0.5349.129.33698.48") (source "(* Returns a stopping place en route to a destination.) (* If already at destination, make it be stoppingPlace) IF truck:location=destination THEN stoppingPlace_destination;") (edited "26-JUL-83 13:56:35") (editor MITTAL) (ruleNumber 1) ( ruleSet #&(RuleSet "LZS.0.5349.129.33698.29"))) (DEFINST Rule ("LZS.0.5349.129.33698.49") (source "(* Obey the law - stop at WeighStations.) IF truck:cargo wStation_(NearestRoadStop (RoadStops $WeighStation horizon direction 'Room)) (Distance wStation)<(Distance destination) THEN stoppingPlace_wStation;") (edited "26-JUL-83 13:56:35") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.29"))) (DEFINST Rule ("LZS.0.5349.129.33698.50") (source "(* check if fragile cargo) IF truck:cargo has_(CAR truck:cargo) (ISA has $FragileCommodity) roughRd_(NearestRoadStop (RoadStops $RoughRoad horizon direction 'Room)) (Distance roughRd)<(Distance destination) THEN stoppingPlace_roughRd;") (edited "26-JUL-83 13:56:35") (editor MITTAL) (ruleNumber 3) (ruleSet #& (RuleSet "LZS.0.5349.129.33698.29"))) (DEFINST Rule ("LZS.0.5349.129.33698.51") (source "IF (Distance destination)<=.Range1 (RoomToParkP destination) THEN stoppingPlace_destination;") (edited "26-JUL-83 13:56:35") (editor MITTAL) (ruleNumber 4) ( ruleSet #&(RuleSet "LZS.0.5349.129.33698.29"))) (DEFINST Rule ("LZS.0.5349.129.33698.52") (source "IF goal~='GoToAlices truck:fuel < .6 * truck::MaxFuel gasStation_(FurthestRoadStop (RoadStops $GasStation horizon direction 'Room)) gasStation:qty>0 THEN stoppingPlace_gasStation;") (edited "26-JUL-83 13:56:35") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.29"))) (DEFINST Rule ("LZS.0.5349.129.33698.53") (source "THEN stoppingPlace_(NthRoadStop horizon direction NIL 'Room);") (edited "26-JUL-83 13:56:35") ( editor MITTAL) (ruleNumber 6) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.29"))) (DEFINST Rule ("LZS.0.5349.129.33698.70") (source "(* Returns a stopping place en route to a destination.) (* If already at destination, make it be stoppingPlace) IF truck:location=destination THEN stoppingPlace_destination;") (edited "26-JUL-83 13:30:23") (editor MITTAL) (ruleNumber 1) ( ruleSet #&(RuleSet "YSSC@<>`"))) (DEFINST Rule ("LZS.0.5349.129.33698.71") (source "(* Obey the law - stop at WeighStations.) IF truck:cargo wStation_(NearestRoadStop (RoadStops $WeighStation .Range1 direction 'Room)) (Distance wStation)<(Distance destination) THEN stoppingPlace_wStation;") (edited "26-JUL-83 13:30:23") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "YSSC@<>`"))) (DEFINST Rule ("LZS.0.5349.129.33698.72") (source "IF (Distance destination)<=.Range1 (RoomToParkP destination) THEN stoppingPlace_destination;") (edited "26-JUL-83 13:30:23") (editor MITTAL) (ruleNumber 3) ( ruleSet #&(RuleSet "YSSC@<>`"))) (DEFINST Rule ("LZS.0.5349.129.33698.73") (source "IF goal~='GoToAlices truck:fuel < .6 * truck::MaxFuel gasStation_(FurthestRoadStop (RoadStops $GasStation .Range1 direction 'Room)) gasStation:qty>0 THEN stoppingPlace_gasStation;") (edited "26-JUL-83 13:30:23") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "YSSC@<>`"))) (DEFINST Rule ("LZS.0.5349.129.33698.74") (source "THEN stoppingPlace_(NthRoadStop (IMIN .Range1 (Distance destination)) direction NIL 'Room);") (edited "26-JUL-83 13:30:23") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "YSSC@<>`"))) (DEFINST Rule ("LZS.0.5349.129.33698.200") (source "(* Go to the stoppingPlace) IF stoppingPlace=truck:location THEN (WriteGameStatus %"Hm! %" driver %" already there%");") (edited "26-JUL-83 16:45:19") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.197"))) (DEFINST Rule ("LZS.0.5349.129.33698.201") (source "IF stoppingPlace.BanditP THEN (WriteGameStatus driver %" Not moving because of bandits%") (_ \PlayerInterface Move self truck:location);") (edited "26-JUL-83 16:45:19") (editor MITTAL) ( ruleNumber 2) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.197"))) (DEFINST Rule ("LZS.0.5349.129.33698.202") (source "-> (_ \PlayerInterface Move self stoppingPlace);") (edited "26-JUL-83 16:45:19") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.197"))) (DEFINST Rule ("LZS.0.5349.129.33698.16") (source " THEN direction_ (DirectionOf destination);") ( edited "26-JUL-83 13:18:32") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "YWSC@8@L"))) (DEFINST Rule ("LZS.0.5349.129.33698.75") (source " -> realLocation_truck:location;") (edited "26-JUL-83 13:18:32") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "YWSC@8@L"))) (DEFINST Rule ("LZS.0.5349.129.33698.76") (source " IF .FindStoppingPlace stoppingPlace~=truck:location ~stoppingPlace.BanditP THEN (_ \PlayerInterface Move self stoppingPlace) realLocation_truck:location;") (edited "26-JUL-83 13:18:32") (editor MITTAL) ( ruleNumber 3) (ruleSet #&(RuleSet "YWSC@8@L"))) (DEFINST Rule ("LZS.0.5349.129.33698.77") (source " IF realLocation~=stoppingPlace THEN (WriteGameStatus %"Oh!! %" driver %" didnt go to stoppingPlace%");") (edited "26-JUL-83 13:18:32") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "YWSC@8@L"))) (DEFINST Rule ("LZS.0.5349.129.33698.17") (source " IF (ISA realLocation $GasStation) realLocation:qty > 0 THEN .BuyGas goal_'Peddle destination_NIL (STOP 'Peddle NIL 'BoughtGas);") (edited "26-JUL-83 13:18:32") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "YWSC@8@L"))) (DEFINST Rule ("LZS.0.5349.129.33698.78") (source " IF (ISA realLocation $Producer) goal='Peddle realLocation=destination numBuy_(_ self MaxPurchase realLocation) numBuy>=1 THEN (_ \PlayerInterface Buy self numBuy);") (edited "26-JUL-83 13:18:32") (editor MITTAL) ( ruleNumber 6) (ruleSet #&(RuleSet "YWSC@8@L"))) (DEFINST Rule ("LZS.0.5349.129.33698.79") (source " IF (ISA realLocation $Consumer) truck:cargo THEN .SellGoods;") (edited "26-JUL-83 13:18:32") (editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "YWSC@8@L"))) (DEFINST Rule ("LZS.0.5349.129.33698.18") (source " IF realLocation=destination THEN destination_NIL;") (edited "26-JUL-83 13:18:32") (editor MITTAL) (ruleNumber 8) (ruleSet #&(RuleSet "YWSC@8@L"))) (DEFINST Rule ("LZS.0.5349.129.33698.80") (source " (* Rate the suitability of a proposed Consumer.) -> cargo _ (CAR truck:cargo) rating_0;") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.81") (source "(* if spoilt go to CityDump) IF ~cargo:status (ISA rs $CityDump) THEN (STOP 5000 'CityDump 'LookNoMore);") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.82") (source "IF ~cargo:status THEN (STOP NIL 'SpoiltGoods 'CannotSell);") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.83") (source "(* Consumer must want current cargo.) IF ~(ISA cargo rs::Commodity) THEN (STOP -10000 NIL 'CannotSellHere);") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.84") (source "(* Exclude consumers that have full inventory.) IF rs:qty < 1 THEN (STOP -10000 NIL 'CannotSellHere);") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.85") (source "(* Need to be able to park) IF ~(RoomToParkP rs) THEN rating _ rating - 200;") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 6) (ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.86") (source "(* Dont go if Bandits) IF rs.BanditP THEN rating _ rating - 10000;") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.87") (source "(* Favor high price ratios.) -> rating _ rating + 100 * rs:pr ;") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 8) ( ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.88") (source "(* Favor close places.) -> rating _ rating - 5 * [truck::Gpm *(Distance rs truck:location)];") (edited "26-JUL-83 13:24:46") (editor MITTAL) (ruleNumber 9) (ruleSet #&(RuleSet "YWSC@8@p"))) (DEFINST Rule ("LZS.0.5349.129.33698.89") (source "(* rate gas stations within range) THEN rating _ 0;") (edited "26-JUL-83 13:25:00") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.90") (source "IF rs:qty=0 THEN rating _ -2000;") (edited "26-JUL-83 13:25:00") (editor MITTAL) (ruleNumber 2) (ruleSet #&( RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.91") (source "IF ~(RoomToParkP rs) THEN rating _ rating - 200;") (edited "26-JUL-83 13:25:00") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.92") (source "IF rs.BanditP THEN rating _ rating - 200;") (edited "26-JUL-83 13:25:00") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.93") (source " THEN rating _ rating - [10 * (Distance rs truck:location)];") (edited "26-JUL-83 13:25:00") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.94") (source " THEN rating _ rating + (IMIN rs:qty truck::MaxFuel);") (edited "26-JUL-83 13:25:00") (editor MITTAL) (ruleNumber 6) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.95") (source " (* Rate the suitability of a proposed Producer.) -> rating _ 0;") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.96") (source "(* Exclude gas stations.) IF (ISA rs $GasStation) THEN (STOP -100000 NIL 'GasStation);") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.97") (source "(* Exclude producers that are sold out.) IF rs:qty < 1 THEN (STOP -100000 NIL 'CannotBuy);") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 3) ( ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.98") (source "(* Penalize producers for which can buy < 1 items.) IF maxBuy_(_ self MaxPurchase rs) maxBuy < 1 THEN (STOP -100000 NIL 'CannotBuy);") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 4) ( ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.99") (source "(* Need to be able to park) IF ~(RoomToParkP rs) THEN rating _ -500;") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 5) (ruleSet #&( RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.100") (source "(* If Bandits there, dont go) IF rs.BanditP THEN rating _ rating - 10000;") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 6) (ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.101") (source "(* Exclude perishables.) IF (SUBCLASS rs::Commodity $PerishableCommodity) THEN rating _ rating - 2000 + [100 * rs::Commodity::MinLifetime];") (edited "26-JUL-83 13:24:40") ( editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.102") (source "(* Exclude excessively fragile goods.) IF (SUBCLASS rs::Commodity $FragileCommodity) THEN rating _ rating - [100 * rs::Commodity::FragilityLevel];") (edited "26-JUL-83 13:24:40") ( editor MITTAL) (ruleNumber 8) (ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.103") (source "(* favor LuxuryGoods) IF (SUBCLASS rs::Commodity $LuxuryGoods) THEN rating _ rating + 1000;") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 9) (ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.104") (source "IF (SUBCLASS rs::Commodity $Xerox1100) THEN rating _ rating + 1000 ;") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 10) (ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.105") (source "(* favor higher qty) -> rating _ rating + [20 * maxBuy];") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 11) ( ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("LZS.0.5349.129.33698.106") (source "(* Favor close places.) -> rating _ rating - [10 * truck::Gpm * (Distance rs truck:location)];") (edited "26-JUL-83 13:24:40") (editor MITTAL) (ruleNumber 12) (ruleSet #&(RuleSet "YWSC@8@h"))) (DEFINST Rule ("L[S.0.5349.120.41796.18") (source " (* Rules for deciding how much the HousePlayer could buy at a Producer.) (* Sale can be limited by volume, weight, cash, or availability.) -> volumeCapacity _ truck::MaxVolume-truck:volume weightCapacity _ truck::MaxWeight-truck:weight cashCapacity _ (MAX 0 truck:cashBox-cashReserve);") (edited "27-JUL-83 11:44:45") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ENE"))) (DEFINST Rule ("L[S.0.5349.120.41796.19") (source " -> volumeLimit _ volumeCapacity / roadStop::Commodity::VolPerQty weightLimit _ weightCapacity / roadStop::Commodity::WtPerQty cashLimit _ cashCapacity / (PricePerUnit roadStop) producerLimit _ roadStop:qty;") (edited "27-JUL-83 11:44:45") (editor MITTAL) (ruleNumber 2) ( ruleSet #&(RuleSet "UVSC@ENE"))) (DEFINST Rule ("L[S.0.5349.120.41796.20") (source "-> numBuy _ (MIN volumeLimit weightLimit cashLimit producerLimit);") (edited "27-JUL-83 11:44:45") ( editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@ENE"))) (DEFINST Rule ("LZS.0.5349.129.33698.107") (source " (* Rate the suitability of a proposed Consumer.) -> cargo _ (CAR truck:cargo) rating_0;") (edited "26-JUL-83 14:22:31") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.21"))) (DEFINST Rule ("LZS.0.5349.129.33698.108") (source "(* Consumer must want current cargo.) IF ~(ISA cargo rs::Commodity) THEN (STOP -10000 NIL 'CannotSellHere);") (edited "26-JUL-83 14:22:31") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.21"))) (DEFINST Rule ("LZS.0.5349.129.33698.109") (source "(* Exclude consumers that have full inventory.) IF rs:qty < 1 THEN (STOP -10000 NIL 'CannotSellHere);") (edited "26-JUL-83 14:22:31") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.21"))) (DEFINST Rule ("LZS.0.5349.129.33698.110") (source "(* Dont go if Bandits) IF rs.BanditP THEN rating _ rating - 10000;") (edited "26-JUL-83 14:22:31") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.21"))) (DEFINST Rule ("LZS.0.5349.129.33698.111") (source "(* Favor high price ratios.) -> rating _ rating + 100 * rs:pr ;") (edited "26-JUL-83 14:22:31") (editor MITTAL) (ruleNumber 5) ( ruleSet #&(RuleSet "LZS.0.5349.129.33698.21"))) (DEFINST Rule ("LZS.0.5349.129.33698.112") (source "(* Favor close places.) -> rating _ rating - 5 * [truck::Gpm *(Distance rs truck:location)];") (edited "26-JUL-83 14:22:31") (editor MITTAL) (ruleNumber 6) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.21"))) (DEFINST Rule ("LZS.0.5349.129.33698.113") (source "(* rate gas stations within range) THEN rating _ 0;") (edited "26-JUL-83 13:20:12") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.114") (source "IF rs:qty=0 THEN rating _ -2000;") (edited "26-JUL-83 13:20:12") (editor MITTAL) (ruleNumber 2) (ruleSet #&( RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.115") (source "IF ~(RoomToParkP rs) THEN rating _ rating - 200;") (edited "26-JUL-83 13:20:12") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.116") (source "IF rs.BanditP THEN rating _ rating - 200;") (edited "26-JUL-83 13:20:12") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.117") (source " THEN rating _ rating - [10 * (Distance rs truck:location)];") (edited "26-JUL-83 13:20:12") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("LZS.0.5349.129.33698.118") (source " THEN rating _ rating + (IMIN rs:qty truck::MaxFuel);") (edited "26-JUL-83 13:20:12") (editor MITTAL) (ruleNumber 6) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("L[S.0.5349.120.41796.21") (source " (* Rate the suitability of a proposed Producer.) -> rating _ 0;") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.22") (source "(* Exclude gas stations.) IF (ISA rs $GasStation) THEN (STOP -100000 NIL 'GasStation);") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.23") (source "(* Exclude producers that are sold out.) IF rs:qty < 1 THEN (STOP -100000 NIL 'CannotBuy);") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 3) ( ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.24") (source "(* Penalize producers for which can buy < 1 items.) IF maxBuy_(_ self MaxPurchase rs) maxBuy < 1 THEN (STOP -100000 NIL 'CannotBuy);") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 4) ( ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.25") (source "(* If Bandits there, dont go) IF rs.BanditP THEN rating _ rating - 10000;") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.26") (source "(* Exclude perishables.) IF (SUBCLASS rs::Commodity $PerishableCommodity) THEN rating _ rating - 2000 + [100 * rs::Commodity::MinLifetime];") (edited "27-JUL-83 16:33:34") ( editor MITTAL) (ruleNumber 6) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.27") (source "(* favor LuxuryGoods) IF (SUBCLASS rs::Commodity $LuxuryGoods) THEN rating _ rating + 2000;") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.28") (source "IF (SUBCLASS rs::Commodity $Xerox1100) THEN rating _ rating + 2000 ;") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 8) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.29") (source "(* favor higher qty) -> rating _ rating + [10 * maxBuy];") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 9) ( ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("L[S.0.5349.120.41796.30") (source "(* Favor close places.) -> rating _ rating - [10 * truck::Gpm * (Distance rs truck:location)];") (edited "27-JUL-83 16:33:34") (editor MITTAL) (ruleNumber 10) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.20"))) (DEFINST Rule ("LZS.0.5349.129.33698.129") (source "(* Rating RuleSet for spots near Alices. Returns a number for spots.) -> cargo _ (CAR truck:cargo);") (edited "26-JUL-83 13:21:20") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@END"))) (DEFINST Rule ("LZS.0.5349.129.33698.130") (source " (* Favor places closer to Alices.) -> rating _ 100 - 4 * (Distance roadStop alices);") (edited "26-JUL-83 13:21:20") (editor MITTAL) ( ruleNumber 2) (ruleSet #&(RuleSet "UVSC@END"))) (DEFINST Rule ("LZS.0.5349.129.33698.131") (source "IF ~(RoomToParkP roadStop) THEN rating _ -1000;") (edited "26-JUL-83 13:21:20") (editor MITTAL) (ruleNumber 3) (ruleSet #&( RuleSet "UVSC@END"))) (DEFINST Rule ("LZS.0.5349.129.33698.132") (source "IF (ISA roadStop $UnionHall) THEN rating _ -1000;") (edited "26-JUL-83 13:21:20") (editor MITTAL) (ruleNumber 4) (ruleSet #&( RuleSet "UVSC@END"))) (DEFINST Rule ("LZS.0.5349.129.33698.133") (source "IF (ISA roadStop $AlicesRestaurant) THEN rating _ -500;") (edited "26-JUL-83 13:21:20") (editor MITTAL) (ruleNumber 5) (ruleSet #&( RuleSet "UVSC@END"))) (DEFINST Rule ("LZS.0.5349.129.33698.134") (source "IF cargo (ISA roadStop $Consumer) (ISA cargo roadStop::Commodity) roadStop:qty>0 roadStop:pr>1 THEN rating _ rating + 20;") (edited "26-JUL-83 13:21:20") (editor MITTAL) (ruleNumber 6) (ruleSet #& (RuleSet "UVSC@END"))) (DEFINST Rule ("LZS.0.5349.129.33698.203") (source "(* Make sale as limited by cargo and consumer.) -> cargo_(CAR truck:cargo);") (edited "26-JUL-83 16:08:28") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "YWSC@8@x"))) (DEFINST Rule ("LZS.0.5349.129.33698.204") (source " IF ~(ISA cargo truck:location::Commodity) THEN (STOP NIL 'NoSale 'WrongKindOfBuyer);") (edited "26-JUL-83 16:08:28") (editor MITTAL) ( ruleNumber 2) (ruleSet #&(RuleSet "YWSC@8@x"))) (DEFINST Rule ("LZS.0.5349.129.33698.205") (source " IF ~cargo:status (ISA truck:location $CityDump) THEN sellQty_(IMIN truck:location:qty cargo:qty) (_ \PlayerInterface Sell self cargo sellQty) (STOP T 'Sold 'AtCityDump);") (edited "26-JUL-83 16:08:28") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "YWSC@8@x"))) (DEFINST Rule ("LZS.0.5349.129.33698.206") (source " IF truck:location:pr < cargo:pr THEN (STOP NIL 'NoSale 'AvoidLoss);") (edited "26-JUL-83 16:08:28") (editor MITTAL) (ruleNumber 4) ( ruleSet #&(RuleSet "YWSC@8@x"))) (DEFINST Rule ("LZS.0.5349.129.33698.188") (source " IF cargo:status sellQty_(IMIN truck:location:qty cargo:qty) sellQty>=1 THEN (_ \PlayerInterface Sell self cargo sellQty) cashReserve_(MIN 5000 (TIMES 0.1 truck:cashBox));") (edited "26-JUL-83 16:08:28") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "YWSC@8@x"))) (DEFINST Rule ("LZS.0.5349.129.33698.139") (source "(* Sets the goal) IF (ISA truck:location $AlicesRestaurant) .TimeAtStop>=29 THEN goal_'LeaveAlice;") (edited "26-JUL-83 14:17:11") (editor MITTAL) (ruleNumber 1) (ruleSet #&( RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.140") (source "IF goal << '(SitTight BuyGas) THEN ;") (edited "26-JUL-83 14:17:11") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.141") (source "IF goal='GoToAlice (ISA truck:location $AlicesRestaurant) THEN goal_'SitTight;") (edited "26-JUL-83 14:17:11") (editor MITTAL) (ruleNumber 3) (ruleSet #&( RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.142") (source "IF \Simulator:timeLeft <30 THEN goal_'GoToAlice higherGoal_'GoToAlice;") (edited "26-JUL-83 14:17:11") (editor MITTAL) ( ruleNumber 4) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.143") (source "IF truck:fuel < .35 * truck::MaxFuel truck:cashBox > 0 THEN higherGoal_goal goal_'BuyGas;") (edited "26-JUL-83 14:17:11") (editor MITTAL) (ruleNumber 5) ( ruleSet #&(RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.144") (source "IF \Simulator:timeLeft < 60 THEN goal_'GetClose higherGoal_'GoToAlice;") (edited "26-JUL-83 14:17:11") (editor MITTAL) ( ruleNumber 6) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.145") (source "IF truck:fuel=0 truck:cashBox > 500000 THEN goal_'SitTight;") (edited "26-JUL-83 14:17:11") (editor MITTAL) (ruleNumber 7) (ruleSet #&( RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.146") (source "IF truck:fuel=0 \Simulator:timeLeft > 300 THEN goal_'UnionHall;") (edited "26-JUL-83 14:17:11") (editor MITTAL) (ruleNumber 8) (ruleSet #&( RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.147") (source "IF truck:cargo THEN goal_'Sell;") (edited "26-JUL-83 14:17:11") (editor MITTAL) (ruleNumber 9) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("LZS.0.5349.129.33698.148") (source "-> goal_'Buy;") (edited "26-JUL-83 14:17:11") ( editor MITTAL) (ruleNumber 10) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.54"))) (DEFINST Rule ("L[S.0.5349.120.41796.31") (source " (* Top-Level RuleSet for taking turns. Sets goal and destination.) -> .SetGoal;") (edited "27-JUL-83 16:30:47") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.46"))) (DEFINST Rule ("L[S.0.5349.120.41796.32") (source "IF goal THEN (_! self goal);") (edited "27-JUL-83 16:30:47") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.46"))) (DEFINST Rule ("L[S.0.5349.120.41796.17") (source "IF destination THEN horizon_(IMIN .Range1 (Distance destination)) .FindStoppingPlace;") (edited "27-JUL-83 16:30:47") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.46"))) (DEFINST Rule ("L[S.0.5349.120.41796.33") (source "IF destination stoppingPlace THEN .GoToStoppingPlace .AtCurrentStop;") (edited "27-JUL-83 16:30:47") (editor MITTAL) (ruleNumber 4) (ruleSet #&( RuleSet "LZS.0.5349.129.33698.46"))) (DEFINST Rule ("LZS.0.5349.129.33698.2") (source " (* Top-Level RuleSet for taking turns. Sets goal and destination.) (* If no fuel, but close to end with enough cash, sit tight) IF truck:fuel=0 truck:cashBox > 300000 \gameMaster:timeRemaining < 300 THEN destination_NIL goal_'SitTight;") (edited "26-JUL-83 13:14:32") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.3") (source " (* Don't move away from Alices during endgame.) IF goal='GoToAlices (ISA truck:location $AlicesRestaurant) THEN goal_'SitTight;") (edited "26-JUL-83 13:14:32") (editor MITTAL) (ruleNumber 2) (ruleSet #&( RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.4") (source " (* make sure not overstaying at Alices) IF goal='SitTight (ISA truck:location $AlicesRestaurant) .TimeAtStop >=28 THEN destination_ (NearestRoadStop(RoadStops $AlicesRestaurant )) goal='GoToAlices;") (edited "26-JUL-83 13:14:32") (editor MITTAL) (ruleNumber 3) (ruleSet #&( RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.5") (source " (* Get near to Alices when time gets close) IF \Simulator:timeLeft < 60 ~[goal<<'(SitTight GetClose GoToAlices)] THEN alices_(NearestRoadStop (RoadStops $AlicesRestaurant)) destination_ (PickHiObj self 'RateSpotsNearAlices (RoadStops) ) goal_'GetClose;") (edited "26-JUL-83 13:14:32") (editor MITTAL) (ruleNumber 4) (ruleSet #&( RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.6") (source " (* Go to Alices now that it is time) IF \Simulator:timeLeft < 29 ~(ISA truck:location $AlicesRestaurant) THEN destination_ (NearestRoadStop (RoadStops $AlicesRestaurant NIL NIL T)) goal_'GoToAlices ;") (edited "26-JUL-83 13:14:32") (editor MITTAL) (ruleNumber 5) (ruleSet #&( RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.7") (source " IF goal~='SitTight truck:fuel < .35 * truck::MaxFuel truck:cashBox > 0 gasStation_(PickHiObj self 'RateGasStations (RoadStops $GasStation .Range) ) THEN goal_'BuyGas destination_gasStation;") (edited "26-JUL-83 13:14:32") (editor MITTAL) ( ruleNumber 6) (ruleSet #&(RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.8") (source " IF goal='Peddle truck:cargo possibleStops_(Buyers (CAR truck:cargo) NIL T) THEN destination_(PickHiObj self 'RateConsumers possibleStops );") (edited "26-JUL-83 13:14:32") ( editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.9") (source " IF goal='Peddle ~truck:cargo \Simulator:timeLeft > 70 possibleStops_(RoadStops $Producer) THEN destination_(PickHiObj self 'RateProducers possibleStops);") (edited "26-JUL-83 13:14:32") ( editor MITTAL) (ruleNumber 8) (ruleSet #&(RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.152") (source " IF destination THEN .GoToStoppingPlace;") (edited "26-JUL-83 13:14:32") (editor MITTAL) (ruleNumber 9) (ruleSet #&( RuleSet "YSSC@<>"))) (DEFINST Rule ("LZS.0.5349.129.33698.153") (source "-> destination_(AnyRoadStop $UnionHall) direction_(DirectionOf destination);") (edited "26-JUL-83 14:18:34") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.55"))) (DEFCLASSES HousePlanner HousePlayer) (DEFCLASS HousePlanner (MetaClass PlayerMeta Edited: (* sm: "26-JUL-83 14:19")) (Supers Planner) ( ClassVariables) (InstanceVariables (horizon 0 doc (* how far to look in deciding on stopping place))) (Methods (RateProducers RateProducersHousePlannerRules RuleSet RateProducersHousePlannerRules) ( RateConsumers RateConsumersHousePlannerRules RuleSet RateConsumersHousePlannerRules) (RateGasStations RateGasStationsHousePlannerRules RuleSet RateGasStationsHousePlannerRules) (FindStoppingPlace FindStoppingPlaceHousePlannerRules RuleSet FindStoppingPlaceHousePlannerRules) (TakeTurn TakeTurnHousePlannerRules RuleSet TakeTurnHousePlannerRules) (SetGoal SetGoalHousePlannerRules RuleSet SetGoalHousePlannerRules) (UnionHall UnionHallHousePlanner RuleSet UnionHallHousePlanner) ( GoToStoppingPlace GoToStoppingPlaceHousePlannerRules RuleSet GoToStoppingPlaceHousePlannerRules doc (* RuleSet GoToStoppingPlacePeddlerRules is installed as the selector GoToStoppingPlace of the class Peddler)))) (DEFCLASS HousePlayer (MetaClass PlayerMeta Edited: (* sm: "26-JUL-83 13:23")) (Supers Traveler) ( ClassVariables) (InstanceVariables (goal Peddle) (destination NIL doc (* Current destination.)) ( direction NIL doc (* Forward or Backward direction of travel on the highway.)) (alices NIL doc (* Instance of Alices chosen for end game.)) (cashReserve 1000 doc (* Minimum cash to keep on hand.))) ( Methods (FindStoppingPlace FindStoppingPlaceHousePlayerRules RuleSet FindStoppingPlaceHousePlayerRules ) (GoToStoppingPlace GoToStoppingPlaceHousePlayerRules RuleSet GoToStoppingPlaceHousePlayerRules) ( SellGoods SellGoodsHousePlayerRules RuleSet SellGoodsHousePlayerRules) (TakeTurn TakeTurnHousePlayerRules RuleSet TakeTurnHousePlayerRules) (RateProducers HPRateProducers RuleSet HPRateProducers) (RateConsumers HPRateConsumers RuleSet HPRateConsumers) (RateGasStations HPRateGasStations RuleSet HPRateGasStations) (RateSpotsNearAlices RateSpotsNearAlicesHousePlayerRules RuleSet RateSpotsNearAlicesHousePlayerRules) (MaxPurchase MaxPurchaseHousePlayerRules RuleSet MaxPurchaseHousePlayerRules))) NIL