Agree bot...
 

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

Agree bot...

Started by angelsanges, 03 March, 2004, 22:13:37

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

angelsanges

it is possible to build a bot that locks the login to an hub untill you type I AGREE?

out there there is a bot that locks "ConnectToMe", "MultiConnectToMe", "RevConnectToMe", "Search", "MultiSearch"untill you do not type I AGREE ...this bot is very useful but it does not lock the login to the hub example: i can read main-chat and send & receive messages....It is possible to lock also this untill you do not accept the disclaimer?

SORRY FOR MY ENGLISH  ?(

kepp

[-- vim:ts=4:sw=4:noet:syntax=lua
-- Disclamer Bot. (OpiumVolage 26/09/2003)

tabAccept = {}
msgOui = "I AGREE"

tabCommands = { "ConnectToMe", "MultiConnectToMe", "RevConnectToMe", "Search", "MultiSearch","To" }

function Main()
	frmHub:EnableFullData(1)
end

function NewUserConnected(user)
	if user.iProfile > 0 then return end
	user:SendData("Disclamer", "Send a message containing "..msgOui.." in CC to enable full hub.")
	tabAccept[user.sName] = 1
end

function DataArrival(user, data)
	-- On teste le niveau de l'utilisateur.
	if (user.iProfile > 0) or not tabAccept[user.sName] then return end
	if strfind(data, "^%b<>%s+"..msgOui) then
		tabAccept[user.sName] = nil
		user:SendData("Disclamer", "Thank you to agree.")
		return 1 end
	local s, e, cmd = strfind(data, "^$(%S+)")
	return foreach(tabCommands, function(id, value)
		if value == %cmd then return 1 end end)
end

This one blocks PM's aswell

i don't know how the client send the main chat part
is it $< or just '<'?
Guarding    

uradweeb

I can't get it to work,,,,ended up getting no errors but just doesn't work...all of my members are VIPS. could this have something to do with it? Also what is the first script you was talking about and where can i get it>? The one that allows chat vut not downloads until you type "I Agree"? I appreciate any help. Thank you.

plop

QuoteOriginally posted by kepp
i don't know how the client send the main chat part
is it $< or just '<'?
it's "<".

plop
http://www.plop.nl lua scripts/howto\'s.
http://www.thegoldenangel.net
http://www.vikingshub.com
http://www.lua.org

>>----> he who fights hatred with hatred, drives the spreading of hatred <----<<

SMF spam blocked by CleanTalk