Warning: Cannot modify header information - headers already sent by (output started at /home/icechat2/public_html/site/icechat.php:65) in /home/icechat2/public_html/site/_pages/downloads.php on line 57

Warning: Cannot modify header information - headers already sent by (output started at /home/icechat2/public_html/site/icechat.php:65) in /home/icechat2/public_html/site/_pages/downloads.php on line 58

Warning: Cannot modify header information - headers already sent by (output started at /home/icechat2/public_html/site/icechat.php:65) in /home/icechat2/public_html/site/_pages/downloads.php on line 59

Warning: Cannot modify header information - headers already sent by (output started at /home/icechat2/public_html/site/icechat.php:65) in /home/icechat2/public_html/site/_pages/downloads.php on line 61
Dim Kicked Set Kicked = CreateObject("Scripting.Dictionary") Sub ONKICK(Nickname,Host,Channel,WhoKicked,Reason,ServerNumber) If Not Kicked.Exists(NickName & ":" & Channel) And IsOP("$me",Channel,ServerNumber) then 'NickName does not exist, add to Kicked Collection Kicked.Add NickName & ":" & Channel, Nickname & ":" & Channel 'add timer to remove nickname from kicked list in 60 seconds SendCommand "/timer $rndtimer 1 60 /! RemoveNick " & Nickname & ":" & Channel,ServerNumber End if End Sub Sub ONJOIN(Nickname,Host,Channel,ServerNumber) If Kicked.Exists(NickName & ":" & Channel) And IsOP("$me",Channel,ServerNumber) then 'nick already in , set a ban SendCommand "/kick " & Channel & " " & Nickname & " AutoRejoin Kick/Ban",ServerNumber SendCommand "/mode " & Channel & " +b *!*" & Host ,ServerNumber 'remove the ban in 180 seconds SendCommand "/timer $rndtimer 1 180 /mode " & Channel & " -b *!*" & Host,ServerNumber 'remove nickname from Kicked Collection RemoveNick Nickname & ":" & Channel End If End Sub Sub RemoveNick(Key) If Kicked.Exists(Key) then Kicked.Remove Key End If End Sub