Скрипт для запрыгивания на лошадь
Posted: 2005-09-16 16:58:30
Есть ли у кого нить скрипт, чтобы при касте, я не нажимал доп. кнопку чтобы залезть?
Code: Select all
sub horse()
Var hrsT, hrsC
hrsT = "0x00C8" # тип зверька
hrsC = "0x0000" # его цвет
UO.Set("finddistance", "4")
UO.FindType(hrsT, hrsC, "ground")
If UO.FindCount() > 0 Then
UO.UseFromGround(hrsT)
End If
end subCode: Select all
Sub FlameStrike() ; кидание флеймстрайка по последнему статусу
UO.Cast('Flame Strike','laststatus')
Else
UO.Print("No mana")
Endif
Endsubпопробуй это соединить....ток про задержки не забудь,а то в коридоры улетать будешь!