Better Script Error Reporting(No Message Boxes = No server freezes)

[evilbunnie]

This is pretty simple so go into your server source and replace sub SControl_Error() with

```
Private Sub SControl_Error()
    Dim sError As String

    If Val(GetVar(App.Path & "\Data.ini", "CONFIG", "ScriptErrors")) = 1 Then
        Call AdminMsg("Automated Server Error:  TYPE: " & SControl.Error.Description & vbNewLine & "LINE: " & SControl.Error.Line & vbNewLine & "COLUMN: " & SControl.Error.Column & vbNewLine & "CODE: " & vbNewLine & "    " & SControl.Error.text, WHITE)
    End If

    Err.Clear
End Sub

```

[Timmah]

Thanks for much man for this, I'm going to install this now.