alchemy GH

[HeBbIHocuM]

ктонить дайте плиз скрипт чтобы брал ресурсы варил Греат Хеал и складывал в сундук и так пока ресурсы не кончатся !

[Nmy]

ктонить дайте плиз скрипт чтобы брал ресурсы варил Греат Хеал и складывал в сундук и так пока ресурсы не кончатся !

поиск или фулл выха

[HeBbIHocuM]

ыы ))) тожа поиск))ы

[HeBbIHocuM]

откуда у нуба выха)))

[Scripts Writer]

Небольшая процедурка написанная мною когда-то давно,- просто и без излишеств. Добор и выкладку я думаю труда добавить не составит.

Code: Select all

Sub Alchemy(type,quantity,name) 
  var i,k 
  var msg1='put' 
  var msg2='toss' 
  for i=0 to quantity 
    uo.FindType(type,'-1','backpack') 
    if uo.FindCount() then 
      uo.DeleteJournal() 
      k=0 
      uo.WaitMenu('What',name) 
      uo.UseType(type) 
      repeat 
        wait(100) 
        k=k+1 
      until uo.InJournal(msg1) || uo.InJournal(msg2) || (k>100) 
      wait(500) 
    end if 
  next 
end sub

sub Create_Total_Mana() 
  Alchemy('0x0F87',25,'Total') 
end sub

sub Create_Total_Refresh() 
  Alchemy('0x0F7A',10,'Total') 
end sub

sub Create_Greater_Heal() 
  Alchemy('0x0F85',10,'Greater') 
end sub

[HeBbIHocuM]

спс но я уже нашол ... хотя и этот скрипт пробовал тож норм главное без лишних заорочек ...

[HeBbIHocuM]

спс но я уже нашол ... хотя и этот скрипт пробовал тож норм главное без лишних заморочек ...

[Nmy]

Небольшая процедурка написанная мною когда-то давно,- просто и без излишеств. Добор и выкладку я думаю труда добавить не составит.

Code: Select all

Sub Alchemy(type,quantity,name) 
  var i,k 
  var msg1='put' 
  var msg2='toss' 
  for i=0 to quantity 
    uo.FindType(type,'-1','backpack') 
    if uo.FindCount() then 
      uo.DeleteJournal() 
      k=0 
      uo.WaitMenu('What',name) 
      uo.UseType(type) 
      repeat 
        wait(100) 
        k=k+1 
      until uo.InJournal(msg1) || uo.InJournal(msg2) || (k>100) 
      wait(500) 
    end if 
  next 
end sub

sub Create_Total_Mana() 
  Alchemy('0x0F87',25,'Total') 
end sub

sub Create_Total_Refresh() 
  Alchemy('0x0F7A',10,'Total') 
end sub

sub Create_Greater_Heal() 
  Alchemy('0x0F85',10,'Greater') 
end sub

Скрипт понравился. Я как раз алхимию качаю =)