Yoko

Posted: **2005-09-08 12:28:32**

sub Loot() 
var n 
Dim Item[2] 
Item[1] = '0x0F36' ; вид сундука 
Item[2] = '0x0E7F' ; вид флипнутого сундука 
UO.Set('finddistance','3') 
For n = 1 to 2 
REPEAT
UO.FindType(Item[n],'-1','1') 
If UO.FindCount() Then 
UO.MoveItem('finditem','1','2') 
Wait(1000) 
EndIf 
Until UO.FindCount()==0 or UO.Dead()
next
end sub

Он лутает только 2 вещи , а надо чтобы лутал вещей 10

Posted: **2005-09-08 12:33:54**

Code: Select all

sub Loot() 
var n 
Dim Item[10] 
Item[1] = '0x0F36' 
Item[2] = '0x0E7F'
Item[3] = '0x0F36'
Item[4] = '0x0E7F' 
Item[5] = '0x0F36'
Item[6] = '0x0E7F' 
Item[7] = '0x0F36'
Item[8] = '0x0E7F' 
Item[9] = '0x0F36'
Item[10] = '0x0E7F' 
UO.Set('finddistance','3') 
For n = 1 to 10
REPEAT 
UO.FindType(Item[n],'-1','1') 
If UO.FindCount() Then 
UO.MoveItem('finditem','1','2') 
Wait(1000) 
EndIf 
Until UO.FindCount()==0 or UO.Dead() 
next 
end sub

Posted: **2005-09-08 12:39:08**

Leo , искрине от меня огромнейшее спасибо

Posted: **2005-09-08 12:40:30**

AID wrote:Leo , искрине от меня огромнейшее спасибо

Делов-то...пару цифр исправить и несколько сторчек дописать

Posted: **2005-09-08 21:07:24**

так помойму будет быстрее

Code: Select all

sub Loot() 
var n , m
Dim Item[2] 
Item[1] = '0x0F36' ; вид сундука 
Item[2] = '0x0E7F' ; вид флипнутого сундука 
UO.Set('finddistance','3') 
For m = 1 to 5
For n = 1 to 2 
REPEAT 
UO.FindType(Item[n],'-1','1') 
If UO.FindCount() Then 
UO.MoveItem('finditem','1','2') 
Wait(1000) 
EndIf 
Until UO.FindCount()==0 or UO.Dead() 
next 
next
end sub

Posted: **2005-09-08 21:11:36**

dUha wrote:так помойму будет быстрее

Code: Select all

sub Loot() 
var n , m
Dim Item[2] 
Item[1] = '0x0F36' ; вид сундука 
Item[2] = '0x0E7F' ; вид флипнутого сундука 
UO.Set('finddistance','3') 
For m = 1 to 5
For n = 1 to 2 
REPEAT 
UO.FindType(Item[n],'-1','1') 
If UO.FindCount() Then 
UO.MoveItem('finditem','1','2') 
Wait(1000) 
EndIf 
Until UO.FindCount()==0 or UO.Dead() 
next 
next
end sub

По-прежнему будет искать 2 итема

Posted: **2005-09-09 00:56:06**

Макрос на поднятие сундуков? )

Posted: **2005-09-10 02:12:32**

А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а?

Posted: **2005-09-10 10:12:24**

БуЛьбулятор wrote:А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а?

Дальше пишешь клавишу в поле Hotkey, при нажатии которой будет запускаться втой скрипт.

Posted: **2005-09-10 23:01:17**

Leo wrote:
БуЛьбулятор wrote:А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а?
Дальше пишешь клавишу в поле Hotkey, при нажатии которой будет запускаться втой скрипт.

ну я зделал как ты всё сказал тока оно нелутает а збоку выписует FINDDIST=3. В чём ошыбка то? спс

Yoko

ОЧЕНЬ ПРОШУ ОБГРАЙДИТЕ ОЧЕН ЛЕГКИЙ ПВП СКРИПТ

ОЧЕНЬ ПРОШУ ОБГРАЙДИТЕ ОЧЕН ЛЕГКИЙ ПВП СКРИПТ