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

Change script
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3925
Page 1 of 1

Author:  Red dragon [ 2005-05-05 20:45:57 ]
Post subject:  Change script

Помогите плиз сделайте чтоб чар место бутылок делал локпики

Code:
sub tinker() 
   VAR Sunduk = '0x40017C34'       ; Ñåðèàë ñóíäóêà
   VAR Ingi = '0x1BEF'          ; Òèï èíãîâ
   VAR Instrum = '0x1EBC'          ; Òèï èíñòðóìåíòà òèíêåðà
   VAR Bottle = '0x0F0E'          ; Òèï áóòûëêè
   VAR Kolvo = 200          ; Áðàòü èíãîâ
   VAR k = 0
   While TRUE
      UO.FindType( Ingi, -1, Sunduk )   ; Èùåì èíãè â ñóíäóêå
      If UO.FindCount() == 0 Then
         UO.Print("Iron Ingots not found, script terminated")
         return
      Endif
      UO.Grab( Str( Kolvo ), 'finditem' )
      wait( 2000 )
      While UO.Count( Ingi ) > 0
         ; Ïîêà â ïàêå åñòü èíãè
         UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
         UO.DeleteJournal()
         UO.CancelMenu()
         UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'empty bottle' )
         UO.UseType( Instrum )
         k = 0
         while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
            k = k + 1
            wait(500)
         wend
         if UO.Count( Bottle ) > 0 then
            UO.FindType( Bottle, -1, -1 )
            UO.MoveItem( 'finditem', 0, Sunduk )
            wait( 1000 )
            UO.Print( 'Bottle moved' )
         end if
      Wend
   Wend
end sub

Author:  Blacky [ 2005-05-05 21:11:46 ]
Post subject: 

sub tinker()
VAR Sunduk = '0x40017C34' ; Na?eae noiaoea
VAR Ingi = '0x1BEF' ; Oei eiaia
VAR Instrum = '0x1EBC' ; Oei eino?oiaioa oeiea?a
VAR lockpick = '0x0F0E' ; Oei aooueee
VAR Kolvo = 200 ; A?aou eiaia
VAR k = 0
While TRUE
UO.FindType( Ingi, -1, Sunduk ) ; Euai eiae a noiaoea
If UO.FindCount() == 0 Then
UO.Print("Iron Ingots not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Ingi ) > 0
; Iiea a iaea anou eiae
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'lockpick' )
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( lockpick ) > 0 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'lockpick moved' )
end if
Wend
Wend
end sub

end sub

Author:  Red dragon [ 2005-05-06 04:57:39 ]
Post subject: 

Скрипт не передвигает локпики когда их сделал

Author:  Kenny [ 2005-05-06 16:01:07 ]
Post subject: 

Code:
sub tinker() 
VAR Sunduk = '0x40017C34' ; Na?eae noiaoea
VAR Ingi = '0x1BEF' ; Oei eiaia
VAR Instrum = '0x1EBC' ; Oei eino?oiaioa oeiea?a
VAR lockpick = '0x0F0E' ; Oei aooueee
VAR Kolvo = 200 ; A?aou eiaia
VAR k = 0
While TRUE
UO.FindType( Ingi, -1, Sunduk ) ; Euai eiae a noiaoea
If UO.FindCount() == 0 Then
UO.Print("Iron Ingots not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait( 2000 )
While UO.Count( Ingi ) > 0
; Iiea a iaea anou eiae
UO.Print('Ostalos ' + Str( UO.Count( Ingi ) ) + ' ingots' )
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'lockpick' )
UO.UseType( Instrum )
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 30 )
k = k + 1
wait(500)
wend
if UO.Count( lockpick ) > 0 then
UO.FindType( lockpick, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
UO.Print( 'lockpick moved' )
end if
Wend
Wend
end sub

end sub

В строке "VAR lockpick = '0x0F0E' ;" вместо "0x0F0E" вставляй тайп Локпиков.

Author:  Leo [ 2005-05-06 16:22:39 ]
Post subject: 

Kenny wrote:
В строке "VAR lockpick = '0x0F0E' ;" вместо "0x0F0E" вставляй ID Локпиков.


Не ID, а тип. 8)

Author:  Kenny [ 2005-05-06 16:49:57 ]
Post subject: 

Leo wrote:
Kenny wrote:
В строке "VAR lockpick = '0x0F0E' ;" вместо "0x0F0E" вставляй ID Локпиков.


Не ID, а тип. 8)

Точняк, чавой-то я тупанул ... +)

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/