Буду очень признателен
Старший Сержант (848917)11 лет
Paladin
Сообщений: 513
Рег. 1.02.2013
3 марта 2013 22:15
Сообщение #1
Люди помогите со скриптами на фишинг...кемпинг...кукинг...
И если у кого есть вердаты с пеньками без мусора...и плитами вместо стен...
Заранее Благодарю !
Генерал Майор (23663900)12 летИнквизитор
Inquisitor
Сообщений: 2468
Рег. 12.08.2012
3 марта 2013 23:06
Сообщение #2
http://www.bestuo.ru/index.php?do=forum&showtopic=6002 - это топик выше твоего. Посмотри внимательно, там есть и кукинг и кемпинг. Фишинга ждут многие и такие же многие его жопят для остальных.
Старший Сержант (848917)11 лет
Paladin
Сообщений: 513
Рег. 1.02.2013
3 марта 2013 23:09
Сообщение #3
спасибо большое
Старший Лейтенант (6395350)12 лет
Necromancer
Сообщений: 5530
Рег. 27.08.2012
4 марта 2013 08:35
Сообщение #4
Цитата: Ondzin
Фишинга ждут многие и такие же многие его жопят для остальных.

на форуме выкладывали, я им пользуюсь )
правда немного подкорректировал )
Генерал Майор (23663900)12 летИнквизитор
Inquisitor
Сообщений: 2468
Рег. 12.08.2012
4 марта 2013 10:37
Сообщение #5
так выложи подредактированный :)
Полковник (18345728)11 летИнквизитор
Inquisitor
Сообщений: 3094
Рег. 9.02.2013
4 марта 2013 17:11
Сообщение #6
а фишинг с резкой не запрещен?)
Полковник (18345728)11 летИнквизитор
Inquisitor
Сообщений: 3094
Рег. 9.02.2013
4 марта 2013 19:24
Сообщение #7
надо доделать, чтобы брал новую удочку, когда старая ломается)
var MaxFailure=8
sub FishingAround()
    var iX,iY
    for var iStep=0 to 1000
        for iX=-6 to 6
            for iY=-6 to 6
                if iX==0 and iY==0    then
                next
                end if
              GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
            next
        next
    next
end sub

Sub GetAllFish(iX,iY)
    var counter=0
    repeat
        counter=counter+1
        UO.DeleteJournal()
        UO.WaitTargetTile(0,iX,iY,251)
        UO.UseType('0x0DBF')
        while not UO.InJournal('You pull out a') and not UO.InJournal('You fish a while, but fail to catch anything') and not UO.InJournal('There are no fish here.') and not UO.InJournal('Try fishing in water') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('That is too far away') and not UO.InJournal('You cannot fish so close to yourself')
            wait(100)
        wend
        if UO.InJournal('There are no fish here.') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR UO.InJournal('You cannot fish so close to yourself') OR UO.InJournal('Try fishing in water') then
            return
        end if
        if UO.InJournal('You pull out a') then
            counter=0
            GetFish()
        end if
    until UO.Injournal('There are no fish here.') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR UO.InJournal('You cannot fish so close to yourself') OR UO.InJournal('Try fishing in water') OR counter>MaxFailure
end sub

Sub GetFish()
    UO.set('finddistance',0)
    UO.IgnoreReset()
    UO.Ignore('self')
    UO.FindType('0x352D',-1,'ground')
    UO.Ignore('finditem')
    UO.FindType(-1,-1,'ground')
    while UO.FindCount()>0
        UO.WaitTargetObject('finditem')
        UO.UseType('0x0F51')
        UO.Ignore('finditem')
        wait(500)
        UO.FindType(-1,-1,'ground')
    wend
    UO.Ignorereset()
    UO.Ignore('self')
    UO.FindType('0x352D',-1,'ground')
    UO.Ignore('finditem')
    UO.FindType(-1,-1,'ground')
    while UO.FindCount()>0
        UO.Grab(0,'finditem')
        wait(100)
        UO.FindType(-1,-1,'ground')
    wend
    UO.Ignorereset()
end sub
11 лет
Ranger
Сообщений: 53
Рег. 17.02.2013
4 марта 2013 20:01
Сообщение #8
var MaxFailure=8
sub FishingAround()
proverka()
    var iX,iY
    for var iStep=0 to 1000
        for iX=-6 to 6
            for iY=-6 to 6
                if iX==0 and iY==0    then
                next
                end if
              GetAllFish(UO.GetX()+iX,UO.GetY()+iY)
            next
        next
    next
end sub

Sub GetAllFish(iX,iY)
    var counter=0
    repeat
        counter=counter+1
        UO.DeleteJournal()
        UO.WaitTargetTile(0,iX,iY,251)
        UO.UseType('0x0DBF')
        while not UO.InJournal('You pull out a') and not UO.InJournal('You fish a while, but fail to catch anything') and not UO.InJournal('There are no fish here.') and not UO.InJournal('Try fishing in water') and not UO.InJournal('Try fishing elsewhere') and not UO.InJournal('That is too far away') and not UO.InJournal('You cannot fish so close to yourself')
            wait(100)
        wend
        if UO.InJournal('There are no fish here.') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR UO.InJournal('You cannot fish so close to yourself') OR UO.InJournal('Try fishing in water') then
            return
        end if
        if UO.InJournal('You pull out a') then
            counter=0
            GetFish()
        end if
    until UO.Injournal('There are no fish here.') OR UO.InJournal('Try fishing elsewhere') OR UO.InJournal('That is too far away') OR UO.InJournal('You cannot fish so close to yourself') OR UO.InJournal('Try fishing in water') OR counter>MaxFailure
end sub

Sub GetFish()
    UO.set('finddistance',0)
    UO.IgnoreReset()
    UO.Ignore('self')
    UO.FindType('0x352D',-1,'ground')
    UO.Ignore('finditem')
    UO.FindType(-1,-1,'ground')
    while UO.FindCount()>0
        UO.WaitTargetObject('finditem')
        UO.UseType('0x0F51')
        UO.Ignore('finditem')
        wait(500)
        UO.FindType(-1,-1,'ground')
    wend
    UO.Ignorereset()
    UO.Ignore('self')
    UO.FindType('0x352D',-1,'ground')
    UO.Ignore('finditem')
    UO.FindType(-1,-1,'ground')
    while UO.FindCount()>0
        UO.Grab(0,'finditem')
        wait(100)
        UO.FindType(-1,-1,'ground')
    wend
    UO.Ignorereset()
end sub

sub proverka()
var weapon="0x0DBF"
while 1==1
if uo.injournal('destroyed!') then
uo.usetype(weapon)
repeat
endif
uo.deletejournal()
wait(300)
wend
end sub


Проверь когда будет ломаться удочка должен будет брать новую. Только вот будет ли он продолжать дальше ловить рыбу это хэ.
Скорей всего будет. Проверь.
Отпиши если работает
Полковник (18345728)11 летИнквизитор
Inquisitor
Сообщений: 3094
Рег. 9.02.2013
9 марта 2013 09:01
Сообщение #9
Betrazen, вроде ошибку выдало)
Последние посетители (0):

 
Сейчас: 24 ноября 2024 13:00