Game	Maps
The Settlers 3	0
The Settlers 4	20	Show maps	Download CSV
The Settlers HoK	12	Show maps	Download CSV
The Settlers 2 - 10th Anniversary	0
The Settlers RoaE	0

Mein Profil

Geplante Maps:
- Quell des Hasses Kommt auf jeden Fall!
- Erec Tales 2
- Tausend Gesichter

Bestellungen:
Wer möchte, das ich ihm/ihr eine Landschaft gestalte, muss mir eine PN schreiben. Das mach ich gerne!
Um so mehr Infos ich bekomme desto besser! Das hier sollte in der PN stehen:
- Kartengröße
- Ungefähre Form(Später am besten Höhenmap per E-Mail - DEdK)
- Story und Ablaufplan
Gilt für Siedler 4 und Siedler DEdK

Über mich:
Geschlecht : männlich
Haare : irgend was zwischen dunkelblond und braun
Augen : grau, grün, blau gemixt
Figur : normal
Körpergröße : 174cm
Gewicht: : 74kg
Geburtsdatum : 4.3.1993
Style : EMO
Status : Single - Für immer und ewig
Hobbies : Zeichnen, Siedler, Kurzromane schrieben, dichten

Andere Foren in denen ich anzutreffen bin:
YouTube
Siedler Games

20 Gründe eine Zeit lang von Siedler abstand zu nehmen:
- Deine Freundin muss sich nackt vor deinen Monitor stellen, damit sie deine Aufmerksamkeit bekommt.
- Du suchst selbst bei Sodoku nach Global Variables.
- Du versuchst die Wände deines Zimmers mit dem Smart Brush zu streichen.
- Es beginnt zu stinken, weil dein Haustier verhungert ist.
- Deine Kinder haben ein PU vor ihrem Namen.
- Deine Eltern heißen Ari und Dario.
- Deine Freundin will nicht mehr mit deinem Computer in einem Bett liegen.
- Die Badewanne läuft über, weil du nur mal ein paar “Feinheiten” ausbügeln wolltest.
- Du bezahlst deine Rechnungen in Taler.
- Du kennst dich in _G so gut aus, das BB dich bei Problemen fragt.
- Der Mapeditor ist wegen Überstunden in den Streik getreten.
- Deine Postadresse ist eine XY-Koordinate.
- Selbst deine Mutter zieht aus, weil sie keine Lust mehr hat Testspieler zu sein.
- Du benutzt die Sprüche der Helden im alltäglichen Leben.
- Auf deinem Gehaltscheck steht Tools.GiveResouces.
- Du erteilst auf Arbeit deinen Angestellten Main und Sub Quest’s.
- Du bewahrst Hammer, Rohrzange und Schraubenzieher im Werkzeug-Container auf.
- Du gießt deine Pflanzen mit Mediterran-NonFreezing-Shorwave.
- Du hast deine Maptester im Keller vor dem Computer festgekettet.
- Du hast Das alles durchgelesen, in der Hoffnung das etwas nicht zutrifft.

DEdK Codes

Da es inzwischen zur Mode geworden ist, seine Codes in das Profil zu schreiben, werde ich das jetzt auch tun. Ich will ja nicht unmodern sein. Vielleicht kann man es ja gebrauchen?

HeroCamera
Diese Funktion ist eine Neuauflage von Noigis RPG-Kamera. Der große Unterschied ist, das Rotation und Winkel der Kamera über die Maus gesteuert werden. Die Tasten 0 und 9 steuern den Zoom. Die Tasten "Einfg" und "Entf" sollten nicht genutzt werden. Ebenso sollte Darios Draufsichtfähigkeit nicht benutzt werden. Aktiviert und deaktiviert wird die Kamera über die Online-Help( der Knopf mit dem "?" ). Beim Start eines Briefings oder Cutscenes, wird die Camera abgeschaltet. So wird ein Fehler in der alten RPG-Funktion, der zwischen zwei Briefings auftrat, umgangen.

Die Kamera verfolgt einen bestimmten Helden. Dieser Held muss im Aufruf der Funktion in "" angegeben werden.

HeroCamera_GlobalSettings( "Ari" )

Ich bedanke mich bei Ankari, weil er mir bei dem Probelm der Mausposition geholfen hat!

function HeroCamera_GlobalSettings(_hero)
	-- Hero Camera Table
	HeroCamera = {}
	HeroCamera.Angle = 30
	HeroCamera.Distance = 800
	HeroCamera.Hero = _hero
	HeroCamera.Root = 0
	HeroCamera.Online = 0
	-- GUI Changes
	GroupSelection_SelectTroops_OrigHC = GroupSelection_SelectTroops
    GroupSelection_SelectTroops = function( _count )
		if HeroCamera.Online == 0 then
			GroupSelection_SelectTroops_OrigHC( _count )
		else
			if _count == 9 then
				if HeroCamera.Distance > 675 then
					HeroCamera.Distance = HeroCamera.Distance - 25
				end
			elseif _count == 10 then
				if HeroCamera.Distance < 3000 then
					HeroCamera.Distance = HeroCamera.Distance + 25
				end
			else
				GroupSelection_SelectTroops_OrigHC( _count )
			end
		end
	end
	StartBriefing_OrigHC = StartBriefing
	StartBriefing = function( _briefing )
        if HeroCamera.Online == 1 then
            SwitchToNormalView()
        end
        StartBriefing_OrigHC( _briefing )
    end
	QuickSave_OrigHC = QuickSave
	QuickSave = function()
        if HeroCamera.Online == 0 then
            QuickSave_OrigHC()
        elseif HeroCamera.Online == 1 then
            Message("Herokamera erst abschalten!" )
        end
    end
	GUIAction_ChangeBuildingMenu_OrigHC = GUIAction_ChangeBuildingMenu
    GUIAction_ChangeBuildingMenu = function( _a )
        if HeroCamera.Online == 0 then
            GUIAction_ChangeBuildingMenu_OrigHC( _a )
        elseif HeroCamera.Online == 1 then
            Message("Herokamera erst abschalten!" )
        end
    end
	GUIAction_JumpToBuildingOfWorker_OrigHC = GUIAction_JumpToBuildingOfWorker
    GUIAction_JumpToBuildingOfWorker = function( _a )
        if HeroCamera.Online == 0 then
            GUIAction_JumpToBuildingOfWorker_OrigHC( _a )
        elseif HeroCamera.Online == 1 then
            Message("Herokamera erst abschalten!" )
        end
    end
	if StartCutscene then StartCutscene_OrigHC = StartCutscene end
	if StartCutscene then
        StartCutscene = function( _Cutscene, _EscapeMode )
            if HeroCamera.Online == 1 then
                SwitchToNormalView()
				Camera.StopCameraFlight()
            end
            StartCutscene_OrigHC( _Cutscene, _EscapeMode )
        end
    end
	GUIAction_OnlineHelp = function()
		if HeroCamera.Online == 0 then
			SwitchToHeroCamera()
		else
			SwitchToNormalView()
		end
	end
	GUITooltip_Generic_Orig = GUITooltip_Generic
	GUITooltip_Generic = function(a)
	local newString,numberOfChanges = string.gsub( a, "MenuMap/", "" )
	if newString == "OnlineHelp" then
		if numberOfChanges == 1 then
			XGUIEng.SetText( gvGUI_WidgetID.TooltipBottomText, "@color:180,180,180 Heldenkamera: @color:255,255,255 Beobachtet Euten @cr "..
																" Helden in der Schulterperspektive oder wechelt zur normalen Ansicht"..
																" zur\195\188ck. @cr (In Briefings und Cutscenes werden die Einstellungen"..
																" zur\195\188ckgesetzt)" )
			XGUIEng.SetText( gvGUI_WidgetID.TooltipBottomCosts, "" )
		end
	else
		GUITooltip_Generic_Orig(a)
	end
	end
	-- Hero Camera Functions
	function SwitchToHeroCamera()
		for i=1,3 do Camera_ToggleDefault()end
		GUI.ClearNotes()
		ControlCamera = StartSimpleHiResJob("GetMousePosition" )
		Display.SetRenderSky(1)
		Display.SetRenderFogOfWar(0)
		Camera.ZoomSetDistance(HeroCamera.Distance)
		HeroCamera.Root = Logic.GetEntityOrientation(Logic.GetEntityIDByName(HeroCamera.Hero))
		HeroCamera.Online = 1
	end
	function SwitchToNormalView()
		EndJob(ControlCamera)
		Camera_ToggleDefault()
		Display.SetRenderSky(0)
		Display.SetRenderFogOfWar(1)
		GUI.ClearNotes()
		Camera.StopCameraFlight()
		HeroCamera.Distance = 800
		HeroCamera.Angle = 30
		local pos = GetPosition(_hero)
		Camera.ScrollSetLookAt(pos.X,pos.Y)
		HeroCamera.Online = 0
	end
end
function GetMousePosition()
	if GUI.GetScreenSize() == 1024 then
		if GUI.GetMousePosition() < 1 then
				HeroCamera.Root = HeroCamera.Root + 5
			if HeroCamera.Root > 360 then
				HeroCamera.Root = 0
			end
		elseif GUI.GetMousePosition() > 1022 then
			HeroCamera.Root = HeroCamera.Root - 5
			if HeroCamera.Root < 0 then
				HeroCamera.Root = 360
			end
		end
	elseif GUI.GetScreenSize() == 1280 then
		if GUI.GetMousePosition() < 1 then
				HeroCamera.Root = HeroCamera.Root + 5
			if HeroCamera.Root > 360 then
				HeroCamera.Root = 0
			end
		elseif GUI.GetMousePosition() > 1278 then
			HeroCamera.Root = HeroCamera.Root - 5
			if HeroCamera.Root < 0 then
				HeroCamera.Root = 360
			end
		end
	end
	if GetMousePositionUpDown() > 380 then
		if HeroCamera.Angle < 89 then
			HeroCamera.Angle = HeroCamera.Angle + 2
		end
	elseif GetMousePositionUpDown() < 1.002 then
		if HeroCamera.Angle > 16 then
			HeroCamera.Angle = HeroCamera.Angle - 2
		end
	end
	Camera.RotSetAngle(HeroCamera.Root-90)
	Camera.ZoomSetAngle(HeroCamera.Angle)
	Camera.ZoomSetDistance(HeroCamera.Distance)
	Display.SetRenderSky(1)
	Display.SetRenderFogOfWar(0)
	Camera.FollowEntity(Logic.GetEntityIDByName(HeroCamera.Hero))
end
function GetMousePositionUpDown()
	local _mousepos = {GUI.GetMousePosition()}
	local _screensize = {GUI.GetScreenSize()}
	local _y_relative = _screensize[2] / _mousepos[2]
	return _y_relative
end

NPCCharackter
Diese Funktion erstellt aus einem PU-Arbeiter einen NPC, ohne das er verschwindet, wenn er keinen Arbeitsplatz hat. Es funktioniert nicht mit einem PU_Couinier. Der NPC kann allerdings nicht bewegt werden!

NPCCharackter.Create(Entities.PU_Sawmillworker,"Horst",8,"HorstPos",180.00) 

Hier der Code:

NPCCharackter = {
	Create = function( _type,_name,_player, _pos, _angle )
		local pos = GetPosition(_pos)
		SetEntityName(Logic.CreateEntity(_type,pos.X,pos.Y,_angle,_player),_name)
		Logic.SetTaskList( GetEntityId(_name), TaskLists.TL_NPC_IDLE )
	end,	
}

---

Guestbook