MacroQuest64

Posted: **Tue Oct 01, 2002 4:05 pm**

Oops my bad, didn't know we shouldn't stay on topic....I don't remember though saying "smurf hut building" though. lol

Posted: **Tue Oct 01, 2002 4:08 pm**

For god's sakes, let it die. You already tore off it's legs, just shoot it.

Posted: **Tue Oct 01, 2002 5:28 pm**

Since when do smurf huts have legs to tear off? The mushroom roof, I would understand...

Posted: **Tue Oct 01, 2002 5:43 pm**

haha.. haha

Posted: **Tue Oct 01, 2002 11:26 pm**

Salutations,
smurf hut building is one of the replacements for a censored word... think about what you think you typed...

Posted: **Tue Oct 01, 2002 11:40 pm**

Hmm i been sitting here for 15 mins trying to figure out what "Smurf Hut Building" means lol

But im too slow to figure it out..even tried just smurf hut.

I have an idea, but its probably my mind just trying to convince me to give up by making me believe i have the answer....

yah..

Draekz

Posted: **Thu Oct 03, 2002 2:58 pm**

I have found that eventually my character will get stuck in a give mode with the vendor when running this macro. Any suggestions? Here is the code once again:

Code: Select all

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

#chat say 

Sub Main 
   /afk
   /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 
/return

Posted: **Thu Oct 03, 2002 3:12 pm**

usually when a macro such as this gets stuck, it is waiting for an event to happen which either has not happened, or it missed. how often does it get stuck?

Anywho, "smurf hut building" set aside...why didnt they ever have "Jabberjaw meets the Snorkels"?! Would've made a great movie. Could've even tied in the Jetsons, Flintstones, AND the Smurfs if they wanted to...

---Genoius---

Posted: **Thu Oct 03, 2002 3:43 pm**

Sorry L124RD, I now remember what I said. Won't happen again.

Posted: **Thu Oct 03, 2002 7:56 pm**

LOL genious im still lost on the smurfs..let alone jetsons and Jabberwocky's hehehe

Draekz

Posted: **Fri Oct 04, 2002 12:56 pm**

It gets stuck everytime. Usually after about half hour or so.

Posted: **Fri Oct 04, 2002 1:55 pm**

In my experiance it's a macro trying to do something before it can do it, then going on to the next step which of course it can't perform, hence the macro apears to hang. You have a lot of delays in there, end your macro when it hangs (hot key good for that) see what it was trying to do. My guess speed reading your script would be either;

it's trying to drop product when you are lagged and the item appears after your drop loop has completed. If this is the case you will have an item on your cursor when you break the macro.

it's trying to buy or sell when the merchant window is not ready, if this is the case it will have stoped during the buy or sell phase.

When you find your problem extend the appropriate delay, or find a way to reduce lag.

Delays are always pretty limiting, you will run the whole time as if you had the maximum allowed lag, try and think of other ways of doing it...

Posted: **Fri Oct 04, 2002 5:32 pm**

Hey give this a shot...make sure that when combining..u have enough space to combine and still have your last 2 slots over when all the combinable components are used..i noticed that the macro likes to think that if the last slot is filled, it thinks your entire inventory is..

so perhaps get bigger bags that will allow your combines to fit in it with at least one space in the LAST bag and slot before the combiner

Draekz

Posted: **Mon Nov 04, 2002 4:30 am**

Just a little note to you guys. The cheese exploit is back, however, it seems that it is back for just one purpose, catching people exploiting it. Avoid it, don't get banned, cause they are watching that one.

Posted: **Tue Nov 19, 2002 2:24 am**

bump!

be relevant...

I... I um....

I like my big "mac" with "cheese"... yeah!

cheese.mac. lovely. mac and cheese....

thats relevant.... right?

....

...

.

right?

MacroQuest64

A pointless thread

Problem over time...

Problem over time...

Same ol Same ol

Veriant is baiting a hook...