Mystara Legends

Fórum direcionado aos Players do Mystara Legends. Servidor de Ultima Online Brasileiro.


    MACRO DE LUMBERJACKING - GUARDA NO BANCO

    Compartilhe
    avatar
    Crusher

    Mensagens : 71
    Data de inscrição : 29/10/2016

    MACRO DE LUMBERJACKING - GUARDA NO BANCO

    Mensagem por Crusher em Sex Jan 13, 2017 2:05 pm

    ; Script Name: LUMBERJACKING MYSTARA lEGENDS
    ; CAVALEIROS TEMPLARIOS MYSTARA LEGENDS
    ; Version: 1.3
    ; Client Tested with: 3.0.0c and above
    ; EUO version tested with: 1.5 144
    ; Shard OSI / FS: FS (The Last Prophecy)
    ; Revision Date: October, 21, 2007
    ; Public Release: February, 26, 2005
    ; Global Variables Used: *movex_ *existance
    ; *movey_ *max
    ; *treex_ *container
    ; *treey_ *bankx
    ; *treetile_ *banky
    ; OBS.: there are *max
    ; trees and move variables
    ; like *treex_15
    ; Usage: Displayed through display menu.
    ;==================================
    display yesno Deseja gravar outro macro de Lumber ?
    if #dispRes = yes
    set *existance #false
    chooseskill lumberjacking real
    set %skill #skill
    set %food FUD_HND_RUD_CNL_YLI_AQD_HQD_WMD_NRD_RGG_ZPE
    set %axetype BSF_ISF_NSF_XTH_YTH_MPH_LPH_LSF_OSF_SMH_RMH_JOH_UOH_FSF_ASF_HSF
    set %logs ZLK
    set %count 1
    set %config 1
    str ins #time : 3
    str ins #strres : 6
    set %time #strres
    menu clear
    menu show 0 0
    menu window size 600 300
    menu window title Lumber Monitor
    menu window color $000000
    menu shape main 10 10 580 280 4 7 2 $0000FF 7 $000000
    menu shape title 190 15 170 35 4 3 1 $0000FF 7 $000000
    menu font transparent #true
    menu font color $FFFFFF
    menu font tahoma
    menu font style BU
    menu font size 15
    menu text text1 200 20 Lumber Monitor
    menu text maintext1 54 74 Machado:
    menu text maintext2 54 109 Comida:
    menu text maintext3 54 144 Status:
    menu text maintext4 54 179 Peso:
    menu text maintext5 54 234 Skill:
    menu text time 370 220 Hora de início:
    menu font style b
    menu text maintext6 200 260 (em décimos)
    if #charghost = NO
    {
    menu shape notok3 35 150 10 10 1 7 2 $888888 7 $00FF00
    menu font color $FF0000
    menu text ghost 167 144 Vivo
    }
    else
    {
    menu shape ok3 35 150 10 10 1 7 2 $888888 7 $0000FF
    menu font color $0000FF
    menu text ghost 167 144 Morto
    }
    finditem %axetype
    if #findid = X
    {
    menu shape notok1 35 80 10 10 1 7 2 $888888 7 $0000FF
    menu font color $0000FF
    menu text pickaxe 167 74 Não encontrado.
    }
    else
    {
    menu shape ok1 35 80 10 10 1 7 2 $888888 7 $00FF00
    menu font color $FF0000
    menu text pickaxe 167 74 Encontrado ( #findid )
    set %axe #findid
    }
    finditem %food
    if #findid = X
    {
    menu shape notok2 35 115 10 10 1 7 2 $888888 7 $0000FF
    menu font color $0000FF
    menu text food 167 109 Não encontrada
    }
    else
    {
    menu shape ok2 35 115 10 10 1 7 2 $888888 7 $00FF00
    menu font color $FF0000
    menu text food 167 109 Encontrada
    }
    set %weight #maxweight - 25
    if #weight <= %weight
    {
    menu shape ok4 35 185 10 10 1 7 2 $888888 7 $00FF00
    menu font color $FF0000
    menu text weight 167 179 Normal ( #weight , / , #maxweight )
    }
    else
    {
    menu shape notok4 35 122 10 10 1 7 2 $888888 7 $0000FF
    menu font color $0000FF
    menu text weight 167 179 Máximo ( #weight , / , #maxweight )
    }
    set %a_skill ( #skill - %skill )
    menu text skill 167 234 #skill
    menu text u_skill 210 234 // + %a_skill
    menu text time2 390 250 %time
    menu font size 12
    menu font color $FFFFFF
    menu text logtext1 420 74 Logs:
    menu text logtext2 420 94 Light:
    menu text logtext3 420 114 Dark:
    menu text logtext4 420 134 Hard:
    menu text logtext5 420 154 Old:
    menu text logtext6 420 174 Elven:
    set %normal_logs 0
    set %light_logs 0
    set %dark_logs 0
    set %hard_logs 0
    set %old_logs 0
    set %elven_logs 0

    if *existance <> #true
    display OK 1. Aperte ENTER para marcar a árvore. Aguarde a mensagem. $2. Aperte BACKSPACE para desmarcar a última árvore marcada. $3. Aperte SHIFT + ENTER para marcar as coordenadas do baú. Aguarde o target e selecione o baú $4. Aperte ESC ao término da marcação. $ $ Dicas: Para maior eficiência, tente fazer caminhos curtos e desobstruídos entre as árvores, $ marque as árvores e o baú bem próximo deles. Tente marcar a última árvore $ próximo da primeira.
    goto config

    config:
    if *existance = #true
    goto main
    onHotkey ENTER
    gosub mark %config
    onHotkey ENTER SHIFT
    gosub bankmark
    onHotKey BACK
    gosub delmark
    onHotkey ESC
    {
    gosub back 1
    set *max %config
    set *existance #true
    goto main
    }
    goto config

    main:
    set #ltargetz 0
    set #ltargetkind 3
    set #lobjectid %axe
    gosub go_chop %count
    event macro 17 0
    target
    event macro 22 0
    set #scnt 0
    goto journal

    journal:
    deletejournal
    scanjournal 1
    ;##########################| Procedimento
    if lenhar in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if line_of_sight in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if far in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if muito_longe in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if madeiras_aqui in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if fail_to_produce in #journal
    goto check_update
    if in_your_pack in #journal
    goto check_update
    if lumberjacking in #journal
    goto check_update
    if madeira_aqui_para_tirar in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if it_appears_immune in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if nao_conseguiu in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if reach_this in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if #scnt > 9
    goto check_update
    if na_sua_pack in #journal
    goto check_update
    if nada_para_lenhar in #journal
    {
    set %count %count + 1
    goto check_update
    }
    ;##########################| Segurança
    if #hits < #maxhits
    {
    msg $guards$
    wait 5s
    }
    if hits_you in #journal
    msg $guards$
    if attempt in #journal
    msg $guards$
    if stealing in #journal
    msg $guards$
    if peek in #journal
    msg $guards
    if attacking in #journal
    msg $guards$
    goto journal

    check_update:
    if %count => *max
    goto reset
    if %count = 1
    gosub eat
    set %a_skill ( #skill - %skill )
    repeat
    {
    ignoreitem #findid
    finditem ZLK C_ . #backpackid
    if ( #findcol = 0 ) && ( #findid <> X )
    set %normal_logs #findstack
    if #findcol = 2419
    set %light_logs #findstack
    if #findcol = 2312
    set %dark_logs #findstack
    if #findcol = 2009
    set %hard_logs #findstack
    if #findcol = 2116
    set %old_logs #findstack
    if #findcol = 2126
    set %elven_logs #findstack
    }
    until #findid = X
    ignoreitem reset
    if #weight > 380
    gosub bank
    menu delete skill
    menu delete u_skill
    menu delete nlogs
    menu delete llogs
    menu delete dlogs
    menu delete hlogs
    menu delete ologs
    menu delete elogs
    menu text nlogs 480 74 %normal_logs
    menu text llogs 480 94 %light_logs
    menu text dlogs 480 114 %dark_logs
    menu text hlogs 480 134 %hard_logs
    menu text ologs 480 154 %old_logs
    menu text elogs 480 174 %elven_logs
    menu text skill 167 234 #skill
    menu text u_skill 210 234 // + %a_skill
    goto main

    reset:
    set %x *movex_ . %1
    set %y *movey_ . %1
    move %x %y 0
    set %count 1
    goto main

    sub eat
    finditem %food
    set #lobjectid #findid
    event macro 17 0
    return

    sub go_chop
    set %x *movex_ . %1
    set %y *movey_ . %1
    move %x %y 0
    set %treex *treex_ . %1
    set %treey *treey_ . %1
    set %treetile *treetile_ . %1
    set #ltargetx %treex
    set #ltargety %treey
    set #ltargettile %treetile
    return

    sub mark
    set *movex_ . %1 #charposx
    set *movey_ . %1 #charposy
    set *treex_ . %1 #ltargetx
    set *treey_ . %1 #ltargety
    set *treetile_ . %1 #ltargettile
    event sysmessage Arvore ( %config )
    set %config %config + 1
    return

    sub delmark
    set %config %config - 1
    event sysmessage Arvore ( %config ) deletada
    return

    sub bankmark
    set *bankx #charposx
    set *banky #charposy
    msg $bank$
    wait 10
    set #targCurs 1
    while #targCurs = 1
    { }
    set *container #ltargetid
    event sysmessage Container: *container
    return

    sub bank
    move *bankx *banky 0
    wait 15
    msg $bank$
    repeat
    {
    finditem ZLK C_ . #backpackid
    exevent drag #findid #findstack
    wait 10
    exevent dropc *container
    wait 10
    }
    until #findid = X
    set %normal_logs 0
    set %light_logs 0
    set %dark_logs 0
    set %hard_logs 0
    set %old_logs 0
    set %elven_logs 0
    return
    __________________________________

    CAVALEIROS TEMPLARIOS

    Anderick

    Mensagens : 6
    Data de inscrição : 23/01/2017

    Re: MACRO DE LUMBERJACKING - GUARDA NO BANCO

    Mensagem por Anderick em Qua Jan 25, 2017 4:07 pm

    Muito Bom!! Parabéns pela iniciativa!

    Zuiglio

    Mensagens : 7
    Data de inscrição : 26/01/2017

    Re: MACRO DE LUMBERJACKING - GUARDA NO BANCO

    Mensagem por Zuiglio em Qui Jan 26, 2017 8:47 pm

    Crusher escreveu:; Script Name: LUMBERJACKING MYSTARA lEGENDS
    ; CAVALEIROS TEMPLARIOS MYSTARA LEGENDS
    ; Version: 1.3
    ; Client Tested with: 3.0.0c and above
    ; EUO version tested with: 1.5 144
    ; Shard OSI / FS: FS (The Last Prophecy)
    ; Revision Date: October, 21, 2007
    ; Public Release: February, 26, 2005
    ; Global Variables Used: *movex_ *existance
    ; *movey_ *max
    ; *treex_ *container
    ; *treey_ *bankx
    ; *treetile_ *banky
    ; OBS.: there are *max
    ; trees and move variables
    ; like *treex_15
    ; Usage: Displayed through display menu.
    ;==================================
    display yesno Deseja gravar outro macro de Lumber ?
    if #dispRes = yes
    set *existance #false
    chooseskill lumberjacking real
    set %skill #skill
    set %food FUD_HND_RUD_CNL_YLI_AQD_HQD_WMD_NRD_RGG_ZPE
    set %axetype BSF_ISF_NSF_XTH_YTH_MPH_LPH_LSF_OSF_SMH_RMH_JOH_UOH_FSF_ASF_HSF
    set %logs ZLK
    set %count 1
    set %config 1
    str ins #time : 3
    str ins #strres : 6
    set %time #strres
    menu clear
    menu show 0 0
    menu window size 600 300
    menu window title Lumber Monitor
    menu window color $000000
    menu shape main 10 10 580 280 4 7 2 $0000FF 7 $000000
    menu shape title 190 15 170 35 4 3 1 $0000FF 7 $000000
    menu font transparent #true
    menu font color $FFFFFF
    menu font tahoma
    menu font style BU
    menu font size 15
    menu text text1 200 20 Lumber Monitor
    menu text maintext1 54 74 Machado:
    menu text maintext2 54 109 Comida:
    menu text maintext3 54 144 Status:
    menu text maintext4 54 179 Peso:
    menu text maintext5 54 234 Skill:
    menu text time 370 220 Hora de início:
    menu font style b
    menu text maintext6 200 260 (em décimos)
    if #charghost = NO
    {
    menu shape notok3 35 150 10 10 1 7 2 $888888 7 $00FF00
    menu font color $FF0000
    menu text ghost 167 144 Vivo
    }
    else
    {
    menu shape ok3 35 150 10 10 1 7 2 $888888 7 $0000FF
    menu font color $0000FF
    menu text ghost 167 144 Morto
    }
    finditem %axetype
    if #findid = X
    {
    menu shape notok1 35 80 10 10 1 7 2 $888888 7 $0000FF
    menu font color $0000FF
    menu text pickaxe 167 74 Não encontrado.
    }
    else
    {
    menu shape ok1 35 80 10 10 1 7 2 $888888 7 $00FF00
    menu font color $FF0000
    menu text pickaxe 167 74 Encontrado ( #findid )
    set %axe #findid
    }
    finditem %food
    if #findid = X
    {
    menu shape notok2 35 115 10 10 1 7 2 $888888 7 $0000FF
    menu font color $0000FF
    menu text food 167 109 Não encontrada
    }
    else
    {
    menu shape ok2 35 115 10 10 1 7 2 $888888 7 $00FF00
    menu font color $FF0000
    menu text food 167 109 Encontrada
    }
    set %weight #maxweight - 25
    if #weight <= %weight
    {
    menu shape ok4 35 185 10 10 1 7 2 $888888 7 $00FF00
    menu font color $FF0000
    menu text weight 167 179 Normal ( #weight , / , #maxweight )
    }
    else
    {
    menu shape notok4 35 122 10 10 1 7 2 $888888 7 $0000FF
    menu font color $0000FF
    menu text weight 167 179 Máximo ( #weight , / , #maxweight )
    }
    set %a_skill ( #skill - %skill )
    menu text skill 167 234 #skill
    menu text u_skill 210 234 // + %a_skill
    menu text time2 390 250 %time
    menu font size 12
    menu font color $FFFFFF
    menu text logtext1 420 74 Logs:
    menu text logtext2 420 94 Light:
    menu text logtext3 420 114 Dark:
    menu text logtext4 420 134 Hard:
    menu text logtext5 420 154 Old:
    menu text logtext6 420 174 Elven:
    set %normal_logs 0
    set %light_logs 0
    set %dark_logs 0
    set %hard_logs 0
    set %old_logs 0
    set %elven_logs 0

    if *existance <> #true
    display OK 1. Aperte ENTER para marcar a árvore. Aguarde a mensagem. $2. Aperte BACKSPACE para desmarcar a última árvore marcada. $3. Aperte SHIFT + ENTER para marcar as coordenadas do baú. Aguarde o target e selecione o baú $4. Aperte ESC ao término da marcação. $ $ Dicas: Para maior eficiência, tente fazer caminhos curtos e desobstruídos entre as árvores, $ marque as árvores e o baú bem próximo deles. Tente marcar a última árvore $ próximo da primeira.
    goto config

    config:
    if *existance = #true
    goto main
    onHotkey ENTER
    gosub mark %config
    onHotkey ENTER SHIFT
    gosub bankmark
    onHotKey BACK
    gosub delmark
    onHotkey ESC
    {
    gosub back 1
    set *max %config
    set *existance #true
    goto main
    }
    goto config

    main:
    set #ltargetz 0
    set #ltargetkind 3
    set #lobjectid %axe
    gosub go_chop %count
    event macro 17 0
    target
    event macro 22 0
    set #scnt 0
    goto journal

    journal:
    deletejournal
    scanjournal 1
    ;##########################| Procedimento
    if lenhar in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if line_of_sight in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if far in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if muito_longe in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if madeiras_aqui in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if fail_to_produce in #journal
    goto check_update
    if in_your_pack in #journal
    goto check_update
    if lumberjacking in #journal
    goto check_update
    if madeira_aqui_para_tirar in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if it_appears_immune in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if nao_conseguiu in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if reach_this in #journal
    {
    set %count %count + 1
    goto check_update
    }
    if #scnt > 9
    goto check_update
    if na_sua_pack in #journal
    goto check_update
    if nada_para_lenhar in #journal
    {
    set %count %count + 1
    goto check_update
    }
    ;##########################| Segurança
    if #hits < #maxhits
    {
    msg $guards$
    wait 5s
    }
    if hits_you in #journal
    msg $guards$
    if attempt in #journal
    msg $guards$
    if stealing in #journal
    msg $guards$
    if peek in #journal
    msg $guards
    if attacking in #journal
    msg $guards$
    goto journal

    check_update:
    if %count => *max
    goto reset
    if %count = 1
    gosub eat
    set %a_skill ( #skill - %skill )
    repeat
    {
    ignoreitem #findid
    finditem ZLK C_ . #backpackid
    if ( #findcol = 0 ) && ( #findid <> X )
    set %normal_logs #findstack
    if #findcol = 2419
    set %light_logs #findstack
    if #findcol = 2312
    set %dark_logs #findstack
    if #findcol = 2009
    set %hard_logs #findstack
    if #findcol = 2116
    set %old_logs #findstack
    if #findcol = 2126
    set %elven_logs #findstack
    }
    until #findid = X
    ignoreitem reset
    if #weight > 380
    gosub bank
    menu delete skill
    menu delete u_skill
    menu delete nlogs
    menu delete llogs
    menu delete dlogs
    menu delete hlogs
    menu delete ologs
    menu delete elogs
    menu text nlogs 480 74 %normal_logs
    menu text llogs 480 94 %light_logs
    menu text dlogs 480 114 %dark_logs
    menu text hlogs 480 134 %hard_logs
    menu text ologs 480 154 %old_logs
    menu text elogs 480 174 %elven_logs
    menu text skill 167 234 #skill
    menu text u_skill 210 234 // + %a_skill
    goto main

    reset:
    set %x *movex_ . %1
    set %y *movey_ . %1
    move %x %y 0
    set %count 1
    goto main

    sub eat
    finditem %food
    set #lobjectid #findid
    event macro 17 0
    return

    sub go_chop
    set %x *movex_ . %1
    set %y *movey_ . %1
    move %x %y 0
    set %treex *treex_ . %1
    set %treey *treey_ . %1
    set %treetile *treetile_ . %1
    set #ltargetx %treex
    set #ltargety %treey
    set #ltargettile %treetile
    return

    sub mark
    set *movex_ . %1 #charposx
    set *movey_ . %1 #charposy
    set *treex_ . %1 #ltargetx
    set *treey_ . %1 #ltargety
    set *treetile_ . %1 #ltargettile
    event sysmessage Arvore ( %config )
    set %config %config + 1
    return

    sub delmark
    set %config %config - 1
    event sysmessage Arvore ( %config ) deletada
    return

    sub bankmark
    set *bankx #charposx
    set *banky #charposy
    msg $bank$
    wait 10
    set #targCurs 1
    while #targCurs = 1
    { }
    set *container #ltargetid
    event sysmessage Container: *container
    return

    sub bank
    move *bankx *banky 0
    wait 15
    msg $bank$
    repeat
    {
    finditem ZLK C_ . #backpackid
    exevent drag #findid #findstack
    wait 10
    exevent dropc *container
    wait 10
    }
    until #findid = X
    set %normal_logs 0
    set %light_logs 0
    set %dark_logs 0
    set %hard_logs 0
    set %old_logs 0
    set %elven_logs 0
    return
    __________________________________

    CAVALEIROS TEMPLARIOS


    conseguiu fazer funcionar?? aqui comigo ele fica só na primeira arvore e nao sai.

    Anderick

    Mensagens : 6
    Data de inscrição : 23/01/2017

    Re: MACRO DE LUMBERJACKING - GUARDA NO BANCO

    Mensagem por Anderick em Qui Jan 26, 2017 11:14 pm

    Também testei, e ficou só na primeira árvore!!

    Conteúdo patrocinado

    Re: MACRO DE LUMBERJACKING - GUARDA NO BANCO

    Mensagem por Conteúdo patrocinado


      Data/hora atual: Dom Ago 20, 2017 10:41 am