<perl>
get "Id==$Id sort=- range=0,01","matchups";
if ( $ResultA eq "1" && $ResultB eq "0" )
{
$s1=1;
get "Nickname==$PlayerA range=0,01","register";
$Win1=$Win+$s1;
mod "Nickname==$PlayerA",["Win","$Win1"],"register";

$Loss1=$Loss+$s1;
mod "Nickname==$PlayerB",["Loss","$Loss1"],"register";
}

{
get "Nickname==$PlayerA range=0,01","register";
$Loss1=$Loss+$s1;
mod "Nickname==$PlayerA",["Loss","$Loss1"],"register";
get "Nickname==$PlayerB range=0,01","register";

mod "Nickname==$PlayerB",["Win","$Win1"],"register";
}

{

}

{
out" Ladder result marked as Canceled";
}

{
out" Ladder result marked as Canceled";
}

{
out" Both players have claimed a dics? ... Idiots!";
}

{
out" sorry no Ladder result possible";
}
</perl>

$Nickname
$Rank
$Rateing

#########################################
$PlayerA   ## $Nickname  $ Rank $Rateing
$PlayerB   ## $Nickname  $ Rank $Rateing
$ResultA   ##  1 or 0 or d or c
$ResultB   ##  0 or 1 or d or c

##Rank $Points add  for playerA or B in register
if ( $Rank eq "A")
{
$Points=20;
}
elsif ( $Rank eq "B")
{
$Points=30;
}
elsif ( $Rank eq "C")
{
$Points=40;
}
else ( $Rank eq "D")
{
$Points=50;
}