/*****************************************************************************
 * ASCRIPT -Kj›res hver gang en bruker logger inn							 *
 * Sist oppdatert: 14.04.94                                                  *
 *****************************************************************************/

function updatebullet() {
  var $bfile, $bfilegr, $numberfile, $usernumber;
  $bfile="h:/bbs/menus/bull4";
  $bfilegr="h:/bbs/menus/bull4.gr";
  $numberfile="h:/bbs/login.nr";

  if (fopen(9,$numberfile,"rt")) {
    $usernumber=fgets(9);
    $usernumber=$usernumber+1;
    fclose(9);
    fopen(9,$numberfile,"wt");
    fprintf(9,"%u\n",$usernumber);
    fclose(9);
  } else {
    fopen(9,$numberfile,"wt");
    fprintf(9,"1\n");
    fclose(9);
    $usernumber=1;
  }
  if (!fopen(0,$bfile,"rt")) {
	fopen(0,$bfile,"at");
	  fprintf(0,"\n                 Today's logins at Byte BBS:\n");
	  fprintf(0,"                 ~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n");
  } else {
    fclose(0);
	fopen(0,$bfile,"at");
  }
  if (!fopen(1,$bfilegr,"rt")) {
	fopen(1,$bfilegr,"at");
	  fprintf(1,"\e[1;1H\e[2J\e[1;32m\nÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\e[0m\n");
	  fprintf(1,"\e[1;33m                     Today's logins at Byte BBS\e[0m\n");
	  fprintf(1,"\e[1;32mÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ\e[0m\n");
  } else {
    fclose(1);
	fopen(1,$bfilegr,"at");
  }
  fprintf(0,"%3u - %02d:%02d: %-25s %-25s\n",$usernumber, $bf_hour,$bf_min,$bn_realname,$bu_city);
  fprintf(1,"\e[1;33m%3u \e[1;36m%02d:%02d\e[1;37m %-25s \e[0;32m%-25s\e[0m\n",$usernumber,$bf_hour,$bf_min,$bn_realname,$bu_city);
  fclose(0);
  fclose(1);
  printf("\e[1;37mYou are user number \e[1;36m%u \e[1;37mtoday!\e[0m\n",$usernumber);
}

function main() {
  if ($bv_nodenumber < 5) updatebullet();
  if (!$bv_quicklogin) showfile(strcat($bg_menudir,"birthday"));
  if (!$bu_resume) {
	printf("\n");
	if ($bu_language==1) {
	  printf(">>> Et ole kirjoittanut mit„„n tietoja itsest„si viel„? Ehk„\n");
	  printf(">>> olisi jo aika, k„yt„ komentoa U RES kertoaksesi itsest„si!\n");
	} else
	  if ($bu_language==2) {
		printf(">>> Du ha inte skrivit n†got om dig sj„lv „nnu? Kanske det skulla vara\n");
		printf(">>> p† sin plats att anv„nda kommandot U RES och ber„tta om dig sj„lv!\n");
	  } else
		if ($bu_language==3) {
		  printf(">>> Du har ikke skrevet noe om deg selv enda? Kanskje det er p† tide\n");
		  printf(">>> † bruke kommandoen U RES og fortelle litt om deg selv!\n");
		} else {
		  printf(">>> Not entered any information about yourself yet? Maybe it's\n");
		  printf(">>> about time you did, use U RES to tell us about yourself!\n");
		}
	printf("\n");
  }
}