Добавьте строку

[Qualis Eram]

Привет

Вот кусок процедуры из Скрипта на Ламбер:

Code: Select all

sub WaitForChange() 
var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.' 
var Text2='There are no logs here to chop.' 
var Text3="You can't reach this." 
var Text4="That is too far away." 
var Text5="You can't do much in your current state." 
var mess 
for var i=0 to 200 
mess=uo.Journal(0) 
if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 then 
return 1 
end if 
if uo.Journal(0)==Text1 then 
return 0 
end if 
if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then 
return 0 
end if 
wait(50) 
next 
return 0 
end sub 

Плиз добавьте новую строчку текста "Oops, you isn't no Elf" просто из этого дерева может вырубить только Ельф и чар встает и пробует рубить и рубить......

Code: Select all

sub AttackEnts() 
uo.DeleteJournal() 
var Enemy='0x00000000' 
repeat 
if uo.InJournal('is attacking you') or uo.InJournal('OOPS!!!') or uo.InJournal('Wis Quas') then 
uo.Exec('terminate Lumberjacking')  
Enemy=uo.JournalSerial(uo.InJournal('is attacking you')-1) 
##uo.PlayWav(LumberSound) 
if CastAtAttack==1 then 
uo.Cast('Magic Arrow',Enemy) 
end if 
uo.DeleteJournal() 
RecallAtAttack() 
end if 
wait(1000) 
until false 
end sub

B вот тут передалать чтобы когда появляеться надпись "On my God..." чар одевал на себя шапку ('0x1718') и стоял так 1 минуты после чего снимал с себя шапку и дальше рубил.....

[Ph0en1x]

Первое:

Code: Select all

sub WaitForChange() 
var Text1=uo.GetName()+': You hack at the tree for a while, but fail to produce any useable wood.' 
var Text2='There are no logs here to chop.' 
var Text3="You can't reach this." 
var Text4="That is too far away." 
var Text5="You can't do much in your current state." 
var Text6= "Oops, you isn't no Elf"
var mess 
for var i=0 to 200 
mess=uo.Journal(0) 
if uo.Journal(0)==Text2 or uo.Journal(0)==Text3 or uo.Journal(0)==Text4 or uo.Journal(0)==Text6 then 
return 1 
end if 
if uo.Journal(0)==Text1 then 
return 0 
end if 
if mess[0]=='Y' and mess[1]=='o' and mess[2]=='u' and mess[4]=='p' and mess[5]=='u' and mess[6]=='t' then 
return 0 
end if 
wait(50) 
next 
return 0 
end sub

Второе: не знал, на каком моменте вставить, до атаки или после, так что вставляй сам...

Code: Select all

if uo.InJournal('On my God...') then
 uo.equipt('Hat',0x1718)
 wait(60000)
 uo.unequip('Hat')
endif