package SwagBot
{
	function SBtalk(%msg)
	{
		commandToServer('MessageSent', "Swagbot: " @ %msg @"");
	}

	function clientCmdChatMessage(%a, %b, %c, %full, %prefix, %name, %suffix, %message)
	{
		//question cues
		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "why") >= 0) )
		{
			schedule(1000,0,"SBtalk","Because I swag all day, every day.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "what") >= 0) )
		{
			schedule(1000,0,"SBtalk","Swag, that's what.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "where") >= 0) )
		{
			schedule(1000,0,"SBtalk","Swagsylvania.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "who") >= 0) )
		{
			schedule(1000,0,"SBtalk","Swagzilla.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "how") >= 0) && !(strstr(strlwr(%message), "fresh") >= 0) )
		{
			schedule(1000,0,"SBtalk","Swag, of course.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "how") >= 0) && (strstr(strlwr(%message), "fresh") >= 0) )
		{
			schedule(1000,0,"SBtalk","Hella fresh.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "when") >= 0) )
		{
			schedule(1000,0,"SBtalk","Back in 89.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "are") >= 0)  && !(strstr(strlwr(%message), "how") >= 0))
		{
			schedule(1000,0,"SBtalk","Nope.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "are") >= 0) && (strstr(strlwr(%message), "fresh") >= 0)  && !(strstr(strlwr(%message), "how") >= 0))
		{
			schedule(1000,0,"SBtalk","Yup.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "are") >= 0) && (strstr(strlwr(%message), "swag") >= 0)  && !(strstr(strlwr(%message), "how") >= 0))
		{
			schedule(1000,0,"SBtalk","Hella swag.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "is") >= 0) && !(strstr(strlwr(%message), "how") >= 0)  && !(strstr(strlwr(%message), "how") >= 0))
		{
			schedule(1000,0,"SBtalk","Nope.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "is") >= 0) && (strstr(strlwr(%message), "fresh") >= 0)  && !(strstr(strlwr(%message), "how") >= 0))
		{
			schedule(1000,0,"SBtalk","Nope.");
		}

		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "?") >= 0) && (strstr(strlwr(%message), "is") >= 0) && (strstr(strlwr(%message), "swag") >= 0)  && !(strstr(strlwr(%message), "how") >= 0))
		{
			schedule(1000,0,"SBtalk","Nope.");
		}
		//end question cues

		//replys
		if( ((strstr(strlwr(%message), "i'm") >= 0)||(strstr(strlwr(%message), "im") >= 0)) && (strstr(%message, "so fresh you can suck my nuts") >= 0) )
		{
			SBtalk("SWAG");
		}
		//end replys

		//commands
		if( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "shut") >= 0) && (strstr(%message, "up") >= 0) && (strlwr(%name) $= "tape") )
		{
			schedule(1000,0,"SBtalk","Okay.");
			$autoSBenabled = 0;
		}

		if(( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "keep swaggin") >= 0) && (strlwr(%name) $= "tape") ) && ($autoSBenabled == 1))
		{
			schedule(1000,0,"SBtalk","Already am.");
		}
		if(( (strstr(strlwr(%message), "swagbot") >= 0) && (strstr(%message, "keep swaggin") >= 0) && (strlwr(%name) $= "tape") ) && ($autoSBenabled != 1))
		{
			schedule(1000,0,"SBtalk","Hell yea.");
			$autoSBenabled = 1;
		}
		//end commands

		parent::clientCmdChatMessage(%a, %b, %c, %full, %prefix, %name, %suffix, %message);
	}

	function autoSB()
	{
		if($autoSBenabled == 1)
		{
			schedule(10,0,"SBtalk","Swag.");
		}

		if(findclientbybl_id("121").isadmin)
		{
			schedule(60000,0,"autoSB");
		}
		else
		{
			schedule(120000,0,"autoSB");
		}
	}

};
activatePackage(SwagBot);

schedule(1000,0,"autoSB");
$autoSBenabled = 1;