сопственна опять ай нид хелп)))) короч нужен такой вот скрипт, стоит чар вокруг него монстры, когда он килл их, он все вещи из них собирает в свой бек пак, но скрипт не выключается, а продолжает работать дальше и дальше=))))

sub GrimKill() 

    Var hrsT, hrsC 
    hrsT = "0x03CA" # тип зверька 
    hrsC = "0x0901" # его цвет 
   UO.Set('finddistance', '14')
repeat 
Uo.DeleteJournal()
   UO.FindType(hrsT, hrsC, "ground") 
       If UO.FindCount() > 0 Then 
         UO.WarMode(1)
         UO.Attack('finditem')
         repeat
         wait(100)
         until UO.InJournal('Body of Grim')
       Else
       looting()
       wait(100)
       End If
       UO.WarMode(0)
       UO.WaitTargetObject('lastcorpse')
       UO.UseSkill('Forensic Evaluation')
       wait(4000)
until UO.dead() 
end sub 


Sub looting()
dim Loot[29]
var i
Loot[0]=0x0F16 ; Ametist 
Loot[1]=0x0F20 ; Tourmaline 
Loot[2]=0x0F26 ; Diamond 
Loot[3]=0x0F30 ; Diamond 
Loot[4]=0x0F10
Loot[5]=0x0F2D
Loot[6]=0x0F2C
Loot[7]=0x0F28
Loot[8]=0x0F11
Loot[9]=0x0F2A
Loot[10]=0x0F1E
Loot[11]=0x0F22
Loot[12]=0x0F2D
Loot[13]=0x0F30
Loot[14]=0x0F2E
Loot[15]=0x0F2F
Loot[16]=0x0F15
Loot[17]=0x0F17
Loot[18]=0x0EED
Loot[19]=0x0F29
Loot[20]=0x0F1A
Loot[21]=0x0F24
Loot[22]=0x0E76
Loot[23]=0x0F1F
Loot[24]=0x0F2B
Loot[25]=0x0F25
Loot[26]=0x0F23
Loot[27]=0x0F13
Loot[28]=0x0F12
for i = 0 to 28
      UO.FindType(Loot[i],'-1', 'lastcorpse')
     if UO.FindCount() > 0 then
      UO.MoveItem('finditem', '-1')
      wait(1000)
   else
   wait(100)
     endif
next
Uo.DeleteJournal()
end sub