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

Каст спиритов
http://forum.yoko.com.ua/viewtopic.php?f=20&t=16234		 Page 1 of 1
Author:  Aleppo [ 2011-03-16 15:09:18 ]
Post subject:  Каст спиритов
Всем доброго дня. Не работают эти два скрипта. Кому не сложно, взгляните на них и исправьте ошибки пожалуйста! Спасибо!
-В скрипте "кастующему" меняешь координаты под чара на которого будут кастовать, а спирит всеравно появляется где-то в углу.
-В скрипте "бъющему" на 13 строке выдает ошибку.

"Кастующему"
Code:
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:
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
Author:  Mirage [ 2011-03-16 22:25:59 ]
Post subject:  Re: Каст спиритов
Code:
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). А так визуально вроде в порядке все.
Author:  Aleppo [ 2011-03-17 06:38:30 ]
Post subject:  Re: Каст спиритов
Большое спасибо! Сейчас буду проверять!

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

Поправьте пожалуйсто для бъющего, кастующему настроил!
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/