Silkroad Online Forum

Quellcode

HotKeySet("^m","minimize_sro")
HotKeySet("^n","close")
HotKeySet("^h" , "usage")
TrayTip("SRO Minimizer", "Welcome to SRO Minimizer",2,1)
Sleep(2000)
usage()

While 1
	Sleep(10000)
WEnd

Func usage()
	TrayTip("SRO Minimizer", "Usage: " & Chr(13) & "Press STR + M(inimize) to minimize sro " & Chr(13) & "Press STR + N to close this Script" & Chr(13) & "Press STR + H(elp) for this usage tip", 3,1)
    Sleep(3000)
EndFunc
	
Func minimize_sro()
	
  If(WinExists("SRO_Client"))Then	
	  
 	 If( BitAnd( WinGetState("SRO_Client"), 16) )Then
       TrayTip("SRO Minimizer", "Already minimized..",1,1)
	 Else
	   WinSetState ( "SRO_Client", "", @SW_MINIMIZE )  
	   TrayTip("SRO Minimizer", "Succesfully minimized",1,1)
     EndIf
   
  Else
	 TrayTip("SRO Minimizer", "SRO_Client not found!",2,3)
 EndIf
 
EndFunc

Func close()
	
  TrayTip("SRO Minimizer", "Good Bye...",2,1)
  Sleep(2000)
  Exit
  
EndFunc