wanderer can use & share seeds, and unlock. woot!

@@ -341,8 +341,16 @@ function _M:newGame()
 				if __module_extra_info.no_birth_popup then d.key:triggerVirtual("EXIT") end
 			end
 
-			if self.player.no_birth_levelup or __module_extra_info.no_birth_popup then birthend()
-			else self.player:playerLevelup(birthend, true) end
+			local birthend_lvlup = function()
+				if self.player.no_birth_levelup or __module_extra_info.no_birth_popup then birthend()
+				else self.player:playerLevelup(birthend, true) end
+			end
+			if self.player.custom_birthend then
+				self.player:custom_birthend(birth, birthend_lvlup)
+				self.player.custom_birthend = nil
+			else
+				birthend_lvlup()
+			end
 		-- Player was loaded from a premade
 		else
 			self.calendar = Calendar.new("/data/calendar_"..(self.player.calendar or "allied")..".lua", "Today is the %s %s of the %s year of the Age of Ascendancy of Maj'Eyal.\nThe time is %02d:%02d.", 122, 167, 11)
@@ -376,7 +384,8 @@ function _M:newGame()
 			self:setTacticalMode(self.always_target)
 			self:triggerHook{"ToME:birthDone"}
 		end
-	end, quickbirth, 800, 600)
+	end, quickbirth, math.min(math.max(game.w * 0.8, 800), 1200, game.w), 600)
+	-- end, quickbirth, 800, 600)
 	self:registerDialog(birth)
 end
 

@@ -20,7 +20,7 @@
 newBirthDescriptor{
 	type = "class",
 	name = "Adventurer",
-	locked = function() return profile.mod.allow_build.adventurer and true or "hide"  end,
+	locked = function() return (profile.mod.allow_build.adventurer or profile.mod.allow_build.wanderer) and true or "hide"  end,
 	desc = {
 		_t"Adventurers can learn to do a bit of everything, getting training in whatever they happen to find.",
 		_t"#{bold}##GOLD#This is a bonus class for winning the game.  It is by no means balanced.#WHITE##{normal}#",
@@ -124,12 +124,12 @@ newBirthDescriptor{
 newBirthDescriptor{
 	type = "subclass",
 	name = "Wanderer",
-	locked = function() return profile.mod.allow_build.adventurer and true or "hide"  end,
+	locked = function() return profile.mod.allow_build.wanderer and true or "hide"  end,
 	desc = {
 		_t"Wanderers are adventurers who embrace the chaotic nature of the world. They start the game with the Combat Training talent tree, 3 random class trees and 1 random generic tree.",
 		_t"#{bold}##PURPLE#Every 5 levels they gain a new unlocked class tree, at random.#{normal}##LAST#",
 		_t"#{bold}##PURPLE#Every 10 levels starting at level 2 they gain a new unlocked generic tree, at random.#{normal}##LAST#",
-		_t"#{bold}##GOLD#This is a bonus class for winning the game.  It is by no means balanced, fun or winnable, it is most of all #{italic}#RANDOM#{bold}#.#WHITE##{normal}#",
+		_t"#{bold}##GOLD#This is a bonus class for the chaotically inclined. It is by no means balanced, fun or winnable, it is most of all #{italic}#RANDOM#{bold}#.#WHITE##{normal}#",
 		_t"Their most important stats depend on what they get to do.",
 		_t"#GOLD#Stat modifiers:",
 		_t"#LIGHT_BLUE# * +2 Strength, +2 Dexterity, +2 Constitution",
@@ -139,90 +139,6 @@ newBirthDescriptor{
 	not_on_random_boss = true,
 	stats = { str=2, con=2, dex=2, mag=2, wil=2, cun=2 },
 	talents_types = function(birth)
-		local tts_class = {}
-		local tts_generic = {}
-		local tts_addons = {}
-
-		-- Fnid all available trees
-		for _, class in ipairs(birth.all_classes) do if class.id ~= "Adventurer" then
-			for _, sclass in ipairs(class.nodes) do if sclass.def and ((not sclass.def.not_on_random_boss) or (sclass.id == "Stone Warden" and birth.descriptors_by_type.race == "Dwarf")) then
-				if birth.birth_descriptor_def.subclass[sclass.id].talents_types then
-					local tt = birth.birth_descriptor_def.subclass[sclass.id].talents_types
-					if type(tt) == "function" then tt = tt(birth) end
-
-					for t, _ in pairs(tt) do
-						local tt_def = birth.actor:getTalentTypeFrom(t)
-						if tt_def then
-							tts_addons[tt_def.source] = true
-							if tt_def.generic then
-								table.insert(tts_generic, t)
-							else
-								table.insert(tts_class, t)
-							end
-						end
-					end
-				end
-
-				if birth.birth_descriptor_def.subclass[sclass.id].unlockable_talents_types then
-					local tt = birth.birth_descriptor_def.subclass[sclass.id].unlockable_talents_types
-					if type(tt) == "function" then tt = tt(birth) end
-
-					for t, v in pairs(tt) do
-						if profile.mod.allow_build[v[3]] then
-							local tt_def = birth.actor:getTalentTypeFrom(t)
-							if tt_def then
-								tts_addons[tt_def.source] = true
-								if tt_def.generic then
-									table.insert(tts_generic, t)
-								else
-									table.insert(tts_class, t)
-								end
-							end
-						end
-					end
-				end
-			end end
-		end end
-		birth.actor.randventurer_class_trees = tts_class
-		birth.actor.randventurer_generic_trees = tts_generic
-		
-		-- Compute the addons fingerprint
-		local md5 = require "md5"
-		tts_addons['@vanilla@'] = nil
-		birth.actor.randventurer_addons = {game.__mod_info.version_string}
-		for a, _ in pairs(tts_addons) do
-			local addon = game.__mod_info and game.__mod_info.addons and game.__mod_info.addons[a]
-			if addon then
-				table.insert(birth.actor.randventurer_addons, a.."-"..(addon.addon_version_txt or addon.version_txt or "???"))
-			else -- Shouldnt happen but heh
-				table.insert(birth.actor.randventurer_addons, a)
-			end
-		end
-		-- Sort addons so that the fingerprint has meaning ;)
-		table.sort(birth.actor.randventurer_addons)
-		local addons_md5 = mime.b64(md5.sum(table.concat(birth.actor.randventurer_addons,'|')))
-
-		local seed = rng.range(1, 99999999)
-		if __module_extra_info and __module_extra_info.tome_wanderer_seed then
-			local error = function() game:onTickEnd(function() require("engine.ui.Dialog"):simplePopup(_t"Wanderer Seed", _t"The wanderer seed you used was generated for a different set of DLC/addons. Your character will still work fine but you will not have the same talent set as the person that shared the seed with you.") end) end
-			local _, _, iseed, check = __module_extra_info.tome_wanderer_seed:find("^([0-9]+)%-(.*)$")
-			if not check or not tonumber(iseed) then
-				error()
-			else
-				seed = tonumber(iseed)
-				if check ~= addons_md5 then error() end
-			end
-		end
-		rng.seed(seed)
-		table.sort(tts_class)
-		table.sort(tts_generic)
-		table.shuffle(tts_class)
-		table.shuffle(tts_generic)
-
-		birth.actor.randventurer_seed = seed.."-"..addons_md5
-
-		rng.seed(os.time())
-
 		return {["technique/combat-training"] = {true, 0}}
 	end,
 	copy_add = {
@@ -233,6 +149,9 @@ newBirthDescriptor{
 		unused_talents_types = 3,
 	},
 	copy = {
+		custom_birthend = function(self, birth, finish)
+			game:registerDialog(require("mod.dialogs.WandererSeed").new(self, birth, finish))
+		end,
 		randventurerLearn = function(self, what, silent)
 			local tt = table.remove(what == "class" and self.randventurer_class_trees or self.randventurer_generic_trees, 1)
 			if not tt then return end
@@ -259,12 +178,6 @@ newBirthDescriptor{
 			end
 			self.randventurer_last_learn_level = self.level
 		end },
-		resolvers.generic(function(self)
-			self:randventurerLearn("class", true)
-			self:randventurerLearn("class", true)
-			self:randventurerLearn("class", true)
-			self:randventurerLearn("generic", true)
-		end),
 		resolvers.inventorybirth{ id=true, transmo=true,
 			{type="weapon", subtype="dagger", name="iron dagger", autoreq=true, ego_chance=-1000},
 			{type="weapon", subtype="dagger", name="iron dagger", autoreq=true, ego_chance=-1000},

+-- ToME - Tales of Maj'Eyal
+-- Copyright (C) 2009 - 2019 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+return _t"New Class: #LIGHT_GREEN#Wanderer",
+_t[[You have wanderer quite a lot since your birth!
+You can now create new characters with the #LIGHT_GREEN#Wanderer class#WHITE#.
+
+Wanderers start the game with 4 randomly selected talent trees points and gain new random ones as they levelup.
+They are a #{bold}#bonus#{normal}# class, in no way meant to be balanced or even working with all possible talent combos.
+Use at your own risk, and have fun.]]

@@ -56,4 +56,7 @@ return {
 			game.player:hasQuest("staff-absorption"):start_ambush(game.player)
 		end
 	end,
+	on_leave = function()
+		game:setAllowedBuild("wanderer", true)
+	end,
 }

@@ -90,7 +90,7 @@ function _M:init(title, actor, order, at_end, quickbirth, w, h)
 	self.c_ok = Button.new{text=_t"     Play!     ", fct=function() self:atEnd("created") end}
 	self.c_random = Button.new{text=_t"Random!", fct=function() self:randomBirth() end}
 	self.c_premade = Button.new{text=_t"Load premade", fct=function() self:loadPremadeUI() end}
-	self.c_tile = Button.new{text=_t"Select custom tile", fct=function() self:selectTile() end}
+	self.c_tile = Button.new{text=_t"Custom tile", fct=function() self:selectTile() end}
 	self.c_cancel = Button.new{text=_t"Cancel", fct=function() self:atEnd("quit") end}
 	self.c_tut = Button.new{text=_t"Tutorial", fct=function() self:tutorial() end}
 	self.c_options = Button.new{text=_t"Customize", fct=function() self:customizeOptions() end}
@@ -123,7 +123,9 @@ function _M:init(title, actor, order, at_end, quickbirth, w, h)
 	self.c_permadeath_text = Textzone.new{auto_width=true, auto_height=true, text=_t"Permadeath: "}
 	self.c_permadeath = Dropdown.new{width=150, fct=function(item) self:permadeathUse(item) end, on_select=function(item) self:updateDesc(item) end, list=self.all_permadeaths, nb_items=#self.all_permadeaths}
 
-	self.c_desc = TextzoneList.new{width=math.floor(self.iw / 3 - 10), height=self.ih - self.c_female.h - self.c_ok.h - self.c_difficulty.h - self.c_campaign.h - 10, scrollbar=true, pingpong=20, no_color_bleed=true}
+	local raceclass_w = math.min(262, math.floor(self.iw / 3 - 10))
+
+	self.c_desc = TextzoneList.new{width=self.iw - 2 * raceclass_w, height=self.ih - self.c_female.h - self.c_ok.h - self.c_difficulty.h - self.c_campaign.h - 10, scrollbar=true, pingpong=20, no_color_bleed=true}
 
 	self:setDescriptor("base", "base")
 	self:setDescriptor("world", self.default_campaign)
@@ -132,7 +134,7 @@ function _M:init(title, actor, order, at_end, quickbirth, w, h)
 	self:setDescriptor("sex", "Female")
 
 	self:generateRaces()
-	self.c_race = TreeList.new{width=math.floor(self.iw / 3 - 10), height=self.ih - self.c_female.h - self.c_ok.h - (self.c_extra_options.hide and 0 or self.c_extra_options.h) - self.c_difficulty.h - self.c_campaign.h - 10, scrollbar=true, columns={
+	self.c_race = TreeList.new{width=raceclass_w, height=self.ih - self.c_female.h - self.c_ok.h - (self.c_extra_options.hide and 0 or self.c_extra_options.h) - self.c_difficulty.h - self.c_campaign.h - 10, scrollbar=true, columns={
 		{width=100, display_prop="name"},
 	}, tree=self.all_races,
 		fct=function(item, sel, v) self:raceUse(item, sel, v) end,
@@ -141,7 +143,7 @@ function _M:init(title, actor, order, at_end, quickbirth, w, h)
 	}
 
 	self:generateClasses()
-	self.c_class = TreeList.new{width=math.floor(self.iw / 3 - 10), height=self.ih - self.c_female.h - self.c_ok.h - self.c_difficulty.h - self.c_campaign.h - 10, scrollbar=true, columns={
+	self.c_class = TreeList.new{width=raceclass_w, height=self.ih - self.c_female.h - self.c_ok.h - self.c_difficulty.h - self.c_campaign.h - 10, scrollbar=true, columns={
 		{width=100, display_prop="name"},
 	}, tree=self.all_classes,
 		fct=function(item, sel, v) self:classUse(item, sel, v) end,

@@ -346,6 +346,17 @@ function _M:mouseLink(link, text, _, _, _, w, h, x, y)
 	}, true)
 end
 
+function _M:mouseClick(fct, text, _, _, _, w, h, x, y)
+	self:mouseZones({
+		{ x=x, y=y, w=w, h=h, fct=function(button)
+			game.tooltip_x, game.tooltip_y = 1, 1; game:tooltipDisplayAtMap(game.w, game.h, text)
+			if button == "left" then
+				fct()
+			end
+		end},
+	}, true)
+end
+
 -- Switch between equipment sets (by reference only) for the equip doll
 -- This makes sure the equipment shown in the equipdoll matches the tab setting
 -- Done this way to make sure the actor's equipment is never actually touched
@@ -479,7 +490,8 @@ function _M:drawDialog(kind, actor_to_compare)
 	local text = ""
 	local dur_text = ""
 
-	if player.__te4_uuid and profile.auth and profile.auth.drupid and not config.settings.disable_all_connectivity and config.settings.tome.upload_charsheet then
+	-- if player.__te4_uuid and profile.auth and profile.auth.drupid and not config.settings.disable_all_connectivity and config.settings.tome.upload_charsheet then
+	if true then profile.auth.drupid=1 player.__te4_uuid="jklljkljlk"
 		local path = "https://te4.org/characters/"..profile.auth.drupid.."/tome/"..player.__te4_uuid
 		local LinkTxt = ("Online URL: #LIGHT_BLUE##{underline}#%s#{normal}#"):tformat(path)
 		local Link_w, Link_h = self.font:size(LinkTxt)
@@ -612,6 +624,13 @@ function _M:drawDialog(kind, actor_to_compare)
 			local follow = (player.faction == "zigur" or player:attr("zigur_follower")) and _t"Zigur follower" or _t"Antimagic adherent"
 			self:mouseTooltip(self.TOOLTIP_ANTIMAGIC_USER, s:drawColorStringBlended(self.font, "#ORCHID#"..follow, w+200, h, 255, 255, 255, true))
 		end
+
+		if player.randventurer_seed then
+			local text = ("- Seed: #LIGHT_STEEL_BLUE#%s"):tformat(player.randventurer_seed)
+			h = h + self.font_h
+			self:mouseClick(function() core.key.setClipboard(player.randventurer_seed) Dialog:simplePopup("Wanderer Seed", "Copied to clipboard!") end, _t"Click to copy to clipboard. You can share the wanderer seed with your friends, this way they can play with the same set of talents.", s:drawColorStringBlended(self.font, text, w, h, 255, 255, 255, true))
+		end
+
 		h = h + self.font_h
 		s:drawStringBlended(self.font, _t"Size : "..(player:TextSizeCategory():capitalize()), w, h, 0, 200, 255, true) h = h + self.font_h
 		h = h + self.font_h

+-- ToME - Tales of Maj'Eyal
+-- Copyright (C) 2009 - 2019 Nicolas Casalini
+--
+-- This program is free software: you can redistribute it and/or modify
+-- it under the terms of the GNU General Public License as published by
+-- the Free Software Foundation, either version 3 of the License, or
+-- (at your option) any later version.
+--
+-- This program is distributed in the hope that it will be useful,
+-- but WITHOUT ANY WARRANTY; without even the implied warranty of
+-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+-- GNU General Public License for more details.
+--
+-- You should have received a copy of the GNU General Public License
+-- along with this program.  If not, see <http://www.gnu.org/licenses/>.
+--
+-- Nicolas Casalini "DarkGod"
+-- darkgod@te4.org
+
+require "engine.class"
+local Dialog = require "engine.ui.Dialog"
+local Separator = require "engine.ui.Separator"
+local List = require "engine.ui.List"
+local Button = require "engine.ui.Button"
+local ButtonImage = require "engine.ui.ButtonImage"
+local Textbox = require "engine.ui.Textbox"
+local Textzone = require "engine.ui.Textzone"
+local Checkbox = require "engine.ui.Checkbox"
+
+module(..., package.seeall, class.inherit(Dialog))
+
+function _M:init(actor, birth, finish)
+	self.actor = actor
+	self.birth = birth
+	self.finish = finish
+
+	Dialog.init(self, _t"Wanderer Options", 800, 300)
+
+	local explain = Textzone.new{width=self.iw, auto_height=true, text=_t[[Welcome, wandering one! The Wanderer class uses a randomly selected set of talent trees.
+You can now choose how this set is selected:]]}
+	local explain_random = Textzone.new{width=self.iw - 32, auto_height=true, text=_t[[Simply make a random set of trees, this is the default option. If you want to share it with friends, you will find the seed in the character's sheet later on.]]}
+	local explain_seed = Textzone.new{width=self.iw - 32, auto_height=true, text=_t[[If an other player gave you a seed to play, you can enter it here. Do note that while a seed will always work, you will only get the same talents set if you use the same DLC/addons.]]}
+
+	local play = Button.new{text=_t"Play!", fct=function() game:unregisterDialog(self) self:makeWanderer() end}
+	local sep = Separator.new{dir="vertical", size=self.iw}
+	self.c_randomoption = Checkbox.new{title=_t"#{bold}##ANTIQUE_WHITE#Random#{normal}##LAST#", default=true,
+		on_change=function(c) if c then self:swapMode("random") else self.c_randomoption.checked = true end end,
+	}
+	self.c_seedoption = Checkbox.new{title=_t"#{bold}##ANTIQUE_WHITE#Seed#{normal}##LAST#", default=false,
+		on_change=function(c) if c then self:swapMode("seed") else self.c_seedoption.checked = true end end,
+	}
+	self.c_seed = Textbox.new{title="  "--[[do not translate]], text=__module_extra_info.tome_wanderer_seed or "", chars=40, max_len=200, fct=function() end, on_change=function(text) self:setSeed(text) end}
+	self:setSeed(__module_extra_info.tome_wanderer_seed)
+
+	self:loadUI{
+		{left=0, top=0, ui=explain},
+		{left=0, top=explain, ui=sep},
+		{left=0, top=sep, ui=self.c_randomoption},
+		{left=32, top=self.c_randomoption, ui=explain_random},
+		{left=0, top=explain_random, ui=self.c_seedoption},
+		{left=self.c_seedoption, top=explain_random, ui=self.c_seed, hidden=true},
+		{left=32, top=self.c_seedoption, ui=explain_seed},
+		{hcenter=0, bottom=0, ui=play},
+	}
+	self:setupUI(false, true)
+end
+
+function _M:swapMode(mode)
+	if mode == "random" then
+		self.c_randomoption.checked = true
+		self.c_seedoption.checked = false
+		self:toggleDisplay(self.c_seed, false)
+	elseif mode == "seed" then
+		self.c_randomoption.checked = false
+		self.c_seedoption.checked = true
+		self:toggleDisplay(self.c_seed, true)
+	end
+	self.mode = mode
+end
+
+function _M:setSeed(seed)
+	if not seed then return end
+	self.use_seed = seed
+end
+
+function _M:makeWanderer()
+	local birth = self.birth
+	local actor = self.actor
+	local tts_class = {}
+	local tts_generic = {}
+	local tts_addons = {}
+
+	-- Find all available trees
+	for _, class in ipairs(birth.all_classes) do if class.id ~= "Adventurer" then
+		for _, sclass in ipairs(class.nodes) do if sclass.def and ((not sclass.def.not_on_random_boss) or (sclass.id == "Stone Warden" and birth.descriptors_by_type.race == "Dwarf")) then
+			if birth.birth_descriptor_def.subclass[sclass.id].talents_types then
+				local tt = birth.birth_descriptor_def.subclass[sclass.id].talents_types
+				if type(tt) == "function" then tt = tt(birth) end
+
+				for t, _ in pairs(tt) do
+					local tt_def = actor:getTalentTypeFrom(t)
+					if tt_def then
+						tts_addons[tt_def.source] = true
+						if tt_def.generic then
+							table.insert(tts_generic, t)
+						else
+							table.insert(tts_class, t)
+						end
+					end
+				end
+			end
+
+			if birth.birth_descriptor_def.subclass[sclass.id].unlockable_talents_types then
+				local tt = birth.birth_descriptor_def.subclass[sclass.id].unlockable_talents_types
+				if type(tt) == "function" then tt = tt(birth) end
+
+				for t, v in pairs(tt) do
+					if profile.mod.allow_build[v[3]] then
+						local tt_def = actor:getTalentTypeFrom(t)
+						if tt_def then
+							tts_addons[tt_def.source] = true
+							if tt_def.generic then
+								table.insert(tts_generic, t)
+							else
+								table.insert(tts_class, t)
+							end
+						end
+					end
+				end
+			end
+		end end
+	end end
+	actor.randventurer_class_trees = tts_class
+	actor.randventurer_generic_trees = tts_generic
+	
+	-- Compute the addons fingerprint
+	local md5 = require "md5"
+	tts_addons['@vanilla@'] = nil
+	actor.randventurer_addons = {game.__mod_info.version_string}
+	for a, _ in pairs(tts_addons) do
+		local addon = game.__mod_info and game.__mod_info.addons and game.__mod_info.addons[a]
+		if addon then
+			table.insert(actor.randventurer_addons, a.."-"..(addon.addon_version_txt or addon.version_txt or "???"))
+		else -- Shouldnt happen but heh
+			table.insert(actor.randventurer_addons, a)
+		end
+	end
+	-- Sort addons so that the fingerprint has meaning ;)
+	table.sort(actor.randventurer_addons)
+	local addons_md5 = mime.b64(md5.sum(table.concat(actor.randventurer_addons,'|')))
+	actor.randventurer_fingerprint = addons_md5
+
+	-- Make the seed, or use the given one
+	local seed = rng.range(1, 99999999)
+	if self.mode == "seed" and self.use_seed then
+		local error = function() game:onTickEnd(function() require("engine.ui.Dialog"):simplePopup(_t"Wanderer Seed", _t"The wanderer seed you used was generated for a different set of DLC/addons. Your character will still work fine but you may not have the same talent set as the person that shared the seed with you.") end) end
+		local _, _, iseed, check = self.use_seed:find("^([0-9]+)%-(.*)$")
+		if not check or not tonumber(iseed) then
+			error()
+		else
+			seed = tonumber(iseed)
+			if check ~= addons_md5 then error() end
+		end
+	end
+	rng.seed(seed)
+	table.sort(actor.randventurer_class_trees)
+	table.sort(actor.randventurer_generic_trees)
+	table.shuffle(actor.randventurer_class_trees)
+	table.shuffle(actor.randventurer_generic_trees)
+
+	actor.randventurer_seed = seed.."-"..addons_md5
+
+	rng.seed(os.time())
+
+	-- Give the starting trees
+	actor:randventurerLearn("class", true)
+	actor:randventurerLearn("class", true)
+	actor:randventurerLearn("class", true)
+	actor:randventurerLearn("generic", true)
+
+	self.finish()
+end