Yoko
http://forum.yoko.com.ua/

Антимакрос для FWUO
http://forum.yoko.com.ua/viewtopic.php?f=17&t=17354		 Page 1 of 1
Author:  Stilazz [ 2013-11-25 19:23:48 ]
Post subject:  Антимакрос для FWUO
Нету ни у кого случайно рабочего антимакроса для форготтен ворлд, или может кто знает как исправить ошибку в старом?

Code:
sub aams() 
var gumpid=0 
var buttonid=0 
var buttontext 
var i=18,j,rand 

dim reindex[8] 
reindex[0]=11 
reindex[1]=12 
reindex[2]=13 
reindex[3]=10 
reindex[4]=16 
reindex[5]=14 
reindex[6]=17 
reindex[7]=15 

for j=1 to 2 
rand=uo.random(10)*100 
wait(100) 
wait(500+rand) 
if uo.LastGump('text',4)<>"0" then 
i=19 
endif 
GumpID =val(Mid(uo.LastGump('command',i),16,4)) 
ButtonID=reindex[GumpID-2225] 
ButtonText=uo.LastGump('command', ButtonID) 
uo.LClick(Val(Mid(ButtonText,7,3)),Val(Mid(ButtonText,11,3))) 
next 
wait(500) 
endsub 

sub AntiMacro() 
while not uo.Dead() 
if not uo.LastGump('replyed') then 
if uo.LastGump('text', 0) == 'Antimacros System' then 
aams() 
end if 
endif 
wait(500) 
wend 

end sub



собственно в этой строке загвоздка.
ButtonID=reindex[GumpID-2225]


пытался я долго вникнуть во все эти гамповские причуды, но видимо не судьба.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/