Yoko

All sides of Injection
It is currently 2026-01-16 16:48:46

All times are UTC+02:00




Post new topic  Reply to topic  [ 8 posts ] 
Author Message
PostPosted: 2007-02-11 19:31:07 
Offline

Joined: 2006-03-24 15:59:22
Posts: 8
Кто то уже обошел эту хрень с появлением таблички с тремя цифрами после скила 90? Которая при неправельном нажатии тебя вырубает.
Я честно говоря еще сам не пробывал что то написать,просто скиллы маловаты и лично с табличкой не сталкивался. Но зарание хочу быть готов. Отпостите кто может помоч. Заранее благодарен


Top
   
 Post subject:
PostPosted: 2007-02-11 20:12:09 
Offline
Expert!
User avatar

Joined: 2005-09-14 15:31:58
Posts: 2152
Location: Latvia
Грин у нас специалист по этому

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net


Top
   
 Post subject:
PostPosted: 2007-02-12 06:04:44 
Offline

Joined: 2006-03-24 15:59:22
Posts: 8
Тогда давайте другжно попросим Грина избавить нас от этого недуга!
Грииииин... гриииин... :)


Top
   
 Post subject:
PostPosted: 2007-02-15 23:33:51 
Offline

Joined: 2005-08-19 16:12:23
Posts: 182
Грин ща занят ЗХИ, поэтому немешайте. :wink:


Top
   
 Post subject:
PostPosted: 2007-02-17 23:32:00 
Offline

Joined: 2006-06-16 14:43:25
Posts: 34
Если неошибаюсь то вот этот отрезок:

Code:
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 цифры, так что редактируйте, я нузнаю че там делать :)


Top
   
 Post subject:
PostPosted: 2007-02-19 20:49:16 
Offline

Joined: 2006-03-24 15:59:22
Posts: 8
nerac wrote:
Если неошибаюсь то вот этот отрезок:

Code:
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 цифры, так что редактируйте, я нузнаю че там делать :)


Спасибо большое. Только опиши пожалуйста поподрбнее ваш антимакрос. Как выглядит и что там вообще видно на этой табличке. Просто не хочется провозиться над твоим скриптом.А вконце он не поможет.


Top
   
 Post subject:
PostPosted: 2007-02-20 11:20:04 
Offline

Joined: 2006-06-16 14:43:25
Posts: 34
У нас его уже убрали, но он появлялся, маленькая рамка там было 4 цыфры, под ними поле куда вписывать и ниже ок. Давалось 30 секунд чтоб вписать - невписал - цл, и 2 часа неможеш рубить\копать


Top
   
 Post subject:
PostPosted: 2007-02-20 12:16:53 
Offline

Joined: 2006-03-24 15:59:22
Posts: 8
Да уж,это другая фишка. У нас всё сложнее. Но всеровно спасибо...
Похоже Абисовский антимакрос у кого и есть,то он зажал его. Ну и это можно понять,штука очень нужная


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 8 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 1 guest


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited