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

Sub Ress()
var i
Dim a[2]
a[0] = '0x0192' # ТИП Госта
a[1] = '0x0193' # ТИП Госта
For i= 0 to 1
uo.findtype(a[i], -1, 'ground')
if uo.findcount() then
UO.waittargetobject('0x00000000');ДРУГ1
uo.usetype('0x0E20') ; кровавый бинт
else
UO.waittargetobject('0x00000000');ДРУГ2
uo.usetype('0x0E21') ; чистый бинт
else
UO.waittargetobject('0x00000000');ДРУГ3
uo.usetype('0x0E21') ; чистый бинт
end if
Next
end sub

Суть проблемы заключается что хотелось бы получить скрипт который будет работать именно по ТИПУ ГОСТА, и СПИСКУ ДРУЗЕЙ - если можно то без подхила, а только ресс, чтобы запустить его автомате, пример (не рабочий):

sub Ress()
var GhostCnt=3
var GhostTypeCnt=1

dim GhostID[100]
dim GhostType[2]

GhostID[0]='0x00000000' # ID чела 1
GhostID[1]='0x10000000' # ID чела 2
GhostID[2]='0x20000000' # ID чела 3
GhostID[3]='0x30000000' # ID чела 4

var GhostType[1]='0x0001' # Первый тип духов
var GhostType[2]='0x0002' # Второй тип духов

UO.set('finddistance',3)

var iID,iType

for iType=0 to GhostTypeCnt
Uo.FindType(GhostType[iType],-1,'ground')
while UO.FindCount()>0
for i=0 to GhostCnt
if UO.GetSerial('findtype')==GhostID[i] then
BandageFunction(GhostID[i]) # Функция применения бинтов к духу. Напишешь сам =)
end if
next
Uo.FindType(GhostType[iType],-1,'ground')
wend
next
end sub

Пробовал откорректировать, но чет не выходит, кто может, помогите.

---

Вверх