PtokaX forum

Need script that PM's welcome.txt message on connect to unreg users only.

Thanx  :)

QuoteOriginally posted by witch
Need script that PM's welcome.txt message on connect to unreg users only.

Thanx  :)

check out my texter 3 or 4 serie's.

plop

ok....i get texter v3.0 but still can't sorted out how to set it up for on conncet automatic welcome.txt message on PM to unreg users only.  ?(

anyone  ?(

Have you bother checking this one out ??

LINK (http://board.univ-angers.fr/thread.php?threadid=2293&boardid=12&styleid=1&sid=044a6e8071971bf8d7c0501669535bf4)

This is an advanced welcome message but you can just skip the [USER] etc. triggers and do a simple welcome text.

/NL

..it's great scripts all, but all i looking for is a simple one with only one function.  :rolleyes:

I think this should be working ...
I haven't tested it ...
[*edit*] U will need a file named Unregs.txt in the scripts folder ....
--- Unreg Txt Intro  ?   requested by witch --- by Herodes
botsName = "HeyUnreg"
unergs = "Unregs.txt"

function Main()
frmHub:UnregBot(botsName)
frmHub:RegBot(botsName)
end

function NewUserConnected(user)
if ( user.iProfile == -1 ) then
local msg = "\r\n"
readfrom(file, "r")
while 1 do
local line = read()
if ( line == nil ) then break
else msg = msg..line.."\r\n"
end
end
readfrom()
user:SendPM(ReadTextFile(msg)
end
end

QuoteOriginally posted by witch
ok....i get texter v3.0 but still can't sorted out how to set it up for on conncet automatic welcome.txt message on PM to unreg users only.  ?(

sorry my mistake, you need the 4.x serie.

plop

Thanx Herodes for the script! Functionary it's exactly what i need :) but...

Syntax Error: `end' expected (to close `if' at line 34);
  last token read: `elsemsg' at line 36 in file `D:\PtokaX\0.326new\scripts\Unreg.lua'

can u fix it please.

Plop dude thanx for corrections! I will give a try to it too.

here is my simplest Load Text File on Login:

-----------------------------
-- Simple Welcome / By: NightLitch
-----------------------------
BotName = "yourbotnamehere"

File = "YourFileNameHere"

function NewUserConnected(User)
SendPmToNick(sUser.sName,BotName,TextFile(File))
end

function TextFile(file)
readfrom(file, "r")
local message = ""
while 1 do
local line = read()
if line == nil then break
else
message = message..line.."\r\n"
end
end
readfrom()
return message
end

*updated 2 send PM instead *
/NL

Simple the best NightLitch!!! Works fine. But i need send it to PM! Can u change it? Please  :)

fixed.

..still shows on the main, dude!  ?(

QuoteOriginally posted by witch
Thanx Herodes for the script! Functionary it's exactly what i need :) but...

Syntax Error: `end' expected (to close `if' at line 34);
  last token read: `elsemsg' at line 36 in file `D:\PtokaX\0.326new\scripts\Unreg.lua'

can u fix it please.

Plop dude thanx for corrections! I will give a try to it too.

I fixed that :D ready to use ..

..would u posted fixed version in here please?  :))

I belive he already did :)

--- Unreg Txt Intro  ?   requested by witch --- by Herodes
botsName = "HeyUnreg"
unergs = "Unregs.txt"

function Main()
frmHub:UnregBot(botsName)
frmHub:RegBot(botsName)
end

function NewUserConnected(user)
if ( user.iProfile == -1 ) then
local msg = "\r\n"
readfrom(file, "r")
while 1 do
local line = read()
if ( line == nil ) then break
else msg = msg..line.."\r\n"
end
end
readfrom()
user:SendPM(ReadTextFile(msg)
end
end

QuotePost last edited by Herodes on 12.07.2004, 14:24.

Syntax Error: `)' expected (to close `(' at line 41);
  last token read: `end' at line 43 in file `D:\PtokaX\0.326new\scripts\unregs.lua'

Oops - my mistake...

botsName = "HeyUnreg"
unergs = "Unregs.txt"

function Main()
frmHub:UnregBot(botsName)
frmHub:RegBot(botsName)
end

function NewUserConnected(user)
if ( user.iProfile == -1 ) then
local msg = "\r\n"
readfrom(file, "r")
while 1 do
local line = read()
if ( line == nil ) then break
else msg = msg..line.."\r\n"
end
end
readfrom()
user:SendPM(ReadTextFile(msg))
end
end
Sorry about that ;)

Snooze

NON of all this scripts is working!!!  :rolleyes:

Hmm.. Looks like this was made in a hurry ..


botsName = "HeyUnreg"
unregs = "Unregs.txt"

function Main()
frmHub:UnregBot(botsName)
frmHub:RegBot(botsName)
end

function NewUserConnected(user)
if ( user.iProfile == -1 ) then
local msg = "\r\n"
readfrom(unregs, "r")
while 1 do
local line = read()
if ( line == nil ) then break
else msg = msg..line.."\r\n"
end
end
readfrom()
user:SendPM(botsName, msg)
end
end
Tested and working ..

Last script is working perfect! My apologies!!!

Thanx to all!  :P

Your most welcome :)

QuoteOriginally posted by Snooze
Hmm.. Looks like this was made in a hurry ..
[...]
Tested and working ..

Ok thanks for making it work .. .

The reality is that time runs fast when u are expecting a
System shutdown popup lol

NT AUTHORITY/SYSTEM sucks a lot ... ( accessing the net through my family pc ... )

I wonder whos's to blame ... MS?, My father?, my young bro?
probly me ... lol

hehe - whats really funny is the amount of time we spend on getting a working script together LOL

oh well.. its there and its working :D

Snooze