Помогите найти ошибку в скрипте.

Optical · Post by **Optical** » 2005-03-30 18:20:11

Всем здрасте.
Писал скрипт, он у меня нивкакую не роббит

Задумка в сл. берёт карту из мешочка, кликает по ней, если пишеться что она 1го лвл, кидает её в треш, если др. лвл, в др. мешочек. Скрипт просто напросто скидвает все карты в мешочек, независимо от того, какого она лвл. Помогите :roll:

спасибо.

Code: Select all

sub one_level_in_trah()
VAR MAPcont='0x403388B7'
VAR trashID='0x40270287'
VAR UNLcont='0x4035C6AC'

start:
UO.FindType('0x14EB',-1,MAPcont)
   if UO.FindCount('finditem') == 0 then
    uo.msg('ALL maps 1 level, IN TRASH!')
    uo.exec('terminate ALL')
   endif

UO.MoveItem('finditem',0,'backpack')
 CheckLag()
 UO.DeleteJournal()
  uo.click('finditem')
   wait(3000)
   uo.print('---')
    If UO.InJournal("level 1") then
      UO.MoveItem('finditem','0',trashID)
     else
      UO.MoveItem('finditem','0',UNLcont)
    endif
goto start
end sub


Sub CheckLag() 
   DeleteJournal( 'backpack' ) 
   UO.Click( 'backpack' ) 
   repeat 
      wait(100) 
   until UO.InJournal( 'backpack' ) 
   return 
end sub 

Sub DeleteJournal( string1 ) 
   VAR nom = UO.InJournal( string1 ) 
   If nom > 0 Then 
      UO.SetJournalLine( Nom - 1, 'string replaced' ) 
      DeleteJournal( string1 ) 
   Endif 
endsub

Optical · Post by **Optical** » 2005-04-01 23:45:10

И Всёже? =)

CErebrus · Post by **CErebrus** » 2005-04-02 17:16:05

а знаешь почему все карты скидывает ! ПОтомучто у всех карт даже бланков тип один

Optical · Post by **Optical** » 2005-04-03 09:29:39

CErebrus wrote:а знаешь почему все карты скидывает ! ПОтомучто у всех карт даже бланков тип один

Да неужели, серьёзно члитолИ!?
Если в скриптах ничего не понимаешь, то и нечего тут флудить.

Optical · Post by **Optical** » 2005-04-03 12:02:40

Хм, попробывал его изменить, всё равно тоже самое. Тут какая то не правельная обработка журнала =) Подскажи те же =)

Code: Select all

sub one_level_in_trah()
VAR MAPcont='0x4005A28A'
VAR trashID='0x40270287'
VAR UNLcont='0x40305FCB'

start:
UO.FindType('0x14EB',-1,MAPcont)
   if UO.FindCount('finditem') == 0 then
    uo.msg('ALL maps 1 level, IN TRASH!')
    uo.exec('terminate ALL')
   endif

UO.MoveItem('finditem',0,'backpack')
 CheckLag()
 UO.DeleteJournal()
  uo.click('finditem')
   while NOT UO.InJournal("level")
      wait(100)
   wend
If UO.Journal("(1 level)") then
   UO.MoveItem('finditem','0',trashID)
     wait(500)
endif
 If UO.Journal("(2 level)") then
   UO.MoveItem('finditem','0',UNLcont)
     wait(500)
 endif
  If UO.Journal("(3 level)") then
   UO.MoveItem('finditem','0',UNLcont)
     wait(500)
  endif
goto start
end sub

flake · Post by **flake** » 2005-04-03 14:54:16

Хм...

Code: Select all

If UO.Journal("(2 level)") then

А зачем тебе еще одни скобки внутри кавычек? Попробуй их убрать, возможно из-за этого скрипт глючит.

Optical · Post by **Optical** » 2005-04-03 18:14:14

flake wrote:Хм...
Code: Select all
If UO.Journal("(2 level)") then 
А зачем тебе еще одни скобки внутри кавычек? Попробуй их убрать, возможно из-за этого скрипт глючит.

Да нет, писал по разному, один и тотже эффект