How to script a simple auto-bot [AutoIT]

07/30/2008 07:18 comegetsum#61
respect to all of you.. i bow
08/08/2008 09:51 warpig1984#62
can anybody upload their autoit codes? i'm lost. . . .
08/11/2008 15:00 dimabuwag#63
BOTSnHACKS - AutoPOTS v.10 Original Script
Code:
#include GUIConstants.au3
#include GUIList.au3
#include Misc.au3
#include Array.au3

; GUI TABLE
 = GUICreate("AutoPOTS v1.0 [www.botsnhacks.blogspot.com]", 349, 350, 278, 199)
GUISetIcon("favicon.ico")
GUISetBkColor(0x0)

 = GUICtrlCreateInput("",90, 13, 100, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)
 = GUICtrlCreateLabel("Game Title", 16, 15, 70, 17)
GUICtrlSetColor(,977156)

;HP Group
 = GUICtrlCreateGroup("HP/Pots", 8, 37, 225, 89)
GUICtrlSetColor(,16720929)
 = GUICtrlCreateLabel("HP Color", 16, 54, 70, 17)
GUICtrlSetColor(,16720929)
 = GUICtrlCreateInput("",90, 52, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)
 = GUICtrlCreateLabel("HP Location", 16, 75, 70, 17)
GUICtrlSetColor(,16720929)
 = GUICtrlCreateInput("",90, 73, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)
 = GUICtrlCreateInput("",360, 73, 30, 17)
 = GUICtrlCreateInput("",390, 73, 30, 17)
 = GUICtrlCreateLabel("HP Pot Button", 16, 96, 70, 17)
GUICtrlSetColor(,16720929)
 = GUICtrlCreateInput("",90, 94, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)

;MP Group
 = GUICtrlCreateGroup("MP/Pots", 8, 132, 225, 89)
GUICtrlSetColor(,5737171)
 = GUICtrlCreateLabel("MP Color", 16, 149, 70, 17)
GUICtrlSetColor(,5737171)
 = GUICtrlCreateInput("",90, 147, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)
 = GUICtrlCreateLabel("MP Location", 16, 170, 70, 17)
GUICtrlSetColor(,5737171)
 = GUICtrlCreateInput("",90, 168, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)
 = GUICtrlCreateInput("",360, 90, 30, 17)
 = GUICtrlCreateInput("",390, 90, 30, 17)
 = GUICtrlCreateLabel("MP Pot Button", 16, 191, 70, 17)
GUICtrlSetColor(,5737171)
 = GUICtrlCreateInput("",90, 189, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)
;SP Group
 = GUICtrlCreateGroup("SP/Pots", 8, 227, 225, 89)
GUICtrlSetColor(,16037638)
 = GUICtrlCreateLabel("SP Color", 16, 244, 70, 17)
GUICtrlSetColor(,16037638)
 = GUICtrlCreateInput("",90, 242, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)
 = GUICtrlCreateLabel("SP Location", 16, 265, 70, 17)
GUICtrlSetColor(,16037638)
 = GUICtrlCreateInput("",90, 263, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)
 = GUICtrlCreateInput("",360, 110, 30, 17)
 = GUICtrlCreateInput("",390, 110, 30, 17)
 = GUICtrlCreateLabel("SP Pot Button", 16, 286, 70, 17)
GUICtrlSetColor(,16037638)
 = GUICtrlCreateInput("",90, 284, 65, 17)
GUICtrlSetColor(,977156)
GUICtrlSetBkColor(,0x0)

;Buttons
 = GUICtrlCreateButton("Save Setting", 252, 239, 91, 25, 0)
GUICtrlSetColor(,16776320)
GUICtrlSetBkColor(,0x0)
GUICtrlSetFont(, 10, 10, 1)
 = GUICtrlCreateButton("START", 252, 269, 91, 25, 0)
GUICtrlSetColor(,16776320)
GUICtrlSetBkColor(,0x0)
GUICtrlSetFont(, 10, 800, 2)
 = GUICtrlCreateButton("Setup", 160, 48, 50, 20, 0)
GUICtrlSetColor(,16720929)
GUICtrlSetBkColor(,0x0)
GUICtrlSetFont(, 10, 10, 1)
 = GUICtrlCreateButton("Setup", 160, 143, 50, 20, 0)
GUICtrlSetColor(,5737171)
GUICtrlSetBkColor(,0x0)
GUICtrlSetFont(, 10, 10, 1)
 = GUICtrlCreateButton("Setup", 160, 238, 50, 20, 0)
GUICtrlSetColor(,16037638)
GUICtrlSetBkColor(,0x0)
GUICtrlSetFont(, 10, 10, 1)

;Label
 = GUICtrlCreateLabel("Press F11 to STOP", 247, 190, 120, 17)
GUICtrlSetColor(,16720929)
 = GUICtrlCreateLabel("SPAGHETT1", 247, 330, 120, 17)
GUICtrlSetFont(, 10, 1500, 2)
GUICtrlSetColor(,16720929)
 = GUICtrlCreateLabel("www.botsnhacks.blogspot.com", 16, 330, 200, 17)
GUICtrlSetFont(, 10, 10, 1)
GUICtrlSetColor(,7849550)

GUISetState(@SW_SHOW)

Func EnDisAble()
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
EndFunc


Func HP_endisable()
GuiCtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GuiCtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GuiCtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )
GUICtrlSetState(, )

EndFunc


Func GetColorHP()
 = GuiCtrlCreateLabel("", 160, 70, 50, 40)
While 1
 = MouseGetPos()
 = PixelGetColor(,)
sleep(100)
GuiCtrlSetBkColor(-1, )
If  <>  Then
GUICtrlSetData(,)
endif
If  <>  then
GUICtrlSetData(, )
GUICtrlSetData(, )
GUICtrlSetData(, &"x"&)
endif
if _ispressed("7A") Then
ExitLoop
endIF
Wend
EndFunc

Func GetColorMP()
 = GuiCtrlCreateLabel("", 160, 165, 50, 40)
While 1
 = MouseGetPos()
 = PixelGetColor(,)
sleep(100)
GuiCtrlSetBkColor(-1, )
If  <>  Then
GUICtrlSetData(,)
endif
If  <>  then
GUICtrlSetData(, )
GUICtrlSetData(, )
GUICtrlSetData(, &"x"&)
endif
if _ispressed("7A") Then
ExitLoop
endIF
Wend
EndFunc

Func GetColorSP()
 = GuiCtrlCreateLabel("", 160, 260, 50, 40)
While 1
 = MouseGetPos()
 = PixelGetColor(,)
sleep(100)
GuiCtrlSetBkColor(-1, )
If  <>  Then
GUICtrlSetData(,)
endif
If  <>  then
GUICtrlSetData(, )
GUICtrlSetData(, )
GUICtrlSetData(, &"x"&)
endif
if _ispressed("7A") Then
ExitLoop
endIF
Wend
EndFunc



Func Save()
IniWrite("botsnhacks.ini","Game", "Game_N",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "HP_x",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "HP_y",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "HP_K",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "HP_Color",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "MP_x",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "MP_y",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "MP_K",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "MP_Color",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "SP_x",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "SP_y",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "SP_K",GUICtrlRead())
IniWrite("botsnhacks.ini","AutoPot", "SP_Color",GUICtrlRead())
EndFunc



Func Load()
if (not FileExists("botsnhacks.ini")) Then
Return
EndIf

 = iniread("botsnhacks.ini", "Game", "Game_N", "")
 = IniRead("botsnhacks.ini", "AutoPot", "HP_Color", "")
 = IniRead("botsnhacks.ini", "AutoPot", "HP_x", "")
 = IniRead("botsnhacks.ini", "AutoPot", "HP_y", "")
 = IniRead("botsnhacks.ini", "AutoPot", "HP_K", "")
 = IniRead("botsnhacks.ini", "AutoPot", "MP_Color", "")
 = IniRead("botsnhacks.ini", "AutoPot", "MP_x", "")
 = IniRead("botsnhacks.ini", "AutoPot", "MP_y", "")
 = IniRead("botsnhacks.ini", "AutoPot", "MP_K", "")
 = IniRead("botsnhacks.ini", "AutoPot", "SP_Color", "")
 = IniRead("botsnhacks.ini", "AutoPot", "SP_x", "")
 = IniRead("botsnhacks.ini", "AutoPot", "SP_y", "")
 = IniRead("botsnhacks.ini", "AutoPot", "SP_K", "")

GUICtrlSetData(,)
GUICtrlSetData(,)
 = GuiCtrlCreateLabel("", 160, 70, 50, 40)
GuiCtrlSetBkColor(-1, )
GUICtrlSetData(,)
GUICtrlSetData(,)
GUICtrlSetData(,)
GUICtrlSetData(,&"x"&)
GUICtrlSetData(,)
 = GuiCtrlCreateLabel("", 160, 165, 50, 40)
GuiCtrlSetBkColor(-1, )
GUICtrlSetData(,)
GUICtrlSetData(,)
GUICtrlSetData(,)
GUICtrlSetData(,&"x"&)
GUICtrlSetData(,)
 = GuiCtrlCreateLabel("", 160, 260, 50, 40)
GuiCtrlSetBkColor(-1, )
GUICtrlSetData(,)
GUICtrlSetData(,)
GUICtrlSetData(,)
GUICtrlSetData(,&"x"&)
HP_endisable()
EndFunc


Func Start()

 = iniread("botsnhacks.ini", "Game", "Game_N", "")
 = IniRead("botsnhacks.ini", "AutoPot", "HP_Color", "")
 = IniRead("botsnhacks.ini", "AutoPot", "HP_x", "")
 = IniRead("botsnhacks.ini", "AutoPot", "HP_y", "")
 = IniRead("botsnhacks.ini", "AutoPot", "HP_K", "")
 = IniRead("botsnhacks.ini", "AutoPot", "MP_Color", "")
 = IniRead("botsnhacks.ini", "AutoPot", "MP_x", "")
 = IniRead("botsnhacks.ini", "AutoPot", "MP_y", "")
 = IniRead("botsnhacks.ini", "AutoPot", "MP_K", "")
 = IniRead("botsnhacks.ini", "AutoPot", "SP_Color", "")
 = IniRead("botsnhacks.ini", "AutoPot", "SP_x", "")
 = IniRead("botsnhacks.ini", "AutoPot", "SP_y", "")
 = IniRead("botsnhacks.ini", "AutoPot", "SP_K", "")
DllCall("user32.dll", "int", "AnimateWindow", "hwnd", , "int", 500, "long", 0x00090000)
WinActivate ()
WinWaitActive()
ControlEnable(,"","")

do
sleep(100)
If  = true then
 = PixelGetColor(, )
If  =  Then
 = 0
Else
 = 0
send()
EndIf
EndIf

If  = true Then
 = PixelGetColor(, )
If  =  Then
 = 0
Else
 = 0
Send()
EndIf
EndIF

If  = true Then
 = PixelGetColor(, )
If  =  Then
 = 0
Else
 = 0
Send()
EndIf
EndIf

until _ispressed("7A")

EndFunc


;Main Run
Load()
While 1

 = GUIGetMsg()
Switch 
Case 
Exit
Case 
call("GetColorHP")
Case 
call("GetColorMP")
Case 
call("GetColorSP")
Case 
Endisable()
Start()
Endisable()
Case 
Save()
EndSwitch
WEnd
<=========Script Ends Here =============>


I also create a file name BOTSnHACKS.ini where all the value that was entered and saved in AutoPOTS v1.0 GUI are stored.. The main program will read from this BOTSnHACKS.ini to get the value needed for program execution..

See Below

[Game]
Game_N= Cabal

[AutoPot]
HP_color=12788500
HP_x=119
HP_y=50
HP_K={-}
MP_color=5737171
MP_x=90 MP_y=356
MP_K=
SP_color=16037638
SP_x=79
SP_y=483
SP_K=
Rest_K={Home}
Rest_Delay=


______________

copy and paste :D
08/11/2008 18:34 cloudleon#64
can u guys upload the file again? especially for auto hunt, i need it :), if already got plz tell me which one, and what pic that i need to take? plz guide me because the pic that he upload has been remove, about the your auto pot script dimabuwang, i copy and paste it and its detect 45 error, whats wrong?
08/18/2008 06:18 stinger0320#65
HI.. Does it still work?
in CabalPH... This is a bot you will make right? so does it still need some GG bypass or something?
08/20/2008 05:29 scieman#66
it works.. all u need is a GG bypass... :(
08/20/2008 06:57 cloudleon#67
can anyone help me how to do it?? i want to do for private server
08/27/2008 16:22 hugioioio#68
who can send my, maked auto bot for hunt on my inbox [Only registered and activated users can see links. Click Here To Register...] pls
09/02/2008 03:00 spin_roan#69
@DIMABUWAG
You found me Dude!:)

Theres another way on making a Bot which is by reading memory data.. Pixelsearch function is the easiest on making a BOT but reading memory value using AUTOIT is the coolest.. I'll try to post a working Autopots script using this function, of course it will be released first in my blog.. [Only registered and activated users can see links. Click Here To Register...]
09/02/2008 10:48 kikoman123a#70
thanks man....
but I QUIT CABAL!!
09/02/2008 13:48 december12#71
i have a working autopots....

it's just a 5 line of codes...

lol.. it's easy...

not that so complicated like in the bots and hacks...
09/19/2008 05:44 superid#72
hey dizzydbd, can you upload the screen shot again? thanks in advance
09/29/2008 04:14 jcpisayan#73
Quote:
Originally Posted by december12 View Post
i have a working autopots....

it's just a 5 line of codes...

lol.. it's easy...

not that so complicated like in the bots and hacks...
hello everybody.. to those who know how to make one, can u share?? or teach us about how to make one.. because the picture files on the first post arent there any more... the links are broken...haiiiiiiiiii... please? thanks^_^:o
09/30/2008 13:48 hacker02#74
Hey Mr. Dizzy...I'm an IT student but there are some things u said i can't understand....
can u please put a screen shot on the step ur doing??? so that we can understand it well...
10/16/2008 00:04 Morpheus0282#75
can this program be used to make a bot for talisman online?