Probleme Mit bot =(

02/16/2009 21:49 Hokler#1
Hey leute,
Ich hab ein Problem mit den Bots die ich schreibe. Und zwar:

Wen ich den Bot starte passirt nichts obwohl die Funktionen gecallt werden. es kommt auch kein Error oder sonstwas der bot bleibt einfach nur stehen.

hier mal der script:

PHP Code:
#cs ----------------------------------------------------------------------------

 AutoIt Version: 3.3.0.0
 Author:         Hokler

 Script Function:
    Template AutoIt script.

#ce ----------------------------------------------------------------------------
#include "tt6.au3"
#include <GUIConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

$Form1 = GUICreate("Byzzr-Farm Bot v.1a By Hokler(c)", 427, 317, 193, 125)
$Pic1 = GUICtrlCreatePic("Hintergrund Bild\1.jpg", 0, 0, 425, 140, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Group1 = GUICtrlCreateGroup("Background Modus", 8, 144, 177, 73)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Button1 = GUICtrlCreateButton("Start", 16, 168, 161, 41, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Over-Night Modus", 240, 144, 177, 73)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Button2 = GUICtrlCreateButton("Start", 248, 168, 161, 41, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Sonstiges", 8, 224, 409, 57)
GUICtrlSetFont(-1, 10, 800, 0, "Comic Sans MS")
$Button3 = GUICtrlCreateButton("Hilfe", 152, 248, 81, 25, 0)
$Button4 = GUICtrlCreateButton("Regeln", 240, 248, 81, 25, 0)
$Button5 = GUICtrlCreateButton("Exit", 328, 248, 81, 25, 0)
$Button6 = GUICtrlCreateButton("Fesnter Anpassen", 16, 248, 129, 25, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Label1 = GUICtrlCreateLabel("CopyRight (c) by Hokler", 304, 296, 116, 17)
GUISetState(@SW_SHOW)


While 1
$msg=GuiGetMsg()
        If $msg=-3 Then Exit
        If $msg=$Button1 Then button1()
        If $msg=$Button2 Then button2()
        If $msg=$Button3 Then button3()
        If $msg=$Button4 Then button4()
        If $msg=$Button5 Then button5()    
        If $msg=$Button6 Then button6()
WEnd
        
Func button1()
        _go1() 
EndFunc

Func button2()
    $client = Inputbox("GW Fesnter Name","Name des Guild Wars Fenster","Guild Wars")
        _go2()
EndFunc

Func button6()
    $client = Inputbox("Guild Wars Client","Name des Guild Wars Fenster","Guild Wars")
    gw_anpassen1()
EndFunc

Func button3()
    InetGet("")
EndFunc

Func button4()
    ShellExecute("Regeln.txt")
EndFunc

Func button5()
    Exit
EndFunc

;==========================================================================    
Func RandomSleep($min, $max)
    $time = Random($min, $max)
    Sleep($time)
EndFunc
;==========================================================================
Func gw_anpassen1()
    Controlmove($Client, "", 0, 0, 0, 1024, 768)    
    Opt("MouseCoordMode",0)
EndFunc
;==========================================================================1
Func _go1()
While 1
    
    If CheckArea(-10386, 2573) Then ;Spawnpoint: NPCs
    $ran = Random(1, 4, 1)
    If $ran = 1 Then
        PrepMoveTo()
            MoveTo(1, -9904, 2478)
            MoveTo(1, -9579, 2140)
            MoveTo(1, -9549, 1422)
            MoveTo(1, -9627, 682)
            MoveTo(1, -9168, 411)
            MoveTo(1, -8587, 700)
            MoveTo(1, -7824, 1619)
        KeepMoveTo()
        
    ElseIf $ran = 2 Then
        PrepMoveTo()
            MoveTo(1, -9636, 2356)
            MoveTo(1, -9554, 379)
            MoveTo(1, -8650, 663)
            MoveTo(1, -7789, 1643)
        KeepMoveTo()
    
    ElseIf $ran = 3 Then
        PrepMoveTo()
            MoveTo(1, -9854, 2641)
            MoveTo(1, -9594, 2370)
            MoveTo(1, -9546, 1621)
            MoveTo(1, -9550, 662)
            MoveTo(1, -9419, 373)
            MoveTo(1, -8977, 422)
            MoveTo(1, -8218, 1135)
        StopMoveTo()
    RandomSleep(3000, 3100)
        PrepMoveTo()
            MoveTo(1, -7787, 1655)
        KeepMoveTo()
    
    ElseIf $ran = 4 Then
        PrepMoveTo()
            MoveTo(1, -11137, 2394)
            MoveTo(1, -11444, 1862)
        StopMoveTo()
    RandomSleep(3000, 3100)
        PrepMoveTo()
            MoveTo(1, -10810, 1793)
            MoveTo(1, -10500, 1063)
            MoveTo(1, -10420, 581)
            MoveTo(1, -9697, 494)
            MoveTo(1, -8938, 318)
            MoveTo(1, -7801, 1638)
        KeepMoveTo()
    EndIf
    
    If CheckArea(-10537, 1671) Then ;Spawnpoint: Belohnungs NPC
    $ran = Random(1, 4, 1)
    If $ran = 1 Then
        PrepMoveTo()
            MoveTo(1, -10537, 1671)
            MoveTo(1, -10277, 885)
            MoveTo(1, -9887, 556)
            MoveTo(1, -9150, 355)
            MoveTo(1, -8382, 863)
            MoveTo(1, -7806, 1653)
        KeepMoveTo()
    
    ElseIf $ran = 2 Then
        PrepMoveTo()
            MoveTo(1, -9431, 396)
            MoveTo(1, -8863, 244)
            MoveTo(1, -7730, 1707)
        KeepMoveTo()
        
    ElseIf $ran = 3 Then 
        PrepMoveTo()
            MoveTo(1, -9814, 1267)
            MoveTo(1, -9585, 1088)
            MoveTo(1, -9661, 592)
            MoveTo(1, -9168, 412)
            MoveTo(1, -8764, 624)
            MoveTo(1, -8234, 1259)
            MoveTo(1, -7778, 1683)
        KeepMoveTo()
        
    ElseIf $ran = 4 Then
        PrepMoveTo()
            MoveTo(1, -10482, 929)
            MoveTo(1, -9947, 673)
            MoveTo(1, -9313, 428)
            MoveTo(1, -8784, 604)
            MoveTo(1, -8100, 1356)
        StopMoveTo()
    RandomSleep(3000, 3900)
        PrepMoveTo()
            MoveTo(1, -7795, 1645)
        KeepMoveTo()
    EndIf
    
    If CheckArea(10547, -754) Then
    $ran = Random(1, 4, 1)
    If $ran = 1 Then
        PrepMoveTo()
            MoveTo(1, -10547, -754)
            MoveTo(1, -9864, -609)
            MoveTo(1, -9454, 115)
            MoveTo(1, -8372, 937)
            MoveTo(1, -7856, 1589)
        KeepMoveTo()
        
    ElseIf $ran = 2 Then
        PrepMoveTo()
            MoveTo(1, -9847, -823)
            MoveTo(1, -9635, -172)
            MoveTo(1, -9380, 261)
            MoveTo(1, -8292, 939)
            MoveTo(1, -7867, 1599)
            MoveTo(1, -7731, 1736)
        KeepMoveTo()
        
    ElseIf $ran = 3 Then
        PrepMoveTo()
            MoveTo(1, -11307, -919)
        StopMoveTo()
    RandomSleep(3000, 3900)
        PrepMoveTo()
            MoveTo(1, -11410, -203)
            MoveTo(1, -10971, 0)
            MoveTo(1, -9768, 44)
            MoveTo(1, -8423, 819)
            MoveTo(1, -7784, 1732)
        KeepMoveTo()

    ElseIf $ran = 4 Then
        PrepMoveTo()
            MoveTo(1, -9758, -543)
            MoveTo(1, -9584, -65)
            MoveTo(1, -9312, 337)
            MoveTo(1, -8832, 359)
            MoveTo(1, -8354, 859)
            MoveTo(1, -7884, 1651)
        KeepMoveTo()
    
    Else
        ConsoleWrite(StringFormat("No valid spawnpoint: x=%.2f y=%.2f",_memoryread($memx,$hprocess,'float'),_memoryread($memy,$hprocess,'float')))
        Exit
    EndIf
    
    While (_memoryread($memmap,$hprocess)) <> 1
        Sleep(500)
    WEnd
    
    While Not MoveTo(0,0,0)
        Sleep(10) ;10ms is the call cycle for the movement engine
    WEnd
    

        PrepMoveTo()
            MoveTo(1, -7493, 2551)
            MoveTo(1, -7783, 4269)
            MoveTo(1, -7969, 4781)
            MoveTo(1, -9632, 5993)
            MoveTo(1, -10286, 6789)
            MoveTo(1, -10609, 7781)
            MoveTo(1, -11029, 8251)
            MoveTo(1, -11445, 8890)
        StopMoveTo()
        
        
        KeySend("c")
    Sleep(200)
    $sel = _memoryread($memnpcidselect,$hprocess)

    if $sel > 0 Then
        KeySend("1")
        RndSleep(2000)
    Else
        ;no Byzzr there ??
        ConsoleWrite(StringFormat("No Byzzr: x=%.2f y=%.2f",_memoryread($memx,$hprocess,'float'),_memoryread($memy,$hprocess,'float')))
        Exit
    EndIf
    
    
        KeySend("2")
    RandomSleep(2000, 2100)
        KeySend("3")
    RandomSleep(2000, 2100)
        KeySend("4")
    RandomSleep(2000, 2100)
        KeySend("5")
    RandomSleep(4000, 4100)
        KeySend("6")
    RandomSleep(4000, 4100)
        KeySend("3")
    RandomSleep(2000, 2100)
        KeySend("4")
    RandomSleep(2000, 2100)
        KeySend("2")
    RandomSleep(2000, 2100)
    
    $oldsel = $sel 
    While $sel = $oldsel
        KeySend("4")
        RndSleep(2000)
        $sel = _memoryread($memnpcidselect,$hprocess)
    WEnd
    
    
        KeySend("ö")
    Sleep(200)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        KeySend("8")
        RndSleep(800)
        CollectLoot(5)
    EndIf
    EndIf
resign()
resign()
resign()
resign()

EndIf
EndIf
WEnd
EndFunc

Func _go2()
While 1
    MouseMove(400, 300)
    If CheckArea(-10386, 2573) Then ;Spawnpoint: NPCs
    $ran = Random(1, 4, 1)
    If $ran = 1 Then
        PrepMoveTo()
            MoveTo(1, -9904, 2478)
            MoveTo(1, -9579, 2140)
            MoveTo(1, -9549, 1422)
            MoveTo(1, -9627, 682)
            MoveTo(1, -9168, 411)
            MoveTo(1, -8587, 700)
            MoveTo(1, -7824, 1619)
        KeepMoveTo()
        
    ElseIf $ran = 2 Then
        PrepMoveTo()
            MoveTo(1, -9636, 2356)
            MoveTo(1, -9554, 379)
            MoveTo(1, -8650, 663)
            MoveTo(1, -7789, 1643)
        KeepMoveTo()
    
    ElseIf $ran = 3 Then
        PrepMoveTo()
            MoveTo(1, -9854, 2641)
            MoveTo(1, -9594, 2370)
            MoveTo(1, -9546, 1621)
            MoveTo(1, -9550, 662)
            MouseMove(400, 300)
            MoveTo(1, -9419, 373)
            MoveTo(1, -8977, 422)
            MoveTo(1, -8218, 1135)
        StopMoveTo()
    RandomSleep(3000, 3100)
        PrepMoveTo()
            MoveTo(1, -7787, 1655)
        KeepMoveTo()
    
    ElseIf $ran = 4 Then
        PrepMoveTo()
            MoveTo(1, -11137, 2394)
            MoveTo(1, -11444, 1862)
        StopMoveTo()
    RandomSleep(3000, 3100)
        PrepMoveTo()
            MoveTo(1, -10810, 1793)
            MoveTo(1, -10500, 1063)
            MoveTo(1, -10420, 581)
            MoveTo(1, -9697, 494)
            MoveTo(1, -8938, 318)
            MoveTo(1, -7801, 1638)
        KeepMoveTo()
    EndIf
    
    If CheckArea(-10537, 1671) Then ;Spawnpoint: Belohnungs NPC
    $ran = Random(1, 4, 1)
    If $ran = 1 Then
        PrepMoveTo()
            MoveTo(1, -10537, 1671)
            MoveTo(1, -10277, 885)
            MoveTo(1, -9887, 556)
            MoveTo(1, -9150, 355)
            MoveTo(1, -8382, 863)
            MoveTo(1, -7806, 1653)
        KeepMoveTo()
    
    ElseIf $ran = 2 Then
        PrepMoveTo()
            MoveTo(1, -9431, 396)
            MoveTo(1, -8863, 244)
            MoveTo(1, -7730, 1707)
        KeepMoveTo()
        
    ElseIf $ran = 3 Then 
        PrepMoveTo()
            MoveTo(1, -9814, 1267)
            MoveTo(1, -9585, 1088)
            MoveTo(1, -9661, 592)
            MouseMove(400, 300)
            MoveTo(1, -9168, 412)
            MoveTo(1, -8764, 624)
            MoveTo(1, -8234, 1259)
            MoveTo(1, -7778, 1683)
        KeepMoveTo()
        
    ElseIf $ran = 4 Then
        PrepMoveTo()
            MoveTo(1, -10482, 929)
            MoveTo(1, -9947, 673)
            MoveTo(1, -9313, 428)
            MoveTo(1, -8784, 604)
            MoveTo(1, -8100, 1356)
        StopMoveTo()
    RandomSleep(3000, 3900)
        PrepMoveTo()
            MoveTo(1, -7795, 1645)
        KeepMoveTo()
    EndIf
    
    If CheckArea(10547, -754) Then
    $ran = Random(1, 4, 1)
    If $ran = 1 Then
        PrepMoveTo()
            MoveTo(1, -10547, -754)
            MoveTo(1, -9864, -609)
            MoveTo(1, -9454, 115)
            MoveTo(1, -8372, 937)
            MoveTo(1, -7856, 1589)
        KeepMoveTo()
        
    ElseIf $ran = 2 Then
        PrepMoveTo()
            MoveTo(1, -9847, -823)
            MoveTo(1, -9635, -172)
            MoveTo(1, -9380, 261)
            MouseMove(400, 300)
            MoveTo(1, -8292, 939)
            MoveTo(1, -7867, 1599)
            MoveTo(1, -7731, 1736)
        KeepMoveTo()
        
    ElseIf $ran = 3 Then
        PrepMoveTo()
            MoveTo(1, -11307, -919)
        StopMoveTo()
    RandomSleep(3000, 3900)
        PrepMoveTo()
            MoveTo(1, -11410, -203)
            MoveTo(1, -10971, 0)
            MoveTo(1, -9768, 44)
            MoveTo(1, -8423, 819)
            MoveTo(1, -7784, 1732)
        KeepMoveTo()

    ElseIf $ran = 4 Then
        PrepMoveTo()
            MoveTo(1, -9758, -543)
            MoveTo(1, -9584, -65)
            MoveTo(1, -9312, 337)
            MoveTo(1, -8832, 359)
            MoveTo(1, -8354, 859)
            MoveTo(1, -7884, 1651)
        KeepMoveTo()
    EndIf
    
    Else
        ConsoleWrite(StringFormat("No valid spawnpoint: x=%.2f y=%.2f",_memoryread($memx,$hprocess,'float'),_memoryread($memy,$hprocess,'float')))
        Exit
    EndIf

    KeepMoveTo()
    
    ; wait until exited and run to Byzzr
    While (_memoryread($memmap,$hprocess)) <> 1
        Sleep(500)
    WEnd
    RndSleep(2000) 

    PrepMoveTo() 
    InitDest( -7529, 2755) ;use direct call to be able to use speed buff right after course alignment
    KeySend("7")
    While Not MoveTo(0,0,0)
        Sleep(10) ;10ms is the call cycle for the movement engine
    WEnd

    MoveTo(1, -7696, 3604, True)
    MoveTo(1, -7760, 4523, True)
    MoveTo(1, -10156, 6930, True)
    MoveTo(1, -10519, 7857, True)
    MoveTo(1, -11519, 8927)
    RndSleep(200)
    
    ;reached position
    StopMoveTo()
    RndSleep(500)

    ;check for valid target
    KeySend("c")
    Sleep(200)
    $sel = _memoryread($memnpcidselect,$hprocess)

    if $sel > 0 Then
        KeySend("1")
        RndSleep(2000)
    Else
        ;no Byzzr there ??
        ConsoleWrite(StringFormat("No Byzzr: x=%.2f y=%.2f",_memoryread($memx,$hprocess,'float'),_memoryread($memy,$hprocess,'float')))
        Exit
    EndIf

    ;kill Byzzr
    KeySend("2")
    RndSleep(2000)
    KeySend("3")
    RndSleep(2000)
    KeySend("4")
    RndSleep(2000)
    KeySend("5")
    RndSleep(4000)
    KeySend("6")
    RndSleep(4000)
    KeySend("3")
    RndSleep(2000)
    KeySend("4")
    RndSleep(2000)
    KeySend("2")
    RndSleep(2000)

    ;wait until Byzzr is dead
    $oldsel = $sel 
    While $sel = $oldsel
        KeySend("4")
        RndSleep(2000)
        $sel = _memoryread($memnpcidselect,$hprocess)
    WEnd

    ;check for teleport and collect all loot
    KeySend("ö")
    Sleep(200)
    $sel = _memoryread($memnpcidselect,$hprocess)
    If $sel > 0 Then
        KeySend("8")
        RndSleep(800)
        CollectLoot(5)
    EndIf

    ;resign
    RndSleep(500)
    Resign()

    ; wait until we are back to Lutgardis
    While (_memoryread($memmap,$hprocess)) <> 0
        Sleep(1000)
        ; check if we got killed
        if _memoryread($memdeath,$hprocess) = 1 Then
            ControlClick($client, "", "", "left", 1, $DTclickX, $DTclickY)
        EndIf
    WEnd

    ; start again
    $runs +=1
    RndSleep(4000)


EndIf
EndIf
WEnd
EndFunc 
der bot ist für byzzr und basirt auf der version die bei der tt6 dabei war.

pls helft mir.


mfg
Hokler
02/16/2009 21:57 Dunham#2
1. fehler ist schonmal das beide die gleiche tt6 nutzen und beide fenster client heißen da kann doch iwas nicht stimmen :-p
02/17/2009 13:00 Hokler#3
mhhh was meinst du damit genau ? ic hhab jetzt einfach des 2te $client in $client2 umbenannt aber es geht immernoch net
02/17/2009 13:27 Dunham#4
hast du das dann auch in der tt6 alles geändert? weil für die ist da ja wichtig.,..
02/17/2009 13:31 Hokler#5
was sol ich in der tt6 ändern ?

ic hhab jetz i ndem script wo ich oben gepostet hab einfach statt $client $client2 gemacht und

PHP Code:
Global $client2 = IniRead("tt6.ini","id","windowName","Guild Wars1") 
noch rein (mein gw fenster heist Guild Wars1)

und es geht immernoch net
02/17/2009 18:56 Painful Pete#6
Hatte vorhin auch kleine Problem....
Du willst den Bot mit 2 Clienten laufen lassen?

Erstelle dir 2 Ordner. In jeden packst du den Bot mit tt6.au3, tt6.ini, nomad usw rein.

Dann trägst du in der tt6.ini den richtigen Namen von deinem Clienten ein, wie dein Fenster heißt: Guild Wars, Guild Wars1, Guild Wars2 usw.
ACHTUNG:
In der ersten tt6.ini hieß der Bereich wo du grad was verändert hast [ids]
in der au3 lädt er jedoch vom Bereich [id].
solang nur 1 Client läuft kein Problem. Musst also das [ids] in [id] umändern in der tt6.ini

Außerdem musst du in der jeweiligen tt6.au3 in Zeile 26
PHP Code:
Global $client = IniRead("tt6.ini","id","windowName","[COLOR="Red"]Guild Wars[/COLOR]") 
Bei dem roten nochmals den richtigen Fensternamen eintippen. dann sollte es gehen!

Hoffe ich konnte helfen

EDIT: ok also habs mir grad nochmal bisschen angeschaut.
Es müsste auch gehen, dass du in der tt6.ini einen weitern Clienten hinzufügst

Code:
[id]

windowName = Guild Wars
windowName2 = Guild Wars1
musst dann aber schaun, dass du das hier auch noch in dein Script packst:

Global $client = IniRead("tt6.ini","id","windowName","Guild Wars")
Global $client2 = IniRead("tt6.ini","id","windowName2","Guild Wars1")

so sollte es auch gehen. die Obere Methode ist eher, wenn du 2 separate Bots getrennt laufen lässt.
02/17/2009 19:06 Hokler#7
danke für deine antwort aber ich lass den bot nur auf einen acc laufen und da heist mein gw fenster halt Guild Wars1 und wen ic hdes fenster in Guild Wars umendere (natürlich tt6 zeugs auch auf Guild wars umstellen) passirt immernoch nix =(
02/17/2009 19:58 bunney#8
CheckArea(-10386, 2573)

braucht man um seinen standpunkt zu prüfen nicht 4 koords??
max-min??
weil man ja nicht immer exakt an der gleichen stelle spawnt
02/18/2009 00:28 Painful Pete#9
soweit ich das gesehen hab, hat tonitusch das in seiner tt6 schon so als funktion eingebaut, dass er automatisch +/-250 nimmt oder so. weiß den Wert nicht mehr genau, aber die Schwankung hat er glaub ich schon drin
02/18/2009 12:20 bunney#10
achso sry wusste ich garnet^^
02/18/2009 17:54 N.E.O.#11
Quote:
Originally Posted by Painful Pete View Post
soweit ich das gesehen hab, hat tonitusch das in seiner tt6 schon so als funktion eingebaut, dass er automatisch +/-250 nimmt oder so. weiß den Wert nicht mehr genau, aber die Schwankung hat er glaub ich schon drin
Da hast du recht ;-):

PHP Code:
Func CheckArea($xval, $yval)
    $ret = False
    $pX = _memoryread($memx,$hprocess,'float')
    $pY = _memoryread($memy,$hprocess,'float')
    
    if ($pX < $xval + 700) And ($pX > $xval - 700) And ($pY < $yval + 700) And ($pY > $yval - 700) Then
        $ret = True
    EndIf
    Return $ret    
EndFunc 
03/01/2009 18:53 Hokler#12
Kann es vielleicht sein das ich was mit den random wayouts falsch mache oder so ??
Weil mir is grad aufgefallen das er ohne random wayouts prima funktionirt =/

aber da byzzr farmen so riskant geworden ist will ic heigentlich schon random wayouts.


pls helft mir :(