All pastes #361906 Raw Edit

Mine

public text v1 · immutable
·published 2007-02-18 12:16 UTC
rendered paste body
; run the script, and then click in the teamspeak window anywhere on the player list
; to disable it, click anywhere outside of the teamspeak window
; pressing CTRL+BREAK might also work

while 1
	
	sleep ( 100 )
		
	WinWaitActive ( "TeamSpeak 2" )
	
	send ( "{home}" )
	
	
	
	
	
	$text = WinGetText ( "TeamSpeak 2" )
	$text = StringMid($text,1,StringInStr($text,"["))
	
	while (StringInStr($text,"AFK - ")==0)
	
	
		$catest = WinGetText ( "TeamSpeak 2" )
		$catest = StringMid($catest,1,StringInStr($catest,"["))
		if ( StringInStr($catest,"GF - Vio Geraci")<>0 ) Then
			if ( StringInStr($catest,"Channel Admin")<>0 ) Then
				;nothing
				Else
				send ( "!ph" )
				send ( "{home}" )
			EndIf
		
		Else
			if ( StringInStr($catest,"Channel Admin")<>0 ) Then
				send ( "!ph" )
				send ( "{home}" )
			EndIf
		EndIf

		send ( "{down}" )
	
		$text = WinGetText ( "TeamSpeak 2" )
		$text = StringMid($text,1,StringInStr($text,"["))
	
	

	WEnd
	
	
	
WEnd