What a great game. Weather you're new to the game, or an old hat, you'll find a nice collection of useful information on this page. I've been playing TA for a while, probably almost 10 years. In the time that i've been playing, i've stock-piled quite a bit of info. From maps, to rune quests, to sysop commands, you'll find it here.
Latest TA death on The Underground:
#!/usr/bin/perl
use Net::FTP;
use DBI;
my $dbh = DBI->connect('DBI:mysql:talog', 'root', 'the!of$')
or die "Couldn't connect to Database: " . DBI->errstr;
print "Content-type: text/html\n\n";
my @lastdeath = &sqlret("SELECT * FROM maindeath ORDER BY dt DESC LIMIT 1");
if ($lastdeath[0]) {
my @sdate = split(/\-/, $lastdeath[5]);
$lastdeath[5] = "$sdate[1]/$sdate[2]/$sdate[0]";
print "$lastdeath[1] the $lastdeath[3] $lastdeath[2] was killed by $lastdeath[4] on $lastdeath[5] at $lastdeath[6]";
if ($lastdeath[4] =~ m/Dehydration/ || $lastdeath[4] =~ m/Starvation/) {
print "
What a way to go!";
} elsif ($lastdeath[4] =~ m/Suicide/) {
print "
Was it worth it?!";
}
print "
";
} else {
print "No deaths to report!
";
}
#### Subs ####
sub sql { # sub for sql inserts and updates (that dont return anything)
my $statement = $_[0];
shift @_;
my $sth = $dbh->prepare($statement)
or die "Couldn't prepare query: " . $dbh->errstr;
$sth->execute(@_)
or die "Couldn't execute query: " . $sth->errstr;
$sth->finish;
}
sub sqlret { # sub for sql selects (that return data)
my $statement = $_[0];
# print "\n$statement\n";
shift @_;
my $sth = $dbh->prepare($statement)
or die "Couldn't prepare query: " . $dbh->errstr;
$sth->execute(@_)
or die "Couldn't execute query: " . $sth->errstr;
my @data = $sth->fetchrow_array();
$sth->finish;
@data;
}
Previous Deaths