• You've discovered RedGuides, an EverQuest multi-boxing and scripting community 🧙‍♀️⚙️. We want you to play several EQ characters at once, come join us and say hello! 👋

  • A TLP without truebox has thawed (Very Vanilla ready)
    Frostreaver

Leveling - Fire Beetle Eyes and how best to use them

Anthilia

Anthilia

Level 2
Joined
Nov 14, 2015
RedCents
71¢
So, leveling from Bone chips has been nerfed and now you are without a way to level your alts without interaction? Well fret not! Xelha Nevagon in East Freeport is still around and would like to help with your predicament. Okay, enough of the gibber jabber, onto the guide.

Xelha Nevagon is a Necromancer Guildmaster who some of you may know as an alternative hand-in spot for bone chips for experience if you were an evil race/class and could not interact with the quest giver in Kaladim. Interestingly enough, there are other items she is interested in, namely Fire Beetle Eyes. I made a new character today to test the experience rate on this and was happily surprised by the results.

Firstly, you will (probably) need to work on your faction a bit before she will allow you to do the Fire Beetle Eyes quest. Luckily enough she does NOT require you to work faction before allowing you to do the bone chips turn ins, which give faction with her to allow you to do the Fire Beetle Eyes turn ins. Step 1 will be to grab some bone chips and give them to her in order to get good enough faction to turn in Fire Beetle Eyes. I did my experiments with an Agnostic Halfling Warrior and I needed to hand in 500 Bone Chips before I could do the fire beetle eyes quest, your results may vary so best to be on the safe side and grab 1k Bone Chips. If you are unsure how to acquire bone chips, there are plenty of posts on these forums that have the information, but the short version is go to Brell's Rest and there is a vendor near zone in which sells them.

Secondly, just like bone chips Fire Beetle Eyes DO fit in Extraplanar Trade Satchels so your best best for cheap storage of your Fire Beetle Eyes is to load the toon you want to level up with some of these to minimize travel time.

So... you have your faction, you have your bags, now all you need is fire beetle eyes! If you don't feel like killing thousands upon thousands of fire beetles and working on some slayer achievements you can buy them off of Merchant Wyn`las in Crescent Reach (sorry TLP players, no other vendor with unlimited quantities that I am aware of). They stack to 20, and a full stack will run you 5g 8s. If your inventory is full of the Extraplanar Trade Satchels I mentioned above it will cost you 185p 6g to fill your bags completely.

The Results:
After handing in bone chips to raise faction my warrior was level 4. I handed in 4 bone chips a few times, and received 1% exp on most turn ins but had a few where I did not gain 1% exp so I would guess the experience gain at level 4 was roughly 0.8% - 0.9% experience for 4 bone chips. I then handed in 4 fire beetle eyes at a time and received 13-14% experience each turn in. As you can see the experience difference between bone chips and fire beetle eyes was MASSIVE. I then handed in enough eyes/bone chips to get my warrior to exactly level 5 with 0% into his level and started handing in stacks of eyes to see how long it took to level. In 3 stacks of eyes my warrior was level 6 with 13% experience in.

The quest also rewards 2-7 silver per set of 4 fire beetle eyes and 1 of 2 low level necromancer spells. These spells stack to 20 each and sell back to a vendor for 3g 8s per stack of 20. The spells however DO NOT fit in the Extraplanar Trade Satchel, so if you want to sell them for a little extra coin you will need to have at least 1 regular bag of some sort for the spells to go into. It is my impression (have not verified yet) that if you were to sell the spells back, you would break even or possibly make a slight profit doing this so you could level for FREE. If you do not sell the spells and instead just delete them you will make a good amount of your money back just from the hand ins, but will lose a slight amount of money per run.

I have seen the posts post nerf of bone chips saying that the rate at which is was nerfed leaves it at 1/10th its former amount of experience. This method gives you an experience gain 15x (roughly) of the current amount plausible from bone chips item for item. However with Fire Beetle Eyes only stacking to 20 instead of the 100 that Bone Chips stack the rate is not as good as the Bone Chips once was since you will need to zone more frequently. This method should however provide a decent return for time investment in place of the old Bone Chips method.

The fastest method will still be to have a wizard bind at both the vendor and turn in location and port the toon back and forth with a macro, in lieu of this a fellowship fire and toon that can gate should be sufficient just as it was for the bone chip method.

I am not experienced with macro writing at this time so unfortunately cannot provide a macro able to perform such functions, but I do plan on taking a look at one of the old Bone Chips macros and try to reverse engineer it for this purpose and if/when I succeed at this will post an update including it. However if someone with more know how would happen to want to do so and post it I would find that very helpful as well.

Hopefully if nothing more others will enjoy the information I was able to gather!
 
This sounds like hellagood news... and based on a current project I'm working through might be a good thing to add to my list of possibilities! Thank you for sharing.

Rustycat
 
its already being "abused" on the new progression server (there's a few camps with very fast spawning fire beetles) so I imagine it will be nerfed soon.
 
ewwwww I was thinking "oh, I can modify the bone chip mac no prob" then I realized you can ONLY hand in 4 pieces at a time UNSTACKED so 1 run would take you all day with 10 Extraplanar bags. Guess I will write a turn-in mac and test 1 run and see if this is viable....
 
Razkle -

Not sure why you were only able to hand in 4 at a time? I was handing in full stacks of 20 and getting multiple exp messages/faction hits/spells from the trades. Perhaps it is because I was only doing a single stack at a time instead of 4 stacks of 20? I'll test further and see what happens.


UPDATE:
handing in 4 STACKED eyes .. 1 xp message
handing in 16 STACKED eyes .. 4 xp messages
handing in 4 STACKS of 20 eyes .. 20 xp messages

There is no difference between this and the bone chip turn ins, stacked items work and give you 1 credit of xp per 4 eyes she receives

- - - Updated - - -

New test done, made a brand new character which was a halfling cleric and slapped 10 extraplanar trade satchels on him, skipped the tutorial so started at level 1 with 0% xp. Gave him 500 plat and made him buy his own eyes, price was 7g 2s per stack, had 269plat 6gold left after he filled his bags completely. Took him to freeport and gave him 600 bone chips from a different character (Traded eyes to this other character to make room so he would have 10 completely full bags of eyes for this test). After handing in the bone chips to raise faction I gave all the money earned from this step back to the other character and got my 6 stacks of eyes back. I then proceeded to MANUALLY hand in 4 stacks of eyes at a time to the quest NPC and delete the spells.

End Results?
From first beetle eye picked up to last spell deleted (remember MANUALLY doing everything) took just under 15min, 14min 58sec to be exact
Cleric ended at level 20 with 53% xp into his level
Money will fluctuate based on what you get for turn ins but I ended at 333plat 1gold 5silver resulting in roughly a 150-175plat cost per run if no spells are kept to be sold to a vendor.

All in all, 15min to do all of the turnins and deletions manually seems pretty good, and I believe with a macro set to automate it and take human reflexes out of the equation it should be plausible to assume a 20min or so turnaround on buying, handing in, deleting, and going back to buy more eyes depending on how fast you zone. At 20min a clip it would be 3 runs per hour, 72 runs per day at a cost of about 500 plat per hour, 12k a day. Not too bad for completely automated leveling imo.
 
Last edited:
I pieced together and BuyeEyes mac abd a turning in mac for it, It sells off the spells after turnin, so the more non-tradeskill bags you have, the less money you will spend. I haven't figured out to break it out of the sell routine, so you have to manually end the macro after selling. I'm still working on how to do the movement between zones.

BuyEyes.mac

Rich (BB code): 
| ----------------------------------------------------------------------------
| SUB: BuyEyes		Written by EqMule
| ----------------------------------------------------------------------------

	Sub Main
| This is to adjust number of free lots to be left open while buying Bone Chips.
| I suggest leaving a couple of slots open in case of severe lag.

	/declare FreeSlots int local 3

	/target Wyn`las
	/click right target
	/delay 5s
	/keypress OPEN_INV_BAGS
        /notify MerchantWnd ItemList listselect ${Window[MerchantWnd].Child[ItemList].List[=Fire Beetle Eye,2]}
	/delay 2s
	:goagain
	/if (${Me.FreeInventory}>${FreeSlots}) {
		/Shiftkey /notify merchantwnd MW_Buy_Button leftmouseup
	:waitforit
		/if (${Window[MerchantWnd].Child[MW_Buy_Button].Enabled}==FALSE) {
			/echo button is false
			/delay 2
			/goto :waitforit
		}
		/goto :goagain
	}
		/echo Closing Bags
	/keypress CLOSE_INV_BAGS
	/delay 2s
		/Shiftkey /notify merchantwnd MW_Done_Button leftmouseup
/return

TurninEyes.mac

Rich (BB code): 
	/declare ItemToHandIn       string  outer "Fire Beetle Eye"
	/declare TurnInTarget       string  outer Xelha Nevagon
	/declare NullExit           int     outer 0
	#include Ninjadvloot.inc

Sub Main
	/keypress OPEN_INV_BAGS
	:mainloop
|      /call SafeTarget ${TurnInTarget}
	/target "Xelha Nevagon"
     /call ClearCursor
      /call TurnIn
      /call ClearCursor
|      /call CleanInventory
      /if (${FindItemCount["Fire Beetle Eye"]}>0) {
		/goto :mainloop
	}else{
	/squelch target clear
	/target Itzia
	/call sell

	}

	/end	
	
/return
| ---------------------------------------------------------------
| Sub: ClearCursor
| ---------------------------------------------------------------
Sub ClearCursor
   :redestroy
   /if (${Cursor.ID} && ${Cursor.NoDrop}==FALSE) {
      /destroy
      /delay 0 ${Bool[${Cursor.ID}]}==FALSE
      /goto :redestroy
   }
/return

| --------------------------------------------------------------------------
| Sub: Event_TSCursor
| --------------------------------------------------------------------------
Sub Event_TSCursor
   /declare ItemToDestroy string local Spell: Cavorting Bones|Spell: Reclaim Energy
   /declare i  int local
   /for i 1 to 2
      :retryclearTSCursor
      /if (${Cursor.Name.Equal[${ItemToDestroy.Arg[${i},|]}]}) {
         /echo ${ItemToDestroy.Arg[${i},|]} on cursor. Destroying!
         /destroy
         |might need this:/delay 1
         /goto :retryclearTSCursor
      }
   /next i
   /doevents
/return




| ---------------------------------------------------------------
| Sub: TurnIn
| ---------------------------------------------------------------
Sub TurnIn
   /declare bonetimer timer local 0
   /declare i int local
|   	/if (${Mercenary.State.Equal[SUSPENDED]}) {
|		/echo summoning mercenary
|			/if (!${Window[MMGW_ManageWnd].Child[MMGW_SuspendButton].Enabled}) {
|			/echo waiting 2 minutes for button to enable
|			/delay 2m 
|			}
|		/notify MMGW_ManageWnd MMGW_SuspendButton LeftMouseUp
|	}
   /for i 0 to 3
      :GetEyes
      /if (${FindItemCount["Fire Beetle Eye"]}>0) {   
         /itemnotify "Fire Beetle Eye" leftmouseup
         /delay 1 ${Cursor.ID}==10307
         :retrygive
         /if (${Cursor.ID}==10307) {
            /click left target
            /delay 1 ${Window[GiveWnd].Child[GVW_MyItemSlot${i}].Tooltip.NotEqual[${ItemToHandIn}]}==FALSE
            /if (${Cursor.ID} && ${Cursor.ID}==10307) {
               /goto :retrygive
            }
         } else {
            /goto :GetEyes
         }
      }
   /next i
   /if (${Window[GiveWnd].Open}) {
      /notify GiveWnd GVW_Give_Button leftmouseup
      /delay 200 !${Window[GiveWnd].Open}
   }
/return

| ----------------------------------------------------------------------------
| SUB: CleanInventory
| ----------------------------------------------------------------------------   
   
Sub CleanInventory
|    /if (${Mercenary.State.Equal[ACTIVE]}) {
|		/echo suspending mercenary
|		/notify MMGW_ManageWnd MMGW_SuspendButton LeftMouseUp
|	}
   /echo Clearing up your bags, this will take a moment.
   /declare StuffToDestroy string local Spell: Cavorting Bones|Spell: Reclaim Energy
   /declare i  int local
   /for i 1 to 2
      /echo ${StuffToDestroy.Arg[${i},|]} ${FindItemCount[${StuffToDestroy.Arg[${i},|]}]}
      /if (${FindItemCount[${StuffToDestroy.Arg[${i},|]}]}>0) {
         :MoreToDestroy
         /doevents
         /itemnotify "${StuffToDestroy.Arg[${i},|]}" leftmouseup
         /delay 10 ${Cursor.Name.Equal[${StuffToDestroy.Arg[${i},|]}]}
         /if (${Cursor.Name.Equal[${StuffToDestroy.Arg[${i},|]}]}) {
            /destroy
            /delay 10 ${Bool[${Cursor.ID}]}==FALSE
         }
         /if (${FindItemCount[${StuffToDestroy.Arg[${i},|]}]}>0) {
            /goto :MoreToDestroy     
         }
      }
   /next i
   /squelch /target clear
/return

| --------------------------------------------------------------
| Sub: SafeTarget
| --------------------------------------------------------------
Sub SafeTarget(string targ)
   /declare targid int local 0
   :retarget
   /if (${Target.ID} && ${Target.ID}==${Spawn[${targ}].ID}) /return
   /if (${Spawn[${TurnInTarget}].ID}) {
      /varset targid ${Spawn[${targ}].ID}
      /if (${Spawn[${targ}].Distance}<100) {
         /echo Targeting ${Spawn[${targ}]}
         /target id ${targid}
         /delay 30 ${Target.ID}==${targid}
      }
   }
   /if (!${Target.ID}) {
      /echo [SafeTarget] couldnt find a target, retrying
      /delay 1s
      /goto :retarget
   }
/return
|-----------------------------------------------------------------
| Sub: Sell
|-----------------------------------------------------------------

Sub Sell
	/call SetupAdvLootVars
	/call DoLootStuff sell
		
	:sell
		/doevents
	/goto :sell

/return
 
This sounds good and all but what level is this going y be good for until ?

As far as I know running an alt through lichen cree tasks can get you to about 50 super fast anyway ? Or so no be been lead to believe

Still an awesome find though after I came back to eq too late for the bone chips :(
 
thinking about equipping a new toon with 10x Tailored Transcendent Bags which are only 20 slots vs 30 of the tradeskill bags but you keep all the spells that way, well at least you keep full bags of spells to sell. The tradeoff would be slower leveling but less plat lost or maybe even a net gain per run. I have a working macro of my own but still beta testing it...

- - - Updated - - -

All my toons have the 20 slot bags, I made HUNDREDS recently.... lol

My standard loadout for a toon is 2 tradeskill bags, 8 20 slot bags or 2 tradeskill 6 20 slotters and 2 heroic bags if heroic.... I leave nothing to rot if I can ever help it!

- - - Updated - - -

saving every single spell (they stack to 20 so you need 4x 20 slot bags and 6x 30 slot bags to hold all the spells.... it looks like you almost break even if you sell them all back to a vendor....

- - - Updated - - -

by the 4th run the exp slows WAY WAY down, still its automated exp but its painful after the 4th trip...
 
25 ugg

- - - Updated - - -

that's with 4x 20 slot and 6x 30 slot bags so you can sell the lootz to vendor for around 74 plat, not sure if the plat is worth the loss of 800 turn ins per run, the more turn ins per run the faster you level. At my setup you get 5440 turn ins, so 800 more is alot

- - - Updated - - -

I am using a cleric btw so he can do it solo, hot tip, when setting up pre-buy "gate" and "bind point" spells, you will need both and you will be level 10 to use them on 1st run. 1st run is a wash anyway as you need the bone chips for faction as well.

- - - Updated - - -

grrrrr why oh why does the zone short name for east Freeport not work
I have
Rich (BB code): 
freeporte

but alas it fails....
 
YOU all asked for it and I swore I would not take on another project, but here it is, a 100% Automated version of Fire Beetle Eye Macro!
This macro assumes a few things...
1. you are a self porting class that can cast GATE
2. you have bags! Preferably 10x Extraplanar bags
3. you have plat! it cost 178p or so PER run, lost! Yes you could use different bags and make 80p of that back each run but at a huge reduction on leveling speed! Make plat later! A 100 toon can pick up 1 diamond and make back what it cost to make 1 run so invest!
4. your toon has 600-1000 bone chips and a few stacks of Fire Beetle Eyes to start the initial run. The Bone chips must be turned in 1st and done manually. Just do it ya lazy bastards!
5. your toon must be BOUND at the turn in lady, Xalha in East Freeport
6. your toon must have his ORIGIN set to Crescent Reach.

Whew, all that shit out of the way, here is the macro!

Rich (BB code): 
| AutoEyes-SoloV1

| tradin.mac, by amml | modified by tms | full automation added by fuzzymelon | Modified EmptyBags routine by Randyleo
| Buy function courtesy of RedGuides.com
|
| Hacked the ever livin shit out of by Razkle to turn in Fire Beetle Eyes
|
| This version is for a SOLO porter, if you are a class that does not have GATE you are out of luck! 
|
| The macro assumes you have turned in the 1st round of BONE CHIPS for faction so that you can now turn in 
| Fire Beetle Eyes, it also assumes you have the level 10ish GATE spell learned and memmed in anyt slot
| BIND your toon in East Freeport AT or NEAR Xelha Nevagon and start the macro!
|
| you will need to have enough plat to buy the eyes and I recommend 10x Extraplanar Bags for the Eyes
| Each run will cost you a few hundred (178p for 10x bags of eyes) plat so plan accordingly! 
| Each run will take you 14:20 so just about the refresh time of Origin! woot! 

Sub Main

| *** Increase the destroydelay ONE by ONE until every item on your cursor gets destroyed. ***

	/declare destroydelay int outer 1

| -------------------------------------------------------------------------------------
| Check if required plugins are loaded.  Stolen from KissAssist
| -------------------------------------------------------------------------------------
    /echo Checking Plugins
	/call CheckPlugin MQ2Cast
    /call CheckPlugin MQ2Moveutils
   
	/echo Starting Raz's Fire Beetle Macro
|	/if (${Zone.ShortName.NotEqual[efreeport]}) /call Bind
	:MainLoop
		/delay 5s
		/call MoveToXelha
			/delay 5
		/call GiveEyes
		/call Done
		/call PortToCrescent
		/call Wyn
		/call Bind			
		/goto :MainLoop
	
/return	

| ----------------------------------------------------------------------------
| SUB: Check Plugin
| ----------------------------------------------------------------------------
    Sub CheckPlugin(string pluginname)
	
        /if (!${Bool[${Plugin[${pluginname}]}]}) {
            /squelch /plugin ${pluginname}
            /echo ${pluginname} not detected! This macro requires it! Loading ...
        }
        
    /return
| ----------------------------------------------------------------------------
| SUB: MoveToXelha	Stolen from KissAssist
| ----------------------------------------------------------------------------
	Sub MoveToXelha

	/squelch /target clear
	/target "Xelha Nevagon"
		/delay 2s
	|/nav ${Math.Calc[${Target.X}-12]} ${Math.Calc[${Target.Y}+25]} ${Target.Z}
	:recheck
	/moveto loc -1407.25 550.38
			/delay 5
	/if (${Me.Moving}) {
		/delay 5
	/goto :recheck
    } else {
		/delay 1
	}
		
    /if (${Target.Distance}>15) /moveto id
        /delay 150 ${MoveTo.Stopped}		
	/face fast
		/delay 2s
		/echo Opening Bags
	/keypress OPEN_INV_BAGS
/return

| ----------------------------------------------------------------------------
| SUB: GiveEyes
| ----------------------------------------------------------------------------

Sub GiveEyes
	/declare Eyes int local
	/echo Handing in Eyes.

	:Loop
	/if (!${FindItem[=Fire Beetle Eye].InvSlot}) /return
	
	/for Eyes 1 to 4
	/squelch /shift /itemnotify ${FindItem[=Fire Beetle Eye].InvSlot} leftmouseup
	/delay 5
		/click left target
		/click left target
			/delay 8
	/next Eyes
		/delay 12
	/notify GiveWnd GVW_Give_Button leftmouseup
	/delay 2s
		|/echo Clearing Cursor
	:cursorclear
	/if (${Cursor.ID} && ${Cursor.ID} != 13073) {
	    /destroy
	    /delay ${destroydelay}
	    /goto :cursorclear
	}
/goto :Loop	
/return

| ----------------------------------------------------------------------------
| SUB: CursorClear
| ----------------------------------------------------------------------------

Sub CursorClear
	:cursorclear
	/if (${Cursor.ID} && ${Cursor.ID} != 13073) {
	    /destroy
	    /delay ${destroydelay}
	    /goto :cursorclear
	}
	
	/return

| ----------------------------------------------------------------------------
| SUB: Done
| ----------------------------------------------------------------------------	

Sub Done
	/delay 8 
	/notify GiveWnd GVW_Give_Button leftmouseup
		/delay 8
	/echo Closing Bags
	/keypress CLOSE_INV_BAGS
	/echo Done .. Have fun.. 
		/delay 5s
/return

| ----------------------------------------------------------------------------
| SUB: PortToCrescent
| ----------------------------------------------------------------------------

Sub PortToCrescent

	/squelch /target clear
        	/delay 5s
	:oncemore
	/echo Casting Origin!
		/alt activate 331 -maxtries|5
		/delay 20s
	/if (${Zone.ShortName.NotEqual[crescent]}) {
	/echo Casting Origin again
   	/goto :oncemore
	} else {
	/return
	}
/return	   

| ----------------------------------------------------------------------------
| SUB: Wyn
| ----------------------------------------------------------------------------

	Sub Wyn
	    /squelch /target clear
	    /target "Merchant Wyn`las"
	    		    /delay 5s
	    /call MoveToWyn1
	        /delay 5s
	    /call MoveToWyn2
	        /delay 5s 	
        /call npc "Merchant Wyn`las"
	    /call BuyEyes
			/delay 3s
/return	

| ----------------------------------------------------------------------------
| SUB: Bind
| ----------------------------------------------------------------------------

	Sub	Bind
    /target clear
	/if (${Merchant.Open}) {
               /notify MerchantWnd MW_Done_Button leftmouseup
               /delay 1s !${Merchant.Open}
	 }      
	/delay 5s
	:again
         /casting "Gate" -maxtries|5
	         /delay 20s	
	}

/return

| ----------------------------------------------------------------------------
| SUB: NPC(NPCName)
| ----------------------------------------------------------------------------

	Sub NPC(NPCName)
|/declare NPCName "Merchant Wyn`las" local
    |/target npc ${NPCName}
    |/delay 1s
    |/if (!${Select[${Target.Type},npc,pet]} || !${Target.ID} || ${Target.Type.Equal[pet]} && 

|!${Target.CleanName.Find[familiar]}) {
|        /echo Please target a vendor or guildbanker
|        /return
|    }
    /echo Doing business with ${NPCName}
    /target id ${Spawn[${NPCName}].ID}
    /delay 3s ${Target.ID}==${Spawn[${NPCName}].ID}
    /if (${Target.Distance}>15) {
        /moveto id  ${Spawn[${NPCName}].ID}
        /delay 250 ${MoveTo.Stopped}
    }
    /face nolook
    /delay 1s
	/echo Opening Bags
	/keypress OPEN_INV_BAGS
		/delay 2s			
    /echo Opening merchant/guildbank window
    /nomodkey /click right target
    /echo Waiting 5s for merchant/guildbank window to populate
    /delay 5s
	/return
/return

| ----------------------------------------------------------------------------
| SUB: BuyEyes
| ----------------------------------------------------------------------------

	Sub BuyEyes
| This is to adjust number of free lots to be left open while buying Fire Beetle Eyes.

	/declare FreeSlots int local 0
	
        /notify MerchantWnd ItemList listselect ${Window[MerchantWnd].Child[ItemList].List[=Fire Beetle Eye,2]}
	/delay 2s
	:goagain
	/if (${Me.FreeInventory}>${FreeSlots}) {
		/Shiftkey /notify merchantwnd MW_Buy_Button leftmouseup
	:waitforit
		/if (${Window[MerchantWnd].Child[MW_Buy_Button].Enabled}==FALSE) {
			/echo button is false
			/delay 2
			/goto :waitforit
		}
		/goto :goagain
	}
		/echo Closing Bags
	/keypress CLOSE_INV_BAGS
	/delay 2s
/return

| ----------------------------------------------------------------------------
| SUB: MoveToWyn1
| ----------------------------------------------------------------------------

	Sub MoveToWyn1
		/echo Moving to Wyn1
		/moveto loc -284.58 -133.26
			/delay 20
	     :StillMoving 
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}			
		/moveto loc -784.40 -1185.38
			/delay 20
	     :StillMoving2
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving2
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}
			/moveto loc -1049.39 -1362.55
			/delay 20
	     :StillMoving3
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving3
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}
/return

| ----------------------------------------------------------------------------
| SUB: MoveToWyn2
| ----------------------------------------------------------------------------

	Sub MoveToWyn2
		/echo Moving to Wyn2
			/moveto loc -1140.52 -1553.23
			/delay 20
	     :StillMoving4
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving4
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}
			/moveto loc -1324.01 -1495.08
			/delay 20
	     :StillMoving5
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving5
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}			
		/moveto loc -1397.59 -1518.78
			/delay 20
	     :StillMoving6 
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving6
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}
/return

- - - Updated - - -

DO NOT EXPECT bone chip leveling speed out of this run, at 30+ you turn in 20 eyes and get 1.5% exp so it is way slower but better then current bone chips.

- - - Updated - - -

At level 34 + 15% 1 run will get you to level 36 +8% for 180p
then 36.8 to 37 +72% for next run, so getting less and less return on your plat

Its automated but I think I like LC runs way better..... But hey, I wrote your fucking macro, enjoy it

- - - Updated - - -

Randyleo said:
efreeport
Click to expand...

also fails, hmmm need to dig up the command to /echo zone short name!

- - - Updated - - -

Doing a stress test on the macro now, it has ran for HOURS and wahoo I am up to level 48 and down a few thousand plat.... but it runs flawless
 
Could a melee character use Philter of Major Translocation to get to bind and just edit the macro? It would cost more, but I think it would work.

The command to find the short name is /echo ${Zone.ShortName} and it says FreeportEast.

- - - Updated - - -

I added in the cleaninventory routine (modified) to clear out the spells she gives back, so you don't lose those slots with regular bags. Nice macro Razkle.


Rich (BB code): 
| AutoEyes-SoloV1

| tradin.mac, by amml | modified by tms | full automation added by fuzzymelon | Modified EmptyBags routine by Randyleo
| Buy function courtesy of RedGuides.com
|
| Hacked the ever livin shit out of by Razkle to turn in Fire Beetle Eyes
|
| This version is for a SOLO porter, if you are a class that does not have GATE you are out of luck! 
|
| The macro assumes you have turned in the 1st round of BONE CHIPS for faction so that you can now turn in 
| Fire Beetle Eyes, it also assumes you have the level 10ish GATE spell learned and memmed in anyt slot
| BIND your toon in East Freeport AT or NEAR Xelha Nevagon and start the macro!
|
| you will need to have enough plat to buy the eyes and I recommend 10x Extraplanar Bags for the Eyes
| Each run will cost you a few hundred (178p for 10x bags of eyes) plat so plan accordingly! 
| Each run will take you 14:20 so just about the refresh time of Origin! woot! 

Sub Main

| *** Increase the destroydelay ONE by ONE until every item on your cursor gets destroyed. ***

	/declare destroydelay int outer 1

| -------------------------------------------------------------------------------------
| Check if required plugins are loaded.  Stolen from KissAssist
| -------------------------------------------------------------------------------------
    /echo Checking Plugins
	/call CheckPlugin MQ2Cast
    /call CheckPlugin MQ2Moveutils
   
	/echo Starting Raz's Fire Beetle Macro
	/if (${Zone.ShortName.NotEqual[FreeportEast]}) /call Bind
	:MainLoop
		/delay 5s
		/call MoveToXelha
			/delay 5
		/call GiveEyes
		/call CleanInventory		
		/call Done
		/call PortToCrescent
		/call Wyn
		/call Bind			
		/goto :MainLoop
	
/return	

| ----------------------------------------------------------------------------
| SUB: Check Plugin
| ----------------------------------------------------------------------------
    Sub CheckPlugin(string pluginname)
	
        /if (!${Bool[${Plugin[${pluginname}]}]}) {
            /squelch /plugin ${pluginname}
            /echo ${pluginname} not detected! This macro requires it! Loading ...
        }
        
    /return
| ----------------------------------------------------------------------------
| SUB: MoveToXelha	Stolen from KissAssist
| ----------------------------------------------------------------------------
	Sub MoveToXelha

	/squelch /target clear
	/target "Xelha Nevagon"
		/delay 2s
	|/nav ${Math.Calc[${Target.X}-12]} ${Math.Calc[${Target.Y}+25]} ${Target.Z}
	:recheck
	/moveto loc -1407.25 550.38
			/delay 5
	/if (${Me.Moving}) {
		/delay 5
	/goto :recheck
    } else {
		/delay 1
	}
		
    /if (${Target.Distance}>15) /moveto id
        /delay 150 ${MoveTo.Stopped}		
	/face fast
		/delay 2s
		/echo Opening Bags
	/keypress OPEN_INV_BAGS
/return

| ----------------------------------------------------------------------------
| SUB: GiveEyes
| ----------------------------------------------------------------------------

Sub GiveEyes
	/declare Eyes int local
	/echo Handing in Eyes.

	:Loop
	/if (!${FindItem[=Fire Beetle Eye].InvSlot}) /return
	
	/for Eyes 1 to 4
	/squelch /shift /itemnotify ${FindItem[=Fire Beetle Eye].InvSlot} leftmouseup
	/delay 5
		/click left target
		/click left target
			/delay 8
	/next Eyes
		/delay 12
	/notify GiveWnd GVW_Give_Button leftmouseup
	/delay 2s
		|/echo Clearing Cursor
	:cursorclear
	/if (${Cursor.ID} && ${Cursor.ID} != 13073) {
	    /destroy
	    /delay ${destroydelay}
	    /goto :cursorclear
	}
/goto :Loop	
/return

| ----------------------------------------------------------------------------
| SUB: CursorClear
| ----------------------------------------------------------------------------

Sub CursorClear
	:cursorclear
	/if (${Cursor.ID} && ${Cursor.ID} != 13073) {
	    /destroy
	    /delay ${destroydelay}
	    /goto :cursorclear
	}
	
	/return

| ----------------------------------------------------------------------------
| SUB: Done
| ----------------------------------------------------------------------------	

Sub Done
	/delay 8 
	/notify GiveWnd GVW_Give_Button leftmouseup
		/delay 8
	/echo Closing Bags
	/keypress CLOSE_INV_BAGS
	/echo Done .. Have fun.. 
		/delay 5s
/return

| ----------------------------------------------------------------------------
| SUB: PortToCrescent
| ----------------------------------------------------------------------------

Sub PortToCrescent

	/squelch /target clear
        	/delay 5s
	:oncemore
	/echo Casting Origin!
		/alt activate 331 -maxtries|5
		/delay 20s
	/if (${Zone.ShortName.NotEqual[crescent]}) {
	/echo Casting Origin again
   	/goto :oncemore
	} else {
	/return
	}
/return	   

| ----------------------------------------------------------------------------
| SUB: Wyn
| ----------------------------------------------------------------------------

	Sub Wyn
	    /squelch /target clear
	    /target "Merchant Wyn`las"
	    		    /delay 5s
	    /call MoveToWyn1
	        /delay 5s
	    /call MoveToWyn2
	        /delay 5s 	
        /call npc "Merchant Wyn`las"
	    /call BuyEyes
			/delay 3s
/return	

| ----------------------------------------------------------------------------
| SUB: Bind
| ----------------------------------------------------------------------------

	Sub	Bind
    /target clear
	/if (${Merchant.Open}) {
               /notify MerchantWnd MW_Done_Button leftmouseup
               /delay 1s !${Merchant.Open}
	 }      
	/delay 5s
	:again
         /casting "Gate" -maxtries|5
	         /delay 20s	
	}

/return

| ----------------------------------------------------------------------------
| SUB: NPC(NPCName)
| ----------------------------------------------------------------------------

	Sub NPC(NPCName)
|/declare NPCName "Merchant Wyn`las" local
    |/target npc ${NPCName}
    |/delay 1s
    |/if (!${Select[${Target.Type},npc,pet]} || !${Target.ID} || ${Target.Type.Equal[pet]} && 

|!${Target.CleanName.Find[familiar]}) {
|        /echo Please target a vendor or guildbanker
|        /return
|    }
    /echo Doing business with ${NPCName}
    /target id ${Spawn[${NPCName}].ID}
    /delay 3s ${Target.ID}==${Spawn[${NPCName}].ID}
    /if (${Target.Distance}>15) {
        /moveto id  ${Spawn[${NPCName}].ID}
        /delay 250 ${MoveTo.Stopped}
    }
    /face nolook
    /delay 1s
	/echo Opening Bags
	/keypress OPEN_INV_BAGS
		/delay 2s			
    /echo Opening merchant/guildbank window
    /nomodkey /click right target
    /echo Waiting 5s for merchant/guildbank window to populate
    /delay 5s
	/return
/return

| ----------------------------------------------------------------------------
| SUB: BuyEyes
| ----------------------------------------------------------------------------

	Sub BuyEyes
| This is to adjust number of free lots to be left open while buying Fire Beetle Eyes.

	/declare FreeSlots int local 0
	
        /notify MerchantWnd ItemList listselect ${Window[MerchantWnd].Child[ItemList].List[=Fire Beetle Eye,2]}
	/delay 2s
	:goagain
	/if (${Me.FreeInventory}>${FreeSlots}) {
		/Shiftkey /notify merchantwnd MW_Buy_Button leftmouseup
	:waitforit
		/if (${Window[MerchantWnd].Child[MW_Buy_Button].Enabled}==FALSE) {
			/echo button is false
			/delay 2
			/goto :waitforit
		}
		/goto :goagain
	}
		/echo Closing Bags
	/keypress CLOSE_INV_BAGS
	/delay 2s
/return

| ----------------------------------------------------------------------------
| SUB: MoveToWyn1
| ----------------------------------------------------------------------------

	Sub MoveToWyn1
		/echo Moving to Wyn1
		/moveto loc -284.58 -133.26
			/delay 20
	     :StillMoving 
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}			
		/moveto loc -784.40 -1185.38
			/delay 20
	     :StillMoving2
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving2
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}
			/moveto loc -1049.39 -1362.55
			/delay 20
	     :StillMoving3
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving3
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}
/return

| ----------------------------------------------------------------------------
| SUB: MoveToWyn2
| ----------------------------------------------------------------------------

	Sub MoveToWyn2
		/echo Moving to Wyn2
			/moveto loc -1140.52 -1553.23
			/delay 20
	     :StillMoving4
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving4
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}
			/moveto loc -1324.01 -1495.08
			/delay 20
	     :StillMoving5
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving5
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}			
		/moveto loc -1397.59 -1518.78
			/delay 20
	     :StillMoving6 
				{
				/delay 1
                    /if (${MoveTo.Moving} || ${Me.Moving}) /goto :StillMoving6
                    /delay 0 !${Me.Moving}
                } else {
			/delay 5
			}
/return

| ----------------------------------------------------------------------------
| SUB: CleanInventory
| ----------------------------------------------------------------------------   
   
Sub CleanInventory

   /echo Clearing up your bags, this will take a moment.
   /declare StuffToDestroy string local Spell: Cavorting Bones|Spell: Reclaim Energy
   /declare i  int local
   /for i 1 to 2
      /echo ${StuffToDestroy.Arg[${i},|]} ${FindItemCount[${StuffToDestroy.Arg[${i},|]}]}
      /if (${FindItemCount[${StuffToDestroy.Arg[${i},|]}]}>0) {
         :MoreToDestroy
         /doevents
         /itemnotify "${StuffToDestroy.Arg[${i},|]}" leftmouseup
         /delay 10 ${Cursor.Name.Equal[${StuffToDestroy.Arg[${i},|]}]}
         /if (${Cursor.Name.Equal[${StuffToDestroy.Arg[${i},|]}]}) {
            /destroy
            /delay 10 ${Bool[${Cursor.ID}]}==FALSE
         }
         /if (${FindItemCount[${StuffToDestroy.Arg[${i},|]}]}>0) {
            /goto :MoreToDestroy     
         }
      }
   /next i
   /squelch /target clear
/return
 
Last edited:
mine was the base, let the mods begin... lol if you simply parked a wiz at the vendor he could be told via eqbc to tele you back to bind..... I just did mine with a cleric, but seriously this thing is painfully slow! MY toon has been running it non stop and she is only level 58 now, that's 48 to 58 in 8 hours. The exp is NOT great but at least it works.
 
If you switch to AAs you get about 3 AAs per run. Part od the slowness is waiting for Origin to refresh, kind of hard to get around that. Fellowship would be the same thing, it has a 15 minute cooldown also.
 
yeah but the buy (only takes a minute) is fast it is the turn in that takes you 14 minutes so no way to speed that up, there is no idle time
 
I used to have my wizard do all the running and shopping, while the toon being PL'd just stood around accepting trades and handing in chips. Trading would probably speed this up.
 
NOTHING but porting directly to the vendor will speed this up, and that will save you 40 seconds, the turn in is 4 stacks of 20 and it takes 14 minutes to turn in with 10x Extraplanar bags!

- - - Updated - - -

basically for testing I put 12k plat on my new cleric, she will run until broke, whatever level that gets her we shall see but the leveling is SO slow! she is 57 after what seems like forever....
 
Razkle, can yu try this out for the turnin, I'm at work and can't test it. It should be faster on turnins. Just replace the sub in your routine.

Rich (BB code): 
| ---------------------------------------------------------------
| Sub: TurnIn
| ---------------------------------------------------------------
Sub TurnIn
   /declare bonetimer timer local 0
   /declare i int local
   /for i 0 to 3
      :GetEyes
      /if (${FindItemCount["Fire Beetle Eye"]}>0) {   
         /itemnotify "Fire Beetle Eye" leftmouseup
         /delay 1 ${Cursor.ID}==10307
         :retrygive
         /if (${Cursor.ID}==10307) {
            /click left target
            /delay 1 ${Window[GiveWnd].Child[GVW_MyItemSlot${i}].Tooltip.NotEqual[${ItemToHandIn}]}==FALSE
            /if (${Cursor.ID} && ${Cursor.ID}==10307) {
               /goto :retrygive
            }
         } else {
            /goto :GetEyes
         }
      }
   /next i
   /if (${Window[GiveWnd].Open}) {
      /notify GiveWnd GVW_Give_Button leftmouseup
      /delay 200 !${Window[GiveWnd].Open}
   }
/return
 
will give it a try, thanks man

- - - Updated - - -

Testing has ended, the end result is this will give you so little exp at 60+ it is not really viable. at 62 I turn in 400 eyes to get 1% of a level. That's kinda pitiful..... 12k plat gets you level 62 +50% or 62 1/2 levels for 2 days of automated leveling. I am out of this project, sorry guys...
 
I will say at least we tested it, thanks for everyone who put in the hard work to see if this was viable, I know I spent a chunk of plat and time cause I miss my bone chips. Keep looking guys there is more to find! Bring us ideas, we will test the shit outta them!
 
Razkle, can you advise the total time frame you spent PL'n with this method from 1 to 62? Maybe this is just the jump start for a series of things to do instead of the whole gambit? We use this to get past 50.. then at lvl 50 we do something else until something else else... etc. Just thinking
 
Rusty it took 2 full days, like 48 hours to get to 62, I can do that in 30-40 minutes (3x LC runs) normally.. 1-60 is cake

- - - Updated - - -

I am telling you the exp from this is almost exactly the same as current bone chips, except you don't lose 12k on 2 days of bone chips

- - - Updated - - -

If you want to mindlessly level just do the old bone chips, I should run it for 2 days and see what you get now....
 
You must log in or register to reply here.
Leveling - Fire Beetle Eyes and how best to use them
Next unread thread 🦁

Users who are viewing this thread

Total: 1 (members: 0, guests: 1)
Back
Top
Cart

Cart

Total -