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

> Mining, Line 111: parse error
Geoleo
сообщение 20.8.2009, 15:18
Сообщение #1


*

Registred
Сообщений: 3
Регистрация: 20.8.2009
Группа: Пользователи
Наличность: 0
Пользователь №: 12.059
Возраст: 23



Ребята привет! Помогите пожалуйста исправить ошибку, заранее очень признателен!
При запуске скрипта "start" выдает сообщение Line 111: parse error
Вот эта линия:
uo.findtype('0x0E86','-1','0x4001D78F') # добавляем ID ящика с кирками
Код
sub start() 
    check()
    uo.cast('Recall',0x4006ABDA) # руда 1
    wait(2000)
    mine(1339,2558,499,0) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006AA97) # руда 2
    wait(2000)
    mine(0,2571,316,30) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006AB76) # руда 3
    wait(2000)
    mine(0,2572,325,38) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006ABC9) # руда 4
    wait(2000)
    mine(0,2592,314,31) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006AB61) # руда 5
    wait(2000)
    mine(0,2595,325,21) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006AB12) # руда 6
    wait(2000)
    mine(0,2586,258,23) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006AB06) # руда 7
    wait(2000)
    mine(0,2578,285,31) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006AB7F) # руда 8
    wait(2000)
    mine(0,2559,275,16) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006ABDF) # руда 9
    wait(2000)
    mine(0,2569,369,31) # добовляем координаты места копания
    wait(500)
    check()
    dom()
    check()
    uo.cast('Recall',0x4006AB8A) # руда 10
    wait(2000)
    mine(0,2453,398,16) # добовляем координаты места копания
    wait(500)
    check()
    dom()
end sub
Sub mine(t,x,y,z)
    uo.deletejournal()
    repeat
        wait(1500)
        uo.waittargettile(str(t),str(x),str(y),str(z))
        uo.usetype('0x0E86')          # тип кирки
    until uo.injournal("cliloc# 0xAD00") or uo.injournal("cliloc# 0xA20D") or uo.injournal("cliloc# 0xA2DE") or uo.injournal("cliloc#
    0x6B31")
    uo.Canceltarget()
end sub
sub dom()
    uo.cast('Recall',0x4006ABF6) # добавляем ID рунки на порог дома
    wait(2000)
    repeat
        UO.findtype('0x19B9','-1','my') # тип кучки руды
        wait(600)
        UO.waittargetobject('0x400B7214') # добавляем ID плавильни
        wait(600)
        UO.useobject('finditem')
        wait(600)
        if uo.injournal("cliloc# 0xA2DE") then
            uo.deletejournal()
            uo.cast('Recall',0x4006ABF6) # ID рунки на порог дома
            wait(2000)
            goto a
        else
            a:
            UO.useobject('finditem')
        until uo.findcount() == 0
        wait(600)
    end if
    repeat
        UO.findtype('0x1bf2','-1','2') # тип слитков
        uo.moveitem('finditem',-1,'0x4001D90F') # добавляем ID ящика для слитков
        wait(700)
    until uo.findcount() == 0
    while UO.Count(''0x0E86')<3
        uo.findtype('0x0E86','-1','0x4001D78F') # добавляем ID ящика с кирками
        UO.moveitem('finditem','0','0x4001C403') #добавляем ID рюкзака
        wait (700)
    wend
end sub
sub check()
    while Uo.Mana <10
        if UO.Mana <10 then
            uo.Canceltarget()
            UO.UseSkill("Meditation")
            wait(7000)
        end if
    wend
end sub
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
 
Ответить в эту темуОткрыть новую тему
Ответов
Фесс
сообщение 12.4.2011, 11:50
Сообщение #2


**

Neophyte
Сообщений: 31
Регистрация: 2.4.2011
Группа: Пользователи
Наличность: 0
Пользователь №: 13.576
Возраст: 22



Мининг вокруг себя


Цитата
sub Mining()
uo.fontcolor('0x0138')
uo.msg('Script By Fess On!!!')
var x,y,z, n
VAR LastTimer
UO.Set('finddistance','2')
n=0
z=UO.GetZ("self")
for x=-2 to 2
for y=-2 to 2
UO.Print(str(x)+" "+str(y))
Repeat
if UO.InJournal('TORMOZ') then
pause()
endif
UO.DeleteJournal()
UO.Warmode("0")
UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
UO.UseType('0x0e85')
LastTimer=UO.Timer()
Repeat
wait(500)
Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") OR UO.Timer()>LastTimer+200
if UO.InJournal("You put") then
n=0
else
n=n+1
endif
Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
next
next
end sub
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения
Mirage
сообщение 10.5.2011, 10:01
Сообщение #3


*******

Группа: Пользователи
Наличность: 0
Из: Иваново
Пользователь №: 13.089
Возраст: 35



Цитата(Фесс @ 12.4.2011, 12:50) *

Мининг вокруг себя

Если выкинуть понты и бред то получится вот так:
Код
sub Mining()
    var x, y, n LastTimer
    var n
    var z=UO.GetZ("self")
    var tool = '0x0e85'
    var allmsg = 'You put|t see|heavy|location|no ore|but fail|far away|in rock|must wait|nothing|elsewhere|where it'
    var endmsg = 'nothing|elsewhere|no ore here|location|far away|in rock|where it'
    for x=-2 to 2
        for y=-2 to 2
            Repeat
                n=0
                UO.DeleteJournal()
                LastTimer=UO.Timer()
                UO.WaitTargetTile("1341",UO.GetX()+x,UO.GetY()+Y,UO.GetZ())
                UO.UseType( tool )
                Repeat
                    wait(500)
                Until UO.InJournal( allmsg ) OR UO.Timer()>LastTimer+200
                n=n+1
            Until UO.InJournal( endmsg ) or n>=5
        next
    next
end sub

PS тайлов с рудой отнюдь не один = 1341. Так что лучше этот скрипт вообще выкинуть.
PPS Повторяю - зачем выкладывать тут кривые скрипты? (IMG:style_emoticons/default/blink.gif)


--------------------
Изображение
Пользователь в офлайнеDelete PostОтправить личное сообщение
Вернуться в начало страницы
+Ответить с цитированием данного сообщения



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

 

- Текстовая версия | Версия для КПК Сейчас: 6.7.2025, 1:37
Designed by Nickostyle