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/