Ошибка

Anything and all.

Moderators: Murderator+, Murderator

Post Reply
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Ошибка

Post by PARASITE »

Народ подскажите плиз, вот тут накидал скрипт но он не пашет, пишет ошибку 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
DerMeister =)
Expert!
Posts: 1032
Joined: 2006-02-25 21:48:38

Post by DerMeister =) »

Во-первых: код надо делать в тегах [с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'ом.
DerMeister сейчас на нейрале!
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

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, так как они тут не к делу, либо думай что ты хотел ими сказать.
DerMeister =)
Expert!
Posts: 1032
Joined: 2006-02-25 21:48:38

Post by DerMeister =) »

You Must Die:

Code: Select all

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


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

Я же сказал, что дальше не смотрел.[/quote]
DerMeister сейчас на нейрале!
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Post by PARASITE »

Примного благодарен за ответ You Must Die. Ещё вопросик, есть ли команда которая вкл/выкл хоткеи, а то у меня вся клава в биндах и поэтому не могу в игре писать.
Nmy
Expert!
Posts: 2152
Joined: 2005-09-14 15:31:58
Location: Latvia

Post by Nmy »

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


вот тебе фича:
жмакай капс лок и пишы все через шифт...
PARASITE
Posts: 22
Joined: 2004-11-22 10:43:29

Post by PARASITE »

ВО СПАСИБО!!!
Щас уберу все бинды с шифтом и будет и мне счастье =)ыыы
А то фиг чё напишешь кому :wink:
Scripts Writer
Posts: 2259
Joined: 2005-04-19 18:00:29
Location: Московская область
Contact:

Post by Scripts Writer »

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


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