Page 1 of 1
Помогите немного дописать скрипт на ресс...
Posted: 2006-07-23 01:07:14
by kexwer
Вот немного изменил скрипт...
Не знаю чей! Он ресает госта, но не всех...
Просто бывают разные типы гостов...
Как сделать,чтобы он ресал по всем типам!
0x0192-тип госта
Code: Select all
sub Ress()
uo.ignorereset()
uo.print('autoRess Started')
uo.DeleteJournal()
UO.Set('finddistance','2')
uo.findtype('0x0192',-1,'ground')
if uo.findcount() then
uo.waittargetobject('finditem')
uo.usetype('0x0E21')
uo.print(uo.getname('finditem')+' will be resurrecting')
else
uo.Print(uo.getname('finditem')+' (color: '+UO.JournalColor(UO.InJournal()+1)+')'+' is not guild member')
end if
end if
wait(500)
end sub
Posted: 2006-07-23 01:28:44
by derevo
создать массив)
а вообще не типы гостов разные а чары и иды соответствено ресай по иду)
Posted: 2006-07-23 20:31:28
by kexwer
Ты не понял...
Мне нужно ,ч тобы по разным типа ресал, а не по ID
По ID он только одного чара будет ресать...
У меня ресает только одно типа...
0x0192 Вот этого вот!
А есть ещё 0x0193...
Вот по этому типу не ресает =(
Posted: 2006-07-23 21:58:13
by Nmy
Code: Select all
sub Ress()
VAR n
Dim ress[2]
ress[1] = '0x0192'
ress[2] = '0x0193'
uo.print('autoRess Started')
UO.Set('finddistance','2')
For n = 1 To 2
uo.findtype( ress[n] , -1 ,'ground')
if uo.findcount() then
uo.waittargetobject('finditem')
uo.usetype('0x0E21')
uo.print('resurrecting')
end if
Next
end sub
Posted: 2006-07-23 23:42:18
by kexwer
О! Во ... Спасииба...
Вот о таком же я и думал
Тока не знал как %)
Posted: 2006-07-23 23:44:26
by Nmy
kexwer wrote:О! Во ... Спасииба...
Вот о таком же я и думал
Тока не знал как %)
велкам
Posted: 2006-07-25 17:46:55
by Mihail
скрипт был взят мой (ресал тока гостов-согильдийцев)
2 афтар - у тебя он обрезан и проще использывать:
Code: Select all
sub Ress()
var i
Dim a[2]
a[1] = '0x0192'
a[2] = '0x0193'
UO.Set('finddistance','2')
For i= 1 to 2
uo.findtype(a[i], -1, 'ground')
if uo.findcount() then
uo.waittargetobject('finditem')
uo.usetype('0x0E21')
#uo.cast('Resurrection') ; если надо ресать магией
else
uo.print('ghost not found')
end if
Next
end sub
Posted: 2006-07-25 20:17:47
by Scripts Writer
Mihail wrote:скрипт был взят мой (ресал тока гостов-согильдийцев)
2 афтар - у тебя он обрезан и проще использывать:
Code: Select all
sub Ress()
var i
Dim a[2]
a[1] = '0x0192'
a[2] = '0x0193'
UO.Set('finddistance','2')
For i= 1 to 2
uo.findtype(a[i], -1, 'ground')
if uo.findcount() then
uo.waittargetobject('finditem')
uo.usetype('0x0E21')
#uo.cast('Resurrection') ; если надо ресать магией
else
uo.print('ghost not found')
end if
Next
end sub
Твой скрипт великолепен, я просто восхищаюсь им. Какие же умные люди порой бывают на белом свете, что создают такие творения исскуства. Спасибо тебе дорогой огромное, твоя помощь неоценима для всех нас-вечная память твоему скрипту.
Posted: 2006-07-25 23:45:33
by Mihail
нет проблем