Author Topic: Convert this release bot please.. :)  (Read 1756 times)

0 Members and 1 Guest are viewing this topic.

Offline macb

  • Newbie
  • *
  • Posts: 4
  • Karma: +0/-0
Convert this release bot please.. :)
« on: 26 July, 2010, 08:39:49 »
Code: [Select]
---------------------------------------------------------------------------------------------------------
-- Mlink.Library.v2.0.LUA5.X-PtokaX          [ by: St0ne db ]
---------------------------------------------------------------------------------------------------------
--
--  A new kind of release and request bot.
--
----[ Tested With ]--------------------------------------------------------------------------------------
--
-- PtokaX v0.3.5.1c & PtokaX v0.3.5.1d - [ Lua 5.0.3 and Lua 5.1.1 ]
--
----[ Version 2.0 Change Log ]--------------------------------------------------------------
--
--      Added, Completely rewrote all code from v1.2, new faster wizard system
--      Added, Quick commands are provided for faster entrys
--      Added, Completely skinable interface
--
-- -[ Version 1.2 ]-
--
--      ? Completely rewrote all code from v1.2, new faster wizard system
-- ? Release and Request functions
--      ? Internal 'Nuker' for bad releases
--      ? Ability to hold optional info;
--           i. Links to websites
--           ii.    Magnet links
--           iii.   Additional notes about the release / request
--           iv.    Users comments
--           v.     Release rank
--      ? Auto cleaning
--      ? Poster ranking system
--      ? Tasks are done through the use of wizards
--      ? Quick commands are provided for faster entrys
--      ? Administrative only commands
--      ? Full Right-Click command menu
-- ? Duplicate checker
-- ? Latest releases sent to PM or Main
--      ? Completely skinable interface
--
----[ Included Skins ]-----------------------------------------------------------------------------------
--
-- ? Default - The same skin built into the bot, use this as a guide to creating your own skins.
--  ? Simple - Created by: St0ne_db
--  ? White Widow - Created by: Stormbringer
--  ? Citral - Created by: Stormbringer
-- ? Durban Poison - Created by: Stormbringer (French)
-- ? Text Only - Created by: St0ne_db
--
-- - All skins are designed in Tahoma 8 point, The text only skin provides the highest font compatability.
--
----[ Credit ]-------------------------------------------------------------------------------------------
--
--  The Serialize and SaveToFile functions from: 'Entry Bot v1.1e' ( by jiten )
--  All other code by St0ne db.<the-westside crew> Best Viewed in LUAEdit v3 [ www.luaedit.net ]
--  Thanks:  Stormbringer [ Beta Tester and Skin Designer ]
--
--  Support your LUA Community"
--  ? LUA Language Board:  http://forum.ptokax.org
--  ? UK LUA Language Board : http://lua.uknnet.com
--  ? PtokaX Resources' Site: http://ptxscriptdb.psycho-chihuahua.net
--      ? PtokaX Wiki:              http://ptxwiki.psycho-chihuahua.net/doku.php
--
---------------------------------------------------------------------------------------------------------
--     [ Updates, Bug Reports.. other LUA scripts for PtokaX.. http://the-westside.no-ip.info ]        --
---------------------------------------------------------------------------------------------------------

-- Global Library Settings, Set Library specific options.
cls = string.rep("\n",20) -- size of clear screen
date = "%m/%d/%y %H:%M:%S" -- date format [ mm/dd/yy hh:mm:ss ]

-- Bot Variables
tVar = {
-- Bot Settings, Customize various options for the Library bots.
----------------------------------
sBot = "?Library?", -- Bot name [Wizards]
sBotD = "Library Wizard", -- Bot Description
sBotE = "lib@px.net", -- Bot Email Address
sIsOP = 1, -- Bot is OP (1=yes,0=no)
nBot = "?Lib-NFO?", -- Bot name [Notifications]
nBotD = "Library NFO", -- Bot Description
nBotE = "libn@px.net", -- Bot Email Address
nIsOP = 1, -- Bot is OP (1=yes,0=no)
----------------------------------
sTrig = "!", -- Prefix for commands from main chat
----------------------------------
sLibFile = "Library.mll",-- Main Library file
sLibData = "LibData.mll",-- Temporary Library data file
sLibLast = "LibLast.mll",-- Latest releases data file
sFolder = "MLinkLib", -- Script data folder
----------------------------------
sRC = "on", -- Send Right-Click menu [on,off]
sRCMenu = "Library", -- Right-Click menu name
----------------------------------
sSkin        = "default", -- Default skin folder name, all users start with this skin
----------------------------------
sNotify = "pm", -- Send info about newly added releases / requests [main,pm,off]
sOnConnect = "pm", -- Send latest releases on connect [main,pm,off]
sLastRel = 25, -- Maximum number of items in the history of new added releases
----------------------------------
sRating = "no", -- Show the Rating on connect, if provided [yes,no]
sMag            = "no", -- Show the Mlink on connect, if provided [yes,no]
sUrl = "no", -- Show the URL on connect, if provided [yes,no]
};

-- Poster Ranking, You can add more ranks and ranges at anytime.
tRank = {
[10] = "Newbie", --    0-10 Post Points
[100] = "Ace", --      10-100 Post Points
[1000] = "Hero", --     100-1000 Post Points
[10000] = "Legend", --   1000-10000 Post Points
[100000] = "God", -- 10000-99999~ Post Points
};

-- Commands, Choose the triggers you want for the wizards and quick commands.
tCmd = {
-- Wizards
----------------------------------
sAddRel = "new", -- Add a new release
sAddCat = "newcat", -- Add a new category
sDelRel = "del", -- Delete a release (users can only delete their own release)
sDelCat = "delcat", -- Delete a category
sReq = "newreq", -- Request a release
sShowRel = "show", -- Browse through the release list

-- Quick Commands
----------------------------------
qAddRel = "qnew", -- Add a new release
qAddCat = "qnewcat", -- Add a new category
qDelRel = "qdel", -- Delete a release (users can only delete their own release)
qDelCat = "qdelcat", -- Delete a category
qReq = "qnewreq", -- Request a release
qShow        = "qshow", -- Show release details
qSkin        = "chskin", -- Change your prefered skin
qRank = "myrank", -- Show your rank and number of posts
qComment = "mycom", -- Show your posts that have comments
qMag = "mags", -- Show all the available magnet links
qWeb            = "urls", -- Show all the available web links
qClean = "clean", -- Force the cleaner to run
qAddSkin = "newskin", -- Add a skin to the database
};

-- Profile Access, Allow or deny access by profile number.
--
    -- Allow = 1
--  Deny = 0
--
-- Admin Access
pAdmin = {
[-1] = 0, -- Un-Reg -- /      \
[0]  = 1, -- Master       --    /   PtokaX   \
[1]  = 1, -- OP           --  / Built-in \
[2]  = 0, -- ViP          --  \ Profiles /
[3]  = 0, -- Reg          --    \    /
--[4]  = 1, -- Moderator    -- ** Robocop/Leviathan users must uncomment **
--[5]  = 1, -- Netfounder  -- ** Robocop/Leviathan users must uncomment **
--[6]  = 1, -- Owner        -- ** Leviathan users must uncomment         **
};
-- User Access.
pUser = {
    [-1] = 0, -- Un-Reg -- /      \
[0]  = 1, -- Master       --    /   PtokaX   \
[1]  = 1, -- OP           --  / Built-in \
[2]  = 1, -- ViP          --  \ Profiles /
[3]  = 1, -- Reg --    \    /
--[4]  = 1, -- Moderator    -- ** Robocop/Leviathan users must uncomment **
--[5]  = 1, -- Netfounder  -- ** Robocop/Leviathan users must uncomment **
--[6]  = 1, -- Owner    -- ** Leviathan users must uncomment         **
};

-- Command access, Assign access types for the commands and wizards.
wAccess = {
-- Admin Access = pAdmin,
-- User Access = pUser
--
-- Wizards
----------------------------------
["AddRel"] = pUser,        -- Add a new release
["AddCat"] = pAdmin,       -- Add a new category
["DelRel"] = pUser,        -- Delete a release (users can only delete their own release)
["DelCat"] = pAdmin,       -- Delete a category
["AddReq"] = pUser,        -- Request a release
["ShowRel"] = pUser,        -- Browse through the release List
};
tAccess = {
-- Quick Commands
----------------------------------
[tCmd.qAddRel] = pUser,        -- Add a new release
[tCmd.qAddCat] = pAdmin,      -- Add a new category
[tCmd.qDelRel] = pUser,        -- Delete a release (users can only delete their own release)
[tCmd.qDelCat] = pAdmin,      -- Delete a category
[tCmd.qReq] = pUser,        -- Request a release
[tCmd.qShow] = pUser,        -- Show release details
[tCmd.qSkin] = pUser,        -- Change your prefered skin
[tCmd.qRank] = pUser, -- Show your rank and number of posts
[tCmd.qComment] = pUser, -- Show your posts that have comments
[tCmd.qMag] = pUser, -- Show all the available magnet links
[tCmd.qWeb]     = pUser, -- Show all the available web links
[tCmd.qClean] = pAdmin, -- Force the cleaner to run
[tCmd.qAddSkin] = pAdmin, -- Add a skin to the database
};
---------------------------------------------------------------------------------------------------------
if (_VERSION == "Lua 5.1") then
package.path = "./"..tVar.sFolder.."/?.lua;"..package.path
require "Wizard";
TableMaxSize = table.maxn; StringMatch = string.gmatch;
CollectTrash = function() collectgarbage("collect"); end
elseif (_VERSION == "Lua 5.0.3") or (_VERSION == "Lua 5.0.2") then
require(tVar.sFolder.."/Wizard.lua");
TableMaxSize = table.getn; StringMatch = string.gfind;
CollectTrash = function() collectgarbage(); end
else
SendToAll(tVar.sBot,"*** This bot requires Lua 5.1 or Lua 5.0.X.... your version is ".._VERSION);
end

LibTask = {

["Start"] = function()
WizTemp = {};
if loadfile(tVar.sFolder.."/"..tVar.sLibData) then
dofile(tVar.sFolder.."/"..tVar.sLibData);
else
LibData = {};
end
    local users = frmHub:GetOnlineUsers();
    for i = 1, TableMaxSize(users) do
local user = users[i];
if not LibData[user.sName] and pUser[user.iProfile] == 1 then
LibData[user.sName] = {
["rank"] = 0,
["posts"] = 0,
["skin"] = tVar.sSkin,
};
end
end
doSaveTable(tVar.sFolder.."/"..tVar.sLibData,LibData,"LibData");
if loadfile(tVar.sFolder.."/"..tVar.sLibFile) then
dofile(tVar.sFolder.."/"..tVar.sLibFile);
if Library[1]["cdesc"] ~= "Nuked or Not Working Releases" then LibTask.ConvertLib() end
else
Library = {
[1] = {
["cname"] = "Nuked",
["cdesc"] = "Nuked or Not Working Releases",
["cexpire"] = 30,
["items"] = {},
},
[2] = {
["cname"] = "Requests",
["cdesc"] = "User Requests",
["cexpire"] = 30,
["items"] = {},
},
};
end
    if loadfile(tVar.sFolder.."/"..tVar.sLibLast) then
dofile(tVar.sFolder.."/"..tVar.sLibLast);
if TableMaxSize(LibLast) > 0 and LibLast[1]["name"] then LibTask.ConvertLst() end
else
LibLast = {};
end
if loadfile(tVar.sFolder.."/skin/skins.txt") then
dofile(tVar.sFolder.."/skin/skins.txt");
else
Skins = {};
end
end,

["CatDupeCheck"] = function(newCat)
local n = TableMaxSize(Library);
if n > 0 then
    for i = 1, n do
        if string.gsub(string.lower(Library[i]["cname"]),"%s", "") == string.gsub(string.lower(newCat),"%s", "") then
return i;
        end
    end
end
return nil;
end,

["RelDupeCheck"] = function(newRel)
local n = TableMaxSize(Library);
if n > 0 then
    for i = 1, n do
        local ni = TableMaxSize(Library[i]["items"]);
        if ni > 0 then
        for z = 1, ni do
if string.gsub(string.lower(Library[i]["items"][z]["name"]),"%s", "") == string.gsub(string.lower(newRel),"%s","") then
local t = { [1] = i, [2] = z };
return t;
        end
        end
        end
    end
end
return nil;
end,

["NewCat"] = function(user,temp)
    table.insert(Library, {
        ["items"] = {},
        ["cname"] = temp.cat.name,
        ["cdesc"] = temp.cat.desc,
        ["cexpire"] = tonumber(temp.cat.exp),
    });
doSaveTable(tVar.sFolder.."/"..tVar.sLibFile,Library,"Library");
end,

["DelCat"] = function(user,temp)
    table.remove(Library,tonumber(temp.cat.var));
for z = TableMaxSize(LibLast), 1,-1 do
if tonumber(LibLast[z]["cat"]) == tonumber(temp.cat.var) then
table.remove(LibLast,z);
elseif tonumber(LibLast[z]["cat"]) > tonumber(temp.cat.var) then
LibLast[z]["cat"] = LibLast[z]["cat"] - 1;
end
end
doSaveTable(tVar.sFolder.."/"..tVar.sLibLast,LibLast,"LibLast");
doSaveTable(tVar.sFolder.."/"..tVar.sLibFile,Library,"Library");
end,

["DelRel"] = function(user,temp)
    local i = tonumber(temp.rel.cat);
    local n = tonumber(temp.rel.var);
for z = TableMaxSize(LibLast),1,-1 do
    if tonumber(LibLast[z]["cat"]) == i then
if tonumber(LibLast[z]["rel"]) == n then
table.remove(LibLast,z);
elseif tonumber(LibLast[z]["rel"]) > n then
    LibLast[z]["rel"] = LibLast[z]["rel"] - 1;
end
end
end
table.remove(Library[i]["items"],n);
doSaveTable(tVar.sFolder.."/"..tVar.sLibLast,LibLast,"LibLast");
doSaveTable(tVar.sFolder.."/"..tVar.sLibFile,Library,"Library");
end,

["AddRel"] = function(user,temp)
    local i = tonumber(temp.rel.cat);
table.insert(Library[i]["items"], {
["notes"] = temp.rel.desc,
["name"] = temp.rel.name,
["expire"] = tonumber(Library[i]["cexpire"]),
["date"] = os.date(date),
["url"] = temp.rel.url,
["mlink"] = temp.rel.mlink,
["poster"] = user.sName,
["votes"] = 0,
["voted"] = {};
["comments"] = {},
    });
    table.insert(LibLast,1, {
    ["cat"] = i,
    ["rel"] = TableMaxSize(Library[i]["items"]),    
    });
if TableMaxSize(LibLast) > tVar.sLastRel then
for i = TableMaxSize(LibLast),tVar.sLastRel,-1 do
    table.remove(LibLast,i);
end
end
local p = 1;
if temp.rel.mlink ~= "Not Included" then p=p+1; end
if temp.rel.url ~= "Not Included" then p=p+1; end
if temp.rel.desc ~= "Not Included" then p=p+1; end
if not LibData[user.sName] then
LibData[user.sName] = {
["rank"] = 0,
["posts"] = 0,
};
end
LibData[user.sName]["rank"] = LibData[user.sName]["rank"] + p;
LibData[user.sName]["posts"] = LibData[user.sName]["posts"] + 1;
temp.rel.var = TableMaxSize(Library[i]["items"]);
if tVar.sNofify ~= "off" then
local hub = frmHub:GetOnlineUsers();
        for i = 1, TableMaxSize(hub) do
local user = hub[i];
if pUser[user.iProfile] == 1 then
temp.skip = LibData[user.sName]["skin"];
if tVar.sNotify == "pm" then
  user:SendPM(tVar.nBot,Wizard.Tags(Wizard.Show.OnCreation(temp.skin),temp));
elseif tVar.sNotify == "main" then
    user:SendData(tVar.nBot,Wizard.Tags(Wizard.Show.OnCreation(temp.skin),temp));
end
end
end
end
doSaveTable(tVar.sFolder.."/"..tVar.sLibFile,Library,"Library");
doSaveTable(tVar.sFolder.."/"..tVar.sLibLast,LibLast,"LibLast");
doSaveTable(tVar.sFolder.."/"..tVar.sLibData,LibData,"LibData");
end,

["Nuke"] = function(user,temp)
    local i = tonumber(temp.rel.cat);
    local n = tonumber(temp.rel.var);
    Library[i]["items"][n]["expire"] = Library[1]["cexpire"];
local t = Library[i]["items"][n];
table.insert(Library[1]["items"],t);
table.insert(LibLast,1, {
    ["cat"] = 1,
    ["rel"] = TableMaxSize(Library[1]["items"]),
    });
    table.remove(Library[i]["items"],n);
for z = TableMaxSize(LibLast),1,-1 do
    if tonumber(LibLast[z]["cat"]) == i then
if tonumber(LibLast[z]["rel"]) == n then
table.remove(LibLast,z);
    elseif tonumber(LibLast[z]["rel"]) > n then
    LibLast[z]["rel"] = LibLast[z]["rel"] - 1;
end
end
end
if TableMaxSize(LibLast) > tVar.sLastRel then
for i = TableMaxSize(LibLast),tVar.sLastRel,-1 do
    table.remove(LibLast,i);
end
end
if tVar.sNofify ~= "off" then
local hub = frmHub:GetOnlineUsers();
        for i = 1, TableMaxSize(hub) do
local user = hub[i];
temp.skin = LibData[user.sName]["skin"];
if tVar.sNotify == "pm" then
  user:SendPM(tVar.nBot,Wizard.Tags(Wizard.Show.OnCreation(temp.skin),temp));
elseif tVar.sNotify == "main" then
    user:SendData(tVar.nBot,Wizard.Tags(Wizard.Show.OnCreation(temp.skin),temp));
end
end
end
doSaveTable(tVar.sFolder.."/"..tVar.sLibFile,Library,"Library");
doSaveTable(tVar.sFolder.."/"..tVar.sLibLast,LibLast,"LibLast");
end,

["Vote"] = function(user,temp)
local i = tonumber(temp.rel.cat);
    local n = tonumber(temp.rel.var);
  local v = tonumber(Library[i]["items"][n]["votes"]) + 1;
        local c = temp.vote.comment;
        local r = temp.vote.rating;
        if c ~= "Not Included" then
            Library[i]["items"][n]["comments"][user.sName] = c;
        end
if r ~= "Not Rated" then
Library[i]["items"][n]["voted"][user.sName] = r;
            Library[i]["items"][n]["votes"] = v;
end
doSaveTable(tVar.sFolder.."/"..tVar.sLibFile,Library,"Library");
end,

["ConvertLst"] = function()
        doSaveTable(tVar.sFolder.."/"..tVar.sLibLast..".bak",LibLast,"LibLast");
local t = {};
for i = 1, TableMaxSize(LibLast) do
local cat = LibLast[i]["cat"];
local name = LibLast[i]["name"];
local n = TableMaxSize(Library);
if n > 0 then
    for i = 1, n do
        if cat == Library[i]["cname"] then
local ni = TableMaxSize(Library[i]["items"]);
        if ni > 0 then
        for z = 1, ni do
if string.gsub(string.lower(Library[i]["items"][z]["name"]),"%s", "") == string.gsub(string.lower(name),"%s","") then
table.insert(t,{ ["cat"] = i, ["rel"] = z });
break;
        end
        end
        break;
        end
        end
    end
end
end
LibLast = t;
doSaveTable(tVar.sFolder.."/"..tVar.sLibLast,LibLast,"LibLast");
SendToOps(tVar.sBot,"*** Latest Releases database conversion completed, old database has been saved to: "..tVar.sLibFile..".bak");
end,

["ConvertLib"] = function()
        doSaveTable(tVar.sFolder.."/"..tVar.sLibFile..".bak",Library,"Library");
local t = {
[1] = {
["cname"] = "Nuked",
["cdesc"] = "Nuked or Not Working Releases",
["cexpire"] = 30,
["items"] = {},
},
[2] = {
["cname"] = "Requests",
["cdesc"] = "User Requests",
["cexpire"] = 30,
["items"] = {},
},
};
local fi = 1;
if Library[1]["cname"] == "Nuked" then fi = 2; end
if Library[2]["cname"] == "Requests" then fi = 3; end
local n = TableMaxSize(Library);
if n > 0 then
    for i = fi, n do
t[i] = Library[i]
local ni = TableMaxSize(Library[i]["items"]);
        if ni > 0 then
        for z = 1, ni do
t[i]["items"][z]["votes"] = 0;
t[i]["items"][z]["voted"] = {};
t[i]["items"][z]["comments"] = {};
        end
        end
    end
end
Library = t;
doSaveTable(tVar.sFolder.."/"..tVar.sLibFile,Library,"Library");
SendToOps(tVar.sBot,"*** Library database conversion completed, old database has been saved to: "..tVar.sLibFile..".bak");
end,

["Clean"] = function()
local ret = 0;
local ci = TableMaxSize(Library);
if ci then
for i = ci,1,-1 do
local ri = TableMaxSize(Library[i]["items"]) do
if ri then
for n = ri, 1,-1 do
if tonumber(Library[i]["items"][n]["expire"]) > -1 then
local ti = (tonumber(Library[i]["items"][n]["expire"])-1);
Library[i]["items"][n]["expire"] = ti;
if ti <= 0 then
ret = ret + 1;
table.remove(Library[i]["items"],n);
for z = TableMaxSize(LibLast),1,-1 do
    if tonumber(LibLast[z]["cat"]) == i then
if tonumber(LibLast[z]["rel"]) == n then
table.remove(LibLast,z);
elseif tonumber(LibLast[z]["rel"]) > n then
    LibLast[z]["rel"] = LibLast[z]["rel"] - 1;
end
end
end
end
end
end
end
end
end
end
doSaveTable(tVar.sFolder.."/"..tVar.sLibFile,Library,"Library");
doSaveTable(tVar.sFolder.."/"..tVar.sLibLast,LibLast,"LibLast");
return ret;
end,
};

tQCmd = {

[tCmd.qAddRel] = function(user,data)
if Wizard.QAC(user,tCmd.qAddRel) then
local _,_,cat,rel = string.find(data,"%b<>%s+%S+%s+(%d+)%s+(.*)");
if cat and tonumber(cat) and rel then
    cat = tonumber(string.format("%.0f",cat));
if cat > 2 and cat <= TableMaxSize(Library) then
local dupe = LibTask.RelDupeCheck(rel);
if not dupe then
local temp = {rel={cat=cat, name=rel, mlink="Not Included", url="Not Included", desc="Not Included"},skin=LibData[user.sName]["skin"]};
                LibTask.AddRel(user,temp);
user:SendData(tVar.sBot,"*** "..rel.." has been added to "..Library[cat]["cname"]..".");
else
    user:SendData(tVar.sBot,"*** Error: Duplicate release found.. Category: "..Library[dupe[1]]["cname"]..", "..Library[dupe[1]]["items"][dupe[2]]);
end
else
        user:SendData(tVar.sBot,"*** Error: You cannot add a release to this category, please choose another category.\n"..Wizard.Show.CatList());
end
else
user:SendData(tVar.sBot,"*** Quicky add a new release: "..tVar.sTrig..tCmd.qAddRel.." <cat #> <release name>\n\n"..Wizard.Show.CatList());
end
end
end,

[tCmd.qAddCat] = function(user,data)
        if Wizard.QAC(user,tCmd.qAddCat) then
local _,_,exp,cat,desc = string.find(data,"%b<>%s+%S+%s+(%d+)%s+\"(.+)\"%s+(.*)");
if exp and tonumber(exp) and cat and desc then
exp = tonumber(string.format("%.0f",exp));
local dupe = LibTask.CatDupeCheck(cat);
if not dupe then
local temp = {cat={name=cat, desc=desc, exp=exp},skin=LibData[user.sName]["skin"]};
                LibTask.NewCat(user,temp);
user:SendData(tVar.sBot,"*** \""..cat.."\" has been added as a category.");
else
    user:SendData(tVar.sBot,"*** Error: Duplicate category found.. Category: "..Library[dupe]["cname"]);
end
else
user:SendData(tVar.sBot,"*** Quicky add a new category: "..tVar.sTrig..tCmd.qAddCat.." <expire time> <\"cat name\"> <cat description>\n\n\tDuplicates are not allowed!\n\n"..Wizard.Show.CatList());
end
end
end,

[tCmd.qDelRel] = function(user,data)
        if Wizard.QAC(user,tCmd.qDelRel) then
local _,_,cat,rel = string.find(data,"%b<>%s+%S+%s+(%d+)%.(%d+)");
if cat and rel then
if tonumber(cat) and tonumber(rel) and tonumber(cat) > 0 and tonumber(cat) <= TableMaxSize(Library) and tonumber(rel) > 0 and tonumber(rel) <= TableMaxSize(Library[tonumber(cat)]["items"]) then
if pAdmin[user.iProfile] == 1 or Library[tonumber(cat)]["items"][tonumber(rel)]["poster"] == user.sName then
local temp = {rel={cat=cat, var=rel},skin=LibData[user.sName]["skin"]};
                LibTask.DelRel(user,temp);
user:SendData(tVar.sBot,"*** Release "..cat.."."..rel.." has been deleted.");
else
user:SendData(tVar.sBot,"*** Error: You cannot delete this release!");
end
else
user:SendData(tVar.sBot,"*** Error: Invalid release id. Expecting... example: 3.2");
end
else
user:SendData(tVar.sBot,"*** Quicky delete a release by id: "..tVar.sTrig..tCmd.qDelRel.." <release id> ");
end
end
end,

[tCmd.qDelCat] = function(user,data)
        if Wizard.QAC(user,tCmd.qDelCat) then
local _,_,cat = string.find(data,"%b<>%s+%S+%s+(%d+)");
if cat then
if tonumber(cat) and tonumber(cat) > 2 and tonumber(cat) <= TableMaxSize(Library) then
local temp = {cat={var=cat},skin=LibData[user.sName]["skin"]};
user:SendData(tVar.sBot,"*** Category "..Library[tonumber(cat)]["cname"].." has been deleted.");
LibTask.DelCat(user,temp);
else
user:SendData(tVar.sBot,"*** Error: Invalid category number, Expecting: 2-"..TableMaxSize(Library));
end
else
user:SendData(tVar.sBot,"*** Quicky delete a category: "..tVar.sTrig..tCmd.qDelCat.." <category number>\n\n"..Wizard.Show.CatList());
end
end
end,

[tCmd.qReq] = function(user,data)
if Wizard.QAC(user,tCmd.qAddRel) then
local _,_,req = string.find(data,"%b<>%s+%S+%s+(.*)");
if req then
local dupe = LibTask.RelDupeCheck(req);
if not dupe then
local temp = {rel={cat="2", name=req, mlink="Not Included", url="Not Included", desc="Not Included"},skin=LibData[user.sName]["skin"]};
                LibTask.AddRel(user,temp);
user:SendData(tVar.sBot,"*** "..req.." has been added to "..Library[2]["cname"]..".");
else
    user:SendData(tVar.sBot,"*** Error: Duplicate release found.. Category: "..Library[dupe[1]]["cname"]..", "..Library[dupe[1]]["items"][dupe[2]]);
end
else
user:SendData(tVar.sBot,"*** Quicky add a new request: "..tVar.sTrig..tCmd.qReq.." <request name>");
end
end
end,

[tCmd.qSkin] = function(user,data)
        if Wizard.QAC(user,tCmd.qSkin) then
local n = TableMaxSize(Skins);
if n then
local _,_,num = string.find(data,"%b<>%s+%S+%s+(%S+)");
if num and tonumber(num) > 0 and tonumber(num) <= TableMaxSize(Skins) then
user:SendData(tVar.sBot,"*** You are now using the "..Skins[tonumber(num)]["name"].." skin.");
LibData[user.sName]["skin"] = Skins[tonumber(num)]["folder"];
doSaveTable(tVar.sFolder.."/"..tVar.sLibData,LibData,"LibData");
else
local s = "";
local cur = LibData[user.sName]["skin"];
for i = 1, n do
if cur == Skins[i]["folder"] then
    cur = Skins[i]["name"];
end
s = s.."\t\t"..i..".\tName: "..Skins[i]["name"].."\n\t\t\tCreator: "..Skins[i]["creator"].."\n\n"
end
        user:SendData(tVar.sBot,"*** Change your prefered skin: "..tVar.sTrig..tCmd.qSkin.." <skin number>\n\n\t\tYou are currently using the "..cur.." skin\n\n"..s);
end
else
    user:SendData(tVar.sBot,"*** No skins to choose from.");
end
end
end,

[tCmd.qShow] = function(user,data)
        if Wizard.QAC(user,tCmd.qShow) then
local _,_,cat,rel = string.find(data,"%b<>%s+%S+%s+(%d+)%.(%d+)");
if cat and rel then
if tonumber(cat) and tonumber(rel) and tonumber(cat) > 0 and tonumber(cat) <= TableMaxSize(Library) and tonumber(rel) > 0 and tonumber(rel) <= TableMaxSize(Library[tonumber(cat)]["items"]) then
local temp = {rel={cat=cat, var=rel},skin=LibData[user.sName]["skin"]};
user:SendPM(tVar.sBot,"*** Showing Release "..cat.."."..rel.."... \n\n\n"..Wizard.Tags(Wizard.ShowRel[4](temp.skin),temp));
else
user:SendData(tVar.sBot,"*** Error: Invalid release id. Expecting... example: 3.2");
end
else
user:SendData(tVar.sBot,"*** Quicky show a release by id: "..tVar.sTrig..tCmd.qShow.." <release id> ");
end
end
end,

[tCmd.qRank] = function(user,data)
        if Wizard.QAC(user,tCmd.qRank) then
local d = Wizard.Show.Divider(LibData[user.sName]["skin"])
local s = "*** Showing profile details for "..user.sName..string.gsub(d,"{release}","")
for i = 1, TableMaxSize(Library) do
for n = 1, TableMaxSize(Library[i]["items"]) do
t = Library[i]["items"][n];
if t["poster"] == user.sName then
s = s.."\n\t"..i.."."..n.." - "..t["name"]
end
end
end
s = s..string.gsub(d,"{release}","")
.."\n\tRank: "..Wizard.Show.Rank(user.sName)..", "..LibData[user.sName]["rank"].." Points"
.."\n\tTotal Number of Posts: "..LibData[user.sName]["posts"].."\n"
user:SendPM(tVar.sBot,s);
end
end,

[tCmd.qComment] = function(user,data)
        if Wizard.QAC(user,tCmd.qComment) then
local s,d = "",Wizard.Show.Divider(LibData[user.sName]["skin"])
local msg = "*** Showing all commented releases for "..user.sName..string.gsub(d,"{release}","");
for i = 1, TableMaxSize(Library) do
for n = 1, TableMaxSize(Library[i]["items"]) do
t = Library[i]["items"][n];
if t["poster"] == user.sName then
local c = 0; s = "";
for k,v in pairs(t["comments"]) do
if string.find(v,"^(.-)\n") then
local p = "";
for line in StringMatch(v,".-\n") do
p = p.."\t\t - "..line
end
s = s.."\t[ "..k.." ("..Wizard.Show.Rank(k)..") ] -\n"..p.."\n"
else
s = s.."\t[ "..k.." ("..Wizard.Show.Rank(k)..") ] - \""..v.."\"\n"
end
c=c+1;
    end
    if c > 0 then        
local r = "\n\tRelease Id: "..i.."."..n.."\n\t"..Library[i]["cname"].." - "..t.name.."\n\n"..s
msg = msg..string.gsub(d,"{release}",r);
end
end
end
end
user:SendPM(tVar.sBot,msg);
end
end,

[tCmd.qMag] = function(user,data)
        if Wizard.QAC(user,tCmd.qMag) then
local s,d = "",Wizard.Show.Divider(LibData[user.sName]["skin"])
local msg = "*** Showing all magnet links "..string.gsub(d,"{release}","");
for i = 1, TableMaxSize(Library) do
for n = 1, TableMaxSize(Library[i]["items"]) do
t = Library[i]["items"][n];
if t["mlink"] ~= "Not Included" then        
s = "\t"..Library[i]["cname"].." - "..t.name.."\n\tRelease Id: "..i.."."..n..Wizard.Show.Lines(t["mlink"],"Magnet Link")
msg = msg..string.gsub(d,"{release}",s);
end
end
end
user:SendPM(tVar.sBot,msg);
end
end,

[tCmd.qWeb] = function(user,data)
        if Wizard.QAC(user,tCmd.qMag) then
local s,d = "",Wizard.Show.Divider(LibData[user.sName]["skin"])
local msg = "*** Showing all web links "..string.gsub(d,"{release}","");
for i = 1, TableMaxSize(Library) do
for n = 1, TableMaxSize(Library[i]["items"]) do
t = Library[i]["items"][n];
if t["url"] ~= "Not Included" then        
s = "\t"..Library[i]["cname"].." - "..t.name.."\n\tRelease Id: "..i.."."..n..Wizard.Show.Lines(t["url"],"Web Link")
msg = msg..string.gsub(d,"{release}",s);
end
end
end
user:SendPM(tVar.sBot,msg);
end
end,

[tCmd.qClean] = function(user,data)
        if Wizard.QAC(user,tCmd.qClean) then
user:SendData(tVar.sBot,"*** Starting the cleaner");
local i = LibTask.Clean();
user:SendData(tVar.sBot,"*** Cleaner finished. "..i.." releases cleaned.");
end
end,

[tCmd.qAddSkin] = function(user,data)
        if Wizard.QAC(user,tCmd.qAddSkin) then
local _,_,folder,creator,name = string.find(data,"%b<>%s+%S+%s+(%S+)%s+(%S+)%s+(.*)");
if folder and creator and name then
user:SendData(tVar.sBot,"*** Added new skin: \n\n\tFolder: PtokaX/scripts/"..tVar.sFolder.."/skin/"..folder.."/\n\tCreator: "..creator.."\n\tSkin Name:"..name);
table.insert(Skins,{ ["name"] = name, ["folder"] = folder, ["creator"] = creator });
doSaveTable(tVar.sFolder.."/skin/skins.txt",Skins,"Skins");
else
        user:SendData(tVar.sBot,"*** Add a new skin: "..tVar.sTrig..tCmd.qAddSkin.." <skin folder> <creator> <descripton>");
end
end
end,
};

function Main()
frmHub:RegBot(tVar.sBot,tVar.sIsOP,tVar.sBotD,tVar.sBotE);
if tVar.sNotify ~= "off" or tVar.sOnConnect ~= "off" then
frmHub:RegBot(tVar.nBot,tVar.nIsOP,tVar.nBotD,tVar.nBotE);
end
LibTask.Start();
    SetTimer(86400000);
StartTimer();
end

function ChatArrival(user,data)
local data = string.sub(data,1,-2)
local _,_,sTrig,sCmd = string.find(data,"%b<>%s*(%S)(%S+)")
if sTrig and sCmd and sTrig == tVar.sTrig then
    if not Wizard.Start(user,data,sCmd) then
        if tQCmd[sCmd] then
            tQCmd[sCmd](user,data);
            return 1;
        end
else
    return 1;
end
end
end

function ToArrival(user,data)
if string.sub(data,6,5+(string.len(tVar.sBot))) == tVar.sBot then
data = string.sub(data,(18+string.len(tVar.sBot)+2*string.len(user.sName)),(string.len(data)-1));
local _,_,sTrig,sCmd = string.find(data,"(%S)(%S+)");
if sTrig and sCmd and sTrig == tVar.sTrig then
    if not Wizard.Start(user,data,sCmd) then
        if tQCmd[sCmd] then
            tQCmd[sCmd](user,"<"..user.sName.."> "..data);
            return 1;
        end
    end
        elseif WizTemp[user.sName] then
local wiz = WizTemp[user.sName]["wizard"];
Wizard[wiz]["Start"](user,data,WizTemp[user.sName]);
return 1;
end
end
end

function OnTimer()
LibTask.Clean();
end

Serialize = function(tTable,sTableName,hFile,sTab)
sTab = sTab or "";
hFile:write(sTab..sTableName.." = {\n");
for key,value in pairs(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

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

function doLoadFile(xFile)
local xStr = "";
local hxFile,sErr = io.open(tVar.sFolder.."/"..xFile,"r");
if hxFile then
xStr = hxFile:read("*a");
hxFile:close(xFile);
io.flush();
xStr = string.gsub(xStr,"{cls}",cls);
return xStr;
else
return nil;
end
end

function NewUserConnected(user)
if pUser[user.iProfile] == 1 then
if string.lower(tVar.sRC) == "on" then
if user.bUserCommand then
if pAdmin[user.iProfile] == 1 then
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Wizards\\Category\\New Category$<%[mynick]> "..tVar.sTrig..tCmd.sAddCat.."&#124;");
                user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Wizards\\Category\\Delete Category$<%[mynick]> "..tVar.sTrig..tCmd.sDelCat.."&#124;");
end
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Wizards\\Release\\New Release$<%[mynick]> "..tVar.sTrig..tCmd.sAddRel.."&#124;");
            user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Wizards\\Release\\New Request$<%[mynick]> "..tVar.sTrig..tCmd.sReq.."&#124;");
            user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Wizards\\Release\\Delete Release$<%[mynick]> "..tVar.sTrig..tCmd.sDelRel.."&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Wizards\\Browse The Library$<%[mynick]> "..tVar.sTrig..tCmd.sShowRel.."&#124;");
                if pAdmin[user.iProfile] == 1 then
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Quick\\Category\\New Category$<%[mynick]> "..tVar.sTrig..tCmd.qAddCat.." %[line: Expiration Time? 0 = Never or 1-99] \"%[line:Category Name?]\" %[line:Category Description?]&#124;");
                    user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Quick\\Category\\Delete Category$<%[mynick]> "..tVar.sTrig..tCmd.qDelCat.." %[line:Category Number? Leave blank for a list.]&#124;");
end
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Quick\\Release\\New Release$<%[mynick]> "..tVar.sTrig..tCmd.qAddRel.." %[line:Category Number? Leave blank for a list.] %[line:Release Name?]&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Quick\\Release\\New Request$<%[mynick]> "..tVar.sTrig..tCmd.qReq.." %[line:Request Name?]&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Quick\\Release\\Delete Release$<%[mynick]> "..tVar.sTrig..tCmd.qDelRel.." %[line:Release Id?]&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Quick\\Show Release Details$<%[mynick]> "..tVar.sTrig..tCmd.qShow.." %[line:Release Id?]&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Quick\\Show All Magnet Links$<%[mynick]> "..tVar.sTrig..tCmd.qMag.."&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Quick\\Show All Web Links$<%[mynick]> "..tVar.sTrig..tCmd.qWeb.."&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\My Rank and Posts$<%[mynick]> "..tVar.sTrig..tCmd.qRank.."&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\My Commented Posts$<%[mynick]> "..tVar.sTrig..tCmd.qComment.."&#124;");
if pAdmin[user.iProfile] == 1 then
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Run The Cleaner$<%[mynick]> "..tVar.sTrig..tCmd.qClean.."&#124;");
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Add New Skin$<%[mynick]> "..tVar.sTrig..tCmd.qAddSkin.."&#124;");
end
user:SendData("$UserCommand 1 3 "..tVar.sRCMenu.."\\Change The Skin$<%[mynick]> "..tVar.sTrig..tCmd.qSkin.." %[line:Skin Number? Leave blank for a list.]&#124;");
end
end
if not LibData[user.sName] then
LibData[user.sName] = {
["rank"] = 0,
["posts"] = 0,
["skin"] = tVar.sSkin,
};
doSaveTable(tVar.sFolder.."/"..tVar.sLibData,LibData,"LibData");
end
local temp = { ["skin"] = LibData[user.sName]["skin"] };
if TableMaxSize(LibLast) > 0 then
if tVar.sOnConnect == "pm" then
user:SendPM(tVar.nBot,Wizard.Tags(Wizard.Show.OnEntry(temp.skin),temp));
elseif tVar.sOnConnect == "main" then
    user:SendData(tVar.nBot,Wizard.Tags(Wizard.Show.OnEntry(temp.skin),temp));
end
end
end
end

OpConnected=NewUserConnected

Can someone please convert this code to the latest API? (ptokax 0.4.1.2, lua 5.1.4)
Thank you. :)

PtokaX forum

Convert this release bot please.. :)
« on: 26 July, 2010, 08:39:49 »

Offline lUk3f1l3w4lK3R

  • Junior Member
  • **
  • Posts: 19
  • Karma: +4/-0
Re: Convert this release bot please.. :)
« Reply #1 on: 26 July, 2010, 13:51:02 »
This one is allready converted.
http://forum.ptokax.org/index.php?topic=8656.0

You should use the search or have a look into the finished scripts section before making any requests.

cheers

PtokaX forum

Re: Convert this release bot please.. :)
« Reply #1 on: 26 July, 2010, 13:51:02 »