Ok, one last question! Below is the script I use to find the suit: Notice how it uses the same commands over and over. Is there a way to condense this?
Func Cardsuit(ByRef $P1s, ByRef $P2s, ByRef $As, ByRef $Bs, ByRef $Cs, ByRef $Ds, ByRef $Es)
If $P1<=52 and $P1>39 Then
$P1s="S"
ElseIf $P1<=39 and $P1>26 Then
$P1s="H"
ElseIf $P1<=26 and $P1>13 Then
$P1s="C"
Else
$P1s="D"
EndIf
If $P2<=52 and $P2>39 Then
$P2s="S"
ElseIf $P2<=39 and $P2>26 Then
$P2s="H"
ElseIf $P2<=26 and $P2>13 Then
$P2s="C"
Else
$P2s="D"
EndIf
If $As<=52 and $As>39 Then
$As="S"
ElseIf $As<=39 and $As>26 Then
$As="H"
ElseIf $As<=26 and $As>13 Then
$As="C"
Else
$As="D"
EndIf
If $B<=52 and $B>39 Then
$Bs="S"
ElseIf $B<=39 and $B>26 Then
$Bs="H"
ElseIf $B<=26 and $B>13 Then
$Bs="C"
Else
$Bs="D"
EndIf
If $C<=52 and $C>39 Then
$Cs="S"
ElseIf $C<=39 and $C>26 Then
$Cs="H"
ElseIf $C<=26 and $C>13 Then
$Cs="C"
Else
$Cs="D"
EndIf
If $D<=52 and $D>39 Then
$Ds="S"
ElseIf $D<=39 and $D>26 Then
$Ds="H"
ElseIf $D<=26 and $D>13 Then
$Ds="C"
Else
$Ds="D"
EndIf
If $E<=52 and $E>39 Then
$Es="S"
ElseIf $E<=39 and $E>26 Then
$Es="H"
ElseIf $E<=26 and $E>13 Then
$Es="C"
Else
$Es="D"
EndIf