+
+sub getclass {
+ $class = $_[0];
+ if ($class =~ /Sandstorm/i) {
+ return 0;
+ } elsif ($class =~ /Fury/i) {
+ return 1;
+ } elsif ($class =~ /DustDevil/i) {
+ return 3;
+ } elsif ($class =~ /Tempest/i) {
+ return 4;
+ } elsif ($class =~ /Blizzard/i) {
+ return 5;
+ } elsif ($class =~ /Firestorm/i) {
+ return 6;
+ }
+ return 0xFF;
+}