Есть у кого-нибудь скрипт на.....?

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
GooD
Posts: 14
Joined: 2005-02-24 14:41:56

Есть у кого-нибудь скрипт на.....?

Post by GooD »

Есть у кого-нибудь скрипт чтобы убирал в хайд всех в округе, ближайшие 5 тайлов вокруг себя?
Буду благодарен!
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Через команду ,hide?
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:

Post by ADEPT_ABP »

Вопрос не в тему, но всё же...
Столкнулся с проблемой при написании скрипта "жря-king". Сам скрипт:

Code: Select all

sub main()
	UO.AddObject('food')
    UO.Print('Что жарим?') 
   while UO.Targeting() 
    wait(10)
   wend
   wait(1000)
  	UO.AddObject('fire')
    UO.Print('На чём?') 
   while UO.Targeting() 
    wait(10)
   wend
   wait(1000)
	While uo.count("food") > 0
	uo.usetype(uo.GetGraphic('food'))
	uo.waittargetobject('fire')
	uo.deletejournal()
	while not uo.injournal("You put the") and not uo.injournal("You burn the")
	wait(100)
	wend
	wend
end sub
... и проблема такая, в данженах есть "костерки" которые относятся к статике, и ID, TYPE, и прочих аттрибутов не имеют. А как можно через прицел получить координаты? А прицепить координаты к waittargettile, я сумею. :D
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

А они работают? :)

2 Может быть

Code: Select all

  uo.UseObject('lastobject')
? 1 раз предварительно кликнуть не затруднит
ADEPT_ABP
Posts: 223
Joined: 2006-05-12 08:03:45
Contact:

Post by ADEPT_ABP »

Работают. Именно из-за того, что с драконов много мяса вырезается, я и написал скрипт, а стал пробовать, оказалось - не динамика, а статика.
LastObject? Хмм... попробую. Спасибо. :D
GooD
Posts: 14
Joined: 2005-02-24 14:41:56

Post by GooD »

Scripts Writer wrote:Через команду ,hide?
Да, чтоб этой командой убирал всё вокруг себя (игроков, НПС, животных и т.д)
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Ну ищи через

Code: Select all

Uo.FIndType('-1','-1','ground') 
если найдены то тогда ловушку на найденный объект + месага ",hide"
GooD
Posts: 14
Joined: 2005-02-24 14:41:56

Post by GooD »

Scripts Writer wrote:Ну ищи через

Code: Select all

Uo.FIndType('-1','-1','ground') 
если найдены то тогда ловушку на найденный объект + месага ",hide"
А если тебе не трудно будет, можешь написать скрипт, как должно выглядеть! Я просто вообще не понимаю инжект!
Grin
Expert!
Posts: 2580
Joined: 2005-05-04 14:05:19
Location: Москва

Post by Grin »

Code: Select all

sub HideR5() #Хайдит в радиусе 5 тайлов
	
	HideInRange(5)

endsub

sub HideInRange(r) 
	
	uo.set('finddistance', r)
	uo.Ignore('self')
	uo.FindType(-1, -1, 'ground')
	
	while uo.FindCount()
		uo.Hide('finditem')
		uo.Ignore('finditem')
		uo.FindType(-1, -1, 'ground')
		wait(10)
	wend
	
	uo.IgnoreReset()

endsub
GooD
Posts: 14
Joined: 2005-02-24 14:41:56

Post by GooD »

Grin wrote:

Code: Select all

sub HideR5() #Хайдит в радиусе 5 тайлов
	
	HideInRange(5)

endsub

sub HideInRange(r) 
	
	uo.set('finddistance', r)
	uo.Ignore('self')
	uo.FindType(-1, -1, 'ground')
	
	while uo.FindCount()
		uo.Hide('finditem')
		uo.Ignore('finditem')
		uo.FindType(-1, -1, 'ground')
		wait(10)
	wend
	
	uo.IgnoreReset()

endsub
Скрипт просто замечательный! Только он хайдит всё вокруг (дома двери и т.д), а игроков, НПС, животных нет. Можно его чуть отридоктировать чтобы хайдил тока игроков, НПС и животных, а дома и двери нет?
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Code: Select all

sub HideR5() #Хайдит в радиусе 5 тайлов 
    
   HideInRange(5) 

endsub 

sub HideInRange(r) 
    
DIM WhatToHide[2] #Кол-во объектов кот. хотим захайдить

WhatToHide[0]=type #Типы того что хайдим
WhatToHide[1]=type

var i

   uo.set('finddistance', r) 
   uo.Ignore('self') 

for i=0 to 1 
   uo.FindType(WhatToHide[i], -1, 'ground')   
   while uo.FindCount() 
      uo.Hide('finditem') 
      uo.Ignore('finditem') 
      uo.FindType(WhatToHide[i], -1, 'ground') 
      wait(10) 
   wend 
next
    
   uo.IgnoreReset() 

endsub
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Scripts Writer, разве функция isNPC не служит для отличения игроков / нпц / животных от дверей, домов итп.. ?)
YokoInjection CodeSweeper
Function not found?
Possession of mathematics at the level of art - a gift that is only available for election.
Sorry for my clumsy English.
Telegram: @tatikom
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Destruction wrote:Scripts Writer, разве функция isNPC не служит для отличения игроков / нпц / животных от дверей, домов итп.. ?)
Да, ты прав :\

Code: Select all

sub HideR5() #Хайдит в радиусе 5 тайлов 
    
   HideInRange(5) 

endsub 

sub HideInRange(r) 

   uo.set('finddistance', r) 
   uo.Ignore('self') 


   uo.FindType(-1, -1, 'ground') 
   while uo.FindCount() 
     if uo.IsNpc('finditem') then
       uo.Hide('finditem') 
       wait(10) 
     end if
     uo.Ignore('finditem') 
     wait(100)
     uo.FindType(-1, -1, 'ground') 
   wend 
    
   uo.IgnoreReset() 

endsub
Попробуй вот так, 2й вариант
Last edited by Scripts Writer on 2007-07-19 21:27:09, edited 1 time in total.
GooD
Posts: 14
Joined: 2005-02-24 14:41:56

Post by GooD »

Scripts Writer wrote:
Destruction wrote:Scripts Writer, разве функция isNPC не служит для отличения игроков / нпц / животных от дверей, домов итп.. ?)
Да, ты прав :\

Code: Select all

sub HideR5() #Хайдит в радиусе 5 тайлов 
    
   HideInRange(5) 

endsub 

sub HideInRange(r) 

   uo.set('finddistance', r) 
   uo.Ignore('self') 


   uo.FindType(-1, -1, 'ground') 
   while uo.FindCount() 
     if uo.InNpc('finditem') then
       uo.Hide('finditem') 
       wait(10) 
     end if
     uo.Ignore('finditem') 
     wait(100)
     uo.FindType(-1, -1, 'ground') 
   wend 
    
   uo.IgnoreReset() 

endsub
Попробуй вот так, 2й вариант
Попробовал, пишет ошибку - UO.INNPC
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Опечатка. Исправил, пробуй
GooD
Posts: 14
Joined: 2005-02-24 14:41:56

Post by GooD »

Scripts Writer wrote:Опечатка. Исправил, пробуй
Что-то не как! Теперь скрипт запускается но не хайдит не кого =(
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

:?:
Post Reply