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

Добавьте строку
http://forum.yoko.com.ua/viewtopic.php?f=3&t=4188		 Page 1 of 1
Author:  Qualis Eram [ 2005-06-10 04:27:40 ]
Post subject:  Добавьте строку
Привет

Вот кусок процедуры из Скрипта на Ламбер:
Code:
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:
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 минуты после чего снимал с себя шапку и дальше рубил.....
Author:  Ph0en1x [ 2005-06-10 15:11:10 ]
Post subject: 
Первое:
Code:
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:
if uo.InJournal('On my God...') then
 uo.equipt('Hat',0x1718)
 wait(60000)
 uo.unequip('Hat')
endif
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/