Jump to content

Lineage 2


Одевать щиты


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

#1
Fau

Fau

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 395 posts
Привет! Есть у кого простой скрипт, чтоб одевал новый щит после поломки первого?

#2
LuckyLuke

LuckyLuke

    Охотник на Драконов

  • Пользователи
  • PipPipPipPipPip
  • 167 posts
  • Location:Msk
  • Interests:Glory Hole
Program Anatomy;
 
 
const
Enemy =$00004544;      // кого атакуем
tweapon = $13FE;         // оружие какое вставляет в руку
tshield = $1B72;                // какой щит одевает
ax = 2908;                 // координата 1 там, где будет чар драться
ay = 114;                    // координата 2 там, где будет чар драться
bx = 2908;                // координата 1 там куда чар будет отбегать лечиться при лоу хп
by = 113;              // координата 2 там куда чар будет отбегать лечиться при лоу хп
 
{$Include 'all.inc'}
 
 
procedure checkall;
begin
if (not dead) and (connected) then
  begin
  if (getquantity(findtype(tweapon,backpack)) > 0) and (gettype(ObjAtLayer(RhandLayer)) <> gettype(finditem)) then
        begin
        addtosystemjournal('Weapon Change, осталось '+inttostr(findcount-1));
        UnEquip(RHandLayer);
        wait(500);
        Equip(RhandLayer,finditem);
        Wait(500);
        end;
  if (getquantity(findtype(tshield,backpack)) > 0) and (gettype(ObjAtLayer(LhandLayer)) <> gettype(finditem)) then
        begin
        addtosystemjournal('Shield Change, осталось '+inttostr(findcount-1));
        UnEquip(LHandLayer);
        wait(500);
        Equip(LhandLayer,finditem);
        wait(500);
        end;
  end;
end;
 
 
procedure checkbandages;
begin
if (count($0E21) < 45) and (not dead) then
  begin
  MoveItem(FindType($0E21,backpack),50,backpack,0,0,0);
  wait(500);
  end;
end;
 
 
procedure checkhp;
begin
if (HP < 83) then newMoveXY(bx,by,true,0,true);             // при 40  и меньше хп чар убегает в место отхила.
if (HP > 100) then newMoveXY(ax,ay,true,0,true);            // при 60 хп и больше чар подбегает в спаринг.
end;
 
 
Begin
SetARStatus(true);
moveThroughNPC := 1;
while true do
  begin
  SetWarMode(True);
  while not Dead do
        begin
        Hungry(1,backpack);
        checkhp;
        checkall;
        Attack(Enemy);
        checkhp;
        If TargetPresent Then CancelTarget;
        UseSkill('Anatomy'); 
        WaitTargetSelf;
        Wait(1000);
        checkbandages;
        If TargetPresent Then CancelTarget;
        if (count($0E21) > 0) then
         // begin
          if (HP < MaxHP) then
           //     begin
           //     UseType($0E21,$FFFF);
           //     WaitTargetSelf;
           //     Wait(1000);
          //      end;
         // end;  
 
 
Лови)


#3
Fau

Fau

    Покоритель Земель

  • Пользователи
  • PipPipPipPipPipPip
  • 395 posts
Спасибо)

#4
Made In Malaysia

Made In Malaysia

    Истребитель Нечисти

  • Пользователи
  • PipPipPipPip
  • 115 posts

Compiler: [Error] ( at 186:1): Unexpected end of file



#5
Get Out

Get Out

    Путешественник

  • Пользователи
  • PipPip
  • 46 posts

В самом конце напиши "End."







0 user(s) are reading this topic

members, guests, anonymous users