Forensic

[vertijok2000]

Помогите разобраца с этим скриптом а то что то не могу зделать
суть скрипта что бы он пять раза то ко использовал скил форенсик

Code: Select all

sub fore() 
   var telo = '0x2006' #???? ?????
   uo.warmode(0) 
   uo.findtype(telo,-1,"ground") 
     if uo.findcount()<5 then
      uo.waittargetobject("finditem") 
      uo.UseSkill("Forensic Evaluation") 
      wait(3000) 
      uo.findtype(telo,-1,"ground")
      end if   
end sub 

[Mirage]

Вэлкам сюда пожалуйста.

[vertijok2000]

Code: Select all

sub fore() 
   ; var telo = '0x2006' #???? ?????
   var i
   Dim fore[2]
   fore[0] = '0x0000'
   fore[1] = '0x2006'
   For i = 0 To 1
      uo.warmode(0) 
      uo.findtype(fore[i],-1,"ground") 
      while uo.findcount() > 5
         uo.waittargetobject("finditem") 
         uo.UseSkill("Forensic Evaluation") 
         wait(3000) 
         uo.findtype(fore[i],-1,"ground")
      wend
   next   
end sub 

попробывал я зделать через фор и нехт и без изминения
легче зделать так
fore()
fore()
fore()
fore()
fore()

[Mirage]

ты либо не понял идею либо не правильно сформулировал задау.

Code: Select all

sub fore() 
   var i
   var telo = '0x2006'
   uo.warmode(0) 
   uo.findtype(telo,-1,"ground") 
   if uo.findcount() then
      for i = 1 to 5 от 
         uo.waittargetobject("finditem") 
         uo.UseSkill("Forensic Evaluation") 
         wait(3000) 
      next
   end if   
end sub