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

ВЕТЕРAН нужнa твоя помошь! очень прошу!
http://forum.yoko.com.ua/viewtopic.php?f=20&t=3794		 Page 1 of 1
Author:  Unreal Pro Bw [ 2005-04-23 22:02:26 ]
Post subject:  ВЕТЕРAН нужнa твоя помошь! очень прошу!
Моя просьбa состоит в скрипте нa aлхимию!!!

Нужно чтоб чaр брaл с сундукa бытилки(Джaры у нaс нaзивaются) и Рег (Гинсенг) -по 300. зaтем делaл бутылку Лессер Хеaлa и ложил обрaтно в этот же сундук!

Вот мой скриптик но он почему то когдa сделaет 300 бутылок нa 2ой круг не берет реги или джaры одно из двух :(

sub main()
var counter,z,ingcount,gCount,p,CurCOnt,flag=0
dim container[5]
container[0]=0x400329E2
container[1]=0x400329E2
container[2]=0x400329E2
container[3]=0x400329E2
container[4]=0x400329E2
container[5]=0x400329E2
start:
UO.Print("Berem jari")
UO.Findtype( 0x0F85, 0x0000, 0x4001CB1F ) UO.Exec( "moveitem finditem 300" )
wait(1000)
UO.Print("Berem regi")
UO.Findtype( 0x1005, 0x0000, 0x4001CB1F )
UO.Exec( "moveitem finditem 300" )
wait(1000)
while UO.Weight>130
UO.DeleteJournal()
UO.UseType("0x0E9B")
wait(1000)
UO.LClick(428,220)
wait(500)
UO.LClick(315,452)
counter=0
UO.DeleteJournal()
while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<60
wait(500)
counter=counter+1
wend
UO.FindType("0x182E" )

UO.moveitem ('finditem' ,1, container[flag])
if flag==5 then
flag=0
endif
if flag==4 then
flag=5
endif
if flag==3 then
flag=4
endif
if flag==2 then
flag=3
endif
if flag==1 then
flag=2
endif
if flag==0 then
flag=1
endif
wend
goto start
end sub
Author:  Destruction [ 2005-04-24 19:36:32 ]
Post subject: 
Вероятно на твоем шарде стоит задержка на то, чтобы брать вещи, попробуй поставить паузу.
Code:
wait(1015)
Author:  Unreal Pro Bw [ 2005-04-24 23:25:54 ]
Post subject: 
я пробовaл,я прaвдa не силен в этом деле, но пробовaл помойму все...муля в том что по непонятним причинaм он иногдa берет то 2 рaзa реги то 2 бутылки,a то и 3... :cry:
Author:  Beyonder [ 2005-04-26 07:52:30 ]
Post subject: 
Немного измененный и урезанный вариант, может заработает как надо:
Code:
sub main() 
  var counter
  var container='0x400329E2'

  while not UO.Dead()
    UO.Print("Berem jari") 
    UO.Findtype( 0x0F85, 0x0000, container ) 
    UO.MoveItem('finditem',300,'backpack') 
    wait(1000) 

    UO.Print("Berem regi") 
    UO.Findtype( 0x1005, 0x0000, container ) 
    UO.MoveItem('finditem',300,'backpack') 
    wait(1000) 

    while UO.Weight>130 
      UO.DeleteJournal() 
      UO.UseType("0x0E9B") 
      wait(1000) 
      UO.LClick(428,220) 
      wait(500) 
      UO.LClick(315,452) 
      UO.DeleteJournal() 
      counter=0
      while not UO.InJournal("failed") and not UO.InJournal("You put") and counter<20 
        wait(500) 
        counter=counter+1 
      wend 

      UO.Print("Vykladyvaem potion-i") 
      UO.FindType("0x182E" ) 
      UO.moveitem ('finditem' ,1, container) 
      wait(1000)
    wend 
  wend
end sub
Author:  Destruction [ 2005-04-26 12:52:51 ]
Post subject: 
Beyonder,
uo.print() прекрасно понимает русский язык.
Author:  Vanger69 [ 2005-04-26 14:07:49 ]
Post subject: 
Destruction wrote:
Beyonder,
uo.print() прекрасно понимает русский язык.

Не на всех шардах:!:. Так надёжнее.
Author:  Beyonder [ 2005-04-26 14:48:17 ]
Post subject: 
Он то понимает, но если бы я написал русскими, то половина текста была бы транслитом, а половина по русски. А переписывать все -лень :)
Author:  I'm [ 2005-04-26 14:55:38 ]
Post subject: 
Vanger69 wrote:
Destruction wrote:
Beyonder,
uo.print() прекрасно понимает русский язык.

Не на всех шардах:!:. Так надёжнее.

Понимает всегда и всюду.
Author:  Destruction [ 2005-04-26 17:27:45 ]
Post subject: 
Vanger69 wrote:
Destruction wrote:
Beyonder,
uo.print() прекрасно понимает русский язык.

Не на всех шардах:!:. Так надёжнее.


Может не понимать, только если кривой инжект! Не надо мне тут пургу гнать - uo.print() создает сообщение за которое отвечает непосредственно Injection.dll - в этом я больше чем уверен, можно заодно у Yoko спросить, если так интересно.

ПС: НА каких шардах ты говорил не работает? :roll:
Author:  Unreal Pro Bw [ 2005-04-27 13:51:56 ]
Post subject: 
если я пишу в уо.принт рускими буквaми то инжект мне пишет пустые клетки тоесть пробелы! не знaю кa у вaс но у меня инжa не берет русский!
Author:  Vanger69 [ 2005-04-27 13:59:54 ]
Post subject: 
Ну точно скажу что это Антариес со стандартными фонтами.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/