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

Reload current quest if applicable on game restarts

Browse Source
This commit is contained in:
John R. Dennison 2021-04-15 05:37:26 +00:00
parent db48fcdab0
commit 61daa8c5b4
1 changed files with 43 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

43
bot.v3.1.2.pl
View File

@ -407,6 +407,7 @@ sub parse {
else { chanmsg("0 users qualified for auto login."); }
undef(%prev_online);
undef(%auto_login);
loadquestfile();
}
elsif ($arg[1] eq '005') {
if ("@arg" =~ /MODES=(\d+)/) { $opts{modesperline}=$1; }
@ -1173,6 +1174,7 @@ sub rpcheck { # check levels, update database
}
undef(@{$quest{questers}});
$quest{qtime} = time() + 21600;
writequestfile();
}
# quest type 2 awards are handled in moveplayers()
}
@ -1953,6 +1955,7 @@ sub questpencheck {
}
undef(@{$quest{questers}});
$quest{qtime} = time() + 43200; # 12 hours
writequestfile();
}
}
}
@ -2181,6 +2184,46 @@ sub writequestfile {
close(QF);
}
sub loadquestfile {
return unless ($opts{writequestfile} && -e $opts{questfilename});
open(QF,$opts{questfilename}) or do {
chanmsg("Error: Cannot open $opts{questfilename}: $!");
return;
};
my %questdata = ();
while (my $line = <QF>) {
chomp $line;
my ($tag,$data) = split(/ /,$line,2);
$questdata{$tag} = $data;
}
return unless defined($questdata{Y});
$quest{text} = $questdata{T};
$quest{type} = $questdata{Y};
if ($quest{type} == 1) {
$quest{qtime} = $questdata{S};
}
else {
$quest{stage} = $questdata{S};
my ($p1x,$p1y,$p2x,$p2y) = split(/ /,$questdata{P});
$quest{p1}->[0] = $p1x;
$quest{p1}->[1] = $p1y;
$quest{p2}->[0] = $p2x;
$quest{p2}->[1] = $p2y;
}
for my $i (0..3) {
($quest{questers}->[$i],) = split(/ /,$questdata{'P'.($i+1)},2);
if (!$rps{$quest{questers}->[$i]}{online}) {
undef(@{$quest{questers}});
last;
}
}
close(QF);
writequestfile();
chanmsg("*** Previous quest restored ***");
}
sub goodness {
my @players = grep { $rps{$_}{alignment} eq "g" &&
$rps{$_}{online} } keys(%rps);