Хелп ищу авто таргет чара
Moderators: Murderator+, Murderator
Хелп ищу авто таргет чара
Нужен скрипт на постоянный поиск чаров ('0x0191'), и аттачить их. Но игнорировать всех у кого в названии название моей гильдии. А если чаров несколько, то атаковать ближнего.
Шард [b]Антарес[/b]
[color=blue][b]Ururu[/b][/color]
[color=blue][b]Ururu[/b][/color]
-
Destruction
- Junior Expert
- Posts: 3221
- Joined: 2004-06-24 22:08:56
Кого не ищем - мужских или женских чаров?) Ладно, буду считать, что ты просто упустил это из виду..
PS: Проверяю по цвету - палить что-то в нике несколько больше кода, да и настраивать под каждого перца надо..
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 SubYokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
-
to4a
- Posts: 265
- Joined: 2006-03-10 00:19:11
- Location: http://drw.ru/
Code: Select all
Dim guilds()
name=uo.getname('finditem')
uo.click('finditem')
repeat
wait(250)
until uo.injournal(name)
for n=1 to ?Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net
-
to4a
- Posts: 265
- Joined: 2006-03-10 00:19:11
- Location: http://drw.ru/
циклы там никакие не нужны, там всё количество букв весьма определённо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