ProgressBar bug fix

Index: src/Network/Receive/kRO/Sakexe_0.pm
===================================================================
--- src/Network/Receive/kRO/Sakexe_0.pm (revision 8977)
+++ src/Network/Receive/kRO/Sakexe_0.pm (working copy)
@@ -352,6 +352,8 @@
        '08D1' => ['unequip_item', 'v2 C', [qw(index type success)]],
        '08D2' => ['high_jump', 'a4 v2', [qw(ID x y)]], # 10
        '0977' => ['monster_hp_info', 'a4 V V', [qw(ID hp hp_max)]],
+       '02F0' => ['progress_bar', 'V2', [qw(color time)]],
+       '02F2' => ['progress_bar_stop']
    };

    # Item RECORD Struct's
@@ -6437,6 +6438,24 @@
 sub character_block_info {
    #TODO
 }
+
+sub progress_bar {
+   my($self, $args) = @_;
+   message TF("Progress bar loading (time: %d).\n", $args->{time}), 'info';
+   $taskManager->add(
+       new Task::Chained(tasks => [new Task::Wait(seconds => $args->{time}),
+       new Task::Function(function => sub {
+            my $msg = pack("C*", 0xf1, 0x02);
+            $messageSender->sendToServer($msg);
+            message TF("Progress bar finished.\n"), 'info';
+            $_[0]->setDone;
+       })]));
+}
+
+sub progress_bar_stop {
+   my($self, $args) = @_;
+   message TF("Progress bar finished2222.\n", 'info');
+}
 1;

 =pod