/* If you improve this software or find a bug, please let me know: orciu@users.sourceforge.net Project home page: http://sourceforge.net/projects/jsholdem/ mini poker! 1)Marlon Brando,Aaliyah,Ray Charles,Johnny Cash 2)links: NB!, home, suit 3)deck: menu, 0.html 4)ads "you would have won" decks!...ana,asi,wg,1-5.jpg LOSER! -150, SPLIT POT!, WINNER!...not "bet:0" button @ end of round: "show all cards" usually, don't show winner's cards if no one else went in against him autoplay: all cards face up tournaments network human players busted players disappear? ask to buy in again (.rebuy?) more options/stats:#games started/completed/won/lost;longest/shortest time to win/lose;most/least rounds to win/lose;avg pot size;biggest nemesis get rid of frames & use tables live blind,check/bet in the dark/out of turn,exact rules on raising after an all in? offline version old bg:00A300 */ var BACK_HOME="",BACK_HOME_LINK="http://deathbeeper.com/",SUIT_LINK="http://screwreading.com/"; var START_DATE,NUM_ROUNDS,STOP_AUTOPLAY=0,RUN_EM=0,STARTING_BANKROLL=500,SMALL_BLIND,BIG_BLIND,BG_COLOR="006600",BG_HILITE="EFEF30",speed=1,HUMAN_WINS_AGAIN; var cards=new Array(52),players,board,deck_index,button_index,current_bettor_index,current_bet,current_min_raise; function player(name,bankroll,carda,cardb,status,total_bet,subtotal_bet){this.name=name;this.bankroll=bankroll;this.carda=carda;this.cardb=cardb;this.status=status;this.total_bet=total_bet;this.subtotal_bet=subtotal_bet} function init(){ preload_base_pix(); write_settings_frame(); make_deck(); new_game(); write_frame("board2","

Hello! This software is still being improved. The opponent bots need to be smarter. If it isn't challenging now, hopefully it will be soon. And please visit some of our sponsors' links. February 2006

"); } function make_deck(){var i,j=0;for(i=2;i<15;i++){cards[j++]="h"+i;cards[j++]="d"+i;cards[j++]="c"+i;cards[j++]="s"+i;}} function new_game(){ START_DATE=new Date(); NUM_ROUNDS=0; HUMAN_WINS_AGAIN=0; write_frame("general",""); var my_players=[ new player("Gus Handsome",0,"","","",0,0), new player("Karth Kerai",0,"","","",0,0), new player("Tonya Bonya",0,"","","",0,0), new player("Stan Deman",0,"","","",0,0) ]; players=new Array(my_players.length+1); var player_name=getCookie("playername"); if(!player_name)player_name="You"; players[0]=new player(player_name,0,"","","",0,0); my_players.sort(compRan); for(var i=1;iPlay again?"); return; } preload_pix(); reset_player_statuses(1); clear_bets(); clear_pot(); current_min_raise=0; collect_cards(); write_ad(); button_index=get_next_player_position(button_index,1); for(var i=0;i"); if(NUM_ROUNDS>1){ write_frame("board0",""); write_frame("board4",""); try{//FF frames["board0"].location.reload();//for ads to display frames["board4"].location.reload(); }catch(e){} } shuffle(); blinds_and_deal(); } function collect_cards(){board=new Array(5);for(var i=0;i1)setTimeout("main()",(pause_time+1000)*speed); else setTimeout("ready_for_next_card()",999*speed); } function deal_fourth(){ var pause_time=777; board[3]=cards[deck_index++]; //board[3]="d12"; setTimeout("write_board('3')",(pause_time+100)*speed); if(get_num_betting()>1)setTimeout("main()",2000*speed); else setTimeout("ready_for_next_card()",999*speed); } function deal_fifth(){ var pause_time=777; board[4]=cards[deck_index++]; //board[4]="s10"; setTimeout("write_board('4')",(pause_time+100)*speed); if(get_num_betting()>1)setTimeout("main()",2000*speed); else setTimeout("ready_for_next_card()",999*speed); } function write_board(n){ var pic=get_next_pic(); var pic_click="http://nakedbrowser.com/?x=&u="+pic; if(pix.length<50){pic=board[n].substring(0,1)+".gif";pic_click=SUIT_LINK;} write_frame("board"+n,"

"+ get_card_html(board[n])+"

"); } function main(){ var increment_bettor_index=0; if(players[current_bettor_index].status=="BUST"||players[current_bettor_index].status=="FOLD"){ increment_bettor_index=1; }else if(!has_money(current_bettor_index)){ players[current_bettor_index].status="CALL"; increment_bettor_index=1; }else if(players[current_bettor_index].status=="CALL"&&players[current_bettor_index].subtotal_bet==current_bet){ increment_bettor_index=1; }else{ players[current_bettor_index].status=""; if(current_bettor_index==0){ var call_button_text=" Call "; var fold_button=""; var bet_button_text=" Raise "; var to_call=current_bet-players[0].subtotal_bet; if(to_call>players[0].bankroll)to_call=players[0].bankroll; if(to_call==0){call_button_text=" Check ";fold_button="";bet_button_text=" Bet ";} var quick_values=new Array(6); if(to_call0){bet_or_raise="Raise";quick_color=" bgcolor="+BG_COLOR;} var quick_bets="Quick "+bet_or_raise+"s
"; for(var i=0;i<6;i++){ if(quick_values[i])quick_bets+=""+quick_values[i]+""+" "; } quick_bets+="All In!"+ ""; var html="

"+get_pot_size_html()+ "
Current total bet: "+current_bet+" You need "+to_call+" more to call."+ " "+fold_button+ "
"+quick_bets+"

"; write_player(0,1,0,1); write_frame("general",html); return; }else{ write_player(current_bettor_index,1,0,1); setTimeout("bot_bet("+current_bettor_index+")",777*speed); return; } } var can_break=true; for(var j=0;j=my_total_bets_per_player[i]){ my_pot+=my_total_bets_per_player[i]; my_total_bets_per_player[i]=0; }else{ my_pot+=lowest_in_for; my_total_bets_per_player[i]-=lowest_in_for; } } var share=my_pot/num_winners; for(var i=0;i0){ var a_string=""+allocations[i]; var dot_index=a_string.indexOf("."); if(dot_index>0){ a_string=""+a_string+"00"; allocations[i]=a_string.substring(0,dot_index+3)-0; } winner_text+=allocations[i]+" to "+players[i].name+". "; players[i].bankroll+=allocations[i]; if(best_hand_players[i])write_player(i,2,1,0); else write_player(i,1,1,0); }else{ if(!has_money(i)&&players[i].status!="BUST"){ players[i].status="BUST"; if(i==0)human_loses=1; } if(players[i].status!="FOLD")write_player(i,0,1,0); } } var detail=""; for(var i=0;idetails)"; var hilite_a=" name=c",hilite_b=""; if(human_loses){hilite_a="",hilite_b=" name=c";} var the_buttons=""; if(players[0].status=="BUST"&&!human_loses){ the_buttons=""; setTimeout("autoplay_new_round()",1500+1100*speed); } var html="

"+get_pot_size_html()+ "

WINNER! "+my_best_hand_name+". "+winner_text+""+detail+"
"+ ""; write_frame("general",html); var elapsed_seconds=((new Date())-START_DATE)/1000; var elapsed_minutes=""+(elapsed_seconds/60); var dot_i=elapsed_minutes.indexOf("."); if(dot_i>0)elapsed_minutes=elapsed_minutes.substring(0,dot_i); var and_seconds=""+(elapsed_seconds-elapsed_minutes*60); dot_i=and_seconds.indexOf("."); if(dot_i>0)and_seconds=and_seconds.substring(0,dot_i); if(human_loses==1)alert("Sorry, you busted, "+players[0].name+".\n\n"+elapsed_minutes+" minutes "+and_seconds+" seconds, "+NUM_ROUNDS+" deals."); else{ var num_playing=0; for(var i=0;i0){STOP_AUTOPLAY=0;new_game();}else new_round();} function ready_for_next_card(){ var num_betting=get_num_betting(); for(var i=0;i=players[player_index].bankroll){ //ALL IN bet_amount=players[player_index].bankroll; var old_current_bet=current_bet; if(players[player_index].subtotal_bet+bet_amount>current_bet) current_bet=players[player_index].subtotal_bet+bet_amount; var new_current_min_raise=current_bet-old_current_bet; if(new_current_min_raise>current_min_raise)current_min_raise=new_current_min_raise; players[player_index].status="CALL"; }else if(bet_amount+players[player_index].subtotal_bet==current_bet){ //CALL players[player_index].status="CALL"; }else if(current_bet>players[player_index].subtotal_bet+bet_amount){ //2 SMALL //COMMENT OUT TO FIND BUGS if(player_index==0) alert("The current bet to match is "+current_bet+"."+ "\nYou must bet a total of at least "+(current_bet-players[player_index].subtotal_bet)+" or fold."); return 0; }else if(bet_amount+players[player_index].subtotal_bet>current_bet //RAISE 2 SMALL &&get_pot_size()>0 &&bet_amount+players[player_index].subtotal_bet-current_bet0){ current_min_raise=current_bet-old_current_bet; if(current_min_raise0)m+=""+c; } if(m=="")return; bet_amount=m-0; if(bet_amount<0||isNaN(bet_amount))bet_amount=0; var to_call=current_bet-players[0].subtotal_bet; bet_amount+=to_call; var is_ok_bet=bet(0,bet_amount); if(is_ok_bet){ players[0].status="CALL"; current_bettor_index=get_next_player_position(0,1); write_player(0,0,0,0); write_ad(); main(); } } function human_fold(){ players[0].status="FOLD"; current_bettor_index=get_next_player_position(0,1); write_player(0,0,0,0); write_basic_general(); write_ad(); main(); } function bot_bet(x){ var b=0; var n=current_bet-players[x].subtotal_bet; if(!board[0])b=get_preflop_bet(); else b=get_postflop_bet(); if(b>=players[x].bankroll) //ALL IN players[x].status=""; else if(bn){ if(b-n@"; var bet_text=""; var allin="bet:"; if(!has_money(n))allin="ALL IN:"; if(mode!=1||players[n].subtotal_bet>0||players[n].status=="CALL")bet_text=""+allin+" "+players[n].subtotal_bet+""; else if(!has_money(n)&&players[n].status!="FOLD"&&players[n].status!="BUST")bet_text="ALL IN"; if(players[n].status=="FOLD")bet_text="FOLDED"; else if(players[n].status=="BUST")bet_text="BUSTED"; var html="

"+button+players[n].name+""
 +" ["+players[n].bankroll+"]"
 +"\nCHEAT! "+players[n].carda.substring(0,1)+make_readable_rank(players[n].carda.substring(1))+" "+players[n].cardb.substring(0,1)+make_readable_rank(players[n].cardb.substring(1))+"\n"
 +""+carda+" "+cardb+"
"
 if(navigator.userAgent.indexOf("MSIE")>-1)html+="\n";//FF
 html+="\n"+bet_text+"

"; write_frame("player"+n,html); } function get_card_html(card){ var suit=card.substring(0,1); var color="FF0000"; if(suit=="c"||suit=="s")color="000000"; var r=card.substring(1); var rank=make_readable_rank(r); return ""+rank+"

"; } function make_readable_rank(r){ if(r<11)return r; else if(r==11)return "J"; else if(r==12)return "Q"; else if(r==13)return "K"; else if(r==14)return "A"; } function get_pot_size_html(){return "TOTAL POT: "+get_pot_size()+"";} function get_pot_size(){var p=0;for(var i=0;i-1)frames[f].location.reload(); }catch(e){//FF if(!n)n=0; if(n<9)write_frame(f,html,++n); } } function write_basic_general(){write_frame("general","

"+get_pot_size_html()+"

");} function write_settings_frame(){ var clean_deck=""; if(getCookie("deck")>0){clean_deck=" selected";set_deck(1)} var speeds=['2','1','.6','.3','0']; var speed_select=['','','','','']; var speed_i=getCookie("gamespeed"); if(speed_i=="")speed_i=1; if(speed_i==null||(speed_i!=0&&speed_i!=1&&speed_i!=2&&speed_i!=3&&speed_i!=4))speed_i=1; speed_select[speed_i]=" selected"; set_speed(speeds[speed_i],speed_i); var speed_options=""; for(var i=0;i"+(i+1); write_frame("settings","

Options\n\nYour name Help\n\nSpeed

"); } function set_deck(v){ if(v<1)pix=original_pix; else pix=get_base_deck(); preload_pix(); setCookie("deck",v); if(board)for(var i=0;i25000)n=25000; write_frame("ad","

"); // adt=setTimeout("write_ad("+n+")",n); } function get_next_player_position(i,delta){ var j=0,step=1;if(delta<0)step=-1; while(1){ i+=step; if(i>=players.length)i=0; else if(i<0)i=players.length-1; if(players[i].status=="BUST"||players[i].status=="FOLD"||++j=pix.length)pix_index=0;return pix[pix_index];} function init_pix(d){d.sort(compRan);pix=d;original_pix=d;preload_pix();write_settings_frame();} var preload_a=new Image();var preload_b=new Image();var preload_c=new Image();var preload_d=new Image();var preload_e=new Image(); function preload_pix(){ var i=pix_index; if(++i>=pix.length)i=0;preload_a.src=pix[i]; if(++i>=pix.length)i=0;preload_b.src=pix[i]; if(++i>=pix.length)i=0;preload_c.src=pix[i]; if(++i>=pix.length)i=0;preload_d.src=pix[i]; if(++i>=pix.length)i=0;preload_e.src=pix[i]; } var preload_sd=new Image(),preload_sh=new Image(),preload_sc=new Image(),preload_ss=new Image(),preload_cb=new Image(); function preload_base_pix(){preload_sd.src="d.gif";preload_sh.src="h.gif";preload_sc.src="c.gif";preload_ss.src="s.gif";preload_cb.src="cardback.gif";} function getCookie(key){ var c=document.cookie; var a=c.indexOf(key+"="); //buggish if(a<0)return ""; a+=key.length+1; var b=c.indexOf(";",a); if(b<=a)return c.substring(a); return c.substring(a,b); } function setCookie(key,val){ if(getCookie(key)==val)return; var d=new Date();var p=Date.parse(d); d.setTime(p+365*24*60*60*1000); var u=d.toUTCString(); document.cookie=key+"="+val+";expires="+u; } function has_money(i){if(players[i].bankroll>=.01)return true;return false;} function confirm_new(){if(confirm("Are you sure that you want to restart the entire game?"))new_game();} function confirm_quit(){if(confirm("Are you sure that you want to quit?"))parent.location.href=BACK_HOME_LINK;} function compRan(){return .5-Math.random();}