Quote:
Originally Posted by elco2100
Then you shut post it here there are users ho ask for it.:rolleyes:
|
;************************************************* ****************************
;* This program is free software: you can redistribute it and/or modify *
;* it under the terms of the GNU General Public License as published by *
;* the Free Software Foundation, either version 3 of the License, or *
;* (at your option) any later version. *
;* *
;* This program is distributed in the hope that it will be useful, *
;* but WITHOUT ANY WARRANTY; without even the implied warranty of *
;* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the *
;* GNU General Public License for more details. *
;* *
;* You should have received a copy of the GNU General Public License *
;* along with this program. If not, see <http://www.gnu.org/licenses/>. *
;************************************************* ****************************
;************************************************* ****************************
;* AFK Skill Trainer Bot for 9Dragons *
;* Author:
[Only registered and activated users can see links. Click Here To Register...] *
;************************************************* ****************************
#include <GUIConstants.au3>
;************************************************* ****************************
;* Setup some keybindings for operating the trainer. *
;************************************************* ****************************
HotKeySet( "{ESC}", "_EXIT"); Shutdown the Script.
HotKeySet( "{F11}", "_START");Start botting, WOHOOO!!!!
HotKeySet( "^{F11}", "_PAUSE");"Pause" the execution, in fact the script keeps running in the loop without actually doing anything
HotKeySet( "{F10}", "_NEXT");Select next skill
;************************************************* ****************************
;* Define Constants used with the skill array. *
;************************************************* ****************************
Global Const $_NAME = 0
Global Const $_KEY = 1
Global Const $_DELAY = 2
Global Const $_VECOST = 3
Global $activeSkill = 0;set the default active skill.
Global $ve = 770; Edit this to set up how much VE your character has, or how much you want to use before meditating.
;************************************************* ****************************
;* Define skills. *
;************************************************* ****************************
Global $skill[10][4];Setup an array of 10 skills. That should be enough since you cant have more of them on the bar ingame.
$skill[0][$_NAME] = "Demonic Healing of Blood The Sky" ; This is what will be shown in the toolwindow
$skill[0][$_KEY] = 7 ; Which key do you have this skill on?
$skill[0][$_DELAY] = 5000 ; How long should we wait before "pressing" the key again?
$skill[0][$_VECOST] = 12 ; How much VE does this skill cost?
$skill[1][$_NAME] = "Demonic Spirit of Madness"
$skill[1][$_KEY] = 8
$skill[1][$_DELAY] = 5000
$skill[1][$_VECOST] = 20
Dim $iArraySize = 2;Set the array size, for our next skill function.
Dim $hWnd, $hlSkill, $hlVE;Define our window and control handlers
Dim $pause = 0;Initialize the pause
;************************************************* ****************************
;* Setup "easy" cell creation within window controls *
;************************************************* ****************************
Opt("GUICoordMode",2)
;************************************************* ****************************
;* Crude way of making the bot stop its skill mashing. I just couldnt think *
;* of a better way at the moment. *
;************************************************* ****************************
Func _PAUSE()
$pause = 1 - $pause
if $pause Then
GUICtrlSetColor($hlVE, 0xFF0000)
Else
GUICtrlSetColor($hlVE, 0x00FF00)
EndIf
EndFunc
;************************************************* ****************************
;* Start botting. *
;************************************************* ****************************
Func _START()
GUICtrlSetColor($hlVE, 0x00FF00)
While 1
$curVE = $ve
Do; Lets repeat the skillmashing as long as we have VE for it.
if $pause = 0 Then
Send($skill[$activeSkill][$_KEY])
Sleep ($skill[$activeSkill][$_DELAY])
$curVE -= $skill[$activeSkill][$_VECOST]
GUICtrlSetData($hlVE, $curVE)
EndIf
Until $curVE < $skill[$activeSkill][$_VECOST]
; Time to meditate.
Send("{p}")
Sleep (30000)
WEnd
EndFunc
;************************************************* ****************************
;* Exit the trainer. *
;************************************************* ****************************
Func _EXIT()
Exit 0
EndFunc
;************************************************* ****************************
;* Switch to the next skill in the list *
;************************************************* ****************************
Func _NEXT()
$activeSkill += 1;
$activeSkill = Mod($activeSkill, $iArraySize)
GUICtrlSetData($hlSkill, $skill[$activeSkill][$_NAME])
EndFunc
;************************************************* ****************************
;* Our Main function, where all the non-data initialization will take place. *
;* Here we create the the toolwindow and fill it with initial data. *
;************************************************* ****************************
Func _MAIN()
$hWnd = GUICreate("9Dragons Skill Trainer", 250, 30, 750, 15, -1, BitOR($WS_EX_TOPMOST, $WS_EX_TOOLWINDOW))
$hlSkill = GUICtrlCreateLabel($skill[$activeSkill][$_NAME], 10, 10, 200)
$hlVE = GUICtrlCreateLabel($ve, 0, -1, 30)
GUISetState()
Do
Until GUIGetMsg() = $GUI_EVENT_CLOSE
EndFunc
_MAIN()