author | Wuzzy <almikes@aol.com> |
Mon, 18 Apr 2016 17:18:36 +0200 | |
changeset 11667 | 7652eeb0fc7f |
parent 11245 | 41799450378a |
child 11668 | 991c790da01e |
permissions | -rw-r--r-- |
8043 | 1 |
HedgewarsScriptLoad("/Scripts/Locale.lua") |
2 |
HedgewarsScriptLoad("/Scripts/Utils.lua") |
|
7904 | 3 |
|
4 |
local MineArray = {} |
|
5 |
local player |
|
6 |
local adviceGiven = false |
|
7 |
local adviceGiven2 = false |
|
8 |
||
9 |
function onGameInit() |
|
10 |
Seed = 0 -- The base number for the random number generator |
|
11 |
GameFlags = gfInfAttack +gfBorder +gfDisableWind +gfSolidLand |
|
12 |
TurnTime = 1500000 -- The time the player has to move each round (in ms) |
|
13 |
CaseFreq = 0 -- The frequency of crate drops |
|
14 |
MinesNum = 0 -- The number of mines being placed |
|
15 |
Explosives = 0 -- The number of explosives being placed |
|
16 |
Delay = 10 -- The delay between each round |
|
17 |
Map = "portal" -- The map to be played |
|
18 |
Theme = "Hell" -- The theme to be used |
|
19 |
||
20 |
----AddTeam(teamname, color, grave, fort, voicepack, flag)-- |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
21 |
AddTeam(loc("Subjects"), 0xFFFF01, "Simple", "Island", "Default", "cm_test") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
22 |
player = AddHog(loc("Subject 1"), 0, 10, "Terminator_Glasses") |
7904 | 23 |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
24 |
AddTeam(loc("Hell Army"), 0xFF0402, "skull", "Island", "Default", "cm_hellish") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
25 |
enemy1 = AddHog(loc("Lucifer"), 1, 200, "InfernalHorns") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
26 |
enemy2 = AddHog(loc("Voldemort"), 1, 150, "WizardHat") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
27 |
enemy3 = AddHog(loc("Zombi"), 1, 100, "Zombi") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
28 |
enemy4 = AddHog(loc("Predator"), 1, 14, "anzac") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
29 |
enemy5 = AddHog(loc("Oneye"), 1, 50, "cyclops") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
30 |
enemy6 = AddHog(loc("Razac"), 1, 50, "Evil") |
11245
41799450378a
- Rus localization for portal mission
antonc27 <antonc27@mail.ru>
parents:
8043
diff
changeset
|
31 |
enemy7 = AddHog(loc("C-2"), 1, 50, "cyborg1") |
41799450378a
- Rus localization for portal mission
antonc27 <antonc27@mail.ru>
parents:
8043
diff
changeset
|
32 |
enemy8 = AddHog(loc("Rider"), 1, 50, "scif_SparkssHelmet") |
7904 | 33 |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
34 |
AddTeam(loc("Badmad"), 0xFF0402, "skull", "Island", "Default", "cm_pentagram") |
11245
41799450378a
- Rus localization for portal mission
antonc27 <antonc27@mail.ru>
parents:
8043
diff
changeset
|
35 |
enemy9 = AddHog(loc("C-1"), 1, 50, "cyborg2") |
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
36 |
enemy10 = AddHog(loc("Hidden"), 1, 40, "bushhider") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
37 |
enemy11 = AddHog(loc("Ronald"), 1, 70, "clown") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
38 |
enemy12 = AddHog(loc("Phosphat"), 1, 50, "chef") |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
39 |
enemy13 = AddHog(loc("Lestat"), 1, 30, "vampirichog") |
7904 | 40 |
|
41 |
SetGearPosition(player, 350, 1820) |
|
42 |
SetGearPosition(enemy1, 2037, 1313) |
|
43 |
SetGearPosition(enemy2, 1369, 1605) |
|
44 |
SetGearPosition(enemy3, 1750, 1937) |
|
45 |
SetGearPosition(enemy4, 3125, 89) |
|
46 |
SetGearPosition(enemy5, 743, 900) |
|
47 |
SetGearPosition(enemy6, 130, 360) |
|
48 |
SetGearPosition(enemy7, 1333, 640) |
|
49 |
SetGearPosition(enemy8, 1355, 200) |
|
50 |
SetGearPosition(enemy9, 2680, 225) |
|
51 |
SetGearPosition(enemy10, 2970, 800) |
|
52 |
SetGearPosition(enemy11, 4050, 1964) |
|
53 |
SetGearPosition(enemy12, 2666, 950) |
|
54 |
SetGearPosition(enemy13, 3306, 1205) |
|
55 |
||
56 |
||
57 |
||
58 |
end |
|
59 |
||
60 |
function onAmmoStoreInit() |
|
61 |
||
62 |
SetAmmo(amFirePunch, 0,0,0,1) |
|
63 |
SetAmmo(amParachute, 0, 0, 0, 2) |
|
64 |
SetAmmo(amGirder, 0, 0, 0, 3) |
|
65 |
SetAmmo(amTeleport, 0, 0, 0, 1) |
|
66 |
SetAmmo(amLaserSight,0,0,0,1) |
|
67 |
SetAmmo(amHellishBomb,0,0,0,1) |
|
68 |
SetAmmo(amGrenade,0,0,0,1) |
|
69 |
SetAmmo(amRope,0,0,0,1) |
|
70 |
SetAmmo(amDEagle,0,0,0,1) |
|
71 |
SetAmmo(amExtraTime,0,0,0,2) |
|
72 |
SetAmmo(amSkip,9,0,0,0) |
|
73 |
SetAmmo(amBlowTorch, 0, 0, 0, 1) |
|
74 |
SetAmmo(amPickHammer, 0, 0, 0, 1) |
|
75 |
SetAmmo(amSnowball, 0, 0, 0, 1) |
|
76 |
||
77 |
end |
|
78 |
||
79 |
function onGameStart() |
|
80 |
||
81 |
SetWind(100)-- SetWind(windSpeed) Sets the current wind in the range of -100 to 100. Use together with gfDisableWind for full control. |
|
82 |
-- -100to0 is to the left, and 0to100 is to the right (of course more its far from 0, more the speed is high |
|
83 |
-- -100.............................0..................................+100 |
|
84 |
-- <<<<<<<<--<<--<<<<<<<<<<<<<--<<<<<|||-->>>>>>>>-->>>>>>>>>>>>>>>-->>>>>> = wind direction |
|
85 |
||
86 |
||
87 |
MineArray[0] = AddGear(840, 1847, gtMine, 0, 0, 0, 0) |
|
88 |
MineArray[1] = AddGear(900, 1847, gtMine, 0, 0, 0, 0) |
|
89 |
MineArray[2] = AddGear(1000, 1847, gtMine, 0, 0, 0, 0) |
|
90 |
MineArray[3] = AddGear(1100, 1847, gtMine, 0, 0, 0, 0) |
|
91 |
MineArray[4] = AddGear(1140, 1847, gtMine, 0, 0, 0, 0) |
|
92 |
MineArray[5] = AddGear(1170, 1847, gtMine, 0, 0, 0, 0) |
|
93 |
MineArray[6] = AddGear(1200, 1847, gtMine, 0, 0, 0, 0) |
|
94 |
MineArray[7] = AddGear(1200, 1847, gtMine, 0, 0, 0, 0) |
|
95 |
MineArray[8] = AddGear(1230, 1847, gtMine, 0, 0, 0, 0) |
|
96 |
MineArray[9] = AddGear(1280, 1847, gtMine, 0, 0, 0, 0) |
|
97 |
MineArray[10] = AddGear(1302, 1847, gtMine, 0, 0, 0, 0) |
|
98 |
MineArray[11] = AddGear(1350, 1847, gtMine, 0, 0, 0, 0) |
|
99 |
MineArray[12] = AddGear(1383, 1847, gtMine, 0, 0, 0, 0) |
|
100 |
MineArray[13] = AddGear(1400, 1847, gtMine, 0, 0, 0, 0) |
|
101 |
MineArray[14] = AddGear(1423, 1847, gtMine, 0, 0, 0, 0) |
|
102 |
MineArray[15] = AddGear(1470, 1847, gtMine, 0, 0, 0, 0) |
|
103 |
MineArray[16] = AddGear(1480, 1847, gtMine, 0, 0, 0, 0) |
|
104 |
MineArray[17] = AddGear(1311, 1847, gtMine, 0, 0, 0, 0) |
|
105 |
||
106 |
MineArray[18] = AddGear(840, 1785, gtMine, 0, 0, 0, 0) |
|
107 |
MineArray[19] = AddGear(900, 1785, gtMine, 0, 0, 0, 0) |
|
108 |
MineArray[20] = AddGear(1000, 1785, gtMine, 0, 0, 0, 0) |
|
109 |
MineArray[21] = AddGear(1100, 1785, gtMine, 0, 0, 0, 0) |
|
110 |
MineArray[22] = AddGear(1140, 1785, gtMine, 0, 0, 0, 0) |
|
111 |
MineArray[23] = AddGear(1170, 1785, gtMine, 0, 0, 0, 0) |
|
112 |
MineArray[24] = AddGear(1200, 1785, gtMine, 0, 0, 0, 0) |
|
113 |
MineArray[25] = AddGear(1230, 1785, gtMine, 0, 0, 0, 0) |
|
114 |
MineArray[26] = AddGear(1280, 1785, gtMine, 0, 0, 0, 0) |
|
115 |
MineArray[27] = AddGear(1302, 1785, gtMine, 0, 0, 0, 0) |
|
116 |
MineArray[28] = AddGear(1350, 1785, gtMine, 0, 0, 0, 0) |
|
117 |
MineArray[29] = AddGear(1383, 1785, gtMine, 0, 0, 0, 0) |
|
118 |
MineArray[30] = AddGear(1400, 1785, gtMine, 0, 0, 0, 0) |
|
119 |
MineArray[31] = AddGear(1423, 1785, gtMine, 0, 0, 0, 0) |
|
120 |
MineArray[32] = AddGear(1470, 1785, gtMine, 0, 0, 0, 0) |
|
121 |
MineArray[33] = AddGear(1480, 1785, gtMine, 0, 0, 0, 0) |
|
122 |
MineArray[34] = AddGear(1311, 1785, gtMine, 0, 0, 0, 0) |
|
123 |
||
124 |
MineArray[35] = AddGear(4029, 89, gtMine, 0, 0, 0, 120) |
|
125 |
--MineArray[36] = AddGear(3376, 1947, gtMine, 0, 0, 0, 10) |
|
126 |
||
127 |
for i = 0,#MineArray do |
|
128 |
SetTimer(MineArray[i],050) |
|
129 |
SetState(MineArray[i],544) |
|
130 |
end |
|
131 |
--needed this MineArray cause timer didn't work, its was always 3sec, i wanna instant mines |
|
132 |
||
133 |
||
134 |
--UTILITY CRATE-- |
|
135 |
parachute = SpawnUtilityCrate(1670, 1165, amParachute) |
|
136 |
girder = SpawnUtilityCrate(2101, 1297, amGirder) |
|
137 |
SpawnUtilityCrate(3965, 625, amBlowTorch) |
|
138 |
SpawnUtilityCrate(2249, 93, amBlowTorch) |
|
139 |
SpawnUtilityCrate(2181, 829, amBlowTorch) |
|
140 |
SpawnUtilityCrate(1820, 567, amBlowTorch) |
|
141 |
SpawnUtilityCrate(1375, 900, amTeleport) |
|
142 |
SpawnUtilityCrate(130, 600, amPickHammer) |
|
143 |
SpawnUtilityCrate(1660,1820, amLaserSight) |
|
144 |
SpawnUtilityCrate(4070,1840, amLaserSight) |
|
145 |
||
146 |
||
147 |
--AMMO CRATE-- |
|
148 |
portalgun = SpawnAmmoCrate(505, 1943, amPortalGun, 1000) |
|
149 |
extratime = SpawnAmmoCrate(4020, 785, amExtraTime, 2) |
|
150 |
SpawnAmmoCrate(425, 613, amSnowball) |
|
151 |
SpawnAmmoCrate(861, 633, amHellishBomb) |
|
152 |
SpawnAmmoCrate(2510, 623, amSnowball) |
|
153 |
SpawnAmmoCrate(2900, 1600, amGrenade) |
|
154 |
SpawnAmmoCrate(2680, 320, amGrenade) |
|
155 |
SpawnAmmoCrate(2650, 80, amDEagle) |
|
156 |
SpawnAmmoCrate(3000, 100, amDEagle) |
|
157 |
SpawnAmmoCrate(2900, 1400, amRope) |
|
158 |
SpawnAmmoCrate(4025, 1117, amFirePunch) |
|
159 |
||
160 |
||
161 |
--HEALTH CRATE-- |
|
162 |
SpawnHealthCrate(2000, 780) |
|
163 |
||
164 |
--GIRDER-- |
|
165 |
PlaceGirder(3363, 1323, 4) |
|
166 |
||
167 |
||
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
168 |
ShowMission (loc("Portal Mind Challenge"), loc("Mission"), |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
169 |
loc("Defeat all enemies!") .. "|" .. loc("In this mission you have infinite time."), |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
170 |
-amPortalGun, 5000) |
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
171 |
HogSay(player, loc("I should get myself a portal device, maybe this crate has one."), SAY_THINK) |
7904 | 172 |
|
173 |
||
174 |
||
175 |
||
176 |
end |
|
177 |
||
178 |
function onGameTick() |
|
179 |
||
180 |
if (player ~= nil) then |
|
181 |
if (gearIsInBox(player, 1650, 1907, 200, 60) and (adviceGiven == false)) then |
|
182 |
adviceGiven = true |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
183 |
HogSay(player, loc("Hmmm, I’ll have to find some way of moving him off this anti-portal surface."), SAY_THINK) |
7904 | 184 |
elseif (gearIsInBox(player, 2960, 790, 200, 60) and (adviceGiven2 == false)) then |
185 |
adviceGiven2 = true |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
186 |
HogSay(player, loc("The anti-portal surface is all over the floor, and I have nothing to kill him. Dropping something could hurt him enough to kill him."), SAY_THINK) |
7904 | 187 |
end |
188 |
end |
|
189 |
||
190 |
end |
|
191 |
||
192 |
||
193 |
||
194 |
||
195 |
||
196 |
function onNewturn() |
|
197 |
end |
|
198 |
||
199 |
||
200 |
function onGearAdd(gear) |
|
201 |
end |
|
202 |
||
203 |
function onGearDelete(gear) |
|
204 |
||
205 |
if gear == portalgun then |
|
206 |
--AddAmmo(player, amPortalGun, 10000) |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
207 |
HogSay(player, loc("Great! Let’s kill all these enemies, using portals."), SAY_THINK) |
7904 | 208 |
end |
209 |
||
210 |
if gear == girder then |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
211 |
HogSay(player, loc("This will be useful when I need a new platform or if I want to rise."), SAY_THINK) |
7904 | 212 |
end |
213 |
||
214 |
if gear == parachute then |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
215 |
HogSay(player, loc("You can’t open a portal on the blue surface."), SAY_THINK) |
7904 | 216 |
end |
217 |
--if you wanted to check for collection only |
|
218 |
--you could probably say |
|
219 |
--if (gear == myParachuteGear) and (band(GetGearMessage(gear), gmDestroy) ~= 0) then |
|
220 |
||
221 |
if gear == extratime then |
|
11667
7652eeb0fc7f
Clean up strings, hats, flags and graves in Portal mission
Wuzzy <almikes@aol.com>
parents:
11245
diff
changeset
|
222 |
HogSay(player, loc("What?! For all this struggle I just win some ... time? Oh dear!"), SAY_SHOUT) |
7904 | 223 |
end |
224 |
||
225 |
if gear == player then |
|
226 |
player = nil |
|
227 |
end |
|
228 |
end |
|
229 |
||
230 |
||
231 |
||
232 |
||
233 |
||
234 |