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

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

外挂编程

开发平台：

Windows_Unix

Misc.pm.svn-base：源码内容
  1. my $changed = 0;
  3. foreach (keys %skillsState) {
  4. if ($param1 == $_) {
  5. if (!$actor->{statuses}{$skillsState{$_}}) {
  6. $actor->{statuses}{$skillsState{$_}} = 1;
  7. message "$actor $are in $skillsState{$_} staten", "parseMsg_statuslook", $verbosity;
  8. $changed = 1;
  9. }
  10. } elsif ($actor->{statuses}{$skillsState{$_}}) {
  11. delete $actor->{statuses}{$skillsState{$_}};
  12. message "$actor $are out of $skillsState{$_} staten", "parseMsg_statuslook", $verbosity;
  13. $changed = 1;
  14. }
  15. }
  17. foreach (keys %skillsAilments) {
  18. if (($param2 & $_) == $_) {
  19. if (!$actor->{statuses}{$skillsAilments{$_}}) {
  20. $actor->{statuses}{$skillsAilments{$_}} = 1;
  21. message "$actor $have ailments: $skillsAilments{$_}n", "parseMsg_statuslook", $verbosity;
  22. $changed = 1;
  23. }
  24. } elsif ($actor->{statuses}{$skillsAilments{$_}}) {
  25. delete $actor->{statuses}{$skillsAilments{$_}};
  26. message "$actor $are out of ailments: $skillsAilments{$_}n", "parseMsg_statuslook", $verbosity;
  27. $changed = 1;
  28. }
  29. }
  31. foreach (keys %skillsLooks) {
  32. if (($param3 & $_) == $_) {
  33. if (!$actor->{statuses}{$skillsLooks{$_}}) {
  34. $actor->{statuses}{$skillsLooks{$_}} = 1;
  35. debug "$actor $have look: $skillsLooks{$_}n", "parseMsg_statuslook", $verbosity;
  36. $changed = 1;
  37. }
  38. } elsif ($actor->{statuses}{$skillsLooks{$_}}) {
  39. delete $actor->{statuses}{$skillsLooks{$_}};
  40. debug "$actor $are out of look: $skillsLooks{$_}n", "parseMsg_statuslook", $verbosity;
  41. $changed = 1;
  42. }
  43. }
  45. Plugins::callHook('changed_status',{actor => $actor, changed => $changed});
  47. # Remove perfectly hidden objects
  48. if ($actor->{statuses}{'GM Perfect Hide'}) {
  49. if (UNIVERSAL::isa($actor, "Actor::Player")) {
  50. message TF("Remove perfectly hidden %sn", $actor);
  51. $playersList->remove($actor);
  52. # Call the hook when a perfectly hidden player is detected
  53. Plugins::callHook('perfect_hidden_player',undef);
  55. } elsif (UNIVERSAL::isa($actor, "Actor::Monster")) {
  56. message TF("Remove perfectly hidden %sn", $actor);
  57. $monstersList->remove($actor);
  59. # NPCs do this on purpose (who knows why)
  60. } elsif (UNIVERSAL::isa($actor, "Actor::NPC")) {
  61. message "Remove perfectly hidden $actorn";
  62. $npcsList->remove($actor);
  63. }
  64. return 1;
  65. } else {
  66. return 0;
  67. }
  68. }
  71. # Increment counter for monster being casted on
  72. sub countCastOn {
  73. my ($sourceID, $targetID, $skillID, $x, $y) = @_;
  74. return unless defined $targetID;
  76. my $source = Actor::get($sourceID);
  77. my $target = Actor::get($targetID);
  78. assert(UNIVERSAL::isa($source, 'Actor')) if DEBUG;
  79. assert(UNIVERSAL::isa($target, 'Actor')) if DEBUG;
  81. if ($targetID eq $accountID) {
  82. $source->{castOnToYou}++;
  83. } elsif ($target->isa('Actor::Player')) {
  84. $source->{castOnToPlayer}{$targetID}++;
  85. } elsif ($target->isa('Actor::Monster')) {
  86. $source->{castOnToMonster}{$targetID}++;
  87. }
  89. if ($sourceID eq $accountID) {
  90. $target->{castOnByYou}++;
  91. } elsif ($source->isa('Actor::Player')) {
  92. $target->{castOnByPlayer}{$sourceID}++;
  93. } elsif ($source->isa('Actor::Monster')) {
  94. $target->{castOnByMonster}{$sourceID}++;
  95. }
  96. }
  98. sub stopAttack {
  99. my $pos = calcPosition($char);
  100. $messageSender->sendMove($pos->{x}, $pos->{y});
  101. }
  103. ##
  104. # boolean stripLanguageCode(String* msg)
  105. # msg: a chat message, as sent by the RO server.
  106. # Returns: whether the language code was stripped.
  107. #
  108. # Strip the language code character from a chat message.
  109. sub stripLanguageCode {
  110. my $r_msg = shift;
  111. if ($config{chatLangCode} && $config{chatLangCode} ne "none") {
  112. if ($$r_msg =~ /^|..(.*)/) {
  113. $$r_msg = $1;
  114. return 1;
  115. }
  116. return 0;
  117. } else {
  118. return 0;
  119. }
  120. }
  122. ##
  123. # void switchConf(String filename)
  124. # filename: a configuration file.
  125. # Returns: 1 on success, 0 if $filename does not exist.
  126. #
  127. # Switch to another configuration file.
  128. sub switchConfigFile {
  129. my $filename = shift;
  130. if (! -f $filename) {
  131. error TF("%s does not exist.n", $filename);
  132. return 0;
  133. }
  135. Settings::setConfigFilename($filename);
  136. parseConfigFile($filename, %config);
  137. return 1;
  138. }
  140. sub updateDamageTables {
  141. my ($ID1, $ID2, $damage) = @_;
  143. # Track deltaHp
  144. #
  145. # A player's "deltaHp" initially starts at 0.
  146. # When he takes damage, the damage is subtracted from his deltaHp.
  147. # When he is healed, this amount is added to the deltaHp.
  148. # If the deltaHp becomes positive, it is reset to 0.
  149. #
  150. # Someone with a lot of negative deltaHp is probably in need of healing.
  151. # This allows us to intelligently heal non-party members.
  152. if (my $target = Actor::get($ID2)) {
  153. $target->{deltaHp} -= $damage;
  154. $target->{deltaHp} = 0 if $target->{deltaHp} > 0;
  155. }
  157. if ($ID1 eq $accountID) {
  158. if ((my $monster = $monstersList->getByID($ID2))) {
  159. # You attack monster
  160. $monster->{dmgTo} += $damage;
  161. $monster->{dmgFromYou} += $damage;
  162. $monster->{numAtkFromYou}++;
  163. if ($damage <= ($config{missDamage} || 0)) {
  164. $monster->{missedFromYou}++;
  165. debug "Incremented missedFromYou count to $monster->{missedFromYou}n", "attackMonMiss";
  166. $monster->{atkMiss}++;
  167. } else {
  168. $monster->{atkMiss} = 0;
  169. }
  170. if ($config{teleportAuto_atkMiss} && $monster->{atkMiss} >= $config{teleportAuto_atkMiss}) {
  171. message T("Teleporting because of attack missn"), "teleport";
  172. useTeleport(1);
  173. }
  174. if ($config{teleportAuto_atkCount} && $monster->{numAtkFromYou} >= $config{teleportAuto_atkCount}) {
  175. message TF("Teleporting after attacking a monster %d timesn", $config{teleportAuto_atkCount}), "teleport";
  176. useTeleport(1);
  177. }
  179. if (AI::action eq "attack" && mon_control($monster->{name},$monster->{nameID})->{attack_auto} == 3 && $damage) {
  180. # Mob-training, you only need to attack the monster once to provoke it
  181. message TF("%s (%s) has been provoked, searching another monstern", $monster->{name}, $monster->{binID});
  182. stopAttack();
  183. AI::dequeue();
  184. }
  187. }
  189. } elsif ($ID2 eq $accountID) {
  190. if ((my $monster = $monstersList->getByID($ID1))) {
  191. # Monster attacks you
  192. $monster->{dmgFrom} += $damage;
  193. $monster->{dmgToYou} += $damage;
  194. if ($damage == 0) {
  195. $monster->{missedYou}++;
  196. }
  197. $monster->{attackedYou}++ unless (
  198. scalar(keys %{$monster->{dmgFromPlayer}}) ||
  199. scalar(keys %{$monster->{dmgToPlayer}}) ||
  200. $monster->{missedFromPlayer} ||
  201. $monster->{missedToPlayer}
  202. );
  203. $monster->{target} = $ID2;
  205. if ($AI == 2) {
  206. my $teleport = 0;
  207. if (mon_control($monster->{name},$monster->{nameID})->{teleport_auto} == 2 && $damage){
  208. message TF("Teleporting due to attack from %sn",
  209. $monster->{name}), "teleport";
  210. $teleport = 1;
  212. } elsif ($config{teleportAuto_deadly} && $damage >= $char->{hp}
  213.       && !whenStatusActive("Hallucination")) {
  214. message TF("Next %d dmg could kill you. Teleporting...n",
  215. $damage), "teleport";
  216. $teleport = 1;
  218. } elsif ($config{teleportAuto_maxDmg} && $damage >= $config{teleportAuto_maxDmg}
  219.       && !whenStatusActive("Hallucination")
  220.       && !($config{teleportAuto_maxDmgInLock} && $field{name} eq $config{lockMap})) {
  221. message TF("%s hit you for more than %d dmg. Teleporting...n",
  222. $monster->{name}, $config{teleportAuto_maxDmg}), "teleport";
  223. $teleport = 1;
  225. } elsif ($config{teleportAuto_maxDmgInLock} && $field{name} eq $config{lockMap}
  226.       && $damage >= $config{teleportAuto_maxDmgInLock}
  227.       && !whenStatusActive("Hallucination")) {
  228. message TF("%s hit you for more than %d dmg in lockMap. Teleporting...n",
  229. $monster->{name}, $config{teleportAuto_maxDmgInLock}), "teleport";
  230. $teleport = 1;
  232. } elsif (AI::inQueue("sitAuto") && $config{teleportAuto_attackedWhenSitting}
  233.       && $damage > 0) {
  234. message TF("%s attacks you while you are sitting. Teleporting...n",
  235. $monster->{name}), "teleport";
  236. $teleport = 1;
  238. } elsif ($config{teleportAuto_totalDmg}
  239.       && $monster->{dmgToYou} >= $config{teleportAuto_totalDmg}
  240.       && !whenStatusActive("Hallucination")
  241.       && !($config{teleportAuto_totalDmgInLock} && $field{name} eq $config{lockMap})) {
  242. message TF("%s hit you for a total of more than %d dmg. Teleporting...n",
  243. $monster->{name}, $config{teleportAuto_totalDmg}), "teleport";
  244. $teleport = 1;
  246. } elsif ($config{teleportAuto_totalDmgInLock} && $field{name} eq $config{lockMap}
  247.       && $monster->{dmgToYou} >= $config{teleportAuto_totalDmgInLock}
  248.       && !whenStatusActive("Hallucination")) {
  249. message TF("%s hit you for a total of more than %d dmg in lockMap. Teleporting...n",
  250. $monster->{name}, $config{teleportAuto_totalDmgInLock}), "teleport";
  251. $teleport = 1;
  253. } elsif ($config{teleportAuto_hp} && percent_hp($char) <= $config{teleportAuto_hp}) {
  254. message TF("%s hit you when your HP is too low. Teleporting...n",
  255. $monster->{name}), "teleport";
  256. $teleport = 1;
  258. } elsif ($config{attackChangeTarget} && ((AI::action eq "route" && AI::action(1) eq "attack") || (AI::action eq "move" && AI::action(2) eq "attack"))
  259.    && AI::args->{attackID} && AI::args()->{attackID} ne $ID1) {
  260. my $attackTarget = Actor::get(AI::args->{attackID});
  261. my $attackSeq = (AI::action eq "route") ? AI::args(1) : AI::args(2);
  262. if (!$attackTarget->{dmgToYou} && !$attackTarget->{dmgFromYou} && distance($monster->{pos_to}, calcPosition($char)) <= $attackSeq->{attackMethod}{distance}) {
  263. my $ignore = 0;
  264. # Don't attack ignored monsters
  265. if ((my $control = mon_control($monster->{name},$monster->{nameID}))) {
  266. $ignore = 1 if ( ($control->{attack_auto} == -1)
  267. || ($control->{attack_lvl} ne "" && $control->{attack_lvl} > $char->{lv})
  268. || ($control->{attack_jlvl} ne "" && $control->{attack_jlvl} > $char->{lv_job})
  269. || ($control->{attack_hp}  ne "" && $control->{attack_hp} > $char->{hp})
  270. || ($control->{attack_sp}  ne "" && $control->{attack_sp} > $char->{sp})
  271. || ($control->{attack_auto} == 3 && ($monster->{dmgToYou} || $monster->{missedYou} || $monster->{dmgFromYou}))
  272. );
  273. }
  274. if (!$ignore) {
  275. # Change target to closer aggressive monster
  276. message TF("Change target to aggressive : %s (%s)n", $monster->name, $monster->{binID});
  277. stopAttack();
  278. AI::dequeue;
  279. AI::dequeue if (AI::action eq "route");
  280. AI::dequeue;
  281. attack($ID1);
  282. }
  283. }
  285. } elsif (AI::action eq "attack" && mon_control($monster->{name},$monster->{nameID})->{attack_auto} == 3
  286. && ($monster->{dmgToYou} || $monster->{missedYou} || $monster->{dmgFromYou})) {
  288. # Mob-training, stop attacking the monster if it has been attacking you
  289. message TF("%s (%s) has been provoked, searching another monstern", $monster->{name}, $monster->{binID});
  290. stopAttack();
  291. AI::dequeue();
  292. }
  294. useTeleport(1, undef, 1) if ($teleport);
  295. }
  296. }
  298. } elsif ((my $monster = $monstersList->getByID($ID1))) {
  299. if ((my $player = $playersList->getByID($ID2) || $slavesList->getByID($ID2))) {
  300. # Monster attacks player
  301. $monster->{dmgFrom} += $damage;
  302. $monster->{dmgToPlayer}{$ID2} += $damage;
  303. $player->{dmgFromMonster}{$ID1} += $damage;
  304. if ($damage == 0) {
  305. $monster->{missedToPlayer}{$ID2}++;
  306. $player->{missedFromMonster}{$ID1}++;
  307. }
  308. if (existsInList($config{tankersList}, $player->{name}) ||
  309.     ($char->{slaves} && %{$char->{slaves}} && $char->{slaves}{$ID2} && %{$char->{slaves}{$ID2}}) ||
  310.     ($char->{party} && %{$char->{party}} && $char->{party}{users}{$ID2} && %{$char->{party}{users}{$ID2}})) {
  311. # Monster attacks party member
  312. $monster->{dmgToParty} += $damage;
  313. $monster->{missedToParty}++ if ($damage == 0);
  314. }
  315. $monster->{target} = $ID2;
  316. OpenKoreMod::updateDamageTables($monster) if (defined &OpenKoreMod::updateDamageTables);
  318. if ($AI == 2 && ($char->{slaves} && $char->{slaves}{$ID2})) {
  319. my $teleport = 0;
  320. if (mon_control($monster->{name},$monster->{nameID})->{teleport_auto} == 2 && $damage){
  321. message TF("Slave teleporting due to attack from %sn",
  322. $monster->{name}), "teleport";
  323. $teleport = 1;
  325. } elsif ($config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_deadly'} && $damage >= $char->{slaves}{$ID2}{hp}
  326.       && !whenStatusActive("Hallucination")) {
  327. message TF("Next %d dmg could kill your slave. Teleporting...n",
  328. $damage), "teleport";
  329. $teleport = 1;
  331. } elsif ($config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_maxDmg'} && $damage >= $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_maxDmg'}
  332.       && !whenStatusActive("Hallucination")
  333.       && !($config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_maxDmgInLock'} && $field{name} eq $config{lockMap})) {
  334. message TF("%s hit your slave for more than %d dmg. Teleporting...n",
  335. $monster->{name}, $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_maxDmg'}), "teleport";
  336. $teleport = 1;
  338. } elsif ($config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_maxDmgInLock'} && $field{name} eq $config{lockMap}
  339.       && $damage >= $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_maxDmgInLock'}
  340.       && !whenStatusActive("Hallucination")) {
  341. message TF("%s hit your slave for more than %d dmg in lockMap. Teleporting...n",
  342. $monster->{name}, $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_maxDmgInLock'}), "teleport";
  343. $teleport = 1;
  345. } elsif ($config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_totalDmg'}
  346.       && $monster->{dmgToPlayer}{$ID2} >= $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_totalDmg'}
  347.       && !whenStatusActive("Hallucination")
  348.       && !($config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_totalDmgInLock'} && $field{name} eq $config{lockMap})) {
  349. message TF("%s hit your slave for a total of more than %d dmg. Teleporting...n",
  350. $monster->{name}, $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_totalDmg'}), "teleport";
  351. $teleport = 1;
  353. } elsif ($config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_totalDmgInLock'} && $field{name} eq $config{lockMap}
  354.       && $monster->{dmgToPlayer}{$ID2} >= $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_totalDmgInLock'}
  355.       && !whenStatusActive("Hallucination")) {
  356. message TF("%s hit your slave for a total of more than %d dmg in lockMap. Teleporting...n",
  357. $monster->{name}, $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_totalDmgInLock'}), "teleport";
  358. $teleport = 1;
  360. } elsif ($config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_hp'} && $char->{slaves}{$ID2}{hpPercent} <= $config{$char->{slaves}{$ID2}{slave_configPrefix}.'teleportAuto_hp'}) {
  361. message TF("%s hit your slave when your homunculus' HP is too low. Teleporting...n",
  362. $monster->{name}), "teleport";
  363. $teleport = 1;
  365. } elsif (
  366. $config{$char->{slaves}{$ID2}{slave_configPrefix}.'attackChangeTarget'}
  367. && (
  368. $char->{slaves}{$ID2}->action eq 'route' && $char->{slaves}{$ID2}->action(1) eq 'attack'
  369. or $char->{slaves}{$ID2}->action eq 'move' && $char->{slaves}{$ID2}->action(2) eq 'attack'
  370. )
  371. && $char->{slaves}{$ID2}->args->{attackID} && $char->{slaves}{$ID2}->args->{attackID} ne $ID1
  372. ) {
  373. my $attackTarget = Actor::get($char->{slaves}{$ID2}->args->{attackID});
  374. my $attackSeq = ($char->{slaves}{$ID2}->action eq 'route') ? $char->{slaves}{$ID2}->args(1) : $char->{slaves}{$ID2}->args(2);
  375. if (!$attackTarget->{dmgToPlayer}{$ID2} && !$attackTarget->{dmgFromPlayer}{$ID2} && distance($monster->{pos_to}, calcPosition($char->{slaves}{$ID2})) <= $attackSeq->{attackMethod}{distance}) {
  376. my $ignore = 0;
  377. # Don't attack ignored monsters
  378. if ((my $control = mon_control($monster->{name},$monster->{nameID}))) {
  379. $ignore = 1 if ( ($control->{attack_auto} == -1)
  380. || ($control->{attack_lvl} ne "" && $control->{attack_lvl} > $char->{lv})
  381. || ($control->{attack_jlvl} ne "" && $control->{attack_jlvl} > $char->{lv_job})
  382. || ($control->{attack_hp}  ne "" && $control->{attack_hp} > $char->{hp})
  383. || ($control->{attack_sp}  ne "" && $control->{attack_sp} > $char->{sp})
  384. );
  385. }
  386. if (!$ignore) {
  387. # Change target to closer aggressive monster
  388. message TF("Slave change target to aggressive : %s (%s)n", $monster->name, $monster->{binID});
  389. $char->{slaves}{$ID2}->slave_stopAttack();
  390. $char->{slaves}{$ID2}->dequeue;
  391. $char->{slaves}{$ID2}->dequeue if $char->{slaves}{$ID2}->action eq 'route';
  392. $char->{slaves}{$ID2}->dequeue;
  393. $char->{slaves}{$ID2}->slave_attack($ID1);
  394. }
  395. }
  397. }
  398. useTeleport(1, undef, 1) if ($teleport);
  399. }
  400. }
  402. } elsif ((my $player = $playersList->getByID($ID1) || $slavesList->getByID($ID1))) {
  403. if ((my $monster = $monstersList->getByID($ID2))) {
  404. # Player attacks monster
  405. $monster->{dmgTo} += $damage;
  406. $monster->{dmgFromPlayer}{$ID1} += $damage;
  407. $monster->{lastAttackFrom} = $ID1;
  408. $player->{dmgToMonster}{$ID2} += $damage;
  410. if ($damage == 0) {
  411. $monster->{missedFromPlayer}{$ID1}++;
  412. $player->{missedToMonster}{$ID2}++;
  413. }
  415. if (existsInList($config{tankersList}, $player->{name}) || ($char->{slaves} && $char->{slaves}{$ID1}) ||
  416.     ($char->{party} && %{$char->{party}} && $char->{party}{users}{$ID1} && %{$char->{party}{users}{$ID1}})) {
  417. $monster->{dmgFromParty} += $damage;
  418. }
  419. OpenKoreMod::updateDamageTables($monster) if (defined &OpenKoreMod::updateDamageTables);
  420. }
  421. }
  422. }
  424. ##
  425. # updatePlayerNameCache(player)
  426. # player: a player actor object.
  427. sub updatePlayerNameCache {
  428. my ($player) = @_;
  430. return if (!$config{cachePlayerNames});
  432. # First, cleanup the cache. Remove entries that are too old.
  433. # Default life time: 15 minutes
  434. my $changed = 1;
  435. for (my $i = 0; $i < @playerNameCacheIDs; $i++) {
  436. my $ID = $playerNameCacheIDs[$i];
  437. if (timeOut($playerNameCache{$ID}{time}, $config{cachePlayerNames_duration})) {
  438. delete $playerNameCacheIDs[$i];
  439. delete $playerNameCache{$ID};
  440. $changed = 1;
  441. }
  442. }
  443. compactArray(@playerNameCacheIDs) if ($changed);
  445. # Resize the cache if it's still too large.
  446. # Default cache size: 100
  447. while (@playerNameCacheIDs > $config{cachePlayerNames_maxSize}) {
  448. my $ID = shift @playerNameCacheIDs;
  449. delete $playerNameCache{$ID};
  450. }
  452. # Add this player name to the cache.
  453. my $ID = $player->{ID};
  454. if (!$playerNameCache{$ID}) {
  455. push @playerNameCacheIDs, $ID;
  456. my %entry = (
  457. name => $player->{name},
  458. guild => $player->{guild},
  459. time => time,
  460. lv => $player->{lv},
  461. jobID => $player->{jobID}
  462. );
  463. $playerNameCache{$ID} = %entry;
  464. }
  465. }
  467. ##
  468. # useTeleport(level)
  469. # level: 1 to teleport to a random spot, 2 to respawn.
  470. sub useTeleport {
  471. my ($use_lvl, $internal, $emergency) = @_;
  473. my %args = (
  474. level => $use_lvl, # 1 = Teleport, 2 = respawn
  475. emergency => $emergency, # Needs a fast tele
  476. internal => $internal # Did we call useTeleport from inside useTeleport?
  477. );
  479. if ($use_lvl == 2 && $config{saveMap_warpChatCommand}) {
  480. Plugins::callHook('teleport_sent', %args);
  481. sendMessage($messageSender, "c", $config{saveMap_warpChatCommand});
  482. return 1;
  483. }
  485. if ($use_lvl == 1 && $config{teleportAuto_useChatCommand}) {
  486. Plugins::callHook('teleport_sent', %args);
  487. sendMessage($messageSender, "c", $config{teleportAuto_useChatCommand});
  488. return 1;
  489. }
  491. # for possible recursive calls
  492. if (!defined $internal) {
  493. $internal = $config{teleportAuto_useSkill};
  494. }
  496. # look if the character has the skill
  497. my $sk_lvl = 0;
  498. if ($char->{skills}{AL_TELEPORT}) {
  499. $sk_lvl = $char->{skills}{AL_TELEPORT}{lv};
  500. }
  502. # only if we want to use skill ?
  503. return if ($char->{muted});
  505. if ($sk_lvl > 0 && $internal > 0 && ($use_lvl == 1 || !$config{'teleportAuto_useItemForRespawn'})) {
  506. # We have the teleport skill, and should use it
  507. my $skill = new Skill(handle => 'AL_TELEPORT');
  508. if ($use_lvl == 2 || $internal == 1 || ($internal == 2 && !isSafe())) {
  509. # Send skill use packet to appear legitimate
  510. # (Always send skill use packet for level 2 so that saveMap
  511. # autodetection works)
  513. if ($char->{sitting}) {
  514. Plugins::callHook('teleport_sent', %args);
  515. main::ai_skillUse($skill->getHandle(), $use_lvl, 0, 0, $accountID);
  516. return 1;
  517. } else {
  518. $messageSender->sendSkillUse($skill->getIDN(), $sk_lvl, $accountID);
  519. undef $char->{permitSkill};
  520. }
  522. if (!$emergency && $use_lvl == 1) {
  523. Plugins::callHook('teleport_sent', %args);
  524. $timeout{ai_teleport_retry}{time} = time;
  525. AI::queue('teleport');
  526. return 1;
  527. }
  528. }
  530. delete $ai_v{temp}{teleport};
  531. debug "Sending Teleport using Level $use_lvln", "useTeleport";
  532. if ($use_lvl == 1) {
  533. Plugins::callHook('teleport_sent', %args);
  534. $messageSender->sendTeleport("Random");
  535. return 1;
  536. } elsif ($use_lvl == 2) {
  537. # check for possible skill level abuse
  538. message T("Using Teleport Skill Level 2 though we not have it!n"), "useTeleport" if ($sk_lvl == 1);
  540. # If saveMap is not set simply use a wrong .gat.
  541. # eAthena servers ignore it, but this trick doesn't work
  542. # on official servers.
  543. my $telemap = "prontera.gat";
  544. $telemap = "$config{saveMap}.gat" if ($config{saveMap} ne "");
  545. Plugins::callHook('teleport_sent', %args);
  546. $messageSender->sendTeleport($telemap);
  547. return 1;
  548. }
  549. }
  551. # No skill try to equip a Tele clip or something,
  552. # if teleportAuto_equip_* is set
  553. if (Actor::Item::scanConfigAndCheck('teleportAuto_equip') && ($use_lvl == 1 || !$config{'teleportAuto_useItemForRespawn'})) {
  554. return if AI::inQueue('teleport');
  555. debug "Equipping Accessory to teleportn", "useTeleport";
  556. AI::queue('teleport', {lv => $use_lvl});
  557. if ($emergency ||
  558.     !$config{teleportAuto_useSkill} ||
  559.     $config{teleportAuto_useSkill} == 3 ||
  560.     $config{teleportAuto_useSkill} == 2 && isSafe()) {
  561. $timeout{ai_teleport_delay}{time} = 1;
  562. }
  563. Actor::Item::scanConfigAndEquip('teleportAuto_equip');
  564. #Commands::run('aiv');
  565. return 1;
  566. }
  568. # else if $internal == 0 or $sk_lvl == 0
  569. # try to use item
  571. # could lead to problems if the ItemID would be different on some servers
  572. # 1 Jan 2006 - instead of nameID, search for *wing in the inventory
  573. my $item;
  574. if ($use_lvl == 1) {
  575. $item = $char->inventory->getByName("Fly Wing");
  576. } elsif ($use_lvl == 2) {
  577. $item = $char->inventory->getByName("Butterfly Wing");
  578. }
  580. if ($item) {
  581. # We have Fly Wing/Butterfly Wing.
  582. # Don't spam the "use fly wing" packet, or we'll end up using too many wings.
  583. if (timeOut($timeout{ai_teleport})) {
  584. Plugins::callHook('teleport_sent', %args);
  585. $messageSender->sendItemUse($item->{index}, $accountID);
  586. $timeout{ai_teleport}{time} = time;
  587. }
  588. return 1;
  589. }
  591. # no item, but skill is still available
  592. if ( $sk_lvl > 0 ) {
  593. message T("No Fly Wing or Butterfly Wing, fallback to Teleport Skilln"), "useTeleport";
  594. return useTeleport($use_lvl, 1, $emergency);
  595. }
  597. if ($use_lvl == 1) {
  598. message T("You don't have the Teleport skill or a Fly Wingn"), "teleport";
  599. } else {
  600. message T("You don't have the Teleport skill or a Butterfly Wingn"), "teleport";
  601. }
  603. return 0;
  604. }
  606. ##
  607. # top10Listing(args)
  608. # args: a 282 bytes packet representing 10 names followed by 10 ranks
  609. #
  610. # Returns a formatted list of [# ], Name and points
  611. sub top10Listing {
  612. my ($args) = @_;
  614. my $msg = $args->{RAW_MSG};
  616. my @list;
  617. my @points;
  618. my $i;
  619. my $textList = "";
  620. for ($i = 0; $i < 10; $i++) {
  621. $list[$i] = unpack("Z24", substr($msg, 2 + (24*$i), 24));
  622. }
  623. for ($i = 0; $i < 10; $i++) {
  624. $points[$i] = unpack("V1", substr($msg, 242 + ($i*4), 4));
  625. }
  626. for ($i = 0; $i < 10; $i++) {
  627. $textList .= swrite("[@<] @<<<<<<<<<<<<<<<<<<<<<<<<        @>>>>>>",
  628. [$i+1, $list[$i], $points[$i]]);
  629. }
  631. return $textList;
  632. }
  634. ##
  635. # whenGroundStatus(target, statuses, mine)
  636. # target: coordinates hash
  637. # statuses: a comma-separated list of ground effects e.g. Safety Wall,Pneuma
  638. # mine: if true, only consider ground effects that originated from me
  639. #
  640. # Returns 1 if $target has one of the ground effects specified by $statuses.
  641. sub whenGroundStatus {
  642. my ($pos, $statuses, $mine) = @_;
  644. my ($x, $y) = ($pos->{x}, $pos->{y});
  645. for my $ID (@spellsID) {
  646. my $spell;
  647. next unless $spell = $spells{$ID};
  648. next if $mine && $spell->{sourceID} ne $accountID;
  649. if ($x == $spell->{pos}{x} &&
  650.     $y == $spell->{pos}{y}) {
  651. return 1 if existsInList($statuses, getSpellName($spell->{type}));
  652. }
  653. }
  654. return 0;
  655. }
  657. sub whenStatusActive {
  658. my $statuses = shift;
  659. my @arr = split /s*,s*/, $statuses;
  660. foreach (@arr) {
  661. return 1 if exists($char->{statuses}{$_});
  662. }
  663. return 0;
  664. }
  666. sub whenStatusActiveMon {
  667. my ($monster, $statuses) = @_;
  668. my @arr = split /s*,s*/, $statuses;
  669. foreach (@arr) {
  670. return 1 if $monster->{statuses}{$_};
  671. }
  672. return 0;
  673. }
  675. sub whenStatusActivePL {
  676. my ($ID, $statuses) = @_;
  678. # Incase this method was called with empty values, send TRUE back... since the user doesnt have any statusses they want to check
  679. return 1 if (!$ID || !$statuses);
  680. return whenStatusActive($statuses) if ($ID eq $accountID);
  682. if (my $player = $playersList->getByID($ID)) {
  683. my @arr = split /s*,s*/, $statuses;
  684. foreach (@arr) {
  685. return 1 if $player->{statuses}{$_};
  686. }
  687. }
  688. if ($char->{party}{users}{$ID}{online}) {
  689. my @arr = split /s*,s*/, $statuses;
  690. foreach (@arr) {
  691. return 1 if $char->{party}{users}{$ID}{statuses}{$_};
  692. }
  693. }
  694. if (my $slave = $slavesList->getByID($ID)) {
  695. my @arr = split /s*,s*/, $statuses;
  696. foreach (@arr) {
  697. return 1 if $slave->{statuses}{$_};
  698. }
  699. }
  700. return 0;
  701. }
  703. sub writeStorageLog {
  704. my ($show_error_on_fail) = @_;
  705. my $f;
  707. if (open($f, ">:utf8", $Settings::storage_log_file)) {
  708. print $f TF("---------- Storage %s -----------n", getFormattedDate(int(time)));
  709. for (my $i = 0; $i < @storageID; $i++) {
  710. next if (!$storageID[$i]);
  711. my $item = $storage{$storageID[$i]};
  713. my $display = sprintf "%2d %s x %s", $i, $item->{name}, $item->{amount};
  714. # Translation Comment: Mark to show not identified items
  715. $display .= " -- " . T("Not Identified") if !$item->{identified};
  716. # Translation Comment: Mark to show broken items
  717. $display .= " -- " . T("Broken") if $item->{broken};
  718. print $f "$displayn";
  719. }
  720. # Translation Comment: Storage Capacity
  721. print $f TF("nCapacity: %d/%dn", $storage{items}, $storage{items_max});
  722. print $f "-------------------------------n";
  723. close $f;
  725. message T("Storage loggedn"), "success";
  727. } elsif ($show_error_on_fail) {
  728. error TF("Unable to write to %sn", $Settings::storage_log_file);
  729. }
  730. }
  732. ##
  733. # getBestTarget(possibleTargets, nonLOSNotAllowed)
  734. # possibleTargets: reference to an array of monsters' IDs
  735. # nonLOSNotAllowed: if set, non-LOS monsters (and monsters that aren't in attackMaxDistance) aren't checked up
  736. #
  737. # Returns ID of the best target
  738. sub getBestTarget {
  739. my ($possibleTargets, $nonLOSNotAllowed) = @_;
  740. if (!$possibleTargets) {
  741. return;
  742. }
  744. my $portalDist = $config{'attackMinPortalDistance'} || 4;
  745. my $playerDist = $config{'attackMinPlayerDistance'} || 1;
  747. my @noLOSMonsters;
  748. my $myPos = calcPosition($char);
  749. my ($highestPri, $smallestDist, $bestTarget);
  751. # First of all we check monsters in LOS, then the rest of monsters
  753. foreach (@{$possibleTargets}) {
  754. my $monster = $monsters{$_};
  755. my $pos = calcPosition($monster);
  756. next if (positionNearPlayer($pos, $playerDist)
  757. || positionNearPortal($pos, $portalDist)
  758. );
  759. if ((my $control = mon_control($monster->{name},$monster->{nameID}))) {
  760. next if ( ($control->{attack_auto} == -1)
  761. || ($control->{attack_lvl} ne "" && $control->{attack_lvl} > $char->{lv})
  762. || ($control->{attack_jlvl} ne "" && $control->{attack_jlvl} > $char->{lv_job})
  763. || ($control->{attack_hp}  ne "" && $control->{attack_hp} > $char->{hp})
  764. || ($control->{attack_sp}  ne "" && $control->{attack_sp} > $char->{sp})
  765. || ($control->{attack_auto} == 3 && ($monster->{dmgToYou} || $monster->{missedYou} || $monster->{dmgFromYou}))
  766. || ($control->{attack_auto} == 0 && !($monster->{dmgToYou} || $monster->{missedYou}))
  767. );
  768. }
  769. if ($config{'attackCanSnipe'}) {
  770. if (!checkLineSnipable($myPos, $pos)) {
  771. push(@noLOSMonsters, $_);
  772. next;
  773. }
  774. } else {
  775. if (!checkLineWalkable($myPos, $pos)) {
  776. push(@noLOSMonsters, $_);
  777. next;
  778. }
  779. }
  780. my $name = lc $monster->{name};
  781. my $dist = round(distance($myPos, $pos));
  783. # COMMENTED (FIX THIS): attackMaxDistance should never be used as indication of LOS
  784. #     The objective of attackMaxDistance is to determine the range of normal attack,
  785. #     and not the range of character's ability to engage monsters
  786. ## Monsters that aren't in attackMaxDistance are not checked up
  787. ##if ($nonLOSNotAllowed && ($config{'attackMaxDistance'} < $dist)) {
  788. ## next;
  789. ##}
  790. if (!defined($highestPri) || ($priority{$name} > $highestPri)) {
  791. $highestPri = $priority{$name};
  792. $smallestDist = $dist;
  793. $bestTarget = $_;
  794. }
  795. if ((!defined($highestPri) || $priority{$name} == $highestPri)
  796.   && (!defined($smallestDist) || $dist < $smallestDist)) {
  797. $highestPri = $priority{$name};
  798. $smallestDist = $dist;
  799. $bestTarget = $_;
  800. }
  801. }
  802. if (!$nonLOSNotAllowed && !$bestTarget && scalar(@noLOSMonsters) > 0) {
  803. foreach (@noLOSMonsters) {
  804. # The most optimal solution is to include the path lenghts' comparison, however it will take
  805. # more time and CPU resources, so, we use rough solution with priority and distance comparison
  807. my $monster = $monsters{$_};
  808. my $pos = calcPosition($monster);
  809. my $name = lc $monster->{name};
  810. my $dist = round(distance($myPos, $pos));
  811. if (!defined($highestPri) || ($priority{$name} > $highestPri)) {
  812. $highestPri = $priority{$name};
  813. $smallestDist = $dist;
  814. $bestTarget = $_;
  815. }
  816. if ((!defined($highestPri) || $priority{$name} == $highestPri)
  817.   && (!defined($smallestDist) || $dist < $smallestDist)) {
  818. $highestPri = $priority{$name};
  819. $smallestDist = $dist;
  820. $bestTarget = $_;
  821. }
  822. }
  823. }
  824. return $bestTarget;
  825. }
  827. ##
  828. # Returns 1 if there is a player nearby (except party and homunculus) or 0 if not
  829. sub isSafe {
  830. foreach (@playersID) {
  831. if (!$char->{party}{users}{$_} && (!$char->{homunculus} || $_ ne $char->{homunculus}{ID})) {
  832. return 0;
  833. }
  834. }
  835. return 1;
  836. }
  838. #######################################
  839. #######################################
  840. ###CATEGORY: Actor's Actions Text
  841. #######################################
  842. #######################################
  844. ##
  845. # String attack_string(Actor source, Actor target, int damage, int delay)
  846. #
  847. # Generates a proper message string for when actor $source attacks actor $target.
  848. sub attack_string {
  849. my ($source, $target, $damage, $delay) = @_;
  850. assert(UNIVERSAL::isa($source, 'Actor')) if DEBUG;
  851. assert(UNIVERSAL::isa($target, 'Actor')) if DEBUG;
  853. return TF("%s %s %s - Dmg: %s (delay %s)n",
  854. $source->nameString,
  855. $source->verb('attack', 'attacks'),
  856. $target->nameString($source),
  857. $damage, $delay);
  858. }
  860. sub skillCast_string {
  861. my ($source, $target, $x, $y, $skillName, $delay) = @_;
  862. assert(UNIVERSAL::isa($source, 'Actor')) if DEBUG;
  863. assert(UNIVERSAL::isa($target, 'Actor')) if DEBUG;
  865. # Location
  866. if ($x != 0 || $y != 0) {
  867. if ($source->isa('Actor::You')) {
  868. return TF("You are casting %s on location (%d, %d) - (time %sms)n", $skillName, $x, $y, $delay);
  869. } elsif ($source->isa('Actor::Player')) {
  870. return TF("Player %s (%d) is casting %s on location (%d, %d) - (time %sms)n", $source->name, 
  871. $source->{binID}, $skillName, $x, $y, $delay);
  872. } elsif ($source->isa('Actor::Monster')) {
  873. return TF("Monster %s (%d) is casting %s on location (%d, %d) - (time %sms)n", $source->name, 
  874. $source->{binID}, $skillName, $x, $y, $delay);
  875. } elsif ($source->isa('Actor::Slave')) {
  876. return TF("Slave %s (%d) is casting %s on location (%d, %d) - (time %sms)n", $source->name, 
  877. $source->{binID}, $skillName, $x, $y, $delay);
  878. } elsif ($source->isa('Actor::Unknown')) {
  879. return TF("Unknown #%s (%d) is casting %s on location (%d, %d) - (time %sms)n", $source->{nameID},
  880. $source->{binID}, $skillName, $x, $y, $delay);
  881. }
  883. # You
  884. } elsif ($source->isa('Actor::You')) {
  885. if ($target->isa('Actor::You')) {
  886. return TF("You are casting %s on yourself (time %sms)n", $skillName, $delay);
  887. } elsif ($target->isa('Actor::Player')) {
  888. return TF("You are casting %s on player %s (%d) (time %sms)n", $skillName,
  889. $target->name, $target->{binID}, $delay);
  890. } elsif ($target->isa('Actor::Monster')) {
  891. return TF("You are casting %s on monster %s (%d) (time %sms)n", $skillName,
  892. $target->name, $target->{binID}, $delay);
  893. } elsif ($target->isa('Actor::Slave')) {
  894. return TF("You are casting %s on slave %s (%d) (time %sms)n", $skillName,
  895. $target->name, $target->{binID}, $delay);
  896. } elsif ($target->isa('Actor::Unknown')) {
  897. return TF("You are casting %s on Unknown #%s (%d) (time %sms)n", $skillName,
  898. $target->{nameID}, $target->{binID}, $delay);
  899. }
  900. # Player
  901. } elsif ($source->isa('Actor::Player')) {
  902. if ($target->isa('Actor::You')) {
  903. return TF("Player %s (%d) is casting %s on you (time %sms)n", $source->name, $source->{binID},
  904. $skillName, $delay);
  905. } elsif ($target->isa('Actor::Player')) {
  906. # consider gender
  907. if ($source ne $target) {
  908. return TF("Player %s (%d) is casting %s on player %s (%d) (time %sms)n", $source->name,
  909. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  910. } elsif ($source->{sex}) {
  911. return TF("Player %s (%d) is casting %s on himself (time %sms)n", $source->name,
  912. $source->{binID}, $skillName, $delay);
  913. } else {
  914. return TF("Player %s (%d) is casting %s on herself (time %sms)n", $source->name,
  915. $source->{binID}, $skillName, $delay);
  916. }
  917. } elsif ($target->isa('Actor::Monster')) {
  918. return TF("Player %s (%d) is casting %s on monster %s (%d) (time %sms)n", $source->name,
  919. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  920. } elsif ($target->isa('Actor::Slave')) {
  921. return TF("Player %s (%d) is casting %s on slave %s (%d) (time %sms)n", $source->name,
  922. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  923. } elsif ($target->isa('Actor::Unknown')) {
  924. return TF("Player %s (%d) is casting %s on Unknown #%s (%d) (time %sms)n", $source->name,
  925. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $delay);
  926. }
  927. # Monster
  928. } elsif ($source->isa('Actor::Monster')) {
  929. if ($target->isa('Actor::You')) {
  930. return TF("Monster %s (%d) is casting %s on you (time %sms)n", $source->name,
  931. $source->{binID}, $skillName, $delay);
  932. } elsif ($target->isa('Actor::Player')) {
  933. return TF("Monster %s (%d) is casting %s on player %s (%d) (time %sms)n", $source->name,
  934. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  935. } elsif ($target->isa('Actor::Monster')) {
  936. if ($source ne $target) {
  937. return TF("Monster %s (%d) is casting %s on monster %s (%d) (time %sms)n", $source->name,
  938. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  939. } else {
  940. return TF("Monster %s (%d) is casting %s on itself (time %sms)n", $source->name,
  941. $source->{binID}, $skillName, $delay);
  942. }
  943. } elsif ($target->isa('Actor::Slave')) {
  944. return TF("Monster %s (%d) is casting %s on slave %s (%d) (time %sms)n", $source->name,
  945. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  946. } elsif ($target->isa('Actor::Unknown')) {
  947. return TF("Monster %s (%d) is casting %s on Unknown #%s (%d) (time %sms)n", $source->name,
  948. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $delay);
  949. }
  950. # Slave
  951. } elsif ($source->isa('Actor::Slave')) {
  952. if ($target->isa('Actor::You')) {
  953. return TF("Slave %s (%d) is casting %s on you (time %sms)n", $source->name,
  954. $source->{binID}, $skillName, $delay);
  955. } elsif ($target->isa('Actor::Player')) {
  956. return TF("Slave %s (%d) is casting %s on player %s (%d) (time %sms)n", $source->name,
  957. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  958. } elsif ($target->isa('Actor::Monster')) {
  959. return TF("Slave %s (%d) is casting %s on monster %s (%d) (time %sms)n", $source->name,
  960. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  961. } elsif ($target->isa('Actor::Slave')) {
  962. if ($source ne $target) {
  963. return TF("Slave %s (%d) is casting %s on slave %s (%d) (time %sms)n", $source->name,
  964. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  965. } else {
  966. return TF("Slave %s (%d) is casting %s on itself (time %sms)n", $source->name,
  967. $source->{binID}, $skillName, $delay);
  968. }
  969. } elsif ($target->isa('Actor::Unknown')) {
  970. return TF("Slave %s (%d) is casting %s on Unknown #%s (%d) (time %sms)n", $source->name,
  971. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $delay);
  972. }
  973. # Unknown
  974. } elsif ($source->isa('Actor::Unknown')) {
  975. if ($target->isa('Actor::You')) {
  976. return TF("Unknown #%s (%d) is casting %s on you (time %sms)n", $source->{nameID},
  977. $source->{binID}, $skillName, $delay);
  978. } elsif ($target->isa('Actor::Player')) {
  979. return TF("Unknown #%s (%d) is casting %s on player %s (%d) (time %sms)n", $source->{nameID},
  980. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  981. } elsif ($target->isa('Actor::Monster')) {
  982. return TF("Unknown #%s (%d) is casting %s on monster %s (%d) (time %sms)n", $source->{nameID},
  983. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  984. } elsif ($target->isa('Actor::Slave')) {
  985. return TF("Unknown #%s (%d) is casting %s on slave %s (%d) (time %sms)n", $source->{nameID},
  986. $source->{binID}, $skillName, $target->name, $target->{binID}, $delay);
  987. } elsif ($target->isa('Actor::Unknown')) {
  988. if ($source ne $target) {
  989. return TF("Unknown #%s (%d) is casting %s on Unknown #%s (%d) (time %sms)n", $source->{nameID},
  990. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $delay);
  991. } else {
  992. return TF("Unknown #%s (%d) is casting %s on himself (time %sms)n", $source->{nameID},
  993. $source->{binID}, $skillName, $delay);
  994. }
  995. }
  996. }
  997. }
  999. sub skillUse_string {
  1000. my ($source, $target, $skillName, $damage, $level, $delay) = @_;
  1001. assert(UNIVERSAL::isa($source, 'Actor')) if DEBUG;
  1002. assert(UNIVERSAL::isa($target, 'Actor')) if DEBUG;
  1004. $damage ||= "Miss!";
  1005. if ($damage != -30000) {
  1006. # Translation Comment: Ammount of Damage on Skill
  1007. $damage = "- " . TF("Dmg: %s", $damage) . " ";
  1008. } else {
  1009. $damage = '';
  1010. }
  1012. # Translation Comment: Skill name + level
  1013. $skillName = TF("%s (lvl %s)", $skillName, $level) unless $level == 65535;
  1015. # You
  1016. if ($source->isa('Actor::You')) {
  1017. if ($target->isa('Actor::You')) {
  1018. return TF("You use %s on yourself %s(delay %s)n", $skillName, $damage, $delay);
  1019. } elsif ($target->isa('Actor::Player')) {
  1020. return TF("You use %s on player %s (%d) %s(delay %s)n", $skillName,
  1021. $target->name, $target->{binID}, $damage, $delay);
  1022. } elsif ($target->isa('Actor::Monster')) {
  1023. return TF("You use %s on monster %s (%d) %s(delay %s)n", $skillName,
  1024. $target->name, $target->{binID}, $damage, $delay);
  1025. } elsif ($target->isa('Actor::Slave')) {
  1026. return TF("You use %s on slave %s (%d) %s(delay %s)n", $skillName,
  1027. $target->name, $target->{binID}, $damage, $delay);
  1028. } elsif ($target->isa('Actor::Unknown')) {
  1029. return TF("You use %s on Unknown #%s (%d) %s(delay %s)n", $skillName,
  1030. $target->{nameID}, $target->{binID}, $damage, $delay);
  1031. }
  1032. # Player
  1033. } elsif ($source->isa('Actor::Player')) {
  1034. if ($target->isa('Actor::You')) {
  1035. return TF("Player %s (%d) uses %s on you %s(delay %s)n", $source->name, $source->{binID},
  1036. $skillName, $damage, $delay);
  1037. } elsif ($target->isa('Actor::Player')) {
  1038. # consider gender
  1039. if ($source ne $target) {
  1040. return TF("Player %s (%d) uses %s on player %s (%d) %s(delay %s)n", $source->name,
  1041. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1042. } elsif ($source->{sex}) {
  1043. return TF("Player %s (%d) uses %s on himself %s(delay %s)n", $source->name,
  1044. $source->{binID}, $skillName, $damage, $delay);
  1045. } else {
  1046. return TF("Player %s (%d) uses %s on herself %s(delay %s)n", $source->name,
  1047. $source->{binID}, $skillName, $damage, $delay);
  1048. }
  1049. } elsif ($target->isa('Actor::Monster')) {
  1050. return TF("Player %s (%d) uses %s on monster %s (%d) %s(delay %s)n", $source->name,
  1051. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1052. } elsif ($target->isa('Actor::Slave')) {
  1053. return TF("Player %s (%d) uses %s on slave %s (%d) %s(delay %s)n", $source->name,
  1054. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1055. } elsif ($target->isa('Actor::Unknown')) {
  1056. return TF("Player %s (%d) uses %s on Unknown #%s (%d) %s(delay %s)n", $source->name,
  1057. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $damage, $delay);
  1058. }
  1059. # Monster
  1060. } elsif ($source->isa('Actor::Monster')) {
  1061. if ($target->isa('Actor::You')) {
  1062. return TF("Monster %s (%d) uses %s on you %s(delay %s)n", $source->name,
  1063. $source->{binID}, $skillName, $damage, $delay);
  1064. } elsif ($target->isa('Actor::Player')) {
  1065. return TF("Monster %s (%d) uses %s on player %s (%d) %s(delay %s)n", $source->name,
  1066. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1067. } elsif ($target->isa('Actor::Monster')) {
  1068. if ($source ne $target) {
  1069. return TF("Monster %s (%d) uses %s on monster %s (%d) %s(delay %s)n", $source->name,
  1070. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1071. } else {
  1072. return TF("Monster %s (%d) uses %s on itself %s(delay %s)n", $source->name,
  1073. $source->{binID}, $skillName, $damage, $delay);
  1074. }
  1075. } elsif ($target->isa('Actor::Slave')) {
  1076. return TF("Monster %s (%d) uses %s on slave %s (%d) %s(delay %s)n", $source->name,
  1077. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1078. } elsif ($target->isa('Actor::Unknown')) {
  1079. return TF("Monster %s (%d) uses %s on Unknown #%s (%d) %s(delay %s)n", $source->name,
  1080. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $damage, $delay);
  1081. }
  1082. # Slave
  1083. } elsif ($source->isa('Actor::Slave')) {
  1084. if ($target->isa('Actor::You')) {
  1085. return TF("Slave %s (%d) uses %s on you %s(delay %s)n", $source->name,
  1086. $source->{binID}, $skillName, $damage, $delay);
  1087. } elsif ($target->isa('Actor::Player')) {
  1088. return TF("Slave %s (%d) uses %s on player %s (%d) %s(delay %s)n", $source->name,
  1089. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1090. } elsif ($target->isa('Actor::Monster')) {
  1091. return TF("Slave %s (%d) uses %s on monster %s (%d) %s(delay %s)n", $source->name,
  1092. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1093. } elsif ($target->isa('Actor::Slave')) {
  1094. if ($source ne $target) {
  1095. return TF("Slave %s (%d) uses %s on slave %s (%d) %s(delay %s)n", $source->name,
  1096. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1097. } else {
  1098. return TF("Slave %s (%d) uses %s on itself %s(delay %s)n", $source->name,
  1099. $source->{binID}, $skillName, $damage, $delay);
  1100. }
  1101. } elsif ($target->isa('Actor::Unknown')) {
  1102. return TF("Slave %s (%d) uses %s on Unknown #%s (%d) %s(delay %s)n", $source->name,
  1103. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $damage, $delay);
  1104. }
  1105. # Unknown
  1106. } elsif ($source->isa('Actor::Unknown')) {
  1107. message "test2n";
  1108. if ($target->isa('Actor::You')) {
  1109. return TF("Unknown #%s (%d) uses %s on you %s(delay %s)n", $source->{nameID},
  1110. $source->{binID}, $skillName, $damage, $delay);
  1111. } elsif ($target->isa('Actor::Player')) {
  1112. return TF("Unknown #%s (%d) uses %s on player %s (%d) %s(delay %s)n", $source->{nameID},
  1113. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1114. } elsif ($target->isa('Actor::Monster')) {
  1115. return TF("Unknown #%s (%d) uses %s on monster %s (%d) %s(delay %s)n", $source->{nameID},
  1116. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1117. } elsif ($target->isa('Actor::Slave')) {
  1118. return TF("Unknown #%s (%d) uses %s on slave %s (%d) %s(delay %s)n", $source->{nameID},
  1119. $source->{binID}, $skillName, $target->name, $target->{binID}, $damage, $delay);
  1120. } elsif ($target->isa('Actor::Unknown')) {
  1121. if ($source ne $target) {
  1122. return TF("Unknown #%s (%d) uses %s on Unknown #%s (%d) %s(delay %s)n", $source->{nameID},
  1123. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $damage, $delay);
  1124. } else {
  1125. return TF("Unknown #%s (%d) uses %s on himself %s(delay %s)n", $source->{nameID},
  1126. $source->{binID}, $skillName, $damage, $delay);
  1127. }
  1128. }
  1129. }
  1130. }
  1132. sub skillUseLocation_string {
  1133. my ($source, $skillName, $args) = @_;
  1134. assert(UNIVERSAL::isa($source, 'Actor')) if DEBUG;
  1136. # Translation Comment: Skill name + level
  1137. $skillName = TF("%s (lvl %s)", $skillName, $args->{lv}) unless $args->{lv} == 65535;
  1139. if ($source->isa('Actor::You')) {
  1140. return TF("You use %s on location (%d, %d)n", $skillName, $args->{x}, $args->{y});
  1141. } elsif ($source->isa('Actor::Player')) {
  1142. return TF("Player %s (%d) uses %s on location (%d, %d)n", $source->name,
  1143. $source->{binID}, $skillName, $args->{x}, $args->{y});
  1144. } elsif ($source->isa('Actor::Monster')) {
  1145. return TF("Monster %s (%d) uses %s on location (%d, %d)n", $source->name,
  1146. $source->{binID}, $skillName, $args->{x}, $args->{y});
  1147. } elsif ($source->isa('Actor::Slave')) {
  1148. return TF("Slave %s (%d) uses %s on location (%d, %d)n", $source->name,
  1149. $source->{binID}, $skillName, $args->{x}, $args->{y});
  1150. } elsif ($source->isa('Actor::Unknown')) {
  1151. return TF("Unknown #%s (%d) uses %s on location (%d, %d)n", $source->{nameID},
  1152. $source->{binID}, $skillName, $args->{x}, $args->{y});
  1153. }
  1154. }
  1156. sub skillUseNoDamage_string {
  1157. my ($source, $target, $skillID, $skillName, $amount) = @_;
  1158. assert(UNIVERSAL::isa($source, 'Actor')) if DEBUG;
  1159. assert(UNIVERSAL::isa($target, 'Actor')) if DEBUG;
  1161. if ($skillID == 28) {
  1162. # Translation Comment: used Healing skill
  1163. $amount = ': ' . TF("%s hp gained", $amount);
  1164. } else {
  1165. if ($amount) {
  1166. # Translation Comment: used non-Healing skill - displays skill level
  1167. $amount = ': ' . TF("Lv %s", $amount);
  1168. } else {
  1169. $amount = '';
  1170. }
  1171. }
  1173. if ($source->isa('Actor::You')) {
  1174. if ($target->isa('Actor::You')) {
  1175. return TF("You use %s on yourself %sn", $skillName, $amount);
  1176. } else {
  1177. # Translation Comment: You use a certain skill on an actor.
  1178. return TF("You use %s on %s %sn", $skillName, $target->nameString, $amount);
  1179. }
  1180. # Player
  1181. } elsif ($source->isa('Actor::Player')) {
  1182. if ($target->isa('Actor::You')) {
  1183. return TF("Player %s uses %s on you %sn", $source->name,
  1184. $skillName, $amount);
  1185. } elsif ($target->isa('Actor::Player')) {
  1186. # consider gender
  1187. if ($source ne $target) {
  1188. return TF("Player %s (%d) uses %s on player %s (%d) %sn", $source->name,
  1189. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1190. } elsif ($source->{sex}) {
  1191. return TF("Player %s (%d) uses %s on himself %sn", $source->name,
  1192. $source->{binID}, $skillName, $amount);
  1193. } else {
  1194. return TF("Player %s (%d) uses %s on herself %sn", $source->name,
  1195. $source->{binID}, $skillName, $amount);
  1196. }
  1197. } elsif ($target->isa('Actor::Monster')) {
  1198. return TF("Player %s (%d) uses %s on monster %s (%d) %sn", $source->name,
  1199. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1200. } elsif ($target->isa('Actor::Slave')) {
  1201. return TF("Player %s (%d) uses %s on slave %s (%d) %sn", $source->name,
  1202. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1203. } elsif ($target->isa('Actor::Unknown')) {
  1204. return TF("Player %s (%d) uses %s on Unknown #%s (%d) %sn", $source->name,
  1205. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $amount);
  1206. }
  1207. # Monster
  1208. } elsif ($source->isa('Actor::Monster')) {
  1209. if ($target->isa('Actor::You')) {
  1210. return TF("Monster %s (%d) uses %s on you %sn", $source->name,
  1211. $source->{binID}, $skillName, $amount);
  1212. } elsif ($target->isa('Actor::Player')) {
  1213. return TF("Monster %s (%d) uses %s on player %s (%d) %sn", $source->name,
  1214. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1215. } elsif ($target->isa('Actor::Monster')) {
  1216. if ($source ne $target) {
  1217. return TF("Monster %s (%d) uses %s on monster %s (%d) %sn", $source->name,
  1218. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1219. } else {
  1220. return TF("Monster %s (%d) uses %s on itself %sn", $source->name,
  1221. $source->{binID}, $skillName, $amount);
  1222. }
  1223. } elsif ($target->isa('Actor::Slave')) {
  1224. return TF("Monster %s (%d) uses %s on slave %s (%d) %sn", $source->name,
  1225. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1226. } elsif ($target->isa('Actor::Unknown')) {
  1227. return TF("Monster %s (%d) uses %s on Unknown #%s (%d) %sn", $source->name,
  1228. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $amount);
  1229. }
  1230. # Slave
  1231. } elsif ($source->isa('Actor::Slave')) {
  1232. if ($target->isa('Actor::You')) {
  1233. return TF("Slave %s (%d) uses %s on you %sn", $source->name,
  1234. $source->{binID}, $skillName, $amount);
  1235. } elsif ($target->isa('Actor::Player')) {
  1236. return TF("Slave %s (%d) uses %s on player %s (%d) %sn", $source->name,
  1237. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1238. } elsif ($target->isa('Actor::Monster')) {
  1239. return TF("Slave %s (%d) uses %s on monster %s (%d) %sn", $source->name,
  1240. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1241. } elsif ($target->isa('Actor::Slave')) {
  1242. if ($source ne $target) {
  1243. return TF("Slave %s (%d) uses %s on slave %s (%d) %sn", $source->name,
  1244. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1245. } else {
  1246. return TF("Slave %s (%d) uses %s on itself %sn", $source->name,
  1247. $source->{binID}, $skillName, $amount);
  1248. }
  1249. } elsif ($target->isa('Actor::Unknown')) {
  1250. return TF("Slave %s (%d) uses %s on Unknown #%s (%d) %sn", $source->name,
  1251. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $amount);
  1252. }
  1253. # Unknown
  1254. } elsif ($source->isa('Actor::Unknown')) {
  1255. if ($target->isa('Actor::You')) {
  1256. return TF("Unknown #%s (%d) uses %s on you %sn", $source->{nameID},
  1257. $source->{binID}, $skillName, $amount);
  1258. } elsif ($target->isa('Actor::Player')) {
  1259. return TF("Unknown #%s (%d) uses %s on player %s (%d) %sn", $source->{nameID},
  1260. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1261. } elsif ($target->isa('Actor::Monster')) {
  1262. return TF("Unknown #%s (%d) uses %s on monster %s (%d) %sn", $source->{nameID},
  1263. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1264. } elsif ($target->isa('Actor::Slave')) {
  1265. return TF("Unknown #%s (%d) uses %s on slave %s (%d) %sn", $source->{nameID},
  1266. $source->{binID}, $skillName, $target->name, $target->{binID}, $amount);
  1267. } elsif ($target->isa('Actor::Unknown')) {
  1268. if ($source ne $target) {
  1269. return TF("Unknown #%s (%d) uses %s on Unknown #%s (%d) %sn", $source->{nameID},
  1270. $source->{binID}, $skillName, $target->{nameID}, $target->{binID}, $amount);
  1271. } else {
  1272. return TF("Unknown #%s (%d) uses %s on himself %sn", $source->{nameID},
  1273. $source->{binID}, $skillName, $amount);
  1274. }
  1275. }
  1276. }
  1277. }
  1279. sub status_string {
  1280. my ($source, $statusName, $mode, $seconds) = @_;
  1281. assert(UNIVERSAL::isa($source, 'Actor')) if DEBUG;
  1283. if ($mode eq 'now') {
  1284. if ($source->isa('Actor::You')) {
  1285. if (($seconds)&&($seconds > 0)) {
  1286. return TF("You are now: %s for: %s seconds.n", $statusName, $seconds || "N/A");
  1287. } else {
  1288. return TF("You are now: %sn", $statusName);
  1289. }
  1290. } elsif ($source->isa('Actor::Player')) {
  1291. return TF("Player %s (%d) is now: %sn", $source->name, $source->{binID}, $statusName);
  1292. } elsif ($source->isa('Actor::Monster')) {
  1293. return TF("Monster %s (%d) is now: %sn", $source->name, $source->{binID}, $statusName);
  1294. } elsif ($source->isa('Actor::Slave')) {
  1295. return TF("Slave %s (%d) is now: %sn", $source->name, $source->{binID}, $statusName);
  1296. } elsif ($source->isa('Actor::Unknown')) {
  1297. return TF("Unknown #%s (%d) is now: %sn", $source->{nameID}, $source->{binID}, $statusName);
  1298. }
  1299. } elsif ($mode eq 'again') {
  1300. if ($source->isa('Actor::You')) {
  1301. if (($seconds)&&($seconds > 0)) {
  1302. return TF("You are again: %s for: %s seconds.n", $statusName, $seconds || "N/A");
  1303. } else {
  1304. return TF("You are again: %sn", $statusName);
  1305. }
  1306. } elsif ($source->isa('Actor::Player')) {
  1307. return TF("Player %s (%d) is again: %sn", $source->name, $source->{binID}, $statusName);
  1308. } elsif ($source->isa('Actor::Monster')) {
  1309. return TF("Monster %s (%d) is again: %sn", $source->name, $source->{binID}, $statusName);
  1310. } elsif ($source->isa('Actor::Slave')) {
  1311. return TF("Slave %s (%d) is again: %sn", $source->name, $source->{binID}, $statusName);
  1312. } elsif ($source->isa('Actor::Unknown')) {
  1313. return TF("Unknown #%s (%d) is again: %sn", $source->{nameID}, $source->{binID}, $statusName);
  1314. }
  1315. } elsif ($mode eq 'no longer') {
  1316. if ($source->isa('Actor::You')) {
  1317. return TF("You are no longer: %sn", $statusName);
  1318. } elsif ($source->isa('Actor::Player')) {
  1319. return TF("Player %s (%d) is no longer: %sn", $source->name, $source->{binID}, $statusName);
  1320. } elsif ($source->isa('Actor::Monster')) {
  1321. return TF("Monster %s (%d) is no longer: %sn", $source->name, $source->{binID}, $statusName);
  1322. } elsif ($source->isa('Actor::Slave')) {
  1323. return TF("Slave %s (%d) is no longer: %sn", $source->name, $source->{binID}, $statusName);
  1324. } elsif ($source->isa('Actor::Unknown')) {
  1325. return TF("Unknown #%s (%d) is no longer: %sn", $source->{nameID}, $source->{binID}, $statusName);
  1326. }
  1327. }
  1328. }
  1330. #######################################
  1331. #######################################
  1332. ###CATEGORY: AI Math
  1333. #######################################
  1334. #######################################
  1336. sub lineIntersection {
  1337. my $r_pos1 = shift;
  1338. my $r_pos2 = shift;
  1339. my $r_pos3 = shift;
  1340. my $r_pos4 = shift;
  1341. my ($x1, $x2, $x3, $x4, $y1, $y2, $y3, $y4, $result, $result1, $result2);
  1342. $x1 = $$r_pos1{'x'};
  1343. $y1 = $$r_pos1{'y'};
  1344. $x2 = $$r_pos2{'x'};
  1345. $y2 = $$r_pos2{'y'};
  1346. $x3 = $$r_pos3{'x'};
  1347. $y3 = $$r_pos3{'y'};
  1348. $x4 = $$r_pos4{'x'};
  1349. $y4 = $$r_pos4{'y'};
  1350. $result1 = ($x4 - $x3)*($y1 - $y3) - ($y4 - $y3)*($x1 - $x3);
  1351. $result2 = ($y4 - $y3)*($x2 - $x1) - ($x4 - $x3)*($y2 - $y1);
  1352. if ($result2 != 0) {
  1353. $result = $result1 / $result2;
  1354. }
  1355. return $result;
  1356. }
  1358. sub percent_hp {
  1359. my $r_hash = shift;
  1360. if (!$$r_hash{'hp_max'}) {
  1361. return 0;
  1362. } else {
  1363. return ($$r_hash{'hp'} / $$r_hash{'hp_max'} * 100);
  1364. }
  1365. }
  1367. sub percent_sp {
  1368. my $r_hash = shift;
  1369. if (!$$r_hash{'sp_max'}) {
  1370. return 0;
  1371. } else {
  1372. return ($$r_hash{'sp'} / $$r_hash{'sp_max'} * 100);
  1373. }
  1374. }
  1376. sub percent_weight {
  1377. my $r_hash = shift;
  1378. if (!$$r_hash{'weight_max'}) {
  1379. return 0;
  1380. } else {
  1381. return ($$r_hash{'weight'} / $$r_hash{'weight_max'} * 100);
  1382. }
  1383. }
  1386. #######################################
  1387. #######################################
  1388. ###CATEGORY: Misc Functions
  1389. #######################################
  1390. #######################################
  1392. sub avoidGM_near {
  1393. my $players = $playersList->getItems();
  1394. foreach my $player (@{$players}) {
  1395. # skip this person if we dont know the name
  1396. next if (!defined $player->{name});
  1398. # Check whether this "GM" is on the ignore list
  1399. # in order to prevent false matches
  1400. last if (existsInList($config{avoidGM_ignoreList}, $player->{name}));
  1402. # check if this name matches the GM filter
  1403. last unless ($config{avoidGM_namePattern} ? $player->{name} =~ /$config{avoidGM_namePattern}/ : $player->{name} =~ /^([a-z]?ro)?-?(Sub)?-?[?GM]?/i);
  1405. my %args = (
  1406. name => $player->{name},
  1407. ID => $player->{ID}
  1408. );
  1409. Plugins::callHook('avoidGM_near', %args);
  1410. return 1 if ($args{return});
  1412. my $msg;
  1413. if ($config{avoidGM_near} == 1) {
  1414. # Mode 1: teleport & disconnect
  1415. useTeleport(1);
  1416. $msg = TF("GM %s is nearby, teleport & disconnect for %d seconds", $player->{name}, $config{avoidGM_reconnect});
  1417. relog($config{avoidGM_reconnect}, 1);
  1419. } elsif ($config{avoidGM_near} == 2) {
  1420. # Mode 2: disconnect
  1421. $msg = TF("GM %s is nearby, disconnect for %s seconds", $player->{name}, $config{avoidGM_reconnect});
  1422. relog($config{avoidGM_reconnect}, 1);
  1424. } elsif ($config{avoidGM_near} == 3) {
  1425. # Mode 3: teleport
  1426. useTeleport(1);
  1427. $msg = TF("GM %s is nearby, teleporting", $player->{name});
  1429. } elsif ($config{avoidGM_near} >= 4) {
  1430. # Mode 4: respawn
  1431. useTeleport(2);
  1432. $msg = TF("GM %s is nearby, respawning", $player->{name});
  1433. }
  1435. warning "$msgn";
  1436. chatLog("k", "*** $msg ***n");
  1438. return 1;
  1439. }
  1440. return 0;
  1441. }
  1443. ##
  1444. # avoidList_near()
  1445. # Returns: 1 if someone was detected, 0 if no one was detected.
  1446. #
  1447. # Checks if any of the surrounding players are on the avoid.txt avoid list.
  1448. # Disconnects / teleports if a player is detected.
  1449. sub avoidList_near {
  1450. return if ($config{avoidList_inLockOnly} && $field{name} ne $config{lockMap});
  1452. my $players = $playersList->getItems();
  1453. foreach my $player (@{$players}) {
  1454. my $avoidPlayer = $avoid{Players}{lc($player->{name})};
  1455. my $avoidID = $avoid{ID}{$player->{nameID}};
  1456. if (!$net->clientAlive() && ( ($avoidPlayer && $avoidPlayer->{disconnect_on_sight}) || ($avoidID && $avoidID->{disconnect_on_sight}) )) {
  1457. warning TF("%s (%s) is nearby, disconnecting...n", $player->{name}, $player->{nameID});
  1458. chatLog("k", TF("*** Found %s (%s) nearby and disconnected ***n", $player->{name}, $player->{nameID}));
  1459. warning TF("Disconnect for %s seconds...n", $config{avoidList_reconnect});
  1460. relog($config{avoidList_reconnect}, 1);
  1461. return 1;
  1463. } elsif (($avoidPlayer && $avoidPlayer->{teleport_on_sight}) || ($avoidID && $avoidID->{teleport_on_sight})) {
  1464. message TF("Teleporting to avoid player %s (%s)n", $player->{name}, $player->{nameID}), "teleport";
  1465. chatLog("k", TF("*** Found %s (%s) nearby and teleported ***n", $player->{name}, $player->{nameID}));
  1466. useTeleport(1);
  1467. return 1;
  1468. }
  1469. }
  1470. return 0;
  1471. }
  1473. sub avoidList_ID {
  1474. return if (!($config{avoidList}) || ($config{avoidList_inLockOnly} && $field{name} ne $config{lockMap}));
  1476. my $avoidID = unpack("V", shift);
  1477. if ($avoid{ID}{$avoidID} && $avoid{ID}{$avoidID}{disconnect_on_sight}) {
  1478. warning TF("%s is nearby, disconnecting...n", $avoidID);
  1479. chatLog("k", TF("*** Found %s nearby and disconnected ***n", $avoidID));
  1480. warning TF("Disconnect for %s seconds...n", $config{avoidList_reconnect});
  1481. relog($config{avoidList_reconnect}, 1);
  1482. return 1;
  1483. }
  1484. return 0;
  1485. }
  1487. sub compilePortals {
  1488. my $checkOnly = shift;
  1490. my %mapPortals;
  1491. my %mapSpawns;
  1492. my %missingMap;
  1493. my $pathfinding;
  1494. my @solution;
  1495. my $field;
  1497. # Collect portal source and destination coordinates per map
  1498. foreach my $portal (keys %portals_lut) {
  1499. $mapPortals{$portals_lut{$portal}{source}{map}}{$portal}{x} = $portals_lut{$portal}{source}{x};
  1500. $mapPortals{$portals_lut{$portal}{source}{map}}{$portal}{y} = $portals_lut{$portal}{source}{y};
  1501. foreach my $dest (keys %{$portals_lut{$portal}{dest}}) {
  1502. next if $portals_lut{$portal}{dest}{$dest}{map} eq '';
  1503. $mapSpawns{$portals_lut{$portal}{dest}{$dest}{map}}{$dest}{x} = $portals_lut{$portal}{dest}{$dest}{x};
  1504. $mapSpawns{$portals_lut{$portal}{dest}{$dest}{map}}{$dest}{y} = $portals_lut{$portal}{dest}{$dest}{y};
  1505. }
  1506. }
  1508. $pathfinding = new PathFinding if (!$checkOnly);
  1510. # Calculate LOS values from each spawn point per map to other portals on same map
  1511. foreach my $map (sort keys %mapSpawns) {
  1512. message TF("Processing map %s...n", $map), "system" unless $checkOnly;
  1513. foreach my $spawn (keys %{$mapSpawns{$map}}) {
  1514. foreach my $portal (keys %{$mapPortals{$map}}) {
  1515. next if $spawn eq $portal;
  1516. next if $portals_los{$spawn}{$portal} ne '';
  1517. return 1 if $checkOnly;
  1518. if ((!$field || $field->{name} ne $map) && !$missingMap{$map}) {
  1519. eval {
  1520. $field = new Field(name => $map);
  1521. };
  1522. if ($@) {
  1523. $missingMap{$map} = 1;
  1524. }
  1525. }
  1527. my %start = %{$mapSpawns{$map}{$spawn}};
  1528. my %dest = %{$mapPortals{$map}{$portal}};
  1529. closestWalkableSpot($field, %start);
  1530. closestWalkableSpot($field, %dest);
  1532. $pathfinding->reset(
  1533. start => %start,
  1534. dest  => %dest,
  1535. field => $field
  1536. );
  1537. my $count = $pathfinding->runcount;
  1538. $portals_los{$spawn}{$portal} = ($count >= 0) ? $count : 0;
  1539. debug "LOS in $map from $start{x},$start{y} to $dest{x},$dest{y}: $portals_los{$spawn}{$portal}n";
  1540. }
  1541. }
  1542. }
  1543. return 0 if $checkOnly;
  1545. # Write new portalsLOS.txt
  1546. writePortalsLOS(Settings::getTableFilename("portalsLOS.txt"), %portals_los);
  1547. message TF("Wrote portals Line of Sight table to '%s'n", Settings::getTableFilename("portalsLOS.txt")), "system";
  1549. # Print warning for missing fields
  1550. if (%missingMap) {
  1551. warning TF("----------------------------Error Summary----------------------------n");
  1552. warning TF("Missing: %s.fldn", $_) foreach (sort keys %missingMap);
  1553. warning TF("Note: LOS information for the above listed map(s) will be inaccurate;n" .
  1554. "      however it is safe to ignore if those map(s) are not usedn");
  1555. warning TF("----------------------------Error Summary----------------------------n");
  1556. }
  1557. }
  1559. sub compilePortals_check {
  1560. return compilePortals(1);
  1561. }
  1563. sub portalExists {
  1564. my ($map, $r_pos) = @_;
  1565. foreach (keys %portals_lut) {
  1566. if ($portals_lut{$_}{source}{map} eq $map
  1567.     && $portals_lut{$_}{source}{x} == $r_pos->{x}
  1568.     && $portals_lut{$_}{source}{y} == $r_pos->{y}) {
  1569. return $_;
  1570. }
  1571. }
  1572. return;
  1573. }
  1575. sub portalExists2 {
  1576. my ($src, $src_pos, $dest, $dest_pos) = @_;
  1577. my $srcx = $src_pos->{x};
  1578. my $srcy = $src_pos->{y};
  1579. my $destx = $dest_pos->{x};
  1580. my $desty = $dest_pos->{y};
  1581. my $destID = "$dest $destx $desty";
  1583. foreach (keys %portals_lut) {
  1584. my $entry = $portals_lut{$_};
  1585. if ($entry->{source}{map} eq $src
  1586.  && $entry->{source}{pos}{x} == $srcx
  1587.  && $entry->{source}{pos}{y} == $srcy
  1588.  && $entry->{dest}{$destID}) {
  1589. return $_;
  1590. }
  1591. }
  1592. return;
  1593. }
  1595. sub redirectXKoreMessages {
  1596. my ($type, $domain, $level, $globalVerbosity, $message, $user_data) = @_;
  1598. return if ($config{'XKore_silent'} || $type eq "debug" || $level > 0 || $net->getState() != Network::IN_GAME || $XKore_dontRedirect);
  1599. return if ($domain =~ /^(connection|startup|pm|publicchat|guildchat|guildnotice|selfchat|emotion|drop|inventory|deal|storage|input)$/);
  1600. return if ($domain =~ /^(attack|skill|list|info|partychat|npc|route)/);
  1602. $message =~ s/n*$//s;
  1603. $message =~ s/n/\n/g;
  1604. sendMessage($messageSender, "k", $message);
  1605. }
  1607. sub monKilled {
  1608. $monkilltime = time();
  1609. # if someone kills it
  1610. if (($monstarttime == 0) || ($monkilltime < $monstarttime)) {
  1611. $monstarttime = 0;
  1612. $monkilltime = 0;
  1613. }
  1614. $elasped = $monkilltime - $monstarttime;
  1615. $totalelasped = $totalelasped + $elasped;
  1616. if ($totalelasped == 0) {
  1617. $dmgpsec = 0
  1618. } else {
  1619. $dmgpsec = $totaldmg / $totalelasped;
  1620. }
  1621. }
  1623. # Resolves a player or monster ID into a name
  1624. # Obsoleted by Actor module, don't use this!
  1625. sub getActorName {
  1626. my $id = shift;
  1628. if (!$id) {
  1629. return 'Nothing';
  1630. } else {
  1631. my $hash = Actor::get($id);
  1632. return $hash->nameString;
  1633. }
  1634. }
  1636. # Resolves a pair of player/monster IDs into names
  1637. sub getActorNames {
  1638. my ($sourceID, $targetID, $verb1, $verb2) = @_;
  1640. my $source = getActorName($sourceID);
  1641. my $verb = $source eq 'You' ? $verb1 : $verb2;
  1642. my $target;
  1644. if ($targetID eq $sourceID) {
  1645. if ($targetID eq $accountID) {
  1646. $target = 'yourself';
  1647. } else {
  1648. $target = 'self';
  1649. }
  1650. } else {
  1651. $target = getActorName($targetID);
  1652. }
  1654. return ($source, $verb, $target);
  1655. }
  1657. # return ID based on name if party member is online
  1658. sub findPartyUserID {
  1659. if ($char->{party} && %{$char->{party}}) {
  1660. my $partyUserName = shift;
  1661. for (my $j = 0; $j < @partyUsersID; $j++) {
  1662.          next if ($partyUsersID[$j] eq "");
  1663. if ($partyUserName eq $char->{party}{users}{$partyUsersID[$j]}{name}
  1664. && $char->{party}{users}{$partyUsersID[$j]}{online}) {
  1665. return $partyUsersID[$j];
  1666. }
  1667. }
  1668. }
  1670. return undef;
  1671. }
  1673. # fill in a hash of NPC information either based on location ("map x y")
  1674. sub getNPCInfo {
  1675. my $id = shift;
  1676. my $return_hash = shift;
  1678. undef %{$return_hash};
  1680. my ($map, $x, $y) = split(/ +/, $id, 3);
  1682. $$return_hash{map} = $map;
  1683. $$return_hash{pos}{x} = $x;
  1684. $$return_hash{pos}{y} = $y;
  1686. if (($$return_hash{map} ne "") && ($$return_hash{pos}{x} ne "") && ($$return_hash{pos}{y} ne "")) {
  1687. $$return_hash{ok} = 1;
  1688. } else {
  1689. error TF("Invalid NPC information for autoBuy, autoSell or autoStorage! (%s)n", $id);
  1690. }
  1691. }
  1693. sub checkSelfCondition {
  1694. my $prefix = shift;
  1695. return 0 if (!$prefix);
  1696. return 0 if ($config{$prefix . "_disabled"});
  1698. return 0 if $config{$prefix."_whenIdle"} && !AI::isIdle();
  1700. # *_manualAI 0 = auto only
  1701. # *_manualAI 1 = manual only
  1702. # *_manualAI 2 = auto or manual
  1703.      if ($config{$prefix . "_manualAI"} == 0 || !(defined $config{$prefix . "_manualAI"})) {
  1704. return 0 if ($AI != 2);
  1705. }elsif ($config{$prefix . "_manualAI"} == 1){
  1706.           return 0 if ($AI != 1);
  1707.   }else {
  1708.           return 0 if ($AI == 0);
  1709. }
  1711. if ($config{$prefix . "_hp"}) {
  1712. if ($config{$prefix."_hp"} =~ /^(.*)%$/) {
  1713. return 0 if (!inRange($char->hp_percent, $1));
  1714. } else {
  1715. return 0 if (!inRange($char->{hp}, $config{$prefix."_hp"}));
  1716. }
  1717. }
  1719. if ($config{$prefix."_sp"}) {
  1720. if ($config{$prefix."_sp"} =~ /^(.*)%$/) {
  1721. return 0 if (!inRange($char->sp_percent, $1));
  1722. } else {
  1723. return 0 if (!inRange($char->{sp}, $config{$prefix."_sp"}));
  1724. }
  1725. }
  1727. if ($config{$prefix."_homunculus"} =~ /S/) {
  1728. return 0 if (!!$config{$prefix."_homunculus"}) ^ ($char->{homunculus} && !$char->{homunculus}{state});
  1729. }
  1731. if ($char->{homunculus}) {
  1732. if ($config{$prefix . "_homunculus_hp"}) {
  1733. if ($config{$prefix."_homunculus_hp"} =~ /^(.*)%$/) {
  1734. return 0 if (!inRange($char->{homunculus}{hpPercent}, $1));
  1735. } else {
  1736. return 0 if (!inRange($char->{homunculus}{hp}, $config{$prefix."_homunculus_hp"}));
  1737. }
  1738. }
  1740. if ($config{$prefix."_homunculus_sp"}) {
  1741. if ($config{$prefix."_homunculus_sp"} =~ /^(.*)%$/) {
  1742. return 0 if (!inRange($char->{homunculus}{spPercent}, $1));
  1743. } else {
  1744. return 0 if (!inRange($char->{homunculus}{sp}, $config{$prefix."_homunculus_sp"}));
  1745. }
  1746. }
  1748. if ($config{$prefix."_homunculus_dead"}) {
  1749. return 0 unless ($char->{homunculus}{state} & 4);
  1750. }
  1751. }
  1753. if ($config{$prefix."_mercenary"} =~ /S/) {
  1754. return 0 if (!!$config{$prefix."_mercenary"}) ^ (!!$char->{mercenary});
  1755. }
  1757. if ($char->{mercenary}) {
  1758. if ($config{$prefix . "_mercenary_hp"}) {
  1759. if ($config{$prefix."_mercenary_hp"} =~ /^(.*)%$/) {
  1760. return 0 if (!inRange($char->{mercenary}{hpPercent}, $1));
  1761. } else {
  1762. return 0 if (!inRange($char->{mercenary}{hp}, $config{$prefix."_mercenary_hp"}));
  1763. }
  1764. }
  1766. if ($config{$prefix."_mercenary_sp"}) {
  1767. if ($config{$prefix."_mercenary_sp"} =~ /^(.*)%$/) {
  1768. return 0 if (!inRange($char->{mercenary}{spPercent}, $1));
  1769. } else {
  1770. return 0 if (!inRange($char->{mercenary}{sp}, $config{$prefix."_mercenary_sp"}));
  1771. }
  1772. }
  1774. if ($config{$prefix . "_mercenary_whenStatusActive"}) { return 0 unless (whenStatusActivePL($char->{mercenary}, $config{$prefix . "_mercenary_whenStatusActive"})); }
  1775. if ($config{$prefix . "_mercenary_whenStatusInactive"}) { return 0 if (whenStatusActivePL($char->{mercenary}, $config{$prefix . "_mercenary_whenStatusInactive"})); }
  1776. }
  1778. # check skill use SP if this is a 'use skill' condition
  1779. if ($prefix =~ /skill/i) {
  1780. my $skill_handle = Skill->new(name => lc($config{$prefix}))->getHandle();
  1781. return 0 unless (($char->{skills}{$skill_handle} && $char->{skills}{$skill_handle}{lv} >= 1)
  1782. || ($char->{permitSkill} && $char->{permitSkill}->getName() eq $config{$prefix})
  1783. || $config{$prefix."_equip_leftAccessory"}
  1784. || $config{$prefix."_equip_rightAccessory"}
  1785. || $config{$prefix."_equip_leftHand"}
  1786. || $config{$prefix."_equip_rightHand"}
  1787. || $config{$prefix."_equip_robe"}
  1788. );
  1789. return 0 unless ($char->{sp} >= $skillsSP_lut{$skill_handle}{$config{$prefix . "_lvl"}});
  1790. }
  1792. if (defined $config{$prefix . "_aggressives"}) {
  1793. return 0 unless (inRange(scalar ai_getAggressives(), $config{$prefix . "_aggressives"}));
  1794. }
  1796. if (defined $config{$prefix . "_partyAggressives"}) {
  1797. return 0 unless (inRange(scalar ai_getAggressives(undef, 1), $config{$prefix . "_partyAggressives"}));
  1798. }
  1800. if ($config{$prefix . "_stopWhenHit"} > 0) { return 0 if (scalar ai_getMonstersAttacking($accountID)); }
  1802. if ($config{$prefix . "_whenFollowing"} && $config{follow}) {
  1803. return 0 if (!checkFollowMode());
  1804. }
  1806. if ($config{$prefix . "_whenStatusActive"}) { return 0 unless (whenStatusActive($config{$prefix . "_whenStatusActive"})); }
  1807. if ($config{$prefix . "_whenStatusInactive"}) { return 0 if (whenStatusActive($config{$prefix . "_whenStatusInactive"})); }
  1809. if ($config{$prefix . "_onAction"}) { return 0 unless (existsInList($config{$prefix . "_onAction"}, AI::action())); }
  1810. if ($config{$prefix . "_notOnAction"}) { return 0 if (existsInList($config{$prefix . "_notOnAction"}, AI::action())); }
  1811. if ($config{$prefix . "_spirit"}) {return 0 unless (inRange($char->{spirits}, $config{$prefix . "_spirit"})); }
  1813. if ($config{$prefix . "_timeout"}) { return 0 unless timeOut($ai_v{$prefix . "_time"}, $config{$prefix . "_timeout"}) }
  1814. if ($config{$prefix . "_inLockOnly"} > 0) { return 0 unless ($field{name} eq $config{lockMap}); }
  1815. if ($config{$prefix . "_notWhileSitting"} > 0) { return 0 if ($char->{sitting}); }
  1816. if ($config{$prefix . "_notInTown"} > 0) { return 0 if ($cities_lut{$field{name}.'.rsw'}); }
  1818. if ($config{$prefix . "_monsters"} && !($prefix =~ /skillSlot/i) && !($prefix =~ /ComboSlot/i)) {
  1819. my $exists;
  1820. foreach (ai_getAggressives()) {
  1821. if (existsInList($config{$prefix . "_monsters"}, $monsters{$_}->name)) {
  1822. $exists = 1;
  1823. last;
  1824. }
  1825. }
  1826. return 0 unless $exists;
  1827. }
  1829. if ($config{$prefix . "_defendMonsters"}) {
  1830. my $exists;
  1831. foreach (ai_getMonstersAttacking($accountID)) {
  1832. if (existsInList($config{$prefix . "_defendMonsters"}, $monsters{$_}->name)) {
  1833. $exists = 1;
  1834. last;
  1835. }
  1836. }
  1837. return 0 unless $exists;
  1838. }
  1840. if ($config{$prefix . "_notMonsters"} && !($prefix =~ /skillSlot/i) && !($prefix =~ /ComboSlot/i)) {
  1841. my $exists;
  1842. foreach (ai_getAggressives()) {
  1843. if (existsInList($config{$prefix . "_notMonsters"}, $monsters{$_}->name)) {
  1844. return 0;
  1845. }
  1846. }
  1847. }
  1849. if ($config{$prefix."_inInventory"}) {
  1850. foreach my $input (split / *, */, $config{$prefix."_inInventory"}) {
  1851. my ($itemName, $count) = $input =~ /(.*?)(?:s+([><]=? *d+))?$/;
  1852. $count = '>0' if $count eq '';
  1853. my $item = $char->inventory->getByName($itemName);
  1854.   return 0 if !inRange(!$item ? 0 : $item->{amount}, $count);
  1855. }
  1856. }
  1858. if ($config{$prefix."_inCart"}) {
  1859. foreach my $input (split / *, */, $config{$prefix."_inCart"}) {
  1860. my ($item,$count) = $input =~ /(.*?)(?:s+([><]=? *d+))?$/;
  1861. $count = '>0' if $count eq '';
  1862. my $iX = findIndexString_lc($cart{inventory}, "name", $item);
  1863.   my $item = $cart{inventory}[$iX];
  1864. return 0 if !inRange(!defined $iX ? 0 : $item->{amount}, $count);
  1865. }
  1866. }
  1868. if ($config{$prefix."_whenGround"}) {
  1869. return 0 unless whenGroundStatus(calcPosition($char), $config{$prefix."_whenGround"});
  1870. }
  1872. if ($config{$prefix."_whenNotGround"}) {
  1873. return 0 if whenGroundStatus(calcPosition($char), $config{$prefix."_whenNotGround"});
  1874. }
  1876. if ($config{$prefix."_whenPermitSkill"}) {
  1877. return 0 unless $char->{permitSkill} &&
  1878. $char->{permitSkill}->getName() eq $config{$prefix."_whenPermitSkill"};
  1879. }
  1881. if ($config{$prefix."_whenNotPermitSkill"}) {
  1882. return 0 if $char->{permitSkill} &&
  1883. $char->{permitSkill}->getName() eq $config{$prefix."_whenNotPermitSkill"};
  1884. }
  1886. if ($config{$prefix."_whenFlag"}) {
  1887. return 0 unless $flags{$config{$prefix."_whenFlag"}};
  1888. }
  1889. if ($config{$prefix."_whenNotFlag"}) {
  1890. return 0 unless !$flags{$config{$prefix."_whenNotFlag"}};
  1891. }
  1893. if ($config{$prefix."_onlyWhenSafe"}) {
  1894. return 0 if !isSafe();
  1895. }
  1897. if ($config{$prefix."_inMap"}) {
  1898. return 0 unless (existsInList($config{$prefix . "_inMap"}, $field{name}));
  1899. }
  1901. if ($config{$prefix."_notInMap"}) {
  1902. return 0 if (existsInList($config{$prefix . "_notInMap"}, $field{name}));
  1903. }
  1905. if ($config{$prefix."_whenEquipped"}) {
  1906. my $item = Actor::Item::get($config{$prefix."_whenEquipped"});
  1907. return 0 unless $item && $item->{equipped};
  1908. }
  1910. if ($config{$prefix."_whenNotEquipped"}) {
  1911. my $item = Actor::Item::get($config{$prefix."_whenNotEquipped"});
  1912. return 0 if $item && $item->{equipped};
  1913. }
  1915. if ($config{$prefix."_zeny"}) {
  1916. return 0 if (!inRange($char->{zenny}, $config{$prefix."_zeny"}));
  1917. }
  1919. # not working yet
  1920. if ($config{$prefix."_whenWater"}) {
  1921. my $pos = calcPosition($char);
  1922. return 0 if ($field->getBlock($pos->{x}, $pos->{y}) != Field::WALKABLE_WATER);
  1923. }
  1925. my %hookArgs;
  1926. $hookArgs{prefix} = $prefix;
  1927. $hookArgs{return} = 1;
  1928. Plugins::callHook("checkSelfCondition", %hookArgs);
  1929. return 0 if (!$hookArgs{return});
  1931. return 1;
  1932. }
  1934. sub checkPlayerCondition {
  1935. my ($prefix, $id) = @_;
  1936. return 0 if (!$id);
  1938. my $player = $playersList->getByID($id) || $slavesList->getByID($id);
  1940. if ($config{$prefix . "_timeout"}) { return 0 unless timeOut($ai_v{$prefix . "_time"}{$id}, $config{$prefix . "_timeout"}) }
  1941. if ($config{$prefix . "_whenStatusActive"}) { return 0 unless (whenStatusActivePL($id, $config{$prefix . "_whenStatusActive"})); }
  1942. if ($config{$prefix . "_whenStatusInactive"}) { return 0 if (whenStatusActivePL($id, $config{$prefix . "_whenStatusInactive"})); }
  1943. if ($config{$prefix . "_notWhileSitting"} > 0) { return 0 if ($player->{sitting}); }
  1945. # we will have player HP info (only) if we are in the same party
  1946. if ($char->{party} && $char->{party}{users}{$id}) {
  1947. if ($config{$prefix . "_hp"}) {
  1948. if ($config{$prefix."_hp"} =~ /^(.*)%$/) {
  1949. return 0 if (!inRange(percent_hp($char->{party}{users}{$id}), $1));
  1950. } else {
  1951. return 0 if (!inRange($char->{party}{users}{$id}{hp}, $config{$prefix . "_hp"}));
  1952. }
  1953. }
  1954. } elsif ($char->{homunculus} && $char->{homunculus}{ID} eq $id) {
  1955. if ($config{$prefix . "_hp"}) {
  1956. if ($config{$prefix."_hp"} =~ /^(.*)%$/) {
  1957. return 0 if (!inRange(percent_hp($char->{homunculus}), $1));
  1958. } else {
  1959. return 0 if (!inRange($char->{homunculus}{hp}, $config{$prefix . "_hp"}));
  1960. }
  1961. }
  1962. }
  1964. if ($config{$prefix."_deltaHp"}){
  1965. return 0 unless inRange($player->{deltaHp}, $config{$prefix."_deltaHp"});
  1966. }
  1968. # check player job class
  1969. if ($config{$prefix . "_isJob"}) { return 0 unless (existsInList($config{$prefix . "_isJob"}, $jobs_lut{$player->{jobID}})); }
  1970. if ($config{$prefix . "_isNotJob"}) { return 0 if (existsInList($config{$prefix . "_isNotJob"}, $jobs_lut{$player->{jobID}})); }
  1972. if ($config{$prefix . "_aggressives"}) {
  1973. return 0 unless (inRange(scalar ai_getPlayerAggressives($id), $config{$prefix . "_aggressives"}));
  1974. }
  1976. if ($config{$prefix . "_defendMonsters"}) {
  1977. my $exists;
  1978. foreach (ai_getMonstersAttacking($id)) {
  1979. if (existsInList($config{$prefix . "_defendMonsters"}, $monsters{$_}{name})) {
  1980. $exists = 1;
  1981. last;
  1982. }
  1983. }
  1984. return 0 unless $exists;
  1985. }
  1987. if ($config{$prefix . "_monsters"}) {
  1988. my $exists;
  1989. foreach (ai_getPlayerAggressives($id)) {
  1990. if (existsInList($config{$prefix . "_monsters"}, $monsters{$_}{name})) {
  1991. $exists = 1;
  1992. last;
  1993. }
  1994. }
  1995. return 0 unless $exists;
  1996. }
  1998. if ($config{$prefix."_whenGround"}) {
  1999. return 0 unless whenGroundStatus(calcPosition($player), $config{$prefix."_whenGround"});
  2000. }
  2001. if ($config{$prefix."_whenNotGround"}) {
  2002. return 0 if whenGroundStatus(calcPosition($player), $config{$prefix."_whenNotGround"});
  2003. }
  2004. if ($config{$prefix."_dead"}) {
  2005. return 0 if !$player->{dead};
  2006. } else {
  2007. return 0 if $player->{dead};
  2008. }
  2010. if ($config{$prefix."_whenWeaponEquipped"}) {
  2011. return 0 unless $player->{weapon};
  2012. }
  2014. if ($config{$prefix."_whenShieldEquipped"}) {
  2015. return 0 unless $player->{shield};
  2016. }
  2018. if ($config{$prefix."_isGuild"}) {
  2019. return 0 unless ($player->{guild} && existsInList($config{$prefix . "_isGuild"}, $player->{guild}{name}));
  2020. }
  2022. if ($config{$prefix."_dist"}) {
  2023. return 0 unless inRange(distance(calcPosition($char), calcPosition($player)), $config{$prefix."_dist"});
  2024. }
  2026. my %args = (
  2027. player => $player,
  2028. prefix => $prefix,
  2029. return => 1
  2030. );
  2032. Plugins::callHook('checkPlayerCondition', %args);
  2034. return $args{return};
  2035. }
  2037. sub checkMonsterCondition {
  2038. my ($prefix, $monster) = @_;
  2040. if ($config{$prefix . "_timeout"}) { return 0 unless timeOut($ai_v{$prefix . "_time"}{$monster->{ID}}, $config{$prefix . "_timeout"}) }
  2042. if (my $misses = $config{$prefix . "_misses"}) {
  2043. return 0 unless inRange($monster->{atkMiss}, $misses);
  2044. }
  2046. if (my $misses = $config{$prefix . "_totalMisses"}) {
  2047. return 0 unless inRange($monster->{missedFromYou}, $misses);
  2048. }
  2050. if ($config{$prefix . "_whenStatusActive"}) {
  2051. return 0 unless (whenStatusActiveMon($monster, $config{$prefix . "_whenStatusActive"}));
  2052. }
  2053. if ($config{$prefix . "_whenStatusInactive"}) {
  2054. return 0 if (whenStatusActiveMon($monster, $config{$prefix . "_whenStatusInactive"}));
  2055. }
  2057. if ($config{$prefix."_whenGround"}) {
  2058. return 0 unless whenGroundStatus(calcPosition($monster), $config{$prefix."_whenGround"});
  2059. }
  2060. if ($config{$prefix."_whenNotGround"}) {
  2061. return 0 if whenGroundStatus(calcPosition($monster), $config{$prefix."_whenNotGround"});
  2062. }
  2064. if ($config{$prefix."_dist"}) {
  2065. return 0 unless inRange(distance(calcPosition($char), calcPosition($monster)), $config{$prefix."_dist"});
  2066. }
  2068. if ($config{$prefix."_deltaHp"}){
  2069. return 0 unless inRange($monster->{deltaHp}, $config{$prefix."_deltaHp"});
  2070. }
  2072. # This is only supposed to make sense for players,
  2073. # but it has to be here for attackSkillSlot PVP to work
  2074. if ($config{$prefix."_whenWeaponEquipped"}) {
  2075. return 0 unless $monster->{weapon};
  2076. }
  2077. if ($config{$prefix."_whenShieldEquipped"}) {
  2078. return 0 unless $monster->{shield};
  2079. }
  2081. my %args = (
  2082. monster => $monster,
  2083. prefix => $prefix,
  2084. return => 1
  2085. );
  2087. Plugins::callHook('checkMonsterCondition', %args);
  2088. return $args{return};
  2089. }
  2091. ##
  2092. # findCartItemInit()
  2093. #
  2094. # Resets all "found" flags in the cart to 0.
  2095. sub findCartItemInit {
  2096. for (@{$cart{inventory}}) {
  2097. next unless $_ && %{$_};
  2098. undef $_->{found};
  2099. }
  2100. }
  2102. ##
  2103. # findCartItem($name [, $found [, $nounid]])
  2104. #
  2105. # Returns the integer index into $cart{inventory} for the cart item matching
  2106. # the given name, or undef.
  2107. #
  2108. # If an item is found, the "found" value for that item is set to 1. Items
  2109. # cannot be found again until you reset the "found" flags using
  2110. # findCartItemInit(), if $found is true.
  2111. #
  2112. # Unidentified items will not be returned if $nounid is true.
  2113. sub findCartItem {
  2114. my ($name, $found, $nounid) = @_;
  2116. $name = lc($name);
  2117. my $index = 0;
  2118. for (@{$cart{inventory}}) {
  2119. if (lc($_->{name}) eq $name &&
  2120.     !($found && $_->{found}) &&
  2121. !($nounid && !$_->{identified})) {
  2122. $_->{found} = 1;
  2123. return $index;
  2124. }
  2125. $index++;
  2126. }
  2127. return undef;
  2128. }
  2130. ##
  2131. # makeShop()
  2132. #
  2133. # Returns an array of items to sell. The array can be no larger than the
  2134. # maximum number of items that the character can vend. Each item is a hash
  2135. # reference containing the keys "index", "amount" and "price".
  2136. #
  2137. # If there is a problem with opening a shop, an error message will be printed
  2138. # and nothing will be returned.
  2139. sub makeShop {
  2140. if ($shopstarted) {
  2141. error T("A shop has already been opened.n");
  2142. return;
  2143. }
  2145. return unless $char;
  2147. if (!$char->{skills}{MC_VENDING}{lv}) {
  2148. error T("You don't have the Vending skill.n");
  2149. return;
  2150. }
  2152. if (!$shop{title_line}) {
  2153. error T("Your shop does not have a title.n");
  2154. return;
  2155. }
  2157. my @items = ();
  2158. my $max_items = $char->{skills}{MC_VENDING}{lv} + 2;
  2160. # Iterate through items to be sold
  2161. findCartItemInit();
  2162. shuffleArray(@{$shop{items}}) if ($config{'shop_random'} eq "2");
  2163. for my $sale (@{$shop{items}}) {
  2164. my $index = findCartItem($sale->{name}, 1, 1);
  2165. next unless defined($index);
  2167. # Found item to vend
  2168. my $cart_item = $cart{inventory}[$index];
  2169. my $amount = $cart_item->{amount};
  2171. my %item;
  2172. $item{name} = $cart_item->{name};
  2173. $item{index} = $index;
  2174. $item{price} = $sale->{price};
  2175. $item{amount} =
  2176. $sale->{amount} && $sale->{amount} < $amount ?
  2177. $sale->{amount} : $amount;
  2178. push(@items, %item);
  2180. # We can't vend anymore items
  2181. last if @items >= $max_items;
  2182. }
  2184. if (!@items) {
  2185. error T("There are no items to sell.n");
  2186. return;
  2187. }
  2188. shuffleArray(@items) if ($config{'shop_random'} eq "1");
  2189. return @items;
  2190. }
  2192. sub openShop {
  2193. my @items = makeShop();
  2194. my @shopnames;
  2195. return unless @items;
  2196. @shopnames = split(/;;/, $shop{title_line});
  2197. $shop{title} = $shopnames[int rand($#shopnames + 1)];
  2198. $shop{title} = ($config{shopTitleOversize}) ? $shop{title} : substr($shop{title},0,36);
  2199. $messageSender->sendOpenShop($shop{title}, @items);
  2200. message TF("Shop opened (%s) with %d selling items.n", $shop{title}, @items.""), "success";
  2201. $shopstarted = 1;
  2202. $shopEarned = 0;
  2203. }
  2205. sub closeShop {
  2206. if (!$shopstarted) {
  2207. error T("A shop has not been opened.n");
  2208. return;
  2209. }
  2211. $messageSender->sendCloseShop();
  2213. $shopstarted = 0;
  2214. $timeout{'ai_shop'}{'time'} = time;
  2215. message T("Shop closed.n");
  2216. }
  2218. ##
  2219. # inLockMap()
  2220. #
  2221. # Returns 1 (true) if character is located in its lockmap.
  2222. # Returns 0 (false) if character is not located in lockmap.
  2223. sub inLockMap {
  2224. if ($field{'name'} eq $config{'lockMap'}) {
  2225. return 1;
  2226. } else {
  2227. return 0;
  2228. }
  2229. }
  2231. sub parseReload {
  2232. my ($args) = @_;
  2233. eval {
  2234. my $progressHandler = sub {
  2235. my ($filename) = @_;
  2236. message TF("Loading %s...n", $filename);
  2237. };
  2238. if ($args eq 'all') {
  2239. Settings::loadAll($progressHandler);
  2240. } else {
  2241. Settings::loadByRegexp(qr/$args/, $progressHandler);
  2242. }
  2243. Log::initLogFiles();
  2244. };
  2245. if (my $e = caught('UTF8MalformedException')) {
  2246. error TF(
  2247. "The file %s must be valid UTF-8 encoded, which it is n" .
  2248. "currently not. To solve this prolem, please use Notepadn" .
  2249. "to save that file as valid UTF-8.",
  2250. $e->textfile);
  2251. } elsif ($@) {
  2252. die $@;
  2253. }
  2254. }
  2256. sub MODINIT {
  2257. OpenKoreMod::initMisc() if (defined(&OpenKoreMod::initMisc));
  2258. }
  2260. return 1;