Помогите со скриптом

[KOLBASOID]

Вобшем изменил чутка чужой скрипт.. вроде всё айс.. но есть вопросы..
как зделать проверку на убитого моба?

Code: Select all

sub Loot()
   VAR WaitTime=400
   VAR Exit=0, i
   DIM Loot[190]
   

Loot[0]=0x0EED ; gp
Loot[1]=0x0F7B ; BM
Loot[2]=0x0F7A ; BP
Loot[3]=0x0F84 ; GA
Loot[4]=0x0F85 ; GI
Loot[5]=0x0F86 ; MR
Loot[6]=0x0F88 ; NS
Loot[7]=0x0F8C ; SA
Loot[8]=0x0F8D ; SS
Loot[9]=0x0F90 ; Dead Woods
Loot[10]=0x0F7E ; Sceleton Bones
Loot[11]=0x1078 ; Eyes of newt
Loot[12]=0x1078 ; Hides
Loot[13]=0x09F1 ; Bolts
Loot[14]=0x0E34 ; Blanc Scroll
Loot[15]=0x0F25 ; Pieces of Amber
Loot[16]=0x09F1 ; Ametist
Loot[17]=0x0F20 ; Tourmaline
Loot[18]=0x0F26 ; Diamond
Loot[19]=0x0F30 ; Diamond
Loot[20]=0x0F8E ; Serpent Scales
Loot[21]=0x14EB ; Treassure Map
Loot[22]=0x0F79 ; Blackmoor
Loot[23]=0x0F3F ; Arrow
Loot[24]=0x0F79 ; Blackmoor
Loot[25]=0x0F91 ; Wirn hart
Loot[26]=0x0F78 ; Bat
Loot[27]=0x204E ; ðîáà
Loot[28]=0x1515 ; êëîêà
Loot[29]=0x1B76 ; ùèò -
Loot[30]=0x1414 ; ïåð÷è
Loot[31]=0x1410 ; ðóêè
Loot[32]=0x1C04 ; äîñï
Loot[33]=0x1411 ; íîãè
Loot[34]=0x1413 ; ãîðëî
Loot[35]=0x1412 ; øëåì
Loot[36]=0x0F0C ; áóòûëêè
Loot[37]=0x0F0C ; áóòûëêè
Loot[38]=0x0F08 ; áóòûëêè
Loot[39]=0x0F08 ; áóòûëêè
Loot[40]=0x0F0C ; áóòûëêè
Loot[41]=0x1F5F ; ñêðîëû
Loot[42]=0x1F5F ; ñêðîëû
Loot[43]=0x1F5F ; ñêðîëû
Loot[44]=0x1F5F ; ñêðîëû
Loot[45]=0x0E76 ; Bag
Loot[46]=0x0E76 ; Bag
Loot[47]=0x09B0 ; Pounch
Loot[48]=0x09B0 ; Pounch
Loot[49]=0x1BDD ; Logs
Loot[50]=0x1BDD ; Logs
Loot[51]=0x1BDD ; Logs
Loot[52]=0x1BDD ; Logs
Loot[53]=0x1BDD ; Logs
Loot[54]=0x1BDD ; Logs
Loot[55]=0x1BDD ; Logs
Loot[56]=0x1BDD ; Logs
Loot[57]=0x1BDD ; Logs
Loot[58]=0x1BDD ; Logs
Loot[59]=0x1BDD ; Logs
Loot[60]=0x1BDD ; Logs
Loot[61]=0x1BDD ; Logs
Loot[62]=0x1BDD ; Logs
Loot[63]=0x1BEF ; èíãè
Loot[64]=0x1BEF ; èíãè
Loot[65]=0x1BEF ; èíãè
Loot[66]=0x1BEF ; èíãè
Loot[67]=0x1BEF ; èíãè
Loot[68]=0x1BEF ; èíãè
Loot[69]=0x1BEF ; èíãè
Loot[70]=0x1BEF ; èíãè
Loot[71]=0x19B9 ; ðóäà
Loot[72]=0x19B9 ; ðóäà
Loot[73]=0x19B9 ; ðóäà
Loot[74]=0x19B9 ; ðóäà
Loot[75]=0x19B9 ; ðóäà
Loot[76]=0x19B9 ; ðóäà
Loot[77]=0x19B9 ; ðóäà
Loot[78]=0x204E ; ðîáà
Loot[79]=0x1515 ; êëîêà
Loot[80]=0x1B76 ; ùèò
Loot[81]=0x1414 ; ïåð÷è
Loot[82]=0x1410 ; ðóêè
Loot[83]=0x1C04 ; äîñï
Loot[84]=0x1411 ; íîãè
Loot[85]=0x1413 ; ãîðëî
Loot[86]=0x1412 ; øëåì
Loot[87]=0x204E ; ðîáà
Loot[88]=0x1515 ; êëîêà
Loot[89]=0x1B76 ; ùèò
Loot[90]=0x1414 ; ïåð÷è
Loot[91]=0x1410 ; ðóêè
Loot[92]=0x1C04 ; äîñï
Loot[93]=0x1411 ; íîãè
Loot[94]=0x1413 ; ãîðëî
Loot[95]=0x1412 ; øëåì
Loot[96]=0x204E ; ðîáà
Loot[97]=0x1515 ; êëîêà
Loot[98]=0x1B76 ; ùèò
Loot[99]=0x1414 ; ïåð÷è
Loot[100]=0x1410 ; ðóêè
Loot[101]=0x1C04 ; äîñï
Loot[102]=0x1411 ; íîãè
Loot[103]=0x1413 ; ãîðëî
Loot[104]=0x1412 ; øëåì
Loot[105]=0x0E21 ; áèíòû
Loot[106]=0x13BA ; âèêèíã
Loot[107]=0x1406 ; ìåéñà
Loot[108]=0x13B1 ; ëóê
Loot[109]=0x0F4F ; àðáàëåò
Loot[110]=0x13FC ; òÿæåëûé àðá
Loot[111]=0x13FE ; êàòàíà
Loot[112]=0x143E ; àëåáà
Loot[113]=0x1F14 ; ðóíà
Loot[114]=0x0F4C ; äâîéíîé òîïîð
Loot[115]=0x1B78 ; øèò äåðåâî
Loot[116]=0x1541 ; ïîâÿçêà
Loot[117]=0x0E21 ; áèíòû
Loot[118]=0x13BA ; âèêèíã
Loot[119]=0x1406 ; ìåéñà
Loot[120]=0x13B1 ; ëóê
Loot[121]=0x0F4F ; àðáàëåò
Loot[122]=0x13FC ; òÿæåëûé àðá
Loot[123]=0x13FE ; êàòàíà
Loot[124]=0x143E ; àëåáà
Loot[125]=0x1F14 ; ðóíà
Loot[126]=0x0F4C ; äâîéíîé òîïîð
Loot[127]=0x1B78 ; øèò äåðåâî
Loot[128]=0x1541 ; ïîâÿçêà
Loot[129]=0x0E21 ; áèíòû
Loot[130]=0x13BA ; âèêèíã
Loot[131]=0x1406 ; ìåéñà
Loot[132]=0x13B1 ; ëóê
Loot[133]=0x0F4F ; àðáàëåò
Loot[134]=0x13FC ; òÿæåëûé àðá
Loot[135]=0x13FE ; êàòàíà
Loot[136]=0x143E ; àëåáà
Loot[137]=0x1F14 ; ðóíà
Loot[138]=0x0F4C ; äâîéíîé òîïîð
Loot[139]=0x1B78 ; øèò äåðåâî
Loot[140]=0x1541 ; ïîâÿçêà
Loot[141]=0x0E20 ; áèíòû (êðîâàâûå)
Loot[142]=0x0E20 ; áèíòû (êðîâàâûå)
Loot[143]=0x1549 ; ìàñêà
Loot[144]=0x1BC4 ; îðäåð ùèò
Loot[145]=0x1BC3 ; õàîñ ùèò
Loot[146]=0x1BC4 ; îðäåð ùèò
Loot[147]=0x1BC3 ; õàîñ ùèò
Loot[148]=0x1BC4 ; îðäåð ùèò
Loot[149]=0x1BC3 ; õàîñ ùèò
Loot[150]=0x13BD ; ñèíãåð
Loot[151]=0x108A ; êîëüöî
Loot[152]=0x108A ; êîëüöî
Loot[153]=0x108A ; êîëüöî
Loot[154]=0x1B7A ; êðóãëûè ùèò
Loot[155]=0x1549 ; ìàñêà
Loot[156]=0x1F5F ; ñêðîëû
Loot[157]=0x1F4C ; ñêðîëû
Loot[158]=0x1F42 ; ñêðîëû
Loot[159]=0x1F4A ; ñêðîëû
Loot[160]=0x1F50 ; ñêðîëû
Loot[161]=0x1F44 ; ñêðîëû
Loot[162]=0x1F52 ; ñêðîëû
Loot[163]=0x1F42 ; ñêðîëû
Loot[164]=0x1F49 ; ñêðîëû
Loot[165]=0x1F5F ; ñêðîëû
Loot[166]=0x1F4C ; ñêðîëû
Loot[167]=0x1F42 ; ñêðîëû
Loot[168]=0x1F4A ; ñêðîëû
Loot[169]=0x1F50 ; ñêðîëû
Loot[170]=0x1F44 ; ñêðîëû
Loot[171]=0x1F52 ; ñêðîëû
Loot[172]=0x1F42 ; ñêðîëû
Loot[173]=0x1F49 ; ñêðîëû
Loot[174]=0x1F5F ; ñêðîëû
Loot[175]=0x1F4C ; ñêðîëû
Loot[176]=0x1F42 ; ñêðîëû
Loot[177]=0x1F4A ; ñêðîëû
Loot[178]=0x1F50 ; ñêðîëû
Loot[179]=0x1F44 ; ñêðîëû
Loot[180]=0x1F52 ; ñêðîëû
Loot[181]=0x1F42 ; ñêðîëû
Loot[182]=0x1F49 ; ñêðîëû
Loot[183]=0x13BD ; ñèíãåð
Loot[184]=0x13BD ; ñèíãåð
Loot[185]=0x1549 ; ìàñêà
Loot[186]=0x1440 ; øîðòñïèð
Loot[187]=0x1440 ; øîðòñïèð
Loot[188]=0x1440 ; øîðòñïèð
Loot[189]=0x1415 ; ïóçî
Loot[190]=0x1415 ; ïóçî
UO.DeleteJournal("Unknown")
   Repeat
   if uo.life < 60 then
   selfbandage()
   wait(2000)
   endif
   wait(1000)
   Until UO.InJournal("Unknown")
UO.UseObject('lastcorpse')

   if UO.GetQuantity('lastcorpse') then
      UO.SetArm('temp')
      UO.WaitTargetObject('lastcorpse')
      UO.UseType('0x13F6') ; áó÷åð
      wait(500)
      UO.Arm('temp')
      wait(500)
   endif
   
;   UO.SetReceivingContainer('0x4000DA0F') ; loot store bag

   For i=0 to 190
      UO.FindType(Loot[i],-1,'ground')
      if UO.GetQuantity('finditem') then
         UO.Grab(STR(0),'finditem')
         wait(WaitTime)
      endif

      if UO.GetQuantity('lastcorpse') then
         UO.FindType(Loot[i],-1,'lastcorpse')
         if UO.GetQuantity('finditem') then
            if Loot[i]==0x1078 then
               UO.WaitTargetObject('finditem')
               UO.UseType('0x0F9E')
            else
               UO.Grab(STR(0),'finditem')
            endif             
            wait(WaitTime)
         endif
      endif
   next

;   UO.UnSetReceivingContainer()
Loot()
end sub

sub selfbandage()   
   if not uo.waiting() then
      uo.findtype('0x0E21',"-1",'backpack')
      if uo.findcount() then
         uo.waittargetself()
         uo.useobject('finditem')
         wait(450)
         uo.usetype(0x0F61)
         wait(250)
         uo.usetype(0x1B72)
         uo.attack('lastattack')
         wait(1250)
      else
         uo.print('Áèíòû íå íàéäåíû!')
      endif
   else
      uo.print(''Ëîâóøêà íà ïðèöåë óæå óñòàíîâëåíà!)
   endif
endsub

вот код всего скрипта.. а вот так я делаю проверку на убитого моба

Code: Select all

UO.DeleteJournal("Unknown")
   Repeat
   if uo.life < 60 then
   selfbandage()
   wait(2000)
   endif
   wait(1000)
   Until UO.InJournal("Unknown")

при смерти моба (так же как при повторной атаке на моба-ДаблКлик) вылазит сообщение содержащее слово "Unknown".. в общем всё бы ничего.. но если чар хилицо и потом атачит последнюю цель (повторная атака) это сообщение тоже выскакивает и скрипт сбивается) как по другому сделать проверку на смерть атакуемого моба?

[Irina E]

Code: Select all

Sub body()
 uo.set('finddistance',8)
uo.findtype(body,-1,'ground')
 while uo.findcount()>0
  uo.ignore('finditem')
   wait(200)
    uo.findtype(body,-1,'ground')
 wend
end sub

в места (body) ставь тип тупа тип трупа 2006 если ты играеш на ДРВ на других серваках я хз какой тип
тип можеш узнать напесав ,info и птом на труп

[KOLBASOID]

Спасибо.. зделал немного подругому ..проверку на тип неписи

[Mirage]

вообще я обычно делаю чтото типо

Code: Select all

uo.FindType(animal, -1, 'ground')
if uo.FindCount() then
uo.attack('finditem')
   repeat
      if uo.GetDistance('finditem') > 2 then
      walker(uo.GetX('finditem'),uo.GetY('finditem'),2)
      else 
      wait(100)
      end if
   until uo.dead() or uo.GetX('finditem')==0
endif

если нашел моба то атачишь его и до тех пор пока сам не сдох или не пропал из видимости моб бегаешь за ним.

[KOLBASOID]

Спасибо.. поглядел пригодиться.
Есть еше вот такое дело

Code: Select all

sub FindMen()
   VAR SerChar, ColChar, NamChar, DistChar
   UO.Set( 'finddistance', '29' )
      UO.IgnoreReset()
      uo.CancelTarget()
dim char[2]

  char[0]='0x0190'
  char[1]='0x0191'
  
var i

   Repeat
   for i = 0 to 1
#      UO.FindType( '0x0190', '-1', '1' )
   uo.FindType(char[i],'-1','ground')
      
         SerChar = UO.GetSerial( 'finditem' )
         DistChar = UO.GetDistance( 'finditem' )
         ColChar = UO.GetNotoriety( 'finditem' )
         UO.Click( 'finditem' )
         wait(500)
         NamChar = UO.GetName( 'finditem' )
         if UO.GetNotoriety( 'finditem' ) == 6 then
         uo.waittargetobject('finditem')
         wait(100)
#       uo.Cast('Bless','finditem')
#       UO.UseType('0x1F58')
        UO.UseType('0x1F52') 
         uo.say('GUARDS')
         wait(9000)
         
#         UO.Print( 'Нашли чара! Его сериал: ' + SerChar )
         UO.Print( 'dist: ' + str( DistChar ) )
         UO.Print( 'red: ' + str( ColChar ) )
         UO.Print( 'name: ' + NamChar )
#         UO.Ignore( 'finditem' )
   else
   If UO.FindCount() > 0 then
   UO.Ignore( 'finditem' )
   endif
         
     
#         wait( 1500 )
      Endif
   Until UO.FindCount() > 1000
   UO.IgnoreReset()
endsub

интересует именно это место

Code: Select all

   else
   If UO.FindCount() > 0 then
   UO.Ignore( 'finditem' )
   endif

когда проверит всех плееров и новых больше не останется.. он начинает постоянно писать "итем фоунд 0" и "инвалид обжект финд итем".
ну то понятно. вот только как сделать чтобы этот иф работал.. пробовал и уо.геткванти(финдитем) > 0 тоже самое иФ выполняется.
получаеться финд коунт это количество совпадений по поиску а геткванти это количество в кучке.. что в том что в другом случае это число всегда будет больше нуля.. я хз
этот скрипт чтото типо модификации скрипта из одно из уроков и юзанье на цель парализ скрола. недавно на инжи ) учузь ) сильно не пинать

[Mirage]

1) инжект никогда не умел по нормальному игнорить и вспоминать игноренное
2) у тебя пишет "итем фоунд 0" и "инвалид обжект финд итем" изза того что скрипт работает пока не найдет 1К целей поиска.
Надо вверху прописать
ЕСЛИ НАШЕЛ ТО ...код
в противном случае ждать 100
Until UO.FindCount() > 1000

как то так


Ну и + у тебя цикл не закрыт

Code: Select all

sub FindMen()
   VAR SerChar, ColChar, NamChar, DistChar
   UO.Set( 'finddistance', '29' )
   UO.IgnoreReset()
   uo.CancelTarget()
   dim char[2]
   char[0]='0x0190'
   char[1]='0x0191'
   var i
   Repeat
      for i = 0 to 1
         uo.FindType(char[i],'-1','ground')
         SerChar = UO.GetSerial( 'finditem' )
         DistChar = UO.GetDistance( 'finditem' )
         ColChar = UO.GetNotoriety( 'finditem' )
         UO.Click( 'finditem' )
         wait(500)
         NamChar = UO.GetName( 'finditem' )
         if UO.GetNotoriety( 'finditem' ) == 6 then
            uo.waittargetobject('finditem')
            wait(100)
            UO.UseType('0x1F52')
            uo.say('GUARDS')
            wait(9000)
            UO.Print( 'dist: ' + str( DistChar ) )
            UO.Print( 'red: ' + str( ColChar ) )
            UO.Print( 'name: ' + NamChar )
         else
            If UO.FindCount() > 0 then
               UO.Ignore( 'finditem' )
            endif
         Endif
      next
   Until UO.FindCount() > 1000
   UO.IgnoreReset()
endsub

ps на поиски чаров тут много скриптов Я каких то парочку выкладывал давно еще.

[KOLBASOID]

Спасибо огромное... понял.. с этим разобрался вроде как.. тут другое дело.. юзаю скрипт на лумберт.. раз в часа 2 при активации топора выскакивает меню "Выберите цифру" .. как нить с этим окном можно взаимодействовать скриптом.. я поманю что инжект не сможет определить нарисованную цифру.. . вот скрин. Если через инжект уничтожать окна сервера(Дестрой сервер меню).. то топор не активируется. .. чтонить можно придумать? инжект может увидеть цифру ту которая около кнопочек (6 9 5)?





инфо гамп скину попозже

да еше .. где можно найти мануал по командам инжнекта.. всё новое и фкусное узнаю токо из чужих скриптов.

[Savage]

стоит попробовать последить за этими окошками с разными цифрами и на каждое делать ,infogump. Может и будет толк.
При неправильном выборе что происходит?

[KOLBASOID]

раза 3 дает ошибиться потом 360 секунд передышка.... нельзя юзать топор.
да еше вопрос. возможно ли отключить информацию о найденном итеме.. тоесть чтобы он не писал постояно "итем фоунд;0"

Code: Select all

_____infogump_______
serial   0x018d8fcf
gumpid   0x47a6f0ee
X   30
Y   0
587   packet size
0   reply packet size
Buttons: ________
Checks&Radios: __
Entryes: ________
All commands: ____
    1] esizepic 100 100 83 320 20
    2] esizepic 108 110 3000 306 18
    3] umppic 120 120 502
    4] umppic 376 120 236
    5] umppic 385 125 236
    6] umppic 366 130 236
    7] umppic 386 136 236
    8] umppic 363 139 236
    9] umppic 372 143 236
   10] umppic 381 145 236
   11] umppic 359 148 236
   12] umppic 378 156 236
   13] umppic 360 159 236
   14] umppic 370 166 236
   15] ext 170 135 0 
   16] utton 120 185 2152 2153 1 0 
   17] ext 160 190 86 
   18] utton 120 220 2152 2153 1 0 
   19] ext 160 225 68 
   20] utton 120 255 2152 2153 1 0 
   21] ext 160 260 85 
Text: ____________
    0] Please choose this number:
    1] 8
    2] 6
    3] 5

цифра 8
от других отличаються токо строчки 17 19 21 но только на еденици (возможно это координаты) и у всех отличаетьтся gumpid а так же с 4 по 14. я думаю это информация о цифре-картинке. координыт точек?

Без проблем смогу собрать инфу о цифрах-картинках записывая строки 4-14 найду одну строку которая у всех цифр разная.. но как эту инфу использовать?.

[Savage]

ГампИд точно не повторяется?
То есть цифры в углу разные и список возможных ответов тоже разный?
На счёт итем фоунд, ,set quitet выдаст текушее значение (вроде 0), тогда даёшь команду ,set quitet 1 или 0 если выдаст 1

В код заворачивай инфогамп, а то скайп портит восприятие. По идее через нарисованные шарики и их координаты можно вычислить написание цифири.

[KOLBASOID]

пока видел токо 3 цифры.. пособираю все цифры загоню в эксель и скажу точно что повторяеться что нет..
цифры в углу всегда разные.. от 1 до 9
и ответы тоже.. и цвет у ответов тоже всегда разный..
,set quiet опечатко) спасибо инжекту )) дал список настроек в тексте когда я опечатался)

http://zalil.ru/29683247

вот то что насобирал.. пятерок 4 штуки

с 4 -14 это координаты точек точек которые мы видим как цифру. причем цифра не всегда под одним углом..

что значит в код заворачивай инфогамп? )

[Savage]

тэги code вверху сообщения, когда постишь.Ткнул в кнопку [Code] потом внутрь вставил текст из гампа.

[KOLBASOID]

Вот и незнаю что с этим поделать(

[Savage]

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

[Savage]

и у всех отличаетьтся gumpid Вот за это можно зацепиться. Надо сравнить пару одинаковых гампов. Именно одинаковых. То есть та же цифра, тот же наклон, в том же порядке и цвете ответы.

[KOLBASOID]

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

Code: Select all

sub testt()
var code, coden, coda, codd
code=mid(uo.LastGump('All commands', 4), 12, 3)
#code=left('code',3)
coden=mid(uo.LastGump('All commands', 5), 12, 3)
#coden=left('coden',3)
coda=mid(uo.LastGump('All commands', 6), 12, 3)
#coda=left('coda',3)
codd=mid(uo.LastGump('All commands', 7), 12, 3)
#codd=left('codd',3)

    if coden-code ==  1|2|3|4|-1|-2|-3|-4| then
        if coda-coden == 5|6|2|3|4|-2|-3|-4|-5|-6 then
            if codd-coda == 7|8|9|10|11 then
            tt=1
    uo.print(t=1 five detected)
    wait(500)
    uo.print(t=1 five detected)
    wait(500)
    uo.print(t=1 five detected)
    endif
    endif            
    endif

endsub

12 строка парс эрор.

вот строки с данными

Code: Select all

    
    4] umppic 376 120 236
    5] umppic 385 125 236
    6] umppic 366 130 236
    7] umppic 386 136 236
    8] umppic 363 139 236

из них беру координаты по Y которые 120-130 и лезет ошибка

пытаюсь зделать вычесления.. обьявленые переменные это вырезаные куски кооринат точек.

Code: Select all

sub testt()
var code, coden, coda, codd
var codeone, codetwo, codetre
code=mid(uo.LastGump('All commands', 4), 12, 3)

coden=mid(uo.LastGump('All commands', 5), 12, 3)

coda=mid(uo.LastGump('All commands', 6), 12, 3)

codd=mid(uo.LastGump('All commands', 7), 12, 3)


codeone=val(coden-code)
codetwo=val(coda-coden)
codetre=val(codd-coda)

    if codeone ==  (1|2|3|4|-1|-2|-3|-4|) then
        if codetwo == (5|6|2|3|4|-2|-3|-4|-5|-6) then
            if codetre == (7|8|9|10|11) then
            tt=1
    uo.print('t=1 five detected')
    wait(500)
    uo.print('t=1 five detected')
    wait(500)
    uo.print('t=1 five detected')
    endif
    endif           
    endif

endsub

И тут та же ошибка.. блин незнаю куда ковырять

[KOLBASOID]

Никаких мыслей? сильно тупой вопрос походу )) но мож дождусь..
да еше вопрос. гдето читал что можно видеть лут в мобе в живом.. количество итемов 1, 2 или 3 ) Яб не отказался на него взглянуть.. )
всё уже решилось)) спс всем. будут еше вопросы обрашюсь