Поиск юзала! НЕЧЕ НЕ НАШЛА!!!!
ПОМОГИТЕ ПЛИЗ!!!
ПОДАЕМ НПС 1ГП (из пака, если он там есть)
юзаем стилинг на НПС
НУ ПОМОГИТЕ ПОЖАЛУСТА!!!
СТИЛИНГ!!! ДРВ очень надо!
Moderators: Murderator+, Murderator
Уже не надо!!! =-( Скрипт уже сам написал!
Но левача на котором качал отправили на каторгу! Рубить 5к логов =(
Так что ДРВ-шники... Кто будет качать БУДТЕ Осторожны!!!
Code: Select all
var idnpc = '0x0036568B'
var npPac = '0x40365678'
sub main()
var i = 0
repeat
i = 0
uo.DeleteJournal()
UO.FindType('0x0EED',-1,'backpack')
if UO.GetQuantity('finditem')>0 then
UO.MoveItem('finditem','1',npPac)
endif
CheckLag()
uo.WarMode(0)
uo.useskill('Stealing',idnpc)
repeat
i = i + 1
wait(100)
until i > 35 or uo.InJournal('They have nothing') or uo.InJournal('You fail to steal')
CheckLag()
until uo.Dead()
uo.closeuo()
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
Но левача на котором качал отправили на каторгу! Рубить 5к логов =(
Так что ДРВ-шники... Кто будет качать БУДТЕ Осторожны!!!
СМЕРТЬ ФЛУДЕРАМ!
-
- Posts: 265
- Joined: 2006-03-10 00:19:11
- Location: http://drw.ru/