1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
|
/**
AI Protection
Functionality that helps the AI to protect itself and evade danger. Also
handles healing.
@author Sven2, Maikel
*/
// AI Settings.
local HealingHitPointsThreshold = 30; // Number of hitpoints below which the AI will try to heal itself even in a dangerous situation.
local AlertTime = 800; // Number of frames after alert after which AI no longer checks for projectiles.
// Called when the AI is added.
public func OnAddAI(effect fx_ai)
{
_inherited(fx_ai);
// Put on any useful wearables in the inventory.
this->ExecuteWearable(fx_ai);
return;
}
public func ExecuteProtection(effect fx)
{
// Search for nearby projectiles. Ranged AI also searches for enemy clonks to evade.
var enemy_search;
if (fx.ranged)
enemy_search = Find_And(Find_OCF(OCF_CrewMember), Find_Not(Find_Owner(fx.Target->GetOwner())));
var projectiles = fx.Target->FindObjects(Find_InRect(-150, -50, 300, 80), Find_Or(Find_Category(C4D_Object), Find_Func("IsDangerous4AI"), Find_Func("IsArrow"), enemy_search), Find_OCF(OCF_HitSpeed2), Find_NoContainer(), Sort_Distance());
for (var obj in projectiles)
{
var dx = obj->GetX() - fx.Target->GetX(), dy = obj->GetY() - fx.Target->GetY();
var vx = obj->GetXDir(), vy = obj->GetYDir();
if (Abs(dx) > 40 && vx)
dy += (Abs(10 * dx / vx)**2) * GetGravity() / 200;
var v2 = Max(vx * vx + vy * vy, 1);
var d2 = dx * dx + dy * dy;
var time_to_impact = 10 * Sqrt(d2) / Sqrt(v2);
if (time_to_impact > 20)
{
// Won't hit within the next 20 frames.
continue;
}
// Distance at which projectile will pass clonk should be larger than clonk size (erroneously assumes clonk is a sphere).
var l = dx * vx + dy * vy;
if (l < 0 && Sqrt(d2 - l * l / v2) <= fx.Target->GetCon() / 8)
{
// Not if there's a wall between.
if (!PathFree(fx.Target->GetX(), fx.Target->GetY(), obj->GetX(), obj->GetY()))
continue;
// This might hit.
fx.alert = fx.time;
// Use a shield if the object is not explosive.
if (fx.shield && !obj->~HasExplosionOnImpact())
{
// Use it!
this->SelectItem(fx, fx.shield);
if (fx.aim_weapon == fx.shield)
{
// Continue to hold shield.
fx.shield->ControlUseHolding(fx.Target, dx, dy);
}
else
{
// Start holding shield.
if (fx.aim_weapon)
this->CancelAiming(fx);
if (!this->CheckHandsAction(fx))
return true;
if (!fx.shield->ControlUseStart(fx.Target, dx, dy))
return false; // Something's broken :(
fx.shield->ControlUseHolding(fx.Target, dx, dy);
fx.aim_weapon = fx.shield;
}
return true;
}
// Try to use club to bat away objects if available.
if (this->ExecuteClubProtection(fx, obj, time_to_impact))
return true;
// No shield. try to jump away.
if (dx < 0)
fx.Target->SetComDir(COMD_Right);
else
fx.Target->SetComDir(COMD_Left);
if (this->ExecuteJump(fx))
return true;
// Can only try to evade one projectile.
break;
}
}
// Stay alert if there's a target. Otherwise alert state may wear off.
if (!fx.target)
fx.target = nil; //this->FindEmergencyTarget(fx);
if (fx.target)
fx.alert = fx.time;
else if (fx.time - fx.alert > fx->GetControl().AlertTime)
fx.alert = nil;
// If not evading the AI may try to heal.
if (ExecuteHealing(fx))
return true;
// Nothing to do.
return false;
}
// Tries to hit away a projectile with a club that is about to hit the AI clonk.
public func ExecuteClubProtection(effect fx, object projectile, int time_to_impact)
{
// Don't use club on explosives.
if (projectile->~HasExplosionOnImpact())
return false;
// Check for a club which can be used.
var club = fx.Target->FindObject(Find_Container(fx.Target), Find_ID(Club));
if (!club)
return false;
// Assume we are using it so just wait.
if (club->RejectUse(fx.Target) || time_to_impact > 8)
return true;
var dx = projectile->GetX() - fx.Target->GetX();
var dy = projectile->GetY() - fx.Target->GetY();
// Execute all control commands in a few frames.
this->SelectItem(fx, club);
if (club->~ControlUseStart(fx.Target, dx, dy))
{
ScheduleCall(club, "~ControlUseHolding", 1, 0, fx.Target, dx, dy);
ScheduleCall(club, "~ControlUseStop", 2, 0, fx.Target, dx, dy);
return true;
}
return false;
}
public func ExecuteHealing(effect fx)
{
var hp = fx.Target->GetEnergy();
var hp_needed = fx.Target->GetMaxEnergy() - hp;
// Only heal when alert if health drops below the healing threshold.
// If not alert also heal if more than 40 hitpoints of health are lost.
if (hp >= fx->GetControl().HealingHitPointsThreshold && (fx.alert || hp_needed <= 40))
return false;
// Don't heal if already healing. One can speed up healing by healing multiple times, but we don't.
if (GetEffect("HealingOverTime", fx.Target))
return false;
// Find food to heal with, find closest to but more than needed hp.
var food;
for (food in fx.Target->FindObjects(Find_Container(fx.Target), Find_Func("NutritionalValue"), Sort_Func("NutritionalValue")))
if (food->NutritionalValue() >= hp_needed)
break;
if (!food)
return false;
// Eat the food.
this->SelectItem(fx, food);
if (food->~ControlUse(fx.Target))
return true;
return false;
}
public func ExecuteWearable(effect fx)
{
// Put on wearable items in the current inventory.
for (var wearable in fx.Target->FindObjects(Find_Container(fx.Target), Find_Func("IsWearable"))) // TODO: sort by usefulness.
{
if (wearable->HasFreeWearPlace(fx.Target))
wearable->PutOn(fx.Target, true);
}
return;
}
|
