-.-B-Day-.-

By SL on Jun 28, 2004

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
  }
}

Comments

Sign in to comment.
bugboy1028   -  Jan 01, 2010

i will give it rate of 1 becuase of script FAIL!

 Respond  
Ghost-writer   -  Jan 01, 2010

omg, so much repetitive failure... Im sorry, unless this is your first code this is horrid, learn to use wildcards,


unset %sl.bc1
    unset %sl.bc2
    unset %sl.bc3
    unset %sl.bc4
    unset %sl.bc5
    unset %sl.bc6

ever heard of just

unset %sl.*

or even better, var instead of set.

 Respond  
bugboy1028   -  Dec 31, 2009

SL, it's didnt respond to me
when i try to type .sday 28 , nothing happen

 Respond  
SL   -  Jun 30, 2004

Its updated..try the new code and tell me if its fine and if u find errors or if its fine...thanx enjoy

 Respond  
SL   -  Jun 30, 2004

I will try to fix that...allso noticed it...will fix and update and tell ya when I did

 Respond  
StarFirefly26   -  Jun 29, 2004

And everytime someone PMs me they get a \"someone\'s setting their b-day\" error.

 Respond  
StarFirefly26   -  Jun 28, 2004

Nice, only problem is that all of the error messages show up when someone enters their birthdate.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.