##################################################### ### BowCraf BowBolts Script v. 1.00. ### ### ### ### Copyright & tested by cOoler on DRW Shard. ### ### ### ### Oficial DRW Shards site - http://www.drw.ru ### ##################################################### ##################################################### ### Инструкция по использованию и настройке. ### ##################################################### ### 1. Для работы этого скрипта надо: сундук, ### перья,шафты,пила(или другой инструмент). ### ### 2. Описание подготовки к запуску скрипта. ### Берём сундук (можно и backpack),меняем в скрипте ### ID сундука на свой,кладем в него шафты,а к себе в ### backpack перья и пилу,запускаем скрипт. ### ### 3. При использовании скрипта вам так или иначе ### придется менять конфигурации скрипта. ### Вот как и где это НУЖНО сделать: ### ### $ Сменa ID сундука и типа шафтов. ### 1) UO.FindType('тип шафтов','0x0000','backpack')- тут вы ### указываете: тип шафтов. ### 2) UO.FindType('тип шафтов','colour сундука','ID сундука')- тут вы ### указываете: тип шафтов,его colour,ID сундука. ##################################################### ### Конец инструкции. ### #####################################################
sub Bowcraft() repeat UO.FindType('0x1bd4','0x0000','backpack') put: If UO.GetQuantity('finditem')<1 then UO.FindType('0x1bd4','0x0000','0x40160062') ;Сериал сундука UO.Grab('1','finditem') wait(400) Endif UO.FindType('0x1bd4','0x0000','backpack') If UO.GetQuantity('finditem')<1 then goto put end if UO.Usetype('0x1bd4') UO.WaitMenu('Select arrow type','bolt') wait (1000) UO.DeleteJournal() while not (UO.InJournal("You put") or UO.InJournal("You fail")) wait(300) wend UO.UnSetReceivingContainer() wait(200) until UO.Dead() end sub
Last edited by M0ke on 2004-06-27 01:02:28, edited 1 time in total.
##################################################### ### Forensic Evaluation Script v. 1.03. ### ### ### ### Copyright & tested by cOoler on DRW Shard. ### ### ### ### Oficial DRW Shards site - http://www.drw.ru ### ##################################################### ##################################################### ### Инструкция по использованию и настройке. ### ##################################################### ### 1. Для работы этого скрипта ничего не нужно. ### ### 2. Описание подготовки к запуску скрипта. ### Запускаем скрипт и указать на мёртвое существо ### (человек или животное) курсором. ### ### 3. Скрипт простой и каких либо исправлений не требует. ##################################################### ### Конец инструкции. ### #####################################################
sub ForensicEvaluation() var count=0 uo.print('Please Change Dead Creature...') uo.exec('addobject ForensicAnimal') while uo.targeting() wait(100) wend UO.DeleteJournal() repeat uo.waittargetobject('ForensicAnimal') UO.Useskill('Forensic Evaluation') while not UO.InJournal("unsure") and not UO.InJournal("looks") and not UO.InJournal("perform") and count<60 wait(35) count=count+1 wend wait(35) count=0 UO.DeleteJournal() until UO.Dead() end sub
Last edited by M0ke on 2004-06-27 01:02:55, edited 2 times in total.
##################################################### ### Blacksmitchy Script Vor Iron Metal v. 1.00. ### ### ### ### Copyright & tested by cOoler on DRW Shard. ### ### ### ### Oficial DRW Shards site - http://www.drw.ru ### ##################################################### ##################################################### ### Инструкция по использованию и настройке. ### ##################################################### ### 1. Для работы этого скрипта надо: молоток, ### инги(Iron),Форж(плавилка). ### ### 2. Описание подготовки к запуску скрипта. ### Берём сундук (можно и backpack),меняем в скрипте ### ID сундука на свой,меняем ID форжи, ### кладем в сундук инги (как можно ### больше),себе в руку молоток,запускаем скрипт. ### Он куёт даггеры и плавит их. ### ### 3. При использовании скрипта вам так или иначе ### придется менять конфигурации скрипта. ### Вот как и где это НУЖНО сделать: ### ### $ Изменение продукта кования. ### UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger')- тут вы ### можете изменить - что будет ковать ваш чар. ### ### $ Смена ID форжи. ### UO.UseObject(ID форжи)- тут вы указываете: ID форжи. ### ### $ Смена типа ингов и ID сундука. ### UO.FindType('тип ингов айрона',-1,'backpack')- тут вы указываете: тип ингов айрона. ### UO.FindType('тип ингов айрона','colour сундука','ID сундука с ингами')- тут вы ### указываете: тип ингов айрона,их colour,ID сундука с ингами. ##################################################### ### Конец инструкции. ### #####################################################
sub BlacksmithyIM()
VAR Exit=0, LastTimer while Exit<>1 UO.DeleteJournal() LastTimer=UO.Timer() UO.WaitMenu('Blacksmithing','Weapons','Weapons','Swords','Swords','dagger') ;Что куем UO.UseType(0x1BEF) ;Инги айрона
while NOT UO.InJournal("You put") AND NOT UO.InJournal("You have failed") wait(500) wend
If UO.InJournal("You have failed") then repeat wait(100) until UO.Timer()>=LastTimer+100 ;Время создания дагера EndIf
UO.FindType('0x0F51',-1,'backpack') wait(500)
If UO.GetQuantity('finditem') then UO.WaitTargetObject('finditem') UO.UseObject(0x4012B5AC) ; Форж Endif
UO.FindType('0x1BEF',-1,'backpack') If UO.GetQuantity('finditem')<10 then UO.FindType('0x1BEF','0x0000','0x4004CAE1') ;Cундук с ингами wait(1000) UO.Grab('1000','finditem') Endif wait(1000) wend end sub
##################################################### ### BowCraf BowBolts Script v. 1.00. ### ### ### ### Copyright & tested by cOoler on DRW Shard. ### ### ### ### Oficial DRW Shards site - http://www.drw.ru ### ##################################################### ##################################################### ### Инструкция по использованию и настройке. ### ##################################################### ### 1. Для работы этого скрипта надо: сундук, ### перья,шафты,пила(или другой инструмент). ### ### 2. Описание подготовки к запуску скрипта. ### Берём сундук (можно и backpack),меняем в скрипте ### ID сундука на свой,кладем в него шафты,а к себе в ### backpack перья и пилу,запускаем скрипт. ### ### 3. При использовании скрипта вам так или иначе ### придется менять конфигурации скрипта. ### Вот как и где это НУЖНО сделать: ### ### $ Сменa ID сундука и типа шафтов. ### 1) UO.FindType('тип шафтов','0x0000','backpack')- тут вы ### указываете: тип шафтов. ### 2) UO.FindType('тип шафтов','colour сундука','ID сундука')- тут вы ### указываете: тип шафтов,его colour,ID сундука. ##################################################### ### Конец инструкции. ### #####################################################
sub Bowcraft() repeat UO.FindType('0x1bd4','0x0000','backpack') put: If UO.GetQuantity('finditem')<1 then UO.FindType('0x1bd4','0x0000','0x40160062') ;Сериал сундука UO.Grab('1','finditem') wait(400) Endif UO.FindType('0x1bd4','0x0000','backpack') If UO.GetQuantity('finditem')<1 then goto put end if UO.Usetype('0x1bd4') UO.WaitMenu('Select arrow type','bolt') wait (1000) UO.DeleteJournal() while not (UO.InJournal("You put") or UO.InJournal("You fail")) wait(300) wend UO.UnSetReceivingContainer() wait(200) until UO.Dead() end sub
что то он у меня постоянно слетает или блокируется UNSP . Может че не так делаю ?
##################################################################### ; Bowcraft. v.1.02b (c) Edred ; ; Чар берет из сундука логи, крафтит из них шафты ; и складывает эти шафты в этот же сундук. ; Если логи закончились - выход. ; Если даггер (или что вы там используете) сломался - ; скрипт найдет аналогичный по типу в бэкпаке и возьмет ; в руки. ; sub bowcraft() VAR Sunduk = '0x4042B1A1' ; Сериал сундука VAR Logi = '0x1BDD' ; Тип логов VAR Shafts = '0x1BD4' ; Тип шафтов VAR Kolvo = 10 ; Брать логов для одного крафта VAR k = 0, j, dagger dagger = UO.ObjAtLayer( 'Rhand' ) UO.SetGlobal( 'instrtype', UO.GetGraphic( dagger ) ) While TRUE UO.FindType( Logi, -1, Sunduk ) ; Ищем логи в сундуке If UO.FindCount() == 0 Then UO.Print("Logs not found, script terminated") return else j = UO.GetQuantity( 'finditem' ) If j > Kolvo Then UO.Print( 'I can use ' + str( j ) + ' logs' ) else UO.Print( "I can't use " + str( j ) + " logs" ) return Endif Endif UO.Grab( Str( Kolvo ), 'finditem' ) ; Чтобы не сблочило УНСП wait(500) ; А это - динамическая пауза на мув while UO.Count( Logi ) < Kolvo wait(100) wend ; проверка на то, что в руках по-прежнему даггер If CheckInstr() == 0 Then UO.Print("You don't have daggers!" ) return Endif UO.DeleteJournal() UO.CancelMenu() UO.WaitMenu ('What do you want to carve', 'shaft' ) UO.WaitTargetType( Logi ) UO.UseObject( dagger ) k = 0 while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') AND ( k < 50 ) k = k + 1 wait(300) wend If UO.Count( Shafts ) > 0 then UO.FindType( Shafts, -1, -1 ) UO.MoveItem( 'finditem', 0, Sunduk ) wait(500) while UO.Count( Shafts ) > 0 wait(100) wend UO.Print( 'Shafts moved' ) Endif Wend end sub
Sub CheckInstr() ; проверим, есть ли в правой руке инструмент того же ; типа, что и в глобальной переменной instrtype ; если нет - найдем в бэкпаке такой инструмент и ; возьмем в правую руку. VAR typ = UO.GetGlobal( 'instrtype' ) VAR cur = UO.GetGraphic( UO.ObjAtLayer( 'Rhand' ) ) If typ == cur Then return 1 Endif UO.FindType( typ ) If UO.FindCount() == 0 Then return 0 Endif UO.Equip( 'RHand' , 'finditem' ) wait(1000) return 1 endsub
Да, у нас можно только сразу по 10 шафтов делать, глюки (баги) типа "кладем 10 и 1, из 1 делаем шафт" закрыты.
