mod "Nickname==$PlayerB",["Rateing","$Rateing1B", "Loss","$Loss1"],"/scLadder/JSL1on1/register"; 
<perl>
get "Id==$Id sort=-Date range=0,01","/scLadder/JSL1on1/matchups";

{
get "Nickname==$PlayerA range=0,01","/scLadder/JSL1on1/register";

$Win1=$Win+1;
mod "Nickname==$PlayerA",["Rateing","$Rateing1A", "Win","$Win1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerA",["LMID","$PlayerB"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>He Wins $WinCalcA<br>";
get "Nickname==$PlayerB range=0,01","/scLadder/JSL1on1/register";
$Rateing1B=$Rateing-$WinCalcB;
$Loss1=$Loss+1;
mod "Nickname==$PlayerB",["Rateing","$Rateing1B", "Loss","$Loss1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerB",["LAID","$PlayerA"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>You loose $LossCalcA<br>";
out" <td align=center bgcolor=ffffff><small>$WinCalcA / $LossCalcA</small> 1</td>"; 
}

{
get "Nickname==$PlayerA range=0,01","/scLadder/JSL1on1/register";

$Loss1=$Loss+1;
mod "Nickname==$PlayerA",["Rateing","$Rateing2A", "Loss","$Loss1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerA",["LMID","$PlayerB"],"/scLadder/JSL1on1/register";  #Last Match Played 

$Rateing2B=$Rateing+$WinCalcA;

mod "Nickname==$PlayerB",["Rateing","$Rateing2B", "Win","$Win1"],"/scLadder/JSL1on1/register";
mod "Nickname==$PlayerB",["LAID","$PlayerA"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>He Looses $LossCalcA <br>";
out" <br>You win $WinCalcA<br>";

#############################################################################
}
elsif ($ResultA eq "1" && $ResultB eq "0" && $RankA > $RankB && $RateingA > $RateingB)	

get "Nickname==$PlayerA range=0,01","/scLadder/JSL1on1/register";

$Win1=$Win+1;
mod "Nickname==$PlayerA",["Rateing","$Rateing3A", "Win","$Win1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerA",["LMID","$PlayerB"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>He Wins $WinCalcA<br>";
get "Nickname==$PlayerB range=0,01","/scLadder/JSL1on1/register";
$Rateing3B=$Rateing-$WinCalcA;
$Loss1=$Loss+1;
mod "Nickname==$PlayerB",["Rateing","$Rateing3B", "Loss","$Loss1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerB",["LAID","$PlayerA"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>You loose $LossCalcB<br>";

 out" <td align=center bgcolor=ffffff><small>$WinCalcA / $LossCalcB</small> 3</td>"; 

elsif ($ResultA eq "0" && $ResultB eq "1" && $RankA > $RankB && $RateingA > $RateingB)	

get "Nickname==$PlayerA range=0,01","/scLadder/JSL1on1/register";

$Loss1=$Loss+1;
mod "Nickname==$PlayerA",["Rateing","$Rateing4A", "Loss","$Loss1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerA",["LMID","$PlayerB"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>He Looses $LossCalcA<br>";
get "Nickname==$PlayerB range=0,01","/scLadder/JSL1on1/register";
$Rateing4B=$Rateing+WinCalcB;
$Win1=$Win+1;
mod "Nickname==$PlayerB",["Rateing","$Rateing4B", "Win","$Win1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerB",["LAID","$PlayerA"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>You Win $WinCalcB<br>";

 out" <td align=center bgcolor=ffffff><small>$LossCalcA / $WinCalcB</small> 4</td>"; 

################################################################
elsif ($ResultA eq "1" && $ResultB eq "0" && $RankA < $RankB && $RateingA < $RateingB)	

get "Nickname==$PlayerA range=0,01","/scLadder/JSL1on1/register";

$Win1=$Win+1;
mod "Nickname==$PlayerA",["Rateing","$Rateing5A", "Win","$Win1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerA",["LMID","$PlayerB"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>He Wins $WinCalcA<br>";
get "Nickname==$PlayerB range=0,01","/scLadder/JSL1on1/register";
$Rateing5B=$Rateing-$WinCalcA;
$Loss1=$Loss+1;
mod "Nickname==$PlayerB",["Rateing","$Rateing5B", "Loss","$Loss1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerB",["LAID","$PlayerA"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>You Loose $LossCalcB<br>";

 out" <td align=center bgcolor=ffffff><small>$WinCalcA / $LossCalcB</small> 5</td>"; 

elsif ($ResultA eq "0" && $ResultB eq "1" && $RankA < $RankB && $RateingA < $RateingB)	

get "Nickname==$PlayerA range=0,01","/scLadder/JSL1on1/register";

$Loss1=$Loss+1;
mod "Nickname==$PlayerA",["Rateing","$Rateing6A", "Loss","$Loss1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerA",["LMID","$PlayerB"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>He Looses $LossCalcA<br>";
get "Nickname==$PlayerB range=0,01","/scLadder/JSL1on1/register";
$Rateing6B=$Rateing+$WinCalcB;
$Win1=$Win+1;
mod "Nickname==$PlayerB",["Rateing","$Rateing6B", "Win","$Win1"],"/scLadder/JSL1on1/register";
#mod "Nickname==$PlayerB",["LAID","$PlayerA"],"/scLadder/JSL1on1/register";  #Last Match Played 
out" <br>You Win $WinCalcB<br>";

 out" <td align=center bgcolor=ffffff><small>$LossCalcA / $WinCalcB 6</small> 6</td>"; 

#############################
#############################
elsif ( $ResultA eq "1" && $ResultB eq "1" )
{

}

{
out" <br>Ladder result marked as Canceled<br>";
}

{
out" <br>Ladder result marked as Canceled by $PlayerA!<br>";
}

{
out" <br>Ladder result marked as Canceled by you!<br>";
}

{
out" <br>Ladder result marked as Canceled by both Players!<br>";
}
else
{
out" <td align=center bgcolor=ffffff><small>no result! False RANK/Rateing conditions! Relog and make your claims!</small></td>";
}
</perl>