/*****************************UPDATE**************************************/
/*           $VER: Birthday Checker "25-12-94" By TreBor                 */
/*       .-----.                                                         */
/*       |     |- put it to 1 if u dont want it to timez ....            */
/*       v     ^                                                         */
  timez='2' /* change this value for how much it should times users credits by.. eg, 2 would make it times his creds by 2 giving him 1meg if he had 500k of creds .. */
 timezz='2' /* change this value for how much it should times users time by.. eg, 2 would make it times his time by 2 giving him 120minz if he had 60 miz ..         */
/*      ^^     v                                                         */
/*      ||     |- put it to 1 if u dont want it to timez ....            */
/*      |`-----'                                                         */
/*      `-- dont delete these ....                                       */
/*************************************************************************/
/***********************EOF*FOR*YOU*SYSOP*********************************/
/*************DONT*CHANGE*ANYTHING*BELOW*THIS*POINT***********************/
/*************************************************************************/

options results;changewhere 'Checking Bday'
tr=transmit;se=sendstring;gu=getuser;
gu 1;Hand=result;gu 7;time=result%10;gu 12;year=substr(result,10,6);gu 58;bi=result;gu 1200016;aovu=result;gu 1400504;bc=result;if time=0 then time=999;ver='1.14b';it=timezz-1;
tr 'f1c7Cheking to see if its your c2Birthdayc7 s1c3..........c7s0'

call bday(1500410);call date(1500000);call lcal(1501094)
if bday=date then call day()   /* thiz checkz if its there birthday today */
if bday>last then call next()  /* thiz is to check if users birthday is after his last call */
else call seya()

Next:
if date>bday then call day() /* and thiz is to check if users birthday is before today*/
else call seya()

day:
changewhere 'its his Birthday'
if last=date then signal itwas()
logentry 'Its His Birthday '
tr 's4Yups0'

setobject bc*timez ;putuser 1400504; /* Thiz iz to add the credz */
addtime it*time /* Thiz iz to add the credz */
tr 'f1                 z4Happy Birthday By Trebor 'Ver'z0n1'
tr center('Happy 'aovu'th Birthday ',65)
tr center(hand,65)
tr center(' For 'left(bi,13)year'n1',65)
tr center('``````````',65)
tr center('z1||||||||||z0',70)
tr center('c7z7            z0',74)
tr center('z5============z0',70)
tr center('z7            z0',70)
tr 'n1        You Now have c1'timez'c7 TiMeZ c2Xc7tra Megc6Zc7 and c1'timezz'c7 c2Xc7tra Minc6Zc7'
tr 'n1 c1Yc7ou have' time*timezz' mins Today c1Nc7own1 c2Ac7nd Your Byte Credits are 'bc*timez' c1Nc7ow'
tr ' c1Hc7iP c1Hc7iPb1w1  c2Hc7oRaYb1w1 c2Hc7iP c2Hc7iPb1w1  c1Hc7oRaYb1w1 HaPpY BiRtHdAyb1w1  HoPe U HaVe/HaD A nIce DaYb1w1'
tr 'n1Press c2[c1RETURNc2]c7';getchar;tr 'f1';exit

bday:;arg old ; old=overlay('1',old,2,1)
       gu old+1 ; m=result ; gu old+2 ; d=result /* This Is the Bit That does 1114 BIT */
       bday=right(m,2,'0')||right(d,2,'0')
  return
date:;arg old ; old=overlay('1',old,2,1)
       gu old+1 ; m=result ; gu old+2 ; d=result /* This Is the Bit That does 1114 BIT */
       date=right(m,2,'0')||right(d,2,'0')
  return
lcal:;arg old ; old=overlay('1',old,2,1)
       gu old+1 ; m=result ; gu old+2 ; d=result /* This Is the Bit That does 1114 BIT */
       last=right(m,2,'0')||right(d,2,'0')
  return

Seya:;changewhere 'not his Bday'
tr 'c6s4Nopes0c7' ;bufferflush;exit

itwas:
tr 'Its Your Birthday But You''ve Called Once Today Allready'
tr '            c6HaPPy BiRtHdAy AnY WaY ...c7'
exit

IOERR:;SYNTAX:;er='Error in line: 'sigl' Code: 'errortext(rc);tr er;gethcar;logentry er
/*************************************************************************/
/*************************EOF*THIZ*FILE***********************************/