Page 1 of 1

Хелп ищу авто таргет чара

Posted: 2007-03-23 16:51:02
by Ururu
Нужен скрипт на постоянный поиск чаров ('0x0191'), и аттачить их. Но игнорировать всех у кого в названии название моей гильдии. А если чаров несколько, то атаковать ближнего.

Posted: 2007-03-24 05:21:06
by Destruction
Кого не ищем - мужских или женских чаров?) Ладно, буду считать, что ты просто упустил это из виду..

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


PS: Проверяю по цвету - палить что-то в нике несколько больше кода, да и настраивать под каждого перца надо..

Posted: 2007-03-24 05:41:33
by Ururu
Как подкаждого? Ники разные, статус у всех разный. Мнеб игнорировать всех с припиской гильдии.

Спасибо за скрипт.

Posted: 2007-03-24 16:42:07
by to4a
гильда не входит в ник, гетнейм вернёт только имя без приписки гильды, так что так не получится...

Posted: 2007-03-25 10:27:26
by Nmy

Code: Select all

Dim guilds()

name=uo.getname('finditem')
uo.click('finditem')
repeat
wait(250)
until uo.injournal(name)

for n=1 to ?

тут както по строками посмотреть - лень :roll:

Posted: 2007-03-25 11:10:02
by Ururu
А если другой вариант?!
Искать и отсеивать именно по никам из массива. Ник неймы у всех же разные. 1 вопрос как избежать совпадений? Если ник согильдийца "Name", а врага "Grand Name".

Posted: 2007-03-25 13:41:23
by to4a
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 ?

тут както по строками посмотреть - лень :roll:

циклы там никакие не нужны, там всё количество букв весьма определённо

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

прошел краш-тест в перед ББ, когда журнал обновляется очень часто, работал отлично. ТВИ должен быть включен.

Posted: 2007-03-26 23:16:04
by Ururu
Ооооо спасибо огромное :lol: Вай заживу !!!

Posted: 2007-04-16 07:14:52
by $keR
Ururu wrote:Ооооо спасибо огромное :lol: Вай заживу !!!

можешь скинуть готовыи скриптик, чтоб игнорить своих, зеоеных например.. чет не могу понять как собрать ето все..