Another Clone 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

Another Clone Script

Started by nEgativE, 16 March, 2005, 11:30:33

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

nEgativE

Hi there, can someone help me with this Clone Script, i think is not working well to me, tks in advance []'s

-- Made By nErBoS

Bot = "[operserv]"

PmOps = "yes"
CheckOps = "no"

OkClones = {["[operlink]"]=1,}
OkIPs = {["192.168.2.1"]=1,["127.0.0.1"]=1,}

function Main()
--frmHub:EnableFullData(1)
end

function ChatArrival(user,sdata)

	if CheckOps == "no" and user.bOperator then 
	else
	if not OkClones[user.sName] and not OkIPs[user.sIP] then
	local _,_, user1 = string.find(sdata,"$GetINFO%s+(%S+)%s+") 
	if user1 ~= user.sName then
	Nick = GetItemByName(user1)
	if Nick ~= nil then 
	if Nick.sIP == user.sIP then
	user:SendData(Bot, ""..user.sName..", n?o ? permitido clones no DC:CLP.")
	user:SendData(Bot, ""..user.sName..", se voc? est? conectando em rede informe o seu Nick e/ou IP fixo para: servidor.dc@gmail.com")
	user:Disconnect()
	Nick:SendData(Bot, ""..Nick.sName..", n?o ? permitido clones no DC:CLP.")
	Nick:SendData(Bot, ""..Nick.sName..", se voc? est? conectando em rede informe o seu Nick e/ou IP fixo para: servidor.dc@gmail.com")
	Nick:Disconnect()
	if PmOps == "yes" then   
	SendToOps(Bot, "OP MSG - Usu?rios: "..user.sName.." e "..Nick.sName..", foram ambos desconectados do Hub - Motivo: Clones") 
	appendto("Data/CLP.Logs.dat") 
	write("DC:CLP - Data: "..os.date("%d").."/"..os.date("%m").."/"..os.date("%Y").." - Horas: "..os.date("%T").." - Usu?rios: "..user.sName.." e "..Nick.sName..", foram ambos desconectados do DC:CLP - Motivo: Clones\r\n") 
	writeto()
end
end
end
end
end
end
end

Herodes

Not tested,... and not sure it works, but pls try it out ;)
-- Made By nErBoS
--- touched by Herodes ( L5 Conversion )
Bot = "[operserv]"
PmOps = "yes"
CheckOps = "no"
OkClones = {
	["[operlink]"]=1,
}
OkIPs = {
	["192.168.2.1"]=1,
	["127.0.0.1"]=1,
}

function ChatArrival(user,sdata)
	if CheckOps ~= "no" and not user.bOperator then 
		if not OkClones[user.sName] and not OkIPs[user.sIP] then
			local _,_, user1 = string.find(sdata,"$GetINFO%s+(%S+)%s+") 
			if user1 ~= user.sName then
				Nick = GetItemByName(user1)
				if Nick and Nick.sIP == user.sIP then
					user:SendData(Bot, ""..user.sName..", nao e permitido clones no DC:CLP.")
					user:SendData(Bot, ""..user.sName..", se voce esta conectando em rede informe o seu Nick e/ou IP fixo para: [EMAIL]servidor.dc@gmail.com[/EMAIL]")
					user:Disconnect()
					Nick:SendData(Bot, ""..Nick.sName..", nao e permitido clones no DC:CLP.")
					Nick:SendData(Bot, ""..Nick.sName..", se voce esta conectando em rede informe o seu Nick e/ou IP fixo para: [EMAIL]servidor.dc@gmail.com[/EMAIL]")
					Nick:Disconnect()
					if PmOps == "yes" then 
						SendToOps(Bot, "OP MSG - Usuarios: "..user.sName.." e "..Nick.sName..", foram ambos desconectados do Hub - Motivo: Clones") 
						local file = io.open("Data/CLP.Logs.dat", "a+") -- "a+"
						file:write( os.date("DC:CLP - Data: %d/%m/%Y - Horas: %T").." - Usuarios: "..user.sName.." e "..Nick.sName..", foram ambos desconectados do DC:CLP - Motivo: Clones\r\n")
						file:close()
					end
				end
			end
		end
	end
end

nEgativE


Herodes

QuoteOriginally posted by Luso
nop :(
that's not good enough,...
pls gimme an error or a description of what does/doesn't happen...
In Ptx I get no errors and the script logic (from what I can tell) works ..

jiten

Hum, I also requested some help with a LUA 5 clone script, but, it had some problems with the MyINFOArrival. bastya is having a look at it now, so, as he said, "it will be ready asap" and u can use it too.  :]
By the way, I'm going to have a look at this one.
Best regards.

SMF spam blocked by CleanTalk