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

alchemy GH
http://forum.yoko.com.ua/viewtopic.php?f=20&t=15129		 Page 1 of 1
Author:  HeBbIHocuM [ 2009-09-26 13:28:08 ]
Post subject:  alchemy GH
ктонить дайте плиз скрипт чтобы брал ресурсы варил Греат Хеал и складывал в сундук и так пока ресурсы не кончатся ! :?
Author:  Nmy [ 2009-09-26 13:30:00 ]
Post subject:  Re: alchemy GH
HeBbIHocuM wrote:
ктонить дайте плиз скрипт чтобы брал ресурсы варил Греат Хеал и складывал в сундук и так пока ресурсы не кончатся ! :?


поиск или фулл выха :roll:
Author:  HeBbIHocuM [ 2009-09-26 13:36:39 ]
Post subject: 
ыы :shock: ))) тожа поиск))ы :D
Author:  HeBbIHocuM [ 2009-09-26 13:37:06 ]
Post subject: 
откуда у нуба выха))) 8) :P
Author:  Scripts Writer [ 2009-09-26 20:18:44 ]
Post subject: 
Небольшая процедурка написанная мною когда-то давно,- просто и без излишеств. Добор и выкладку я думаю труда добавить не составит.

Code:
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
Author:  HeBbIHocuM [ 2009-09-26 21:05:03 ]
Post subject: 
спс но я уже нашол ... хотя и этот скрипт пробовал тож норм главное без лишних заорочек ...
Author:  HeBbIHocuM [ 2009-09-26 21:05:31 ]
Post subject: 
спс но я уже нашол ... хотя и этот скрипт пробовал тож норм главное без лишних заморочек ... :wink:
Author:  Nmy [ 2009-09-26 21:50:20 ]
Post subject: 
Scripts Writer wrote:
Небольшая процедурка написанная мною когда-то давно,- просто и без излишеств. Добор и выкладку я думаю труда добавить не составит.

Code:
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


Скрипт понравился. Я как раз алхимию качаю =)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/