PsychoticNinja/idlerpg-ng
1
0
Fork 0
mirror of https://github.com/PsychoticNinjaRepo/idlerpg-ng.git synced 2025-04-29 23:11:13 -05:00
Code Issues Projects Releases Wiki Activity

Game title is configurable

Browse Source
This commit is contained in:
John R. Dennison 2021-04-25 09:32:25 -05:00
parent 0dea19551a
commit 94ab2378c0
2 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
idlebot.pl
View File

@ -97,6 +97,7 @@ GetOptions(\%opts,
"newuserdest=s", "newuserdest=s",
"newuserfromname=s", "newuserfromname=s",
"newuserfromaddr=s", "newuserfromaddr=s",
"gametitle=s",
) or debug("Error: Could not parse command line. Try $0 --help\n",1); ) or debug("Error: Could not parse command line. Try $0 --help\n",1);
$opts{help} and do { help(); exit 0; }; $opts{help} and do { help(); exit 0; };
@ -332,7 +333,7 @@ sub parse {
sts("WHO $opts{botchan}"); sts("WHO $opts{botchan}");
(my $opcmd = $opts{botopcmd}) =~ s/%botnick%/$opts{botnick}/eg; (my $opcmd = $opts{botopcmd}) =~ s/%botnick%/$opts{botnick}/eg;
sts($opcmd); sts($opcmd);
chanmsg ("*** IdleRPG has returned ***"); chanmsg ("*** $opts{gametitle} ver $version has returned ***");
$lasttime = time(); # start rpcheck() $lasttime = time(); # start rpcheck()
} }
} }
@ -433,7 +434,7 @@ sub parse {
if (lc($arg[2]) eq lc($opts{botnick})) { # to us, not channel if (lc($arg[2]) eq lc($opts{botnick})) { # to us, not channel
$arg[3] = lc(substr($arg[3],1)); # lowercase, strip leading : $arg[3] = lc(substr($arg[3],1)); # lowercase, strip leading :
if ($arg[3] eq "\1version\1") { if ($arg[3] eq "\1version\1") {
notice("\1VERSION IRPG bot v$version by jotun; ". notice("\1VERSION $opts{gametitle} bot v$version by jotun/jrd; ".
"http://idlerpg.net/\1",$usernick); "http://idlerpg.net/\1",$usernick);
} }
elsif ($arg[3] eq "peval") { elsif ($arg[3] eq "peval") {
@ -860,7 +861,7 @@ sub parse {
else { else {
$opts{reconnect} = 0; $opts{reconnect} = 0;
writedb(); writedb();
chanmsg ("IdleRPG is taking a short break and shall return shortly."); chanmsg ("$opts{gametitle} is taking a short break and shall return shortly.");
fq (); fq ();
sts("QUIT :DIE from $arg[0]",1); sts("QUIT :DIE from $arg[0]",1);
} }
@ -932,7 +933,7 @@ sub parse {
} }
else { else {
writedb(); writedb();
chanmsg("*** IdleRPG is restarting ***"); chanmsg("*** $opts{gametitle} ver $version is restarting ***");
fq(); fq();
sts("QUIT :RESTART from $arg[0]",1); sts("QUIT :RESTART from $arg[0]",1);
close($sock); close($sock);
@ -1192,7 +1193,7 @@ sub rpcheck { # check levels, update database
if ($rpreport && $rpreport%43200==0) { # 12 hours if ($rpreport && $rpreport%43200==0) { # 12 hours
my @u = sort { $rps{$b}{level} <=> $rps{$a}{level} || my @u = sort { $rps{$b}{level} <=> $rps{$a}{level} ||
$rps{$a}{next} <=> $rps{$b}{next} } keys(%rps); $rps{$a}{next} <=> $rps{$b}{next} } keys(%rps);
chanmsg("Idle RPG Top Players:") if @u; chanmsg("$opts{gametitle} Top Players:") if @u;
for my $i (0..2) { for my $i (0..2) {
$#u >= $i and $#u >= $i and
chanmsg("$u[$i], the level $rps{$u[$i]}{level} ". chanmsg("$u[$i], the level $rps{$u[$i]}{level} ".
@ -2419,7 +2420,7 @@ sub report_new ($$$$) {
my ($char, $class, $nick, $host) = @_; my ($char, $class, $nick, $host) = @_;
# mail subject # mail subject
my $subject = "New IdleRPG-NG Character"; my $subject = "New $opts{gametitle} Character";
# name of the mail program being used # name of the mail program being used
my $mail_prog = "/usr/lib/sendmail"; my $mail_prog = "/usr/lib/sendmail";
@ -2432,7 +2433,7 @@ sub report_new ($$$$) {
print MAILPIPE "From: \"$opts{newuserfromname}\" <$opts{newuserfromaddr}>\n"; print MAILPIPE "From: \"$opts{newuserfromname}\" <$opts{newuserfromaddr}>\n";
print MAILPIPE "Subject: $subject\n"; print MAILPIPE "Subject: $subject\n";
print MAILPIPE "\n"; print MAILPIPE "\n";
print MAILPIPE ("A new IdleRPG character has been created:\n"); print MAILPIPE ("A new $opts{gametitle} character has been created:\n");
print MAILPIPE "\n"; print MAILPIPE "\n";
print MAILPIPE ("Char: $char\n"); print MAILPIPE ("Char: $char\n");
print MAILPIPE ("Class: $class\n"); print MAILPIPE ("Class: $class\n");
@ -2448,7 +2449,7 @@ sub report_new ($$$$) {
sub quit { sub quit {
$opts{reconnect} = 0; $opts{reconnect} = 0;
writedb(); writedb();
chanmsg ("IdleRPG is taking a short break and shall return shortly."); chanmsg ("$opts{gametitle} is taking a short break and shall return shortly.");
fq (); fq ();
sts("QUIT :DIE from terminal",1); sts("QUIT :DIE from terminal",1);
} }

3
irpg.conf
View File

@ -251,3 +251,6 @@ newuserfromname IdleRPG Monitor
# From addr on newuser report email # From addr on newuser report email
newuserfromaddr idlerpg-monitor\@email.tld newuserfromaddr idlerpg-monitor\@email.tld
# game title used in channel announcements, emails, etc
gametitle game title