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

Alchemy
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3744		 Page 1 of 1
Author:  Mr.RMK [ 2005-04-20 22:16:00 ]
Post subject:  Alchemy
Rebjatki :) voobshem mozete skriptik takoj nakinut po DRW shard, hde varit manki i total manki i zafiksit sunduk s regami i s taroj i kuda kidat manki :) Esli smozete zakinut budu premnogo blagodaren :D
Author:  flake [ 2005-04-20 22:51:50 ]
Post subject: 
Хм, не знаю, будет ли работать на ДРВ, но скрипт стабильный.

Code:
# Крафт Тотал манок
sub Total_Mana()
 VAR Sunduk = "0x403F363A"  ; Серийник сундука с регами и бутылками.
 VAR Bottle = "0x0F0E"  ; тип пустых бутылок.
 VAR Mortar = "0x0E9B"  ; тип пестика.

 VAR FullBottle  = '0x0F09'
 VAR Reagent = '0x0F87'
  VAR k = 0
 VAR t 
 While TRUE
  wait( 2000 ) 
  UO.FindType( Reagent, -1, Sunduk )
  if UO.FindCount() == 0 Then 
   UO.Print( "Reagents not found, script terminated" ) 
   return 
  end if
  UO.Grab( '60', 'finditem' ) ; Кол-во регов на 1 бутылку * 10.
  wait( 2000 ) 
  UO.FindType( Bottle, -1, Sunduk )
  if UO.FindCount() == 0 Then 
   UO.Print( "Empty bottles not found, script terminated" ) 
   return 
  end if 
  UO.Grab( '10', 'finditem' )
  wait( 2000 ) 
  While UO.Count( Reagent ) > 6 and UO.Count( Bottle ) >0     ; Кол-во регов на 1 бутылку
   UO.DeleteJournal() 
   UO.CancelMenu() 
   UO.WaitMenu ( 'What', 'total mana refresh' )
   UO.UseType( Reagent ) 
   k = 0 
   while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
    if UO.InJournal( "Neon: stopmaking" ) then
     while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 ) 
      wait( 500 ) 
     wend
     if UO.Count( FullBottle ) > 0 then
      UO.FindType( FullBottle, -1, -1 ) 
      UO.MoveItem( 'finditem', 0, Sunduk ) 
      wait( 1000 ) 
     end if 
     if UO.Count( Bottle ) > 0 then
      UO.FindType( Bottle, -1, -1 ) 
      UO.MoveItem( 'finditem', 0, Sunduk ) 
      wait( 1000 ) 
     end if 
     if UO.Count( Reagent ) > 0 then
      UO.FindType( Bottle, -1, -1 ) 
      UO.MoveItem( 'finditem', 0, Sunduk ) 
      wait( 1000 ) 
     end if 
     return
    else
     k = k + 1 
     wait( 500 )
    end if
   wend
   if UO.Count( FullBottle ) > 0 then
    UO.FindType( FullBottle, -1, -1 ) 
    UO.MoveItem( 'finditem', 0, Sunduk ) 
    wait( 1000 ) 
   end if 
  wend 
  if UO.Count( Bottle ) > 0 then
   UO.FindType( Bottle, -1, -1 ) 
   UO.MoveItem( 'finditem', 0, Sunduk ) 
   wait( 1000 ) 
  end if 
 Wend
end sub
Author:  Mr.RMK [ 2005-04-21 20:44:13 ]
Post subject: 
A na prostye manki net skriptika slu4ajno? :)
Author:  Destruction [ 2005-04-21 21:14:31 ]
Post subject: 
А самому поправить никак? :(
Author:  flake [ 2005-04-21 22:53:57 ]
Post subject: 
Mr.RMK wrote:
A na prostye manki net skriptika slu4ajno? :)


Меняешь пересенные, меню - и готово.
Скажу по секрету - этот скрипт можно изменить даже чтобы варил ГХ и рефрешки! Только тихо!
Author:  Mr.RMK [ 2005-04-22 07:58:25 ]
Post subject: 
Oj, daladno!? Slushaj *tiho* a ja dub dubom v scriptah :oops:
Author:  Mguai [ 2005-04-22 09:02:27 ]
Post subject: 
Code:
UO.WaitMenu ( 'What', 'total mana refresh' )


просто поменяй На
UO.WaitMenu ( 'What', ' mana refresh 3' )
или
UO.WaitMenu ( 'What', 3' )
вроде так :twisted:
Author:  Mr.RMK [ 2005-04-22 12:05:15 ]
Post subject: 
Nu 4toto tut vseravno ne to...
Ne idjot wait menu pohodu....
A 4e et za ieroglify zabejte lagg, russkij ne otobrazaet po4emuto :(

sub Mana()
VAR Sunduk = "0x401C3D1F" ; Ñåðèéíèê ñóíäóêà ñ ðåãàìè è áóòûëêàìè.
VAR Bottle = "0x0F0E" ; òèï ïóñòûõ áóòûëîê.
VAR Mortar = "0x0E9B" ; òèï ïåñòèêà.

VAR FullBottle = '0x0F09'
VAR Reagent = '0x0F87'
VAR k = 0
VAR t
While TRUE
wait( 2000 )
UO.FindType( Reagent, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Reagents not found, script terminated" )
return
end if
UO.Grab( '60', 'finditem' ) ; Êîë-âî ðåãîâ íà 1 áóòûëêó * 10.
wait( 2000 )
UO.FindType( Bottle, -1, Sunduk )
if UO.FindCount() == 0 Then
UO.Print( "Empty bottles not found, script terminated" )
return
end if
UO.Grab( '10', 'finditem' )
wait( 2000 )
While UO.Count( Reagent ) > 6 and UO.Count( Bottle ) >0 ; Êîë-âî ðåãîâ íà 1 áóòûëêó
UO.DeleteJournal()
UO.CancelMenu()
UO.WaitMenu ( 'What', ' mana refresh 3' )
UO.UseType( Reagent )
k = 0
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
if UO.InJournal( "Neon: stopmaking" ) then
while NOT UO.InJournal( 'You put' ) AND NOT UO.InJournal( 'fail' ) AND ( k < 30 )
wait( 500 )
wend
if UO.Count( FullBottle ) > 0 then
UO.FindType( FullBottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
if UO.Count( Bottle ) > 0 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
if UO.Count( Reagent ) > 0 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
return
else
k = k + 1
wait( 500 )
end if
wend
if UO.Count( FullBottle ) > 0 then
UO.FindType( FullBottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
wend
if UO.Count( Bottle ) > 0 then
UO.FindType( Bottle, -1, -1 )
UO.MoveItem( 'finditem', 0, Sunduk )
wait( 1000 )
end if
Wend
end sub
Author:  Sfagnum [ 2005-04-22 15:42:42 ]
Post subject: 
Mr.RMK wrote:
Nu 4toto tut vseravno ne to...
Ne idjot wait menu pohodu....
A 4e et za ieroglify zabejte lagg, russkij ne otobrazaet po4emuto :(
я так понимаю ты ещё не можешь крафтать тотлы? если да то вторым параметром поставь '(last)'
Author:  Mr.RMK [ 2005-04-22 22:43:42 ]
Post subject: 
:) Ja esho raz povtorju 4to v skriptah ja polnyj 0 :(
Author:  Sfagnum [ 2005-04-22 22:48:14 ]
Post subject: 
UO.WaitMenu ( 'What', ' mana refresh 3' ) замени на UO.WaitMenu ( 'What', '(last)' )
Author:  Mr.RMK [ 2005-04-23 19:39:07 ]
Post subject: 
DA spasibo vam :) VSjo verno THX
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/