Jump to content

Recommended Posts

Guest BL@(K-R34P3R
Posted

hMm, just wondering, but do you like my new picture? =)

  • Replies 47
  • Created
  • Last Reply

Top Posters In This Topic

Top Posters In This Topic

Posted

Just Copy the whole script that is inside the loop and paste it below itself. then at the end of the script (inside the loop) write the code that i put before

My site for HTML Help :)[quote name='Valik' date='Oct 15 2004, 12:29 PM']Maybe nobody is an "elite uber-coder" like me because thinking is a capital offense in today's online-world?[right][snapback]36427[/snapback][/right][/quote]
Posted (edited)

Just Copy the whole script that is inside the loop and paste it below itself. then at the end of the script (inside the loop) write the code that i put before

<{POST_SNAPBACK}>

;  /////////// JHJ RESTARTER /////////////
; ///////////// by Cascius //////////////
;//////////////// v 1.0 ////////////////


AutoItSetOption("MouseCoordMode", 0)

$counter = 0

Func CheckCount() 
         $counter = $counter + 1
    
         If $counter = 4 then 
       
         WinActivate("Create Delay") 

         


        Opt("SendKeyDelay", 1) 
        MouseClick("Left", 82, 501)
        MouseClick("Left", 583, 506)
        MouseClick("Left", 573, 178)
        Send("/join abskjdhg{enter}")
                Sleep(2000)
                Send("alsbvhs{enter}")
                Sleep(1000)
                Send("eabljshbs{enter}")

        MouseClick("Left", 726, 443)
        MouseMove(200, 560) 
        MouseClick("left", 200, 560, 10) 
        Sleep(500) 
        Send ("dsaliyrtgf") 
        Send ("{ENTER}") 
        Sleep(500) 
        Send ("hthtdeeds") 
        Send ("{ENTER}") 
        Sleep(500) 
        Send ("hi") 
        Send ("{ENTER}") 
        Sleep(5000) 
        $counter = 0

    EndIf 
EndFunc    
Do 
   
   
   $JHJNAME = IniRead("restarter.ini", "Settings", "jhjname", "NotFound")
   $RUNS = IniRead("restarter.ini", "Settings", "runs", "NotFound")
   $DELAY = IniRead("restarter.ini", "Settings", "delay1", "NotFound")
   $KILL = IniRead("restarter.ini", "Settings", "kill", "NotFound")
   $RD_DELAY = IniRead("restarter.ini", "Settings", "delay2", "NotFound")
   $MODE = IniRead("restarter.ini", "Settings", "mode", "NotFound")
   $WIN98FIX = IniRead("restarter.ini", "Settings", "win98fix", "NotFound")
   
   
   
   
   If WinExists($JHJNAME, "Create Delay") Then  
   Call("CheckCount") 
   Endif
  
;// 




   
  ;/////////////// Start the Realm Down/# of runs Detection ///////////////
   
   $RESTART = 0
   If WinExists($JHJNAME, "Realm Down") Then
      $RESTART = 1
      $WAIT = $RD_DELAY
   EndIf
   If WinExists($JHJNAME, "Total  : " & $RUNS) Then
      $RESTART = 1
      $WAIT = $DELAY
   EndIf
   If WinExists($JHJNAME, "T2     : 12:0" & $KILL) Then
      $RESTART = 1
      $WAIT = $DELAY
   EndIf
   
   
  ;/////////////// End the Realm Down/# of runs Detection ///////////////
   
   
   
   
   
  ;/////////////// Start the restart process ///////////////   
   
   If $RESTART = 1 Then
      
    ;--------------- This kills Diablo bots ---------------
      
      WinActivate($JHJNAME) 
      WinWaitActive($JHJNAME) 
      MouseClick("Left", 150, 210)
      Sleep($WAIT)
      
    ;--------------- Restart the bots ---------------
      WinActivate($JHJNAME) 
      WinWaitActive($JHJNAME)       
      If $MODE = 0 Then
         MouseClick("Left", 150, 71)
      Else
         MouseClick("Left", 75, 60)
         MouseClick("Left", 150, 110)
      EndIf
      If $WIN98FIX = 1 Then
         Sleep(5000)
         Run("Loader.exe")
      EndIf
      Sleep(5000)
      
   EndIf
   
  ;/////////////// End the restart process ///////////////      
   
   
   
   
   
  ;/////////////// Start the "Wait for Bnet" Detection ///////////////
   
   If $MODE = 1 Then
      If WinExists("PBot by JHJ - Translated By LordLardo and Fish Beans", "Wait BN") Then
         
         
        ;--------------- Switch Character and CDkey ---------------
         WinActivate($JHJNAME) 
         WinWaitActive($JHJNAME) 
         MouseClick("Left", 150, 210)
         Sleep(500)
         MouseClick("Left", 75, 60)
         MouseClick("Left", 150, 110)
         Sleep(5000)
      EndIf      
   EndIf
   
  ;/////////////// End the "Wait for Bnet" Detection ///////////////
   
   
   
   
   
   
   Sleep(1000);// This delay reduces CPU load
   
   $VARIABLE = $VARIABLE + 1 
Until $VARIABLE = 5000000000000 


; Finished!

:) Im stupid I hate myself...

Edited by kookoosan
Guest BL@(K-R34P3R
Posted

Congratulations, you should submit that to www.blizzhackers.com I know the owner of the site, I'm sure that he would host for you. They are always looking for things like that!

Posted

Congratulations, you should submit that to www.blizzhackers.com I know the owner of the site, I'm sure that he would host for you. They are always looking for things like that!

<{POST_SNAPBACK}>

What?? , never realmgx.com...It still isnt right :S can some1 fix this 4 me?

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
×
×
  • Create New...