(FILECREATED "13-NOV-83 18:34:01" ("compiled on " {INDIGO}TRUCKIN>MULTI>PLANNER.;10) "12-OCT-83 13:52:28" recompiled exprs: nothing in LOOPS.SYSOUT dated " 2-NOV-83 17:08:05") (FILECREATED "13-NOV-83 18:32:54" {INDIGO}TRUCKIN>MULTI>PLANNER.;10 50674 changes to: (METHODS Planner.AtCurrentStop Planner.Buy Planner.BuyGas Planner.CarryOutGoal Planner.FindStoppingPlace Planner.GetClose Planner.GoToAlice Planner.GoToStoppingPlace Planner.LeaveAlice Planner.PurchaseGas Planner.RateDumps Planner.RateGasStations Planner.Sell Planner.SellGoods Planner.SetGoal Planner.SitTight Planner.TakeTurn) previous date: " 1-NOV-83 17:14:45" {INDIGO}TRUCKIN>MULTI>PLANNER.;9) AtCurrentStopPlanner D1 (P 3 numBuy P 2 realLocation P 1 ^value P 0 ^auditRecord I 0 self)  @g g Z@g J@g o@g o Jg @]g MkLJ@g Dg _g OkNXgo @_g _OkO@ghH I(236Q PutAuditRec 212Q FetchMethodOrHelp 200Q PutValue 175Q GetObjFromUID 153Q FetchMethodOrHelp 143Q GetObjectRec 132Q GetValue 113Q FetchMethodOrHelp 102Q ISA 77Q GetObjectRec 67Q WriteGameStatus 60Q GetValue 42Q GetValue 30Q GetValue 17Q GetValue 11Q GetValue) (231Q destination 207Q CarryOutGoal 166Q rule 150Q NewTemp 140Q StandardAuditRecord 127Q destination 110Q PurchaseGas 74Q GasStation 55Q driver 37Q stoppingPlace 25Q stoppingPlace 14Q location 6 truck) (172Q "LZS.0.5349.129.33698.191" 64Q " didnt reach stoppingPlace" 51Q "Oh! ") BuyGasPlanner D1 (P 1 tdest P 0 ^value I 0 self) @@gg @[g KkJ Y@gI @g@g @g g ol`g )@g@g g @g@g @gg @g@g (250Q PutValue 245Q DirectionOf 242Q GetValue 226Q PutValue 223Q AnyRoadStop 220Q GetObjectRec 205Q PutValue 202Q DirectionOf 177Q GetValue 163Q PutValue 160Q GetValue 152Q GetValue 134Q GetValue 113Q GetValue 105Q GetValue 75Q PutValue 72Q DirectionOf 67Q GetValue 53Q PutValue 40Q PickHiObj 35Q RoadStops 24Q FetchMethodOrHelp 14Q GetObjectRec) (237Q destination 233Q direction 215Q UnionHall 212Q destination 174Q destination 170Q direction 155Q location 147Q truck 143Q destination 131Q timeLeft 126Q Simulator 110Q cashBox 102Q truck 64Q destination 60Q direction 47Q destination 21Q Range 11Q GasStation 6 RateGasStations) (117Q 1415200Q) BuyPlanner D1 (P 1 tdest P 0 ^value I 0 self) D @gg .@g@g Y@gI @g@g H(77Q PutValue 74Q DirectionOf 71Q GetValue 55Q PutValue 42Q PickHiObj 37Q GetValue 22Q PutValue 17Q Sellers 14Q GetObjectRec) (66Q destination 62Q direction 51Q destination 34Q sellers 30Q RateProducers 11Q Commodity 6 sellers) NIL CarryOutGoalPlanner D1 (P 1 numBuy P 0 ^value I 0 self) @g dgdgdgdgihh@g g@g @g g:@[g K@g g lJYkI`]g M@IlL@g g"@g g @_g OkNH(250Q FetchMethodOrHelp 235Q GetValue 227Q GetValue 212Q GetValue 171Q FetchMethodOrHelp 142Q GetValue 134Q GetValue 123Q FetchMethodOrHelp 105Q GetValue 75Q PutValue 61Q GetValue 11Q GetValue) (245Q SellGoods 232Q cargo 224Q truck 215Q Sell 207Q goal 166Q Buy 162Q PlayerInterface 137Q location 131Q truck 120Q MaxPurchase 110Q Buy 102Q goal 72Q goal 64Q BuyGas 56Q goal 40Q GoToAlice 32Q GetClose 24Q SitTight 15Q LeaveAlice 6 goal) NIL FindStoppingPlacePlannerRules D1 (P 3 gasStation P 2 wStation P 1 ^value P 0 ^auditRecord I 0 self) P@g g j6g ]g MkLXgo @gg H g @_g OkN@g g Zg@g @_g _OkO@g {g _g _OkOXgo @g@g H  @g g _g _OkOXgo @gJH g @_g _OkO@g g [Gg _&g _$O&kO$Xgo @g@g @g hg H g jg _"g _ O"kO Xgo @gKH (705Q PutAuditRec 673Q PutValue 670Q GetObjFromUID 643Q FetchMethodOrHelp 633Q GetObjectRec 621Q GetValue 612Q PutAuditRec 606Q NthRoadStop 577Q GetValue 570Q GetValue 554Q PutValue 551Q GetObjFromUID 524Q FetchMethodOrHelp 514Q GetObjectRec 503Q FurthestRoadStop 500Q RoadStops 472Q GetValue 451Q FetchMethodOrHelp 440Q GetObjectRec 431Q PutAuditRec 417Q PutValue 414Q GetObjFromUID 367Q FetchMethodOrHelp 357Q GetObjectRec 345Q Distance 342Q GetValue 333Q Distance 327Q PutAuditRec 323Q GetValue 307Q PutValue 304Q GetObjFromUID 257Q FetchMethodOrHelp 247Q GetObjectRec 237Q RoomToParkP 234Q GetValue 206Q FetchMethodOrHelp 175Q Distance 172Q GetValue 160Q NearestRoadStop 155Q RoadStops 147Q GetValue 131Q FetchMethodOrHelp 120Q GetObjectRec 111Q PutAuditRec 105Q AnyRoadStop 102Q GetObjectRec 67Q PutValue 64Q GetObjFromUID 43Q FetchMethodOrHelp 34Q GetObjectRec 22Q GetValue 14Q GetValue) (700Q stoppingPlace 661Q rule 640Q NewTemp 630Q StandardAuditRecord 616Q qty 603Q Room 574Q direction 565Q maxMove 561Q stoppingPlace 542Q rule 521Q NewTemp 511Q StandardAuditRecord 475Q Room 467Q direction 446Q Range1 435Q GasStation 424Q stoppingPlace 405Q rule 364Q NewTemp 354Q StandardAuditRecord 337Q destination 320Q destination 314Q stoppingPlace 275Q rule 254Q NewTemp 244Q StandardAuditRecord 231Q destination 203Q Range1 167Q destination 152Q Room 144Q direction 126Q Range1 115Q WeighStation 77Q UnionHall 74Q stoppingPlace 55Q rule 40Q NewTemp 31Q StandardAuditRecord 17Q fuel 11Q truck) (665Q "LYS.0.5349.124.36446.187" 546Q "LYS.0.5349.124.36446.188" 411Q "LYS.0.5349.124.36446.185" 301Q "LYS.0.5349.124.36446.186" 61Q "LYS.0.5349.124.36446.184") GetClosePlanner D1 (P 0 ^value I 0 self) <@gg @g@g @g@g (71Q PutValue 66Q DirectionOf 63Q GetValue 47Q PutValue 44Q PickHiObj 41Q RoadStops 25Q PutValue 22Q NearestRoadStop 17Q RoadStops 14Q GetObjectRec) (60Q destination 54Q direction 36Q RateSpotsNearAlices 32Q destination 11Q AlicesRestaurant 6 alices) NIL GoToAlicePlanner D1 (P 1 tdest P 0 ^value I 0 self) 3 g hdi Y@gI @g@g H(56Q PutValue 53Q DirectionOf 50Q GetValue 34Q PutValue 21Q NearestRoadStop 16Q RoadStops 10Q GetObjectRec) (45Q destination 41Q direction 30Q destination 5 AlicesRestaurant) NIL GoToStoppingPlacePlannerRules D1 (P 1 ^value P 0 ^auditRecord I 0 self) l`@g @g g o@g o @g [g KkJ@g o `]g M@dg lL(144Q GetValue 132Q FetchMethodOrHelp 117Q WriteGameStatus 110Q GetValue 72Q FetchMethodOrHelp 63Q GetValue 53Q WriteGameStatus 44Q GetValue 26Q GetValue 20Q GetValue 11Q GetValue) (141Q stoppingPlace 127Q Move 123Q PlayerInterface 105Q driver 67Q BanditP 60Q stoppingPlace 41Q driver 23Q location 15Q truck 6 stoppingPlace) (114Q " Not moving because of bandits" 50Q " already there" 35Q "Hm! ") LeaveAlicePlanner D1 (P 0 ^value I 0 self) -@gg hdi @g@g (52Q PutValue 47Q DirectionOf 44Q GetValue 30Q PutValue 25Q NearestRoadStop 22Q RoadStops 14Q GetObjectRec) (41Q destination 35Q direction 11Q RoadStop 6 destination) NIL PurchaseGasPlanner D1 (P 4 qty P 3 fuelAvailable P 2 fuelAffordable P 1 spaceInTank P 0 ^value I 0 self) up@g g @g g չ@g g g @g g @g g ׺IJK \Xj`^g N@LlMH(147Q FetchMethodOrHelp 127Q MIN 117Q PricePerUnit 114Q GetValue 106Q GetValue 77Q GetValue 71Q GetValue 61Q GetValue 53Q GetValue 45Q GetValue 34Q GetValue 26Q GetValue 17Q GetClassValue 11Q GetValue) (144Q Buy 140Q PlayerInterface 111Q location 103Q truck 74Q cashBox 66Q truck 56Q qty 50Q location 42Q truck 31Q fuel 23Q truck 14Q MaxFuel 6 truck) NIL RateDumpsPlanner D1 (P 3 cargo P 2 rating P 1 ^value P 0 ^auditRecord I 1 roadStop I 0 self) c@@g g jZA JnZkAg JnZYJAg ldZY@g g A@g g (136Q Distance 133Q GetValue 125Q GetValue 115Q GetClassValue 107Q GetValue 72Q GetValue 50Q GetValue 30Q RoomToParkP 17Q GetValue 11Q GetValue) (130Q location 122Q truck 112Q Gpm 104Q truck 67Q pr 45Q qty 14Q cargo 6 truck) NIL RateGasStationsPlannerRules D1 (P 2 rating P 1 ^value P 0 ^auditRecord I 1 rs I 0 self) %0jZAg jn ZA JlI(33Q RoomToParkP 25Q MINUS 14Q GetValue) (11Q qty) NIL SellGoodsPlannerRules D1 (P 3 sellQty P 2 cargo P 1 ^value P 0 ^auditRecord I 0 self) (@g g ZY@g g g hggJg V@g g g >@g g g Jg `]g M@JKlLiggNo@g g g @g ghggj@g g g hgg IJg @g g g Jg [kK`_g O@JKlN(432Q FetchMethodOrHelp 407Q MIN 404Q GetValue 375Q GetValue 367Q GetValue 361Q GetValue 350Q GetValue 337Q RuleSetStop 323Q GetValue 315Q GetValue 307Q GetValue 261Q GetValue 247Q GetValue 241Q GetValue 233Q GetValue 174Q FetchMethodOrHelp 161Q MIN 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) (427Q Sell 422Q PlayerInterface 401Q qty 372Q qty 364Q location 356Q truck 345Q status 334Q NeverAtLoss 331Q NoSale 320Q pr 312Q location 304Q truck 275Q AvoidCheapSkates 272Q NoSale 264Q Sell 256Q goal 244Q pr 236Q location 230Q truck 216Q AtCityDump 213Q Sold 171Q Sell 165Q 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) (224Q 1.1) SellPlanner D1 (P 2 has P 1 tdest P 0 ^value I 0 self) ^0@g g ZHg @gg YJ@gJ Y@gI @g@g (133Q PutValue 130Q DirectionOf 125Q GetValue 111Q PutValue 76Q PickHiObj 73Q Buyers 55Q PickHiObj 52Q RoadStops 47Q GetObjectRec 33Q GetValue 17Q GetValue 11Q GetValue) (122Q destination 116Q direction 105Q destination 67Q RateConsumers 44Q CityDump 41Q RateDumps 30Q status 14Q cargo 6 truck) NIL SetGoalPlanner 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 @gg @gg (472Q PutValue 457Q PutValue 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) (467Q Buy 464Q goal 454Q Sell 451Q goal 441Q cargo 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) (303Q .25) SitTightPlanner D1 (P 0 ^value I 0 self) @g (11Q PutValue) (6 destination) NIL TakeTurnPlannerRules D1 (P 16Q obj% P 2 possibleStops P 1 ^value P 0 ^auditRecord I 0 self)  @\g LkK@g b@O@g ]!Md`h%_"NOh _ }OO @g o _OkO@g @_g _OkO@g C@g :@_g _OkO@_g _OkOO"O"_"_dI(306Q FetchMethodOrHelp 262Q FetchMethodOrHelp 247Q GetValue 236Q GetValue 214Q FetchMethodOrHelp 201Q GetValue 156Q ERROR 147Q GetValue 135Q GetNthMethod 122Q \FindEntryIndex 51Q GetValue 30Q GetValue 12Q FetchMethodOrHelp) (303Q AtCurrentStop 257Q GoToStoppingPlace 244Q stoppingPlace 233Q destination 211Q FindStoppingPlace 176Q destination 144Q goal 110Q class 75Q class 64Q classTYPE# 46Q goal 25Q goal 7 SetGoal) (153Q "not found for DoMethod") (PRETTYCOMPRINT PLANNERCOMS) (RPAQQ PLANNERCOMS ((CLASSES Planner) (METHODS Planner.AtCurrentStop Planner.Buy Planner.BuyGas Planner.CarryOutGoal Planner.FindStoppingPlace Planner.GetClose Planner.GoToAlice Planner.GoToStoppingPlace Planner.LeaveAlice Planner.PurchaseGas Planner.RateDumps Planner.RateGasStations Planner.Sell Planner.SellGoods Planner.SetGoal Planner.SitTight Planner.TakeTurn) (FNS AtCurrentStopPlanner BuyGasPlanner BuyPlanner CarryOutGoalPlanner FindStoppingPlacePlannerRules GetClosePlanner GoToAlicePlanner GoToStoppingPlacePlannerRules LeaveAlicePlanner PurchaseGasPlanner RateDumpsPlanner RateGasStationsPlannerRules SellGoodsPlannerRules SellPlanner SetGoalPlanner SitTightPlanner TakeTurnPlannerRules) (INSTANCES AtCurrentStopPlanner BuyGasPlanner BuyPlanner CarryOutGoalPlanner FindStoppingPlacePlannerRules GetClosePlanner GoToAlicePlanner GoToStoppingPlacePlannerRules LeaveAlicePlanner PurchaseGasPlanner RateDumpsPlanner RateGasStationsPlannerRules SellGoodsPlannerRules SellPlanner SetGoalPlanner SitTightPlanner TakeTurnPlannerRules))) (DEFCLASSES Planner) (DEFCLASS Planner (MetaClass PlayerMeta Edited: (* sm: "23-JUN-83 12:40")) (Supers Peddler) ( ClassVariables (CopyCV (Icon)) (Icon ?)) (InstanceVariables (goal Buy) (higherGoal Buy doc (* main goal if temporarily overridden)) (prevGoal NIL) (sellers NIL))) (METH Planner AtCurrentStop NIL NIL (method AtCurrentStopPlanner RuleSet AtCurrentStopPlanner)) (METH Planner Buy NIL NIL (method BuyPlanner RuleSet BuyPlanner)) (METH Planner BuyGas NIL NIL (method BuyGasPlanner RuleSet BuyGasPlanner)) (METH Planner CarryOutGoal NIL NIL (method CarryOutGoalPlanner RuleSet CarryOutGoalPlanner)) (METH Planner FindStoppingPlace NIL (* RuleSet FindStoppingPlacePeddlerRules is installed as the selector FindStoppingPlace of the class Peddler) (method FindStoppingPlacePlannerRules RuleSet FindStoppingPlacePlannerRules)) (METH Planner GetClose NIL NIL (method GetClosePlanner RuleSet GetClosePlanner)) (METH Planner GoToAlice NIL NIL (method GoToAlicePlanner RuleSet GoToAlicePlanner)) (METH Planner GoToStoppingPlace NIL (* RuleSet GoToStoppingPlacePeddlerRules is installed as the selector GoToStoppingPlace of the class Peddler) (method GoToStoppingPlacePlannerRules RuleSet GoToStoppingPlacePlannerRules)) (METH Planner LeaveAlice NIL NIL (method LeaveAlicePlanner RuleSet LeaveAlicePlanner)) (METH Planner PurchaseGas NIL NIL (method PurchaseGasPlanner RuleSet PurchaseGasPlanner)) (METH Planner RateDumps NIL NIL (method RateDumpsPlanner RuleSet RateDumpsPlanner)) (METH Planner RateGasStations NIL NIL (method RateGasStationsPlannerRules RuleSet RateGasStationsPlannerRules)) (METH Planner Sell NIL NIL (method SellPlanner RuleSet SellPlanner)) (METH Planner SellGoods NIL (* RuleSet SellGoodsPeddlerRules is installed as the selector SellGoods of the class Peddler) (method SellGoodsPlannerRules RuleSet SellGoodsPlannerRules)) (METH Planner SetGoal NIL NIL (method SetGoalPlanner RuleSet SetGoalPlanner)) (METH Planner SitTight NIL NIL (method SitTightPlanner RuleSet SitTightPlanner)) (METH Planner TakeTurn NIL NIL (method TakeTurnPlannerRules RuleSet TakeTurnPlannerRules)) (DEFINST RuleSet (AtCurrentStopPlanner "UVSC@EN@") (perspectiveNode #&(RuleSetNode "UVSC@ENF") myViewName RuleSet) (name #(AtCurrentStopPlanner NIL RememberName)) (compiledRules AtCurrentStopPlanner) (workSpace Planner) (args NIL) (tempVars (realLocation numBuy)) (taskVars NIL) ( debugVars NIL) (numRules 4) (controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (BuyGasPlanner "UVSC@ELu") (perspectiveNode #&(RuleSetNode "UVSC@EM>")) (name #( BuyGasPlanner NIL RememberName)) ( compiledRules BuyGasPlanner) (workSpace Planner) (args NIL) (tempVars (tdest)) (taskVars NIL) ( debugVars NIL) (numRules 3) (controlStructure DO1) (whileCondition NIL) (compilerOptions NIL) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (BuyPlanner "UVSC@ELv") (perspectiveNode #&(RuleSetNode "UVSC@EM?")) (name #( BuyPlanner NIL RememberName)) ( compiledRules BuyPlanner) (workSpace Planner) (args NIL) (tempVars (tdest)) (taskVars NIL) (debugVars NIL) (numRules 1) (controlStructure DO1) (whileCondition NIL) (compilerOptions NIL) (auditClass NIL) ( metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (CarryOutGoalPlanner "UVSC@ENA") (perspectiveNode #&(RuleSetNode "UVSC@ENG")) (name #(CarryOutGoalPlanner NIL RememberName)) (compiledRules CarryOutGoalPlanner) (workSpace Planner) (args NIL) (tempVars (numBuy)) (taskVars NIL) (debugVars NIL) (numRules 4) (controlStructure DO1) ( whileCondition NIL) (compilerOptions NIL) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) ( taskClass)) (DEFINST RuleSet (FindStoppingPlacePlannerRules "UVSC@EMq") (perspectiveNode #&(RuleSetNode "UVSC@ENH" ) myViewName RuleSet) (name #(FindStoppingPlacePlannerRules NIL RememberName)) (compiledRules FindStoppingPlacePlannerRules) (workSpace Planner) (args NIL) (tempVars (wStation gasStation)) ( taskVars NIL) (debugVars NIL) (numRules 5) (controlStructure DO1) (whileCondition NIL) ( compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (GetClosePlanner "UVSC@ELr") (perspectiveNode #&(RuleSetNode "UVSC@EM@")) (name #( GetClosePlanner NIL RememberName)) (compiledRules GetClosePlanner) (workSpace Planner) (args NIL) (tempVars NIL) (taskVars NIL) (debugVars NIL) (numRules 1) (controlStructure DO1) (whileCondition NIL) (compilerOptions NIL) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (GoToAlicePlanner "UVSC@ELs") (perspectiveNode #&(RuleSetNode "UVSC@EMA")) (name #( GoToAlicePlanner NIL RememberName)) (compiledRules GoToAlicePlanner) (workSpace Planner) (args NIL) (tempVars (tdest)) ( taskVars NIL) (debugVars NIL) (numRules 1) (controlStructure DO1) (whileCondition NIL) ( compilerOptions NIL) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (GoToStoppingPlacePlannerRules "UVSC@EN=") (perspectiveNode #&(RuleSetNode "UVSC@ENI" ) myViewName RuleSet) (name #(GoToStoppingPlacePlannerRules NIL RememberName)) (compiledRules GoToStoppingPlacePlannerRules) (workSpace Planner) (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 (LeaveAlicePlanner "UVSC@ELq") (perspectiveNode #&(RuleSetNode "UVSC@EMB")) (name #( LeaveAlicePlanner NIL RememberName)) (compiledRules LeaveAlicePlanner) (workSpace Planner) (args NIL) (tempVars NIL) ( taskVars NIL) (debugVars NIL) (numRules 1) (controlStructure DO1) (whileCondition NIL) ( compilerOptions NIL) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (PurchaseGasPlanner "UVSC@ENx") (perspectiveNode #&(RuleSetNode "UVSC@EO?") myViewName RuleSet) (name #(PurchaseGasPlanner NIL RememberName)) (compiledRules PurchaseGasPlanner) ( workSpace Planner) (args NIL) (tempVars (spaceInTank fuelAffordable fuelAvailable qty)) (taskVars NIL) (debugVars NIL) (numRules 2) (controlStructure DOALL) (whileCondition NIL) (compilerOptions NIL) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (RateDumpsPlanner "UVSC@EL|") (perspectiveNode #&(RuleSetNode "UVSC@EMC") myViewName RuleSet) (name #(RateDumpsPlanner NIL RememberName)) (compiledRules RateDumpsPlanner) (workSpace Planner) (args (roadStop)) (tempVars (rating cargo)) (taskVars NIL) (debugVars NIL) (numRules 5) ( controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (RateGasStationsPlannerRules "UVSC@ENC") (perspectiveNode #&(RuleSetNode "UVSC@ENJ") myViewName RuleSet) (name #(RateGasStationsPlannerRules NIL RememberName)) (compiledRules RateGasStationsPlannerRules) (workSpace Planner) (args (rs)) (tempVars (rating)) (taskVars NIL) ( debugVars NIL) (numRules 3) (controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (SellGoodsPlannerRules "LZS.0.5349.129.33698.187") (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.210") myViewName RuleSet) (name #(SellGoodsPlannerRules NIL RememberName)) ( compiledRules SellGoodsPlannerRules) (workSpace Planner) (args NIL) (tempVars (cargo sellQty)) ( taskVars NIL) (debugVars NIL) (numRules 6) (controlStructure DOALL) (whileCondition NIL) ( compilerOptions (A)) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (SellPlanner "UVSC@ELx") (perspectiveNode #&(RuleSetNode "UVSC@EMD")) (name #( SellPlanner NIL RememberName)) ( compiledRules SellPlanner) (workSpace Planner) (args NIL) (tempVars (tdest has)) (taskVars NIL) ( debugVars NIL) (numRules 2) (controlStructure DO1) (whileCondition NIL) (compilerOptions NIL) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (SetGoalPlanner "UVSC@ELo") (perspectiveNode #&(RuleSetNode "UVSC@EME") myViewName RuleSet) (name #(SetGoalPlanner NIL RememberName)) (compiledRules SetGoalPlanner) (workSpace Planner) (args NIL) (tempVars NIL) (taskVars NIL) (debugVars NIL) (numRules 8) (controlStructure DO1) ( whileCondition NIL) (compilerOptions NIL) (auditClass NIL) (metaAssignments NIL) (ruleClass NIL) ( taskClass)) (DEFINST RuleSet (SitTightPlanner "UVSC@ELp") (perspectiveNode #&(RuleSetNode "UVSC@EMF")) (name #( SitTightPlanner NIL RememberName)) (compiledRules SitTightPlanner) (workSpace Planner) (args NIL) (tempVars NIL) (taskVars NIL) (debugVars NIL) (numRules 1) (controlStructure DO1) (whileCondition NIL) (compilerOptions NIL) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (TakeTurnPlannerRules "UVSC@ELg") (perspectiveNode #&(RuleSetNode "UVSC@EMG") myViewName RuleSet) (name #(TakeTurnPlannerRules NIL RememberName)) (compiledRules TakeTurnPlannerRules) (workSpace Planner) (args NIL) (tempVars (possibleStops)) (taskVars NIL) ( debugVars NIL) (numRules 4) (controlStructure DOALL) (whileCondition NIL) (compilerOptions (A)) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSetNode ("UVSC@ENF") (perspectives ? RuleSet #&(RuleSet "UVSC@EN@") Source #&( RuleSetSource "UVSC@ENK"))) (DEFINST RuleSetNode ("UVSC@EM>") (perspectives ? RuleSet #&(RuleSet "UVSC@ELu") Source #&( RuleSetSource "UVSC@EMH"))) (DEFINST RuleSetNode ("UVSC@EM?") (perspectives ? RuleSet #&(RuleSet "UVSC@ELv") Source #&( RuleSetSource "UVSC@EMI"))) (DEFINST RuleSetNode ("UVSC@ENG") (perspectives ? RuleSet #&(RuleSet "UVSC@ENA") Source #&( RuleSetSource "UVSC@ENL"))) (DEFINST RuleSetNode ("UVSC@ENH") (perspectives ? RuleSet #&(RuleSet "UVSC@EMq") Source #&( RuleSetSource "UVSC@ENM"))) (DEFINST RuleSetNode ("UVSC@EM@") (perspectives ? RuleSet #&(RuleSet "UVSC@ELr") Source #&( RuleSetSource "UVSC@EMJ"))) (DEFINST RuleSetNode ("UVSC@EMA") (perspectives ? RuleSet #&(RuleSet "UVSC@ELs") Source #&( RuleSetSource "UVSC@EMK"))) (DEFINST RuleSetNode ("UVSC@ENI") (perspectives ? RuleSet #&(RuleSet "UVSC@EN=") Source #&( RuleSetSource "UVSC@ENN"))) (DEFINST RuleSetNode ("UVSC@EMB") (perspectives ? RuleSet #&(RuleSet "UVSC@ELq") Source #&( RuleSetSource "UVSC@EML"))) (DEFINST RuleSetNode ("UVSC@EO?") (perspectives ? RuleSet #&(RuleSet "UVSC@ENx") Source #&( RuleSetSource "UVSC@EO@"))) (DEFINST RuleSetNode ("UVSC@EMC") (perspectives ? RuleSet #&(RuleSet "UVSC@EL|") Source #&( RuleSetSource "UVSC@EMM"))) (DEFINST RuleSetNode ("UVSC@ENJ") (perspectives ? RuleSet #&(RuleSet "UVSC@ENC") Source #&( RuleSetSource "UVSC@ENO"))) (DEFINST RuleSetNode ("LZS.0.5349.129.33698.210") (perspectives ? RuleSet #&(RuleSet "LZS.0.5349.129.33698.187") Source #&(RuleSetSource "LZS.0.5349.129.33698.211"))) (DEFINST RuleSetNode ("UVSC@EMD") (perspectives ? RuleSet #&(RuleSet "UVSC@ELx") Source #&( RuleSetSource "UVSC@EMN"))) (DEFINST RuleSetNode ("UVSC@EME") (perspectives ? RuleSet #&(RuleSet "UVSC@ELo") Source #&( RuleSetSource "UVSC@EMO"))) (DEFINST RuleSetNode ("UVSC@EMF") (perspectives ? RuleSet #&(RuleSet "UVSC@ELp") Source #&( RuleSetSource "UVSC@EMP"))) (DEFINST RuleSetNode ("UVSC@EMG") (perspectives ? RuleSet #&(RuleSet "UVSC@ELg") Source #&( RuleSetSource "UVSC@EMQ"))) (DEFINST RuleSetSource ("UVSC@ENK") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.212")) (#&(Rule "LZS.0.5349.129.33698.213")) (#&(Rule "LZS.0.5349.129.33698.214")) (#&(Rule "LZS.0.5349.129.33698.191" )))) (perspectiveNode #&(RuleSetNode "UVSC@ENF") myViewName Source) (created " 1-FEB-83 14:25:34") ( creator LOOPSCOURSE) (edited "26-JUL-83 16:22:13") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMH") (indexedVars ((#&(Rule "SAS.0.5349.120.55117.1")) (#&(Rule "SAS.0.5349.120.55117.2")) (#&(Rule "SAS.0.5349.120.55117.3")))) (perspectiveNode #&(RuleSetNode "UVSC@EM>")) (created "22-JUN-83 17:07:59") (creator MITTAL) (edited " 1-SEP-83 16:13:34") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMI") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.155")))) ( perspectiveNode #&(RuleSetNode "UVSC@EM?")) (created "22-JUN-83 17:15:22") (creator MITTAL) (edited "26-JUL-83 12:39:19") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@ENL") (indexedVars ((#&(Rule "LYS.0.5349.124.36446.197")) (#&(Rule "LYS.0.5349.124.36446.198")) (#&(Rule "LYS.0.5349.124.36446.199")) (#&(Rule "LYS.0.5349.124.36446.200" )))) (perspectiveNode #&(RuleSetNode "UVSC@ENG")) (created "23-JUN-83 10:16:54") (creator MITTAL) ( edited "25-JUL-83 10:20:15") (editor STEFIK)) (DEFINST RuleSetSource ("UVSC@ENM") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.156")) (#&(Rule "LZS.0.5349.129.33698.157")) (#&(Rule "LZS.0.5349.129.33698.158")) (#&(Rule "LZS.0.5349.129.33698.159" )) (#&(Rule "LZS.0.5349.129.33698.160")))) (perspectiveNode #&(RuleSetNode "UVSC@ENH") myViewName Source) (created " 1-FEB-83 14:25:23") (creator LOOPSCOURSE) (edited "26-JUL-83 13:27:18") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMJ") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.161")))) ( perspectiveNode #&(RuleSetNode "UVSC@EM@")) (created "22-JUN-83 16:47:34") (creator MITTAL) (edited "26-JUL-83 12:42:45") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMK") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.162")))) ( perspectiveNode #&(RuleSetNode "UVSC@EMA")) (created "22-JUN-83 16:49:44") (creator MITTAL) (edited "26-JUL-83 12:43:07") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@ENN") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.215")) (#&(Rule "LZS.0.5349.129.33698.216")) (#&(Rule "LZS.0.5349.129.33698.217")))) (perspectiveNode #&(RuleSetNode "UVSC@ENI") myViewName Source) (created " 1-FEB-83 14:25:34") (creator LOOPSCOURSE) (edited "26-JUL-83 16:43:55") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EML") (indexedVars ((#&(Rule "LYS.0.5349.124.36446.208")))) ( perspectiveNode #&(RuleSetNode "UVSC@EMB")) (created "22-JUN-83 16:41:38") (creator MITTAL) (edited "25-JUL-83 10:21:03") (editor STEFIK)) (DEFINST RuleSetSource ("UVSC@EO@") (indexedVars ((#&(Rule "LYS.0.5349.124.36446.209")) (#&(Rule "LYS.0.5349.124.36446.210")))) (perspectiveNode #&(RuleSetNode "UVSC@EO?") myViewName Source) (created "27-JAN-83 00:31:21") (creator STEFIK) (edited "25-JUL-83 10:21:12") (editor STEFIK)) (DEFINST RuleSetSource ("UVSC@EMM") (indexedVars ((#&(Rule "LYS.0.5349.124.36446.211")) (#&(Rule "LYS.0.5349.124.36446.212")) (#&(Rule "LYS.0.5349.124.36446.213")) (#&(Rule "LYS.0.5349.124.36446.214" )) (#&(Rule "LYS.0.5349.124.36446.215")))) (perspectiveNode #&(RuleSetNode "UVSC@EMC") myViewName Source) (created "18-FEB-83 22:45:14") (creator STEFIK) (edited "25-JUL-83 10:21:31") (editor STEFIK)) (DEFINST RuleSetSource ("UVSC@ENO") (indexedVars ((#&(Rule "LYS.0.5349.124.36446.216")) (#&(Rule "LYS.0.5349.124.36446.217")) (#&(Rule "LYS.0.5349.124.36446.218")))) (perspectiveNode #&(RuleSetNode "UVSC@ENJ") myViewName Source) (created "19-MAY-83 17:26:44") (creator MITTAL) (edited "25-JUL-83 10:21:40") (editor STEFIK)) (DEFINST RuleSetSource ("LZS.0.5349.129.33698.211") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.218") ) (#&(Rule "LZS.0.5349.129.33698.219")) (#&(Rule "LZS.0.5349.129.33698.220")) (#&(Rule "LZS.0.5349.129.33698.221")) (#&(Rule "LZS.0.5349.129.33698.222")) (#&(Rule "LZS.0.5349.129.33698.223" )))) (perspectiveNode #&(RuleSetNode "LZS.0.5349.129.33698.210") myViewName Source) (created " 1-FEB-83 14:25:40") (creator LOOPSCOURSE) (edited "26-JUL-83 16:05:44") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMN") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.163")) (#&(Rule "LZS.0.5349.129.33698.164")))) (perspectiveNode #&(RuleSetNode "UVSC@EMD")) (created "22-JUN-83 17:30:30") (creator MITTAL) (edited "26-JUL-83 12:48:04") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMO") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.165")) (#&(Rule "LZS.0.5349.129.33698.166")) (#&(Rule "LZS.0.5349.129.33698.167")) (#&(Rule "LZS.0.5349.129.33698.168" )) (#&(Rule "LZS.0.5349.129.33698.169")) (#&(Rule "LZS.0.5349.129.33698.170")) (#&(Rule "LZS.0.5349.129.33698.171")) (#&(Rule "LZS.0.5349.129.33698.172")))) (perspectiveNode #&(RuleSetNode "UVSC@EME") myViewName Source) (created "22-JUN-83 15:37:14") (creator MITTAL) (edited "26-JUL-83 14:07:39") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMP") (indexedVars ((#&(Rule "LYS.0.5349.124.36446.230")))) ( perspectiveNode #&(RuleSetNode "UVSC@EMF")) (created "22-JUN-83 16:39:26") (creator MITTAL) (edited "25-JUL-83 10:22:13") (editor STEFIK)) (DEFINST RuleSetSource ("UVSC@EMQ") (indexedVars ((#&(Rule "LZS.0.5349.129.33698.224")) (#&(Rule "LZS.0.5349.129.33698.225")) (#&(Rule "LZS.0.5349.129.33698.226")) (#&(Rule "LZS.0.5349.129.33698.227" )))) (perspectiveNode #&(RuleSetNode "UVSC@EMG") myViewName Source) (created " 1-FEB-83 14:25:51") ( creator LOOPSCOURSE) (edited "26-JUL-83 16:34:06") (editor MITTAL)) (DEFINST Rule ("LZS.0.5349.129.33698.212") (source "(* Take action at current stop) -> realLocation_truck:location;") (edited "26-JUL-83 16:22:13") (editor MITTAL) (ruleNumber 1) ( ruleSet #&(RuleSet "UVSC@EN@"))) (DEFINST Rule ("LZS.0.5349.129.33698.213") (source "IF stoppingPlace realLocation~=stoppingPlace THEN (WriteGameStatus %"Oh! %" driver %" didnt reach stoppingPlace%");") (edited "26-JUL-83 16:22:13" ) (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@EN@"))) (DEFINST Rule ("LZS.0.5349.129.33698.214") (source "IF (ISA realLocation $GasStation) THEN .PurchaseGas;") (edited "26-JUL-83 16:22:13") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@EN@"))) (DEFINST Rule ("LZS.0.5349.129.33698.191") (source "IF realLocation=destination THEN .CarryOutGoal destination_NIL;") (edited "26-JUL-83 16:22:13") (editor MITTAL) (ruleNumber 4) ( ruleSet #&(RuleSet "UVSC@EN@"))) (DEFINST Rule ("SAS.0.5349.120.55117.1") (source "IF tdest_(PickHiObj self 'RateGasStations (RoadStops $GasStation .Range)) THEN destination_tdest direction_(DirectionOf destination);") (edited " 1-SEP-83 16:13:34") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELu"))) (DEFINST Rule ("SAS.0.5349.120.55117.2") (source "IF (OR truck:cashBox > 400000 \Simulator:timeLeft < 240) THEN destination_truck:location direction_(DirectionOf destination);") (edited " 1-SEP-83 16:13:34") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELu"))) (DEFINST Rule ("SAS.0.5349.120.55117.3") (source "THEN destination_(AnyRoadStop $UnionHall) direction_(DirectionOf destination);") (edited " 1-SEP-83 16:13:34") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@ELu"))) (DEFINST Rule ("LZS.0.5349.129.33698.155") (source "IF sellers_(Sellers $Commodity) tdest_(PickHiObj self 'RateProducers sellers) THEN destination_tdest direction_(DirectionOf destination);") (edited "26-JUL-83 12:39:19") (editor MITTAL) ( ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELv"))) (DEFINST Rule ("LYS.0.5349.124.36446.197") (source "(* Carry out goal, revising them if needed) IF goal << '(LeaveAlice SitTight GetClose GoToAlice) THEN ;") (edited "25-JUL-83 10:20:15") (editor STEFIK) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ENA") )) (DEFINST Rule ("LYS.0.5349.124.36446.198") (source "IF goal='BuyGas THEN goal_NIL;") (edited "25-JUL-83 10:20:15") (editor STEFIK) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ENA"))) (DEFINST Rule ("LYS.0.5349.124.36446.199") (source "IF goal='Buy numBuy_(_ self MaxPurchase truck:location) numBuy>= 1 THEN (_ \PlayerInterface Buy self numBuy);") (edited "25-JUL-83 10:20:15") (editor STEFIK) ( ruleNumber 3) (ruleSet #&(RuleSet "UVSC@ENA"))) (DEFINST Rule ("LYS.0.5349.124.36446.200") (source "IF goal='Sell truck:cargo THEN .SellGoods;") (edited "25-JUL-83 10:20:15") (editor STEFIK) (ruleNumber 4) (ruleSet #&(RuleSet "UVSC@ENA"))) (DEFINST Rule ("LZS.0.5349.129.33698.156") (source "(* Returns a stopping place en route to a destination.) IF truck:fuel=0 THEN stoppingPlace_(AnyRoadStop $UnionHall);") (edited "26-JUL-83 13:27:18") (editor MITTAL) ( ruleNumber 1) (ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("LZS.0.5349.129.33698.157") (source "(* Obey the law - stop at WeighStations.) IF wStation_(NearestRoadStop (RoadStops $WeighStation .Range1 direction 'Room)) (Distance wStation)<(Distance destination) THEN stoppingPlace_wStation;") (edited "26-JUL-83 13:27:18") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("LZS.0.5349.129.33698.158") (source "IF (Distance destination)<=.Range1 (RoomToParkP destination) THEN stoppingPlace_destination;") (edited "26-JUL-83 13:27:18") (editor MITTAL) (ruleNumber 3) ( ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("LZS.0.5349.129.33698.159") (source "IF gasStation_(FurthestRoadStop (RoadStops $GasStation .Range1 direction 'Room)) gasStation:qty>0 THEN stoppingPlace_gasStation;") (edited "26-JUL-83 13:27:18") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("LZS.0.5349.129.33698.160") (source "THEN stoppingPlace_(NthRoadStop maxMove direction NIL 'Room);") (edited "26-JUL-83 13:27:18") ( editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("LZS.0.5349.129.33698.161") (source "-> alices_(NearestRoadStop(RoadStops $AlicesRestaurant )) destination_(PickHiObj self 'RateSpotsNearAlices (RoadStops)) direction_ (DirectionOf destination);") (edited "26-JUL-83 12:42:45") (editor MITTAL) (ruleNumber 1 ) (ruleSet #&(RuleSet "UVSC@ELr"))) (DEFINST Rule ("LZS.0.5349.129.33698.162") (source "IF tdest_ (NearestRoadStop(RoadStops $AlicesRestaurant NIL NIL T)) THEN destination_tdest direction _ (DirectionOf destination);") (edited "26-JUL-83 12:43:07") (editor MITTAL) ( ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELs"))) (DEFINST Rule ("LZS.0.5349.129.33698.215") (source "(* Go to the stoppingPlace) IF stoppingPlace=truck:location THEN (WriteGameStatus %"Hm! %" driver %" already there%");") (edited "26-JUL-83 16:43:55") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@EN="))) (DEFINST Rule ("LZS.0.5349.129.33698.216") (source "IF stoppingPlace.BanditP THEN (WriteGameStatus driver %" Not moving because of bandits%");") (edited "26-JUL-83 16:43:55") ( editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@EN="))) (DEFINST Rule ("LZS.0.5349.129.33698.217") (source "-> (_ \PlayerInterface Move self stoppingPlace);") (edited "26-JUL-83 16:43:55") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@EN="))) (DEFINST Rule ("LYS.0.5349.124.36446.208") (source "-> destination_ (NearestRoadStop (RoadStops $RoadStop NIL NIL T)) direction_ (DirectionOf destination);") (edited "25-JUL-83 10:21:03") (editor STEFIK) (ruleNumber 1 ) (ruleSet #&(RuleSet "UVSC@ELq"))) (DEFINST Rule ("LYS.0.5349.124.36446.209") (source "(* Buy gasoline as limited by various constraints.) THEN spaceInTank_truck::MaxFuel-truck:fuel fuelAvailable_truck:location:qty fuelAffordable_truck:cashBox/(PricePerUnit truck:location) qty_(MIN spaceInTank fuelAffordable fuelAvailable);") (edited "25-JUL-83 10:21:12") (editor STEFIK) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ENx"))) (DEFINST Rule ("LYS.0.5349.124.36446.210") (source "(* Now appropriate quantity has been computed) IF qty>0 THEN (_ \PlayerInterface Buy self qty );") (edited "25-JUL-83 10:21:12") (editor STEFIK) ( ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ENx"))) (DEFINST Rule ("LYS.0.5349.124.36446.211") (source " (* Rate the suitability of a proposed Consumer.) -> cargo _ (CAR truck:cargo) rating_0;") (edited "25-JUL-83 10:21:31") (editor STEFIK) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("LYS.0.5349.124.36446.212") (source "(* Need to be able to park) IF ~(RoomToParkP roadStop) THEN rating _ rating - 500;") (edited "25-JUL-83 10:21:31") (editor STEFIK) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("LYS.0.5349.124.36446.213") (source "(* Exclude consumers that have full inventory.) IF roadStop:qty < 1 THEN rating _ rating - 1000;") (edited "25-JUL-83 10:21:31") (editor STEFIK) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("LYS.0.5349.124.36446.214") (source "(* Favor high price ratios.) -> rating _ rating + 100 * roadStop:pr ;") (edited "25-JUL-83 10:21:31") (editor STEFIK) (ruleNumber 4) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("LYS.0.5349.124.36446.215") (source "(* Favor close places.) -> rating _ rating - [truck::Gpm *(Distance roadStop truck:location)];") (edited "25-JUL-83 10:21:31") (editor STEFIK) (ruleNumber 5) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("LYS.0.5349.124.36446.216") (source "(* rate gas stations within range) THEN rating _ 0;") (edited "25-JUL-83 10:21:40") (editor STEFIK) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ENC"))) (DEFINST Rule ("LYS.0.5349.124.36446.217") (source "IF rs:qty=0 THEN rating _ -2000;") (edited "25-JUL-83 10:21:40") (editor STEFIK) (ruleNumber 2) (ruleSet #&( RuleSet "UVSC@ENC"))) (DEFINST Rule ("LYS.0.5349.124.36446.218") (source "IF ~(RoomToParkP rs) THEN rating _ rating - 200;") (edited "25-JUL-83 10:21:40") (editor STEFIK) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@ENC"))) (DEFINST Rule ("LZS.0.5349.129.33698.218") (source " -> cargo_(CAR truck:cargo);") (edited "26-JUL-83 16:05:44") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.187"))) (DEFINST Rule ("LZS.0.5349.129.33698.219") (source " IF ~(ISA cargo truck:location::Commodity) THEN (STOP NIL 'NoSale 'WrongKindOfBuyer);") (edited "26-JUL-83 16:05:44") (editor MITTAL) ( ruleNumber 2) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.187"))) (DEFINST Rule ("LZS.0.5349.129.33698.220") (source " (* Make sale as limited by cargo and consumer.) IF ~cargo:status (ISA truck:location $CityDump) THEN sellQty_(MIN truck:location:qty cargo:qty) (_ \PlayerInterface Sell self cargo sellQty) (STOP T 'Sold 'AtCityDump);") (edited "26-JUL-83 16:05:44") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.187"))) (DEFINST Rule ("LZS.0.5349.129.33698.221") (source " IF truck:location:pr < 1.1 goal='Sell THEN (STOP NIL 'NoSale 'AvoidCheapSkates);") (edited "26-JUL-83 16:05:44") (editor MITTAL) ( ruleNumber 4) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.187"))) (DEFINST Rule ("LZS.0.5349.129.33698.222") (source " IF truck:location:pr < 0 THEN (STOP NIL 'NoSale 'NeverAtLoss);") (edited "26-JUL-83 16:05:44") (editor MITTAL) ( ruleNumber 5) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.187"))) (DEFINST Rule ("LZS.0.5349.129.33698.223") (source " IF cargo:status sellQty_(MIN truck:location:qty cargo:qty) sellQty>=1 THEN (_ \PlayerInterface Sell self cargo sellQty);") (edited "26-JUL-83 16:05:44") (editor MITTAL) ( ruleNumber 6) (ruleSet #&(RuleSet "LZS.0.5349.129.33698.187"))) (DEFINST Rule ("LZS.0.5349.129.33698.163") (source "IF has_(CAR truck:cargo) ~has:status tdest_(PickHiObj self 'RateDumps (RoadStops $CityDump)) THEN destination_tdest direction_(DirectionOf destination);") (edited "26-JUL-83 12:48:04") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELx"))) (DEFINST Rule ("LZS.0.5349.129.33698.164") (source "IF has tdest_(PickHiObj self 'RateConsumers (Buyers has)) THEN destination_tdest direction_(DirectionOf destination);") (edited "26-JUL-83 12:48:04") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELx"))) (DEFINST Rule ("LZS.0.5349.129.33698.165") (source "(* Sets the goal) IF (ISA truck:location $AlicesRestaurant) .TimeAtStop>=25 THEN goal_'LeaveAlice;") (edited "26-JUL-83 14:07:39") (editor MITTAL) (ruleNumber 1) (ruleSet #&( RuleSet "UVSC@ELo"))) (DEFINST Rule ("LZS.0.5349.129.33698.166") (source "IF goal << '(SitTight BuyGas) THEN ;") (edited "26-JUL-83 14:07:39") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("LZS.0.5349.129.33698.167") (source "IF goal='GoToAlice (ISA truck:location $AlicesRestaurant) THEN goal_'SitTight;") (edited "26-JUL-83 14:07:39") (editor MITTAL) (ruleNumber 3) (ruleSet #&( RuleSet "UVSC@ELo"))) (DEFINST Rule ("LZS.0.5349.129.33698.168") (source "IF \Simulator:timeLeft <30 THEN goal_'GoToAlice higherGoal_'GoToAlice;") (edited "26-JUL-83 14:07:39") (editor MITTAL) ( ruleNumber 4) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("LZS.0.5349.129.33698.169") (source "IF truck:fuel < .25 * truck::MaxFuel truck:cashBox > 0 THEN higherGoal_goal goal_'BuyGas;") (edited "26-JUL-83 14:07:39") (editor MITTAL) (ruleNumber 5) ( ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("LZS.0.5349.129.33698.170") (source "IF \Simulator:timeLeft < 60 THEN goal_'GetClose higherGoal_'GoToAlice;") (edited "26-JUL-83 14:07:39") (editor MITTAL) ( ruleNumber 6) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("LZS.0.5349.129.33698.171") (source "IF truck:cargo THEN goal_'Sell;") (edited "26-JUL-83 14:07:39") (editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("LZS.0.5349.129.33698.172") (source "-> goal_'Buy;") (edited "26-JUL-83 14:07:39") ( editor MITTAL) (ruleNumber 8) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("LYS.0.5349.124.36446.230") (source "-> destination_NIL;") (edited "25-JUL-83 10:22:13" ) (editor STEFIK) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELp"))) (DEFINST Rule ("LZS.0.5349.129.33698.224") (source " (* Top-Level RuleSet for taking turns. Sets goal and destination.) -> .SetGoal;") (edited "26-JUL-83 16:34:06") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("LZS.0.5349.129.33698.225") (source "IF goal THEN (_! self goal);") (edited "26-JUL-83 16:34:06") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("LZS.0.5349.129.33698.226") (source "IF destination THEN .FindStoppingPlace;") (edited "26-JUL-83 16:34:06") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("LZS.0.5349.129.33698.227") (source "IF destination stoppingPlace THEN .GoToStoppingPlace .AtCurrentStop;") (edited "26-JUL-83 16:34:06") (editor MITTAL) (ruleNumber 4) (ruleSet #&( RuleSet "UVSC@ELg"))) NIL