开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
ChatQueue.pm
资源名称：openkore-2.0.7.zip　[点击查看]
上传用户：market2
上传日期：2018-11-18
资源大小：18786k
文件大小：21k
源码类别：

外挂编程

开发平台：

Windows_Unix

ChatQueue.pm：源码内容
  1. #########################################################################
  2. # This software is open source, licensed under the GNU General Public
  3. # License, version 2.
  4. # Basically, this means that you're allowed to modify and distribute
  5. # this software. However, if you distribute modified versions, you MUST
  6. # also distribute the source code.
  7. # See http://www.gnu.org/licenses/gpl.html for the full license.
  8. #########################################################################
  9. ##
  10. # MODULE DESCRIPTION: Processing of incoming chat commands
  11. #
  12. # Kore has a feature called 'chat commands': you command your bot to
  13. # do certain things by using PM or public chat. This module processes
  14. # chat input and executes chat commands when necessary.
  16. package ChatQueue;
  18. use strict;
  19. use Time::HiRes qw(time);
  21. use AI;
  22. use Commands;
  23. use Globals qw($accountID $AI %ai_v $char @chatResponses %cities_lut
  24. %config %field %itemChange @monsters_Killed %maps_lut $net %overallAuth
  25. %players %responseVars %skillsSP_lut $startTime_EXP %timeout
  26. $totalBaseExp $totalJobExp $messageSender
  27. );
  28. use Log qw(message error);
  29. use Misc qw(auth avoidGM_talk avoidList_talk configModify getIDFromChat
  30. getResponse quit relog sendMessage setTimeout look parseReload);
  31. use Plugins;
  32. use Translation;
  33. use Utils qw(formatNumber getFormattedDate parseArgs swrite timeConvert timeOut);
  35. our @queue;
  36. our $wordSplitters = qr/(b| |,|.|!)/;
  37. our %lastInput;
  40. # use SelfLoader; 1;
  41. # __DATA__
  44. ##
  45. # void ChatQueue::add(String type, Bytes userID, String user, String msg)
  46. # type: 'c' (public chat), 'pm' (private message), 'p' (party chat) or 'g' (guild chat)
  47. # userID: the account ID of the user who sent this message.
  48. # user: the name of the user who sent this message.
  49. # msg: the message.
  50. #
  51. # Add a chat message to the chat queue. The messages in the queue will be processed later.
  52. sub add {
  53. my %item = (
  54. type => shift,
  55. userID => shift,
  56. user => shift,
  57. msg => shift,
  58. time => time
  59. );
  60. push @queue, %item;
  61. Plugins::callHook('ChatQueue::add', %item);
  62. }
  64. ##
  65. # void ChatQueue::clear()
  66. #
  67. # Clear the chat queue, if there are any unprocessed messages.
  68. sub clear {
  69. @queue = ();
  70. %lastInput = ();
  71. }
  73. ##
  74. # void ChatQueue::processFirst()
  75. #
  76. # Process the first message in the queue, if any.
  77. # That message will be removed from the queue.
  78. sub processFirst {
  79. return unless @queue;
  80. my $cmd = shift @queue;
  81. return if ($cmd->{user} eq $char->{name});
  83. my $type = $cmd->{type};
  84. my $user = $cmd->{user};
  85. my $msg = $cmd->{msg};
  87. return if ( $user ne ""
  88. && (avoidGM_talk($user, $msg) || avoidList_talk($user, $msg, unpack("V1", $cmd->{userID}))) );
  91. # If the user is not authorized to use chat commands,
  92. # check whether he's trying to authenticate
  93. if (( $type eq "pm" || $type eq "p" || $type eq "g" ) && !$overallAuth{$user} && $config{adminPassword}) {
  94. if ($msg eq $config{adminPassword}) {
  95. auth($user, 1);
  96. sendMessage($messageSender, "pm", getResponse("authS"), $user);
  97. }
  98. # We don't notify the user if login failed; people use it
  99. # to check whether you're a bot.
  100. }
  102. # If the user is authorized to use chat commands,
  103. # check whether his message is a chat command, and execute it.
  104. my $callSign = quotemeta $config{callSign};
  105. if ($overallAuth{$user} && ( $type eq "pm" || $msg =~ /^b*$callSignb*/i )) {
  106. my $msg2 = $msg;
  107. $msg2 =~ s/^b*$callSignb* *//i;
  108. $msg2 =~ s/ *$//;
  109. return if processChatCommand($type, $user, $msg2);
  110. }
  112. # Not a chat command; attempt to reply with a message
  113. processChatResponse($cmd) if ($config{autoResponse});
  114. }
  116. sub processChatCommand {
  117. my ($type, $user, $msg) = @_;
  118. my ($switch, $after) = split / +/, $msg, 2;
  119. $after =~ s/ *$//;
  120. my @args = parseArgs($after);
  121. my $vars = %responseVars;
  123. $vars->{cmd_user} = $user;
  125. if ($switch eq "conf") {
  126. if ($args[0] eq "") {
  127. sendMessage($messageSender, $type, getResponse("confF1"), $user) if $config{verbose};
  129. } elsif (!exists $config{$args[0]}) {
  130. sendMessage($messageSender, $type, getResponse("confF2"), $user) if $config{verbose};
  132. } elsif ($args[1] eq "") {
  133. if (lc($args[0]) eq "username" || lc($args[0] eq "password")) {
  134. sendMessage($messageSender, $type, getResponse("confF3"), $user) if $config{verbose};
  135. } else {
  136. $vars->{key} = $args[0];
  137. $vars->{value} = $config{$args[0]};
  138. sendMessage($messageSender, $type, getResponse("confS1"), $user) if $config{verbose};
  139. $timeout{ai_thanks_set}{time} = time;
  140. }
  142. } else {
  143. $args[1] = "" if ($args[1] eq "none");
  144. configModify($args[0], $args[1]);
  145. sendMessage($messageSender, $type, getResponse("confS2"), $user) if $config{verbose};
  146. $timeout{ai_thanks_set}{time} = time;
  147. }
  149. } elsif ($switch eq "date") {
  150. $vars->{date} = getFormattedDate(int(time));
  151. sendMessage($messageSender, $type, getResponse("dateS"), $user) if $config{verbose};
  152. $timeout{ai_thanks_set}{time} = time;
  154. } elsif ($switch eq "exp") {
  156. if ($args[0] eq "") {
  157. my ($endTime_EXP, $w_sec);
  158. $endTime_EXP = time;
  159. $w_sec = int($endTime_EXP - $startTime_EXP);
  161. if ($w_sec > 0) {
  162. $vars->{bExpPerHour} = int($totalBaseExp / $w_sec * 3600);
  163. $vars->{jExpPerHour} = int($totalJobExp / $w_sec * 3600);
  164. if ($char->{exp_max} && $vars->{bExpPerHour}){
  165. $vars->{percentBExp} = "(".sprintf("%.2f",$totalBaseExp * 100 / $char->{exp_max})."%)";
  166. $vars->{percentBExpPerHour} = "(".sprintf("%.2f",$vars->{bExpPerHour} * 100 / $char->{exp_max})."%)";
  167. $vars->{bLvlUp} = timeConvert(int(($char->{exp_max} - $char->{exp})/($vars->{bExpPerHour}/3600)));
  168. }
  169. if ($char->{exp_job_max} && $vars->{jExpPerHour}){
  170. $vars->{percentJExp}  = "(".sprintf("%.2f",$totalJobExp * 100 / $char->{exp_job_max})."%)";
  171. $vars->{percentJExpPerHour} = "(".sprintf("%.2f",$vars->{jExpPerHour} * 100 / $char->{exp_job_max})."%)";
  172. $vars->{jLvlUp} = timeConvert(int(($char->{'exp_job_max'} - $char->{exp_job})/($vars->{jExpPerHour}/3600)));
  173. }
  174. }
  176. $vars->{time} = timeConvert($w_sec);
  177. $vars->{bExp} = formatNumber($totalBaseExp);
  178. $vars->{jExp} = formatNumber($totalJobExp);
  179. $vars->{bExpPerHour} = formatNumber($vars->{bExpPerHour});
  180. $vars->{jExpPerHour} = formatNumber($vars->{jExpPerHour});
  181. $vars->{numDeaths} = (defined $char->{deathCount})? $char->{deathCount} : 0;
  182. sendMessage($messageSender, $type, getResponse("expS"), $user) if $config{verbose};
  184. } elsif ($args[0] eq "monster") {
  185. $vars->{numKilledMonsters} = 0;
  187. sendMessage($messageSender, $type, getResponse("expMonsterS1"), $user) if $config{verbose};
  189. for (my $i = 0; $i < @monsters_Killed; $i++) {
  190. next if ($monsters_Killed[$i] eq "");
  191. $vars->{killedMonsters} = swrite(
  192. "@<< @<<<<<<<<<<<<<<<<<<<<<<<< @<<<<<<",
  193. [$i, $monsters_Killed[$i]{name}, $monsters_Killed[$i]{count}]);
  194. $vars->{killedMonsters} = substr($vars->{killedMonsters}, 0, length($vars->{killedMonsters}) - 1);
  195. $vars->{numKilledMonsters} += $monsters_Killed[$i]{count};
  196. sendMessage($messageSender, $type, getResponse("expMonsterS2"), $user) if $config{verbose};
  197. }
  199. sendMessage($messageSender, $type, getResponse("expMonsterS3"), $user) if $config{verbose};
  201. } elsif ($args[0] eq "item") {
  202. sendMessage($messageSender, $type, getResponse("expItemS1"), $user) if $config{verbose};
  203. for my $item (sort keys %itemChange) {
  204. next unless $itemChange{$item};
  205. $vars->{gotItems} = sprintf("%-40s %5d", $item, $itemChange{$item});
  206. sendMessage($messageSender, $type, getResponse("expItemS2"), $user) if $config{verbose};
  207. }
  209. } else {
  210. sendMessage($messageSender, $type, getResponse("expF"), $user) if $config{verbose};
  211. }
  213. } elsif ($switch eq "follow") {
  214. if ($args[0] eq "stop") {
  215. if ($config{follow}) {
  216. AI::clear("follow");
  217. configModify("follow", 0);
  218. sendMessage($messageSender, $type, getResponse("followStopS"), $user) if $config{verbose};
  219. $timeout{ai_thanks_set}{time} = time;
  220. } else {
  221. sendMessage($messageSender, $type, getResponse("followStopF"), $user) if $config{verbose};
  222. }
  224. } else {
  225. my $targetID = getIDFromChat(%players, $user, $after);
  226. if (defined $targetID) {
  227. AI::clear("follow");
  228. main::ai_follow($players{$targetID}{name});
  229. configModify("follow", 1);
  230. configModify("followTarget", $players{$targetID}{name});
  231. sendMessage($messageSender, $type, getResponse("followS"), $user) if $config{verbose};
  232. $timeout{ai_thanks_set}{time} = time;
  233. } else {
  234. sendMessage($messageSender, $type, getResponse("followF"), $user) if $config{verbose};
  235. }
  236. }
  238. } elsif ($switch eq "logout") {
  239. sendMessage($messageSender, $type, getResponse("quitS"), $user) if $config{verbose};
  240. quit();
  241. $timeout{ai_thanks_set}{time} = time;
  243. } elsif ($switch eq "look") {
  244. my ($body, $head) = @args;
  245. if ($body ne "") {
  246. look($body, $head);
  247. sendMessage($messageSender, $type, getResponse("lookS"), $user) if $config{verbose};
  248. $timeout{ai_thanks_set}{time} = time;
  249. } else {
  250. sendMessage($messageSender, $type, getResponse("lookF"), $user) if $config{verbose};
  251. }
  253. } elsif (($switch eq "move" && $args[0] eq "stop") || $switch eq "stop") {
  254. AI::clear("move", "route", "mapRoute");
  255. sendMessage($messageSender, $type, getResponse("moveS"), $user) if $config{verbose};
  256. $timeout{ai_thanks_set}{time} = time;
  258. } elsif ($switch eq "move") {
  259. my ($map, $x, $y);
  261. if ($args[0] =~ /^d+$/) {
  262.   # x y map
  263.   ($x, $y, $map) = @args;
  264. } else {
  265.   # map x y
  266.   ($map, $x, $y) = @args;
  267. }
  269. if ($map eq "") {
  270.   $x eq "" || $y eq ""
  271. } else {
  272.   $x ne "" && $y ne ""
  273. }
  275. if ($map ne "" || ($x ne "" && $y ne "")) {
  276. $map = $field{name} if ($map eq "");
  277. my $rsw = "${map}.rsw";
  278. if ($maps_lut{$rsw}) {
  279. if ($x ne "" && $y ne "") {
  280. message TF("Calculating route to: %s(%s): %d, %dn", $maps_lut{$rsw}, $map, $x, $y), "route";
  281. } else {
  282. message TF("Calculating route to: %s(%s)n", $maps_lut{$rsw}, $map), "route";
  283. }
  284. sendMessage($messageSender, $type, getResponse("moveS"), $user) if $config{verbose};
  285. main::ai_route($map, $x, $y, attackOnRoute => 1);
  286. $timeout{ai_thanks_set}{time} = time;
  288. } else {
  289. error TF("Map %s does not existn", $map);
  290. sendMessage($messageSender, $type, getResponse("moveF"), $user) if $config{verbose};
  291. }
  293. } else {
  294. sendMessage($messageSender, $type, getResponse("moveF"), $user) if $config{verbose};
  295. }
  297. } elsif ($switch eq "reload") {
  298. parseReload($after);
  299. sendMessage($messageSender, $type, getResponse("reloadS"), $user) if $config{verbose};
  300. $timeout{ai_thanks_set}{time} = time;
  302. } elsif ($switch eq "relog") {
  303. sendMessage($messageSender, $type, getResponse("relogS"), $user) if $config{verbose};
  304. relog($args[0]);
  305. $timeout{ai_thanks_set}{time} = time;
  307. } elsif ($msg =~ /bshut[sS]*upb/) {
  308. if ($config{verbose}) {
  309. configModify("verbose", 0);
  310. sendMessage($messageSender, $type, getResponse("verboseOffS"), $user);
  311. $timeout{ai_thanks_set}{time} = time;
  312. } else {
  313. sendMessage($messageSender, $type, getResponse("verboseOffF"), $user);
  314. }
  316. } elsif ($switch eq "speak") {
  317. if (!$config{verbose}) {
  318. configModify("verbose", 1);
  319. sendMessage($messageSender, $type, getResponse("verboseOnS"), $user);
  320. $timeout{ai_thanks_set}{time} = time;
  321. } else {
  322. sendMessage($messageSender, $type, getResponse("verboseOnF"), $user);
  323. }
  325. } elsif ($switch eq "sit") {
  326. Commands::run("sit");
  327. sendMessage($messageSender, $type, getResponse("sitS"), $user) if $config{verbose};
  328. $timeout{ai_thanks_set}{time} = time;
  330. } elsif ($switch eq "stand") {
  331. Commands::run("stand");
  332. sendMessage($messageSender, $type, getResponse("standS"), $user) if $config{verbose};
  333. $timeout{ai_thanks_set}{time} = time;
  335. } elsif ($switch eq "status") {
  336. $vars->{char_sp} = $char->{sp};
  337. $vars->{char_hp} = $char->{hp};
  338. $vars->{char_sp_max} = $char->{sp_max};
  339. $vars->{char_hp_max} = $char->{hp_max};
  340. $vars->{char_lv} = $char->{lv};
  341. $vars->{char_lv_job} = $char->{lv_job};
  342. $vars->{char_exp} = formatNumber($char->{exp});
  343. $vars->{char_exp_max} = formatNumber($char->{exp_max});
  344. $vars->{char_exp_job} = formatNumber($char->{exp_job});
  345. $vars->{char_exp_job_max} = formatNumber($char->{exp_job_max});
  346. $vars->{char_weight} = $char->{weight};
  347. $vars->{char_weight_max} = $char->{weight_max};
  348. $vars->{zenny} = formatNumber($char->{zenny});
  349. sendMessage($messageSender, $type, getResponse("statusS"), $user) if $config{verbose};
  351. } elsif ($switch eq "tank") {
  352. if ($args[0] eq "stop") {
  353. if (!$config{tankMode}) {
  354. sendMessage($messageSender, $type, getResponse("tankStopF"), $user) if $config{verbose};
  355. } else {
  356. sendMessage($messageSender, $type, getResponse("tankStopS"), $user) if $config{verbose};
  357. configModify("tankMode", 0);
  358. $timeout{ai_thanks_set}{time} = time;
  359. }
  361. } else {
  362. my $targetID = getIDFromChat(%players, $user, $after);
  363. if ($targetID ne "") {
  364. sendMessage($messageSender, $type, getResponse("tankS"), $user) if $config{verbose};
  365. configModify("tankMode", 1);
  366. configModify("tankModeTarget", $players{$targetID}{name});
  367. $timeout{ai_thanks_set}{time} = time;
  368. } else {
  369. sendMessage($messageSender, $type, getResponse("tankF"), $user) if $config{verbose};
  370. }
  371. }
  373. } elsif ($switch eq "thank" || $switch eq "thn" || $switch eq "thx") {
  374. if (!timeOut($timeout{ai_thanks_set})) {
  375. $timeout{ai_thanks_set}{time} -= $timeout{ai_thanks_set}{timeout};
  376. sendMessage($messageSender, $type, getResponse("thankS"), $user) if $config{verbose};
  377. }
  379. } elsif ($switch eq "timeout") {
  380. if ($args[0] eq "") {
  381. sendMessage($messageSender, $type, getResponse("timeoutF1"), $user) if $config{verbose};
  383. } elsif (!exists $timeout{$args[0]}{timeout}) {
  384. sendMessage($messageSender, $type, getResponse("timeoutF2"), $user) if $config{verbose};
  386. } elsif ($args[1] eq "") {
  387. $vars->{key} = $args[0];
  388. $vars->{value} = $timeout{$args[0]}{timeout};
  389. sendMessage($messageSender, $type, getResponse("timeoutS1"), $user) if $config{verbose};
  390. $timeout{ai_thanks_set}{time} = time;
  392. } else {
  393. $args[1] = "" if ($args[1] eq "none");
  394. setTimeout($args[0], $args[1]);
  395. sendMessage($messageSender, $type, getResponse("timeoutS2"), $user) if $config{verbose};
  396. $timeout{ai_thanks_set}{time} = time;
  397. }
  399. } elsif ($switch eq "town") {
  400. sendMessage($messageSender, $type, getResponse("moveS"), $user);
  401. main::useTeleport(2);
  403. } elsif ($switch eq "version") {
  404. $vars->{ver} = $Settings::VERSION;
  405. sendMessage($messageSender, $type, getResponse("versionS"), $user) if $config{verbose};
  407. } elsif ($switch eq "where") {
  408. my $rsw = "$field{name}.rsw";
  409. $vars->{x} = $char->{pos_to}{x};
  410. $vars->{y} = $char->{pos_to}{y};
  411. $vars->{map} = "$maps_lut{$rsw} ($field{name})";
  412. $timeout{ai_thanks_set}{time} = time;
  413. sendMessage($messageSender, $type, getResponse("whereS"), $user) if $config{verbose};
  416. # Support Skills
  418. } elsif ($switch eq "agi"){
  419. my $targetID = getIDFromChat(%players, $user, $after);
  420. if ($targetID eq "") {
  421. sendMessage($messageSender, $type, getResponse("healF1"), $user) if $config{verbose};
  423. } elsif ($char->{skills}{AL_INCAGI}{lv} > 0) {
  424. my $failed = 1;
  425. for (my $i = $char->{skills}{AL_INCAGI}{lv}; $i >=1; $i--) {
  426. if ($char->{sp} >= $skillsSP_lut{AL_INCAGI}{$i}) {
  427. main::ai_skillUse('AL_INCAGI', $i, 0, 0, $targetID);
  428. $failed = 0;
  429. last;
  430. }
  431. }
  432. if (!$failed) {
  433. sendMessage($messageSender, $type, getResponse("healS"), $user) if $config{verbose};
  434. }else{
  435. sendMessage($messageSender, $type, getResponse("healF2"), $user) if $config{verbose};
  436. }
  438. } else {
  439. sendMessage($messageSender, $type, getResponse("healF3"), $user) if $config{'verbose'};
  440. }
  441. $timeout{ai_thanks_set}{time} = time;
  443. } elsif ($switch eq "bless" || $switch eq "blessing"){
  444. my $targetID = getIDFromChat(%players, $user, $after);
  445. if ($targetID eq "") {
  446. sendMessage($messageSender, $type, getResponse("healF1"), $user) if $config{verbose};
  448. } elsif ($char->{skills}{AL_BLESSING}{lv} > 0) {
  449. my $failed = 1;
  450. for (my $i = $char->{skills}{AL_BLESSING}{lv}; $i >=1; $i--) {
  451. if ($char->{sp} >= $skillsSP_lut{AL_BLESSING}{$i}) {
  452. main::ai_skillUse('AL_BLESSING', $i, 0, 0, $targetID);
  453. $failed = 0;
  454. last;
  455. }
  456. }
  457. if (!$failed) {
  458. sendMessage($messageSender, $type, getResponse("healS"), $user) if $config{verbose};
  459. }else{
  460. sendMessage($messageSender, $type, getResponse("healF2"), $user) if $config{verbose};
  461. }
  463. } else {
  464. sendMessage($messageSender, $type, getResponse("healF3"), $user) if $config{verbose};
  465. }
  466. $timeout{ai_thanks_set}{time} = time;
  468. } elsif ($switch eq "heal") {
  469. my $amount;
  470. my $targetID;
  471. if ($args[0] =~ /^d+$/) {
  472. $amount = $args[0];
  473. $targetID = getIDFromChat(%players, $user, $args[1]);
  474. } else {
  475. $amount = $args[1];
  476. $targetID = getIDFromChat(%players, $user, $args[0]);
  477. }
  479. if ($targetID eq "") {
  480. sendMessage($messageSender, $type, getResponse("healF1"), $user) if $config{verbose};
  482. } elsif ($char->{skills}{AL_HEAL}{lv} > 0) {
  483. my $amount_healed;
  484. my $sp_needed;
  485. my $sp_used;
  486. my $failed;
  487. my @skillCasts;
  489. # Calculate what skill level is needed to heal $amount HP
  490. while ($amount_healed < $amount) {
  491. my ($sp, $amount_this);
  492. for (my $i = 1; $i <= $char->{skills}{AL_HEAL}{lv}; $i++) {
  493. $sp = 10 + ($i * 3);
  494. $amount_this = int(($char->{lv} + $char->{int}) / 8)
  495. * (4 + $i * 8);
  496. last if ($amount_healed + $amount_this >= $amount);
  497. }
  498. $sp_needed += $sp;
  499. $amount_healed += $amount_this;
  500. }
  502. while ($sp_used < $sp_needed && !$failed) {
  503. my ($lv, $sp);
  504. for (my $i = 1; $i <= $char->{skills}{AL_HEAL}{lv}; $i++) {
  505. $lv = $i;
  506. $sp = 10 + ($i * 3);
  507. if ($sp_used + $sp > $char->{sp}) {
  508. $lv--;
  509. $sp = 10 + ($lv * 3);
  510. last;
  511. }
  512. last if ($sp_used + $sp >= $sp_needed);
  513. }
  515. if ($lv > 0) {
  516. my %skill;
  517. $sp_used += $sp;
  518. $skill{skill} = 'AL_HEAL';
  519. $skill{lv} = $lv;
  520. $skill{maxCastTime} = 0;
  521. $skill{minCastTime} = 0;
  522. $skill{ID} = $targetID;
  523. unshift @skillCasts, %skill;
  524. } else {
  525. $vars->{char_sp} = $char->{sp} - $sp_used;
  526. sendMessage($messageSender, $type, getResponse("healF2"), $user) if $config{verbose};
  527. $failed = 1;
  528. }
  529. }
  531. if (!$failed) {
  532. sendMessage($messageSender, $type, getResponse("healS"), $user) if $config{verbose};
  533. }
  534. foreach (@skillCasts) {
  535. main::ai_skillUse($_->{skill}, $_->{lv}, $_->{maxCastTime}, $_->{minCastTime}, $_->{ID});
  536. }
  538. } else {
  539. sendMessage($messageSender, $type, getResponse("healF3"), $user) if $config{verbose};
  540. }
  542. } elsif ($switch eq "kyrie"){
  543. my $targetID = getIDFromChat(%players, $user, $after);
  544. if ($targetID eq "") {
  545. sendMessage($messageSender, $type, getResponse("healF1"), $user) if $config{verbose};
  547. } elsif ($char->{skills}{PR_KYRIE}{lv} > 0) {
  548. my $failed = 1;
  549. for (my $i = $char->{skills}{PR_KYRIE}{lv}; $i >= 1; $i--) {
  550. if ($char->{sp} >= $skillsSP_lut{PR_KYRIE}{$i}) {
  551. main::ai_skillUse('PR_KYRIE', $i, 0, 0, $targetID);
  552. $failed = 0;
  553. last;
  554. }
  555. }
  557. if (!$failed) {
  558. sendMessage($messageSender, $type, getResponse("healS"), $user) if $config{verbose};
  559. }else{
  560. sendMessage($messageSender, $type, getResponse("healF2"), $user) if $config{verbose};
  561. }
  563. } else {
  564. sendMessage($messageSender, $type, getResponse("healF3"), $user) if $config{verbose};
  565. }
  566. $timeout{ai_thanks_set}{time} = time;
  568. } elsif ($switch eq "mag"){
  569. my $targetID = $accountID;
  570. if ($char->{skills}{PR_MAGNIFICAT}{lv} > 0) {
  571. my $failed = 1;
  572. for (my $i = $char->{skills}{PR_MAGNIFICAT}{lv}; $i >= 1; $i--) {
  573. if ($char->{sp} >= $skillsSP_lut{PR_MAGNIFICAT}{$i}) {
  574. main::ai_skillUse('PR_MAGNIFICAT', $i, 0, 0, $targetID);
  575. $failed = 0;
  576. last;
  577. }
  578. }
  580. if (!$failed) {
  581. sendMessage($messageSender, $type, getResponse("healS"), $user) if $config{verbose};
  582. }else{
  583. sendMessage($messageSender, $type, getResponse("healF2"), $user) if $config{verbose};
  584. }
  586. } else {
  587. sendMessage($messageSender, $type, getResponse("healF3"), $user) if $config{verbose};
  588. }
  589. $timeout{ai_thanks_set}{time} = time;
  591. } else {
  592. return 0;
  593. }
  594. return 1;
  595. }
  598. # Automatically reply to a chat message
  599. sub processChatResponse {
  600. return unless ($AI == 2);
  601. my $cmd = shift;
  602. my $msg = lc $cmd->{msg};
  603. my $reply;
  604. my $repeating;
  606. # Check whether the user is repeating itself
  607. $msg =~ s/^ +//;
  608. $msg =~ s/ +$//;
  609. if (defined $lastInput{msg} && $lastInput{user} eq $cmd->{user} && $lastInput{msg} eq $msg) {
  610. $repeating = $cmd->{repeating} = 1;
  611. }
  613. # Determine a reply
  614. Plugins::callHook('ChatQueue::processChatResponse', $cmd);
  615. if (defined $cmd->{reply}) {
  616. $reply = $cmd->{reply};
  618. } elsif (!$repeating && ($cmd->{type} eq "c" || $cmd->{type} eq "pm") && !$cities_lut{$field{name}.'.rsw'}) {
  619. foreach my $item (@chatResponses) {
  620. my $word = quotemeta $item->{word};
  621. if ($msg =~ /${wordSplitters}${word}${wordSplitters}/) {
  622. my $max = @{$item->{responses}};
  623. $reply = $item->{responses}[rand($max)];
  624. last;
  625. }
  626. }
  627. }
  629. return unless (defined $reply);
  631. # Calculate a small delay (to simulate typing)
  632. # The average typing speed is 65 words per minute.
  633. # The average length of a word used by RO players is 4.25 characters (yes I measured it).
  634. # So the average user types 65 * 4.25 = 276.25 charcters per minute, or
  635. # 276.25 / 60 = 4.6042 characters per second
  636. # We also add a random delay of 0.5-1.5 seconds.
  637. my $timeout = 0.5 + rand(1) + length($reply) / 4.6042;
  638. my %args = (
  639. time => time,
  640. timeout => $timeout,
  641. type => $cmd->{type},
  642. from => $cmd->{user},
  643. reply => $reply
  644. );
  645. AI::queue("autoResponse", %args);
  647. $lastInput{msg} = $msg;
  648. $lastInput{user} = $cmd->{user};
  649. }
  651. 1;