Print Page - Personal Version

Title: Personal Version
Post by: 6Marilyn6Manson6 on 25 December, 2004, 17:31:08

Hello I request 2 script......

Script for login only client iDC++ with minim version [example 1.072]

and

script... where I choose version of login: example.. in my hub I want only DC++ version 301 401 and 668 only... this 3 version... I choose version of login

Is it possible made this 2 scripts? Thanks a lot

Title:
Post by: blackwings on 25 December, 2004, 20:45:14

here is a script that only allows version 0.301, 0.401 and 0.668 of DC++ =

Code Select

--##Client checker that only allowes 3 versions of Original DC++
--##Made by blackwings

Bot="Client-Checker"

function Main()
	frmHub:RegBot(Bot)
end

function DataArrival(User , data)
	if strsub(data, 1, 7) == "$MyINFO"  and not User.bOperator then	
		if strfind(data,"V:(0.%d+)") then
			if strfind(data, "<++") 
				if (strfind(data, "V:0.301")) or (strfind(data, "V:0.401")) or (strfind(data, "V:0.668")) then
				else
					User:SendData(Bot,"Only version 0.301, 0.401 and 0.668 of Original DC++ is allowed.")
					User:Disconnect()
				end
			end
		end
	end
end

Title:
Post by: 6Marilyn6Manson6 on 25 December, 2004, 21:11:49

Thanks a lot blackwings

Title:
Post by: 6Marilyn6Manson6 on 25 December, 2004, 22:42:36

Hello black.... I have TitMouse and....script have error in line 14... can you resolve it? thanks ^^

Title:
Post by: Madman on 25 December, 2004, 23:45:18

Code Select

--##Client checker that only allowes 3 versions of Original DC++
--##Made by blackwings
--//Modded And Bug Fixed By Madman

Bot="Client-Checker"

function Main()
	frmHub:RegBot(Bot)
end

function DataArrival(User , data)
	if strsub(data, 1, 7) == "$MyINFO"  and not User.bOperator then
		if strfind(data,"V:(%d+)") then
			if (strfind(data, "V:0.301")) or (strfind(data, "V:0.401")) or (strfind(data, "V:0.668")) then
			else
				User:SendData(Bot,"Only version 0.301, 0.401 and 0.668 of Original DC++ is allowed.")
				User:Disconnect()
			end
		end
	end
end

Fixed....
Also fixed so it dont check for <++
when it checked for that it let all dc clients in
now it dosent matter how the tag looks...
if they dont got 0.301, 0.401 or 0.688 in there tag they wont come in....

Title:
Post by: 6Marilyn6Manson6 on 26 December, 2004, 00:02:56

OK now work re-thanks madman

Title:
Post by: blackwings on 26 December, 2004, 00:18:12

This script does the both things Marilyn asked for.
I haven't tested it and was pretty tired when I wrote it, so forgive me if the iDC doesn't work :)

Code Select

--##Client checker that only allowes 3 versions of Original DC++
--##Made by blackwings
--//Modded And Bug Fixed By Madman
--//Added iDC check by blackwings

Bot="Client-Checker"

version="1.072"

function Main()
	frmHub:RegBot(Bot)
end

function DataArrival(User , data)
	if strsub(data, 1, 7) == "$MyINFO"  and not User.bOperator then
		if (strfind(data,"V:(1.%d+)")>=version) then
			if strfind(data,"			else
				User:SendData(Bot,"Either you don't have iDC or you don't have iDC version 1.072 or higher.")
				User:Disconnect()
			end
		elseif strfind(data,"V:(0.%d+)") then
			if (strfind(data, "V:0.301")) or (strfind(data, "V:0.401")) or (strfind(data, "V:0.668")) then
			else
				User:SendData(Bot,"Only version 0.301, 0.401 and 0.668 of Original DC++ is allowed.")
				User:Disconnect()
			end
		end
	end
end

Title:
Post by: 6Marilyn6Manson6 on 26 December, 2004, 00:20:39

HIIHHIIH very very very good :p I'm betatester of iDC++.. only 3 betatester of the world and I'm 1 of this.. Thanks blackkkkkkkkkk (K) ahahahh LOL

PtokaX forum

Archive => Archived 4.0 boards => Request for Lua 4 scripts => Topic started by: 6Marilyn6Manson6 on 25 December, 2004, 17:31:08