sub fishing{
my($mx, $my, $mz, $i, $j);
$mx = uo::getx('self');
$my = uo::gety('self');
$mz = uo::getz('self');
uo::deletejournal() ;
for $i(-6..6){
for $j(-6..6){
while (!uo::hidden()){
uo::warmode("0");
uo::print("hiding...");
uo::useskill("Hiding");
&wait(4000);
}
uo::print("Now Fishing In: $i $j");
while (!uo::injournal('no fish here') && !uo::injournal('far away') && !uo::injournal('in water') && !uo::injournal('Try fishing')){
uo::deletejournal();
uo::waittargettile('1341',$mx+$i, $my+$j,$mz);
uo::usetype("0x0DBF");
while (!uo::injournal('You pull') && !uo::injournal('location') && !uo::injournal('no fish') && !uo::injournal('You fail') && !uo::injournal('far away') && !uo::injournal('in water') && !uo::injournal('Try fishing')){
&wait (100);
if (uo::injournal('You pull')) {
uo::findtype('0x09CC','0x0000','ground');
uo::grab ('3','finditem');
&wait (200);
uo::findtype('0x09CD','0x0000','ground');
uo::grab ('3','finditem');
&wait (200);
uo::findtype('0x09CE','0x0000','ground');
uo::grab ('3','finditem');
&wait (200);
uo::findtype('0x09CF','0x0000','ground');
uo::grab ('3','finditem');
&wait (200);
uo::findtype('0x0E2D','0x07A0','ground');
uo::grab ('1','finditem');
}
}
}
uo::deletejournal();
}
}
}Переписаный скриптовый модуль для инжекта, язык скриптов - Перл.
http://pinject.darkuo.ru








