Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:joinmod [2006/05/10 20:50]
mirici
nettalk:scripting:joinmod [2006/05/16 22:22] (aktuell)
192.168.0.50
Zeile 1: Zeile 1:
 +====== Hostmasks bei Joins anzeigen ======
  
 +<code vb>
 +#​NewScriptBegin JoinMod
 +
 +Sub Load()
 +  RegEvent "​JOIN",​ 0
 +End Sub
 +
 +Sub Serv_RegedEvent(EventID,​ Sender, ConnID, Text, RawData)
 +  if GetVal(ConnID,​ 5) <> Sender Then
 +    PhraseData RawData, ConnID
 +    Print " (" & Mid(Split(RawData,​ 1), 2) & "​)",​ GetFrame(ConnID,​ Text), Rgb(0,​128,​0),​ 1
 +    SkipEvent
 +  End if
 +End Sub
 +</​code>​
 +
 +Mit folgender Variante werden die Hostmasks zusätzlich bei PARTs und QUITs angezeigt:
 +
 +<code vb>
 +#​NewScriptBegin JoinMod
 +
 +Dim FrameIDs
 +
 +Sub Load()
 +  RegEvent "​JOIN",​ 0
 +  RegEvent "​PART",​ 0
 +  RegEvent "​QUIT",​ 0
 +End Sub
 +
 +Sub Chan_Quit(Nick,​ Channel, QuitMsg, FrameID, ConnID)
 +  FrameIDs = FrameIDs + Str(FrameID) + " "
 +End Sub
 +
 +Sub Serv_RegedEvent(EventID,​ Sender, ConnID, Text, RawData)
 +  if GetVal(ConnID,​ 5) <> Sender Then
 +    if EventID = "​QUIT"​ Then
 +      FrameIDs=""​
 +      PhraseData RawData, ConnID
 +      i=1
 +      Do Until Len(Split(FrameIDs,​i))=0
 +        Print " (" & Mid(Split(RawData,​ 1), 2) & "​)",​ Val(Split(FrameIDs,​i)),​ Rgb(181,​181,​181),​ 1
 +        i=i+1
 +      Loop
 +    else
 +      PhraseData RawData, ConnID
 +      Print " (" & Mid(Split(RawData,​ 1), 2) & "​)",​ GetFrame(ConnID,​ Text), Rgb(181,​181,​181),​ 1
 +    End if
 +    SkipEvent
 +  End if
 +End Sub
 +</​code>​

Eigene Werkzeuge