Roll20 API: Power Card Preprocesor script for Vante

vante_p_c_p_p.js

var VantePCPP = VantePCPP || (function() {
	'use strict';

    var version = 0.3,

	powerCardFunction = function() {
		},

	checkInstall = function() {
        if("undefined" !== typeof PowerCard && _.isFunction(PowerCard.Process)) {
            powerCardFunction = PowerCard.Process;
        } else if("undefined" !== typeof PowerCardScript && _.isFunction(PowerCardScript.Process)) {
			powerCardFunction = PowerCardScript.Process;
		} else {
			log('No Powercard Script Found.');
		}
	},

	handleInput = function(msg_orig) {
		var msg=_.clone(msg_orig),
			args,
			postMap,
			preMap={},
			expr,
			player_obj = getObj("player", msg.playerid);

		if (msg.type !== "api") {
			return;
		}

		args = msg.content.split(/\s+/);
		switch(args[0]) {
			case '!pcpp':

				// Get the API Chat Command
				msg.who = msg.who.replace(" (GM)", "");
				msg.content = msg.content.replace("(GM) ", "");

				postMap = _.reduce(
					msg.content.match(/\[#\[(.*?)\]#\]/g),
					function(gmap,g){
						var attrmap=_.reduce(g.match(/@#\{(.*?)\}/g), function(amap,a){
							var parts=a.match(/@#\{([^|]*)\|([^\|]*)\|?(.*)?\}/),
							char = findObjs({
								type:'character',
								name: parts[1]
							})[0],
							attr;

							amap[a]=0;
							if(char) {
								attr = findObjs({
									type: 'attribute',
									characterid: char.id,
									name: parts[2]
								})[0];
								if(attr) {
									amap[a]=attr.get(parts[3]==='max'?'max':'current');
								}
							}
							return amap;
						},{});
						attrmap['[#[']='[[';
							attrmap[']#]']=']]';
							gmap[g]=_.reduce(attrmap,function(gmemo,v,k){
								return gmemo.replace(k,v);
							},g);
							return gmap;
					},{});

					postMap = _.reduce(
						msg.content.match(/\[=\[(.*?)\]=\]/g),
						function(gmap,g){
							var attrmap=_.reduce(g.match(/@#\{(.*?)\}/g), function(amap,a){
								var parts=a.match(/@#\{([^|]*)\|([^\|]*)\|?(.*)?\}/),
								char = findObjs({
									type:'character',
									name: parts[1]
								})[0],
								attr;

								amap[a]=0;
								if(char) {
									attr = findObjs({
										type: 'attribute',
										characterid: char.id,
										name: parts[2]
									})[0];
									if(attr) {
										amap[a]=attr.get(parts[3]==='max'?'max':'current');
									}
								}
								return amap;
							},{});
							attrmap['[=[']='[[';
								attrmap[']=]']=']]';
								preMap[g]=true;
								gmap[g]=_.reduce(attrmap,function(gmemo,v,k){
									return gmemo.replace(k,v);
								},g);
								return gmap;
						},postMap);

						expr=_.reduce(postMap,function(m,g){return m+g;},'').replace(/\s+/g,'');

						if(expr) {
							sendChat('',expr,function(res){
								var num = (msg.inlinerolls && msg.inlinerolls.length) || 0,
								extraInlineRolls = _.toArray(res[0].inlinerolls);
								msg.inlinerolls = msg.inlinerolls || [];

								msg.content=_.reduce(postMap,function(msgCon,v,k){
									var roll = extraInlineRolls.shift();
									if(preMap[k]) {
										return msgCon.replace(k, ((roll.results && roll.results.total) || '') );
									} 

									msg.inlinerolls.push(roll);
									return msgCon.replace(k,'$[['+(num++)+']]');
								},msg.content);

							 powerCardFunction(msg,player_obj);
							});
						} else {
							 powerCardFunction(msg,player_obj);
						}

				break;
		}
    },

	registerEventHandlers = function() {
		on('chat:message', handleInput);
	};

	return {
		CheckInstall: checkInstall,
		RegisterEventHandlers: registerEventHandlers
	};
    
}());

on('ready',function() {
	'use strict';

    VantePCPP.CheckInstall();
    VantePCPP.RegisterEventHandlers();
});

VantePCPP.js

var VantePCPP = VantePCPP || (function() {
	'use strict';

    var version = 0.3,

	powerCardFunction = function() {
		},

	checkInstall = function() {
        if("undefined" !== typeof PowerCard && _.isFunction(PowerCard.Process)) {
            powerCardFunction = PowerCard.Process;
        } else if("undefined" !== typeof PowerCardScript && _.isFunction(PowerCardScript.Process)) {
			powerCardFunction = PowerCardScript.Process;
		} else {
			log('No Powercard Script Found.');
		}
	},

	handleInput = function(msg_orig) {
		var msg=_.clone(msg_orig),
			args,
			postMap,
			preMap={},
			expr,
			player_obj = getObj("player", msg.playerid);

		if (msg.type !== "api") {
			return;
		}

		args = msg.content.split(/\s+/);
		switch(args[0]) {
			case '!pcpp':

				// Get the API Chat Command
				msg.who = msg.who.replace(" (GM)", "");
				msg.content = msg.content.replace("(GM) ", "");

				postMap = _.reduce(
					msg.content.match(/\[#\[(.*?)\]#\]/g),
					function(gmap,g){
						var attrmap=_.reduce(g.match(/@#\{(.*?)\}/g), function(amap,a){
							var parts=a.match(/@#\{([^|]*)\|([^\|]*)\|?(.*)?\}/),
							char = findObjs({
								type:'character',
								name: parts[1]
							})[0],
							attr;

							amap[a]=0;
							if(char) {
								attr = findObjs({
									type: 'attribute',
									characterid: char.id,
									name: parts[2]
								})[0];
								if(attr) {
									amap[a]=attr.get(parts[3]==='max'?'max':'current');
								}
							}
							return amap;
						},{});
						attrmap['[#[']='[[';
							attrmap[']#]']=']]';
							gmap[g]=_.reduce(attrmap,function(gmemo,v,k){
								return gmemo.replace(k,v);
							},g);
							return gmap;
					},{});

					postMap = _.reduce(
						msg.content.match(/\[=\[(.*?)\]=\]/g),
						function(gmap,g){
							var attrmap=_.reduce(g.match(/@#\{(.*?)\}/g), function(amap,a){
								var parts=a.match(/@#\{([^|]*)\|([^\|]*)\|?(.*)?\}/),
								char = findObjs({
									type:'character',
									name: parts[1]
								})[0],
								attr;

								amap[a]=0;
								if(char) {
									attr = findObjs({
										type: 'attribute',
										characterid: char.id,
										name: parts[2]
									})[0];
									if(attr) {
										amap[a]=attr.get(parts[3]==='max'?'max':'current');
									}
								}
								return amap;
							},{});
							attrmap['[=[']='[[';
								attrmap[']=]']=']]';
								preMap[g]=true;
								gmap[g]=_.reduce(attrmap,function(gmemo,v,k){
									return gmemo.replace(k,v);
								},g);
								return gmap;
						},postMap);

						expr=_.reduce(postMap,function(m,g){return m+g;},'').replace(/\s+/g,'');

						if(expr) {
							sendChat('',expr,function(res){
								var num = (msg.inlinerolls && msg.inlinerolls.length) || 0,
								extraInlineRolls = _.toArray(res[0].inlinerolls);
								msg.inlinerolls = msg.inlinerolls || [];

								msg.content=_.reduce(postMap,function(msgCon,v,k){
									var roll = extraInlineRolls.shift();
									if(preMap[k]) {
										return msgCon.replace(k, ((roll.results && roll.results.total) || '') );
									} 

									msg.inlinerolls.push(roll);
									return msgCon.replace(k,'$[['+(num++)+']]');
								},msg.content);

							 powerCardFunction(msg,player_obj);
							});
						} else {
							 powerCardFunction(msg,player_obj);
						}

				break;
		}
    },

	registerEventHandlers = function() {
		on('chat:message', handleInput);
	};

	return {
		CheckInstall: checkInstall,
		RegisterEventHandlers: registerEventHandlers
	};
    
}());

on('ready',function() {
	'use strict';

    VantePCPP.CheckInstall();
    VantePCPP.RegisterEventHandlers();
});