Page 1 of 1

Есть у когонить ?

Posted: 03.07.2011 22:04
by Lietman
Доброе время суток ! Есть у кого нить скрипт на миненг по рункам, а не по рунбуку.
Буду очень благодарен !

Re: Есть у когонить ?

Posted: 04.07.2011 6:28
by shinma
Черновой вариант, но смысл тот же. так-что вперед изменяй свой код.

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.

Re: Есть у когонить ?

Posted: 04.07.2011 10:47
by Scripts Writer
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.
Я могу ошибаться, но мининг по рункам включает в себя еще как минимум проверку, добор и маркировку рун с докупкой реагентов.

Зачем вообще что-то было писать в твоем случае, или ты думаешь, он сейчас кинется менять твой говнокод под себя, настраивать, дописывать то, что я написал выше и в итоге будет тебе безмерно за это благодарен?

Сомневаюсь, но посмотрим.

Re: Есть у когонить ?

Posted: 04.07.2011 11:03
by shinma
жалко мат вырезали сразу вопрос. скока в рунке реколов нужно ли рунки марчить какой шард у типа чо там с магией и рунками. итд это все троль узнал благодоря телепатии и

Code: Select all

Говнокодом
называется юзать инжект для разметки скал. использовать еще и текстовый документ там и прочую чушь. ты еще туда мигалку прикрути через USB чоб мигала када убивают. и к стати тебе писал скрипт на мининг для поиска автоматом де копать, но так чтобы ты и мозгами поработал. тока смотрю намеки уходят в дыру.

Re: Есть у когонить ?

Posted: 04.07.2011 11:06
by Lietman
Всем спасибо уже нашел скрипт на миненг по рункам !
http://stealth.od.ua/forum/viewtopic.ph ... 0%BD%D1%8B

Re: Есть у когонить ?

Posted: 04.07.2011 11:12
by shinma
скриптописатель или как тебя там, чатовый троль если ты внимательно посмотришь на скрипт который ему понравиля там рунки как раз по ид прописаны, а этим я смотрю ты афигенно вы...ся хотел
добор и маркировку рун
абалденный скриптописатель, тока как выше сказал скорее тролеписатель, без общения и вопросов с челом смотрю сразу набрасал ему готовый скрипт . тока чото твой пост не запускается на стелсе, наверно потому что пост не в тему. да и судя по парочке твоих скриптов аля стелс +инжект. впредь мозг включи прежде чем что-то писать, троль.

Re: Есть у когонить ?

Posted: 04.07.2011 11:22
by MuDaCk
Шинма, Хорошая заготовка ! :roll:
Умному достаточно и заготовки.

Re: Есть у когонить ?

Posted: 04.07.2011 11:27
by Scripts Writer
shinma wrote:скриптописатель или как тебя там, чатовый троль если ты внимательно посмотришь на скрипт который ему понравиля там рунки как раз по ид прописаны, а этим я смотрю ты афигенно вы...ся хотел
добор и маркировку рун
абалденный скриптописатель, тока как выше сказал скорее тролеписатель, без общения и вопросов с челом смотрю сразу набрасал ему готовый скрипт . тока чото твой пост не запускается на стелсе, наверно потому что пост не в тему. да и судя по парочке твоих скриптов аля стелс +инжект. впредь мозг включи прежде чем что-то писать, троль.
Откуда столько ненависти? Тебе вольер чтоли не почистили сегодня?

Re: Есть у когонить ?

Posted: 04.07.2011 11:31
by shinma
потому что ненавижу когда обзывают чужое чтото сделаное когда у самого реально есть только говнокод на инжекте и недобитай алхимия.а в посте даже не одного примера кроме ***.

Re: Есть у когонить ?

Posted: 04.07.2011 18:43
by Alex
Друзья, давайте вежлевее быть. Осуждать кого то просто что бы выразить свое отношение - безсмысленно. Пользы для окружающих такое сообщение несёт в себе ноль. Знаеш решение лучше, предложи, кто-то прочитает, научится. а чему можно научится из вашего чата "дурак <-> сам дурак"? вопрос риторический.