Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7

Хелп

тут можно задать вопрос по скриптингу
Post Reply
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Хелп

Post by Chepka »

Помогите со скриптом на ТАминг
я сейчас играюсь на зулухотел
там очень спецыфичиская прокачка таминга:)

вобщем скрипт должен работать так:
тамим животное(обязательно ездовое)
залазим на него
слазим с него
кричим алл релиз и опять тамим

проблема заключается вот в чем, обычно во всех скриптах мы указывем айди животного и на этом всё заканчивается, тут немножко подругому, когда мы проделываем эти действия айди меняетс!!!
поиск по типу тогоже остарда ничего недаёт! ну или я чёто нетак делал:)) (руки у меня кривоваты:)

подскажите ктонибуть как можно зделать так чтоб стелс всётаки находил животное и тамил его (находил по типу допустим)

скрипт набросал(самый примитив но меня устраивает и такой:) :

Program Taming;
var t : Integer;

{$Include 'all.inc'}

Begin
SetARStatus(true);
Hungry(1,backpack);
clearjournal;
while not Dead do
begin
if Connected then
begin
for t := 0 to 10 do
begin
if TargetPresent then CancelTarget;
CheckTargetError(2,2);
CheckSave;
WaitTargetObject($0118C75D); #tvarb
UseSkill('Animal Taming');
Wait(10000);
Useobject($0118C75D); #tvarb
Wait(500);
Useobject($01190028); # ya
Wait(500);
UOsay('all release');
end;
Hungry(1,backpack);
end;
end;
End.


Надо какимто образом зделать так чтоб вместо

WaitTargetObject($0118C75D); #tvarb
Useobject($0118C75D); #tvarb

была какаято функция кторая ищет животное по типу или имени на крайний случай:)
помогите кто чем может:)

и ещё один нюанс, поддерживает ли стелс руский текс, просто на зулу большая половина ультимы переведана на русский язык, т.е. там нельзя написать:

WaitJournalLine(Now,'You successfully tame|You fail', 45000);

а надо так

WaitJournalLine(Now,'Вы удачно затамили животное или чёто в этом роде:)', 45000);

я б сам проверил на практике но сейчас нету возможности, да и небудет в ближайшие пару дней
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Post by Chepka »

и ещё одно:)
в инжекте пишется всё просто
UO.Usetype("0x0DBF")
Wait(500)
UO.Exec("waittargettile 6040 2519 391 251")
как написать такоеже в стелсе
просто у меня возникла идейка написать примитивный скрипт на майнинг:) надо ж с чегото начинать:)

или написать немножко подругому, чтобы чар находил свои координаты и к ним приплюсовывал +1 по иксу или игрику
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Post by Chepka »

yo люди!!!
нипишитеже чтонибуть по этому поводу:) аот уже 2 дня прошло и никто-ничё:(
xuma
Posts: 8
Joined: 11.02.2006 15:11
Contact:

Post by xuma »

юстайпов в стелсе нет...как вариант можешь находить предмет по типу где либо(пак/земля) и уже использовать его через файндитем
команды с таргетом на тайл тут тоже есть-ищи внимательней тему с списком команд
ЗЫ: всегда думал что сначала надо ловушку на таргет установить, а потом уже только таргет кидать;)
Miralex
Developer
Developer
Posts: 656
Joined: 11.03.2005 19:12
Contact:

Re: Хелп

Post by Miralex »

Chepka wrote: поиск по типу тогоже остарда ничего недаёт! ну или я чёто нетак делал:)) (руки у меня кривоваты:)
Просто пишешь:

Code: Select all

if (FindType(AnimalType, Ground) <> 0) then
    begin
    //Здесь уже в FindItem будет ID твоего животного.
    end;
Да, и не забудь, что FindDistance, по умолчанию, = 2.
Chepka wrote: и ещё один нюанс, поддерживает ли стелс руский текс
На "зулухотел" не проверял. На других работало. Проверь сам и будешь знать точно.
Chepka wrote: UO.Usetype("0x0DBF")
Делай FindType и далее UseObject.
Miralex
Developer
Developer
Posts: 656
Joined: 11.03.2005 19:12
Contact:

Post by Miralex »

xuma wrote:всегда думал что сначала надо ловушку на таргет установить, а потом уже только таргет кидать;)
На стелсе это не обязательное условие. Если будет таргет - ловушка просто сразу и сработает. :wink:
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Post by Chepka »

Спасибо за подсказки
надеюсь теперь будет работать:)
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Post by Chepka »

Вобщем опять возникла проблемка с этим же скриптом:)
надо чтобы при определённой фразе появляющейся в журнале он переставал тамить и начинал юзать другой скил нное количество раз
например 36 если задержка на скил 10сек
я тут пытался чёто склепать но как всегда увы:)
помогите кто чем может:)
Program Taming;
var
TimeSay : TDateTime;

{$Include 'all.inc'}

Begin
SetARStatus(true);
FindDistance := 8;
while true do
begin
if Connected then
begin
Hungry(1,backpack);
CheckSave;
TimeSay := Now;
wait(100)
waittargetobject(findtype($00DB, Ground));
UseSkill('Animal Taming');
WaitJournalLine(Now,'successfully|failed|within your line|tame already|another action', 37000);
if InJournalBetweenTimes('unresponsive|angered',TimeSay,Now) >= 0 then begin

FindType($0DE1,backpack);
if FindCount > 0 then
MoveItems(backpack,$0DE1,$FFFF,ground,0,0,0,1);
useobject(findtype($0DE1, Ground));
Wait(10000);

end;
UOsay('all follow me');
Wait(2000);
useobject(findtype($00DB, Ground));
Wait(1400);
useobject(findtype($0190, Ground));
Wait(1400);
UOsay('all release');
end;
end;
End.
и ещё с вот этим кусочком возникла проблемка это какраз тот другой скил который должен начинатся юзатся при определённой фразе в журнале:)
я писал его для того чтоб с бекпака чар скинул 1 щепку и подпалил её
увы скидывать щепку он принцыпиально отказался:)
FindType($0DE1,backpack);
if FindCount > 0 then
MoveItems(backpack,$0DE1,$FFFF,ground,0,0,0,1);
useobject(findtype($0DE1, Ground));
Wait(10000);
L'inconnu
Novice
Novice
Posts: 73
Joined: 03.02.2006 8:46
Contact:

Post by L'inconnu »

вот с типа всякой разной живности. расстояние и сообщения подправьте под свой шард.

http://drguild.eater.ru/scripts.php?scr ... _taming.sc
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Post by Chepka »

Со всем разобрался кроме того как скидывать один итем из кучки в бекпаке себе под ноги:)
подскажите ктонить:)
и как написать чтоб он проделывал это ровно 36 раз:)
я конешно могу зделать 36 раз ctrl+c ctrl+v но это гон:)
Miralex
Developer
Developer
Posts: 656
Joined: 11.03.2005 19:12
Contact:

Post by Miralex »

Chepka wrote:Со всем разобрался кроме того как скидывать один итем из кучки в бекпаке себе под ноги:)
У тебя в папке Demo есть скрипт joke.sc. Он как раз это и делает. :wink:
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Post by Chepka »

как написать чтоб он проделывал это ровно 36 раз:)
я конешно могу зделать 36 раз ctrl+c ctrl+v но это гон:)
как ниписать в стелсе чтоб делал одноитоже нное количество раз?
в инже знаю а в стелсе нетак:)

если в начаце фции написать
for t:=1 to 10 do
а вконце
t:=1;
оно будет делать 10 раз?
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Post by Chepka »

кстати joke не работает
и что там за айди в джоке?
Miralex
Developer
Developer
Posts: 656
Joined: 11.03.2005 19:12
Contact:

Post by Miralex »

Chepka wrote:кстати joke не работает
и что там за айди в джоке?
Не работает потому, что у тебя в паке нету айтимов с типом $0E21.
Если кидать хочешь что-то другое - поменяй тип.
Chepka
Neophyte
Neophyte
Posts: 40
Joined: 04.12.2005 23:19
Contact:

Post by Chepka »

Miralex wrote:
Chepka wrote:кстати joke не работает
и что там за айди в джоке?
Не работает потому, что у тебя в паке нету айтимов с типом $0E21.
Если кидать хочешь что-то другое - поменяй тип.
изначально в скрипте стоит тип рыбы жареной, я сразуже поменял та тип щепок который мне надо но он ничего не кидал:( , тогда я запихнул в пак жареную рыбу и всёравно ничего не происходило:(
Post Reply