--[[
HubJumper
LUA 5.1.x
A redirect-self script
By CrazyGuy
On request by D??k][W?z??d?
Last updated April 8th 2007
]]--
sBotname = "Hub-Jumper"
cmdAddHub = "addhub"
cmdDelHub = "delhub"
cmdShowHubs = "showhubs"
cmdHelp = "redirhelp"
cmdRD = "jump"
tAddDelProfiles = { -- set which profiles can add/remove hubs
[0] = 1, -- use 1 for allowed, 0 for not allowed
[1] = 1,
[2] = 1,
[3] = 0,
[4] = 0,
[5] = 1,
[-1] = 0,
}
tShowProfiles = { -- set which profiles can see redirect hubs
[0] = 1, -- use 1 for allowed, 0 for not allowed
[1] = 1,
[2] = 1,
[3] = 1,
[4] = 1,
[5] = 1,
[-1] = 1,
}
tRDProfiles = { -- set which profiles can redirect themselves
[0] = 0, -- use 1 for allowed, 0 for not allowed
[1] = 1,
[2] = 1,
[3] = 1,
[4] = 1,
[5] = 0,
[-1] = 1,
}
tRDHubs = {
[1] = "wizardsandgoblins.myftp.org:411",
[2] = "bitcheshideout.no-ip.info:666",
[3] = "bluesplace.no-ip.info:411",
[4] = "supanova2.no-ip.org:411",
[5] = "charliesplayroom.no-ip.info:23",
[6] = "agonyaunt.no-ip.org:777",
}
tCMD = {
[cmdHelp] = function(sNick,iProf,sArg)
local sHelp = "Available commands:\n\n\t\t!"..cmdHelp.."\t\t\t-Shows this help file\n"
if tAddDelProfiles[iProf] == 1 then
sHelp = sHelp.."\n\t\t!"..cmdAddHub.." <address:port>\t-Add a hub to the list\n"
.."\t\t!"..cmdDelHub.." <address:port>\t-Delete a hub from the list\n"
end
if tShowProfiles[iProf] == 1 then
sHelp = sHelp.."\n\t\t!"..cmdShowHubs.."\t\t-Shows all hubs in the list\n"
end
if tRDProfiles[iProf] == 1 then
sHelp = sHelp.."\n\t\t!"..cmdRD.." <address:port>\t-Redirect yourself to the specified hub\n"
end
return sHelp
end,
[cmdRD] = function(sNick,iProf,sArg)
if sArg then
if tRDProfiles[iProf] == 1 then
return 1
else
return "You are not allowed to use this command"
end
else
return "Please specify an address -> !"..cmdRD.." <address:port>"
end
end,
[cmdShowHubs] = function(sNick,iProf,sArg)
if tShowProfiles[iProf] == 1 then
local sHubs = "Current hubs to redirect to:\n\n"
for k in pairs(tRDHubs) do
sHubs = sHubs.."\t\t"..tRDHubs[k].."\n"
end
return sHubs
else
return "You are not allowed to use this command"
end
end,
[cmdAddHub] = function(sNick,iProf,sArg)
if sArg then -- if address is specified
if tAddDelProfiles[iProf] == 1 then
table.insert(tRDHubs, sArg) -- add hub
return sArg.." has been added to the list"
else
return "You are not allowed to use this command"
end
else
return "Please specify an address -> !"..cmdAddHub.." <address:port>"
end
end,
[cmdDelHub] = function(sNick,iProf,sArg)
if sArg then
if tAddDelProfiles[iProf] == 1 then
for k in pairs(tRDHubs) do
if tRDHubs[k] == sArg then
table.remove(tRDHubs, k) -- remove hub
break
end
end
return sArg.." has been removed from the list"
else
return "You are not allowed to use this command"
end
else
return "Please specify an address -> !"..cmdDelHub.." <address:port>"
end
end,
}
Main = function()
frmHub:RegBot(sBotname)
end
ChatArrival = function(User,Data)
local _,_,cmd,sArgs = string.find(Data, "%b<>%s%p(%S+)%s(.*)|")
if sArgs then
if tCMD[cmd] then
local sReturn = tCMD[cmd](User.sName,User.iProfile,sArgs)
if sReturn == 1 then
-- user will be redirected
User:SendData(sBotname, "You will now be redirected to "..sArgs)
User:Redirect(sArgs, "You have choosen to be redirected to this hub. Enjoy your stay there")
else
-- return the message
User:SendData(sBotname,sReturn)
end
return 1
end
else
-- no arguments, could be show or help command
local _,_,sCmd = string.find(Data, "%b<>%s%p(%S+)|")
if tCMD[sCmd] then
User:SendData(sBotname, tCMD[sCmd](User.sName,User.iProfile,nil))
return 1
end
end
end
ToArrival = function(User,Data)
local _,_,cmd,sArgs = string.find(Data, "%b<>%s%p(%S+)%s(.*)|")
if sArgs then
if tCMD[cmd] then
local sReturn = tCMD[cmd](User.sName,User.iProfile,sArgs)
if sReturn == 1 then
-- user will be redirected
User:SendPM(sBotname, "You will now be redirected to "..sArgs)
User:Redirect(sArgs, "You have choosen to be redirected to this hub. Enjoy your stay there")
else
-- return the message
User:SendData(sBotname,sReturn)
end
return 1
end
else
-- no arguments, could be show or help command
local _,_,sCmd = string.find(Data, "%b<>%s%p(%S+)|")
if tCMD[sCmd] then
User:SendPM(sBotname, tCMD[sCmd](User.sName,User.iProfile,nil))
return 1
end
end
end
NewUserConnected = function(User)
local sMenu = frmHub:GetHubName()
User:SendData("$UserCommand 1 3 "..sMenu.."\\"..sBotname.."\\Help$<%[mynick]> !"..cmdHelp.."||")
if tAddDelProfiles[User.iProfile] == 1 then
User:SendData("$UserCommand 0 3 ||")
User:SendData("$UserCommand 1 3 "..sMenu.."\\"..sBotname.."\\Add Hub$<%[mynick]> !"..cmdAddHub.." %[line:Address]||")
User:SendData("$UserCommand 1 3 "..sMenu.."\\"..sBotname.."\\Delete Hub$<%[mynick]> !"..cmdDelHub.." %[line:Address]||")
end
if tShowProfiles[User.iProfile] == 1 then
User:SendData("$UserCommand 0 3 ||")
User:SendData("$UserCommand 1 3 "..sMenu.."\\"..sBotname.."\\Show Hubs$<%[mynick]> !"..cmdShowHubs.."||")
end
if tRDProfiles[User.iProfile] == 1 then
User:SendData("$UserCommand 0 3 ||")
User:SendData("$UserCommand 1 3 "..sMenu.."\\"..sBotname.."\\Redirect Self$<%[mynick]> !"..cmdRD.." %[line:Address]||")
end
end
OpConnected = NewUserConnected