Oooooooookay....

TetsuoAkira · Post by **TetsuoAkira** » Thu Sep 19, 2002 3:21 am

Win98 SE
running EQWindows (Newest version I think)
running MQ20020905 or whatever newest is

So Heres my problem.... i type in /macro cheese.mac (I'm standing next to the merchant mind you) and it says "/varset blah blah blah" or something, and then ...... it does nothing at all..... I open up my mixxing bowl and it start picking up the spoon alot, i even put in some rennet and milk and it doesn't do anything but pick up the spoon.

Heres my code.

Code: Select all

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

#chat say 
#chat tell 
#chat say 

Sub Main 
   /if $gm==TRUE /call Crap
   /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 
      /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 

Sub Event_Chat 
/if "$p0"=="say" /if "$p1"~~"Granger" /varset v55 1 
   /if "$p1"~~"MERCHANT" /return 
   /beep 
   /if $p0==tell { 
      /delay 2 
      /beep 
      /delay 2 
      /beep 
   } 
   /mqlog $p0 from $p1: $p2 
   /if n $v35==1 /return 
   /if "$p0"~~"GM" /call Crap2 "$p1" 
   /if "$p2"~~"GM" /call Crap2 "$p1" 
   /if "$p2"~~"Guide" /call Crap2 "$p1" 
/return

Sub Crap2 
   /varset v35 1 
   /press CTRL 
   /press shift 
   /press alt 
   /afk I gotta go, problems in the real world. 
   /beep 
   /delay 17 
   /cry 
   /delay 2 
   /delay 8 
   /reply Gotta leave fast.  Talk to you later. 
   /cleanup 
   /delay 5 
   /mqlog GM talked to us... idling 
   /log            | if you turn log on every time you get on eq delete this line 
   /who all GM 
   /who all $p0 
   /call LogStats 
   /beep 
:LoopTillMasterHome 
  /doevents 
  /delay 20 
  /beep 
  /if n v37==0 /goto :LoopTillMasterHome 
  /endmacro 
/return 

Sub Crap 
   /press CTRL 
   /press shift 
   /press alt 
   /target myself 
   /sigh 
   /beep 
   /delay 2 
   /press esc 
   /press esc 
   /press esc 
   /delay 5 
   /beep 
   /mqlog GM in zone... idling 
   /who all GM 
   /delay  4 
   /who all ench 
   /delay 6 
   /afk 
   /beep 
|   /afk I gotta go, RL isssue, will be back soon. 
   /call LogStats 
:LoopTillMasterHome 
  /doevents 
  /delay 20 
  /beep 
  /if n v37==0 /goto :LoopTillMasterHome 
  /mqlog finally master home, they can take over 
  /endmacro 
/return

I also tried running one without any delays (third to last post on the 11th page of cheese.mac discussion.)

Anyone have a fix? I'm running the old UI on a 700mhz 256ram no graphics turned on, everything low as it can go, server filter, ect.

Red Moogle · Post by **Red Moogle** » Thu Sep 19, 2002 9:34 am

damn some one needs to make wine.mac to go with all that cheese

S_B_R · Post by **S_B_R** » Thu Sep 19, 2002 10:03 am

This line /varset t1 $p0 ia looking for you to set a value when you start the macro.
i.e. /macro cheese.mac #
where "#" is some number.. I don't know what range that number should fall into, I've never used any of the trade skill macros...

Fippy · Post by **Fippy** » Thu Sep 19, 2002 10:36 am

Its supposed to be /macro cheese X where X is the number of seconds to run the cript for 0 for infinite I think. I am pretty sure that aint the problem though. I was have problems and solved them by having lots of empty bags the bag in the first inventory slot with food and water in so ya dont eat ya cheese or drink your milk (if ya do your going to be having bad dreams) and the mixing bowl in the last slot, bottom right.

DeathSpiral · Post by **DeathSpiral** » Thu Sep 19, 2002 10:54 am

General usability hints: If you are having issues with scripts appearing to not work, /endmacro and rearrange your container window(s)*. If anything overlaps (one window over another, or more commonly, one window partially over the autoequip spot) you'll have issues exactly like you are describing. Also, if your .mac plays with vendors, make sure that none of your container window(s) overlap on the merchant bar, otherwise you'll have pick issues from merchant as well.

*= window(s) open during the course of the macro, ie, if you just leave your Mixing Bowl / Spit / Medicine Bag / whatever open while the macro is running, you only have to make sure that doesn't overlap anything else...

Hope it helps, all I can think of...

TetsuoAkira · Post by **TetsuoAkira** » Thu Sep 19, 2002 2:48 pm

Thank you! I Forgot all about the time to run thing.... *hits self on head, then makes a whine.mac script*

Draekz · Post by **Draekz** » Wed Oct 02, 2002 10:09 am

Also I noticed mine doing that also ....

Perhaps you should try running the macro in 8x6 and make sure your mixing bowl is in the top right slot and that all your ingredients fit into one backpack (i made mine the first pack).

So far it works good

I average about 160-220pph depending on latency and whatnot.

Draekz

EDIT: oh yah make sure you're in fullscreen mode not normal gui (in OLDUI of course)

rizwank · Post by **rizwank** » Wed Oct 02, 2002 12:01 pm

whos dragging all of these month old posts up to the forefront anyhow?

Magnus · Post by **Magnus** » Wed Oct 02, 2002 3:25 pm

Neo? Is that you?

Mag

rizwank · Post by **rizwank** » Wed Oct 02, 2002 4:29 pm

Neo (gasp) has not posted to this thread.

]\[E() · Post by **]\[E()** » Thu Oct 03, 2002 11:01 am

Very funny guys.... No its not me just checking on the boards at school and seen this funny hardy har har

Draekz · Post by **Draekz** » Thu Oct 03, 2002 11:52 am

No idea who brought it forward, i just replied to it lol

didnt actually check the post date

Draekz