Yoko

Posted: **2005-04-20 22:16:00**

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

Posted: **2005-04-20 22:51:50**

Хм, не знаю, будет ли работать на ДРВ, но скрипт стабильный.

Code: Select all

# Крафт Тотал манок
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

Posted: **2005-04-21 20:44:13**

A na prostye manki net skriptika slu4ajno?

Posted: **2005-04-21 21:14:31**

А самому поправить никак?

Posted: **2005-04-21 22:53:57**

Mr.RMK wrote:A na prostye manki net skriptika slu4ajno?

Меняешь пересенные, меню - и готово.
Скажу по секрету - этот скрипт можно изменить даже чтобы варил ГХ и рефрешки! Только тихо!

Posted: **2005-04-22 07:58:25**

Oj, daladno!? Slushaj *tiho* a ja dub dubom v scriptah :oops:

Posted: **2005-04-22 09:02:27**

Code: Select all

UO.WaitMenu ( 'What', 'total mana refresh' )

просто поменяй На
UO.WaitMenu ( 'What', ' mana refresh 3' )
или
UO.WaitMenu ( 'What', 3' )
вроде так :twisted:

Posted: **2005-04-22 12:05:15**

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

Posted: **2005-04-22 15:42:42**

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)'

Posted: **2005-04-22 22:43:42**

Ja esho raz povtorju 4to v skriptah ja polnyj 0

Posted: **2005-04-22 22:48:14**

UO.WaitMenu ( 'What', ' mana refresh 3' ) замени на UO.WaitMenu ( 'What', '(last)' )

Posted: **2005-04-23 19:39:07**

DA spasibo vam

VSjo verno THX

Yoko

Alchemy

Alchemy