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

Ошибка
http://forum.yoko.com.ua/viewtopic.php?f=20&t=9138		 Page 1 of 1
Author:  PARASITE [ 2006-10-23 06:41:45 ]
Post subject:  Ошибка
Народ подскажите плиз, вот тут накидал скрипт но он не пашет, пишет ошибку parser, у меня руки кривые, разобраться не могу. Подскажите плиз
Code:
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
Author:  DerMeister =) [ 2006-10-23 11:19:28 ]
Post subject: 
Во-первых: код надо делать в тегах [сode][/сode] !
Во-вторых: Кто тебя научил так писать:
Code:
uo.exec("cast 'Feeblemind' laststatus")
?? Это по-старинке. Тут только с кавычками напутаешь! Делай так:
Code:
uo.cast('Feeblemind','laststatus')


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

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


Он не закрывал repeat wend'ом.
Author:  Scripts Writer [ 2006-10-23 13:38:00 ]
Post subject: 
Code:

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, так как они тут не к делу, либо думай что ты хотел ими сказать.
Author:  DerMeister =) [ 2006-10-23 15:54:09 ]
Post subject: 
Quote:
You Must Die:
Code:
ЗЫ: Как увидел, что ты цикл repeat закрыл wend'ом, то дальше смотреть было просто противно


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

Я же сказал, что дальше не смотрел.[/quote]
Author:  PARASITE [ 2006-10-24 07:11:19 ]
Post subject: 
Примного благодарен за ответ You Must Die. Ещё вопросик, есть ли команда которая вкл/выкл хоткеи, а то у меня вся клава в биндах и поэтому не могу в игре писать.
Author:  Nmy [ 2006-10-24 09:26:33 ]
Post subject: 
PARASITE wrote:
Примного благодарен за ответ You Must Die. Ещё вопросик, есть ли команда которая вкл/выкл хоткеи, а то у меня вся клава в биндах и поэтому не могу в игре писать.


вот тебе фича:
жмакай капс лок и пишы все через шифт...
Author:  PARASITE [ 2006-10-24 09:33:12 ]
Post subject: 
ВО СПАСИБО!!!
Щас уберу все бинды с шифтом и будет и мне счастье =)ыыы
А то фиг чё напишешь кому :wink:
Author:  Scripts Writer [ 2006-10-24 17:35:02 ]
Post subject: 
PARASITE wrote:
ВО СПАСИБО!!!
Щас уберу все бинды с шифтом и будет и мне счастье =)ыыы
А то фиг чё напишешь кому :wink:


Бинди в клиенте.
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/