------
Okay to start off copy and paste the "Code" below into a file called cheese.mac (Into the '/Macros' folder, assuming you have MQ downloaded and unzipped.).
Code: Select all
| - Cheese.mac -
|
| Written by: Plazmic
| Edited by: L124RD
#include routines.mac
#chat say
Sub Main
/afk I'm half way asleep, click drag, click drag, fun fun!
/filter skills none
/stand
/mqlog
/varcalc v50 $char(plat)*10+$char(gold)
/varset t0 3000
/varset t1 $p0
:StartLoop
/call FindCombiner Mixing
/if $return==99 /return
/varset v80 $return
/target Granger
/if "$target()"=="FALSE" /goto :nogranger
/cleanup
:cleanuploop0
/if "$target()"=="TRUE" /goto :cleanuploop0
/click left auto
/click right inv $v80
/varset v39 0
/if "$cursor()"=="TRUE" /click left auto
:cleanpack
/if $pack($v80,empty)==FALSE /call CleanPack
/if n $v39==30 /goto :toofull
/varadd v39 1
/if $pack($v80,empty)==FALSE /goto :cleanpack
/if "$cursor()"=="TRUE" /click left auto
/face loc -100,1167
/sendkey down ctrl
/call MakeCheese2
/sendkey up ctrl
/if "$cursor()"=="TRUE" /click left auto
/call SellBuy
/if $t0==0 /call LogStats
/goto :StartLoop
:TooFull
/echo You are too full on stuff, aborting macro.
/mqlog You are too full on stuff, aborting macro
/call Logoff
/return
Sub CleanPack
/varcalc v2 $pack($v80,slots)-1
/sendkey down shift
/for v1 0 to $v2
/if "$item($v80,$v1)"=="NULL" /goto :skipclean
/click left pack $v80 $v1
:cleanwait0
/if "$cursor()"!="TRUE" /goto :cleanwait0
/click left auto
:cleanwait1
/if "$cursor()"=="TRUE" /goto :cleanwait1
:skipclean
/next v1
/sendkey up shift
/return
Sub MakeCheese
:MakeCheese
/finditem "Rennet"
/click left pack $v80 0
/delay 1
/finditem "Bottle of Milk"
/click left pack $v80 1
/delay 1
/finditem "Bottle of Milk"
/click left pack $v80 2
/delay 1
/finditem "Dairy Spoon"
/click left pack $v80 3
/delay 1
/if n $pack($v80,space)>0 /return
/click left pack $v80 combine
/for v1 1 to 75
/if "$cursor()"=="TRUE" /goto :AutoDropCheese
/delay 1
/next v1
/goto :MakeCheese
:AutoDropCheese
/if "$cursor(name)"=="Dairy Spoon" /goto :AutoDropSpoon
/click left auto
/delay 1
/if "$cursor()"=="TRUE" /goto :AutoDropCheese
:AutoDropSpoon
/click left auto
/if "$cursor()"=="TRUE" /goto :AutoDropSpoon
/goto :MakeCheese
/return
Sub MakeCheese2
:MakeCheese
/finditem "Rennet"
/if $find()==FALSE /return
:rennetwait0
/if "$cursor()"!="TRUE" /goto :rennetwait0
/click left pack $v80 0
:rennetwait1
/if "$cursor()"=="TRUE" /goto :rennetwait1
/finditem "Bottle of Milk"
/if $find()==FALSE /return
:milkwait0
/if "$cursor()"!="TRUE" /goto :milkwait0
/click left pack $v80 1
:milkwait1
/if "$cursor()"=="TRUE" /goto :milkwait1
/finditem "Bottle of Milk"
/if $find()==FALSE /return
:milkwait0
/if "$cursor()"!="TRUE" /goto :milkwait0
/click left pack $v80 2
:milkwait1
/if "$cursor()"=="TRUE" /goto :milkwait1
/finditem "Dairy Spoon"
/if $find()==FALSE /return
:spoonwait0
/if "$cursor()"!="TRUE" /goto :spoonwait0
/click left pack $v80 3
:spoonwait1
/if "$cursor()"=="TRUE" /goto :spoonwait1
/if n $pack($v80,space)>0 /return
/click left pack $v80 combine
:cheesewait
/if "$cursor()"=="TRUE" /goto :AutoDropCheese
/goto :cheesewait
/goto :MakeCheese
:AutoDropCheese
/if "$cursor(name)"=="Dairy Spoon" /goto :AutoDropSpoon
/click left auto
/goto :AutoDropCheese
:AutoDropSpoon
/click left auto
/if "$cursor()"=="TRUE" /goto :AutoDropSpoon
/goto :MakeCheese
/return
Sub SellBuy
| Open merchant
/click left auto
/target Granger
/face
/press u
/varset v55 0
/doevents flush
:sellwait
/doevents
/if n $v55!=1 /goto :sellwait
/sendkey down shift
| Sell our cheese
:SellCheese
/finditem "Mature Cheese"
/if $find()==FALSE /goto :DoneSelling
/call buyitem
/goto :SellCheese
:DoneSelling
/varset v51 0
/finditem "Rennet"
/if $find()==TRUE /varset v51 1
/finditem "Bottle of Milk"
/if $find()==TRUE /if n $v80!=$find(pack) /goto :SkipMilk
| Buy Bottles of Milk
/click left merchant 9
/call buyitem
/call buyitem
/call buyitem
/call buyitem
| If we had Rennet left, buy extra milk
/if n $v51==0 /goto :SkipMilk
/call buyitem
:SkipMilk
| Buy Rennets
/click left merchant 10
/call buyitem
/call buyitem
/sendkey up shift
/cleanup
:cleanuploop1
/if "$target()"=="TRUE" /goto :cleanuploop1
/return
Sub LogStats
| Calc profit in gold
/varcalc v51 $char(plat)*10+$char(gold)-$v50
| calc plat/hr
/varcalc v52 $v51*360/$running
| Plat
/varcalc v53 $v51/10
| left over gold
/varcalc v54 $v51%10
/echo Profit: $v53.$v54pp, avg: $v52pp/hr
/mqlog Run time: $running sec, Profit: $v53.$v54pp, Average = $v52pp/hr
/varset t0 3000
/return
sub LogOff
/sit
/camp
/afk
/endmacro
/return
Sub BuyItem
/varcalc v98 $char(gold)*100+$char(silver)*10+$char(copper)
/click left merchant buy
:WaitBuy
/varcalc v97 $char(gold)*100+$char(silver)*10+$char(copper)
/if n $v98==$v97 /goto :WaitBuy
/return
/if $gm==TRUE /call Crap
Sub Crap
/cleanup
/sit
/reply I was just leaving... Sorry
/delay 20
/q
/unload
/return
Sub Event_Chat
/if "$p0"=="say" /if "$p1"~~"Granger" /varset v55 1
/returnCode: Select all
| - Frosting.mac -
#include routines.mac
Sub Main
/itemtarget Oven
/face item
/click left item
:MakeCrunchies
/sendkey down ctrl
/finditem "Frosting"
/if $find()==FALSE /goto :Done
/click left enviro 0
/finditem "Bat Wing"
/if $find()==FALSE /goto :Done
/click left enviro 1
/sendkey up ctrl
/click left enviro combine
/if "$cursor()"=="TRUE" /goto :AutoDropCrunchies
/for v1 1 to 5
/delay 2
/if "$cursor()"=="TRUE" /goto :AutoDropCrunchies
/next v1
/goto :MakeCrunchies
:AutoDropCrunchies
/click left auto
/goto :MakeCrunchies
:Done
/sendkey up ctrl
/click left enviro done
/if $gm==TRUE /call Crap
Sub Crap
/cleanup
/echo GM in zone... /camping
/sit
/reply Sorry, camping, can't talk now.
/delay 20
/camp
/unload
/return
/returnCode: Select all
| - Frosting.mac -
#include routines.mac
Sub Main
/itemtarget Oven
/face item
/click left item
:MakeFishRolls
/sendkey down ctrl
/finditem "Fresh Fish"
/if $find()==FALSE /goto :Done
/click left enviro 0
/finditem "Bat Wing"
/if $find()==FALSE /goto :Done
/click left enviro 1
/sendkey up ctrl
/click left enviro combine
/if "$cursor()"=="TRUE" /goto :AutoDropRolls
/for v1 1 to 5
/delay 2
/if "$cursor()"=="TRUE" /goto :AutoDropRolls
/next v1
/goto :MakeFishRolls
:AutoDropRolls
/click left auto
/goto :MakeFishRolls
:Done
/sendkey up ctrl
/click left enviro done
/if $gm==TRUE /call Crap
Sub Crap
/cleanup
/echo GM in zone... /camping
/sit
/reply Sorry, camping, can't talk now.
/delay 20
/camp
/unload
/return
/returnOkay now you're ready to start making cash!
1.) To start, goto West Freeport, buy 8 backpacks from the monk guild, then run to the caster guild, goto the 2nd floor, and there is a female caster (Forget the name), she sells infinite batwings, just buy 3 bag fulls of batwings from her (I find it easiest to buy two stacks then spread one batwing into each backpack, then just shift+purcash the batwings.), once you have 3 bags full of batwings, goto the monk guild and inside there is a female merchant that sells frosting, buy 3 bag fulls of frosting the same way you did bat wings, now hurry up to North Freeport, and near the bank there is an oven, open it and press 'I' to bring up your inventory, now that both are open, type "/macro frosting.mac", and sit back and watch the skills start rolling in. Once you run out of supplys, press Ctrl+alt+shift then run to the merchant inside the oven building (basicly in front of you) and sell, after your done selling, repeat the process until you get the trivial message.
Now you should be about 35 at baking, GOOD! Just keep reading.
2.) Goto West Freeport, buy 8 backpacks from the monk guild, then run to the caster guild, goto the 2nd floor, and there is a female caster (Forget the name), she sells infinite batwings, just buy 3 bag fulls of batwings from her (I find it easiest to buy two stacks then spread one batwing into each backpack, then just shift+purcash the batwings.), once you have 3 bags full of batwings, run to East Freeport and goto the building near the Docks, and buy 3 bag fulls of fresh fish, using the same technique as you did batwings.
Once you have 3 bags of batwings, and 3 bags full of fresh fish, run to the oven near the bank in North Freeport. Open the oven, and your inventory, and type "/macro fishrolls.mac" , when out of supplys, buy them, as stated above. Do this until you get trivial message (Baking = 135, about 3 trips)
Now this is the harder part, and the part which you have to have luclin.
3.) Get a port to Butcher Block, or Greater Faydark (Or straight to the nexus.), and run to the wizzie spires in GFay, pick up a shard, and wait for the nexus to open. Once you are in the nexus, make a 45 degree turn to the left (I THINK), and run down those stairs and through the arch-way, keep walking down that small road, until you see a crossroad, to the right should be the kunark port, and to the left should be the zone to bazaar, turn left and zone into bazaar. Now, hopefully people on your server are nice, because you have to ask for a Dairy spoon (Or if your a smith, make one... 2 metal bits, scaler mold, flash water, its trivial at 74), and also ask for a mixing bowl if you don't have one. Once you have both those items, and atleast 40pp, run to the shadowhaven, and zone through. Once zoned, go up the stairs, then go up the first stairs on your left, turn right and go down the path above the level you were just at (Confusing when read, but makes sense when you're there.), keep going down the path and once you hit a wall, turn left (This is it, I think, I'm not 100% sure.) and there should be two doors, take the door on the left, hopefully you'll find a guy named Gronger inside, if not, goto "Loc +24, +1169", stand beside him, and type "/macro cheese.mac #####" where the # are, type in a number. 36000 = one hour.
------
Notes: If you want to make more cash, buy some charisma jewelry, along with two Opal Encrusted Steins (20-150pp).
---------
130cha = around 200pp an hour.
--------------------------------------
Please tell me if you liked this guide, and if you didn't, please tell me why so I can improve it.