Jump to content

Lineage 2

Не пропустите!

ВАЖНЫЕ ОБСУЖДЕНИЯ НА ФОРУМЕ:
ZULUHOTEL СНОВА ONLINE! РЕГИСТРАЦИЯ ОТКРЫТА!

Все последние новости, информация о событиях на Zuluhotel, чат с админами и игроками в нашем телеграм канале: @ZuluhotelRussia
А еще у нас есть канал в Discord!
 
К сожалению, форумный формат общения себя изживает и активности на форуме с каждым днем всё меньше.
Самый быстрый способ получить ответ на вопрос - воспользоваться нашим Telegram каналом или Discord'oм.

Присоединяйся! Общайся!

Хеллоу! Общежитие слушает.

ШАРД РАБОТАЕТ! ЗАХОДИ К НАМ В ДИСКОРД И В ТЕЛЕГРАМ!


Медитация


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

#1
Yellow

Yellow

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

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

Привет всем.

Есть у кого скрипт на медитацию с броком. Спасибо.



#2
koketka

koketka

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 580 posts
  • Location:Санкт-Петербург
  • Interests:Icq больше не работает, доступ не восстановить. Сижу в скайпе, телеграмме и дискорде, по всем вопросам пишите туда
program medit_brock;
 
{$Include 'all.inc'}
const
brock=$23C5; //Указать тип BLackRock`a
 
procedure medit;
Begin
   repeat
   waitconnection(10000);
    useskill('Meditation');
    wait(10500);
   until ( (InJournal('You enter') > -1) or (not(Connected)) );
 
   if (not(Connected)) then Exit;
 
   repeat
    wait(1000);
   until ( (InJournal('You stop m|lost|some time|at peace') > -1) or (not(Connected)) );
   waitconnection(10000);
End;
 
 
begin
  disarm;
while (connected) do
begin
if (ObjAtLayer(RHandLayer) = 0) then equipt(RHandLayer,brock);
wait(2000)
UnEquip(RHandLayer); 
wait(17000)
medit;
end;
end.


#3
Yellow

Yellow

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

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

Спасибо. Правда скрипт что-то очень долго все делает. Попробуем доработать.


Edited by Yellow, 25 July 2017 - 12:00 PM.


#4
Greeek!

Greeek!

    Грек

  • Пользователи
  • PipPipPipPipPipPipPipPipPipPip
  • 4,425 posts
  • Location:Санкт-Петербург

У медитации кд в 30 сек, а не 10 как у большинства скиллов. Ну и задержки в действиях поставлены с запасом под лаги.

 

Лучше совмешать с каким нить другим скиллом прокачку.

 

У меня вот так стоит:

 

Брок кастующий, бегалка что бы медит сбить.

Program New;constbrok = $23C5; bx = 4156;by = 580;ax = 4156;ay = 584;{$Include 'all.inc'}procedure med;beginEquipt(LHandLayer, brok);useskill('Meditation');newMoveXY(bx,by,true,0,true);wait(4000);newMoveXY(ax,ay,true,0,true);wait(5000);   UseSkill('Detect Hidden');      wait(10000);    UseSkill('Detect Hidden');      wait(10000);undress;wait(1000)end;beginwhile not dead domed;end.

Edited by Greeek!, 25 July 2017 - 12:21 PM.


#5
Yellow

Yellow

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

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

Спасибо, немного изменил, все работает.



#6
koketka

koketka

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 580 posts
  • Location:Санкт-Петербург
  • Interests:Icq больше не работает, доступ не восстановить. Сижу в скайпе, телеграмме и дискорде, по всем вопросам пишите туда

скрипт старый древний... в этом сезоне я его еще не ставила )



#7
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 600 posts
Program Anatomy; {$Include 'all.inc'}   const Enemy = $00004570; tweapon =$13FE;     //$13FE-katana  $1401-kryss tshield = $1B78; ax = 296; ay = 345; bx = 312; by = 345; cx = 312; cy = 344;   var n: TDateTime; r:integer;   procedure Anatomy; var d, t: TDateTime;   begin d:= StrToTime('0:00:11'); if ((now - n) > d) or (n = 0) then begin t:=now; UnEquip(RhandLayer); hungry(1, backpack); if WarMode = true then SetWarMode(false); if r=4 then begin UnEquip(LhandLayer); Equip(ShoesLayer,$422481BE); UseSkill('Meditation'); wait(200); UnEquip(ShoesLayer); r:=1; UnEquip(ShoesLayer); //newMoveXY(bx,by,true,0,true); //wait(500); //newMoveXY(ax,ay,true,0,true); if TargetPresent then CancelTarget; end else begin UseSkill('Hiding'); r:=r+1; wait(100); UOsay(' '); end; n:=now; end; Attack(Enemy); UnEquip(ShoesLayer); end;     procedure checkhp; var t: TDateTime;   begin if Armor < 20 then  begin uosay('армор'); wait(4000); end; if DEX < 270 then  begin uosay('блесс'); wait(4000); uosay('декс'); end; if hp <= 80 then begin //UseType($097B, $FFFF); //UseType($097B, $FFFF); //UseType($097B, $FFFF); //UseType($097B, $FFFF); newMoveXY(cx,cy,true,0,true); repeat begin wait(1000); end; until hp > 100; end else newMoveXY(bx,by,true,0,true); if mana > 20 then begin findtype($1F32,backpack); if findcount > 0 then begin UseType($1F32, $FFFF); //cast('Resurrection');      //Lightning   Magic Reflection //WaitTargetSelf; $00004101 //WaitTargetObject($00004101); WaitTargetType($0F51); wait(3500); end; if findcount = 0 then begin //cast('Reveal'); //Lightning //WaitTargetSelf; //WaitTargetType($0F51); wait(200); end; end; if mana <= 70 then begin newMoveXY(bx,by,true,0,true); wait(2000); newMoveXY(ax,ay,true,0,true); wait(2000); end; Anatomy; t:=now; if (GetHP(Enemy)<GetMaxHP(Enemy)/2) then SetWarMode(false);   //if (getquantity(findtype(tshield,backpack)) > 0) and (gettype(ObjAtLayer(LhandLayer)) <> gettype(finditem)) then       // begin        //addtosystemjournal('Shield Change, осталось '+inttostr(findcount-1));        //UnEquip(LHandLayer);        //wait(200);        // Equip(LhandLayer,finditem);        //end; findtype(tweapon,backpack); if findcount > 0 then Equip(RhandLayer,finditem); end;     Begin r:=1; SetARStatus(true); moveThroughNPC := 0; while true do         begin         checkhp;         wait(500);         end; End.

#8
долби

долби

    Вождь Зулу

  • Пользователи
  • PipPipPipPipPipPipPip
  • 600 posts

Это хороший скрипт на спаринг с прокачкой медитации, хаида и магери. По коврам бегал даже, только старый, не помню как работает.



#9
username1

username1

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

  • Пользователи
  • PipPipPipPipPipPip
  • 362 posts

Это хороший скрипт на спаринг с прокачкой медитации, хаида и магери. По коврам бегал даже, только старый, не помню как работает.

Скрипт хороший, но требует настройки под статы своего персонажа и под силу каста мага, который обкастует. Следовательно маг должен кастовать по ключевому слову. Лишнее убрать в общем нужно, либо модифицировать под каст скрипт)





0 user(s) are reading this topic

members, guests, anonymous users