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