Hello,

this script adds hashtags (like on Twitter) to your chat messages. The way how it works, it picks randomly some words out of your written message and adds a hashtag. It is a pure fun script without any deeper sense.

The default binds will be taken, T for chat, Y for team chat. If you press one of those buttons, something like "/t " or "/tt " will appear in your chat line. This is absolutely required, because those are the commands for picking hashtags. You can also perform a command (for example, "/t /setmaster 1" would work). If you don't want to add hashtags, just delete the "/t ".

If you want to reset the binds, use:

/bind T [saycommand];
/bind Y [sayteamcommand];

I know, the way with the "/t " commands isn't very proper, but I had no idea how I could do it otherwise. If you have a better way, please tell me.

t = [
	alias original "";
	
	loop i $numargs [
		original = (concatword $original (getalias (concatword "arg" (+ $i 1))) " ");
	];
	
	translate_and_say_text 1 $original;
];

tt = [
	alias original "";
	
	loop i $numargs [
		original = (concatword $original (getalias (concatword "arg" (+ $i 1))) " ");
	];
	
	translate_and_say_text 0 $original;
];

translate_and_say_text = [
	if (> $numargs 1) [
		if (= (strcmp (substr $arg2 0 1) "/") 1) [
			perform_command (substr $arg2 1 (- (strlen $arg2) 1));
		] [
			alias words "";
			
			loop i (rnd (div (listlen $arg2) 2)) [
				alias word (at $arg2 (rnd (- (listlen $arg2) 1)));
				
				if (= (strstr $words $word) -1) [
					words = (concatword $words $word " ");
				];
			];
			
			alias text $arg2;
			
			looplist i $words [
				text = (concatword $text "#" $i " ");
			];
			
			if (= $arg1 1) [
				say $text;
			] [
				sayteam $text;
			];
		];
	];
];

perform_command = [
	if ($numargs > 0) [
		do $arg1;
	];
];

bind T [
	saycommand "/t ";
];

bind Y [
	saycommand "/tt ";
];