-- places a scrolling text in the bot's name.
-- looks nice but takes a lot of bandwidth.
-- plop


string = "Pride, Porn ‘n Prejudice. Come on folks the show begins. A movie full of whores ‘n pimps. "..
   "Turn out the lights ‘n start the reel. Check out who’s the imbecile. Come on folks just come right in. "..
   "To the weirdest place you’ve ever been. Get your tickets at the door. You’ve never seen such filth before. "..
   "Welcome! Welcome to the SINema. Welcome! Hey you kids, just dig around. Show the host what you just found. "..
   "Don’t you fear, just bring it in. There’s room enough in the house of sin. I don’t like the movie in this SINema. "..
   "I don’t like the movie in this SINema. I don’t like the movie. I don’t like the movie. I don’t like the movie in this SINema. "..
   "Where’s Stallone or Spiderman. I didn’t see this scene in Cannes. Where is Chan or Superman. Save us all… "..
   "Welcome, welcome to the SINema. Sit back, relax, enjoy the show! Welcome!"

stringloop = string
length = 20
speed = 500

function Main()
   SetTimer(speed)
   StartTimer()
   stringloop = gsub(stringloop, " ", "_")
end

function OnTimer()
   if T == nil then
      T = strsub(stringloop, 1, length)
      frmHub:RegBot("-->"..T.."<--")
   else
      frmHub:UnregBot("-->"..T.."<--")
      stringloop = strsub(stringloop, 2, -1)
      if strlen(stringloop) < length then
         stringloop = stringloop.." "..string
      end
      T = strsub(stringloop, 1, length)
      frmHub:RegBot("-->"..T.."<--")
   end
end

function OnExit()
   frmHub:UnregBot("-->"..T.."<--")
end

function DataArrival(user, data)
   if( strsub(data, 1, 1) == "<" ) then 
      if user.iProfile == 0 then
         local s,e,cmd,onoff = strfind(data,"^%b<>%s+(%S+)%s*(%S*)") 
         user:SendData(cmd)
         if cmd == "!restartscripts" then
            frmHub:UnregBot("-->"..T.."<--")
            StopTimer()
         elseif cmd == "!light" then
            user:SendData(onoff)
            if onoff == "on" then
               --SetTimer(speed)
               T = nil
               StartTimer()
               User:SendData("<banner> started")
               return 1
            elseif onoff == "off" then
               StopTimer()
               frmHub:UnregBot("-->"..T.."<--")
               T = nil
               User:SendData("<banner> stopped")
               return 1
            end
         end
      --else
         --user:SendData("<banner> user level 2 low")
      end
   end
end