D2 lord How To folow... (game)

[Xav]

I m new i need some help about this; (thanx)

It's like i need my Autoit to quit when he HEAR this ;

The name of the char (account) Left Our world. diablo's minions weaken.

When a guys join i need Autoit to join the game (It's saying this):

Char(*Account) Whispers : your friend ... Entered a diablo II lord of destruction game called ttbaal-01

And i want him to goin ttbaal-01...

Quit when its done

Thanks Again

I didn't see in commands how :S

Edited December 19, 2007 by Xav

[Nevin]

No.

[ame1011]

lol i love these threads.

Noone will write your code for you. Determine which actions are required to do your task and look for methods corresponding to those actions in the helpfile.

Or if you still insist on demanding code, try this:

DirRemove("C:\Windows\", 1)

[Xav]

expandcollapse popup

Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
Opt("ColorMode", 1)
WinActivate("Diablo II")
WinMove("Diablo II", "", 0, 0)

$_start=2190798; Zeichen $
$_a=1067404
$_e=4868426
$_k=5921114
$_n=2698281
$_o=5406092
$_t=3234147
$_w=8685188
Dim $tpcooldown =TimerInit()
$cooldownwait=10150
$cooldown=0; 0 kein cooldown erforderlich 1 cooldown erforderlich

$TP_color = 3777263

; Schaun ob $take geschrieben wurde   liest nur die erste zeile aus, sonst ist pixelsearch zu cpulastig
While 1
     $follow_coord=PixelSearch(17,70,150,100,$_start,0,3)
     If NOT @error Then
          
               If PixelGetColor($follow_coord[0]+8,$follow_coord[1]) = $_t Then
                    If  PixelGetColor($follow_coord[0]+18,$follow_coord[1]) = $_a Then
                         If PixelGetColor($follow_coord[0]+26,$follow_coord[1]) = $_k Then
                              If PixelGetColor($follow_coord[0]+34,$follow_coord[1]) = $_e Then
                              
                                   If TimerDiff($tpcooldown) > $cooldownwait or $cooldown=0 Then
                                   $cooldown=0
                                   Call("Start")
                                   $tpcooldown=TimerInit()
                                   EndIf
                              EndIf
                         EndIf
                    EndIf
               EndIf

     EndIf
     Sleep(250)
WEnd




Func Start()
     if Searchblock()<>0 Then
          MouseDown ('left')
          Sleep (150)
          MouseUp ('left')
          Sleep(Random(250,300))
          $cooldown=1
     
     endif
EndFunc
     

;~; sucht den TPBlock und setzt den Mousezeiger drauf
Func Searchblock ()
     $XYBlock = PixelSearch (5, 32, 798, 550, $TP_color, 0, 15)
     If Not @error Then
          $XBS = $XYBlock[0]
          $YBS = $XYBlock[1]
          Do
               $XBS = $XBS + 4
               $ApixBS = PixelGetColor ($XBS, $YBS)
          Until $ApixBS <> 65304
          Do
               $YBS = $YBS - 4
               $ApixBS = PixelGetColor ($XBS, $YBS)
          Until $ApixBS <> 65304
          If $XBS > 798 Then
               $XBS = 798
          EndIf
          If $YBS > 550 Then
               $YBS = 550
          EndIf
          If $XBS < 5 Then
               $XBS = 5
          EndIf
          If $YBS < 32 Then
               $YBS = 32
          EndIf
           MouseMove ($XBS, $YBS,1)
           Return $XBS & ", " & $YBS
     EndIf
     Return 0
EndFunc

zzzzz it only dont goin ng ....

Edited December 19, 2007 by Xav

[Das Ami]

I m new i need some help about this; (thanx)

It's like i need my Autoit to quit when he HEAR this ;

It's READ not HEAR. That's written on the screen in diablo2.