Register for your free account! | Forgot your password?

Go Back   elitepvpers > General Gaming > General Gaming Discussion
You last visited: Today at 00:09

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

 

[AutoIt] Two Accounts, One Computer Melee / Parry Macro

Reply
 
Old   #1
 
elite*gold: 0
Join Date: Jan 2008
Posts: 113
Received Thanks: 56
[AutoIt] Two Accounts, One Computer Melee / Parry Macro

Instructions:
ESC Key - Terminates Macro
Pause Key - Pauses Macro
Accounts Need to be ran in windowed mode.

Parrying Account should be logged in, with Shield and Weapon equipped and unsheathed. You will need to have rest assigned to the 0 hot key on the hot bar. If your going to be leveling Polearm, I suggest you find a corner to back into or it will not work. Character should be in Mouse look mode before you alt tab to the Attacking character.

Attacking Account should be logged in and have No weapon attached. Weapons must be in Inventory. You will need 4 weapons total. Character must be focused and in Mouse Look Mode before the macro initiates.

Attacker Hotkeys
1-4 - Weapons
0 - Rest

Defender Hotkeys
0 - Rest

After you answer the questions, you will have 10 seconds to set up the windows. Make sure you alt tab between the two windows to ensure they are setup correct.

Magic / Parry
Code:
#cs ----------------------------------------------------------------------------
   Script by: Eiles


   Script requires two Accounts running on same computer in window mode.
   4 Individual Staffs should be placed in Hotbar 1 - 4 on the Attacking Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer.
   4 Individual Shields should be placed in Hotbar 1 - 4 on the Parrying Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer

   Begin the script with Attacking account unequiped and Focused in FPS mode.
   Make sure the Parrying account has only the sword equiped. The shields should be unequiped and in your inventory.
   Parrying Account should be in FPS mode and in the background upon Scrip activation.

   Script begins 10 seconds after you answer the questions, so you should have enough time to ensure Accounts are setup properly and alt-tabing between each other fluidly.

#ce-------------------------------------------------------



Dim $a, $b, $c, $d, $e
Dim $Weapon
Global $Paused
$b = InputBox( "Question", "How many times would you like to Cast?", "40" )
$c = InputBox( "Question", "How long would you like to rest? (1 sec = 1000)", "120000" )
$d = InputBox( "Question", " What Hotkey is your spell on?", "5" )
$e = InputBox( "Question", "What is the cast time of the spell? (1 sec = 1000)", "2000" )
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$Weapon = 1
$Shield = 1
$a = 0
Sleep ( 10000 )

while 1
   sleep ( 100 )
      Call ("EquipAttack")
      sleep ( 500 )
      Call ("CombatModeA")
      sleep ( 500 )
      Call ("EquipDefense")
      sleep ( 500 )
      Call ("CombatModeD")
      sleep ( 500 )
      Call("Attack")
      sleep ( 500 )
      Call ("Rest")
WEnd

Func EquipAttack()
   Sleep(1000)
   ;send ("{1} - {4}") ; Weapon
   Send("{" & $Weapon & "}")
   $Weapon = $Weapon + 1
   If $Weapon = 5 Then
      $Weapon = 1
   EndIf
   Sleep(1000)
EndFunc

Func CombatModeA()
   Sleep (100 )
   Send ( "r" )
   Sleep ( 1000 )
   Send ( $d )
   Sleep ( 200 )
EndFunc

Func EquipDefense()
   send ( "!{TAB}" )
   sleep ( 500 )
   ;send ("{1} - {4}") ; Shield
   Send("{" & $Shield & "}")
   $Shield = $Shield + 1
   If $Shield = 5 Then
      $Shield = 1
   EndIf
   Sleep(1000)
EndFunc

Func CombatModeD()
   Sleep (100 )
   Send ( "r" )
   Sleep ( 1000 )
   send ( "!{TAB}" )
EndFunc

Func Attack()
   Do
      sleep ( 100 )
      Mouseclick ( "Left" )
      sleep ( $e - 1000 )
      send ( "!{TAB}" )
      sleep ( 100 )
      Send ( "{V DOWN}" )
      sleep ( 1000 )
      Send ( "{V UP}" )
      sleep ( 500 )
      send ( "!{TAB}" )
      sleep ( 1000 )
      $a = $a + 1
   Until $a = $b
   $a = 0
EndFunc

Func Rest()
   Send ( "R" )
   Sleep ( 1500 )
   Send ( "0" )
   Sleep ( 1500 )
   Mouseclick ( "Left" )
   Sleep ( 1500 )
   send ( "!{TAB}" )
   Sleep ( 1500 )
   Send ( "R" )
   Sleep ( 1500 )
   Send ( "0" )
   Sleep ( 1500 )
   Mouseclick ( "Left" )
   Sleep ( 1500 )
   send ( "!{TAB}" )
   Sleep ( $c )
   Send ( "w" )
   Sleep ( 1500 )
   send ( "!{TAB}" )
   Sleep ( 1500 )
   Send ( "w" )
   Sleep ( 2000 )
   send ( "!{TAB}" )
   Sleep ( 1500 )
EndFunc

Func TogglePause()
   $Paused = Not $Paused
   While $Paused
      Sleep(100)
   WEnd
EndFunc   ;==>TogglePause

Func Terminate( )
    Exit 0
EndFunc
Melee / Parry

Code:
#cs ----------------------------------------------------------------------------
   Script by: Eiles


   Script requires two Accounts running on same computer in window mode.
   4 Individual Weapons should be placed in Hotbar 1 - 4 on the Attacking Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer.
   4 Individual Shields should be placed in Hotbar 1 - 4 on the Parrying Account. These will be cycled through to provide a greater amount of durability and keep you skilling up longer

   Begin the script with Attacking account unequiped and Focused in FPS mode.
   Make sure the Parrying account has only the sword equiped. The shields should be unequiped and in your inventory.
   Parrying Account should be in FPS mode and in the background upon Scrip activation.

   Script begins 10 seconds after you answer the questions, so you should have enough time to ensure Accounts are setup properly and alt-tabing between each other fluidly.
   
   Pause Key Pauses the Script
   Esc Key Ends the Script

#ce-------------------------------------------------------

Dim $a, $b, $c
Dim $Weapon
Global $Paused
$b = InputBox( "Question", "How many times would you like to swing? (1 sec = 1000)", "25" )
$c = InputBox( "Question", "How long would you like to rest? (1 sec = 1000)", "155000")
HotKeySet("{PAUSE}", "TogglePause")
HotKeySet("{ESC}", "Terminate")
$Weapon = 1
$Shield = 1
$a = 0
Sleep ( 10000 )

while 1
   sleep ( 100 )
      Call ("EquipAttack")
      sleep ( 500 )
      Call ("CombatMode")
      sleep ( 500 )
      Call ("EquipDefense")
      sleep ( 500 )
      Call ("CombatModeD")
      sleep ( 500 )
      Call("Attack")
      sleep ( 500 )
      Call ("Rest")
WEnd

Func EquipAttack()
   Sleep(1000)
   ;send ("{1} - {4}") ; Weapon
   Send("{" & $Weapon & "}")
   $Weapon = $Weapon + 1
   If $Weapon = 5 Then
      $Weapon = 1
   EndIf
   Sleep(1000)
EndFunc   ;==>Equip

Func CombatMode()
   Sleep (100 )
   Send ( "r" )
   Sleep ( 1000 )
EndFunc

Func EquipDefense()
   send ( "!{TAB}" )
   sleep ( 500 )
   ;send ("{1} - {4}") ; Shield
   Send("{" & $Shield & "}")
   $Shield = $Shield + 1
   If $Shield = 5 Then
      $Shield = 1
   EndIf
   Sleep(1000)
EndFunc

Func CombatModeD()
   Sleep (100 )
   Send ( "r" )
   Sleep ( 1000 )
   send ( "!{TAB}" )
EndFunc

Func Attack()
   Do
      sleep ( 100 )
      Mouseclick ( "Left" )
      sleep ( 100 )
      send ( "!{TAB}" )
      sleep ( 100 )
      Send ( "{V DOWN}" )
      sleep ( 1000 )
      Send ( "{V UP}" )
      sleep ( 500 )
      send ( "!{TAB}" )
      sleep ( 1000 )
      $a = $a + 1
   Until $a = $b
   $a = 0
EndFunc

Func Rest()
   Send ( "R" )
   Sleep ( 1500 )
   Send ( "0" )
   Sleep ( 1500 )
   Mouseclick ( "Left" )
   Sleep ( 1500 )
   send ( "!{TAB}" )
   Sleep ( 1500 )
   Send ( "R" )
   Sleep ( 1500 )
   Send ( "0" )
   Sleep ( 1500 )
   Mouseclick ( "Left" )
   Sleep ( 1500 )
   send ( "!{TAB}" )
   Sleep ( $c )
   Send ( "w" )
   Sleep ( 1500 )
   send ( "!{TAB}" )
   Sleep ( 1500 )
   Send ( "w" )
   Sleep ( 2000 )
   send ( "!{TAB}" )
   Sleep ( 1500 )
EndFunc

Func TogglePause()
   $Paused = Not $Paused
   While $Paused
      Sleep(100)
   WEnd
EndFunc   ;==>TogglePause

Func Terminate( )
    Exit 0
EndFunc



Penakle is offline  
Old   #2
 
elite*gold: 0
Join Date: Dec 2005
Posts: 87
Received Thanks: 4
Doesnt work to me, its alt tabing and then it stops
i run 2x darkfall windowed screen, im at the attackers window he switches to the defender not sheathing sword nothing just alt tabing, any hint why that is so?


Edit:

Dunno how i fixed it, but its probably something with the windows 7 administration


Azereus is offline  
Old   #3
 
elite*gold: 0
Join Date: Apr 2010
Posts: 1
Received Thanks: 0
Quote:
Originally Posted by Azereus View Post
Doesnt work to me, its alt tabing and then it stops
i run 2x darkfall windowed screen, im at the attackers window he switches to the defender not sheathing sword nothing just alt tabing, any hint why that is so?


Edit:

Dunno how i fixed it, but its probably something with the windows 7 administration
If anyone knows how to fix this, let me know :P

For some reason i have the same problem with windows 7. If im on the desktop, it will alt tab into Darkfall but nothing will happen at all. No tabbing between the two clients, no clicking, nothing.
Striker009 is offline  
Old   #4
 
elite*gold: 0
Join Date: Apr 2010
Posts: 1
Received Thanks: 0
I can get the macro to run if I open both darkfall clients in admin mode, and open the script in admin mode.

The problem I'm experiencing is that after a few swings, the characters switch. So now the blocking character is attacking....

I have a feeling there is a problem with the way Alt+tab works in windows. Any chance we can get a revision, or suggestion?

Thanks!


Rails3 is offline  
Old   #5
 
elite*gold: 0
Join Date: Jun 2010
Posts: 1
Received Thanks: 0
How do you manage to macro two windows? How do you parry while hiting the same time?


Pegasu is offline  
Reply



« Previous Thread | Next Thread »

Similar Threads
[AutoIt] Melee macro
New melee macro which allows you to chose offense or defense. Borrowed some code (a lot of code) from Ices ...
22 Replies - General Gaming Discussion
Wenn der Computer heruntergefahren wird , soll etwas gemacht werden (AutoIT)
Ist es möglich ,dass das programm solange wartet bis der Benutzer den Pc herunterfährt . Gibt es für soetwas irgendwelche variablen ? Gibt es einen...
4 Replies - AutoIt
macro autoit
Hi. I'm french.Sorry for my bad english. My version of cabal is europea. I tried to make myself a macro but it is only 2 days that I practice...
10 Replies - Cabal Main - Discussions / Questions
2 accounts,2bots on the same computer
guys im question its if we bot in 2 accoutns in the same computer, probably we will get duplicate i.p i wanna ask if thats a problem if joymax will...
1 Replies - SRO Main - Discussions / Questions
Request for melee macro..
Is there or can one be made to auto-level on 2.0 as a melee class (warrior or trojan) ... Sorry I searched and couldn't find... + karma if you...
0 Replies - CO2 Main - Discussions / Questions



All times are GMT +1. The time now is 00:09.


Powered by vBulletin®
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc.

Support | Contact Us | FAQ | Advertising | Privacy Policy | Abuse
Copyright ©2017 elitepvpers All Rights Reserved.