Хелп ищу авто таргет чара
Posted: 2007-03-23 16:51:02
Нужен скрипт на постоянный поиск чаров ('0x0191'), и аттачить их. Но игнорировать всех у кого в названии название моей гильдии. А если чаров несколько, то атаковать ближнего.
Code: Select all
sub AutoAttack()
var i, t_len = 2 ; количество графических типов в списке
DIM t [ val( str( t_len ) ) ]
t[0] = "0x0191" ; мужской персонаж
t[1] = "0x0190" ; женский персонаж
repeat
for i = 0 to t_len -1
uo.findtype( t[i], "-1", "ground" )
If uo.FindCount() Then
If uo.getNotoriety( "finditem" ) == 2 Then
uo.Ignore( "finditem" )
Else
uo.attack( "finditem" )
wait( 500 )
End If
End If
next
wait( 300 )
until false
End Sub
Code: Select all
Dim guilds()
name=uo.getname('finditem')
uo.click('finditem')
repeat
wait(250)
until uo.injournal(name)
for n=1 to ?
NMY wrote:Code: Select all
Dim guilds()
name=uo.getname('finditem')
uo.click('finditem')
repeat
wait(250)
until uo.injournal(name)
for n=1 to ?
тут както по строками посмотреть - лень
Code: Select all
sub GetGuild(target)
UO.DeleteJournal()
UO.Click(target)
CheckLag()
var tname=UO.GetName(target)
var name=uo.Journal(UO.InJournal(tname)-1)
if right(name,1)=="]" then
name=right(name,len(name)-len(tname)*2-4)
name=left(name,len(name)-1)
return name
else
return 0
endif
endsub
Ururu wrote:Ооооо спасибо огромноеВай заживу !!!