Project: Granite Bot

starttime= * * * * * * * * * * * *; Die zeit hat, in der Guild Wars maximiert wird!
nextitem= * * * * * * * * * * * * * * * * * *; Der Button, mit dem du Gegenstände anwählst!

StartGW:
	IfWinNotActive, Guild Wars, , WinActivate, Guild Wars, 
	WinWaitActive, Guild Wars,
	Sleep, %starttime%
	Gosub, Where
Return


Where:
PixelGetColor, 0x434042, 562, 197
	if ErrorLevel = 0
 *Gosub, Flagge
	

	if ErrorLevel > 0
 *Gosub, Where2
Return

Where2:
	PixelGetColor, 0x13120C, 736, 803
 *if ErrorLevel = 0
 *	Gosub, Brücke
 *	
 *if ErrorLevel > 0
 *	Gosub, Where3
Return

Where3:
	PixelGetColor, 0x373C35, 676, 30
 *if ErrorLevel = 0
 *	Gosub, Portal

 *if ErrorLevel > 0
 *	Gosub, Where4
Return

Where4:
	PixelGetColor, 0x3D4340, 340, 199
 *if ErrorLevel = 0
 *	Gosub, Sehe-Brücke

 *if ErrorLevel > 0
 *	Gosub, Where

Return
 * * *



Flagge:                               &#59; Der Punkt, von dem man dei zwie Roten Flaggen sehen kann (Unter Henchies)
	Send, x
	Sleep, 1000
	Send, r
	Sleep, 2000
	Send, %nextitem%
	Sleep, 100
	Send, {SPACE}
 *Sleep, 5000
	MouseClick, left, 759, *452
Return

Brücke:                               &#59; Der Punkt, wenn man auf der Brücke Steht!
	Send, %nextitem%
	Sleep, 100
	Send, {SPACE}
	Sleep, 25000
Return

Portal:                               &#59; Der Punkt, von dem man auf das Portal sieht!
	Send, r
	Sleep, 7000
	Send, %nextitem%
	Sleep, 100
	Send, {SPACE}
	Sleep, 2000
	MouseClick, left, 753, *442
Return

Sehe-Brücke:                               &#59; Der Punkt, wenn man auf dei Treppen hoch zu der Brücke sieht!
	Send, r
	Sleep, 10000
	Send, %nextitem%
	Sleep, 100
	Send, {SPACE}
	Sleep, 5000
	MouseClick, left, 312, *1023
	Sleep, 1000
	MouseClick, left, 1010, 1023
Return

; Script Start - Add your code below here
; 0 muss "nächster Gegenstand" sein
; v muss "nächstes befreundetes Ziel" sein
; evtl muss der Farbcode und die Position unter der Mouse individuell verändert werden
; "fight" wird die function ausserhalb des Vorpostens sein
; interface muss Standart sein
; interface größe muss "größer" sein
; es sollte dann alles zu 99% richtig funktionieren
; es kann sein das der bot falsch läuft wenn ein char eines anderen spielers im pixelsearch fenster steht


WinActivate("Guild Wars")
sleep(2000)
call("spwancheck")


func spwan()
	sleep(500)
	send("0")
	sleep(500)
	send("{Space}")
	sleep(22000)
	PixelSearch(70, 268, 564, 606, 1578773)
 If not @error then 
 	send("{e down}")
 	sleep(600)
 	send("{e up}")
 	sleep(500)
 	send("{w down}")
 	sleep(1500)
 	send("{w up}")
 	sleep(8000)
 	call("fight")
 Else
 	send("x")
 	Sleep(500)
 	send("{e down}")
 	sleep(800)
 	send("{e up}")
 	sleep(300)
 	send("{w down}")
 	sleep(1000)
 	send("{w up}")
 	sleep(8000)
 	call("fight")
 EndIf
 
	
EndFunc
func spwancheck()
	sleep(500)
	PixelSearch(161, 342, 360, 430, 1842973)
	if not @error Then
 send("0")
 sleep(400)
 send("{space}")
 sleep(8000)
 send("v")
 sleep(400)
 send("{space}")
 sleep(9000)
 call("sell")
 sleep(500)
 send("0")
 sleep(300)
 send("0")
 sleep(300)
 send("{space}")
 sleep(12000)
 send("{d down}")
 sleep(300)
 send("{d up}")
 sleep(300)
 send("{e down}")
 sleep(200)
 send("{e up}")
 sleep(100)
 send("{w down}")
 sleep(2000)
 send("{w up}")
 sleep(8000)
 call("fight")
 
	Else
 pixelsearch(503, 23, 705, 1212, 2699311)
 if not @error then
 	send("0")
 	sleep(500)
 	send("0")
 	sleep(500)
 	send("{space}")
 	sleep(12000)
 	send("{e down}")
 	sleep(800)
 	send("{e up}")
 	sleep(300)
 	send("{w down}")
 	sleep(1000)
 	send("{w up}")
 	sleep(8000)
 	call("fight")
 	
 Else
 	sleep(500)
 	call("spwan")
 EndIf
	EndIf
EndFunc

func sell()
	sleep(500)
	MouseClick("left", 180, 62)
	sleep(500)
	MouseClick("left", 790, 721)
	sleep(500)
	MouseClick("left", 790, 721)
	sleep(500)
	MouseClick("left", 790, 721)
	sleep(500)
	MouseClick("left", 790, 721)
	sleep(500)
	MouseClick("left", 790, 721)
	sleep(500)
	MouseClick("left", 790, 721)
	sleep(500)
	MouseClick("left", 919, 713)
	sleep(500)
EndFunc

#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.1.1.0
 Author:     myName

 Script Function:
	Template AutoIt script.

#ce ----------------------------------------------------------------------------

; Script Start - Add your code below here

HotKeySet("{F10}", "MoveTo")

while 1 
	sleep(50)
wend

func MoveTo()
	local $BigDelay = Random(1001, 1999)
	local $SmallDelay = Random(303, 804)
	Send("8")
	Sleep(2000+$BigDelay)
	Send("7")
	Sleep(1500+$BigDelay+$SmallDelay)
	Send("6")
	Sleep(2134+$BigDelay*0.5)
	Send("5")
	Sleep(1000+$BigDelay+$SmallDelay)
	Send("{q down}")  &#59;Moving to the left
	Sleep($BigDelay-500)
	Send("{q up}")
	Sleep($SmallDelay)
	Send("{w down}")  &#59;Moving straight on
	Sleep(5000+$BigDelay)
	Send("{w up}")
	Send("1")   &#59;Buffing with ps and hb
	Sleep(500+$SmallDelay)
	Send("2")
	Sleep($BigDelay)
	Send("{w down}")  &#59;moving straight into the middle
	Sleep(3000+$bigDelay)
	Send("{w up}")
	Sleep($SmallDelay)
	fight()
EndFunc

func fight()
	for $i = 1 to 2
 #cs
 1 is protective spirit, 2 is hb, 3 SoJ, 4 symbol of wrath and 5 is e-buff
 #ce
 local $BigDelay = Random(1001, 1999)
 local $SmallDelay = Random(303, 804)	
 Send("1")
 Sleep(1000+$BigDelay)
 Send("2")
 Sleep($BigDelay)
 Send("3")
 Sleep(1000+$BigDelay)
 Send("5")
 Sleep(1100+$BigDelay)
 Send("2")
 Sleep($BigDelay)
 Send("1")
 Sleep($SmallDelay)
 Send("4")
 Sleep(4000+$BigDelay-$SmallDelay)
 Send("1")
 Sleep($SmallDelay) 
 Send("2")
 Sleep($BigDelay)	
 Sleep(4000+$BigDelay)
 Send("1")
 Sleep($SmallDelay) 
 Send("2")
 Sleep($BigDelay)	
 Sleep(4000+$BigDelay)
 Send("5")
 Sleep(1000+$BigDelay)
 Send("1")
 Sleep($SmallDelay) 
 Send("2")
 Sleep($BigDelay)	
 Sleep(4000+$BigDelay) 
 Send("1")
 Sleep($SmallDelay) 
 Send("2")
 Sleep($BigDelay)	
 Sleep(4000+$BigDelay)
 Send("1")
 Sleep($SmallDelay) 
 Send("2")
 Sleep($BigDelay)	
 Sleep(4000+$BigDelay)
 Send("5")
 Sleep(1000+$BigDelay)
 Send("1")
 Sleep($SmallDelay) 
 Send("2")
 Sleep($BigDelay)	
 Sleep(4000+$BigDelay) 
 loot()
	Next
EndFunc
 
func loot()
	for $i = 0 to 8  &#59;looting 8 times, not many dops out there
 $LootDelay = Random(1500, 2500)
 $SmallDelay = Random(300, 600)
 Send("o")   &#59;targeting item
 Sleep($SmallDelay)  &#59;wait a Bit
 Send("{SPACE}")  &#59;pick it up
 Sleep($LootDelay) &#59;waiting for being picked up
 If $i == 4 then   &#59;dont get killed while looting, after 4th item buffing
   Send("1")
   Sleep($SmallDelay)
   Send("2")
   Sleep($LootDelay)
  endif
Next
EndFunc