Enticement and Evaluta INT

[wOrld]

U kogonet jest skriptik ? shtoby ito ito ko4al?

Code: Select all

sub Evaluate()
var count=0
uo.print('totem')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
repeat
uo.waittargetobject('TOT','TOT')
UO.Useskill('Evaluating')   
while not UO.InJournal("unsure") and not UO.InJournal("looks") and not UO.InJournal("perform") and count<60
wait(100)
count=count+1
wend
wait(600)
count=0
UO.DeleteJournal()
until UO.Dead()
end sub 

Code: Select all

sub Enticement()
var count=0
uo.print('totem')
uo.exec('addobject TOT')
while uo.targeting()
wait(100)
wend
UO.DeleteJournal()
repeat
uo.waittargetobject('TOT')
UO.Useskill('Enticement')   
wait(8000)
until UO.Dead()
end sub

Ili s etih 2 zdelaite pliizz, jesli ne trudno !

[Scripts Writer]

Code: Select all

sub Eva_Ent() 
var count=0 
  uo.print('totem') 
  uo.exec('addobject TOT') 
  while uo.targeting() 
    wait(100) 
  wend 
  UO.DeleteJournal() 
  repeat 
    UO.DeleteJournal() 
    uo.waittargetobject('TOT','TOT') 
    UO.Useskill('Evaluating')    
    while not UO.InJournal("unsure") and not UO.InJournal("looks") and not UO.InJournal("perform") and count<60 
      wait(100) 
      count=count+1 
    wend 
    wait(600) 
    count=0 
    UO.DeleteJournal() 
    uo.waittargetobject('TOT') 
    UO.Useskill('Enticement')    
    wait(8000)
  until UO.Dead() 
end sub 

[wOrld]

Spasibki vam ogromnoje !