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

[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/guides/ayra_complex_a.html
только он врядли будет работать как надо...

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

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

[KPECTUK]

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