Guest User

playerRecorder.pl

a guest
Jul 10th, 2012
109
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Perl 14.40 KB | None | 0 0
  1. ########################################################
  2. # This plugin is licensed under the GNU GPL            #
  3. # Copyright 2005 by isieo                              #
  4. # contact : - isieo <AT> *NOSPAM* G*MAIL <DOT> COM     #
  5. #                                                      #
  6. # Modified by sli ([email protected])            #
  7. # Modified by kaoru ([email protected])                #
  8. # ---------------------------------------------------- #
  9. # ---------------------------------------------------- #
  10. # playerrecorder.pl                                    #
  11. # Records Player's name together with AIDs, job and lvl#
  12. # Usefull for players to find out other players' other #
  13. # characters...                                        #
  14. ########################################################
  15.  
  16. package playerRecord;
  17.  
  18. use strict;
  19. use Plugins;
  20. use Log qw(message);
  21. use Globals;
  22. use Settings;
  23. use Actor;
  24.  
  25. Plugins::register("prec", "playerRecord", \&on_unload, \&on_reload);
  26. my $hook = Plugins::addHook('charNameUpdate', \&write_player, undef);
  27.  
  28. sub on_unload {
  29.         Plugins::delHook("charNameUpdate", $hook);
  30. }
  31. sub on_reload {
  32.         message "playerRecord plugin reloading, ";
  33.         Plugins::delHook("charNameUpdate", $hook);
  34. }
  35. sub write_player {
  36.         my (undef, $args) = @_;
  37.         my $targetId = $args->{player}{nameID};
  38.         my $targetName = $args->{player}{name};
  39.         my $targetJobID = $args->{player}{jobID};
  40.         my $targetJob = "Classe Desconhecida";
  41.         my $targetLvl = $args->{player}{lv};
  42. #       my $targetGuild = $args->{player}{guild}{name};
  43.         my $aYou = Actor::get($accountID);
  44.         my $selfName = $char->name();
  45.         my $file = "$Settings::logs_folder/players_$selfName.txt";
  46.        
  47.         if ($targetJobID == 0) {
  48.    $targetJob="Novice";
  49.         }
  50.         if ($targetJobID == 1) {
  51.    $targetJob="Swordsman";
  52.         }
  53.         if ($targetJobID == 2) {
  54.    $targetJob="Mage";
  55.         }
  56.         if ($targetJobID == 3) {
  57.    $targetJob="Archer";
  58.         }
  59.         if ($targetJobID == 4) {
  60.    $targetJob="Acolyte";
  61.         }
  62.         if ($targetJobID == 5) {
  63.    $targetJob="Merchant";
  64.         }
  65.         if ($targetJobID == 6) {
  66.    $targetJob="Thief";
  67.         }
  68.         if ($targetJobID == 7) {
  69.    $targetJob="Knight";
  70.         }
  71.         if ($targetJobID == 8) {
  72.    $targetJob="Priest";
  73.         }
  74.         if ($targetJobID == 9) {
  75.    $targetJob="Wizard";
  76.         }
  77.         if ($targetJobID == 10) {
  78.    $targetJob="Blacksmith";
  79.         }
  80.         if ($targetJobID == 11) {
  81.    $targetJob="Hunter";
  82.         }
  83.         if ($targetJobID == 12) {
  84.    $targetJob="Assassin";
  85.         }
  86.         if ($targetJobID == 13) {
  87.    $targetJob="Knight (Peco)";
  88.         }
  89.         if ($targetJobID == 14) {
  90.    $targetJob="Crusader";
  91.         }
  92.         if ($targetJobID == 15) {
  93.    $targetJob="Monk";
  94.         }
  95.         if ($targetJobID == 16) {
  96.    $targetJob="Sage";
  97.         }
  98.         if ($targetJobID == 17) {
  99.    $targetJob="Rogue";
  100.         }
  101.         if ($targetJobID == 18) {
  102.    $targetJob="Alchemist";
  103.         }
  104.         if ($targetJobID == 19) {
  105.    $targetJob="Bard";
  106.         }
  107.         if ($targetJobID == 20) {
  108.    $targetJob="Dancer";
  109.         }
  110.         if ($targetJobID == 21) {
  111.    $targetJob="Crusader (Peco)";
  112.         }
  113.         if ($targetJobID == 22) {
  114.    $targetJob="Wedding Suit";
  115.         }
  116.         if ($targetJobID == 23) {
  117.    $targetJob="Super Novice";
  118.         }
  119.         if ($targetJobID == 24) {
  120.    $targetJob="Gunslinger";
  121.         }
  122.         if ($targetJobID == 25) {
  123.    $targetJob="Ninja";
  124.         }
  125.         if ($targetJobID == 26) {
  126.    $targetJob="Xmas";
  127.         }
  128.         if ($targetJobID == 27) {
  129.    $targetJob="Summer";
  130.         }
  131.         if ($targetJobID == 161) {
  132.    $targetJob="High Novice";
  133.         }
  134.         if ($targetJobID == 162) {
  135.    $targetJob="High Swordsman";
  136.         }
  137.         if ($targetJobID == 163) {
  138.    $targetJob="High Magician";
  139.         }
  140.         if ($targetJobID == 164) {
  141.    $targetJob="High Archer";
  142.         }
  143.         if ($targetJobID == 165) {
  144.    $targetJob="High Acolyte";
  145.         }
  146.         if ($targetJobID == 166) {
  147.    $targetJob="High Merchant";
  148.         }
  149.         if ($targetJobID == 167) {
  150.    $targetJob="High Thief";
  151.         }
  152.         if ($targetJobID == 168) {
  153.    $targetJob="Lord Knight";
  154.         }
  155.         if ($targetJobID == 169) {
  156.    $targetJob="High Priest";
  157.         }
  158.         if ($targetJobID == 170) {
  159.    $targetJob="High Wizard";
  160.         }
  161.         if ($targetJobID == 171) {
  162.    $targetJob="Whitesmith";
  163.         }
  164.         if ($targetJobID == 172) {
  165.    $targetJob="Sniper";
  166.         }
  167.         if ($targetJobID == 173) {
  168.    $targetJob="Assassin Cross";
  169.         }
  170.         if ($targetJobID == 174) {
  171.    $targetJob="Lord Knight (Peco)";
  172.         }
  173.         if ($targetJobID == 175) {
  174.    $targetJob="Paladin";
  175.         }
  176.         if ($targetJobID == 176) {
  177.    $targetJob="Champion";
  178.         }
  179.         if ($targetJobID == 177) {
  180.    $targetJob="Professor";
  181.         }
  182.         if ($targetJobID == 178) {
  183.    $targetJob="Stalker";
  184.         }
  185.         if ($targetJobID == 179) {
  186.    $targetJob="Creator";
  187.         }
  188.         if ($targetJobID == 180) {
  189.    $targetJob="Clown";
  190.         }
  191.         if ($targetJobID == 181) {
  192.    $targetJob="Gypsy";
  193.         }
  194.         if ($targetJobID == 182) {
  195.    $targetJob="Paladin (Peco)";
  196.         }
  197.         if ($targetJobID == 4001) {
  198.    $targetJob="High Novice";
  199.         }
  200.         if ($targetJobID == 4002) {
  201.    $targetJob="High Swordsman";
  202.         }
  203.         if ($targetJobID == 4003) {
  204.    $targetJob="High Mage";
  205.         }
  206.         if ($targetJobID == 4004) {
  207.    $targetJob="High Archer";
  208.         }
  209.         if ($targetJobID == 4005) {
  210.    $targetJob="High Acolyte";
  211.         }
  212.         if ($targetJobID == 4006) {
  213.    $targetJob="High Merchant";
  214.         }
  215.         if ($targetJobID == 4007) {
  216.    $targetJob="High Thief";
  217.         }
  218.         if ($targetJobID == 4008) {
  219.    $targetJob="Lord Knight";
  220.         }
  221.         if ($targetJobID == 4009) {
  222.    $targetJob="High Priest";
  223.         }
  224.         if ($targetJobID == 4010) {
  225.    $targetJob="High Wizard";
  226.         }
  227.         if ($targetJobID == 4011) {
  228.    $targetJob="Whitesmith";
  229.         }
  230.         if ($targetJobID == 4012) {
  231.    $targetJob="Sniper";
  232.         }
  233.         if ($targetJobID == 4013) {
  234.    $targetJob="Assassin Cross";
  235.         }
  236.         if ($targetJobID == 4014) {
  237.    $targetJob="Lord Knight (Peco)";
  238.         }
  239.         if ($targetJobID == 4015) {
  240.    $targetJob="Paladin";
  241.         }
  242.         if ($targetJobID == 4016) {
  243.    $targetJob="Champion";
  244.         }
  245.         if ($targetJobID == 4017) {
  246.    $targetJob="Professor";
  247.         }
  248.         if ($targetJobID == 4018) {
  249.    $targetJob="Stalker";
  250.         }
  251.         if ($targetJobID == 4019) {
  252.    $targetJob="Creator";
  253.         }
  254.         if ($targetJobID == 4020) {
  255.    $targetJob="Clown";
  256.         }
  257.         if ($targetJobID == 4021) {
  258.    $targetJob="Gypsy";
  259.         }
  260.         if ($targetJobID == 4022) {
  261.    $targetJob="Paladin (Peco)";
  262.         }
  263.         if ($targetJobID == 4023) {
  264.    $targetJob="Baby Novice";
  265.         }
  266.         if ($targetJobID == 4024) {
  267.    $targetJob="Baby Swordsman";
  268.         }
  269.         if ($targetJobID == 4025) {
  270.    $targetJob="Baby Mage";
  271.         }
  272.         if ($targetJobID == 4026) {
  273.    $targetJob="Baby Archer";
  274.         }
  275.         if ($targetJobID == 4027) {
  276.    $targetJob="Baby Acolyte";
  277.         }
  278.         if ($targetJobID == 4028) {
  279.    $targetJob="Baby Merchant";
  280.         }
  281.         if ($targetJobID == 4029) {
  282.    $targetJob="Baby Thief";
  283.         }
  284.         if ($targetJobID == 4030) {
  285.    $targetJob="Baby Knight";
  286.         }
  287.         if ($targetJobID == 4031) {
  288.    $targetJob="Baby Priest";
  289.         }
  290.         if ($targetJobID == 4032) {
  291.    $targetJob="Baby Wizard";
  292.         }
  293.         if ($targetJobID == 4033) {
  294.    $targetJob="Baby Blacksmith";
  295.         }
  296.         if ($targetJobID == 4034) {
  297.    $targetJob="Baby Hunter";
  298.         }
  299.         if ($targetJobID == 4035) {
  300.    $targetJob="Baby Assassin";
  301.         }
  302.         if ($targetJobID == 4036) {
  303.    $targetJob="Baby Knight (Peco)";
  304.         }
  305.         if ($targetJobID == 4037) {
  306.    $targetJob="Baby Crusader";
  307.         }
  308.         if ($targetJobID == 4038) {
  309.    $targetJob="Baby Monk";
  310.         }
  311.         if ($targetJobID == 4039) {
  312.    $targetJob="Baby Sage";
  313.         }
  314.         if ($targetJobID == 4040) {
  315.    $targetJob="Baby Rogue";
  316.         }
  317.         if ($targetJobID == 4041) {
  318.    $targetJob="Baby Alchemist";
  319.         }
  320.         if ($targetJobID == 4042) {
  321.    $targetJob="Baby Bard";
  322.         }
  323.         if ($targetJobID == 4043) {
  324.    $targetJob="Baby Dancer";
  325.         }
  326.         if ($targetJobID == 4044) {
  327.    $targetJob="Baby Crusader (Peco)";
  328.         }
  329.         if ($targetJobID == 4045) {
  330.    $targetJob="Baby Super Novice";
  331.         }
  332.         if ($targetJobID == 4046) {
  333.    $targetJob="Taekwon";
  334.         }
  335.         if ($targetJobID == 4047) {
  336.    $targetJob="Star Gladiator";
  337.         }
  338.         if ($targetJobID == 4048) {
  339.    $targetJob="Star Gladiator";
  340.         }
  341.         if ($targetJobID == 4049) {
  342.    $targetJob="Soul Linker";
  343.         }
  344.         if ($targetJobID == 4054) {
  345.    $targetJob="Rune Knight";
  346.         }
  347.         if ($targetJobID == 4055) {
  348.    $targetJob="Warlock";
  349.         }
  350.         if ($targetJobID == 4056) {
  351.    $targetJob="Ranger";
  352.         }
  353.         if ($targetJobID == 4057) {
  354.    $targetJob="Arch Bishop";
  355.         }
  356.         if ($targetJobID == 4058) {
  357.    $targetJob="Mechanic";
  358.         }
  359.         if ($targetJobID == 4059) {
  360.    $targetJob="Glt. Cross";
  361.         }
  362.         if ($targetJobID == 4060) {
  363.    $targetJob="Rune Knight";
  364.         }
  365.         if ($targetJobID == 4061) {
  366.    $targetJob="Warlock";
  367.         }
  368.         if ($targetJobID == 4062) {
  369.    $targetJob="Ranger";
  370.         }
  371.         if ($targetJobID == 4063) {
  372.    $targetJob="Arch Bishop";
  373.         }
  374.         if ($targetJobID == 4064) {
  375.    $targetJob="Mechanic";
  376.         }
  377.         if ($targetJobID == 4065) {
  378.    $targetJob="Glt. Cross";
  379.         }
  380.         if ($targetJobID == 4067) {
  381.    $targetJob="Royal Guard";
  382.         }
  383.         if ($targetJobID == 4067) {
  384.    $targetJob="Sorcerer";
  385.         }
  386.         if ($targetJobID == 4068) {
  387.    $targetJob="Minstrel";
  388.         }
  389.         if ($targetJobID == 4069) {
  390.    $targetJob="Wanderer";
  391.         }
  392.         if ($targetJobID == 4070) {
  393.    $targetJob="Sura";
  394.         }
  395.         if ($targetJobID == 4071) {
  396.    $targetJob="Genetic";
  397.         }
  398.         if ($targetJobID == 4072) {
  399.    $targetJob="Shadow Chaser";
  400.         }
  401.         if ($targetJobID == 4073) {
  402.    $targetJob="Royal Guard";
  403.         }
  404.         if ($targetJobID == 4074) {
  405.    $targetJob="Sorcerer";
  406.         }
  407.         if ($targetJobID == 4075) {
  408.    $targetJob="Minstrel";
  409.         }
  410.         if ($targetJobID == 4076) {
  411.    $targetJob="Wanderer";
  412.         }
  413.         if ($targetJobID == 4077) {
  414.    $targetJob="Sura";
  415.         }
  416.         if ($targetJobID == 4078) {
  417.    $targetJob="Genetic";
  418.         }
  419.         if ($targetJobID == 4079) {
  420.    $targetJob="Shadow Chaser";
  421.         }
  422.         if ($targetJobID == 4080) {
  423.    $targetJob="Rune Knight (Green)";
  424.         }
  425.         if ($targetJobID == 4081) {
  426.    $targetJob="Rune Knight (Green)";
  427.         }
  428.         if ($targetJobID == 4082) {
  429.    $targetJob="Royal Guard (Gryphon)";
  430.         }
  431.         if ($targetJobID == 4083) {
  432.    $targetJob="Royal Guard (Gryphon)";
  433.         }
  434.         if ($targetJobID == 4084) {
  435.    $targetJob="Ranger (Warg)";
  436.         }
  437.         if ($targetJobID == 4085) {
  438.    $targetJob="Ranger (Warg)";
  439.         }
  440.         if ($targetJobID == 4086) {
  441.    $targetJob="Mechanic (Gear)";
  442.         }
  443.         if ($targetJobID == 4087) {
  444.    $targetJob="Mechanic (Gear)";
  445.         }
  446.         if ($targetJobID == 4088) {
  447.    $targetJob="Rune Knight (Black)";
  448.         }
  449.         if ($targetJobID == 4089) {
  450.    $targetJob="Rune Knight (Black)";
  451.         }
  452.         if ($targetJobID == 4090) {
  453.    $targetJob="Rune Knight (White)";
  454.         }
  455.         if ($targetJobID == 4091) {
  456.    $targetJob="Rune Knight (White)";
  457.         }
  458.         if ($targetJobID == 4092) {
  459.    $targetJob="Rune Knight (Blue)";
  460.         }
  461.         if ($targetJobID == 4093) {
  462.    $targetJob="Rune Knight (Blue)";
  463.         }
  464.         if ($targetJobID == 4094) {
  465.    $targetJob="Rune Knight (Red)";
  466.         }
  467.         if ($targetJobID == 4095) {
  468.    $targetJob="Rune Knight (Red)";
  469.         }
  470.         if ($targetJobID == 4096) {
  471.    $targetJob="Baby Rune";
  472.         }
  473.         if ($targetJobID == 4097) {
  474.    $targetJob="Baby Warlock";
  475.         }
  476.         if ($targetJobID == 4098) {
  477.    $targetJob="Baby Ranger";
  478.         }
  479.         if ($targetJobID == 4099) {
  480.    $targetJob="Baby Bishop";
  481.         }
  482.         if ($targetJobID == 4100) {
  483.    $targetJob="Baby Mechanic";
  484.         }
  485.         if ($targetJobID == 4101) {
  486.    $targetJob="Baby Cross";
  487.         }
  488.         if ($targetJobID == 4102) {
  489.    $targetJob="Baby Guard";
  490.         }
  491.         if ($targetJobID == 4103) {
  492.    $targetJob="Baby Sorcerer";
  493.         }
  494.         if ($targetJobID == 4104) {
  495.    $targetJob="Baby Minstrel";
  496.         }
  497.         if ($targetJobID == 4105) {
  498.    $targetJob="Baby Wanderer";
  499.         }
  500.         if ($targetJobID == 4106) {
  501.    $targetJob="Baby Sura";
  502.         }
  503.         if ($targetJobID == 4107) {
  504.    $targetJob="Baby Genetic";
  505.         }
  506.         if ($targetJobID == 4108) {
  507.    $targetJob="Baby Chaser";
  508.         }
  509.         if ($targetJobID == 4109) {
  510.    $targetJob="Baby Rune (Dragon)";
  511.         }
  512.         if ($targetJobID == 4110) {
  513.    $targetJob="Baby Guard (Gryphon)";
  514.         }
  515.         if ($targetJobID == 4111) {
  516.    $targetJob="Baby Ranger (Warg)";
  517.         }
  518.         if ($targetJobID == 4112) {
  519.    $targetJob="Baby Mechanic (Gear)";
  520.         }
  521.         if ($targetJobID == 4190) {
  522.    $targetJob="High Super Novice";
  523.         }
  524.  
  525. # Probably obsolete.
  526.        
  527.         if ($targetJobID == 4050) {
  528.    $targetJob="Munak";
  529.         }
  530.         if ($targetJobID == 4051) {
  531.    $targetJob="Death Knight";
  532.         }
  533.         if ($targetJobID == 4052) {
  534.    $targetJob="Death Collector";
  535.         }      
  536.  
  537.         my ($uId, $name);
  538.         my $exist=0;
  539.         my $line;
  540.  
  541.         message "Player Exists: $targetName ($targetId), $targetJob, lvl $targetLvl\n";
  542.                
  543.         open FILE, ">>:utf8", $file;
  544.         my $time=localtime time;
  545.         print FILE "[$time] " . $field->baseName . "\t$targetName ($targetId), $targetJob, lvl $targetLvl\n";
  546.         close FILE;
  547. }
  548.  
  549. 1;
Advertisement
Add Comment
Please, Sign In to add comment