So ist jetzt zwar ein doppelpost aber damit ihr seht, dass sich was getan hat: (eig wollt ichs ja auch reineditieren aber das ist nun ja schon 2 seiten vorher)
BTW: sollte der Titel mal wieder geändert werden ztz find ich nicht so passend
Die vorversion ist jetzt funktionstüchtig (zumindest bei mir) ist er aber komplett.
Es werden noch allemöglichen Funcs dazu gebaut, er geordnet etc. also nicht beschweren^^
Verbesserungsvorschläge etc. könnt ihr natürlich posten.
Alles was wichtig ist steht eig im HowTo.
Was auch noch wichtig ist beim kaufmann alle Taschen ausser der haupt Tasche ausschalten.
Alle Items die du behalten willst in die ausgeschalteten Taschen legen.
Code:
#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: Gabba2 Travelcheck Func made by MasteR GunneR
Script Function:Chest Run Bot, Boreal Station
Template AutoIt script.
#ce ----------------------------------------------------------------------------
HotKeySet("{END}","_exitit")
HotKeySet("{PAUSE}", "_TogglePause")
Global $countercheck = 100
Global $counter = 0
Global $gonewrongcounter = 0
Global $gonewrongcountercheck = 1
Global $mousespeed = 6.75
Global $Paused
Global $nochest = 0
Global $activate = 2000
Global $escape = Random(1, 3, 1)
Global $nochest2 = 0
Global $firsttry = 0
Global $totalsleep = 0
Global $sleepneeded = 32500; 31500
Global $plusone = 0
Global $allruns = 0
Global $Itemstotal = 0
Global $Itemstotalcheck = 12; 12
Global $atchestchecks = 0
Global $countercheck = 100
Global $counter = 0
Global $gonewrongcounter = 0
Global $gonewrongcountercheck = 1
Global $runoutsidecheck = 0
Global $atchestcheckcheck = 0
Global $atchestcheck2check = 0
Global $allrunscheck = InputBox("Exchange", "Enter the Number of Runs that the Bot should do!" , "Enter!")
Func _exitit()
exit 0
EndFunc
Func _TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('Script is "Paused"',0,0)
WEnd
ToolTip("Script is running")
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
WinWaitActive ("Guild Wars")
Sleep($activate)
EndIf
EndFunc
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
Sleep(4000)
EndIf
Func _travelcheck1()
$travelcheck1 = Hex(PixelGetColor(640, 512),6)
Select
Case $travelcheck1 <> "FF0000" And $travelcheck1 <> "FE0000" And $counter <> $countercheck And $gonewrongcounter <> $gonewrongcountercheck
Sleep(200)
$counter = $counter + 1
_travelcheck1() ;
Case $travelcheck1 <> "FF0000" And $travelcheck1 <> "FE0000" And $counter <> $countercheck And $gonewrongcounter = $gonewrongcountercheck
Sleep(200)
$counter = $counter + 1
_travelcheck1() ;
Case $travelcheck1 = "FF0000" Or $travelcheck1 = "FE0000" And $counter <> $countercheck And $gonewrongcounter <> $gonewrongcountercheck
$counter = 0
_travelcheck2();
Case $travelcheck1 = "FF0000" Or $travelcheck1 = "FE0000" And $counter <> $countercheck And $gonewrongcounter = $gonewrongcountercheck
$counter = 0
_travelcheck2();
Case $counter = $countercheck And $gonewrongcounter <> $gonewrongcountercheck
$gonewrongcounter = $gonewrongcounter + 1
$counter = 0
_travelcheck1();
Case $counter = $countercheck And $gonewrongcounter = $gonewrongcountercheck
$gonewrongcounter = 0
$counter = 0
Select
Case $escape = 1
Send("{ESC}")
Sleep(random(70, 150))
Send("{ESC}")
Sleep(random(70, 150))
Case $escape = 2
Send("{ESC}")
Sleep(Random(150, 250))
Send("{ESC}")
Sleep(Random(150, 250))
Send("{ESC}")
Sleep(Random(150, 250))
Case $escape = 3
Send("{ESC}")
Sleep(random(70, 150))
Send("{ESC}")
Sleep(random(70, 150))
Send("{ESC}")
Sleep(random(70, 150))
Send("{ESC}")
Sleep(random(70, 150))
endselect
Send("g")
Sleep(Random(100, 300))
MouseClick("left", Random(299, 414), Random(62, 75), 1, $mousespeed)
_travelcheck1()
Sleep(Random(800, 1000))
MouseClick("left", Random(299, 414), Random(62, 75), 1, $mousespeed)
_travelcheck1()
Send("g")
Sleep(Random(200, 500))
Send("u")
Sleep(Random(100, 300))
_run();
EndSelect
EndFunc
Func _travelcheck2()
$travelcheck2 = Hex(PixelGetColor(640, 512),6)
If $travelcheck2 = "FE0000" Or $travelcheck2 = "FE0000" Then
Sleep(200)
_travelcheck2();
ElseIf $travelcheck2 <> "FE0000" And $travelcheck2 <> "FE0000" Then
Sleep(Random(1300, 1800))
$gonewrongcounter = 0
$counter = 0
EndIf
EndFunc
Func _run()
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
Sleep(4000)
EndIf
$merchant = Hex(PixelGetColor(623, 617),6)
$vekkleft = Hex(PixelGetColor(610, 541),6)
$Vekkfront = Hex(PixelGetColor(573, 569),6)
_sell()
Select
Case $vekkleft = "FFFFFF"
Send("{u}")
Sleep(random(70, 150))
Send("{A down}")
Sleep(random(560, 600))
Send("{a up}")
Sleep(random(70, 150))
Send("{NUMPAD0}")
Sleep(random(70, 150))
Send("{Space}")
Sleep(random(10000, 10200))
Send("{r}")
_travelcheck1()
Case $vekkfront = "FFFFFF"
Send("{u}")
Sleep(random(70, 150))
Send("{s down}")
Sleep(Random(1000, 1200))
Send("{s up}")
Sleep(random(70, 150))
Send("{A down}")
Sleep(random(560, 600))
Send("{a up}")
Sleep(random(70, 150))
Send("{NUMPAD0}")
Sleep(random(70, 150))
Send("{Space}")
Sleep(random(14000, 14300))
Send("{r}")
_travelcheck1()
Case $merchant = "FFFFFF"
Send("{u}")
Sleep(random(70, 150))
Send("{NUMPAD0}")
Sleep(random(70, 150))
Send("{Space}")
Sleep(random(11600, 12000))
Send("{r}")
Sleep(random(1000, 1250))
Send("{Space}")
Sleep(random(3100, 3300))
Send("{s down}")
Sleep(random(1000, 1200))
Send("{s up}")
_travelcheck1()
Case $vekkleft <> "FFFFFF" And $vekkfront <> "FFFFFF" And $merchant <> "FFFFFF"
Send("g")
Sleep(Random(100, 300))
MouseClick("left", Random(299, 414), Random(62, 75), 1, $mousespeed)
_travelcheck1()
Sleep(Random(800, 1000))
MouseClick("left", Random(299, 414), Random(62, 75), 1, $mousespeed)
_travelcheck1()
Send("g")
Sleep(Random(100, 300))
Send("u")
Sleep(Random(100, 300))
Send("u")
_run()
endselect
endfunc
Func _elserun()
Send("g")
Sleep(Random(100, 300))
MouseClick("left", Random(299, 414), Random(62, 75), 1, $mousespeed)
_travelcheck1()
Sleep(Random(800, 1000))
MouseClick("left", Random(299, 414), Random(62, 75), 1, $mousespeed)
_travelcheck1()
Send("g")
Sleep(Random(100, 300))
Send("u")
Sleep(Random(100, 300))
Send("u")
_run();
endfunc
Func _runoutside()
$runoutsidecheck = $runoutsidecheck + 1
Send("{u}")
Sleep(random(70, 150))
send("{numpaddot}")
Sleep(random(200, 450))
MouseClick("left", Random(270, 274), Random(188, 202), 1, $mousespeed);
Sleep(random(70, 150))
Send("{NUMPAD7}")
$AA = random(1100, 1300)
Sleep($AA)
MouseClick("left", Random(1107, 1244), Random(63, 80), 2, $mousespeed)
Sleep(random(70, 150))
Send("{Space}")
$AB = random(7300, 7400)
Sleep($AB)
Send("{NUMPAD8}"); 2er Angriff
$AC = random(9700, 9800)
Sleep($AC)
Send("{NUMPAD9}")
$AE = random(9700, 9800)
Sleep($AE)
Send("{NUMPAD7}"); 4er Angriff
$totalsleep = $AA + $AB +$AC + $AE
$restsleep = $sleepneeded - $totalsleep
$sleepfinally = Random($restsleep - 300, $restsleep + 300)
Sleep($sleepfinally)
send("{numpaddot}")
Sleep(random(200, 450))
MouseClick("left", Random(411, 431), Random(355, 370), 1, $mousespeed);
Sleep(random(3500, 4000))
MouseClick("left", Random(1107, 1244), Random(63, 80), 2, $mousespeed)
Sleep(random(70, 150))
Send("{NUMPAD8}")
Sleep(random(70, 150))
Send("{u}")
endfunc
Func _chestcheck()
$Chest = pixelchecksum(523,31,714,41)
Select
Case $chest = 3428174935
$nochest = 0
$firsttry = 0
Send("{Space}")
Sleep(random(70, 150))
Send("{1}")
_atchestcheck()
Case $Chest <> 3428174935 And $nochest <> 7
$nochest = $nochest + 1
Sleep(random(2000, 3200))
Send("{NUMPAD0}")
Sleep(random(70, 150))
Select
Case $firsttry = 0
Send("{1}")
Case $firsttry <> 0
Sleep(0)
endselect
Select
Case $firsttry = 2
Send("{8}")
Sleep(random(70, 150))
MouseClick("left", Random(1107, 1244), Random(63, 80), 2, $mousespeed)
Case $firsttry <> 2
Sleep(0)
endselect
$firsttry = $firsttry + 1
_chestcheck()
Case $Chest <> 3428174935 And $nochest = 7
$firsttry = 0
_resign()
EndSelect
endfunc
Func _atchestcheck()
$atChest = PixelGetColor(592, 572)
Select
Case $atChest = 39168 Or $atChest = 65280
MouseClick("left", Random(554, 669), Random(552, 572), 1, $mousespeed)
Sleep(random(600, 800))
Send("{NUMPAD0}")
Sleep(random(70, 150))
Send("{Space}")
Sleep(random(800, 1000))
MouseClick("left", Random(1107, 1244), Random(63, 80), 2, $mousespeed)
$Itemstotal = $Itemstotal + 1
$atchestchecks = 0
_chestcheck2()
Case $atChest <> 39168 And $atChest <> 65280 and $atchestchecks = 80
$atchestchecks = $atchestchecks + 1
MouseMove (Random(14,1200), Random(85,480) , $mousespeed)
Sleep(random(70, 150))
_atchestcheck()
Case $atChest <> 39168 And $atChest <> 65280 and $atchestchecks < 180
$atchestchecks = $atchestchecks + 1
Sleep(200)
_atchestcheck()
Case $atChest <> 39168 And $atChest <> 65280 and $atchestchecks >= 180
$atchestchecks = 0
_resign()
EndSelect
endfunc
Func _atchestcheck2()
$atChest = PixelGetColor(592, 572)
Select
Case $atChest = 39168 Or $atChest = 65280
$atchestcheck2check = $atchestcheck2check + 1
MouseClick("left", Random(554, 669), Random(552, 572), 1, $mousespeed)
Sleep(random(400, 800))
Send("{NUMPAD0}")
Sleep(random(70, 150))
Send("{Space}")
Sleep(random(800, 1000))
$Itemstotal = $Itemstotal + 1
$atchestchecks = 0
_resign2()
Case $atChest <> 39168 And $atChest <> 65280 and $atchestchecks = 80
$atchestchecks = $atchestchecks + 1
MouseMove (Random(14,1200), Random(85,480) , $mousespeed)
Sleep(random(70, 150))
_atchestcheck2()
Case $atChest <> 39168 And $atChest <> 65280 and $atchestchecks < 180
$atchestchecks = $atchestchecks + 1
Sleep(200)
_atchestcheck2()
Case $atChest <> 39168 And $atChest <> 65280 and $atchestchecks >= 180
$atchestchecks = 0
_resign()
EndSelect
endfunc
Func _chestcheck2()
$Chest = pixelchecksum(523,31,714,41)
Select
Case $chest = 3428174935
$nochest2 = 0
Send("{NUMPAD0}")
Sleep(random(70, 150))
Send("{Space}")
Sleep(random(70, 150))
Send("{1}")
_atchestcheck2()
Case $Chest <> 3428174935 And $nochest2 <> 4
$nochest2 = $nochest2 + 1
Sleep(random(2000, 3200))
Send("{NUMPAD0}")
Sleep(random(70, 150))
Select
Case $firsttry = 0
Send("{1}")
Case $firsttry <> 0
Sleep(0)
endselect
Select
Case $firsttry = 2
Send("{8}")
Case $firsttry <> 2
Sleep(0)
endselect
Select
Case $firsttry = 8
Send("{1}")
Case $firsttry <> 8
Sleep(0)
endselect
$firsttry = $firsttry + 1
_chestcheck2()
Case $Chest <> 3428174935 And $nochest2 = 4
$firsttry = 0
_resign2()
EndSelect
endfunc
Func _resign()
Opt("SendKeyDelay", Random(75, 180))
Send("{ENTER}/resign{ENTER}")
Opt("SendKeyDelay", 5)
$nochest = 0
$nochest2 = 0
_resignwait()
_travelcheck1()
Send("{U}")
EndFunc
Func _resign2()
Opt("SendKeyDelay", Random(75, 180))
Send("{ENTER}/resign{ENTER}")
Opt("SendKeyDelay", 5)
$nochest = 0
$nochest2 = 0
Sleep(random(3400, 4250))
MouseClick("left", Random(527, 744), Random(526, 548), 1, $mousespeed)
_travelcheck1()
Send("{U}")
EndFunc
Func _resignwait()
$resignwait = PixelGetColor(588, 548)
Select
Case $resignwait = 39168 Or $resignwait = 65280
MouseClick("left", Random(527, 744), Random(526, 548), 1, $mousespeed)
Case $resignwait <> 39168 And $resignwait <> 65280
Sleep(200)
_resignwait()
Case Else
Sleep(random(2000, 3500))
MouseClick("left", Random(527, 744), Random(526, 548), 1, $mousespeed)
EndSelect
endfunc
Func _identtool()
$tool123 = 1
Select
Case $tool123 = 1
$tool123 = $tool123 + 1
MouseClick("left", Random(36, 56), Random(335, 373), 2, $mousespeed)
Sleep(random(70, 150))
Case $tool123 = 2
$tool123 = $tool123 + 1
MouseClick("left", Random(90, 100), Random(335, 373), 2, $mousespeed)
Sleep(random(70, 150))
Case $tool123 = 3
$tool123 = 1
MouseClick("left", Random(138, 148), Random(335, 373), 2, $mousespeed)
Sleep(random(70, 150))
EndSelect
endfunc
Func _item($ix,$iy)
MouseClick("left", Random($ix - 5, $ix + 5), Random($iy - 5, $iy + 5), 1, $mousespeed)
Sleep(random(200, 300))
$Itemstotal = $Itemstotal - 1
EndFunc
Func _sell()
$merchant = Hex(PixelGetColor(623, 617),6)
$vekkleft = Hex(PixelGetColor(610, 541),6)
$Vekkfront = Hex(PixelGetColor(573, 569),6)
Select
Case $Itemstotal >= $Itemstotalcheck
Global $sellcheck = $Itemstotal
Select
Case $merchant = "FFFFFF"
Send("{F9}")
Sleep(random(70, 150))
_identtool()
_item(41,90)
_identtool()
_item(89,90)
_identtool()
_item(134,90)
_identtool()
_item(182,90)
_identtool()
_item(232,90)
_identtool()
_item(41,151)
_identtool()
_item(89,151)
_identtool()
_item(134,151)
_identtool()
_item(182,151)
_identtool()
_item(232,151)
_identtool()
_item(41,208)
Select
Case $Itemstotal = 0
Sleep(0)
Case $Itemstotal <= 3 And $Itemstotal <> 0
_identtool()
_item(89,208)
_identtool()
_item(134,208)
_identtool()
_item(182,208)
Case $Itemstotal <= 6 And $Itemstotal <> 0
_identtool()
_item(89,208)
_identtool()
_item(134,208)
_identtool()
_item(182,208)
_identtool()
_item(232,208)
_identtool()
_item(41,266)
_identtool()
_item(89,266)
Case $Itemstotal <= 8 And $Itemstotal <> 0
_identtool()
_item(89,208)
_identtool()
_item(134,208)
_identtool()
_item(182,208)
_identtool()
_item(232,208)
_identtool()
_item(41,266)
_identtool()
_item(89,266)
_identtool()
_item(134,266)
_identtool()
_item(182,266)
endselect
$Itemstotal = 0
Send("{v}")
Sleep(random(70, 150))
Send("{space}")
Sleep(random(3500, 5000))
MouseClick("left", Random(116, 191), Random(44, 57), 1, $mousespeed)
Sleep(random(300, 450))
_merchantsell()
Case $vekkleft = "FFFFFF" Or $vekkfront = "FFFFFF" Or $vekkleft <> "FFFFFF" And $vekkfront <> "FFFFFF" And $merchant <> "FFFFFF"
Sleep(0)
endselect
Case $Itemstotal < $Itemstotalcheck
Sleep(0)
endselect
EndFunc
Func _merchantsell()
Select
Case $sellcheck > 0
MouseClick("left", Random(300, 392), Random(408, 423), 1, $mousespeed)
Sleep(random(200, 350))
$sellcheck = $sellcheck - 1
_merchantsell()
Case $sellcheck = 0
Sleep(0)
EndSelect
endfunc
If Not WinActivate("Guild Wars") Then
WinActivate("Guild Wars")
Sleep(4000)
EndIf
while True
Select
Case $allruns <> $allrunscheck
$allruns = $allruns + 1
_run()
_runoutside()
_chestcheck()
Case $allruns = $allrunscheck
_TogglePause()
endselect
wend
Ah ja und sry für die vielen .tpf Dateien ich hab die alle einzeln gepackt und kann se jetzt nicht mehr zusammen fassen (?)