Yoko

Вот проблема, когда я хилюсь вампиром, с пола он собирает и пишет, что собрал 1 банку, а так же пишет каждую долю секунды, что он собрал 0 банок, эти строки на весь экран, как мне сделать так, чтобы он не писал, просто написал, что включился и выключился...
Вот сам скрипт.
sub blood1()
Var Type='0x0F06'
Var Color='0x0020'
UO.FindType(Type, Color, 2)
UO.UseObject('finditem')
end sub

sub blood()
If not Uo.GetGlobal('bloodfirst')=='yes' Then
UO.Set('finddistance','3')
Uo.SetGlobal('bloodfirst','yes')
End IF
If Uo.GetGlobal('bloodcheck')=='on' Then
Uo.SetGlobal('bloodcheck','off')
Uo.exec('terminate useblood')
Uo.Print(' Off')
Else
Uo.exec('exec useblood')
Uo.SetGlobal('bloodcheck','on')
Uo.Print(' On')
EndIf
end sub

sub useblood()
var i
dim bl[6]
bl[1]='0x122E'
bl[2]='0x122D'
bl[3]='0x122A'
bl[4]='0x122B'
bl[5]='0x122C'
bl[6]='0x1645'
While UO.life
For i=1 TO 6
If fc(bl[i],'ground') Then
UO.UseObject('finditem')
Uo.ignore('finditem')
End If
NEXT
wait(300)
WEnd
end sub

Мне кажеться эти строки дают эти надписи... Но без них не работает скрипт...
sub fc(what,where)
UO.FindType(what,'-1',where)
return UO.FindCount()
end sub

Подскажите пожалуйста...

В скрипте строк не нашёл - стало быть сообщения идёт от севрера.

Раз идёт сразу оч. много сообщений - значит кривой скрипт, а в кривых скриптах капаться не люблю.

Если у тебя не возникает проблем с тем, что сообщение непосредственно приходит, т.е. цель - просто не отображать его, то тебе прямая дорога к файлу replaces.cfg в папке с Injection.

+ не забудь поставить галочку TextReplaces (по дефолту стоит).

Вообще - проблема в том, что скрипт кривой. Пусть я его и не читал, но он кривой

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060

Его долго переделывать? Может там просто вставить строки, чтобы он отображал их?

И что мне там делать?

Короче есть у меня скриптик. Он кликает на всю кровь вокруг, какую видит. Юзаешь useblood2() он врубается, собирает всю кровь вокруг, когда кровь кончается, ещё раз юзаешь uoseblood2() и он вырубается.

sub UseBlood2() 
   If UO.GetGlobal('UseBlood')=='Off' Then 
      UO.SetGlobal('UseBlood','On') 
      UO.Print("UseBlood MODE activated!") 
      UO.Exec('exec UseBlood') 
   Else 
      UO.SetGlobal('UseBlood','Off') 
      UO.Print("UseBlood MODE deactivated!") 
      UO.Exec('terminate UseBlood') 
   Endif 
   end sub
   
sub UseBlood()
var n
Dim Blood[6]
Blood[0] = 5
Blood[1] = '0x122E'
Blood[2] = '0x122D'
Blood[3] = '0x122A'
Blood[4] = '0x122B'
Blood[5] = '0x122C'
UO.Set('finddistance','3')
repeat
if uo.life < uo.str+1 then
      For n = 1 TO Blood[0]
         REPEAT
            UO.FindType(Blood[n],'-1','1')
            If UO.FindCount() Then
               UO.UseObject('finditem')
               Wait(500)
            else
               wait(50)
            End If
         Until UO.FindCount()==0 or UO.Dead()
      Next
   Wait(500)
end if
Until UO.Dead()
UO.SetGlobal('BloodCheck','off')
UO.exec ('Use Blood')
end sub

Вообще я его юзаю чтобы отхилиться с крови врага, если у меня хп не полное, но я там изменил немного строчку

if uo.life < uo.str+1 then

и теперь он сойдёт и для твоих целей.

Учти, когда кровь закончится, он будет писать, что нет крови вокруг, но ты просто выключи его и всё.

Ладно, а как мне тогда сделать так, чтобы не выводило строки, что находит кровь, этот скрипт тоже выдаёт кучу строк, что собрал 0 банок...

Перенес в другой раздел.

_________________
The End.

Verbose Menu или как его.

Читай фак кароче

_________________
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Skype: d119060

Всё сделал, спасибо, топ можно клозить...

Yoda с Антареса??

_________________
Шард Антарес
Ururu

Хм, ну незнаю что у вас там за замутные скрипты но не легче ли использовать вот это :

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

Хотя то что я написал выше ето полный бред, потому что можно так просто глотать банки

И вот с пола, мне кажеться он гораздо лучше

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

По желанию можно репит поставить и унтилл на хп=стр

_________________
Design, webdev, coding, c#, php, asp.net, xml, perl, sql, ajax, drawing, illustrating, restoration, photo, photoshop, schedule, pron, guitar, lead-guitar, js, jsp, java, dom, html, *nix, struts, cs, etc