Подправте плиз скрипт

Ask for scripts here

Moderators: Murderator+, Murderator

Post Reply
TheGamer
Posts: 18
Joined: 2008-03-31 08:38:33

Подправте плиз скрипт

Post by TheGamer »

Здравствуйте.Вот нашел скрипт залезать и слезать с живности, но там он там слазит и залазит по ID живности, дак вот хотел вас попросить переделать его чтобы он залезал и слезал по типу живности.Помогите плз!
Вот скрипт:

Code: Select all

sub maunt() 
VAR horse='0x000D656D' #ID Horse
if UO.GetGlobal('chto') == '1' then
UO.SetGlobal('chto', '0')
UO.UseObject('self')
wait(500)
UO.WaitTargetObject('laststatus')
UO.WaitTargetObject('lastattack')
UO.Print('Down Horse')
else
UO.SetGlobal('chto', '1')
 wait(500)
UO.UseObject(horse)
UO.Print('Up Horse')
endif
end sub
Kynep
Expert!
Posts: 1348
Joined: 2006-02-07 08:51:40
Location: г. Старый Оскол
Contact:

Re: Подправте плиз скрипт

Post by Kynep »

TheGamer wrote:Здравствуйте.Вот нашел скрипт залезать и слезать с живности, но там он там слазит и залазит по ID живности, дак вот хотел вас попросить переделать его чтобы он залезал и слезал по типу живности.Помогите плз!
Вот скрипт:


Мейби так?

Code: Select all

sub maunt() 
VAR horse='0x000D' #Type Horse
if UO.GetGlobal('chto') == '1' then
UO.SetGlobal('chto', '0')
UO.UseObject('self')
wait(500)
UO.WaitTargetObject('laststatus')
UO.WaitTargetObject('lastattack')
UO.Print('Down Horse')
else
UO.SetGlobal('chto', '1')
 wait(500)
UO.UseType(horse)
UO.Print('Up Horse')
endif
end sub
TheGamer
Posts: 18
Joined: 2008-03-31 08:38:33

Post by TheGamer »

Не хочет =( Пишет Ноу итем фаунд
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

Тип вставь
TheGamer
Posts: 18
Joined: 2008-03-31 08:38:33

Post by TheGamer »

Вставлял я тип!Стою рядом с ламой жму кнопку, а он No item found(Слезать слезает, а залезать не хочет(
666||TORCHKI
Posts: 257
Joined: 2006-11-14 16:19:03
Contact:

Post by 666||TORCHKI »

Незнаю ) я бегаю со скриптом там таргетом указаваеш хорсе )
Взял найта указал и бегай пока не здохнит :roll:
TheGamer
Posts: 18
Joined: 2008-03-31 08:38:33

Post by TheGamer »

Выложи плз если не трудно !
666||TORCHKI
Posts: 257
Joined: 2006-11-14 16:19:03
Contact:

Post by 666||TORCHKI »

Code: Select all

###############################################
sub mount()
If UO.ObjAtLayer('Horse') Then
   UO.useobject('self')
   wait(100)
   UO.WaitTargetObject('laststatus')
   uo.fontcolor (0x0003)
   UO.MSG('all kill')
   uo.fontcolor (0x0035)
Else
   wait(100)
   UO.Useobject('Horse')
End If
end sub
######################################################
sub HorseAdd()
   UO.UseObject('self')
   UO.AddObject('Horse')
   UO.SaveConfig()
end sub
TheGamer
Posts: 18
Joined: 2008-03-31 08:38:33

Post by TheGamer »

Спасибо болшое за помощ!Етот скрипт даже лучше.Еще раз спасибо =)
Post Reply