simple ore smelt

Bangbuss · Post by **Bangbuss** » 2006-12-01 19:09:53

Nuzhen prostoj skript 6tob plavil vsu rudu katoraja v backpacke, 6tob plavil prosto a ne po 1. Esli est u kagota vikladite pozhalusta.

Savage · Post by **Savage** » 2006-12-01 19:21:44

Меняем id печки и вперед.

Code: Select all

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

Bangbuss · Post by **Bangbuss** » 2006-12-01 19:58:35

nafig id pe4ki? nado prosta 2x nazhimat' na vse vidi rudi v backapacke.

Nmy · Post by **Nmy** » 2006-12-01 20:38:13

Code: Select all

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: Select all

  while uo.skillval('Mining') < 1400

можно поменять на

Code: Select all

while 1

Bangbuss · Post by **Bangbuss** » 2006-12-01 21:29:39

po 1 plavit, a ne vse srazu.

nafig

Code: Select all

-1','backpack'

mne nenado 6tob on vsu rudu po 1 plavil.

Nmy · Post by **Nmy** » 2006-12-01 21:31:36

тогда тебе в поиск... я такие неумею писать

Savage · Post by **Savage** » 2006-12-01 22:01:47

Bangbuss wrote:nafig id pe4ki? nado prosta 2x nazhimat' na vse vidi rudi v backapacke.

Каков вопрос таков и ответ, ты же не указал каким образом происходит плавка.

Bangbuss · Post by **Bangbuss** » 2006-12-01 22:57:17

Krch govara, nado 6tob posle komandi, 4ar nahadil v backpacke rudu, i 2x nazhal na vse vidi rudi.

Savage · Post by **Savage** » 2006-12-02 06:14:23

Code: Select all

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

Bangbuss · Post by **Bangbuss** » 2006-12-02 14:32:13

Savage Big Thx