Скрипты и Клуб.
Moderators: Murderator+, Murderator
1111
Что такое "ПОЛНЫЙ" майнинг ? Если уж просишь то напиши точно
Ну чтоб ходил по песщере и реколелся от синих и от красных и не в одной пещере капал а в нескольких а полный это сразу целеком скрипт а не обрывками Напиши плиззз
Ну чтоб ходил по песщере и реколелся от синих и от красных и не в одной пещере капал а в нескольких а полный это сразу целеком скрипт а не обрывками Напиши плиззз
Re: 1111
AD wrote:Что такое "ПОЛНЫЙ" майнинг ? Если уж просишь то напиши точно
Ну чтоб ходил по песщере и реколелся от синих и от красных и не в одной пещере капал а в нескольких а полный это сразу целеком скрипт а не обрывками Напиши плиззз
За ВМЗ любой возьмётся.
Халявы не будет.
Сделал дело - флуди смело !!!
почти: http://yoko.netroof.net/forum/viewtopic.php?t=2811BorN2KiLL wrote:Люди ктонебудь может написать скрипт на картографию чтоб чар рисовал карты и уже использованые карты сразуже выкидывал на пол, или после таво как все карты перерисует чтоб выбрасывал их на землю...
За ранее благодарен!
-
- Posts: 96
- Joined: 2005-08-25 23:35:29
Люди, это скрипт который делает "Lesser Poison". Как его переделать чтобы он делал "Poison"? Помогите пожалуйста.
Code: Select all
sub alchemy()
# BETEP™ #
VAR Exit=0, LastTimer
uo.print('Сундук с регами и бутылками')
uo.exec('addobject Bag')
while uo.targeting()
wait(100)
wend
uo.print('Сундук куда бутылки бросать')
uo.exec('addobject Bag2')
while uo.targeting()
wait(100)
wend
while Exit<>1
UO.DeleteJournal()
UO.FindType('0x0F0E','0x0998','backpack')
If UO.GetQuantity('finditem')>0 Then
UO.SetReceivingContainer('Bag2')
wait(1000)
UO.Grab('all','finditem')
wait(1000)
UO.UnSetReceivingContainer()
Endif
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
UO.FindType('0x0F88','0x0000','backpack')
If UO.GetQuantity('finditem')<20 then
UO.FindType('0x0F88','0x0000','Bag')
wait(1000)
UO.Grab('400','finditem')
wait(1000)
Endif
LastTimer=UO.Timer()
UO.DeleteJournal()
UO.UseType('0x0F88')
UO.WaitMenu('What','Poison')
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
EndIf
wend
end sub