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

###magery+meditation+resist+hiling###
http://forum.yoko.com.ua/viewtopic.php?f=20&t=7502
Page 1 of 1

Author:  ghost_hnt [ 2006-04-25 20:15:11 ]
Post subject:  ###magery+meditation+resist+hiling###

вот решил качнуть так эти скилы- убийственное комбо))
короче действие такое:
меджик ароу на себя, когда кончилась мана отхеливается, отхелились- в медитацию
бинты можжно чтобы чар мыл, кончились бинтики - брать их из сундука
вот выложу ща скриптики, надо их связать только
помогите, тогда скрипт зашибенный будет!!
magery
Code:
sub Magery() 
   VAR NS='0x0F88' ; Тип Nighshade.
   VAR BP='0x0F7A'; тип blackperl
   VAR Sunduk='0x401C6E03' ; Сериал(ID) Сундука.
   VAR Kolvo=100 ; Количество регов, которое чар берёт из сундука.
   While NOT UO.Dead()
      While UO.Mana>=10 AND UO.NS>0 AND UO.BP>0 ; здесь можно менять со скаких маны чар начнёт медетировать, то же число следует поставить в строку *.
         UO.DeleteJournal()
         UO.Cast('Magic Arrow', '0x4023E017')
         wait(3000)
      wend
      If UO.Mana<10 Then ;*
         While UO.Mana<UO.Int
            UO.DeleteJournal()
            wait(1000)
            UO.Useskill('Meditation')
            Repeat
               wait(100)
            until UO.InJournal("You are") OR UO.InJournal("Медитация")
         Wend
      Endif
      If UO.NS == 0 Then
   UO.FindType(NS, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
      wait(100)
   until UO.NS>0
Endif
 If UO.BP == 0 Then
   UO.FindType(BP, '-1', Sunduk)
   UO.Grab(str(Kolvo), 'finditem')
   repeat
      wait(100)
   until UO.BP>0
Endif
   Wend
end sub

healing
Code:
var Sunduk = '0x401C6E03' 
var checkHP = 8# Posle skolki HP nachinat hilitsya
var w = 4000 # wremya zadergki pered povtorami
var blb = '0x0E20' #Type graznih bintov
var korito = '0x40215A1F' # ID korita gde ih mit' 
var ref = '0x0F0B' ;TYPE Refresha

sub heal()
  while true
      if uo.getHP() < checkhp then
        uo.bandageself()
        wait(w)
    uo.waittargetobject(korito)
    uo.usetype(blb)
    wait(300)
      if uo.count('0x0E21') < 10 then
         uo.findtype( '0x0E21', '-1', Sunduk )
           if uo.getquantity('finditem') >= 60 then
              uo.moveitem( 'finditem', '60', 'my' )
              wait(700)
           else
             uo.print( 'Бинты в сундуке кончились!' )
             return
          endif
      endif       
  wend
end sub

на хелинг надо наложить чеклаг и чуток подправить

Author:  Destruction [ 2006-04-25 20:42:16 ]
Post subject: 

Посмотри viewtopic.php?t=7394

Уже настроен про всё то, что ты говоришь, только свои айдишки прописать 8)

Author:  ghost_hnt [ 2006-04-25 21:35:32 ]
Post subject: 

кулл спс)_

Author:  Destruction [ 2006-04-26 06:35:54 ]
Post subject: 

ghost_hnt wrote:
кулл спс)_

Неужели работает?!

Кулл!!! 8)

Author:  Sanch [ 2006-04-26 12:21:44 ]
Post subject: 

То же на днях подобную вещь написал, у мя все работает, мож кому полезно бут, запускаем скрипт, прицелом указываем мешок, скрипт набарает реги, бинты, кидает стрелку, хелится, так пока мана не кончится, медитирует, берет щит обратно в руки после хелинга, грязные бинты скидывает в тот же мешок, постоянно добирает реги и бинты из мешка.

Code:
sub Magery()
VAR a, b, c
uo.print('Укажите мешок')
uo.exec('addobject Bag')
while uo.targeting()
  wait(100)
wend
wait(1000)
uo.useobject('Bag')
wait(1000)
checklag()
DIM Item[3]
Item[0] = '0x0E21' 
Item[1] = '0x0F88'   
Item[2] = '0x0F7A'
while not uo.dead()     
  for a = 0 to 2
    if uo.count(Item[a]) < 100 then
      uo.findtype(Item[a], '-1', 'Bag')
      if uo.findcount() > 0 then
        uo.moveitem('finditem', '200')
        wait(1000)
        checklag()
      else
        uo.print('Что то кончилось, вырубаю...')
        return
      endif
    else
      wait(50)
    endif
  next
  repeat
    b = 0
    if uo.life < 10 then
      return
    else
      wait(50)
    endif
    uo.deletejournal()
    uo.cast('Magic Arrow', 'self')
    repeat
      wait(100)
      b = b + 1
    until uo.injournal('You parry the blow') or uo.injournal('You feel yourself resisting magic') or uo.injournal('The spell fizzles.') or b > 20
    c = 0
    uo.deletejournal()
    uo.setarm('1')
    uo.bandageself()
    wait(500)
    uo.arm('1')
    repeat
      wait(100)
      c = c + 1
    until uo.injournal('they barely help.') or uo.injournal('You put the bloody bandagess in your pack.') or uo.injournal('Do you wannar make a mummy?') or c > 35
  until uo.mana < 4
  uo.warmode('0')
  while uo.mana < 100
    uo.useskill('Meditation')
    wait(1000)
  wend
  uo.findtype('0x0E22', '-1', 'backpack')
  if uo.findcount() > 0 then
    uo.moveitem('finditem', '-1', 'Bag')
    wait(1000)
    checklag()
  else
    wait(50)
  endif
wend       
end sub

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/