poosh

git-svn-id: http://svn.net-core.org/repos/t-engine4@4740 51575b47-30f0-44d4-a5cc-537603b46e54

ideas/lost-land-poosh.lua

+if game.state.has_poosh then return end
+game.state.has_poosh = true
+
+game:onLevelLoad("wilderness-1", function(wzone, level)
+	local changer = function()
+	local npcs = mod.class.NPC:loadList{"/data/general/npcs/feline.lua","/data/general/npcs/fire-drake.lua","/data/general/npcs/wild-drake.lua","/data/general/npcs/telugoroth.lua"}
+	local DamageType = engine.DamageType
+	local Talents = engine.interface.ActorTalents
+	npcs.KELAD = mod.class.NPC.new{
+		name="Kelad, the One Who Stole Poosh", image="npc/jawa_01.png",
+		type = "unknown", subtype = "unknown", unique = true,
+		display = "p", color=colors.VIOLET,
+		desc = [[This small creature is covered by a cloak and hood, only a pair of yellow eyes are visible.]],
+		level_range = {19, nil}, exp_worth = 1,
+		max_life = 230, life_rating = 17, fixed_rating = true,
+		stats = { str=25, dex=10, cun=8, mag=20, wil=20, con=20 },
+		rank = 3.5,
+		size_category = 2,
+		combat_armor = 4, combat_def = 20,
+		infravision = 10,
+		instakill_immune = 1,
+		stun_immune = 0.6,
+		move_others=true,
+		combat = { dam=resolvers.levelup(resolvers.rngavg(25,110), 1, 2), atk=resolvers.rngavg(25,70), apr=25, dammod={str=1.1} },
+		resists = { [DamageType.DARKNESS] = 20, [DamageType.LIGHT] = 20, [DamageType.TEMPORAL] = 20 },
+		body = { INVEN = 10, MAINHAND=1, OFFHAND=1, BODY=1 },
+		resolvers.drops{chance=100, nb=1, {defined="HEART_POOSH"}, },
+		resolvers.drops{chance=100, nb=3, {tome_drops="boss"} },
+		resolvers.talents{
+			[Talents.T_DUST_TO_DUST]={base=3, every=7},
+			[Talents.T_TURN_BACK_THE_CLOCK]={base=5, every=7},
+			[Talents.T_ECHOES_FROM_THE_PAST]={base=4, every=7},
+			[Talents.T_RETHREAD]={base=3, every=7},
+			[Talents.T_TEMPORAL_FUGUE]={base=3, every=7},
+			[Talents.T_BODY_REVERSION]={base=3, every=7},
+			[Talents.T_ENERGY_DECOMPOSITION]={base=3, every=7},
+			[Talents.T_ENERGY_ABSORPTION]={base=3, every=7},
+			[Talents.T_REPULSION_FIELD]={base=3, every=7},
+		},
+		resolvers.sustains_at_birth(),
+
+		autolevel = "dexmage",
+		ai = "tactical", ai_state = { talent_in=1, ai_move="move_astar", },
+		resolvers.inscriptions(1, "rune"),
+
+		on_die = function(self, who)
+			game.log("#VIOLET#As Kelad dies you can feel the whole area starting to fade. It seems that without him the zone will soon cease to have ever existed.")
+		end,
+	}
+
+	local objects = mod.class.Object:loadList("/data/general/objects/objects.lua")
+	objects.HEART_POOSH = mod.class.Object.new{
+		power_source = {nature=true},
+		unique = true,
+		type = "misc", subtype="land",
+		unided_name = "glowing rock",
+		name = "Heart of Poosh", image = "object/lava_boulder.png",
+		level_range = {20, 35},
+		display = "*", color=colors.RED,
+		encumber = 5,
+		desc = [[The very heart of the lost land of Poosh. What did Kelad need with it?]],
+
+		carrier = {
+			inc_damage = {all=2},
+		},
+		max_power = 100, power_regen = 1,
+		use_power = { name = "natural balance", power = 100, use = function(self, who)
+			who:incEquilibrium(-30)
+			if who.life < who.max_life / 2 then who:heal(who.max_life / 2) end
+			return {id=true, used=true}
+		end },
+	}
+
+	local zone = engine.Zone.new("lost-land-poosh", {
+		name = "Lost land of Poosh",
+		level_range = {15, 35},
+		level_scheme = "player",
+		max_level = 2,
+		actor_adjust_level = function(zone, level, e) return zone.base_level + e:getRankLevelAdjust() + level.level-1 + rng.range(-1,2) end,
+		width = 50, height = 50,
+		ambient_music = "Rainy Day.ogg",
+		reload_lists = false,
+		generator =  {
+			map = {
+				class = "engine.generator.map.Forest",
+				edge_entrances = {4,6},
+				zoom = 4,
+				sqrt_percent = 30,
+				noise = "fbm_perlin",
+				floor = "JUNGLE_GRASS",
+				wall = "JUNGLE_TREE",
+				up = "JUNGLE_GRASS_UP4",
+				down = "JUNGLE_GRASS_DOWN6",
+				door = "JUNGLE_GRASS",
+				do_ponds =  {
+					nb = {0, 2},
+					size = {w=25, h=25},
+					pond = {{0.6, "DEEP_WATER"}, {0.8, "DEEP_WATER"}},
+				},
+			},
+			actor = {
+				class = "engine.generator.actor.Random",
+				nb_npc = {20, 30},
+				guardian = "KELAD",
+			},
+			object = {
+				class = "engine.generator.object.Random",
+				nb_object = {6, 9},
+			},
+			trap = {
+				class = "engine.generator.trap.Random",
+				nb_trap = {6, 9},
+			},
+		},
+		levels = { [1] = { generator = { map = { up = "JUNGLE_GRASS", }, }, }, },
+		npc_list = npcs,
+		grid_list = mod.class.Grid:loadList{"/data/general/grids/basic.lua", "/data/general/grids/jungle.lua", "/data/general/grids/water.lua"},
+		object_list = objects,
+		trap_list = mod.class.Trap:loadList("/data/general/traps/natural_forest.lua"),
+		all_lited=true,
+		foreground = function(level, x, y, nb_keyframes)
+			if nb_keyframes > 10 then return end
+			local Map = require "engine.Map"
+			if not level.bird then
+				if nb_keyframes > 0 and rng.chance(500 / nb_keyframes) then
+					local dir = -math.rad(rng.float(310, 340))
+					local dirv = math.rad(rng.float(-0.1, 0.1))
+					local y = rng.range(0, level.map.w / 2 * Map.tile_w)
+					local size = rng.range(32, 64)
+					level.bird = require("engine.Particles").new("eagle", 1, {x=0, y=y, dir=dir, dirv=dirv, size=size, life=800, vel=7, image="particles_images/birds_tropical_01"})
+					level.bird_s = require("engine.Particles").new("eagle", 1, {x=0, y=y, shadow=true, dir=dir, dirv=dirv, size=size, life=800, vel=7, image="particles_images/birds_tropical_shadow_01"})
+				end
+			else
+				local dx, dy = level.map:getScreenUpperCorner()
+				if level.bird then level.bird.ps:toScreen(dx, dy, true, 1) end
+				if level.bird_s then level.bird_s.ps:toScreen(dx + 100, dy + 120, true, 1) end
+				if level.bird and not level.bird.ps:isAlive() then level.bird = nil end
+				if level.bird_s and not level.bird_s.ps:isAlive() then level.bird_s = nil end
+			end
+		end,
+	})
+	return zone
+	end
+
+	local find = {type="world-encounter", subtype="maj-eyal"}
+	local where = game.level:pickSpotRemove(find)
+	while where and (game.level.map:checkAllEntities(where.x, where.y, "block_move") or not game.level.map:checkAllEntities(where.x, where.y, "can_encounter")) do where = game.level:pickSpotRemove(find) end
+	local x, y = mod.class.Encounter:findSpot(where)
+	print("Poosh at ", x, y)
+	if not x then return end
+
+	local g = game.level.map(x, y, engine.Map.TERRAIN):cloneFull()
+	g.name = "Portal to the lost land of Poosh"
+	g.display='>' g.color_r=0 g.color_g=0 g.color_b=255 g.notice = true
+	g.change_level=1 g.change_zone="lost-land-poosh" g.glow=true
+	g.add_displays = g.add_displays or {}
+	g.add_displays[#g.add_displays+1] = mod.class.Grid.new{image="terrain/demon_portal4.png", z=5}
+	g.nice_tiler = nil
+	g:initGlow()
+	g.real_change = changer
+	g.change_level_check = function(self)
+		if game.visited_zones["lost-land-poosh"] then game.log("#VIOLET#The portal seems to be inactive now.")
+		else game:changeLevel(1, self.real_change()) end
+		return true
+	end
+	game.zone:addEntity(game.level, g, "terrain", x, y)
+	print("Poosh portal added")
+end)
+local msg = "Message from #GOLD#DarkGod#WHITE#: Today we celebrate the 10000 days of total ToME4 playtime! This is over 27 years and a half.\nTo celebrate this you should find on your worldmap a new portal to the lost land of Poosh where you will see some new creatures and might find a useful item too!\nThank you all and have great fun!\n\nPS: Oh and do not forget to vote for ToME4 on http://te4.org/vote ! :)\n\nPS2: If you liked this special event, please say so in the forums I may do more later!"
+game.log(msg)
+require("engine.ui.Dialog"):simpleLongPopup("10000 days played!", msg, 500)