Register for your free account! | Forgot your password?

Go Back   elitepvpers > General Gaming > General Gaming Discussion
You last visited: Today at 02:44

  • Please register to post and access all features, it's quick, easy and FREE!

Advertisement



[AutoIt] Cast / Rest multi weapon

Discussion on [AutoIt] Cast / Rest multi weapon within the General Gaming Discussion forum part of the General Gaming category.

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2008
Posts: 113
Received Thanks: 56
[AutoIt] Cast / Rest multi weapon

With this script u don't have to worry about ur staff durability just put 3 staffs on ur hotbar and u r done :P

Code:
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>



Opt('MustDeclareVars', 1)
HotKeySet("{ESC}", "Terminate")


Example()

Func Example()
Local $Button_1,$Button_2, $msg,$weapon,$count,$what,$rand,$weapon1,$weapon2, $weapon3,$missilekey,$rest,$missiletimes,$counter, $resttime,$firetime
GUICreate("O Baremenos Ver1.0",300,250,650,400) ; will create a dialog box that when displayed is centered

Opt("GUICoordMode", 6)
$Button_1 = GUICtrlCreateButton("Run", 10, 00, 100)
GUICtrlCreateLabel("YOUR WEAPON MUST BE ATTACHABLE",50, 30,80, 20) ; next line

$weapon1 = GUICtrlCreateInput("7", 90, 30,50, 20)
$weapon2 = GUICtrlCreateInput("8", 90, 50,50, 20)
$weapon3 = GUICtrlCreateInput("9", 90, 70,50, 20)
$missilekey = GUICtrlCreateInput("4", 90, 90,50, 20)
$missiletimes = GUICtrlCreateInput("10", 90, 110,50, 20)
$rest = GUICtrlCreateInput("1", 90, 130,50, 20)
$counter=GUICtrlCreateInput("3", 90, 150,50, 20)
$resttime=GUICtrlCreateInput("120", 110, 170,50, 20)
$firetime=GUICtrlCreateInput("18", 110, 190,50, 20)
GUICtrlCreateLabel("Weapon1:",10, 30,80, 20) ; next line
GUICtrlCreateLabel("Weapon2:",10, 50,80, 20) ; next line
GUICtrlCreateLabel("Weapon3:",10, 70,80, 20) ; next line
GUICtrlCreateLabel("Missile Key:",10, 90,80, 20) ; next line
GUICtrlCreateLabel("Missile Times:",10, 110,80, 20) ; next line
GUICtrlCreateLabel("Rest key:",10, 130,80, 20) ; next line
GUICtrlCreateLabel("Counter:",10, 150,80, 20) ; next line
GUICtrlCreateLabel("Rest Time in secs",10, 170,100, 20) ; next line
GUICtrlCreateLabel("Fire Time in secs",10, 190,100, 20) ; next line
GUICtrlCreateLabel("YOUR WEAPON MUST BE ATTACHABLE",50, 210,280, 20) ; next line
GUISetState() ; will display an dialog box with 2 button

; Run the GUI until the dialog is closed
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop

Case $msg = $Button_1
Sleep1(1000) ;1 sec
WinSetState("O Baremenos Ver1.0", "", @SW_HIDE)
Sleep1(1000) ;1 sec
ControlGetFocus("Darkfall Online")
sleep1(1000)
MouseClick("right")
Sleep1(1000) ;1 sec

$weapon = Guictrlread($weapon1)
while 1 = 1
for $count = 1 to Guictrlread($counter)
if $weapon = Guictrlread($weapon1) then
Send1(Guictrlread($weapon1))
elseif $weapon = Guictrlread($weapon2) then
Send1(Guictrlread($weapon2))
elseif $weapon = Guictrlread($weapon3) then
Send1(Guictrlread($weapon3))
endif

Sleep1(2000) ;1 sec
Send1("r")
Sleep1(2000) ;1 sec
send1(Guictrlread($missilekey))
Sleep1(1000) ;1 sec
for $count = 1 to Guictrlread($missiletimes)
MouseClick1("left")
Sleep1(Guictrlread($firetime)*1000) ;1 sec
next
Send1("r")
Sleep1(2000) ;1 sec
Send1(Guictrlread($rest))
Sleep1(2000) ;1 sec
MouseClick1("left")
Sleep1(Guictrlread($resttime)*1000) ;1 sec
Send1($weapon)
Sleep1(2000) ; 2 sec
Send1("w")
Sleep1(2000) ;1 sec
next
$weapon = $weapon + 1
if $weapon > Guictrlread($weapon3) then
$weapon = Guictrlread($weapon1)
endif
wend
EndFunc ;==>Example

EndSelect
WEnd



Func Send1($what)
; MsgBox(0, "", "Key = " & $what)
Send($what)
EndFunc

Func MouseClick1($what)
; MsgBox(0, "", "MouseClick = " & $what)
MouseClick($what)
EndFunc

Func Sleep1($what)
local $rand
SRandom ( @SEC )
$rand = Random(500, 1000, 1)
$what = $what + $rand
; MsgBox(0, "", "Sleep = " & ($what / 1000) & " seconds")
Sleep($what)
EndFunc
Func Terminate()
Exit 0
EndFunc
just put the weapons on the numbers that you want
-DON'T ATTACH ANY WEAPON-

THEN JUST PRESS RUN
IF YOU WANT TO STOP IT PRESS ESC
Penakle is offline  
Old 02/15/2010, 05:36   #2
 
elite*gold: 0
Join Date: Feb 2010
Posts: 1
Received Thanks: 0
hey does "counter" meen the loops? The amount of times the macro repeats itself/ or does this script run indefinately?
Daboom357 is offline  
Reply


Similar Threads Similar Threads
weapon changing script for autoit
08/17/2010 - Dragonica - 2 Replies
can somebody set up an example for it? :handsdown:
[Question]riBot second weapon buff cast.
04/30/2010 - Silkroad Online - 6 Replies
Where do i set up the second weapon? Im a wizard/bard need the glow thingy and the speed buff.
[D2NT] Multi Bot -> einer im Channel, Rest nicht.
04/24/2010 - Diablo 2 - 1 Replies
Hi Leute, hab folgendes Problemchen: Ich möchte mehrere Bots an einem Rechner laufen lassen. Jedoch soll nur einer in einen Baalrun channel gehn (mit .login/Gameansage usw.) und die andern sollen ganz normal ohne Channel laufen. Mehrere D2NT Manager sind anscheind nicht kompatibel, also muss ich eine Lösung finden einen Bot eine andre NTBot.ntj zu nutzen als die andern. Wie könnte ich das umsetzen? Mir fehlen die Ideen. Jemand ne Ahnung? regards.
[AutoIt] Resource Gathering Script w/ Rest
08/14/2009 - General Gaming Discussion - 0 Replies
; Simple Harvesting related AutoIt script by TeabagGus ; This script will equip a weapon first and then your harvesting tool. This makes sure you always have the tool equiped. ; It runs 2 loops of 50 attempts ; Rest is Slot 5 ; Tool is slot 3 ; Weapon is slot 0 Global $Paused HotKeySet("`", "TogglePause") HotKeySet("{DEL}", "Terminate") WinActivate ("Darkfall Online")
Have Weapon in Hands when mountet + cast
03/11/2007 - WoW Exploits, Hacks, Tools & Macros - 4 Replies
i found it yesterday if it posted before.. sry Weapon + Mountet Press Y and your Mount tata: http://img262.imageshack.us/img262/945/weaponwhen mountetyt2.png



All times are GMT +1. The time now is 02:44.


Powered by vBulletin®
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.
This site is protected by reCAPTCHA and the Google Privacy Policy and Terms of Service apply.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Terms of Service | Abuse
Copyright ©2024 elitepvpers All Rights Reserved.