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 (по дефолту стоит).
Вообще - проблема в том, что скрипт кривой. Пусть я его и не читал, но он кривой

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
Вообще я его юзаю чтобы отхилиться с крови врага, если у меня хп не полное, но я там изменил немного строчку
и теперь он сойдёт и для твоих целей.
Учти, когда кровь закончится, он будет писать, что нет крови вокруг, но ты просто выключи его и всё.
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 или как его.
Читай фак кароче

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
По желанию можно репит поставить и унтилл на хп=стр
