Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:temp001 [2007/05/02 20:15] (aktuell)
91.0.78.40 angelegt
Zeile 1: Zeile 1:
 +<code vb>
 +#​NewScriptBegin Externliste
  
 +Dim UserList
 +Dim ListEndVar
 +Dim TOutCID
 +
 +Sub Chan_Join(Nick,​ Channel, FrameID, ConnID)
 +  if Channel = "#​kaesbox_LINK"​ Then
 +    RegEvent "​353",​ ConnID
 +    RegEvent "​366",​ ConnID
 +    RegEvent "​NOTICE",​ ConnID
 +    UserList=""​
 +    ListEndVar=""​
 +    StartTimer 8000, 0, "​BotTimeOut",​ 1
 +    TOutCID = ConnID
 +  end if
 +End Sub
 +
 +Sub Serv_RegedEvent(EventID,​ Sender, ConnID, Text, RawData)
 +  if EventID = 353 Then
 +    UserList = RawData
 +    UnRegEvent "​353",​ ConnID
 +  End if
 +  if EventID = "​NOTICE"​ Then
 +    if Split(Text, 1, ":"​) = "​Externliste"​ Then
 +      if len(ListEndVar) > 0 Then
 +        Print "* Externe Userliste erhalten",​ GetStateFrame(ConnID)
 +        PhraseData ":"​ + Split(UserList,​ 2, ":"​) + ":"​ + Split(Text, 2, ":"​),​ ConnID
 +        PhraseData ListEndVar, ConnID
 +        SetAllColor GetFrame(ConnID,​ Split(Text, 5))," "​+Split(Text,​ 2, ":"​)+"​ ", RGB(255,​0,​0)
 +        ListEndVar=""​
 +        SkipEvent
 +      End if
 +    End if
 +  End if
 +  if EventID = 366 Then
 +    ListEndVar = RawData
 +    UnRegEvent "​366",​ ConnID
 +    'print "* Externe userliste anfordern...",​ GetStateFrame(ConnID)
 +    '​SendData "​PRIVMSG " + Split(RawData,​ 4, " ") + " :​!user",​ ConnID
 +    SkipEvent
 +  End if
 +End Sub
 +
 +Sub BotTimeOut(TimerID)
 +  PhraseData ListEndVar, TOutCID
 +  ListEndVar=""​
 +End Sub
 +
 +Sub SetAllColor(FrameID,​ NickString, Color)
 +  i=0
 +  do until i=GetListCount(FrameID)
 +    if InStr(1, NickString, " "​+NoSign(GetListValue(FrameID,​i,​0))+"​ ") > 0 Then
 +      SetListColor FrameID, i, Color
 +    End if
 +    i=i+1
 +  loop
 +End Sub
 +
 +Sub SetUserColor(FrameID,​ Nick, Color)
 +  i=0
 +  do until i=GetListCount(FrameID) or NoSign(GetListValue(FrameID,​i,​0))=nick
 +    i=i+1
 +  loop
 +  SetListColor FrameID, i, Color
 +End Sub
 +</​code>​

Eigene Werkzeuge