Yoko

All sides of Injection
It is currently 2025-10-16 19:48:43

All times are UTC+02:00




Post new topic  Reply to topic  [ 6 posts ] 
Author Message
 Post subject: Автолут
PostPosted: 2009-09-30 23:30:30 
Offline

Joined: 2009-09-28 21:37:53
Posts: 1
Скрипт или консульная команда на Автоматический лут ( Гп, Регов и тд. ) с последнего открытого контейнера. Желательно в Hotkeys Injection. Для шарда Age of Power


Top
   
 Post subject:
PostPosted: 2009-10-01 06:27:58 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
что такое консульная команда?

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
 Post subject:
PostPosted: 2009-10-01 08:14:35 
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: 2009-10-01 11:03:27 
Offline
User avatar

Joined: 2004-12-30 18:13:16
Posts: 175
Location: Russia
В таком контексте пишется "никто". Да к черту - не важно.

Луталки:

1. Лутаем из последнего открывшегося контейнера(трупа)

Code:
sub Loot()
   VAR i,Exit
   DIM Loot[18]
   
 
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]=0x13FA ;two handed axe
Loot[10]=0x1413 ;arm
Loot[11]=0x1415 ;arm
Loot[12]=0x1411 ;arm
Loot[13]=0x1410 ;arm
Loot[14]=0x1414 ;arm
Loot[15]=0x0E21 ;ban
Loot[16]=0x0F78 ;batw
Loot[17]=0x0F8B ;pumise

UO.SetReceivingContainer('0x4000C313') ;ID backpacka
 
   For i=0 to 17
      Exit=0
      repeat
       UO.FindType(Loot[i],-1,'lastcontainer')           
        if UO.GetQuantity('finditem') then
         UO.Grab('0','finditem')
          wait(100)
          Else
         Exit=1
        endif
      until Exit==1 OR uo.injournal("loot")
   Next
UO.UnSetReceivingContainer()
end sub


2. Лутаем с земли

Code:
sub Loot2()
  uo.Set('finddistance','3')
  uo.Ignore('self')
  uo.FindType('-1','-1','ground')
  while uo.FindCount() && uo.Weight <= 600
    uo.findtype('-1','-1','ground')
    uo.moveitem('finditem','all','backpack')
    wait(750)
  wend
  uo.IgnoreReset()
endsub



3. Режем и лутаем с земли

Code:
sub Loot3()
  VAR dagger='0x0F51'
  uo.Set('finddistance','3')
  uo.WaitTargetObject('lastcorpse')
  uo.UseType(dagger)
  uo.Ignore('self')
  uo.FindType('-1','-1','ground')
  while uo.FindCount() && uo.Weight <= 600
    uo.findtype('-1','-1','ground')
    uo.moveitem('finditem','all','backpack')
    wait(750)
  wend
  uo.IgnoreReset()
endsub


4. Режем и лутаем из трупа -dagger имеем при себе

Code:
sub Loot4()
   VAR i,Exit
   DIM Loot[18]
   
 
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]=0x13FA ;two handed axe
Loot[10]=0x1413 ;arm
Loot[11]=0x1415 ;arm
Loot[12]=0x1411 ;arm
Loot[13]=0x1410 ;arm
Loot[14]=0x1414 ;arm
Loot[15]=0x0E21 ;ban
Loot[16]=0x0F78 ;batw
Loot[17]=0x0F8B ;pumise

UO.SetReceivingContainer('0x4000C313') ;ID backpacka
   uo.waittargetobject('lastcorpse')
   uo.UseType('0x0F51')
   For i=0 to 17
      Exit=0
      repeat
       UO.FindType(Loot[i],-1,'lastcontainer')           
        if UO.GetQuantity('finditem') then
         UO.Grab('0','finditem')
          wait(100)
          Else
         Exit=1
        endif
      until Exit==1 OR uo.injournal("loot")
   Next
UO.UnSetReceivingContainer()
end sub


Если есть проблемы в настройке - говори, помогу. Хотя, на будущее, совет: пройди по форуму, посмотри "прикрепленные" темы, посмотри FAQ, посмотри как пишутся скрипты. Есть даже уроки. Попробуй найти то, что тебе подходит. Если подходит, но не совсем - измени. Успехов.

_________________
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc


Top
   
 Post subject:
PostPosted: 2009-10-02 10:59:34 
Offline
Expert!
User avatar

Joined: 2004-04-04 11:13:54
Posts: 1205
Location: Балаково, Саратовская обл.
u0rypT wrote:
В таком контексте пишется "никто". Да к черту - не важно.
Посмотрел подпись - таким людям памятник при жизни надо ставить. :D


Top
   
 Post subject:
PostPosted: 2009-10-02 18:23:06 
Offline
User avatar

Joined: 2004-12-30 18:13:16
Posts: 175
Location: Russia
Savage wrote:
Посмотрел подпись - таким людям памятник при жизни надо ставить. :D


Какой раритет объявился. :roll:

Просто когда "жена" филолог да еще и редактор... и занимается копирайтингом - то сам перенимаешь привычки замечать касяки в написании/произношении слов, предложений и т.д. Диагноз в общем :D

А подпись - понимаешь, когда думаешь, что у тебя уйма свободного времени - так и получается, что свободного времени много. А читать постоянно худ. литературу - не интересно. А вот техническую - круто. Да и вообще - развиваться надо в любом направлении. Да и достаточно знать C++ как все остальное становится сразу ясным и понятным.

_________________
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc


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

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 4 guests


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