on *:TEXT:!addbday*:#: { if ($nick !isop $chan) { .notice $nick [Birthday] Only Channel Operator's can add Birthday's! halt } if ($5 = $null) { .notice $nick [Birthday] Usage: $1 [nickname] [day] [month] [year] (eg. $1 peter 01 04 1983) halt } var %bdayerror 0 if ($3 < 1) var %bdayerror Date Too Low! (Only Allowed Between 1-31) if ($3 > 31) var %bdayerror Date Too High! (Only Allowed Between 1-31) if ($4 < 1) var %bdayerror Month Too Low! (Only Allowed Between 1-12) if ($4 > 12) var %bdayerror Month Too High! (Only Allowed Between 1-12) if ($5 < 1900) var %bdayerror Year Too Low! (Between 1900 and $asctime(yyyy) $+ ) if ($5 > $asctime(yyyy)) var %bdayerror Year Too High! (Between 1900 and $asctime(yyyy) $+ ) if (%bdayerror != 0) { .msg # [Age] Error: %bdayerror halt } .msg # [Birthday] Adding Birthday for $2 on Day $3 Month $4 and Year $5 var %bdaydate $3 $+ - $+ $4 $+ - $+ $5 var %bday $readini(Birthday.txt,Birthdays,%bdaydate) var %bday $remove(%bday,$2) writeini Birthday.txt Birthdays %bdaydate %bday $chr(32) $2 } on *:TEXT:!howold*:#: { if ($4 = $null) { .notice $nick [Birthday] Usage: $1 [day] [month] [year] halt } var %bdayerror 0 if ($2 < 1) var %bdayerror Date Too Low! (Only Allowed Between 1-31) if ($2 > 31) var %bdayerror Date Too High! (Only Allowed Between 1-31) if ($3 < 1) var %bdayerror Month Too Low! (Only Allowed Between 1-12) if ($3 > 12) var %bdayerror Month Too High! (Only Allowed Between 1-12) if ($4 < 1900) var %bdayerror Year Too Low! (Between 1900 and $asctime(yyyy) $+ ) if ($4 > $asctime(yyyy)) var %bdayerror Year Too High! (Between 1900 and $asctime(yyyy) $+ ) if (%bdayerror != 0) { .msg # [Age] Error: %bdayerror halt } var %bdaydate $2 $+ - $+ $3 $+ - $+ $4 var %bdayyear $calc($asctime(yyyy) - $4) .msg # [Age] You are %bdayyear years old, Born $duration($calc($ctime - $ctime(%bdaydate))) ago. } on *:JOIN:#: { var %bdaydate $asctime(dd-mm-yyyy) var %bday $readini(Birthday.txt,Birthdays,%bdaydate) if (%bday != $null) .msg # Happy Birthday To: %bday - Hope you have a Great Day! }