Locked
Home » Forums » Legacy & Archived » Archived Content » Darkfall Online » DFO - Premium - Discussions

2clients1computer pixel detection? : DFO - Premium - Discussions
Posted: January 17th, 2010
750xl
Total Posts:5 Joined:2009
Hello all

Firstly thanks for the site :D

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 :oops:
Posted: January 19th, 2010
logite
Total Posts:11 Joined:2007
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
750xl
Total Posts:5 Joined:2009
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
750xl
Total Posts:5 Joined:2009
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
logite
Total Posts:11 Joined:2007
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
750xl
Total Posts:5 Joined:2009
Many thanks for the reply.

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

Thanks!
Ready to join the community? Click here and see all of the benefits!
blue large dotWho is online
Users browsing this forum: No registered users and 5 guests
Locked
‹ Return to "DFO - Premium - Discussions"