Rogue apply posion macro

inorpo · Post by **inorpo** » Sun Nov 30, 2003 6:27 pm

What I'm looking to have this do is
/macro ap "Posion Name" main_inv_slot_where_wep_is

I've been piecing this together from ts.mac and a few others.

I wonder if anyone could create this faster than I can.

I'll post mine once i get it finnished, but I'd like to see someone else do it just to see.

inorpo · Post by **inorpo** » Sun Nov 30, 2003 7:23 pm

It seems I've got a crude one working.

But its a start for my first macro and an hours worth of reading old stuff.

The /delays can probaby be tweaked, but I just sorta guessed till it worked for me.

Code: Select all

|**apply_poison.mac
 version 1
 Auther: inorpo@inorpo.com
---------------------------
 Usage:
 /macro apply_posion "Poison Name" slot_number_of_weapon
-----------------------------------
**|

#turbo
| turn turbo mode on.

#event ApplySucced "You have successfully applied the poison"
|#event ApplyFail ""



|| "Your have become better at Apply Poison"
|| "You successfully applied the poison"
Sub Main

	/varset PosionName "@Param0"
	/if "$char(state)"=="STAND" { 
		| We need to be sitting to apply posion.
		/echo "Standing, We need to sit down."
		/sit
	}

	/press CTRL
	/press shift
	/press alt
	| We also need to make sure CTRL, alt and shift arn't pressed.
		
	| Ok folks, here we go.
	
	/echo "Posion Name: @PosionName"
   
   |Start loop here!
   :ApplyPosion
   /finditem "@PosionName"
   /if $cursor()=="NULL" {
   	/echo Out of @PosionName
   	/return
   } else {
   	 /delay 1s
		 /click left inv 7
		 /click right inv 7
		 /delay 15s
		 /click left inv 7
		 /delay 1s
		 /goto :ApplyPosion
		 |End loop here
	}
/return

Crun · Post by **Crun** » Wed Dec 03, 2003 8:55 am

well, I've never played a rogue, so I'm not positive on how this all works, however I believe what you need is a

/varset weapon "@Param1"

and then

/click left weapon
/click right weapon
/delay 15s
etc etc

just a thought =)

Crun

Kracken · Post by **Kracken** » Wed Mar 31, 2004 7:22 pm

This work a bit better and poison is spelled right

Code: Select all


Sub Main 
   /declare PoisonName global
   /varset PoisonName "@Param0" 
   /if "$char(state)"=="STAND" { 
      /sit 
   } 
   /press CTRL 
   /press shift 
   /press alt 
   /echo "Posion Name: @PoisonName"    
:ApplyPoison 
   /finditem "@PoisonName" 
   /if $cursor()=="NULL" { 
      /echo Out of @PoisonName 
      /endmacro 
   } else { 
       /delay 1s 
       /click left inv 7 
       /click right inv 7 
       /delay 13s 
       /click left inv 7 
       /delay 1s 
       /goto :ApplyPoison  
   } 
/endmacro