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

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

Помогите найти ошибку в скрипте. http://forum.yoko.com.ua/viewtopic.php?f=20&t=3548	Page 1 of 1

Author:

Optical [ 2005-03-30 18:20:11 ]

Post subject:

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

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

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

спасибо.

Code:

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

Author:	Optical [ 2005-04-01 23:45:10 ]
Post subject:
И Всёже? =)

Author:	CErebrus [ 2005-04-02 17:16:05 ]
Post subject:
а знаешь почему все карты скидывает ! ПОтомучто у всех карт даже бланков тип один

Author:	Optical [ 2005-04-03 09:29:39 ]
Post subject:
CErebrus wrote: а знаешь почему все карты скидывает ! ПОтомучто у всех карт даже бланков тип один Да неужели, серьёзно члитолИ!? Если в скриптах ничего не понимаешь, то и нечего тут флудить.

Author:

Optical [ 2005-04-03 12:02:40 ]

Post subject:

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

Code:

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

Author:	flake [ 2005-04-03 14:54:16 ]
Post subject:
Хм... Code: If UO.Journal("(2 level)") then А зачем тебе еще одни скобки внутри кавычек? Попробуй их убрать, возможно из-за этого скрипт глючит.

Author:	Optical [ 2005-04-03 18:14:14 ]
Post subject:
flake wrote: Хм... Code: If UO.Journal("(2 level)") then А зачем тебе еще одни скобки внутри кавычек? Попробуй их убрать, возможно из-за этого скрипт глючит. Да нет, писал по разному, один и тотже эффект

Page 1 of 1	All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited https://www.phpbb.com/