Untitled

	if($sockread =~ m/^\:(.*?)\!(.*?)\@(.*?) PRIVMSG (.*?) :(.*?)$/i) {
		$nick = $1;
		$ident = $2;
		$host = $3;
		$chan = $4;
		$text = $5;
		if($nickname =~ $chan) { 
			$chan = $nick;
			$chk = 0;
			for $varx (@list_nick) {
				if(lc($varx) eq lc($nick)) {
					$chk = 1;
					msg();
					last;
				}
			}
			if($chk eq 0) {
				push(@list_nick, $nick);
				sanitize(@list_nick);
				msg();
			}
		}	
		#Check If User Has Access To Use The Bot.
		#This Must Be Modified, Just Thrown Togather So
		#Outsiders Cannot Use The Bot.
		if($nick =~ $master) { cmds(); }
		if($nick =~ $usera) { cmds(); }
		if($nick =~ $userb) { cmds(); }
	}
	if($sockread =~ /^\:(.+?)\!(.+?)\@(.+?) KICK (\#.+?) (.+?) \:(.+)/i) {
		$rnick = 0;
		$k_nick = $1;
		$k_chan = $4;
		$k_me = $5;
		$k_reas = $6;
		print "$k_nick\n";
		if($k_me =~ $nickname) {
			print $sock "PRIVMSG $channel :you were kicked from -$k_chan- by ($k_nick) Reason: $k_reas\n";
			for ($c = 0, $j = 1;$j < @listchan;$j++) {
				if ($listchan[$j] eq $k_chan) {
					splice(@listchan, $j, 1), $c++
				}
			}
		}
		for $varx (@list_nick) {
			if(lc($varx) eq lc($k_me)) {
				print $sock "PRIVMSG $channel :$k_me was kicked from -$k_chan- by ($k_nick) Reason: $k_reas\n";
				$rnick = 1;
			}
		}
		if($rnick eq 1) {
			for ($c = 0, $j = 1;$j < @list_nick;$j++) {
				if ($list_nick[$j] eq $k_me) {
					splice(@list_nick, $j, 1), $c++
				}
			}
		}
	}
	if($sockread =~ /^\:(.+?)\!(.+?)\@(.+?) NICK \:(.+)/i) {
		$nchang = 0;
		$o_nick = $1;
		$n_nick = $4;
                $nick_count = 0
		for $varx (@list_nick) {
			if(lc($varx) eq lc($o_nick)) {
				print $sock "PRIVMSG $channel :-:::(¤) $o_nick Changed Nickname To:- $n_nick\n";
				$nchang = 1;
				$list_nick[$nick_count] = $n_nick;
			}
                        $nick_count++;
		}
		if($nchang = 1) {
			for ($c = 0, $j = 1;$j < @list_nick;$j++) {
				if ($list_nick[$j] eq $o_nick) {
					splice(@list_nick, $j, 1), $c++
				}
			}
		}
	}
	if($sockread =~ /^\:(.+?)\!(.+?)\@(.+?) QUIT \:(.+)\: (.*?)$/i) {
		$rnick =0;
		$q_nick = $1;
		$q_reas = $5;
		for $varx (@list_nick) {
			if(lc($varx) eq lc($q_nick)) {
				print $sock "PRIVMSG $channel :-:::(¤) $q_nick Quit IRC. Reason:- $q_reas\n";
				$rnick = 1;
			}
		}
		if($rnick eq 1) {
			for ($c = 0, $j = 1;$j < @list_nick;$j++) {
				if ($list_nick[$j] eq $q_nick) {
					splice(@list_nick, $j, 1), $c++
				}
			}
		}
	}