taultunleashed

Posted: **January 17th, 2010, 10:42 am**

Hello all

Firstly thanks for the site

I'm trying to level up weapons using 2 clients on on 1 computer at the moment. I currently have a script that hits on #1 account, quickly alt tabs to #2 account, parrys then so on, eventually resting.

This is a great macro however every so often it 'misses' an alt tab and my alt ends up hitting me.

I've had a look around here but couldn't really find any other 2clients1computer melee macros.

Sorry if I've missed anything and keep up the work

Posted: **January 19th, 2010, 2:17 am**

I use autoit and instead of using alt-tab I do this:

Put this at top of macro:
WinSetTitle ( "Darkfall Online", "","DFO1" )
WinSetTitle ( "Darkfall Online", "","DFO2" )

Then for whichever window you want to switch to use:
WinActivate("DFO1")
or
WinActivate("DFO2")

Posted: **January 19th, 2010, 8:35 am**

Many thanks for the reply

I'm a bit unsure on how to implement what you suggested into the macro as I have very limited knowledge as I sent you a PM.

Thanks once again

Posted: **January 20th, 2010, 5:00 am**

Hello.

I know this is a little cheeky but would anyone be able to implement the suggestion in post #2 to the following script that I'm using (highly recommended, btw)

Code: Register to unlock hidden link

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

while 1
	sleep ( 100 )
		Call ("Equip")
		sleep ( 1000 )
		Call ("CombatMode")
		sleep ( 1000 )
		Call("Attack")
		sleep ( 1000 )
		Call ("Rest")
WEnd

Func Equip()
	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 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 ( "R" )
	Sleep ( 1500 )
	send ( "!{TAB}" )
	Sleep ( 1500 )
EndFunc

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

Func Terminate( )
    Exit 0
EndFunc

Thanks

Posted: **January 20th, 2010, 10:00 am**

Here's the one I have in full

Code: Register to unlock hidden link

WinSetTitle ( "Darkfall Online", "","DFO1" )
WinSetTitle ( "Darkfall Online", "","DFO2" ) 
Global $wepkey = "1";
Global $staffkey = "2";

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("{Home}", "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
   Send($staffkey);
   Sleep(1000)
   Send($wepkey);
   Sleep(1000)
EndFunc   ;==>Equip

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

Func EquipDefense()
   WinActivate("DFO2")
   sleep ( 500 )
   ;send ("{1} - {4}") ; Shield
   ;Send("{" & $Shield & "}")
   ;$Shield = $Shield + 1
   ;If $Shield = 5 Then
   ;   $Shield = 10
  ; EndIf
   Send($staffkey);
   Sleep(1000)
   Send($wepkey);
   Sleep(1000)
EndFunc

Func CombatModeD()
   Sleep (100 )
   Send ( "r" )
   Sleep ( 1000 )
   WinActivate("DFO1")
EndFunc

Func Attack()
   Do
      sleep ( 100 )
      Mouseclick ( "Left" )
      sleep ( 100 )
      WinActivate("DFO2")
      sleep ( 100 )
      Send ( "{V DOWN}" )
      sleep ( 1000 )
      Send ( "{V UP}" )
      sleep ( 500 )
      WinActivate("DFO1")
      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 )
   WinActivate("DFO2")
   Sleep ( 1500 )
   Send ( "R" )
   Sleep ( 1500 )
   Send ( "0" )
   Sleep ( 1500 )
   Mouseclick ( "Left" )
   Sleep ( 1500 )
   WinActivate("DFO1")
   Sleep ( $c )
   Send ( "w" )
   Sleep ( 1500 )
   WinActivate("DFO2")
   Sleep ( 1500 )
   Send ( "w" )
   Sleep ( 2000 )
   WinActivate("DFO1")
   Sleep ( 1500 )
EndFunc

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

Func Terminate( )
    Exit 0
EndFunc

[/code]

Posted: **January 20th, 2010, 2:13 pm**

Many thanks for the reply.

Think I've managed to put them lines of code into the macro so hopefully it'll work!

Thanks!

taultunleashed

2clients1computer pixel detection?

2clients1computer pixel detection?