Posted: 2006-04-17 05:37:12
Dim A[20]
Ad[1]
Гы-гы!
+ массив на 20 элементов, подразумевает элементы 0-19, двадцатый может вести себя крайне невоспитанно, Yoko как-то об этом говорил.
+ автор не исправил цикл
+ getDistance вернёт 0, если не видит ваще.
Смотри как это делается -))
Code: Select all
sub strelka()
var time = 1500 ; сюда время для задержки после каста.
var n, idl = 20 ; количество айдишек
Dim Ad[val(str(idl))]
Ad[0] = '0x0002616B' ; сюда вставляем айдишник
Ad[1] = '0x00022256' ; сюда вставляем айдишник
Ad[2] = '0x00029B3E' ; сюда вставляем айдишник
Ad[3] = '0x00016780' ; сюда вставляем айдишник
Ad[4] = '0x00031991' ; сюда вставляем айдишник
Ad[5] = '0x00057EC3' ; сюда вставляем айдишник
Ad[6] = '0x0001F68C' ; сюда вставляем айдишник
Ad[7] = '0x00032126' ; сюда вставляем айдишник
Ad[8] = '0x0000D386' ; сюда вставляем айдишник
Ad[9] = '0x00017001' ; сюда вставляем айдишник
Ad[10] = '0x0005C85C' ; сюда вставляем айдишник
Ad[11] = '0x0003C2DB' ; сюда вставляем айдишник
Ad[12] = '0x00021881' ; сюда вставляем айдишник
Ad[13] = '0x0004F893' ; сюда вставляем айдишник
Ad[14] = '0x0001A082' ; сюда вставляем айдишник
Ad[15] = '0x0002A1C9' ; сюда вставляем айдишник
Ad[16] = '0x000028C3' ; сюда вставляем айдишник
Ad[17] = '0x0005A2F6' ; сюда вставляем айдишник
Ad[18] = '0x00003320' ; сюда вставляем айдишник
Ad[19] = '0x00040ACF' ; сюда вставляем айдишник
for n = 0 to idl-1
if uo.getdistance(Ad[n]) < 15 && uo.getX(Ad[n]) then
uo.cast( 'Magic Arrow', Ad[n] )
wait(time)
endif
next
end sub
