Yoko

Может ктото плиз сделать чтоб когда чар хилил он юзал скил спирит спик?

sub Archery()


while 1
uo.usetype("0x13B1") # òèï îðóæèÿ
UO.Exec("attack 0x003706B8") #àéäè 2-ãî ÷àðà
Repeat
wait (500)
if uo.injournal("destroyed")then
UO.usetype("0x13B1") # òèï îðóæèÿ
uo.deletejournal ...

Короче проблема такая... По идее скрипт должен одевать курсу перед тем как похилился...
Но он сбивается .. Хилится а только потом одевает курсу.... исправте плиз!



sub Train_Healing()
var i,j,tekstr
uo.undress()
wait(100)
repeat
UO.FindType(0x0E21,"-1","my")
if UO.FindCount() then ...

Question wrote:обязательно с реколами к дому? и где ты такую скалу нашел чтобы там пк не было

Везде есть.....
Не у всез же как у тя такои домик=)

AlexeyVorotnikov wrote:

Ekkie wrote:некто незнает в чём проблема??=(((

Проблема в том, что в этом скрипте нет функции CheckLag.
Её нужно добавить. Например, в таком виде:

Code: Select all

Sub CheckLag() 
UO.DeleteJournal() 
UO.Click('backpack') 
Repeat 
Wait(100) 
Until UO.InJournal('backpack') 
End Sub 

Можеш исправить скрипт?

некто незнает в чём проблема??=(((

Короче всё идёт намана....
но в конце пишет : Line 29 : Function not found CHECKLAG
Поправте ПЛИЗ

#####################################################################
; Bowcraft2. v.1.01b (c) Edred
;
; Чар берет из сундука шафты и перья, крафтит из них стрелы и
; складывает эти стрелы в этот ...

Как добавить в скрипт чтоб брал бат винги?=)

Дайте плз скрипту на loot из трупов

Неужели поиском не можешь воспользоваться ???


sub Loot()
var i,n
Dim A[38]
A[1] = 0x0f7b ;BloodMoss
A[2] = 0x0f09 ;Invisibility
A[3] = 0x0f09 ;ManaRefresh
A[4] = 0x0f0b ;Refresh
A[5] = 0x13B9 ;VikingSword
A[6] = 0x0f0c ;Heal
A[7] = 0x143E ;Halberd ...

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



не ...

Sfagnum wrote:

Ekkie wrote:

Code: Select all

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

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

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

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 ...

Sfagnum wrote:тут вроде

Code: Select all

UO.FindType('0x0F0E',-1,'backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x0F0E','0x0000','Bag') 
wait(1000) 
UO.Grab('500','finditem') 
wait(1000) 
Endif

1ю строку заменить на эту:

Code: Select all

UO.FindType('0x0F0E','0x0000','backpack')

Спасибобольшое вроде всё работает

Sfagnum wrote:1. указывай цвет бутылок явно, а не любой
2. uo.WaitMenu('What','(2)') - Пойзон
uo.WaitMenu('What','(first)') - лессер

А где цвет указать...скажите неюбику бедному.

И ещё вопросик..
Как сделать чтоб место Гритер пойзенов делал простие пойзони?

Короче скрипт то работает норм (Берёт бутылки и НС, делает пойзонии ложит их в сундук, когда кончаются бутылки или НС берёт ещё).
НО иногда он работает так :Берёт бутылки и НС , делает пойзон
ложит пойзон в сундук, берёт ещё бутылки и Т.Д!


sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo ...

Короче...я запускаю этот скрипт вроде всё работает..
Но чар нечего не берёт и не пойзенит укаханий дагер...

sub Poisoning()
VAR Exit=0, LastTimer

uo.print('Bag with Poisons')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

uo.print('Dagger')
uo.exec('addobject Dagger ...

Вродь работает по есть чет лишнее я знаю ;)

sub Poisoning()
VAR Exit=0, LastTimer

uo.print('Bag with Poisons')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend

uo.print('Dagger')
uo.exec('addobject Dagger')
while uo.targeting()
wait(100)
wend

while Exit<>1
UO ...

sub Main()
While NOT UO.Dead()
UO.Findtype( '0x0F0A' )
If Uo.findcount() > 0 Then
[b] UO.WaitTargetObject( 'finditem', '0x5CAE9078' )[\b]
UO.UseSkill( 'Poisoning' )
wait(9200)
Else
UO.Print( 'Bottles not found!' )
return
Endif
Wend
endsub

Написал прямо здесь, так что проверь еще раз ...

AGRS wrote:

STINGER wrote: Мне надо чтоб чар скупал реги Nightshade

К скрипту это отношения не имеет. Кнопка Buy/Sell на вкладке Main.

Na drw bistruyu pokupku i prodaju otklu4ili.
mojet ktoto dast script 4tob skupal NS i Blank scroli?

Goggy wrote:

Ekkie wrote:

Savage wrote:,massmove

Не понел...
Как энто делайтся... ,massmove
А чё далше песать?

как я люблю эту строчку писать

http://yoko.netroof.net/help

Спасибочки=)