Page 1 of 1
Помогите!
Posted: 26.12.2010 10:51
by GoodLuck
Всем Доброго дня или вечера!
Ребята можете переделать скрипт с инжекта под Стелс..
Code: Select all
sub main()
While uo.life > 1
while uo.mana > 10
uo.deletejournal()
Repeat
uo.waittargetobject(0x53BFE764)
uo.cast('Magic Trap')
wait(5000)
Until uo.injournal('*Trapped*')
Repeat
uo.waittargetobject(0x53BFE764)
uo.useskill('Remove Trap')
wait(5000)
Until uo.injournal('disarmed')
wend
While UO.mana < UO.INT
uo.deletejournal()
UO.useskill('Meditation')
Wait(1000)
Repeat
wait(500)
Until uo.injournal('cannot focus') or uo.injournal('You stop') or uo.injournal('You lost') or uo.injournal('I am already') or uo.injournal('You must')
wait(250)
Wend
wend
endsub
а то с инжекта часто выщебает Клиент (просто закрываеться без всяких ошибак)
Posted: 26.12.2010 11:26
by MuDaCk
Что такое Sub, wend, endsub и что это за UO.чтототам...?
Скриптик вроде бы небольшой и можно попробовать переписать, но эти сабы, венды и уо с точечкой меня сбивают с толку
Posted: 26.12.2010 13:09
by GoodLuck
MuDaCK wrote:Что такое Sub, wend, endsub и что это за UO.чтототам...?
Скриптик вроде бы небольшой и можно попробовать переписать, но эти сабы, венды и уо с точечкой меня сбивают с толку
это скрипт с инжекта, если не затруднит можешь переписать?под стилс?
Posted: 26.12.2010 13:52
by nikbk
Попробуй
Code: Select all
Program New;
procedure Medit;
var ctime: TDateTime;
i:Integer;
begin
ClearJournal;
while mana<>int do
begin
ctime:=Now
i:=0
useskill('Meditation');
repeat
wait(200);
i:=i+1;
until (InJournalBetweenTimes('You lose|You are', ctime, Now)<>-1) or (i=300);
wait(4000);
end;
end;
procedure castskill(Spell, Sms : string; d: Integer);
begin
if d = 1 then
begin
repeat
cast(Spell);
WaitTargetObject($53BFE764);
wait(5000);
until (InJournal(Sms)<>-1);
end
else
begin
repeat
useskill(Spell);
WaitTargetObject($53BFE764);
wait(5000);
until (InJournal(Sms)<>-1);
end;
end;
begin
while hp > 1 do
begin
while mana > 10 do
begin
ClearJournal;
castskill('Magic Trap','*Trapped*',1) ;
castskill('Remove Trap','disarmed',0) ;
end;
Medit;
end;
end.
Posted: 26.12.2010 14:39
by GoodLuck
nikbk wrote:Попробуй
Code: Select all
Program New;
procedure Medit;
var ctime: TDateTime;
i:Integer;
begin
ClearJournal;
while mana<>int do
begin
ctime:=Now
i:=0
useskill('Meditation');
repeat
wait(200);
i:=i+1;
until (InJournalBetweenTimes('You lose|You are', ctime, Now)<>-1) or (i=300);
wait(4000);
end;
end;
procedure castskill(Spell, Sms : string; d: Integer);
begin
if d = 1 then
begin
repeat
cast(Spell);
WaitTargetObject($53BFE764);
wait(5000);
until (InJournal(Sms)<>-1);
end
else
begin
repeat
useskill(Spell);
WaitTargetObject($53BFE764);
wait(5000);
until (InJournal(Sms)<>-1);
end;
end;
begin
while hp > 1 do
begin
while mana > 10 do
begin
ClearJournal;
castskill('Magic Trap','*Trapped*',1) ;
castskill('Remove Trap','disarmed',0) ;
end;
Medit;
end;
end.
Большое Спасибо!!!
Вот только если медетацию профизлин он .то очень много времени проходить что бы повторил ее
Posted: 26.12.2010 18:11
by nikbk
Code: Select all
until (InJournalBetweenTimes('You lose|You are', ctime, Now)<>-1) or (i=300);
поставь не 300 а поменьше
Re: Помогите!
Posted: 23.09.2015 10:11
by Ache
а если другая беда, вор юзает скилл кидает на сундук потом поевляется таргет и нужно клацнуть на пойзон и он трапит как переделать с каста на трап зулу)