| Yoko http://forum.yoko.com.ua/ |
|
| Люди... помогите разобраться со скриптом...... http://forum.yoko.com.ua/viewtopic.php?f=20&t=685 |
Page 1 of 1 |
| Author: | БиоЁжиК (ДрВ) [ 2004-06-26 20:55:46 ] |
| Post subject: | Люди... помогите разобраться со скриптом...... |
Я играю на ДрВ и вот такая фигня: вроде скрипт должен работать..... а он не работает.... =(( посмотрите мож кто поправит... sub shaft() loop: VAR Exit=0, LastTimer, TryToPoison while Exit<>1 ; ToHide() UO.DeleteJournal() UO.FindType('0x1BDD',-1,'backpack') If UO.GetQuantity('finditem')<1 then UO.FindType('0x1BDD','0x0000','0x401d51de') ; sunduk s butilkami UO.Unsetreceivingcontainer() wait(1000) UO.Grab('1','finditem') wait(1000) Endif UO.WaitMenu('What','shaft') UO.Waittargettype('0x1BDD') UO.UseType('0x0F51') while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting") wait(1000) wend If UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting") then UO.WaitMenu('What','shaft') UO.Waittargettype('0x1BDD') UO.UseType('0x0F51') wait(3000) EndIf Uo.Findtype('0x1BD4',-1,'backpack') If Uo.GetQuantity('finditem')>5 then UO.Setreceivingcontainer('0x401d51de') UO.Grab('5','finditem') wait(1000) Endif wend goto loop end sub |
|
| Author: | M0ke [ 2004-06-26 21:11:01 ] |
| Post subject: | Re: Люди... помогите разобраться со скриптом...... |
БиоЁжиК (ДрВ) wrote: Я играю на ДрВ и вот такая фигня: вроде скрипт должен работать.....
а он не работает.... =(( посмотрите мож кто поправит... sub shaft() loop: VAR Exit=0, LastTimer, TryToPoison while Exit<>1 ; ToHide() UO.DeleteJournal() UO.FindType('0x1BDD',-1,'backpack') If UO.GetQuantity('finditem')<1 then UO.FindType('0x1BDD','0x0000','0x401d51de') ; sunduk s butilkami UO.Unsetreceivingcontainer() wait(1000) UO.Grab('1','finditem') wait(1000) Endif UO.WaitMenu('What','shaft') UO.Waittargettype('0x1BDD') UO.UseType('0x0F51') while NOT UO.InJournal("You put") AND NOT UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting") wait(1000) wend If UO.InJournal("You fail to") AND NOT UO.InJournal("Targeting") then UO.WaitMenu('What','shaft') UO.Waittargettype('0x1BDD') UO.UseType('0x0F51') wait(3000) EndIf Uo.Findtype('0x1BD4',-1,'backpack') If Uo.GetQuantity('finditem')>5 then UO.Setreceivingcontainer('0x401d51de') UO.Grab('5','finditem') wait(1000) Endif wend goto loop end sub ;Скрипт на Alchemy/Poison --> Dagger//SpiritSpeak sub AlchemyPoison() VAR Exit=0, LastTimer, TryToPoison while Exit<>1 UO.DeleteJournal() UO.FindType('0x0F0E',-1,'backpack') ; Бутылки If UO.GetQuantity('finditem')<10 then UO.FindType('0x0F0E','0x0000','0x40160062') ; Контейнер с бутылками (bottle, container) wait(1000) UO.Grab('500','finditem') wait(100) Endif UO.FindType('0x0F88','0x0000','backpack') ; Найт шейд If UO.GetQuantity('finditem')<20 then UO.FindType('0x0F88','0x0000','0x40160062') ; Найт шейд , Контейнер wait(1000) UO.Grab('1000','finditem') wait(500) Endif LastTimer=UO.Timer() UO.WaitMenu('What','(last)') ; Меню UO.UseType(0x0F88) ; Найт Шейд while NOT UO.InJournal("You put") AND NOT UO.InJournal("You toss the failed") wait(500) wend If UO.InJournal("You toss the failed") then repeat wait(100) until UO.Timer()>=LastTimer+100 ; Время создания даггера Else TryToPoison=1 repeat UO.FindType('0x0F0E','0x0998','my') If UO.GetQuantity('finditem')>0 then UO.UseSkill('Poisoning') UO.WaitTargetObject('0x400A31F7','finditem') ; Даггер ; UO.UseSkill('Poisoning') wait(4000) Else TryToPoison=0 Endif EndIf UO.UseSkill('Spirit Speak') wait(3000) wend end sub Попробуй этот |
|
| Author: | БиоЁжиК (ДрВ) [ 2004-06-26 21:16:58 ] |
| Post subject: | |
2 Moke Нет ты может не понял.... у меня скрипт был на боукрафтинг.... чар должен брать из сундука логи по 1 и делать заготовки для стрел (шафты)..... |
|
| Author: | M0ke [ 2004-06-26 21:57:58 ] |
| Post subject: | |
БиоЁжиК (ДрВ) wrote: 2 Moke
Нет ты может не понял.... у меня скрипт был на боукрафтинг.... чар должен брать из сундука логи по 1 и делать заготовки для стрел (шафты)..... Вот : ##################################################### ### BowCraf Shafts 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 сундука. ### ### $ Сменa типа инструмента. ### UO.Usetype('тип Даггера')- тут вы указываете: тип Даггера ### (каким будете крафтить). ##################################################### ### Конец инструкции. ### ##################################################### sub BowCraftShafts() repeat UO.FindType('0x1BDD','0x0000','backpack') put: If UO.GetQuantity('finditem')<1 then UO.FindType('0x1BDD','0x0000','0x40160062') ;Cериал сундука UO.Grab('1','finditem') wait(1000) Endif UO.FindType('0x1BDD','0x0000','backpack') If UO.GetQuantity('finditem')<1 then goto put end if UO.WaittargetType('0x1BDD') UO.Usetype('0x0F51') ;Даггер UO.WaitMenu('What do you want to carve the wood into?','shaft') 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 |
|
| Author: | БиоЁжиК (ДрВ) [ 2004-06-26 22:22:47 ] |
| Post subject: | |
вот он: sub main() VAR Sunduk = '0x401d51de' VAR Logi = '0x1BDD' VAR dagger = '0x0f51' VAR shaft = '0xDBF' VAR Kolvo = 1 While TRUE UO.FindType( Logi, -1, 1 ) UO.Grab( Str( Kolvo ), 'finditem' ) wait( 2000 ) If UO.FindCount() == 0 Then UO.Print("Logs not found, script terminated") return Endif While UO.Count( Logi ) > 0 UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' ) UO.DeleteJournal() UO.CancelMenu() UO.WaitMenu('What','shaft') UO.Waittargettype('0x1BDD') UO.UseType('0x0F51') while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') wait(500) wend ; Wait( 14000 ) Wend Wend end sub |
|
| Author: | Savage [ 2004-06-26 22:25:30 ] |
| Post subject: | |
Сильно! Чувствуется что в основе лежит мое творение, но так испохабить..... К сожалению оригинал не сохранился. |
|
| Author: | БиоЁжиК (ДрВ) [ 2004-06-26 22:29:41 ] |
| Post subject: | |
а теперь..... sub main() VAR Sunduk = '0x401d51de' VAR Logi = '0x1BDD' VAR dagger = '0x0f51' VAR shaft = '0xDBF' VAR Kolvo = 1 While TRUE UO.FindType( Logi, -1, 1 ) UO.Grab( Str( Kolvo ), 'finditem' ) wait( 2000 ) If UO.FindCount() == 0 Then UO.Print("Logs not found, script terminated") return Endif While UO.Count( Logi ) > 0 UO.Print('Ostalos ' + Str( UO.Count( Logi ) ) + ' logov' ) UO.DeleteJournal() UO.CancelMenu() UO.Waittargettype('logi') UO.UseType('dagger') UO.WaitMenu('What','shaft') while NOT UO.InJournal('You put') AND NOT UO.InJournal('fail') wait(500) wend ; Wait( 14000 ) Wend Wend end sub |
|
| Page 1 of 1 | All times are UTC+02:00 |
| Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/ |
|