(FILECREATED "23-JUN-83 14:16:59" ("compiled on " {INDIGO}TRUCKIN>PLAYERS>PLANNER.;4) "14-JUN-83 04:34:18" recompiled exprs: GetClosePlanner SetGoalPlanner in LOOPSDEMO.SYSOUT dated "14-JUN-83 19:10:02") (FILECREATED "23-JUN-83 14:10:20" {INDIGO}TRUCKIN>PLAYERS>PLANNER.;4 61565 changes to: (FNS GetClosePlanner SetGoalPlanner) previous date: "22-JUN-83 18:17:14" {INDIGO}TRUCKIN>PLAYERS>PLANNER.;1) 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 "UVSC@ENy" 64Q " didnt reach stoppingPlace" 51Q "Oh! ") BuyGasPlanner D1 (P 0 ^value I 0 self) N0@g @g h@g@gg @Zg JkI @g@g (113Q PutValue 110Q DirectionOf 105Q GetValue 71Q PutValue 66Q PickHiObj 63Q RoadStops 52Q FetchMethodOrHelp 42Q GetObjectRec 20Q GetValue 11Q GetValue) (102Q destination 76Q direction 47Q Range 37Q GasStation 34Q RateGasStations 30Q destination 15Q goal 6 prevGoal) NIL BuyPlanner D1 (P 1 tdest P 0 ^value I 0 self) p @g @g @g @g g jh@gg .@g@g Y@gI @g@g H(153Q PutValue 150Q DirectionOf 145Q GetValue 131Q PutValue 116Q PickHiObj 113Q GetValue 76Q PutValue 73Q Sellers 70Q GetObjectRec 51Q GetValue 43Q GetValue 32Q GetValue 20Q GetValue 11Q GetValue) (142Q destination 136Q direction 125Q destination 110Q sellers 104Q RateProducers 65Q Commodity 62Q sellers 46Q qty 40Q destination 27Q destination 15Q goal 6 prevGoal) NIL CarryOutGoalPlanner D1 (P 1 numBuy P 0 ^value I 0 self F 10Q gameMaster) @g dgdgdgdgihh@g g@g @g g8@[g K@g g lJYkIW]g MIlL@g g"@g g @_g OkNH(246Q FetchMethodOrHelp 233Q GetValue 225Q GetValue 210Q GetValue 170Q FetchMethodOrHelp 142Q GetValue 134Q GetValue 123Q FetchMethodOrHelp 105Q GetValue 75Q PutValue 61Q GetValue 11Q GetValue) (243Q SellGoods 230Q cargo 222Q truck 213Q Sell 205Q goal 165Q Buy 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 F 24Q maxMove) 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 [Bg _&g _$O&kO$Xgo @gW(@g hg H g jg _"g _ O"kO Xgo @gKH (700Q PutAuditRec 666Q PutValue 663Q GetObjFromUID 636Q FetchMethodOrHelp 626Q GetObjectRec 614Q GetValue 605Q PutAuditRec 601Q NthRoadStop 572Q 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) (673Q stoppingPlace 654Q rule 633Q NewTemp 623Q StandardAuditRecord 611Q qty 576Q Room 567Q direction 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) (660Q "UVSC@EM{" 546Q "UVSC@EM|" 411Q "UVSC@EMy" 301Q "UVSC@EMz" 61Q "UVSC@EMx") GetClosePlanner D1 (P 0 ^value I 0 self) b@g @g @g @g h@gg @g@g @g@g (137Q PutValue 134Q DirectionOf 131Q GetValue 115Q PutValue 112Q PickHiObj 107Q RoadStops 73Q PutValue 70Q NearestRoadStop 65Q RoadStops 62Q GetObjectRec 45Q RoomToParkP 42Q GetValue 32Q GetValue 20Q GetValue 11Q GetValue) (126Q destination 122Q direction 104Q RateSpotsNearAlices 100Q destination 57Q AlicesRestaurant 54Q alices 37Q alices 27Q alices 15Q goal 6 prevGoal) NIL GoToAlicePlanner D1 (P 1 tdest P 0 ^value I 0 self) Y @g @g @g @g hg hdi Y@gI @g@g H(124Q PutValue 121Q DirectionOf 116Q GetValue 102Q PutValue 67Q NearestRoadStop 64Q RoadStops 56Q GetObjectRec 45Q RoomToParkP 42Q GetValue 32Q GetValue 20Q GetValue 11Q GetValue) (113Q destination 107Q direction 76Q destination 53Q AlicesRestaurant 37Q destination 27Q destination 15Q goal 6 prevGoal) NIL GoToStoppingPlacePlannerRules D1 (P 1 ^value P 0 ^auditRecord I 0 self F 6 gameMaster) i`@g @g g o@g o @g [g KkJ@g o V]g M@g lL(141Q GetValue 130Q FetchMethodOrHelp 117Q WriteGameStatus 110Q GetValue 72Q FetchMethodOrHelp 63Q GetValue 53Q WriteGameStatus 44Q GetValue 26Q GetValue 20Q GetValue 11Q GetValue) (136Q stoppingPlace 125Q Move 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 F 7 gameMaster) sp@g g @g g չ@g g g @g g @g g ׺IJK \XjW^g NLlMH(146Q 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) (143Q Buy 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 SellPlanner D1 (P 2 has P 1 tdest P 0 ^value I 0 self) 0@g g Z8@g @g &Jg @g @g g jhJg 0@gg Y@gI @g@g @gJ YH(212Q PickHiObj 207Q Buyers 176Q PutValue 173Q DirectionOf 170Q GetValue 154Q PutValue 141Q PickHiObj 136Q RoadStops 133Q GetObjectRec 117Q GetValue 103Q GetValue 75Q GetValue 64Q GetValue 53Q GetValue 41Q GetValue 32Q GetValue 17Q GetValue 11Q GetValue) (203Q RateConsumers 165Q destination 161Q direction 150Q destination 130Q CityDump 125Q RateDumps 114Q status 100Q qty 72Q destination 61Q destination 50Q status 36Q goal 27Q prevGoal 14Q cargo 6 truck) NIL SetGoalPlanner D1 (P 0 ^value I 0 self F 3 gameMaster) 90@g g g l@Zg JkI@gg @g dgdgihh@g g$@g g g @gg lSg @gg @gg @g g @g g o-@g g j@g@g @gg l")) (name #( BuyGasPlanner NIL RememberName)) ( compiledRules BuyGasPlanner) (workSpace Planner) (args NIL) (tempVars NIL) (taskVars NIL) (debugVars NIL) (numRules 2) (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 2) (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 2) (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 2) (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 (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 3) (controlStructure DO1) (whileCondition NIL) (compilerOptions NIL) ( auditClass NIL) (metaAssignments NIL) (ruleClass NIL) (taskClass)) (DEFINST RuleSet (SetGoalPlanner "UVSC@ELo") (perspectiveNode #&(RuleSetNode "UVSC@EME")) (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 6) (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 ("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 "UVSC@EOA")) (#&(Rule "UVSC@EOB")) (#&(Rule "UVSC@EOC")) (#&(Rule "UVSC@ENy")) (#&(Rule "UNSC@8d")) (#&(Rule "UNSC@8e")) (#&(Rule "UNSC@8f")))) ( perspectiveNode #&(RuleSetNode "UVSC@ENF") myViewName Source) (created " 1-FEB-83 14:25:34") (creator LOOPSCOURSE) (edited "23-JUN-83 12:04:08") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMH") (indexedVars ((#&(Rule "UVSC@EMR")) (#&(Rule "UVSC@EMS")))) ( perspectiveNode #&(RuleSetNode "UVSC@EM>")) (created "22-JUN-83 17:07:59") (creator MITTAL) (edited "22-JUN-83 17:25:00") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMI") (indexedVars ((#&(Rule "UVSC@ENS")) (#&(Rule "UVSC@ENT")))) ( perspectiveNode #&(RuleSetNode "UVSC@EM?")) (created "22-JUN-83 17:15:22") (creator MITTAL) (edited "23-JUN-83 09:46:23") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@ENL") (indexedVars ((#&(Rule "UVSC@EOD")) (#&(Rule "UVSC@EOE")) (#&(Rule "UVSC@EOF")) (#&(Rule "UVSC@EOG")))) (perspectiveNode #&(RuleSetNode "UVSC@ENG")) (created "23-JUN-83 10:16:54") (creator MITTAL) (edited "23-JUN-83 13:23:54") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@ENM") (indexedVars ((#&(Rule "UVSC@EMx")) (#&(Rule "UVSC@EMy")) (#&(Rule "UVSC@EMz")) (#&(Rule "UVSC@EM{")) (#&(Rule "UVSC@EM|")) (#&(Rule "UISC@@PN")) (#&(Rule "FAS@@&Lp"))) ) (perspectiveNode #&(RuleSetNode "UVSC@ENH") myViewName Source) (created " 1-FEB-83 14:25:23") ( creator LOOPSCOURSE) (edited "23-JUN-83 09:55:11") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMJ") (indexedVars ((#&(Rule "UVSC@EOS")) (#&(Rule "UVSC@EOT")))) ( perspectiveNode #&(RuleSetNode "UVSC@EM@")) (created "22-JUN-83 16:47:34") (creator MITTAL) (edited "23-JUN-83 14:05:32") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMK") (indexedVars ((#&(Rule "UVSC@ENY")) (#&(Rule "UVSC@ENZ")))) ( perspectiveNode #&(RuleSetNode "UVSC@EMA")) (created "22-JUN-83 16:49:44") (creator MITTAL) (edited "23-JUN-83 09:48:00") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@ENN") (indexedVars ((#&(Rule "UVSC@EN[")) (#&(Rule "UVSC@EN\")) (#&(Rule "UVSC@EN]")) (#&(Rule "UNSC@8c")) (#&(Rule "UNSC@8d")) (#&(Rule "UNSC@8e")) (#&(Rule "UNSC@8f")))) ( perspectiveNode #&(RuleSetNode "UVSC@ENI") myViewName Source) (created " 1-FEB-83 14:25:34") (creator LOOPSCOURSE) (edited "23-JUN-83 10:04:26") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EML") (indexedVars ((#&(Rule "UVSC@EMZ")))) (perspectiveNode #&( RuleSetNode "UVSC@EMB")) (created "22-JUN-83 16:41:38") (creator MITTAL) (edited "22-JUN-83 16:46:04") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EO@") (indexedVars ((#&(Rule "UVSC@EOH")) (#&(Rule "UVSC@EOI")))) ( perspectiveNode #&(RuleSetNode "UVSC@EO?") myViewName Source) (created "27-JAN-83 00:31:21") (creator STEFIK) (edited "23-JUN-83 12:41:21") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMM") (indexedVars ((#&(Rule "UVSC@EM[")) (#&(Rule "UVSC@EM\")) (#&(Rule "UVSC@EM]")) (#&(Rule "UVSC@EM^")) (#&(Rule "UVSC@EM_")) (#&(Rule "UISC@AM\")) (#&(Rule "UISC@AM]")) (#&(Rule "UISC@AM^")))) (perspectiveNode #&(RuleSetNode "UVSC@EMC") myViewName Source) (created "18-FEB-83 22:45:14") (creator STEFIK) (edited "22-JUN-83 18:11:27") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@ENO") (indexedVars ((#&(Rule "UVSC@EN^")) (#&(Rule "UVSC@EN_")) (#&(Rule "UVSC@EN`")) (#&(Rule "UOSC@E\s")) (#&(Rule "UOSC@E\t")) (#&(Rule "UOSC@E\u")))) (perspectiveNode #&( RuleSetNode "UVSC@ENJ") myViewName Source) (created "19-MAY-83 17:26:44") (creator MITTAL) (edited "23-JUN-83 10:36:01") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMN") (indexedVars ((#&(Rule "UVSC@EOJ")) (#&(Rule "UVSC@EOK")) (#&(Rule "UVSC@EOL")))) (perspectiveNode #&(RuleSetNode "UVSC@EMD")) (created "22-JUN-83 17:30:30") (creator MITTAL) (edited "23-JUN-83 11:46:31") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMO") (indexedVars ((#&(Rule "UVSC@EOU")) (#&(Rule "UVSC@EOV")) (#&(Rule "UVSC@EOW")) (#&(Rule "UVSC@EOX")) (#&(Rule "UVSC@EOY")) (#&(Rule "UVSC@EOZ")) (#&(Rule "UVSC@EO[")) (#&(Rule "UVSC@EO\")))) (perspectiveNode #&(RuleSetNode "UVSC@EME")) (created "22-JUN-83 15:37:14") ( creator MITTAL) (edited "23-JUN-83 13:57:39") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMP") (indexedVars ((#&(Rule "UVSC@EMk")))) (perspectiveNode #&( RuleSetNode "UVSC@EMF")) (created "22-JUN-83 16:39:26") (creator MITTAL) (edited "22-JUN-83 16:40:24") (editor MITTAL)) (DEFINST RuleSetSource ("UVSC@EMQ") (indexedVars ((#&(Rule "UVSC@EOM")) (#&(Rule "UVSC@EO=")) (#&(Rule "UVSC@EON")) (#&(Rule "UVSC@EOO")) (#&(Rule "UVSC@EOP")) (#&(Rule "UVSC@EOQ")) (#&(Rule "UVSC@EOR")) (#&(Rule "UNSC@8g")))) (perspectiveNode #&(RuleSetNode "UVSC@EMG") myViewName Source) (created " 1-FEB-83 14:25:51") (creator LOOPSCOURSE) (edited "23-JUN-83 13:01:58") (editor MITTAL)) (DEFINST Rule ("UVSC@EOA") (source "(* Take action at current stop) -> realLocation_truck:location;") (edited "23-JUN-83 12:04:08") (editor MITTAL) (ruleNumber 1) ( ruleSet #&(RuleSet "UVSC@EN@"))) (DEFINST Rule ("UVSC@EOB") (source "IF stoppingPlace realLocation~=stoppingPlace THEN (WriteGameStatus %"Oh! %" driver %" didnt reach stoppingPlace%");") (edited "23-JUN-83 12:04:08" ) (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@EN@"))) (DEFINST Rule ("UVSC@EOC") (source "IF (ISA realLocation $GasStation) THEN .PurchaseGas;") (edited "23-JUN-83 12:04:08") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@EN@"))) (DEFINST Rule ("UVSC@ENy") (source "IF realLocation=destination THEN .CarryOutGoal destination_NIL;") (edited "23-JUN-83 12:04:08") (editor MITTAL) (ruleNumber 4) ( ruleSet #&(RuleSet "UVSC@EN@"))) (DEFINST Rule ("UNSC@8d") (source " IF (ISA realLocation $GasStation) THEN .BuyGas;") (edited "14-JUN-83 14:07:23") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "FRSC@$PA"))) (DEFINST Rule ("UNSC@8e") (source " IF (ISA realLocation $Producer) ~(ISA realLocation $GasStation) goal='Peddle realLocation=destination numBuy_(_ self MaxPurchase realLocation) numBuy>=1 THEN (_ \gameMaster Buy numBuy);") (edited "14-JUN-83 14:07:23") (editor MITTAL) (ruleNumber 6) ( ruleSet #&(RuleSet "FRSC@$PA"))) (DEFINST Rule ("UNSC@8f") (source " IF (ISA realLocation $Consumer) truck:cargo THEN .SellGoods;") (edited "14-JUN-83 14:07:23") (editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "FRSC@$PA"))) (DEFINST Rule ("UVSC@EMR") (source "IF prevGoal=goal THEN ;") (edited "22-JUN-83 17:25:00") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELu"))) (DEFINST Rule ("UVSC@EMS") (source "-> destination_(PickHiObj self 'RateGasStations (RoadStops $GasStation .Range)) direction_(DirectionOf destination);") (edited "22-JUN-83 17:25:00") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELu"))) (DEFINST Rule ("UVSC@ENS") (source "IF prevGoal=goal destination destination:qty>0 THEN ;") (edited "23-JUN-83 09:46:23") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELv"))) (DEFINST Rule ("UVSC@ENT") (source "IF sellers_(Sellers $Commodity) tdest_(PickHiObj self 'RateProducers sellers) THEN destination_tdest direction_(DirectionOf destination);") (edited "23-JUN-83 09:46:23") (editor MITTAL) ( ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELv"))) (DEFINST Rule ("UVSC@EOD") (source "(* Carry out goal, revising them if needed) IF goal << '(LeaveAlice SitTight GetClose GoToAlice) THEN ;") (edited "23-JUN-83 13:23:54") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ENA") )) (DEFINST Rule ("UVSC@EOE") (source "IF goal='BuyGas THEN goal_NIL;") (edited "23-JUN-83 13:23:54") ( editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ENA"))) (DEFINST Rule ("UVSC@EOF") (source "IF goal='Buy numBuy_(_ self MaxPurchase truck:location) numBuy>= 1 THEN (_ \gameMaster Buy numBuy);") (edited "23-JUN-83 13:23:54") (editor MITTAL) (ruleNumber 3) ( ruleSet #&(RuleSet "UVSC@ENA"))) (DEFINST Rule ("UVSC@EOG") (source "IF goal='Sell truck:cargo THEN .SellGoods;") (edited "23-JUN-83 13:23:54") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "UVSC@ENA"))) (DEFINST Rule ("UVSC@EMx") (source "(* Returns a stopping place en route to a destination.) IF truck:fuel=0 THEN stoppingPlace_(AnyRoadStop $UnionHall);") (edited "23-JUN-83 09:55:11") (editor MITTAL) ( ruleNumber 1) (ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("UVSC@EMy") (source "(* Obey the law - stop at WeighStations.) IF wStation_(NearestRoadStop (RoadStops $WeighStation .Range1 direction 'Room)) (Distance wStation)<(Distance destination) THEN stoppingPlace_wStation;") (edited "23-JUN-83 09:55:11") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("UVSC@EMz") (source "IF (Distance destination)<=.Range1 (RoomToParkP destination) THEN stoppingPlace_destination;") (edited "23-JUN-83 09:55:11") (editor MITTAL) (ruleNumber 3) ( ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("UVSC@EM{") (source "IF gasStation_(FurthestRoadStop (RoadStops $GasStation .Range1 direction 'Room)) gasStation:qty>0 THEN stoppingPlace_gasStation;") (edited "23-JUN-83 09:55:11") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("UVSC@EM|") (source "THEN stoppingPlace_(NthRoadStop \maxMove direction NIL 'Room);") (edited "23-JUN-83 09:55:11") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "UVSC@EMq"))) (DEFINST Rule ("UISC@@PN") (source "THEN stoppingPlace_(NthRoadStop \maxMove direction NIL 'Room);") (edited " 9-JUN-83 11:24:42") (editor STEFIK) (ruleNumber 6) (ruleSet #&(RuleSet "FRSC@$Oz"))) (DEFINST Rule ("FAS@@&Lp") (source NIL) (edited " 1-FEB-83 14:25:33") (editor "LOOPSCOURSE") ( ruleNumber 7) (ruleSet #&(RuleSet "FAS@@&Li")) (lhs (AND)) (rhs (SETQ ^value (PROGN (PROGN (* Rule Tracing Code) (TraceRHS NIL 7) (_ (GetObjFromUID "FAS@@&Lp") Print)) (NthRoadStop maxMove (GetValue self (QUOTE direction))))))) (DEFINST Rule ("UVSC@EOS") (source "IF prevGoal=goal alices (RoomToParkP alices) THEN ;") (edited "23-JUN-83 14:05:32") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELr"))) (DEFINST Rule ("UVSC@EOT") (source "-> alices_(NearestRoadStop(RoadStops $AlicesRestaurant )) destination_(PickHiObj self 'RateSpotsNearAlices (RoadStops)) direction_ (DirectionOf destination);") (edited "23-JUN-83 14:05:32") (editor MITTAL) (ruleNumber 2 ) (ruleSet #&(RuleSet "UVSC@ELr"))) (DEFINST Rule ("UVSC@ENY") (source "IF prevGoal=goal destination (RoomToParkP destination) THEN;") ( edited "23-JUN-83 09:48:00") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELs"))) (DEFINST Rule ("UVSC@ENZ") (source "IF tdest_ (NearestRoadStop(RoadStops $AlicesRestaurant NIL NIL T)) THEN destination_tdest direction _ (DirectionOf destination);") (edited "23-JUN-83 09:48:00") (editor MITTAL) ( ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELs"))) (DEFINST Rule ("UVSC@EN[") (source "(* Go to the stoppingPlace) IF stoppingPlace=truck:location THEN (WriteGameStatus %"Hm! %" driver %" already there%");") (edited "23-JUN-83 10:04:26") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@EN="))) (DEFINST Rule ("UVSC@EN\") (source "IF stoppingPlace.BanditP THEN (WriteGameStatus driver %" Not moving because of bandits%");") (edited "23-JUN-83 10:04:26") ( editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@EN="))) (DEFINST Rule ("UVSC@EN]") (source "-> (_ \gameMaster Move stoppingPlace);") (edited "23-JUN-83 10:04:26") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@EN="))) (DEFINST Rule ("UNSC@8c") (source " IF realLocation~=stoppingPlace THEN (WriteGameStatus %">> %" self %" intercepted!%");") (edited "14-JUN-83 14:07:23") (editor MITTAL ) (ruleNumber 4) (ruleSet #&(RuleSet "FRSC@$PA"))) (DEFINST Rule ("UVSC@EMZ") (source "-> destination_ (NearestRoadStop (RoadStops $RoadStop NIL NIL T)) direction_ (DirectionOf destination);") (edited "22-JUN-83 16:46:04") (editor MITTAL) (ruleNumber 1 ) (ruleSet #&(RuleSet "UVSC@ELq"))) (DEFINST Rule ("UVSC@EOH") (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 "23-JUN-83 12:41:21") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ENx"))) (DEFINST Rule ("UVSC@EOI") (source "(* Now appropriate quantity has been computed) IF qty>0 THEN (_ \gameMaster Buy qty );") (edited "23-JUN-83 12:41:21") (editor MITTAL) (ruleNumber 2) ( ruleSet #&(RuleSet "UVSC@ENx"))) (DEFINST Rule ("UVSC@EM[") (source " (* Rate the suitability of a proposed Consumer.) -> cargo _ (CAR truck:cargo) rating_0;") (edited "22-JUN-83 18:11:27") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("UVSC@EM\") (source "(* Need to be able to park) IF ~(RoomToParkP roadStop) THEN rating _ rating - 500;") (edited "22-JUN-83 18:11:27") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("UVSC@EM]") (source "(* Exclude consumers that have full inventory.) IF roadStop:qty < 1 THEN rating _ rating - 1000;") (edited "22-JUN-83 18:11:27") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("UVSC@EM^") (source "(* Favor high price ratios.) -> rating _ rating + 100 * roadStop:pr ;") (edited "22-JUN-83 18:11:27") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("UVSC@EM_") (source "(* Favor close places.) -> rating _ rating - [truck::Gpm *(Distance roadStop truck:location)];") (edited "22-JUN-83 18:11:27") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "UVSC@EL|"))) (DEFINST Rule ("UISC@AM\") (source "(* Exclude consumers that have full inventory.) IF roadStop:qty < 1 THEN rating _ rating - 1000;") (edited " 9-JUN-83 21:28:08") (editor STEFIK) (ruleNumber 6) (ruleSet #&(RuleSet "FRSC@$RX"))) (DEFINST Rule ("UISC@AM]") (source "(* Favor high price ratios.) -> rating _ rating + 100 * roadStop:pr ;") (edited " 9-JUN-83 21:28:08") (editor STEFIK) (ruleNumber 7) (ruleSet #&(RuleSet "FRSC@$RX"))) (DEFINST Rule ("UISC@AM^") (source "(* Favor close places.) -> rating _ rating - [truck::Gpm *(Distance roadStop truck:location)];") (edited " 9-JUN-83 21:28:08") (editor STEFIK) (ruleNumber 8) (ruleSet #&(RuleSet "FRSC@$RX"))) (DEFINST Rule ("UVSC@EN^") (source "(* rate gas stations within range) THEN rating _ 0;") (edited "23-JUN-83 10:36:01") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ENC"))) (DEFINST Rule ("UVSC@EN_") (source "IF rs:qty=0 THEN rating _ -2000;") (edited "23-JUN-83 10:36:01") (editor MITTAL) (ruleNumber 2) (ruleSet #&( RuleSet "UVSC@ENC"))) (DEFINST Rule ("UVSC@EN`") (source "IF ~(RoomToParkP rs) THEN rating _ rating - 200;") (edited "23-JUN-83 10:36:01") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@ENC"))) (DEFINST Rule ("UOSC@E\s") (source "IF rs.BanditP THEN rating _ rating - 200;") (edited "15-JUN-83 17:46:12") (editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("UOSC@E\t") (source " THEN rating _ rating - [10 * (Distance rs truck:location)];") ( edited "15-JUN-83 17:46:12") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("UOSC@E\u") (source " THEN rating _ rating + (IMIN rs:qty truck::MaxFuel);") (edited "15-JUN-83 17:46:12") (editor MITTAL) (ruleNumber 6) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("UVSC@EOJ") (source "IF has_(CAR truck:cargo) prevGoal=goal has:status destination destination:qty>0 THEN;") (edited "23-JUN-83 11:46:31") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELx"))) (DEFINST Rule ("UVSC@EOK") (source "IF ~has:status tdest_(PickHiObj self 'RateDumps (RoadStops $CityDump)) THEN destination_tdest direction_(DirectionOf destination);") (edited "23-JUN-83 11:46:31") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELx"))) (DEFINST Rule ("UVSC@EOL") (source "IF tdest_(PickHiObj self 'RateConsumers (Buyers has)) THEN destination_tdest direction_(DirectionOf destination);") (edited "23-JUN-83 11:46:31") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "UVSC@ELx"))) (DEFINST Rule ("UVSC@EOU") (source "(* Sets the goal) IF (ISA truck:location $AlicesRestaurant) .TimeAtStop>=25 THEN goal_'LeaveAlice;") (edited "23-JUN-83 13:57:39") (editor MITTAL) (ruleNumber 1) (ruleSet #&( RuleSet "UVSC@ELo"))) (DEFINST Rule ("UVSC@EOV") (source "IF goal << '(SitTight BuyGas) THEN ;") (edited "23-JUN-83 13:57:39") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("UVSC@EOW") (source "IF goal='GoToAlice (ISA truck:location $AlicesRestaurant) THEN goal_'SitTight;") (edited "23-JUN-83 13:57:39") (editor MITTAL) (ruleNumber 3) (ruleSet #&( RuleSet "UVSC@ELo"))) (DEFINST Rule ("UVSC@EOX") (source "IF \gameMaster:timeRemaining <30 THEN goal_'GoToAlice higherGoal_'GoToAlice;") (edited "23-JUN-83 13:57:39") (editor MITTAL) ( ruleNumber 4) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("UVSC@EOY") (source "IF truck:fuel < .25 * truck::MaxFuel truck:cashBox > 0 THEN higherGoal_goal goal_'BuyGas;") (edited "23-JUN-83 13:57:39") (editor MITTAL) (ruleNumber 5) ( ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("UVSC@EOZ") (source "IF \gameMaster:timeRemaining < 60 THEN goal_'GetClose higherGoal_'GoToAlice;") (edited "23-JUN-83 13:57:39") (editor MITTAL) ( ruleNumber 6) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("UVSC@EO[") (source "IF truck:cargo THEN goal_'Sell;") (edited "23-JUN-83 13:57:39") (editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("UVSC@EO\") (source "-> goal_'Buy;") (edited "23-JUN-83 13:57:39") (editor MITTAL) ( ruleNumber 8) (ruleSet #&(RuleSet "UVSC@ELo"))) (DEFINST Rule ("UVSC@EMk") (source "-> destination_NIL;") (edited "22-JUN-83 16:40:24") (editor MITTAL ) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELp"))) (DEFINST Rule ("UVSC@EOM") (source " (* Top-Level RuleSet for taking turns. Sets goal and destination.) (* this is for cases when gas station replenished since last turn) IF (ISA truck:location $GasStation) THEN .PurchaseGas;") (edited "23-JUN-83 13:01:58") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("UVSC@EO=") (source " -> prevGoal_goal;") (edited "23-JUN-83 13:01:58") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("UVSC@EON") (source " -> .SetGoal;") (edited "23-JUN-83 13:01:58") (editor MITTAL) ( ruleNumber 3) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("UVSC@EOO") (source "IF goal THEN (_! self goal);") (edited "23-JUN-83 13:01:58") ( editor MITTAL) (ruleNumber 4) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("UVSC@EOP") (source "IF destination THEN .FindStoppingPlace;") (edited "23-JUN-83 13:01:58") (editor MITTAL) (ruleNumber 5) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("UVSC@EOQ") (source "(* the second action may be split into a separate rule and moved to the top) IF destination stoppingPlace THEN .GoToStoppingPlace .AtCurrentStop;") (edited "23-JUN-83 13:01:58") (editor MITTAL) (ruleNumber 6) (ruleSet #&( RuleSet "UVSC@ELg"))) (DEFINST Rule ("UVSC@EOR") (source "(* this clause may be moved to the top) -> .AtCurrentStop;") (edited "23-JUN-83 12:57:12") (editor MITTAL) (ruleNumber 7) (ruleSet #&(RuleSet "UVSC@ELg"))) (DEFINST Rule ("UNSC@8g") (source "IF ~(OR goal='SitTight (AND goal='GetClose (Distance truck:location alices)<=3)) THEN .GoToStoppingPlace;") (edited "14-JUN-83 14:29:23") (editor MITTAL) (ruleNumber 8) (ruleSet #&( RuleSet "YQSC@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 (TakeTurnPeddlerRules "YQSC@s") (perspectives ? RuleSet #&(RuleSet "YSSC@<>m") Source #&( RuleSetSource "YSSC@<>u"))) (DEFINST RuleSetNode ("YQSC@<@I") (perspectives ? RuleSet #&(RuleSet "YQSC@u") (indexedVars ((#&(Rule "UOSC@E\p")) (#&(Rule "UOSC@E\q")) (#&(Rule "UOSC@E\r")) (#&(Rule "UOSC@E\s")) (#&(Rule "UOSC@E\t")) (#&(Rule "UOSC@E\u")))) (perspectiveNode #&( RuleSetNode "YSSC@<>s") myViewName Source) (created "19-MAY-83 17:26:44") (creator MITTAL) (edited "15-JUN-83 17:46:12") (editor MITTAL)) (DEFINST RuleSetSource ("YQSC@<@J") (indexedVars ((#&(Rule "UNSC@8F")) (#&(Rule "UNSC@8G")) (#&(Rule "UNSC@8H")) (#&(Rule "UNSC@8I")) (#&(Rule "UNSC@8J")) (#&(Rule "UNSC@8K")) (#&(Rule "UNSC@8L")) (#&( Rule "UNSC@8g")))) (perspectiveNode #&(RuleSetNode "YQSC@<@I") myViewName Source) (created " 1-FEB-83 14:25:51") (creator LOOPSCOURSE) (edited "14-JUN-83 14:29:23") (editor MITTAL)) (DEFINST Rule ("UNSC@8E") (source " -> direction_(DirectionOf destination);") (edited "14-JUN-83 14:07:23") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "FRSC@$PA"))) (DEFINST Rule ("UNSC@8a") (source " IF .FindStoppingPlace stoppingPlace~=truck:location ~stoppingPlace.BanditP THEN (_ \gameMaster Move stoppingPlace);") (edited "14-JUN-83 14:07:23") (editor MITTAL) (ruleNumber 2) (ruleSet #&(RuleSet "FRSC@$PA"))) (DEFINST Rule ("UNSC@8b") (source " -> realLocation_truck:location;") (edited "14-JUN-83 14:07:23") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "FRSC@$PA"))) (DEFINST Rule ("UISC@@PI") (source "(* Returns a stopping place en route to a destination.) IF truck:fuel=0 THEN stoppingPlace_(AnyRoadStop $UnionHall);") (edited " 9-JUN-83 11:24:42") (editor STEFIK) ( ruleNumber 1) (ruleSet #&(RuleSet "FRSC@$Oz"))) (DEFINST Rule ("UISC@@PJ") (source "(* Dont run out of gas.) IF goal~='SitTight truck:fuel < .25 * truck::MaxFuel truck:cashBox>0 gasStation_(NearestRoadStop (RoadStops $GasStation .Range1 NIL 'Room)) THEN stoppingPlace_gasStation;") (edited " 9-JUN-83 11:24:42") (editor STEFIK) (ruleNumber 2) (ruleSet #&(RuleSet "FRSC@$Oz"))) (DEFINST Rule ("UISC@@PK") (source "(* Obey the law - stop at WeighStations.) IF wStation_(NearestRoadStop (RoadStops $WeighStation .Range1 direction 'Room)) (Distance wStation)<(Distance destination) THEN stoppingPlace_wStation;") (edited " 9-JUN-83 11:24:42") (editor STEFIK) (ruleNumber 3) (ruleSet #&(RuleSet "FRSC@$Oz"))) (DEFINST Rule ("UISC@@PL") (source "IF (Distance destination)<=.Range1 (RoomToParkP destination) THEN stoppingPlace_destination;") (edited " 9-JUN-83 11:24:42") (editor STEFIK) (ruleNumber 4) ( ruleSet #&(RuleSet "FRSC@$Oz"))) (DEFINST Rule ("UISC@@PM") (source "IF gasStation_(FurthestRoadStop (RoadStops $GasStation .Range1 direction 'Room)) gasStation:qty>0 THEN stoppingPlace_gasStation;") (edited " 9-JUN-83 11:24:42") (editor STEFIK) (ruleNumber 5) (ruleSet #&(RuleSet "FRSC@$Oz"))) (DEFINST Rule ("FPSC@$Lw") (source "(* Returns a stopping place en route to a destination.) IF truck:fuel=0 THEN (AnyRoadStop $UnionHall);") (edited "16-FEB-83 14:44:17") (editor STEFIK) (ruleNumber) (ruleSet #&(RuleSet "FAS@@&Li"))) (DEFINST Rule ("FPSC@$Lx") (source "(* Dont run out if gas.) IF truck:fuel < .25 * truck::MaxFuel truck:cashBox>0 gasStation_(NearestRoadStop (RoadStops $GasStation .Range1 NIL 'Room)) THEN gasStation;") (edited "16-FEB-83 14:44:17") (editor STEFIK) (ruleNumber) (ruleSet #&(RuleSet "FAS@@&Li"))) (DEFINST Rule ("FPSC@$Ly") (source "(* Obey the law - stop at WeighStations.) IF wStation_(NearestRoadStop (RoadStops $WeighStation .Range1 direction 'Room)) (Distance wStation)<(Distance destination) THEN wStation;") (edited "16-FEB-83 14:44:17") (editor STEFIK) (ruleNumber) (ruleSet #&(RuleSet "FAS@@&Li"))) (DEFINST Rule ("FPSC@$Lz") (source "IF (Distance destination)<=.Range1 THEN destination;") (edited "16-FEB-83 14:44:17") (editor STEFIK) (ruleNumber) (ruleSet #&(RuleSet "FAS@@&Li"))) (DEFINST Rule ("FPSC@$L{") (source "IF gasStation_(FurthestRoadStop (RoadStops $GasStation .Range1 direction)) THEN gasStation;") (edited "16-FEB-83 14:44:17") (editor STEFIK) (ruleNumber) (ruleSet #&(RuleSet "FAS@@&Li"))) (DEFINST Rule ("FPSC@$L|") (source "THEN (NthRoadStop maxMove direction);") (edited "16-FEB-83 14:44:17") (editor STEFIK) (ruleNumber) (ruleSet #&(RuleSet "FAS@@&Li"))) (DEFINST Rule ("UISC@AMW") (source " (* Rate the suitability of a proposed Consumer.) -> cargo _ (CAR truck:cargo) rating_0;") (edited " 9-JUN-83 21:28:08") (editor STEFIK) (ruleNumber 1) (ruleSet #&(RuleSet "FRSC@$RX"))) (DEFINST Rule ("UISC@AMX") (source "(* if spoiled go to CityDump) IF ~cargo:status (ISA roadStop $CityDump) THEN (STOP 5000 'CityDump 'LookNoMore);") (edited " 9-JUN-83 21:28:08") (editor STEFIK) (ruleNumber 2) (ruleSet #&(RuleSet "FRSC@$RX"))) (DEFINST Rule ("UISC@AMY") (source "IF ~cargo:status THEN (STOP NIL 'SpoiltGoods 'CannotSell);") (edited " 9-JUN-83 21:28:08") (editor STEFIK) (ruleNumber 3) (ruleSet #&(RuleSet "FRSC@$RX"))) (DEFINST Rule ("UISC@AMZ") (source "(* Consumer must want current cargo.) IF ~(ISA cargo roadStop::Commodity) THEN rating _ rating - 5000;") (edited " 9-JUN-83 21:28:08") (editor STEFIK) (ruleNumber 4) (ruleSet #&(RuleSet "FRSC@$RX"))) (DEFINST Rule ("UISC@AM[") (source "(* Need to be able to park) IF ~(RoomToParkP roadStop) THEN rating _ rating - 500;") (edited " 9-JUN-83 21:28:08") (editor STEFIK) (ruleNumber 5) (ruleSet #&(RuleSet "FRSC@$RX"))) (DEFINST Rule ("UOSC@E\p") (source "(* rate gas stations within range) THEN rating _ 0;") (edited "15-JUN-83 17:46:12") (editor MITTAL) (ruleNumber 1) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("UOSC@E\q") (source "IF rs:qty=0 THEN rating _ -2000;") (edited "15-JUN-83 17:46:12") (editor MITTAL) (ruleNumber 2) (ruleSet #&( RuleSet "YSSC@<>m"))) (DEFINST Rule ("UOSC@E\r") (source "IF ~(RoomToParkP rs) THEN rating _ rating - 200;") (edited "15-JUN-83 17:46:12") (editor MITTAL) (ruleNumber 3) (ruleSet #&(RuleSet "YSSC@<>m"))) (DEFINST Rule ("UNSC@8F") (source " (* Top-Level RuleSet for taking turns. Sets goal and destination.) IF ~goal THEN goal_'Peddle;") (edited "14-JUN-83 14:29:23") (editor MITTAL) (ruleNumber 1) (ruleSet #&( RuleSet "YQSC@ 25 goal='SitTight THEN alices_(NearestRoadStop (RoadStops $AlicesRestaurant)) destination_ (PickHiObj self 'RateSpotsNearAlices (RoadStops)) goal_'GetClose;") (edited "14-JUN-83 14:29:23") (editor MITTAL) (ruleNumber 5) (ruleSet #&( RuleSet "YQSC@