Bigrob55
Joined: 24 Sep 2007
Posts: 37
|
 Posted: Sat Nov 24, 2007 11:58 am Post subject: L337 Speak - A Ventrilo Client Side Program |
 |
|
L337 Speak - A Ventrilo Client Side Program v4.3
 UPDATED AS OF 11/17/2008
Hey All, This is my Very first time posting a script that ive made using AutoHotkey.
So please feel free to add some Pointers or tips, it would be great to here any ideas from some of the pros on this forum. 
About The Script:
This is simply a Client Side Program that i use on my Ventrilo Server.
It can be used my Admins and regular Ventrilo users alike.
Features:
- Press Cntrl+F1 To View a menu of the Hotkeys
- Kick Target* (With A preset reason)
- Global Mute Target*
- Ban Target* (With A Preset reason)
- Page Target*
- Copy Users Comment To Your Clipboard
- Paste Clipboard Content Your Comment
- Mute Ventrilo Sound
- Enable And Disable L337 Speak Hotkeys
*What i mean by target is, which user your mouse is over.
---------------------------------------------------------------------------------
The primary reason i made this, was for when my clan played CS alot and we would have scrims and invite ringers to use our ventrilo server. Well sometimes, those ringers can get pretty annoying. So this script was made for a fast way to mute, kick, or ban an annoying ringer.
After i started work on it, i just added a few helpful things such as copy & paste comments with the press of a key. And The Page Fuction was something that is not needed, but its fun to use if needed. 
.
So with that said, its a pretty solid script, but im sure there is plenty more that can be added to it.
| Code: | #SingleInstance ignore
#NoEnv
SendMode Input
DetectHiddenWindows, on
Menu, tray, NoStandard
Menu, tray, add, Show Menu, MENU
menu, tray, add, Enable
Menu, tray, add, Reload, RELOAD
Menu, tray, add ; Creates a separator line.
Menu, tray, add, Close L337Speak, END
;++++++++++++++++++++Vent Loader+++++++++++++++++++++++++++
IfWinNotExist, Ventrilo
{
run ventrilo.exe, C:\Program Files\Ventrilo\
WinWait, Ventrilo
loop 2
{
PostMessage, 0x201, , , Button4, Ventrilo, C&onnect
Sleep 50
PostMessage, 0x202, , , Button4, Ventrilo, C&onnect
}
;++++++++++++++++++++/Vent Loader+++++++++++++++++++++++++++
;++++++++++++++++++++Close MOTD++++++++++++++++++++++++++++
WinWait, Message of the Day
WinActivate
Send {space}
;++++++++++++++++++++/Close MOTD++++++++++++++++++++++++++++
}
else
URLDownloadToFile http://www.geocities.com/bigrob552002/sg/splash.jpg, splash.jpg
SplashImage, %A_WorkingDir%/splash.jpg, b ,
Sleep 1170
SplashImage, Off
FileDelete, splash.jpg
TrayTip,L337Speak,Cntrl+F1 to view Menu
;Kick Target
^1::
IfWinActive, Ventrilo
{
MouseClick Right
Send s k {enter}GTFO{enter}
KeyWait 1
}
return
;Mute Target
^2::
IfWinActive, Ventrilo
{
MouseClick Right
Send s{up}{enter}
KeyWait 2
}
return
;Ban Target
^3::
IfWinActive, Ventrilo
{
MouseClick Right
Send s{up 2}{enter}STFO{enter}
KeyWait 3
}
return
;Page Target
^4::
IfWinActive, Ventrilo
{
MouseClick Right
Send u s
}
return
;Paste Comment
^+v::
PostMessage, 0x201, , , Button5, Ventrilo, Comment
PostMessage, 0x202, , , Button5, Ventrilo, Comment
PostMessage, 0x302, , , Edit1, Comment,
sleep 50
PostMessage, 0x201, , , Button2, Comment,
sleep 50
PostMessage, 0x202, , , Button2, Comment,
KeyWait V
TrayTip,L337Speak - Pasted,%clipboard%
return
;Mute Sound
^+m::
PostMessage, 0x201, , , Button11, Ventrilo, &Mute Sound
Sleep 50
PostMessage, 0x202, , , Button11, Ventrilo, &Mute Sound
KeyWait M
return
;Copy Comment
^+c::
IfWinActive, Ventrilo
{
MouseClick Right
Send {down 3}{right}{up 3}{enter}
KeyWait C
TrayTip,L337Speak - Copied,%clipboard%
}
return
;++++++++++++++++++++Enable-Disable Fuction++++++++++++++++++++++++++++
Enable:
if NewName <> Disable
{
OldName = Enable
NewName = Disable
Suspend, Off
TrayTip,L337Speak,Enabled
}
else
{
OldName = Disable
NewName = Enable
Suspend, On
TrayTip,L337Speak,Disabled
}
menu, tray, rename, %OldName%, %NewName%
return
^down::
Suspend, On
TrayTip,L337Speak,Disabled
if NewName = Disable
{
OldName = Disable
NewName = Enable
menu, tray, rename, %OldName%, %NewName%
}
else
{
}
return
^up::
Suspend, Off
TrayTip,L337Speak,Enabled
if NewName = Enable
{
OldName = Enable
NewName = Disable
menu, tray, rename, %OldName%, %NewName%
}
else
{
}
return
;++++++++++++++++++++/ Enable-Disable Fuction++++++++++++++++++++++++++++
;Exit
^esc::
END:
exitapp
^F5::
RELOAD:
reload
;////////////////////////////////////////////
RemoveTrayTip:
SetTimer, RemoveTrayTip, Off
TrayTip
return
^F1::
MENU:
GoSub, RemoveTrayTip
;TOAST UP!
SysGet, Workspace, MonitorWorkArea
Gui, -Caption +ToolWindow +LastFound +AlwaysOnTop +Border
Gui, Color, 000080
Gui, Font, s10 cwhite bold
Gui, Add, Text, gFade,L337Speak v4.3
Gui, Font, norm
Gui, Font, s10 cwhite
Gui, Add, Text, gFade,Place Your Mouse Over The Target`n Hold CTRL and Press:
Gui, Font, s8 cgray
Gui, Add, Text, gFade,1 = Kick Target (GTFO)`n2 = Global Mute Target`n3 = Ban Target (STFO)`n4 = Page Spam`n`nShift+C = Copy User's Comment`nShift+V = Paste To Comment`nShift+M = Mute Sound`n`nUp Arrow = Enable Program`nDn Arrow = Disable Program`n`nF1 = Menu`nF5 = Reload`nEsc = Exit
Gui, Font, s7 cwhite underline
Gui, Add, Text, gFade,Created By: Bigrob
Gui, Show, Hide
GUI_ID := WinExist()
WinGetPos, GUIX, GUIY, GUIWidth, GUIHeight, ahk_id %GUI_ID%
NewX := WorkSpaceRight-GUIWidth-5
NewY := WorkspaceBottom-GUIHeight-5
Gui, Show, Hide x%NewX% y%NewY%
DllCall("AnimateWindow","UInt",GUI_ID,"Int",500,"UInt","0x00040008")
return
;TOAST DOWN!
Fade:
DllCall("AnimateWindow","UInt",GUI_ID,"Int",1000,"UInt","0x90000") ; Fade out when clicked
return |
_________________
Bigrob
L337 Speak - A Ventrilo Client Side program
Winamp Sound Changer - Change Audio Output on the Fly!
Last edited by Bigrob55 on Mon Nov 17, 2008 7:58 pm; edited 3 times in total |
|
FAQ
Search
Memberlist
Register
Profile
Log in to check your private messages
Log in
Unless otherwise noted, all code is untested.
