Yoko
http://forum.yoko.com.ua/

ОЧЕНЬ ПРОШУ ОБГРАЙДИТЕ ОЧЕН ЛЕГКИЙ ПВП СКРИПТ
http://forum.yoko.com.ua/viewtopic.php?f=20&t=5102		 Page 1 of 1
Author:  AID [ 2005-09-08 12:28:32 ]
Post subject:  ОЧЕНЬ ПРОШУ ОБГРАЙДИТЕ ОЧЕН ЛЕГКИЙ ПВП СКРИПТ
Code:
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
Author:  Leo [ 2005-09-08 12:33:54 ]
Post subject: 
Code:
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
Author:  AID [ 2005-09-08 12:39:08 ]
Post subject: 
Leo , искрине от меня огромнейшее спасибо
Author:  Leo [ 2005-09-08 12:40:30 ]
Post subject: 
AID wrote:
Leo , искрине от меня огромнейшее спасибо

Делов-то...пару цифр исправить и несколько сторчек дописать :D
Author:  dUha [ 2005-09-08 21:07:24 ]
Post subject: 
так помойму будет быстрее
Code:
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
Author:  Leo [ 2005-09-08 21:11:36 ]
Post subject: 
dUha wrote:
так помойму будет быстрее
Code:
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 итема :roll:
Author:  666Man666 [ 2005-09-09 00:56:06 ]
Post subject: 
Макрос на поднятие сундуков? )
Author:  БуЛьбулятор [ 2005-09-10 02:12:32 ]
Post subject: 
А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а? :!:
Author:  Leo [ 2005-09-10 10:12:24 ]
Post subject: 
БуЛьбулятор wrote:
А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а? :!:

Дальше пишешь клавишу в поле Hotkey, при нажатии которой будет запускаться втой скрипт.
Author:  БуЛьбулятор [ 2005-09-10 23:01:17 ]
Post subject: 
Leo wrote:
БуЛьбулятор wrote:
А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а? :!:

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



ну я зделал как ты всё сказал тока оно нелутает а збоку выписует FINDDIST=3. В чём ошыбка то? спс
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/