Yoko

Posted: **2006-10-23 06:41:45**

Народ подскажите плиз, вот тут накидал скрипт но он не пашет, пишет ошибку parser, у меня руки кривые, разобраться не могу. Подскажите плиз

Code: Select all

sub MagicRes()    
var Container='0x402094BB' 
var Exit=0 
repeat 

control_Mana(10)  
uo.exec("cast 'Feeblemind' laststatus")     
wait(2100)
control_Mana(10)  
uo.exec("cast 'Clumsy' laststatus")     
wait(2100) 
wend
checkLag()

if uo.Count(0x0F85)==0 then 
CheckLag() 
uo.FindType('0x0F85','0x0000',Container) 
if uo.GetQuantity('finditem')>0 then 
uo.MoveItem('finditem','400','backpack') 
else 
Exit=1 
end if 
end if 
if uo.Count(0x0F88)==0 then 
CheckLag() 
uo.FindType('0x0F88','0x0000',Container) 
if uo.GetQuantity('finditem')>0 then 
uo.MoveItem('finditem','800','backpack') 
else 
Exit=1 
end if 
end if 
if uo.Count(0x0F7B)==0 then 
CheckLag() 
uo.FindType('0x0F7B','0x0000',Container) 
if uo.GetQuantity('finditem')>0 then 
uo.MoveItem('finditem','400','backpack') 
else 
Exit=1 
end if 
end if 
wend    
CheckLag() 

uo.FindType('0x0F0E','0x09DF',Container) 
if uo.GetQuantity('finditem')>0 Then 
uo.MoveItem('finditem','100','backpack') 
end if    
wait(500) 
until UO.GetQuantity('finditem')==0        
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(500) 
until uo.InJournal('backpack') 
end sub 

sub control_Mana(need) 
if UO.Mana< need then 
uo.findtype ('0x0F0E','0x09DF','my') 
if uo.count('0x0F0E','0x09DF')>0 then 
uo.useobject ('finditem') 
wait(100) 
else  
uo.print('кончились манки ')   
endif 
endif 
end sub

Posted: **2006-10-23 11:19:28**

Во-первых: код надо делать в тегах [сode][/сode] !
Во-вторых: Кто тебя научил так писать:

Code: Select all

uo.exec("cast 'Feeblemind' laststatus")

?? Это по-старинке. Тут только с кавычками напутаешь! Делай так:

Code: Select all

uo.cast('Feeblemind','laststatus')

Это только так, к слову. А если серьёзно, то ошибки не по причине безграмотности, а по причине невежества! Тебе просто было впадлу читать хелп и faq! Думал, что по аналогии сделаешь? Так для этого нужно иметь хоть какието базовые знания по программированию. Кстате, школьного курса информатики вполне достаточно. Так что иди-ка почитай хотябы тот хелп, что идёт с инжектом.
ЗЫ: Как увидел, что ты цикл repeat закрыл wend'ом, то дальше смотреть было просто противно!

You Must Die:

Code: Select all

ЗЫ: Как увидел, что ты цикл repeat закрыл wend'ом, то дальше смотреть было просто противно

Он не закрывал repeat wend'ом.

Posted: **2006-10-23 13:38:00**

Code: Select all


sub MagicRes()    
var Container='0x402094BB' 
var Exit=0 
repeat 
  control_Mana(10)  
  uo.exec("cast 'Feeblemind' laststatus")     
  wait(2100)
  control_Mana(10)  
  uo.exec("cast 'Clumsy' laststatus")     
  wait(2100) 
wend
  checkLag()

if uo.Count(0x0F85)==0 then 
  CheckLag() 
  uo.FindType('0x0F85','0x0000',Container) 
  if uo.GetQuantity('finditem')>0 then 
    uo.MoveItem('finditem','400','backpack') 
  else 
    Exit=1 
  end if 
end if 
if uo.Count(0x0F88)==0 then 
  CheckLag()  
  uo.FindType('0x0F88','0x0000',Container) 
  if uo.GetQuantity('finditem')>0 then 
    uo.MoveItem('finditem','800','backpack') 
  else 
    Exit=1 
  end if 
end if 
if uo.Count(0x0F7B)==0 then 
  CheckLag() 
  uo.FindType('0x0F7B','0x0000',Container) 
  if uo.GetQuantity('finditem')>0 then 
    uo.MoveItem('finditem','400','backpack') 
  else 
    Exit=1 
  end if 
end if
 
wend
    
  CheckLag() 
  uo.FindType('0x0F0E','0x09DF',Container) 
  if uo.GetQuantity('finditem')>0 Then 
    uo.MoveItem('finditem','100','backpack') 
  end if    
  wait(500) 
until UO.GetQuantity('finditem')==0        
end sub

Что видишь по коду?
Лишние 2 wend. Они к чему относятся? К while,а такого у тебя в программе нету. Вывод: ты либо невнимательно редактировал этот скрипт, либо напутал. Убирай wend x2, так как они тут не к делу, либо думай что ты хотел ими сказать.

Posted: **2006-10-23 15:54:09**

You Must Die:
Code: Select all
ЗЫ: Как увидел, что ты цикл repeat закрыл wend'ом, то дальше смотреть было просто противно
Он не закрывал repeat wend'ом.

Я же сказал, что дальше не смотрел.[/quote]

Posted: **2006-10-24 07:11:19**

Примного благодарен за ответ You Must Die. Ещё вопросик, есть ли команда которая вкл/выкл хоткеи, а то у меня вся клава в биндах и поэтому не могу в игре писать.

Posted: **2006-10-24 09:26:33**

PARASITE wrote:Примного благодарен за ответ You Must Die. Ещё вопросик, есть ли команда которая вкл/выкл хоткеи, а то у меня вся клава в биндах и поэтому не могу в игре писать.

вот тебе фича:
жмакай капс лок и пишы все через шифт...

Posted: **2006-10-24 09:33:12**

ВО СПАСИБО!!!
Щас уберу все бинды с шифтом и будет и мне счастье =)ыыы
А то фиг чё напишешь кому

Posted: **2006-10-24 17:35:02**

PARASITE wrote:ВО СПАСИБО!!!
Щас уберу все бинды с шифтом и будет и мне счастье =)ыыы
А то фиг чё напишешь кому

Бинди в клиенте.

Yoko

Ошибка

Ошибка