Yoko

All sides of Injection
It is currently 2026-02-06 17:55:46

Unanswered topics | Active topics


» » »

All times are UTC+02:00



Post new topic  Reply to topic  Page 1 of 1
  [ 7 posts ] 
  Print view Previous topic | Next topic 
Author Message
XRaiderX
PostPosted: 2009-02-01 22:30:37 
Offline

Joined: 2009-02-01 22:23:20
Posts: 4
скрипт на лут работает нормально, но через какое то время возникает ошибка и окно ультимы закрывается, помогите понять в чем пролема

Code:
sub fastloot() 
var t,i 
t=1000                            
dim LootingItem[18]              
uo.Print('loot...')

LootingItem[0]=0x0EED  ## gp 
LootingItem[1]=0x1F1C  ## Сиды 
LootingItem[2]=0x14EB  ## Карты
LootingItem[3]=0x0E76  ## мешки 
LootingItem[4]=0x0E75  ## сумка 
LootingItem[5]=0x1BFB  ## Болты 
LootingItem[6]=0x0F3F  ## стрелы 
LootingItem[7]=0x0F8D  ## Spiders Slick  
LootingItem[8]=0x0F8C  ## Sulfurous Ash  
LootingItem[9]=0x0F88  ## NightShade  
LootingItem[10]=0x0F7A ## Black Pearls  
LootingItem[11]=0x0F84 ## Garlic  
LootingItem[12]=0x0F86 ## Mandrake Roots
LootingItem[13]=0x0F85 ## Ginseng
LootingItem[14]=0x0F7B ## Blood Moss
LootingItem[15]=0x1BD1 ## перья
LootingItem[16]=0x0E21 ## Бинты
LootingItem[17]=0x0F26 ## Diamond

for i=0 to 17                        
uo.FindType(LootingItem[i],'-1','lastcontainer') 
if uo.FindCount()>0 and uo.GetDistance('lastcontainer')<=3 then 
uo.Grab(0,'finditem')
uo.Print('Looting: '+str(uo.findcount())) 
wait(t) 
uo.Print('End loot.') 
end if 
next 

 
for i=0 to 17  
uo.set('finddistance','3')
uo.FindType(LootingItem[i],'-1','ground') 
if UO.FindCount() then 
uo.Grab(0,"finditem")
wait(t)
uo.Print('End loot.')
end if 
Next 
end sub


Last edited by XRaiderX on 2009-02-02 14:06:06, edited 1 time in total.

Top
   
Reply with quote  
ADEPT_ABP
 Post subject:
PostPosted: 2009-02-02 12:05:52 
Offline
User avatar

Joined: 2006-05-12 08:03:45
Posts: 223
Так не пробовал?

Code:
sub fastloot()
var t,i,a,b
t=1000
b='ground'
dim LootingItem[18]
uo.Print('loot...')
uo.set('finddistance','3')

LootingItem[0]='0x0EED' ## gp
LootingItem[1]='0x1F1C' ## Сиды
LootingItem[2]='0x14EB' ## Карты
LootingItem[3]='0x0E76' ## мешки
LootingItem[4]='0x0E75' ## сумка
LootingItem[5]='0x1BFB' ## Болты
LootingItem[6]='0x0F3F' ## стрелы
LootingItem[7]='0x0F8D' ## Spiders Slick
LootingItem[8]='0x0F8C' ## Sulfurous Ash
LootingItem[9]='0x0F88' ## NightShade
LootingItem[10]='0x0F7A' ## Black Pearls
LootingItem[11]='0x0F84' ## Garlic
LootingItem[12]='0x0F86' ## Mandrake Roots
LootingItem[13]='0x0F85' ## Ginseng
LootingItem[14]='0x0F7B' ## Blood Moss
LootingItem[15]='0x1BD1' ## перья
LootingItem[16]='0x0E21' ## Бинты
LootingItem[17]='0x0F26' ## Diamond

for a=0 to 1
repeat
for i=0 to 17
uo.FindType(LootingItem[i],'-1',b)
if UO.FindCount() then
uo.Grab(0,"finditem")
wait(t)
uo.Print('End loot.')
end if
Next
wait(100)
until uo.findcount()==0
b='lastcontainer'
next
end sub

_________________
Играю на drw.ru
Использую инжект 505.18 VeNd0r
Начинающий скриптер.


Last edited by ADEPT_ABP on 2009-02-02 21:14:43, edited 1 time in total.

Top
   
Reply with quote  
XRaiderX
 Post subject:
PostPosted: 2009-02-02 13:12:41 
Offline

Joined: 2009-02-01 22:23:20
Posts: 4
спс попробую
Top
   
Reply with quote  
XRaiderX
 Post subject:
PostPosted: 2009-02-02 13:22:39 
Offline

Joined: 2009-02-01 22:23:20
Posts: 4
ADEPT_ABP wrote:
Так не пробовал?

Code:
sub fastloot()
var t,i
t=1000
dim LootingItem[18]
uo.Print('loot...')
uo.set('finddistance','3')

LootingItem[0]='0x0EED' ## gp
LootingItem[1]='0x1F1C' ## Сиды
LootingItem[2]='0x14EB' ## Карты
LootingItem[3]='0x0E76' ## мешки
LootingItem[4]='0x0E75' ## сумка
LootingItem[5]='0x1BFB' ## Болты
LootingItem[6]='0x0F3F' ## стрелы
LootingItem[7]='0x0F8D' ## Spiders Slick
LootingItem[8]='0x0F8C' ## Sulfurous Ash
LootingItem[9]='0x0F88' ## NightShade
LootingItem[10]='0x0F7A' ## Black Pearls
LootingItem[11]='0x0F84' ## Garlic
LootingItem[12]='0x0F86' ## Mandrake Roots
LootingItem[13]='0x0F85' ## Ginseng
LootingItem[14]='0x0F7B' ## Blood Moss
LootingItem[15]='0x1BD1' ## перья
LootingItem[16]='0x0E21' ## Бинты
LootingItem[17]='0x0F26' ## Diamond

repeat
for i=0 to 17
uo.FindType(LootingItem[i],'-1','ground')
if UO.FindCount() then
uo.Grab(0,"finditem")
wait(t)
uo.Print('End loot.')
end if
Next
wait(100)
until uo.findcount()==0
end sub


да так ошибка не возникает , но этот скрипт лутит только вещи с земли, а ластконтейнер не лутит. Каким образом сюда можно вставить
Code:
  
uo.FindType(LootingItem[i],'-1','lastcontainer')
Top
   
Reply with quote  
ADEPT_ABP
 Post subject:
PostPosted: 2009-02-02 21:15:22 
Offline
User avatar

Joined: 2006-05-12 08:03:45
Posts: 223
Поправил. Тести.

_________________
Играю на drw.ru

Использую инжект 505.18 VeNd0r

Начинающий скриптер.
Top
   
Reply with quote  
XRaiderX
 Post subject:
PostPosted: 2009-02-02 21:51:25 
Offline

Joined: 2009-02-01 22:23:20
Posts: 4
Спасибо! Все отлично работает, ошибка не вылетает - вобщем то что хотел)

Code:
for a=0 to 1


подскажи что это за строчка в скрипте?
Top
   
Reply with quote  
ADEPT_ABP
 Post subject:
PostPosted: 2009-02-03 22:16:47 
Offline
User avatar

Joined: 2006-05-12 08:03:45
Posts: 223
XRaiderX wrote:
Code:
for a=0 to 1


подскажи что это за строчка в скрипте?


для проверки
сначала переменная b это - земля, потом присваивается переменной b значение ластконтайнер и снова проверка.

_________________
Играю на drw.ru

Использую инжект 505.18 VeNd0r

Начинающий скриптер.
Top
   
Reply with quote  
Display posts from previous:  Sort by  
Post new topic  Reply to topic  Page 1 of 1
  [ 7 posts ] 

» » »

All times are UTC+02:00

Who is online

Users browsing this forum: No registered users and 4 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:  
Powered by phpBB® Forum Software © phpBB Limited