MacroQuest64

Need to talk about MacroQuest to other MacroQuest users?
https://mq64.org/phpBB3/

A pointless thread

https://mq64.org/phpBB3/viewtopic.php?t=33

Page 11 of 50

Posted: Fri Sep 06, 2002 5:00 pm
by RPZip
I'll post my later, but...

I added #turbo, but instead used makecheese2, adding in /delay 0's... which means if you get a lag spike for some reason, you won't lose your items.

Posted: Fri Sep 06, 2002 5:58 pm
by Asako Onasuke
What's the hourly rate of your platinum?

Posted: Fri Sep 06, 2002 6:15 pm
by Hoihoi
i used the one that was posted once by EQFanatic, but it hangs from time to time becuase its not cleaning the mixing bowl correctly and fills it up with stacks of milk/rennet.
anyone could post something that surely cmakes the bowl empty pls :)

Posted: Fri Sep 06, 2002 6:51 pm
by Magnus
I didn't look at fanatics script but this will clean the pack as long as you set your defs..

Code: Select all

Sub CleanPack
   /varcalc v2 $pack($v80,slots)-1
   /sendkey down shift
   /for v1 0 to $v2
   /click left pack $v80 $v1
   /delay 0
   /click left auto
   /delay 0
   /next v1
   /sendkey up shift
/return

Mag

Posted: Fri Sep 06, 2002 6:52 pm
by Magnus
Oh, my macro was written for #turbo...you might need to modify things to get it to run correctly if you copy verbatum. Basically just use this as a guideline to write your own. That's my suggestion...


Mag

Posted: Sat Sep 07, 2002 7:19 am
by Nyceane
2 problems, you are buying Rennet twice from
| If we had Rennet left, buy extra milk
/if n $v51==0 /goto :SkipMilk
/call buyitem
:SkipMilk
/doevents

| Buy Rennets
/click left merchant 10
/call buyitem
/call buyitem
if there is enough rennet, there is no skip rennet.

second problem, i always end up cheese or spoon on my cursor which makes me can't funcion SellBuy. i try to use /click left auto then use /if "$cursor()"=="FALSE" /call SellBuy. but it doesnt seems to work, plz help me to figure it out =)

Nyceane

Posted: Sat Sep 07, 2002 12:19 pm
by RPZip
Sup! Here's the macro.

Code: Select all

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

Sub Main 
   /afk I am baking, I do not wish to be disturbed 
   /filter skills none 
   /mqlog 
   /varcalc v50 $char(plat)*10+$char(gold) 
   /varset t0 3000 
   /varset t1 $p0 

   :StartLoop 
/delay 0
   /call FindCombiner Mixing 
   /if $return==99 /return 
   /varset v80 $return 

   /target Granger 
   /if "$target()"=="FALSE" /goto :nogranger 
   /cleanup 
   :cleanuploop0 
/delay 0
    /if "$target()"=="TRUE" /goto :cleanuploop0 
   /click left auto 
   /click right inv $v80 

   /varset v39 0 
   /if "$cursor()"=="TRUE" /click left auto 
   :cleanpack 
/delay 0
   /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 
/delay 0
   /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 
/delay 0
       /if "$cursor()"!="TRUE" /goto :cleanwait0 
      /click left auto 
      :cleanwait1 
/delay 0
       /if "$cursor()"=="TRUE" /goto :cleanwait1 
  :skipclean 
/delay 0
   /next v1 
   /sendkey up shift 
/return 

Sub MakeCheese 

   :MakeCheese 
/delay 0

      /finditem "Rennet" 
      /click left pack $v80 0 
      /delay 0

      /finditem "Bottle of Milk" 
      /click left pack $v80 1 
      /delay 0 

      /finditem "Bottle of Milk" 
      /click left pack $v80 2 
      /delay 0 

      /finditem "Dairy Spoon" 
      /click left pack $v80 3 
      /delay 0 

      /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 
/delay 0

      /if "$cursor(name)"=="Dairy Spoon" /goto :AutoDropSpoon 
      /click left auto 
      /delay 0 
      /if "$cursor()"=="TRUE" /goto :AutoDropCheese 

      :AutoDropSpoon 
/delay 0
      /click left auto 
      /if "$cursor()"=="TRUE" /goto :AutoDropSpoon 

   /goto :MakeCheese 

/return 

Sub MakeCheese2 

   :MakeCheese 
/delay 0
      /finditem "Rennet" 
       /if $find()==FALSE /return 
      :rennetwait0 
/delay 0
       /if "$cursor()"!="TRUE" /goto :rennetwait0 
      /click left pack $v80 0 
      :rennetwait1 
/delay 0
       /if "$cursor()"=="TRUE" /goto :rennetwait1 

      /finditem "Bottle of Milk" 
       /if $find()==FALSE /return 
      :milkwait0 
/delay 0
       /if "$cursor()"!="TRUE" /goto :milkwait0 
      /click left pack $v80 1 
      :milkwait1 
/delay 0
       /if "$cursor()"=="TRUE" /goto :milkwait1 

      /finditem "Bottle of Milk" 
       /if $find()==FALSE /return 
      :milkwait0 
/delay 0
       /if "$cursor()"!="TRUE" /goto :milkwait0 
      /click left pack $v80 2 
      :milkwait1 
/delay 0
       /if "$cursor()"=="TRUE" /goto :milkwait1 

      /finditem "Dairy Spoon" 
       /if $find()==FALSE /return 
      :spoonwait0 
/delay 0
       /if "$cursor()"!="TRUE" /goto :spoonwait0 
      /click left pack $v80 3 
      :spoonwait1 
/delay 0
       /if "$cursor()"=="TRUE" /goto :spoonwait1 

      /if n $pack($v80,space)>0 /return 

      /click left pack $v80 combine 
      :cheesewait 
/delay 0
       /if "$cursor()"=="TRUE" /goto :AutoDropCheese 
       /goto :cheesewait 

   /goto :MakeCheese 

   :AutoDropCheese 
/delay 0

      /if "$cursor(name)"=="Dairy Spoon" /goto :AutoDropSpoon 
      /click left auto 
      /goto :AutoDropCheese 

      :AutoDropSpoon 
/delay 0
      /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 
/delay 0
    /doevents 
    /if n $v55!=1 /goto :sellwait 

   /sendkey down shift 

   | Sell our cheese 
   :SellCheese 
/delay 0
      /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 
/delay 0

   | Buy Rennets 
   /click left merchant 10 
   /call buyitem 
   /call buyitem 

   /sendkey up shift 
   /cleanup 
   :cleanuploop1 
/delay 0
    /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 
/delay 0
      /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

Posted: Sun Sep 08, 2002 2:02 pm
by Kaidwen
Doesn't work, says some variables are missing...anyways, man I am doing shitty compared to some of you people, most I topped out at (and was lucky I think) was like 249pp per hour? Any ideas what could possibly be going wrong. I have done that SH Amulet Quest, my CHA is 133, any other ideas?

Posted: Sun Sep 08, 2002 3:04 pm
by Ravena666
Kaidwen you might try to get your self a baking tool 5% dos not sound like much but it dos help.....
Hope this will help you a little

Posted: Mon Sep 09, 2002 9:12 am
by Fippy
I was having problems with the merchant window not opening fast enough and the script going mad and buying load of rennet so i changed SellBuy a bit

Code: Select all

Sub SellBuy 

   | Open merchant
   
   | Make sure we have nothing on the cursor
   :ClearCursor
        /click left auto
        /if "$cursor()"=="TRUE" /goto :ClearCursor
   /target Granger 
   /face

   | Make sure Merchant window is open.
   :OpenMerchant
       /press u
       /Delay 0
       /if "$merchant"!="TRUE" /goto :OpenMerchant
    
   /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 

   | Buy Bottles of Milk 
   /click left merchant 9 
   /call buyitem 
   /call buyitem 
   /call buyitem 
   /call buyitem 


   | Buy Rennets 
   /click left merchant 10 
   /call buyitem 
   /call buyitem 


   /sendkey up shift 
   /cleanup 
   :cleanuploop1 
    /if "$target()"=="TRUE" /goto :cleanuploop1 

/return


All i did was added a check that the merchant window is actually open before trying to buy stuff and took out the bits about buying extra rennet or skipping milk. YOu do now end up with components left over occasionaly, presume this is due to lag, but if you have enough pack spaces this isnt a problem.

As mentioned before

Code: Select all

/serverfilter on
helps too, also filtering out all chats. I was thinking about maybe looking at the floor too whilst doing the combining but there doesnt appear to be a command to controll the playview.

fippy

Posted: Mon Sep 09, 2002 11:01 am
by DeathSpiral
Fippy wrote:I was thinking about maybe looking at the floor too whilst doing the combining but there doesnt appear to be a command to controll the playview.

Code: Select all

/sendkey down pgdn | or whatever the word is for pagedown
/delay 7
/sendkey up pgdn

Posted: Mon Sep 09, 2002 7:32 pm
by RPZip
Fippy... you're v will screw up with turbo.

Take a look...

Code: Select all

   :cleanuploop1 
    /if "$target()"=="TRUE" /goto :cleanuploop1
With turbo, that crashes EQ.

it needs to be...

Code: Select all

   :cleanuploop1 
    /delay 0
    /if "$target()"=="TRUE" /goto :cleanuploop1
etc. etc. In addition, the /sellwait section should wait till the merc opens it up... I've also added a /doevents so if it lags, it'll clean the pack instead of ending up with 20 in each slot.

NEW CODE;

Code: Select all

| - Cheese.mac - 
| 
| Written by: Plazmic 
| Edited by: L124RD 
#include routines.mac 
#turbo 
#chat say
#event Error "Your hands must be empty to find an item."

Sub Main 
   /afk I am baking, I do not wish to be disturbed 
   /filter skills none 
   /mqlog 
   /varcalc v50 $char(plat)*10+$char(gold) 
   /varset t0 3000 
   /varset t1 $p0 

   :StartLoop 
/delay 0 
   /call FindCombiner Mixing 
   /if $return==99 /return 
   /varset v80 $return 

   /target Granger 
   /if "$target()"=="FALSE" /goto :nogranger 
   /cleanup 
   :cleanuploop0 
/delay 0 
    /if "$target()"=="TRUE" /goto :cleanuploop0 
   /click left auto 
   /click right inv $v80 

   /varset v39 0 
   /if "$cursor()"=="TRUE" /click left auto 
   :cleanpack 
/delay 0 
   /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 
/delay 0 
   /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 
/delay 0 
       /if "$cursor()"!="TRUE" /goto :cleanwait0 
      /click left auto 
      :cleanwait1 
/delay 0 
       /if "$cursor()"=="TRUE" /goto :cleanwait1 
  :skipclean 
/delay 0 
   /next v1 
   /sendkey up shift 
/return 

Sub MakeCheese 

   :MakeCheese 
/delay 0 

      /finditem "Rennet" 
      /click left pack $v80 0 
      /delay 0 

      /finditem "Bottle of Milk" 
      /click left pack $v80 1 
      /delay 0 

      /finditem "Bottle of Milk" 
      /click left pack $v80 2 
      /delay 0 

      /finditem "Dairy Spoon" 
      /click left pack $v80 3 
      /delay 0 

      /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 
/delay 0 

      /if "$cursor(name)"=="Dairy Spoon" /goto :AutoDropSpoon 
      /click left auto 
      /delay 0 
      /if "$cursor()"=="TRUE" /goto :AutoDropCheese 

      :AutoDropSpoon 
/delay 0 
      /click left auto 
      /if "$cursor()"=="TRUE" /goto :AutoDropSpoon 

   /goto :MakeCheese 

/return 

Sub MakeCheese2 

   :MakeCheese 
/delay 0 
      /finditem "Rennet" 
       /if $find()==FALSE /return 
      :rennetwait0 
/delay 0 
       /if "$cursor()"!="TRUE" /goto :rennetwait0 
      /click left pack $v80 0 
      :rennetwait1 
/delay 0 
       /if "$cursor()"=="TRUE" /goto :rennetwait1 

      /finditem "Bottle of Milk" 
       /if $find()==FALSE /return 
      :milkwait0 
/delay 0 
       /if "$cursor()"!="TRUE" /goto :milkwait0 
      /click left pack $v80 1 
      :milkwait1 
/delay 0 
       /if "$cursor()"=="TRUE" /goto :milkwait1 

      /finditem "Bottle of Milk" 
       /if $find()==FALSE /return 
      :milkwait0 
/delay 0 
       /if "$cursor()"!="TRUE" /goto :milkwait0 
      /click left pack $v80 2 
      :milkwait1 
/delay 0 
       /if "$cursor()"=="TRUE" /goto :milkwait1 

      /finditem "Dairy Spoon" 
       /if $find()==FALSE /return 
      :spoonwait0 
/delay 0 
       /if "$cursor()"!="TRUE" /goto :spoonwait0 
      /click left pack $v80 3 
      :spoonwait1 
/delay 0 
       /if "$cursor()"=="TRUE" /goto :spoonwait1 

      /if n $pack($v80,space)>0 /return 

      /click left pack $v80 combine 
      :cheesewait 
/delay 0 
       /if "$cursor()"=="TRUE" /goto :AutoDropCheese 
       /goto :cheesewait 
/doevents
   /goto :MakeCheese 

   :AutoDropCheese 
/delay 0 

      /if "$cursor(name)"=="Dairy Spoon" /goto :AutoDropSpoon 
      /click left auto 
      /goto :AutoDropCheese 

      :AutoDropSpoon 
/delay 0 
      /click left auto 
      /if "$cursor()"=="TRUE" /goto :AutoDropSpoon 

   /goto :MakeCheese 

/return 

Sub Error
/call CleanPack
/return

Sub SellBuy 

   | Open merchant 
   /click left auto 
   /target Granger 
   /face 
   /press u 
   /varset v55 0 
   /doevents flush 
   :sellwait 
/delay 0 
    /doevents 
    /if n $v55!=1 /goto :sellwait 

   /sendkey down shift 

   | Sell our cheese 
   :SellCheese 
/delay 0 
      /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 
/delay 0 

   | Buy Rennets 
   /click left merchant 10 
   /call buyitem 
   /call buyitem 

   /sendkey up shift 
   /cleanup 
   :cleanuploop1 
/delay 0 
    /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 
/delay 0 
      /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

Posted: Tue Sep 10, 2002 12:03 am
by L124RD
Salutations,
/sendkey down page_down
/sendkey down home

Posted: Tue Sep 10, 2002 1:09 am
by rizwank
wtb end to this thread rofl

Posted: Tue Sep 10, 2002 8:16 am
by L124RD
Salutations,
/auc WTS locking of the cheese thread. $500,000
All times are UTC-05:00
Page 11 of 50
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/