Yoko

Я играю на ДрВ и вот такая фигня: вроде скрипт должен работать.....
а он не работает....
=((

посмотрите мож кто поправит...



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

БиоЁжиК (ДрВ) 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


Попробуй этот

2 Moke

Нет ты может не понял....
у меня скрипт был на боукрафтинг....
чар должен брать из сундука логи по 1 и делать заготовки для стрел (шафты).....

БиоЁжиК (ДрВ) 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

вот он:

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

Сильно! Чувствуется что в основе лежит мое творение, но так испохабить.....
К сожалению оригинал не сохранился.

а теперь.....


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