Sign in to follow this  
Followers 0
Sobiech

My D2 Bot and his problem :)

5 posts in this topic

Hi, this is my easy script

$Ini = @ScriptDir & '\Settings.ini'
$WindowName = IniRead($Ini, "Settings", "D2WindowName", "Diablo II")
$ExitKey = IniRead($Ini, "Hotkeys", "ExitGameKey", "{HOME}")
$Clicks = 1

    WinMinimizeAll();Minimalizacja okien
    Sleep(1000)
    WinActivate($WindowName);Aktywacja okna

MouseGetPos()
Opt('MouseCoordMode', 2)

HotKeySet('{F11}', 'Exit_Game')
HotKeySet('{PAUSE}', 'quit')

While 1;use infinite loop since ExitLoop will get called
  AutoItSetOption ( "MouseCoordMode" , 2)
  Sleep(1000)
  Send("{Enter}")
  Sleep(100)
  Send ("Now i go to trist :P prepare yourself")
  Sleep(100)
    Send("{Enter}")
Sleep(2000)
MouseClick("left", 320, 212, $Clicks); Go to red tp
Sleep(1000)
MouseClick("left", 726, 10, $Clicks); Go under box
Sleep(1000)
MouseClick("left", 390, 83, $Clicks); Go into box
Sleep(1000)
MouseClick("left", 51, 319, $Clicks); Go to down wall
Sleep(800)
MouseClick("Left", 26, 176, $Clicks); Go to last position in left corner
Sleep(800)
Send("{Enter}")
Sleep(500)
Send("Hammers pls go to the positions and prepare to bws in 10 seconds")
Sleep(500)
Send("{Enter}")
Sleep(5000)
Send("{Enter}")
Sleep(100)
Send("5 seconds to bws")
Sleep(100)
Send("{Enter}")
Sleep(5000)
MouseClick("right", 536, 233, $Clicks);1 bw
 Send("{Enter}")
 Sleep(500)
    Send("1")
    Sleep(500)
    Send("{Enter}")
Sleep(24000)
MouseClick("right", 536, 233, $Clicks);2 bw
Sleep(1000)
 Send("{Enter}")
 Sleep(500)
    Send("2")
    Sleep(500)
    Send("{Enter}")
sleep(24000)
MouseClick("right", 536, 233, $Clicks);3bw
Sleep(1000)
 Send("{Enter}")
 Sleep(500)
    Send("3")
    Sleep(500)
    Send("{Enter}")
sleep(24000)
MouseClick("right", 536, 233, $Clicks);4 bw
Sleep(1000)
Send("{Enter}")
Sleep(500)
    Send("This is 4 LAST WALL AND TOWN")
    Sleep(500)
    Send("{Enter}")
    Sleep(24000)
    Send("{Enter}")
    Sleep(500)
    Send("You have 15 seconds to clear all trist :)")
    Sleep(500)
    Send("{Enter}")
    Sleep(15000)
 Send("{Enter}")
    Send("Go to town and wait 20 seconds")
    Sleep(500)
    Send("{Enter}") 
        MouseClick("left", 620, 379, $Clicks); Go to down wall
Sleep(700)
MouseClick("left", 753, 211, $Clicks); Go into box
Sleep(10000)
MouseClick("Left", 400, 500, $Clicks); Go under box
Sleep(1000)
MouseClick("left", 10, 431, $Clicks); Go to red tp
Sleep(10000)
 Send("{Enter}")
    Send("10 seconds to go")
    Send("{Enter}")
sleep(5000)
 Send("{Enter}")
    Send("5 seconds to go")
    Send("{Enter}")
    Sleep(5000)
     Send("{Enter}")
    Send("GO")
    Send("{Enter}")
WEnd

Func Exit_Game()
   If WinActive($WindowName) Then
      Send("{ESC}")
      Send("{UP}")
      Send("{ENTER}")
   EndIf
EndFunc

Func quit()
    Exit
EndFunc

This run very good, but what i need write here to this script work in minimized Diablo II window :idea: i tryied about twenty times to edit this but doesnt work as minimalized :) what i must add to script for minimized working?

Ah and i have this ini file with script folder

[Settings]
D2WindowName = Diablo II

[Hotkeys]
ExitGameKey = {HOME}
KillD2Key = {END}

Will be nice if this autobonner work as minimized :party: I can use virtual pc to this but i have cheap machine :|


This world is crazy

Share this post


Link to post
Share on other sites



have you tried using ControlClick() and ControlSend() ?

Share this post


Link to post
Share on other sites

theres udf's for background clicking :)

but not quite sure about sending letters..

Share this post


Link to post
Share on other sites

have you tried using ControlClick() and ControlSend() ?

I tryied but propably wrong :|

How write this Control


This world is crazy

Share this post


Link to post
Share on other sites

Bump


This world is crazy

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  
Followers 0