; Thermalquellen Farmbot als monk
; Die Skills müssen folgender maßen angeordnet werden
 
;Folgende Einstellungen müssen in der Steuerung übernommen werden:
;Anwählen: Nächstbefindlichen Verbündeten     <--- Diese Funktion muss mit der Taste V belegt werden.
 
; (1) Balthasars geist,  (2) Genesung ,  (3) Gesegnete aura, (4) Schützende Hände, (5) Schild der Absorption.
; (6) Heilender Hauch, (7) Schutzgeist , (8) Schild des Urteils
 
; und das spiel muss auf deutsch gestellt sein

; und die Interface größe muss auf normal gestellt werden

; Und es muss eingestellt werden das der Bot den Kaufmann mit der v Taste anvisiert.
; Das Idendifizierungs Werkzeug muss immer ganz unten rechts in der ersten Tasche sein

;Nachdem man dies gemacht hat, reist man zu den Thermalquellen von Bergen, dann minimiert man einfach sein spiel
;und startet denn Bot nach ein paar Sekunden fängt er dann an los zu legen.

;Das Interface muss auf Groß gestellt sein  

;Anti Aliasing auf 0 stellen
;Hauptprogramm
while  (1)
	
WinActivate("Guild")
WinWaitActive("Guild")
	
Sleep (4000)


 
$rand = Random(1, 3, 1) 








if $rand = 1  Then
 
 
Send("v{SPACE}")   ;npc anwählen
;Sleep(5000)
RandomSleep(5000,6000)
Send("ö{SPACE}")   ;nebo terrassen schild anwählen

RandomSleep(10000,12000)


Send("{d down}") 
Sleep(1000)
Send("{d up}") 



Send("{w down}") 
Sleep(1000)
Send("{w up}")


Send("{d down}") 
Sleep(200)
Send("{d up}") 


Send("{w down}")
Sleep(500)
Send("{w up}")


Send("{d down}") 
Sleep(300)
Send("{d up}") 


Send("{w down}") 
Sleep(4000);
Send("{w up}") 

Sleep(10000)

bewegen()
angreifen()
pickup_items()
resign()

Sleep("4000")   ;MUSS VIELLEICHT ERHÖHT WERDEN KOMMT AUF DEN PC AN WIE SCHNELL DIESER IST 


waren_verkaufen()

endif






 

if $rand = 2 Then

Send("ö{SPACE}")   ;nebo terrase

Sleep(9000)


Send("{a down}") 
Sleep(500)
Send("{a up}")


Send("{w down}") 
Sleep(2000)    ;1000
Send("{w up}")


Send("{d down}") 
Sleep(500)
Send("{d up}")


Send("{w down}") 
Sleep(4000)
Send("{w up}")


bewegen()
angreifen()
pickup_items()
resign()

Sleep("4000")   ;MUSS VIELLEICHT ERHÖHT WERDEN KOMMT AUF DEN PC AN WIE SCHNELL DIESER IST 


waren_verkaufen()




endif







if $rand = 3 Then


Send("v{SPACE}")   ;npc anwählen
;Sleep(5000)
RandomSleep(5000,6000)
Send("ö{SPACE}")   ;nebo terrassen schild anwählen


Sleep(5000)  



Send("c{SPACE}") ;mit zaishen reden
 
Sleep(4000)

Send("ö{SPACE}")   ;nebo therassen schild wieder anwählen

Sleep(900)


;--------------------------------------------

Send("{d down}") 
Sleep(1000)
Send("{d up}") 



Send("{w down}") 
Sleep(1000)
Send("{w up}")


Send("{d down}") 
Sleep(200); 
Send("{d up}") 


Send("{w down}")
Sleep(500)
Send("{w up}")


Send("{d down}") 
Sleep(400)  
Send("{d up}") 


Send("{w down}") 
Sleep(4000);
Send("{w up}") 

Sleep(10000)


bewegen()
angreifen()
pickup_items()
resign()

Sleep("4000")  ;MUSS VIELLEICHT ERHÖHT WERDEN KOMMT AUF DEN PC AN WIE SCHNELL DIESER IST 

waren_verkaufen()


endif


WEnd



func RandomSleep($min, $max)
    $time = Random($min, $max)
    Sleep($time)
endfunc

;------- Funktionen
func waren_verkaufen()
	
Send("{a down}") ;richtung kaufmann drehen 
Sleep("650")
Send("{a up}")

Sleep("500")

Send ("{w down}")
Sleep("3000")  ;2000
Send("{w up}")  

Sleep("2000")

Send("v {SPACE}")   ;kaufmann anvisieren und anklicken und in kaufman menü gehen

Sleep(6000)
Send("{ESC}") ;kaufmann menü verlassen wegen dem item identen 


RandomSleep(1000,2000)


;items identifizieren  für Feld bedeuter für Feld Slot bzw. Platz im Inventar
Send("i")


RandomSleep(1000,2000)
RandomSleep(1000,2000)

;für feld1
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",47, 576,1)
;-----------------------------------------------------------ixx

;für feld2()	
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",92, 574,1)
;----------------------------------------------------------------------

;für feld3()	
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",140, 575,1)
;----------------------------------------------------------------------

;für feld4
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",190, 574,1)
;----------------------------------------------------------------------

;für feld5	
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",234, 578,1)
;----------------------------------------------------------------------

;für feld6		
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",43, 630,1)
;----------------------------------------------------------------------

;für feld7	
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",92, 624,1)
;----------------------------------------------------------------------

;für feld8
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",137, 632,1)
;----------------------------------------------------------------------


;für feld9
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",188, 631,1)
;----------------------------------------------------------------------

;für feld10	
mouseclick("left",233, 739,2) ;auf ident werkzeug klicken
Sleep(1000)
mouseclick("left",232, 633,1)
;----------------------------------------------------------------------	

RandomSleep(1000,2000)



;----kaufmann menü verlassen -------------------
Send("{ESC}")
;-------------------------------------------------

RandomSleep(1000,2000)
Send("v{Space}")   ;kaufmann anwählen
RandomSleep(500,1000)

Sleep (2000)


Send("v{Space}")   ;kaufmann anwählen
Sleep(500)

;----items verkaufen ----------------------------
MouseClick("left",155, 50)  ;auf items verkaufen button klicken
Sleep(1000)


RandomSleep(500,1000)
mouseclick("left",538, 718)
RandomSleep(500,1000)
mouseclick("left",538, 718)
RandomSleep(500,1000)

mouseclick("left",538, 718)
RandomSleep(500,1000)
mouseclick("left",538, 718)
RandomSleep(500,1000)

mouseclick("left",538, 718)
RandomSleep(500,1000)
mouseclick("left",538, 718)
RandomSleep(500,1000)

mouseclick("left",538, 718)
RandomSleep(500,1000)
mouseclick("left",538, 718)
RandomSleep(500,1000)

mouseclick("left",538, 718)
RandomSleep(500,1000)
mouseclick("left",538, 718)


RandomSleep(500,1000)

Send("{ESC}")    ;kaufmann menü verlassen
;-------------------------------------------------

Sleep(1000)

;--------------------------------------------------------------------------------
;nach schauen ob noch ein ident tool vorhanden ist

send("i")
Sleep(500)

;gucken ob noch 1 ident kit da ist
$ident_color = PixelGetColor( 231, 751)


if $ident_color = 0x6B5F52 then

	Send("{ESC}")  ;iventar wieder schliessen 
Else
	
	
	Sleep(500)
	Send("{ESC}")  ;ident menü schliessen
	Sleep(500)
	
	Send("v {SPACE}")    ;kaufmann anvisieren und ins kaufmann menü gehen
	
	Sleep(1000)
	mouseclick("left",115, 273,2)  ;neues ident kit kaufen
	Sleep(500)
	
	Send("{ESC}")   ;kaufmann menü verlassen
	Sleep(500)
	
	Send("i")  ;wieder ins inventar 
	MouseClickDrag("left",38, 568,  232, 739)  ;neues ident kit in unteren item slot ziehen
	Sleep(500)
	

	Send("{ESC}")  ;kaufmann menü wieder verlassen
	
	
	endif 

Sleep(2000)

Send("{ESC}")    ;kaufmann menü verlassen
;-------------------------------------------------

RandomSleep(500,1500)

;--------------------------------------------------------------------------------
;nach schauen ob noch ein ident tool vorhanden ist

send("i")
RandomSleep(500,1000)

;gucken ob noch 1 ident kit da ist
$ident_color = PixelGetColor( 231, 751)


if $ident_color = 0x6B5F52 then


Else
	
	
	Sleep(500)
	Send("{ESC}")  ;ident menü schliessen
	RandomSleep(500,1000)
	
	Send("v {SPACE}")    ;kaufmann anvisieren und ins kaufmann menü gehen
	
	Sleep(1000)
	mouseclick("left",115, 273,2)  ;neues ident kit kaufen
	RandomSleep(500,1000)
	
	Send("{ESC}")   ;kaufmann menü verlassen
	RandomSleep(500,1000)
	
	Send("i")  ;wieder ins inventar 
	MouseClickDrag("left",38, 568,  232, 739)  ;neues ident kit in unteren item slot ziehen
	RandomSleep(500,1000)
	

	Send("{ESC}")  ;kaufmann menü wieder verlassen
	
	
	endif 

Sleep(2000)

;--------------------------------------------------------------------------------------


;----Distrikt wechseln ----------------------
Sleep("3000")

Send("{m}")   ;map öffnen
Sleep("1000")
mouseclick("left",492, 379)  ;auf thermaquellen von bergen klicken
Sleep("1000")

mouseclick("left",748, 435)   ;auf distrikt auswahl klicken
Sleep("1000")


mouseclick ("left",572, 495)  ;englisches distrikt auswählen
Sleep("1000")

mouseclick("left",794, 716)   ;reisen ins englische distrikt

Sleep(8000)

Send("{ESC}")
Sleep(1000)
endfunc
	




func resign()
	
Send("{Enter}")
Sleep(500)
Send ("/resign")
Sleep(500)
Send("{Enter}")

Sleep("7000")
mouseclick ("left",498, 404)   ;auf den button   zum außenposten zurück klicken 
Sleep("3000")

	
	EndFunc



func bewegen()
	
Sleep(6000)	
send ("1")   ;balthasars geist
Sleep(3000)
send("2")   ;genesung
Sleep(3000)
send("3")   ;gesegnete auram
Sleep(30000)
send("7")    ;schutzgeist
Sleep(1000)

send("4") ;schützende hände
Sleep("800")

Send("{w down}")
Sleep(4000)
Send("{w up}")

endfunc




func angreifen()
	
Send("{TAB}") 
Send("{Space}") 

Sleep(3000)
send("6")  ;heilender hauch

Sleep(1000)

send("5") ;schützende hände

Sleep(7000)

Send("8")  ;schild des urteisl

Sleep(5000)

send("4")
Sleep(1000)

Sleep("1000") 


send("7") ;schutzgeist
Sleep("4000")
send("6") ;schild der absorption

Sleep(1000)
send("4") ;schützende hände



Sleep("7000")
send("6") ;heilender hauch
Sleep("4000")
send("7") ;schutzgeist


endfunc



	 
func pickup_items()
;----Gegenstände aufnehmen

Sleep("6000")

Send("{ö}") 
Send("{Space}") 
Sleep(1000)

Send("{ö}") 
Send("{Space}") 
Sleep(1000)

Send("{ö}") 
Send("{Space}") 
Sleep(1000)

Send("{ö}") 
Send("{Space}") 
Sleep(1000) 

Send("{ö}") 
Send("{Space}") 
Sleep(1000)

Send("{ö}") 
Send("{Space}") 
Sleep(1000)

Send("{ö}") 
Send("{Space}") 
Sleep(1000)

Send("{ö}") 
Send("{Space}") 
Sleep(1000)



EndFunc