Yoko

Это мои одни из первых скриптов. Прошу строго не судить.
Проблема в том, что они работают от одной до 30 минут+, потом могут просто остановится и исчесть из инжекта или просто висеть в инжекте, не не работать.
Прошу помощи у знающих.

Это на алхимию.

sub ximik()
VAR Sunduk = '0x4170C4FE' ; Сериал сундука
VAR ink = '0x0FC0' ; Тип ink
VAR color2 = '0x003C' ; цвет пустой ink
VAR color = '0x0064' ; цвет ink
VAR kolvo = 1
while true
UO.FindType( ink,color2,Sunduk )
wait(2000)
UO.Grab( Str( Kolvo ), 'finditem',Sunduk)
wait(2000)
while UO.Count( ink,color2 ) == Kolvo
wait(300)
wend
UO.Print('Выбери рег')
UO.Exec('addobject reg')
while UO.Targeting()
wait(100)
wend
while 1
uo.waittargetobject('reg')
uo.usetype('0x0E9B')
uo.WaitMenu('Возможные зелья','MagicInk')
wait(6000)
UO.FindType( ink,color2,Sunduk )
UO.Grab( Str( Kolvo ), 'finditem',Sunduk)
wait(2000)
while UO.Count( ink,color2 ) == 0
wait(500)
wend
If UO.Count( ink,color ) > 0 Then
UO.FindType( ink,color )
UO.MoveItem( 'finditem', -1, sunduk )
wait(2000)
while UO.Count( ink,color ) == 1
wend
wait(1000)
wend
wait(2000)
wend
Endif
end sub

Это на инскипт.


sub inscription()
VAR backpack = '0x79208E74' ; Сериал бэкпака
VAR Sunduk = '0x7E676C8C' ; Сериал сундука
VAR ink = '0x0FC0' ; Тип ink
VAR color = '0x0064' ; цвет ink
VAR kolvo = 1
UO.Print('Выбери бланки')
UO.Exec('addobject blank')
while UO.Targeting()
wait(100)
wend
repeat
If UO.Count( ink,color ) == 0 Then
UO.FindType( ink,color,Sunduk )
If UO.FindCount() == 0 Then
UO.Print("ink not found, script terminated")
return
Endif
UO.Grab( Str( Kolvo ), 'finditem' )
wait(500)
while UO.Count( ink,color ) < Kolvo
wait(100)
wend
CheckLag()
Endif
UO.DeleteJournal()
uo.waittargetobject('blank')
uo.usetype('0x0FC0','0x0064') # Тип , цвет Тотал Маны
wait(4000)
UO.LClick(529,328)
repeat
wait (300)
until UO.InJournal("Вы написали свиток Recall, и положили его в сумку")
else
UO.CancelMenu()
return
endif
until UO.Dead()
end sub



sub inkviklad()
while true
If UO.Count( '0x0FC0','0x003C' ) > 0 Then
UO.FindType( '0x0FC0','0x003C' )
UO.MoveItem( 'finditem',1, 'sunduk' )
wait(500)
while UO.Count( '0x0FC0','0x003C' ) == 0
CheckLag()
wend
wait(10000)
wend
endsub
sub skrollviklad()
while true
If UO.Count( '0x1F4C' ) > 50 Then
UO.FindType( '0x1F4C' )
UO.MoveItem( 'finditem', 0, '0x7E676C8C' )
wait(500)
while UO.Count( '0x1F4C' ) == 0
CheckLag()
wend
wait (20000)
wend
endsub

+ так и не смог совместить добор и выкладку +сам инскрипт в один скрипт. Если кто поможет пошлю мысленный респект. )

Посмотри примеры в моей теме..

_________________
Уроки языка Injection
Основные команды языка Injection
Yoko Injection Code Sweeper
Drw (2009) скрипты
2017 Начал играть на Uorpg.net