Прошу помочь дописать скрипт, всю бошку уже сломал но нечего не получается кроме пока этого:
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
Пробовал откорректировать, но чет не выходит, кто может, помогите.
|