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

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