Code: Select all
#################
; Модуль сканирования.
sub Scan()
#################
uo.set('finddistance', '15')
var i, j, Rser
var time = uo.time()
uo.ignore('self')
var a1 = 'man'
var a2 = 'woman'
var a3 = 'ophidian warrior'
var a4 = 'deamon'
var a5 = 'dragon'
var a6 = 'Quas'
Dim scan[5]
scan[1] = '0x0190' ; мужик
scan[2] = '0x0191' ; баба
scan[3] = '0x0056' ; орфидиан
scan[4] = '0x0009' ; демон
scan[5] = '0x000C' ; дракон
while not uo.dead()
j = 0
for i = 1 to 5
uo.findtype( scan[i], '-1', 'ground' )
if uo.findcount() then
Rser = uo.getserial( 'finditem' )
uo.textprint( time, 'Нападение! Id: ' , Rser, 'Имя: ' , uo.getname(Rser))
j = 1
endif
next
if j == 1 or \
uo.injournal( a1 ) or \
uo.injournal( a2 ) or \
uo.injournal( a3 ) or \
uo.injournal( a4 ) or \
uo.injournal( a5 ) or \
uo.injournal( a6 ) \
then
uo.playwav('alarm.wav')
uo.print( 'Alarm!!!' )
uo.exec('terminate Attack666')
uo.exec('terminate Loot4')
uo.exec('terminate peria')
uo.exec('exec Teleportation')
return 1
else
wait(2000)
endif
wend
endsubНо такая проблема: Например он прилетает на 3-ию руну, там видил игрока и улетает домой, все норм, но когда он начинает лететь по рунам заного, то по прилёту на 3 руну, он реколит опять домой, как будто видит кого то, хотя там никого нет! Помогите а???
