Антимакрос UO Еволюшн

[Sideus]

Парни помогите с антимакросом на буржуйском шарде ...
Выглядит так :

Инфогамп

Code: Select all

Serial: 2DF743
GumpID: 968740
X: 0064
Y: 0064
Pages: 0
Gump Options: NoResize

GumpPics: X  Y  ID  Hue  Page  ElemNum
GumpPic: 180  101  2443  1153  0  3

ResizePics: X   Y   ID   Width   Height   Page   ElemNum
0   ResizePic: 100  10  5054  300  150  0  1

GumpTexts: X   Y   Color   Text_ID   Page   ElemNum
0   GumpText: 140  20  250  0  0  2
1   GumpText: 230  50  1153  2  0  6

TextEntries: X   Y   Width   Height   Color   Return_value   Default_text_id   Page   ElemNum
0   TextEntry: 182  103  53  20  0  3  1  0  5

Text Lines:
Please answer the following Question

5 + 0

GumpButtons: X   Y   Released_ID  Pressed_ID   Quit   Page_ID   Return_value   Page   ElemNum
0   GumpButton: 255  101  247  248  1  0  442  0  4

Previous gump reply:
  Button id: 110
Text entries:
  3 11

бывает 2 варианта вычислений плюс и минус ...
понимамаю что впринципе не сложный антимакрос, но знаний не хватает

[GeeZeR]

Беги оттуда, там всё решает донат. Добывать руду ниже чем платина бессмысленно, и бота на коп руды тоже делать бессмысленно, потому что остальная руда копейки стоит у вендоров, а игрокам она не нужна. Тебе чтобы на ней заработать нужно круглосуточно копать не одним ботом, короче бред, а платину копают руками и если 200+ майнинга + Prospector Tool и Gargoyle Pickaxe, ты её просто накопаешь быстро сколько нужно и пойдёшь себе крафтить, кроме того обязательно выскочит платиновый элем и завалит тебя.
Чтобы иметь 200+ майнинга нужен 120 Mining Powerscroll (3 миллиона), нужны clothes шмотки на +10 майнинга (лимонов 3-5 каждая) и кольчужный (или кожа хз) сет на майнинг (у шахты Минока демонстрация в палатке смотри). Хотя бы одну шмотку из сета просто АДОВЫЙ геморой сделать, со старта за заготову на эту шмотку заплати 500к-1миллион (лети в мол Shena - она делает), причём ты должен иметь нормальный топор лимонов за 10 хотя бы (это просто свежескрафченный, с нулевым прогрессом и без камней) и сет брони не хуже Astral bone, чтобы качать шмотку убивая мобов не только на стартовом этаже (http://uoevolution.com/wiki/index.php/C ... of_the_Pit). Причём камней в шмот на майнинг нет, так что сет по любому придётся иметь. Майнинг-голем тебе тоже не поможет, потому что он использует твой скилл манинга, а не свой.
Чтобы скрафтить чё-нить приличное вообще я хз даже сколько нужно влить, к примеру на блэксмитинг: 120 BS Powerscroll (4 миллиона), сокеты (5 на шмотку) + к ним камни + свитки на 300 удачи на каждую. сокеты и камни по 50 ед, свитки на удачу где-то так. Сами шмотки на блэксмитинг в районе 5-10 миллионов голды. Купить всё это можно и за голд, 1 ед = 90000-100000 голд. Представь сколько фарма.
Единственный вариант фармить миллионы голды это иметь 10+ ботов на голд паннинг, но после того как моих 10 посадили в тюрьму я даже хз продолжать или нет - тупо слишком много усилий и никакого кайфа, начнут наверное сильнее отслеживать кто и сколько моет или голдпаннинг понерфят. Другого пути нафармить голд нет. К тому же, чтобы сделать в одной шмотке 5 сокетов под камни нужно писать админу специальный тикет, а это лишнее палево - откуда у тебя столько бабла если ты не донатчик?
Короче слишком много усилий убивают всё удовольствие от игры и крафта. Самое интересное, что даже имея всё это, крафтом ты не заработаешь и он по голде никогда не окупится, это просто "для души" вещь, если не вспоминать во сколько тебе всё это обошлось
А вообще там интересно, но донат убивает всё.

Вот процедурка:

Code: Select all

Procedure AntiBotGump(Serial,GumpID,X,Y : Cardinal);
Var
GumpInfo : TGumpInfo;
Operation1,Operation2,FoundString : String;
A,B,C,i,pos1,pos2,Answer,TextEntry_value,Button_value,GumpIndex : Integer;
FoundStringList : TStringList;
Begin
	CheckLag(30000);
	if (GetGumpsCount<1) then begin Exit; end;
	// GumpID это 16-ричное значение, к примеру: 968740
	// нужно перевести его в десятичное (9865024) и искать именно
	// десятичное в строке: if GetGumpID(i) <> 9865024 then begin
	If (GumpID = 9865024) then begin
		Wait(4000); // Эмуляция живого игрока
		SetSilentMode(True);
		// Для GumpInfo нужен порядковый номер гампа
		for i:=0 to (GetGumpsCount-1) do begin
			if GetGumpID(i) = 9865024 then begin
				GetGumpInfo(i, GumpInfo);
				GumpIndex := i;
				Break;
			end;
		end;
		// Строка с проверочным выражением где есть + или -
		FoundStringList := TStringList.Create;
		FoundString := GumpInfo.Text[2];
		while (pos('<', FoundString) > 0) do begin
			pos1 := pos('<', FoundString);
			pos2 := pos('>', FoundString);
			delete(FoundString, pos1, (pos2-pos1+1));
			Wait(10);
		end;
		StrBreakApart(FoundString, ' ', FoundStringList);
		A := StrToInt(FoundStringList.Strings[0]);
		Operation1 := FoundStringList.Strings[1];
		B := StrToInt(FoundStringList.Strings[2]);
		Operation2 := FoundStringList.Strings[3];
		C := StrToInt(FoundStringList.Strings[4]);

		// Строка с TextEntry содержащая Return_value поля ввода
		TextEntry_value := GumpInfo.TextEntries[0].return_value;

		// Строка с GumpButton содержащая Return_value кнопки
		Button_value := GumpInfo.GumpButtons[0].return_value;

		If (Operation1 = '+') and (Operation2 = '+') then begin
			Answer := A+B+C;
		end else if (Operation1 = '+') and (Operation2 = '-') then begin
			Answer := A+B-C;
		end else if (Operation1 = '-') and (Operation2 = '+') then begin
			Answer := A-B+C;
		end else if (Operation1 = '-') and (Operation2 = '-') then begin
			Answer := A-B-C;
		end else begin
			AddToSystemJournal('[ ! ] ВНИМАНИЕ! Новое действие в проверочном выражении!');
			FoundStringList.Free;
			Halt;
		end;
		AddToSystemJournal('[ ! ] ANTIBOT GUMP: ' + FoundString + ' = ' + IntToStr(Answer));
		// Отправка ответа на сервер
		GumpAutoTextEntry(TextEntry_value, IntToStr(Answer));
		NumGumpButton(GumpIndex, Button_value);
		FoundStringList.Free;
	End;
End;

[Sideus]

спасибо GeeZeR
По донату не думаю что все так плохо, шмот на майнинг я сам могу сделать, не хватает чуток регов с пирлес босов, в принципе они есть на рынке но хочу сам нафармить. Насчет платины не совсем согласен, вышка дает только больше прочности, урон по резистам у нее даже хуже чем у валорита, так что копать имеет смысл все, хотя бы чтоб делать боды. диды на дырки под камни даются за боды бс, можно нафармить не быстро но все же, сами камни падают с сильных мобов, с неймед босов с повышеным шансом я уже набил пару десятков но дидов на дырки пока нет ...
Топор не плохой с 3 личами, свингом купил за 50к уже качнул ему селф репейр, спел чанелинг и удар по площади, свитки + лвл итем падают с кладов и в казино ... АстроБон сет сделал квест за пару часов, хз че он на рынке стоит 500к, нада поставить вендора )))
Знакомый играет 3 месяца, с месяц назад поставил вендора, уже тарганул на 12 лямов выставляя всякий шмот с квестов )
Паверскролы 120 даются за боды и падают с чампов, пару тройку уже фарманул, админы каждый день делают евент с халявными тремя чампами ...
Шмот на бс вроде квест, насколько задротский хз пока не делал, в общем я думаю что не так сильно там донат влияет, конечно если хочешь быстро то донат, если не спешить то можно и так нафармить...
Крафт тоже окупится если знать что крафтить и что продавать, теже булки делать и торговать ревардами, крафтовые квесты в хертвуде на макросе можно делать и торговать рецептами, таликами, бижей, руниками ... Если шаришь в скриптинге для тебя там вобще золотое дно ))

В общем хз, побегаю пока посмотрю, играть все равно негде, в рунете застой полный, там хоть пока интересно ...

[GeeZeR]

Как прикольно, я пессимист, а ты оптимист на одном и том же шарде. Если вернусь нужно встретиться поболтать)

[Sideus]

Как прикольно, я пессимист, а ты оптимист на одном и том же шарде. Если вернусь нужно встретиться поболтать)

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

[grundick]

Сам хотел ломануться на эволюшен с UOEX... Но столько барахла уже было и скиллов вкачанных до 115-120, что всё заново начинать стало лениво
Кстати, там есть рускоязычное население, ставте тимспик, они там подскажут если что...

[Sideus]

какой канал в тимспике ?
короче создали гильду на еволюшине, называется СССР, нас уже 6 тел там бегает, пока конечно от топовых америкосов терпим, только из-за разницы в шмоте, а так они там криворукие в большинстве своем ... но потихоньку одеваемся и расчехляемся )
если кто надумает пишите в пм Sidea, Nev, Ironhead ...
P.S GeeZeR если не жалко кинь макрос на голд панинг )

[GeeZeR]

пишите в лс

[Sideus]

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

[GeeZeR]

пиши в лс

[Vizit0r]

Работает на версии 7.11.0, движок PascalScript.

а на 8 ?

[GeeZeR]

пашет