反 "天涯RO"“移动速度”挂 [源码]

ok207版打开 \src\Network\Receive.pm 文件，搜索

一、在 use I18N qw(bytesToString); 下面加入

#==================leakl start==================
my $leakl = '吾变';
my $leakl2 = '空';
#==================leakl end==================

二、在 message TF("%s: Type 'talk resp #' to choose a response.\n", $name), "npc"; 下面加入

#==================leakl start-==================

use encoding 'utf8';
$leakl2 = $talk{responses}[2];
if ($leakl eq '快' and $leakl2 eq '不变') {
$messageSender->sendTalkResponse($ID, 1);
message "通常主角都是最后出场的，它已被秒杀了...\n", "success";
$leakl = '吾变';
$leakl2 = '空';
} elsif ($leakl eq '慢' and $leakl2 eq '不变') {
message "变蜗牛就不用秒吗？神经！\n", "success";
$messageSender->sendTalkResponse($ID, 2);
$leakl = '吾变';
$leakl2 = '空';
} elsif ($leakl eq '吾变' and $leakl2 eq '不变') {
$messageSender->sendTalkResponse($ID, 3);
message "想在忽悠我吗？把你秒了...\n", "success";
$leakl = '吾变';
$leakl2 = '空';
}
#==================leakl end==================

三、在 $char->{walk_speed} = $args->{val} / 1000; 下加入

 

#================leakl start==================

use encoding 'utf8';
my $speed2=sprintf '%.2f', 1 / $char->{walk_speed};
if ($speed2 > 9) {
$leakl= '快';
} elsif ($speed2 < 6) {
$leakl= '慢';
} else {
message "行走速度: $speed2\n", "success";
}
#==================leakl end==================

转载于:https://www.cnblogs.com/leakl/articles/1946798.html