XP while AFK.

solar · Jun 25, 2006

This works great at any level below 30 but not so well above 30. Make sure you have the stone that you get for LDON's you'll need that. My brother and I've used it to get from level 15 to 50 in a long weekend.

Make sure you change the password at the very end. No need in an IRC room full of people saying "Password" and everyone loging out.

Any you're all wellcome to join the server to watch! (that's the fun part)

Rich (BB code):

 |30Shroud from solar and PayBackTime
|What you need to do to use this.
|First shroud as something that can fight (I suggest the Raptor) at level 30
|load up with bandages and some level II HOT potions if you want to run it more than 12 hours get some food and drink too. and get to nedaria's landing (/zone nedaria)
|Setup your AA points and save them.  Attack speed is nice :)
|then run this mac and watch
|
|TODO:
|add event dzquit for stuck most of the time you stay in the rat room
|-------------------------------------------------------------------------------
|Changes we've made :)  This is still a work in progress!
|------------------------------------------------------------------------------
|Zone checks and GM checks before each use of the warp
|loadModule for the Rwarp command.
|Removed use of all waypoints and we now use real loc's with zone id checks
|will echo how much exp and aa exp (and points) after each zone
|added a logout password and restart mission
|removed my taunt about keypress 1
|removed the linux commands sleep from macro and replaced delay :?
|added a TODO area to make note of changes I'd like to see
|removed the need for the keypress one making this a real script that can run
|added a /return in newround and cleaned up code
|Rewrote a new Sub for restarting the mac.  No need in having it in here 5 times the exact same.
|Another Route that will get you into the zone if you've gotten stuck in the Guildloby
|Echo your money and stats to the IRC room
|Getting back into the mission once you've died
|Looting for coprses
|Working version of newround
|The abilty to get a new round
|Spits Leadership data to the IRC room
|connects to the IRCD
|-------------------------------------------------------------------------------
|Macro shroud5 for mq2 by PayBackTime, version 30MAR2006
|	/notify progressionselectionwnd Progressionbranchlist listselect 3
|What's new:
|Added the functions to allow using 3 types of potions:
|  1) Distillate of health II (POK bought. Don't use it if you have boon of vitality spell)
|      -- this is an AC/hp buff, casters need this to survive.
|      -- you must place this potion at an inventory slot (i.e., not in bags)
|      -- you need 12 of this potion if you plan to stay for the entire 6 hours
|  2) Distillate of celestial healing II (POK bought. By using this you don't need bandages)
|      -- this is a Heal over time spell, trigged when your hp drops to below 60%
|      -- you must put this potion at your potion belt 1 position, however you don't
|         need to put actual potions in an inventory slot. You can put them in bags.
|         (shift-p to open the potion belt, Ctrl-click the potion, then click position 1 of potion belt)
|      -- you need maybe 60 of this potion if you plan to stay for the entire 6 hours
|  3) Distillate of skinspikes II (can only be made by shamans. This is a 10point DS)
|      -- this is a 10 point DS, will help you kill a lot faster!
|      -- you must put this potion at your potion belt 2 position, however you don't
|         need to put actual potions in an inventory slot. You can put them in bags.
|         (shift-p to open the potion belt, Ctrl-click the potion, then click position 2 of potion belt)
|      -- you need 30 of this potion if you plan to stay for the entire 6 hours
|Also the macro will end when you enter POK or Nedaria, or a GM enters the zone.
|Fixed the problem of stucking behind the box in rat room
|
|What this macro does:
|
|*Use a shrouded level 5 and hunt in the forgotten hall for unlock shroud forms
|
|*What you need to do before invoking the macro:
|
|*You must go to Nedaria's landing after changing into a level 5 shrouded form,
| and say 'interested in visiting' to NPC Eldros Danmor to start an instance of
| the forgotten hall. Zone in is at eastern side, in a cave. Click the lone stone
| besides the NPC standing there. The instance will last for 6 hours.
| WARNING: WOLVES MAY BE KOS TO CERTAIN CLASSES, THEY ARE LEVEL 20+ SO BE AWARE!
|
|*You also need to bring backpacks of bandages with you. Bandages can be purchased
| from the female merchant in front of the small bank in POK. Suggest 2-3 backpacks
| for casters, 1 for melees.
|
|*It is recommended that you bring potions (follow the above instructions)
| for caster type shrouds.
| 
|*Invoke the macro after zoning into the forgotten hall and get to the rat room,
| Do not invoke it at zone in since the program assumes you are either in the 3 rooms,
| or somewhere in between any two rooms.
|
|The following are some values in echo'ed messages in case you wonder what they mean:
|
|*Values for room (RV_ROOM): 1=rat room, 2=bat room, 3=reject room
|
|*Values for corridor (RV_CORR): 10=rat room, 15=turn point between rat and bat rooms
|                     20=bat room, 24=outside bat room, 25=turn point between bat and reject rooms
|                     30=reject room, 35=outside reject room
|--------------------------------------------------------------------------------

	#event AltTell "#1# tells you #2#" 


Sub Main


   /declare RV_HasTarget        int outer  0
   /declare RV_TargetDead       int outer  0
   /declare RV_DotUsed          int outer  0
   /declare RV_ROOM             int outer  0
   /declare RV_CORR             int outer  0
   /declare RV_GOTO             int outer  0
   /declare RV_CNT              int outer  0
   /declare X2                  int outer  0
   /declare Y2                  int outer  0
   /declare LocXP2              int outer  0
   /declare LocXM2              int outer  0
   /declare LocYP2              int outer  0
   /declare LocYM2              int outer  0

/plugin mq2irc
/plugin mq2switch
/plugin mq2rwarp
/plugin mq2cobalt
/i quit (restarting script)
/iconnect irc.evil-fish.net 6667 #eq ${Me.Name}
/echo warp wp rat
/if (${Spawn[gm].ID}) /call PanicSub
/if (${Zone.ID}==998) /warp loc -600 145 2
/delay 2
/notify AAWindow AAW_LoadButton leftmouseup
/delay 2
/doevents

   :Start

   /call GetTarget

   :KillAdds
   /if (${RV_HasTarget}) /call CombatSub
   /call ResetSub

   /if (${Target.ID}) {
      /delay 1s
      /varset RV_HasTarget 1
      /goto :KillAdds
   }
   /call BandSub
   /goto :Start
   
/return

|--------------------------------------------------------------------------------
|SUB: Aquire Target
|--------------------------------------------------------------------------------
Sub GetTarget

   /if (${RV_ROOM}==0) {
           /keypress esc
           /keypress esc
           /keypress esc
           /keypress esc
           /varset RV_GOTO 1
           /call RoomSub
           /return
   }

   /if (${RV_ROOM}==1) {
          /delay 2
        /target rat npc
        /if (!${Target.ID} || ${Target.Y}>-475) {
           /keypress esc
           /keypress esc
           /keypress esc
           /keypress esc
           /varset RV_GOTO 2
           /call RoomSub
           /return
        }
   }
   /if (${RV_ROOM}==2) {
           /delay 2
        /target bat npc
        /if (!${Target.ID} || ${Target.Y}>-475) {
           /keypress esc
           /keypress esc
           /keypress esc
           /keypress esc
           /varset RV_GOTO 3
           /call RoomSub
           /return
        }
   }
   /if (${RV_ROOM}==3) {
        /delay 2
        /target reject npc
        /if (!${Target.ID}) {
           /delay 2
          /target bat npc
        }
        /if (!${Target.ID} || ${Target.X}<-80) {
           /delay 2
           /keypress esc
           /keypress esc
           /keypress esc
           /keypress esc
           /target rat npc
        }
        /if (!${Target.ID} || ${Target.Y}<-500) {
           /if (!${Target.ID}) {
               /sit
               /i say wait for rat room to respawn...
               /delay 30s
               /stand
           }
           /if (${Target.Y}<-500) {
               /delay 2
               /keypress esc
               /keypress esc
               /keypress esc
               /keypress esc
               /varset RV_GOTO 1
               /call RoomSub
               /return
           }
        }
   }

   /if (${Target.ID}) {
       /varset RV_HasTarget 1
       /return
   }
 
/return

|--------------------------------------------------------------------------------
|SUB: Combat
|--------------------------------------------------------------------------------
Sub CombatSub

   /i say Attacking ${Target.Name} NOW!  ${Me.PctHPs}%HP ${Me.PctMana}%MP ${Me.PctEndurance}%Endurance ${Me.Platinum}pp ${Me.Gold}gp ${Me.Silver}sp ${Me.Copper}
   /varset RV_TargetDead 0
   /varset RV_DotUsed 0
   
   /delay 2

   :CombatLoop
 
   /call MoveSub

   /attack on

   /if (${Target.ID} && ${Me.State.NotEqual[STUN]}) {
      /if (${Target.ID}) /face fast
      /if (!${RV_DotUsed}) {
         /if (${Me.AltAbilityReady[Swarm of Pain]} && ${Me.CurrentMana} >=11 && !${Me.Moving} && !${Me.Casting.ID} ) {
         /aa act Swarm of Pain
         /varset RV_DotUsed 1
         /delay 2s
         }
         /if (${Me.AltAbilityReady[Lesion]} && ${Me.PctEndurance} >=6 && !${Me.Casting.ID} ) {
         /aa act Lesion
         /varset RV_DotUsed 1
         }
      }
      /if (${Me.AltAbilityReady[Frost]} && ${Me.CurrentMana} >=5 && !${Me.Moving} && !${Me.Casting.ID} ) {
      /aa act Frost
      /delay 2s
      }
      /if (${Me.AltAbilityReady[Mana Bolt]} && ${Me.CurrentMana} >=4 && !${Me.Moving} && !${Me.Casting.ID} ) {
      /aa act Mana Bolt
      /delay 2s
      }
      /if (${Me.AbilityReady[Kick]} && ${Target.Distance}<17 && !${Me.Casting.ID}) {
      /doability "Kick"
      }
      /if (${Me.AltAbilityReady[Maul]} && ${Me.PctEndurance} >=6 && !${Me.Casting.ID} ) {
      /aa act Maul
      /delay 2s
      }
      /if (${Me.PctHPs}<70 && ${FindItem[Distillate of Celestial Healing II].InvSlot}) {
        /potionbelt activate 1
        /delay 1s
      }
  }

   /if (!${Target.ID} || ${Target.Type.Equal[Corpse]}) {
|   /echo Leadership XP ${Me.PctGroupLeaderExp} ${Me.GroupLeaderPoints}
     /attack off
      /keypress forward
      /keypress back
     
      /varset RV_TargetDead 1
      /if (!${Target.ID}) {
         /call ResetSub
         /return
      }
   }

   /if (!${RV_TargetDead}) {
      /goto :CombatLoop
   }
   
/return

 
|--------------------------------------------------------------------------------
|SUB: Change Room
|--------------------------------------------------------------------------------
Sub RoomSub
 
    :Startmove

    /varset RV_ROOM 0
    /varset RV_CORR 0
    /if (${Me.X}>100 && ${Me.Y}<-500 )                        /varset RV_CORR 10
    /if (${Me.X}<-80 )                                        /varset RV_CORR 20
    /if (${Me.X}>60 && ${Me.Y}>-445 )                         /varset RV_CORR 30
    /if (${Me.X}>=-15 && ${Me.X}<=100 && ${Me.Y}<-500 )        /varset RV_CORR 15
    /if (${Me.X}>=-80 && ${Me.X}<-15)                          /varset RV_CORR 25
    /if (${Me.X}>=-15 && ${Me.Y}>=-500 && ${Me.Y}<=-445 )     /varset RV_CORR 35

    /if (${RV_GOTO}==1 ) /goto :Moveto1
    /if (${RV_GOTO}==2 ) /goto :Moveto2
    /if (${RV_GOTO}==3 ) /goto :Moveto3

   :Moveto1
      /if (${Me.X}>100 && ${Me.Y}<-500 ) {
         /keypress back
          /delay 2
          /varset RV_ROOM 1
          /return
      }
   :Moveroom3to1
      /if (${RV_CORR}==30 ) {   
      /face fast loc -390, 135
      /call Move2Sub
      /if (${Me.Y}<=-385 && ${Me.Y}>=-395 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
         /delay 2
         /varset RV_CORR 35
         /goto :Movecorr3to1
      }
      /goto :Moveroom3to1
      }
   :Movecorr3to1
      /if (${RV_CORR}==35  ) {   
      /face fast loc -475, 135
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
         /varset RV_CORR 25
         /goto :Movecorr2to1
      }
      /goto :Movecorr3to1
      }
   :Movecorr2to1
      /if (${RV_CORR}==25  ) {   
      /face fast loc -475, -40
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 15
         /goto :Movecorr1to1
      }
      /goto :Movecorr2to1
      }
   :Moveroom2to1
      /if (${RV_CORR}==20 ) {   
      /face fast loc -560, -143
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-138 && ${Me.X}>=-148) {
         /keypress back
          /delay 2
         /varset RV_CORR 24
         /goto :Movecorr24to1
      }
      /goto :Moveroom2to1
      }
   :Movecorr24to1
      /if (${RV_CORR}==24  ) {   
      /face fast loc -560, -40
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 15
         /goto :Movecorr1to1
      }
      /goto :Movecorr24to1
      }
   :Movecorr1to1
      /if (${RV_CORR}==15 ) {   
      /face fast loc -600, -40
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /varset RV_CORR 10
         /goto :Movelastto1
      }
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 10
         /goto :Movelastto1
      }
      /goto :Movecorr1to1
      }
   :Movelastto1
      /if (${RV_CORR}==10 ) {   
      /face fast loc -600, 150
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=155 && ${Me.X}>=145) {
         /keypress back
          /delay 2
          /varset RV_ROOM 1
          /return
      }
      /goto :Movelastto1
      }
    /goto :Moveto1

   :Moveto2
      /if (${Me.X}<-80 ) {
         /keypress back
          /delay 2
          /varset RV_ROOM 2
          /return
      }
   :Moveroom3to2
      /if (${RV_CORR}==30 ) {   
      /face fast loc -390, 135
      /call Move2Sub
      /if (${Me.Y}<=-385 && ${Me.Y}>=-395 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
         /varset RV_CORR 35
         /goto :Movecorr3to2
      }
      /goto :Moveroom3to2
      }
   :Movecorr3to2
      /if (${RV_CORR}==35  ) {   
      /face fast loc -475, 135
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
         /varset RV_CORR 25
         /goto :Movecorr2to2
      }
      /goto :Movecorr3to2
      }
   :Movecorr2to2
      /if (${RV_CORR}==25  ) {   
      /face fast loc -475, -40
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 24
         /goto :Movecorr24to2
      }
      /goto :Movecorr2to2
      }
   :Moveroom1to2
      /if (${RV_CORR}==10 ) {   
      /face fast loc -600, 150
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=155 && ${Me.X}>=145) {
         /keypress back
          /delay 2
         /varset RV_CORR 15
         /goto :Movecorr1to2
      }
      /goto :Moveroom1to2
      }
   :Movecorr1to2
      /if (${RV_CORR}==15 ) {   
      /face fast loc -600, -40
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 24
         /goto :Movecorr24to2
      }
      /goto :Movecorr1to2
      }
    :Movecorr24to2
      /if (${RV_CORR}==24  ) {   
      /face fast loc -560, -40
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 20
         /goto :Movelastto2
      }
      /goto :Movecorr24to2
      }
   :Movelastto2
      /if (${RV_CORR}==20 ) {   
      /face fast loc -560, -143
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-138 && ${Me.X}>=-148) {
         /keypress back
           /delay 2
          /varset RV_ROOM 2
          /return
      }
      /goto :Movelastto2
      }
    /goto :Moveto2

   :Moveto3
      /if (${Me.X}>60 && ${Me.Y}>-445 ) {
         /keypress back
          /delay 2
          /varset RV_ROOM 3
          /return
      }
   :Moveroom1to3
      /if (${RV_CORR}==10 ) {   
      /face fast loc -600, 150
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=155 && ${Me.X}>=145) {
         /keypress back
          /delay 2
         /varset RV_CORR 15
         /goto :Movecorr1to3
      }
      /goto :Moveroom1to3
      }
   :Movecorr1to3
      /if (${RV_CORR}==15 ) {   
      /face fast loc -600, -40
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 25
         /goto :Movecorr2to3
      }
      /goto :Movecorr1to3
      }
   :Moveroom2to3
      /if (${RV_CORR}==20 ) {   
      /face fast loc -560, -143
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-138 && ${Me.X}>=-148) {
         /keypress back
          /delay 2
         /varset RV_CORR 24
         /goto :Movecorr24to3
      }
      /goto :Moveroom2to3
      }
    :Movecorr24to3
      /if (${RV_CORR}==24  ) {   
      /face fast loc -560, -40
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 25
         /goto :Movecorr2to3
      }
      /goto :Movecorr24to3
      }
   :Movecorr2to3
      /if (${RV_CORR}==25  ) {   
      /face fast loc -475, -40
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 35
         /goto :Movecorr3to3
      }
      /goto :Movecorr2to3
      }
   :Movecorr3to3
      /if (${RV_CORR}==35  ) {   
      /face fast loc -475, 135
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
         /varset RV_CORR 30
         /goto :Movelastto3
      }
      /goto :Movecorr3to3
      }
   :Movelastto3
      /if (${RV_CORR}==30 ) {   
      /face fast loc -390, 135
      /call Move2Sub
      /if (${Me.Y}<=-385 && ${Me.Y}>=-395 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
          /varset RV_ROOM 3
          /return
      }
         /goto :Movelastto3
      }
    /goto :Moveto3
/return


|--------------------------------------------------------------------------------
|SUB: Move2, moving when you do not have a target, esp. moving from room to room
|--------------------------------------------------------------------------------
Sub Move2Sub
     
      /if (${Spawn[gm].ID}) /call PanicSub
      /if (${Spawn[eldros].ID}) /call NewRound
      /if (${Spawn[shroudkeeper].ID}) /call DeadSub
	/if (${Spawn[alaria].ID}) /call NedariaSub

      /keypress forward hold
      /varset X2 ${Me.X}
      /varset Y2 ${Me.Y}
      /varcalc LocXP2 ${X2}+1
      /varcalc LocXM2 ${X2}-1
      /varcalc LocYP2 ${Y2}+1
      /varcalc LocYM2 ${Y2}-1
      /delay 2
      /if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
         /keypress back
         /echo stucked corr= ${RV_CORR} goto= ${RV_GOTO}, retry...
         /delay 2
         /if (${Me.X}>100 && ${Me.Y}<-500 ) {
                       /if (${Me.X}>100 && ${Me.Y}<-645) {
                             /keypress back
                             /delay 2
                             /face fast loc -662, 178
                             /keypress forward hold
                             /delay 2s
                       }
                       /varset RV_CORR 10
         }
         /if (${Me.X}<-80 )                                        /varset RV_CORR 20
         /if (${Me.X}>60 && ${Me.Y}>-445 )   {
                  /keypress back
                  /delay 2
                  /face fast loc ${Math.Rand[10000]}, ${Math.Rand[10000]}
                  /keypress forward hold
                  /delay 2s
                  /varset RV_CORR 30
         }
         /if (${Me.X}>=-15 && ${Me.X}<=100 && ${Me.Y}<-500 )  {
             /if (${RV_CORR}==15 )                   /varset RV_CORR 14
             /if (${RV_CORR}<14 || ${RV_CORR}>15)    /varset RV_CORR 15
             /if (${RV_CORR}==14 )                   /varset RV_CORR 10
         }
         /if (${Me.X}>=-80 && ${Me.X}<-15) {
             /if (${RV_CORR}==15 || ${RV_CORR}==24 || ${RV_CORR}>25)    /varset RV_CORR 22
             /if (${RV_CORR}==25 || ${RV_CORR}==20 ) /varset RV_CORR 24
             /if (${RV_CORR}==10 )                   /varset RV_CORR 15
             /if (${RV_CORR}==22 )                   /varset RV_CORR 25
         }
         /if (${Me.X}>=-15 && ${Me.Y}>=-500 && ${Me.Y}<=-445 ) /varset RV_CORR 35
      }
/return

|--------------------------------------------------------------------------------
|SUB: Move, moving when you have a target, during combat, etc.
|--------------------------------------------------------------------------------
Sub MoveSub

      /varset RV_CNT 0

      :MoveLoop
     
      /stand
      /if (${Target.Distance}>17) {
              /if (${Target.ID}) /face fast
              /keypress forward hold
              /varset X2 ${Me.X}
              /varset Y2 ${Me.Y}
              /varcalc LocXP2 ${X2}+1
              /varcalc LocXM2 ${X2}-1
              /varcalc LocYP2 ${Y2}+1
              /varcalc LocYM2 ${Y2}-1
              /delay 5
              /if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
                  /if (${Me.X}>100 && ${Me.Y}<-500 ) {
                          /if (${Me.X}>100 && ${Me.Y}<-645) {
                                /keypress back
                                /delay 2
                                /face fast loc -662, 178
                                /keypress forward hold
                                /delay 2s
                          }
                           /keypress back
                          /delay 2
                          /face fast loc -600, 150
                          /echo  stucked when moving to mob in the rat room, retry...
                          /keypress forward hold
                          /delay 2s
                          /keypress back
                          /if (${Target.ID}) /face fast
                          /varcalc RV_CNT ${RV_CNT}+1
                          /if (${RV_CNT}>100 && ${Target.PctHPs}==100) {
                                 /keypress back
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /echo  stucked too many times, restarting cycles...
                                 /call RoomSub
                                 /return
                          }
                          /goto :MoveLoop
                  }
                  /if (${Me.X}<-80 )  {
                          /keypress back
                          /delay 2
                          /face fast loc -560, -143
                          /echo  stucked when moving to mob in the bat room, retry...
                          /keypress forward hold
                          /delay 2s
                          /keypress back
                          /if (${Target.ID}) /face fast
                          /varcalc RV_CNT ${RV_CNT}+1
                          /if (${RV_CNT}>100 && ${Target.PctHPs}==100) {
                                 /keypress back
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /echo  stucked too many times, restarting cycles...
                                 /call RoomSub
                                 /return
                          }
                          /goto :MoveLoop
                 }
                  /if (${Me.X}>60 && ${Me.Y}>-445 )  {
                          /keypress back
                          /delay 2
                          /face fast loc ${Math.Rand[10000]}, ${Math.Rand[10000]}
                          /echo  stucked when moving to mob in the reject room, retry...
                          /keypress forward hold
                          /delay 2s
                          /keypress back
                          /if (${Target.ID}) /face fast
                          /varcalc RV_CNT ${RV_CNT}+1
                          /if (${RV_CNT}>100 && ${Target.PctHPs}==100) {
                                 /keypress back
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /echo  stucked too many times, restarting cycles...
                                 /call RoomSub
                                 /return
                          }
                            /goto :MoveLoop
                  }
                  /keypress back
                  /keypress esc
                  /keypress esc
                  /keypress esc
                  /keypress esc
                  /echo  stucked outside, restarting cycles...
                  /call RoomSub
                  /return
              }
              /keypress back             
              /if (${Target.ID}) /face fast
              /goto :MoveLoop
      }

 
       /if (${Target.Distance}>15) {
              /if (${Target.ID}) /face fast
              /keypress forward hold
              /delay 2
              /keypress back
              /if (${Target.ID}) /face fast
      }
/return

|--------------------------------------------------------------------------------
|SUB: Reset  NOW WITH LOOTING!
|--------------------------------------------------------------------------------
Sub ResetSub

 
   /tar corpse radius 40
   /call MoveSub
   /loot
   /delay 5
   /keypress esc
   /keypress esc
   /keypress esc
   /keypress esc
   /keypress esc
   /keypress esc
   
   /varset RV_HasTarget 0
   /varset RV_TargetDead 0
   
   
/return
|--------------------------------------------------------------------------------
|SUB: Bandage, Heal and Buff Self
|--------------------------------------------------------------------------------
Sub BandSub

   /if (${Spawn[gm].ID}) /call PanicwSub
   /if (${Spawn[eldros].ID}) /call NewRound
   /if (${Spawn[shroudkeeper].ID}) /call DeadSub
   /if (${Spawn[alaria].ID}) /call NedariaSub
   /target myself
   /delay 5

   :BuffLoop
 
   /if (!${Me.Buff[Pure Thought II].ID} && ${Me.AltAbilityReady[Pure Thought]}) {
      /aa act Pure Thought
      /delay 6s
      /goto :BuffLoop
   }

   /if (!${Me.Buff[Gift of Speed II].ID} && ${Me.AltAbilityReady[Gift of Speed]}) {
      /aa act Gift of Speed
      /delay 6s
      /goto :BuffLoop
   }

   /if (!${Me.Buff[Distillate of Skinspikes].ID} && ${FindItem[Distillate of Skinspikes II].InvSlot}) {
      /potionbelt activate 2
      /delay 5s
   }
   /if (!${Me.Buff[Boon of Vitality II].ID} && !${Me.Buff[Elixir of Health II].ID}) {
      /if (${Me.AltAbilityReady[Boon of Vitality]} && ${Me.CurrentMana} >=3) {
         /aa act Boon of Vitality
         /delay 6s
         /goto :BuffLoop
      }
      /if (${FindItem[Distillate of Health II].InvSlot}>=22 && ${FindItem[Distillate of Health II].InvSlot}<=29 ) {
         /cast item "Distillate of Health II"
         /delay 3s
      }
   }

   :HealLoop
   
   /if (${Me.PctHPs} <= 65 && ${Me.AltAbilityReady[Heal Wounds]} && ${Me.PctMana} > 70) {
      /aa act Heal Wounds
      /delay 5s
      /goto :HealLoop
   }
 
   /sit
   /delay 1s

   :BandLoop
 
   /if (${Me.PctHPs} <= 69 && ${Me.AbilityReady[Bind Wound]}) {
      /target
	/doability "Bind Wound"
      /delay 15s
      /goto :BandLoop
   }

   :SitLoop
 
   /if (${Me.PctMana} >0 && ${Me.PctMana} <= 70) {
	/sit
	/doevents
	/delay 6s
      /goto :SitLoop
      }

|---------------------------- 
|Stam wait
|--------------------------------
   :StamLoop
   /if (${Me.PctEndurance} >0 && ${Me.PctEndurance} <= 60) {
      /delay 6s
	/doevents
      /goto :StamLoop
      }
   }
   /stand

   /keypress esc
   /keypress esc
   /keypress esc
   /keypress esc
       
/return
|-------------------------------------------------------------------------------
|SUB: New Round not so kludge oh mania!
|-------------------------------------------------------------------------------
Sub NewRound
	/delay 120s
	/echo warp wp mission
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==182) /warp loc 311 1590 52
	/delay 2s
	/target "Eldros Danmor"
	/delay 2s
	/face fast
	/delay 2s
	/say "Interested in visiting"
	/delay 2s
	/echo warp wp zone
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==182) /warp loc 1542 -671 95
	/echo "delay 120"
	/delay 120s
	/echo warp wp rat room
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==998) /warp loc -600 145 2
	/i say I have entered ${Zone.Name}
	/switch 8
	/delay 120s
	/i say I have entered ${Zone.Name}
	/i say ${Me.PctExp}% experience...
	/i say ${Me.AAPoints} and ${Me.PctAAExp} AA exp
	/echo warp wp rat
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==998) /warp loc -600 145 2
	/call RestartSub
/return

|-------------------------------------------------------------------------------
|SUB:	Nedaria!
|	You shouldn't ever need this unless you're stuck in the Guild Lobby
|-------------------------------------------------------------------------------

Sub NedariaSub
	/echo warp wp mag
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==344) /warp loc 598 6 1.13
	/target Alaria
	/face fast
	/delay 30
	/say nedaria
	/delay 120
	/i say I have entered ${Zone.Name}
	/switch 8
	/delay 120
	/echo warp wp rat
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==998) /warp loc -600 145 2
	/call RestartSub
/return

|--------------------------------------------------------------------------------
|SUB: Panic, quit the macro
|--------------------------------------------------------------------------------
Sub PanicSub
   /keypress back
   /i say PANIC! PANIC! GM DETECTED! in zone ${Zone.Name}
   /delay 5
   /camp desktop
   /keypress back
   /endmacro
   /unload
/return
  
|----------------
|SUB: DEAD!
|----------------

Sub DeadSub
	/echo BRING OUT YOUR DEAD!
	/i say BRING OUT YOUR DEAD!
	/i say I have entered ${Zone.Name}
	/delay 120
	/switch 17
	/delay 120
	/i say I have entered ${Zone.Name}
	/echo warp wp mag
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==344) /warp loc 598 6 1.13
	/target Alaria
	/face fast
	/delay 30
	/say nedaria
	/delay 120
	/i say I have entered ${Zone.Name}
	/switch 8
	/delay 120
	/warp wp rat
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==998) /warp loc -600 145 2
	/call RestartSub
	/camp desktop
	/endmacro
/return


|------------------
|SUB:RESTART MACRO
|------------------
Sub RestartSub
	/echo warp wp rat
	/if (${Spawn[gm].ID}) /call PanicSub
	/if (${Zone.ID}==998) /warp loc -600 145 2
/return

|----------------
|SUB:DROP
|----------------
Sub Drop
	/i say Dropping my mission...
	/dzquit
/return

|----------------
|Logout
|----------------
Sub Logout
	/beep
	/beep
	/beep
	/echo Logging off
	/i say Logging out because I was told to by password
	/i quit (killed by Password)
	/camp desktop
	/delay 10s
	/endmacro
/return

|-------------------
|Sub Told to do stuff...
|These tell the mob to camp out or to get a new task.  Works great if you're stuck...
|Please change these to something Secure!
|-------------------
Sub Event_AltTell(string text)
  /if (${text.Lower.Find["PASSWORD!"]}) {
  /call Logout
}
	/if (${text.Lower.Find["NEW MISSION!"]}) {
  /call Drop
}

/return

If you like it I'd love those red cents!

Enjoy

LyricalMenace · Jun 25, 2006

How fast is the exp gain?

solar · Jun 25, 2006

LyricalMenace said:
How fast is the exp gain?

It is about one AA point a Day.

Rosk0e · Jun 25, 2006

this is cool, but whats the purpose of having everyone joining the same server?

solar · Jun 25, 2006

Rosk0e said:
this is cool, but whats the purpose of having everyone joining the same server?

I was once tempted to have all the bots sing songs (comeon tainted love with 30 bots doing the "Beep Beep" would have been cool). But it's so you can watch your bot from work and give it commands.

Hiidan · Jun 26, 2006

So I just loaded this up, it kills one mob, then sits there with itself targeted.

solar · Jun 26, 2006

What level are you running it at? 30? What is your health at that point? Do you have a bind wounds button? If not you're going to sit and heal until 70%

spony311 · Jun 27, 2006

Does this work for lvl regular xp or jsut aa? not sure if I have to be lvl 5 or 30 or both?

First shroud as something that can fight (I suggest the Raptor) at level 30

*You must go to Nedaria's landing after changing into a level 5 shrouded form,
| and say 'interested in visiting' to NPC Eldros Danmor to start an instance of
| the forgotten hall. Zone in is at eastern side, in a cave. Click the lone stone
| besides the NPC standing there. The instance will last for 6 hours.
| WARNING: WOLVES MAY BE KOS TO CERTAIN CLASSES, THEY ARE LEVEL 20+ SO BE AWARE!

I'm not sure whish I am suppose to do...also I never saw a raptor in the shrouded options..maybe I have to unlock it.

solar · Jun 27, 2006

spony311 said:
Does this work for lvl regular xp or jsut aa?

I used it to get up in levels and to get AA's so both!

someoneorsomething · Jun 27, 2006

/iconnect irc.evil-fish.net 6667 #eq ${Me.Name}

whats this line of code do

Devlin · Jun 27, 2006

Connects him/you to an Irc server,

Server: irc.evil-fish.net
Port: 6667
Channel: #eq

solar · Jun 27, 2006

someoneorsomething said:
whats this line of code do

when I wrote this stuff for the script I wanted to watch the progress of my bots through out the day from work. So I have the bots connect to that room so I could watch them and give them commands.

Devlin · Jun 28, 2006

Solar , do you still have your bots connected to the Irc channel during the day?

solar · Jun 28, 2006

Devlin said:
Solar , do you still have your bots connected to the Irc channel during the day?

I did up until very recently. But I got some new ram in and it corrupted my XP install the other day. So I spent all of my play time for yesterday diagnosing and reinstalling (and driver hunting it's like being on safari!). I've kinda got my box up and going but it's not 100% yet. Not to mention I've got to RMA some ram back at the place I bought it.

Also my brother and I've been working with our new version of lsmm. Where we use one of us to be the bot master and such. That and as I've gotten ready to play this morning Sony start up the patch spawn. So I'll be out of it for a little while longer.

Ryzon · Jun 28, 2006

Only problem I had was when a rat would get on the other side of one of those coffin things and it was just spam "you can not hit the target from here". One suggestion I have is to be able to specify a name on the command line to join the IRC room with rather than the character's actual name (In my quick test I just hard coded one). Other than that, pretty good.

solar · Jun 28, 2006

Ryzon said:
Only problem I had was when a rat would get on the other side of one of those coffin things and it was just spam "you can not hit the target from here". One suggestion I have is to be able to specify a name on the command line to join the IRC room with rather than the character's actual name (In my quick test I just hard coded one). Other than that, pretty good.

What shroud were you?

I have had this happen as the bear and some of the larger ones.

Sturmbringer · Jun 28, 2006

btw. are Ants Potions useble in shrouded form ?

Maybe this is the solution ?

damn never tested ...

solar · Jun 28, 2006

Yea I'm sure they are but this really only happens with 2 of the shrouds out of the lot and Really recomend you use the Raptor in the firstplace. He rarely gets stuck and has a high hp to dmg ratio.

Ryzon · Jun 28, 2006

I was the earth elemental shroud.

solar · Jun 29, 2006

Ryzon said:
I was the earth elemental shroud.

Look at this macro and run it as level 5 for a few rounds and you'll unlock the Dino Shroud.

Rich (BB code):

|--------------------------------------------------------------------------------
|Macro shroud5 for mq2 by PayBackTime, version 30MAR2006
|
|What's new:
|Added the functions to allow using 3 types of potions:
|  1) Distillate of health II (POK bought. Don't use it if you have boon of vitality spell)
|      -- this is an AC/hp buff, casters need this to survive.
|      -- you must place this potion at an inventory slot (i.e., not in bags)
|      -- you need 12 of this potion if you plan to stay for the entire 6 hours
|  2) Distillate of celestial healing II (POK bought. By using this you don't need bandages)
|      -- this is a Heal over time spell, trigged when your hp drops to below 60%
|      -- you must put this potion at your potion belt 1 position, however you don't
|         need to put actual potions in an inventory slot. You can put them in bags.
|         (shift-p to open the potion belt, Ctrl-click the potion, then click position 1 of potion belt)
|      -- you need maybe 60 of this potion if you plan to stay for the entire 6 hours
|  3) Distillate of skinspikes II (can only be made by shamans. This is a 10point DS)
|      -- this is a 10 point DS, will help you kill a lot faster!
|      -- you must put this potion at your potion belt 2 position, however you don't
|         need to put actual potions in an inventory slot. You can put them in bags.
|         (shift-p to open the potion belt, Ctrl-click the potion, then click position 2 of potion belt)
|      -- you need 30 of this potion if you plan to stay for the entire 6 hours
|Also the macro will end when you enter POK or Nedaria, or a GM enters the zone.
|Fixed the problem of stucking behind the box in rat room
|
|What this macro does:
|
|*Use a shrouded level 5 and hunt in the forgotten hall for unlock shroud forms
|
|*What you need to do before invoking the macro:
|
|*You must go to Nedaria's landing after changing into a level 5 shrouded form,
| and say 'interested in visiting' to NPC Eldros Danmor to start an instance of
| the forgotten hall. Zone in is at eastern side, in a cave. Click the lone stone
| besides the NPC standing there. The instance will last for 6 hours.
| WARNING: WOLVES MAY BE KOS TO CERTAIN CLASSES, THEY ARE LEVEL 20+ SO BE AWARE!
|
|*You also need to bring backpacks of bandages with you. Bandages can be purchased
| from the female merchant in front of the small bank in POK. Suggest 2-3 backpacks
| for casters, 1 for melees.
|
|*It is recommended that you bring potions (follow the above instructions)
| for caster type shrouds.
| 
|*Invoke the macro after zoning into the forgotten hall and get to the rat room,
| Do not invoke it at zone in since the program assumes you are either in the 3 rooms,
| or somewhere in between any two rooms.
|
|The following are some values in echo'ed messages in case you wonder what they mean:
|
|*Values for room (RV_ROOM): 1=rat room, 2=bat room, 3=reject room
|
|*Values for corridor (RV_CORR): 10=rat room, 15=turn point between rat and bat rooms
|                     20=bat room, 24=outside bat room, 25=turn point between bat and reject rooms
|                     30=reject room, 35=outside reject room
|--------------------------------------------------------------------------------

Sub Main

   /declare RV_HasTarget        int outer  0
   /declare RV_TargetDead       int outer  0
   /declare RV_DotUsed          int outer  0
   /declare RV_ROOM             int outer  0
   /declare RV_CORR             int outer  0
   /declare RV_GOTO             int outer  0
   /declare RV_CNT              int outer  0
   /declare X2                  int outer  0
   /declare Y2                  int outer  0
   /declare LocXP2              int outer  0
   /declare LocXM2              int outer  0
   /declare LocYP2              int outer  0
   /declare LocYM2              int outer  0


   :Start

   /call GetTarget

   :KillAdds
   /if (${RV_HasTarget}) /call CombatSub
   /call ResetSub

   /if (${Target.ID}) {
      /delay 1s
      /varset RV_HasTarget 1
      /goto :KillAdds
   }

   /call BandSub
   
   /goto :Start
   
/return

|--------------------------------------------------------------------------------
|SUB: Aquire Target
|--------------------------------------------------------------------------------
Sub GetTarget

   /if (${RV_ROOM}==0) {
           /keypress esc
           /keypress esc
           /keypress esc
           /keypress esc
           /varset RV_GOTO 1
           /call RoomSub
           /return
   }

   /if (${RV_ROOM}==1) {
          /delay 2
        /target rat npc
        /if (!${Target.ID} || ${Target.Y}>-475) {
           /keypress esc
           /keypress esc
           /keypress esc
           /keypress esc
           /varset RV_GOTO 2
           /call RoomSub
           /return
        }
   }
   /if (${RV_ROOM}==2) {
           /delay 2
        /target bat npc
        /if (!${Target.ID} || ${Target.Y}>-475) {
           /keypress esc
           /keypress esc
           /keypress esc
           /keypress esc
           /varset RV_GOTO 3
           /call RoomSub
           /return
        }
   }
   /if (${RV_ROOM}==3) {
        /delay 2
        /target reject npc
        /if (!${Target.ID}) {
           /delay 2
          /target bat npc
        }
        /if (!${Target.ID} || ${Target.X}<-80) {
           /delay 2
           /keypress esc
           /keypress esc
           /keypress esc
           /keypress esc
           /target rat npc
        }
        /if (!${Target.ID} || ${Target.Y}<-500) {
           /if (!${Target.ID}) {
               /sit
               /echo wait for rat room to respawn...
               /delay 30s
               /stand
           }
           /if (${Target.Y}<-500) {
               /delay 2
               /keypress esc
               /keypress esc
               /keypress esc
               /keypress esc
               /varset RV_GOTO 1
               /call RoomSub
               /return
           }
        }
   }

   /if (${Target.ID}) {
       /varset RV_HasTarget 1
       /return
   }
 
/return

|--------------------------------------------------------------------------------
|SUB: Combat
|--------------------------------------------------------------------------------
Sub CombatSub

   /echo Attacking Mob NOW!
   /varset RV_TargetDead 0
   /varset RV_DotUsed 0
   
   /delay 2

   :CombatLoop
 
   /call MoveSub

   /attack on

   /if (${Target.ID} && ${Me.State.NotEqual[STUN]}) {
      /if (${Target.ID}) /face fast
      /if (!${RV_DotUsed}) {
         /if (${Me.AltAbilityReady[Swarm of Pain]} && ${Me.CurrentMana} >=11 && !${Me.Moving} && !${Me.Casting.ID} ) {
         /aa act Swarm of Pain
         /varset RV_DotUsed 1
         /delay 2s
         }
         /if (${Me.AltAbilityReady[Lesion]} && ${Me.PctEndurance} >=6 && !${Me.Casting.ID} ) {
         /aa act Lesion
         /varset RV_DotUsed 1
         }
      }
      /if (${Me.AltAbilityReady[Frost]} && ${Me.CurrentMana} >=5 && !${Me.Moving} && !${Me.Casting.ID} ) {
      /aa act Frost
      /delay 2s
      }
      /if (${Me.AltAbilityReady[Mana Bolt]} && ${Me.CurrentMana} >=4 && !${Me.Moving} && !${Me.Casting.ID} ) {
      /aa act Mana Bolt
      /delay 2s
      }
      /if (${Me.AbilityReady[Kick]} && ${Target.Distance}<17 && !${Me.Casting.ID}) {
      /doability "Kick"
      }
      /if (${Me.AltAbilityReady[Maul]} && ${Me.PctEndurance} >=6 && !${Me.Casting.ID} ) {
      /aa act Maul
      /delay 2s
      }
      /if (${Me.PctHPs}<60 && ${FindItem[Distillate of Celestial Healing II].InvSlot}) {
        /potionbelt activate 1
        /delay 1s
      }
  }

   /if (!${Target.ID} || ${Target.Type.Equal[Corpse]}) {
      /attack off
      /keypress forward
      /keypress back
     
      /varset RV_TargetDead 1
      /if (!${Target.ID}) {
         /call ResetSub
         /return
      }
   }

   /if (!${RV_TargetDead}) {
      /goto :CombatLoop
   }
   
/return

 
|--------------------------------------------------------------------------------
|SUB: Change Room
|--------------------------------------------------------------------------------
Sub RoomSub
 
    :Startmove

    /varset RV_ROOM 0
    /varset RV_CORR 0
    /if (${Me.X}>100 && ${Me.Y}<-500 )                        /varset RV_CORR 10
    /if (${Me.X}<-80 )                                        /varset RV_CORR 20
    /if (${Me.X}>60 && ${Me.Y}>-445 )                         /varset RV_CORR 30
    /if (${Me.X}>=-15 && ${Me.X}<=100 && ${Me.Y}<-500 )        /varset RV_CORR 15
    /if (${Me.X}>=-80 && ${Me.X}<-15)                          /varset RV_CORR 25
    /if (${Me.X}>=-15 && ${Me.Y}>=-500 && ${Me.Y}<=-445 )     /varset RV_CORR 35

    /if (${RV_GOTO}==1 ) /goto :Moveto1
    /if (${RV_GOTO}==2 ) /goto :Moveto2
    /if (${RV_GOTO}==3 ) /goto :Moveto3

   :Moveto1
      /if (${Me.X}>100 && ${Me.Y}<-500 ) {
         /keypress back
          /delay 2
          /varset RV_ROOM 1
          /return
      }
   :Moveroom3to1
      /if (${RV_CORR}==30 ) {   
      /face fast loc -390, 135
      /call Move2Sub
      /if (${Me.Y}<=-385 && ${Me.Y}>=-395 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
         /delay 2
         /varset RV_CORR 35
         /goto :Movecorr3to1
      }
      /goto :Moveroom3to1
      }
   :Movecorr3to1
      /if (${RV_CORR}==35  ) {   
      /face fast loc -475, 135
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
         /varset RV_CORR 25
         /goto :Movecorr2to1
      }
      /goto :Movecorr3to1
      }
   :Movecorr2to1
      /if (${RV_CORR}==25  ) {   
      /face fast loc -475, -40
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 15
         /goto :Movecorr1to1
      }
      /goto :Movecorr2to1
      }
   :Moveroom2to1
      /if (${RV_CORR}==20 ) {   
      /face fast loc -560, -143
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-138 && ${Me.X}>=-148) {
         /keypress back
          /delay 2
         /varset RV_CORR 24
         /goto :Movecorr24to1
      }
      /goto :Moveroom2to1
      }
   :Movecorr24to1
      /if (${RV_CORR}==24  ) {   
      /face fast loc -560, -40
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 15
         /goto :Movecorr1to1
      }
      /goto :Movecorr24to1
      }
   :Movecorr1to1
      /if (${RV_CORR}==15 ) {   
      /face fast loc -600, -40
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /varset RV_CORR 10
         /goto :Movelastto1
      }
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 10
         /goto :Movelastto1
      }
      /goto :Movecorr1to1
      }
   :Movelastto1
      /if (${RV_CORR}==10 ) {   
      /face fast loc -600, 150
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=155 && ${Me.X}>=145) {
         /keypress back
          /delay 2
          /varset RV_ROOM 1
          /return
      }
      /goto :Movelastto1
      }
    /goto :Moveto1

   :Moveto2
      /if (${Me.X}<-80 ) {
         /keypress back
          /delay 2
          /varset RV_ROOM 2
          /return
      }
   :Moveroom3to2
      /if (${RV_CORR}==30 ) {   
      /face fast loc -390, 135
      /call Move2Sub
      /if (${Me.Y}<=-385 && ${Me.Y}>=-395 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
         /varset RV_CORR 35
         /goto :Movecorr3to2
      }
      /goto :Moveroom3to2
      }
   :Movecorr3to2
      /if (${RV_CORR}==35  ) {   
      /face fast loc -475, 135
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
         /varset RV_CORR 25
         /goto :Movecorr2to2
      }
      /goto :Movecorr3to2
      }
   :Movecorr2to2
      /if (${RV_CORR}==25  ) {   
      /face fast loc -475, -40
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 24
         /goto :Movecorr24to2
      }
      /goto :Movecorr2to2
      }
   :Moveroom1to2
      /if (${RV_CORR}==10 ) {   
      /face fast loc -600, 150
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=155 && ${Me.X}>=145) {
         /keypress back
          /delay 2
         /varset RV_CORR 15
         /goto :Movecorr1to2
      }
      /goto :Moveroom1to2
      }
   :Movecorr1to2
      /if (${RV_CORR}==15 ) {   
      /face fast loc -600, -40
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 24
         /goto :Movecorr24to2
      }
      /goto :Movecorr1to2
      }
    :Movecorr24to2
      /if (${RV_CORR}==24  ) {   
      /face fast loc -560, -40
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 20
         /goto :Movelastto2
      }
      /goto :Movecorr24to2
      }
   :Movelastto2
      /if (${RV_CORR}==20 ) {   
      /face fast loc -560, -143
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-138 && ${Me.X}>=-148) {
         /keypress back
           /delay 2
          /varset RV_ROOM 2
          /return
      }
      /goto :Movelastto2
      }
    /goto :Moveto2

   :Moveto3
      /if (${Me.X}>60 && ${Me.Y}>-445 ) {
         /keypress back
          /delay 2
          /varset RV_ROOM 3
          /return
      }
   :Moveroom1to3
      /if (${RV_CORR}==10 ) {   
      /face fast loc -600, 150
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=155 && ${Me.X}>=145) {
         /keypress back
          /delay 2
         /varset RV_CORR 15
         /goto :Movecorr1to3
      }
      /goto :Moveroom1to3
      }
   :Movecorr1to3
      /if (${RV_CORR}==15 ) {   
      /face fast loc -600, -40
      /call Move2Sub
      /if (${Me.Y}<=-595 && ${Me.Y}>=-605 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 25
         /goto :Movecorr2to3
      }
      /goto :Movecorr1to3
      }
   :Moveroom2to3
      /if (${RV_CORR}==20 ) {   
      /face fast loc -560, -143
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-138 && ${Me.X}>=-148) {
         /keypress back
          /delay 2
         /varset RV_CORR 24
         /goto :Movecorr24to3
      }
      /goto :Moveroom2to3
      }
    :Movecorr24to3
      /if (${RV_CORR}==24  ) {   
      /face fast loc -560, -40
      /call Move2Sub
      /if (${Me.Y}<=-555 && ${Me.Y}>=-565 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 25
         /goto :Movecorr2to3
      }
      /goto :Movecorr24to3
      }
   :Movecorr2to3
      /if (${RV_CORR}==25  ) {   
      /face fast loc -475, -40
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=-35 && ${Me.X}>=-45) {
         /keypress back
          /delay 2
         /varset RV_CORR 35
         /goto :Movecorr3to3
      }
      /goto :Movecorr2to3
      }
   :Movecorr3to3
      /if (${RV_CORR}==35  ) {   
      /face fast loc -475, 135
      /call Move2Sub
      /if (${Me.Y}<=-470 && ${Me.Y}>=-480 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
         /varset RV_CORR 30
         /goto :Movelastto3
      }
      /goto :Movecorr3to3
      }
   :Movelastto3
      /if (${RV_CORR}==30 ) {   
      /face fast loc -390, 135
      /call Move2Sub
      /if (${Me.Y}<=-385 && ${Me.Y}>=-395 && ${Me.X}<=140 && ${Me.X}>=130) {
         /keypress back
          /delay 2
          /varset RV_ROOM 3
          /return
      }
         /goto :Movelastto3
      }
    /goto :Moveto3
/return


|--------------------------------------------------------------------------------
|SUB: Move2, moving when you do not have a target, esp. moving from room to room
|--------------------------------------------------------------------------------
Sub Move2Sub
     
      /if (${Spawn[gm].ID}) /call PanicSub
      /if (${Spawn[eldros].ID}) /call PanicSub
      /if (${Spawn[shroudkeeper].ID}) /call PanicSub
      /keypress forward hold
      /varset X2 ${Me.X}
      /varset Y2 ${Me.Y}
      /varcalc LocXP2 ${X2}+1
      /varcalc LocXM2 ${X2}-1
      /varcalc LocYP2 ${Y2}+1
      /varcalc LocYM2 ${Y2}-1
      /delay 2
      /if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
         /keypress back
         /echo stucked corr= ${RV_CORR} goto= ${RV_GOTO}, retry...
         /delay 2
         /if (${Me.X}>100 && ${Me.Y}<-500 ) {
                       /if (${Me.X}>100 && ${Me.Y}<-645) {
                             /keypress back
                             /delay 2
                             /face fast loc -662, 178
                             /keypress forward hold
                             /delay 2s
                       }
                       /varset RV_CORR 10
         }
         /if (${Me.X}<-80 )                                        /varset RV_CORR 20
         /if (${Me.X}>60 && ${Me.Y}>-445 )   {
                  /keypress back
                  /delay 2
                  /face fast loc ${Math.Rand[10000]}, ${Math.Rand[10000]}
                  /keypress forward hold
                  /delay 2s
                  /varset RV_CORR 30
         }
         /if (${Me.X}>=-15 && ${Me.X}<=100 && ${Me.Y}<-500 )  {
             /if (${RV_CORR}==15 )                   /varset RV_CORR 14
             /if (${RV_CORR}<14 || ${RV_CORR}>15)    /varset RV_CORR 15
             /if (${RV_CORR}==14 )                   /varset RV_CORR 10
         }
         /if (${Me.X}>=-80 && ${Me.X}<-15) {
             /if (${RV_CORR}==15 || ${RV_CORR}==24 || ${RV_CORR}>25)    /varset RV_CORR 22
             /if (${RV_CORR}==25 || ${RV_CORR}==20 ) /varset RV_CORR 24
             /if (${RV_CORR}==10 )                   /varset RV_CORR 15
             /if (${RV_CORR}==22 )                   /varset RV_CORR 25
         }
         /if (${Me.X}>=-15 && ${Me.Y}>=-500 && ${Me.Y}<=-445 ) /varset RV_CORR 35
      }
/return

|--------------------------------------------------------------------------------
|SUB: Move, moving when you have a target, during combat, etc.
|--------------------------------------------------------------------------------
Sub MoveSub

      /varset RV_CNT 0

      :MoveLoop
     
      /stand
      /if (${Target.Distance}>17) {
              /if (${Target.ID}) /face fast
              /keypress forward hold
              /varset X2 ${Me.X}
              /varset Y2 ${Me.Y}
              /varcalc LocXP2 ${X2}+1
              /varcalc LocXM2 ${X2}-1
              /varcalc LocYP2 ${Y2}+1
              /varcalc LocYM2 ${Y2}-1
              /delay 5
              /if (${LocXP2}>${Me.X} && ${LocXM2}<${Me.X} && ${LocYP2}>${Me.Y} && ${LocYM2}<${Me.Y}) {
                  /if (${Me.X}>100 && ${Me.Y}<-500 ) {
                          /if (${Me.X}>100 && ${Me.Y}<-645) {
                                /keypress back
                                /delay 2
                                /face fast loc -662, 178
                                /keypress forward hold
                                /delay 2s
                          }
                           /keypress back
                          /delay 2
                          /face fast loc -600, 150
                          /echo stucked when moving to mob in the rat room, retry...
                          /keypress forward hold
                          /delay 2s
                          /keypress back
                          /if (${Target.ID}) /face fast
                          /varcalc RV_CNT ${RV_CNT}+1
                          /if (${RV_CNT}>100 && ${Target.PctHPs}==100) {
                                 /keypress back
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /echo stucked too many times, restarting cycles...
                                 /call RoomSub
                                 /return
                          }
                          /goto :MoveLoop
                  }
                  /if (${Me.X}<-80 )  {
                          /keypress back
                          /delay 2
                          /face fast loc -560, -143
                          /echo stucked when moving to mob in the bat room, retry...
                          /keypress forward hold
                          /delay 2s
                          /keypress back
                          /if (${Target.ID}) /face fast
                          /varcalc RV_CNT ${RV_CNT}+1
                          /if (${RV_CNT}>100 && ${Target.PctHPs}==100) {
                                 /keypress back
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /echo stucked too many times, restarting cycles...
                                 /call RoomSub
                                 /return
                          }
                          /goto :MoveLoop
                 }
                  /if (${Me.X}>60 && ${Me.Y}>-445 )  {
                          /keypress back
                          /delay 2
                          /face fast loc ${Math.Rand[10000]}, ${Math.Rand[10000]}
                          /echo stucked when moving to mob in the reject room, retry...
                          /keypress forward hold
                          /delay 2s
                          /keypress back
                          /if (${Target.ID}) /face fast
                          /varcalc RV_CNT ${RV_CNT}+1
                          /if (${RV_CNT}>100 && ${Target.PctHPs}==100) {
                                 /keypress back
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /keypress esc
                                 /echo stucked too many times, restarting cycles...
                                 /call RoomSub
                                 /return
                          }
                            /goto :MoveLoop
                  }
                  /keypress back
                  /keypress esc
                  /keypress esc
                  /keypress esc
                  /keypress esc
                  /echo stucked outside, restarting cycles...
                  /call RoomSub
                  /return
              }
              /keypress back             
              /if (${Target.ID}) /face fast
              /goto :MoveLoop
      }

 
       /if (${Target.Distance}>15) {
              /if (${Target.ID}) /face fast
              /keypress forward hold
              /delay 2
              /keypress back
              /if (${Target.ID}) /face fast
      }
/return

|--------------------------------------------------------------------------------
|SUB: Reset
|--------------------------------------------------------------------------------
Sub ResetSub

   /keypress esc
   /keypress esc
   /keypress esc
   /keypress esc
   
   /varset RV_HasTarget 0
   /varset RV_TargetDead 0
   
/return

|--------------------------------------------------------------------------------
|SUB: Bandage, Heal and Buff Self
|--------------------------------------------------------------------------------
Sub BandSub

   /if (${Spawn[gm].ID}) /call PanicSub
   /if (${Spawn[eldros].ID}) /call PanicSub
   /if (${Spawn[shroudkeeper].ID}) /call PanicSub
   /target myself
   /delay 5

   :BuffLoop
 
   /if (!${Me.Buff[Pure Thought II].ID} && ${Me.AltAbilityReady[Pure Thought]}) {
      /aa act Pure Thought
      /delay 6s
      /goto :BuffLoop
   }

   /if (!${Me.Buff[Gift of Speed II].ID} && ${Me.AltAbilityReady[Gift of Speed]}) {
      /aa act Gift of Speed
      /delay 6s
      /goto :BuffLoop
   }

   /if (!${Me.Buff[Distillate of Skinspikes].ID} && ${FindItem[Distillate of Skinspikes II].InvSlot}) {
      /potionbelt activate 2
      /delay 5s
   }
   /if (!${Me.Buff[Boon of Vitality II].ID} && !${Me.Buff[Elixir of Health II].ID}) {
      /if (${Me.AltAbilityReady[Boon of Vitality]} && ${Me.CurrentMana} >=3) {
         /aa act Boon of Vitality
         /delay 6s
         /goto :BuffLoop
      }
      /if (${FindItem[Distillate of Health II].InvSlot}>=22 && ${FindItem[Distillate of Health II].InvSlot}<=29 ) {
         /cast item "Distillate of Health II"
         /delay 3s
      }
   }

   :HealLoop
   
   /if (${Me.PctHPs} <= 65 && ${Me.AltAbilityReady[Heal Wounds]} && ${Me.PctMana} > 70) {
      /aa act Heal Wounds
      /delay 5s
      /goto :HealLoop
   }
 
   /sit
   /delay 1s

   :BandLoop
 
   /if (${Me.PctHPs} <= 60 && ${Me.AbilityReady[Bind Wound]}) {
      /doability "Bind Wound"
      /delay 15s
      /goto :BandLoop
   }

   :SitLoop
 
   /if (${Me.PctMana} >0 && ${Me.PctMana} <= 70) {
      /delay 12s
      /goto :SitLoop
      }
   }
 
   /stand

   /keypress esc
   /keypress esc
   /keypress esc
   /keypress esc
       
/return

|--------------------------------------------------------------------------------
|SUB: Panic, quit the macro
|--------------------------------------------------------------------------------
Sub PanicSub
   /keypress back
   /delay 5
   /keypress back
   /endmacro
/return

My brother and I tried everyone of these shrouds (including the bouns one you get when you buy DoD.) The raptor really does best for this. Not to mention literally days of running the macro in that form w/o problems.

solar · Jun 29, 2006

PS I the above post is the macro that I got long ago before I messed with it. I simply copy/pasted it here to have use made of it.

lichbone · Aug 21, 2006

I know im doing something wrong, but i dont know what, but icant get this to work, i join the irc channel and i just sit there...and im not sure if i shroud to 5 or 30 ? i thought it was to get you to 30...very confusing

lichbone · Aug 21, 2006

you just have 2 sets of instructions, i dont know wheter to put it in nedaria or in instance...5 or 30 ... when im 5 and in instance i warp above the zone and am stuck, 5 and outside and nothing happens except i join irc...help! :<

solar · Aug 21, 2006

lichbone:

The script was written for level 5 long ago. I edited it to work for level 30 (if you have the raptor shroud. If you don't get the shroud by running it at level 5 and unlock him). You can run the macro on any level shrouded from anylevel up to 30 with a melee class. The Raptor has the best attack to hp ratio so he fairs pretty well. As for getting stuck above the zone I've never had that happen to me. Make sure you are in Nedaria's Landing before you start the script and you should do ok.

lichbone · Aug 21, 2006

I wasnt, but in nedaria it loads me in the irc and does nothing...so if im 15 and want to get to 30, which is what i thought this was for, i shroud to the highest i can? after i unshroud raptor?

lichbone · Aug 21, 2006

sorry for sounding like an idiot, its just not working for me...and i cant get a fresh cobalt (might be my problem).... i took it from thez's old compile...

solar · Aug 21, 2006

lichbone said:
I wasnt, but in nedaria it loads me in the irc and does nothing...so if im 15 and want to get to 30, which is what i thought this was for, i shroud to the highest i can? after i unshroud raptor?

Shroud to what ever level you can 5 15 20 25 just don't go above 30 the mobs get more hp and put out more dmg. I modded this to be a stand alone for a single character to get xp over night. (then later 4 of them to max out my leadership points). If you can use the raptor go for it. Otherwise work on the reptile tree and unlock that one. The scale wolf gets stuck some times but the real deal raptor kicks ass and takes names. (When picking a dps he's it 9 times out of 10 shrouded)

As for loading IRC and sticking there yes it should load you into IRC then try and figure out where you are (ie in pok or in nedaria or in fhalls). Once it knows where you are it'll get started trying to get you started.

If you're having all of these problems try getting the mission yourself then waiting a few and /switch 8 and run in to the rat room it's close by to the zone in. Then try /macro 30shroud It should just start attacking. If that works for a few mobs then try the /dzquit command to kick you out of the mission and see if you get another. There are some stops in there for slower pc's because at once time I had 6 chars running on one pc. Figuring that'd be the MOST anyone else would do with my little script.

Hope it helps.

lichbone · Aug 21, 2006

ill try, will any cobalt work?

lichbone · Aug 21, 2006

and thanks alot!

solar · Aug 22, 2006

lichbone said:
ill try, will any cobalt work?

should work with any.

lichbone · Aug 22, 2006

I did what you said and it started killing rats (5, scaled wolf) with np and i hit /dzquit and eventually got kicked out of zone, waiting a few minutes and no luck...=/...
but then i think i figured it out, and its just me being silly, i think im not waiting long enough, like apparently it takes like 3-5 minutes to actually do something and that was throwing me off

lichbone · Aug 22, 2006

k i tried it and it works fine, but it taKes like a minute to target the next mob, was curios if this was on purpose and why=/... sorry to filling the forum up=/

solar · Aug 22, 2006

From the looks of things you got it to work!

Congrats!

lichbone · Aug 23, 2006

yeah its working fine now, raptor did get stuck once or twice, but it worked all night

thanks!

solar · Aug 23, 2006

w00t!

there is a lag after kills because I like to have 70% stam before I start another battle. It keeps the dying down

Also make sure you have bandages and a bind wound key (don't laugh I've had a char who's never used bindwound before get killed because they couldn't do anything about it(ok laugh it's damn funny just don't tell my wife))

lichbone · Aug 26, 2006

haha nice, ...i have a question ,it might not be related at all=/,... but i have been running this to get my new bard/cleric up and the cleric has been working Great, but the bard has been dying and dropping to desktop for no reason. It only happens with the bard (the cleric stays up) any ideas??

solar · Aug 26, 2006

are you sure that the bard has a bind wounds key set. Look under Actions under either battle or skills. Set one up under there if there isn't one. Also try to use /doability Bind Wounds and see if it works.

lichbone · Aug 27, 2006

that was it, im sorry i slip up so much on this haha, thanks for being patient!

kaneda86 · Aug 27, 2006

works well but its slow for sure. good for unlocking the shrouds however

solar · Aug 27, 2006

kaneda86 said:
works well but its slow for sure. good for unlocking the shrouds however

yea I know it's a little slow but it's dependable which is what I was going for.

XP while AFK.

Member

New member

Member

New member

Member

New member

Member

New member

Member

Member

Active member

Member

Active member

Member

Member

Member

New member

Member

Member

Member

Member

New member

New member

Member

New member

New member

Member

New member

New member

Member

New member

New member

Member

New member

Member

New member

Member

New member

New member

Member

Users who are viewing this thread

Cart