2 скрипта в один-резать и лутать!

~KR@FT~ · Post by **~KR@FT~** » 2007-12-09 00:20:07

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

и вот этот

Code: Select all

sub rej() 
uo.waittargetground(0x2006) 
uo.usetype(0x0F51) 
endsub

надо засунуть в один... Я уже ничего не помню в скриптах) опять чет начал в Уо играть^^
Склейте пожалуйста
Спасибо!

Scripts Writer · Post by **Scripts Writer** » 2007-12-09 10:22:37

Code: Select all

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 
  

uo.waittargetground(0x2006) 
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

~KR@FT~ · Post by **~KR@FT~** » 2007-12-09 17:18:55

А может есть у кого ID драгоценных камней?

Code: Select all

Loot[18]=0x0F1D ;diamon
Loot[19]=0x0F15 ;diamon2
Loot[20]=0x0F16 ;emerald
Loot[21]=0x0F21 ;ametitht
Loot[22]=0x0F1A ;saphire
Loot[23]=0x0F2C ;ametitht
Loot[23]=0x0F17 ;saphire
Loot[24]=0x0F1C ;saphire
Loot[25]=0x0F2D ;saphire
Loot[26]=0x0F2A ;ametist
Loot[27]=0x0F1A ;ametist2
Loot[28]=0x0F24 ;ametist3
Loot[29]=0x0F18 ;a tourmaline
Loot[30]=0x0F2C ;a tourmaline
Loot[31]=0x0F30 ;a tourmaline
Loot[32]=0x0F12 ;a saphire2

Вот я написал,просто он не все лутает,а может у кого есть полный набор...

GAUHAR · Post by **GAUHAR** » 2007-12-09 20:27:25

Code: Select all

# ДРАГОЦЕННЫЕ КАМНИ:
      ListLOOT[104] = '0x0F0F'    # Star Sapphire
      ListLOOT[105] = '0x0F10'    # Emerald
      ListLOOT[106] = '0x0F11'    # Sapphire
      ListLOOT[107] = '0x0F12'    # Sapphire 2
      ListLOOT[108] = '0x0F13'    # Ruby
      ListLOOT[109] = '0x0F14'    # Ruby 2
      ListLOOT[110] = '0x0F15'    # Citrine
      ListLOOT[111] = '0x0F16'    # Amethyst
      ListLOOT[112] = '0x0F17'    # Amethyst 2
      ListLOOT[113] = '0x0F18'    # Tourmaline
      ListLOOT[114] = '0x0F19'    # Sapphire 3
      ListLOOT[115] = '0x0F1A'    # Ruby 3
      ListLOOT[116] = '0x0F1B'    # Star Sapphire 2
      ListLOOT[117] = '0x0F1C'    # Ruby 4
      ListLOOT[118] = '0x0F1D'    # Ruby 5
      ListLOOT[119] = '0x0F1E'    # Tourmaline 2
      ListLOOT[120] = '0x0F1F'    # Sapphire 4
      ListLOOT[121] = '0x0F20'    # Tourmaline 3
      ListLOOT[122] = '0x0F21'    # Star Sapphire 3
      ListLOOT[123] = '0x0F22'    # Amethyst 3
      ListLOOT[124] = '0x0F23'    # Citrine 2
      ListLOOT[125] = '0x0F24'    # Citrine 3
      ListLOOT[126] = '0x0F25'    # Piece of Amber
      ListLOOT[127] = '0x0F26'    # Diamond
      ListLOOT[128] = '0x0F27'    # Diamond 2
      ListLOOT[129] = '0x0F28'    # Diamond 3
      ListLOOT[130] = '0x0F29'    # Diamond 4
      ListLOOT[131] = '0x0F2A'    # Ruby 6
      ListLOOT[132] = '0x0F2B'    # Ruby 7
      ListLOOT[133] = '0x0F2C'    # Citrine 4
      ListLOOT[134] = '0x0F2D'    # Tourmaline 4
      ListLOOT[135] = '0x0F2E'    # Amethyst 4
      ListLOOT[136] = '0x0F2F'    # Emerald 2
      ListLOOT[137] = '0x0F30'    # Diamond 5

~KR@FT~ · Post by **~KR@FT~** » 2007-12-10 07:38:43

Ну прям вообще замечательно))
Вооо что я вспомнил...

Code: Select all

sub ExtrimalRecall() 
var rune='0x400A1A06' 
  uo.Usetype('0x0F0E','0x0631') ; Invise 
  wait(100) 
  uo.waittargetobject(Rune) 
  uo.Cast('Recall') 
end sub

Тоже можете в скрипт запихнуть? Но вот я думаю..он работал всегда у меня в том случае,если рунку купить и не трогать в паке,а если килл или переложил,то уже не фурыкал скрипт)
Вы каким Экстренным реколом пользуетесь