MacroQuest64

Salutations,
if you want skull ale my friend... and the top of page 100 one has to be related to the topic, even if everything else isn't.... otherwise we're going to the top of page 1000

Salutations,
w00t! Top of page 19! :p

well i hunted the boards for 3 weeks, finally got MQ to work.

still learning .

Problem i have with this macro is this:

everything works fine, right up to the part where it buys what's needed, turns away from the vendor, does the first combine and stops , does not do another combine ( although it does pick the needed ingredients and puts them in the mixing bowl), but nothing happens.

then after a few seconds it adds 2 more milk and 1 more rennet, does this over and over without combining and auto dropping the cheese.

However, if i dit there and click the combine manually ( after it has combined the first time itself), then everything works fine.

Using the code from first page, and i have removed all trailing spaces from code lines.

TIA.

Salutations,
there's a fixed version on like page 10 i think... somewhere in the middle, I didn't right it...

page 11, copied and pasted that.

Smae problem, hang after doing the first combine and i'm forced to click the combine button manually over and over untill it's time for the sell and buy, whre it takes over and does everything, does first combine and same thing .

when i click combine manually, it auto drops the cheese and places 2 milks and 1 rennet in the bowl, but will not combine.

does the bowl have to be in a certain spot? i have had it in the last slot ( in fact tried this with the bowl in a different slot each time ( except first ) and same thing happend.

btw, i cliced on your link, and did the quiz. although most of it is Irrelevant to RL, but i also ended up being a :



hehe

Salutations,
ah, then you should understand the magestity of using macros. taking a piece of another persons soul, and photocopying it and using it for your own wellbeing. A fountain of well being. But that doesn't matter if you dont' do anything but sit around in a dank dark cave all day for then YOu ( I don't) have DSL. and... I just realized I'm typing with my eyes ;closed, but that does not matter for I can see the letters through the screen, for you must realize the truth. There is no sp-- i mean computer.

i'm sure we had a few different answers t the questions but still nded up being a spirit mage.

wasn't sure if the html they provided would work on this board ( not familiar with it, i'm used to EZboard), so i just copied the link for the image they provided at the end of the quiz hehe.

anyhow, wanna take a stab at what the problem might be with the macro not doing more than 1 combine? i can't think of anything

fixed the problem.

still too new to this whole thing but i figured i mess with the delays in there, so i changed the delays from /delay 0 to /delay 2 and it works like a champ.

all i wanted to do was to make it work hehe, this whole thing is not about making pp at all , i have enough of that, i just needed new excitement added to EQ for me, it was getting boring. :)

there is no wisdom that is not jello.



I took the quiz...

I am a "Cheese Mage"
I am tasty and loved by millions.
Unfortunately i can be smelly at times...

Salutations,
ah, but cheese is supposed to smell, as I'm sure you know, being the mage of cheese, (this is an old quote, so think middle renaisance when people don't take baths)

Cheese is best when it smells like the french peasants' feet

I modified stock cheese.mac, now it flies

| - Cheese.mac -
|
| Written by: Plazmic
| Edited by: L124RD
#include routines.mac

#chat say

Sub Main
/afk I am baking, I do not wish to be disturbed
/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
/delay 8
/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
/skill baking
/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
:combine
/click left pack $v80 combine
/delay 1
/if $pack($v80,empty)==FALSE /goto :combine
/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 oneSelling
/call buyitem
/goto :SellCheese

oneSelling
/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

Sub Event_Chat
/if "$p0"=="say" /if "$p1"~~"Granger" /varset v55 1
/return

Salutations,
yeah! we're back on topic. Good job, I'm glad people... work or something...

Will this be top of page 20?

Bummer was worth a try