Yoko
http://forum.yoko.com.ua/

кач !МИНИНГА!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7970		 Page 1 of 1
Author:  ghost_hnt [ 2006-06-14 16:45:40 ]
Post subject:  кач !МИНИНГА!
вот решил прокачать мининг другому чару - сидеть копаьть в шахте в лом
есть оч много ора - на переплавку
=> нужен скрипт следующего содержания
ЧАР берет из сундука 1 ирон ор переплавляет и кладет ингот обратно
вот вообщем и все
Можно и так чар берет 100 ирон ор , переплавляЕТ по 1 и кладет инги обратно! :D
заранее благодарен :roll:
Author:  Scripts Writer [ 2006-06-14 17:09:27 ]
Post subject: 
Code:
sub mining()
var ore=' type of ore '
var color=' color of ore '
var sunduk=' where ore are '
  uo.FindType(ore,color,sunduk)
  while uo.FindCount()
    uo.FindType(ore,color,sunduk) 
    uo.moveitem('finditem','1','backpack')
    uo.UseObject('finditem')
    wait(100)
    uo.FindType(ingot,color,'backpack')
    uo.moveitem('finditem','1',sunduk)
    wait(100)
  wend
end sub


Не тестил. Пробуй
Author:  ghost_hnt [ 2006-06-14 17:26:14 ]
Post subject: 
забыл дописать

Code:
 var ingot='тип'


запускаешь - бывает не находит айрона, или слишком быстро пытается переместить инг
ща попробую пауз добавить
и еще пишет когда сплавил - object not found
Author:  Edred [ 2006-06-14 17:34:06 ]
Post subject: 
Code:
#####################################################################
; Training of Mining, ver 2.00b, (c) Edred
; 2.00b - добавляем сундук, откуда берется руда по 100 шт. и кидается
;         под ногм. Дальше как было. Заодно все правлю и переписываю
;         более правильно :)
sub Smelt()
   VAR Sunduk = '0x40437910'         ; Сериал сундука с рудой
   VAR Ruda1 = '0x19B9'            ; Тип руды
   VAR Ruda2 = '0x19B8'            ; Тип руды - 3 шт.
   VAR Ruda3 = '0x19BA'            ; Тип руды - 2 шт.
   VAR Ruda4 = '0x19B7'            ; Тип руды - 1 шт.
   VAR Ing1 = '0x1BEF'               ; Тип ингов металлов
   VAR Ing2 = '0x1BF2'               ; Тип ингов строймата
   VAR MaxVes = 200               ; Максимальный вес пака
   While UO.SkillVal( 'Mining' ) < 1000
      repeat   
         UO.Findtype( Ruda1, '-1', '1' )      ; Ищем руду на земле
         If UO.Findcount() == 0 Then
            UO.Findtype( Ruda2, '-1', '1' )
            If UO.Findcount() == 0 Then
               UO.Findtype( Ruda3, '-1', '1' )
               If UO.Findcount() == 0 Then
                  UO.Findtype( Ruda4, '-1', '1' )
                  If UO.Findcount() == 0 Then
                     If GetOre( Sunduk, Ruda1 ) == 0 Then
                        UO.Print( "No more ore for smelt..." )
                        Return
                     Endif
                  Endif
               Endif
            Endif
         Endif
      until UO.FindCount() > 0
      UO.Grab( '1', 'finditem' )
      Wait(500)
      CheckLag()
      UO.UseType( Ruda4 )            ; переплавляем
      Wait(500)
      CheckLag()
      If UO.Weight > MaxVes Then
         ; Максимальный вес пака превышен - разгружаемся
         UO.Findtype( Ing1 )
         If UO.Findcount() > 0 Then
            UO.MoveItem( 'finditem', '0', Sunduk )
            Wait(500)
            CheckLag()
         Endif
         UO.Findtype( Ing2 )
         If UO.Findcount() > 0 Then
            UO.MoveItem( 'finditem', '0', Sunduk )
            Wait(500)
            CheckLag()
         Endif
      Endif
   Wend
endsub

Sub GetOre( cont, typ )
   ; Взять из сундука 100 руды и бросить под ноги.
   ; Если руды нет - возвращаем 0, если есть 1
   UO.FindType( typ, '-1', cont )
   If UO.FindCount() == 0 Then
      return 0
   Else
      UO.Grab( '100', 'finditem' )
      wait(500)
      CheckLag()
      UO.FindType( typ )
      If UO.FindCount() == 0 Then
         UO.Print( 'Idiot! Your script is fuck!' )
      Else
         UO.Drophere( 'finditem' )
         wait(500)
         CheckLag()
      Endif
   Endif
   return 1
endsub
Author:  ghost_hnt [ 2006-06-14 17:47:18 ]
Post subject: 
спасибки
а то я\ уже сам наклепал- только с уборкой ингов не особо получалось
Code:
sub smelting() 
var ore='0x19B9' 
var color='0x0000' 
var sunduk='0x401C6E03' 
var ingot='0x1BF2'
  uo.FindType(ore,color,sunduk) 
  while uo.FindCount() 
    uo.FindType(ore,color,sunduk) 
        wait(300) 
    uo.moveitem('finditem','1','backpack') 
    uo.UseObject('finditem') 
    wait(300) 
if UO.InJournal("Вы плавите") then
repeat
end if
  wend 
if UO.InJournal("You put") then
zachistka()
endif

end sub
var ore='0x19B9' 
var color='0x0000' 
var sunduk='0x401C6E03' 
var ingot='0x1BF2'
sub zachistka()
    uo.FindType(ingot,color,'backpack') 
        wait(300) 
    uo.moveitem('finditem','1',sunduk) 
    wait(300) 
    end if
    end sub

ЗЫ в твоем скрипте чек лаг ищет, но с этим я проблему решил)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/