Aion AutoIt Bot Beta [Open Source]

[D1no]

ich hab das problem das der zwar alles speichert wie es soll, cast etc, aber wenn ich die WP´s machen will, dann kommen da keine richtigen koordinaten raus, sondern nur 0 - 0 - 0 =/ und damit kann ich nix anfangen.

gespeichert wird es aber in der datei dann.

ich benutze übrigens gerade die verision AutoAion v0.91, mit der Aion version 1.5.0.11

wo muss ich die datei mit dem bot und der gespeicherten datei eigentlich haben? in dem Aion Ordner? auf dem desk? einfach unter C/ ?

weiß nicht ob es daran liegt, bitte um hilfe.

[Tonyblizza]

Also ich persöhnlich bleibe bei v 0.10.1 . ist die beste , buggyfrei und alles was man braucht !
nur wie gesagt nach absturz ein auto login wäre echt nice =/ liese sich da was machen?

[plany123]

frisch aus meiner schmiede! kleine vorschau auf die kommende Version!



hab atm mal den support für die alten versionen eingestellt damit ich mich ganz der neuen witmen kann
das neue kampf system wird euch gefallen!
btw ich werde es nicht einbauen das sich der bot anmeldet .. ich finde das es zu riskannt das jemand das dann als fishing tool benutzt und am acc daten ranzukommen ... sry ;(

[Deface911]

Ui das sieht ja viel versprechend aus echt nice plany freu schon drauf .... was mir aufgefallen ist was echt super wäre. Ein automatischer logout wenn der bot stirbt oder halt wieder an sein ort läuft wo man war nachdem man gestorben ist ..... ich trau mich oft nachts einfach nicht an zu machen weil ich eventuell gekillt werden von nem elyos oder sonstwas und dann in der stadt sonst wo gegen renne .... das wäre echt supi vieleicht nen hacken oder ne einstellung die man machen kann das wenn man stribt sich ausloggt oder der bot sich ausschaltet wäre echt top .

Ansonsten viel dank für die müsahmen stunden echt nice von dir

[Honola]

Ui sieht ja schon mal sehr gut aus,gogo haben will xD
So unterteilt sieht das schon wesentlich besser aus, echt nice ;-)

[plany123]

Originally Posted by Deface911

*viel text* automatischer logout *nochmehr text*

kommt aufjedenfall rein
( /quit ) ^^

[Markusschulter]

Originally Posted by plany123

frisch aus meiner schmiede! kleine vorschau auf die kommende Version!


hab atm mal den support für die alten versionen eingestellt damit ich mich ganz der neuen witmen kann
das neue kampf system wird euch gefallen!
btw ich werde es nicht einbauen das sich der bot anmeldet .. ich finde das es zu riskannt das jemand das dann als fishing tool benutzt und am acc daten ranzukommen ... sry ;(

Die Teile von plany sind einfach die besten!!!

Nur hab ich bei dem neuen Kampfsystem die Befürchtung das es vielleicht nicht ganz mit Nahkämpfern klappt ( vor allem Tanks! ) Du hast ja was von " bei diesen % macht er den und den skill....." angedeutet.

Bitte bedenke bei der Entwicklung das ein Templer z.b. mehrere Rotationen seiner Skills braucht bis der Mob endlich down ist...


Bei dem auto login kann ich dir nur zustimmen. Da würden sich sofort ein paar Spezis finden die versuchen damit an Accounts zu kommen.

Auto logout ist aber Pflicht!
Bin letztens glaub ich 7 oder 8 mal gestorben in einer Nacht.
Ich weiss nicht was schief lief ( hab ja geschlafen ) jedenfalls is der immer wieder an den Kampfplatz gerannt (Wiederbelebungsplatz ist gleich nebenan bei mir... ) und immer wieder abgekratzt.
Hat mich ein Vermögen gekostet.

Originally Posted by chefes78

use postcast as heal ... and precast as pull/buff macro

hab den busch mal durchkämmt ...

das hat sich ergeben...

Precast can now be use as pull spell (like Voke or Nuke etc )

it also calls Func waitForDist() before Precast() ... now you can set:

Min Distance: 5 ( 5m. Physical mele damage range)
Max Distance: 15 ( 15m for Voke / 25m for Mage spells? / or Buff )

it still works for e precast buff... it just get in range first...

if NO mob is in Max range the bot Tabs 15 times to see if you find
a closer mob inside Max range... if no mob found the bot moves
to next waypoint and searches for next mob in reach...
(if a mob is found out of max range and is the only one targetable
its gona head for that one )...

Tested and running for me ...

Aber warum funzt das Em Cast nicht mehr?!
Damit ist der Bot doch unbrauchbar. Das war genial das er sich bei einer bestimmten % Zahl nen Pot wirft, oder bei mir als Templer z.b. heilende Hand ( 100% hp skill ) zündet wenns mal knapp wird...

Ich hab reggen bei 60% eingestellt. Wenn er da mal Adds zieht, wirds einfach knapp. Da ist em cast ein must have.

[Calcifer]

Originally Posted by plany123

frisch aus meiner schmiede! kleine vorschau auf die kommende Version!

Wie sieht das dne aus mit dem Background mode ?
ist da schon was weiter ???

[plany123]

mach dir keine sorgen wegen melees meine quallitätssicherung beinhaltet auch ein 2 stunden text mit ein rouge und ein mage! ich werde es nicht rausschicken wolange ich nicht selber zurieden damit bin!

[Shauneh89]

Ive been looking through the coding, if you could intergrate a radar system into this then you make a gathering option, i.e. the waypointing system in the script is really nice, if u implamented that with the ability for the bot to have a radar then you could set up a gathering macro in game that will select the items you want.

Its just a thought, my coding ability is minimal I understand the memory reading section, just not how to make it detect gathering nodes as u cannot 'tab' to them.

For example Titanium is type 40, using the memory read function you could detect type 40 and collect them allong the way.

/Select Titanium
/Skill Extract Vitality
/Delay 7

And then set macro to a key. These radar programs have opensource code so aslong as someone can turn that into the AutoIT script, and write a detection Func, then use the newly coded run to function and the macro, it should be fine.

Any comments?

[plany123]

Originally Posted by Shauneh89

Ive been looking through the coding, if you could intergrate a radar system into this then you make a gathering option, i.e. the waypointing system in the script is really nice, if u implamented that with the ability for the bot to have a radar then you could set up a gathering macro in game that will select the items you want.

Its just a thought, my coding ability is minimal I understand the memory reading section, just not how to make it detect gathering nodes as u cannot 'tab' to them.

For example Titanium is type 40, using the memory read function you could detect type 40 and collect them allong the way.

/Select Titanium
/Skill Extract Vitality
/Delay 7

And then set macro to a key. These radar programs have opensource code so aslong as someone can turn that into the AutoIT script, and write a detection Func, then use the newly coded run to function and the macro, it should be fine.

Any comments?

oke.... ^^
yes i build a gathering function in one of the future versions .. but now is the work on the next release version on the top!

atm i destroy my brain with the fuking! combatengine ... but step by step was better ^^

[chefes78]

Originally Posted by Tonyblizza

Also ich persöhnlich bleibe bei v 0.10.1 . ist die beste , buggyfrei und alles was man braucht !
nur wie gesagt nach absturz ein auto login wäre echt nice =/ liese sich da was machen?

zu 90% fertig... errorhandling fehlt teils noch und ist nicht
so schön strukt. ... its all yours...
(dir fehlt eigentlich nur noch eine auto run vers. von AutoAion..)

#include <ButtonConstants.au3>
#include <GuiStatusBar.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <Inet.au3>
#include <IE.au3>
#Include <Misc.au3>
#include <Timers.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>
#include <StaticConstants.au3>




global $Progress1
global $Form1_1
Global $ChildGui
Global $time
Global $label11


Global $label11
Global $probarx
Global $probary
Global	$windowname



Call ("Start")

Func Start()
$ini = @ScriptDir & "\Data\AION.ini"


$setup = IniRead($ini,"Section","setup","AION.ini is missing")
	If $setup = "1" Then call("loader")
	If $setup = "0" Then Setup()

EndFunc


Func Loader()

$ini = @ScriptDir & "\Data\AION.ini"
$aionloc = IniRead($ini,"Section","AIONLocation","AION.ini is missing")
Run("$aionloc")
Sleep(30000)       ;sleeps 30 sec to give the game time to load...
GetColorLogIn()
EndFunc

Func GetColorLogIn()
	WinActivate("AION Client")
	sleep (500)
	$ini = @ScriptDir & "\Data\AION.ini"
	$mx = IniRead($ini,"Section","MXL","AION.ini is missing")
	$my = IniRead($ini,"Section","MYL","AION.ini is missing")
	$color = IniRead($ini,"Section","MLC","AION.ini is missing")
	sleep(500)
	$NewColor =  PixelGetColor( $mx , $my)
		if 	$NewColor = ($color) Then
			Login()
		Else
			Sleep (5000)
			call ("GetColorLogIn")
		Endif
	EndFunc


Func LogIn()
$ini = @ScriptDir & "\Data\AION.ini"
sleep(300)
$name = IniRead($ini,"Section","Name","AION.ini is missing")
sleep(300)
Send ($name)
sleep(300)
Send ("{TAB}",0)
sleep(300)
$pwr = IniRead($ini,"Section","pw","AION.ini is missing")
sleep(300)
send ($pwr)
Send ("{ENTER}")
Sleep(1000)
Send ("{ENTER}")
Sleep(1000)
Send ("{ENTER}")
Sleep(1000)
call("GetColor1")
EndFunc



Func GetColor1()
	WinActivate("AION Client")
	WinWaitActive("AION Client")
	sleep (500)
	$ini = @ScriptDir & "\Data\AION.ini"
	$mmx = IniRead($ini,"Section","MXS","AION.ini is missing")
	$mmy = IniRead($ini,"Section","MYS","AION.ini is missing")
	$cmx = IniRead($ini,"Section","MXC","AION.ini is missing")
	$cmy = IniRead($ini,"Section","MYC","AION.ini is missing")
	$mcolor = IniRead($ini,"Section","MCS","AION.ini is missing")
	sleep(500)
	$NewColor =  PixelGetColor($mmx,$mmy)
		sleep (300)
		if 	$NewColor = ($mcolor) Then
			MouseClick("left", $cmx , $cmy ,1,0)
			Sleep(1000)
			Send("{ENTER}")
			Sleep(12000)
			Call("runbot")
		Else
			Sleep (2000)
			call ("GetColor1")
		Endif
	EndFunc


Func runbot()
	Run ("Bot.exe" , @ScriptDir & "\" )
;~ 	Run ( "filename" [, "workingdir" [, show_flag[, opt_flag ]]] )

EndFunc


Func Setup()

#Region GUI & Includes
#include <ButtonConstants.au3>
#include <GuiStatusBar.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <String.au3>
#include <Array.au3>
#include <Inet.au3>
#include <IE.au3>
#Include <Misc.au3>
#include <GUIConstantsEx.au3>
#include <GUIConstants.au3>

$ini = @ScriptDir & "\Data\AION.ini"
$dll = DllOpen("user32.dll")

;~ $t = Iniread($ini, "Section","Aionlocation","$AIONLocation")
;~ msgbox(0,"kk" , $t)

$AIONLocation = Inputbox("AION Istanllation folder","Copy this Target from your Game Shortcut like!!:" & @CR &  @CR &"D:\Programme\NCsoft\Launcher\NCLauncher.exe /LaunchGame=AionEU : " , "" , "" , 550,150)
$errorl = @error
Select
	Case $errorl = 0
		IniWrite($ini, "Section","Aionlocation",$AIONLocation)
	Case $errorl = 1
		Exit
EndSelect
msgbox(0, "just read it all...","Place your Bot into the Script Directory and name it  Bot.exe ... "& @CR & "Bot.exe will be autoloaded once ingame..." & @CR & "dont forget to add all files need for the bot into script directory")


$login = Inputbox("AION Login Name","AION Login Name: ")
$errorl = @error
Select
	Case $errorl = 0
		IniWrite($ini, "Section","Name",$login)
	Case $errorl = 1
		Exit
EndSelect

sleep(300)

$pw = Inputbox("AION password","AION password: ")
$errorp = @error
Select
	Case $errorp = 0
		IniWrite($ini, "Section","pw",$pw)
	Case $errorp = 1
		Exit
EndSelect



$Form1_1 = GUICreate("Help pics where to click ", 634, 448, 192, 124)
;~ $Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
;~ $StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
;~ _GUICtrlStatusBar_SetSimple($StatusBar1)
;~ _GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 683, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$Button2 = GUICtrlCreateButton("Click here for next steps / instructions ...",4,402, 625,43)
GUICtrlSetFont(-1, 14, 800, 0, "Viner Hand ITC")
$URLLINK=GUICtrlCreateCombo("http://i50.photobucket.com/albums/f309/Engelsfeuer/ulli-1.jpg",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Pic 1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Pic 2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Pic 3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)

$InetOne.navigate( @ScriptDir & "\Data\pic1.jpg")
$InetTree.navigate( @ScriptDir & "\Data\Data\pic2.jpg")
$InetTwo.navigate( @ScriptDir & "\Data\pic3.jpg")
GUICtrlSetState($Seite1,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)


While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
		ExitLoop
        Case $Button1
            $InetOne.navigate(GUICtrlRead($URLLINK))
		Case $Button2
		ExitLoop
    EndSwitch
WEnd




$msg = MsgBox(4,"Step 1: On Account Login Screen", ">- On LogIn Screen look for a spot with a steady color" & @CR &  _
"    (Outside the animated background pic and no active buttons)" _
& @CR & @CR & "-> Click OK once the Game is loaded on Login Screen" & @CR & _
"     (after OK you autom. TAB into Game)" & @CR _
& @CR &  "-> After you found the steady colored spot left-click it.." _
& @CR &  @CR &  @CR & @CR &"  ???  Are you ready with the Game loadd on Login Screen  ???")
Select
	Case $msg = 6


	Case $msg < 6
		Exit
	Case $msg > 6
		Exit
EndSelect

WinActivate("AION Client")
  Sleep ( 250 )
While 1
    If _IsPressed("01", $dll) Then
  $MousePos = MouseGetPos()
;~         MsgBox(0,"_IsPressed", "Mouse Button Pressed" & @CR & "X=" & $MousePos[0] & @CR & "Y=" & $MousePos[1])
		$colorlogin = PixelGetColor($MousePos[0],$MousePos[1])
		IniWrite($ini, "Section","MXL",$MousePos[0])
		IniWrite($ini, "Section","MYL",$MousePos[1])
		IniWrite($ini, "Section","MLC",$colorlogin)
;~ 		MsgBox(0,"_IsPressed", "color of pixel" & @CR & $colorlogin)
        ExitLoop
    EndIf
WEnd



        MsgBox(0,"Log into Chara...", "Now Get ready for the next step..." & @CR _
		& @CR & "-> Log into your account until you are" & @CR _
		& "     on the chara selection screen")

sleep(300)


WinActivate("AION Installation")



		sleep(300)



$Form1_1 = GUICreate("Help pics where to click ", 634, 448, 192, 124)
;~ $Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
;~ $StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
;~ _GUICtrlStatusBar_SetSimple($StatusBar1)
;~ _GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 683, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$Button2 = GUICtrlCreateButton("Click here for next steps / instructions ...",4,402, 625,43)
GUICtrlSetFont(-1, 14, 800, 0, "Viner Hand ITC")
$URLLINK=GUICtrlCreateCombo("http://i50.photobucket.com/albums/f309/Engelsfeuer/ulli-1.jpg",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Pic 1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Pic 2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Pic 3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$InetOne.navigate( @ScriptDir & "\Data\pic1.jpg")
$InetTree.navigate( @ScriptDir & "\Data\pic3.jpg")
$InetTwo.navigate( @ScriptDir & "\Data\pic2.jpg")
GUICtrlSetState($Seite2,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)
#EndRegion GUI

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
		ExitLoop
        Case $Button1
            $InetOne.navigate(GUICtrlRead($URLLINK))
		Case $Button2
		ExitLoop
    EndSwitch
WEnd








		$msg = MsgBox(4,"Step 2: Start Button", "Click on the INACTIVE Start button at the bottom (green part)" & @CR _
		& @CR & "(select an empty chara slot to get an inactive Start button)" & @CR _
		& " "& @CR & @CR & @CR &  _
		"-> Click YES if you are ready to" & @CR &  _
		"   mark the Start button")
		Select
			Case $msg = 6


			Case $msg < 6
				Exit
			Case $msg > 6
				Exit
		EndSelect

WinActivate("AION Client")
  Sleep ( 250 )
While 1
    If _IsPressed("01", $dll) Then
  $StartPos = MouseGetPos()
;~         MsgBox(0,"_IsPressed", "Mouse Button Pressed" & @CR & "X=" & $MousePos[0] & @CR & "Y=" & $MousePos[1])
		$colorStart = PixelGetColor($StartPos[0],$StartPos[1])
		IniWrite($ini, "Section","MXS",$StartPos[0])
		IniWrite($ini, "Section","MYS",$StartPos[1])
		IniWrite($ini, "Section","MCS",$colorStart)
;~ 		MsgBox(0,"_IsPressed", "color of pixel" & @CR & $colorlogin)
        ExitLoop
    EndIf
WEnd







		Sleep(300)

$Form1_1 = GUICreate("Help pics where to click ", 634, 448, 192, 124)
;~ $Progress1 = GUICtrlCreateProgress(8, 400, 614, 25)
;~ $StatusBar1 = _GUICtrlStatusBar_Create($Form1_1)
;~ _GUICtrlStatusBar_SetSimple($StatusBar1)
;~ _GUICtrlStatusBar_SetText($StatusBar1, "Url of Website")
$Tab1 = GUICtrlCreateTab(0, 0, 683, 401)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH+$GUI_DOCKHEIGHT)
$Button1 = GUICtrlCreateButton("",999, 999, 0, 0, BitOR($BS_DEFPUSHBUTTON,$WS_GROUP))
$Button2 = GUICtrlCreateButton("Click here for next steps / instructions ...",4,402, 625,43)
GUICtrlSetFont(-1, 14, 800, 0, "Viner Hand ITC")
$URLLINK=GUICtrlCreateCombo("http://i50.photobucket.com/albums/f309/Engelsfeuer/ulli-1.jpg",130,0,500)
$Seite1 = GUICtrlCreateTabItem("Pic 1")
$InetOne = ObjCreate("Shell.Explorer.2")
$InetOne_ctrl = GUICtrlCreateObj($InetOne, 4, 25, 626, 372)
$Seite2 = GUICtrlCreateTabItem("Pic 2")
$InetTwo = ObjCreate("Shell.Explorer.2")
$Obj1_ctrl = GUICtrlCreateObj($InetTwo, 4, 25, 626, 372)
$Seite3 = GUICtrlCreateTabItem("Pic 3")
$InetTree = ObjCreate("Shell.Explorer.2")
$Obj2_ctrl = GUICtrlCreateObj($InetTree, 4, 25, 626, 372)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
$InetOne.navigate( @ScriptDir & "\Data\pic1.jpg")
$InetTree.navigate( @ScriptDir & "\Data\pic3.jpg")
$InetTwo.navigate( @ScriptDir & "\Data\pic2.jpg")
GUICtrlSetState($Seite3,$GUI_SHOW)
GUICtrlSetState($URLLINK,$GUI_SHOW)
#EndRegion GUI

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
		ExitLoop
        Case $Button1
            $InetOne.navigate(GUICtrlRead($URLLINK))
		Case $Button2
		ExitLoop
    EndSwitch
WEnd

WinActivate("Help pics where to click ")




		$msg = MsgBox(4,"Step 3: Chara Spot", "Click where you pick your chara..." & @CR _
		& @CR & "-> Choose Slot 1 (Just click" & @CR _
		& "       in the middle of the Box)"& @CR & @CR & @CR &  _
		"-> Click YES if you are ready to" & @CR &  _
		"   mark the spot")
		Select
			Case $msg = 6


			Case $msg < 6
				Exit
			Case $msg > 6
				Exit
		EndSelect

WinActivate("AION Client")
  Sleep ( 300 )
While 1
    If _IsPressed("01", $dll) Then
  $CharaPos = MouseGetPos()
;~         MsgBox(0,"_IsPressed", "Mouse Button Pressed" & @CR & "X=" & $MousePos[0] & @CR & "Y=" & $MousePos[1])
		$colorchara = PixelGetColor($CharaPos[0],$CharaPos[1])
		IniWrite($ini, "Section","MXC",$CharaPos[0])
		IniWrite($ini, "Section","MYC",$CharaPos[1])
		IniWrite($ini, "Section","MCC",$colorchara)
;~ 		MsgBox(0,"_IsPressed", "color of pixel" & @CR & $colorlogin)
        ExitLoop
    EndIf
WEnd


MsgBox(0,"Finished...", "Successfully initialized AION Game Launcher" & @CR & @CR & _
                        "Quit the Game and try AION Game Launcher.exe" & @CR & _
						"(if it doesn't input password after 30sec redo Setup.exe)")


IniWrite($ini, "Section","setup","1")
DllClose($dll)
Exit
EndFunc

[Shauneh89]

plany123 does your new version you are working on use Koda?
or is it still the AutoIT text based GUI editor?

Thanks

Shaun

[kknb]

jep please insert the koda file to the archive if a file exists. gui programming without koda is very crappy^^

[Therawarp]

ohne koda zu arbeiten wäre schön aufwÄndig xDD