PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: [T-G-T]M@sto on 05 November, 2003, 20:43:50

Title: Advertise
Post by: [T-G-T]M@sto on 05 November, 2003, 20:43:50
i need a script to sent a Message in mainchat every 1 Hour or more with a message i want I know i have seen it before, but cant find it so please help me.
Title:
Post by: plop on 05 November, 2003, 20:50:06
no idea who made the original as there are lots of them
-------------------------
--- website adver banner
------------

text1 = "Take a look on our website."
text2 = "Many useful tips can be found there."
text3 = "From tools to download to a forum to have fun on,"
text4 = "or request things you would like to have."
text5 = "http://www.thegoldenangel.org"

sec = 1000
min = 60 * sec
hour = 60 * min

howmuch = 120




function Main()
   SetTimer(howmuch*min)
   StartTimer()
end

function OnTimer()
   SendToAll("***","******************************************************** <***> |")
   SendToAll("***",text1.." |")
   SendToAll("***",text2.." |")
   SendToAll("***",text3.." |")
   SendToAll("***",text4.." |")
   SendToAll("***",text5.." |")
   SendToAll("***","******************************************************** <***> |")
end

plop
Title:
Post by: [T-G-T]M@sto on 05 November, 2003, 20:55:25
QuoteOriginally posted by plop
no idea who made the original as there are lots of them
-------------------------
--- website adver banner
------------

text1 = "Take a look on our website."
text2 = "Many useful tips can be found there."
text3 = "From tools to download to a forum to have fun on,"
text4 = "or request things you would like to have."
text5 = "http://www.thegoldenangel.org"

sec = 1000
min = 60 * sec
hour = 60 * min

howmuch = 120




function Main()
   SetTimer(howmuch*min)
   StartTimer()
end

function OnTimer()
   SendToAll("***","******************************************************** <***> |")
   SendToAll("***",text1.." |")
   SendToAll("***",text2.." |")
   SendToAll("***",text3.." |")
   SendToAll("***",text4.." |")
   SendToAll("***",text5.." |")
   SendToAll("***","******************************************************** <***> |")
end

plop
Thanks M8
Title:
Post by: plop on 05 November, 2003, 21:21:30
yw

plop