Well you set you're bday with !bday
Then you can c some1's bday by typing !cday
sounds kinda sucky hey
here is te good part
when the person joins the room on his birthday the bot will tell the room it is this persons birthday and the person is a certan age
Now please give me hints for the next 1 and do comment on it if u like it or not
;Coded : SL
;server : irc.4everlost.co.za
;room : #slc
;webpage : http://slchat.50megs.com/Home.htm
on 1:text:!bday:#: {
msg $nick 7Hey and welcome to my bday script...to use type 10.sday and the day you were born 4eg. today is this day6 $date(dd) | set %sl.bd $date(dd)
set %bday on
set %bdnick $nick
timer83 1 300 set %bday off
timer84 1 300 unset %bdnick
}
on 1:text:*:?: {
if (%sl.b == on) {
if (%bdnick == $nick) {
if ($2 != $null) {
if ($1 == .sday) { msg $nick 10,0Thanx now to set the month just use 10.smonth and the month you were born 4eg. it is now this month6 $date(mm) | set %sl.bm $date(mm) | writeini -n bday.ini $nick day $2- }
if ($1 == .smonth) { msg $nick 10,0Thanx now to set the year just use 10.syear and the year you were born 4eg. it is now this year6 $date(yyyy) | set %sl.by $date(yy) | writeini -n bday.ini $nick month $2- }
if ($1 == .syear) { msg $nick 10,0Thanx, you're bday is set to6 %sl.ba 10to view someone's bday type the followin in the channal 10!cday and the person's nick you want to view 4eg. !cday $me | set %sl.ba $+ / $+ %sl.bd $+ / $+ %sl.bm $+ / $+ %sl.by | unset %bdnick | unset %bday | writeini -n bday.ini $nick year $2- }
}
if ($2 == $null) { msg $nick 10,0Sorry you did not set it correcty pls check it and retype it }
}
if (%bdnick == $null) { msg $nick 10,0Sorry you do not appear to be the person setting there bday right now }
}
if (%sl.b == off) { msg $nick 10,0Sorry but someone appears to be buy setting there birthday...please do retry in a few minutes }
}
on 1:text:!cday*:#: {
set %sl.bd $readini(bday.ini, $$2, day)
set %sl.bm $readini(bday.ini, $$2, month)
set %sl.by $readini(bday.ini, $$2, year)
set %sl.ba %sl.bd $+ / $+ %sl.bm $+ / $+ %sl.by
msg $chan 7,0Well $2 $+ 's birtdate is %sl.ba
unset %sl.bd
unset %sl.bm
unset %sl.by
unset %sl.ba
}
on 1:join:#: {
set %sl.bc1 $readini(bday.ini, $nick, day)
set %sl.bc2 $readini(bday.ini, $nick, month)
set %sl.bc3 %sl.bc1 $+ / $+ %sl.bc2
set %sl.bc4 $date(dd/mm)
if (%sl.bc3 == %sl.bc4) {
set %sl.bc5 $readini(bday.ini, $nick, year)
set %sl.bc6 $calc($date(yyyy) - %sl.bc5)
msg $chan 10,0Well what do ya know...everyone it is $nick $+ 's birtday today and $nick is turning6 %sl.bc6 10today
notice $nick 7,0CONGRATULATIONS with you're birthday...have a GREAT year...you are now %sl.bc6 years old
unset %sl.bc1
unset %sl.bc2
unset %sl.bc3
unset %sl.bc4
unset %sl.bc5
unset %sl.bc6
}
if (%sl.c3 != %sl.bc4) {
unset %sl.bc1
unset %sl.bc2
unset %sl.bc3
unset %sl.bc4
halt
}
}