Yoko

All sides of Injection
It is currently 2025-12-04 03:24:25

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 10 posts ] 
  Print view Previous topic | Next topic 
Author Message
AID
PostPosted: 2005-09-08 12:28:32 
Offline

Joined: 2005-01-15 20:13:34
Posts: 15
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
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-09-08 12:33:54 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
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
Top
   
Reply with quote  
AID
 Post subject:
PostPosted: 2005-09-08 12:39:08 
Offline

Joined: 2005-01-15 20:13:34
Posts: 15
Leo , искрине от меня огромнейшее спасибо
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-09-08 12:40:30 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
AID wrote:
Leo , искрине от меня огромнейшее спасибо

Делов-то...пару цифр исправить и несколько сторчек дописать :D
Top
   
Reply with quote  
dUha
 Post subject:
PostPosted: 2005-09-08 21:07:24 
Offline
User avatar

Joined: 2005-07-06 04:57:14
Posts: 13
так помойму будет быстрее
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
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-09-08 21:11:36 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
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:
Top
   
Reply with quote  
666Man666
 Post subject:
PostPosted: 2005-09-09 00:56:06 
Offline
Junior Expert
User avatar

Joined: 2004-11-13 00:43:55
Posts: 474
Location: Киберзадроцк
Макрос на поднятие сундуков? )
Top
   
Reply with quote  
БуЛьбулятор
 Post subject:
PostPosted: 2005-09-10 02:12:32 
Offline

Joined: 2005-08-12 23:07:04
Posts: 3
А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а? :!:
Top
   
Reply with quote  
Leo
 Post subject:
PostPosted: 2005-09-10 10:12:24 
Offline
Expert!
User avatar

Joined: 2005-01-15 19:15:05
Posts: 791
Location: Dragon World
БуЛьбулятор wrote:
А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а? :!:

Дальше пишешь клавишу в поле Hotkey, при нажатии которой будет запускаться втой скрипт.
Top
   
Reply with quote  
БуЛьбулятор
 Post subject:
PostPosted: 2005-09-10 23:01:17 
Offline

Joined: 2005-08-12 23:07:04
Posts: 3
Leo wrote:
БуЛьбулятор wrote:
А как прописать чтоб скрипт роботал а?
exec loot а дальше чё там надо писать а? :!:

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



ну я зделал как ты всё сказал тока оно нелутает а збоку выписует FINDDIST=3. В чём ошыбка то? спс
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 10 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 2 guests

You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited