Пойзон Оружия
Posted: 2009-01-08 02:51:36
Ребята долго искал по форуму скрипт на пойзон вэпона (Use skill poisonning - target wepon - terget potion) нашол рабочий на вид но он выдаёт ошибку в 9 строчке там где DelJurnal (deljurnal function not find пишит) подскажите что нетак,(Инжа у меня старая так как клиент 203 возможно дело в етом?) Заранее блогодарен любому результату
sub WeaponPoison()
var fail = "Не удалось отравить оружие"
var succ = "Оружие успешно отравлено"
var p_type = "0x0000" ; тип бутылки яда
var p_colr = "0x0000" ; цвет бутылки яда
var last_weapon = uo.objAtLayer( 'Lhand' ) ; или Rhand, вспомнить бы где он алебу держит
uo.MoveItem( last_weapon )
repeat
deljournal( fail + "|" + succ )
uo.FindType( p_type, p_colr )
If NOT uo.FindCount() Then
uo.Print( "Нет бутылок с ядом" )
return
End If
uo.WaitTargetObject( last_weapon, "finditem" )
uo.UseSkill( "Poison" )
repeat
wait( 50 )
until uo.InJournal( fail + "|" + succ )
until uo.InJournal( succ )
uo.UseObject( last_weapon )
End Sub
sub WeaponPoison()
var fail = "Не удалось отравить оружие"
var succ = "Оружие успешно отравлено"
var p_type = "0x0000" ; тип бутылки яда
var p_colr = "0x0000" ; цвет бутылки яда
var last_weapon = uo.objAtLayer( 'Lhand' ) ; или Rhand, вспомнить бы где он алебу держит

uo.MoveItem( last_weapon )
repeat
deljournal( fail + "|" + succ )
uo.FindType( p_type, p_colr )
If NOT uo.FindCount() Then
uo.Print( "Нет бутылок с ядом" )
return
End If
uo.WaitTargetObject( last_weapon, "finditem" )
uo.UseSkill( "Poison" )
repeat
wait( 50 )
until uo.InJournal( fail + "|" + succ )
until uo.InJournal( succ )
uo.UseObject( last_weapon )
End Sub