Есть у когонить ?
Posted: 03.07.2011 22:04
Доброе время суток ! Есть у кого нить скрипт на миненг по рункам, а не по рунбуку.
Буду очень благодарен !
Буду очень благодарен !
Альтернативный клиент Ultima Online
https://stealth.od.ua/forum/
Code: Select all
const
runa1:$00000000;
runa2:$00000000;
runa3:$00000000;
runa4:$00000000;
Procedure UseMagery(runa:Cardinal);
begin
AddToSystemJournal('Магия');
checksave;
checklag(60000);
begin
WaitTargetObject(runa);
repeat
ctime := Now;
Cast('Recall');
h:=0;
repeat
wait(100);
checksave;
checklag(60000);
h:=h+1;
until (InJournalBetweenTimes('Заклинание не удалось|Вы успешно применили заклинание|У вас недостаточно маны для этого заклинания', ctime, Now)>= 0)or dead or (h>100);
until (InJournalBetweenTimes('Вы успешно применили заклинание|У вас недостаточно маны для этого заклинания', ctime, Now)>= 0)or dead or (h>100);
end;
end;
begin
UseMagery(runa1);
UseMagery(runa2);
UseMagery(runa3);
UseMagery(runa4);
end.
Я могу ошибаться, но мининг по рункам включает в себя еще как минимум проверку, добор и маркировку рун с докупкой реагентов.shinma wrote:Черновой вариант, но смысл тот же. так-что вперед изменяй свой код.
Code: Select all
const runa1:$00000000; runa2:$00000000; runa3:$00000000; runa4:$00000000; Procedure UseMagery(runa:Cardinal); begin AddToSystemJournal('Магия'); checksave; checklag(60000); begin WaitTargetObject(runa); repeat ctime := Now; Cast('Recall'); h:=0; repeat wait(100); checksave; checklag(60000); h:=h+1; until (InJournalBetweenTimes('Заклинание не удалось|Вы успешно применили заклинание|У вас недостаточно маны для этого заклинания', ctime, Now)>= 0)or dead or (h>100); until (InJournalBetweenTimes('Вы успешно применили заклинание|У вас недостаточно маны для этого заклинания', ctime, Now)>= 0)or dead or (h>100); end; end; begin UseMagery(runa1); UseMagery(runa2); UseMagery(runa3); UseMagery(runa4); end.
Code: Select all
Говнокодом
абалденный скриптописатель, тока как выше сказал скорее тролеписатель, без общения и вопросов с челом смотрю сразу набрасал ему готовый скрипт . тока чото твой пост не запускается на стелсе, наверно потому что пост не в тему. да и судя по парочке твоих скриптов аля стелс +инжект. впредь мозг включи прежде чем что-то писать, троль.добор и маркировку рун
Откуда столько ненависти? Тебе вольер чтоли не почистили сегодня?shinma wrote:скриптописатель или как тебя там, чатовый троль если ты внимательно посмотришь на скрипт который ему понравиля там рунки как раз по ид прописаны, а этим я смотрю ты афигенно вы...ся хотелабалденный скриптописатель, тока как выше сказал скорее тролеписатель, без общения и вопросов с челом смотрю сразу набрасал ему готовый скрипт . тока чото твой пост не запускается на стелсе, наверно потому что пост не в тему. да и судя по парочке твоих скриптов аля стелс +инжект. впредь мозг включи прежде чем что-то писать, троль.добор и маркировку рун