Poring race script prob

[c2greentea]

This is my poring race script http://upaste.me/r/008d15473b05f9c7d

 

We noticed that almost all the time Marin wins every session. Maybe 75% since we used this script, Marin would always win. Is there something wrong with the script? Pls help

[Winz]

The winner is decided here:

set $@win,rand(1,6);
switch($@win)
{
case 1: donpcevent "Poring#race::OnPoringWin"; break;
case 2: donpcevent "Drops#race::OnDropsWin"; break;
case 3: donpcevent "Poporing#race::OnPoporingWin"; break;
case 4: donpcevent "Marin#race::OnMarinWin"; break;
case 5: donpcevent "Pouring#race::OnPouringWin"; break;
default: donpcevent "Santa Poring#race::OnSantaWin"; break;
}

Therefore, it is really random.

 

And I have no idea on how to modify this randomizing thing.

 

if Marin wins 75% of the time in your server, then your server's mascot shall be Marin