Page 1 of 1

Анти-макрос на АБИСЕ!

Posted: 2007-02-11 19:31:07
by PsYchO
Кто то уже обошел эту хрень с появлением таблички с тремя цифрами после скила 90? Которая при неправельном нажатии тебя вырубает.
Я честно говоря еще сам не пробывал что то написать,просто скиллы маловаты и лично с табличкой не сталкивался. Но зарание хочу быть готов. Отпостите кто может помоч. Заранее благодарен

Posted: 2007-02-11 20:12:09
by Nmy
Грин у нас специалист по этому

Posted: 2007-02-12 06:04:44
by PsYchO
Тогда давайте другжно попросим Грина избавить нас от этого недуга!
Грииииин... гриииин... :)

Posted: 2007-02-15 23:33:51
by SLAK
Грин ща занят ЗХИ, поэтому немешайте. :wink:

Posted: 2007-02-17 23:32:00
by nerac
Если неошибаюсь то вот этот отрезок:

Code: Select all

sub decode()
var temp='',i=0
var pos=0
var line=5
var sX=0, sY=0
var code=''
var finding = 1
var CurrX=0
var CurrY=0
var NumSum
dim tempXY[2]
dim Num[9]
Num[0]=6
Num[1]=35
Num[2]=45
Num[3]=-24
Num[4]=34
Num[5]=-5
Num[6]=26
Num[7]=4
Num[8]=-6
	Repeat
		temp=uo.LastGump('command',line)
		GetXY(temp, tempXY)
		if pos >= 17 then
			if pos == 17 then
				NumSum=(CurrX-sX)*10+(CurrY-sY)
				finding = 1
				i=0
				while finding  
					if NumSum == num[i] then
						code=code+str(i+1)
						finding = 0
					end if
					i=i+1
				wend
			end if
			if tempXY[0]-CurrX > 5 then
				pos=0
			end if
		end if
		if not pos then
			sX=tempXY[0]
			sY=tempXY[1]
			pos=15
			line=line+15
		end if
		CurrX=tempXY[0]
		CurrY=tempXY[1]
		pos=pos+1
		line=line+1
	Until len(code) == 4
	return code
end sub

sub AAmacro()
	while not uo.dead()
		if uo.LastGump('text',0) == 'enter anti macro code:' and uo.LastGump('replyed') == 0 then
			uo.lclick(uo.LastGump('x')+75, uo.LastGump('y')+69)
			wait(300)
			uo.say(decode())
			wait(300)
			uo.lclick(uo.LastGump('x')+77, uo.LastGump('y')+108)
		end if
		wait(1000)
	wend
end sub
У нас на шарде было 4 цифры, так что редактируйте, я нузнаю че там делать :)

Posted: 2007-02-19 20:49:16
by PsYchO
nerac wrote:Если неошибаюсь то вот этот отрезок:

Code: Select all

sub decode()
var temp='',i=0
var pos=0
var line=5
var sX=0, sY=0
var code=''
var finding = 1
var CurrX=0
var CurrY=0
var NumSum
dim tempXY[2]
dim Num[9]
Num[0]=6
Num[1]=35
Num[2]=45
Num[3]=-24
Num[4]=34
Num[5]=-5
Num[6]=26
Num[7]=4
Num[8]=-6
	Repeat
		temp=uo.LastGump('command',line)
		GetXY(temp, tempXY)
		if pos >= 17 then
			if pos == 17 then
				NumSum=(CurrX-sX)*10+(CurrY-sY)
				finding = 1
				i=0
				while finding  
					if NumSum == num[i] then
						code=code+str(i+1)
						finding = 0
					end if
					i=i+1
				wend
			end if
			if tempXY[0]-CurrX > 5 then
				pos=0
			end if
		end if
		if not pos then
			sX=tempXY[0]
			sY=tempXY[1]
			pos=15
			line=line+15
		end if
		CurrX=tempXY[0]
		CurrY=tempXY[1]
		pos=pos+1
		line=line+1
	Until len(code) == 4
	return code
end sub

sub AAmacro()
	while not uo.dead()
		if uo.LastGump('text',0) == 'enter anti macro code:' and uo.LastGump('replyed') == 0 then
			uo.lclick(uo.LastGump('x')+75, uo.LastGump('y')+69)
			wait(300)
			uo.say(decode())
			wait(300)
			uo.lclick(uo.LastGump('x')+77, uo.LastGump('y')+108)
		end if
		wait(1000)
	wend
end sub
У нас на шарде было 4 цифры, так что редактируйте, я нузнаю че там делать :)
Спасибо большое. Только опиши пожалуйста поподрбнее ваш антимакрос. Как выглядит и что там вообще видно на этой табличке. Просто не хочется провозиться над твоим скриптом.А вконце он не поможет.

Posted: 2007-02-20 11:20:04
by nerac
У нас его уже убрали, но он появлялся, маленькая рамка там было 4 цыфры, под ними поле куда вписывать и ниже ок. Давалось 30 секунд чтоб вписать - невписал - цл, и 2 часа неможеш рубить\копать

Posted: 2007-02-20 12:16:53
by PsYchO
Да уж,это другая фишка. У нас всё сложнее. Но всеровно спасибо...
Похоже Абисовский антимакрос у кого и есть,то он зажал его. Ну и это можно понять,штука очень нужная