Enhance TP/WP

Using array $LevelAreaForWP[56] to know exactly where WP goes to. This
can avoid a infinit loop condition that $Newarea always equal to
$Curentarea.
Enhance dealing TP loading bar.