I have edit a script but doesnt work.
Please help me..
Thank you
sPasswdFile = "../RegisteredUsers.dat";
function DataArrival(user, data)
if (strsub(data,1,1) == "<") then
data = strsub(data,1,strlen(data)-1)
local s,e,cmd = nil
s,e,cmd = strfind(data, "%b<>%s+(%S+)")
if cmd == "!getuserpass" then
GetPasswordCmd(user, data)
end
end
end
function GetPasswordCmd(user, data)
_, _, cmd, str = strfind(data, "%b<>%s+(%S+)%s*([^%|]*)%|$");
if str ~= nil then
local sPasswd = GetPassword(str);
if (sPasswd) then
user:SendData(BotName, "L'utente "..str.." ? un utente registrato e la sua password ?: "..sPasswd.."");
else
user:SendData(BotName, "L'utente "..str.." non ? registrato!");
end
else
user:SendData(BotName, "Non ci posso credere ma allora nn sai leggere? cavolo non ? possibile che ancora tu non abbia imparato, devi digitare: !getpass ");
end
return 1;
end
function GetPassword(From)
local flPasswdFile = openfile(sPasswdFile, "r");
local line = "";
From = strlower(From);
if (flPasswdFile) then
line = read(flPasswdFile);
while (line) do
_, _, sNick, sPasswd = strfind(line, "^(%S+)|(%S+)|");
if (strlower(sNick) == From) then
return sPasswd;
end
line = read(flPasswdFile);
end
closefile(flPasswdFile);
end
return nil;
end
Nobody can help me?
QuoteOriginally posted by DorianG
Nobody can help me?
1st of all, allways give a description of what goes wrong and as precise as posible.
next check this part.
local s,e,cmd = nil
s,e,cmd = strfind(data, "%b<>%s+(%S+)")if you make this into 1 line it's gone work.
plop
Sorry Plop.. This is the original script. But i have edit it as the first post.. I'm sorry
-- simple standalone get-password-by-nick-bot by bonki 09/06/03
sBotName = "PasswdBot";
sGetPasswdPhrase = "!getpasswd";
sPasswdFile = "../RegisteredUsers.dat";
function DataArrival(curUser, sData)
local _, _, cmd, args = strfind(sData, "%b<>%s+(%S+)%s*([^%|]*)%|$");
if(cmd == nil) then
return 0; end
cmd = strlower(cmd);
if (cmd == sGetPasswdPhrase) then
curUser:SendData(sData);
if (curUser.bOperator) then
if (strlen(args) > 0) then
local sPasswd = GetPassword(args);
if (sPasswd) then
curUser:SendData(sBotName, args.."'s password is: '"..sPasswd.."'");
else
curUser:SendData(sBotName, "User "..args.." doesn't exist!");
end
else
curUser:SendData(sBotName, "Syntax: "..sGetPasswdPhrase.." ");
end
else
curUser:SendData(sBotName, "You don't have sufficient rights to run that command!");
end
return 1;
end
return 0;
end
function GetPassword(sFrom)
local flPasswdFile = openfile(sPasswdFile, "r");
local line = "";
sFrom = strlower(sFrom);
if (flPasswdFile) then
line = read(flPasswdFile);
while (line) do
_, _, sNick, sPasswd = strfind(line, "^(%S+)|(%S+)|");
if (strlower(sNick) == sFrom) then
return sPasswd;
end
line = read(flPasswdFile);
end
closefile(flPasswdFile);
end
return nil;
end
Why if i put this:
local s,e,cmd = nil
s,e,cmd = strfind(data, "%b<>%s(%S+)")
The script dont work?