confused

[Cha-Ching]

A bit of a question...... I have lost 2 dairy spoons doing the cheese, and 2 filleing knives doing the bear meat.... do these items have a length of use, do they break or get consumed after a while? I have checked the ground and the vendor invetory and cannot find them. It's easy enough to go make more.... but if I leave it running overnight I come back to me just standing there.... when I could be making $$

--- I also checked the logs to see if I accidently sold them and I havent.

any suggestions?

[/anon]

I have not run the cheese or meat macros but a friend of mine has. he had his knife go bye bye once. all He did was put a stack or 2 of the knifes on him and he has not had a problem sence.

[van]

no it dropped and poofed while you were not looking.

use this script for the bear. 12kpp and counting on the same knife
normally happens with a shift or ctrl not being released

turn your data rate to 8 and you should get these results

[2002/05/28 11:43:51] Run time: 407 sec, Profit: 50.7pp, Average = 448pp/hr

[2002/05/28 11:50:03] Run time: 779 sec, Profit: 88.3pp, Average = 408pp/hr

[2002/05/28 11:56:19] Run time: 1155 sec, Profit: 126.1pp, Average = 393pp/hr

[2002/05/28 12:02:44] Run time: 1540 sec, Profit: 164.0pp, Average = 383pp/hr

[2002/05/28 12:09:05] Run time: 1921 sec, Profit: 201.2pp, Average = 377pp/hr

[2002/05/28 12:15:16] Run time: 2292 sec, Profit: 238.4pp, Average = 374pp/hr

[2002/05/28 12:21:34] Run time: 2670 sec, Profit: 276.2pp, Average = 372pp/hr

[2002/05/28 12:27:47] Run time: 3043 sec, Profit: 314.1pp, Average = 371pp/hr

[2002/05/28 12:33:59] Run time: 3415 sec, Profit: 351.9pp, Average = 370pp/hr

[2002/05/28 12:40:13] Run time: 3789 sec, Profit: 390.2pp, Average = 370pp/hr

[2002/05/28 12:46:28] Run time: 4163 sec, Profit: 427.9pp, Average = 370pp/hr

[2002/05/28 12:52:45] Run time: 4541 sec, Profit: 465.4pp, Average = 369pp/hr

[2002/05/28 12:58:55] Run time: 4911 sec, Profit: 502.4pp, Average = 368pp/hr

[2002/05/28 13:05:07] Run time: 5283 sec, Profit: 539.6pp, Average = 367pp/hr

[2002/05/28 13:11:16] Run time: 5652 sec, Profit: 576.7pp, Average = 367pp/hr

[2002/05/28 13:17:31] Run time: 6027 sec, Profit: 614.1pp, Average = 366pp/hr

[2002/05/28 13:23:45] Run time: 6401 sec, Profit: 651.5pp, Average = 366pp/hr

[2002/05/28 13:30:07] Run time: 6783 sec, Profit: 689.2pp, Average = 365pp/hr

[2002/05/28 13:36:19] Run time: 7155 sec, Profit: 727.4pp, Average = 365pp/hr

[2002/05/28 13:42:32] Run time: 7528 sec, Profit: 764.3pp, Average = 365pp/hr

[2002/05/28 13:48:45] Run time: 7900 sec, Profit: 802.7pp, Average = 365pp/hr

[2002/05/28 13:54:58] Run time: 8274 sec, Profit: 840.2pp, Average = 365pp/hr

[2002/05/28 14:01:10] Run time: 8646 sec, Profit: 878.2pp, Average = 365pp/hr

[2002/05/28 14:07:26] Run time: 9022 sec, Profit: 916.4pp, Average = 365pp/hr

[2002/05/28 14:13:37] Run time: 9393 sec, Profit: 954.2pp, Average = 365pp/hr

i have seen more but those scripts tend to sell or drop your stuff.

Code: Select all

| - bear.mac -
|
#include routines.mac

Sub Main
|This sets how many repetitions to go through in a Wait loop before reporting Frozen 
   /varset v92 200 
   /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

   /if $pack($v80,empty)==FALSE /call CleanPack
   /if $pack($v80,empty)==FALSE /goto :TooFull

   /sendkey down ctrl
   /call Makebear
   /sendkey up ctrl
|   /if n $t1==0 /call CastCHA
   /call SellBuy

   /if $t0==0 /call LogStats

/goto :StartLoop

:TooFull

 /goto :StartLoop


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


Sub Makebear

   :Makebear

      /finditem "bear meat"
      /click left pack $v80 0

      /finditem "filleting knife"
      /click left pack $v80 3

      /if "$item($v80,0,name)"=="bear meat" /if "$item($v80,3,name)"=="filleting knife" /goto :DoCombine
      /return

      :DoCombine
      /click left pack $v80 combine

      :LoopWait
      /if "$cursor()"=="NULL" /goto :LoopWait
      /if "$cursor(name)"=="filleting knife" /goto :Failed
      /click left auto
      :LoopFail
      /if "$cursor()"=="NULL" /goto :LoopFail
      :Failed
      /click left auto

   /goto :Makebear

/return


Sub SellBuy

   | Open merchant
   /click left auto
   /target drible
   /face
   /press u
   /delay 40

   /sendkey down shift

   | Sell our bearmeat
   :Sellbear 
      /varset v98 $char(gold) 
      /finditem "filleted bear" 
      /if $find()==FALSE /goto :DoneSelling 
      /click left merchant buy 
      :WaitSale
      /varadd v99 1 
      /if n $v99==$v92 /goto :loopdetected
      /if n $v98==$char(gold) /goto :WaitSale
   /goto :Sellbear


   :DoneSelling
   /varset v51 0
   /finditem "bear meat"
   /if $find()==TRUE /varset v51 1
   /goto :buybearmeat


   | loopedetected get out of it clean up and go on - code added by van
   :loopdetected
   /echo loop detected cleaning up and continuing
   /varset v99 0
   /cleanup
   /click left auto
   /press esc
   /press CTRL
   /press shift
   /press alt
   /goto :startloop

   :buybearmeat


   | Buy bearmeat
   /click left merchant 11
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem
   /call BuyItem

   /sendkey up shift
   /press esc
   /press esc
/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 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 CastCHA
   /target myself
   /call Event_CastFizzle
   :LoopFizzle
      /doevents
   /if n $t9>0 /goto :LoopFizzle
   /varset t1 30m
/return

Sub Event_CastFizzle
  /delay 5
  /cast 1
  /varset t9 7s
/return