Jump to content

Lineage 2


Animal Taming


  • You cannot reply to this topic
2 replies to this topic

#1
AloneHunter

AloneHunter

    Модератор

  • Пользователи
  • PipPipPipPipPipPipPip
  • 454 posts
  • Location:Москва
Скрипт не проверялся!


program ITM;

{$Include 'all.inc'}

const
horse = $00DB;


procedure GotoXY(x,y,prec : integer; runflag : boolean);
// x,y - координаты, в которые идем
// prec - точность подхода
// runflag - бежать или идти
// v. 1.04 (с) Edred, скрипт портирован с инжекта
// оригинальная версия Yoko с доработкой AGRS и Edred.
var ld, ldc, dx, dy, mx, my : Integer;
begin
AddToSystemJournal('Idem na vostok');
ld := 0; ldc := 0;
while true do
begin
dx := GetX(self) - x; if dx < 0 then dx := 0 - dx;
dy := GetY(self) - y; if dy < 0 then dy := 0 - dy;
if dy > dx then dx := dy;
if dx <= prec then exit;
mx := GetX(self); my := GetY(self);
dx := mx - x; if dx < 0 then dx := 0 - dx;
dy := my - y; if dy < 0 then dy := 0 - dy;
if dy > dx then dx := dy;
if dx <= prec then exit;
if ld = dx then begin
ldc := ldc + 1;
if ldc > 100 then begin addtosystemjournal( 'GotoXY: Cannot reach location!' ); exit; end;
end
else ld := dx;
waitconnection(10000);
if mx = x then begin
if my = y then exit;
// North
if my > y then begin Raw_Move(0,runflag); continue; end;
// South
Raw_Move(4,runflag); continue;
end;
if mx < x then begin
// Northeast
if my > y then begin Raw_Move(1,runflag); continue; end;
// East
if my = y then begin Raw_Move(2,runflag); continue; end;
// Southeast
Raw_Move(3,runflag); continue;
end;
// Southwest
if my < y then begin Raw_Move(5,runflag); continue; end;
// West
if my = y then begin Raw_Move(6,runflag); continue; end;
// Nortwest
Raw_Move(7,runflag); continue;
end;
end;

procedure tame;
begin
FindDistance:=10;
while true do
begin
clearjournal;
FindDistance:=10;
FindType(horse,ground);
wait(1000);
waittargetobject(finditem);
wait(1000);
UseSkill('Animal Taming');
wait(6000);
if (InJournal('You failed|You succe') > 0) then
begin
GotoXY(GetX(finditem),GetY(finditem),0,false);
useobject(finditem);
wait(1000);
useobject(self);
wait(1000);
UOsay('all release');
wait(500)
end;
end;
end;



BEGIN
while (not Dead) do
begin
while true do
begin
wait(1000);
tame;
end;
end;
end.

#2
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 584 posts
Чесно говоря бред какойто =) работать не должен

Edited by долби, 26 December 2011 - 07:18 AM.


#3
Made In Malaysia

Made In Malaysia

    Искатель Сокровищ

  • Пользователи
  • PipPipPip
  • 96 posts

Зачем кидать скрипт, который ты не првоерял, все равно что кинуть от балды написанные скрипты, в которых пользы 0 !







0 user(s) are reading this topic

members, guests, anonymous users