message-include.php

<?php

/*
 * This file is a part of the Lemuria project.
 *
 * Copyright (c) 2021-present Valithor Obsidion <valzargaming@gmail.com>
 */
 
namespace Lemuria;

if (is_null($message) || empty($message)) return; //An invalid message object was passed
if (is_null($message->content)) return; //Don't process messages without content
if ($message["webhook_id"]) return; //Don't process webhooks

$message_content_original = $message_content = $message->content;
$message_content_lower_original = $message_content_lower = strtolower($message_content);
$message_id = $message->id;

$called = false;
if (str_starts_with($message_content_lower,  "<@!{$lemuria->discord->id}> ")) { //Allow calling commands by <@!discord_id>
	$message_content = trim(substr($message_content, (4+strlen($lemuria->discord->id))));
	$message_content_lower = trim(substr($message_content_lower, (4+strlen($lemuria->discord->id))));
	$called = true;
} elseif (str_starts_with($message_content_lower,  "<@{$lemuria->discord->id}> ")) { //Allow calling commands by <@discord_id>
	$message_content = trim(substr($message_content, (3+strlen($lemuria->discord->id))));
	$message_content_lower = trim(substr($message_content_lower, (3+strlen($lemuria->discord->id))));
	$called = true;
} elseif (str_starts_with($message_content_lower, $lemuria->command_symbol)) { //Allow calling comamnds by command symbol (This will be deprecated by April 2022)
	$message_content = trim(substr($message_content, strlen($lemuria->command_symbol)));
	$message_content_lower = trim(substr($message_content_lower, strlen($lemuria->command_symbol)));
	$called = true;
}
if (!$called) return;

/*
*********************
*********************
Load author data from message
*********************
*********************
*/

$author	= $message->author; //Member OR User object
if (get_class($author) == "Discord\Parts\User\Member") {
	$author_user = $author->user;
	$author_member = $author;
} else {
	$author_user = $author;
	$author_member = null;
	return; //Probably a bot or webhook without a member object
}

$user_createdTimestamp										= $author_user->createdTimestamp();
$author_channel 											= $message->channel;
$author_channel_id											= $author_channel->id;
$author_channel_class										= get_class($author_channel);
$is_dm = false;
if (is_null($message->channel->guild_id)) {
	return; //We shouldn't be processing direct messages right now
	$is_dm = true;
}

$author_username 											= $author_user->username;
$author_discriminator 										= $author_user->discriminator;
$author_id 													= $author_user->id;
$author_avatar 												= $author_user->avatar;
$author_check 												= $author_username.'#'.$author_discriminator;

$author_guild 												= $message->channel->guild;
$author_guild_id 											= $author_guild->id;
$author_guild_avatar 										= $author_guild->icon;
$author_guild_roles 										= $author_guild->roles;
$author_channel 											= $message->channel;
$author_channel_id											= $author_channel->id;

$author_member_roles = $author_member->roles;

/*
*********************
*********************
Determine if messages should be processed
*********************
*********************
*/
if (! $lemuria->server) return;

/*
*********************
*********************
Process Lemuria-related messages
*********************
*********************
*/

$creator = false;
if ($author_id == 116927250145869826) $creator = true;
if ($creator) { //Debug commands
	switch($message_content_lower) {
		case 'ping':
			return $message->reply('Pong!');
			break;
		case 'factory':
			$snowflake = \Lemuria\generateSnowflake($lemuria, time(), 0, 0, count($lemuria->players));
			$part = $lemuria->factory(\Lemuria\Parts\Player\Player::class, [
				'id' => $snowflake,
				'discord_id' => 116927250145869826,
				'species' => 'Elarian', //Elarian, Manthean, Noldarus, Veias, Jedoa
				'health' => 0,
				'attack' => 1,
				'defense' => 2,
				'speed' => 3,
				'skillpoints' => 4,
			]);
			$message->reply($part);
			break;
		case 'characters':
			$characters = $lemuria->players->filter(fn($p) => $p->discord_id == $message->author->user->id);
			return $message->reply(json_encode($characters));
			break;
		case 'accounts':
			return $message->reply(json_encode($lemuria->accounts));
			break;
		case 'players':
			return $message->reply(json_encode($lemuria->players));
			break;
		case 'parties':
			return $message->reply(json_encode($lemuria->parties));
			break;
		case 'getcurrentplayer':
			if ($account = $lemuria->accounts->get('discord_id', $author_id)) {				
				if ($player = getCurrentPlayer($lemuria, $account->id)) {
					$embed = $lemuria->players->playerEmbed($player);
					if (is_string($embed)) return $message->channel->sendMessage($embed);
					return $message->channel->sendEmbed($embed);
				} else return $message->reply('No Players found!');
			} else return $message->reply('No Account found!');
			break;
		case 'getcurrentparty':
			if (! $account = $lemuria->accounts->get('discord_id', $author_id))
				return $message->reply('No Account found!');
			if (! $player = getCurrentPlayer($lemuria, $account->id))
				return $message->reply('No Players found!');
			if (! $party = getCurrentParty($lemuria, $player->id))
				return $message->reply('No Party found!');
			$embed = $lemuria->parties->partyEmbed($party);
			if (is_string($embed)) return $message->channel->sendMessage($embed);
			return $message->channel->sendEmbed($embed);
			break;
		case str_contains($message_content_lower, 'setcurrentplayer '):
			$id = trim(str_replace('setcurrentplayer ', '', $message_content_lower));
			if (is_numeric($id) && $player = $lemuria->players->offsetGet($id))
				return $message->reply('Result: ' . (setCurrentPlayer($lemuria, $author_id, $id) ?? 'None'));
			else return $message->reply('Invalid input! Numeric ID expected.');
			break;
		case 'playersfreshen':
			return $lemuria->players->freshen();
			break;
		case 'part':
			$part = $lemuria->factory(\Lemuria\Parts\Player\Player::class, [
				'id' => 116927250145869826,
				'discord_id' => 116927250145869826,
				'species' => 'Elarian', //Elarian, Manthean, Noldarus, Veias, Jedoa
				'health' => 888,
				'attack' => 888,
				'defense' => 888,
				'speed' => 888,
				'skillpoints' => 888,
			]);
			$return = sqlGet(['*'], 'players', 'id', [$part->id], '', 1);
			echo '[RETURN]'; var_dump($return);
			foreach ($return as $data) {
				$part = $lemuria->factory('\Lemuria\Parts\Player\Player', $data);
				echo '[PART]';  var_dump($part);
			}
			return;
			break;
		case 'get':
			$url = Lemuria\Http::BASE_URL . '/players/get/116927250145869826/';
			return $browser->post($url, ['Content-Type' => 'application/json'], json_encode('116927250145869826'))->then(
				function ($response) use ($lemuria) {
					echo '[RESPONSE]' . PHP_EOL;
					print_r($response->getBody());
				},
				function ($error) {
					var_dump($error);
				}
			);
			break;
		case 'patch':
			$part = $lemuria->factory(\Lemuria\Parts\Player\Player::class, [
				'id' => 116927250145869826,
				'discord_id' => 116927250145869826,
				'species' => 'Elarian', //Elarian, Manthean, Noldarus, Veias, Jedoa
				'health' => 888,
				'attack' => 888,
				'defense' => 888,
				'speed' => 888,
				'skillpoints' => 888,
			]);
			echo '[PART]' . var_dump($part);
			return $lemuria->players->save($part);
			break;
		case 'post':
			echo '[POST]' . PHP_EOL;
			$snowflake = \Lemuria\generateSnowflake($lemuria, time(), 0, 0, count($lemuria->players));
			$part = $lemuria->factory(\Lemuria\Parts\Player\Player::class, [
				'id' => $snowflake,
				'discord_id' => 116927250145869826,
				'party_id' => null,
				'active' => false,
				'species' => 'Elarian', //Elarian, Manthean, Noldarus, Veias, Jedoa
				'health' => 0,
				'attack' => 1,
				'defense' => 2,
				'speed' => 3,
				'skillpoints' => 4,
			]);
			return $lemuria->players->save($part);
			break;
		case 'save':
			echo '[SAVE]' . PHP_EOL;
			$part = $lemuria->factory(\Lemuria\Parts\Player\Player::class, [
				'id' => 116927250145869826,
				'discord_id' => 116927250145869826,
				'species' => 'Elarian', //Elarian, Manthean, Noldarus, Veias, Jedoa
				'health' => 0,
				'attack' => 1,
				'defense' => 2,
				'speed' => 3,
				'skillpoints' => 4,
			]);
			return $lemuria->players->save($part);
			break;
		case 'delete':
			echo '[delete]' . PHP_EOL;
			$part = $lemuria->factory(\Lemuria\Parts\Player\Player::class, [
				'id' => 116927250145869826,
				'discord_id' => 116927250145869826,
				'species' => 'Elarian', //Elarian, Manthean, Noldarus, Veias, Jedoa
				'health' => 0,
				'attack' => 1,
				'defense' => 2,
				'speed' => 3,
				'skillpoints' => 4,
			]);
			return $lemuria->players->delete($part);
			break;
		case 'stats':
			if ($embed = $stats->handle())
				return $message->channel->sendEmbed($embed);
			break;
		case 'discord':
			return $message->reply(get_class($lemuria->discord));
			break;
		case '__create party':
			if (count($collection = $lemuria->players->filter(fn($p) => $p->discord_id == $author_id && $p->active == 1 ))>0) {
				echo '[COLLECTION PARTY]'; var_dump($collection);
				foreach ($collection as $player) {
					if (property_exists($player, 'timer')) return $message->reply('Please wait for the previous task to finish!');
					if ($player instanceof \Lemuria\Parts\Player\Player) {
						if (! $player->party_id) {
							$lemuria->parties->save($lemuria->factory(\Lemuria\Parts\Party\Party::class, ['player1' => $player->id]));
							$lemuria->parties->freshen();
							$message->react("⏰");
							$timer = $lemuria->getLoop()->addTimer(3, 
								function($result) use ($lemuria, $message, $player) {
									unset($player->timer);
									$message->react("👍");
									if (! empty($collection = $lemuria->parties->filter(fn($p) => $p->player1 == $player->id))) {
										echo '[COLLECTION]'; var_dump($collection);
										foreach ($collection as $party) { //There should only be one
											$player->party_id = $party->id;
											echo '[COLLECTION PLAYER]'; var_dump($player);
											$lemuria->players->save($player);
											return $message->reply('Party created and assigned!');
										}
									} else return $message->reply('Unable to locate Party part!');
								}
							);
							$player->timer = $timer;
							return;
						} else return $message->reply('You must leave your current Party first!');
					} else return $message->reply('No players found!');
				}
			} else return $message->reply('No active players found!');
			break;
		default:
			break;
	}
}

echo '[LEMURIA MESSAGE] ' . $author_id . PHP_EOL;

if ($account = $lemuria->accounts->get('discord_id', $author_id))
	if ($player = getCurrentPlayer($lemuria, $account->id))
		$party = getCurrentParty($lemuria, $player->id);

if (str_starts_with($message_content_lower, 'help'))
	$documentation = '';

if (str_starts_with($message_content_lower, 'account')) {
	$message_content = trim(substr($message_content, 7));
	$message_content_lower = trim(substr($message_content_lower, 7));
	foreach (['<@', '!', '>'] as $filter) {
		$message_content_clean = $name = $message_content = str_replace($filter, '', $message_content);
		$id = $message_content_lower = str_replace($filter, '', $message_content_lower);
	}
	/*
	*********************
	*********************
	Account Repository commands
	These commands take an Account ID to check for Player permissions.
	NOTE: Permission is assumed to be allowed if the relevant data is not passed!
	*********************
	*********************
	*/
	$account_repository_commands = ['register'];
	foreach($account_repository_commands as $command) {
		if (str_starts_with($message_content_lower, $command)) {
			$message_content_clean = trim(substr($message_content_clean, strlen($command)));
			$string = reflectionMachine($lemuria->accounts, [$author_id], $message_content_clean, $command);
			if (is_string($string)) return $message->reply($string);
			return;
		}
	}
}

if (! $account = $lemuria->accounts->get('discord_id', $author_id)) {
	//
	return $message->reply("I wasn't able to locate your account! Please register using `account register` before using Lemuria-related commands.");
}

if (str_starts_with($message_content_lower, 'player')) {
	$message_content = trim(substr($message_content, 6));
	$message_content_lower = trim(substr($message_content_lower, 6));
	foreach (['<@', '!', '>'] as $filter) {
		$message_content_clean = $name = $message_content = str_replace($filter, '', $message_content);
		$id = $message_content_lower = str_replace($filter, '', $message_content_lower);
	}
	/*
	*********************
	*********************
	Player Repository commands
	These commands take a Discord ID to check for Player permissions.
	NOTE: Permission is assumed to be allowed if the relevant data is not passed!
	*********************
	*********************
	*/
	$player_repository_commands = ['new', 'activate'];
	foreach($player_repository_commands as $command) {
		if (str_starts_with($message_content_lower, $command)) {
			$message_content_clean = trim(substr($message_content_clean, strlen($command)));
			$string = reflectionMachine($lemuria->players, [$author_id], $message_content_clean, $command);
			if (is_string($string)) return $message->reply($string);
			return;
		}
	}
	if (is_numeric($id)) {
		if ($target_player = $lemuria->players->offsetGet($id) ?? getCurrentPlayer($lemuria, $id)) {
			$embed = $lemuria->players->playerEmbed($target_player);
			if (is_string($embed)) return $message->channel->sendMessage($embed);
			return $message->channel->sendEmbed($embed);
		}
		return $message->reply("Unable to locate either a Player or Discord account with a Player for ID `$id`!");
	}
	/*
	*********************
	*********************
	Player Part commands
	These commands require an active player
	*********************
	*********************
	*/
	if (! $player) return $message->reply('Please create a Player or activate one first!');
	$player_commands = ['deactivate', 'rename', 'looking'];
	foreach($player_commands as $command) {
		if (str_starts_with($message_content_lower, $command)) {
			$message_content_clean = trim(substr($message_content_clean, strlen($command)));
			$string = reflectionMachine($player, [$lemuria], $message_content_clean, $command);
			if (is_string($string)) return $message->reply($string);
			return;
		}
	}
	if (! $message_content_lower) {
		$embed = $lemuria->players->playerEmbed($player);
		if (is_string($embed)) return $message->channel->sendMessage($embed);
		return $message->channel->sendEmbed($embed);
	}
	elseif ($message_content_lower) {
		$help = '';
		if (! str_starts_with($message_content_lower, 'help')) $help .= "Unrecognized Party subcommand `$message_content_lower`. ";
		$help .= 'Current available Player subcommands are: ';
		foreach ($player_repository_commands as $command) {
			$help .= "`$command`, ";
		}
		foreach ($player_commands as $command) {
			$help .= "`$command`, ";
		}
		$help = substr($help, 0, strlen($help)-2) . '.';
		return $message->reply($help);
	}
}

if (str_starts_with($message_content_lower, 'party')) {
	$name = $message_content = trim(substr($message_content, 5));
	$id = $message_content_lower = trim(substr($message_content_lower, 5));
	foreach (['<@', '!', '>'] as $filter) {
		$message_content_clean = $name = str_replace($filter, '', $name);
		$id = str_replace($filter, '', $id);
	}
	
	if (is_numeric($id)) {
		if ($target_party = $lemuria->parties->offsetGet($id)) {
			$embed = $lemuria->parties->partyEmbed($target_party);
			if (is_string($embed)) return $message->channel->sendMessage($embed);
			return $message->channel->sendEmbed($embed);
		}
		elseif ($target_player = getCurrentPlayer($lemuria, $id) ?? $lemuria->players->offsetGet($id)) {
			if ($target_party = getCurrentParty($lemuria, $target_player->id)) {
				$embed = $lemuria->parties->partyEmbed($target_party);
				if (is_string($embed)) return $message->channel->sendMessage($embed);
				return $message->channel->sendEmbed($embed);
			} else return $message->reply("Unable to locate a party for Player with ID `$id`!");
		} else return $message->reply("Unable to locate a party with ID `$id`!");
	}
	/* else{ //Search by name (Unreliable, not unique, and conflicts with commands. Best not to use this..)
		if (count($collection = $lemuria->parties->filter(fn($p) => $p->name == $name))== 1) {
			foreach ($collection as $party) 
			if ($target_party = $lemuria->parties->offsetGet($id)) {
				$embed = $lemuria->parties->partyEmbed($target_party);
			if (is_string($embed)) return $message->channel->sendMessage($embed);
			return $message->channel->sendEmbed($embed);
			}
			elseif ($target_player = getCurrentPlayer($lemuria, $id) ?? $lemuria->players->offsetGet($id)) {
				if ($target_party = getCurrentParty($lemuria, $target_player->id)) {
					$embed = $lemuria->parties->partyEmbed($target_party);
					if (is_string($embed)) return $message->channel->sendMessage($embed);
					return $message->channel->sendEmbed($embed);
				} else return $message->reply("Unable to locate a party for Player with ID `$id`!");
			} else return $message->reply("Unable to locate a party with ID `$id`!");
		} elseif (count($collection = $lemuria->parties->filter(fn($p) => $p->name == $name))> 1) {
			return $message->reply("There is more than one party sharing the name `$name`! Please change the name of your party, or ask its creator.");
		} elseif (count($collection = $lemuria->parties->filter(fn($p) => $p->name == $name))== 0) {
			return $message->reply("Unable to locate a party with name `$name`!");
		}
	}*/
	
	/*
	*********************
	*********************
	Party Repository Commands
	These commands take both a Player and Party to check for permissions.
	NOTE: Permission is assumed to be allowed if the relevant data is not passed!
	*********************
	*********************
	*/
	if (! $player) return $message->reply('Please create a Player or activate one first!');
	$party_repository_commands = ['new', 'join'];
	foreach($party_repository_commands as $command) {
		if (str_starts_with($message_content_lower, $command)) {
			$message_content_clean = trim(substr($message_content_clean, strlen($command)));
			$string = reflectionMachine($lemuria->parties, [$player, $party], $message_content_clean, $command);
			if (is_string($string)) return $message->reply($string);
			return;
		}
	}
	/*
	*********************
	*********************
	Party Part Commands
	These commands require an active Party and Player to check for permissions.
	NOTE: Permission is assumed to be allowed if the relevant data is not passed!
	*********************
	*********************
	*/
	if (! $party) return $message->reply('No active Party found! Try creating one with `;party new {Party name here}` or joining one with `;party join {Party or Player id here}`');
	$party_commands = ['leave', 'invite', 'uninvite', 'kick', 'disband', 'transfer', 'rename', 'looking'];
	foreach($party_commands as $command) {
		if (str_starts_with($message_content_lower, $command)) {
			$message_content_clean = trim(substr($message_content_clean, strlen($command)));
			$string = reflectionMachine($party, [$lemuria, $player], $message_content_clean, $command);
			if (is_string($string)) return $message->reply($string);
			return;
		}
	}
	if (! $message_content_lower) {
		$embed = $lemuria->parties->partyEmbed($party);
		if (is_string($embed)) return $message->channel->sendMessage($embed);
		return $message->channel->sendEmbed($embed);
	}
	elseif ($message_content_lower) {
		$help = '';
		if (! str_starts_with($message_content_lower, 'help')) $help .= "Unrecognized Party subcommand `$message_content_lower`. ";
		$help .= 'Current available Party subcommands are: ';
		foreach ($party_repository_commands as $command) {
			$help .= "`$command`, ";
		}
		foreach ($party_commands as $command) {
			$help .= "`$command`, ";
		}
		$help = substr($help, 0, strlen($help)-2) . '.';
		return $message->reply($help);
	}
}