Yoko

All sides of Injection
It is currently 2024-03-28 13:08:07

All times are UTC+02:00




Post new topic  Reply to topic  [ 4 posts ] 
Author Message
PostPosted: 2014-01-16 23:33:45 
Offline

Joined: 2013-01-07 10:31:07
Posts: 15
Доброй Ночи, проблема с 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


Top
   
PostPosted: 2014-01-17 01:16:11 
Offline
User avatar

Joined: 2012-12-22 19:14:29
Posts: 125
предполагаю что не хватает самого скрипта checklag попробуй вставить это в скрипт
Code:
sub Checklag()
   del('backpack')
   uo.click('backpack')
   repeat
      wait(200)
   until uo.injournal('backpack')
   del('backpack')
end sub


Top
   
PostPosted: 2014-01-17 10:20:35 
Offline

Joined: 2013-01-07 10:31:07
Posts: 15
Теперь дает ошибку именно на этот скрипт. Который ты скинул.

sub Checklag()
del('backpack') <- вот на эту строку дает ошибку на слово del. Такая же ошибка функция но фоунд del/


Top
   
PostPosted: 2014-01-17 14:32:21 
Offline
User avatar

Joined: 2009-05-28 09:58:28
Posts: 2802
Location: Иваново
Поиск шепчет что это Function not found + полезности

_________________
Image
YokoInjection CodeSweeper
Ошибка "Unhandled exception in parser"
Стрелялка для олдов.


Top
   
Display posts from previous:  Sort by  
Post new topic  Reply to topic  [ 4 posts ] 

All times are UTC+02:00


Who is online

Users browsing this forum: No registered users and 18 guests


You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot post attachments in this forum

Search for:
Jump to:  
cron
Powered by phpBB® Forum Software © phpBB Limited