PtokaX forum

I wanted a birthday script showing birthdays of
users and celebrity's with some msg. or ascii at
short intervals

Check this thread (http://board.univ-angers.fr/thread.php?threadid=4102&boardid=29&sid=e045210d232f4f9b03a3b7b9815b6165) .

Cheers

there is nothing about celebrities birthday in
thread you have mentioned.....

I have downloaded birthdaybot ver3.5 from
http://www.plop.nl/ptokaxbots/Herodes.php

but I am getting following following error =
scripts\birthdayv3.5.lua:550: attempt to call global `readfrom' (a nil value)

this script is too big so I can't paste here

regards...

QuoteOriginally posted by kash?
but I am getting following following error =
scripts\birthdayv3.5.lua:550: attempt to call global `readfrom' (a nil value)

this is because I haven't had the time to make a Lua5 version of it... (apart from testing the previously requested features).. if some1 wants to give it a try I'd be happy to see it ..

Try this:

Part 1

--- BirthdayMan v 3.5
--- by Herodes -- Update 5/10/2004
--- Converted to Lua 5 by jiten (some ideas taken from BirthdayMan v 2.6 LUA_5.0 by TT and Jelf)
--- --- --- --- --- ---
-- v2.5
--- When Users are connected if there is a birthday it informs
--- When a Birhtday-User connect it plays surprise and informs the Hub
-- v2.6
--- Fix from ... comment for the display age
-- v 3
--- ability to display the Birthday nicks in the topic of the hub ... ( all of them ... the Ofline ones are in parentheses like (Herodes))
--- added agecmd to get exact age
--- added bhelpcmd
--- added display of birthdays in the findcmd
--- added ability for pm or main cmds .. ;)
-- v3.5
--- added integration of zodiac signs in various parts of the script
--- added celebrities birthdays with a switch to load or not the file
--- added celebcmd ,... works like findcmd but for celebrities
--- added switch for displaying birthday in topic
--- --- --- --- --- ---
----- do not edit these four lines
sec = 1000
minutes = 1000*60
hours = 1000*(60^2)
TxtSend = nil
----- Edit at will
bBot = "Surprise"
timecheck = 12*hours --- how much time before checking for birthdays ...
TopicShow = 1 --- to display the birthday nicks in the Hub's Topic ... ( 1/0 : enabled / disabled )

tProfiles = {  ---- profile rights to commands, 0 cant use the bot at all, 1 can use listcmd/addcmd/findcmd/agecmd/agecmd/bhelpcmd , 2 can also use delcmd and addbircmd...
["-1"] = 1, --- Unregs
["0"] = 2,   --- Masters
["1"] = 2,   --- Operators
["2"] = 1, --- VIPs
["3"] = 1, --- Regs
["4"] = 1, --- Moderator
["5"] = 2, --- NetFounder
}

--- ( carry on typing your profiles in the right format : ["profile_number"] = value (0/1/2)
addcmd = "!mybirthday" --- !mybirthday dd/mm/yyyy      dd = day ,   mm = month ,    yyyy = year .... Sets your birthday!
delcmd = "!delbirthday" --- !delbirthday     is needed ... deletes 's birthday from the list
listcmd = "!birthdays" --- !birthdays Lists the birthdays stored
addbircmd = "!addbirth" --- !addbirth same as addcmd
findcmd = "!bornon" --- !bornon Shows a nice list of the ppl you share dates with ;)
celebcmd = "!celeb" --- !celeb Shows a nice list of celebrities that share the same dates with your birthday :) (only if celebrities are loaded!! )
agecmd = "!myage" --- !myage Shows you your age :)
bhelpcmd = "!bhelp" --- !bhelp Shows the cmds for the bot and some short explaination
birthdayfile = "cake.txt" --- The file that will be displayed on Birthday
oldestyear = 1900 --- !mybirthday 0/0/0000  situations are avoided ( lol )
allowedage = 6 --- !mybirthday situations are avoided (in years)
titshow = 1 --- Set this to 0 if you dont want to display the birthday ppl in the Hubs Topic
birthlog = "birthdays.tbl" --- The file where we'll be storing the birthdays ...  << has to be in your scripts folder
loadcelebs = 1 --- Set this to 0 if you dont want to load the celebrities file ( costs about 2Mbs of mem )
celbirhtfile = "CelebBirths.tbl"

local f,e = io.open( birthlog, "a+" ) --//Error handle.. makes sure save file and dir exist...
f,e = io.open( birthlog, "a+" )
if f then
f:write("" )
f:close() --// file and path did not exist.. now they do.
else
birthlog = "birthdays.tbl"--//this is only if the path provided is invalid to winblows. defaults to a file in the scripts dir.
end

require(birthlog)

--- // --- Script-Starts
tBirthdays = {}
tCelebs = {}
tCalendar = {
[1] = { 31, "January", },
[2] = { 28, "February", },
[3] = { 31, "March", },
[4] = { 30, "April", },
[5] = { 31, "May", },
[6] = { 30, "June", },
[7] = { 31, "July", },
[8] = { 31, "August", },
[9] = { 30, "September", },
[10] = { 31, "October", },
[11] = { 30, "November", },
[12] = { 31, "December", },
}


function Main()
dofile(birthlog)
if loadcelebs ~= 0 then
dofile(celbirhtfile)
else
tCelebs = nil
end
tCalendar[2][1] = FixFebruary(tonumber(os.date("%Y")))

local hr = tonumber(os.date("%H"))*60*60*1000
local mins = 0
if tonumber(os.date("%M")) == 0 then
mins = 1
else
mins = tonumber(os.date("%M"))*60*1000
end
fixTime(hr+mins)
frmHub:UnregBot(bBot)
frmHub:RegBot(bBot)
end

function OnTimer()
CheckBirthdays()
TxtSend = nil
end

function NewUserConnected(user)
for i, v in tBirthdays do
if tBirthdays[i][2] == tonumber(os.date("%m")) and tBirthdays[i][1] == tonumber(os.date("%d")) then
if user.sName ~= i then
local msg = "Its "..i.."'s birhtday today .. ;D Turning "..(tonumber(os.date("%Y"))-tBirthdays[i][3] ).." today,... give a wish :)"
if GetItemByName(i) then
user:SendData(bBot, msg)
else user:SendData(bBot, msg.." when he comes online")
end
else
user:SendData(bBot, "Hey I know !!! YOU HAVE YOUR BIRTHDAY TODAY !!! HAPPIEST OF BIRTHDAYS !!!! ")
SendToAll(bBot, "Guys !! "..user.sName.." is here! What do we say ?? : )")
end
end
end
end

OpConnected = NewUserConnected

function CheckBirthdays()
tNow = {}
local count = 0
local yeah = nil
for i, v in tBirthdays do
if tBirthdays[i][2] == tonumber(os.date("%m")) then
if tBirthdays[i][1] == tonumber(os.date("%d")) then
if GetItemByName(i) then
local happy = GetItemByName(i)
DoHappyBirthday(happy)
yeah = 1
end
count = count + 1
if yeah == nil then
tNow[count] = "("..i..")"
else
tNow[count] = i
end
end
end
yeah = nil
end
if titshow ~= 0 then
local tit = ""
local ct = 0
for i,v in tNow do
if ct == 0 then
tit = " "..v
else
tit = tit..", "..v
end
ct = ct +1
end
if ct > 1 then
tit = "s "..tit
end
topic = frmHub:GetHubName()
frmHub:SetHubName(topic.." - Today is the birthday of the following user"..tit)
end
end

function FixFebruary(y)
local value = 0
if (tonumber(y)/4) - (math.floor(tonumber(y)/4)) == 0 then
value = 29
else value = 28
end
return value
end

function fixTime(now)
if now < timecheck then
now = timecheck-now
elseif now > timecheck then
now = now-timecheck
else now = timecheck
end
SetTimer(now)
StartTimer()
end

function ChatArrival(user, data)
prof = user.iProfile
local how = nil
if prof == nil then
prof = "-1"
end
if tProfiles[""..prof..""] >= 1 then
data = string.sub(data, 1, string.len(data)-1)
s,e,cmd,args = string.find(data, "%b<>%s+(%S+)%s*(.*)")
if cmd == addcmd then
CheckBirthdays()
AddBirthDay(user, args, how)
return 1
elseif cmd == addbircmd and tProfiles[""..prof..""] == 2 then
CheckBirthdays()
AddBirthDay(user, args, how)
return 1
elseif cmd == delcmd and tProfiles[""..prof..""] == 2 then
DelBirth(user, args, how)
return 1
elseif cmd == listcmd then
ListBirths(user, how)
return 1
elseif cmd == findcmd then
BornOn(user, tBirthdays, "people", how)
return 1
elseif cmd == celebcmd then
if loadcelebs ~= 0 then
BornOn(user, tCelebs, "celebrities", how)
else
SendBack(" The celebrities file is not loaded.", user, how)
end
return 1
elseif cmd == agecmd then
ExactAge(user, how)
return 1
elseif cmd == bhelpcmd then
BHelp(user, how)
return 1
end
end
end

ToArrival = ChatArrival

function Zodiac(table)
tZodiacs = {
[1] = { 21, "Capricorn", "Aquarius" },
[2] = { 20, "Aquarius", "Pisces" },
[3] = { 21, "Pisces",  "Aries" },
[4] = { 21, "Aries", "Taurus" },
[5] = { 22, "Taurus", "Gemini" },
[6] = { 22, "Gemini", "Cancer" },
[7] = { 23, "Cancer", "Leo" },
[8] = { 22, "Leo", "Virgo" },
[9] = { 24, "Virgo", "Libra" },
[10] = { 24, "Libra", "Scorpio" },
[11] = { 23, "Scorpio", "Sagittarius" },
[12] = { 23, "Sagittarius", "Capricorn"},
}
if tZodiacs[table[2]][1] > table[1] then
return tZodiacs[table[2]][2]
else
return tZodiacs[table[2]][3]
end
end

function BornOn(user, table, what, how)
if tBirthdays[user.sName] then
local lmsg = "\r\n These are the "..what.." that are born the same number-day as you\r\n"
lmsg = lmsg..FindSame(table, tBirthdays[user.sName][1] , "day", user.sName).."\r\n"
lmsg = lmsg.." These are the "..what.." that are born the same month as you\r\n"
lmsg = lmsg..FindSame(table, tBirthdays[user.sName][2] , "month", user.sName).."\r\n"
lmsg = lmsg.." These are the "..what.." that are born the same year as you\r\n"
lmsg = lmsg..FindSame(table, tBirthdays[user.sName][3] , "year", user.sName).."\r\n"
lmsg = lmsg.." These are the "..what.." that are born the same month and day with you \r\n"
lmsg = lmsg..FindSame(table, tBirthdays[user.sName][1].."/"..tBirthdays[user.sName][2] , "monthday", user.sName).."\r\n"
lmsg = lmsg.." These are the "..what.." that have the same birthday as yours\r\n"
lmsg = lmsg..FindSame(table, tBirthdays[user.sName][1].."/"..tBirthdays[user.sName][2].." - "..tBirthdays[user.sName][3] , "all", user.sName).."\r\n"
SendBack(lmsg, user, how)
else
SendBack("I dont have your birthday,... please use the "..addcmd.." dd/mm/yyyy command to enter your birthday", user, how)
end
end

function FindSame(tTab, val , var, name)
local tTmp = {}
local msg = ""
if var == "day" then
for i, v in tTab do
if val == v[1] and i ~= name then
tTmp[i] = v[1].."/"..v[2].." - "..v[3]
end
end
elseif var == "month" then
for i, v in tTab do
if val == v[2] and i ~= name then
tTmp[i] = v[1].."/"..v[2].." - "..v[3]
end
end
elseif var == "year" then
for i, v in tTab do
if val == v[3] and i ~= name then
tTmp[i] = v[1].."/"..v[2].." - "..v[3]
end
end
elseif var == "monthday" then
for i, v in tTab do
if val == v[1].."/"..v[2] and i ~= name then
tTmp[i] = v[1].."/"..v[2].." - "..v[3]
end
end
elseif var == "all" then
for i, v in tTab do
if val == v[1].."/"..v[2].." - "..v[3] and i ~= name then
tTmp[i] = v[1].."/"..v[2].." - "..v[3]
end
end
end
for i,v in tTmp do
msg = msg.."\t - "..i.."\t("..v..")\r\n"
end
if msg == "" then
msg = "\t - noone\r\n"
end
return msg
end

Part 2:

function DelBirth(user, args, how)
if args ~= nil then
if tBirthdays[args] then
if GetItemByName(args) then
GetItemByName(args):SendPM(bBot,  ">>>> "..user.sName.." has deleted your birthday from my list .. ;( <<<<")
end
tBirthdays[args] = nil
SendBack("You deleted "..args.." bithday ...", user, how)
SaveFile(birthlog, tBirthdays, "tBirthdays")
else
SendBack(args.." is not in my birthday list ...", user, how)
end
else
SendBack("You need to give me a name ...", user, how)
end
end

function SendBack(what, user, how)
if how == nil then
user:SendData(bBot, what)
else
user:SendPM(bBot, what)
end
end

function ListBirths(user, how)
local str = "The Birthday List of the users of this Hub"
local msg = "\r\n    ..-*'~ "..str.." ~'*-..\r\n"..string.rep("^", string.len(str)+2).."\r\n\t"
local c = 0
local status = ""
for i, v in tBirthdays do
if GetItemByName(i) then status = "online" else status = "offline" end
c = c + 1
tip = ". - "..tBirthdays[i][1].."/"..tBirthdays[i][2].."/"..tBirthdays[i][3].."\t- \t"..i.."\t"..Zodiac(tBirthdays[i]).."\t ( "..status.." )"
if tBirthdays[i][1].."/"..tBirthdays[i][2] == os.date("%d/%m") then
tip = tip.."-+-"
end
msg = msg..c..tip.."\r\n\t"
end
if loadcelebs ~= 0 then
for i, v in tCelebs do
status = ":Celebrity:"
c = c + 1
tip = ". - \t"..tCelebs[i][1].."/"..tCelebs[i][2].."/"..tCelebs[i][3].."\t- \t"..i.."\t"..Zodiac(tCelebs[i]).."\t ( "..status.." )"
if tCelebs[i][1].."/"..tCelebs[i][2] == os.date("%d/%m") then
tip = tip.."-+-"
end
msg = msg..c..tip.."\r\n\t"
end
end
SendBack(msg, user, how)
end


function AddBirthDay(user, args, how)
local pers = ""
if args ~= nil then
local s,e,name,day,month,year = string.find(args, "(%S+)%s+(%d+)/(%d+)/(%d+)")
if name == nil then
name = user.sName
pers = "you"
s,e,day,month,year = string.find(args, "(%d+)/(%d+)/(%d+)")
else pers = name
end
if month ~= nil and day ~= nil and year ~= nil and (tonumber(month) >= 1) and (tonumber(month) <= 12) then
day = tonumber(day)
month = tonumber(month)
year = tonumber(year)
if year > oldestyear then
if year < (tonumber(os.date("%Y")) - allowedage) then
if month == 2 then
daylimit = FixFebruary(year)
else daylimit = tCalendar[month][1]
end
if day <= daylimit and day >= 1 then
if tBirthdays[name] then
month = tBirthdays[name][2]
if user.sName == name then
SendBack("I have your birthday already ... its on the "..tBirthdays[name][1].." of "..tCalendar[month][2], user, how)
else
SendBack("I have "..name.."'s birthday already ... its on the "..tBirthdays[name][1].." of "..tCalendar[month][2] , user, how)
end
local profstr = ""
for i,v in tProfiles do
if tProfiles[i] == 2 then
profstr = GetProfileName(tonumber(i)).."s"
break
end
end
SendBack("If you dont think this is correct ... then talk to one of our "..profstr , user, how)
else tBirthdays[name] = {}
tBirthdays[name][1] = day
tBirthdays[name][2] = month
tBirthdays[name][3] = year
SaveFile(birthlog, tBirthdays, "tBirthdays")
SendToAll("You Are a "..Zodiac(tBirthdays[name]).."!!!")
if user.sName == name then
SendBack("Your birthday is on the "..tBirthdays[name][1].." of "..tCalendar[month][2] , user, how)
SendBack("I didnt know you are "..FindCorrectAge(tBirthdays[name])..". I'll keep that in mind ;)" , user, how)
else
SendBack(name.."'s birthday is on the "..tBirthdays[name][1].." of "..tCalendar[month][2] , user, how)
SendBack("I didnt know "..name.." is "..FindCorrectAge(tBirthdays[name])..". I'll keep that in mind ;)" , user, how)
end
if user.sName == name then
SendBack("New birthday added by "..user.sName.." his/her is on the "..tBirthdays[name][1].." of "..tCalendar[month][2].." a "..Zodiac(tBirthdays[name]) , user, how)
else
SendBack(user.sName.." added "..name.."'s birthday, which is on the "..tBirthdays[name][1].." of "..tCalendar[month][2].." a "..Zodiac(tBirthdays[name]) , user, how)
end
end
end
else
SendBack("Come ON! "..pers.." cant be less than "..allowedage.." years old !!!  LIAR >:(" , user, how)
end
else SendBack("Come ON! "..pers.." cant be more than "..(year-oldestyear).." years old !!!  LIAR >:(" , user, how)
end
else SendBack("The date you provided was not valid ... ( syntax example : 14/5/1981 )" , user, how)
end
else SendBack("Please enter your birthday after the command ..." , user, how)
end
end

function FindCorrectAge(table)
if table[2] > tonumber(os.date("%m")) then
return ( tonumber(os.date("%Y")) - table[3] ) - 1
elseif table[2] < tonumber(os.date("%m")) then
return tonumber(os.date("%Y")) - table[3]
elseif table[2] == tonumber(os.date("%m")) then
if table[1] <= tonumber(os.date("%d")) then
return tonumber(os.date("%Y")) - table[3]
else
return ( tonumber(os.date("%Y")) - table[3] ) - 1
end
end
end

function DoHappyBirthday(nick)
if TxtSend == nil then
SendToAll(ReadTextFile(birthdayfile))
TxtSend = 1
end
local age = tonumber(os.date("%Y")) - tBirthdays[nick.sName][3]
local tSurpises = {
nick.sName.." is gonna have a PAAARTY, today he is turning "..age.." Happy Birthday !!!!",
"All of you spam "..nick.sName.." with Birthday messages ;), ...turning "..age.." today !!!",
"Who's turning "..age.." today ?? :D... The day AND the night belongs to "..nick.sName,
"Happy Birthday to you, Happy Birthday dear "..nick.sName..", we all wish you your "..age.." will be better than your "..(age-1).." !! :)",
" I think Mr"..nick.sName.." has his/her birthday today ... he/she should be turning "..age.." today ;D",
"A "..Zodiac(tBirthdays[nick.sName]).." is turning "..age.." today!!! ... it's "..nick.sName.."'s birthday!!!"
};
SendToAll( bBot , tSurpises[math.random(1, table.getn(tSurpises)) ] )
end

function ExactAge(user, how)
local table = tBirthdays[user.sName]
if table == nil then
SendBack("I dont have your birthday,... please use the "..addcmd.." dd/mm/yyyy command to enter your birthday", user, how)
return 1
else
local curAge = FindCorrectAge(table)
local finMonth = 0
if tonumber(os.date("%m")) < table[2] then
finMonth = 12 - ( table[2] - tonumber(os.date("%m")) )
elseif tonumber(os.date("%m")) > table[2] then
finMonth = ( tonumber(os.date("%m")) - table[2] )
end

local finDays = 0
if tonumber(os.date("%d")) < table[1] then
finMonth = finMonth - 1
local tempMonth = table[2] - 1
finDays = ( tCalendar[tempMonth][1] + ( tonumber(os.date("%d")) - table[1] ) )
if tonumber(os.date("%d")) > tCalendar[tonumber(os.date("%m"))][1] then
finMonth = finMonth + 1
finDays = tCalendar[tonumber(os.date("%m"))][1] - finDays
end
else
finDays = tonumber(os.date("%d")) - table[1]
end

if finMonth <= 0 then
finMonth = 12 + finMonth
if curAge == tonumber(os.date("%Y")) - table[3] then
SendToAll("yeah")
curAge = curAge - 1
end
end
if finMonth == 12 then
curAge = curAge + 1
finMonth = 0
end
SendBack("You are "..curAge.." years, "..finMonth.." months and "..finDays.." days old (that according to the Hub's clock :)", user, how)
end
end

function BHelp(user, how)
if tProfiles[""..prof..""] ~= 0 then
local msg = "\r\n\t\t You can use the following commands for "..bBot.."\r\n"
if tProfiles[""..prof..""] >= 1 then
msg = msg.."\t - "..bhelpcmd.." \t\t\t\t- this text :)\r\n"
msg = msg.."\t - "..listcmd.." \t\t\t- this will list the birthdays in store\r\n"
msg = msg.."\t - "..addcmd.." dd/mm/yyyy \t\t- put your own birthday :)\r\n"
msg = msg.."\t - "..findcmd.." \t\t\t- this will display the people that have similar birthday to yours\r\n"
if loadcelebs ~= 0 then
msg = msg.."\t - "..celebcmd.." \t\t\t\t- this will display the celebrities that have similar birthday to yours\r\n"
end
msg = msg.."\t - "..agecmd.." \t\t\t\t- this shows you your exact age ( days months years )\r\n"
if tProfiles[""..prof..""] == 2 then
msg = msg.."\t - "..delcmd.." \t\t- this deletes the birthday of \r\n"
msg = msg.."\t - "..addbircmd.." dd/mm/yyyy \t- this adds the birthday of "
end
end
SendBack(msg, user, how)
end
end

--- // --- Table Serialization --- Thanks NL
function Serialize(tTable, sTableName, sTab)

        assert(tTable, "tTable equals nil");
        assert(sTableName, "sTableName equals nil");

        assert(type(tTable) == "table", "tTable must be a table!");
        assert(type(sTableName) == "string", "sTableName must be a string!");

        sTab = sTab or "";
        sTmp = ""

        sTmp = sTmp..sTab..sTableName.." = {\n"

        for key, value in tTable do
                local sKey = (type(key) == "string") and string.format("[%q]",key) or string.format("[%d]",key);

                if(type(value) == "table") then
                        sTmp = sTmp..Serialize(value, sKey, sTab.."\t");
                else
                        local sValue = (type(value) == "string") and string.format("%q",value) or tostring(value);
                        sTmp = sTmp..sTab.."\t"..sKey.." = "..sValue
                end

                sTmp = sTmp..",\n"
        end

        sTmp = sTmp..sTab.."}"
        return sTmp
end

---------------------------
function LoadFile(file)
local handle = io.open(file,"r")
if (handle ~= nil) then
loadstring(handle:read("*all"))
handle:flush()
handle:close()
end
end
----------------------------
function SaveFile(file , table , tablename)
local handle = io.open(file,"w+")
handle:write(Serialize(table, tablename))
handle:flush()
handle:close()
end

function ReadTextFile(file)
local message = "\r\n"
local handle = io.open(file,"r")
if (handle ~= nil) then
while 1 do
local line = handle:read()
if ( line == nil ) then
break
else
message = message.."\t"..line.."\r\n"
end
end
handle:close()
return message
else
end
endBest regards,

jiten

PS: This script isn't fully tested and u got to use the celebrities' bday database fromthis (http://www.plop.nl/ptokaxbots/Herodes/BirthdayManv3.5.rar) archive.

i've been trying to add the birthday cmds to my robocop rightclicker and i get an error .... invaild date ...

which is caused due to no date being added when i use the rightclick cmd

so i was wandering if we could have it so that there's a pop up box which allows a user to input their birthday

try this

curUser:SendData("$UserCommand 1 3 Birthdays\\Enter your Birthday$<%[mynick]> !mybirthday %[line:Enter your Birthday...Syntax dd/mm/yyyy]|")
curUser:SendData("$UserCommand 1 3 Birthdays\\Erase your Birthday$<%[mynick]> !delbirthday %[line:Enter Birthday to be deleted.]|")
curUser:SendData("$UserCommand 1 3 Birthdays\\List all Birthdays$<%[mynick]> !birthdays |")
curUser:SendData("$UserCommand 1 3 Birthdays\\User born on:$<%[mynick]> !bornon %[line:Find out who has Birthday on - Syntax dd/mm/yyyy.]|")


thx m8   works great   =)

:D  no problem

been trying command   MyAge  i am born on 16/05/1966 and bott gives me this  
19:37:32] You are 2 days, 0 months and 39 years old (that according to the Hub's clock  
lol

greetzz  TT

QuoteOriginally posted by T?M??r?V?ll?R
been trying command   MyAge  i am born on 16/05/1966 and bott gives me this  
19:37:32] You are 2 days, 0 months and 39 years old (that according to the Hub's clock  
lol

greetzz  TT

Yikes, that's tricky :D
First post updated.

Cheers

19:58:00] You are 39 years, 0 months and 2 days old (that according to the Hub's clock  


nope not yet  

Greetzz TT

QuoteOriginally posted by T?M??r?V?ll?R
19:58:00] You are 39 years, 0 months and 2 days old (that according to the Hub's clock  


nope not yet  

Greetzz TT

Done, if i'm not wrong.

Best regards,

jiten

21:12:02] You are 38 years, 11 months and 2 days old (that according to the Hub's clock  

ThankYou  works great ;)

Greetzz TT

QuoteOriginally posted by T?M??r?V?ll?R
21:12:02] You are 38 years, 11 months and 2 days old (that according to the Hub's clock  

ThankYou  works great ;)

Greetzz TT

Groovy :]

Hi lol 1 quetion wy my Birthday - v3.5 don't work, wen i use it i can not write in main chat any more  ?(  and my user Graph don't work, wen i use command !graph nothing comes  :(  and the only schripts i use are this 1nes >> FreshStuff - v.2.60
              GeoIP
              Geustbook <<< Works Great
              Trigger <<< Works Great
              Right Clicker <<< Wy Dc++ user can not use?
             Chat-Maker <<< Works Great
             Chat-Stats <<<< Works great
             User-Graph <<< Don't work nothing comes in main wen i use command !graph
              RoboCopv10.01c <<

Greeting From Kerkrade Holland

QuoteOriginally posted by vadertje
Hi lol 1 quetion wy my Birthday - v3.5 don't work, wen i use it i can not write in main chat any more  ?(  

Copy the script all over again and try to see if u can't write in main. It's working ok with me.

Quotewen i use command !graph nothing comes  :(

Have u tried this (http://board.univ-angers.fr/thread.php?threadid=3731&boardid=26&styleid=1) one?

Regarding the rightclicker, can't help with only that information.

Cheers

about the graph it don't work i have try it but nothing is showing in main and the Birthday - v3.5 same problem as always i can not write main <<< can that be that i must reinstall ptokax and robocop ?? it have work all but no don't work both scrips any more and the rightklick menu only works with Odc but the users what have dc++ don't have a rightklick menu

greetings from Kerkrade, Holland

i have try all now but it wil not work shit :(

Well, for the Graph to appear u got to have at least two users online in the hub.

The problem of not being able to type anything in mainchat is not BirthdayMan related as I fixed that yesterday. Check again if you have the updated script and if it doesn't work, try running ur hub only with Birthdayman and see what happens.

Cheers

yes i have try it but with only Birthday - v3.5 i can even not write lol sorry that i'm so um how that call that i askto many :)

my user graph works again but there is somthing not good look hehe

- 0% (0). . . . . . . . . .    . .:?:. . . . . . . . . . . . .   . .:?:. . . . . . . . . . . . .   . .:?:. . . . . . . . . . . . .   . .:?:. . . . . . . . . . . . .
 ->  Time   :            14:27:21   


 only the Birthday - v3.5 want not work any more  :(

sorry my mistake that what i mean i can not see now you must ernter my hub to see :(

QuoteOriginally posted by vadertje
sorry my mistake that what i mean i can not see now you must ernter my hub to see :(

Hum, what's ur hub addy?

Cheers

my hub addy is whitenation.dyndns.dk

i can give you also my email maybe easyer to talk and to explaine

hey hey hey plz plz help urgent...

i rmoved this birthday bot and my topic isnt chnging...
what i do plz urgent

QuoteOriginally posted by ?Tr€€T_????
hey hey hey plz plz help urgent...

i rmoved this birthday bot and my topic isnt chnging...
what i do plz urgent

use the cmd's
!topic off
!topic
!restartscripts
!restart


Try thoose...

if i want to put a short description in the hub's description of the bot( f.i.: add your birthday, type !bhelp) what do i have to add?

QuoteOriginally posted by madman

QuoteOriginally posted by ?Tr€€T_????
hey hey hey plz plz help urgent...

i rmoved this birthday bot and my topic isnt chnging...
what i do plz urgent

use the cmd's
!topic off
!topic
!restartscripts
!restart


Try thoose...

I got this damn problem to cant the topic away tryed all the commands you give.

I also changed in the script the topic to another topic but it doesnt work i still get the first topic.

HELP

try changing the topic in the ptokax----network tab

QuoteOriginally posted by kunal
try changing the topic in the ptokax----network tab

I have tryed this now but i doesnt work either i also changed in the script this:

frmHub:SetHubName(topic.." - Today is the birthday of the following user"..tit)

to this:

frmHub:SetHubName(topic.." - ..tit")


doesnt work either still get:

Today is the birthday of the following user Syphrone-NL

Any suggest???

have u edited this in the script
TopicShow = 0         --- to display the birthday nicks in the Hub's Topic ... ( 1/0 : enabled / disabled )
disable it and then remove the topic from the ptokax network tab

Yes i did that kunal i didnt work either and i know now why i found the soluction

He didnt putt it in the topic but he putt the birthday in the hubs name

So i needed to change the hubname not the topic

i m happy that u finally found the solution to ur problem

but i think that somebody need to change the script then that it comes really in the topic not in the hubname

QuoteOriginally posted by Syphrone-NL
but i think that somebody need to change the script then that it comes really in the topic not in the hubname

i think you can do it Syphrone,.. look :

just try change this.. :

--------------------------------------
topic = frmHub:GetHubName()
frmHub:SetHubName(topic.." - Today is the birthday of the following user"..tit)
to:
topic = frmHub:GetHubTopic()
frmHub:SetHubTopic(topic..tit)" - Today is the birthday of the following user"..tit)
---------------------------------------

or maybe even this...
(if i am not wrong this is a little neater since it won't change the topic if there is no user's birthday)
-----------------------------------
if titshow ~= 0 then
local tit = ""
local ct = 0
for i,v in tNow do
if ct == 0 then
tit = " "..v
else
tit = tit..", "..v
end
ct = ct +1
end
if ct ~= 0 then
if ct > 1 then
tit = " Today is the birthday of the following user's"..tit..", Send them a PM *-<;o)"
end
if ct == 1 then
tit = " Today is the birthday of:"..tit..", Send a PM *-<:oP"
end
topic = frmHub:GetHubTopic()
frmHub:SetHubTopic(topic..tit)
end
end
-------------------------------------------
neither way is tested ... i just "think to know" it will work..

-- for prevention of repeating of topic....
-- topic = frmHub:GetHubTopic()
-- frmHub:SetHubTopic(topic..tit)
frmHub:SetHubTopic(tit)
end


This one is "tested" ..

DefTopic = "Today there is no user to celebrate the birthday of.. maybe we need another topic for today ? ;0)"

function CheckBirthdays()
tNow = {}
local count = 0
local yeah = nil
for i, v in tBirthdays do
if tBirthdays[i][2] == tonumber(os.date("%m")) then
if tBirthdays[i][1] == tonumber(os.date("%d")) then
if GetItemByName(i) then
local happy = GetItemByName(i)
DoHappyBirthday(happy)
yeah = 1
end
count = count + 1
if yeah == nil then
tNow[count] = "("..i..")"
else
tNow[count] = i
end
end
end
yeah = nil
end
if titshow ~= 0 then
local tit = ""
local ct = 0
for i,v in tNow do
if ct == 0 then
tit = " "..v
else
tit = tit..", "..v
end
ct = ct +1
end
if ct ~= 0 then
if ct > 1 then
tit = "Today is the birthday of the following user's"..tit..", Send them a PM *-<;o)"
end
if ct == 1 then
tit = "Today is the birthday of:"..tit..", Send a PM *-<:oP"
end
frmHub:SetHubTopic(tit)
else
topic = frmHub:GetHubTopic()
if topic == nil then
topic = DefTopic
end
if string.sub(topic, 1, 24) == "Today is the birthday of" then
frmHub:SetHubTopic(DefTopic)
end
end
end
end

this fixes the problem of doubling topic, dont hang if no topic and set the topic to a default value if there is no birthday.