Bot Creation... - Topic

I just wanted to add that it doesn't work as intended ,the character freezes after firing a series of spells and when he walks back,he doesn't find the exit (even though he DOES hit the reset button).

Kasad

Member

Posts: 15

Joined: Sep 30 2011

Gold: 0.00

#14

Oct 1 2011 09:16am

I am trying to make my own bot here but I have major difficulties understanding why some simple functions won't always work as intented.For example,the sleep function you have posted does not always wait for let's say 2000msec,instead sometimes it works for a lot less,maybe even skipping that function !

Same goes for mouse clicking.It doesn't always click ,even though the mouse is placed in the right position.

I'm a little confused

Kasad

Member

Posts: 15

Joined: Sep 30 2011

Gold: 0.00

#15

Oct 1 2011 10:20am

Sorry for the spam,but I found out what was going on.

To put it simply,the landscape is random and it's not always say 5 meters forward and 2 meters left.It could be 4.5 forward 3 meters left which requires a more smart pathway approach :p

Schlag96

Member

Posts: 19,815

Joined: May 17 2004

Gold: 3,755.00

#16

Oct 1 2011 07:33pm

Quote (Kasad @ 1 Oct 2011 08:20)

that and it doesn't matter where you PUT the mouse it's where the click coordinates are defined...

Vicc

Member

Posts: 21,692

Joined: Jul 15 2005

Gold: 95.00

#17

Oct 1 2011 07:47pm

You should make a bot to farm Totteham Court Road for Dmitrys Glory.

Luffles

Member

Posts: 7,690

Joined: Jun 28 2007

Gold: 18,155.98

#18

Oct 1 2011 08:48pm

pretty sure mob health bar is semi-transparent so that's why you're seeing health bar colour variations

Ispanika

Member

Posts: 14

Joined: Sep 24 2011

Gold: 0.00

Warn: 10%

#19

Oct 6 2011 08:15am

Thats the code for my engi, anyone can modify it on Scite.

Code

;### Tidy Error: next line creates a negative tablevel.
;### Tidy Error: next line creates a negative tablevel for the line after it.
#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region
$Form1 = GUICreate("Hellgate Bot", 268, 257, 637, 331)
$Form1 = GUISetBkColor(0xb83f5d)
$Form1 = GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans Ms")
$Form1 = GUISetState()
$Button1 = GUICtrlCreateButton("GO GO > START", 20, 40, 190, 50, 0)
$Button2 = GUICtrlCreateButton("Pause Button = Pause / ESC = Quit", 20, 120, 190, 50, 0)
$Button3 = GUICtrlCreateButton("USE 1024x768 RESOLUTION - FULLSCREEN", 20, 180, 250, 50, 0)
GUISetState(@SW_SHOW)
$Mouse = MouseGetPos()
#endregion

_WinWaitActivate("Hellgate (x86 DX9)", "")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc

Func _move($loop, $key)
For $i = $loop To 1 Step -1
ControlSend("Hellgate (x86 DX9)", "", "", $key)
Next
EndFunc ;==>_move

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('BOT IS PAUSED ATM',0,0)
WEnd
ToolTip("Use 1024x768")
EndFunc

Func Terminate()
Exit 0
EndFunc

While 1
$nMsg = GUIGetMsg()

Select

Case $Button1
While 1

Sleep(2000)
_move(120, "s")
Sleep(5)
_move(25, "w")
Sleep(5); Getting IN
_move(25, "s")
Sleep(3000); INSIDE FROM NOW ON, increase the second W move to get deeper
_move(50, "w")
Sleep(5)
_move(20, "a")
_move(180, "w")
Sleep(10)
_move(30, "a")
Sleep(10)
_move(30, "w")
Sleep(1000)
ControlSend("Hellgate (x86 DX9)", "", "", "{2}"); Wep
Sleep(2000)
ControlSend("Hellgate (x86 DX9)", "", "", "{8}"); Buff2
Sleep(100 )
ControlSend("Hellgate (x86 DX9)", "", "", "{1}"); Wep
Sleep(2000)
ControlSend("Hellgate (x86 DX9)", "", "", "{9}"); Buff3
Sleep(1000)
MouseClick("middle")
Sleep(2000)
MouseClick("left")
Sleep(1000)
MouseClick("right")
Sleep(1000)
MouseClick("right")
Sleep(1000)
MouseClick("left")
Sleep(1000)
MouseClick("right")
Sleep(1000)
MouseClick("left")
Sleep(1000)
MouseClick("middle")
Sleep(2000)
ControlSend("Hellgate (x86 DX9)", "", "", "{8}"); Buff3
Sleep(1000)
MouseClick("left")
Sleep(1000)
MouseClick("right")
Sleep(1000)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
MouseClick("right")
Sleep(1000)
MouseClick("left")
Sleep(2000)
MouseClick("middle")
Sleep(2000)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)
ControlSend("Hellgate (x86 DX9)", "", "", "{F}"); Loot
Sleep(100)

ControlSend("Hellgate (x86 DX9)", "", "", "{7}"); Unstuck macro activated by key 7
Sleep(1000)
ControlSend("Hellgate (x86 DX9)", "", "", "{9}"); Buff3
Sleep(14000)
_move(80, "s"); Start to walk to get out of there
Sleep(5)
_move(18, "w")
Sleep(5)
_move(18, "s")
Sleep(4000)

Send("{ALTDOWN}"); RESET
Sleep(500)
MouseClick("primary", "834", "63", 10)
Sleep(800)
MouseClick("primary", "445", "426", 10)
Sleep(800)
MouseClick("primary", "508", "410", 10)
Sleep(800)
Send("{ALTUP}")
Sleep(250)

WEnd

Case $Button2
GUIDelete()
ExitLoop

EndSelect

WEnd

And the faster and more accurate one:

Code

;### Tidy Error: next line creates a negative tablevel.
;### Tidy Error: next line creates a negative tablevel for the line after it.
#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region
$Form1 = GUICreate("Hellgate Bot", 268, 257, 637, 331)
$Form1 = GUISetBkColor(0xb83f5d)
$Form1 = GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans Ms")
$Form1 = GUISetState()
$Button1 = GUICtrlCreateButton("GO GO > START", 20, 40, 190, 50, 0)
$Button2 = GUICtrlCreateButton("Pause Button = Pause / ESC = Quit", 20, 120, 190, 50, 0)
$Button3 = GUICtrlCreateButton("USE 1024x768 RESOLUTION - FULLSCREEN", 20, 180, 250, 50, 0)
GUISetState(@SW_SHOW)
$Mouse = MouseGetPos()
#endregion

_WinWaitActivate("Hellgate (x86 DX9)", "")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc

Func _move($loop, $key)
For $i = $loop To 1 Step -1
ControlSend("Hellgate (x86 DX9)", "", "", $key)
Next
EndFunc ;==>_move

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('BOT IS PAUSED ATM',0,0)
WEnd
ToolTip("Use 1024x768")
EndFunc

Func Terminate()
Exit 0
EndFunc

While 1
$nMsg = GUIGetMsg()

Select

Case $Button1
While 1

Sleep(2000)
_move(120, "s")
Sleep(5)
_move(25, "w")
Sleep(5); Getting IN
_move(25, "s")
Sleep(3000); INSIDE FROM NOW ON, increase teh second W move to get deeper
_move(50, "w")
Sleep(5)
_move(20, "a")
_move(180, "w")
Sleep(10)
_move(30, "a")
Sleep(10)
_move(30, "w")
Sleep(1000)
MouseClick("middle")
Sleep(202)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("right")
Sleep(150)
MouseClick("right")
Sleep(150)
ControlSend("Hellgate (x86 DX9)", "", "", "{3}")
Sleep(1000)
MouseClick("left")
Sleep(300)
ControlSend("Hellgate (x86 DX9)", "", "", "{1}")
Sleep(1000)
ControlSend("Hellgate (x86 DX9)", "", "", "{9}")
Sleep(281)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("right")
Sleep(150)
MouseClick("right")
Sleep(150)
MouseClick("middle")
Sleep(449)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("right")
Sleep(150)
MouseClick("right")
Sleep(150)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("middle")
Sleep(449)

ControlSend("Hellgate (x86 DX9)", "", "", "{7}"); Unstuck macro activated by key 7
Sleep(1000)
ControlSend("Hellgate (x86 DX9)", "", "", "{9}"); Buff3
Sleep(14000)
_move(80, "s"); Start to walk to get out of there
Sleep(5)
_move(18, "w")
Sleep(5)
_move(18, "s")
Sleep(4000)

Send("{ALTDOWN}"); RESET
Sleep(500)
MouseClick("primary", "834", "63", 10)
Sleep(800)
MouseClick("primary", "445", "426", 10)
Sleep(800)
MouseClick("primary", "508", "410", 10)
Sleep(800)
Send("{ALTUP}")
Sleep(250)

WEnd

Case $Button2
GUIDelete()
ExitLoop

EndSelect

WEnd

It's simple, just change cast times, cooldowns and add loot or keep it without :)
I doubt i'll make soon or later aimbot, since haven't resolved yet the all-time changing pixel problem. :)

Ricelol

Member

Posts: 5,901

Joined: May 8 2010

Gold: 0.00

#20

Oct 7 2011 03:22pm

Nice work ispanika, here is my modified version of yours:

0. Have buff guns (+drone or +strikes) on F3 equipped.
1. Walks in same way you do (with your back to the entrance).
2. Pauses to shoot once to get rid of invulnerability, then presses "1" for drone.
3. Walks deeper into the tunnel and presses middle click and "g" (these are tact. mode and napalm strike for me).
4. Switches to dps guns (F1) and shoots.
5. Switches back to buff guns (F3) and with /unstuck macro bound to 7 still, presses 7 and teleports to entrance.
6. Walks out and resets.

I realize that the code has some redundant commands, but that's because I've discovered that it sometimes doesn't press the keys for whatever reason so I just stuck it in there twice.

Code:

Quote

;### Tidy Error: next line creates a negative tablevel.
;### Tidy Error: next line creates a negative tablevel for the line after it.
#ce ----------------------------------------------------------------------------

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#region
$Form1 = GUICreate("Hellgate Bot", 268, 257, 637, 331)
$Form1 = GUISetBkColor(0xb83f5d)
$Form1 = GUICtrlSetFont(-1, 12, 800, 0, "Comic Sans Ms")
$Form1 = GUISetState()
$Button1 = GUICtrlCreateButton("GO GO > START", 20, 40, 190, 50, 0)
$Button2 = GUICtrlCreateButton("Pause Button = Pause / ESC = Quit", 20, 120, 190, 50, 0)
$Button3 = GUICtrlCreateButton("USE 1024x768 RESOLUTION - FULLSCREEN", 20, 180, 250, 50, 0)
GUISetState(@SW_SHOW)
$Mouse = MouseGetPos()
#endregion

_WinWaitActivate("Hellgate (x86 DX9)", "")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")

Func _WinWaitActivate($title,$text,$timeout=0)
WinWait($title,$text,$timeout)
If Not WinActive($title,$text) Then WinActivate($title,$text)
WinWaitActive($title,$text,$timeout)
EndFunc

Func _move($loop, $key)
For $i = $loop To 1 Step -1
ControlSend("Hellgate (x86 DX9)", "", "", $key)
Next
EndFunc ;==>_move

Func TogglePause()
$Paused = NOT $Paused
While $Paused
sleep(100)
ToolTip('BOT IS PAUSED ATM',0,0)
WEnd
ToolTip("Use 1024x768")
EndFunc

Func Terminate()
Exit 0
EndFunc

While 1
$nMsg = GUIGetMsg()

Select

Case $Button1
While 1

Sleep(2000)
_move(120, "s")
Sleep(5)
_move(25, "w")
Sleep(5); Getting IN
_move(25, "s")
Sleep(3000); INSIDE FROM NOW ON, increase teh second W move to get deeper
_move(50, "w")
MouseClick("left")
Sleep(200)
ControlSend("Hellgate (x86 DX9)", "", "", "{1}")
Sleep(4000)
_move(23, "a")
Sleep(5)
_move(140, "w")
Sleep(10)
_move(30, "a")
Sleep(10)
_move(30, "w")
Sleep(1000)
MouseClick("middle")
Sleep(500)
MouseClick("middle")
Sleep(500)
ControlSend("Hellgate (x86 DX9)", "", "", "{g}")
Sleep(500)
ControlSend("Hellgate (x86 DX9)", "", "", "{g}")
Sleep(500)
ControlSend("Hellgate (x86 DX9)", "", "", "{F1}")
Sleep(1000)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
MouseClick("left")
Sleep(200)
ControlSend("Hellgate (x86 DX9)", "", "", "{F3}")
Sleep(281)

ControlSend("Hellgate (x86 DX9)", "", "", "{7}"); Unstuck macro activated by key 7
Sleep(13000)
_move(80, "s"); Start to walk to get out of there
Sleep(5)
_move(18, "w")
Sleep(5)
_move(18, "s")
Sleep(4000)

Send("{ALTDOWN}"); RESET
Sleep(500)
MouseClick("primary", "834", "63", 10)
Sleep(800)
MouseClick("primary", "445", "426", 10)
Sleep(800)
MouseClick("primary", "508", "410", 10)
Sleep(800)
Send("{ALTUP}")
Sleep(250)

WEnd

Case $Button2
GUIDelete()
ExitLoop

EndSelect

WEnd

Go Back To Hellgate Topic List