;
; AutoHotkey Version: 1.x
; Language:       English
; Platform:       Win9x/NT
; Author:         A.N.Other <myemail@nowhere.com>
;
; Script Function:
;	Template script (you can customize this template by editing "ShellNew\Template.ahk" in your Windows folder)
;

#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.

LWin::
sleep 1000
; -------------- Variablen-Definition ----------------------

; --- Inventar-Beutel, der die Karten hat. Start- und Endpunkt der Ziehbewegung
bag_top_positionx := 708
bag_top_positiony := 183
top_right_cornerx := 1817
top_right_cornery := 20

; --- Inventar sortieren. Position BEVOR das Inventar verschoben wurde. Und Bestätigungsbutton.
; --- Sollte das Inventar immer gleich aussehen UND Platz für 11 Items im ersten Beutel sein,
; --- ist es nicht notwendig, zu sortieren. Dann kann bag_sort_needed auf false bleiben. Andernfalls muss man es auf true umstellen.

bag_sort_needed := true
bag_sort_positionx := 680
bag_sort_positiony := 219
bag_sort_confirmx := 903
bag_sort_confirmy := 601

; --- Die Positionen der Karten im Beutel, wenn der Beutel auf seiner End-Position angekommen ist
maps_position1x := 1735
maps_position1y := 86
maps_position2x := 1768
maps_position2y := 86
maps_position3x := 1804
maps_position3y := 86
maps_position4x := 1842
maps_position4y := 86
maps_position5x := 1879
maps_position5y := 86
maps_position6x := 1733
maps_position6y := 124
maps_position7x := 1768
maps_position7y := 124
maps_position8x := 1804
maps_position8y := 124
maps_position9x := 1842
maps_position9y := 124
maps_position10x := 1879
maps_position10y := 124
maps_position11x := 1733
maps_position11y := 158

; --- Der Shortcut, damit sich der Postkasten öffnet
post_shortcut := "ö"

; --- Der Briefkasten muss auch an die Seite gezogen werden. Start und Endpunkt des Ziehens
post_top_positionx := 514
post_top_positiony := 128
post_end_positionx := 1475
post_end_positiony := 20

; --- Die Stelle, um einen erhaltenen Brief zu öffnen (durch Doppelklick)
post_firstletter_positionx := 1458
post_firstletter_positiony := 160

; --- einen leeren Brief muss man löschen
post_delete_positionx := 1322
post_delete_positiony := 730
post_delete_confirm_positionx := 899
post_delete_confirm_positiony := 602

; --- einen neuen brief erstellen
post_create_positionx := 1330
post_create_positiony := 259

; --- Ein Brief, der geöffnet wurde, muss auch verschoben werden.
letter_top_positionx := 544
letter_top_positiony := 130
letter_end_positionx := 1433
letter_end_positiony := 307

; --- Ein neu erstellter Brief muss auch verschoben werden.
new_letter_top_positionx := 557
new_letter_top_positiony := 162
new_letter_end_positionx := 1421
new_letter_end_positiony := 308

; --- Adress-Zeile eines neu erstellten Briefs
address_positionx := 1282
address_positiony := 338

; --- Buttons für Gegenstand entnehmen und Geld entnehmen (bei verschobenem Brief-Fenster)
retrieve_item_positionx := 1265
retrieve_item_positiony := 680
retrieve_money_positionx := 1570
retrieve_money_positiony := 680

; --- Brief send, wenn alles eingegeben ist
send_positionx := 1345
send_positiony := 735

; --- man kann auch gold, silber und kupfer verschicken.
money_value1_positionx := 1496
money_value1_positiony := 564
money_value2_positionx := 1547
money_value2_positiony := 564
money_value3_positionx := 1599
money_value3_positiony := 564

; --- die plätze, auf den man die karten schieben soll (im neu eröffneten Brief)
item_position1x := 1426
item_position1y := 448
item_position2x := 1426
item_position2y := 448
item_position3x := 1426
item_position3y := 448
item_position4x := 1426
item_position4y := 448
item_position5x := 1426
item_position5y := 448
item_position6x := 1426
item_position6y := 448
item_position7x := 1426
item_position7y := 448
item_position8x := 1426
item_position8y := 448
item_position9x := 1426
item_position9y := 448
item_position10x := 1426
item_position10y := 448

; --- sofort abmelden button
instant_logout_positionx := 1020
instant_logout_positiony := 601

; --- neuen char erstellen
create_positionx := 295
create_positiony := 846

; --- char löschen button und namensfeld (wo man hinklicken muss, damit der cursor blinkt)
delete_positionx := 299
delete_positiony := 900
delete_name_filedx := 970
delete_name_filedy := 560

; --- mittelerde betreten
enter_positionx := 1546
enter_positiony := 852

; --- ich hab hier nen zwerg angeklickt. wer ne andere rasse will, hier gehören die koordinaten rein
race_positionx := 314
race_positiony := 265

; --- der weiter-button, wenn man klasse und rasse gewählt hat
race_confirm_positionx := 1229
race_confirm_positiony := 1028

; --- wenn man einen char erstellen will, der keinen namen hat, kommt ne meldung. die muss man bestätigen
char_noname_positionx := 956
char_noname_positiony := 618

; --- namensfeld (wo man hinklicken muss, damit der cursor blinkt), um den char zu erstellen
char_name_positionx := 974
char_name_positiony := 224

; --- der geld wert, den der char zur verfügung hat.
; --- ist hier weniger eingetragen, als der char per post erhält, wir die differenz beim ersten mal weiterschicken
; --- nicht mitgeschickt und mit dem char gelöscht
; --- ist hier mehr eingetragen, als der char per post erhält, kann folgendes passieren:
; --- der char hat irgendwann nicht mehr genügend kohle, um beide briefe zu versenden, bricht aber nicht ab, weil hier drin steht,
; --- dass er noch kohle zur verfügung hätte. also AUF GAR KEINEN FALL mehr einstellen, als man hinschickt.
; --- value1 = gold, value2 = silber, value3 = bronze
money_value1 := 5
money_value2 := 0
money_value3 := 0

; --- der erste char, der die karten erhält und wo man hinklicken muss, um ihn auszuwählen
chara_positionx := 291
chara_positiony := 350
chara_name := "abarg"

; --- und der zweite char
charb_positionx := 303
charb_positiony := 434
charb_name := "aberg"

; ------------- Ende Variablen-Definition -----------------------

timer_pause := 10000
timer := 700
timer_login := 15000
timer_logout := 12000
timer_switch := 5000
timer_delete := 5000
loop_timer := 2

char_switch := 1


; --- bitte nur an diesem einen loop schrauben. idealerweise auf ne gerade zahl stellen
Loop 250
{
	if (char_switch == 0)
	{
		char_switch := 1
	}
	else
	{
		char_switch := 0
	}

	if ((money_value1 == 0) AND (money_value2 < 3))
	{
		break
	}

	Loop %loop_timer%
	{
		Click %enter_positionx%, %enter_positiony%
		sleep %timer%
	}
	sleep %timer_login%

	send i
	sleep %timer%
	if bag_sort_needed
	{
		Loop %loop_timer%
		{
			Click %bag_sort_positionx%, %bag_sort_positiony%
			sleep %timer%
		}
		Loop %loop_timer%
		{
			Click %bag_sort_confirmx%, %bag_sort_confirmy%
			sleep %timer%
		}
	}
	Loop %loop_timer%
	{
		drag(bag_top_positionx, bag_top_positiony, top_right_cornerx, top_right_cornery)
		sleep %timer%
	}

	Send %post_shortcut%
	sleep %timer%

	Loop %loop_timer%
	{
		drag(post_top_positionx, post_top_positiony, post_end_positionx, post_end_positiony)
		sleep %timer%
	}


	Loop 2
	{
		Loop %loop_timer%
		{
			Click %post_firstletter_positionx%, %post_firstletter_positiony%
			sleep 10
			Click %post_firstletter_positionx%, %post_firstletter_positiony%
			sleep %timer%
		}

		Loop %loop_timer%
		{
			drag(letter_top_positionx, letter_top_positiony, letter_end_positionx, letter_end_positiony)
			sleep %timer%
		}

		Loop %loop_timer%
		{
			Click %enter_positionx%, %enter_positiony%
			sleep %timer%
		}

		Loop %loop_timer%
		{
			Click %retrieve_money_positionx%, %retrieve_money_positiony%
			sleep 1000
			Click %retrieve_item_positionx%, %retrieve_item_positiony%
			sleep 2000
		}

		Loop %loop_timer%
		{
			Click %post_delete_positionx%, %post_delete_positiony%
			sleep %timer%
		}

		Loop %loop_timer%
		{
			Click %post_delete_confirm_positionx%, %post_delete_confirm_positiony%
			sleep %timer%
		}
	}

	Loop %loop_timer%
	{
		Click %post_create_positionx%, %post_create_positiony%
		sleep %timer%
	}

	Loop %loop_timer%
	{
		drag(new_letter_top_positionx, new_letter_top_positiony, new_letter_end_positionx, new_letter_end_positiony)
		sleep %timer%
	}

	Loop %loop_timer%
	{
		Click %address_positionx%, %address_positiony%
		sleep %timer%
	}

	input_cleaner()
	sleep %timer%

	if (char_switch == 0)
	{
		send %charb_name%
	}
	else
	{
		send %chara_name%
	}

	sleep %timer%
	money_reduction(money_value1, money_value2, money_value3)
	sleep %timer%

	Loop 3
	{
		temp := % money_value%A_Index%_positionx
		temp2 := % money_value%A_Index%_positiony
		Click %temp%, %temp2%
		sleep %timer%
		Send % money_value%A_Index%
		sleep %timer%
	}

	Loop %loop_timer%
	{
		Click %enter_positionx%, %enter_positiony%
		sleep %timer%
	}
	sleep 1000

	drag(maps_position1x, maps_position1y, item_position1x, item_position1y)
	sleep %timer%
	drag(maps_position1x, maps_position1y, item_position1x, item_position1y)
	sleep %timer%

	Loop 10
	{
		drag(maps_position%A_Index%x, maps_position%A_Index%y, item_position%A_Index%x, item_position%A_Index%y)
		sleep %timer%
	}


	Loop %loop_timer%
	{
		Click %send_positionx%, %send_positiony%
		sleep %timer%
	}

	Loop %loop_timer%
	{
		Click %post_create_positionx%, %post_create_positiony%
		sleep %timer%
	}

	Loop %loop_timer%
	{
		drag(new_letter_top_positionx, new_letter_top_positiony, new_letter_end_positionx, new_letter_end_positiony)
		sleep %timer%
	}

	Loop %loop_timer%
	{
		Click %address_positionx%, %address_positiony%
		sleep %timer%
	}

	input_cleaner()
	sleep %timer%

	if (char_switch == 0)
	{
		send %charb_name%
	}
	else
	{
		send %chara_name%
	}
	sleep %timer%

	Loop %loop_timer%
	{
		drag(maps_position11x, maps_position11y, item_position1x, item_position1y)
		sleep %timer%
	}

	Loop %loop_timer%

	sleep 1000

	{
		Click %send_positionx%, %send_positiony%
		sleep %timer%
	}

	sleep 2000

	Loop %loop_timer%

	{
		Send +{ESC}
	}
	sleep 4000
	sleep %timer%
	Loop %loop_timer%
	{
		Click %instant_logout_positionx%, %instant_logout_positiony%
		sleep %timer%
	}

	sleep %timer_logout%

	Loop %loop_timer%
	{
		Click %delete_positionx%, %delete_positiony%
		sleep %timer%
	}

	sleep 1000

	Loop %loop_timer%
	{
		Click %delete_name_fieldx%, %delete_name_fieldy%
		sleep %timer%
	}

	input_cleaner()
	sleep %timer%

	if (char_switch == 0)
	{
		send %chara_name%
	}
	else
	{
		send %charb_name%
	}

	sleep %timer%
	send {Enter}
	sleep %timer_delete%

	Loop %loop_timer%
	{
		Click %create_positionx%, %create_positiony%
		sleep %timer%
	}
	sleep %timer_delete%

	Loop %loop_timer%
	{
		Click %race_positionx%, %race_positiony%
		sleep %timer%
	}
	sleep %timer_delete%

	Loop %loop_timer%
	{
		Click %race_confirm_positionx%, %race_confirm_positiony%
		sleep %timer%
	}

	Loop %loop_timer%
	{
		Click %char_noname_positionx%, %char_noname_positiony%
		sleep %timer%
	}

	Loop %loop_timer%
	{
		Click %char_name_positionx%, %char_name_positiony%
		sleep %timer%
	}

	if (char_switch == 0)
	{
		send %chara_name%
	}
	else
	{
		send %charb_name%
	}
	sleep %timer%

	Loop %loop_timer%
	{
		Click %race_confirm_positionx%, %race_confirm_positiony%
		sleep %timer%
	}
	sleep %timer_delete%

	Loop %loop_timer%
	{
		if (char_switch == 0)
		{
			Click %charb_positionx%, %charb_positiony%
		}
		else
		{
			Click %chara_positionx%, %chara_positiony%
		}
	}
	sleep %timer_switch%

	Random, timer_pause, 100, 2000
	sleep %timer_pause%
}










money_reduction(ByRef gold, ByRef silver, ByRef copper)
{
	temp := copper - 31

	if (temp < 0){
		copper := temp + 100
		temp := silver - 4
	}
	else{
		copper := temp
		temp := silver - 3
	}

	if (temp < 0){
		silver := temp + 1000
		gold := gold - 1
	}
	else{
		silver := temp
	}
}

input_cleaner()
{
	Send "aa"
	sleep %timer%
	Send {BS}{BS}{BS}{BS}{BS}
}

drag(x1, y1, x2, y2)
{
	MouseMove, x1, y1
	sleep 150
	Click down
	sleep 150
	MouseMove, x2, y2
	sleep 100
	Click up
	sleep 100
}
RControl::
ExitApp