[TUT REQUEST]Screamer admin tool

[Tic Tac 2]

You know what would be REALLY funny?
A screamer command using "/scream "

the command would basically make a flashing picture of a horrifying monsters face appear over picScreen along with a really loud scream(ignores if sound is set to off). this could be used to entertain yourself when someone comes in saying

> MOD PLZ. NO? WELL GAME IS BAD ANYWAYS!!!!

PLEASE this would be hilarious.

If you still dont know what a screamer is then heres a few examples

http://www.youtube.com/watch?v=469zNXTCHdk
this is totally real man

http://www.youtube.com/watch?v=19mEZ6fjMO0
this is how i imagine people would react

http://www.youtube.com/watch?v=7iJ9Bj0E50E

website with alot of screamers on: [www.winterrowd.com](http://www.winterrowd.com)

EDIT: Move this to sub-forum Source

[Growlith1223]

This does sound ducking hilarious xD
I also want this!!!! :D

[Wilfre]

hmmm… I'm gonna figure that out, it looks easy.

[Riftguy]

Was bored soo i made it for ya :)

First off in the client source add:

>! ```
Private Sub HandleScreamer()
frmMain.picScreamer.Visible = True
frmMain.picScreen.Visible = False
PlaySound Screamer
End Sub
```
And
```
HandleDataSub(SScream) = GetAddress(AddressOf HandleScreamer)
```To modhandledata.
>! Next add:
```
    Case "/scream"
                    If GetPlayerAccess(MyIndex) < ADMIN_MONITOR Then GoTo Continue
>!                     If UBound(Command) < 1 Then
                        AddText "Usage: /scream (name)", AlertColor
                        GoTo Continue
                    End If
>!                     If IsNumeric(Command(1)) Then
                        AddText "Usage: /scream (name)", AlertColor
                        GoTo Continue
                    End If
>!                     SendScream Command(1)
```To modInput in the commmands part right under the kick command.
>! Next add:
```
Public Sub SendScream(ByVal Name As String)
Dim Buffer As clsBuffer
>!  

    Set Buffer = New clsBuffer
    Buffer.WriteLong CScream
    Buffer.WriteString Name
    SendData Buffer.ToArray()
    Set Buffer = Nothing
End Sub
```To modclientTCP
>! Now add:
```
CScream
```
To the bottom of the client packets.
And
```
SScream
```to the bottom of the server packets in modEnumerations
Now Server Side:

>! ```
Sub SendScream(ByVal index As Long)
  Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer

    Buffer.WriteLong SScream

    SendDataTo index, Buffer.ToArray()

    Set Buffer = Nothing
End Sub
```And
```
HandleDataSub(CScream) = GetAddress(AddressOf HandleScream)
```And
```
Sub HandleScream(ByVal index As Long, ByRef Data() As Byte, ByVal StartAddr As Long, ByVal ExtraVar As Long)
    Dim n As Long
    Dim Buffer As clsBuffer
    Set Buffer = New clsBuffer
    Buffer.WriteBytes Data()
>!     ' Prevent hacking
    If GetPlayerAccess(index) <= 0 Then
        Exit Sub
    End If
>!     ' The player index
    n = FindPlayer(Buffer.ReadString) 'Parse(1))
    Set Buffer = Nothing
>!     If n <> index Then
        If n > 0 Then
            If GetPlayerAccess(n) < GetPlayerAccess(index) Then
              Call SendScream(n)
            Else
                Call PlayerMsg(index, "That is a higher or same access admin then you!", White)
            End If
>!         Else
            Call PlayerMsg(index, "Player is not online.", White)
        End If
>!     Else
        Call PlayerMsg(index, "You cannot scream yourself!", White)
    End If
>! End Sub
```Into modhandledata
>! Now just add the same packets you added into the client modEnumerations into the server ones…
And add a picture box to take up the size of frmMain in frmMain, set its image to the one you want, and set its visible = false.
After that you will want to find a .wav file with the scream you want, and save it as Scream in the clients "data files\sound" file. After that you are done! Enjoy messing with someone... Also if someone was to have a fatal heart attack from this, i gave you a warning ;)

[Riftguy]

Also you are going to want to add:
```
Public Const Scream As String = "Scream.wav"
```To modSound :)

[hisherwin]

Scream? how does it work?

[Urumil]

Sherwin! Look above! Read!