<!--
        // made by Mark de Rooy
        // copyright LAD programming and webdesign

        function MakeArray(n) {
                this.length=n
                for (var j = 1 ; j <=n ; j++) {
                        this[1]=0
                        }
                return this
        }

        cards=new MakeArray(5)
        cards[1]=1
        cards[2]=1
        cards[3]=1
        cards[4]=1
        cards[5]=1

        stats=new MakeArray(10)
        stats[1]=0
        stats[2]=0
        stats[3]=0
        stats[4]=0
        stats[5]=0
        stats[6]=0
        stats[7]=0
        stats[8]=0
        stats[9]=0
        stats[10]=0


        p=new MakeArray(5)
        deck=new MakeArray(54)
        kind=new MakeArray(54)
        ff=new MakeArray(12)
        // 0 -> harten
        // 1 -> schoppen
        // 2 -> ruiten
        // 3 -> klaveren
        // 4 -> joker
        waarde=new MakeArray(54)
        // 1 -> joker
        // 2 t/m 10 -> waarde
        // 11 -> b
        // 12 -> v
        // 13 -> h
        // 14 -> a
        val=new MakeArray(5)
        var turn=3
        var picture="standard.jpg"
        var credit=250
        var bet=5
        var score=0
        var changed=-1
        var name="poker"
        var vv
        var tekst=""
        // 0 -> niets
        // 1 -> 2 pair
        // 2 -> 3 of a kind
        // 3 -> straight
        // 4 -> flush
        // 5 -> full house
        // 6 -> 4 of a kind
        // 7 -> straight flush
        // 8 -> 5 of a kind
        // 9 -> 1 pair

        function printcards() {
                parent.frames[1].document.clear()
                parent.frames[1].document.open()
                parent.frames[1].document.write("<body bgcolor=green>")
                parent.frames[1].document.write("<table celpadding=3 border=0><tr align=middle>")
                for (j=1 ; j<=5 ; j++)
                {
                        t=cards[j]
                        if (val[j]==1)
parent.frames[1].document.write("<td><img src='http://www.dirtymind.com/games/poker/"+deck[t]+"'></td>"); 
                        else parent.frames[1].document.write("<td><img src='http://www.dirtymind.com/games/poker/back.gif'></td>")
                }
                parent.frames[1].document.write("</tr></table></body>")
                parent.frames[1].document.close()
        }

        function setrandom() {
                datum=new Date()
                minute=datum.getMinutes()
                seconds=datum.getSeconds()
                y=minute+seconds+1
                q=2048
                qq=1
                while (qq<=12)
                {
                        if (y>=q)
                        {
                                ff[qq]=1
                                y=y-q
                        } else ff[qq]=0
                        q=q/2
                        qq++
                }
        }

        function random(n) {
                // 1,4,6,8 voor lengte 8 : periode 255
                // 1,3,6,8,10,11 voor lengte 12 : periode 4095
                y=ff[1]+ff[3]+ff[6]+ff[8]+ff[10]+ff[11]
                for (r=1 ; r<12 ; r++) ff[r]=ff[r+1]
                ff[12]=y%2
                z=ff[12]
                zz=2048
                for (r=1 ; r<12 ; r++) 
                {
                        z+=(zz*ff[r])
                        zz=zz/2
                }
                number=(z%n)+1
                return number
        }
                

        function initstats() {
                for (i=1 ; i<=10 ; i++) stats[i]=0
        }

        function updatestats() {
                stats[10]++ 
                if (score>0 && score<10) stats[score]++
        }

        function printstats() {
                statswindow=window.open("","statistics","scrollbars=yes,resizable=no,width=400,height=600")
                statswindow.document.clear()
                statswindow.document.open()
                statswindow.document.write("<title>Statistics</title><body bgcolor=white><h1>Statistics</h1>")
                statswindow.document.write("<table celpadding=2 border=2 align=middle>")
                statswindow.document.write("<tr align=middle><td>number of hands completed</td><td>"+stats[10]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>1 pair</td><td>"+stats[9]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>2 pair</td><td>"+stats[1]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>3 of a kind</td><td>"+stats[2]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>straight</td><td>"+stats[3]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>flush</td><td>"+stats[4]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>full house</td><td>"+stats[5]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>4 of a kind</td><td>"+stats[6]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>straight flush</td><td>"+stats[7]+"</td></tr>")
                statswindow.document.write("<tr align=middle><td>poker</td><td>"+stats[8]+"</td></tr>")
                statswindow.document.write("</table></body>")
                statswindow.document.close()
        }


        function schrijf(x) {
                parent.frames[2].document.open()
                parent.frames[2].document.write(x)
                parent.frames[2].document.close()
        }

        function changeval(n) {
                if (turn==1)
                {
                        if (val[n]==0) val[n]=1; else val[n]=0
                        printcards()
                }
        }

        function changeall() {
                if (turn==1)
                {
                        for (j=1 ; j<=5 ; j++) if (val[j]==0) val[j]=1; else val[j]=0
                        printcards()
                }
        }

        function swap() {
                x=random(54)
                y=random(54)
                z=deck[x]
                a=kind[x]
                b=waarde[x]
                deck[x]=deck[y]
                deck[y]=z
                kind[x]=kind[y]
                kind[y]=a
                waarde[x]=waarde[y]
                waarde[y]=b
        }


        function initdeck() {
                teller=1
                for (j=2 ; j<=14 ; j++)
                {
                        if (j<=10) 
                        {
                                deck[teller]="harten"+j+".gif"
                                kind[teller]=0
                                waarde[teller]=j
                                teller++
                                deck[teller]="schop"+j+".gif"
                                kind[teller]=1
                                waarde[teller]=j
                                teller++
                                deck[teller]="ruiten"+j+".gif"
                                kind[teller]=2
                                waarde[teller]=j
                                teller++
                                deck[teller]="klav"+j+".gif"
                                kind[teller]=3
                                waarde[teller]=j
                                teller++
                        }
                        if (j==11)
                        {
                                deck[teller]="hartenb.gif"
                                kind[teller]=0
                                waarde[teller]=j
                                teller++
                                deck[teller]="schopb.gif"
                                kind[teller]=1
                                waarde[teller]=j
                                teller++
                                deck[teller]="ruitenb.gif"
                                kind[teller]=2
                                waarde[teller]=j
                                teller++
                                deck[teller]="klavb.gif"
                                kind[teller]=3
                                waarde[teller]=j
                                teller++
                        }
                        if (j==12)
                        {
                                deck[teller]="hartenv.gif"
                                kind[teller]=0
                                waarde[teller]=j
                                teller++
                                deck[teller]="schopv.gif"
                                kind[teller]=1
                                waarde[teller]=j
                                teller++
                                deck[teller]="ruitenv.gif"
                                kind[teller]=2
                                waarde[teller]=j
                                teller++
                                deck[teller]="klavv.gif"
                                kind[teller]=3
                                waarde[teller]=j
                                teller++
                        }
                        if (j==13)
                        {
                                deck[teller]="hartenk.gif"
                                kind[teller]=0
                                waarde[teller]=j
                                teller++
                                deck[teller]="schopk.gif"
                                kind[teller]=1
                                waarde[teller]=j
                                teller++
                                deck[teller]="ruitenk.gif"
                                kind[teller]=2
                                waarde[teller]=j
                                teller++
                                deck[teller]="klavk.gif"
                                kind[teller]=3
                                waarde[teller]=j
                                teller++
                        }
                        if (j==14)
                        {
                                deck[teller]="hartena.gif"
                                kind[teller]=0
                                waarde[teller]=j
                                teller++
                                deck[teller]="schopa.gif"
                                kind[teller]=1
                                waarde[teller]=j
                                teller++
                                deck[teller]="ruitena.gif"
                                kind[teller]=2
                                waarde[teller]=j
                                teller++
                                deck[teller]="klava.gif"
                                kind[teller]=3
                                waarde[teller]=j
                                teller++
                        }
                }
                deck[53]="joker.gif"
                kind[53]=4
                waarde[53]=1
                deck[54]="joker.gif"
                kind[54]=4
                waarde[54]=1
        }

        function changecredit(n) {
                credit=credit+n
                parent.frames[2].document.open()
                parent.frames[2].document.write("<body bgcolor=white><h3><font size=+2 color=red><i>C</i></font>redit : "+credit+" .</h3>")
                parent.frames[2].document.write(tekst)
                parent.frames[2].document.write("</body>")
                parent.frames[2].document.close()
        }

        function showhelp() {
                helpwindow=window.open("help.html","help","scrollbars=yes,resizable=no,width=300,height=500")
        }

        function showabout() {
                top.location="../index2.html"
//                aboutwindow=window.open("about.html","about","scrollbars=no,resizable=no,width=300,height=300")
        }

        function showallpictures() {
                chp=top.location.search
                vvp=chp.charAt(1)+chp.charAt(2)
                picturewindow=window.open("","pictures","scrollbars=yes,resizable=yes,width=600,height=600")
                picturewindow.document.clear()
                picturewindow.document.open()
                picturewindow.document.write("<body bgcolor=white><h1>The earned pictures</h1><p>")
                picturewindow.document.write("Below are all the pictures you have earned with your current score of "+credit+". ")
                picturewindow.document.write("That does not include the previews.<p>")
                if (credit<250) picturewindow.document.write("<p><br><h3>You'll have to get at least 250 points to see anything.</h3>")
                for (io=1 ; io<=8 ; io++)
                {
                        pal=vvp+"2"+io+"6"+io+".jpg"
                        if (credit>=io*250) picturewindow.document.write("<h3>Picture "+io+" :<br><img src='http://www.dirtymind.com/games/poker/"+pal+"'><p>")
                }
                picturewindow.document.write("</body>")
                picturewindow.document.close()
        }               

        function printpic() {
                parent.frames[3].document.open()
                parent.frames[3].document.write("<body bgcolor=white><img src='http://www.dirtymind.com/games/poker/"+picture+"'></body>")
                parent.frames[3].document.close()
        }

        function changepic() {
                t=changed
                if (credit<=250) 
                {
                        picture="standard.jpg"
                        changed=0
                }
                if (credit>250) 
                {
                        picture=vv+"2161.jpg"
                        changed=1
                }
                if (credit>500) 
                {
                        picture=vv+"2262.jpg"
                        changed=2
                }
                if (credit>750) 
                {
                        picture=vv+"2363.jpg"
                        changed=3
                }
                if (credit>1000) 
                {
                        picture=vv+"2464.jpg"
                        changed=4
                }
                if (credit>1250) 
                {
                        picture=vv+"2565.jpg"
                        changed=5
                }
                if (credit>1500) 
                {
                        picture=vv+"2666.jpg"
                        changed=6
                }
                if (credit>1750) 
                {
                        picture=vv+"2767.jpg"
                        changed=7
                }
                if (credit>2000) 
                {
                        picture=vv+"2868.jpg"
                        changed=8
                }
                if (changed!=t) printpic()
        }               

        function thesame(n) {
                // controle of er n kaarten zijn met dezelfde waarde
                // return 1 -> er zijn geen n dezelfde kaarten
                // return 0 -> er zijn tenminste n dezelfde kaarten
                jokers=0
                for (i=1 ; i<=5 ; i++) if (kind[cards[i]]==4) jokers++
                for (j=1 ; j<=5 ; j++)
                {
                        if (waarde[cards[j]]!=1)
                        {
                                k=waarde[cards[j]]
                                aantal=1
                                for (r=j+1 ; r<=5 ; r++) if (waarde[cards[r]]==k) aantal++
                                if (aantal+jokers>=n) return 0
                        }
                }
                return 1
        }

        function different(n) {
                // controle of er n kaarten zijn met verschillende waarde
                // return 1 -> er zijn niet precies n verschillende kaarten
                // return 0 -> er zijn precies n verschillende kaarten
                aantal=0
                for (j=2 ; j<=14 ; j++)
                {
                        sub=0
                        for (i=1 ; i<=5 ; i++) if (waarde[cards[i]]==j) sub++
                        if (sub>0) aantal++
                }
                if (aantal==n) return 0; else return 1
        }

        function straight() {
                min=0
                minw=15
                for (j=1 ; j<=5 ; j++) 
                {
                        if (waarde[cards[j]]<minw && waarde[cards[j]]!=1)
                        {
                                min=j
                                minw=waarde[cards[j]]
                        }
                }
                max=1
                maxw=waarde[cards[1]]
                for (j=2 ; j<=5 ; j++)
                {
                        if (waarde[cards[j]]>maxw)
                        {
                                max=j
                                maxw=waarde[cards[j]]
                        }
                }
                jokers=0
                for (j=1 ; j<=5 ; j++) if (waarde[cards[j]]==1) jokers++
                if (different(5-jokers)==0 && (maxw-minw)<=4)
                {
                        // straight
                        return 0
                } else return 1
        }

        function flush() {
                b=1
                if (waarde[cards[1]]==1)
                {
                        if (waarde[cards[2]]==1) k=kind[cards[3]]; else k=kind[cards[2]]
                } else k=kind[cards[1]]
                while (b<=5)
                {
                        if (kind[cards[b]]!=k && waarde[cards[b]]!=1) b=10; else b++
                }
                if (b<10) return 0; else return 1
        }

        function findscore() {
                score=0
                if (thesame(5)==0)
                {
                        // 5 of a kind
                        score=8
                        if (changed<8) 
                        {
                                picture=vv+"2868.jpg"
                                changed=8
                                printpic()
                        }
                }
                if (score==0)
                {
                        v=straight()
                        w=flush()
                        if (v==0 && w==0)
                        {
                                // straight flush
                                score=7
                                if (changed<7)
                                {
                                        picture=vv+"2767.jpg"
                                        changed=7
                                        printpic()
                                }
                        }
                }
                if (score==0)
                {
                        if (thesame(4)==0)
                        {
                                // 4 of a kind
                                score=6
                                if (changed<6)
                                {
                                        picture=vv+"2666.jpg"
                                        changed=6
                                        printpic()
                                }
                        }
                }
                if (score==0)
                {
                        if (thesame(3)==0)
                        {
                                if (different(2)==0)
                                {
                                        // 3 dezelfde en slechts 2 verschillende, dus 3+2 : full house
                                        score=5
                                        if (changed<5)
                                        {
                                                picture=vv+"2565.jpg"
                                                changed=5
                                                printpic()
                                        }
                                }
                        }
                }
                if (score==0)
                {
                        if (flush()==0)
                        {
                                // flush
                                score=4
                                if (changed<4)
                                {
                                        picture=vv+"2464.jpg"
                                        changed=4
                                        printpic()
                                }
                        }
                }
                if (score==0)
                {
                        if (straight()==0)
                        {
                                // straight
                                score=3
                                if (changed<3)
                                {
                                        picture=vv+"2363.jpg"
                                        changed=3
                                        printpic()
                                }
                        }
                }
                if (score==0)
                {
                        if (thesame(3)==0)
                        {
                                // 3 of a kind
                                score=2
                                if (changed<2)
                                {
                                        picture=vv+"2262.jpg"
                                        changed=2
                                        printpic()
                                }
                        }
                }
                if (score==0)
                {
                        if (thesame(2)==0)
                        {
                                if (different(3)==0)
                                {
                                        // 2 dezelfde en 3 verschillende, dus 2 keer 2 dezelfde
                                        score=1
                                        if (changed<1)
                                        {
                                                picture=vv+"2161.jpg"
                                                changed=1
                                                printpic()
                                        }
                                } else
                                {
                                        // 2 dezelfde
                                        score=9
                                }
                        }
                }
        }

                        
        function newcard(n) {
                x=random(54)
                p[1]=cards[1]
                p[2]=cards[2]
                p[3]=cards[3]
                p[4]=cards[4]
                p[5]=cards[5]
                     u=0
                        while (u==0)
                     {
                                        y=1
                                        while (y<=5) if (x==p[y]) y=10; else y++                                
                                        if (y<10) 
                             {
                                        cards[n]=x
                                        u=1
                                } else x=random(54)
                        }
        }               

        function lowcredit() {
                alert("Sorry, you don't have enough credit anymore")
                window.open("http://www.dirtymind.com/games/signup.html","_top")
        }


        function deal() {
                changepic()
                if (turn==3)
                {
                        // startup procedure
                        setrandom()
                        ch=top.location.search
                        vv=ch.charAt(1)+ch.charAt(2)
                        val[1]=val[2]=val[3]=val[4]=val[5]=0
                        initdeck()
                        turn=2
                        initstats()
                }
                if (credit<=0) lowcredit()
                x=0
                for (j=1 ; j<=5 ; j++)
                {
                        if (val[j]==1) x=1
                }
                if (x==0 && turn==1) turn=2
                if (turn==1)
                {
                        for (j=1 ; j<=5 ; j++)
                        {
                                if (val[j]==0) newcard(j)
                        }
                        findscore()
                        updatestats()
                        val[1]=val[2]=val[3]=val[4]=val[5]=1
                        printcards()
                        swap()
                        if (score<1) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>Sorry, that hand isn't worth anything<p>"
                        if (score==1) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>Not bad, you've scored 2 pair<p>"
                        if (score==2) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>You're getting there with 3 of a kind<p>"
                        if (score==3) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>Pretty good, you've scored a straight<p>"
                        if (score==4) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>Getting better, you've scored a flush<p>"
                        if (score==5) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>You've been practicing, you've scored a full-house<p>"
                        if (score==6) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>Wow, you actually scored 4 of a kind<p>"
                        if (score==7) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>You must be cheating, you've scored a straight flush<p>"
                        if (score==8) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>Unbelievable, you've scored 5 of a kind!!!<p>"
                        if (score==9) tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>One pair, it's going to take you a while with hands like that<p>"
                        if (score>0)
                        {
                                if (score==1) changecredit(50-bet)
                                if (score==2) changecredit(100-bet)
                                if (score==3) changecredit(150-bet)
                                if (score==4) changecredit(200-bet)
                                if (score==5) changecredit(300-bet)
                                if (score==6) changecredit(400-bet)
                                if (score==7) changecredit(500-bet)
                                if (score==8) changecredit(600-bet)
                                if (score==9) changecredit(13-bet)
                        } else changecredit(-bet)
                        turn=2
                } else
                {
                        // turn==2
                        for (j=1 ; j<=5 ; j++)
                        {
                                newcard(j)
                        }
                        val[1]=val[2]=val[3]=val[4]=val[5]=1
                        printcards()
                        turn=1
                        tekst="<font size=+3 color=red><i>C</i></font><font size=+1>omment : </font>flip the cards you want to change then press deal<p>"
                        changecredit(-bet)
                }
        }


//-->

