Beispiele
Chan_Join
Sub Chan_Join(Nick, Channel, FrameID, ConnID)
' Wir wollen mal prüfen ob wir uns im Channel "#raucherecke" befinden
' Außerdem soll er nur auf die zweite Verbindung reagieren (z.B. wegen einem Bot-Login)
' ConnID = 0 wäre der erste Server in der **Server**-Liste
if Channel="#raucherecke" and ConnID=1 then
' Den neuen Besucher willkommen heissen. Die Meldung soll in demselben Fenster erscheinen, in dem der <<Join>> festgestellt wurde.
Send "Willkommen "+Nick+"!",FrameID
end if
End Sub
Chan_Msg
Sub Chan_Msg(Text, Nick, Channel, FrameID, ConnID)
' Reaktion auf einen Channel des Bots einschränken (s.o.)
if Channel="#raucherecke" and ConnID=1 then
' Der Bot soll nur auf mit "!" angefangene Befehle reagieren
if left(Text,1)="!" then
' Befehl herausfiltern indem man das erste " " sucht.
i=instr(2,Text," ");
if i=0 then i=len(Text)+1
befehl = mid(Text,2,i-2)
' Jetzt können wir die Befehle mal prüfen
if befehl="tschüss" then
' Bei Tschüss den User rausschmeissen (Der Bot auf Server2 sollte natürlich OP-Rechte haben)
send "/kick "+Channel+" "+Nick+" Du wolltest ja rausgeworfen werden.",FrameID
else
' Sonst kennt das Programm noch keine Befehle
send "/me weiss nicht was Du mit '"+befehl+"' meinst.",FrameID
end if
end if
end if
End Sub
Serv_Query
Sub Serv_Query(Text, Nick, FrameID, ConnID)
' So lässt sich auf ein bestimmtes Wort (hier 'Apfelsaft') reagieren
if instr(1,Text,"Apfelsaft") > 0 then
Send "/msg " & Nick & " Oh, hab ich da was von Fruchtsäften gehört?!"
end if
End Sub