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

simple ore smelt
http://forum.yoko.com.ua/viewtopic.php?f=17&t=10250		 Page 1 of 1
Author:  Bangbuss [ 2006-12-01 19:09:53 ]
Post subject:  simple ore smelt
Nuzhen prostoj skript 6tob plavil vsu rudu katoraja v backpacke, 6tob plavil prosto a ne po 1. Esli est u kagota vikladite pozhalusta.
Author:  Savage [ 2006-12-01 19:21:44 ]
Post subject: 
Меняем id печки и вперед.
Code:
sub smeltm()
   VAR Forge='0x40004D06'
   VAR WaitTime=1000
   VAR Exit=0
   
   While Exit<>1
      UO.FindType('0x19B9',-1,'backpack')
      If UO.FindCount() Then
         UO.Print("Good!")
         UO.WaitTargetObject(Forge)
         UO.UseObject('finditem')
         wait(WaitTime)
      Else
         UO.Print("Bad!")
         Exit=1
      Endif
   Wend
end sub
Author:  Bangbuss [ 2006-12-01 19:58:35 ]
Post subject: 
nafig id pe4ki? nado prosta 2x nazhimat' na vse vidi rudi v backapacke.
Author:  Nmy [ 2006-12-01 20:38:13 ]
Post subject: 
Code:
sub SMELTING()
  while uo.skillval('Mining') < 1400
         UO.Findtype('0x19B9', '-1','backpack')
         If UO.Findcount() == 0 Then
            UO.Findtype('0x19B8', '-1','backpack')
            If UO.Findcount() == 0 Then
               UO.Findtype('0x19BA', '-1','backpack')
               If UO.Findcount() == 0 Then
                  UO.Findtype('0x19B7', '-1','backpack')
                  If UO.Findcount() == 0 Then
                    return
              Endif
               Endif
            Endif
         Endif
      UO.moveitem('finditem','1','backpack',44,121,0 )
      Wait(100)
      CheckLag()
      UO.UseType('0x19B7')
      Wait(100)
  wend
end sub

Code:
  while uo.skillval('Mining') < 1400

можно поменять на
Code:
while 1
Author:  Bangbuss [ 2006-12-01 21:29:39 ]
Post subject: 
po 1 plavit, a ne vse srazu.

nafig
Code:
-1','backpack'


mne nenado 6tob on vsu rudu po 1 plavil.
Author:  Nmy [ 2006-12-01 21:31:36 ]
Post subject: 
тогда тебе в поиск... я такие неумею писать :roll:
Author:  Savage [ 2006-12-01 22:01:47 ]
Post subject: 
Bangbuss wrote:
nafig id pe4ki? nado prosta 2x nazhimat' na vse vidi rudi v backapacke.
Каков вопрос таков и ответ, ты же не указал каким образом происходит плавка.
Author:  Bangbuss [ 2006-12-01 22:57:17 ]
Post subject: 
Krch govara, nado 6tob posle komandi, 4ar nahadil v backpacke rudu, i 2x nazhal na vse vidi rudi.
Author:  Savage [ 2006-12-02 06:14:23 ]
Post subject: 
Code:
sub smeltm() 
   VAR Forge='0x40004D06' 
   VAR WaitTime=1000 
   VAR Exit=0 
    
   While Exit<>1 
      UO.FindType('0x19B9',-1,'backpack') 
      If UO.FindCount() Then 
         UO.Print("Good!") 
         UO.UseObject('finditem') 
         wait(WaitTime) 
      Else 
         UO.Print("Bad!") 
         Exit=1 
      Endif 
   Wend 
end sub
Author:  Bangbuss [ 2006-12-02 14:32:13 ]
Post subject: 
Savage Big Thx
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/