PtokaX forum

Archive => Archived 5.0 boards => Request for scripts => Topic started by: b_w_johan on 10 March, 2005, 18:50:16

Title: client checker
Post by: b_w_johan on 10 March, 2005, 18:50:16
im looking for a weird script:
this is what it should do...


i know its a weird script but is it possible to make this ??
its for a private hub, and they should make there own client or use special clients not use an existing so thats why not everyone should enter with latest dc++ client.


greetings Johan
Title:
Post by: Pothead on 10 March, 2005, 19:34:16
What's to stop them changing the tag and saying they got a different client ?
Title:
Post by: b_w_johan on 10 March, 2005, 19:37:44

--1) create bot discription ed --working
--2) send botname and discription to userlist --working
--3.1) start timer1 --working
--3.2) start timer2 --making it work
--4) check connected user for TAG --
--5) check if this TAG is in a file called clients.txt if not add. --
--6) check if this TAG is already in the userlist. --
--7) if its in already send PM --
--8) and disconnect. --
--9) if timer1 reaches 0 then send prefix --
--10) if timer2 reaches 0 send clients.txt --
--11) if command !client send clients.txt --
--12) if command !prefix send prefix.txt --
--13) if command !addtag then add this tag to the clients.txt --
-- Maded by b_w_johan, TTB, Psvoo7
-- Maded for SCRIP']['ERS ELI']['E

BOTName = "[LUA5]Guard"
BOTDiscription = "LUA5 Scripted"
BOTVersion = "A1"
BOTTag = "<++v:"..BOTVersion.." "..BOTName..",M;A.H:0/0/3,S:0>"
BOTConnection = "2fst4u"
BOTMail = "dc.client@gmail.com"
BOTInfo = "$MyINFO $ALL "..BOTName.." "..BOTDiscription.." "..BOTTag.."$ $"..BOTConnection.." "..string.char(1).."$"..BOTMail.."$"

tag = "<[LUA5]Bot>"
info = "$MyINFO $ALL "..BOTName.." "..BOTDiscription.." "..tag.."$ $"..BOTConnection.." "..string.char(1).."$"..BOTMail.."$"

sec  = 1000
min  = sec*60
hour = min*60
days = hour*24

clientlist = 1*days
--prefix = 5*hours



function Main()
frmHub:RegBot(BOTName)
SendToAll("This hub is protected by [LUA5]Guard BOT")
SetTimer(clientlist)
StartTimer()
-- SetTimers(prefix)
-- StartTimer("1")
end

function OpConnected(user)
user:SendData(BOTInfo)
end
function NewUserConnected(user)
user:SendData(info)
end

function OnTimer()
Sendclientlist()
end

--function OnTimer("1")
-- Sendprefix()
--end

function Sendclientlist()
SendToAll("test")
end

function Sendprefix()
SendToAll("\r\nList of User Discription\r\n\r\n[DCD] = DC Destroyer\r\n[XRZ] = Nothing Special yust Special Option for our webhost/Lua scripter/JAVA programmer =-p\r\n[LUA] = Lua Bot writer good in both 4&5\r\n[LUA4] = Lua4 Bot writer\r\n[LUA5] = Lua5 Bot writer\r\n[HTM] = Web(HTML)Scripter\r\n[JAS] = Web(java)Scripter\r\n[php] = Web(PHP)Scripter\r\n[JAV] = JAVA Programmer\r\n[VB] = Visual Basic Programmer\r\n[CPP] = C++ Programmer\r\n")
end  

im trying to finish the list by myself now ...

yust copying codes from other scripts ...
but the timer 2 i can't find a script where i can copy a dual timer ...

if someone can reply with that dual timer that would be great (if you think thats bad in youre code please correct it, but don't finish the to do list =-p)

greetings Johan
Title:
Post by: b_w_johan on 14 March, 2005, 17:52:14
can someone help me with that second timer please ??

Greetings Johan