#####################################################################
#####################################################################
########################       Magery        ########################
######################## Best Script v.2.0.1 ########################
#####################################################################
#####################################################################
## Автор: Cooper
##
## Тестил: Cooper
##
## дата: 06.03.2006
##
## e-mail: cooper@omsgsm.ru
##
## Шард: Dragon World, www.drw.ru
##
##                        Описание скрипта:
## Чар берет из сундука реги и молча кастует нужные спелы, попутно кушая стейки,
## реги заканчиваются, он берет из сундука рядом, попутно изучая анатомию.
## Идеально подходит для прокачки на ночь, следите за кол-вом регов!!!
##
## Все претензии, идеи и критику на мыло. Жду.
##
##
##                       Правила пользования:
## Для начала меняем ID сундука из которого будем брать реги.
## Он должен стоять рядом открытым, как узнать ID я
## думаю обьяснять не надо :) Далее думаем что будем кастовать прописываем
## спеллы в секции "Начинаем" в самом конце скрипта. Далее смотрим в спеллбуке
## какие нужны реги на каст нужных спелов и в секции "Реги..." проставляем
## вместо нулей единицы на соответсвующих регах, к себе в пак ложим стейки.
## Далее запускаем magery появится прицел, тыкаем на себя и....
## выключаем монитор, ложимся спать, или к жене под бочек, кому как повезет :)
## Утром смотрим результат.
##
## Напоминаю чар берет из сундука 500 регов каждого типа который вы захотите,
## если силенок маловато то советую изменить значения в строке "кол-во..".
##
## Спокойных вам ночей!!!
######################################################################
######################################################################

##Вункция подбора
Sub berem(chto, skoka)
## Сундук
##
VAR sund=0x4027308F ## НЕ ЗАБУДЬ ПОМЕНЯТЬ ID СУНДУКА!!!

UO.FindType(chto,-1,'backpack')
If UO.GetQuantity('finditem')<10 then
UO.FindType(chto,'0x0000',sund)
wait(1000)
UO.Grab(skoka,'finditem') ; поставь кол-во регов, которое можешь поднять.
wait(1000)
endif
end sub

sub magery()
## Реги, которые будем брать из сундука
##
VAR nshade=1   ##NighShade
VAR gseng=0    ##Ginseng
VAR grlk=0     ##Garlik
VAR sash=0     ##Sulfurous Ash
VAR ssilk=0    ##Spider Silk
VAR blood=0    ##Blood Moss
VAR bperl=0    ##Black Pearl
VAR mroot=0    ##Mandrake Root

##Типы регов
##
VAR bns=0x0F88   ##NighShade
VAR bgs=0x0F85    ##Ginseng
VAR bgk=0x0F84     ##Garlik
VAR bsa=0x0F8C     ##Sulfurous Ash
VAR bss=0x0F8D    ##Spider Silk
VAR bbm=0x0F7B    ##Blood Moss
VAR bbp=0x0F7A    ##Black Pearl
VAR bmr=0x0F86    ##Mandrake Root

VAR golod=1    ##Кушаем

uo.exec('addobject Body')
wait(2500)
while not uo.dead()

##NightShade
##
If nshade <> 0 then
berem(bns, 500) ## Вместо 500 ставим стока скока унесем :)
Endif

##Ginseng
##
If gseng <> 0 then
berem(bgs, 500)
Endif

##Garlik
##
If grlk <> 0 then
berem(bgk, 500)
Endif

##Sulforous Ash
##
If sash <> 0 then
berem(bsa, 500)
Endif

##Black Pearl
##
If bperl <> 0 then
berem(bbp, 500)
Endif

##Blood Moss
##
If blood <> 0 then
berem(bbm, 500)
Endif

##Spider Silk
##
If ssilk <> 0 then
berem(bss, 500)
Endif

##Mandrake root
##
If mroot <> 0 then
berem(bmr, 500)
Endif

##Кушаем
##
if golod <> 0 then
UO.UseType(0x097B)
endif

##Начинаем
##
if uo.skillval("Magery",1) < 1010 Then
if uo.mana >20 then
UO.exec("cast 'Poison' self")
wait(5000)
UO.exec("cast 'Poison' self")
wait(5000)
UO.WaitTargetObject('Body')
UO.useskill("Anatomy")
wait(4000)
else
while UO.Mana<UO.Int
UO.Useskill("Meditation")
wait(3000)
wend
endif
else
UO.Exec("terminate magery")
endif
wend
end sub 

sub main()
  var i
  var MaxRegs
  var MinMana


  MinMana = 15
  MaxRegs = UO.NS

  UO.Print( 'Repeat: ' + Str( MaxRegs ) )

  if UO.Mana < MinMana then
    ;Uo.Say('guards')
    Med()
  end if

  for i=1 to 50000 ;MaxRegs
    ;UO.Exec( "cast 'Cure' self" )
    UO.Exec( "cast 'Night Sight' self" )
    ;UO.Exec( "cast 'Poison' self" )
    ;UO.Exec( "cast 'Protection' self" )
    ;UO.Exec( "cast 'Magic Reflection' self" )
    ;UO.Exec( "cast 'Arch Protection' self" )
    ;UO.Exec( "cast 'Paralyze' self" )
    ;UO.Exec( "cast 'Mass Dispel' self" )
    ;UO.Exec( "cast 'Agility' self" )
    wait( 3500 )
    if UO.Mana < MinMana then
      Med()
    end if
  next

  Gong()
end sub

sub Med()
    UO.Usetype('0x0F0E')
    wait(500)
   while UO.Mana<UO.Int
    UO.UseSkill( "Meditation" )
    wait( 10000 )
   wend
    UO.UseSkill('Stealth')
   ; wait(1500)
   ; UO.UseSkill('Hiding')
   ; wait(1500)
   ; UO.Exec("useskill 'Anatomy' self")
   ; wait(1500)
   ; UO.Exec("useskill 'Animal Lore' self")
   ; wait(2000)
   ; UO.Say("guards")
end sub

berem([реги],[кол-во])