#Event help

[Epsilon]

hi i was trying to write my own CH rotation macro but i cant get it to work, how do i make so it reads text from a chat channel? if i type CLERIC1 in say etc then it works but not from a chat channel..thanks would love some help here

Code: Select all

#chat chat
#include spellsub.mac
#Event Rotation "CLERIC1"

Sub Main 
    :loop   
      /doevents
    /goto :loop
/return

Sub Event_Rotation
	/stand up
	/cast 1
	/2 CH on %t
	/delay 4
	/2 CH on %t ------------------------ CLERIC2 next
	/cast 1	
/return

[Shin Noir]

Hmm why does this look familiar.. Oh ya! Because it was posted about already HERE.

Here was the ending code

Code: Select all

#chat chat 

Sub Main 
   /if "$p0"=="" { 
      /echo Syntax: /macro ch <"channel-to-look-in"> <"string-to-look-for"> <delay-in-tenth-of-a-second> 
      /echo Example: /macro ch "chhain" "888 CH on" 15 
      /echo Will trigger on ex: Cleric_001 tells chhain: 888 CH on MainTank_004 CH 888 
      /endmacro 
   } 
   /varset a(2,0) "$p0" 
   /varset a(2,1) "$p1" 
   /varset a(2,2) $p2 
   :loop 
      /doevents 
   /goto :loop 
/return 

Sub Event_Chat 
   /if "$p0"~~"$a(2,0)" /if "$p2"~~"$a(2,1)" { 
      /delay $int($a(2,2)) 
      /press 1 
   } 
/return

[Epsilon]

wow thanks shin, that looks a bit more advanced than mine hehe

[grimjack]

If you know exactly what phrase you want to kick off the cheal (Other members of chain useing hotkey to report) you may want to change:

Code: Select all

   /varset a(2,0) "$p0"
   /varset a(2,1) "$p1"
   /varset a(2,2) $p2 

to

Code: Select all

   /varset a(2,0) $lcase("$p0")
   /varset a(2,1) $lcase("$p1")
   /varset a(2,2) $lcase($p2)

and

Code: Select all

   /if "$p0"~~"$a(2,0)" /if "$p2"~~"$a(2,1)" { 

to

Code: Select all

 /if $lcase("$p0")=="$a(2,0)" /if $lcase("$p2")=="$a(2,1)" {

It's a little more precise on what it matches.

If you don't want it to be that precise I would still change the first part and use this for the second.

Code: Select all

/if $lcase("$p0")=="$a(2,0)" /if $lcase("$p2")~~"$a(2,1)" { 

Thanks
GrimJack

[boredom]

I don't beleive comparisons are case sensitive. In any case, MQ will store $a(2,0), $a(2,1), and $a(2,2) as lower case wether you want it to or not.

/Bored

[grimjack]

I don't beleive comparisons are case sensitive. In any case, MQ will store $a(2,0), $a(2,1), and $a(2,2) as lower case wether you want it to or not.

/Bored

I'm pretty sure you are correct. The lcase statements where more for in case they changed MQ to be case sensitive in the future. The main thing I was looking at was ~~ vs ==. While in most instances ~~ works, I prefer to use exact comparisons when I can. Having a trigger match when it shouldn't can cause some really wierd situations.

Thanks
GrimJack