diff --git a/Irpg/Quest.pm b/Irpg/Quest.pm index 031b0ebf69c161ed00c214380400048374e02735..d82726aa0f5ac5802c768de850dc190e76fcbbbe 100644 --- a/Irpg/Quest.pm +++ b/Irpg/Quest.pm @@ -136,7 +136,8 @@ sub quest { for (my $i = 0 ; $i <= 3 ; $i++) { Irpg::Irc::privmsg("You, $quest{questers}->[($i+1)%4], ". "$quest{questers}->[($i+2)%4] and ". - "$quest{questers}->[($i+3)%4] $txt", $quest{questers}->[$i]); + "$quest{questers}->[($i+3)%4] $txt", + $rps->{$quest{questers}->[$i]}{nick}); } } elsif ($quest{type} == 2) { @@ -150,7 +151,8 @@ sub quest { for ($i = 0 ; $i <= 3 ; $i++) { Irpg::Irc::privmsg("You, $quest{questers}->[($i+1)%4], ". "$quest{questers}->[($i+2)%4] and ". - "$quest{questers}->[($i+3)%4] $txt", $quest{questers}->[$i]); + "$quest{questers}->[($i+3)%4] $txt", + $rps->{$quest{questers}->[$i]}{nick}); } } writequestfile(); @@ -214,7 +216,7 @@ sub movequesters { for (@{$quest{questers}}) { Irpg::Irc::privmsg("You and your journey's companions ". "have reached the first step of your long quest. May the ". - "Gods keep on smiling upon you.", $_); + "Gods keep on smiling upon you.", $rps->{$_}{nick}); } $quest{stage}=2; $allgo=0; # have not all reached p2 yet @@ -232,7 +234,7 @@ sub movequesters { "have completed your ". "journey! 25% of your burden is eliminated. ". "The people can rejoice, the realm is sure a safer ". - "place now, thanks to the heroes you are.", $_); + "place now, thanks to the heroes you are.", $rps->{$_}{nick}); $rps->{$_}{next} = int($rps->{$_}{class}->real_gain( $rps->{$_}{next} * .75)); } @@ -283,7 +285,7 @@ sub rpcheck { Irpg::Irc::privmsg("You and your companions ". "have blessed the realm by ". "completing your quest! 25% of your burden is ". - "eliminated.", $_); + "eliminated.", $rps->{$_}{nick}); $rps->{$_}{next} = int($rps->{$_}{class}->real_gain( $rps->{$_}{next} * .75)); }