TeamBot Update
 

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

TeamBot Update

Started by Mozzilla?, 10 November, 2006, 00:28:07

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

Print
Go Down Pages1 2
User actions

Mozzilla?

10 November, 2006, 00:28:07 Last Edit: 10 November, 2006, 21:32:08 by Mozzilla?
Hope you don't mind, 6Marilyn6Manson6, but i changed a few things around and added a few things also.  Hope this update benefits some of you.

---TeamBot Update by Mozzilla?
---Description - Allows hub users to see a full list of members by profile or full lists of individual profiles
---Original author: Mutor, original source: LUA4
---comands: !listreg / !listvip / !listop / !listmod / !listmaster / !listfounder / !listall
--// Update To Lua 5.1.1 by 6Marilyn6Manson6    27/07/2006
--// Change commands: !listreg / !listvip / !listope / !listmod / !listmas / !listntf / !listown / !listall
--// Thanks bastya_elvtars for small help with return commands :)    16/08/2006

--// Changes made By Mozzilla?	09/11/2006
--// Added new command - !listown
--// Added Owner profile, just in case it is part of your hub soft
--// Added Owner to UseCMD
--// Added Right Click
--// Changed order in which !listall is displayed
--// Added 10/11/2006
--// End result will now show HubName in display

----------------------------------------------------
----------------------------------------------------
Prefix = "!"									-- ! + # ? -
sBotName = "Bot-Name-Here"						-- or frmHub:GetHubBotName(),
sHubName = frmHub:GetHubName()
----------------------------------------------------
UseCMD = {			-- What profile you want blocked 1/yes 0/no	
[0] = 1,			-- Master
[1] = 1,			-- Operator
[2] = 0,			-- VIP
[3] = 0,			-- Registered
[4] = 1,			-- Moderator
[5] = 1,			-- Netfounder
[6] = 1,			-- Owner
[-1] = 0,			-- Unregistered
}
----------------------------------------------------
SendTo = { 
[0] = 1, -- Masters 
[1] = 1, -- Operators 
[2] = 0, -- Vips 
[3] = 0, -- Regs 
[4] = 1, -- Moderator 
[5] = 1, -- NetFounder 
[6] = 1, -- Owner
[-1] = 0, -- Unregistered 
} 
----------------------------------------------------
function NewUserConnected(user) 
	if SendTo [user.iProfile] > 0 then
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Owners$<%[mynick]> !listown&#124;|")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Network Founders$<%[mynick]> !listntf&#124;|")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Masters$<%[mynick]> !listmas&#124;|")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Operators$<%[mynick]> !listope&#124;|")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Moderators$<%[mynick]> !listmod&#124;|")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All VIP's$<%[mynick]> !listvip&#124;|")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Registered Users$<%[mynick]> !listreg&#124;|")
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Hub Members$<%[mynick]> !listall&#124;|")	
	end
end

OpConnected = NewUserConnected 
----------------------------------------------------
tCommands = {
	["listreg"] = function(user)
		Show(user, "Reg")
	end,
	["listvip"] = function(user)
		Show(user, "VIP")
	end,
	["listope"] = function(user)
		Show(user, "Operator")
	end,
	["listmod"] = function(user)
		Show(user, "Moderator")
	end,
	["listmas"] = function(user)
		Show(user, "Master")
	end,
	["listntf"] = function(user)
		Show(user, "NetFounder")
	end,
	["listown"] = function(user)
		Show(user, "Owner")
	end,
	["listall"] = function(user)
		Show(user,"Owner")
		Show(user,"NetFounder")
		Show(user,"Master")
		Show(user,"Operator")
		Show(user,"Moderator")
		Show(user,"VIP")
		Show(user,"Reg")
	end,
}

function ChatArrival(user,data)
	if user.bOperator and UseCMD[user.iProfile]==1 then
		local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)%|")
		if pref == Prefix and tCommands[cmd] ~= nil then
			tCommands[cmd](user)
			return 1
		end
	end
end
----------------------------------------------------
function Show(user,which)
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"\t---<>--------------------------------------------------<>--")
	user:SendPM(sBotName,"\t\tList of Current "..which.."s")
	user:SendPM(sBotName,"\t\tIn "..sHubName)
	user:SendPM(sBotName,"\t---<>--------------------------------------------------<>--")
	local aux,usr
		for aux, usr in pairs(GetUsersByProfile(which)) do
			user:SendPM(sBotName,"\t\t"..usr)
		end
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"")
end
----------------------------------------------------
--// 6Marilyn6Manson6

6Marilyn6Manson6

#1
10 November, 2006, 08:01:45
NP and good script ;)

Herodes

#2
10 November, 2006, 08:14:37
Call me picky but nowhere in the credits I see the name of the Bot-Script,
this makes feature reference to it difficult.
Please amend...

Mozzilla?

#3
10 November, 2006, 16:11:44 Last Edit: 10 November, 2006, 16:14:37 by Mozzilla?
Quote from: 6Marilyn6Manson6 on 10 November, 2006, 08:01:45
NP and good script ;)

Thanks 6Marilyn6Manson6

Quote from: Herodes on 10 November, 2006, 08:14:37
Call me picky but nowhere in the credits I see the name of the Bot-Script,
this makes feature reference to it difficult.
Please amend...

And sorry Herodes, you're not being picky at all, it is indeed beneficial to have the name of the Bot-Script entered in the credits.
Thankyou for noticing it and pointing it out.

First post updated.

Posted on: November 10, 2006, 01:44:05 pm
Just added to the script - HubName will be shown in PM from bot

Quote[15:07:57] <??ReG~LisT???>    ---<>--------------------------------------------------<>--
[15:07:57] <??ReG~LisT???>       List of Current Master
[15:07:57] <??ReG~LisT???>       In <YOUR HUB NAME WILL APPEAR HERE>
[15:07:57] <??ReG~LisT???>    ---<>--------------------------------------------------<>--

First Post amended and updated.

CrazyGuy

#4
10 November, 2006, 17:49:51
Nice work, just saw a few things that had room for improvement.. and after reading it a few times, felt like doing so  :P



replace
function ChatArrival(user,data)
	if user.bOperator then
		if UseCMD[user.iProfile]==1 then
		local s,e,cmd = string.find(data, "%b<>%s+(%S+)(%S+)")
			if cmd == Prefix.."listreg" then
				Show(user,"Reg")
				return 1
			elseif cmd == Prefix.."listvip" then
				Show(user,"VIP")
				return 1
			elseif cmd == Prefix.."listope" then	
				Show(user,"Operator")
				return 1
			elseif cmd == Prefix.."listmod" then
				Show(user,"Moderator")
				return 1
			elseif cmd == Prefix.."listmas" then
				Show(user,"Master")
				return 1
			elseif cmd == Prefix.."listntf" then
				Show(user,"NetFounder")
				return 1
			elseif cmd == Prefix.."listown" then
				Show(user,"Owner")
				return 1
			elseif cmd == Prefix.."listall" then
				Show(user,"Owner")
				Show(user,"NetFounder")
				Show(user,"Master")
				Show(user,"Operator")
				Show(user,"Moderator")
				Show(user,"VIP")
				Show(user,"Reg")
				return 1
			end
		end
		else
	end
end


with

tCommands = {
	["listreg"] = function(user)
		Show(user, "Reg")
	end,
	["listreg"] = function(user)
		Show(user, "VIP")
	end,
	["listope"] = function(user)
		Show(user, "Operator")
	end,
	["listmod"] = function(user)
		Show(user, "Moderator")
	end,
	["listmas"] = function(user)
		Show(user, "Master")
	end,
	["listntf"] = function(user)
		Show(user, "NetFounder")
	end,
	["listown"] = function(user)
		Show(user, "Owner")
	end,
	["listall"] = function(user)
		Show(user,"Owner")
		Show(user,"NetFounder")
		Show(user,"Master")
		Show(user,"Operator")
		Show(user,"Moderator")
		Show(user,"VIP")
		Show(user,"Reg")
	end,
}

function ChatArrival(user,data)
	if user.bOperator and UseCMD[user.iProfile]==1 then
		local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)")
		if pref == Prefix and tCommands[cmd] ~= nil then
			tCommands[cmd](user)
			return 1
		end
	end
end

Mozzilla?

#5
10 November, 2006, 19:01:44
Thanks CrazyGuy, I replaced that piece of the script with your alterations and it didn't work.

All I got was the command come up in Main Chat

!listall
!listope

Thanks for your reply

CrazyGuy

#6
10 November, 2006, 19:49:40
sorry, my bad

change 

local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)")


to

local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)%|")


:)

Herodes

#7
10 November, 2006, 20:00:05
Quote from: CrazyGuy on 10 November, 2006, 19:49:40
sorry, my bad

change 

local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)")


to

local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)%|")


:)
local cmd = ( ( data:sub(1,-2) ):lower() ):match( "%b<>%s+[%!%?%+%.%#%-](%S+)" )

hihihihii.. . :)

bastya_elvtars

#8
10 November, 2006, 20:48:48
Quote from: Herodes on 10 November, 2006, 20:00:05
local cmd = ( ( data:sub(1,-2) ):lower() ):match( "%b<>%s+[%!%?%+%.%#%-](%S+)" )

hihihihii.. . :)

LOL :-D
Everything could have been anything else and it would have just as much meaning.

Mozzilla?

#9
10 November, 2006, 21:28:21
Thanks CrazyGuy.

Quote from: CrazyGuy on 10 November, 2006, 19:49:40
sorry, my bad

change 

local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)")


to

local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)%|")


:)

Also changed

["listreg"] = function(user)
		Show(user, "VIP")
	end,


to

["listvip"] = function(user)
		Show(user, "VIP")
	end,



That did work.

Quote from: Herodes on 10 November, 2006, 20:00:05
local cmd = ( ( data:sub(1,-2) ):lower() ):match( "%b<>%s+[%!%?%+%.%#%-](%S+)" )

hihihihii.. . :)

But that didn't work.


Thankyou both for your replies.

First post amended and updated.

CrazyGuy

#10
10 November, 2006, 22:36:21
Quote
Quote from: Herodes on Today at 08:00:05 pm
local cmd = ( ( data:sub(1,-2) ):lower() ):match( "%b<>%s+[%!%?%+%.%#%-](%S+)" )

hihihihii.. .
But that didn't work

LoooL  ;D

Mozzilla?

#11
11 November, 2006, 02:47:09
Does anybody have any idea how the result PM could include the following info:

Show whether a user is online or offline

Instead of

Quote[01:24:03] <??ReG~LisT???>    ---<>--------------------------------------------------<>--
[01:24:03] <??ReG~LisT???>       List of Current Masters
[01:24:03] <??ReG~LisT???>       In ReSurRecTioN NeTworkS PriVatE 100gig HuB
[01:24:03] <??ReG~LisT???>    ---<>--------------------------------------------------<>--
[01:24:03] <??ReG~LisT???>       ??l??-h??v??
[01:24:03] <??ReG~LisT???>       danielle
[01:24:03] <??ReG~LisT???>       Mark675
[01:24:03] <??ReG~LisT???>       ??l??-h??v???
[01:24:03] <??ReG~LisT???>       CLAIRNATH
[01:24:03] <??ReG~LisT???>       ]-[?LL?L?L??nG?L
[01:24:03] <??ReG~LisT???>       R????
[01:24:03] <??ReG~LisT???>       !J??J???666!?
[01:24:03] <??ReG~LisT???>       j??h?ll?8?

Make it look like this

Quote][01:24:03] <??ReG~LisT???>    ---<>--------------------------------------------------<>--
[01:24:03] <??ReG~LisT???>       List of Current Masters
[01:24:03] <??ReG~LisT???>       In ReSurRecTioN NeTworkS PriVatE 100gig HuB
[01:24:03] <??ReG~LisT???>    ---<>--------------------------------------------------<>--
[01:24:03] <??ReG~LisT???>       ??l??-h??v?? [online]
[01:24:03] <??ReG~LisT???>       danielle [offline]
[01:24:03] <??ReG~LisT???>       Mark675 [offline]
[01:24:03] <??ReG~LisT???>       ??l??-h??v??? [online]
[01:24:03] <??ReG~LisT???>       CLAIRNATH [offline]
[01:24:03] <??ReG~LisT???>       ]-[?LL?L?L??nG?L [online]
[01:24:03] <??ReG~LisT???>       R???? [offline]
[01:24:03] <??ReG~LisT???>       !J??J???666!? [offline]
[01:24:03] <??ReG~LisT???>       j??h?ll?8? [online]

Any assistance with this would be much appreciated.

CrazyGuy

#12
11 November, 2006, 18:21:44
modify your function Show to this:

function Show(user,which)
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"\t---<>--------------------------------------------------<>--")
	user:SendPM(sBotName,"\t\tList of Current "..which.."s")
	user:SendPM(sBotName,"\t\tIn "..sHubName)
	user:SendPM(sBotName,"\t---<>--------------------------------------------------<>--")
	local aux,usr
		for aux, usr in pairs(GetUsersByProfile(which)) do
			local tOnline = frmHub:GetOnlineUsers(GetProfileIdx(which))
			local bisOnline = 0
			for k in pairs(tOnline) do
				if tOnline[k].sName == usr then bisOnline = 1 end
			end
			if bisOnline == 1 then
				user:SendPM(sBotName,"\t\t"..usr.." [online]")
			else
				user:SendPM(sBotName,"\t\t"..usr.." [offline]")
			end
		end
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"")
end


result:

Quote
18:16:53] <Bot-Name-Here>    ---<>--------------------------------------------------<>--
[18:16:53] <Bot-Name-Here>       List of Current Operators
[18:16:53] <Bot-Name-Here>       In CG's TestHub
[18:16:53] <Bot-Name-Here>    ---<>--------------------------------------------------<>--
[18:16:53] <Bot-Name-Here>       clienttest [offline]
[18:16:53] <Bot-Name-Here>       Banbot [offline]
[18:16:53] <Bot-Name-Here>       CrazyGuy [online]

Mozzilla?

#13
16 November, 2006, 12:37:11
Whoops.. Sorry.. Haven't been around here for a while.  Thanks for the reply CrazyGuy

achiever

#14
21 April, 2007, 15:13:39
[18:34] Syntax D:\...\0.3.5.2[Fusion Hub]\scripts\tp.lua:112: bad argument #1 to 'pairs' (table expected, got no value)
can some 1 correct this plzz?
thks,
achiever.

6Marilyn6Manson6

#15
21 April, 2007, 15:17:25
Quote from: achiever on 21 April, 2007, 15:13:39
[18:34] Syntax D:\...\0.3.5.2[Fusion Hub]\scripts\tp.lua:112: bad argument #1 to 'pairs' (table expected, got no value)
can some 1 correct this plzz?

Post your script please

achiever

#16
21 April, 2007, 15:21:53
Quote from: 6Marilyn6Manson6 on 21 April, 2007, 15:17:25
Post your script please
---TeamBot Update by Mozzilla?
---Description - Allows hub users to see a full list of members by profile or full lists of individual profiles
---Original author: Mutor, original source: LUA4
---comands: !listreg / !listvip / !listop / !listmod / !listmaster / !listfounder / !listall
--// Update To Lua 5.1.1 by 6Marilyn6Manson6    27/07/2006
--// Change commands: !listreg / !listvip / !listope / !listmod / !listmas / !listntf / !listown / !listall
--// Thanks bastya_elvtars for small help with return commands :)    16/08/2006

--// Changes made By Mozzilla?	09/11/2006
--// Added new command - !listown
--// Added Owner profile, just in case it is part of your hub soft
--// Added Owner to UseCMD
--// Added Right Click
--// Changed order in which !listall is displayed
--// Added 10/11/2006
--// End result will now show HubName in display

----------------------------------------------------
----------------------------------------------------
Prefix = "!"									-- ! + # ? -
sBotName = "Bot-Name-Here"						-- or frmHub:GetHubBotName(),
sHubName = frmHub:GetHubName()
----------------------------------------------------
UseCMD = {			-- What profile you want blocked 1/yes 0/no	
[0] = 1,			-- Master
[1] = 1,			-- Operator
[2] = 1,			-- VIP
[3] = 1,			-- Registered
[4] = 1,			-- Moderator
[5] = 1,			-- Netfounder
[6] = 1,			-- Owner
[-1] = 0,			-- Unregistered
}
----------------------------------------------------
SendTo = { 
[0] = 1, -- Masters 
[1] = 1, -- Operators 
[2] = 0, -- Vips 
[3] = 0, -- Regs 
[4] = 1, -- Moderator 
[5] = 1, -- NetFounder 
[6] = 1, -- Owner
[-1] = 0, -- Unregistered 
} 
----------------------------------------------------
function NewUserConnected(user) 
	if SendTo [user.iProfile] > 0 then
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Owners$<%[mynick]> !listown||")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Network Founders$<%[mynick]> !listntf||")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Masters$<%[mynick]> !listmas||")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Operators$<%[mynick]> !listope||")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Moderators$<%[mynick]> !listmod||")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All VIP's$<%[mynick]> !listvip||")	
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Registered Users$<%[mynick]> !listreg||")
	user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Hub Members$<%[mynick]> !listall||")	
	end
end

OpConnected = NewUserConnected 
----------------------------------------------------
tCommands = {
	["listreg"] = function(user)
		Show(user, "Reg")
	end,
	["listvip"] = function(user)
		Show(user, "VIP")
	end,
	["listope"] = function(user)
		Show(user, "Operator")
	end,
	["listmod"] = function(user)
		Show(user, "Moderator")
	end,
	["listmas"] = function(user)
		Show(user, "Master")
	end,
	["listntf"] = function(user)
		Show(user, "NetFounder")
	end,
	["listown"] = function(user)
		Show(user, "Owner")
	end,
	["listall"] = function(user)
		Show(user,"Owner")
		Show(user,"NetFounder")
		Show(user,"Master")
		Show(user,"Operator")
		Show(user,"Moderator")
		Show(user,"VIP")
		Show(user,"Reg")
	end,
}

function ChatArrival(user,data)
	if user.bOperator and UseCMD[user.iProfile]==1 then
		local _,_,pref,cmd = string.find(data, "%b<>%s+(%p)(%S+)%|")
		if pref == Prefix and tCommands[cmd] ~= nil then
			tCommands[cmd](user)
			return 1
		end
	end
end
----------------------------------------------------
function Show(user,which)
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"\t---<>--------------------------------------------------<>--")
	user:SendPM(sBotName,"\t\tList of Current "..which.."s")
	user:SendPM(sBotName,"\t\tIn "..sHubName)
	user:SendPM(sBotName,"\t---<>--------------------------------------------------<>--")
	local aux,usr
		for aux, usr in pairs(GetUsersByProfile(which)) do
			user:SendPM(sBotName,"\t\t"..usr)
		end
	user:SendPM(sBotName,"")
	user:SendPM(sBotName,"")
end
----------------------------------------------------
--// 6Marilyn6Manson6
thks,
achiever.

6Marilyn6Manson6

#17
21 April, 2007, 15:31:17
Whedn you receive this error?

achiever

#18
21 April, 2007, 15:34:42
i think when i was trying list masters or some other command not sure, just got list of regs.
thks,
achiever.

Madman

#19
21 April, 2007, 16:23:40
this script support more then px standard profiles.
check if you have Moderator, NetFounder, Owner profiles, if you don't remove everything that has to do with those profiels from the script...
We suffer in silence, we lurk in the shadows, we kill in the night
Site currently down, ETA of returning online is 2099 ;p

achiever

#20
21 April, 2007, 19:00:35
Moderator, NetFounder, Master, Operator, Vip, and Reg these all profiles i have in my hub, so what i need to change?
thks,
achiever.

Madman

#21
22 April, 2007, 01:00:07
you don't have Owner

find and delete this...
user:SendData("$UserCommand 1 3 "..sBotName.."\\List All Owners$<%[mynick]> !listown||")


["listown"] = function(user)
		Show(user, "Owner")
	end,


Show(user,"Owner")
We suffer in silence, we lurk in the shadows, we kill in the night
Site currently down, ETA of returning online is 2099 ;p

6Marilyn6Manson6

#22
22 April, 2007, 01:07:49
Yeah right, because in !listall for see all profile you don't have Owner profile and command search this profile and not exist, after made error...delete in your code what have write Madman in his post ^^

achiever

#23
23 April, 2007, 17:29:14
working fine now thks,

can this be made such that if a perticular profile has no entry then it should say so... in place of showing a blank-list.

thks
thks,
achiever.

Madman

#24
23 April, 2007, 19:24:03 Last Edit: 23 April, 2007, 19:38:06 by Madman
Yup, done...

Code: lua
-- Added msg for missing profile, Madman
function Show(user,which)
	Prof = GetUsersByProfile(which)
	if Prof == nil then
		user:SendPM(sBotName, "Profile " ..which.. " was not found in this hub")
	else
		Msg = "\n\n\t---<>" ..string.rep("-",50).. "<>--\n"
		Msg = Msg.."\t\tList of Current "..which.."s\n\t\tIn "..sHubName.."\n"
		Msg = Msg.."\t---<>" ..string.rep("-",50).. "<>--\n"
			local aux,usr
			for aux, usr in pairs(Prof) do
				Msg = Msg.."\t\t"..usr.."\n"
			end
		user:SendPM(sBotName,Msg)
	end
end
We suffer in silence, we lurk in the shadows, we kill in the night
Site currently down, ETA of returning online is 2099 ;p
Print
Go Up Pages1 2
User actions
SMF spam blocked by CleanTalk