Подправте маленькии скриптец

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Подправте маленькии скриптец

Post by -=WOLVERINE=- »

Code: Select all

sub main()
Uo.FindType('0x0000','0xffff','ground')
UO.MoveItem("finditem","-1","backpack")
UO.Ignore("finditem")
UO.IgnoreReset()
wait(2000)
end if
end sub


Вот накалякал тут скриптец: суть его в том чтобы собирать вещи с земли (заданныи тип ) в моем случае он собирает вещи...Но!
Он собирает только один раз, тоесть собирает одну вещь этого типа и останавливаеться....как зделать так чтобы он останавливался только после того как собрал все вещи этого типа?
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Image
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

Leo wrote:https://yoko.uokit.com/viewtopic.php?p=29438#29438

это не то...к сожалению :(
Destruction
Junior Expert
Posts: 3221
Joined: 2004-06-24 22:08:56

Post by Destruction »

Зацикливание без циклов невозможно -)

Три варианта вечного цикла:
1.

Code: Select all

repeat
Your code
until false

2.

Code: Select all

while true
Your code
wend

3.

Code: Select all

for i=1 to 0
Your code
next
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

Destruction wrote:Зацикливание без циклов невозможно -)

Три варианта вечного цикла:
1.

Code: Select all

repeat
Your code
until false

2.

Code: Select all

while true
Your code
wend

3.

Code: Select all

for i=1 to 0
Your code
next

Это конечно хорошо ...но мне нужно чтоб он останавливался после того как забрал все вещи данного типа :) ну или цвета но это не так и важно 6)
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Image
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

Leo wrote:https://yoko.uokit.com/viewtopic.php?t=3056

Лева читаи выше...про терминеит я знаю...а вот сделать так чтоб закрывалс крипт послде того как все сбагрит с земли я не могу:(
Leo
Expert!
Posts: 791
Joined: 2005-01-15 19:15:05
Location: Dragon World
Contact:

Post by Leo »

Code: Select all

if UO.FindCount()==0
UO.Exec("terminate 'Название процедуры'")
endif
Last edited by Leo on 2005-09-28 12:44:01, edited 1 time in total.
Image
-=WOLVERINE=-
Posts: 66
Joined: 2004-05-27 18:19:17
Contact:

Post by -=WOLVERINE=- »

Все всем спасибо я уже сам накалякал и все работает :)

Code: Select all

sub XXXX()
UO.Ignore( 'self' )
UO.Set('finddistance','3')
Repeat
Uo.FindType('0x0000','0xffff','ground')
wait(100)
  UO.Grab( '1', 'finditem' )
  wait(500)
  Until UO.FindCount() == 0
end sub

ПОльзуите кому надо :)
Post Reply