on *:TEXT:!addbirth *:#:{
If ($2 isnum) && ($3 isalpha) {
if $read(birthday.txt,s,$nick) { msg $chan $nick your birthday has already been recorded }
else {
msg # $nick your birthday has been saved. | .write birthday.txt $nick $2- }
}
else {
msg $chan Please use this format: !addbirth day month - e.g. !addbirth 28 February
}
}
on *:TEXT:!birthday *:#:{ If ($read(birthday.txt,s,$2)) { msg # $2 was born on $ifmatch } | else { msg # No Birthday details for $2 } }
on *:join:#:{
var %bday = $read(birthday.txt,s,$nick)
if ($gettok(%bday,1,32) == $date(dd)) && ($left($gettok(%bday,2,32),3) == $date(mmm)) {
.timer 1 6 describe # wishes $nick a Happy Birthday!!!
}
}