Dynasty Posting Utility

[sabotai]

Lifestyles....of the rich and the famous....they're always complaining....

[sabotai]

Informer you no say daddy me Snow me I'll go blame, A licky boom boom down

[daedalus]

Occasionally, you're frightening. Occasionally.

[sabotai]

[sabotai]

Look slike this has fallen off the face of the earth.

Any news primelord? Any chance of posting the source so others may work on it if you don't have the time anymore (or for those just curious) ?

[Alf]

I'll pot a link in QS word/number puzzle since primelord posts there

[primelord]

I unfortunately have not made very much progress on this since my last update. I have decided to go in a different direction with it. I want to incorporate a databse back end to the program so it can much more efficently search the data and sotre data for later extraction etc.

I do plan on getting back to this. Hope fully soon.

I will be happy to post the source code. I'll do that in the next post.

[primelord]

Here is my code to generate a QB Passer Rating.

sub qb_pass_rate {
        my ($pass_cmp, $pass_att, $yards, $tds, $ints) = @_;
        my ($step1, $step2, $step3, $step4, $pass_rate);
        $step1 = ($pass_cmp / $pass_att);
        $step1 -= 0.3;
        $step1 /= 0.2;
        $step1 = 2.375 if ($step1 > 2.375);
        $step1 = 0 if ($step1 < 0);
        $step2 = ($yards / $pass_att);
        $step2 -= 3;
        $step2 /= 4;
        $step2 = 2.375 if ($step2 > 2.375);
        $step2 = 0 if ($step2 < 0);
        $step3 = ($tds / $pass_att);
        $step3 /= .05;
        $step3 = 2.375 if ($step3 > 2.375);
        $step3 = 0 if ($step3 < 0);
        $step4 = ($ints / $pass_att);
        $step4 = (.095 - $step4);
        $step4 /= .04;
        $step4 = 2.375 if ($step4 > 2.375);
        $step4 = 0 if ($step4 < 0);
        $pass_rate = ($step1 + $step2 + $step3 + $step4);
        $pass_rate *= 100;
        $pass_rate /= 6;
        $pass_rate = sprintf "%.1f", $pass_rate;
        return $pass_rate;
}

[primelord]

Attached is the source code for where I left off on this project. For anyone that doesn't know Perl that is tight, efficent, beautiful code. For those that do know Perl. They will quickly realize that last statement was bullshit.

Most of the code could be optimized considerably, but I was more focused on functionality for the first go round. Inputing the files and who you want to serach for is very cumbersome at the moment. I didn't bother writing a decent way to do that because I was/am going to handle it through a web interface in the future. It also still only handles QB's at the moment.

Ok so it's sloppy and the code isn't commented so you may have trouble following everythign I am doing, but here it is. If anyone has any questions/suggestions feel free to let me know. And don't lose faith I do plan on completeing this.

I would open it up in WordPad. NotePad and Microsoft Word screw with the formatting and it makes the code pretty difficult to read.

[sabotai]

Perl eh?.....I don't know Perl.

Does this code also read the play-by-play and get the stats? May sound like a dumb question, but I seriously don't know any Perl at all. (Been meaning to learn it, though)

[primelord]

It actually reads the game logs to generate the stats. Reading the actualy play by play would be very difficult.

If you know any C you can probably make a little sense out of the code. There are some similarities.