'// Plugin System Installer v1.21
'//   by Swent
'//     Last modified 2:35 AM 9/8/2007 by Swent

Sub Event_Load()

  AddChat vbYellow, "If you receive any Script Control pop-ups (normally you won't), hit Continue."

  Set tmpFSO = CreateObject("Scripting.FileSystemObject")

  SSC.PrintURLToFile "PluginSystem.dat", "http://www.stealthbot.net/p/plugs/PluginSystem.dat"
  If tmpFSO.FileExists(BotPath() & "PluginSystem.dat") Then
     AddChat 39423, "Downloaded PluginSystem.dat to your StealthBot folder."
  Else
     dlFailed = True
  End If

  SSC.PrintURLToFile "script.dat", "http://www.stealthbot.net/p/plugs/regscript.dat"
  If tmpFSO.FileExists(BotPath() & "script.dat") Then
     tmpFSO.DeleteFile BotPath() & "script.txt"
     tmpFSO.CopyFile BotPath() & "script.dat", BotPath() & "script.txt"
     tmpFSO.DeleteFile BotPath() & "script.dat"
     AddChat 39423, "Downloaded the modified script.txt to your StealthBot folder."
  Else
     dlFailed = True
  End If

  If dlFailed Then
     AddChat vbRed, "Error: Attempts to download one or more needed files to your StealthBot folder failed."
     AddChat vbRed, "Please see: http://www.stealthbot.net/board/index.php?s=&showtopic=22229&view=findpost&p=193446"
  Else
    AddChat vbGreen, "All needed files downloaded successfully."
    AddChat 39423, "To complete this installation you MUST go to the Settings menu and click 'Reload Script'."
  End If
End Sub

Sub Event_FirstRun()
End Sub

Sub Event_ServerInfo(Message)
End Sub

Sub Event_ServerError(Message)
End Sub

Sub Event_UserTalk(Username, Flags, Message, Ping)
End Sub

Sub Event_UserEmote(Username, Flags, Message)
End Sub

Sub Event_WhisperFromUser(Username, Flags, Message)
End Sub

Sub Event_UserJoins(Username, Flags, Message, Ping, Product, Level, OriginalStatstring)
End Sub

Sub Event_UserLeaves(Username, Flags)
End Sub

Sub Event_FlagUpdate(Username, NewFlags, Ping)
End Sub

Sub Event_LoggedOn(Username, Product)
End Sub

Sub Event_UserInChannel(Username, Flags, Message, Ping, Product)
End Sub

Sub Event_ChannelJoin(ChannelName, Flags)
End Sub

Sub scTimer_Timer()
End Sub

Sub Event_PressedEnter(Text)
End Sub

Sub Event_KeyReturn(KeyName, KeyValue)
End Sub

Sub Event_MessageSent(Message)
End Sub
 
Sub Event_ClanInfo(Name, Rank, Online)
End Sub

Sub Event_Close()
End Sub