Countdown script

[Janhouse]

Can somebody write script that count down to any date.
like 01.06.2004.
And if user type !countdown then script shows PM like this:

***********************************
There are 15 days left till end of the month.
***********************************

[nErBoS]

Hi,

Hope it helps...

--Requested by Janhouse 
--Made by nErBoS

sBot = "CountDown" 

function Main() 
	frmHub:RegBot(sBot)
end 

function DataArrival(user, data)
	if (strsub(data,1,1) == "<" or strsub(data,1,5+strlen(sBot)) == "$To: "..sBot) then
		data = strsub(data,1,strlen(data)-1)
		s,e,cmd = strfind(data, "%b<>%s+(%S+)")
		if (cmd == "!countdown") then
			DayCounter(user)
			return 1
		end
	end
end

function DayCounter(user)
	local sTmp = ""
	local day = date("%d")
	day = tonumber(day)
	local month = date("%m")
	month = tonumber(day)
	if (month == 1 or month == 3 or month == 5 or month == 7 or month == 8 or month == 10 or month == 12) then
		day = 31-day
		sTmp = sTmp.."\r\n******************************************************"
		sTmp = sTmp.."\r\nThere are "..day.." days left until end of the month." 
		sTmp = sTmp.."\r\n******************************************************"
		user:SendPM(sBot, sTmp)
	elseif (month == 2) then
		day = 28-day
		sTmp = sTmp.."\r\n******************************************************"
		sTmp = sTmp.."\r\nThere are "..day.." days left until end of the month." 
		sTmp = sTmp.."\r\n******************************************************"
		user:SendPM(sBot, sTmp)
	else
		day = 30-day
		sTmp = sTmp.."\r\n******************************************************"
		sTmp = sTmp.."\r\nThere are "..day.." days left until end of the month." 
		sTmp = sTmp.."\r\n******************************************************"
		user:SendPM(sBot, sTmp)
	end
end

Best regards, nErBoS

[Janhouse]

Is it posible that it is counting down to the curent date? Like 14.07.2005.

[nErBoS]

Hi,

Not picking your request. You want the script to show the current data ??

Best regards, nErBoS

[plop]

check my countdown script, you can find it on my website.

plop

[Janhouse]

Where can I find them?