RO-fan

Код: Выделить всё

$likeArgs->{timeout} = (0.5 + rand(1)) + (length($answer) / $typeSpeed);

Код: Выделить всё

likeHumanOn (0|1) Вырубает|Врубает Плагин
likeHumanInLockOnly (0|1) Врубает(1) ответы только на lockMap
likeHumanConsole (0|1)  Врубает(1) консольные сообщения
likeHumanIgnore <список имен, резделенных точкой с запятой, или регулярное выражение> Этих товарищей бот будет игнорить
likeHumanStopAfter <количество максимальных сообщений для одного игрока> После этого бот перестает отвечать
likeHumanRealIgnoreOn (0|1) Этот параметр включает игнор если достигнуто  likeHumanStopAfter или выполнено условие endings, после которого бот перестает "разговаривать" с игроком

Код: Выделить всё

 likeHuman {
    questions <предполагаемые сообщения, на которые бот будет отвечать, разделенные точкой с запятой или регулярное выражение>
    answers <ответы, разделенные точкой с запятой>
    onPub (0|1)            #отвечать в паблик-чат (1-да)
    distance <max> #максимальная дистанция, на которой бот будет отвечать на паблик-сообщения
    onSystem (0|1) #если это значение установлено в (1), бот будет проврять вопросы в системных сообщениях
    onGuild (0|1)   # если этот параметр задан (1), бот будет отвечать в гильд-чат
    onParty (0|1)  #если этот параметр задан (1), бот будет отвечать в пати-чат
    onPM (0|1)   #если этот параметр задан (1), бот будет отвечать на приваты
    chatCount <range> #сколько раз будем отвечать одному юзеру(КАК ИСПОЛЬЗОВАТЬ ЗАВИСИТ ОТ ВЕРСИИ ОПЕНКОРЫ)
    endings <список фраз, разделенных точкой с запятой как закончим разговор>
}

Код: Выделить всё

## like human
likeHumanOn 1

likeHumanIgnore /GM_/

likeHuman {
	questions /прив/;превед;хай;hi;hello
	answers прива;прив;здароф
	onPub 1
	onSystem 0
	onGuild 1
	onParty 1
	onPM 1
	chatCount <2
	endings
}

likeHuman {
questions дароф, хелоу
answers =);:);^^
onPub 1
onSystem 0
onGuild 1
onParty 1
onPM 1
chatCount 2
endings
}

likeHuman {
	questions / бот/;/ bot/
	answers сам ты бот :(;эээ;=(;O_o
	onPub 1
	onSystem 0
	onGuild 0
	onParty 0
	onPM 1
	chatCount <2
	endings задрал;отвали;пашол в жопу
}

Код: Выделить всё

/при(в|ва)/i

Код: Выделить всё

m/при(в|ва)/i

Код: Выделить всё

package likehuman;

#
# likeHuman v 3.0.1
#
# This plugin was made by taking some parts of kadiliman's ChatBot and the "match" sub of hakore's ReactOnNPC plugins.
# Change it as your will. 
# This plugin is FREE, so you can do whatever(yes, whatever) you want with it.
# By Buggless
#
# Working on openkore 1.9.x and 1.6.8+ 
#
# It will run only when AI is on.
# An overlap on ChaCount conditions on same messages will cause last block to replace the first response (former one).
# Usage:
# on config.txt should include:
#
# likeHumanOn (0|1)            is a flag to turn on (1) and off (0) plugin
# likeHumanInLockOnly (0|1)            is a flag to turn on (1) and off (0) responses only on lockMap
# likeHumanConsole (0|1)            is a flag to turn on (1) and off (0) console messages
# likeHumanIgnore <semicolon_separated_list_of_names_also_regex>
# likeHumanStopAfter <number_of_max_responses_to_same_user>
# likeHumanRealIgnoreOn (0|1)            is a flag to turn on (1) and off (0) the ignore openkore option after
#							"likeHumanStopAfter" max responses are reached or in case "endings" condition
#							is accomplished.
#
# likeHuman {
#    questions <semicolon_separated_possible_from_msg_also_regex>
#    answers <semicolon_separated_possible_responses>
#    onPub (0|1)            is a flag to turn set (1) or unset (0) this questions check on Public Chat
#    distance <max distance> is the max distance to the char that makes the pubMsg, you will cosider to make a response to
#    onSystem (0|1)            is a flag to turn set (1) or unset (0) this questions check on System Chat
#    onGuild (0|1)            is a flag to turn set (1) or unset (0) this questions check on Guild Chat
#    onParty (0|1)            is a flag to turn set (1) or unset (0) this questions check on Party Chat
#    onPM (0|1)            is a flag to turn set (1) or unset (0) this questions check on Private Msg Chat
#    chatCount <range>      is a range to set how many times you will response to the same user
#    endings <semicolon_separated_possible_close_chat_responses>
# }
#

use strict;
use Plugins;
use Globals;
use Log qw(message warning error debug);
use Misc;
use Network;
use Network::Send;
use Utils;

my %chatcount;
my %chatended;
my @ignorelist;
my %totalcount;

my $questionlist;
my @questions;
my $answerlist;
my @answers;
my $answer;
my $sanswer = 0;
my $endingslist;
my @endings;

my $prefix = "likeHuman_";

Plugins::register('likehuman', 'Human-Chat-Like behavior bot', \&Unload);

my $hooks = Plugins::addHooks(
				['packet_pubMsg', \&onMsg, undef],
				['packet_privMsg', \&onMsg, undef],
				['packet_selfChat', \&onMsg, undef],
				['packet_partyMsg', \&onMsg, undef],
				['packet_guildMsg', \&onMsg, undef],
				['AI_post', \&AI_post, undef]
			);

sub Unload {
	Plugins::delHooks($hooks);
}

sub onMsg {

      return unless ($main::conState == 5);
	return if (!$config{'likeHumanOn'});
	return unless $AI;
	return if (AI::inQueue("likeHuman"));
	return if (($config{'likeHumanInLockOnly'} > 0) && ($field{name} ne $config{lockMap}));

	debug " Starting Check of Chat Message.\n", "likeHuman";

	my ($packet, $args) = @_;
	
	
	my $likeMsgUsr = (($packet eq 'packet_selfChat') ? ($args->{user}) : ($args->{MsgUser}));


	my $likeMsg = (($packet eq 'packet_selfChat') ? ($args->{msg}) :  ($args->{Msg}));


	if ($config{'likeHumanStopAfter'}){

		debug " Checking if Message Received by User '$likeMsgUsr' are more than $config{'likeHumanStopAfter'}.\n", "likeHuman";
			
		debug " Received are '$totalcount{$likeMsgUsr}'.\n", "likeHuman";

		if ($totalcount{$likeMsgUsr} > $config{'likeHumanStopAfter'}) {
			if ($config{'likeHumanRealIgnoreOn'} == 1) {
				Commands::cmdIgnore "ignore","1 $likeMsgUsr";
			}
			return;
		};
			
		$totalcount{$likeMsgUsr}++;
	}

	if ($config{'likeHumanIgnore'}){

		debug " Checking if User '$likeMsgUsr' should be ignored.\n", "likeHuman";
		
		my $ignorel;

		$ignorel = $config{'likeHumanIgnore'};
		@ignorelist = split(/\s*;+\s*/, $ignorel);

		for (my $ii = 0; $ii < @ignorelist; $ii++) {
     			next unless defined $ignorelist[$ii];
      		if (match($ignorelist[$ii],$likeMsgUsr)){
				debug " Match Found ['$ignorelist[$ii]'] vs. ['$likeMsgUsr'] - Ignoring.\n", "likeHuman";
				if ($config{'likeHumanRealIgnoreOn'} == 1) {
					Commands::cmdIgnore "ignore","1 $likeMsgUsr";
				}
				return;
			};
		}

	}

	for (my $i = 0; (exists $config{$prefix.$i}); $i++) {

		debug " Checking for likeHuman Block '$i'.\n", "likeHuman";

		debug " Checking if it is not our own Message.\n", "likeHuman";

		return if ($likeMsgUsr eq $char->{name});

		debug " Checking if Chat was ended with User '$likeMsgUsr'.\n", "likeHuman";

		return if ($chatended{$likeMsgUsr} == 1);

		$questionlist = $config{$prefix .$i. "_questions"};
		$answerlist = $config{$prefix .$i. "_answers"};
		@questions = split(/\s*;+\s*/, $questionlist);
		@answers = split(/\s*;+\s*/, $answerlist);
		$answer = $answers[rand(@answers)];
		$endingslist = $config{$prefix .$i. "_endings"};
		@endings = split(/\s*;+\s*/, $endingslist);

		debug " Values are:\nQuestions '$questionlist'\nAnswers '$answerlist'\nEndings '$endingslist'.\nRandom Answer '$answer'.\n", "likeHuman";

		my $type;

		debug " Checking Message Channel.($packet)\n", "likeHuman";

		if (($packet eq 'packet_pubMsg') && $config{$prefix.$i."_onPub"}) {

			debug " Public Channel Detected.\n", "likeHuman";

			$sanswer=likeCheckMsg($likeMsgUsr,$likeMsg,$i);
			$type = "c";

			if ($config{$prefix.$i."_distance"}) {

				debug " Checking distance.\n", "likeHuman";
				my $actor;
				if ($args->{pubID}) {
					if ((substr($Settings::VERSION, 0, 3) >= 1.9) && (substr($Settings::VERSION, 4) >= 1)){
					        $actor = $Globals::playersList->getByID($args->{pubID});        
					} else {
					        $actor = $Globals::players{$args->{pubID}};
					}
					$sanswer = 0 if (distance($char->{pos_to},$actor->{pos_to}) > $config{$prefix.$i."_distance"});
				}
			}
		}
		elsif (($packet eq 'packet_selfChat') && $config{$prefix.$i."_onSystem"}) {

			debug " System Channel Detected.\n", "likeHuman";

			if ($likeMsg =~/:/) {
				($likeMsgUsr, $likeMsg) = $likeMsg =~ /(.*?).:.(.*)/;
			} 
			else {
				$likeMsgUsr="Server";
			}
			$sanswer=likeCheckMsg($likeMsgUsr,$likeMsg,$i);

			$type = "c";

		}
		elsif (($packet eq 'packet_guildMsg') && $config{$prefix.$i."_onGuild"}) {

			debug " Guild Channel Detected.\n", "likeHuman";

			$sanswer=likeCheckMsg($likeMsgUsr,$likeMsg,$i);

			$type = "g";

		} 
		elsif (($packet eq 'packet_partyMsg')&& $config{$prefix.$i."_onParty"}) {

			debug " Party Channel Detected.\n", "likeHuman";

			$sanswer=likeCheckMsg($likeMsgUsr,$likeMsg,$i);
			
			$type = "p";

		} 
		elsif (($packet eq 'packet_privMsg')&& $config{$prefix.$i."_onPM"}) {

			debug " Private Channel Detected.\n", "likeHuman";

			$sanswer=likeCheckMsg($likeMsgUsr,$likeMsg,$i);			

			$type = "pm";
		}

		next if (!$sanswer);

		# exit if the config option is not enabled
		next if (!$type);

		# exit if we don't have any reply
		next if (!$answer);
			
		## COPIED FROM processChatResponse, ChatQueue.pm
		# Calculate a small delay (to simulate typing)
		# The average typing speed is 65 words per minute.
		# The average length of a word used by RO players is 4.25 characters (yes I measured it).
		# So the average user types 65 * 4.25 = 276.25 charcters per minute, or
		# 276.25 / 60 = 4.6042 characters per second
		# We also add a random delay of 0.5-1.5 seconds.
		my @words = split /\s+/, $answer;
		my $average;
		foreach my $word (@words) {
			$average += length($word);
		}
		$average /= (scalar @words);
		my $typeSpeed = 65 * $average / 60;
	
		my $likeArgs;
		$likeArgs->{timeout} = (0.5 + rand(1)) + (length($answer) / $typeSpeed);

		debug " Timeout will be '$likeArgs->{timeout}'.\n", "likeHuman";

		$likeArgs->{time} = time;
		$likeArgs->{stage} = "start";
		$likeArgs->{reply} = $answer;
		$likeArgs->{prefix} = $prefix.$i;
		$likeArgs->{type} = $type;
		$likeArgs->{privMsgUser}= $likeMsgUsr;
		if ((AI::action ne 'likeHuman') && (main::checkSelfCondition($prefix))) {
			AI::queue("likeHuman", $likeArgs);
			
			debug " Putting response in Queue.\n", "likeHuman";
			message "likeHuman Block '$i' - Responding '$likeArgs->{reply}' to '$likeArgs->{privMsgUser}' in '$likeArgs->{timeout}' seconds.\n", "likeHuman" if ($config{'likeHumanConsole'});

		}
			
		$sanswer = 0;
	}
}

sub AI_post {
	if (AI::action eq 'likeHuman') {
		my $args = AI::args;
		if ($args->{stage} eq 'end') {
			AI::dequeue;

			debug " Removing response from Queue.\n", "likeHuman";

		} elsif ($args->{stage} eq 'start') {
			$args->{stage} = 'message' if (main::timeOut($args->{time}, $args->{timeout}));

			debug " Executing response in Queue.\n", "likeHuman";

		} elsif ($args->{stage} eq 'message') {

			debug " Sending response.\n", "likeHuman";
			my $net2;

			if ((substr($Settings::VERSION, 0, 3) >= 1.9) && (substr($Settings::VERSION, 4) >= 0)){
			        $net2 = $Globals::net;        
			} else {
			        $net2 = \$Globals::remote_socket;
			}

			if ($args->{type} ne 'pm'){
				sendMessage($messageSender, $args->{type}, $args->{reply}, undef);
			}
			else {
				sendMessage($messageSender, $args->{type}, $args->{reply}, $args->{privMsgUser});
			}

			$args->{stage} = 'end';
		}
	}
}
sub match
{
	my ($pattern,$subject) = @_;
	
	if (my ($re, $ci) = $pattern =~ /^\/(.+?)\/(i?)$/)
	{	
		if (($ci && $subject =~ /$re/i) || (!$ci && $subject =~ /$re/))
		{
			return 1;
		}
	}
	elsif ($subject eq $pattern)
	{
		return 1;
	}
	return 0;
}

sub likeCheckMsg
{
	my ($likeMsgUsr,$likeMsg,$i) = @_;
	my $ssanswer=$sanswer;

	debug " Messages previously received by '$likeMsgUsr' are $chatcount{$likeMsgUsr . '_' .$i}.\n", "likeHuman";
	debug "Usr:$likeMsgUsr Msg:$likeMsg\n", "likehuman";

	if ($config{$prefix . $i . "_chatCount"}) {
		for (my $ii = 0; $ii < @questions; $ii++) {
      		next unless defined $questions[$ii];
 			if (match($questions[$ii],$likeMsg)){

				debug " Match Found ['$questions[$ii]'] vs. ['$likeMsg'] - Responding '$answer'.\n", "likeHuman";

				$chatcount{$likeMsgUsr . "_" .$i}++;

				$ssanswer = 1;
			};
		}
		if (!(Utils::inRange($chatcount{$likeMsgUsr . "_" .$i}, $config{$prefix . $i . "_chatCount"})) && ($ssanswer == 1)) {
			if ($config{$prefix .$i. "_endings"}) {
				$answer = $endings[rand(@endings)];
				$chatended{$likeMsgUsr} = 1;
				if ($config{'likeHumanRealIgnoreOn'} == 1) {
					Commands::cmdIgnore "ignore","1 $likeMsgUsr";
				}
			} else  {
				$ssanswer = 0;
			}

			debug " ChatCount not in Range [$chatcount{$likeMsgUsr . '_' .$i} : $config{$prefix . $i . '_chatCount'}] - Ending Chat.\nResponding '$answer'.\n", "likeHuman";
			message "likeHuman Block '$i' - Not Responding to '$likeMsgUsr' Cause ChatCount = $chatcount{$likeMsgUsr . '_' .$i}.\n", "likeHuman" if ($config{'likeHumanConsole'});

		}  
	}else  {
		for (my $ii = 0; $ii < @questions; $ii++) {
			next unless defined $questions[$ii];
     			if (match($questions[$ii],$likeMsg)){
				$ssanswer = 1;

				debug " Match Found ['$questions[$ii]'] vs. ['$likeMsg'] - Responding '$answer'.\n", "likeHuman";

				$chatcount{$likeMsgUsr . "_" .$i}++;

			};
		}
	}
	return $ssanswer;
}


return 1;