Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


> > Тэйлор... >
Kamikadze
сообщение 16.4.2010, 9:05
Сообщение #1


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 93
Регистрация: 1.2.2005
Пользователь №: 417
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



Не работает скрипт на тэйлор!
Код
VAR Container = '0x408AEBB4';айрон, рыба, инструменты, может быть равен Sunduk 1
VAR Sunduk1 = '0x4021E573';пустые мешки
VAR Sunduk2 = '0x40567D13';полные
VAR Instrum = '0x1EBC'
VAR saw = '0x1034' #пила#
VAR Ing = '0x1BEF'
VAR log = '0x1BDD'
VAR key = '0x1010'
VAR Lock = '0x14FB'
VAR Bottle = '0x0F0E'
VAR Dagger = '0x0F51'
VAR club = '0x13B3'
VAR Bow = '0x13B1' #лук#
VAR spool = '0x0FA0' #нитки#
VAR Сap = '0x171C' #колпак#
VAR cloth = '0x175D' #ткань#
VAR Skit = '0x0F9D' #швейный набор#
VAR Deed = '0x14EF'
VAR Meshok = '0x0E76';тип мешка
VAR MeshSer, d, LastTimer
var havka = '0x097B'
###количество не забываем указывать свое###
var colkey = 100; количество ключей в 1 мешке
var coldagger = 50; количество кинжалов в 1 мешке
var colclub = 50; количество дубин в 1 мешке
var colbow = 50; количество луков в 1 мешке
var coljest = 50; количество колпаков в 1 мешке

VAR HIDE = 1; если 1 прячемся, если 0 нет.






###################
sub TinkKey()
UO.CancelMenu()
WHILE NOT UO.Dead()
UO.FindType( Meshok, '-1', Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.MoveItem( MeshSer, 0, Sunduk2 )
checklag()
uo.useobject( MeshSer )
eat()
REPEAT
GET(ing, Container, 20, 100)
GET(Instrum, Container, 2, 2)
Repeat
if HIDE then
Hide()
endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Tinkering','Keys','Keys','Iron key' )
UO.Usetype( Instrum )
repeat
wait( 300 )
until UO.InJournal("You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+150
Until UO.Count( key ) > 0
checklag()
PUT( key, MeshSer )
UO.FindType( key, -1, MeshSer )
UO.Print('Ключей в мешке: '+Str( UO.FindCount()))
UNTIL UO.FindCount()==colkey
UO.Print('Берем другую сумку')
wait( 300 )
wend
end sub


###################
sub TinkerLockpicks()
WHILE NOT UO.Dead()
GET(ing, Container, 1, 100)
GET(log, Container, 1, 100)
GET(Instrum, Container, 2, 2)
if HIDE then
Hide()
endif
UO.DeleteJournal()
LastTimer=UO.Timer()
Repeat
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'lockpick' )
UO.Usetype( Instrum )
repeat
wait( 100 )
until UO.InJournal("You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+150
Until UO.Count( Lock ) > 0
checklag()
PUT(Lock, Container)
UO.FindType( Lock, -1, Container)
UO.Print('Отмычек в банке: '+Str(UO.GetQuantity('finditem')))
WEND
end sub


###################
[color=#CC0000]sub TinkerBottle()
WHILE NOT UO.Dead()
GET(ing, Container, 10, 100)
GET(Instrum, Container, 2, 2)
if HIDE then
Hide()
endif
UO.DeleteJournal()
LastTimer=UO.Timer()
Repeat
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Tinkering', 'Tools', 'Tools', 'Empty bottle' )
UO.Usetype( Instrum )
repeat
wait( 100 )
until UO.InJournal("You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+150
Until UO.Count( Bottle ) > 0
checklag()
PUT(Bottle, Container)
UO.FindType( Bottle, -1, Container)
UO.Print('Банок в банке: '+Str(UO.GetQuantity('finditem')))
WEND
end sub[/color]


###################
sub BSDagger()
UO.Set('quiet','1')
UO.CancelMenu()
UO.AutoMenu('Blacksmithing','Weapons')
UO.AutoMenu('Weapons','Fencing')
UO.AutoMenu('Fencing','Dagger')
UO.Set('quiet','0')
WHILE NOT UO.Dead()
UO.FindType( Meshok, '-1', Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.MoveItem( MeshSer, 0, Sunduk2 )
checklag()
uo.useobject( MeshSer )
eat()
REPEAT
GET(ing, Container, 20, 100)
Repeat
if HIDE then
Hide()
endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.Waittargettype ( Ing )
UO.Usetype(0x13E3); ТУТ ТИП САМОДЕЛЬНОГО МОЛОТКА!!!
repeat
wait(50)
until UO.InJournal("The item|You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+150
Until UO.Count( Dagger ) > 0
checklag()
PUT( Dagger, MeshSer )
UO.FindType( Dagger, -1, MeshSer )
UO.Print('Кинжалов в мешке: '+Str( UO.FindCount()))
UNTIL UO.FindCount()==coldagger
UO.Print('Берем другую сумку')
wait( 300 )
wend
end sub


###################
sub CarpentryClub()
WHILE NOT UO.Dead()
UO.FindType( Meshok, '-1', Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.MoveItem( MeshSer, 0, Sunduk2 )
checklag()
uo.useobject( MeshSer )
eat()
REPEAT
GET(log, Container, 10, 300)
GET(saw, Container, 1, 1)
Repeat
if HIDE then
Hide()
endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Carpentry', 'Weapons', 'Weapons', 'Club')
UO.Usetype( saw )
repeat
wait( 300 )
until UO.InJournal("You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+300
Until UO.Count( club )>0
checklag()
PUT( club, MeshSer )
UO.FindType( club, -1, MeshSer)
UO.Print('Дубин в мешке: ' + Str( UO.FindCount( club ) ) )
UNTIL UO.FindCount()==colclub
UO.Print('Берем другую сумку' )
wait( 300 )
WEND
end sub


###################
sub Bowcraft()
WHILE NOT UO.Dead()
UO.FindType( Meshok, '-1', Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.MoveItem( MeshSer, 0, Sunduk2 )
checklag()
uo.useobject( MeshSer )
eat()
REPEAT
GET(log, Container, 10, 800)
GET(spool, Container, 1, 100)
Repeat
if HIDE then
Hide()
endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('What do you', 'Bow')
UO.waittargettype ( log )
UO.Usetype( Dagger )
repeat
wait( 100 )
until UO.InJournal("You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+150
Until UO.Count( Bow )>0
checklag()
PUT(Bow, MeshSer)
UO.FindType( Bow, -1, MeshSer)
UO.Print('Сделано луков: ' + Str( UO.FindCount( Bow ) ) )
UNTIL UO.FindCount()==colbow
UO.Print('Берем другую сумку' )
wait( 300 )
WEND
end sub


###################
sub TailorCap()
WHILE NOT UO.Dead()
UO.FindType( Meshok, '-1', Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.MoveItem( MeshSer, 0, Sunduk2 )
checklag()
uo.useobject( MeshSer )
eat()
REPEAT
GET(cloth, Container, 16, 100)
GET(spool, Container, 1, 100)
Repeat
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('Cloth', 'Headwear', 'Headwear', 'Jester')
UO.waittargettype ( cloth )
UO.Usetype( Skit )
repeat
wait( 100 )
until UO.InJournal("You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+150
Until UO.Count( Сap ) > 0
checklag()
PUT(Сap, MeshSer)
UO.FindType( Сap, -1, MeshSer)
UO.Print('Сделано колпаков: ' + Str( UO.FindCount( Сap ) ) )
UNTIL UO.FindCount()==coljest
UO.Print('Берем другую сумку' )
wait( 300 )
WEND
end sub



sub makeAgility()
alchemy('0x0F7B', '0x0F09', "'Agility potion'");тип реагента, тип зелья, НАЗВАНИЕ ЗЕЛЬЯ В МЕНЮ КРАФТА
end sub

sub makePoisen()
alchemy('0x0F88', '0x0F0A', "'Poison potion'")
end sub


sub makeStrength()
alchemy('0x0F86', '0x0F09', "'Strength potion'")
end sub




###################
Sub Alchemy(reagent, Potion, choice)
WHILE NOT UO.Dead()
UO.FindType( Meshok, '-1', Sunduk1 )
MeshSer = UO.GetSerial( 'finditem' )
UO.MoveItem( MeshSer, 0, Sunduk2 )
checklag()
uo.useobject( MeshSer )
eat()
REPEAT
GET(Bottle, Container, 1, 100)
GET(reagent, Container, 5, 100)
Repeat
if HIDE then
Hide()
endif
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.WaitMenu ('What sort of potion do you want to', choice)
UO.UseType(reagent)
repeat
wait(100)
until UO.InJournal("You put|положили|fail|не удалось|You broke|сломали") or UO.Timer()>LastTimer+300
Until UO.Count( Potion ) > 0
checklag()
PUT(Potion, MeshSer)
UO.FindType( Potion, -1, MeshSer )
UO.Print('Зелий в мешке: '+Str( UO.FindCount()))
UNTIL UO.FindCount()>=250
UO.Print('Берем другую сумку' )
wait( 300 )
WEND
end sub

















Sub eat()
GET(havka, Container, 0, 20)
REPEAT
UO.DeleteJournal()
LastTimer=UO.Timer()
UO.findtype(havka,-1,'backpack')
If UO.FindCount() > 0 Then
UO.Useobject('finditem')
wait(200)
Else
UO.Print( 'кончилась рыба' )
return 0
end if
Until UO.InJournal("stuffed!|think|found|Вы ничего не можете") OR UO.Timer()>LastTimer+200
PUT(havka, Container)
end sub


Sub GET(item, cont, min, max); предмет, откуда, минимум, сколько брать
If UO.Count( item ) < min Then
# UO.Print("Кончилось сырье в рукзаке")
UO.FindType( item, '-1', cont )
if UO.FindCount() > 0 Then
# UO.Print('Сырья в сундуке: ' + Str( UO.FindCount( item ) ) )
uo.moveitem('finditem', max, 'backpack')
checklag()
else
# UO.Print( 'Полностью кончилось сырье' )
UO.CancelMenu()
return
endif
Endif
end sub


Sub PUT(item, cont)
while UO.Count( item ) > 0
UO.FindType( item, -1, -1 )
UO.MoveItem( 'finditem', 0, cont )
checklag()
wend
end sub


Sub Hide()
VAR LastTimer, n=0, HidFlag=1
if UO.Hidden() then
HidFlag=0
else
end if
while HidFlag
DeleteJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well")
LastTimer=UO.Timer()
UO.WarMode(0)
UO.UseSkill('Hiding')
repeat
wait(50)
until UO.InJournal("can't seem to hide|to perform|stop trying|прекратили|не удалось|удачно|You have hidden yourself well") || LastTimer+50<UO.Timer()
if UO.InJournal("0xA5F8|удачно|You have hidden yourself well") then
HidFlag=0
else
n=n+1
if n>3 then
UO.Set('quiet','0')
UO.Print('Спрятаться не получается, происходит что-то тревожное и непонятное, готовься к смерти, неудачнег!')
UO.Set('quiet','1')
MyTerminate()
end if
end if
wend
end sub

Sub DeleteJournal(msg)
While UO.InJournal(msg)
UO.SetJournalLine(UO.InJournal(msg) - 1,'')
wend
endsub

Sub MyTerminate()
UO.Set('quiet','1')
UO.CancelMenu()
UO.IgnoreReset()
UO.Set('quiet','0')
UO.Exec('terminate all')
end sub

Sub checklag()
DeleteJournal("ackpack")
UO.Click("backpack")
repeat
wait(100)
until UO.InJournal("ackpack")
end sub


Не хочет доставать нитки и ткань!

Сообщение отредактировал Kamikadze - 16.4.2010, 10:06
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 2) >
Kamikadze
сообщение 16.4.2010, 10:12
Сообщение #2


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 93
Регистрация: 1.2.2005
Пользователь №: 417
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



Алукард вроде твоя сборка!?
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Alucard
сообщение 16.4.2010, 14:22
Сообщение #3


ДМ НТ
Group Icon

Группа: Пользователи
Сообщений: 4 801
Регистрация: 13.7.2006
Из: г. Иваново
Пользователь №: 3 276
Спасибо сказали: 351 раз(а)
Класс: Человек



Ай ждите я на дне рождения у коллеги. Приду - скину все крафты.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

Ответить в эту темуОткрыть новую тему
> >
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 24.10.2018, 3:10
Design: Fisana  © 2005-2006 IBR Team