既出じゃ無いと思ったんで魔法ダメージとか。
攻撃元、ターゲット、ダメージの取得が

} elsif ($switch eq "0114") {
$ID1 = substr($msg, 4, 4);
$ID2 = substr($msg, 8, 4);
$damage = unpack("S1", substr($msg, 24, 2));

で、あとはこれに通常のダメージ処理を模倣して処理付け足せば
うまく処理できる希ガス。

で、mageでKoreな話。
俺はattackAutoの処理の中のsendAttack関数を
smの処理〜skillUseにそっくりそのまま置き換えて
さらに攻撃前のmave関数外して蟻巣に放置してる。
一歩もその場から動かずに射程に入ったモンスに魔法を撃つ感じ。
さらにparseDataFile5を
($key, $args) = $_ =~ /(.+?)\t(\d+.*)/;
@args = split /\t/,$args;
if ($key ne "") {
$$r_hash{$key}{'attack_auto'} = $args[0];
$$r_hash{$key}{'teleport_auto'} = $args[1];
$$r_hash{$key}{'teleport_search'} = $args[2];
$$r_hash{$key}{'useskill'} = $args[3];
$$r_hash{$key}{'skilllv'} = $args[4];
}
こんな感じにして細工すれば敵毎に魔法も撃ち分けられる仕組み。（蟻にはFB2ビタタにSS4みたいな）