Hulp met Perl-code?
Kan iemand me helpen met deze Perl code?
[code] if (my $u = $self->{penguin}->{$PenguinID}) {
my $who = $u->{name};
$u->{update} = time;
print scalar(localtime).": [$$] [$self->{username}] INTERPRET: Penguin [$who] said: $said\n";
if ($said =~ /hello/i) {
$who =~ s/[ 0-9]//g; $who =~ s/^(.{9}).*/€ 0,81 (€ 0,81 ())/;
$self->doSendMessage("Hey!");
} elsif ($target and $who =~ /$target/i) {
if ($target_follow && $said =~ /follow/i) {
$target = "";
# Blurt out a random scriptcode
my $scriptcode = int(rand 32) + 1;
$self->doSendLineMessage($scriptcode);
} else {
# Pretend to lag a little bit
select(undef,undef,undef,0.55);
$self->doSendMessage($said);
}
} else {
if ($target_follow && $said =~ /follow/i) {
$target = $who;
$self->doSendPosition($u->{x},$u->{y});
}
}
}
}[/code]
Dit stukje...
[code] if ($said =~ /hello/i) {
$who =~ s/[ 0-9]//g; $who =~ s/^(.{9}).*/€ 0,81 (€ 0,81 (€ 0,81 (€ 0,81 ())))/;
$self->doSendMessage("Hey!");[/code]
...vertelt de 'robot' om 'Hey!' te zeggen als iemand anders 'hello' zegt.
Dat zou ik graag ook met andere teksten willen doen, bijv. dat hij 'Thanks' zegt als iemand anders 'You're the best' zegt.
Hoe voeg ik nog zo'n stukje toe?