bin/ai/regression/tst_stationlist/main.nut

   1 /* $Id$ */
   2
   3 class Regression extends AIController {
   4         function Start();
   5 };
   6
   7
   8 function Regression::StationList()
   9 {
  10         local list = AIStationList(AIStation.STATION_BUS_STOP + AIStation.STATION_TRUCK_STOP);
  11
  12         print("");
  13         print("--StationList--");
  14         print("  Count():             " + list.Count());
  15         list.Valuate(AIStation.GetLocation);
  16         print("  Location ListDump:");
  17         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  18                 print("    " + i + " => " + list.GetValue(i));
  19         }
  20         list.Valuate(AIStation.GetCargoWaiting, 0);
  21         print("  CargoWaiting(0) ListDump:");
  22         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  23                 print("    " + i + " => " + list.GetValue(i));
  24         }
  25         list.Valuate(AIStation.GetCargoWaiting, 1);
  26         print("  CargoWaiting(1) ListDump:");
  27         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  28                 print("    " + i + " => " + list.GetValue(i));
  29         }
  30 };
  31
  32 function Regression::StationList_Cargo()
  33 {
  34         print("");
  35         print("--StationList_Cargo--");
  36
  37         for (local mode = AIStationList_Cargo.CM_WAITING; mode <= AIStationList_Cargo.CM_PLANNED; ++mode) {
  38                 print("  " + mode);
  39                 for (local selector = AIStationList_Cargo.CS_BY_FROM; selector <= AIStationList_Cargo.CS_FROM_BY_VIA ; ++selector) {
  40                         print("    " + selector);
  41                         local list = AIStationList_Cargo(mode, selector, 6, 0, 7);
  42                         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  43                                 print("      " + i + " => " + list.GetValue(i));
  44                         }
  45                 }
  46         }
  47 };
  48
  49 function Regression::StationList_CargoPlanned()
  50 {
  51         print("");
  52         print("--StationList_CargoPlanned--");
  53
  54         for (local selector = AIStationList_Cargo.CS_BY_FROM; selector <= AIStationList_Cargo.CS_FROM_BY_VIA; ++selector) {
  55                 print("    " + selector);
  56                 local list = AIStationList_CargoPlanned(selector, 6, 0, 7);
  57                 for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  58                         print("      " + i + " => " + list.GetValue(i));
  59                 }
  60         }
  61 };
  62
  63 function Regression::StationList_CargoPlannedByFrom()
  64 {
  65         print("");
  66         print("--StationList_CargoPlannedByFrom--");
  67         local list = AIStationList_CargoPlannedByFrom(2, 0);
  68         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  69                 print("      " + i + " => " + list.GetValue(i));
  70         }
  71 };
  72
  73 function Regression::StationList_CargoPlannedByVia()
  74 {
  75         print("");
  76         print("--StationList_CargoPlannedByVia--");
  77         local list = AIStationList_CargoPlannedByVia(2, 0);
  78         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  79                 print("      " + i + " => " + list.GetValue(i));
  80         }
  81 };
  82
  83 function Regression::StationList_CargoPlannedViaByFrom()
  84 {
  85         print("");
  86         print("--StationList_CargoPlannedViaByFrom--");
  87         local list = AIStationList_CargoPlannedViaByFrom(6, 0, 7);
  88         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  89                 print("      " + i + " => " + list.GetValue(i));
  90         }
  91 };
  92
  93 function Regression::StationList_CargoPlannedFromByVia()
  94 {
  95         print("");
  96         print("--StationList_CargoPlannedFromByVia--");
  97         local list = AIStationList_CargoPlannedFromByVia(6, 0, 7);
  98         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
  99                 print("      " + i + " => " + list.GetValue(i));
 100         }
 101 };
 102
 103 function Regression::StationList_CargoWaiting()
 104 {
 105         print("");
 106         print("--StationList_CargoWaiting--");
 107
 108         for (local selector = AIStationList_Cargo.CS_BY_FROM; selector <= AIStationList_Cargo.CS_FROM_BY_VIA; ++selector) {
 109                 print("    " + selector);
 110                 local list = AIStationList_CargoWaiting(selector, 6, 0, 7);
 111                 for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 112                         print("      " + i + " => " + list.GetValue(i));
 113                 }
 114         }
 115 };
 116
 117 function Regression::StationList_CargoWaitingByFrom()
 118 {
 119         print("");
 120         print("--StationList_CargoWaitingByFrom--");
 121         local list = AIStationList_CargoWaitingByFrom(2, 0);
 122         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 123                 print("      " + i + " => " + list.GetValue(i));
 124         }
 125 };
 126
 127 function Regression::StationList_CargoWaitingByVia()
 128 {
 129         print("");
 130         print("--StationList_CargoWaitingByVia--");
 131         local list = AIStationList_CargoWaitingByVia(2, 0);
 132         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 133                 print("      " + i + " => " + list.GetValue(i));
 134         }
 135 };
 136
 137 function Regression::StationList_CargoWaitingViaByFrom()
 138 {
 139         print("");
 140         print("--StationList_CargoWaitingViaByFrom--");
 141         local list = AIStationList_CargoWaitingViaByFrom(6, 0, 7);
 142         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 143                 print("      " + i + " => " + list.GetValue(i));
 144         }
 145 };
 146
 147 function Regression::StationList_CargoWaitingFromByVia()
 148 {
 149         print("");
 150         print("--StationList_CargoWaitingFromByVia--");
 151         local list = AIStationList_CargoWaitingFromByVia(2, 0, 2);
 152         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 153                 print("      " + i + " => " + list.GetValue(i));
 154         }
 155 };
 156
 157 function Regression::StationList_Vehicle()
 158 {
 159         local list = AIStationList_Vehicle(12);
 160
 161         print("");
 162         print("--StationList_Vehicle--");
 163         print("  Count():             " + list.Count());
 164         list.Valuate(AIStation.GetLocation);
 165         print("  Location ListDump:");
 166         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 167                 print("    " + i + " => " + list.GetValue(i));
 168         }
 169         list.Valuate(AIStation.GetCargoWaiting, 0);
 170         print("  CargoWaiting(0) ListDump:");
 171         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 172                 print("    " + i + " => " + list.GetValue(i));
 173         }
 174         list.Valuate(AIStation.GetCargoWaiting, 1);
 175         print("  CargoWaiting(1) ListDump:");
 176         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 177                 print("    " + i + " => " + list.GetValue(i));
 178         }
 179         list.Valuate(AIStation.GetCargoRating, 1);
 180         print("  CargoRating(1) ListDump:");
 181         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 182                 print("    " + i + " => " + list.GetValue(i));
 183         }
 184         list.Valuate(AIStation.GetDistanceManhattanToTile, 30000);
 185         print("  DistanceManhattanToTile(30000) ListDump:");
 186         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 187                 print("    " + i + " => " + list.GetValue(i));
 188         }
 189         list.Valuate(AIStation.GetDistanceSquareToTile, 30000);
 190         print("  DistanceSquareToTile(30000) ListDump:");
 191         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 192                 print("    " + i + " => " + list.GetValue(i));
 193         }
 194         list.Valuate(AIStation.IsWithinTownInfluence, 0);
 195         print("  IsWithinTownInfluence(0) ListDump:");
 196         for (local i = list.Begin(); !list.IsEnd(); i = list.Next()) {
 197                 print("    " + i + " => " + list.GetValue(i));
 198         }
 199 }
 200
 201 function Regression::Start()
 202 {
 203         StationList();
 204         StationList_Cargo();
 205         StationList_CargoPlanned();
 206         StationList_CargoPlannedByFrom();
 207         StationList_CargoPlannedByVia();
 208         StationList_CargoPlannedViaByFrom();
 209         StationList_CargoPlannedFromByVia();
 210         StationList_CargoWaiting();
 211         StationList_CargoWaitingByFrom();
 212         StationList_CargoWaitingByVia();
 213         StationList_CargoWaitingViaByFrom();
 214         StationList_CargoWaitingFromByVia();
 215         StationList_Vehicle();
 216 }