Yoko

Posted: **2005-02-21 18:44:02**

чего тут неправильно скажите плиз ..

sub kill_with_animal()
  if UO.GetGlobal('out')=='1' then 
    UO.Msg("all stop");
    repeat
      UO.Say("!!!FUCK YOU!!!");
      UO.Say(",warmode 0");
      wait(200);
    until UO.WarMode()==0;
    UO.UseObject("animal");
#    UO.UseFromGround('0','0x0000');
    UO.SetGlobal('out','0');
  else
    UO.UseObject("self");
    UO.WaitTargetObject("laststatus");
    UO.Msg("all kill");
    UO.SetGlobal('out','1');
  endif
end sub

Posted: **2005-02-21 18:44:57**

Ekkie wrote:

Code: Select all

      UO.Say("!!!FUCK YOU!!!");
    UO.UseObject("self");

Posted: **2005-02-21 19:04:41**

Sfagnum wrote:
Ekkie wrote:
Code: Select all
      UO.Say("!!!FUCK YOU!!!");
    UO.UseObject("self");

оН вроде должен содится на лошад же????
( Он не садится обратно)

Posted: **2005-02-21 20:09:30**

Code: Select all

sub horse()
	UO.DeleteJournal()
	UO.UseObject('Horse')
	wait(200)
	If UO.InJournal("You can't see") Then
		UO.UseObject('self')
		uo.waittargetobject('lastattack')
		uo.say("all kill")
	Endif
end sub


sub HorseAdd()
	UO.UseObject('self')
	UO.AddObject('Horse')
	UO.SaveConfig()
end sub

Posted: **2005-02-22 13:44:32**

Savage wrote:

Code: Select all

sub horse()
	UO.DeleteJournal()
	UO.UseObject('Horse')
	wait(200)
	If UO.InJournal("You can't see") Then
		UO.UseObject('self')
		uo.waittargetobject('lastattack')
		uo.say("all kill")
	Endif
end sub


sub HorseAdd()
	UO.UseObject('self')
	UO.AddObject('Horse')
	UO.SaveConfig()
end sub

не работает=(

Posted: **2005-02-22 14:37:27**

А ты коня добавил в объекты? Юзать надо на атакованного чара.

Posted: **2005-02-22 14:44:36**

тут есть же шарага такая>>

Code: Select all

sub lol() 
uo.deletejournal() 
uo.useobject("0x0002BFF1")#id loshadi 
wait(400) 
if uo.injournal("You can't see the target") then 
uo.useobject("0x00105C8A")#id svoego chara 
uo.waittargetlast() 
uo.say("") 
uo.say("all kill") 
wait(100) 
else 
uo.say("") 
uo.say("all stop") 
wait(100) 
uo.useobject("0x0002BFF1") 
uo.deletejournal() 
end if 
endsub 

end if 

endsub

Posted: **2005-02-22 15:32:41**

Помоему уневерсальнее сделать так:

Ты задаеш уникальное имя лошадке, и залазять по нему

Code: Select all

Var KillerName="White Keeper" 
# <...> #
 Repeat 
 UO.FindType(-1,-1,"ground") 
 UO.Ignore("finditem") 
Until UO.GetName("finditem")==KillerName
# <...> #

Fixed [ибо незнаю как обьяснить но у меня так:lol:]

Идея я думаю понятна?

Posted: **2005-02-22 16:14:25**

Ekkie wrote:не работает=(

сперва юзаешь процедурку sub HorseAdd() 1раз, а в бою sub horse()

Posted: **2005-02-22 23:36:31**

Там какая то глюка была лучше так:

Code: Select all

sub horse()
	UO.DeleteJournal()
	UO.UseObject('Horse')
	wait(200)
	If UO.InJournal("t see") Then
		UO.UseObject('self')
		uo.waittargetobject('lastattack')
		uo.say("all kill")
	Else
		UO.UseObject('Horse')
	Endif
end sub


sub HorseAdd()
	UO.UseObject('self')
	UO.AddObject('Horse')
	UO.SaveConfig()
end sub

Yoko

Скрипт на Килл Конем.(ПВП)

Скрипт на Килл Конем.(ПВП)

Re: Скажите чё тут не правильно.

Re: Скажите чё тут не правильно.