home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1993 #2
/
Image.iso
/
comm
/
allscrip.zip
/
ALL.SLT
< prev
next >
Wrap
Text File
|
1993-06-07
|
4KB
|
168 lines
str user_name[60], user_two[60], pass[16], graphics[2];
main()
{
PRINTS ("ALLSLC 2.2 By Reuben Sumner. Copyright 1989");
int stat, enter, gt;
int t1, t2, t3, t4, t5, t6, t7, t8, t9, t10, t11, t12, t13, t14, t15, t16;
int tmark;
alarm(1);
keyget(32768, 0, user_name);
if (user_name == "")
{
prints("I am sorry but I do not know your name!");
return;
}
keyget(32512, 0, graphics);
strlower(graphics);
if (graphics != "n")
graphics = "y";
copystr(user_name, user_two, 0, strlen(user_name));
enter = strchr(user_two, 1, ' ');
if (enter != -1)
setchr(user_two, enter, ';');
if (not _entry_pass)
keyget(33024, 0, pass);
else
pass=_entry_pass;
if (pass == "")
{
prints("I am sorry but I do not know your password!");
return;
}
t1 = track("ant graphics", 1); //PCBOARD
t2 = track("first name?", 0); //PCBOARD
t3 = track("Password ", 0); //PCBOARD
t4 = track("Language # to use", 1); //PCBOARD
t5 = track("last name? ",1); //QUICKBBS TURBOBBS
t6 = track("Press ESC",1); //MAILER
t7 = track(" name:",1); //OPUS and GTPOWER
t8 = track("* Network",1); //MAILER
t9 = track("Password:",1); //QUICKBBS OPUS
t10 = track("First Name?",0); //TBBS and OPUS
t11 = track("correct?",1); //OPUS
t12 = track("phics? [y/n]",1); //GTPOWER
t13 = track("? [y/n]:",1); //GTPOWER
t14 = track("FULL Name?",0); //TBBS
t15 = track("Last Name : ",1); //MINIBBS
t16 = track(", right (y/N) ?",0); //TURBO BBS
tmark = timer_start(1800);
enter = 0;
while (not time_up(tmark))
{
terminal();
stat = track_hit(0);
if (stat == t1)
{
delay(5);
cputs(graphics);
cputs(" q^M");
track_free(t1);
enter = 1;
}
else if (stat == t2 or stat == t5 or stat == t14 or stat == t15)
{
cputs(user_name);
cputs("^M");
track_free(t2);
track_free(t5);
track_free(t7);
track_free(t10);
track_free(t14);
track_free(t15);
enter = 1;
}
else if (stat == t3 or stat == t9)
{
cputs(pass);
cputs("^M");
timer_free(tmark);
track_free(0);
return;
}
else if (stat == t4)
{
delay(5);
cputs("^M");
track_free(t4);
enter = 1;
}
else if (stat == t7)
{
cputs(user_name);
if (gt == 1)
cputs("^M");
else
cputs(";y^M");
track_free(t2);
track_free(t5);
track_free(t7);
track_free(t10);
track_free(t14);
track_free(t15);
enter = 1;
}
else if (stat == t8 or stat == t6)
{
cputs("^[");
track_free(t8);
track_free(t6);
enter = 1;
}
else if (stat == t10)
{
cputs(user_two);
cputs("^M");
track_free(t2);
track_free(t5);
track_free(t7);
track_free(t10);
track_free(t14);
track_free(t15);
enter = 1;
}
else if (stat == t11)
{
cputs("Y");
cputs(pass);
cputs("^M");
track_free(t11);
enter = 1;
}
else if (stat == t12)
{
cputs(graphics);
cputs("^M");
track_free(t12);
enter = 1;
gt = 1;
}
else if (stat == t13)
{
cputs("y^M");
track_free(t13);
enter =1;
}
else if (stat == t16)
{
cputs("Y^M");
track_free(t16);
}
else if (timer_total(tmark) >= 30 and enter == 0)
{
cputs("^M");
enter = 1;
}
}
if (time_up(tmark))
prints("Logon failed!");
}