Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen gezeigt.

Link zu dieser Vergleichsansicht

nettalk:scripting:usercolor [2005/07/14 15:10]
192.168.0.50 angelegt
nettalk:scripting:usercolor [2005/07/14 15:10] (aktuell)
192.168.0.50
Zeile 1: Zeile 1:
 +====== NickFlash ======
 +<code vb>
 +#​NewScriptBegin NickFlash
  
 +Dim LastUser
 +Dim LastFrameID
 +
 +Sub Chan_Msg(Text,​ Nick, Channel, FrameID, ConnID)
 +  if LastFrameID > 0 Then
 +    RemColor
 +    stoptimer 0
 +  end if
 +  LastUser=Nick
 +  LastFrameID=FrameID
 +  ​
 +  SetUserColor FrameID, Nick, rgb(255,​0,​0)
 +  StartTimer 3000, 0, "​RemColor",​ 1
 +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
 +
 +Sub RemColor()
 +  SetUserColor LastFrameID,​ LastUser, -1
 +  LastFrameID=0
 +End Sub
 +</​code>​

Eigene Werkzeuge