Text only | Text with Images

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: SomeShine on 25 March, 2004, 20:29:36

Title: A Timed Mass Message Script
Post by: SomeShine on 25 March, 2004, 20:29:36
Can anyone help me??

im searching a script that automaticly sends a mass message f.eks every 30 minutes..

ive tried to make one myself but 1st of all im a girl 2nd of all im a total 110% scripting newbie..


Bot = "TU-Girl"

sec = 1000
min = 60 * sec

function SendPmToAll()
   SetTimer(2 * min)
   StartTimer()
   message = "To Register At This Hub PM SomeShine With Username And Password"
   border = "?????????????????????????????????????????????????????????????????"
       border1 = "?????????????????????????????????????????????????????????????????"
      tosend = "\r\n"..border.."\r\n"..message.."\r\n"..border1.."\r\n"
      
      SendPmToAll(sBot, tosend)
end

This is my try to make it.. dont tell its a mess i know that.. i just took something from some different scripts i have.. please someone make this so-called script work, or make on for me..

thanks in advance - SomeShine
Title:
Post by: plop on 25 March, 2004, 23:15:40
QuoteOriginally posted by SomeShine
Can anyone help me??

im searching a script that automaticly sends a mass message f.eks every 30 minutes..

ive tried to make one myself but 1st of all im a girl 2nd of all im a total 110% scripting newbie..


Bot = "TU-Girl"

sec = 1000
min = 60 * sec

function SendPmToAll()
   SetTimer(2 * min)
   StartTimer()
   message = "To Register At This Hub PM SomeShine With Username And Password"
   border = "?????????????????????????????????????????????????????????????????"
       border1 = "?????????????????????????????????????????????????????????????????"
      tosend = "\r\n"..border.."\r\n"..message.."\r\n"..border1.."\r\n"
      
      SendPmToAll(sBot, tosend)
end

This is my try to make it.. dont tell its a mess i know that.. i just took something from some different scripts i have.. please someone make this so-called script work, or make on for me..

thanks in advance - SomeShine
girl or not you have a start and your gone finish it yourself. lol
if you look in the scripting.txt from the docs folder you can find this.
QuoteSendPmToAll(from, data) - Sends private message to all users
  from - nick of sending user or bot or anything
  data - message to send
that means it's reserved so you can't have a function which has the same name.
Quote--// This function is fired at the serving start
function Main()
  -- TODO your code here
end
in this function your gone start and set the timer.
QuoteTo respond on timer event write your response code into OnTimer function:
function OnTimer()
  //TODO: your code here
end
this is the place where your gone do the stuff which you want 2 trigger on the timer (the SendPmToAll).

good luck
plop
Title:
Post by: TiMeTrAVelleR on 26 March, 2004, 00:04:34
This is it

BotName = "TH-Girl"

sek = 1000
min = sek*60
hour = min*60
days = hour*24

time = 1*min

function Main()
   SetTimer(time)
   StartTimer()
end

   line = "\r\n\r\n.\r\n"
   line = line.."?================================================================?\r\n"
   line = line.."To Register At This Hub PM SomeShine With Username And Password\r\n"   
   line = line.."?================================================================?\r\n"
   line = line..".\r\n|"

function OnTimer()
   SendPmToAll(BotName, line)
end


Thanks  plop  :D
Title:
Post by: plop on 26 March, 2004, 00:06:40
yw.

plop
Title:
Post by: JackTheRipper2002 on 29 March, 2004, 18:20:49
Hi.. Im not very well in english.. so i hope you could understand what's my problem.. and i hope you could help me..
I work with scripts since 3 days.. so excuse me if my question seem to be stupid.. ( im searchd a lot but i could find annother hint wich could help me..)
Ich changed the script a bit.. so it's not send as an Pm..

It work.. if I start the script.. but it don't acting automaticly.. just to test I set the time 5*sek.. but after 5 seconds it doesn't come on main..do I have to make a file "time" and what shell I do in this file.. ??

---------------------------------------------------------------------
BotName = "Bot"

sek = 1000
min = sek*60
hour = min*60
days = hour*24

time = 5*sek

function Main()
SetTimer(time)
StartTimer()
end

SendToAll"\r\n\r\n.\r\n"
SendToAll";?================================================================?\r\n "
SendToAll"To Register At This Hub PM SomeShine With Username And Password\r\n"
SendToAll";?================================================================?\r\n "
SendToAll"\r\n|"

function OnTimer()
SendToAll(BotName, SendToAll)
end

Hope you understand what I mean..

Bye Jack
Title:
Post by: TiMeTrAVelleR on 29 March, 2004, 20:23:37
time = 1*min    that has  to be there  put amount off minutes  in there what you want

 :]
Title:
Post by: JackTheRipper2002 on 29 March, 2004, 20:37:51
Ok... but I don't have to create any file or text file or anything else.. ok.. thx again..
bye Jack
Title:
Post by: JackTheRipper2002 on 29 March, 2004, 21:09:51
hmm.. :O(
I tired... meybe I should lern the bases of scripting.. but this is my complet script and i don't work.. Do I have to put in a "1" or...

Code Select
BotName = "TH-Girl"

sek = 1000
min = sek*60
hour = min*60
days = hour*24

time = 1*min

function Main()
SetTimer(time) [do i have to put in something els??]
StartTimer()     [or here??]
end

SendToAll(".")
SendToAll("?=========================================================================================================================?")
SendToAll("                                                                Bitte beachtet, dass am Sonntag den 04.04.2004 um 15Uhr Hablaber ist!!")
SendToAll("                                                                                            !!also seid bitte alle anwesend!!")
SendToAll("?=========================================================================================================================?")
SendToAll(".")

function OnTimer()
SendToAll(BotName, SendToAll)
end

thx in advance Jack
Title:
Post by: [NL]trucker on 30 March, 2004, 12:03:43
JackTheRipper2002

first of all if you add a script you have to do a scriptrestart in ptotax otherwise it will never work.

========================================
BotName = "TH-Girl"

sek = 1000
min = sek*60
hour = min*60
days = hour*24

time = 1*min

function Main()
frmHub:RegBot(BotName)-- hier sorgst du dafur das deinen bot im userlist kommt wenn du nicht willst das den botname im userlist kommt dan setze  --  dafur.
SetTimer(1)
StartTimer()  
end

SendToAll(".")
SendToAll("?===================================================?")
SendToAll("    Bitte beachtet, dass am Sonntag den 04.04.2004 ")
SendToAll("                um 15Uhr Hablaber ist!!")
SendToAll("            !!also seid bitte alle anwesend!!")
SendToAll("?===================================================?")
SendToAll(".")

function OnTimer()
SendToAll(BotName, SendToAll)
end
--------------------------------------------------------------------------------

hmmmm

i restarted scripts and when i do so it shows once in main but after that ....nothing happens.

and it doesnt matter if i put something

SetTimer(1)  

inhere or not .
Title:
Post by: JackTheRipper2002 on 30 March, 2004, 17:21:10
oki.. fine.. I've changed nearly the hole and combiened some script and modified them.. now it work.. *smile

Of course if someone want's to use or change to make it better.. Here it is...

( ok I know.. it's just a kind of combination.. but I'm a bit proud that it work.. I've first seen anything like a script last Weekend*gggg)

(axo...sind hier noch mehr, die deutsch sprechen???)

Code Select
-----------------------------------------
------made by T?M??r?V?ll?R------
-----------------------------------------
---Modi by JackTheRipper2002---
-----------------------------------------
current = date("%H:%M:%S")
sec = 1000
min = sec*60

--------------------------------------------------------
function Main()
--frmHub:RegBot("---" ..current .."---")--
SetTimer(min)
StartTimer()
end
--------------------------------------------------------
function OnTimer()

frmHub:UnregBot("---" ..current .."---")
time = date("%H:%M:%S")
current = time
if (date("%M") == "00" ) then
SendToAll(line)

elseif (date("%M") == "30" ) then
SendToAll(line)
line=SendToAll(".")
line=SendToAll("................................................................................................"..".--==::[".."Es ist--"..time.."--UHR".."]::==--.".."................................................................................................")
line=SendToAll("<[FP]-Timeticker>")
line=SendToAll("?=========================================================================================================================?")
line=SendToAll("                                                                 Bitte beachtet, dass am Sonntag den 04.04.2004 um 15Uhr Hablaber ist!!")
line=SendToAll("                                                                                                 !!also seid bitte alle anwesend!!")
line=SendToAll("?=========================================================================================================================?")
line=SendToAll(".")
end
end



--------------------------------------------------------
function OnExit()
frmHub:UnregBot("---" ..current .."---")
end
--------------------------------------------------------

Thx @ all Jack
Title:
Post by: mau108 on 30 March, 2004, 21:27:02
how bout a timed mass message for specific users??

like a command to set which user gets a specific message every few minutes...

is that possible? :rolleyes:
Title:
Post by: JackTheRipper2002 on 30 March, 2004, 21:41:17
So.. I have changed again... That's a shorter version an will work better with secondary start time..means [=="00"], [=="30]...

Could I change anything els to make the script shorter??

Code Select
-----------------------------------------
------made by T?M??r?V?ll?R------
-----------------------------------------
---Modi by JackTheRipper2002---
-----------------------------------------


current = date("%H:%M:%S")
sec = 1000
min = sec*60

--------------------------------------------------------
function Main()
--frmHub:RegBot("---" ..current .."---")--
SetTimer(min)
StartTimer()
end
--------------------------------------------------------
function OnTimer()

frmHub:UnregBot("---" ..current .."---")
time = date("%H:%M:%S")
current = time
if (date("%M") == "00" ) or (date("%M") == "30" ) then
SendToAll(line)



line=SendToAll(".")
line=SendToAll("................................................................................................"..".--==::[".."Es ist--"..time.."--UHR".."]::==--.".."................................................................................................")
line=SendToAll("<[FP]-Timeticker>")
line=SendToAll("?=========================================================================================================================?")
line=SendToAll("                                                                 Bitte beachtet, dass am Sonntag den 04.04.2004 um 15Uhr Hablaber ist!!")
line=SendToAll("                                                                                                 !!also seid bitte alle anwesend!!")
line=SendToAll("?=========================================================================================================================?")
line=SendToAll(".")
end
end



--------------------------------------------------------
function OnExit()
frmHub:UnregBot("---" ..current .."---")
end
--------------------------------------------------------

@mau108 I'm just a newbi in scripting and on this Board.. But I belive there is somthing possible to this.. but  I think that's the wrong Thread.. or isn't it??

Bye Jack
Title:
Post by: plop on 30 March, 2004, 22:40:06
@JackTheRipper2002
pls add a comment 2 your script version that it was made by T?M??r?V?ll?R, he deserves the credits.

plop
Title:
Post by: JackTheRipper2002 on 30 March, 2004, 23:01:30
Sorry Plop.. I forgot... I've changed.. Ok now?? or did I have to change anything else?
Title:
Post by: [NL]trucker on 31 March, 2004, 10:22:25
hai first of all i,m a neby to this also but

Quote--------------------------------------------------------
function Main()
   --frmHub:RegBot("---" ..current .."---")--
   SetTimer(min)
   StartTimer()
end
--------------------------------------------------------
function OnTimer()

   frmHub:UnregBot("---" ..current .."---")
   time = date("%H:%M:%S")
   current = time

it seems to me this is doublle

with this line  you do nothing
--frmHub:RegBot("---" ..current .."---")--

cause all with [--] infront is ignored by the script

then you unreg the bot from script ontimer ??
frmHub:UnregBot("---" ..current .."---")

so question?

why unreg a bot on a timer?
whats the use for that ?

if you put

BotName = ("---" ..current .."---")

and dont reg the bot it will still show the name of the bot in front of the message if i,m right .

so that way you wont have to reg and unreg the bot thus saving mem.

if one of the masterscripter think i,m wrong please correct me
Title:
Post by: JackTheRipper2002 on 16 April, 2004, 13:05:10
hmmm.. I thought that (--) only is that the bot is not regist. in the user list.. so the bot not always show the time.. only when its 30 or 00 ??
When I delet this line.. the bot do not work.. don't know if I have to change enything else, if i delet the line..


Another question.. could it be that the board has been down??? I'd tried the last time but no reachable page..

If there is someone how I can ask if this happen again.. e-mail oder ICQ or Sono.. so that I'll find the board again??
Title:
Post by: plop on 16 April, 2004, 17:20:34
QuoteOriginally posted by JackTheRipper2002
hmmm.. I thought that (--) only is that the bot is not regist. in the user list.. so the bot not always show the time.. only when its 30 or 00 ??
When I delet this line.. the bot do not work.. don't know if I have to change enything else, if i delet the line..


Another question.. could it be that the board has been down??? I'd tried the last time but no reachable page..

If there is someone how I can ask if this happen again.. e-mail oder ICQ or Sono.. so that I'll find the board again??
the board has indeed been offline, but during that there was a temp board.
as soon as things like that happen and i find out about it you can find the links on my website (//www.plop.nl).

about the script, before you continue i suggest you take a close look @ the scripting.txt which you can find in the docs folder from ptokax.
SendToAll is a ptokax function, that means you can't use that for anything else.

trucker is right about registering the bot, what i can see from how your trying 2 use it you don't need 2 register it, and so there is absolutly no need 2 unregister it.

plop
Title:
Post by: Tuben on 16 April, 2004, 18:44:40
I like your website Plop :D
Title:
Post by: JackTheRipper2002 on 17 April, 2004, 00:31:01
ok I've changed it.. and thanks for the help and your page.. she's nice... :O)
Text only | Text with Images