#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