; autoit version: 3.0
; Author: Hieitk(epvp.de)
; Date: April 21, 2007
; Bot for trojans and warriors
; For Conquer Online 2
;INCLUDE
#include <GuiConstants.au3>
;INITIAL VARS
$mhbcset=0; monster hp bar color set
$minset=0;min coords set
$maxset=0;min coords set
$potset=0;pot coords and color set
$run=0
$hw=18;
;HOTKEYS
HotKeySet("+q","setmonsterhpbarcolor");
HotKeySet("+w","setmin");
HotKeySet("+e","setmax");
HotKeySet("+r","setpot");
HotKeySet("{HOME}","start");
HotKeySet("{END}","stop");
HotKeySet("+{ESC}","quit");
;INITIAL MESSAGE
$fsaved=IniRead ( "settings\settings.ini", "GENERAL", "firsttime", "" )
if $fsaved=6 Then
MsgBox(0,"Welcome","Thank you for trying KIRA bot." )
IniWrite("settings\settings.ini", "GENERAL", "firsttime", "7")
EndIf
GUICreate("KIRA bot", 460, 300, -1, -1)
GUICtrlCreateLabel("hieitk",412,1); << FTW
;COLOR GROUP
GUICtrlCreateGroup("Monster's HP bar", 10, 10, 210, 50)
;monster hp
GuiCtrlCreateLabel("Color:", 30, 30)
$monsterhpbar=IniRead ( "settings\settings.ini", "MONSTER", "monsterhpbar", "" )
$actualcolor=GuiCtrlCreateLabel(""&$mons terhpbar& "", 62, 30,83,20,0x1000)
$monsterhpbarbutton=GuiCtrlCreateButton("Chan ge", 150, 30, 60, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;AREA GROUP
GUICtrlCreateGroup("Screen area (coordinates)", 10, 70, 210, 70)
;min
GuiCtrlCreateLabel("Min:", 30, 90)
$minx=IniRead ( "settings\settings.ini", "ATTACKINGAREA", "minx", "" )
$miny=IniRead ( "settings\settings.ini", "ATTACKINGAREA", "miny", "" )
$actualminx=GuiCtrlCreateLabel(""&$mi nx& "", 60, 90,40,20,0x1000)
$actualminy=GuiCtrlCreateLabel(""&$mi ny& "", 105, 90,40,20,0x1000)
$minbutton=GuiCtrlCreateButton("Change", 150, 90, 60, 20)
;max
GuiCtrlCreateLabel("Max:", 30, 115)
$maxx=IniRead ( "settings\settings.ini", "ATTACKINGAREA", "maxx", "" )
$maxy=IniRead ( "settings\settings.ini", "ATTACKINGAREA", "maxy", "" )
$actualmaxx=GuiCtrlCreateLabel(""&$ma xx& "", 60, 115,40,20,0x1000)
$actualmaxy=GuiCtrlCreateLabel(""&$ma xy& "", 105, 115,40,20,0x1000)
$maxbutton=GuiCtrlCreateButton("Change", 150, 115, 60, 20)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;MONSTER HIGHT GROUP
GUICtrlCreateGroup("Monster height", 10, 150, 210, 50)
GuiCtrlCreateLabel("Height:", 30, 172)
$savedheight=IniRead ( "settings\settings.ini", "MONSTER", "height", "" )
$actualheight=GuiCtrlCreateLabel(""&$sav edheight& "", 70, 170,60,20,0x1000)
$height = GuiCtrlCreateCombo("small", 140, 169, 70, 21)
GuiCtrlSetData($height, "medium|large")
;create $h
If $savedheight="small" Then
$h=25;
ElseIf $savedheight="medium" Then
$h=35;
Else
$h=45;
EndIf
GUICtrlCreateGroup("", -99, -99, 1, 1)
;POT GROUP
GUICtrlCreateGroup("Pot settings", 230, 10, 210, 130)
;on off
GuiCtrlCreateLabel("Potter:", 240, 30)
$potset=IniRead ( "settings\settings.ini", "POTTER", "state", "" )
$potteron=GuiCtrlCreateRadio("On", 300, 28, 40)
$potteroff=GuiCtrlCreateRadio("Off", 350, 28, 40)
if $potset=1 Then
GuiCtrlSetState($potteron, $GUI_CHECKED)
$pot=1
Else
GuiCtrlSetState($potteroff, $GUI_CHECKED)
$pot=0
EndIf
;coords
GuiCtrlCreateLabel("Coord:", 250, 60)
$potx=IniRead ( "settings\settings.ini", "POTTER", "x", "" )
$poty=IniRead ( "settings\settings.ini", "POTTER", "y", "" )
$potcolor=IniRead ( "settings\settings.ini", "POTTER", "color", "" )
$actualpotx=GuiCtrlCreateLabel(""&$po tx& "", 282, 58,40,20,0x1000)
$actualpoty=GuiCtrlCreateLabel(""&$po ty& "", 325, 58,40,20,0x1000)
GuiCtrlCreateLabel("Color:", 250, 82)
$actualpotcolor=GuiCtrlCreateLabel(""&$p otcolor& "", 282, 80,83,20,0x1000)
$potbutton=GuiCtrlCreateButton("Change", 370, 58, 60, 42)
;key
GuiCtrlCreateLabel("Key:", 250, 110)
$savedpotkey=IniRead ( "settings\settings.ini", "POTTER", "key", "" )
$actualpotkey=GuiCtrlCreateLabel(""&$sav edpotkey& "", 282, 109,35,20,0x1000)
$potkey = GuiCtrlCreateCombo("F1", 320, 108, 50, 21)
GuiCtrlSetData($potkey, "F2|F3|F4|F5|F6|F7|F8|F9|F10")
GUICtrlCreateGroup("", -99, -99, 1, 1)
;XP Skill GROUP
GUICtrlCreateGroup("XP skill button", 10, 210, 210, 80)
;on off
GuiCtrlCreateLabel("XP skill:", 30, 237)
$xpset=IniRead ( "settings\settings.ini", "XPSKILL", "state", "" )
$xpskillon=GuiCtrlCreateRadio("On", 80, 235, 40)
$xpskilloff=GuiCtrlCreateRadio("Off", 130, 235, 40)
if $xpset=1 Then
GuiCtrlSetState($xpskillon, $GUI_CHECKED)
$xp=1
Else
GuiCtrlSetState($xpskilloff, $GUI_CHECKED)
$xp=0
EndIf
;key
GuiCtrlCreateLabel("Key:", 31, 260)
$savedxpkey=IniRead ( "settings\settings.ini", "XPSKILL", "key", "" )
$actualxpkey=GuiCtrlCreateLabel(""&$save dxpkey& "", 62, 260,35,20,0x1000)
$xpkey = GuiCtrlCreateCombo("F1", 100, 259, 50, 21)
GuiCtrlSetData($xpkey, "F2|F3|F4|F5|F6|F7|F8|F9|F10")
GUICtrlCreateGroup("", -99, -99, 1, 1)
;RANDOM ON OFF
GUICtrlCreateGroup("If no monsters", 230, 150, 210, 50)
$randomset=IniRead ( "settings\settings.ini", "RANDOM", "state", "" )
$randomon=GuiCtrlCreateRadio("Move random", 245, 170, 90)
$randomoff=GuiCtrlCreateRadio("Wait respwan", 345, 170, 90)
if $randomset=1 Then
GuiCtrlSetState($randomon, $GUI_CHECKED)
$random=1
Else
GuiCtrlSetState($randomoff, $GUI_CHECKED)
$random=0
EndIf
GUICtrlCreateGroup("", -99, -99, 1, 1)
;KEYS GROUP
GUICtrlCreateGroup("Keys", 230, 210, 210, 80)
GuiCtrlCreateLabel("<HOME>: start", 245, 230)
GuiCtrlCreateLabel("<END>: stop", 245, 250)
GuiCtrlCreateLabel("<SHIFT>:+<ESC>: exit", 245, 270)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;******
; FUNCTIONS
func quit()
sleep(150)
Exit
EndFunc
Func setmonsterhpbarcolor();
if $mhbcset=1 Then
$coords=MouseGetPos();get coords
$monsterhpbar=PixelGetColor($coords[0],$coords[1]);get color
IniWrite("settings\settings.ini", "MONSTER", "monsterhpbar", $monsterhpbar)
GuiCtrlSetData($actualcolor, $monsterhpbar);change color displayed
GuiCtrlSetData($monsterhpbarbutton, "Change");change button back
$mhbcset=0
MsgBox(0,"Set","New color saved")
EndIf
EndFunc
Func setmin();
if $minset=1 Then
$coords=MouseGetPos();obtiene coordenadas
IniWrite("settings\settings.ini", "ATTACKINGAREA", "minx", $coords[0])
IniWrite("settings\settings.ini", "ATTACKINGAREA", "miny", $coords[1])
GuiCtrlSetData($actualminx, $coords[0]);cambia minx en pantalla
GuiCtrlSetData($actualminy, $coords[1]);cambia miny en pantalla
GuiCtrlSetData($minbutton, "Change");cambia el boton de vuelta
$minset=0
MsgBox(0,"Set","New coords saved")
EndIf
EndFunc
Func setmax();
if $maxset=1 Then
$coords=MouseGetPos();obtiene coordenadas
IniWrite("settings\settings.ini", "ATTACKINGAREA", "maxx", $coords[0])
IniWrite("settings\settings.ini", "ATTACKINGAREA", "maxy", $coords[1])
GuiCtrlSetData($actualmaxx, $coords[0]);cambia maxx en pantalla
GuiCtrlSetData($actualmaxy, $coords[1]);cambia maxy en pantalla
GuiCtrlSetData($maxbutton, "Change");cambia el boton de vuelta
$maxset=0
MsgBox(0,"Set","New coords saved")
EndIf
EndFunc
Func setpot();
if $potset=1 Then
$potcoords=MouseGetPos();obtiene coordenadas difieren del resto pues se usan despues
$potcolor=PixelGetColor($potcoords[0],$potcoords[1]);obtiene color en dichas coordenadas
$potx=$potcoords[0];asigna var con nombres en documento ini
$poty=$potcoords[1];
IniWrite("settings\settings.ini", "POTTER", "x", $potcoords[0])
IniWrite("settings\settings.ini", "POTTER", "y", $potcoords[1])
IniWrite("settings\settings.ini", "POTTER", "color", $potcolor)
GuiCtrlSetData($actualpotx, $potcoords[0]);cambia potx en pantalla
GuiCtrlSetData($actualpoty, $potcoords[1]);cambia poty en pantalla
GuiCtrlSetData($actualpotcolor, $potcolor);cambia potcolor en pantalla
GuiCtrlSetData($potbutton, "Change");cambia el boton de vuelta
$potset=0
MsgBox(0,"Set","New coords and color saved")
EndIf
EndFunc
Func go();MAIN FUNCTION
;min
$minx1=$minx+($maxx-$minx)/3;
$minx2=$minx+($maxx-$minx)/6;
$minx3=$minx;
$miny1=$miny+($maxy-$miny)/3;
$miny2=$miny+($maxy-$miny)/6;
$miny3=$miny;
;max
$maxx1=$minx+2*($maxx-$minx)/3;
$maxx2=$minx+5*($maxx-$minx)/6;
$maxx3=$maxx;
$maxy1=$miny+2*($maxy-$miny)/3;
$maxy2=$miny+5*($maxy-$miny)/6;
$maxy3=$maxy;
;center
$centerx=$minx+($maxx-$minx)/2;
$centery=$miny+($maxy-$miny)/2;
While $run=1;
if WinActive ("[Conquer2.0]")=1 Then
;XPSKILL ONLY ONCE EVERY CHECK
If $xp=1 Then
send("{"&$savedxpkey&"}")
EndIf
;XPSKILL ONLY ONCE EVERY CHECK
;HERE IT GOES
$coord=PixelSearch($minx1,$miny1,&# 036;maxx1,$maxy1,"" & $monsterhpbar & "", 15, 1 )
If @error <> 1 then ;area1
$coordx=$coord[0]+$hw;
$coordy=$coord[1]+$h;
Mouseclick("left",$coordx, $coordy,1,1);
Sleep(1500);
;POTTER IN EVERY IF
if $pot=1 Then
$checkpotcolor=PixelGetColor($potx,$ ;poty)
If $checkpotcolor <> $potcolor Then
Send("{"&$savedpotkey&"}")
EndIf
EndIf
;POTTER IN EVERY IF
Else; not found in area1 then goes to area2
$coord=PixelSearch($minx2,$miny2,&# 036;maxx2,$maxy2,"" & $monsterhpbar & "", 15, 1 )
If @error <> 1 then ;area2
$coordx=$coord[0]+$hw;
$coordy=$coord[1]+$h;
Mouseclick("left",$coordx, $coordy,1,1);
Sleep(1500);
;POTTER IN EVERY IF
if $pot=1 Then
$checkpotcolor=PixelGetColor($potx,$ ;poty)
If $checkpotcolor <> $potcolor Then
Send("{"&$savedpotkey&"}")
EndIf
EndIf
;POTTER IN EVERY IF
Else;not found in area2 then goes to area3
$coord=PixelSearch($minx3,$miny3,&# 036;maxx3,$maxy3,"" & $monsterhpbar & "", 15, 1 )
If @error <> 1 then ;area3
$coordx=$coord[0]+$hw;
$coordy=$coord[1]+$h;
Mouseclick("left",$coordx, $coordy,1,1);
Sleep(1500);
;POTTER IN EVERY IF
if $pot=1 Then
$checkpotcolor=PixelGetColor($potx,$ ;poty)
If $checkpotcolor <> $potcolor Then
Send("{"&$savedpotkey&"}")
EndIf
EndIf
;POTTER IN EVERY IF
Else ;if not in area 3 then
;<<<<<<****check random
if $random=0 Then
sleep(150)
MouseMove($centerx,$centery)
sleep(1000)
Else
$randomx=Random($minx2,$maxx2,1)
$randomy=Random($miny2,$maxy2,1)
MouseClick("left",$randomx,$randomy,1,1)
MouseMove($centerx,$centery)
sleep(1000)
EndIf
;<<<<<<<**
EndIf ;area3
EndIf ;area2
EndIf ;area1
;UP TO HERE
EndIf; winactive
WEnd;
EndFunc
Func start()
sleep(500)
$run=1;
sleep(500)
go()
EndFunc
Func stop();
sleep(500)
$run=0;
sleep(500)
go()
EndFunc
; MAIN
GuiSetState()
;buttons and settings
While 1
$msg = GuiGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
Case $msg = $monsterhpbarbutton
GuiCtrlSetData($monsterhpbarbutton, "...")
$set=MsgBox(1,"Set","Press SHIFT+Q over the red Hp bar")
If $set=1 Then
$mhbcset=1
Else
GuiCtrlSetData($monsterhpbarbutton, "Change")
$mhbcset=0
EndIf
Case $msg = $minbutton
GuiCtrlSetData($minbutton, "...")
$set=MsgBox(1,"Set","Press SHIFT+W over the min coords")
If $set=1 Then
$minset=1
Else
GuiCtrlSetData($minbutton, "Change")
$minset=0
EndIf
Case $msg = $maxbutton
GuiCtrlSetData($maxbutton, "...")
$set=MsgBox(1,"Set","Press SHIFT+E over the max coords")
If $set=1 Then
$maxset=1
Else
GuiCtrlSetData($maxbutton, "Change")
$maxset=0
EndIf
Case $msg = $height
$textheight=GUICtrlRead($height)
IniWrite("settings\settings.ini", "MONSTER", "height", $textheight)
If $textheight="small" Then
GuiCtrlSetData($actualheight, "small")
$h=30;
ElseIf $textheight="medium" Then
GuiCtrlSetData($actualheight, "medium")
$h=40;
Else
GuiCtrlSetData($actualheight, "large")
$h=55;
EndIf
Case $msg = $potteron And BitAND(GUICtrlRead($potteron), $GUI_CHECKED) = $GUI_CHECKED
$pot=1
IniWrite("settings\settings.ini", "POTTER", "state", "1")
Case $msg = $potteroff And BitAND(GUICtrlRead($potteroff), $GUI_CHECKED) = $GUI_CHECKED
$pot=0
IniWrite("settings\settings.ini", "POTTER", "state", "0")
Case $msg = $potbutton
GuiCtrlSetData($potbutton, "...")
$set=MsgBox(1,"Set","Press SHIFT+R over the min hp level")
If $set=1 Then
$potset=1
Else
GuiCtrlSetData($potbutton, "Change")
$potset=0
EndIf
Case $msg = $potkey
$textpotkey=GUICtrlRead($potkey)
IniWrite("settings\settings.ini", "POTTER", "key", $textpotkey)
GuiCtrlSetData($actualpotkey,$textpotkey )
$savedpotkey=$textpotkey
Case $msg = $xpskillon And BitAND(GUICtrlRead($xpskillon), $GUI_CHECKED) = $GUI_CHECKED
$xp=1
IniWrite("settings\settings.ini", "XPSKILL", "state", "1")
Case $msg = $xpskilloff And BitAND(GUICtrlRead($xpskilloff), $GUI_CHECKED) = $GUI_CHECKED
$xp=0
IniWrite("settings\settings.ini", "XPSKILL", "state", "0")
Case $msg = $xpkey
$textxpkey=GUICtrlRead($xpkey)
IniWrite("settings\settings.ini", "XPSKILL", "key", $textxpkey)
GuiCtrlSetData($actualxpkey,$textxpkey)
$savedxpkey=$textxpkey
Case $msg = $randomon And BitAND(GUICtrlRead($randomon), $GUI_CHECKED) = $GUI_CHECKED
$random=1
IniWrite("settings\settings.ini", "RANDOM", "state", "1")
Case $msg = $randomoff And BitAND(GUICtrlRead($randomoff), $GUI_CHECKED) = $GUI_CHECKED
$random=0
IniWrite("settings\settings.ini", "RANDOM", "state", "0")
EndSelect
WEnd
Exit
<hr>Append on Jun 9 2007, 02:27<hr> the site where i found this id this one..
