a question about an edited bear.mac

[Braedo]

hello... i am reltively new to everything and i have been playing around with easy macros like bear.mac and fillet.mac anyways i am trying to edit the bear mac code to allow me to make scorpion sandwiches but i keep gettin stuck, any help would be appreciated

Code: Select all

#include routines.mac 

Sub Main 
  /mqlog 
   /varcalc v50 $char(plat)*10+$char(gold) 
   /varset t0 3000 
   /varset t1 0 
   /call FindCombiner Baking 
   /if $return==99 /return 
   /varset v80 $return 

   :StartLoop 

   /cleanup 
   /click left auto 
   /click right inv $v80 


   :MakeFishRolls 
   /sendkey down ctrl 
    
      /finditem "scorpion Meat" 
      /if $find()==FALSE /goto :sellbuy1
      /click left pack $v80 0 


      /finditem "loaf of bread" 
      /if $find()==FALSE /goto :sellbuy2 
      /click left pack $v80 1 



      /if "$item($v80,0,name)"=="scorpion Meat" /if "$item($v80,1,name)"=="loaf of bread" /goto :DoCombine 
      /return 

      :DoCombine 
      /click left pack $v80 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
/return

Sub sellbuy
      :sellbuy1
      /press esc
      /press esc
      /press esc
      /press esc
      /press esc
      /goto :sellbuy3

      :sellbuy2
      /press esc
      /press esc
      /press esc
      /press esc
      /press esc
      /goto :sellbuy3

   :sellbuy3
   | Open merchant 
   /click left auto 
   /target Mordin 
   /face 
   /mouseto 300 200
   /click right 
   /delay 25
   /sendkey down shift 
   /mouseto auto 
   /varset v37 1 
   :sellcheese
   /finditem "scorpion sandwich" 
   /if $find()==FALSE /goto :DoneSelling 
   /call buyitem 
   /goto :SellCheese 

   :DoneSelling
   /click left merchant 10 
   /call buyitem 
   /call buyitem 
   /call buyitem 
   /call buyitem 

   /click left merchant 9
   /call buyitem
   /call buyitem
   /call buyitem
   /call buyitem

   /sendkey up shift 
   /cleanup
/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 

dont laught at me too much, i know this is messy but im goin for basic functionality for now!