Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:queryblock [2005/10/28 16:42]
mirici
nettalk:scripting:queryblock [2010/02/27 20:10] (aktuell)
mirici
Zeile 1: Zeile 1:
 +====== Querys blocken ======
  
 +Wenn der Inaktiv-Modus für eine Verbindung aktiviert ist, bewirkt das Script, das dort nur Querys angezeigt werden wenn man selber das Queryfesnter geöffnet hat.
 +
 +<code vb>
 +#​NewScriptBegin NoQuery
 +
 +Sub Load()
 +  RegEvent "​PRIVMSG",​ 0
 +End Sub
 + 
 +Sub Serv_RegedEvent(EventID,​ Sender, ConnID, Text, RawData)
 +  if IsSilent(ConnID) = 1 Then
 +    Dest = Split(RawData,​ 3)
 +    if left(Dest, 1) <> "#"​ and Asc(Left(Text,​1)) > 5 Then
 +      if GetCaption(GetFrame(ConnID,​ Dest)) <> Dest Then
 +        print "- Query from " & Sender & ": " & Text, 0, Rgb(0,​128,​0)
 +        SkipEvent
 +      End if
 +    End if
 +  End if
 +End Sub
 +</​code>​
 +
 +Wenn ausnahmslos alle Query geblockt werden sollen muss es so aussehen:
 +
 +<code vb>
 +#​NewScriptBegin NoQuery
 +
 +Sub Load()
 +  RegEvent "​PRIVMSG",​ 0
 +End Sub
 + 
 +Sub Serv_RegedEvent(EventID,​ Sender, ConnID, Text, RawData)
 +  Dest = Split(RawData,​ 3)
 +  if left(Dest, 1) <> "#"​ and Asc(Left(Text,​1)) > 5 Then
 +    if GetCaption(GetFrame(ConnID,​ Dest)) <> Dest Then
 +      print "- Query from " & Sender & ": " & Text, 0, Rgb(0,​128,​0)
 +      SkipEvent
 +    End if
 +  End if
 +End Sub
 +</​code>​

Eigene Werkzeuge