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
|
require "preload/api"
shard_include("behaviourfactory")
shard_include("unit")
shard_include("module")
shard_include("modules")
AI = class(AIBase)
function AI:Init()
game:SendToConsole("Shard by AF - playing:"..game:GameName().." on:"..game.map:MapName())
self.modules = {}
if next(modules) ~= nil then
for i,m in ipairs(modules) do
newmodule = m()
game:SendToConsole("adding "..newmodule:Name().." module")
local internalname = newmodule:internalName()
self[internalname] = newmodule
table.insert(self.modules,newmodule)
newmodule:Init()
end
end
end
function AI:Update()
if self.gameend == true then
return
end
for i,m in ipairs(self.modules) do
if m == nil then
game:SendToConsole("nil module!")
else
m:Update()
end
end
end
function AI:GameMessage(text)
if self.gameend == true then
return
end
for i,m in ipairs(self.modules) do
if m == nil then
game:SendToConsole("nil module!")
else
m:GameMessage(text)
end
end
end
function AI:UnitCreated(engineunit)
if self.gameend == true then
return
end
if engineunit == nil then
game:SendToConsole("shard found nil engineunit")
return
end
for i,m in ipairs(self.modules) do
m:UnitCreated(engineunit)
end
end
function AI:UnitBuilt(engineunit)
if self.gameend == true then
return
end
if engineunit == nil then
game:SendToConsole("shard-warning: unitbuilt engineunit nil ")
return
end
for i,m in ipairs(self.modules) do
m:UnitBuilt(engineunit)
end
end
function AI:UnitDead(engineunit)
if self.gameend == true then
return
end
if engineunit == nil then
return
end
for i,m in ipairs(self.modules) do
m:UnitDead(engineunit)
end
end
function AI:UnitIdle(engineunit)
if self.gameend == true then
return
end
if engineunit == nil then
game:SendToConsole("shard-warning: idle engineunit nil")
return
end
for i,m in ipairs(self.modules) do
m:UnitIdle(engineunit)
end
end
function AI:UnitDamaged(engineunit,engineattacker,enginedamage)
if self.gameend == true then
return
end
if engineunit == nil then
return
end
game:SendToConsole("UnitDamage for " .. enginedamage:Damage())
for i,m in ipairs(self.modules) do
m:UnitDamaged(engineunit,engineattacker,enginedamage)
end
end
function AI:UnitMoveFailed(engineunit)
if self.gameend == true then
return
end
if engineunit == nil then
return
end
for i,m in ipairs(self.modules) do
m:UnitMoveFailed(engineunit)
end
end
function AI:GameEnd()
self.gameend = true
for i,m in ipairs(self.modules) do
m:GameEnd()
end
end
function AI:AddModule( newmodule )
local internalname = newmodule:internalName()
self[internalname] = newmodule
table.insert(self.modules,newmodule)
newmodule:Init()
end
-- create and use an AI
ai = AI()
|
