NickFlash

#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

Eigene Werkzeuge