Jump to content
Sign in to follow this  
Xav

D2 lord How To folow... (game)

Recommended Posts

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 by Xav

Share this post


Link to post
Share on other sites

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)

[font="Impact"] I always thought dogs laid eggs, and I learned something today. [/font]

Share this post


Link to post
Share on other sites

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 by Xav

Share this post


Link to post
Share on other sites

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.

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×
×
  • Create New...