I believe Perl supports iterating loops as follows, which would be cleaner.
Code:
if ($class eq 'Warrior')
{
foreach (38000..38020)
{
quest::summonitem($_);
}
}
elsif ($class eq 'Shadowknight')
{
foreach (38063..38083)
{
quest::summonitem($_);
}
}
21 items at once, eh? I feel like I've read somewhere that there's a limit to how many items could be stored on a player's cursor, but I don't really remember.