Сайт Антареса Сайт Антареса Форум Антарес
> >

Здравствуйте, гость ( Вход | Регистрация )


> > Не пашет скрипт... >
Kamikadze
сообщение 19.5.2010, 13:27
Сообщение #1


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 93
Регистрация: 1.2.2005
Пользователь №: 417
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



В чём тут проблема?
Код
sub Tailor()

VAR LastTimer

VAR Sunduk = '0x407B81B9'; Сундук с тряпками и нитками

VAR Sunduk1 = '0x4021E573'; Сундук с пустыми мешками

VAR Sunduk2 = '0x40567D13';Сундук с готовой продукцией

VAR Meshok = '0x0E76'; тип мешка

VAR MeshSer, d

VAR Cloth = '0x1067'; Тип тряпок

VAR Nit = '0x0FA0'; Тип ниток

VAR Kit = '0x0F9D'; Тип инструмента

VAR Item = '0x1DB9'; Jester's cap

VAR KolL = 50

VAR KolN = 10

VAR k , n, r , i



while true

k=0

UO.FindType( Meshok, -1, Sunduk1 )

MeshSer = UO.GetSerial( 'finditem' )

UO.Grab( '1', 'finditem' )

wait( 2000 )

UO.MoveItem( MeshSer, 0, Sunduk2 )

repeat

r=0

while UO.Count(Cloth)<KolL

n=UO.Count(Cloth)

UO.FindType(Cloth,-1,Sunduk)

UO.Grab(str(KolL-n),'finditem')

wait(100)

;CheckLag()

wend

while UO.Count(Nit)<KolN

n=UO.Count(Nit)

r=r+1

UO.FindType(Nit,-1,Sunduk)

UO.Grab(str(KolN-n+1),'finditem')

wait(100)

;CheckLag()

if r>20 then

uo.Exec('terminate all')

endif

wend
repeat

UO.DeleteJournal()

LastTimer=UO.Timer()

UO.WaittargetType( Cloth )

UO.Usetype(Kit)

UO.WaitMenu("waitmenu 'Cloth' 'Headwear' 'Headwear' 'Jester'")

UO.DeleteJournal()

repeat

wait(500)

until UO.InJournal('Вы положили') or UO.InJournal('Вам не удалось ничего') or UO.InJournal('Вам не удалось ничего сшить') or UO.Timer()>LastTimer+200

until UO.Count(Cloth)<145 or UO.Count(Nit)<1



d=uo.Count(Item)

k=k+d

while UO.Count( Item ) > 0

UO.FindType( Item, -1, -1 )

UO.MoveItem( 'finditem', 0, MeshSer )

wait( 500 )
wend

until k>=200

eat()

wend

end sub

###########################################################

sub CheckLag()

###########################################################

UO.DeleteJournal()

UO.Click('backpack')

repeat

wait(100)

until UO.InJournal('Backpack')

end sub

#########################################

sub eat()

###########################################################

UO.DeleteJournal()

repeat

if UO.Count('0x097B')>0 then;еда ( баранина вроде )

UO.UseType('0x097B'); тожесамое

wait(500)

else

return

end if

Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that")

end sub
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
 
Ответить в эту темуОткрыть новую тему
> > Ответов(1 - 9) >
CxC
сообщение 19.5.2010, 13:34
Сообщение #2


Местный трепач
Group Icon

Группа: Пользователи
Сообщений: 1 732
Регистрация: 14.1.2009
Из: Краснодар
Пользователь №: 6 081
Спасибо сказали: 223 раз(а)
Класс: Рейнджер



что значит не пашет?
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Kamikadze
сообщение 19.5.2010, 13:48
Сообщение #3


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 93
Регистрация: 1.2.2005
Пользователь №: 417
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



Вообще не пашет,выдаёт ошибку!Скиньте скрипт чтобы просто делал шапки без ничего!!!!
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Fildy
сообщение 19.5.2010, 13:52
Сообщение #4


Гость
Group Icon

Группа: Пользователи
Сообщений: 45
Регистрация: 8.7.2009
Пользователь №: 6 821
Спасибо сказали: 13 раз(а)
Класс: Рейнджер



Ошибка то какая,ёлки палки
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Kamikadze
сообщение 19.5.2010, 14:08
Сообщение #5


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 93
Регистрация: 1.2.2005
Пользователь №: 417
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



Line 157 parse error
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Alucard
сообщение 19.5.2010, 14:44
Сообщение #6


ДМ НТ
Group Icon

Группа: Пользователи
Сообщений: 4 801
Регистрация: 13.7.2006
Из: г. Иваново
Пользователь №: 3 276
Спасибо сказали: 351 раз(а)
Класс: Человек



Ищешь 157 строку
и правишь вот так
if UO.Count('0x097B')>0 then ;еда ( баранина вроде )
_______________________/ пробел


PS Почувствуй разницу:
Код
sub Tailor()
    VAR LastTimer
    VAR Sunduk = '0x407B81B9'; Сундук с тряпками и нитками
    VAR Sunduk1 = '0x4021E573'; Сундук с пустыми мешками
    VAR Sunduk2 = '0x40567D13';Сундук с готовой продукцией
    VAR Meshok = '0x0E76'; тип мешка
    VAR MeshSer, d
    VAR Cloth = '0x1067'; Тип тряпок
    VAR Nit = '0x0FA0'; Тип ниток
    VAR Kit = '0x0F9D'; Тип инструмента
    VAR Item = '0x1DB9'; Jester's cap
    VAR KolL = 50
    VAR KolN = 10
    VAR k , n, r , i
    while true
        k=0
        UO.FindType( Meshok, -1, Sunduk1 )
        MeshSer = UO.GetSerial( 'finditem' )
        UO.Grab( '1', 'finditem' )
        wait( 2000 )
        UO.MoveItem( MeshSer, 0, Sunduk2 )
        repeat
            r=0
            while UO.Count(Cloth)<KolL
                n=UO.Count(Cloth)
                UO.FindType(Cloth,-1,Sunduk)
                UO.Grab(str(KolL-n),'finditem')
                wait(100)
            ;CheckLag()
            wend
            while UO.Count(Nit)<KolN
                n=UO.Count(Nit)
                r=r+1
                UO.FindType(Nit,-1,Sunduk)
                UO.Grab(str(KolN-n+1),'finditem')
                wait(100)
            ;CheckLag()
                if r>20 then
                    uo.Exec('terminate all')
                endif
            wend
            repeat
                UO.DeleteJournal()
                LastTimer=UO.Timer()
                UO.WaittargetType( Cloth )
                UO.Usetype(Kit)
                UO.WaitMenu("waitmenu 'Cloth' 'Headwear' 'Headwear' 'Jester'")
                UO.DeleteJournal()
                repeat
                    wait(500)
                until UO.InJournal('Вы положили') or UO.InJournal('Вам не удалось ничего') or UO.InJournal('Вам не удалось ничего сшить') or UO.Timer()>LastTimer+200
            until UO.Count(Cloth)<145 or UO.Count(Nit)<1
            d=uo.Count(Item)
            k=k+d
            while UO.Count( Item ) > 0
                UO.FindType( Item, -1, -1 )
                UO.MoveItem( 'finditem', 0, MeshSer )
                wait( 500 )
            wend
        until k>=200
        eat()
    wend
end sub
###########################################################
sub CheckLag()
    UO.DeleteJournal()
    UO.Click('backpack')
    repeat
        wait(100)
    until UO.InJournal('ackpack')
end sub
#########################################
sub eat()
    UO.DeleteJournal()
    repeat
        if UO.Count('0x097B')>0 then;еда ( баранина вроде )
            UO.UseType('0x097B'); тожесамое
            wait(500)
        else
            return
        end if
    Until UO.InJournal("stuffed!") OR UO.InJournal("think")OR UO.InJournal("need that")
end sub
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Kamikadze
сообщение 19.5.2010, 14:56
Сообщение #7


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 93
Регистрация: 1.2.2005
Пользователь №: 417
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



Всё равно не пашет,не видит почему-то ткань с нитками!
Скиньте плиз скрипт чтобы просто делал шапки!
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Alucard
сообщение 19.5.2010, 17:24
Сообщение #8


ДМ НТ
Group Icon

Группа: Пользователи
Сообщений: 4 801
Регистрация: 13.7.2006
Из: г. Иваново
Пользователь №: 3 276
Спасибо сказали: 351 раз(а)
Класс: Человек



99% что проблема как обычно либо в том что не открыл контейнер до запуска скрипта либо просто стоишь далеко.

Вот же сборка скриптов

ВНИМАТЕЛЬНО описание скриптов читайте.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Kamikadze
сообщение 19.5.2010, 19:37
Сообщение #9


Подозрительный тип
Group Icon

Группа: Пользователи
Сообщений: 93
Регистрация: 1.2.2005
Пользователь №: 417
Спасибо сказали: 0 раз(а)
Класс: Рейнджер



Всем спасибо,сам разобрался!Топ клоуз!

Сообщение отредактировал Kamikadze - 20.5.2010, 14:11
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Alucard
сообщение 25.5.2010, 12:44
Сообщение #10


ДМ НТ
Group Icon

Группа: Пользователи
Сообщений: 4 801
Регистрация: 13.7.2006
Из: г. Иваново
Пользователь №: 3 276
Спасибо сказали: 351 раз(а)
Класс: Человек



Цитата(Kamikadze @ 19.5.2010, 23:37) *

Всем спасибо,сам разобрался!Топ клоуз!

Хотя бы опиши в чем была столь длительная проблема с запуском скриптов laught.gif Я в мануалы добавлю.
Пользователь в офлайнеКарточкаОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 

Ответить в эту темуОткрыть новую тему
> >
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 

- Текстовая версия Сейчас: 22.9.2018, 2:59
Design: Fisana  © 2005-2006 IBR Team