Page 1 of 1

Enticement and Evaluta INT

Posted: 2006-08-07 02:08:27
by 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 ! :roll:

Posted: 2006-08-07 15:22:37
by 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

Posted: 2006-08-07 17:17:49
by wOrld
Spasibki vam ogromnoje ! 8) :wink: