Personal Version
 

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

Personal Version

Started by 6Marilyn6Manson6, 25 December, 2004, 17:31:08

Previous topic - Next topic

0 Members and 1 Guest are viewing this topic.

6Marilyn6Manson6

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

blackwings

#1
here is a script that only allows version 0.301, 0.401 and 0.668 of DC++ =
--##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


6Marilyn6Manson6

Thanks a lot blackwings

6Marilyn6Manson6

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

Madman

--##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....
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

OK now work re-thanks madman

blackwings

#6
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 :)
--##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,"


6Marilyn6Manson6

#7
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

SMF spam blocked by CleanTalk