Page 1 of 1

Скрипт на кровь...

Posted: 2007-04-30 01:46:16
by Yoda
Вот проблема, когда я хилюсь вампиром, с пола он собирает и пишет, что собрал 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

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

Posted: 2007-04-30 04:31:02
by Destruction
В скрипте строк не нашёл - стало быть сообщения идёт от севрера.

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

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

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

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

Posted: 2007-04-30 07:10:30
by Yoda
Его долго переделывать? Может там просто вставить строки, чтобы он отображал их?

Posted: 2007-04-30 07:12:07
by Yoda
Destruction wrote:тебе прямая дорога к файлу replaces.cfg в папке с Injection.


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

Posted: 2007-04-30 08:50:50
by Rivory
Короче есть у меня скриптик. Он кликает на всю кровь вокруг, какую видит. Юзаешь useblood2() он врубается, собирает всю кровь вокруг, когда кровь кончается, ещё раз юзаешь uoseblood2() и он вырубается.

Code: Select all

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


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

Code: Select all

if uo.life < uo.str+1 then
и теперь он сойдёт и для твоих целей.

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

Posted: 2007-04-30 11:40:50
by Yoda
Ладно, а как мне тогда сделать так, чтобы не выводило строки, что находит кровь, этот скрипт тоже выдаёт кучу строк, что собрал 0 банок...

Posted: 2007-04-30 13:02:04
by I'm
Перенес в другой раздел.

Posted: 2007-04-30 14:06:57
by Destruction
Yoda wrote:Ладно, а как мне тогда сделать так, чтобы не выводило строки, что находит кровь, этот скрипт тоже выдаёт кучу строк, что собрал 0 банок...

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

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

Posted: 2007-04-30 15:13:08
by Yoda
Всё сделал, спасибо, топ можно клозить...

Posted: 2007-04-30 22:07:59
by Ururu
Yoda с Антареса??

Posted: 2007-05-01 17:37:30
by u0rypT
Хм, ну незнаю что у вас там за замутные скрипты но не легче ли использовать вот это :

Code: Select all

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

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

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


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

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