this line should be checking to verify that the max skill available at the level obtained is higher than the current raw skill before setting the skill to the new value:
Code:
next unless $maxSkill > $client->GetRawSkill($skill);
i would think that since the current skill is already at the max for the level when you re-ding, it should skip the skill in question. i believe i'd already tested this and it worked, but i can always test it again to verify.
as for the spells and discs, i'm sure it could be changed to not re-train/scribe already known items, but it would require source code modification as the work is actually done server-side and not in the script.