From 8898ad9b25fca6afe2374d293a981db02a83d7e9 Mon Sep 17 00:00:00 2001 From: "FWoltermann@gmail.com" Date: Thu, 31 May 2012 14:46:27 +0000 Subject: Committing the documentation to svn to have it accessible online --- .../html/_campaign_plan_event_8cpp_source.html | 1393 ++++++++++++++++++++ 1 file changed, 1393 insertions(+) create mode 100644 Doc/doxygen/html/_campaign_plan_event_8cpp_source.html (limited to 'Doc/doxygen/html/_campaign_plan_event_8cpp_source.html') diff --git a/Doc/doxygen/html/_campaign_plan_event_8cpp_source.html b/Doc/doxygen/html/_campaign_plan_event_8cpp_source.html new file mode 100644 index 0000000..6537349 --- /dev/null +++ b/Doc/doxygen/html/_campaign_plan_event_8cpp_source.html @@ -0,0 +1,1393 @@ + + + + + +Starshatter_Open: D:/SRC/StarshatterSVN/Stars45/CampaignPlanEvent.cpp Source File + + + + + + + + + + + + + +
+
+ + + + + + +
+
Starshatter_Open +
+
Open source Starshatter engine
+
+
+ + + + + +
+
+ +
+
+
+ +
+ + + + +
+ +
+ +
+
+
CampaignPlanEvent.cpp
+
+
+Go to the documentation of this file.
1 /* Project Starshatter 4.5
+
2  Destroyer Studios LLC
+
3  Copyright © 1997-2004. All Rights Reserved.
+
4 
+
5  SUBSYSTEM: Stars.exe
+
6  FILE: CampaignPlanEvent.cpp
+
7  AUTHOR: John DiCamillo
+
8 
+
9 
+
10  OVERVIEW
+
11  ========
+
12  CampaignPlanEvent generates simulated combat
+
13  events based on a statistical analysis of the
+
14  combatants within the context of a dynamic
+
15  campaign.
+
16 */
+
17 
+
18 #include "MemDebug.h"
+
19 #include "CampaignPlanEvent.h"
+
20 #include "Campaign.h"
+
21 #include "Combatant.h"
+
22 #include "CombatAction.h"
+
23 #include "CombatAssignment.h"
+
24 #include "CombatEvent.h"
+
25 #include "CombatGroup.h"
+
26 #include "CombatUnit.h"
+
27 #include "CombatZone.h"
+
28 #include "Mission.h"
+
29 #include "Random.h"
+
30 #include "Ship.h"
+
31 #include "ShipDesign.h"
+
32 #include "FormatUtil.h"
+
33 
+
34 // +--------------------------------------------------------------------+
+
35 
+
36 CampaignPlanEvent::CampaignPlanEvent(Campaign* c)
+
37 : CampaignPlan(c), event_time(0)
+
38 {
+
39  if (campaign) {
+
40  event_time = (int) campaign->GetTime();
+
41  }
+
42 }
+
43 
+
44 CampaignPlanEvent::~CampaignPlanEvent()
+
45 { }
+
46 
+
47 // +--------------------------------------------------------------------+
+
48 
+
49 void
+
50 CampaignPlanEvent::ExecFrame()
+
51 {
+
52  if (campaign && campaign->IsActive()) {
+
53  if (!campaign->GetPlayerGroup())
+
54  return;
+
55 
+
56  // once every twenty minutes is plenty:
+
57  if (Campaign::Stardate() - exec_time < 1200)
+
58  return;
+
59 
+
60  if (!ExecScriptedEvents())
+
61  ExecStatisticalEvents();
+
62 
+
63  exec_time = Campaign::Stardate();
+
64  event_time = (int) campaign->GetTime();
+
65  }
+
66 }
+
67 
+
68 void
+
69 CampaignPlanEvent::SetLockout(int seconds)
+
70 {
+
71  exec_time = Campaign::Stardate() + seconds;
+
72 }
+
73 
+
74 // +--------------------------------------------------------------------+
+
75 
+
76 bool
+
77 CampaignPlanEvent::ExecScriptedEvents()
+
78 {
+
79  bool scripted_event = false;
+
80 
+
81  if (campaign) {
+
82  ListIter<CombatAction> iter = campaign->GetActions();
+
83  while (++iter) {
+
84  CombatAction* action = iter.value();
+
85 
+
86  if (action->IsAvailable()) {
+
87 
+
88  switch (action->Type()) {
+
89  case CombatAction::COMBAT_EVENT:
+
90  {
+
91  CombatEvent* event = new(__FILE__,__LINE__)
+
92  CombatEvent(campaign,
+
93  action->Subtype(),
+
94  (int) campaign->GetTime(),
+
95  action->GetIFF(),
+
96  action->Source(),
+
97  action->Region());
+
98 
+
99  if (!event)
+
100  return false;
+
101 
+
102  event->SetTitle(action->GetText());
+
103 
+
104  if (*action->Filename() != 0)
+
105  event->SetFilename(action->Filename());
+
106 
+
107  if (*action->ImageFile() != 0)
+
108  event->SetImageFile(action->ImageFile());
+
109 
+
110  if (*action->SceneFile() != 0)
+
111  event->SetSceneFile(action->SceneFile());
+
112 
+
113  event->Load();
+
114 
+
115  ProsecuteKills(action);
+
116  campaign->GetEvents().append(event);
+
117 
+
118  action->FireAction();
+
119  scripted_event = true;
+
120 
+
121  if (action->Subtype() == CombatEvent::CAMPAIGN_END) {
+
122  ::Print(">>>>> CAMPAIGN %d END (Action %03d) <<<<<\n", campaign->GetCampaignId(), action->Identity());
+
123  campaign->SetStatus(Campaign::CAMPAIGN_SUCCESS);
+
124  }
+
125 
+
126  else if (action->Subtype() == CombatEvent::CAMPAIGN_FAIL) {
+
127  ::Print(">>>>> CAMPAIGN %d FAIL (Action %03d) <<<<<\n", campaign->GetCampaignId(), action->Identity());
+
128  campaign->SetStatus(Campaign::CAMPAIGN_FAILED);
+
129  }
+
130  }
+
131  break;
+
132 
+
133  case CombatAction::STRATEGIC_DIRECTIVE:
+
134  {
+
135  CombatGroup* g = campaign->FindGroup(action->GetIFF(),
+
136  action->AssetType(),
+
137  action->AssetId());
+
138 
+
139  if (g) {
+
140  g->SetStrategicDirection(action->GetText());
+
141  action->FireAction();
+
142  }
+
143  else {
+
144  action->FailAction();
+
145  }
+
146 
+
147  scripted_event = true;
+
148  }
+
149  break;
+
150 
+
151  case CombatAction::CAMPAIGN_SITUATION:
+
152  {
+
153  campaign->SetSituation(action->GetText());
+
154  action->FireAction();
+
155  scripted_event = true;
+
156  }
+
157  break;
+
158 
+
159  case CombatAction::CAMPAIGN_ORDERS:
+
160  {
+
161  campaign->SetOrders(action->GetText());
+
162  action->FireAction();
+
163  scripted_event = true;
+
164  }
+
165  break;
+
166 
+
167  case CombatAction::INTEL_EVENT:
+
168  {
+
169  CombatGroup* g = campaign->FindGroup(action->GetIFF(),
+
170  action->AssetType(),
+
171  action->AssetId());
+
172 
+
173  if (g) {
+
174  g->SetIntelLevel(action->Subtype());
+
175  action->FireAction();
+
176  }
+
177  else {
+
178  ::Print("WARNING: Action %d (intel level) Could not find group (IFF:%d, type:%d, id:%d)\n",
+
179  action->Identity(),
+
180  action->GetIFF(),
+
181  action->AssetType(),
+
182  action->AssetId());
+
183 
+
184  action->FailAction();
+
185  }
+
186 
+
187  scripted_event = true;
+
188  }
+
189  break;
+
190 
+
191  case CombatAction::ZONE_ASSIGNMENT:
+
192  {
+
193  CombatGroup* g = campaign->FindGroup(action->GetIFF(),
+
194  action->AssetType(),
+
195  action->AssetId());
+
196 
+
197  if (g) {
+
198  bool found = false;
+
199 
+
200  if (*action->Region()) {
+
201  CombatZone* zone = campaign->GetZone(action->Region());
+
202 
+
203  if (zone) {
+
204  g->SetAssignedZone(zone);
+
205  g->SetZoneLock(true);
+
206  found = true;
+
207 
+
208  // don't announce the move unless it's for the player's team:
+
209  if (action->GetIFF() == campaign->GetPlayerIFF() && _stricmp(action->GetText(), "do-not-display")) {
+
210  CombatEvent* event = new(__FILE__,__LINE__)
+
211  CombatEvent(campaign,
+
212  CombatEvent::MOVE_TO,
+
213  (int) campaign->GetTime(),
+
214  action->GetIFF(),
+
215  CombatEvent::FORCOM,
+
216  action->Region());
+
217 
+
218  if (!event)
+
219  return false;
+
220 
+
221  Text title = Text(g->Name()) + " Orders: Proceed to " + action->Region() + " Sector";
+
222  event->SetTitle(title);
+
223 
+
224  double eta = campaign->GetTime() + 3600;
+
225  eta -= fmod(eta, 1800);
+
226 
+
227  char text[64];
+
228  FormatDayTime(text, eta);
+
229 
+
230  Text info = "ORDERS:\n\nEffective immediately, ";
+
231  info += g->GetDescription();
+
232  info += " and all associated units shall proceed to ";
+
233  info += action->Region();
+
234  info += " sector and commence spaceborne operations in that area. ETA rendevous point ";
+
235  info += text;
+
236  info += ".\n\nFleet Admiral A. Evars FORCOM\nCommanding";
+
237 
+
238  event->SetInformation(info);
+
239 
+
240  if (*action->ImageFile() != 0)
+
241  event->SetImageFile(action->ImageFile());
+
242 
+
243  if (*action->SceneFile() != 0)
+
244  event->SetSceneFile(action->SceneFile());
+
245 
+
246  event->Load();
+
247  campaign->GetEvents().append(event);
+
248  }
+
249  }
+
250  }
+
251 
+
252  if (!found) {
+
253  ::Print("WARNING: Action %d Could not find assigned zone '%s' for '%s'\n",
+
254  action->Identity(),
+
255  action->Region() ? action->Region() : "NULL",
+
256  g->Name().data());
+
257 
+
258  g->SetAssignedZone(0);
+
259  }
+
260 
+
261  action->FireAction();
+
262  }
+
263  else {
+
264  ::Print("WARNING: Action %d (zone assignment) Could not find group (IFF:%d, type:%d, id:%d)\n",
+
265  action->Identity(),
+
266  action->GetIFF(),
+
267  action->AssetType(),
+
268  action->AssetId());
+
269 
+
270  action->FailAction();
+
271  }
+
272 
+
273  scripted_event = true;
+
274  }
+
275  break;
+
276 
+
277  case CombatAction::SYSTEM_ASSIGNMENT:
+
278  {
+
279  CombatGroup* g = campaign->FindGroup(action->GetIFF(),
+
280  action->AssetType(),
+
281  action->AssetId());
+
282 
+
283  if (g) {
+
284  bool found = false;
+
285 
+
286  if (*action->System()) {
+
287  Text system = action->System();
+
288 
+
289  if (campaign->GetSystem(system)) {
+
290  g->SetAssignedSystem(system);
+
291  found = true;
+
292 
+
293  // don't announce the move unless it's for the player's team:
+
294  if (action->GetIFF() == campaign->GetPlayerIFF() && _stricmp(action->GetText(), "do-not-display")) {
+
295  CombatEvent* event = new(__FILE__,__LINE__)
+
296  CombatEvent(campaign,
+
297  CombatEvent::MOVE_TO,
+
298  (int) campaign->GetTime(),
+
299  action->GetIFF(),
+
300  CombatEvent::FORCOM,
+
301  action->Region());
+
302 
+
303  if (!event)
+
304  return false;
+
305 
+
306  Text title = Text(g->Name()) + " Orders: Proceed to " + action->System() + " System";
+
307  event->SetTitle(title);
+
308 
+
309  double eta = campaign->GetTime() + 3600;
+
310  eta -= fmod(eta, 1800);
+
311 
+
312  char text[64];
+
313  FormatDayTime(text, eta);
+
314 
+
315  Text info = "ORDERS:\n\nEffective immediately, ";
+
316  info += g->GetDescription();
+
317  info += " and all associated units shall proceed to the ";
+
318  info += action->System();
+
319  info += " star system and commence spaceborne operations in that area. ETA rendevous point ";
+
320  info += text;
+
321  info += ".\n\nFleet Admiral A. Evars FORCOM\nCommanding";
+
322 
+
323  event->SetInformation(info);
+
324 
+
325  if (*action->ImageFile() != 0)
+
326  event->SetImageFile(action->ImageFile());
+
327 
+
328  if (*action->SceneFile() != 0)
+
329  event->SetSceneFile(action->SceneFile());
+
330 
+
331  event->Load();
+
332  campaign->GetEvents().append(event);
+
333  }
+
334  }
+
335  }
+
336 
+
337  if (!found) {
+
338  ::Print("WARNING: Action %d Could not find assigned system '%s' for '%s'\n",
+
339  action->Identity(),
+
340  action->System() ? action->System() : "NULL",
+
341  g->Name().data());
+
342 
+
343  g->SetAssignedSystem("");
+
344  }
+
345 
+
346  action->FireAction();
+
347  }
+
348  else {
+
349  ::Print("WARNING: Action %d (system assignment) Could not find group (IFF:%d, type:%d, id:%d)\n",
+
350  action->Identity(),
+
351  action->GetIFF(),
+
352  action->AssetType(),
+
353  action->AssetId());
+
354 
+
355  action->FailAction();
+
356  }
+
357 
+
358  scripted_event = true;
+
359  }
+
360  break;
+
361 
+
362  case CombatAction::NO_ACTION:
+
363  action->FireAction();
+
364  scripted_event = true;
+
365  break;
+
366 
+
367  default:
+
368  break;
+
369  }
+
370  }
+
371  }
+
372  }
+
373 
+
374  return scripted_event;
+
375 }
+
376 
+
377 // +--------------------------------------------------------------------+
+
378 
+
379 void
+
380 CampaignPlanEvent::ProsecuteKills(CombatAction* action)
+
381 {
+
382  if (action->AssetKills().size() > 0) {
+
383  CombatGroup* g = campaign->FindGroup(action->GetIFF(),
+
384  action->AssetType(),
+
385  action->AssetId());
+
386 
+
387  if (g) {
+
388  ListIter<Text> iter = action->AssetKills();
+
389  while (++iter) {
+
390  Text* name = iter.value();
+
391  CombatUnit* asset = g->FindUnit(*name);
+
392 
+
393  if (asset) {
+
394  int value_killed = asset->Kill(1);
+
395 
+
396  ListIter<Combatant> iter = campaign->GetCombatants();
+
397  while (++iter) {
+
398  Combatant* c = iter.value();
+
399  if (c->GetIFF() > 0 && c->GetIFF() != asset->GetIFF()) {
+
400  // damage to neutral assets must be scored to bad guys:
+
401  if (asset->GetIFF() > 0 || c->GetIFF() > 1) {
+
402  c->AddScore(value_killed);
+
403  break;
+
404  }
+
405  }
+
406  }
+
407  }
+
408  }
+
409  }
+
410  }
+
411 
+
412  if (action->TargetKills().size() > 0) {
+
413  CombatGroup* g = campaign->FindGroup(action->TargetIFF(),
+
414  action->TargetType(),
+
415  action->TargetId());
+
416 
+
417  if (g) {
+
418  ListIter<Text> iter = action->TargetKills();
+
419  while (++iter) {
+
420  Text* name = iter.value();
+
421  CombatUnit* target = g->FindUnit(*name);
+
422 
+
423  if (target) {
+
424  int value_killed = target->Kill(1);
+
425 
+
426  ListIter<Combatant> iter = campaign->GetCombatants();
+
427  while (++iter) {
+
428  Combatant* c = iter.value();
+
429  if (c->GetIFF() > 0 && c->GetIFF() != target->GetIFF()) {
+
430  // damage to neutral assets must be scored to bad guys:
+
431  if (target->GetIFF() > 0 || c->GetIFF() > 1) {
+
432  c->AddScore(value_killed);
+
433  break;
+
434  }
+
435  }
+
436  }
+
437  }
+
438  }
+
439  }
+
440  }
+
441 }
+
442 
+
443 // +--------------------------------------------------------------------+
+
444 
+
445 bool
+
446 CampaignPlanEvent::ExecStatisticalEvents()
+
447 {
+
448  bool result = false;
+
449 
+
450  if (campaign) {
+
451  ListIter<Combatant> iter = campaign->GetCombatants();
+
452  while (++iter && !result) {
+
453  Combatant* c = iter.value();
+
454  CombatAssignment* a = ChooseAssignment(c->GetForce());
+
455 
+
456  // prefer assignments not in player's zone:
+
457  if (a) {
+
458  CombatGroup* objective = a->GetObjective();
+
459  CombatGroup* player = campaign->GetPlayerGroup();
+
460 
+
461  if (objective && player &&
+
462  objective->GetCurrentZone() == player->GetCurrentZone())
+
463  a = ChooseAssignment(c->GetForce());
+
464  }
+
465 
+
466  if (a) {
+
467  result = CreateEvent(a);
+
468  }
+
469  }
+
470  }
+
471 
+
472  return result;
+
473 }
+
474 
+
475 // +--------------------------------------------------------------------+
+
476 
+
477 bool
+
478 CampaignPlanEvent::CreateEvent(CombatAssignment* a)
+
479 {
+
480  CombatEvent* event = 0;
+
481 
+
482  if (campaign && a && a->GetResource() && RandomChance(1,2)) {
+
483  event_time = (int) Random(event_time, campaign->GetTime());
+
484 
+
485  CombatGroup* group = a->GetResource();
+
486 
+
487  if (group == campaign->GetPlayerGroup()) {
+
488 
+
489  if (group->Type() == CombatGroup::DESTROYER_SQUADRON ||
+
490  group->Type() == CombatGroup::BATTLE_GROUP ||
+
491  group->Type() == CombatGroup::CARRIER_GROUP) {
+
492 
+
493  return false;
+
494  }
+
495  }
+
496 
+
497  CombatGroup* target = a->GetObjective();
+
498 
+
499  if (target && target == campaign->GetPlayerGroup()) {
+
500 
+
501  if (target->Type() == CombatGroup::DESTROYER_SQUADRON ||
+
502  target->Type() == CombatGroup::BATTLE_GROUP ||
+
503  target->Type() == CombatGroup::CARRIER_GROUP) {
+
504 
+
505  return false;
+
506  }
+
507  }
+
508 
+
509  switch (a->Type()) {
+
510  case Mission::DEFEND:
+
511  event = CreateEventDefend(a);
+
512  break;
+
513 
+
514  case Mission::ASSAULT:
+
515  if (group->IsStarshipGroup())
+
516  event = CreateEventStarship(a);
+
517  else
+
518  event = CreateEventFighterAssault(a);
+
519  break;
+
520 
+
521  case Mission::STRIKE:
+
522  if (group->IsStarshipGroup())
+
523  event = CreateEventStarship(a);
+
524  else
+
525  event = CreateEventFighterStrike(a);
+
526  break;
+
527 
+
528  case Mission::SWEEP:
+
529  event = CreateEventFighterSweep(a);
+
530  break;
+
531  }
+
532 
+
533  if (event) {
+
534  campaign->GetEvents().append(event);
+
535  return true;
+
536  }
+
537  }
+
538 
+
539  return false;
+
540 }
+
541 
+
542 // +--------------------------------------------------------------------+
+
543 
+
544 static void FindAssignments(CombatGroup* g, List<CombatAssignment>& alist)
+
545 {
+
546  if (!g) return;
+
547 
+
548  alist.append(g->GetAssignments());
+
549 
+
550  ListIter<CombatGroup> iter = g->GetComponents();
+
551  while (++iter)
+
552  FindAssignments(iter.value(), alist);
+
553 }
+
554 
+
555 CombatAssignment*
+
556 CampaignPlanEvent::ChooseAssignment(CombatGroup* g)
+
557 {
+
558  List<CombatAssignment> alist;
+
559  FindAssignments(g, alist);
+
560 
+
561  int tries = 5;
+
562 
+
563  if (alist.size() > 0) {
+
564  while (tries-- > 0) {
+
565  int index = (int) Random(0, alist.size());
+
566 
+
567  if (index >= alist.size())
+
568  index = 0;
+
569 
+
570  CombatAssignment* a = alist[index];
+
571 
+
572  if (!a) continue;
+
573 
+
574  CombatGroup* resource = a->GetResource();
+
575  CombatGroup* objective = a->GetObjective();
+
576 
+
577  if (!resource || !objective)
+
578  continue;
+
579 
+
580  if (resource->IsReserve() || objective->IsReserve())
+
581  continue;
+
582 
+
583  if (resource->CalcValue() < 50 || objective->CalcValue() < 50)
+
584  continue;
+
585 
+
586  if (resource == campaign->GetPlayerGroup() || objective == campaign->GetPlayerGroup())
+
587  continue;
+
588 
+
589  return a;
+
590  }
+
591  }
+
592 
+
593  return 0;
+
594 }
+
595 
+
596 // +--------------------------------------------------------------------+
+
597 
+
598 CombatEvent*
+
599 CampaignPlanEvent::CreateEventDefend(CombatAssignment* a)
+
600 {
+
601  bool friendly = IsFriendlyAssignment(a);
+
602 
+
603  if (!friendly)
+
604  return 0;
+
605 
+
606  CombatEvent* event = 0;
+
607  CombatGroup* group = a->GetResource();
+
608  CombatGroup* obj = a->GetObjective();
+
609  CombatUnit* unit = group->GetRandomUnit();
+
610  CombatUnit* tgt = obj->GetRandomUnit();
+
611 
+
612  if (!unit || !tgt)
+
613  return 0;
+
614 
+
615  bool success = Success(a);
+
616  Text rgn = group->GetRegion();
+
617  Text title = Text(group->Name()) + " in Defensive Engagement";
+
618  Text info;
+
619 
+
620  event = new(__FILE__,__LINE__) CombatEvent(campaign,
+
621  CombatEvent::DEFEND,
+
622  event_time,
+
623  group->GetIFF(),
+
624  CombatEvent::TACNET,
+
625  rgn);
+
626 
+
627  if (!event)
+
628  return 0;
+
629 
+
630  int tgt_count = 0;
+
631  int unit_count = 0;
+
632 
+
633  if (!success) {
+
634  if (tgt) {
+
635  if (tgt->Kill(1) > 0)
+
636  tgt_count++;
+
637  Combatant* c = group->GetCombatant();
+
638  if (c) c->AddScore(tgt->GetSingleValue());
+
639  }
+
640 
+
641  if (unit && RandomChance(1,5)) {
+
642  if (unit->Kill(1) > 0)
+
643  unit_count++;
+
644  Combatant* c = obj->GetCombatant();
+
645  if (c) c->AddScore(unit->GetSingleValue());
+
646  }
+
647  }
+
648 
+
649  CombatGroup* us = group;
+
650  CombatGroup* them = obj;
+
651  int us_count = unit_count;
+
652  int them_count = tgt_count;
+
653 
+
654  if (obj->IsStrikeTarget()) {
+
655  info = Text("EVENT: ") + rgn + " Sector\n\n";
+
656  }
+
657 
+
658  else {
+
659  info = Text("MISSION: Escort ") + obj->Name() + ", " + rgn + " Sector\n\n";
+
660  }
+
661 
+
662  info += GetTeamName(group);
+
663  info += Text(" ") + group->GetDescription();
+
664 
+
665  if (success)
+
666  info += " successfully defended ";
+
667  else
+
668  info += " was unable to defend ";
+
669 
+
670  info += GetTeamName(obj);
+
671  info += Text(" ") + obj->GetDescription() + ".\n\n";
+
672 
+
673  // need to find an enemy group to do the attacking...
+
674 
+
675  event->SetTitle(title);
+
676  event->SetInformation(info);
+
677  return event;
+
678 }
+
679 
+
680 // +--------------------------------------------------------------------+
+
681 
+
682 CombatEvent*
+
683 CampaignPlanEvent::CreateEventFighterAssault(CombatAssignment* a)
+
684 {
+
685  CombatEvent* event = 0;
+
686  CombatGroup* group = a->GetResource();
+
687  CombatGroup* obj = a->GetObjective();
+
688  CombatUnit* unit = group->GetRandomUnit();
+
689  CombatUnit* tgt = obj->GetRandomUnit();
+
690 
+
691  if (!unit || !tgt)
+
692  return 0;
+
693 
+
694  bool success = Success(a);
+
695  Text rgn = group->GetRegion();
+
696  Text title = Text(group->Name());
+
697  Text info;
+
698 
+
699  event = new(__FILE__,__LINE__) CombatEvent(campaign,
+
700  CombatEvent::ATTACK,
+
701  event_time,
+
702  group->GetIFF(),
+
703  CombatEvent::TACNET,
+
704  rgn);
+
705 
+
706  if (!event)
+
707  return 0;
+
708 
+
709  title += Text(" Assault ") + obj->Name();
+
710 
+
711  int tgt_count = 0;
+
712  int unit_count = 0;
+
713 
+
714  if (success) {
+
715  if (tgt) {
+
716  int killed = tgt->Kill(1 + tgt->Count()/2);
+
717  if (killed > 0)
+
718  tgt_count += killed / tgt->GetSingleValue();
+
719  Combatant* c = group->GetCombatant();
+
720  if (c) c->AddScore(tgt->GetSingleValue());
+
721  }
+
722 
+
723  if (unit && RandomChance(1,5)) {
+
724  if (unit->Kill(1) > 0)
+
725  unit_count++;
+
726  Combatant* c = obj->GetCombatant();
+
727  if (c) c->AddScore(unit->GetSingleValue());
+
728  }
+
729  }
+
730  else {
+
731  for (int i = 0; i < 2; i++) {
+
732  if (unit && RandomChance(1,4)) {
+
733  if (unit->Kill(1) > 0)
+
734  unit_count++;
+
735  Combatant* c = obj->GetCombatant();
+
736  if (c) c->AddScore(unit->GetSingleValue());
+
737  }
+
738  }
+
739  }
+
740 
+
741  CombatGroup* us = group;
+
742  CombatGroup* them = obj;
+
743  int us_count = unit_count;
+
744  int them_count = tgt_count;
+
745 
+
746  bool friendly = IsFriendlyAssignment(a);
+
747 
+
748  if (friendly) {
+
749  info = Text("MISSION: Strike, ") + rgn + " Sector\n\n";
+
750  }
+
751 
+
752  else {
+
753  info = Text("EVENT: ") + rgn + " Sector\n\n";
+
754 
+
755  us = obj;
+
756  them = group;
+
757  us_count = tgt_count;
+
758  them_count = unit_count;
+
759  }
+
760 
+
761  info += GetTeamName(group);
+
762  info += Text(" ") + group->GetDescription();
+
763 
+
764  if (success)
+
765  info += " successfully assault ";
+
766  else if (!friendly)
+
767  info += " assault averted against ";
+
768  else
+
769  info += " attempted assault on ";
+
770 
+
771  info += GetTeamName(obj);
+
772  info += Text(" ") + obj->GetDescription() + ".\n\n";
+
773 
+
774  char text[256];
+
775 
+
776  if (them_count) {
+
777  if (friendly) {
+
778  if (them_count > 1)
+
779  sprintf_s(text, "ENEMY KILLED:\t %d %s destroyed\n", them_count, tgt->Name().data());
+
780  else
+
781  sprintf_s(text, "ENEMY KILLED:\t %s destroyed\n", tgt->Name().data());
+
782  } else {
+
783  sprintf_s(text, "ENEMY KILLED:\t %d %s destroyed\n", them_count, them->Name().data());
+
784  }
+
785 
+
786  info += text;
+
787  } else {
+
788  info += "ENEMY KILLED:\t 0\n";
+
789  }
+
790 
+
791  if (us_count) {
+
792  if (!friendly)
+
793  sprintf_s(text, "ALLIED LOSSES:\t %s destroyed\n", tgt->Name().data());
+
794  else
+
795  sprintf_s(text, "ALLIED LOSSES:\t %d %s destroyed", us_count, us->Name().data());
+
796 
+
797  info += text;
+
798  }
+
799  else {
+
800  info += "ALLIED LOSSES:\t 0";
+
801  }
+
802 
+
803 
+
804  event->SetTitle(title);
+
805  event->SetInformation(info);
+
806  return event;
+
807 }
+
808 
+
809 // +--------------------------------------------------------------------+
+
810 
+
811 CombatEvent*
+
812 CampaignPlanEvent::CreateEventFighterStrike(CombatAssignment* a)
+
813 {
+
814  CombatEvent* event = 0;
+
815  CombatGroup* group = a->GetResource();
+
816  CombatGroup* obj = a->GetObjective();
+
817  CombatUnit* unit = group->GetRandomUnit();
+
818  CombatUnit* tgt = obj->GetRandomUnit();
+
819 
+
820  if (!unit || !tgt)
+
821  return 0;
+
822 
+
823  bool success = Success(a);
+
824  Text rgn = group->GetRegion();
+
825  Text title = Text(group->Name());
+
826  Text info;
+
827 
+
828  event = new(__FILE__,__LINE__) CombatEvent(campaign,
+
829  CombatEvent::ATTACK,
+
830  event_time,
+
831  group->GetIFF(),
+
832  CombatEvent::TACNET,
+
833  rgn);
+
834 
+
835  if (!event)
+
836  return 0;
+
837 
+
838  if (unit)
+
839  title += Text(" ") + unit->GetDesign()->abrv + "s";
+
840 
+
841  if (success) {
+
842  title += " Successfully Strike " + obj->Name();
+
843  }
+
844  else {
+
845  title += " Attempt Strike on " + obj->Name();
+
846  }
+
847 
+
848  int tgt_count = 0;
+
849  int unit_count = 0;
+
850 
+
851  if (success) {
+
852  if (tgt) {
+
853  int killed = tgt->Kill(1 + tgt->Count()/2);
+
854  if (killed > 0)
+
855  tgt_count += killed / tgt->GetSingleValue();
+
856  Combatant* c = group->GetCombatant();
+
857  if (c) c->AddScore(tgt->GetSingleValue());
+
858  }
+
859 
+
860  if (unit && RandomChance(1,5)) {
+
861  if (unit->Kill(1) > 0)
+
862  unit_count++;
+
863  Combatant* c = obj->GetCombatant();
+
864  if (c) c->AddScore(unit->GetSingleValue());
+
865  }
+
866  }
+
867  else {
+
868  for (int i = 0; i < 2; i++) {
+
869  if (unit && RandomChance(1,4)) {
+
870  if (unit->Kill(1) > 0)
+
871  unit_count++;
+
872  Combatant* c = obj->GetCombatant();
+
873  if (c) c->AddScore(unit->GetSingleValue());
+
874  }
+
875  }
+
876  }
+
877 
+
878  CombatGroup* us = group;
+
879  CombatGroup* them = obj;
+
880  int us_count = unit_count;
+
881  int them_count = tgt_count;
+
882 
+
883  bool friendly = IsFriendlyAssignment(a);
+
884 
+
885  if (friendly) {
+
886  info = Text("MISSION: Strike, ") + rgn + " Sector\n\n";
+
887  }
+
888 
+
889  else {
+
890  info = Text("EVENT: ") + rgn + " Sector\n\n";
+
891 
+
892  us = obj;
+
893  them = group;
+
894  us_count = tgt_count;
+
895  them_count = unit_count;
+
896  }
+
897 
+
898  info += GetTeamName(group);
+
899  info += Text(" ") + group->GetDescription();
+
900 
+
901  if (success)
+
902  info += " successfully strike ";
+
903  else if (!friendly)
+
904  info += " strike against ";
+
905  else
+
906  info += " attempted strike on ";
+
907 
+
908  info += GetTeamName(obj);
+
909  info += Text(" ") + obj->GetDescription();
+
910 
+
911  if (!success && !friendly)
+
912  info += " averted.\n\n";
+
913  else
+
914  info += ".\n\n";
+
915 
+
916  char text[256];
+
917 
+
918  if (them_count) {
+
919  if (friendly) {
+
920  if (them_count > 1)
+
921  sprintf_s(text, "ENEMY KILLED:\t %d %s destroyed\n", them_count, tgt->Name().data());
+
922  else
+
923  sprintf_s(text, "ENEMY KILLED:\t %s destroyed\n", tgt->Name().data());
+
924  } else {
+
925  sprintf_s(text, "ENEMY KILLED:\t %d %s destroyed\n", them_count, them->Name().data());
+
926  }
+
927 
+
928  info += text;
+
929  } else {
+
930  info += "ENEMY KILLED:\t 0\n";
+
931  }
+
932 
+
933  if (us_count) {
+
934  if (!friendly)
+
935  sprintf_s(text, "ALLIED LOSSES:\t %s destroyed\n", tgt->Name().data());
+
936  else
+
937  sprintf_s(text, "ALLIED LOSSES:\t %d %s destroyed", us_count, us->Name().data());
+
938 
+
939  info += text;
+
940  } else {
+
941  info += "ALLIED LOSSES:\t 0";
+
942  }
+
943 
+
944  event->SetTitle(title);
+
945  event->SetInformation(info);
+
946  return event;
+
947 }
+
948 
+
949 // +--------------------------------------------------------------------+
+
950 
+
951 CombatEvent*
+
952 CampaignPlanEvent::CreateEventFighterSweep(CombatAssignment* a)
+
953 {
+
954  CombatEvent* event = 0;
+
955  CombatGroup* group = a->GetResource();
+
956  CombatGroup* obj = a->GetObjective();
+
957  CombatUnit* unit = group->GetRandomUnit();
+
958  CombatUnit* tgt = obj->GetRandomUnit();
+
959 
+
960  if (!unit || !tgt)
+
961  return 0;
+
962 
+
963  bool success = Success(a);
+
964  Text rgn = group->GetRegion();
+
965  Text title = Text(group->Name());
+
966  Text info;
+
967 
+
968  event = new(__FILE__,__LINE__) CombatEvent(campaign,
+
969  CombatEvent::ATTACK,
+
970  event_time,
+
971  group->GetIFF(),
+
972  CombatEvent::TACNET,
+
973  rgn);
+
974 
+
975  if (!event)
+
976  return 0;
+
977 
+
978  if (unit)
+
979  title += Text(" ") + unit->GetDesign()->abrv + "s";
+
980  else
+
981  title += " Fighters";
+
982 
+
983  if (RandomChance(1, 4)) title += " Clash with ";
+
984  else if (RandomChance(1, 4)) title += " Engage ";
+
985  else if (RandomChance(1, 4)) title += " Intercept ";
+
986  else title += " Encounter ";
+
987 
+
988  title += obj->Name();
+
989 
+
990  int tgt_count = 0;
+
991  int unit_count = 0;
+
992 
+
993  if (success) {
+
994  for (int i = 0; i < 2; i++) {
+
995  if (tgt && RandomChance(3,4)) {
+
996  if (tgt->Kill(1) > 0)
+
997  tgt_count++;
+
998  Combatant* c = group->GetCombatant();
+
999  if (c) c->AddScore(tgt->GetSingleValue());
+
1000  }
+
1001  }
+
1002 
+
1003  if (tgt_count > 1) {
+
1004  if (tgt && RandomChance(1,4)) {
+
1005  if (tgt->Kill(1) > 0)
+
1006  tgt_count++;
+
1007  Combatant* c = group->GetCombatant();
+
1008  if (c) c->AddScore(tgt->GetSingleValue());
+
1009  }
+
1010  }
+
1011 
+
1012  else {
+
1013  if (unit && RandomChance(1,5)) {
+
1014  if (unit->Kill(1) > 0)
+
1015  unit_count++;
+
1016  Combatant* c = obj->GetCombatant();
+
1017  if (c) c->AddScore(unit->GetSingleValue());
+
1018  }
+
1019  }
+
1020  }
+
1021  else {
+
1022  for (int i = 0; i < 2; i++) {
+
1023  if (unit && RandomChance(3,4)) {
+
1024  if (unit->Kill(1) > 0)
+
1025  unit_count++;
+
1026  Combatant* c = obj->GetCombatant();
+
1027  if (c) c->AddScore(unit->GetSingleValue());
+
1028  }
+
1029  }
+
1030 
+
1031  if (tgt && RandomChance(1,4)) {
+
1032  if (tgt->Kill(1) > 0)
+
1033  tgt_count++;
+
1034  Combatant* c = group->GetCombatant();
+
1035  if (c) c->AddScore(tgt->GetSingleValue());
+
1036  }
+
1037  }
+
1038 
+
1039  CombatGroup* us = group;
+
1040  CombatGroup* them = obj;
+
1041  int us_count = unit_count;
+
1042  int them_count = tgt_count;
+
1043 
+
1044  bool friendly = IsFriendlyAssignment(a);
+
1045 
+
1046  if (!friendly) {
+
1047  us = obj;
+
1048  them = group;
+
1049  us_count = tgt_count;
+
1050  them_count = unit_count;
+
1051  }
+
1052 
+
1053  if (friendly) {
+
1054  if (RandomChance())
+
1055  info = Text("MISSION: OCA Sweep, ") + rgn + " Sector\n\n";
+
1056  else
+
1057  info = Text("MISSION: FORCAP, ") + rgn + " Sector\n\n";
+
1058 
+
1059  info += GetTeamName(group);
+
1060  info += Text(" ") + group->GetDescription();
+
1061  info += Text(" engaged ") + GetTeamName(obj);
+
1062  info += Text(" ") + obj->GetDescription() + ".\n\n";
+
1063  }
+
1064  else {
+
1065  info = Text("MISSION: Patrol, ") + rgn + " Sector\n\n";
+
1066 
+
1067  info += GetTeamName(obj);
+
1068  info += Text(" ") + obj->GetDescription();
+
1069  info += Text(" engaged ") + GetTeamName(group);
+
1070  info += Text(" ") + group->GetDescription() + ".\n\n";
+
1071  }
+
1072 
+
1073  char text[256];
+
1074 
+
1075  if (them_count) {
+
1076  sprintf_s(text, "ENEMY KILLED:\t %d %s destroyed\n", them_count, them->Name().data());
+
1077 
+
1078  info += text;
+
1079  } else {
+
1080  info += "ENEMY KILLED:\t 0\n";
+
1081  }
+
1082 
+
1083  if (us_count) {
+
1084  sprintf_s(text, "ALLIED LOSSES:\t %d %s destroyed", us_count, us->Name().data());
+
1085  info += text;
+
1086  } else {
+
1087  info += "ALLIED LOSSES:\t 0";
+
1088  }
+
1089 
+
1090  event->SetTitle(title);
+
1091  event->SetInformation(info);
+
1092  return event;
+
1093 }
+
1094 
+
1095 // +--------------------------------------------------------------------+
+
1096 
+
1097 CombatEvent*
+
1098 CampaignPlanEvent::CreateEventStarship(CombatAssignment* a)
+
1099 {
+
1100  CombatEvent* event = 0;
+
1101  CombatGroup* group = a->GetResource();
+
1102  CombatGroup* obj = a->GetObjective();
+
1103  CombatUnit* unit = group->GetRandomUnit();
+
1104  CombatUnit* tgt = obj->GetRandomUnit();
+
1105 
+
1106  if (!unit || !tgt)
+
1107  return 0;
+
1108 
+
1109  bool success = Success(a);
+
1110  Text rgn = group->GetRegion();
+
1111  Text title = Text(group->Name());
+
1112  Text info;
+
1113 
+
1114  event = new(__FILE__,__LINE__) CombatEvent(campaign,
+
1115  CombatEvent::ATTACK,
+
1116  event_time,
+
1117  group->GetIFF(),
+
1118  CombatEvent::TACNET,
+
1119  group->GetRegion());
+
1120 
+
1121  if (!event)
+
1122  return 0;
+
1123 
+
1124  title += Text(" Assaults ") + a->GetObjective()->Name();
+
1125 
+
1126  int tgt_count = 0;
+
1127  int unit_count = 0;
+
1128 
+
1129  if (success) {
+
1130  if (tgt) {
+
1131  if (tgt->Kill(1) > 0)
+
1132  tgt_count++;
+
1133  Combatant* c = group->GetCombatant();
+
1134  if (c) c->AddScore(tgt->GetSingleValue());
+
1135  }
+
1136 
+
1137  if (unit && RandomChance(1,5)) {
+
1138  if (unit->Kill(1) > 0)
+
1139  unit_count++;
+
1140  Combatant* c = obj->GetCombatant();
+
1141  if (c) c->AddScore(unit->GetSingleValue());
+
1142  }
+
1143  }
+
1144  else {
+
1145  for (int i = 0; i < 2; i++) {
+
1146  if (unit && RandomChance(1,4)) {
+
1147  if (unit->Kill(1) > 0)
+
1148  unit_count++;
+
1149  Combatant* c = obj->GetCombatant();
+
1150  if (c) c->AddScore(unit->GetSingleValue());
+
1151  }
+
1152  }
+
1153  }
+
1154 
+
1155  CombatGroup* us = group;
+
1156  CombatGroup* them = obj;
+
1157  int us_count = unit_count;
+
1158  int them_count = tgt_count;
+
1159 
+
1160  bool friendly = IsFriendlyAssignment(a);
+
1161 
+
1162  if (friendly) {
+
1163  info = Text("MISSION: Fleet Action, ") + rgn + " Sector\n\n";
+
1164  }
+
1165 
+
1166  else {
+
1167  info = Text("EVENT: ") + rgn + " Sector\n\n";
+
1168 
+
1169  us = obj;
+
1170  them = group;
+
1171  us_count = tgt_count;
+
1172  them_count = unit_count;
+
1173  }
+
1174 
+
1175  info += GetTeamName(group);
+
1176  info += Text(" ") + group->GetDescription();
+
1177 
+
1178  if (success)
+
1179  info += " successfully assaulted ";
+
1180  else if (!friendly)
+
1181  info += " assault against ";
+
1182  else
+
1183  info += " attempted assault on ";
+
1184 
+
1185  info += GetTeamName(obj);
+
1186  info += Text(" ") + obj->GetDescription();
+
1187 
+
1188  if (!success && !friendly)
+
1189  info += " failed.\n\n";
+
1190  else
+
1191  info += ".\n\n";
+
1192 
+
1193  char text[256];
+
1194 
+
1195  if (them_count) {
+
1196  if (friendly) {
+
1197  if (tgt->Count() > 1) {
+
1198  sprintf_s(text, "ENEMY KILLED:\t %d %s destroyed\n", them_count, tgt->Name().data());
+
1199  } else {
+
1200  sprintf_s(text, "ENEMY KILLED:\t %s destroyed\n", tgt->Name().data());
+
1201  }
+
1202  } else {
+
1203  if (unit->Count() > 1) {
+
1204  sprintf_s(text, "ENEMY KILLED:\t %d %s destroyed\n", them_count, unit->Name().data());
+
1205  } else {
+
1206  sprintf_s(text, "ENEMY KILLED:\t %s destroyed\n", unit->Name().data());
+
1207  }
+
1208  }
+
1209 
+
1210  info += text;
+
1211  } else {
+
1212  info += "ENEMY KILLED:\t 0\n";
+
1213  }
+
1214 
+
1215  if (us_count) {
+
1216  if (!friendly)
+
1217  sprintf_s(text, "ALLIED LOSSES:\t %s destroyed\n", tgt->Name().data());
+
1218  else
+
1219  sprintf_s(text, "ALLIED LOSSES:\t %s destroyed", unit->Name().data());
+
1220 
+
1221  info += text;
+
1222  } else {
+
1223  info += "ALLIED LOSSES:\t 0";
+
1224  }
+
1225 
+
1226  event->SetTitle(title);
+
1227  event->SetInformation(info);
+
1228  return event;
+
1229 }
+
1230 
+
1231 // +--------------------------------------------------------------------+
+
1232 
+
1233 bool
+
1234 CampaignPlanEvent::IsFriendlyAssignment(CombatAssignment* a)
+
1235 {
+
1236  if (!campaign || !a || !a->GetResource())
+
1237  return false;
+
1238 
+
1239  int a_team = a->GetResource()->GetIFF();
+
1240  CombatGroup* player = campaign->GetPlayerGroup();
+
1241 
+
1242  if (player && (player->GetIFF() == a_team))
+
1243  return true;
+
1244 
+
1245  return false;
+
1246 }
+
1247 
+
1248 bool
+
1249 CampaignPlanEvent::Success(CombatAssignment* a)
+
1250 {
+
1251  if (!campaign || !a || !a->GetResource())
+
1252  return false;
+
1253 
+
1254  int odds = 6 - campaign->GetCampaignId();
+
1255 
+
1256  if (odds < 1)
+
1257  odds = 1;
+
1258 
+
1259  bool success = RandomChance(odds, 5);
+
1260 
+
1261  if (!IsFriendlyAssignment(a))
+
1262  success = !success;
+
1263 
+
1264  return success;
+
1265 }
+
1266 
+
1267 // +--------------------------------------------------------------------+
+
1268 
+
1269 Text
+
1270 CampaignPlanEvent::GetTeamName(CombatGroup* g)
+
1271 {
+
1272  while (g->GetParent())
+
1273  g = g->GetParent();
+
1274 
+
1275  return g->Name();
+
1276 }
+
+
+ + + + -- cgit v1.1