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

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

外挂编程

开发平台：

Windows_Unix

Win32.pm：源码内容
  1. #########################################################################
  2. #  Win32::GUI Interface for OpenKore
  3. #  by: amacc_boy (koreadvance@yahoo.com)
  4. #
  5. #########################################################################
  7. package Interface::Win32;
  8. use strict;
  9. use warnings;
  11. use Interface;
  12. use base qw/Interface/;
  13. use Time::HiRes qw/time usleep/;
  14. use Settings qw(%sys);
  15. use Plugins;
  16. use Globals;
  17. use Settings;
  18. use Misc;
  20. use Win32::GUI();
  21. use Interface::Win32::Map; #Map Viewer
  24. our ($currentHP, $currentSP, $currentLvl, $currentJob, $currentStatus);
  25. our $map;
  27. our @input_que;
  28. our @input_list;
  30. our %fgcolors;
  31. our %bgcolors;
  33. our $line_limit_chat = 500; #chat window line limit
  34. our $line_limit_console = 500; #console window line limit
  36. sub new {
  37. my $class = shift;
  38. my $self = {
  39. mw => undef,
  40. default_font=>"MS Sans Serif",
  41. r_field => undef,
  42. };
  44. $map = new Interface::Win32::Map();
  46. bless $self, $class;
  47. $self->initGUI;
  49. $self->{hooks} = Plugins::addHooks(
  50. ['mainLoop_pre', &updateHook, $self],
  51. ['parseMsg/addPrivMsgUser', sub { $self->addPM(@_); }],
  52. );
  54. return $self;
  55. }
  57. sub DESTROY {
  58. my $self = shift;
  60. Plugins::delHooks($self->{hooks});
  61. }
  63. ######################
  64. ## METHODS
  65. ######################
  67. sub getInput {
  68. my $self = shift;
  69. my $timeout = shift;
  70. my $msg;
  72. if ($timeout < 0) {
  73. until (defined $msg) {
  74. $self->update();
  75. if (@input_que) {
  76. $msg = shift @input_que; 
  77. }
  78. }
  79. } elsif ($timeout > 0) {
  80. my $end = time + $timeout;
  81. until ($end < time || defined $msg) {
  82. $self->update();
  83. if (@input_que) { 
  84. $msg = shift @input_que; 
  85. } 
  86. }
  87. } else {
  88. if (@input_que) {
  89. $msg = shift @input_que;
  90. }
  91. }
  93. $self->update();
  94. $msg =~ s/n// if defined $msg;
  96. return $msg;
  97. }
  99. sub writeOutput {
  100. my $self = shift;
  101. my $type = shift || '';
  102. my $message = shift || '';
  103. my $domain = shift || '';
  104. my ($color,$fgcode);
  106. $color = $consoleColors{$type}{$domain} if (defined $type && defined $domain && defined $consoleColors{$type});
  107. $color = $consoleColors{$type}{'default'} if (!defined $color && defined $type);
  109. $fgcode = $fgcolors{$color} || $fgcolors{'default'};
  111. #Chat Window
  112. if ($domain eq "pm" || $domain eq "pm/sent" || $domain eq "publicchat" || $domain eq "guildchat" || $domain eq "selfchat" || $domain eq "schat") {
  113. $self->{chat}->Select(999999,999999);
  114. $self->{chat}->SetCharFormat (-color => $fgcode); #no backcolor =(
  115.      $self->{chat}->ReplaceSel("$message", 1);
  116.     select(undef, undef, undef, 0);
  118. #remove extra lines
  119. while ($self->{chat}->GetLineCount() > $line_limit_chat + 1) {
  120.     $self->{chat}->Select(0, $self->{chat}->LineLength(0) + 1);
  121.     $self->{chat}->ReplaceSel("", 1);
  122.     select(undef, undef, undef, 0);
  123. }
  124.     
  125.    $self->{chat}->SendMessage (0x115, 7, 0);   # scroll to bottom
  126.    $self->{chat}->SendMessage (0x115, 1, 0);   # scroll one line down
  127.   
  128. #Console Window
  129. } else {
  130. $self->{console}->Select(999999,999999);
  131. $self->{console}->SetCharFormat (-color => $fgcode);
  132.      $self->{console}->ReplaceSel("$message", 1);
  133.     select(undef, undef, undef, 0);
  135. #remove extra lines
  136. while ($self->{console}->GetLineCount() >= $line_limit_console) {
  137.     $self->{console}->Select(0, $self->{console}->LineLength(0) + 1);
  138.     $self->{console}->ReplaceSel("", 1);
  139.     select(undef, undef, undef, 0);
  140. }
  141.    
  142.    $self->{console}->SendMessage (0x115, 7, 0);   # scroll to bottom
  143.    $self->{console}->SendMessage (0x115, 1, 0);   # scroll one line down
  144.   
  145. }
  146.   
  147.     Win32::GUI::PeekMessage(0,0,0);
  148.     $self->update();
  149. }
  151. sub updateHook {
  152. my $hookname = shift;
  153. my $r_args = shift;
  154. my $self = shift;
  155. return unless defined $self->{mw};
  156. $self->update();
  157. }
  159. sub update {
  160. my $self = shift;
  161.     $self->UpdateCharacter();
  162. if ($map->mapIsShown()) {
  163. $map->Repaint();
  164. $map->paintMiscPos();
  165. $map->paintPos();
  166. }
  167.     Win32::GUI::DoEvents();
  168. }
  170. sub title {
  171. my $self = shift;
  172. my $title = shift;
  174. if (defined $title) {
  175. if (!defined $self->{currentTitle} || $self->{currentTitle} ne $title) {
  176. $self->{mw}->Caption($title);
  177. $self->{currentTitle} = $title;
  178. }
  179. } else {
  180. return $self->{title};
  181. }
  182. }
  184. sub updateStatus {
  185. my $self = shift;
  186. my $text = shift;
  187. $self->{status_gen}->Text($text);
  188. }
  190. sub setAiText {
  191. my $self = shift;
  192. my ($text) = shift;
  193. $self->{status_ai}->configure(-text => $text);
  194. }
  196. ################################################################
  197. # init
  198. ################################################################
  200. sub initGUI {
  201. my $self = shift;
  203. my $nameFont = Win32::GUI::Font->new( -name => "Verdana",-size => 10, -bold =>1);
  204. my $consoleFont = Win32::GUI::Font->new( -name => "Verdana",-size => 7,);
  206. $self->{AccTable} = new Win32::GUI::AcceleratorTable (
  207.     "Return"  => &inputEnter,
  208.     "Up"  => &inputUp,
  209.     "Down"  => &inputDown,
  210.         "Ctrl-X"  => &onExit,
  211.         "Tab"  => sub { $self->{input}->SetFocus(); },
  212. "Alt+V" => &comstatus,
  213. "Alt+A" => &comstat,
  214. "Alt+I" => &comitems,
  215. "Alt+S" => &comskills,
  216. "Alt+E" => &comstatus,
  217.         );
  219. $self->{Menu} = Win32::GUI::MakeMenu (
  220.     "Open&Kore" => "Kore",
  221.     "   > &Pause" => { -name => "pause", -onClick => &compause },
  222.     "   > &Manual" => { -name => "manual", -onClick => &commanual },
  223.     "   > &Resume" => { -name => "resume", -onClick => &comresume },
  224.     "   > E&xit"  => { -name => "Kore_Exit", -onClick => &onExit },
  225.     "&View" => "View",
  226.     "   > View &Map"  => { -name => "View_Map", -onClick => &openMap },
  227.     "&Info" => "Info",
  228.     "   > &Status Alt+V" => { -name => "Status", -onClick => &comstatus },
  229.     "   > S&tatistics Alt+A" => { -name => "Statistics", -onClick => &comstat },
  230.     "   > &Inventory Alt+I" => { -name => "Inventory", -onClick => &comitems },
  231.     "   > S&kills Alt+S" => { -name => "Skills", -onClick => &comskills },
  232.     "   > &Experience Alt+E" => { -name => "Experience", -onClick => &comerooo },
  233.     
  234. );
  236. $self->{icon} = new Win32::GUI::Icon('SRC/BUILD/openkore.ICO');
  238. $self->{mw} = new Win32::GUI::Window(
  239.     -name     => "mw",
  240.     -title    => "Ragnarok Online Bot Client",
  241.     -pos      => [308, 220],
  242.     -size     => [950, 690],
  243.     -icon => $self->{icon},
  244.     -menu     => $self->{Menu},
  245.     -accel  => $self->{AccTable},
  246.     -maximizebox => 1,
  247.     -resizable => 0,
  248. -onMinimize => &OnMinimize,
  249.     -onTerminate => &onExit, 
  250. );
  252. $self->{mw}->ChangeIcon($self->{icon});
  254. # create the systray icon.
  255. $self->{systray_icon} = $self->{mw}->AddNotifyIcon( -name => "Systray",
  256. -id   => 1,
  257. -icon => $self->{icon},
  258. -tip  => 'OpenKore',
  259. -onClick => &tray_Click,
  260. );
  262. $self->{name} = $self->{mw}->AddLabel(
  263.        -text    => "name",
  264.        -name    => "name",
  265.        -font => $nameFont,
  266.        -left    => 4,
  267.        -top     => 102, #2,
  268.        -width   => 100,
  269.        -height  => 13,
  270.        -foreground    => 0,
  271.     );
  273. $self->{class} = $self->{mw}->AddLabel(
  274.        -text    => "job",
  275.        -name    => "class",
  276.        -left    => 4,
  277.        -top     => 116, #16,
  278.        -width   => 100,
  279.        -height  => 13,
  280.        -foreground    => 0,
  281.       );
  283. $self->{gender} = $self->{mw}->AddLabel(
  284.        -text    => "gender",
  285.        -name    => "gender",
  286.        -left    => 4,
  287.        -top     => 130, #30,
  288.        -width   => 40,
  289.        -height  => 13,
  290.        -foreground    => 0,
  291.       );
  293. $self->{hp_bar} = $self->{mw}->AddProgressBar(
  294.        -text    => "",
  295.        -name    => "hp_bar",
  296.        -left    => 140,
  297.        -top     => 104, #4,
  298.        -width   => 185,
  299.        -height  => 10,
  300.        -smooth   => 1,
  301.       );
  303. $self->{mw}->AddLabel(
  304.        -text    => "HP",
  305.        -name    => "hp_label",
  306.        -left    => 120,
  307.        -top     => 117, #17,
  308.        -width   => 15,
  309.        -height  => 13,
  310.        -foreground    => 0,
  311.       );
  313. $self->{sp_bar} = $self->{mw}->AddProgressBar(
  314.        -text    => "",
  315.        -name    => "sp_bar",
  316.        -left    => 140,
  317.        -top     => 132, #32,
  318.        -width   => 185,
  319.        -height  => 10,
  320.        -smooth   => 1,
  321.       );
  323. $self->{mw}->AddLabel(
  324.        -text    => "SP",
  325.        -name    => "sp_label",
  326.        -left    => 120,
  327.        -top     => 145, #45,
  328.        -width   => 14,
  329.        -height  => 13,
  330.        -foreground    => 0,
  331.       );
  333. $self->{hp_val} = $self->{mw}->AddLabel(
  334.        -text    => "0 / 0",
  335.        -name    => "hp_val",
  336.        -left    => 140,
  337.        -top     => 117, #17,
  338.        -width   => 185,
  339.        -height  => 13,
  340.        -align    => "center",
  341.        -foreground    => 0,
  342.       );
  344. $self->{sp_val} = $self->{mw}->AddLabel(
  345.        -text    => "0 / 0",
  346.        -name    => "sp_val",
  347.        -left    => 140,
  348.        -top     => 145, #45,
  349.        -width   => 185,
  350.        -height  => 13,
  351.        -align    => "center",
  352.        -foreground    => 0,
  353.       );
  355. $self->{mw}->AddLabel(
  356.        -text    => "Base Lv.",
  357.        -name    => "b_label",
  358.        -left    => 7,
  359.        -top     => 170, #70,
  360.        -width   => 45,
  361.        -height  => 13,
  362.        -foreground    => 0,
  363.       );
  365. $self->{base} = $self->{mw}->AddLabel(
  366.        -text    => "1",
  367.        -name    => "base",
  368.        -left    => 50,
  369.        -top     => 170, #70,
  370.        -width   => 20,
  371.        -height  => 20,
  372.        -foreground    => 0,
  373.       );
  375. $self->{b_bar} = $self->{mw}->AddProgressBar(
  376.        -text    => "",
  377.        -name    => "b_bar",
  378.        -left    => 70,
  379.        -top     => 173, #73,
  380.        -width   => 235,
  381.        -height  => 10,
  382.        -smooth   => 1,
  383.       );
  385. $self->{b_percent} = $self->{mw}->AddLabel(
  386.        -text    => "0%",
  387.        -name    => "b_percent",
  388.        -left    => 307,
  389.        -top     => 170, #70,
  390.        -width   => 28,
  391.        -height  => 13,
  392.        -foreground    => 0,
  393.       );
  395. $self->{mw}->AddLabel(
  396.        -text    => "  Job Lv.",
  397.        -name    => "j_label",
  398.        -left    => 7,
  399.        -top     => 185, #85,
  400.        -width   => 45,
  401.        -height  => 13,
  402.        -foreground    => 0,
  403.       );
  405. $self->{job} = $self->{mw}->AddLabel(
  406.        -text    => "1",
  407.        -name    => "job",
  408.        -left    => 50,
  409.        -top     => 185, #85,
  410.        -width   => 20,
  411.        -height  => 13,
  412.        -foreground    => 0,
  413.       );
  415. $self->{j_bar} = $self->{mw}->AddProgressBar(
  416.        -text    => "",
  417.        -name    => "j_bar",
  418.        -left    => 70,
  419.        -top     => 188, #88,
  420.        -width   => 235,
  421.        -height  => 10,
  422.        -smooth   => 1,
  423.       );
  425. $self->{j_percent} = $self->{mw}->AddLabel(
  426.        -text    => "0%",
  427.        -name    => "j_percent",
  428.        -left    => 307,
  429.        -top     => 185, #85,
  430.        -width   => 28,
  431.        -height  => 13,
  432.        -foreground    => 0,
  433.       );
  435. $self->{mw}->AddButton(
  436.        -text    => "Exp",
  437.        -name    => "exp_group",
  438.        -left    => 4,
  439.        -top     => 158, #58,
  440.        -width   => 335,
  441.        -height  => 48,
  442.        -style   => WS_CHILD | WS_VISIBLE | 7,  # GroupBox
  443.        -align    => "center",
  444.       );
  446. $self->{mw}->AddLabel(
  447.        -text    => "Status:",
  448.        -name    => "status_label",
  449.        -left    => 4,
  450.        -top     => 208, #108,
  451.        -width   => 32,
  452.        -height  => 13,
  453.        -foreground    => 0,
  454.       );
  456. $self->{status} = $self->{mw}->AddLabel(
  457.        -text    => "None",
  458.        -name    => "status",
  459.        -left    => 40,
  460.        -top     => 208, #108,
  461.        -width   => 300,
  462.        -height  => 13,
  463.        -foreground    => 0,
  464.       );
  466. $self->{console} = $self->{mw}->AddRichEdit(
  467.        -text    => "",
  468.        -name    => "console",
  469.        -font => $consoleFont,
  470.        -left    => 4,
  471.        -top     => 225, #125,
  472.        -width   => 419,
  473.        -height  => 361,
  474.            -style   => WS_CHILD | WS_VISIBLE | ES_LEFT
  475.                        | ES_MULTILINE | ES_AUTOVSCROLL | WS_VSCROLL | ES_READONLY,
  476.       );
  478. $self->{chat} = $self->{mw}->AddRichEdit(
  479.        -text    => "",
  480.        -name    => "chat",
  481.        -left    => 428,
  482.        -top     => 5, #250,
  483.        -width   => 419,
  484.        -height  => 591,
  485.            -style   => WS_CHILD | WS_VISIBLE | ES_LEFT
  486.                        | ES_MULTILINE | ES_AUTOVSCROLL | WS_VSCROLL | ES_READONLY,
  487.       );
  489. $self->{pm_list} = $self->{mw}->AddCombobox(
  490.        -text    => "",
  491.        -name    => "pm_list",
  492.        -left    => 417,
  493.        -top     => 596, #325,
  494.        -width   => 95,
  495.        -height  => 80,
  496.        -dropdown => 1,
  497. #        -style   => WS_VISIBLE | 2,  # Dropdown Style
  498.       );
  500. $self->{input} = $self->{mw}->AddTextfield(
  501.        -text    => "",
  502.        -name    => "input",
  503.        -left    => 512,
  504.        -top     => 596, #324,
  505.        -width   => 245,
  506.        -height  => 23,
  507.       );
  509. $self->{say_type} = $self->{mw}->AddCombobox(
  510.        -text    => "",
  511.        -name    => "say_type",
  512.        -left    => 758,
  513.        -top     => 596, #325,
  514.        -width   => 80,
  515.        -height  => 80,
  516.        -dropdownlist => 1,
  517. #        -style   => WS_VISIBLE | 2,  # Dropdown Style
  518.       );
  520. $self->{mw}->AddButton(
  521.        -text    => "View Map",
  522.        -name    => "btn_map",
  523.        -left    => 353,
  524.        -top     => 5,
  525.        -width   => 63,
  526.        -height  => 50,
  527.        -foreground => 0,
  528.        -onClick => &openMap,
  529.       );
  530. $self->{mw}->AddButton(
  531.        -text    => "Sit",
  532.        -name    => "sit command",
  533.        -left    => 4,
  534.        -top     => 5,
  535.        -width   => 50,
  536.        -height  => 20,
  537.        -foreground => 0,
  538.        -onClick => sub { Commands::run("sit"); },
  539.       );
  541. $self->{mw}->AddButton(
  542.        -text    => "complete report",
  543.        -name    => "Report",
  544.        -left    => 60,
  545.        -top     => 5,
  546.        -width   => 100,
  547.        -height  => 20,
  548.        -foreground => 0,
  549.        -onClick => sub { Commands::run("exp report"); },
  550.       );
  558. #
  560. $self->{say_type}->Add("Command","Public","Party","Guild");
  561. $self->{say_type}->Select(0);
  563. $self->{console}->BackColor([0,0,0]);
  564. $self->{chat}->BackColor([0,0,0]);
  566. $self->{console}->AutoURLDetect(1);
  567. $self->{chat}->AutoURLDetect(1);
  569. $self->{hp_bar}->SetRange(0,100);
  570. $self->{sp_bar}->SetRange(0,100);
  572. $self->{b_bar}->SetRange(0,100);
  573. $self->{j_bar}->SetRange(0,100);
  575. $self->{hp_bar}->SetBarColor([30,100,190]);
  576. $self->{sp_bar}->SetBarColor([30,100,190]);
  578. $self->{b_bar}->SetBarColor([30,100,190]);
  579. $self->{j_bar}->SetBarColor([30,100,190]);
  581. $self->{input}->SetFocus();
  582. $self->{mw}->Show();
  583. $self->{mw}->Center;
  585. # Hide console #
  586. my ($DOS) = Win32::GUI::GetPerlWindow(); 
  587.     Win32::GUI::Hide($DOS);
  588. ################
  589.     
  590. # Win32::GUI::Dialog();
  591. }
  593. sub inputEnter {
  594. my $self = shift;
  595. my ($line,$type);
  597. $line = $self->{input}->Text;
  598. $self->{input}->Text("");
  600. $type = $self->{say_type}->Text;
  602. if ($self->{pm_list}->Text eq "") {
  603. if ($type eq 'Public') {
  604. $line = 'c '.$line;
  605. } elsif ($type eq 'Party') {
  606. $line = 'p '.$line;
  607. } elsif ($type eq 'Guild') {
  608. $line = 'g '.$line;
  609. }
  610. } else {
  611. $self->{pm_list}->AddString($self->{pm_list}->Text);
  612. $line = "pm ".$self->{pm_list}->Text." $line";
  613. }
  615. return unless defined $line;
  616. push @input_que, $line;
  617. push @input_list, $line;
  618. }
  620. sub addPM {
  621. my $self = shift;
  622. my $param = $_[1];
  623. $self->{pm_list}->AddString($param->{user});
  624. }
  626. sub inputUp {
  627. my $self = shift;
  629. my $line;
  630. }
  632. sub inputDown {
  633. my $self = shift;
  635. }
  637. sub OnMinimize {
  638. my $self = shift;
  639. $self->Disable();
  640. $self->Hide();
  641. }
  643. sub tray_Click {
  644. my $self = shift;
  645. $self->Enable();
  646.     $self->Show();
  647. }
  649. sub errorDialog {
  650. my $self = shift;
  651. my $msg = shift;
  652. Win32::GUI::MessageBox($msg,"Error",MB_ICONERROR | MB_OK,);
  653. }
  655. sub onExit {
  656. my $self = shift;
  657. if ($conState) {
  658. push @input_que, "n";
  659. $quit = 1;
  660. }
  661. }
  663. sub openMap {
  665. $map->initMapGUI();
  666. $map->paintMap();
  667. $map->paintMiscPos();
  668. $map->paintPos();
  669. }
  671. sub compause {
  672. $AI = 0;
  673. }
  674. sub commanual {
  675. $AI = 1;
  676. }
  677. sub comresume {
  678. $AI = 2;
  679. }
  680. sub comstatus {
  681. Commands::run("s"); 
  682. }
  683. sub comstat {
  684. Commands::run("st"); 
  685. }
  686. sub comitems {
  687. Commands::run("i");
  688. }
  689. sub comskills {
  690. Commands::run("skills");
  691. }
  692. sub comerooo {
  693. Commands::run("exp");
  694. }
  697. sub UpdateCharacter {
  698. my $self = shift;
  699. return if (!$char || !$char->{'hp_max'} || !$char->{'sp_max'} || !$char->{'weight_max'});
  700. return if ($currentStatus eq join(", ", keys %{$chars[$config{char}]{statuses}}) && $char->{'hp'} == $currentHP && $char->{'sp'} == $currentSP && $char->{'exp'} == $currentLvl && $char->{'exp_job'} == $currentJob);
  702. $self->{name}->Text($char->{'name'});
  703. $self->{gender}->Text($sex_lut{$char->{'sex'}});
  704. $self->{class}->Text($jobs_lut{$char->{'jobID'}});
  705. $self->{status}->Text(join(", ", keys %{$chars[$config{char}]{statuses}}));
  707. $self->{base}->Text($char->{'lv'});
  708. $self->{job}->Text($char->{'lv_job'});
  710. my $percent_hp = sprintf("%i", $char->{'hp'} * 100 / $char->{'hp_max'});
  711. my $percent_sp = sprintf("%i", $char->{'sp'} * 100 / $char->{'sp_max'});
  713. $self->{hp_bar}->SetPos($percent_hp);
  714. $self->{sp_bar}->SetPos($percent_sp);
  716. $self->{hp_val}->Text("$char->{'hp'} / $char->{'hp_max'} ($percent_hp %)");
  717. $self->{sp_val}->Text("$char->{'sp'} / $char->{'sp_max'} ($percent_sp %)");
  719. if ($percent_hp < 20) {
  720. $self->{hp_bar}->SetBarColor([255,89,89]);
  721. } elsif ($percent_hp < 50) {
  722. $self->{hp_bar}->SetBarColor([223,223,0]);
  723. } else {
  724. $self->{hp_bar}->SetBarColor([30,100,190]);
  725. }
  727. if ($percent_sp < 20) {
  728. $self->{sp_bar}->SetBarColor([255,89,89]);
  729. } elsif ($percent_sp < 50) {
  730. $self->{sp_bar}->SetBarColor([223,223,0]);
  731. } else {
  732. $self->{sp_bar}->SetBarColor([30,100,190]);
  733. }
  735. my $percent_base_lv;
  737. if (!$char->{'exp_max'}) {
  738. $percent_base_lv = 0;
  739. } else {
  740. $percent_base_lv = sprintf("%i", $char->{'exp'} * 100 / $char->{'exp_max'});
  741. }
  742. $self->{b_bar}->SetPos($percent_base_lv);
  743. $self->{b_percent}->Text($percent_base_lv."%");
  745. my $percent_job_lv;
  747. if (!$char->{'exp_job_max'}) {
  748. $percent_job_lv = 0;
  749. } else {
  750. $percent_job_lv = sprintf("%i", $char->{'exp_job'} * 100 / $char->{'exp_job_max'});
  751. }
  752. $self->{j_bar}->SetPos($percent_job_lv);
  753. $self->{j_percent}->Text($percent_job_lv."%");
  755. $currentHP = $char->{'hp'};
  756. $currentSP = $char->{'sp'};
  757. $currentLvl = $char->{'exp'};
  758. $currentJob = $char->{'exp_job'};
  759. $currentStatus = join(", ", keys %{$chars[$config{char}]{statuses}});
  760. }
  762. %fgcolors = (
  763. 'reset' => [192,192,192],
  764. 'default' => [192,192,192],
  766. 'black' => [0,0,0],
  767. 'darkgray' => [175,175,175],
  768. 'darkgrey' => [175,175,175],
  770. 'darkred' => [180,0,0],
  771. 'red' => [255,0,0],
  773. 'darkgreen' => [0,180,0],
  774. 'green' => [0,255,0],
  776. 'brown' => [128,0,0],
  777. 'yellow' => [255,255,0],
  779. 'darkblue' => [0,0,180],
  780. 'blue' => [0,0,255],
  782. 'darkmagenta' => [180,0,180],
  783. 'magenta' => [255,0,255],
  785. 'darkcyan' => [0,180,180],
  786. 'cyan' => [0,255,255],
  788. 'gray' => [192,192,192],
  789. 'grey' => [192,192,192],
  790. 'white' => [192,192,192],
  791. );
  794. 1;