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

SortScroll подскажите?
http://forum.yoko.com.ua/viewtopic.php?f=3&t=17378		 Page 1 of 1
Author:  podfag [ 2014-01-16 23:33:45 ]
Post subject:  SortScroll подскажите?
Доброй Ночи, проблема с 107 строкой
wait(1000)
CheckLag() <- 107 строка!
UO.FindType( temptyp )

Выдает Function not found - CHECKLAG

Подскажите как исправить!?


#####################################################################
; ScrollSort v.1.00 (c) Edred

sub ScrollSort()
VAR Spellbk = '0x0EFA', i, j, temptyp, tempob, tempnam
; DIM Scrolls[64]
; Scrolls[0] = '' ; 1: Clumsy
; Scrolls[1] = '' ; 1: Create Food
; Scrolls[2] = '' ; 1: Feeblemind
; Scrolls[3] = '0x1F31' ; 1: Heal
; Scrolls[4] = '0x1F32' ; 1: Magic Arrow
; Scrolls[5] = '0x1F33' ; 1: Night Sight
; Scrolls[6] = '' ; 1: Reactive Armor
; Scrolls[7] = '0x1F34' ; 1: Weaken
; Scrolls[8] = '' ; 2: Agility
; Scrolls[9] = '' ; 2: Cunning
; Scrolls[10] = '0x1F37' ; 2: Cure
; Scrolls[11] = '0x1F38' ; 2: Harm
; Scrolls[12] = '0x1F39' ; 2: Magic Trap
; Scrolls[13] = '0x1F3A' ; 2: Magic Untrap
; Scrolls[14] = '' ; 2: Protection
; Scrolls[15] = '' ; 2: Strength
; Scrolls[16] = '0x1F3D' ; 3: Bless
; Scrolls[17] = '0x1F3E' ; 3: Fireball
; Scrolls[18] = '0x1F3F' ; 3: Magic Lock
; Scrolls[19] = '0x1F40' ; 3: Poison
; Scrolls[20] = '0x1F41' ; 3: Telekinesis
; Scrolls[21] = '' ; 3: Teleport
; Scrolls[22] = '' ; 3: Unlock
; Scrolls[23] = '0x1F44' ; 3: Wall of Stone
; Scrolls[24] = '' ; 4: Arch Cure
; Scrolls[25] = '' ; 4: Arch Protection
; Scrolls[26] = '' ; 4: Curse
; Scrolls[27] = '0x1F48' ; 4: Fire Field
; Scrolls[28] = '' ; 4: Greater Heal
; Scrolls[29] = '' ; 4: Lightning
; Scrolls[30] = '' ; 4: Mana Drain
; Scrolls[31] = '0x1F4B' ; 4: Recall
; Scrolls[32] = '' ; 5: Blade Spirit
; Scrolls[33] = '' ; 5: Dispel Field
; Scrolls[34] = '0x1F4F' ; 5: Incognito
; Scrolls[35] = '' ; 5: Magic Reflection
; Scrolls[36] = '' ; 5: Mind Blast
; Scrolls[37] = '0x1F52' ; 5: Paralyze
; Scrolls[38] = '' ; 5: Poison Field
; Scrolls[39] = '0x1F54' ; 5: Summon Creature
; Scrolls[40] = '0x1F55' ; 6: Dispel
; Scrolls[41] = '' ; 6: Energy Bolt
; Scrolls[42] = '0x1F57' ; 6: Explosion
; Scrolls[43] = '0x1F58' ; 6: Invisibility
; Scrolls[44] = '0x1F59' ; 6: Mark
; Scrolls[45] = '0x1F5A' ; 6: Mass Curse
; Scrolls[46] = '' ; 6: Paralyze Field
; Scrolls[47] = '0x1F5C' ; 6: Reveal
; Scrolls[48] = '' ; 7: Chain Lightning
; Scrolls[49] = '' ; 7: Energy Field
; Scrolls[50] = '0x1F5F' ; 7: Flame Strike
; Scrolls[51] = '0x1F60' ; 7: Gate Travel
; Scrolls[52] = '0x1F61' ; 7: Mana Vampire
; Scrolls[53] = '' ; 7: Mass Dispel
; Scrolls[54] = '' ; 7: Meteor Swarm
; Scrolls[55] = '' ; 7: Polymorph
; Scrolls[56] = '0x1F65' ; 8: Earthquake
; Scrolls[57] = '' ; 8: Energy Vortex
; Scrolls[58] = '' ; 8: Resurrection
; Scrolls[59] = '' ; 8: Air Elemental
; Scrolls[60] = '' ; 8: Summon Daemon
; Scrolls[61] = '' ; 8: Earth Elemental
; Scrolls[62] = '0x1F6B' ; 8: Fire Elemental
; Scrolls[63] = '0x1F6C' ; 8: Water Elemental
VAR msg1 = "Can't add this to the spellbook", flag
DIM Spells[10]
For i = 0 To 9
Spells[i] = ''
Next
VAR TmpTyp
UO.Print( 'Select container with scroll for sort' )
UO.Exec('addobject TmpObj1')
While UO.Targeting()
Wait(100)
Wend
UO.Print( 'Select container for trash scrolls' )
UO.Exec('addobject TmpObj2')
While UO.Targeting()
Wait(100)
Wend
UO.IgnoreReset()
UO.TextOpen()
UO.TextClear()
j = 0
repeat
UO.FindType( Spellbk, '-1', 'TmpObj1' )
If UO.FindCount() Then
Spells[j] = UO.GetSerial( 'finditem' )
UO.TextPrint( 'Slot number ' + str(j) + ' = ' + Spells[j] )
UO.Ignore( 'finditem' )
j = j + 1
Endif
until UO.FindCount() == 0 OR j > 9
j = j - 1
repeat
UO.FindType( '-1', '-1', 'TmpObj1' )
If UO.FindCount() > 0 Then
If UO.GetGraphic( 'finditem' ) == Spellbk Then
UO.Ignore( 'finditem' )
Else a
temptyp = UO.GetGraphic( 'finditem' )
UO.MoveItem( 'finditem', '1' )
wait(1000)
CheckLag()
UO.FindType( temptyp )
If UO.FindCount() == 0 Then
UO.Print( 'Gluki glukami pogonayayut!' )
Endif
tempob = UO.GetSerial( 'finditem' )
UO.Click( 'finditem' )
wait(500)
CheckLag()
tempnam = UO.GetName( 'finditem' )
flag = 0
For i = 0 To j
DeleteJournal( msg1 )
UO.MoveItem( tempob, '0', Spells[i] )
wait(2000)
CheckLag()
If UO.InJournal( msg1 ) == 0 Then
flag = 1
UO.TextPrint( tempnam + ' (' + temptyp + ') moved to slot number ' + str(i) )
i = j
Endif
Next
If flag == 0 Then
UO.MoveItem( tempob, '0', 'TmpObj2' )
UO.TextPrint( tempnam + ' (' + temptyp + ') moved to container 2' )
Endif
Endif
Else
return
Endif
until UO.FindCount() == 0
endsub
Author:  tyca7 [ 2014-01-17 01:16:11 ]
Post subject:  Re: SortScroll подскажите?
предполагаю что не хватает самого скрипта checklag попробуй вставить это в скрипт
Code:
sub Checklag()
   del('backpack')
   uo.click('backpack')
   repeat
      wait(200)
   until uo.injournal('backpack')
   del('backpack')
end sub
Author:  podfag [ 2014-01-17 10:20:35 ]
Post subject:  Re: SortScroll подскажите?
Теперь дает ошибку именно на этот скрипт. Который ты скинул.

sub Checklag()
del('backpack') <- вот на эту строку дает ошибку на слово del. Такая же ошибка функция но фоунд del/
Author:  Mirage [ 2014-01-17 14:32:21 ]
Post subject:  Re: SortScroll подскажите?
Поиск шепчет что это Function not found + полезности
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/