Patrizierforum

Source code

;
; AutoHotkey Version: 1.x
; Language:       De
; Platform:       Win9x/NT
; Author:         Ugh!
;
; Script Function:
;	Ein paar Klickhelferlein für P2
;

#NoEnv  ; Recommended for performance and compatibility with future AutoHotkey releases.
;SendMode Input  ; Recommended for new scripts due to its superior speed and reliability.
SetWorkingDir %A_ScriptDir%  ; Ensures a consistent starting directory.

;**** Fingerarbitrage ****


					;Benutzereingabe: Anzahl der AS 
loop
{
InputBox imax, Anzahl Arbitrageschiffe, bitte eingeben: Die Anzahl muss zwischen 1 und 9 liegen
if (imax >= 1) and (imax <= 9)
	break
}

i1 := 1




ins::					;Fingerarbitrage automatisch. Den AS müssen vorher die Ziffern mit ^Ziffer zugeordnet
if not GetKeyState("numlock", "T")	;Numlock anschalten: Numlock schaltet die Kette bei Bedarf ab
	send {numlock}
SysGet, Mon, Monitor			;Auflösung erkennen: horizontal = MonRight, vertikal = MonBottom
loop  
{
send %i1%				;Schiffsnummer eintippen
sleep 400
MausX := MonRight-29			;Klickkoordinaten horizontal berechnen
click %MausX%, 318			;Vertikalkoordinaten sind bei allen Auflösungen gleich
sleep 200				;etwas warten, damit die Darstellung nachkommt 
MausX := MonRight-42
click %MausX%, 450
sleep 100
	MausX := MonRight-40		;stelle fest, ob ein bestimmtes Pixel...
	PixelGetColor, color, %MausX%, 455
	if color = 0xD4DADE		;...eine bestimmte Farbe hat
		{			;dann ist die Autoroute abgeschaltet und muss wieder aktiviert werden
		MausX := MonRight-42
		click %MausX%, 450
		sleep 100
		}
i1 := i1 + 1				;weiterzählen Schiffsnummer
if i1 > %imax%
	i1 := 1				;oder am Ende wieder bei 1 beginnen
if not GetKeyState("numlock", "T")	;Abbruch, wenn NumLock abgeschaltet wird
	break
}
return



;**** Seegefechte ****

RControl::				;Rechte Steuerungstaste: Seegefechtsmeldung schließen (kein Gefecht)
SysGet, Mon, Monitor
MausX := (MonRight-284)/2+125
MausY := MonBottom/2+80
click %MausX%, %MausY% 
return


LControl & RAlt::						;AltGr: Seegefecht manuell durchführen
if GetKeyState("numlock", "T")					;wenn Arbitrage läuft
	send {numlock}						;Arbitragekette abschalten
send {NumpadSub}{NumpadSub}{NumpadSub}{NumpadSub}{NumpadSub}	;Zeitbremse

SysGet, Mon, Monitor
MausX := (MonRight-284)/2
MausY := MonBottom/2+80
click %MausX%, %MausY% 					;manuelles Seegefecht beginnen
sleep 600
send ^0							;aktuelles Schiff auf Ziffer 0
return


+RControl::				;=umsch-RStrg: Seegefecht "durch die Hintertür" verlassen
SysGet, Mon, Monitor
MausX := MonRight-239
click %MausX%,18
sleep 900
MausX := MonRight-135
click %MausX%,527
sleep 100
MausX := (MonRight-284)/2-175
MausY := MonBottom/2+250
click %MausX%, %MausY%
send {F8}
return