Oskom Forums

Oskom Forums


Добро пожаловать на Oskom Forums.
 
 
Сейчас на шардах UO Oskom
 
+ Ответить в теме
Показано с 1 по 9 из 9

Комбинированный просмотр

  1. Journeyman

    Регистрация
    21.04.2004
    Адрес
    [...............] Область:Саратов Город:Балаково Возраст:26 Раса: Человек это звучит гордо!!
    Сообщений
    394
    #1

    По умолчанию Помогите со скриптом плиз.....

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

  2. Novice

    Регистрация
    12.02.2004
    Адрес
    [Temple]
    Сообщений
    57
    #2

    По умолчанию

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

  3. Journeyman

    Регистрация
    21.04.2004
    Адрес
    [...............] Область:Саратов Город:Балаково Возраст:26 Раса: Человек это звучит гордо!!
    Сообщений
    394
    #3

    По умолчанию

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

  4. Expert

    Регистрация
    17.04.2001
    Адрес
    Arr [Valhalla]
    Сообщений
    422
    #4

    По умолчанию

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

  5. Moderator
    Аватар для Smilekot
    Регистрация
    27.06.2003
    Адрес
    Если бы мои понты светились, я был бы ангелом! Бабло по
    Сообщений
    3,182
    #5

    По умолчанию

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

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

  6. Master

    Регистрация
    25.05.2002
    Адрес
    одинокая Сволочь <Причинять добро и наносить пользу>
    Сообщений
    1,439
    #6

    По умолчанию

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

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

    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.
    можно, конечно, прикрутить лечение, чтобы титан не бить, но мне было лениво...

  7. Expert

    Регистрация
    17.04.2001
    Адрес
    Arr [Valhalla]
    Сообщений
    422
    #7

    По умолчанию

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

  8. Master

    Регистрация
    25.05.2002
    Адрес
    одинокая Сволочь <Причинять добро и наносить пользу>
    Сообщений
    1,439
    #8

    По умолчанию

    Цитата Сообщение от Arr
    в пилоте максимум строчек 20 будет
    не уверен...
    http://stratics.uoo.ru/articles/guid...complex_a.html
    только он врядли будет работать как надо...

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

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

  9. Journeyman

    Регистрация
    21.04.2004
    Адрес
    [...............] Область:Саратов Город:Балаково Возраст:26 Раса: Человек это звучит гордо!!
    Сообщений
    394
    #9

    По умолчанию

    Цитата Сообщение от Arr
    во изврат..... в пилоте максимум строчек 20 будет-)
    Давненько я на паскале не писал
    Помоему это просто понты и небольше....... Ты бы скинул лучше как на пилоте а не флудил...
    зы Alex M.A. Спасибо болшое что откликнулся

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения