Помогите со скриптом плиз.....

[KPECTUK]

Скрипт на фенцинг, максимум 2 окна, кукла без хилинга.
Тоесть чар который качается - бьёт куклу ножом, лечит(хил 100) , кушает, заново берёт в руки нож, и колбасит все по новой , при необходимости пьет рефрешки.
зы буду очень признателен тому кто поможет в скрипте.

[Vader]

на чем скрипт?? пилот?? УОСкрипт?? инж... тьфу! :)))

[KPECTUK]

на чем скрипт?? пилот?? УОСкрипт?? инж... тьфу! ))

Да начем незапрещено. Но лучше на пилоте. там я хоть немного могу разобратся. Или на УОСкрипт.
зы Ребят ну че вам жалко чтоль? Полюбому же у кого нить есть. Епт это же мелоч.

[Arr]

Меня почему то всегда удевляло почему люди не могут написать сами скрипт? Ты сам все описал... все свои действия вот их и пиши в скрипт.. только паузы не забывай делать

[Smilekot]

УОскрипт запрещен кроме версии "Оском Эдишен"

Макросить лучше на связке пилот+ассист в три окна! В два окна можно, но гораздо дольше и не очень устойчивый получится скрипт.

[Alex M.A.]

если есть время и нет кучи свободных чаров...

что качаем:
- Боевой скилл
- Медитация
- Магия
- Спирит спик

Fencing растет приемлемо...

условия:
- Full Titan Plate + Any Heater (я использовал Shadow... прочнее)
- десяток даггеров в паке
- чар обставленный столами (чтобы животина не сбегала, когда убивать ее будешь)
- по 700-1000 Spider Silk, Blood Moss, Mandrake Root в паке

макросы в УО:
- F3 - LastObject
- F4 - Use LastSkill
- F6 - Cast LastSpell
- F8 - WaitForTarget | TargetSelf (внимательно)
- F12 - AttackLast

Program FencingWithSummon;
const
  CPolarBear = $00D5;
  CGrizzlyBear = $00D4;
  CPolarBearIndex = 10;
  CGrizzlyBearIndex = 8;
  CSpellBook = $0EFA; //3834
  CDagger = $0F51;
  CPickAxe = $0E85;
  CHammer = $13E3;
  
var k, Weapon: LongInt;    
    MenuHandle, Target, BackPack, WeaponID: LongInt;
    CharX, CharY: LongInt;

function FindContainerByItem(aItemType, aItemColor: Word; aItemID: LongInt): LongInt;
var aGumpsList, k, i, aGump, aID: LongInt;
    st: String;
    Found: Boolean;
begin
  Result:=0;
  GetGumpsList(aGumpsList);
  GetListCount(aGumpsList, k);
  If k<>0 Then 
    For i:=0 to k-1 do 
      begin
        GetListItem(aGumpsList, i, aGump, st);
        If aItemColor<>$FFFF Then Found:=FindObjectByColor(aGump, aItemType, aItemColor, aID)
        Else Found:=FindObject(aGump, aItemType, aID);
        If aItemID<>0 Then Found:=Found and (aItemID=aID);
        If Found Then
          begin
            Result:=aGump;
            Break;
          end;
      end;
  FreeObjectsList(aGumpsList); 
end;


function FindTarget(var aID: LongInt; aTimeOut: LongInt): Boolean;
var aList, aChar, aCharID, k, i, t: LongInt;
    x, y, z, aType: Word;
    st: String;
begin
  Result:=False;
  t:=0;
  Repeat
  GetCharsList(aList, False);
  GetListCount(aList, k);
  If k<>0 Then
  For i:=0 to k-1 do
    begin
      GetListItem(aList, i, aChar, st);
      GetCharInfo(aChar, aType, aCharID);
      GetObjectPos(aChar, x, y, z);
      If (aType=CGrizzlyBear) and (x=CharX) and (y=CharY) Then
        begin
          Result:=True;
          aID:=aCharID;
          Break;
        end;
    end;
  FreeObjectsList(aList);
  Delay(1000);
  t:=t+1000;
  Until Result or (t>aTimeOut);
end;

begin
  BackPack:=FindContainerByItem(CSpellBook, $FFFF, 0);
  If BackPack=0 Then 
    begin
      Writeln('Не найдет бакпак');
      Exit;
    end;
  CharX:=_posx;
  CharY:=_posy;
  Repeat
    Repeat 
      SendKey(k_Tab);
      Delay(500);
      While _mana<=_int do
        begin
          SetLastSkill(sk_Meditation);
          SendKey(k_F4);
          Delay(3000);
        end;
      Delay(3000);
      SetLastSkill(sk_SpiritSpeak);
      SendKey(k_F4);
      Delay(3000);
  
      SetLastSpell(sp_SummonCreature);
      SendKey(k_F6);
      k:=0;
      Repeat
        Delay(1000);
        k:=k+1000;
      Until FindCraftMenu('summon', MenuHandle) or (k>10000);
      Delay(1000);
      SetFirstItemIndex(MenuHandle, CGrizzlyBearIndex);
      Delay(1000);
      LeftDoubleClick(59,70);
      Delay(1000);
      SendKey(k_F8);
      Delay(3000);
    Until FindTarget(Target, 10000);
    SetLastTarget(Target);
    Delay(1000);
    SendKey(k_F12);
    Repeat
      Delay(1000);
    Until not FindTarget(Target, 1000);

    If FindObject(BackPack, CDagger, WeaponID) Then
      begin
        SetLastObject(CDagger, WeaponID);
        SendKey(k_F3);
      end;
  Until False;
end.

можно, конечно, прикрутить лечение, чтобы титан не бить, но мне было лениво...

[Arr]

во изврат..... в пилоте максимум строчек 20 будет-)
Давненько я на паскале не писал

[Alex M.A.]

в пилоте максимум строчек 20 будет

не уверен...
http://stratics.uoo.ru/articles/guid...complex_a.html
только он врядли будет работать как надо...

изврат, если с нуля писать...
это сюда я его причесал и вытряхнул целиком...
а так в скрипте половина состоит из {$Include filename} давно отработанных функций...

P.S. да, я маньяк...

[KPECTUK]

во изврат..... в пилоте максимум строчек 20 будет-)
Давненько я на паскале не писал

Помоему это просто понты и небольше....... Ты бы скинул лучше как на пилоте а не флудил...
зы Alex M.A. Спасибо болшое что откликнулся