Yoko

Posted: **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

Posted: **2005-04-01 23:45:10**

И Всёже? =)

Posted: **2005-04-02 17:16:05**

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

Posted: **2005-04-03 09:29:39**

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

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

Posted: **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

Posted: **2005-04-03 14:54:16**

Хм...

Code: Select all

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

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

Posted: **2005-04-03 18:14:14**

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

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

Yoko

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

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