PtokaX forum

Archive => Archived 5.1 boards => Request for scripts => Topic started by: ReNeGaDe on 06 June, 2006, 08:41:02

Title: Script for hiding share
Post by: ReNeGaDe on 06 June, 2006, 08:41:02
Hello there!
It's my first post.. I am looking for a script that would let my operators, hide their share..
I dont know if a similar request was posted before..
Hope it's possible to create!
Thnx ijn advance ;)
ReNeGaDe
Title: Re: Script for hiding share
Post by: Dessamator on 06 June, 2006, 08:49:40
It has indeed been posted before, search the forum for ur answer.
Title: Re: Script for hiding share
Post by: -SkA- on 06 June, 2006, 08:52:44

-- Ops Share Hider Script By ??????Hawk??????
-- 28/11/2005
-- Hides Your Share From the user list
-- Compatible with Terminator One
-- http://www.hawks-world.com

function Main()
sTable["loadfile"]()
end


OpConnected = NewUserConnected

function OnTimer()
for a,b in pairs(sTable.Hiders) do
Nick = GetItemByName(a)
if Nick then
s,e,name,desc,speed,email,share = string.find(Nick.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
SendToAll( "$MyINFO $ALL "..name.." "..desc.."$ $"..speed.."$"..email.."$0$")
end
end
  StopTimer()
end


function ChatArrival(user, data)
local s, e, cmd = string.find(data, "%b<>%s+(%S+).*|")
if sTable.tAllowList[user.iProfile] == 1 and cmd and sTable.commands[cmd] then
return sTable.commands[cmd](user, data)
end
end

sTable = {
["Menu"] = "Share-Hider",
["Bot"] = frmHub:GetHubBotName(),
Hiders = {},

tAllowList = {
[0] = 1,
[1] = 1,
[2] = 0, --// Profiles Allowed to use the command  1 yes  / 0 No
[3] = 0,
[4] = 0,
[5] = 1,
},

commands = {
["!unhideshare"] = function(user, data)
if sTable.Hiders[user.sName] then
local s,e,name,desc,speed,email,share = string.find(user.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
SendToAll( "$MyINFO $ALL "..name.." "..desc.."$ $"..speed.."$"..email.."$"..share.."$")
sTable.Hiders[user.sName] = nil
user:SendData(sTable["Bot"],"Your Share Has been added to userlist!")
end
return 1
end,

["!hideshare"] = function(user, data)
local s,e,name,desc,speed,email,share = string.find(user.sMyInfoString, "$MyINFO $ALL (%S+)%s+([^$]*)$ $([^$]*)$([^$]*)$([^$]+)")
SendToAll( "$MyINFO $ALL "..name.." "..desc.."$ $"..speed.."$"..email.."$0$")
sTable.Hiders[user.sName] = 1
sTable["SaveTable"]()
user:SendData(sTable["Bot"]," Your Share Has been removed from userlist!")
return 1
end ,
},

["loadfile"] = function()
local f,e = io.open("ShareHidden.lst","r")
if f then
while 1 do
line = f:read("*l")
if line ==  nil then
break
end
local s,e,InfoOne,InfoTwo = string.find(line, "(.+)$$$(.+)")
if InfoOne ~= nil then
sTable.Hiders[InfoOne]=InfoTwo
end
end
f:close(f)
else
f,e = io.open("ShareHidden.lst", "w" )
f:write()
f:close()
end
end,

["SaveTable"] = function()
local ipairs f,e = io.open("ShareHidden.lst", "w" )
for aaa,bbb in pairs(sTable.Hiders) do
f:write(aaa.."$$$"..bbb.."\n")
end
f:close()
end,
}

Title: Re: Script for hiding share
Post by: Markitos on 06 June, 2006, 10:37:40
local ipairs f,e = io.open("ShareHidden.lst", "w" )???
Title: Re: Script for hiding share
Post by: bastya_elvtars on 06 June, 2006, 15:49:41
I have updated this script before. Search the forums.
Title: Re: Script for hiding share
Post by: speedX on 12 October, 2006, 06:39:08
hello,
Is it possible in this script tht if i hide some one's share it is still added to the total hub share ?
Title: Re: Script for hiding share
Post by: Rincewind on 12 October, 2006, 09:00:00
I believe the total share shown below the userlist in the client is calculated by the client based on the information about the users it receives. If a user is hiding their share then their share information is not available to the client for inclusion in the calculation.