Beispielscript

#NewScriptBegin Beispielscript1
 
Sub Chan_Msg(Text, Nick, Channel, FrameID, ConnID)
  Print "<" & Nick & "> ", FrameID, valcSender, 0,"", 3
  Print Text, FrameID, valcText, 1
  'SkipEvent
End Sub
 
Sub Serv_Query(Text, Nick, FrameID, ConnID)
  Print "<" & Nick & "> ", FrameID, valcSender, 0,"", 3
  Print Text, FrameID, valcText, 1
  SkipEvent
End Sub
 
Sub SendMsg(Text, Channel, FrameID, ConnID)
  Nick = GetVal(ConnID, 5)
  Print "<" & Nick & "> ", FrameID, valcSender, 0,"", 3
  Print Text, FrameID, valcText, 1
  Send "/quote privmsg " & Channel & " :" & Text, FrameID
  SkipEvent
End Sub
 
Sub SendQuery(Text, Receiver, FrameID, ConnID)
  Nick = GetVal(ConnID, 5)
  Print "<" & Nick & "> ", FrameID, valcSender, 0,"", 3
  Print Text, FrameID, valcText, 1
  Send "/quote privmsg " & Receiver & " :" & Text, FrameID
  SkipEvent
End Sub