Inhaltsverzeichnis

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

Eigene Werkzeuge