home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / comm / allscrip.zip / ALL.SLT < prev    next >
Text File  |  1993-06-07  |  4KB  |  168 lines

  1. str user_name[60], user_two[60], pass[16], graphics[2];
  2. main()
  3.  
  4. {
  5.  PRINTS ("ALLSLC 2.2 By Reuben Sumner. Copyright 1989");
  6.  int stat, enter, gt;
  7.  int t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16;
  8.  int tmark;
  9.  
  10.  alarm(1);
  11.  
  12.  keyget(32768, 0, user_name);
  13.  if (user_name == "")
  14.   {
  15.    prints("I am sorry but I do not know your name!");
  16.    return;
  17.   }
  18.  
  19.  keyget(32512, 0, graphics);
  20.  strlower(graphics);
  21.  if (graphics != "n")
  22.   graphics = "y";
  23.  copystr(user_name, user_two, 0, strlen(user_name));
  24.  enter = strchr(user_two, 1, ' ');
  25.  if (enter != -1)
  26.   setchr(user_two, enter, ';');
  27.  if (not _entry_pass)
  28.    keyget(33024, 0, pass);
  29.  else
  30.   pass=_entry_pass;
  31.  if (pass == "")
  32.   {
  33.    prints("I am sorry but I do not know your password!");
  34.    return;
  35.   }
  36.  
  37.  t1 = track("ant graphics", 1); //PCBOARD
  38.  t2 = track("first name?", 0); //PCBOARD
  39.  t3 = track("Password ", 0); //PCBOARD
  40.  t4 = track("Language # to use", 1); //PCBOARD
  41.  t5 = track("last name? ",1); //QUICKBBS TURBOBBS
  42.  t6 = track("Press ESC",1); //MAILER
  43.  t7 = track(" name:",1); //OPUS and GTPOWER
  44.  t8 = track("* Network",1); //MAILER
  45.  t9 = track("Password:",1); //QUICKBBS OPUS
  46.  t10 = track("First Name?",0); //TBBS and OPUS
  47.  t11 = track("correct?",1); //OPUS
  48.  t12 = track("phics? [y/n]",1); //GTPOWER
  49.  t13 = track("? [y/n]:",1); //GTPOWER
  50.  t14 = track("FULL Name?",0); //TBBS
  51.  t15 = track("Last Name :  ",1); //MINIBBS
  52.  t16 = track(", right (y/N) ?",0); //TURBO BBS
  53.  tmark = timer_start(1800);
  54.  enter = 0;
  55.  while (not time_up(tmark))
  56.   {
  57.    terminal();
  58.  
  59.    stat = track_hit(0);
  60.  
  61.    if (stat == t1)
  62.     {
  63.      delay(5);
  64.      cputs(graphics);
  65.      cputs(" q^M");
  66.      track_free(t1);
  67.      enter = 1;
  68.     }
  69.    else if (stat == t2 or stat == t5 or stat == t14 or stat == t15)
  70.     {
  71.      cputs(user_name);
  72.      cputs("^M");
  73.      track_free(t2);
  74.      track_free(t5);
  75.      track_free(t7);
  76.      track_free(t10);
  77.      track_free(t14);
  78.      track_free(t15);
  79.      enter = 1;
  80.     }
  81.    else if (stat == t3 or stat == t9)
  82.     {
  83.      cputs(pass);
  84.      cputs("^M");
  85.      timer_free(tmark);
  86.      track_free(0);
  87.      return;
  88.     }
  89.    else if (stat == t4)
  90.     {
  91.      delay(5);
  92.      cputs("^M");
  93.      track_free(t4);
  94.      enter = 1;
  95.     }
  96.    else if (stat == t7)
  97.     {
  98.      cputs(user_name);
  99.      if (gt == 1)
  100.       cputs("^M");
  101.      else
  102.       cputs(";y^M");
  103.      track_free(t2);
  104.      track_free(t5);
  105.      track_free(t7);
  106.      track_free(t10);
  107.      track_free(t14);
  108.      track_free(t15);
  109.      enter = 1;
  110.     }
  111.    else if (stat == t8 or stat == t6)
  112.     {
  113.      cputs("^[");
  114.      track_free(t8);
  115.      track_free(t6);
  116.      enter = 1;
  117.     }
  118.    else if (stat == t10)
  119.     {
  120.      cputs(user_two);
  121.      cputs("^M");
  122.      track_free(t2);
  123.      track_free(t5);
  124.      track_free(t7);
  125.      track_free(t10);
  126.      track_free(t14);
  127.      track_free(t15);
  128.      enter = 1;
  129.     }
  130.    else if (stat == t11)
  131.     {
  132.      cputs("Y");
  133.      cputs(pass);
  134.      cputs("^M");
  135.      track_free(t11);
  136.      enter = 1;
  137.     }
  138.    else if (stat == t12)
  139.     {
  140.      cputs(graphics);
  141.      cputs("^M");
  142.      track_free(t12);
  143.      enter = 1;
  144.      gt = 1;
  145.     }
  146.    else if (stat == t13)
  147.     {
  148.      cputs("y^M");
  149.      track_free(t13);
  150.      enter =1;
  151.     }
  152.    else if (stat == t16)
  153.     {
  154.      cputs("Y^M");
  155.      track_free(t16);
  156.     }
  157.    else if (timer_total(tmark) >= 30 and enter == 0)
  158.     {
  159.      cputs("^M");
  160.      enter = 1;
  161.     }
  162.  }
  163.  
  164.  if (time_up(tmark))
  165.   prints("Logon failed!");
  166.  
  167. }
  168.