Automatisch antworten

#NewScriptBegin AutoAntwort
 
Sub Chan_Msg(Text, Nick, Channel, FrameID, ConnID)
  ltext=lCase(Text)
 
  'Vergleich der ganzen Zeichenkette:
  if ltext = "hi" Then Send "Hallo " & Nick, FrameID
  if ltext = "cu" Then Send "Schüss " & Nick, FrameID
  '...
  
  'Schaut ob Wort vorkommt:
  if InStr(1, ltext, "frage") > 0 Then Send "Du hast eine Frage " & Nick & "?", FrameID
  '...
End Sub