# FileName: Mon_Main.ts
systemscript
setVar $Support_Script "C:\Mon_Support.ts"
gosub :Kill_Kill_Kill
Load $Support_Script

:begin
   setTextLineTrigger   Continuity   :Continuity   "The server will shut down"
   setTextLineTrigger   ShutDown      :ShutDown   "The server is shutting down"
   setTextLineTrigger   Abort       :Abort      "Aborting shutdown."
   pause

:ShutDown
   killalltriggers
   Echo "**" & ANSI_14 & "Shutdown"
   setVar $Temp CURRENTANSILINE
   getWordPos $Temp $pos1 "Shutdown"
   getWordPos $Temp $pos2 "The"
   if ($pos1 <> 0) OR ($pos2 <> 0)
      waiton "Command [TL="
      gosub :Kill_Kill_Kill
      Load $Support_Script
   end
   goto :begin

:Continuity
   killalltriggers
   setVar $Count 0
   setVar $Temp CURRENTANSILINE
   getWordPos $Temp $pos "The"
   if ($pos <> 0)
      ListActiveScripts $INDEX
      SetVar $IDX 1
      while ($IDX <= $INDEX)
         if ($INDEX[$IDX] = $Support_Script)
            add $Count 1
         end
         add $IDX 1
      end
      if ($Count > 1)
         gosub :Kill_Kill_Kill
         goto :Continuity
      end
   end
   goto :begin

:Abort
   killalltriggers
   setVar $Temp CURRENTANSILINE
   getWordPos $Temp $pos "Aborting"
   if ($pos <> 0)
      setDelayTrigger   Kill_Delay   :Kill_Delay   200
      pause
      :Kill_Delay
      killalltriggers
      gosub :Kill_Kill_Kill
      Load $Support_Script
   end
   goto :begin

:Kill_Kill_Kill
   stop $Support_Script
   stop $Support_Script
   stop $Support_Script
   stop $Support_Script
   return

#FileName: Mon_Support.ts
setVar $ArraySizeOf 50
setArray $LINES $ArraySizeOf
setVar $MSGD FALSE
setVar $MSG ""
setVar $PTR 1
:begin
setTextLineTrigger min5 :shutDownTime "The server will shut down in 5 minutes."
setTextLineTrigger min3 :shutDownTime "The server will shut down in 3 minutes."
setTextLineTrigger min2 :shutDownTime "The server will shut down in 2 minutes."
setTextLineTrigger min1 :shutDownTime "The server will shut down in 1 minute."
setTextLineTrigger final :shutDownFinal "The server is shutting down"
setTextLineTrigger abort :shutDownAborted "Aborting shutdown."
setTextLineTrigger LINE :LINE
pause
:LINE
   if ($PTR >= $ArraySizeOf)
      setVar $CR 2
      while ($CR <= $ArraySizeOf)
         setVar $LINES[($CR - 1)] $LINES[$CR]
         add $CR 1
      end
      setVar $PTR $ArraySizeOf
   end
   setVar $Tmp CURRENTANSILINE
   replaceText $Tmp #9 "   "
   stripText $Tmp #10
   stripText $Tmp #13
   setVar $LINES[$PTR] $Tmp
   add $PTR 1
   setTextLineTrigger   LINE         :LINE
   pause

:shutDownTime
setVar $window ""
setVar $Temp CURRENTANSILINE
getWordPos $Temp $Pos "The"
setVar $Temp CURRENTLINE
getword $Temp $test 1
if ($test <> "The") OR ($Pos = 0)
   killalltriggers
   goto :begin
end
getText $Temp $min "shut down in " " min"
add $warn1 1
if ($warn1 = 1)
   window shutdown 600 400 " SERVER SHUTTING DOWN!!" ONTOP
end

setVar $window $window & "*Game      : " & GAMENAME & " (" & GAME & ")"
if ($min = 1)
   setVar $window $window & "*Shut Down : " & $min & " minute*"
else
   setVar $window $window & "*Shut Down : " & $min & " minutes*"
end
if ($MSG <> "")
   setVar $window $window & $msg
end

if ($MSGD = FALSE)
   setVar $MSG ""
   if ($ptr > $ArraySizeOf)
      setVar $ptr $ArraySizeOf
   end
   setVar $CR $PTR
   while ($CR > 0)
      setVar $Tmp $LINES[$CR]

      if ($Tmp = "")
         subtract $CR 1
      else
         while ($CR > 0)
            setVar $Tmp $LINES[$CR]
            getWordPos $Tmp $pos "["
            if ($pos = 0)
               if ($Tmp <> "0")
                  if ($Tmp = "")
                     setVar $MSG ("*  "&$MSG)
                  else
                     setVar $MSG ("*"&$Tmp&$MSG)
                  end
               end
            else
               setVar $CR 0
            end
            subtract $CR 1
         end
         if ($MSG <> "")
            setVar $MSGD TRUE
            setVar $msg ("*   [SERVER MSG]==========================================[SERVER MSG]" & $msg)
            setVar $window $window & $msg
         end
      end
   end
end
setWindowContents shutdown $window
pause
:shutDownFinal
killalltriggers
setVar $Temp CURRENTANSILINE
getWordPos $Temp $pos1 "Shutdown"
getWordPos $Temp $pos2 "The"
if ($pos1 <> 0) OR ($pos2 <> 0)
   getTime $time "hh:mm:ss"
   setVar $window $window & "*Server shutdown @: " & $time & "*"
   setWindowContents shutdown $window
   waitfor "Command [TL="
   getTime $time "hh:mm:ss"
   setVar $window $window & "*Back online @:     " & $time & "*"
   setWindowContents shutdown $window
end
goto :begin

:shutDownAborted
killalltriggers
setVar $Temp CURRENTANSILINE
getWordPos $Temp $pos "Aborting"
if ($pos <> 0)
   setVar $window $window & "*Shutdown aborted*"
##   setWindowContents shutdown $window
end
goto :begin

# pop a window to warn if server going down
# minimal spoof checking, suggest you add additional



:begin
  killalltriggers
  setVar $window ""
  setVar $warn1 0
  setTextTrigger min5 :shutDownTime "The server will shut down in"
  setTextTrigger final :shutDownFinal "The server is shutting down"
  setTextTrigger abort :shutDownAborted "Aborting shutdown."
  pause

  :shutDownTime
    setVar $lineIn currentline
    getword $lineIn $test 1
    if ($test <> "The")
       setTextTrigger min5 :shutDownTime "The server will shut down in"
       pause
    end

    if ($warn1 = 0)
       window shutdown 325 200 " SERVER SHUTTING DOWN!!" ONTOP
       add $warn1 1
    end
    setVar $window $window & "*" & $lineIn & "*"
    setWindowContents shutdown $window
    setTextTrigger min5 :shutDownTime "The server will shut down in"
    pause

  :shutDownFinal
   getTime $time "hh:mm:ss"
   setVar $window $window & "*Server shutdown @: " & $time & "*"
   setWindowContents shutdown $window
   waitfor "Command [TL="
   getTime $time "hh:mm:ss"
   setVar $window $window & "*Back online @:     " & $time & "*"
   setVar $window $window & "*Please close the warning window*"
   setWindowContents shutdown $window
   goto :begin

  :shutDownAborted
    setVar $window $window & "*Shutdown aborted*"
    setVar $window $window & "*Please close the warning window*"
    setWindowContents shutdown $window
    goto :begin

setVar $windowText ""
setTextLineTrigger shutdown :shutdownOrAbort "The server will shut down in "
setTextTrigger aborting :shutdownOrAbort "Aborting shutdown."
setTextTrigger final :shuttingDown "The server is shutting down"
pause

:shutdownOrAbort
killTrigger shutdown
killTrigger aborting
setVar $line CURRENTLINE & "*"
gosub :update
setTextLineTrigger shutdown :shutdownOrAbort "The server will shut down in "
setTextTrigger aborting :shutdownOrAbort "Aborting shutdown."
pause

:shuttingDown
setVar $line CURRENTLINE & " @ " & TIME & "*"
gosub :update
if ($legit)
   # Pause here until we are reconnected
   waitOn "Command [TL="
   setVar $windowText $windowText & "Back online @: " & TIME & "*"
   add $lines 1
   gosub :trim10
   setWindowContents shutdown $windowText
end
setTextTrigger final :shuttingDown "The server is shutting down"
pause

:update
setVar $legit FALSE
cutText CURRENTANSILINE $char 1 1
#7 is the Bell character, and is sent by the TW server as an alert.  It is not a spoof if it is present.
if ($char = #7)
   setVar $legit   TRUE
   # See if we have any window text.  If not, create a window.
   if ($windowText = "")
      window shutdown 375 200 "SHUT DOWN MONITOR" ONTOP
   end
   setVar $windowText $windowText & $line
   add $lines 1
   gosub :trim10
   setWindowContents shutdown $windowText
end
return

:trim10
# Trim to 10 lines
while ($lines > 10)
   getWordPos $windowText $pos "*"
   cutText $windowText $windowText ($pos + 1) 9999
   subtract $lines 1
end
return