drink blood

[-=Morf=-]

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

[DerMeister =)]

ПОИСК!

[-=Morf=-]

тиж мну знаеш, я ленивый как чёрттт)) и глупый притом =)

[DerMeister =)]

Ну тогда тема закрыта

[Nmy]

свой старый могу выложыть- если для альфы то типы можно неменять

Code: Select all

sub BFG()
var n
 If uo.GetGlobal('BFG')=='On' then
    return
    else
    uo.setglobal('BFG','On')
 end if
Dim Blood[5]
Blood[0] = '0x122A'
Blood[1] = '0x122B'
Blood[2] = '0x122C'
Blood[3] = '0x122D'
Blood[4] = '0x122E'
UO.Set('finddistance', 3 )
While NOT UO.Dead() && uo.life < uo.str
For n = 0 TO 4
 UO.FindType( Blood[n] ,'-1','1')
    If UO.FindCount() then
        UO.UseObject('finditem')
        wait(10)
    endif
Next
Wait(250)
wend
uo.setglobal('BFG', 0)
end sub

[Ururu]

Нужно добавить еще и проверку на сообщения.

[u0rypT]

Code: Select all

sub krov()
var x
dim a[5]
 a[1]=0x122E
 a[2]=0x122A
 a[3]=0x122C
 a[4]=0x122D
 a[5]=0x122B
  for x=1 to 5
  repeat
    uo.usefromground(a[x])
  next
end sub


sub blood() 
   If UO.Life<UO.Str Then 
     uo.usetype("0x0F06","0x0020")
   Else 
      UO.Print("Your HP at maximum!!!") 
   Endif 
end sub 

[-=Morf=-]

Code: Select all

sub krov()
var x
dim a[5]
 a[1]=0x122E
 a[2]=0x122A
 a[3]=0x122C
 a[4]=0x122D
 a[5]=0x122B
  for x=1 to 5
  repeat
    uo.usefromground(a[x])
  next
end sub


sub blood() 
   If UO.Life<UO.Str Then 
     uo.usetype("0x0F06","0x0020")
   Else 
      UO.Print("Your HP at maximum!!!") 
   Endif 
end sub 

Так а как сделать чтобы постоянно шла проверка на кровь на растоянии 3 клетки от чара?

[I'm]

Code: Select all

While TRUE
...
Wend

[-=Morf=-]

I`m пасиба+)
А Прикиньте я сам догадался куда впихнуть это все + еще добавил задержку для удобства =))))) гыыы

[I'm]

I`m пасиба+)
А Прикиньте я сам догадался куда впихнуть это все + еще добавил задержку для удобства =))))) гыыы

Красавец!
Так держать