-- Wave by DirtyFingers
wavepart = "¸¸..··''´´¯``''··..¸¸_"
--          1234567890123456789012
pos = 1
wholewave = strrep(wavepart,4)

function Main()
   SetTimer(200)
   StartTimer()
end

function OnTimer()
   if pos > 1 then 
      pos = pos-1
   else 
      pos = 22
   end
   local c = strsub(wavepart,pos,pos)
   wholewave = c..strsub(wholewave,1,strlen(wholewave)-1)
   --SendToAll("",c.."\t"..strsub(wholewave,strlen(wholewave)-1,strlen(wholewave)-1))
   SendToAll("*",wholewave.." <*>")
end

function DataArrival (curUser, sData)
   local s,i
   _,i = (strfind(sData,"<"..curUser.sName.."> "))
   s = strsub(sData,i+1,strlen(sData)-1)
   if strlen(s) < strlen(wholewave) then
      wholewave = s .. strsub(wholewave,strlen(s))
   else
      wholewave = strsub(s,strlen(wholewave))
   end
end