====== Mauspositionsbestimmung im Multiplayer ======
by Kimichura
====== Vorwort ======
Ersteinmal ein dickes Dankeschön an Napoleon (warrior) der mir immer wieder geholfen hat, egal welche sinnlosen Fragen ich im gestellt hab. ;)
Und auch Danke an Anarki. :)

Bei diesem Skript geht es (wie die Überschrift schon sagt) um die MausPositionsBestimmung im Multiplayer.

====== Code ====== 
<code lua>
-- MausPositionsBestimmung im MP
-- Script Version 2.1
-- by Kimichura
 
function MousePosition_Init()
	GameCallback_FulfillTribute =function()return 1 end
	 
	--bereitstellen der leeren tables & variablen
	MousePosition = {}	 
	MousePosition.Payer = 8 -- spieler, bei dem die tribute erstellt werden
	MousePosition.Player = {}
	for player = 1,8 do
		MousePosition.Player[player] = {}
		MousePosition.Player[player].Tribute = {}
		MousePosition.Player[player].Tribute.X = {}
		MousePosition.Player[player].Tribute.Y = {}
		MousePosition.Player[player].Tribute.Function = {}
		for i = 1,5 do
			MousePosition.Player[player].Tribute.X[i] = {}
			MousePosition.Player[player].Tribute.Y[i] = {}
		end
		MousePosition.Player[player].CalcPosition = {}
		MousePosition.Player[player].CalcPosition.X = 0
		MousePosition.Player[player].CalcPosition.Y = 0
		MousePosition.Player[player].Position = {}
		MousePosition.Player[player].Position.X = 0
		MousePosition.Player[player].Position.Y = 0
	end
	-- tribut menü für den "payer" unzugänglich machen
	-- da durch manuelles bezahlen fehler praktisch "vorprogrammiert" sind
	-- evtl. könnte man das ja noch lokal abfragen.. ich glaub aber net das das so ressi-fressend ist.
	GUIAction_ToggleMenu_Orig = GUIAction_ToggleMenu;
	GUIAction_ToggleMenu = function( _what, _flag)
		if GUI.GetPlayerID() == MousePosition.Payer then
			if _what == gvGUI_WidgetID.TradeWindow then
				Message("@color:255,0,0: Zugang verweigert!")
				Message("Das Tributmen\195\188 wurde unzug\195\164nglich gemacht, da es f\195\188r die Positionsbestimmung gebraucht wird!")
				return false
			end
		end
		GUIAction_ToggleMenu_Orig(_what,_flag)
	end
	 
 
	-- lokale tables bereitstellen
	-- diese tables werden nur gebraucht wenn mans auf meine art wie in dem beispiel macht!
	MousePosition.Local = {}
	MousePosition.Local.JobId = {}
	MousePosition.Local.Button = {}
	---------------------------------------------------------------------------------------
	 
	---------------------------------------------------------- definieren der funktionen
	function MousePosition:Tribute_Create()
		--erstellen der tribute 8*10*10 = 800 tribute
		-- ein paar mehr als geplant...(geplant waren nur 160^^)
		for _player = 1,8 do
		local player = _player
			for i = 0,9 do
				local index = i
				MousePosition.Player[player].Tribute.X[1][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,1,0,false)end}
				MousePosition.Player[player].Tribute.X[2][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,2,0,false)end}
				MousePosition.Player[player].Tribute.X[3][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,3,0,false)end}
				MousePosition.Player[player].Tribute.X[4][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,4,0,false)end}
				MousePosition.Player[player].Tribute.X[5][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,5,0,false)end}
		 
				MousePosition.Player[player].Tribute.Y[1][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,1,1,true)end}
				MousePosition.Player[player].Tribute.Y[2][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,2,1,false)end}
				MousePosition.Player[player].Tribute.Y[3][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,3,1,false)end}
				MousePosition.Player[player].Tribute.Y[4][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,4,1,false)end}
				MousePosition.Player[player].Tribute.Y[5][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,5,1,false)end}
		 
			end
		end
	end
 
 
	function MousePosition:Tribute_Recreate(_player)
		local player = _player
		for i = 0,9 do
			local index = i
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.X[1][index])
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.X[2][index])
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.X[3][index])
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.X[4][index])
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.X[5][index])
		 
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.Y[1][index])
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.Y[2][index])
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.Y[3][index])
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.Y[4][index])
			Logic.RemoveTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.Y[5][index])
			MousePosition.Player[player].Tribute.X[1][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,1,0,false)end}
			MousePosition.Player[player].Tribute.X[2][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,2,0,false)end}
			MousePosition.Player[player].Tribute.X[3][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,3,0,false)end}
			MousePosition.Player[player].Tribute.X[4][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,4,0,false)end}
			MousePosition.Player[player].Tribute.X[5][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,5,0,false)end}
		 
			MousePosition.Player[player].Tribute.Y[1][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,1,1,true)end}
			MousePosition.Player[player].Tribute.Y[2][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,2,1,false)end}
			MousePosition.Player[player].Tribute.Y[3][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,3,1,false)end}
			MousePosition.Player[player].Tribute.Y[4][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,4,1,false)end}
			MousePosition.Player[player].Tribute.Y[5][index] = MousePosition:AddTribute{Callback=function()MousePosition:Tribute_Callback(player,index,5,1,false)end}	 
		end
	end
 
	function MousePosition:Tribute_Callback(_player,_count,_count2,_flag,_finish)
		if _flag == 0 then -- X
			MousePosition.Player[_player].CalcPosition.X = MousePosition.Player[_player].CalcPosition.X + MousePosition:Tribute_Multi(_count,_count2)
		elseif _flag ==  1 then -- Y
			MousePosition.Player[_player].CalcPosition.Y = MousePosition.Player[_player].CalcPosition.Y + MousePosition:Tribute_Multi(_count,_count2)
		end
		if _finish == true then
			-- ich hatte in einer älteren version es so eingebaut, dass sich der tribut selbst neuerstellt
			-- jedoch kam es dadurch zu fehlern. es wurden im singleplayer nach ca. 3 maligem ausführen
			-- einfach tribute nicht bezahlt so das sich "merkwürdige" zahlen ergeben haben
			-- deshalb lösch ich jetz alle komplett, und setz sie neu auf :)
			MousePosition:Tribute_Recreate(_player)
			-- speichern der position
			MousePosition.Player[_player].Position.X = MousePosition.Player[_player].CalcPosition.X
			MousePosition.Player[_player].Position.Y = MousePosition.Player[_player].CalcPosition.Y
			-------------------------
			-- zurücksetzen der zum berechnen verwendeten variablen
			MousePosition.Player[_player].CalcPosition.X = 0
			MousePosition.Player[_player].CalcPosition.Y = 0
			-------------------------------------------------------
			-- und ab damit!
		 
			MousePosition:Global_Start(_player,MousePosition.Player[_player].Position.X,MousePosition.Player[_player].Position.Y)
			if MousePosition.Player[_player].CurrFunc ~= nil then
				_G[MousePosition.Player[_player].CurrFunc](_player,MousePosition.Player[_player].Position.X,MousePosition.Player[_player].Position.Y)
				MousePosition.Player[_player].CurrFunc = nil
			end
		end	
	end
 
 
	function MousePosition:Tribute_Multi(_count,_factor)-- kleine funktion zum berechnen der koordinaten
		if _factor == 5 then
			_factor = 10000
		elseif _factor == 4 then
			_factor = 1000
		elseif _factor == 3 then
			_factor = 100
		elseif _factor == 2 then
			_factor = 10
		end
		return _count*_factor
	end
	 
	function MousePosition:Local_Start(_funcName) -- aufrufen wenn pos ermittelt werden soll
		-- diese function wird nur LOKAL ausgeführt
		 
		-- _funcName ist dabei ein string
		-- _funcName erhält danach 3 parameter
		-- also:
		-- _funcName(player,posX,posY)
		assert(type(_funcName) == "string", "MousePosition:Local_Start(_funcName)" .. string.char(13) .. "_funcName muss ein string sein!")
		 
		local player = GUI.GetPlayerID()
		local x,y = GUI.Debug_GetMapPositionUnderMouse()
		local tableX = {}
		local tableY = {}
		x = math.floor(x+0.5)
		y = math.floor(y+0.5)
		-- aufspalten der koordinaten in einzelne zahlen
		local x5 = math.floor(x/10000)
		local x4 = math.floor(x/1000) - x5*10
		local x3 = math.floor(x/100) - x4*10 - x5*100
		local x2 = math.floor(x/10) - x3*10 - x4*100 - x5*1000
		local x1 = math.floor(x/1) - x2*10 - x3*100 - x4*1000 - x5*10000
		local y5 = math.floor(y/10000)
		local y4 = math.floor(y/1000) - y5*10
		local y3 = math.floor(y/100) - y4*10 - y5*100
		local y2 = math.floor(y/10) - y3*10 - y4*100 - y5*1000
		local y1 = math.floor(y/1) - y2*10 - y3*100 - y4*1000 - y5*10000
		-------------------------------------------------
		-- einsetzen in tables, da ich zu doof war es von anfang an richtig zu machen ;)
		table.insert(tableX,x1)
		table.insert(tableX,x2)
		table.insert(tableX,x3)
		table.insert(tableX,x4)
		table.insert(tableX,x5)
		table.insert(tableY,y1)
		table.insert(tableY,y2)
		table.insert(tableY,y3)
		table.insert(tableY,y4)
		table.insert(tableY,y5)
		----------------------------
	 
		-- wenn _funcName angegeben ist starten :)
		if _funcName ~= nil then
			GUI.PayTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.Function[_funcName])
		end
	 
	 
		for i = 5,1,-1 do
			GUI.PayTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.X[i][tableX[i]])
			GUI.PayTribute(MousePosition.Payer,MousePosition.Player[player].Tribute.Y[i][tableY[i]])
		end
	end

	function MousePosition:AddTribute(_tribute)
		-- kleine ergänzung um AddTribute hernehmen zu können, da ich zu faul war
		-- cost, text und playerId bei jedem tribut einzeln anzugeben ;)
		_tribute.cost = {Gold=0}
		_tribute.text = " "
		_tribute.playerId = MousePosition.Payer
		return AddTribute(_tribute)
	end
	 
	function MousePosition:DefineFunction(_funcName)
		assert(type(_funcName) == "string","MousePosition:DefineFunction()" .. string.char(13) .. "Wrong Input!" .. string.char(13) .. "_funcName ist kein string!")
		for wert = 1,8 do
			local player = wert
			MousePosition.Player[player].Tribute.Function[_funcName] = MousePosition:AddTribute({Callback=function() MousePosition:Tribute_Function_Callback(player,_funcName) end})
		end
	end
 
	function MousePosition:Tribute_Function_Callback(_player,_funcName)
		MousePosition.Player[_player].CurrFunc = _funcName
		MousePosition.Player[_player].Tribute.Function[_funcName] = MousePosition:AddTribute({Callback=function() MousePosition:Tribute_Function_Callback(_player,_funcName) end})
	end
	-- createn der Tribute
	MousePosition:Tribute_Create()
	------------------------------
	function MousePosition:Global_Start(_player,_posX,_posY) -- "finished" function
	 --- könnte man eig. streichen, da man ja immer eigene funktionen hernimmt^^
	end
 
end

</code>

Das war der Code. Zusätzlich wird jedoch noch die Comfort-Funktion AddTribute benötigt.
Die hier
http://www.dedk.de/wiki/doku.php?id=comfort:tribute_comforts
zu finden ist.

====== Anwendung ====== 
Zu aller erst muss
<code lua>
MousePosition_Init()
</code>
aufgerufen werden.


So. Nun zur Anwendung. Als zweites muss dem Skript eine Callback-Funktion übergeben werden.
Das geschieht so:
<code lua>
MousePosition:DefineFunction("Callback_Func")
</code>

Wobei Callback_Func eine freiwählbare Funktion sein kann, jedoch muss sie existieren und sie muss MousePosition:DefineFunction als string
also in "" übergeben werden.
(Man kann beliebig viele übergeben.)
So das wars. Jetzt kann das Skript richtig verwendet werden.

Um die Positionsbestimmung zu Starten muss
<code lua>
MousePosition:Local_Start("Callback_Func")
</code>
aufgerufen werden.(Dies geschieht am besten durch einen GUI-Fähigkeiten-Hack wie im Beispiel zu sehen ist.) 
Wird das getan, so wird die Callback_Func mit 3 Parametern aufgerufen (Player,X-Koordinate,Y-Koordinate).
Also zum Beispiel so:
<code lua>
Callback_Func(1,24758,28573)
</code>
====== Beispiel ====== 
So das wars schon wieder hier folgt noch ein Beispiel:
Darin werden Helias1 bis Helias8 (wenn sie vorhanden sind) teleportiert. Wenn man auf Segnen und dann "in die Map" klickt.
<code lua>
function Beispiel()
MousePosition:DefineFunction("GUI_Action_Hero6Bless_Callback")

MousePosition.Local.Button["GUIAction_Hero6Bless"] = 0 -- fähigkeit ist einsatzbereit
 

Teleportierender_Helias()

-- evtl. sollte man einen cooldown einbauen, jedoch war ich einfach zu faul
-- genauso wie mit den "fähigkeiten-beschreibungen"
end

function Teleportierender_Helias()
GUIAction_Hero6Bless_Orig = GUIAction_Hero6Bless
GUIAction_Hero6Bless = function()
	if MousePosition.Local.Button["GUIAction_Hero6Bless"] == 0 then -- fähigkeit nicht aktiviert
		GUI.ActivateSendHawkCommandState() -- aktivieren
		MousePosition.Local.JobId["GUIAction_Hero6Bless"] = StartSimpleHiResJob("GUI_Action_Hero6Bless_Job")
		MousePosition.Local.Button["GUIAction_Hero6Bless"] = 1
	else -- es ist bereits aktiviert -- abbrechen!
		EndJob(MousePosition.Local.JobId["GUIAction_Hero6Bless"]) -- job beenden
		MousePosition.Local.Button["GUIAction_Hero6Bless"] = 0
		GUI.CancelState()
	end
end
end

function GUI_Action_Hero6Bless_Job() -- job zum überprüfen ob der spieler die fähigkeit auch ausführt
if	GUI.GetCurrentStateName() ~= "SendHawkCommand" then
	MousePosition:Local_Start("GUI_Action_Hero6Bless_Callback") -- bestimmung der pos und aufrufen des callbacks
	return true
end
end


function GUI_Action_Hero6Bless_Callback(_player,_posX,_posY) -- GLOBAL
-- health berechnen, da helias ja sonst auch wenn er stark angeschlagen wäre immer 600 hp hätte :)
local health = Logic.GetEntityHealth(Logic.GetEntityIDByName("Helias".._player))
local maxhealth = Logic.GetEntityMaxHealth(Logic.GetEntityIDByName("Helias".._player))
local healthtohurt = math.abs(maxhealth-health)
-------------------
local _realPlayer = GUI.GetPlayerID() -- spieler id speichern (ist bei jedem anders :))
DestroyEntity("Helias".._player) -- helias zerstören...
SetEntityName(Logic.CreateEntity(Entities.PU_Hero6,_posX,_posY,0,_player),"Helias".._player) -- wiedererstellen
Logic.HurtEntity(Logic.GetEntityIDByName("Helias".._player),healthtohurt) -- helias verletzen
if _player == _realPlayer then -- hier gehts nur für den spieler weiter, der helias teleportiert hat!
	GUI.SetSelectedEntity(Logic.GetEntityIDByName("Helias".._player)) -- helias selektieren
	MousePosition.Local.Button["GUIAction_Hero6Bless"] = 0
end
end
</code>

====== Schlusswort ====== 
Ich hoffe irgendjemand kann damit was anfangen, auch wenn meine Erklärungen mehr als schlecht sind.
Falls noch Fragen offen stehen nicht zögern mir (Kimichura) eine PN zu schreiben. :)