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
Sub ONTEXT(Message,Channel,Nickname,Host,ServerNumber) if len(message) > 8 and LCase(left(Message,8)) = "!decide " then Message = Replace(Message,"$","") Choices = Mid(Message,9) a = Split(Choices,",") n = UBound(a) If n > 0 then Valid = True For Check = 0 to n If Len(a(n)) = 0 then Valid = False Next If Valid = True then Randomize Number = rnd * (n+1) Number = Int(Number) SendCommand "/msg " & Channel & " " & Nickname & ": " & a(number),ServerNumber End If If Valid = False then SendCommand "/msg " & Channel & " " & Nickname & ": not a valid argument",ServerNumber End If If n = 0 then SendCommand "/msg " & channel & " " & Nickname & ": I'm sure you can decide that by yourself if you think really hard",Servernumber End If End Sub Function OUTTEXT(OutgoingText) if LCase(left(OutGoingText,8)) = "!decide " and len(OutgoingText) > 8 then Choices = Mid(OutGoingText,9) a = Split(Choices,",") n = UBound(a) If n > 0 then Valid = True For Check = 0 to n If Len(a(n)) = 0 then Valid = False Next If Valid = True then Randomize Number = rnd * (n+1) If Number = n+1 then Number = Number = n Number = Int(Number) SendCommand "/say " & OutGoingText SendCommand "/say " & GetIdentifier("$me") & ": " & a(number) End If If Valid = False then SendCommand "/say " & OutGoingText SendCommand "/say " & GetIdentifier("$me") & ": not a valid argument" End If ElseIf n = 0 then SendCommand "/say " & OutGoingText SendCommand "/say " & GetIdentifier("$me") & ": I'm sure you can decide that by yourself if you think really hard" End If Else OutText = OutGoingtext End If End Function