#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