[Kingly_Krab]

This script will generate any number of ranked items (I recommend stopping at 2500 because eventually the Roman numerals don't show). This script was used for Leetsauce's Power Orb and Kimura's Powersource/Charm for examples:

use Roman;
sub CreateRanked {
    my $n = shift;
    $n =~ s/\'/\\'/ig;
    open my $file, ">$n.sql";
    my $r = shift;
    my $id = shift;
    my $q = "INSERT INTO `items` (";
    $q .= "`id`, `name`, ";
    $q .= "`ac`, `attack`, ";
    $q .= "`hp`, `mana`, `endur`, ";
    $q .= "`aagi`, `acha`, `adex`, `aint`, `asta`, `astr`, `awis`, ";
    $q .= "`heroic_agi`, `heroic_cha`, `heroic_dex`, `heroic_int`, `heroic_sta`, `heroic_str`, `heroic_wis`, ";
    $q .= "`cr`, `dr`, `fr`, `mr`, `pr`, `svcorruption`, ";
    $q .= "`heroic_cr`, `heroic_dr`, `heroic_fr`, `heroic_mr`, `heroic_pr`, `heroic_svcorrup`, ";
    $q .= "`spelldmg`, `healamt`, ";
    $q .= "`combateffects`, `damageshield`, `dotshielding`, `spellshield`, `strikethrough`, `stunresist`, `dsmitigation`, ";
    $q .= "`nodrop`, `norent`, `loregroup`, ";
    $q .= "`slots`, `unk132`, `classes`, `races`, `icon`, `idfile`, ";
    $q .= "`clickeffect`, `proceffect`, `worneffect`, `scrolleffect`, ";
    $q .= "`augslot" . $_ . "type`, `augslot" . $_ . "visible`, " for (1..5);
    $q .= "`lore`, `serialized`, `verified`, `serialization`, `created`) VALUES\n";
    for ($i = 1; $i <= $r; ++$i) {
        my $hme = GetHME($i);
        my $sdha = GetSDHA($i);
        my $cs = GetCS($i);
        my $s = GetS($i);
        my $sad = GetSAD($i);
        my $h = GetH($i);
        my $had = GetHAD($i);
        $q .= "('" . ($id + $i) . "', '$n " . Roman($i) . "', ";
        $q .= "'$i', '$i', ";
        $q .= "'$hme', '$hme', '$hme', ";
        $q .= "'$sad', '$s', '$sad', '$s', '$s', '$s', '$s', ";
        $q .= "'$had', '$h', '$had', '$h', '$h', '$h', '$h', ";
        $q .= "'$s', '$s', '$s', '$s', '$s', '$s', ";
        $q .= "'$h', '$h', '$h', '$h', '$h', '$h', ";
        $q .= "'$sdha', '$sdha', ";
        $q .= "'$cs', '$cs', '$cs', '$cs', '$cs', '$cs', '$cs', ";
        $q .= "'0', '1', '-1', ";
        if ($i != $r) {
            $q .= "'4194304', '-1', '65535', '65535', '2258', 'IT63', '-1', '-1' ,'-1', '-1', '0', '1', '0', '1', '0', '1', '0', '1', '0', '1', '', NOW(), NOW(), NOW(), NOW()),\n";
        } elsif ($i == $r) {
            $q .= "'4194304', '-1', '65535', '65535', '2258', 'IT63', '-1', '-1' ,'-1', '-1', '0', '1', '0', '1', '0', '1', '0', '1', '0', '1', '', NOW(), NOW(), NOW(), NOW());";
            say $file $q;
        }
    }
    close $file;
}

sub GetS {
    return (($_[0] > 127) ? 127 : $_[0]);
}

sub GetSAD {
    return (($_[0] > 10) ? 10 : $_[0]);
}

sub GetH {
    return 0 if $_[0] <= 250;
    return ((($_[0] - 250) > 100) ? 100 : ($_[0] - 250));
}

sub GetHAD {
    return 0 if $_[0] <= 250;
    return ((($_[0] - 250) > 10) ? 10 : ($_[0] - 250));
}

sub GetHME {
    my %h = (5 => [1..24],
    10 => [25..49],
    25 => [50..99],
    50 => [100..249],
    100 => [250..3000]);
    foreach my $key (keys %h) {
        return ($_[0] * $key) if ($_[0] ~~ @{$h{$key}});
    }
}

sub GetSDHA {
    my %h = (1 => [25..49],
    3 => [50..99],
    5 => [100..249],
    10 => [250..499],
    20 => [500..749],
    30 => [750..999],
    40 => [1000..1249],
    50 => [1250..1499],
    100 => [1500..1749],
    150 => [1750..1999],
    200 => [2000..2249],
    250 => [2250..2500],
    500 => [2500..3000]);
    return 0 if ($_[0] < 25);
    foreach my $key (keys %h) {
        return int($_[0] + $key) if ($_[0] ~~ @{$h{$key}});
    }
}

sub GetCS {
    my %h = (25 => [25..49],
    50 => [50..74],
    75 => [75..99],
    100 => [100..3000]);
    return 0 if ($_[0] < 25);
    foreach my $key (keys %h) {
        return $key if ($_[0] ~~ @{$h{$key}});
    }
}
print "Name?\n";
my $n = <STDIN>;
$n =~ s/\s+$//;
print "Ranks?\n";
my $r = int(<STDIN>);
print "Starting ID?\n";
my $id = int(<STDIN>);
CreateRanked($n, $r, $id);

Example of use: