Cleric Epic 1.0 - CampRagefire.mac

[Alatyami]

Ever camp Zordak Ragefire in SolB and feel that it will never end? Well your waiting is over! Introducing a simple macro that I made because I got pissed off waiting for Zordak's ass to show up. Besides, I had to go to work and I wasn't going to let some other cleric take my place.

CampRagefire.mac

|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|
| Author: Alatyami, RedGuides.com
| Released: October 11, 2006
| Additional Credits:
|    Hunter.mac - robdawg, May 13, 2004
| Title: CampRagefire.mac
| Description: This macro waits for Zordak Ragefire to spawn, gives him
|    the Shimmering Pearl, and finally gates you to your bind spot.
| Requirements:
|    [OPTIONAL] MQ2SpawnMaster - To timestamp when Zordak spawns.
|    [OPTIONAL] MQ2PiggyZone - for /gate
| Setup:
|    Sit your cleric along the edge next to the spawn spot for Ragefire,
|    make sure that you have a straight line of site to him or you might
|    fall into the lava and die.  It is best to sit west of the hanging
|    to ensure that you do not aggro any of the giants while you wait.
|    The macro will do the rest.
| Usage:
|    /mac CampRagefire
|~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~|

Sub Main 
	:WaitForSpawn
	/echo [${Time}] Checking Ragefire Spawn ...
	/stand
	/if (${Spawn["Ragefire"].ID}) {
	    /target "Ragefire"
		/delay 2s 
		/itemnotify ${FindItem[=Shimmering Pearl].InvSlot} leftmouseup 
		/call MoveToLoc ${Target.Y} ${Target.X}   
		/click left target 
		/delay 5
		/notify GiveWnd GVW_MyItemSlot1 leftmouseup
		/delay 4
		/notify GiveWnd GVW_Give_Button leftmouseup 
		/delay 3s
		/cast "Divine Barrier"
		/autoinv
		/delay 2s
		/gate
	} else {
		/echo He's not here ... delay 1 minute ...
		/sit
		/delay 60s 
		/goto :WaitForSpawn
	}
/return

| Rip from hunter.mac
Sub MoveToLoc(MoveToY, MoveToX)

   /declare running int local
   /declare distanceNow float local
   /declare distanceBefore float local
   /declare distanceModifier int local
   /declare distanceTimer timer 15
   /varset running 0
   /varset distanceBefore ${Math.Distance[${Me.Y},${Me.X}:${MoveToY},${MoveToX}]}
   /varset distanceModifier 1
   /echo Moving to Location: ${MoveToY}, ${MoveToX}.
   /echo Distance: ${distanceBefore}
   :moveToLocation
      /doevents
      /face fast nolook loc ${MoveToY},${MoveToX}
      /if (${Math.Distance[${Me.Y},${Me.X}:${MoveToY},${MoveToX}]}<10) {
         /keypress forward
         /return
      }
      /if (${distanceTimer}==0) {
         /if (${Me.Sneaking}) {
            /varset distanceModifier 2
         } else {
            /varset distanceModifier 1
         }
         /varset distanceNow ${Math.Distance[${Me.Y},${Me.X}:${MoveToY},${MoveToX}]}
         /if (${Math.Calc[${distanceBefore}-${distanceNow}]}<${Math.Calc[10/${distanceModifier}]}) {
         /call HitObstacle
         }
         /varset distanceBefore ${Math.Distance[${Me.Y},${Me.X}:${MoveToY},${MoveToX}]}
         /varset distanceTimer 15
      }
      /if (${running}==0) {
         /keypress forward
            /if (${Math.Distance[${Me.Y},${Me.X}:${MoveToY},${MoveToX}]}>10) {
               /varset running 1
               /keypress forward hold
            }
      } else {
         /if (${Math.Distance[${Me.Y},${Me.X}:${MoveToY},${MoveToX}]}<11) {
            /varset running 0
            /keypress forward
         }
      }
      /goto :moveToLocation
/return

 

[jshriddle]

Red Cent for you!!!

 

[killslanys]

Nice...........................
and more nice..............

 

[bartab]

anyone has something for the unbelievable boring camp that are Bergurgle and the other Lord I can't remember his name ?

 

[bushman77]

Lord Grimblox. I was lucky on my cleric those were both up when I went to find em.

 

[IamBigDaddy]

/call HitObstacle

Yammers,
Unnaccounted for /Call, prolly does not matter in this mac since unlikely to hit obstacle. I use the same basic routine from robdawg's mac in many of my macs and realized I had to include hitobstacle sub or remove /call.

Thx for the mac, red cnt on the way

 

[Marbury]

I was thinking about this last night, I'm redcenting you since I came across this. I camped Ragefire for 36 hours so far. I have his spawn time tonight, this bitch is mine.

 

[Alatyami]

I had forgotten about his one! Brings back old memories.

 

[masterofmasters]

So I tried this out and sat him right in front of the ragefire spawn; literally inches from where he pops. I def got beat out by other people...

 

[Maskoi]

10-10-2006 the date of the original post lol

 

[masterofmasters]

I understand lol. Do we have an updated version that might help me out ?

 

[Maskoi]

Best I can do is look it over see if anything wrong jumps out at me. Did you get any errors?

 

[masterofmasters]

Nope, I just think the hand it was way too slow.

 

[Alatyami]

take "/delay 60s" that out and it will as fast as your computer can handle .... maybe change it to /delay 2s then there will be only 2 seconds between spawn checks. 1 minute really can be long if someone else is camping it ....

 

[masterofmasters]

take "/delay 60s" that out and it will as fast as your computer can handle .... maybe change it to /delay 2s then there will be only 2 seconds between spawn checks. 1 minute really can be long if someone else is camping it ....

Yeah I actually changed it to 1s lol...and changed the delays between handing it in as well to 1s...so it should be super quick...

 

[masterofmasters]

Changed the times to 1s and still got beat out

 

[masterofmasters]

Ok, I've been doing some testing and it actually never presses the give button! Does anyone know the correct code for this?

 

[Maskoi]

I will look at it tomorrow

 

[masterofmasters]

Well it looks like I had to add the delay back for it to press the button.

 

[masterofmasters]

I figured it out; been testing on some random NPC's. Looks good now.

 

[Maskoi]

I figured it out; been testing on some random NPC's. Looks good now.

?????????????????

LMAO Please share how did you fix it and what was the problem.

 

[masterofmasters]

I'll post up my code after Labor Day. Need to get another cleric epic first lol...as soon as I release it will be impossible for anyone who doesn't use this code to get the turn in.

 

[Sum1]

You're welcome?

 

[Skyjet2000]

I take it this doesn't work anymore?

Is there a Cleric epic turn in macro floating around right now?

 

[Maskoi]

This should work just fill in the name and item. Make sure you are standing at the spawn point

Sub main

/declare NPCName string outer MobName
/declare GiveItem string outer ItemGiveName

    :mainLoop
        /if (${Spawn[npc ${NPCName}].ID}) {
            /if (${Target.ID}) /squelch /target clear
            /delay 2s !${Target.ID}
            /squelch /target id ${Spawn[npc ${NPCName}].ID}
            /delay 2s ${Target.Name.Find[${NPCName}]}
            /if (${Target.Name.Find[${NPCName}]}) {
                /echo ${NPCName} found attempting to give him the ${GiveItem}
                /if (${Cursor.ID}) /autoinventory
                /delay 2s !${Cursor.ID}
                /shift /itemnotify in Pack${Math.Calc[${FindItem[${GiveItem}].ItemSlot}-22]} ${Math.Calc[${FindItem[=${GiveItem}].ItemSlot2}+1]} leftmouseup
                /delay 2s ${Cursor.ID}
                /click left target
                /delay 2s ${Window[GiveWnd].Open}
                /if (${Window[GiveWnd].Open}) {
                    /notify GiveWnd GVW_Give_Button leftmouseup
                    /endm
                }
            }
        }
        /delay 10s
    /goto :mainLoop
/return

 

[Maskoi]

Has anyone tested this?