Page 1 of 1
Скрипт на Килл Конем.(ПВП)
Posted: 2005-02-21 18:44:02
by 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
Re: Скажите чё тут не правильно.
Posted: 2005-02-21 18:44:57
by Sfagnum
Ekkie wrote:Code: Select all
UO.Say("!!!FUCK YOU!!!");
UO.UseObject("self");
Re: Скажите чё тут не правильно.
Posted: 2005-02-21 19:04:41
by Ekkie
Sfagnum wrote:Ekkie wrote:Code: Select all
UO.Say("!!!FUCK YOU!!!");
UO.UseObject("self");
оН вроде должен содится на лошад же????
( Он не садится обратно)
Posted: 2005-02-21 20:09:30
by 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
Posted: 2005-02-22 13:44:32
by Ekkie
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
by Savage
А ты коня добавил в объекты? Юзать надо на атакованного чара.
Posted: 2005-02-22 14:44:36
by 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
Posted: 2005-02-22 15:32:41
by 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:]
Идея я думаю понятна?
Posted: 2005-02-22 16:14:25
by Sfagnum
Ekkie wrote:не работает=(
сперва юзаешь процедурку sub HorseAdd() 1раз, а в бою sub horse()
Posted: 2005-02-22 23:36:31
by 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