Yoko

Code: Select all

Sub Ar() 
var name
uo.set('finddistance', '15') 
uo.ignore('self') 
repeat 
   uo.findtype('0x0190', '-1', 'ground') 
       if uo.findcount() then 
            uo.cast('Magic Arrow', 'finditem')
            name = Uo.GetName('finditem')
            Uo.Print('Пулька в = ' + Str( name ))
            wait(1500)
            uo.ignore('finditem') 
        end if 
Until Uo.Dead() 
end sub
end sub

Code: Select all

            name = Uo.GetName('finditem')
            Uo.Print('Пулька в = ' + Str( name ))

Code: Select all

Uo.Print('Пулька в = ' + name )

Code: Select all

sub sell()
  uo.Exec('addobject Vendor')
  while uo.Targeting()
    wait(100)
  wend
  uo.Say(UO.GetName('Vendor') + ' sell')
end sub

Code: Select all

sub Null()
var name
uo.set('finddistance', '15') 
uo.ignore('self') 
repeat 
   uo.findtype('0x0190', '-1', 'ground') 
       if uo.findcount() then 
            uo.cast('Magic Arrow', 'finditem')
            name = Uo.GetName('finditem')
            uo.addobject( Name ,'finditem')
            Uo.Print('Пулька в = ' + name )
            wait(1500)
            uo.ignore( Name ) 
        end if 
Until Uo.Dead() 
end sub

Code: Select all

sub hello()
	DIM ignore[1024]
	var i, index = 0
	var man = '0x0190'
	var woman = '0x0191'
	var dst1 = 2 ; со скольки тайлов здороваться
	var dst2 = 8 ; со скольки тайлов забывать
	uo.ignore( 'self' )
	uo.set( 'finddistance', str( dst1 ) )
	repeat
		uo.findtype( woman, '-1', 'ground' )
		if not uo.findcount() then
			uo.findtype( man, '-1', 'ground' )
		endif
		if uo.findcount() then
			msg( 'Привет ' + uo.getName( 'finditem' ) + '! :)' )
			uo.ignore( 'finditem' )
			ignore[ index ] = uo.getSerial( 'finditem' )
			index = index + 1
		else
			wait( 300 )
		endif
		i = 0
		while i < index
			if uo.getDistance( ignore[ i ] ) > dst2 then
				uo.ignore( ignore[ i ], 'off' )
				index = index - 1
				if i < index then
					ignore[ i ] = ignore[ index ]
				endif
			else
				i = i + 1
			endif
		wend
	until false
endsub