Text only | Text with Images

PtokaX forum

Development Section => Your Developing Problems => Topic started by: blackwolf on 18 May, 2005, 12:59:53

Title: Record Bot. I need help
Post by: blackwolf on 18 May, 2005, 12:59:53
Help me! PtokaX 17.07 , script RecordBot , error Syntex directory/recbot.lua :1: unexpected symbol near `?' . What's this ? Sorry for my english.


      if (mSet.Config.PM == 1) then SendPmToNick(curUser.sName, "Thanks, buddie. You've just raised the all-time share record!"); end;
      if (mSet.Config.main == 1) then SendToAll(mSet.bot.name, curUser.sName.." has just raised the all-time user record to: "..Record.Users.." users :)");    end;
   end

   if (mSet.Config.Login == 1) then
      curUser:SendData(mSet.bot.name, "Share record: "..DoShareUnits(tonumber(Record.Share)));
      curUser:SendData(mSet.bot.name, "User record: "..Record.Users.." users");
   end;
end

OpConnected = NewUserConnected

DoShareUnits = function(intSize)            --- Thanks to kepp and NotRambitWombat
   if intSize ~= 0 then
      local tUnits = { "Bytes", "KB", "MB", "GB", "TB" }
      intSize = tonumber(intSize);
      local sUnits;
      for index = 1, table.table.getn(tUnits) do
         if(intSize < 1024) then
            sUnits = tUnits[index];
            break;
         else  
            intSize = intSize / 1024;
         end
      end
      return string.string.format("%0.1f %s",intSize, sUnits);
   else
      return "0"
   end
end

Serialize = function(tTable,sTableName,hFile,sTab)
   sTab = sTab or "";
   hFile:write(sTab..sTableName.." = {\n");
   for key,value in tTable do
      if (type(value) ~= "function") then
         local sKey = (type(key) == "string") and string.string.format("[%q]",key) or string.string.format("[%d]",key);
         if(type(value) == "table") then
            Serialize(value,sKey,hFile,sTab.."\t");
         else
            local sValue = (type(value) == "string") and string.string.format("%q",value) or tostring(value);
            hFile:write(sTab.."\t"..sKey.." = "..sValue);
         end
         hFile:write(",\n");
      end
   end
   hFile:write(sTab.."}");
end

WriteTable = function(table,tablename,file)
   local hFile = io.open(file,"w+") Serialize(table,tablename,hFile); hFile:close()
end
Title:
Post by: jiten on 18 May, 2005, 13:16:04
Did you copy the script correctly?
The code to copy is the one between the horizontal lines.

Cheers
Title:
Post by: TiMeTrAVelleR on 18 May, 2005, 17:10:23
Like  jiten sad make sure you copie right script just works fine

Code Select
--/-------------------------------------------------------------------
-- Lua 5 version by jiten
-- Heavily optimized version
-- fixed huge users bug and some stuff (thx to T?M??r?V?ll?R)

-- RecordBot vKryFinal written by bonki 2003
-- Logs and displays a hub's all time share and user record.
--/-------------------------------------------------------------------
mSet = {
bot = { name = "RecordBot", mail = "bonki@no-spam.net", desc = "RecordBot vKryFinal written by bonki 2003", },
fRecord = "records.tbl", fConfig = "config.tbl", Config = {},
}
Record = {}
--/-------------------------------------------------------------------
Main = function()
frmHub:RegBot(mSet.bot.name, 1, mSet.bot.desc, mSet.bot.mail)
if mSet.Config.main == nil then mSet.Config.main = 1 end
if mSet.Config.PM == nil then mSet.Config.PM = 1 end
if mSet.Config.Login == nil then mSet.Config.Login= 1 end
if loadfile(mSet.fConfig) then dofile(mSet.fConfig) end
if loadfile(mSet.fRecord) then dofile(mSet.fRecord) end
end

ChatArrival = function(curUser, sData)
local sData = string.sub(sData,1,-2)
local s,e,cmd,args = string.find(sData, "%b<>%s+[%!%?%+%#](%S+)%s*([^%|]*)" )
if cmd then
local tmp = "\r\n\t";
local sOpHelpOutput = tmp.."\r\n\t"..mSet.bot.desc..tmp.."Logs and displays a hub's all time share and user record."..
tmp.."\r\n\tOP Commands:".."\r\n\r\n";
local sHelpOutput = "\r\n\tCommands:".."\r\n\r\n";

tCommands = {
["rb.help"] = {
function(curUser)
if curUser.bOperator then
curUser:SendData(mSet.bot.name, sOpHelpOutput..sHelpOutput);
else
curUser:SendData(mSet.bot.name, sOpHelpOutput);
end
end, 0, "\t\t\tDisplays this help message.", },
["rb.show"] = {
function(curUser)
if not next(Record) then curUser:SendData(mSet.bot.name, "No records have been saved."); return 0 end
local msg, border = "", string.rep ("-", 100)
msg = msg.."\r\n\t"..border.."\r\n"
msg = msg.."\tRecord\t\tValue\t\tDate - Time\n"
msg = msg.."\t"..border.."\r\n"
msg = msg.."\tShare\t\t"..DoShareUnits((Record.Share)).." \t\t"..Record.tShare.."\r\n"
msg = msg.."\tUsers\t\t"..Record.Users.." user(s)\t\t"..Record.tUsers.."\r\n"
msg = msg.."\t"..border
curUser:SendData(mSet.bot.name,msg)
end, 0, "\t\t\tShows this hub's all time share and user record.", },
["rb.showmain"] = {
function(curUser, args)
if (args == "enable") then
mSet.Config.main = 1 WriteTable(mSet.Config,"Config",mSet.fConfig) curUser:SendData(mSet.bot.name, "Enabled!");
elseif (args == "disable") then
mSet.Config.main = 0 WriteTable(mSet.Config,"Config",mSet.fConfig) curUser:SendData(mSet.bot.name, "Disabled!");
else
curUser:SendData(mSet.bot.name, "Syntax error!");
end
end, 1, "\tmain message.", },
["rb.showpm"] = {
function(curUser, args)
if (args == "enable") then
mSet.Config.PM = 1 WriteTable(mSet.Config,"Config",mSet.fConfig) curUser:SendData(mSet.bot.name, "Enabled!");
elseif (args == "disable") then
mSet.Config.PM = 0 WriteTable(mSet.Config,"Config",mSet.fConfig) curUser:SendData(mSet.bot.name, "Disabled!");
else
curUser:SendData(mSet.bot.name, "Syntax error!");
end
end, 1, "\tprivate message.", },
["rb.showlogin"] = {
function(curUser, args)
if (args == "enable") then
mSet.Config.Login = 1 WriteTable(mSet.Config,"Config",mSet.fConfig) curUser:SendData(mSet.bot.name, "Enabled!");
elseif (args == "disable") then
mSet.Config.Login = 0 WriteTable(mSet.Config,"Config",mSet.fConfig) curUser:SendData(mSet.bot.name, "Disabled!");
else
curUser:SendData(mSet.bot.name, "Syntax error!");
end
end, 1, "\treport on login.", },
["rb.reset"] = {
function(curUser)
Record = nil Record = {} WriteTable(Record,"Record",mSet.fRecord) SendToAll(mSet.bot.name, "Hub records reset!");
end, 1, "\t\t\tResets all records.", },
};
for sCmd, tCmd in tCommands do
if(tCmd[2] == 1) then
sOpHelpOutput = sOpHelpOutput.."\t"..sCmd.."\t "..tCmd[3].."\r\n";
else
sHelpOutput   = sHelpOutput.."\t"..sCmd.."\t "..tCmd[3].."\r\n";
end
end
cmd = string.lower(cmd);
if (tCommands[cmd]) then
if (tCommands[cmd][2] == 0 or curUser.bOperator) then
return tCommands[cmd][1](curUser, string.lower(args)), 1
else
curUser:SendData(mSet.bot.name, "You do not have sufficient rights to run that command!");
return 1
end
end
end
end

NewUserConnected = function(curUser)
local aShare,aUsers = frmHub:GetCurrentShareAmount(),frmHub:GetUsersCount()
if Record.Share == nil then Record.Share = 0 end
if ( aShare > Record.Share) then
Record.Share = aShare Record.tShare = os.date() WriteTable(Record,"Record",mSet.fRecord)
if (mSet.Config.PM == 1) then SendPmToNick(curUser.sName, mSet.bot.name, sNewSharePMResponse); end;
if (mSet.Config.main == 1) then SendToAll(mSet.bot.name, curUser.sName.." has just raised the all-time share record to: "..DoShareUnits((Record.Share))); end;
end

if Record.Users == nil then Record.Users = 0 end
if ( aUsers > Record.Users ) then
Record.Users = aUsers Record.tUsers = os.date() WriteTable(Record,"Record",mSet.fRecord)
if (mSet.Config.PM == 1) then SendPmToNick(curUser.sName, "Thanks, buddie. You've just raised the all-time share record!"); end;
if (mSet.Config.main == 1) then SendToAll(mSet.bot.name, curUser.sName.." has just raised the all-time user record to: "..Record.Users.." users :)"); end;
end

if (mSet.Config.Login == 1) then
curUser:SendData(mSet.bot.name, "Share record: "..DoShareUnits(tonumber(Record.Share)));
curUser:SendData(mSet.bot.name, "User record: "..Record.Users.." users");
end;
end

OpConnected = NewUserConnected

DoShareUnits = function(intSize) --- Thanks to kepp and NotRambitWombat
if intSize ~= 0 then
local tUnits = { "Bytes", "KB", "MB", "GB", "TB" }
intSize = tonumber(intSize);
local sUnits;
for index = 1, table.getn(tUnits) do
if(intSize < 1024) then
sUnits = tUnits[index];
break;
else  
intSize = intSize / 1024;
end
end
return string.format("%0.1f %s",intSize, sUnits);
else
return "0"
end
end

Serialize = function(tTable,sTableName,hFile,sTab)
sTab = sTab or "";
hFile:write(sTab..sTableName.." = {\n");
for key,value in tTable do
if (type(value) ~= "function") then
local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);
if(type(value) == "table") then
Serialize(value,sKey,hFile,sTab.."\t");
else
local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
hFile:write(sTab.."\t"..sKey.." = "..sValue);
end
hFile:write(",\n");
end
end
hFile:write(sTab.."}");
end

WriteTable = function(table,tablename,file)
local hFile = io.open(file,"w+") Serialize(table,tablename,hFile); hFile:close()
end


Greetzz TT
Title:
Post by: blackwolf on 20 May, 2005, 14:19:55
T?M??r?V?ll?R
thx
Text only | Text with Images