Server Shutdown - Printable Version

Server Shutdown - Printable Version

+- Mirage Source (https://mirage-engine.uk/forums)
+-- Forum: Mirage Source (Nostalgia) (https://mirage-engine.uk/forums/forumdisplay.php?fid=61)
+--- Forum: Archive (2006-2011) (https://mirage-engine.uk/forums/forumdisplay.php?fid=18)
+---- Forum: Resources (https://mirage-engine.uk/forums/forumdisplay.php?fid=49)
+---- Thread: Server Shutdown (/showthread.php?tid=70)

Server Shutdown - Tutorial Bot - 01-06-2006

Author: grimsk8ter11
Difficulty: 1/5

:: SERVER SIDE ::
In frmServer, add:

Code:
Private Sub Form_Load()

    ShutOn = False

End Sub

Replace the tmrShutdown_Timer sub with:[code]Private Sub tmrShutdown_Timer()
Static Secs As Long

If ShutOn = False Then
Secs = 30
Call TextAdd(frmServer.txtText, "Automated Server Shutdown Canceled!", True)
Call GlobalMsg("Server Shutdown Canceled!", BrightBlue)
tmrShutdown.Enabled = False
Exit Sub
End If
If Secs