26 …var gems = (4 * GetMaterialCount(Material("Ruby"))) / (5 * GetMaterialVal("Blast2ObjectRatio", "Ma…  in Initialize()
28 	var percentage = 40 + 20 * SCENPAR_Difficulty;  in Initialize()
29 	var goal = CreateObject(Goal_SellGems);  in Initialize()
59 	var i, crew;  in InitializePlayer()
62 		var pos = FindMainIslandPosition();  in InitializePlayer()
77 	var nr_clonks = Max(9 - 2 * SCENPAR_Difficulty, 1);  in InitializePlayer()
84 	for (var structure in FindObjects(Find_Or(Find_Category(C4D_Structure), Find_Func("IsFlagpole"))))  in InitializePlayer()
104 	for (var cloud in FindObjects(Find_ID(Cloud)))  in InitEnvironment()
156 	var wdt = LandscapeWidth();  in FxEnsureVegetationOnMainIslandTimer()
157 	var hgt = LandscapeHeight();  in FxEnsureVegetationOnMainIslandTimer()
159 …var nr_trees = ObjectCount(Find_Func("IsTree"), Find_InRect(wdt / 2 - 300, hgt / 2 - 200, 600, 400…  in FxEnsureVegetationOnMainIslandTimer()
164 	var nr_cotton = ObjectCount(Find_ID(Cotton), Find_InRect(wdt / 2 - 300, hgt / 2 - 200, 600, 400));  in FxEnsureVegetationOnMainIslandTimer()
186 	var effect = AddEffect("GrowGemStalactites", nil, 100, 60 * 36, nil, nil, difficulty);  in InitResources()
195 	var gems = (GetMaterialCount(Material("Ruby")) + GetMaterialCount(Material("Amethyst"))) / 125;  in FxGrowGemStalactitesTimer()
197 	var goal = FindObject(Find_ID(Goal_SellGems));  in FxGrowGemStalactitesTimer()
205 	var pos, good_pos;  in FxGrowGemStalactitesTimer()
206 	for (var attempts = 0; attempts < 30; attempts++)  in FxGrowGemStalactitesTimer()
209 		var dist = 64; // distance from border  in FxGrowGemStalactitesTimer()
215 		var x = pos.x, y = pos.y;  in FxGrowGemStalactitesTimer()  local
216 		while ((!GBackSemiSolid(x - 7, y) || !GBackSemiSolid(x + 7, y)) && y > pos.y - 5)  in FxGrowGemStalactitesTimer()
217 			y--;  in FxGrowGemStalactitesTimer()
218 		if (y <= pos.y - 5)  in FxGrowGemStalactitesTimer()
222 		var dist = 300;  in FxGrowGemStalactitesTimer()
223 		var vehicle_dist = 30;  in FxGrowGemStalactitesTimer()
224 …if (!!FindLocation(Loc_Or(Loc_Material("Vehicle")), Loc_InRect(pos.x - vehicle_dist, pos.y - vehic…  in FxGrowGemStalactitesTimer()
226 …c_Material("Ruby"), Loc_Material("Amethyst")), Loc_InRect(pos.x - dist, pos.y - dist, 2 * dist, 2 …  in FxGrowGemStalactitesTimer()
228 		if (!!FindObject(Find_OCF(OCF_CrewMember), Find_Distance(dist, pos.x, pos.y)))  in FxGrowGemStalactitesTimer()
245 	effect.y = pos.y;  in FxGrowGemStalactitesTimer()
256 	var width = 4 * Min(effect.size, 24) / 3 + RandomX(3, 5);  in FxGrowStalactiteTimer()
258 	for (var x = effect.x - width / 2; x <= effect.x + width / 2; x++)  in FxGrowStalactiteTimer()
260 		var cnt = 0;  in FxGrowStalactiteTimer()
261 		var y = effect.y;  in FxGrowStalactiteTimer()  local
262 		while (!GBackSemiSolid(x, y) && ++cnt < 10)  in FxGrowStalactiteTimer()
264 			DrawMaterialQuad(effect.Material, x, y, x + 1, y, x + 1, y + 1, x, y + 1, true);  in FxGrowStalactiteTimer()
265 			y--;  in FxGrowStalactiteTimer()
269 	effect.y += Random(2) + 1;  in FxGrowStalactiteTimer()
279 	var pos;  in InitMainIsland()
284 	var lorry_pos = FindMainIslandPosition(0, 80);  in InitMainIsland()
285 	var lorry = CreateObjectAbove(Lorry, lorry_pos[0], lorry_pos[1] - 8);  in InitMainIsland()
334 	var wdt = LandscapeWidth();  in FindMainIslandPosition()
335 	var hgt = LandscapeHeight();  in FindMainIslandPosition()
337 	for (var i = 0; i < 100; i++)  in FindMainIslandPosition()
339 		var x = RandomX(wdt / 2 + xpos - sep, wdt / 2 + xpos + sep);  in FindMainIslandPosition()
340 		var y = hgt / 2 - 220;  in FindMainIslandPosition()  local
342 		while (!GBackSolid(x, y) && y < 3 * hgt / 4)  in FindMainIslandPosition()
343 			y++;	  in FindMainIslandPosition()
345 …indObject(Find_Or(Find_Category(C4D_Structure), Find_Func("IsFlagpole")), Find_Distance(60, x, y)))  in FindMainIslandPosition()
348 	return [x, y];  in FindMainIslandPosition()
357 	var islands = FindIslands();  in InitIslands()
364 	var island_nr = 1;  in InitIslands()
365 	for (var island in islands)  in InitIslands()
373 	var wdt = LandscapeWidth();  in FindIslands()
374 	var hgt = LandscapeHeight();  in FindIslands()
375 	var main = [wdt / 2 - 500, hgt / 2 - 225, 1000, 600];  in FindIslands()
376 	var spot = FindLocation(Loc_Solid(), Loc_Not(Loc_InRect(main[0], main[1], main[2], main[3])));  in FindIslands()
377 	var islands = []; var island_cond;  in FindIslands()
381 		var island = MakeIslandRect(spot.x, spot.y);  in FindIslands()
384 		for (var i = 0; i < GetLength(islands) - 1; i++)  in FindIslands()
386 			var island = islands[i];  in FindIslands()
394 private func MakeIslandRect(int x, int y)  in MakeIslandRect()  argument
396 	var x1 = x, x2 = x;  in MakeIslandRect()
397 	var y1 = y, y2 = y;  in MakeIslandRect()
398 	var lwdt = LandscapeWidth();  in MakeIslandRect()
399 	var lhgt = LandscapeHeight();  in MakeIslandRect()
402 	for (var i = 0; i < 250; i++)  in MakeIslandRect()
404 		var range = 60;  in MakeIslandRect()
405 …var spot = FindLocation(Loc_Solid(), Loc_InRect(Max(0, x - range), Max(0, y - range), Min(2 * rang…  in MakeIslandRect()
408 		x = spot.x; y = spot.y;  in MakeIslandRect()
411 		if (y < y1) y1 = y;  in MakeIslandRect()
412 		if (y > y2) y2 = y;		  in MakeIslandRect()
416 	var extra_size = 80;  in MakeIslandRect()
417 	var x1 = Max(0, x1 - extra_size);  in MakeIslandRect()
418 	var y1 = Max(0, y1 - extra_size);  in MakeIslandRect()
419 	var wdt = x2 - x1 + extra_size; wdt = Min(wdt, lwdt - x1);  in MakeIslandRect()
420 	var hgt = y2 - y1 + extra_size; hgt = Min(hgt, lhgt - y1);  in MakeIslandRect()
422 	var rect = [x1, y1, wdt, hgt];  in MakeIslandRect()
432 …var spot = FindLocation(Loc_InRect(island[0], island[1], island[2], island[3] / 2), Loc_Wall(CNAT_…  in ProvideIsland()
440 		var lab = CreateObjectAbove(InventorsLab, spot.x, spot.y);  in ProvideIsland()
447 		var basement = lab->CreateObjectAbove(Basement, 0, lab->GetBottom() + 8);  in ProvideIsland()
455 		var shipyard = CreateObjectAbove(Shipyard, spot.x, spot.y);  in ProvideIsland()
459 		var basement = shipyard->CreateObjectAbove(Basement, 0, shipyard->GetBottom() + 8);  in ProvideIsland()
466 		var cannon = CreateObjectAbove(Cannon, spot.x, spot.y);  in ProvideIsland()
476 		CreateObjectAbove(Catapult, spot.x, spot.y);  in ProvideIsland()
485 		var lorry = CreateObjectAbove(Lorry, spot.x, spot.y);  in ProvideIsland()
496 …var spot = FindLocation(Loc_InRect(island[0], island[1], island[2], island[3] / 2), Loc_Wall(CNAT_…  in ProvideIsland()
498 			CreateObjectAbove(Column, spot.x, spot.y);  in ProvideIsland()
508 	var pos;  in TestGemCount()
511 		var pos = CreateObjectAbove(Rock, pos.x, pos.y)->Explode(100);  in TestGemCount()
513 	var gem_count = ObjectCount(Find_Or(Find_ID(Ruby), Find_ID(Amethyst)));  in TestGemCount()
517 global func DrawBoundingBox(int x, int y, int wdt, int hgt)  in DrawBoundingBox()  argument
520 	DrawMaterialQuad("Brick", x, y + 1, x + wdt, y + 1, x + wdt, y - 1, x, y - 1);  in DrawBoundingBox()
521 …DrawMaterialQuad("Brick", x, y + hgt + 1, x + wdt, y + hgt + 1, x + wdt, y + hgt - 1, x, y + hgt -…  in DrawBoundingBox()
524 	DrawMaterialQuad("Brick", x - 1, y, x + 1, y, x + 1, y + hgt, x - 1, y + hgt);  in DrawBoundingBox()
525 …DrawMaterialQuad("Brick", x + wdt - 1, y, x + wdt + 1, y, x + wdt + 1, y + hgt, x + wdt - 1, y + h…  in DrawBoundingBox()