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

[Ekkie]

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

Code: Select all

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

[Sfagnum]

Code: Select all

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

[Ekkie]

Code: Select all

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

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

[Savage]

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

[Ekkie]

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

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

[Savage]

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

[The Cheater]

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

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

[I'm]

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

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

  Code: Select all

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

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

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

[Sfagnum]

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

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

[Savage]

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

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