Swab the Deck Macro

[greenhairedtroll]

*Edited my last post a couple of days ago and didn't notice that it hasn't come back since then. Must have deleted it lol.
*Seeing that this macro [my first macro] is somewhat crude-looking, suggestions are welcome so as to improve its quality.

Problems with the macro:
*Macro fails to return to alb_ship if for some reason you enter the portals back to Alberta while catching the rats.
*Reuse of Leaf Cat Ball even though the "roulette" hasn't been stopped yet. The macro still manages to catch rats, but still, some Leaf Cat Balls are wasted.
*Once the last Leaf Cat Ball has been used, the macro already goes back to the quest NPC even though the "roulette" hasn't been stopped yet.

*To activate [in case you don't have Mystic Leaf Cat Balls in your inventory], enter "macro swab" in your console.

*******************************************************************************************

automacro swabthedeck {
map alberta
inventory "Mystic Leaf Cat Ball" > 0
run-once 1
call {
do move 96 62
pause 1
do talknpc 104 60 c r0 n
pause 2
do talknpc 104 60 c n
pause 2
}
}
macro swab {
do move alberta 96 62
pause 1
do talknpc 104 60 c r0 n
pause 1
call getballs
}

macro getballs {
do move alberta 96 62
pause 1
do talknpc 104 60 c n
pause 1
do talknpc 104 60 c n
pause 1
do talknpc 104 60 c n
pause 1
do talknpc 104 60 c n
pause 1
do move alb_ship 37 174
pause 1
call hulika
pause 1
}

automacro hulika {
monster Sticky Rat > 0
inventory "Leaf Cat Ball" > 0
location alb_ship 70 99
call {
call hulikana
pause 1
}
timeout 5
}

macro hulikana {
$item = @inventory(Leaf Cat Ball)
do a $.lastMonsterID
pause 2
do im $item $.lastMonsterID
do pet capture $.lastMonsterID
pause 1
}
}

automacro hulikauli {
monster Sticky Rat > 0
inventory "Leaf Cat Ball" <= 4
inventory "Leaf Cat Ball" > 0
call {
call hulikana
pause 1
}
timeout 5
}

automacro balikna {
inventory "Leaf Cat Ball" < 1
inventory "Mystic Leaf Cat Ball" > 0
run-once 1
call {
do move alberta 96 62
pause 1
do talknpc 104 60 c n
pause 1
}
}

[greenhairedtroll]

Forgot to mention:
*Add the line "Sticky Rat 3 0 0" to the mon_control.txt in your control folder, since when I tested it without the "mob mode" on, it just continously attacks the Sticky Rat and fails to use the Leaf Cat Ball on the rat.
*If someone could tell me how to make the bot just hit the monster once then stop attacking it, I would appreciate it

[EternalHarvest]

hit the monster once then stop attacking it, I would appreciate it :D

There's tankMode, but it probably won't be very helpful in this case. Try http://wiki.openkore.com/index.php/as

[Cloudthers]

Hi

I made my own macro few months ago. Here's the codes

Code: Select all

    ###tables>item> = 12408#Leaf_Cat_Ball#
    ###tables>item> = 6221#Mystic_Leaf_Cat_Ball#
    ###tables>item> = 6222#Sparkling_Bead#
    ###config> attackAuto 0
    ###config> attackAuto_party 0
    ###config> route_randomWalk_inTown 0
    ###config> lockMap alberta

    automacro beginning {

      map alberta, alb_ship
      exclusive 1

      call {
     
      $begin = 0

      }
    }

    automacro findrat {
       
        monster Sticky Rat <= 3   
        inventory "Leaf Cat Ball" >= 1
        location alb_ship
        exclusive 1
        run-once 1

        call findratnow

    }

    macro findratnow {

       do ai manual
       do im @inventory(Leaf Cat Ball) $.lastMonsterID
       do pet capture $.lastMonsterID
       do ai on

       release findrat
       
    }

    automacro talknpc {
       
       location alberta 95 70 114 45
       inventory "Leaf Cat Ball" < 5
       run-once 1
       exclusive 1

       call talknow

    }

    macro talknow {

       do ai manual

       if (@inventory(Mystic Leaf Cat Ball) < 0) goto nothing
          do talknpc 104 60 n
          log ===============================================================
          log
          log Please wait for next 20 hours [ $.hour : $.minute : $.second  ]
          log
          log ===============================================================

          do ai on
          release talkncp
          release noballs
          do relog 72000

       :nothing 
          if (@inventory(Leaf Cat Ball) < 0 || $begin = 0) goto zero
             :one
            while (@invamount(Leaf Cat Ball) < 5) as ballloop   
                do talknpc 104 60 n
             end ballloop
             goto end

          :zero
          do talknpc 104 60 c r0 n
          goto one

       :end
       $begin = 1
       do stand
       do ai on

       do conf route_randomWalk_inTown 1
       do conf lockMap alb_ship

       release talknpc
       release noballs

    }

    automacro noballs {

       inventory "Leaf Cat Ball" == 0
       exclusive 1
       run-once 1

       call noball@all
    }

    macro noball@all {

       do conf route_randomWalk_inTown 0
       do conf lockMap alberta
       
       do move alberta 106 65
       
    }