Каст спиритов

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Aleppo
Posts: 27
Joined: 2009-05-01 22:58:00
Location: DRW
Contact:

Каст спиритов

Post by Aleppo »

Всем доброго дня. Не работают эти два скрипта. Кому не сложно, взгляните на них и исправьте ошибки пожалуйста! Спасибо!
-В скрипте "кастующему" меняешь координаты под чара на которого будут кастовать, а спирит всеравно появляется где-то в углу.
-В скрипте "бъющему" на 13 строке выдает ошибку.

"Кастующему"

Code: Select all

sub bladespirit2() 
while not uo.Dead()
repeat
if uo.mana > 20 then
                placecast()
               else
               repeat
                 uo.warmode(false)
                    uo.useskill("Meditation")
                    wait(3000)
               until uo.mana >=28
              endif
wait(50000)
until uo.InJournal('World is')
wait(130000)
wend
end sub

Sub placecast()
uo.waittargettile(1294, 2284, 1137, 4) #ïîìåíÿòü êîîðäèíàòû(,infotile)
wait(500)
UO.Exec("cast 'Blade Spirits'")
wait(6000)
end sub

"Бъющему"

Code: Select all

var spirit = '0x023E', spiritid 
while true
   uo.findtype(spirit,-1,'ground')
   if uo.findcount() > 0 then
      spiritid = uo.getserial('finditem')
      uo.warmode(true)
      uo.attack(spiritid)
      wait(5000)
   else
      if uo.gethp() < uo.str then
         uo.bandageself()
         wait(3000)
        sword()
      endif
   endif
wend
endsub

sub sword()   ; Îäåâàíèå ùèòà è îðóæèÿ
Var Svord='0x13E3' ;Òèï îðóæèÿ, èñïîëüçóåìûé âàìè
Var Shield='0x1B76' ;Òèï îðóæèÿ, èñïîëüçóåìûé âàìè
UO.Equipt('Lhand',Shield)
wait(1000)
UO.Equipt('Rhand',Svord)
wait(100)
end sub
Mirage
Posts: 2802
Joined: 2009-05-28 09:58:28
Location: Иваново
Contact:

Re: Каст спиритов

Post by Mirage »

Code: Select all

sub bladespirit2()
   while not uo.Dead()
      repeat
         if uo.mana > 20 then
            placecast()
         else
            repeat
               uo.warmode(false)
               uo.useskill("Meditation")
               wait(3000)
            until uo.mana >=28
         endif
         wait(50000)
      until uo.InJournal('World is')
      wait(130000)
   wend
end sub
Sub placecast()
   VAR T = '1294' ; Tile
   VAR X = '2284'
   VAR Y = '1137'
   VAR Z = '4'
   uo.waittargettile(T, X, Y, Z)
   UO.cast('5') ; Blade Spirits
   wait(6000)
end sub

В первом не было кавычек.
а во втором начала скрипта. и лучше между
endif
wend
endsub
поставить хотя бы небольшую паузу wait(100). А так визуально вроде в порядке все.
Aleppo
Posts: 27
Joined: 2009-05-01 22:58:00
Location: DRW
Contact:

Re: Каст спиритов

Post by Aleppo »

Большое спасибо! Сейчас буду проверять!

Ничего не пашет, второй на касти еше хуже "unknown spell" . У первого скрипта для бъющего все такаяже ошибка на 13-ой линии где "sword()" думал в кавычки id оружия своего прописаь, не помогает.

Поправьте пожалуйсто для бъющего, кастующему настроил!
Post Reply