Yoko
http://forum.yoko.com.ua/

Скрипт на кровь...
http://forum.yoko.com.ua/viewtopic.php?f=20&t=11864		 Page 1 of 1
Author:  Yoda [ 2007-04-30 01:46:16 ]
Post subject:  Скрипт на кровь...
Вот проблема, когда я хилюсь вампиром, с пола он собирает и пишет, что собрал 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

Подскажите пожалуйста...
Author:  Destruction [ 2007-04-30 04:31:02 ]
Post subject: 
В скрипте строк не нашёл - стало быть сообщения идёт от севрера.

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

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

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

Вообще - проблема в том, что скрипт кривой. Пусть я его и не читал, но он кривой :wink:
Author:  Yoda [ 2007-04-30 07:10:30 ]
Post subject: 
Его долго переделывать? Может там просто вставить строки, чтобы он отображал их?
Author:  Yoda [ 2007-04-30 07:12:07 ]
Post subject: 
Destruction wrote:
тебе прямая дорога к файлу replaces.cfg в папке с Injection.


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

Code:
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:
if uo.life < uo.str+1 then
и теперь он сойдёт и для твоих целей.

Учти, когда кровь закончится, он будет писать, что нет крови вокруг, но ты просто выключи его и всё.
Author:  Yoda [ 2007-04-30 11:40:50 ]
Post subject: 
Ладно, а как мне тогда сделать так, чтобы не выводило строки, что находит кровь, этот скрипт тоже выдаёт кучу строк, что собрал 0 банок...
Author:  I'm [ 2007-04-30 13:02:04 ]
Post subject: 
Перенес в другой раздел.
Author:  Destruction [ 2007-04-30 14:06:57 ]
Post subject: 
Yoda wrote:
Ладно, а как мне тогда сделать так, чтобы не выводило строки, что находит кровь, этот скрипт тоже выдаёт кучу строк, что собрал 0 банок...

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

Читай фак кароче 8)
Author:  Yoda [ 2007-04-30 15:13:08 ]
Post subject: 
Всё сделал, спасибо, топ можно клозить...
Author:  Ururu [ 2007-04-30 22:07:59 ]
Post subject: 
Yoda с Антареса??
Author:  u0rypT [ 2007-05-01 17:37:30 ]
Post subject: 
Хм, ну незнаю что у вас там за замутные скрипты но не легче ли использовать вот это :

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

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

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


Code:
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

По желанию можно репит поставить и унтилл на хп=стр :)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/