Скрипт автопушка доработка

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
Kitten
Posts: 40
Joined: 2007-10-20 07:45:56

Скрипт автопушка доработка

Post by Kitten »

Можно сюда как то дописать поиск чаров не просто в радиусе, а только в определенном квадрате?

Code: Select all

sub BuM() 

   var c, aim, pushka 

   uo.print('Укажите сундук с ядрами') 
   uo.addobject('Sunduk') 
   while uo.targeting() 
     wait(100) 
   wend 
   uo.useobject('Sunduk') 
   wait(1000) 
   checklag() 
   uo.set('finddistance', '3') 
   uo.findtype('0x0E91', '-1', '1') 
   if uo.findcount() then 
     pushka = uo.getserial('finditem') 
   else 
     uo.print('Net puhi') 
     return 
   endif 
   uo.ignore('self') 
   uo.set('finddistance', '15') 
   DIM Chars[2] 
   Chars[0] = '0x0190' #тип игрока мужского пола# 
   Chars[1] = '0x0191' #тип игрока женского пола# 
repeat 
     for c = 0 to 1    
       uo.findtype(Chars[c], '-1', 'ground') 
       	if uo.findcount() then 
         	aim = uo.getserial('finditem') 
         	uo.findtype('0x0e73', '-1', 'Sunduk') 
         	if not uo.findcount() then 
           	uo.print('Net yader') 
           	return 
         	else 
           	uo.waittargetobject( pushka, aim ) 
           	uo.useobject('finditem')
           	uo.playwav("C:\WINDOWS\Media\notify.wav")
           	wait(3000) 
           			if uo.Waiting() then 
               			uo.canceltarget() 
           			end if 
         endif 
       else 
         wait(200) 
       endif 
     next 
until 0==1
end sub 

sub checklag() 
   uo.click('backpack') 
   while not uo.injournal('backpack') 
     wait(100) 
   wend 
   uo.deletejournal('backpack') 
end sub
[/quote]
Post Reply