Auto Fire & Shields : Star Trek Online Submission

Posted: April 29th, 2010

Quote

Total Posts:5 Joined:2010

Keys Binds

Spacebar: Toggles on and off the auto fire and auto shield balance.
End: Pauses the script to allow for typing in chat.

Simple script that helps a lot. Please post any questions.

Code: Select all

#cs -----------
	--afkemoo--
#ce -----------

Global $run
Global $auto

While 1
	
	If WinActive("Star Trek Online", "") Then
		HotKeySet("{SPACE}", "snd") ;spacebar will now fire all energy weapons AND balance your shields onPRESS
		HotKeySet("{END}", "pause") ;if you need to talk in chat just hit the "end" key
	EndIf
	
		sleep(2000)
		
WEnd

func snd()
	
	HotKeySet("{SPACE}")
	HotKeySet("{END}", "pause")
	
		$auto = 1
	
	While $auto = 1
		
		HotKeySet("{SPACE}")
		Send("{SPACE}") ;attack button
		HotKeySet("{SPACE}", "off")
		Sleep(100)
		Send("{DEL}") ;shield button
		sleep(1000)
	
	WEnd
	
	HotKeySet("{SPACE}", "snd") 
	
EndFunc

Func pause() ;dont worry about any of this - its needed to pause.
	HotKeySet("{SPACE}")	
$run = NOT $run
	If $run Then 
	Else
	EndIf
While $run
	ToolTip("Script Paused.", 0, 0)
	sleep(500)
WEnd 
	ToolTip("", 0, 0)
EndFunc

func off()
	$auto = 0
EndFunc

You do not have the required permissions to view the files attached to this post.

Posted: April 29th, 2010