moddiey this script
 

News:

29 December 2022 - PtokaX 0.5.3.0 (20th anniversary edition) released...
11 April 2017 - PtokaX 0.5.2.2 released...
8 April 2015 Anti child and anti pedo pr0n scripts are not allowed anymore on this board!
28 September 2015 - PtokaX 0.5.2.1 for Windows 10 IoT released...
3 September 2015 - PtokaX 0.5.2.1 released...
16 August 2015 - PtokaX 0.5.2.0 released...
1 August 2015 - Crowdfunding for ADC protocol support in PtokaX ended. Clearly nobody want ADC support...
30 June 2015 - PtokaX 0.5.1.0 released...
30 April 2015 Crowdfunding for ADC protocol support in PtokaX
26 April 2015 New support hub!
20 February 2015 - PtokaX 0.5.0.3 released...
13 April 2014 - PtokaX 0.5.0.2 released...
23 March 2014 - PtokaX testing version 0.5.0.1 build 454 is available.
04 March 2014 - PtokaX.org sites were temporary down because of DDOS attacks and issues with hosting service provider.

Main Menu

moddiey this script

Started by Mr.T, 12 January, 2008, 17:22:17

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Mr.T

is it possible to make this script so only op master and founder can download and search in the hub i wont have that in my reg hub

--[[

	ChatOnly 1.0 LUA 5.0/5.1	01/28/07

	by Mutor

	Blocks file transfers and searches.
]]

function NewUserConnected(user, data)
	-- Botname pulled from the hub
	local BlockBot = frmHub:GetHubBotName()
	-- Message to send to users at login
	local msg = "\r\n\r\n\tL?gg m?rke till "..user.sName..", H?r inne "..
	"Kan man inte tanka filer eller s?ka i denna hub endast f?r reg till Lino-Hub.\r\n\r\n"
	user:SendData(BlockBot,msg)
end
OpConnected = NewUserConnected

ConnectToMeArrival = function(user, data)
	user:SendData("Transfers are disabled here in "..
	frmHub:GetHubName()..". Please clear your download queue.")
	return 1
end
RevConnectToMeArrival,MultiConnectToMeArrival = ConnectToMeArrival,ConnectToMeArrival

SearchArrival = function (user, data)
	local s,e,search = string.find(data,"([^%?]+)|$")
	local res = "Unknown Path"..string.char(92)..user.sName..", This is a chat "..
	"only hub search is disabled. "..string.rep("\t",100)..search
	user:SendData("$SR "..frmHub:GetHubBotName().." "..res.." 0 0/0"..
	frmHub:GetHubName().." ("..frmHub:GetHubIp()..":"..frmHub:GetHubUdpPort()..")")
	return 1
end

SRArrival = function(user, data)
	return 1
end
UDPSRArrival = SRArrival

bastya_elvtars

Purpose of such a restriction?
Everything could have been anything else and it would have just as much meaning.

Mr.T

reg and user cant download or search vip op master netfounder can serach in the hub if you now what i mean ;)

speedX

#3
Maybe this will work:

--[[

   ChatOnly 1.0 LUA 5.0/5.1   01/28/07

   by Mutor

   Blocks file transfers and searches.

   Mod by speedX   01/12/08
]]
-- Select the Profiles to be blocked: 1 = Block; 0 = Dont Block
tBlock = {
        [-1] = 1,       -- Unregistered User
        [0] = 0,        -- Master
        [1] = 0,        -- Operator
        [2] = 0,        -- Vip
        [3] = 1,        -- Registered User
}
        
function NewUserConnected(user, data)
  if tBlock[user.iProfile] == 1 then
   -- Botname pulled from the hub
   local BlockBot = frmHub:GetHubBotName()
   -- Message to send to users at login
   local msg = "\r\n\r\n\tL?gg m?rke till "..user.sName..", H?r inne "..
   "Kan man inte tanka filer eller s?ka i denna hub endast f?r reg till Lino-Hub.\r\n\r\n"
   user:SendData(BlockBot,msg)
  end
end
OpConnected = NewUserConnected

ConnectToMeArrival = function(user, data)
  if tBlock[user.iProfile] == 1 then
   user:SendData("Transfers are disabled here in "..
   frmHub:GetHubName()..". Please clear your download queue.")
   return 1
  end
end
RevConnectToMeArrival,MultiConnectToMeArrival = ConnectToMeArrival,ConnectToMeArrival

SearchArrival = function (user, data)
  if tBlock[user.iProfile] == 1 then
   local s,e,search = string.find(data,"([^%?]+)|$")
   local res = "Unknown Path"..string.char(92)..user.sName..", This is a chat "..
   "only hub search is disabled. "..string.rep("\t",100)..search
   user:SendData("$SR "..frmHub:GetHubBotName().." "..res.." 0 0/0"..
   frmHub:GetHubName().." ("..frmHub:GetHubIp()..":"..frmHub:GetHubUdpPort()..")")
   return 1
  end
end

SRArrival = function(user, data)
   return 1
end
UDPSRArrival = SRArrival
Thanking You,

speedX

Gnuff?

Quote from: Mr.T on 12 January, 2008, 19:08:46
reg and user cant download or search vip op master netfounder can serach in the hub if you now what i mean ;)

Why not make it a private hub then, if users are not allowed to search and download?
Gnuff

Mr.T

Thanks speedX i works great :)

SMF spam blocked by CleanTalk