Something

parameters: sorted list of five card hand
cards are integers denoted by value*10 +suit(0123)

numpair = 0
num= 0
strt = 0
flush = 0
for(i 1->4)
{
if(card[i]/10==card[i-1]/10)
{
   numpair++
   num+=numpair+10
}
else
   numpair= 0

if(card[i]/10==card[i-1]/10+1)
   strt +=1

if(card[i]%10==card[i-1]%10)
   flush +=1
}
num2 = (flush==4)?35:0+(strt==4)?30:0
return max(num,num2)*1000 + card[4]  //last card for highest card val...


this returns the following vals

strtflush 65
4of a kind 50
fullhouse 45
flush 35
strt 30
3of a kind 23
2pair 22
1pair 11

note how values are in order of precedence