ProgressBar bug fix 2.0

Index: Receive.pm
===================================================================
--- Receive.pm  (revision 8977)
+++ Receive.pm  (working copy)
@@ -2049,4 +2049,21 @@
    }
 }

+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 {
+            $messageSender->sendProgress();
+            message TF("Progress bar finished.\n"), 'info';
+            $_[0]->setDone;
+       })]));
+}
+
+sub progress_bar_stop {
+   my($self, $args) = @_;
+   message TF("Progress bar finished.\n", 'info');
+}
+
 1;
Index: Receive/kRO/Sakexe_0.pm
===================================================================
--- Receive/kRO/Sakexe_0.pm (revision 8977)
+++ 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,7 @@
 sub character_block_info {
    #TODO
 }
+
 1;

 =pod
Index: Receive/ServerType0.pm
===================================================================
--- Receive/ServerType0.pm  (revision 8977)
+++ Receive/ServerType0.pm  (working copy)
@@ -7228,23 +7228,6 @@
    }
 }

-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 {
-            $messageSender->sendProgress();
-            message TF("Progress bar finished.\n"), 'info';
-            $_[0]->setDone;
-       })]));
-}
-
-sub progress_bar_stop {
-   my($self, $args) = @_;
-   message TF("Progress bar finished.\n", 'info');
-}
-
 sub open_buying_store { #0x810
    my($self, $args) = @_;
    my $amount = $args->{amount};
Index: Send.pm
===================================================================
--- Send.pm (revision 8977)
+++ Send.pm (working copy)
@@ -1185,4 +1185,11 @@
    debug "Sent Equip: $index Type: $type\n" , 2;
 }

+sub sendProgress {
+   my ($self) = @_;
+   my $msg = pack("C*", 0xf1, 0x02);
+   $self->sendToServer($msg);
+   debug "Sent Progress Bar Finish\n", "sendPacket", 2;
+}
+
 1;
\ No newline at end of file
Index: Send/ServerType0.pm
===================================================================
--- Send/ServerType0.pm (revision 8977)
+++ Send/ServerType0.pm (working copy)
@@ -1243,13 +1243,6 @@
    $self->sendToServer($msg);
 }

-sub sendProgress {
-   my ($self) = @_;
-   my $msg = pack("C*", 0xf1, 0x02);
-   $self->sendToServer($msg);
-   debug "Sent Progress Bar Finish\n", "sendPacket", 2;
-}
-
 # 0x0204,18

 1;
\ No newline at end of file