Moderator: MacroQuest Developers
Code: Select all
| ---------------------
| - TellForward.mac
| ---------------------
| call with:
| /macro tellforward <charname>
#chat tell
sub main
/varset a(0,0) $p0
:loop
/doevents
/goto :loop
/return
sub event_chat
/if "$p1"~~"$a(0,0) {
/if $arg(1,"$p2")=="/tell" {
/varset a(0,1) 0
:loop2
/if $arg($calc($a(0,1)+1),"$p2")!="" {
/varadd a(0,1)
/goto :loop2
}
/for v0 3 to $a(0,0)
/varset a(0,2) $arg($v0,"$p2")
/next v0
/tell $arg(2,"$p2") $a(0,2)
}
} else {
/tell $a(0,0) $p1 told me $p2
}