Переклад и расклад

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
kobol
Posts: 119
Joined: 2012-12-15 12:03:25
Location: C-Петербург

Переклад и расклад

Post by kobol »

Хочу здесь выкладывать скрипты на тему переклада вещей с одного места на другое, их сортировки и расклада по координатам в контейнере.
Например
Переклад драгкамней.
Работа:
Таргет на сундук-источник, таргет на сундук-приемник.

Code: Select all

###########################################
sub perekladGEM()
   #****ДРВ*****#
   # (C) Cooper
   #modified by Kobol 2013
   #****v1.0****#
   VAR Ttov, tovar
   var i
   uo.charprint('1069','Берем другую сумку') ; = красивая надпись над персонажем видимая только хозяину.
   dim gem[34]
   gem[0]=0x0F10 ;emerald
   gem[1]=0x0F11 ;a sapphire
   gem[2]=0x0F12 ;Краска для волос
   gem[3]=0x0F13 ;Краска для волос
   gem[4]=0x0F14 ;Краска для волос
   gem[5]=0x0F15 ;citrin
   gem[6]=0x0F16 ;Краска для волос
   gem[7]=0x0F17 ;Краска для волос
   gem[8]=0x0F18 ;Турмалины
   gem[9]=0x0F19 ;Сапфиры
   gem[10]=0x0F1A ;Турмалины
   gem[11]=0x0F1B ;Турмалины
   gem[12]=0x0F1C ;Турмалины
   gem[13]=0x0F1D ;Турмалины
   gem[14]=0x0F1E ;Турмалины
   gem[15]=0x0F1F ;Сапфиры
   gem[16]=0x0F20 ;diamond
   gem[17]=0x0F21 ;diamond
   gem[18]=0x0F22 ;amethist
   gem[19]=0x0F23 ;Ситрины citrin
   gem[20]=0x0F24 ;Ситрины citrin
   gem[21]=0x0F25 ;an piece of amber
   gem[22]=0x0F26 ;diamond
   gem[23]=0x0F27 ;diamond
   gem[24]=0x0F28 ;a diamond
   gem[25]=0x0F29 ;a diamond
   gem[26]=0x0F2A ;a ruby
   gem[27]=0x0F2B ;a ruby
   gem[28]=0x0F2C ;a ruby
   gem[29]=0x0F2D ;a tourmaline
   gem[30]=0x0F2E ;emerald
   gem[31]=0x0F2F ;star sapphire
   gem[32]=0x0F30 ;diamonds
   gem[33]=0x0F0F ;star sapphire
   UO.Print('Выбери ИСТОЧНИК')
   UO.Exec('addobject istok')
   while UO.Targeting()
      wait(100)
   wend
   UO.UseObject('istok')
   UO.Print('Выбери ПРИЕМНИК')
   UO.Exec('addobject priem')
   while UO.Targeting()
      wait(100)
   wend
   ;UO.Print('Выбери ТОВАР')
   ;UO.Exec('addobject tovar')
   ;while UO.Targeting()
   ;wait(100)
   ;wend
   for i=0 to 33
      tovar=gem[i]
      ;TTov = UO.GetGraphic('tovar')
      UO.Print('tovar ='+str(tovar ))
      UO.FindType(tovar,'-1','istok')
      UO.Print('Found '+str(UO.FindCount())+' gem N '+str(i))
      If UO.FindCount() > 0 then
         repeat
            UO.MoveItem('finditem', '0', 'priem')
            wait(1000)
            UO.FindType(tovar,'-1','istok')
         until not UO.FindCount()
         UO.Print('Finished gem N '+str(i))
      else
         UO.Print('Not found gem N ' +str(i))
      endif
   next
   UO.Print('pereklad complete ' )
end sub
Top
kobol
Posts: 119
Joined: 2012-12-15 12:03:25
Location: C-Петербург

Re: Переклад и расклад

Post by kobol »

Переклад бутылок с раскладом по координатам.

Code: Select all

var clr=38, clo=43, cly=53, clg=63, clb=3, cla=89, clda=83, clp=120 , clgr=1088, clw=1156
var typeBottle='0x0F0E'
var typeExplosion='0x0F0D'
var typeAntiF='0x0F03'
var totalB=1 ; если 0, то перекладываются бутылки того цвета и типа на который кликнули при выборе. Если 1, то выбор бутылки не предлагается и перекладываются-раскладываются все бутылки из контейнера-источника.
# ---  цвета бутылок
var clrEmpty="0x0000"
var clrAgility="0x0489"
var clrCure="0x09A6"
var clrHeal="0x09BB"
var clrNightsight="0x0B9D"
var clrPoison="0x0998"
var clrRefresh="0x0997"
var clrStrength="0x0482"
var clrShrink="0x0388"
var clrInvis="0x0631"
var clrMana="0x09DF"
var clrClever="0x0482"
var clrBless="0x09C5"
var clrSteelskin="0x0962"
var clrStoneskin="0x0964"
var clrLavaBomb="0x09DA"
var clrExplosion="0x0B99"
var clrAntiF="0x09CF"
; итого 16+2 цветов
###################################################
Sub PrintInColor(text,color)
   # PrintInColor("здесь текст",'цвет текста')
   # красный   - '38' или '0x0026'  # темно-бирюзовый - '83' или '0x0053'
   # оранжевый - '43' или '0x002B'  # голубой    - '89'  или '0x0059'
   # желтый    - '53' или '0x0035'  # синий      - '3'   или '0x0003'
   # зеленый   - '63' или '0x003F'  # фиолетовый - '120' или '0x0078'
   # '1088' - по умолчанию
   # 1152 - бирюзовый 1151 - черный 1155 - фиолетовый 1156 - белый  1158 - кр 1161 - синий 1162 - темно зел 1166 ткр 1169 сз 
   # 2500 2524 - оранж  2517 кр 2567 малин 2566=0x0A06 белый 
   #  2998 - белый 3008 3221 3600 и выше - контур
   UO.ConColor(color)
   ;UO.Exec('set quiet 0')   # Показывать сообщения Injection.
   UO.Print(text)
   ;UO.Exec('set quiet 1')   # Не показывать сообщения Injection.
   UO.ConColor('1088')
endsub
###################################################
sub perekladBottle()
   #****ДРВ*****#
   # based on (C) Cooper
   # modified by Kobol 2014
   # перекладывает бутылки из мешка с кучей несортированных в другой мешок, 
   # раскладывая их по кучкам (координатам) в соответствии с типом, в т.ч. некучкующиеся. TWI должен быть включен.
   # координаты фиксированы в скрипте для каждого типа бутылки - своя координата
   #****v1.0****#
   ;VAR Item ; object перекладываемого предмета
   # ---  цвета бутылок
   dim bColor[18]
   bColor[0]="0x0000" ; Empty
   bColor[1]="0x0489" ; Agility
   bColor[2]="0x09A6" ; Cure
   bColor[3]="0x09BB" ; Heal
   bColor[4]="0x0B9D" ; Nightsight
   bColor[5]="0x0998" ; Poison
   bColor[6]="0x0997" ; Refresh
   bColor[7]="0x0482" ; Strength
   bColor[8]="0x0388" ; Shrink
   bColor[9]="0x0631" ; Invis
   bColor[10]="0x09DF" ; Mana
   bColor[11]="0x0482" ; Clever
   bColor[12]="0x09C5" ; Bless
   bColor[13]="0x0962" ; Steelskin
   bColor[14]="0x0964" ; Stoneskin
   bColor[15]="0x09DA" ; LavaBomb
   bColor[16]="0x0B99" ; clrExplosion
   bColor[17]="0x09CF" ; clrAntiF
   
   # ---  типы бутылок
   dim bType[3]
   bType[0]=typeBottle
   bType[1]=typeExplosion
   bType[2]=typeAntiF
   
   var ItemColor, ItemName, ItemType, x,y, dx, dy,i,col,row, ColCount, RowCount, cIdx, X0=30, Y0=20 
   Var CurrName='' ; имя взятого предмета
   dx=12 ; шаг по X
   dy=20 ; шаг по Y
   x=X0 ; координата X первого предмета
   y=Y0 ; координата Y первого предмета
   col=0 ; текущее количество в ряду 
   row=0
   ;ColCount=8 ; максимальное количество в ряду (количество колонок)
   ;RowCount=8 ;  максимальное количество рядов
   
   
   # ---  коорд бутылок
   dim bCoordX[33]
   dim bCoordY[33]
   for i=0 to 7
      bCoordX[i]=X0+dx*i
      bCoordY[i]=Y0
   next
   for i=8 to 15
      bCoordX[i]=X0+dx*i
      bCoordY[i]=Y0+dy
   next
   
   
   dim bName[33]
   ;-------- 1 ряд ------------
   bName[0]="empty bottle"       ;0'!!! "0x0000" 
   bCoordX[0]=X0
   bCoordY[0]=Y0
   bName[1]="Agility"            ;1' "0x0489"- 
   bCoordX[1]=X0+dx*1
   bCoordY[1]=Y0
   bName[2]="Greater Agility"    ;1' "0x0489"- 
   bCoordX[2]=X0+dx*2
   bCoordY[2]=Y0
   bName[3]="Lesser Cure"        ;2' "0x09A6"- 
   bCoordX[3]=X0+dx*3
   bCoordY[3]=Y0
   bName[4]="Cure"               ;2 "0x09A6" - 
   bCoordX[4]=X0+dx*4
   bCoordY[4]=Y0
   bName[5]="Greater Cure"       ;2'!!! "0x09A6"-
   bCoordX[5]=X0+dx*5
   bCoordY[5]=Y0
   ;-------- 2 ряд -------------
   bName[6]="Lesser Heal"        ;3' "0x09BB"- 
   bCoordX[6]=X0
   bCoordY[6]=Y0+dy
   bName[7]="Heal"               ;3' "0x09BB"- 
   bCoordX[7]=X0+dx
   bCoordY[7]=Y0+dy
   bName[8]="Greater Heal"       ;3'!!! "0x09BB"- 
   bCoordX[8]=X0+dx*2
   bCoordY[8]=Y0+dy
   bName[9]="Nightsight"         ;4,' "0x0B9D"- 
   bCoordX[9]=X0+dx*3
   bCoordY[9]=Y0+dy
   ;---------3 ряд --------
   bName[10]="Lesser Poison"     ;5, "0x0998"- 
   bCoordX[10]=X0+dx*1
   bCoordY[10]=Y0+dy*2
   bName[11]="Poison"            ;5, "0x0998"- 
   bCoordX[11]=X0+dx*2
   bCoordY[11]=Y0+dy*2
   bName[12]="Greater Poison"    ;5, "0x0998"- 
   bCoordX[12]=X0+dx*3
   bCoordY[12]=Y0+dy*2
   bName[13]="Deadly Poison"     ;5'!!! "0x0998"-
   bCoordX[13]=X0+dx*4
   bCoordY[13]=Y0+dy*2
   bName[14]="Refresh"           ;6, "0x0997"-
   bCoordX[14]=X0+dx*5
   bCoordY[14]=Y0+dy*2
   bName[15]="Total Refresh"     ;6'!!! "0x0997"-
   bCoordX[15]=X0+dx*6
   bCoordY[15]=Y0+dy*2
   ;---------4 ряд -------------
   bName[16]="Strength"          ;7,' "0x0482"- 
   bCoordX[16]=X0+dx*1
   bCoordY[16]=Y0+dy*3
   bName[17]="Greater Strength"  ;7,' "0x0482"- 
   bCoordX[17]=X0+dx*2
   bCoordY[17]=Y0+dy*3
   bName[18]="Shrink"            ;8'!!! "0x0388"-
   bCoordX[18]=X0+dx*3
   bCoordY[18]=Y0+dy*3
   bName[19]="Invisibility"      ;9'!!! "0x0631"-
   bCoordX[19]=X0+dx*4
   bCoordY[19]=Y0+dy*3
   bName[20]="Total Mana"        ;10'!!! "0x09DF"-
   bCoordX[20]=X0+dx*5
   bCoordY[20]=Y0+dy*3
   bName[21]="Mana"              ;10, "0x09DF"-
   bCoordX[21]=X0+dx*6
   bCoordY[21]=Y0+dy*3
   ;---------5 ряд ---------------
   bName[22]="Clever"            ;11,' "0x0482"- 
   bCoordX[22]=X0+dx*1
   bCoordY[22]=Y0+dy*4
   bName[23]="Greater Clever"    ;11,' "0x0482"- 
   bCoordX[23]=X0+dx*2
   bCoordY[23]=Y0+dy*4
   bName[24]="Bless"             ;12,' "0x09C5"- 
   bCoordX[24]=X0+dx*3
   bCoordY[24]=Y0+dy*4
   bName[25]="Greater Bless"     ;12,' "0x09C5"- 
   bCoordX[25]=X0+dx*4
   bCoordY[25]=Y0+dy*4
   bName[26]="Steelskin"         ;13,' "0x0962"- 
   bCoordX[26]=X0+dx*5
   bCoordY[26]=Y0+dy*4
   bName[27]="Stoneskin"         ;14'!!! "0x0964"-
   bCoordX[27]=X0+dx*6
   bCoordY[27]=Y0+dy*4
   ;----------6 ряд -------------
   bName[28]="Lesser Explosion"  ;15 '"0x0B99" type=0x0F0D - 
   bCoordX[28]=X0+dx*1
   bCoordY[28]=Y0+dy*5
   bName[29]="Greater Explosion" ;15-"0x0B99"
   bCoordX[29]=X0+dx*2
   bCoordY[29]=Y0+dy*5
   bName[30]="Explosion"         ;15 '"0x0B99" 
   bCoordX[30]=X0+dx*3
   bCoordY[30]=Y0+dy*5
   bName[31]="Lava Bomb"         ;15'!!! "0x09DA" -
   bCoordX[31]=X0+dx*4
   bCoordY[31]=Y0+dy*5
   bName[32]="Antifreeze"        ;16'!!! Colour: 0x09CF Type=0x0F03   -
   bCoordX[32]=X0+dx*5
   bCoordY[32]=Y0+dy*5
   
   
   UO.Print('Выбери ИСТОЧНИК (FROM)')
   UO.Exec('addobject istok')
   while UO.Targeting()
      wait(100)
   wend
   UO.UseObject('istok')
   
   UO.Print('Выбери ПРИЕМНИК (TO) ')
   UO.Exec('addobject priem')
   while UO.Targeting()
      wait(100)
   wend
   UO.UseObject('priem')
   
   
   if totalB==0 then ; --------------------
      UO.Print('Выбери Бутылку (Bottle)')
      UO.Exec('addobject Item')
      
      while UO.Targeting()
         wait(100)
      wend
      UO.click('Item')
      wait(200)
      
      ItemType = UO.GetGraphic('Item') ; берем тип выбранного object
      ItemColor=uo.getcolor('Item')
      Itemname=Uo.GetName('Item')
      PrintInColor("ItemType="+ItemType, clw)
      PrintInColor("ItemColor="+ItemColor, clw)
      PrintInColor("ItemName="+ItemName, clw)
   else
      ItemColor="-1"
      ItemType =typeBottle
   end if ;-------------------------------
   
   var Tidx, k,  TCount=3 ; cколько типов бутылок обрабатывать. Зависит от флага totalB. Если totalB=1, то перетаскивать все три типа бутылок. Если totalB=0 - то только выбранный тип.
   if totalB==1 then 
      TCount=3
      Tidx=0
   else
      bType[0]=ItemType 
      TCount=0
      Tidx=0
      
   end if
   cIdx=0
   for k=Tidx to TCount-1  ;=============================
      ItemType=bType[k]
      
      UO.FindType(ItemType,ItemColor,'istok')
      If UO.FindCount() > 0 then
         repeat
            uo.click('finditem')
            wait(200)
            Itemname=Uo.GetName('finditem')
            PrintInColor(ItemName, cla)
            for i=0 to 32
               if instr(Itemname,bName[i]) >-1 then ######## ИСПРАВИТЬ - выделить имя и сравнивать без количества
                  cIdx=i
                  ;i=15
               end if
            next
            
            x=bCoordX[cIdx]
            y=bCoordY[cIdx]
            
            
            UO.MoveItem('finditem', '1111', 'priem',x,y,'0')
            wait(700)
            CheckLag()
            UO.FindType(ItemType,ItemColor,'istok')
            wait(400)
         until not UO.FindCount()
         UO.Print('Complete...')
      else
         UO.Print('Nothing to transfer...')
      endif
   next ;=============================
end sub
############################################################
Sub CheckLag()
   UO.DeleteJournal()
   UO.Click('backpack')
   repeat
      Wait(250)
   until UO.InJournal('backpack')
end sub
###########################################
sub InStr(Source, subStr)
   var n = len(subStr)
   var j
   if len(Source)>=len(subStr) then
      
      for var i = 0 to len(Source)-n
         j = 0
         while (j < n) and (Source[i+j] == subStr[j])
            j = j+1;
         wend
         if j == n then
            return i
         end if
      next
   else
   end if
   return -1
   
end sub

Top
kobol
Posts: 119
Joined: 2012-12-15 12:03:25
Location: C-Петербург

Re: Переклад и расклад

Post by kobol »

Для старой инжи.
Переклад вандов с раскладкой по координатам. Но все равно вручную найти нужный ванд невозможно )
Указывем источник, указываем приемник.
Если попадается нераспознанный ванд, автоматически юзается Item Identification.
Координаты жестко привязаны к именам вандов, задаются в массиве.

Code: Select all

var clr=38, clo=43, cly=53, clg=63, clb1=3, cla=89, clda=83, clp=120 , clgr=1088, clb=1161, clw=2998
# красный   - '38' или '0x0026'  # темно-бирюзовый - '83' или '0x0053'
# оранжевый - '43' или '0x002B'  # голубой    - '89'  или '0x0059'
# желтый    - '53' или '0x0035'  # синий      - '3'   или '0x0003'
# зеленый   - '63' или '0x003F'  # фиолетовый - '120' или '0x0078'
# '1088' - по умолчанию
# 1152 - бирюзовый 1151 - черный 1155 - фиолетовый 1156 - белый  1158 - кр 1161 - синий 1162 - темно зел 1166 ткр 1169 сз 
# 2500 2524 - оранж  2517 кр 2567 малин 2566=0x0A06 белый 
#  2998 - белый 3008 3221 3600 и выше - контур
###################################################
Sub PrintInColor(text,color)
   # PrintInColor("здесь текст",'цвет текста')
   # красный   - '38' или '0x0026'  # темно-бирюзовый - '83' или '0x0053'
   # оранжевый - '43' или '0x002B'  # голубой    - '89'  или '0x0059'
   # желтый    - '53' или '0x0035'  # синий      - '3'   или '0x0003'
   # зеленый   - '63' или '0x003F'  # фиолетовый - '120' или '0x0078'
   # '1088' - по умолчанию
   # 1152 - бирюзовый 1151 - черный 1155 - фиолетовый 1156 - белый  1158 - кр 1161 - синий 1162 - темно зел 1166 ткр 1169 сз 
   # 2500 2524 - оранж  2517 кр 2567 малин 2566=0x0A06 белый 
   #  2998 - белый 3008 3221 3600 и выше - контур
   UO.ConColor(color)
   ;UO.Exec('set quiet 0')   # Показывать сообщения Injection.
   UO.Print(text)
   ;UO.Exec('set quiet 1')   # Не показывать сообщения Injection.
   UO.ConColor('1088')
endsub
###################################################
sub perekladWand()
   #****ДРВ*****#
   # (C) Cooper
   # modified by Kobol 2014
   #****v1.0****#
   DIM WandType[4]
   WandType[0] = '0x0DF2' ; 
   WandType[1] = '0x0DF3' ; 
   WandType[2] = '0x0DF4' ; 
   WandType[3] = '0x0DF5' ; 
   #------------- примеры имен вандов ----------------
   ;a Magic wand of Cure (8 charges)
   ;a Magic wand of Mana Drain (10 charges)
   ;a Magic wand of Reactive Armor (10 charges)
   ;a Magic wand of Flame Strike (8 charges)
   ;нужно сравнивать по имени и учитывать число зарядов. разряженные ванды не брать
   
   
   VAR Item ; object перекладываемого предмета
   var ItemColor,x,y,i,col,row, ColCount, RowCount,TTov, X0=35, Y0=35, dx=10, dy=15
   var si ; счетчик текущий  Wand
   var ti ; счетчик типов  Wand
   var WNameCurr, WNameRQ, zz
   var nedo ; сколько недостает Wandов
   var d ;   счетчик докладываемых
   
   i=4 ; шаг
   x=X0 ; координата X первого предмета
   y=Y0 ; координата Y первого предмета
   col=0 ; текущее количество в ряду 
   row=0
   ColCount=15 ; максимальное количество в ряду (количество колонок)
   RowCount=7 ;  максимальное количество рядов
   
   
   # ---  коорд вандов
   dim wCoordX[64]
   dim wCoordY[64]
   
   #------------- 
   DIM WandName[64] ; названия заклинаний 
   
   ;-------- 1 ряд -------------
   WandName[31] = 'a Magic wand of Recall'; !!!!!!!!!!!!!!! 13 -10
   wCoordX[31]=X0
   wCoordY[31]=Y0
   WandName[37] = 'a Magic wand of Paralyze Field'; !!!!!!!!!!!!!!! 20 -10
   wCoordX[37]=X0+1*dx
   wCoordY[37]=Y0+6*dy
   WandName[46] = 'a Magic wand of Paralyze'; !!!!!!!!!!!!!!! 17 -10
   wCoordX[46]=X0+2*dx
   wCoordY[46]=Y0+6*dy
   WandName[23] = 'a Magic wand of Wall of Stone'; !!!!!!!!!!!!!!! 9 -10
   wCoordX[23]=X0+3*dx
   wCoordY[23]=Y0
   WandName[27] = 'a Magic wand of Fire Field'; !!!!!!!!!!!!!!!  10 -5
   wCoordX[27]=X0+4*dx
   wCoordY[27]=Y0
   WandName[28] = 'a Magic wand of Greater Heal'; !!!!!!!!!!!!!!! 11 -10
   wCoordX[28]=X0+5*dx
   wCoordY[28]=Y0
   WandName[10] = 'a Magic wand of Cure'; !!!!!!!!!!!!!!! 3 -5
   wCoordX[10]=X0+6*dx
   wCoordY[10]=Y0
   WandName[6] = 'a Magic wand of Reactive Armor'; !!!!!!!!!!!!!!! 2 -10
   wCoordX[6]=X0+7*dx
   wCoordY[6]=Y0
   WandName[32] = 'a Magic wand of Blade Spirit'; !!!!!!!!!!!!!!! 14 -5
   wCoordX[32]=X0+8*dx
   wCoordY[32]=Y0
   WandName[35] = 'a Magic wand of Magic Reflect'; !!!!!!!!!!!!!!! 16 -10
   wCoordX[35]=X0+9*dx
   wCoordY[35]=Y0
   
   ;-------- 2 ряд -------------
   WandName[4] = 'a Magic wand of Magic Arrow' ;!!!!!!!!!!!!!!!    1 -10
   wCoordX[4]=X0
   wCoordY[4]=Y0+1*dy
   WandName[14] = 'a Magic wand of Protection'; !!!!!!!!!!!!!!! 4 -5
   wCoordX[14]=X0+1*dx
   wCoordY[14]=Y0+1*dy
   WandName[17] = 'a Magic wand of Fireball'; !!!!!!!!!!!!!!! 5 -5
   wCoordX[17]=X0+2*dx
   wCoordY[17]=Y0+1*dy
   WandName[19] = 'a Magic wand of Poison'; !!!!!!!!!!!!!!! 6 -10
   wCoordX[19]=X0+3*dx
   wCoordY[19]=Y0+1*dy
   WandName[20] = 'a Magic wand of Telekinesis'; !!!!!!!!!!!!!!! 7 -5
   wCoordX[20]=X0+4*dx
   wCoordY[20]=Y0+1*dy
   WandName[21] = 'a Magic wand of Teleport'; !!!!!!!!!!!!!!! 8 -5
   wCoordX[21]=X0+5*dx
   wCoordY[21]=Y0+1*dy
   WandName[30] = 'a Magic wand of Mana Drain'; !!!!!!!!!!!!!!! 12 -5
   wCoordX[30]=X0+6*dx
   wCoordY[30]=Y0+1*dy
   WandName[33] = 'a Magic wand of Dispel Field'; !!!!!!!!!!!!!!! 15 -5
   wCoordX[33]=X0+7*dx
   wCoordY[33]=Y0+1*dy
   WandName[38] = 'a Magic wand of Poison Field'; !!!!!!!!!!!!!!! 18 -10
   wCoordX[38]=X0+8*dx
   wCoordY[38]=Y0+1*dy
   WandName[43] = 'a Magic wand of Invisibility'; !!!!!!!!!!!!!!! 19 -10
   wCoordX[43]=X0+9*dx
   wCoordY[43]=Y0+1*dy
   WandName[47] = 'a Magic wand of Reveal'; !!!!!!!!!!!!!!! 21 -10
   wCoordX[47]=X0+10*dx
   wCoordY[47]=Y0+1*dy
   
   ;-------- 3 ряд малоценка -------------
   
   WandName[29] = 'a Magic wand of Lightning';
   wCoordX[29]=X0+0*dx
   wCoordY[29]=Y0+2*dy
   WandName[34] = 'a Magic wand of Incognito';
   wCoordX[34]=X0+1*dx
   wCoordY[34]=Y0+2*dy
   WandName[36] = 'a Magic wand of Mind Blast';
   wCoordX[36]=X0+2*dx
   wCoordY[36]=Y0+2*dy
   WandName[39] = 'a Magic wand of Summon';
   wCoordX[39]=X0+3*dx
   wCoordY[39]=Y0+2*dy
   WandName[40] = 'a Magic wand of Dispel';
   wCoordX[40]=X0+4*dx
   wCoordY[40]=Y0+2*dy
   WandName[41] = 'a Magic wand of Energy Bolt';
   wCoordX[41]=X0+5*dx
   wCoordY[41]=Y0+2*dy
   WandName[42] = 'a Magic wand of Explosion';
   wCoordX[42]=X0+6*dx
   wCoordY[42]=Y0+2*dy
   WandName[44] = 'a Magic wand of Mark';
   wCoordX[44]=X0+7*dx
   wCoordY[44]=Y0+2*dy
   WandName[45] = 'a Magic wand of Mass Curse';
   wCoordX[45]=X0+8*dx
   wCoordY[45]=Y0+2*dy
   WandName[48] = 'a Magic wand of Chain Lightning';
   wCoordX[48]=X0+9*dx
   wCoordY[48]=Y0+2*dy
   WandName[49] = 'a Magic wand of Energy Field';
   wCoordX[49]=X0+10*dx
   wCoordY[49]=Y0+2*dy
   WandName[50] = 'a Magic wand of Flame Strike';
   wCoordX[50]=X0+11*dx
   wCoordY[50]=Y0+2*dy
   WandName[51] = 'a Magic wand of Gate Travel';
   wCoordX[51]=X0+12*dx
   wCoordY[51]=Y0+2*dy
   ;-------- 4 ряд малоценка -------------
   WandName[52] = 'a Magic wand of Mana Vampire';
   wCoordX[52]=X0
   wCoordY[52]=Y0+3*dy
   WandName[53] = 'a Magic wand of Mass Dispel';
   wCoordX[53]=X0+1*dx
   wCoordY[53]=Y0+3*dy
   WandName[54] = 'a Magic wand of Meteor Swarm';
   wCoordX[54]=X0+2*dx
   wCoordY[54]=Y0+3*dy
   WandName[55] = 'a Magic wand of Polymorph';
   wCoordX[55]=X0+3*dx
   wCoordY[55]=Y0+3*dy
   WandName[56] = 'a Magic wand of Earthquake';
   wCoordX[56]=X0+4*dx
   wCoordY[56]=Y0+3*dy
   WandName[57] = 'a Magic wand of Energy Vortex';
   wCoordX[57]=X0+5*dx
   wCoordY[57]=Y0+3*dy
   WandName[58] = 'a Magic wand of Resurrection';
   wCoordX[58]=X0+6*dx
   wCoordY[58]=Y0+3*dy
   WandName[59] = 'a Magic wand of Air Elemental';
   wCoordX[59]=X0+7*dx
   wCoordY[59]=Y0+3*dy
   WandName[60] = 'a Magic wand of Daemon'; 'Magic wand of Daemon'
   wCoordX[60]=X0+8*dx
   wCoordY[60]=Y0+3*dy
   WandName[61] = 'a Magic wand of Earth Elemental';
   wCoordX[61]=X0+9*dx
   wCoordY[61]=Y0+3*dy
   WandName[62] = 'a Magic wand of Fire Elemental';
   wCoordX[62]=X0+10*dx
   wCoordY[62]=Y0+3*dy
   WandName[63] = 'a Magic wand of Water Elemental';
   wCoordX[63]=X0+11*dx
   wCoordY[63]=Y0+3*dy
   
   ;-------- 5 ряд  хлам -------------
   WandName[0] = 'a Magic wand of Clumsy'
   wCoordX[0]=X0
   wCoordY[0]=Y0+4*dy
   WandName[1] = 'a Magic wand of Create Food'
   wCoordX[1]=X0+1*dx
   wCoordY[1]=Y0+4*dy
   WandName[2] = 'a Magic wand of Feeblemind'
   wCoordX[2]=X0+2*dx
   wCoordY[2]=Y0+4*dy
   WandName[3] = 'a Magic wand of Heal'
   wCoordX[3]=X0+3*dx
   wCoordY[3]=Y0+4*dy
   WandName[5] = 'a Magic wand of Night Sight'
   wCoordX[5]=X0+4*dx
   wCoordY[5]=Y0+4*dy
   WandName[7] = 'a Magic wand of Weaken'
   wCoordX[7]=X0+5*dx
   wCoordY[7]=Y0+4*dy
   WandName[8] = 'a Magic wand of Agility'
   wCoordX[8]=X0+6*dx
   wCoordY[8]=Y0+4*dy
   WandName[9] = 'a Magic wand of Cunning'
   wCoordX[9]=X0+7*dx
   wCoordY[9]=Y0+4*dy
   WandName[11] = 'a Magic wand of Harm';
   wCoordX[11]=X0+8*dx
   wCoordY[11]=Y0+4*dy
   WandName[12] = 'a Magic wand of Magic Trap';
   ;-------- 6 ряд  хлам -------------
   wCoordX[12]=X0+0*dx
   wCoordY[12]=Y0+5*dy
   WandName[13] = 'a Magic wand of Magic Untrap';
   wCoordX[13]=X0+1*dx
   wCoordY[13]=Y0+5*dy
   WandName[15] = 'a Magic wand of Strength';
   wCoordX[15]=X0+2*dx
   wCoordY[15]=Y0+5*dy
   WandName[16] = 'a Magic wand of Bless';
   wCoordX[16]=X0+3*dx
   wCoordY[16]=Y0+5*dy
   WandName[18] = 'a Magic wand of Magic Lock';
   wCoordX[18]=X0+4*dx
   wCoordY[18]=Y0+5*dy
   WandName[22] = 'a Magic wand of Unlock';
   wCoordX[22]=X0+5*dx
   wCoordY[22]=Y0+5*dy
   WandName[24] = 'a Magic wand of Arch Cure';
   wCoordX[24]=X0+6*dx
   wCoordY[24]=Y0+5*dy
   WandName[25] = 'a Magic wand of Arch Protection';
   wCoordX[25]=X0+7*dx
   wCoordY[25]=Y0+5*dy
   WandName[26] = 'a Magic wand of Curse';
   wCoordX[26]=X0+8*dx
   wCoordY[26]=Y0+5*dy
   
   
   var FullLoad ; флаг полной загрузки контейнера
   
   UO.Print('Выбери ИСТОЧНИК Wandов (From)')
   UO.Exec('addobject istok')
   while UO.Targeting()
      wait(100)
   wend
   UO.UseObject('istok')
   UO.Print('Выбери ПРИЕМНИК Wandов (To)')
   UO.Exec('addobject priem')
   while UO.Targeting()
      wait(100)
   wend
   UO.UseObject('priem')
   
   ; ищем ванды
   for ti=0  to 3 ; перебираем по типам вандов
      Ttov=WandType[ti]
      UO.FindType(Ttov,'-1','istok') ; находим wand в ящике
      If UO.FindCount() > 0 then
         
         d=0
         
         repeat ; <<<<<<<<<<<<<<< цикл поиска вандов в ящике 
            uo.click ('finditem')
            wait (100)
            WNameCurr =UO.GetName( 'finditem' ) ; имя найденного ванда
            PrintInColor(WNameCurr,clw)
            
            GetNameAgain:
            if WNameCurr =="wand" or WNameCurr =="" then
               UO.MoveItem('finditem', '111', 'istok')
               UO.Useskill('Item Identification','finditem')
               wait(4500)
               checklag()
               uo.click ('finditem')
               wait (100)
               WNameCurr =UO.GetName( 'finditem' ) ; имя найденного ванда
               PrintInColor(WNameCurr,"0x0048")
               
               goto GetNameAgain
            end if
            
            for si=0  to 63 ; перебираем по всем именам вандов. Каждое имя кладем на свою координату.
               
               WNameRQ=WandName[si]
               WNameRQ=left(WNameRQ, InStr(WNameRQ, '(' ) ) ; a Magic wand of Mana Drain (10 charges)
               ;PrintInColor(WNameCurr,cla)
               ;PrintInColor(WNameRQ,cla)
               ;PrintInColor(str(si),'2998')
               zz=instr(WNameCurr,WNameRQ) ; имя из массива совпадает с именем найденного ванда?
               if zz>-1 then ;если да, то кладем его на соответствующую имени координату
      ; 'ищем текущее имя в списке, определяем его индекс и по этому индексу берем координаты из массива координат 
                  x=wCoordX[si]
                  y=wCoordY[si]
                  ;PrintInColor("x="+str(x),clb)
                  ;wait(50)
                  ;PrintInColor("y="+str(y),clb)
                  wait(50)
                  
                  UO.MoveItem('finditem', '111', 'priem',x,y,'0')
                  wait(570)
                  d=d+1
                  si=63 ; изврат! выход из цикла , другие типы вандов перебирать не надо
               else
                  ;uo.Ignore("finditem") ; ??????????????
               end if
               wait (10)
            next ; переходим к следующему имени Wandа

            CheckLag()
            UO.FindType('-1','-1','priem')
            if UO.FindCount()==255 then
               FullLoad=1
               PrintInColor("Priemnik zapolnen!!!",clr)
            end if
            UO.FindType(Ttov,'-1','istok')
         until not UO.FindCount() or  FullLoad==1 ; ; <<<<<<<<<<<<<<<
      end if
   
      ;uo.print('Moved ' +str(d)  +' Wands <<<')
   
      wait (150)
      if FullLoad==1 then
      ti=3
      
      end if
   next ;  переходим к следующему типу Wandа

   uo.IgnoreReset() 
   wait (100)
   UO.Print('Finished...')
end sub
############################################################
Sub CheckLag()
UO.DeleteJournal()
UO.Click('backpack')
repeat
Wait(250)
until UO.InJournal('backpack')
endsub
############################################################
sub InStr(Source, subStr)
var n = len(subStr)
var j
if len(Source)>=len(subStr) then
for var i = 0 to len(Source)-n
j = 0
while (j < n) and (Source[i+j] == subStr[j])
j = j+1;
wend
if j == n then
return i
end if
next
else
end if
return -1
end sub


Top
tuxuu1988
Posts: 9
Joined: 2014-02-10 21:35:42

Re: Переклад и расклад

Post by tuxuu1988 »

можно ли к етому скрипту приделать так чтоб он например перетаскивал токо то количество бутылок каторое надо мне
Top
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:
Contact Mirage

Re: Переклад и расклад

Post by Mirage »

к этому какому? Тут 3 скрипта. А так можно :roll:
Top
tuxuu1988
Posts: 9
Joined: 2014-02-10 21:35:42

Re: Переклад и расклад

Post by tuxuu1988 »

к 2 скрипту где с алхимиеи а то я вот делаю вар паки специально для продажи было бы хорошо если было бы по количеству
Top
Post Reply

Return to “Scripting Ore”