#!/usr/local/bin/perl #--------------------------------------------------- # C R O O K E D B U S H . C O M - C R O S S W O R D # Designed by Jason Silver. Please don't # remove this copyright notice. Thanks! # Register Online at www.crookedbush.com and you'll # actually GET PAID five bucks! #--------------------------------------------------- # Version 1.2 # 2000 # This scipt is by no means associated with HASBRO, # the copyright holders of the game Scrabbleฉ in # the USA and Canada. Their address is # http://www.scrabble.com. # Scrabbleฉ is a registered trademark of J.W. Spear # & Son PLC and Hasbro Inc. Any and all uses of the # word "Scrabbleฉ" on these pages refers to this # trademark. # # Unzip the graphics and save them to your computer, # then upload them to your server in the directory # you decide in $grpath (below) # #--------------------------------------------------- # User Defined Variables #--------------------------------------------------- $URL = 'http://www.yoyoo.com/games/crossword_db/';# url to script $grpath = '/games/crossword_db/images/'; # path for graphics $cgipath = '/games/crossword_db/'; # path to this script (from server root) $script = 'crossword.cgi'; # name of this script $datapath = 'boards/'; # relative path to data storage place $emailprog = '/usr/lib/sendmail'; # your mailer program... $admin_email = 'kspooker@crosswinds.net'; # leave this blank if you don't want to be informed when people play $title_image = 'http://www.yoyoo.com/games/crossword_db/images/crossword.gif'; #--------------------------------------------------- # Body Tags #--------------------------------------------------- $BACKCOLOUR = '#000000'; $TEXTCOLOUR = '#C0C0C0'; $LINKCOLOUR = '#FFCC00'; # text must be visible over... $VISITLINK = '#FFCC00'; # visited link $ALNKCOLOUR = '#FF0000'; # ...$BACK- and $BRDR- colours # DON'T CHANGE ANYTHING BELOW THIS LINE #___________________________________________________ #--------------------------------------------------- # Program #--------------------------------------------------- $troubleshoot = 0; srand; # Allow Random Numbers (not needed for 5.004 and later) $light_blue_image = "$grpath/double_letter.gif"; $dark_blue_image = "$grpath/triple_letter.gif"; $light_red_image = "$grpath/double_word.gif"; $dark_red_image = "$grpath/triple_word.gif"; print "Content-type: text/html\n\n"; # set up print type for browser #--------------------------------------------------- # Assign Points to Letters (q=10, a=1, b=3 etc...) #--------------------------------------------------- # @input_chunks = split(/&/, "a=1&b=3&c=3&d=2&e=1&f=4&g=2&h=4&i=1&j=8&k=5&l=1&m=3&n=1&o=1&p=3&q=10&r=1&s=1&t=1&u=1&v=4&w=4&x=8&y=4&z=10&-=0"); # foreach $chunk (@input_chunks) { # ($name, $value) = split(/=/, $chunk); # $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; # $POINTS{$name} = $value; # } #--------------------------------------------------- # Parse Form - take info from web #--------------------------------------------------- read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); @input_chunks = split(/&/, $buffer); foreach $chunk (@input_chunks) { ($name, $value) = split(/=/, $chunk); $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $name =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $FROMWEB{$name} = $value; } # end of foreach @input_chunks = split(/&/, $ENV{'QUERY_STRING'}); foreach $chunk (@input_chunks) { ($name, $value) = split(/=/, $chunk); $name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $name =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; $value =~ tr/+/ /; $FROMWEB{$name} = $value; } # end of foreach $chunkread(STDIN, $buffer, $ENV{'CONTENT_LENGTH'}); $datafilename = "$FROMWEB{'board'}\.txt"; if ($datafilename eq ".txt"){ &open_dialog; # $datafilename = 'board001.txt'; } # end of if. #--------------------------------------------------- # Open Data File on Server #--------------------------------------------------- &open_file; #--------------------------------------------------- # Assign variables from the all_board_data array #--------------------------------------------------- for $count(0..14){ $all_board_data[$count] =~ tr/[A-Z]/[a-z]/; }# changes case from upper to lower on board only @a = split(/&/, $all_board_data[0]); # These next arrays (@a-@o) contain @tilea = split(/&/, $all_board_data[0]); # letter and blank square @b = split(/&/, $all_board_data[1]); # information @tileb = split(/&/, $all_board_data[1]); # @c = split(/&/, $all_board_data[2]); # The @tile are for display only - messy... but...? @tilec = split(/&/, $all_board_data[2]); # @d = split(/&/, $all_board_data[3]); # @tiled = split(/&/, $all_board_data[3]); # @e = split(/&/, $all_board_data[4]); # @tilee = split(/&/, $all_board_data[4]); # @f = split(/&/, $all_board_data[5]); # @tilef = split(/&/, $all_board_data[5]); # @g = split(/&/, $all_board_data[6]); # @tileg = split(/&/, $all_board_data[6]); # @h = split(/&/, $all_board_data[7]); # @tileh = split(/&/, $all_board_data[7]); # @i = split(/&/, $all_board_data[8]); # @tilei = split(/&/, $all_board_data[8]); # @j = split(/&/, $all_board_data[9]); # @tilej = split(/&/, $all_board_data[9]); # @k = split(/&/, $all_board_data[10]); # @tilek = split(/&/, $all_board_data[10]); # @l = split(/&/, $all_board_data[11]); # @tilel = split(/&/, $all_board_data[11]); # @lm = split(/&/, $all_board_data[12]); # This is @lm because m seems to cause errors. @tilelm = split(/&/, $all_board_data[12]); # @n = split(/&/, $all_board_data[13]); # @tilen = split(/&/, $all_board_data[13]); # @o = split(/&/, $all_board_data[14]); # @tileo = split(/&/, $all_board_data[14]); # $title = $all_board_data[15]; # This is the title of the game @letter_bag = split(/&/, $all_board_data[16]); # This places all tiles in letter bag array @player1 = split(/=/, $all_board_data[17]); # [0]=name, [1]=e-mail address, [2]=lettertray [3]=password [4]=points @player2 = split(/=/, $all_board_data[18]); # [0]=name, [1]=e-mail address, [2]=lettertray [3]=password [4]=points @player3 = split(/=/, $all_board_data[19]); # [0]=name, [1]=e-mail address, [2]=lettertray [3]=password [4]=points @player4 = split(/=/, $all_board_data[20]); # [0]=name, [1]=e-mail address, [2]=lettertray [3]=password [4]=points $turn = $all_board_data[21]; # next player number (eg:1,2,3,4) #--------------------------------------------------- # Assign user information #--------------------------------------------------- if ($turn == 1) { # If turn contains '1' then give player 1's info $player_name = $player1[0]; $player_mail = $player1[1]; $player_tray = $player1[2]; $player_pass = $player1[3]; $player_points=$player1[4]; } elsif ($turn == 2) { # If turn contains '1' then give player 1's info $player_name = $player2[0]; $player_mail = $player2[1]; $player_tray = $player2[2]; $player_pass = $player2[3]; $player_points=$player2[4]; } elsif ($turn == 3) { # If turn contains '1' then give player 1's info $player_name = $player3[0]; $player_mail = $player3[1]; $player_tray = $player3[2]; $player_pass = $player3[3]; $player_points=$player3[4]; } elsif ($turn == 4) { # If turn contains '1' then give player 1's info $player_name = $player4[0]; $player_mail = $player4[1]; $player_tray = $player4[2]; $player_pass = $player4[3]; $player_points=$player4[4]; } @letter_tray = split(/&/, $player_tray); #--------------------------------------------------- # Print Headers for Page. #--------------------------------------------------- print < crossword_db Board - $title -Crossword Board

crossword_db - script by CrookedBush.com

HTML #--------------------------------------------------- # Check to see if this is first game or a start of new game #--------------------------------------------------- if ($letter_tray[0] eq "") { &create_game } #--------------------------------------------------- # Check to see if rules are requested #--------------------------------------------------- if ($FROMWEB{'action'} eq "rules"){ &print_rules; exit; } #--------------------------------------------------- # Print current players name and all points. #--------------------------------------------------- print <Waiting for $player_name to move : เป็นตาเดินของคุณ $player_name

$player1[0]: $player1[4] $player2[0]: $player2[4] $player3[0]: $player3[4] $player4[0]: $player4[4]
HTML #--------------------------------------------------- # Check Password #--------------------------------------------------- if ($troubleshoot){print "Checking Password
\n";} chomp($player_pass); if ($FROMWEB{pass} eq ""){ $good_pass = "no"; &draw_board;exit; } if ($FROMWEB{pass} ne $player_pass){ $good_pass = "no"; &draw_board;exit; } else {$good_pass = "yes";} #--------------------------------------------------- # Find out if any word was even made! #--------------------------------------------------- if ($troubleshoot){print "Looking For Word
\n";} $word_was_made = 0; for $letter (a,b,c,d,e,f,g,h,i,j,k,l,lm,n,o){ for $count (0..14){ $form="$letter$count"; if ( $FROMWEB{$form} ne "" ){ $word_was_made = 1; } }# next $count }# next $letter if ($word_was_made == 0) { &draw_board; # no word was made... so draw board. exit; } #--------------------------------------------------- # Check that Form Entry Is In Tray #--------------------------------------------------- if ($troubleshoot){print " คำที่คุณสร้างคือ.
เช็กอีเมล์ของคุณ บ่อยๆ น๊ะครับ เมื่อถึงตาคุณเดินหมาก crossword จะส่งเมล์เตือนคุณ/
\n";} chomp (@letter_tray); $l1 = $letter_tray[0]; # put tray letters in new variables $l2 = $letter_tray[1]; $l3 = $letter_tray[2]; $l4 = $letter_tray[3]; $l5 = $letter_tray[4]; $l6 = $letter_tray[5]; $l7 = $letter_tray[6]; @x_direction = (); @y_direction = (); for $letter (a,b,c,d,e,f,g,h,i,j,k,l,lm,n,o){ for $count (0..14){ $test="$letter$count"; if ( $FROMWEB{$test} ne "" ){ # first change case to lower $FROMWEB{'$test'} =~ tr/[A-Z]/[a-z]/; # now compare letters to tray if ($FROMWEB{$test} eq $l1){ $$letter[$count] = $FROMWEB{$test}; $letter_in=$l1; $l1="~"; #&points; }# assign tilde to prevent reusing letter elsif ($FROMWEB{$test} eq $l2){ $$letter[$count] = $FROMWEB{$test}; $letter_in=$l2; $l2="~"; #&points; } elsif ($FROMWEB{$test} eq $l3){ $$letter[$count] = $FROMWEB{$test}; $letter_in=$l3; $l3="~"; #&points; } elsif ($FROMWEB{$test} eq $l4){ $$letter[$count] = $FROMWEB{$test}; $letter_in=$l4; $l4="~"; #&points; } elsif ($FROMWEB{$test} eq $l5){ $$letter[$count] = $FROMWEB{$test}; $letter_in=$l5; $l5="~"; #&points; } elsif ($FROMWEB{$test} eq $l6){ $$letter[$count] = $FROMWEB{$test}; $letter_in=$l6; $l6="~"; #&points; } elsif ($FROMWEB{$test} eq $l7){ $$letter[$count] = $FROMWEB{$test}; $letter_in=$l7; $l7="~"; } else{ dienice ("Sorry, $player_name. $FROMWEB{$test} is not in your letter tray (or you've tried to use it twice).");} }# next if FROMWEB is blank }# next $count }# next $letter #--------------------------------------------------- # Now move used letters out of @letter_tray and replace # with random letters from bag. Also find out if # player used all their letters for extra points #--------------------------------------------------- if ($troubleshoot){print "Picking new letters for your tray.
\n";} my $all=0; if ($l1 eq "~") { # find random letter $random_number = rand @letter_bag; # switch letters $new_letter_for_tray = $letter_bag[$random_number]; $letter_tray[0] = $letter_bag[$random_number]; $letter_bag[$random_number] = ""; $all = $all + 1; &sort_letter_bag; } if ($l2 eq "~") { # find random letter $random_number = rand @letter_bag; # switch letters $new_letter_for_tray = $letter_bag[$random_number]; $letter_tray[1] = $letter_bag[$random_number]; $letter_bag[$random_number] = ""; $all = $all + 1; &sort_letter_bag; } if ($l3 eq "~") { # find random letter $random_number = rand @letter_bag; # switch letters $new_letter_for_tray = $letter_bag[$random_number]; $letter_tray[2] = $letter_bag[$random_number]; $letter_bag[$random_number] = ""; $all = $all + 1; &sort_letter_bag; } if ($l4 eq "~") { # find random letter $random_number = rand @letter_bag; # switch letters $new_letter_for_tray = $letter_bag[$random_number]; $letter_tray[3] = $letter_bag[$random_number]; $letter_bag[$random_number] = ""; $all = $all + 1; &sort_letter_bag; } if ($l5 eq "~") { # find random letter $random_number = rand @letter_bag; # switch letters $new_letter_for_tray = $letter_bag[$random_number]; $letter_tray[4] = $letter_bag[$random_number]; $letter_bag[$random_number] = ""; $all = $all + 1; &sort_letter_bag; } if ($l6 eq "~") { # find random letter $random_number = rand @letter_bag; # switch letters $new_letter_for_tray = $letter_bag[$random_number]; $letter_tray[5] = $letter_bag[$random_number]; $letter_bag[$random_number]=""; $all = $all + 1; &sort_letter_bag; } if ($l7 eq "~") { # find random letter $random_number = rand @letter_bag; # switch letters $new_letter_for_tray = $letter_bag[$random_number]; $letter_tray[6] = $letter_bag[$random_number]; $letter_bag[$random_number] = ""; $all = $all + 1; &sort_letter_bag; } #################################################### # if ($all=7) {$points=points+50;} # $points=$points*$word_score; # add double word or triple word score #################################################### #--------------------------------------------------- # Dictionary Check (OFFLINE) #--------------------------------------------------- #--------------------------------------------------- # @letter_tray and points need to be put in $player(number) #--------------------------------------------------- if ($troubleshoot){print "Adding points.
\n";} &points; # add points to player_points if ($turn == 1){ $player1[2] = join("&",@letter_tray); $player1[4] = $player_points; } if ($turn == 2){ $player2[2] = join("&",@letter_tray); $player2[4] = $player_points; } if ($turn == 3){ $player3[2] = join("&",@letter_tray); $player3[4] = $player_points; } if ($turn == 4){ $player4[2] = join("&",@letter_tray); $player4[4] = $player_points; } &write_to_disk; $mail_message = "ฉันเองแหละ, $player_name. ฉันสร้างคำใหม่แล้วโดยใช้ Virtual crossword game ทีอยู่ url คือ $URL, และฉันได้คะแนน $FROMWEB{points} points.\n Players:\n 1- $player1[0]: $player1[4] $player1[1]\n 2- $player2[0]: $player2[4] $player2[1]\n 3- $player3[0]: $player3[4] $player3[1]\n 4- $player4[0]: $player4[4] $player4[1]\nถ้าคุณไม่พอใจกับคำที่ฉันเล่น, หรือฉันนับคะแนนผิด ($FROMWEB{points}), ตอบกลับอีเมล์นี้มา complain ได้ . Player $turn,เป็นตาเดินของคุณ.\nตาคุณจริงๆ น๊ะ,\n$player_name"; &mail_it; &dienice ("Thanks $player_name. Your tiles have been added to the board, and I've selected random letters for you from the letter bag."); #--------------------------------------------------- # WRITE TO DISK SUBROUTINE #--------------------------------------------------- sub write_to_disk{ if ($troubleshoot){print "Writing to disk.
\n";} #--------------------------------------------------- # Build string to write to disk # (so file isn't open too long) #--------------------------------------------------- $write_data = ''; $write_data = "$write_data$a[0]&$a[1]&$a[2]&$a[3]&$a[4]&$a[5]&$a[6]&$a[7]&$a[8]&$a[9]&$a[10]&$a[11]&$a[12]&$a[13]&$a[14]\n"; $write_data = "$write_data$b[0]&$b[1]&$b[2]&$b[3]&$b[4]&$b[5]&$b[6]&$b[7]&$b[8]&$b[9]&$b[10]&$b[11]&$b[12]&$b[13]&$b[14]\n"; $write_data = "$write_data$c[0]&$c[1]&$c[2]&$c[3]&$c[4]&$c[5]&$c[6]&$c[7]&$c[8]&$c[9]&$c[10]&$c[11]&$c[12]&$c[13]&$c[14]\n"; $write_data = "$write_data$d[0]&$d[1]&$d[2]&$d[3]&$d[4]&$d[5]&$d[6]&$d[7]&$d[8]&$d[9]&$d[10]&$d[11]&$d[12]&$d[13]&$d[14]\n"; $write_data = "$write_data$e[0]&$e[1]&$e[2]&$e[3]&$e[4]&$e[5]&$e[6]&$e[7]&$e[8]&$e[9]&$e[10]&$e[11]&$e[12]&$e[13]&$e[14]\n"; $write_data = "$write_data$f[0]&$f[1]&$f[2]&$f[3]&$f[4]&$f[5]&$f[6]&$f[7]&$f[8]&$f[9]&$f[10]&$f[11]&$f[12]&$f[13]&$f[14]\n"; $write_data = "$write_data$g[0]&$g[1]&$g[2]&$g[3]&$g[4]&$g[5]&$g[6]&$g[7]&$g[8]&$g[9]&$g[10]&$g[11]&$g[12]&$g[13]&$g[14]\n"; $write_data = "$write_data$h[0]&$h[1]&$h[2]&$h[3]&$h[4]&$h[5]&$h[6]&$h[7]&$h[8]&$h[9]&$h[10]&$h[11]&$h[12]&$h[13]&$h[14]\n"; $write_data = "$write_data$i[0]&$i[1]&$i[2]&$i[3]&$i[4]&$i[5]&$i[6]&$i[7]&$i[8]&$i[9]&$i[10]&$i[11]&$i[12]&$i[13]&$i[14]\n"; $write_data = "$write_data$j[0]&$j[1]&$j[2]&$j[3]&$j[4]&$j[5]&$j[6]&$j[7]&$j[8]&$j[9]&$j[10]&$j[11]&$j[12]&$j[13]&$j[14]\n"; $write_data = "$write_data$k[0]&$k[1]&$k[2]&$k[3]&$k[4]&$k[5]&$k[6]&$k[7]&$k[8]&$k[9]&$k[10]&$k[11]&$k[12]&$k[13]&$k[14]\n"; $write_data = "$write_data$l[0]&$l[1]&$l[2]&$l[3]&$l[4]&$l[5]&$l[6]&$l[7]&$l[8]&$l[9]&$l[10]&$l[11]&$l[12]&$l[13]&$l[14]\n"; $write_data = "$write_data$lm[0]&$lm[1]&$lm[2]&$lm[3]&$lm[4]&$lm[5]&$lm[6]&$lm[7]&$lm[8]&$lm[9]&$lm[10]&$lm[11]&$lm[12]&$lm[13]&$lm[14]\n"; $write_data = "$write_data$n[0]&$n[1]&$n[2]&$n[3]&$n[4]&$n[5]&$n[6]&$n[7]&$n[8]&$n[9]&$n[10]&$n[11]&$n[12]&$n[13]&$n[14]\n"; $write_data = "$write_data$o[0]&$o[1]&$o[2]&$o[3]&$o[4]&$o[5]&$o[6]&$o[7]&$o[8]&$o[9]&$o[10]&$o[11]&$o[12]&$o[13]&$o[14]\n"; $write_data = "$write_data$title\n"; for $count (0..99) { if ($letter_bag[$count]){ $write_data = "$write_data$letter_bag[$count]\&"; } } $write_data = "$write_data$write_letter_bag"; $write_data = "$write_data\n$player1[0]=$player1[1]=$player1[2]=$player1[3]=$player1[4]\n"; $write_data = "$write_data$player2[0]=$player2[1]=$player2[2]=$player2[3]=$player2[4]\n"; $write_data = "$write_data$player3[0]=$player3[1]=$player3[2]=$player3[3]=$player3[4]\n"; $write_data = "$write_data$player4[0]=$player4[1]=$player4[2]=$player4[3]=$player4[4]\n"; #--------------------------------------------------- # Set up mail recipients BEFORE increasing turn #--------------------------------------------------- if ($turn == 1){ $recipients = "$player2[1], $player3[1], $player4[1], $admin_email"; $other_player_names = "$player2[0], $player3[0] and $player4[0]"; } elsif ($turn == 2){ $recipients = "$player1[1], $player3[1], $player4[1], $admin_email"; $other_player_names = "$player1[0], $player3[0] and $player4[0]"; } elsif ($turn == 3){ $recipients = "$player1[1], $player2[1], $player4[1], $admin_email"; $other_player_names = "$player1[0], $player2[0] and $player4[0]"; } elsif ($turn == 4){ $recipients = "$player1[1], $player2[1], $player3[1], $admin_email"; $other_player_names = "$player1[0], $player2[0] and $player3[0]"; } # turn number $turn = $turn + 1; if ($turn > 4) {$turn = 1} $write_data = "$write_data$turn"; #--------------------------------------------------- # Open file and write to it #--------------------------------------------------- if ($troubleshoot){print "Writing file to server.
\n";} open (data_file, ">$datapath$datafilename") or dienice("I can't open the board data file to write: $datapath$datafilename. Error Code: $!"); print data_file "$write_data"; close (data_file); }# end of subroutine write_to_disk #--------------------------------------------------- # Send Mail # Sends mail notification to all players #--------------------------------------------------- sub mail_it{ if ($troubleshoot){print "Sending emails to players
\n";} open(MAIL,"|$emailprog -t")|| dienice("I can't open the mail program: $emailprog.\n"); print MAIL "To: $recipients \n"; print MAIL "From: $player_mail \n"; print MAIL "Subject: Virtual crossword - Update\n\n"; print MAIL "$mail_message"; close MAIL; if ($troubleshoot){print "Finished mailing.
\n";} }# end of subroutine mail_it #--------------------------------------------------- # D R A W B O A R D #--------------------------------------------------- sub draw_board{ if ($troubleshoot){print"Drawing Board
\n";} #--------------------------------------------------- # Convert "_" (blank) squares to form information # and prefix letters with graphic information #--------------------------------------------------- $image_properties = 'align="left" hspace="0" width="25" height="25"'; # potentially change tile size in future for $letter (a,b,c,d,e,f,g,h,i,j,k,l,lm,n,o) { for $count (0,1,2,3,4,5,6,7,8,9,10,11,12,13,14) { $variable = "tile$letter"; if ($good_pass eq "no"){$$variable[$count] = "";} else { if ($$letter[$count] eq "_"){ $$variable[$count] = "
"; } else { $$variable[$count] = ""; } }# Next else }# Next $count }# Next $letter #--------------------------------------------------- # Hide Tray if player is not logged in #--------------------------------------------------- if ($troubleshoot){print"Deciding: hide tray? \n";} if ($good_pass eq "no") { if ($troubleshoot){print"Yes
Printing...
\n";} for $count (0..6){ $tray_gif = "$tray_gif" } } else { if ($troubleshoot){print"No
Printing...
\n";} for $count (0..6){ $tray_gif="$tray_gif" } } print <
$tilea[0] $tileb[0] $tilec[0] $tiled[0] $tilee[0] $tilef[0] $tileg[0] $tileh[0] $tilei[0] $tilej[0] $tilek[0] $tilel[0] $tilelm[0] $tilen[0] $tileo[0]
$tilea[1] $tileb[1] $tilec[1] $tiled[1] $tilee[1] $tilef[1] $tileg[1] $tileh[1] $tilei[1] $tilej[1] $tilek[1] $tilel[1] $tilelm[1] $tilen[1] $tileo[1]
$tilea[2] $tileb[2] $tilec[2] $tiled[2] $tilee[2] $tilef[2] $tileg[2] $tileh[2] $tilei[2] $tilej[2] $tilek[2] $tilel[2] $tilelm[2] $tilen[2] $tileo[2]
$tilea[3] $tileb[3] $tilec[3] $tiled[3] $tilee[3] $tilef[3] $tileg[3] $tileh[3] $tilei[3] $tilej[3] $tilek[3] $tilel[3] $tilelm[3] $tilen[3] $tileo[3]
$tilea[4] $tileb[4] $tilec[4] $tiled[4] $tilee[4] $tilef[4] $tileg[4] $tileh[4] $tilei[4] $tilej[4] $tilek[4] $tilel[4] $tilelm[4] $tilen[4] $tileo[4]
$tilea[5] $tileb[5] $tilec[5] $tiled[5] $tilee[5] $tilef[5] $tileg[5] $tileh[5] $tilei[5] $tilej[5] $tilek[5] $tilel[5] $tilelm[5] $tilen[5] $tileo[5]
$tilea[6] $tileb[6] $tilec[6] $tiled[6] $tilee[6] $tilef[6] $tileg[6] $tileh[6] $tilei[6] $tilej[6] $tilek[6] $tilel[6] $tilelm[6] $tilen[6] $tileo[6]
$tilea[7] $tileb[7] $tilec[7] $tiled[7] $tilee[7] $tilef[7] $tileg[7] $tileh[7] $tilei[7] $tilej[7] $tilek[7] $tilel[7] $tilelm[7] $tilen[7] $tileo[7]
$tilea[8] $tileb[8] $tilec[8] $tiled[8] $tilee[8] $tilef[8] $tileg[8] $tileh[8] $tilei[8] $tilej[8] $tilek[8] $tilel[8] $tilelm[8] $tilen[8] $tileo[8]
$tilea[9] $tileb[9] $tilec[9] $tiled[9] $tilee[9] $tilef[9] $tileg[9] $tileh[9] $tilei[9] $tilej[9] $tilek[9] $tilel[9] $tilelm[9] $tilen[9] $tileo[9]
$tilea[10] $tileb[10] $tilec[10] $tiled[10] $tilee[10] $tilef[10] $tileg[10] $tileh[10] $tilei[10] $tilej[10] $tilek[10] $tilel[10] $tilelm[10] $tilen[10] $tileo[10]
$tilea[11] $tileb[11] $tilec[11] $tiled[11] $tilee[11] $tilef[11] $tileg[11] $tileh[11] $tilei[11] $tilej[11] $tilek[11] $tilel[11] $tilelm[11] $tilen[11] $tileo[11]
$tilea[12] $tileb[12] $tilec[12] $tiled[12] $tilee[12] $tilef[12] $tileg[12] $tileh[12] $tilei[12] $tilej[12] $tilek[12] $tilel[12] $tilelm[12] $tilen[12] $tileo[12]
$tilea[13] $tileb[13] $tilec[13] $tiled[13] $tilee[13] $tilef[13] $tileg[13] $tileh[13] $tilei[13] $tilej[13] $tilek[13] $tilel[13] $tilelm[13] $tilen[13] $tileo[13]
$tilea[14] $tileb[14] $tilec[14] $tiled[14] $tilee[14] $tilef[14] $tileg[14] $tileh[14] $tilei[14] $tilej[14] $tilek[14] $tilel[14] $tilelm[14] $tilen[14] $tileo[14]
$tray_gif
HTML if ($FROMWEB{'pass'}){ print"
(Use minus sign for blank tiles)

Points for this round: \n"; print ""; } # end of if else { print "Password for $player_name: \n"; } # end of else print <


Rules | Open New Board
Online Dictionary:
คิดว่า ทุกคนคงพอคุ้นเคยกับกฏิกา อยู่บ้างแล้ว
วิธีการเล่นไม่ยุ่งยาก ผู้เล่นผสมคำ จากตัวเบี้ย 7 ตัวบนหน้าตัก ผสมได้สมบูรณ์ แล้วนำลงวางในกระดาน รวมคะแนน ตามตัวเบี้ยที่วาง และช่อง สีที่วางคำลง
ใส่คะแนนรวมลงในช่อง คะแนนแล้วกดปุ่ม crossword จะ อีเมล์ไปเตือนผู้เล่นคนถัดไปให้เข้ามาเล่นต่อจากท่านครับ แล้วจะอีเมล์แจ้งคุณอีก ครั้งเมื่อถึงตาคุณครับ
อธิบายอย่างละเอียด อ่านได้ใน Rules : กฏกติกาการเล่นครับ

Virtual Crossword
Maintenance by yoyoo.com
HTML } # End of draw_board subroutine #--------------------------------------------------- # Create a New Game #--------------------------------------------------- sub create_game{ if ($FROMWEB{name1} eq ""){ # print form print <


Choose a name and password for each player :: กรอกอีเมล์ กำหนดชื่อและ password สำหรับผู้เล่นทุกคนด้วยน๊ะครับ
This info will be emailed to them automatically
Player 1 Name: E-mail: Password:
Player 2 Name: E-mail: Password:
Player 3 Name: E-mail: Password:
Player 4 Name: E-mail: Password:

HTML exit; } else { # check to see all fields have been filled $check=1; @entry_fields = (name1,name2,name3,name4,email1,email2,email3,email4,pass1,pass2,pass3,pass4); foreach $check_field (@entry_fields){ if ($FROMWEB{$check_field} eq ""){ $check=0; $message = "$message You forgot $check_field."; } # end of if... } # next foreach $check_field if ($check == 0){ &dienice("$message
Sorry, you must fill in each of the fields. Please press back on your browser and try again."); } # end of if $check=0 $whole_bag="a&a&a&a&a&a&a&a&a&b&b&c&c&d&d&d&d&e&e&e&e&e&e&e&e&e&e&e&e&f&f&g&g&g&h&h&i&i&i&i&i&i&i&i&i&j&k&l&l&l&l&m&m&n&n&n&n&n&n&o&o&o&o&o&o&o&o&p&p&q&r&r&r&r&r&r&s&s&s&s&t&t&t&t&t&t&u&u&u&u&w&w&x&y&y&z&-&-"; @letter_bag = split(/&/, $whole_bag); # This places all tiles in letter bag array # choose random letters for $count (1..7){ # number of letters in each tray &sort_letter_bag; $random_number = rand @letter_bag; # choose random number $new_letters[1] = "$new_letters[1]$letter_bag[$random_number]\&"; # put in tray... $letter_bag[$random_number] = ""; # ...remove from letter bag &sort_letter_bag; } # end of for $count for $count (1..7){ &sort_letter_bag; $random_number = rand @letter_bag; $new_letters[2] = "$new_letters[2]$letter_bag[$random_number]\&"; $letter_bag[$random_number] = ""; &sort_letter_bag; } # end of for $count for $count (1..7){ &sort_letter_bag; $random_number = rand @letter_bag; $new_letters[3] = "$new_letters[3]$letter_bag[$random_number]\&"; $letter_bag[$random_number] = ""; &sort_letter_bag; } # end of for $count for $count (1..7){ &sort_letter_bag; $random_number = rand @letter_bag; $new_letters[4] = "$new_letters[4]$letter_bag[$random_number]\&"; $letter_bag[$random_number] = ""; &sort_letter_bag; } # end of for $count #____________________________________________ # apply web input and random letters to file @player1 = ($FROMWEB{name1},$FROMWEB{email1},$new_letters[1],$FROMWEB{pass1}); @player2 = ($FROMWEB{name2},$FROMWEB{email2},$new_letters[2],$FROMWEB{pass2}); @player3 = ($FROMWEB{name3},$FROMWEB{email3},$new_letters[3],$FROMWEB{pass3}); @player4 = ($FROMWEB{name4},$FROMWEB{email4},$new_letters[4],$FROMWEB{pass4}); $title = "$FROMWEB{name1}, $FROMWEB{name2}, $FROMWEB{name3} and $FROMWEB{name4}\'s Game"; $turn = 4; # so that on roll over, player one starts #____________________ #set points to zero $player1[4]=0; $player2[4]=0; $player3[4]=0; $player4[4]=0; #--------------------------------------------------- # Now save all information to hard disk #--------------------------------------------------- $datafilename = "$FROMWEB{'name1'}_$FROMWEB{'name2'}_$FROMWEB{'name3'}_$FROMWEB{'name4'}\.txt"; &write_to_disk; if ($troubleshoot){print "Wrote to disk.
\n";} #--------------------------------------------------- # Now send each player a separate email with password #--------------------------------------------------- $player_mail = $FROMWEB{'email1'}; foreach $player_number (1,2,3,4){ if ($troubleshoot){print "Sending mail to player $player_number.
\n";} chomp ($player_number); $email = "email$player_number"; $name = "name$player_number"; $pass = "pass$player_number"; $recipients = $FROMWEB{$email}; $mail_message = "Hello สวัดดีครับ $FROMWEB{$name},\nคุณถูกเชิญชวนให้เล่น virtual crossword game ที่\n$URL$script.\npassword ของคุณคือ $FROMWEB{$pass}.\nอักษรที่อยู่ในถาดเล่นของคุณคือ $new_letters[$player_number]\nถ้าคุณไม่ต้องการเล่น, กรุณาตอบอีเมล์กลับไปด้วยครับ.\nขอให้สนุกครับ,\nyoyoo.com\n"; &mail_it; } # end of foreach if ($troubleshoot){print "Letters sent to players.
\n";} $FROMWEB{'board'} = "$FROMWEB{'name1'}_$FROMWEB{'name2'}_$FROMWEB{'name3'}_$FROMWEB{'name4'}"; &dienice("Thanks! เริ่มเล่นเกมได้เลยครับ This game has been started, and seven random letters have been chosen for each player."); }#end of else }#end of create_game subroutine #--------------------------------------------------- # Take empty spots out of letter bag. #--------------------------------------------------- sub sort_letter_bag{ @sort_letter_bag = @letter_bag; chomp (@sort_letter_bag); @letter_bag=(); foreach $number (0..99){ if ($sort_letter_bag[$number] ne '' ) { push(@letter_bag, $sort_letter_bag[$number]); } # end of if }# end of foreach $number } # end of sort_letter_bag subroutine #--------------------------------------------------- # Points subroutine #--------------------------------------------------- sub points{ # (simple for now) $player_points = $player_points + $FROMWEB{points}; } #--------------------------------------------------- # Print Rules to Screen #--------------------------------------------------- sub print_rules{ print <

crossword_db Rules

Game Play / กฎิกาการเล่น


  1. ผู้เล่นคนแรกผสมคำ 1 คำ word หรือ phrase ก็ได้ วางเลียงบนกระดานให้อ่านได้ เลียงแนวนอนหรือ แนวตั้งก็ได้ แต่ต้องว่าอักษรตัวหนึ่งตรงช่อง board. คำในแนวทะแยงไม่อนุญาติครับ.

  2. จบตาเดินของคุณโดยนับคะแนน และประกาศคะแนนสำหรับตานั้น. แล้ววางอักษรตามจำนวนที่คุณเล่นลงไป; จะยังมี 7 ตัวอักษรเสมอบนชั้นวาง, ตราบเท่าที่ยังมีตัวเบี้ยอักษรในตระกล้าพอ.

  3. การเล่นจะวนทางซ้ายมือครับ. ผู้เล่นคนที่ 2, และคนต่อๆ ไป, วางอักษรลง 1 ตัวหรือมากกว่านั้น เพื่อสร้างคำขึ้นใหม่ ต่อจาก คำที่ผู้เล่นคนอื่นๆ ได้เล่นไว้s. อักษรที่เล่น 1 ตาจะต้องวางเลียง ในแนวนอนหรือ แนวตั้งก็ได้, เพื่อสร้างคำที่สมบูรณ์อย่างน้อย 1 คำ. ในเวลาเดียวกัน, ถ้าอักษรเหล่านั้นไปสำผัสกับอักษรตัวอื่นๆ ที่ใกล้เคียงติดกัน, อักษรทั้งหมดให้นับรวมเป็นคำๆ นั้นด้วย. ผู้เล่นจะได้คะแนนจากอักษร ที่นำมาสร้างคำ ทั้งหมดจากตาเดินนั้นๆ.

  4. คำใหม่อาจสามารถสร้างขึ้นโดย:
    • วางเพิ่ม 1 อักษรหรือ มากกว่าลงบน กระดานเพื่อสร้างคำใหม่ขึ้นมา.
    • วางคำลงตรงมุมกระดาน ลงบนคำที่วางเลียงไว้บนกระดานแล้ว. คำใหม่นั้นจะต้องใช้อักษรหนึ่งที่วางอยู่บนกระดานแล้ว หรือวาวเพิ่มลงไปให้เป็นคำ. (See Turns 2, 3 and 4 below.)
    • วางคำที่สมบูรณ์เพิ่มต่อขนานไปจากคำที่มีผู้เล่นไว้แล้ว คำทั้งประโยคจะนับรวมเป็นคะแนนทั้งหมดของตานั้น.

  5. ไม่สามารถเปลี่ยนเบี้ยหรือวางใหม่ได้หลังจาก เล่นและนับคะแนนแล้ว.

  6. ตัวอักษร ว่าง หรือ Blanks: มีสองตัวสามารถใช้แทนตัวอักษรอะไรก็ได้. เมื่อเล่นตัว Blank, คุณจะต้องเริ่มเล่นด้วยตัวอักษรที่มัน ใช้เป็นตัวแทน. แล้ว Blank จะเป็นตัวอักษรที่เหลือของคำนั้น.

  7. คุณสามารถใช้ ตาเดินของคุณเพื่อเปลี่ยน ตัวเบี้ย บางส่วน หรือทั้งหมดก็ได้. โดยทำดัวนี้, วางตัวที่ต้องการเปลี่ยนทั้ง(s) คว่ำหน้าลง. หยิบตัวเบี้ยให้ตามจำนวนที่ต้องการ, แล้วทำการคละตัวอักษรที่ทิ้ง(s) ลงไปในส่วนกลาง. เป็นการจบตาเดินของคุณ.

  8. ผู้เล่นทุกคนสามารถ คัดค้านได้ก่อนที่ จะถึงตาเดินต่อไป. ถ้าคำคัดค้านนั้นไม่ได้รับการยอมรับ, ผู้คัดคัานจะต้องเสียตาเดินไปหนึ่งตา. แต่ถ้าคำคัดค้านนั้นถูกต้อง, ผู้ถูกคัดค้านจะเสียตาเดินไปหนึ่งตาเช่นกัน. กรุณาใช้ dictionary ช่วยในการคัดค้านเท่านั้น. คำทั้งหมดที่วางโดยผู้เล่นหนึ่งคนจะรวมอยู่ในคำคัดค้านเดียว. ถ้าคำไหนไม่ได้รับการยอมรับ, การเล่นทั้งหมดในตานั้น ก็ไม่ได้รับการยอมรับไปด้วย. อย่างมากที่สุดคือเสียตาเดินไปหนึ่งตาต่อการคัดค้านหนึ่งครั้ง.

  9. The game ends when all letters have been drawn and one player uses his or her last letter; or when all possible plays have been made.


Scoring / การนับคะแนน


  1. ใช้ score pad หรือเศษกระดาษเป็น เครื่องจำคะแนนรวม ของผู้เล่นทุกคน, จดคะแนนเพิ่มหลังจากจบตาเดินทุกตา. จำนวนแต้มของทุกตัวอักษรจะกำกับไว้ตรงด้านล่างของตัวเบี้ย. คะแนนของตัว blank คือ 0.

  2. คะแนนของทุกตาเดินคือจำนวนคะแนนรวมของตัวอักษรทั้งหมด(s) ที่ใช้สร้าง หรือเพิ่มเข้าไปเพื่อคำหรือ ประโยคที่สมบูรณ์ขึ้นมา, บากด้วยคะแนนเพิ่มจากเงื่อนไขการวางตัวเบี้ยลงบน ช่องตาเดินพิเศษ Premium Squares ซึ้งมีสีและ เงื่อนไขคะแนนเพิ่มต่างกัน.

  3. Premium Letter Squares: เงื่อนไขนับคะแนนเพิ่มกับตัวเบี้ยที่วางทับ
    ตารางสีฟ้าอ่อน light blue ให้นับคะแนนเป็นสองเท่า doubles ของตัวเบี้ยที่วางทับลงไป; ตารางสีฟ้าเข้ม dark blue ให้ทวีคูณเป็น 3 เท่าของตัวเบี้ย.

  4. Premium Word Squares: เงื่อนไขนับคะแนนเพิ่มกับทั้งคำทับ
    คะแนนของคำทั้งหมดให้คูณ 2 เมื่อมีเบี้ยตัวหนึ่งวางถับบนช่องสีชมพู: และเป็น 3 เท่าถ้าวางทับบนช่องสีแดง. ให้รวมกับการเพิ่มคะแนนกับตัวเบี้ยที่วาง premiums letter values ด้วย, ถ้าเกิดขี้นก่อน.

    ถ้าคำที่สร้างครอบคลุม 2 premium word squares, คะแนนจะคูณ 2 และคูณ 2 อีกครั้งหนึ่ง (นับตัวอักษรนั้น 4ครั้ง), หรือทวีคูณ 3(นับตัวอักษรนั้น 9ครั้ง). NOTE: ช่องกลางเป็นสีชมพู ซึ่งจะได้คะแนน doubles 2 เท่าสำหรับคำแรกที่วางเสมอ.

  5. จะนับคะแนนเพิ่มกับ ตัวอักษร และคำเฉพาะในตาที่ผู้เล่น ๆ เท่านั้น. ในตาเดินหลัง, อักษรที่ได้วางบน premium squares อยู่แล้วให้นับตามคะแนนจริง.

  6. เมื่อเล่นตัว blank บนช่องสีชมพู หรือ สีแดง, คะแนนของคำจะคูณ doubled 2 หรือ 3, แม้ว่าตัวเบี้ย blank จะไม่มีคะแนนก็ตาม.

  7. เมื่อคำ 1 คำหรือมากกว่าสร้างขึ้นโดยผู้เล่นคนเดียว, ทุกคำเป็นคะแนน. เบี้ยธรรมดาให้นับ (เป็น full premium value, ถ้ามีเบี้ยวางบนช่อง) สำหรับทุกคำ.

  8. BINGO! ถ้าคุณสามารถวาง 7 ตัวอักษรในตาเดินเดียว, จะได้ Bingo. ได้คะแนนเพิ่มอีก 50 points หลังจากรวมคะแนนรวมของตานั้นแล้ว.

  9. ตัวเบี้ยที่เหลือ: เมื่อจบเกม, คะแนนรวมของทุกคนจะถูกหักลดลงตามจำนวนรวมของ ตัวเบี้ยที่เหลืออยู่ในมือ. แต่ถ้า, ผู้เล่นไม่มีตัวเหลือเลย, จะได้คะแนนเพิ่มเท่ากับ คะแนนรวมของเบี้ยเหลือของผู้เล่นคนอื่นๆ ทั้งหมด.

  10. ผู้เล่นที่มีคะแนนรวมสูงสุดเป็นผู้ชนะ. กรณีที่คะแนนเสมอกัน, ผู้ที่ได้คะแนนรวมสูงสุดก่อนหักหรือ เพิ่มคะแนนจำเบี้ยที่เหลือเป็นผู้ชนะ.

Click to Return to Board
HTML } # end of sub_rules #--------------------------------------------------- # Search Directory for HJT Files #--------------------------------------------------- sub open_dialog{ opendir (FILELIST, "$datapath"); rewinddir (FILELIST); @dirlist = grep(!/^\.\.?$/, readdir (FILELIST)); closedir (FILELIST); $num_in_dir = @dirlist; # the number of items in @dirlist $counter = 0; while ($num_in_dir > $counter) { @check = split(/\./, $dirlist[$counter]); if (($check[1] eq "txt")|($check[1] eq "TXT")){ push (@directory, $dirlist[$counter]); } # end of if $counter++; } # end of while #--------------------------------------------------- # Display 'open file' dialog if multiple files exist #--------------------------------------------------- # @durectory contains all HJT files on server. if (scalar(@directory) > 1){ print < Choose crossword_db File
crossword_db - script by CrookedBush.com
Please select a board: คลิกเลือกเกม ที่มีชื่อคุณอยู่
HTML foreach $item(@directory){ $item =~ s/\.txt//; $item_name = $item; $item_name =~ tr/_/ /; $item =~ s/\.txt/\./; print " $item_name
\n"; } # end of foreach $item print <

 




HTML exit; } # end of if $#directory > 1 else { $datafilename = $directory[0]; } # end of else }# end of sub open_dialog #--------------------------------------------------- # Open File on Server #--------------------------------------------------- sub open_file{ open (data_file, "$datapath$datafilename") or dienice("I can't open the board data file: $datapath$datafilename. Error Code: $!"); @all_board_data = ; close (data_file); chomp(@all_board_data); # take carriage returns off all of the lines } # end of sub open_file #--------------------------------------------------- # dienice # Displays error messages (beautify this later) #--------------------------------------------------- sub dienice { my($errmsg) = @_; print <

$errmsg

\n Return to Board

HTML exit; } # End of dienice subroutine