Version 81 of Refrigerator_Magnetic_Poetry
Updated 2006-08-28 16:19:37This page uses TCL8/Expect 5.2 for windows to develop Refrigerator magnetic Poetry. For example, we are laying out tiles in random colors imprinted with text and symbols applied randomly. Would also like to develop a crude Mahjong program using some of these subroutines.
test picture & screen shot
Strengths
- Subroutine use whereever possible.
- This one
[Refrigerator_Magnetic_Poetry]
#Refrigerator_Magnetic_Poetry
# Start of Deck
#Refrigerator_Magnetic_Poetry
# Start of Deck
#Refrigerator_Magnetic_Poetry
# Start of Deck
#Refrigerator_Magnetic_Poetry
# Start of Deck
package require Tk
proc down(reset) {w x y} {
reset $w
}
proc move(reset) {w x y} {}
proc radio {w var values {col 0}} {
frame $w
set type [expr {$col? "-background" : "-text"}]
foreach value $values {
radiobutton $w.v$value $type $value -variable $var -value $value \
-indicatoron 0
if $col {$w.v$value config -selectcolor $value -borderwidth 3}
}
eval pack [winfo children $w] -side left
set ::$var [lindex $values 0]
set w
}
proc down(Draw) {w x y} {
set ::ID [$w create line $x $y $x $y -fill $::Fill]
}
proc move(Draw) {w x y} {
$w coords $::ID [concat [$w coords $::ID] $x $y]
}
#-- Movement of an item
proc down(Move) {w x y} {
set ::ID [$w find withtag current]
set ::X $x; set ::Y $y
}
proc move(Move) {w x y} {
$w move $::ID [expr {$x-$::X}] [expr {$y-$::Y}]
set ::X $x; set ::Y $y
}
proc luniq {L} {
# removes duplicates without sorting the input list
set t {}
foreach i $L {if {[lsearch -exact $t $i]==-1} {lappend t $i}}
return $t
} ;# RS
#-- Clone an existing item
proc serializeCanvasItem {c item} {
set data [concat [$c type $item] [$c coords $item]]
foreach opt [$c itemconfigure $item] {
# Include any configuration that deviates from the default
if {[lindex $opt end] != [lindex $opt end-1]} {
lappend data [lindex $opt 0] [lindex $opt end]
}
}
return $data
}
proc down(Clone) {w x y} {
set current [$w find withtag current]
if {[string length $current] > 0} {
set itemData [serializeCanvasItem $w [$w find withtag current]]
set ::ID [eval $w create $itemData]
set ::X $x; set ::Y $y
}
}
interp alias {} move(Clone) {} move(Move)
#-- Drawing a rectangle
proc down(Rect) {w x y} {
set tile [expr {int(rand()*1000000000.)}]
set poof "rectangle" ;
set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y];
set ::ID [$w create rect $x $y $x $y -tags $tagx -fill $::Fill]
}
proc move(Rect) {w x y} {
$w coords $::ID [lreplace [$w coords $::ID] 2 3 $x $y]
}
#-- Drawing an oval (or circle, if you're careful)
proc down(Oval) {w x y} {
set tile [expr {int(rand()*1000000000.)}]
set poof "oval" ;
set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y];
set ::ID [$w create oval $x $y $x $y -tags $tagx -fill $::Fill]
}
proc move(Oval) {w x y} {
$w coords $::ID [lreplace [$w coords $::ID] 2 3 $x $y]
}
proc down(circle) {w x y} {
set tile [expr {int(rand()*1000000000.)}]
set poof "oval" ;
set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y];
set dx 50
set dy 50
set ::ID [$w create oval [expr {$x+2}] [expr {$y+2}] [expr {$x+$dx-3}] [expr {$y+$dy-3}] -tags $tagx -fill $::Fill]
}
proc move(circle) {w x y} {
#$w coords $::ID [lreplace [$w coords $::ID] 2 3 $x $y]
}
proc down(Poly) {w x y} {
if [info exists ::Poly] {
set tile [expr {int(rand()*1000000000.)}]
set poof "poly" ;
set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y];
set coords [$w coords $::Poly]
foreach {x0 y0} $coords break
if {hypot($y-$y0,$x-$x0)<10} {
$w delete $::Poly
$w create poly [lrange $coords 2 end] -fill $::Fill
unset ::Poly
} else {
$w coords $::Poly [concat $coords $x $y]
}
} else {
set ::Poly [$w create line $x $y $x $y -tags "obj_[expr {int(rand()*1000000000.)}]" -fill $::Fill ]
}
}
proc ? L {
lindex $L [expr {int(rand()*[llength $L])}]
#suchenwirth_subroutine;
}
proc move(Poly) {w x y} {#nothing}
#-- With little more coding, the Fill mode allows changing an item's fill color:
proc down(Fill) {w x y} {$w itemconfig current -fill $::Fill}
proc move(Fill) {w x y} {}
proc lcount list {
foreach x $list {lappend arr($x) {}}
set res {}
foreach name [array names arr] {
lappend res [list $name [llength $arr($name)]]
}
return $res
}
#lcount {yes no no present yes yes no no yes present yes no no yes yes}
#{no 6} {yes 7} {present 2}
proc translationx {string dictName} {
#suchenwirth_subroutine;
upvar 1 $dictName dict
set res {}
foreach word $string {
if [info exists dict($word)] {set word $dict($word)}
lappend res $word
}
set res
}
proc plural word {
switch -- $word {
man {return men}
foot {return feet}
goose {return geese}
louse {return lice}
mouse {return mice}
ox {return oxen}
tooth {return teeth}
calf - elf - half - hoof - leaf - loaf - scarf
- self - sheaf - thief - wolf
{return [string range $word 0 end-1]ves}
knife - life - wife
{return [string range $word 0 end-2]ves}
auto - kangaroo - kilo - memo
- photo - piano - pimento - pro - solo - soprano - studio
- tattoo - video - zoo
{return ${word}s}
cod - deer - fish - offspring - perch - sheep - trout
- species
{return $word}
genus {return genera}
phylum {return phyla}
radius {return radii}
cherub {return cherubim}
mythos {return mythoi}
phenomenon {return phenomena}
formula {return formulae}
}
switch -regexp -- $word {
{[ei]x$} {return [string range $word 0 end-2]ices}
{[sc]h$} - {[soxz]$} {return ${word}es}
{[bcdfghjklmnprstvwxz]y$} {return [string range $word 0 end-1]ies}
{child$} {return ${word}ren}
{eau$} {return ${word}x}
{is$} {return [string range $word 0 end-2]es}
{woman$} {return [string range $word 0 end-2]en}
}
return ${word}s
}
proc keyget {list key} {
foreach {lkey value} $list {
if [string equal $lkey $key] {return $value}
}
} ;# RS
# % keyget {fnm John lnm Brown phone (123)456-7890 email [email protected]} phone
# (123)456-7890
# % keyget {fnm John lnm Brown phone (123)456-7890 email [email protected]} fax
proc lswap list {
set res {}
foreach {a b} $list {lappend res $b $a}
set res
} ;# RS
# % lswap {a b c d e f g h}
# b a d c f e h g
#Prepend elements to a list (add in front):
proc lprepend {var args} {
upvar 1 $var v
set v [eval [list linsert $v 0] $args]
} ;# DKF
proc kvsearch {kvlist item} {
set pos [lsearch $kvlist $item]
if {$pos != -1} {
lindex $kvlist [expr {$pos+1-2*($pos%2)}]
}
} ;# RS
## kvsearch {1 one 2 two 3 three} four ;# returns empty string/list
# kvsearch {1 one 2 two 3 three} 1
#one
#% kvsearch {1 one 2 two 3 three} one
#1
#-- Building the UI
set modes {Draw Move Clone Fill Rect Oval Poly circle canvas Poetry hairs zone help clear reset exit}
set colors {
blue3 white magenta brown red orange yellow green green3 green4
cyan blue blue2 purple}
set colorz {black brown2 LightGoldenrod1 LightGoldenrod2 LightGoldenrod3 LightGoldenrod4
LightYellow2 LightYellow3 LightYellow4 yellow2 yellow3 yellow4
gold2 gold3 gold4 goldenrod1 goldenrod2 goldenrod3 goldenrod4
DarkGoldenrod1 DarkGoldenrod2 DarkGoldenrod3
orange3 orange4 DarkOrange1 DarkOrange2 DarkOrange3 DarkOrange4
coral1 coral2 coral3 coral4 tomato2 tomato3 tomato4 OrangeRed2
OrangeRed3 OrangeRed4 red2 red3 red4 DeepPink2 DeepPink3 DeepPink4
HotPink1 HotPink2 HotPink3 HotPink4 pink1 pink2
}
set colorx { blue4 AntiqueWhite3 \
Bisque1 Bisque2 Bisque3 Bisque4 \
SlateBlue3 RoyalBlue1 SteelBlue2 \
DeepSkyBlue3 LightBlue1 DarkSlateGray1 \
Aquamarine2 DarkSeaGreen2 SeaGreen1 Bisque \
Yellow1 IndianRed1 IndianRed2 Tan1 \
lemonchiffon seashell honeydew mintcream azure \
peachpuff navajowhite moccasin cornsilk \
IndianRed3 IndianRed4 sienna1 sienna2 sienna3 sienna4 burlywood1 \
burlywood2 burlywood3 burlywood4 wheat1 wheat2 wheat3 wheat4 \
tan2 tan4 chocolate1 chocolate2 chocolate3 firebrick1 firebrick2 \
firebrick3 firebrick4 \
}
global helpx
global liner
global ind
set ind 0
global movesit
set helpx 0
set movesit 1
set colorground bisque
global xhistory firstnode curnode
set curnode ""
set firstnode ""
set xhistory [list aaa bbb ccc ddd eee fff ggg ]
set xhistory [list ]
set colorground bisque
global selected_tile previous_tile
set selected_tile "selected tile";
set previous_tile "previous tile";
global counter
global liner
global ind
set ind 0
set liner [list a b c d e f g ]
global tilex tagx tagz
set tilex "obj_66666test"
set tagx "obj_77777test"
set tagz "obj_55555test "
global entries
set counter 0
grid [radio .1 Mode $modes] -sticky nw
grid [radio .2 Fill $colors 1] -sticky nw
grid [radio .3 Fill $colorx 2] -sticky nw
grid [radio .4 Fill $colorz 3] -sticky nw
grid [canvas .c -relief raised -borderwidth 1 -bg $colorground] - -sticky news
grid rowconfig . 0 -weight 0
grid rowconfig . 1 -weight 1
grid rowconfig . 2 -weight 2
grid rowconfig . 3 -weight 3
button .b2 -text dismiss -command "destroy ."
button .b3 -text exit -command "exit"
button .b5 -text "Del_tank" -width 2 -command { .wxx delete 1.0 end}
button .b6 -text "lt_bg" -bg gray -width 2 \
-command { set colorground LightBlue1;
.c configure -bg $colorground }
button .b7 -text "bis_bg" -width 3 \
-command { set colorground Bisque; \
.c configure -bg $colorground }
grid .b2 .b3 .b5 .b6 .b7
grid rowconfig . 0 -weight 0
grid rowconfig . 1 -weight 1
grid [ label .wcc -text "list of selection history " ]
grid [entry .wxxccc -textvar e -just left -bg beige -width 50]
#.wxxccc insert end "$liner"
set wow [.c find withtag current];
.wxxccc insert end "xxx starter xxx $wow xxx"
focus .wxxccc ;# allow keyboard input
set labelx [info tclversion];
grid [ label .ww -text "holding tank, version $labelx " ]
set txt [text .wxx -width 20 -height 3 -bg beige]
grid $txt -sticky news
focus .wxx ;# allow keyboard input
set wow [.c find withtag current];
.wxx insert 1.0 "xxx starter xxx $wow xxx ";
#-- The current mode is retrieved at runtime from the global Mode variable:
bind .c <1> {set firstnode [.c find withtag current];initialize %W %x %y ;down($Mode) %W %x %y}
bind .c <B1-Motion> {move($Mode) %W %x %y}
bind .c <2> {%W delete current}
bind .c <3> {
#set firstnode [.c find withtag green]
set firstnode [.c find withtag current]
set curnode [.c find withtag current]
set tile [.c find withtag current]
#set curnode [.c find withtag red]
if {( $firstnode != "") && ($curnode != "")} {
dualcheck $tile $firstnode $curnode }}
proc move(Poetry) {w x y} {
if [info exists ::X] {
$w move $::ID [expr {$x-$::X}] [expr {$y-$::Y}]
set ::X $x; set ::Y $y}
}
proc down(exit) {w x y} {
exit
}
proc down(Poetry) {w x y} {
global baseline
global en_chinese
global en_romanji
set baseline [list ]
set baseline2 [list ]
set baseline3 [list ]
set dy 40
set dx 40
set dk 10
set poof "tester";
set looky "stringx";
set tile "tile"
set tagx [list aaaa bbbb cccc dddd eeee fffff gggg hhhh ]
set tagx [list ]
#set tags [list mv d-$val1$val2];
#set tile [expr {int(rand()*1000000000.)}]
#set looky "stringx";
#set poof [xpop $looky ] ;
#set tags [list $poof mv obj_$tile d-$val1$val2];
#set tags [list $poof mv "obj_$tile+1" d-$val1$val2];
#set tagx [list $poof mv "obj_$tile+1" d-$x$y];
for {set i 0; set y [expr {4+$y}];set x [expr {10+$dx}]; } {$i<5} {incr i; incr x $dx} {
set state1 1;
set tile [expr {int(rand()*1000000000.)}]
set looky "stringx";
set poof [xpop $looky ] ;
lappend baseline $poof;
lappend caseline $poof;
set tagx [list $poof mv "obj_$tile" d-$x$y];
set ::ID [$w create text $x $y -text $poof -tags $tagx -fill $::Fill ]
}
for {set i 0; set y [expr {8+$y}];set x [expr {10+$dx}] ;} {$i<7} {incr i; incr x $dx} {
set state1 1;
set tile [expr {int(rand()*1000000000.)}]
set looky "stringx";
set poof [xpop $looky ] ;
lappend baseline2 $poof;
lappend caseline2 $poof;
set tagx [list $poof mv "obj_$tile" d-$x$y];
set ::ID [$w create text $x $y -text $poof -tags $tagx -fill $::Fill ]
}
for {set i 0; set y [expr {12+$y}];set x [expr {15+$dx}];} {$i<5} {incr i; incr x $dx} {
set state1 1;
set tile [expr {int(rand()*1000000000.)}]
set looky "stringx";
set poof [xpop $looky ] ;
lappend baseline3 $poof;
lappend caseline3 $poof;
set tagx [list $poof mv "obj_$tile" d-$x$y];
set ::ID [$w create text $x $y -text $poof -tags $tagx -fill $::Fill ]
}
set topa [stringxxx [concat $baseline $baseline2 $baseline3]] ;
.wxx insert 1.0 $topa;
.wxx insert 1.0 [lcount $topa];
set topat [translationx $topa en_chinese];
.wxx insert 1.0 [lcount $topat];
.wxx insert 1.0 [concat $topa [lcount $topa] $topat [lcount $topat] ];
set k 20;
set baseline [translationx $baseline en_chinese];
set k [expr {20+$y}];
set ::ID [$w create text $x $k -text $baseline -tags $tagx -fill $::Fill ]
set baseline [translationx $baseline2 en_chinese];
set k [expr {30+$y}];
set ::ID [$w create text $x $k -text $baseline -tags $tagx -fill $::Fill ]
set baseline [translationx $baseline3 en_chinese];
set k [expr {40+$y}];
set ::ID [$w create text $x $k -text $baseline -tags $tagx -fill $::Fill ]
set k 30;
set j 20;
set baseline [translationx $caseline en_romanji];
set k [expr {60+$y}];
set j [expr {20+$x}];
set ::ID [$w create text $j $k -text $baseline -tags $tagx -fill $::Fill ]
set baseline [translationx $caseline2 en_romanji];
set k [expr {70+$y}];
set j [expr {20+$x}];
set ::ID [$w create text $j $k -text $baseline -tags $tagx -fill $::Fill ]
set baseline [translationx $caseline3 en_romanji];
set k [expr {80+$y}];
set j [expr {20+$x}];
set ::ID [$w create text $j $k -text $baseline -tags $tagx -fill $::Fill ]
}
proc history {xhistory } {
set xhistory [list object history @];
global xhistory firstnode curnode
global ind movesit
set number 2
set numberx 2
set firstnode [.c find withtag current]
lappend $xhistory $firstnode ;
set ::ID [.c create text 100 200 -text $xhistory -tags " history " -fill $::Fill -fill black ]
}
proc dualcheck { tile firstnode curnode} {
global match_id selected_tile tiles_left jack
global newy oldy match oldx xhistory
global selected_tile previous_tile
global xhistory
global tilex
#global firstnode curnode
set selected_tile "selected tile";
set colorxxx "test"
set colorzzz "test"
#set previous_tile "previous tile";
set numberx [.c gettags current];
regexp {obj_(\d+)} $numberx -> tilex
regexp {colorit_(\d+)} $numberx -> colorxxx
regexp {colorit_(\d+)} $numberx -> colorzzz
set indexer [string first "mv" $numberx ];
set indexer [ expr { $indexer - 1 } ]
set new [string range $numberx 0 $indexer ];
set tags [.c gettags current]
#.c itemconfigure obj_$tilex -width 2 -outline red;
#.c itemconfigure $previous_tile -width 2 -outline green;
# .c itemconfigure obj_$tilex -width 3 ;
# .c itemconfigure $previous_tile -width 3 ;
set old "test"
set kkk [.c gettags $previous_tile ]
set indexer [string first "mv" $kkk ]; ;
set indexer [ expr { $indexer - 1 } ]
set old [string range $kkk 0 $indexer ];
if {$old == ""} {set old "poof $previous_tile"}
set tx [string range $tilex 0 end ];
set rx [string range $previous_tile 4 end ];
if { $tx != $rx } {
.wxx delete 1.0 end;
.wxx insert end " pair error identified, text not equal !!!" ;
}
if { $old == $new } {
set tx [string range $tilex 0 end ];
set rx [string range $previous_tile 4 end ];
if { $tx == $rx } {
.wxx delete 1.0 end;
.wxx insert end " pair error identified, double touch of same tile !!!" ;
}
if { $tx != $rx } {
#.c itemconfigure obj_$tilex -width 2 -outline blue;
#.c itemconfigure $previous_tile -width 2 -outline blue;
.wxx delete 1.0 end;
.wxx insert end " xxx $tilex xxx $tx xxx $rx xxx $previous_tile xxxx ";
.wxx insert end $previous_tile;
.wxx insert end " old $old ";
.wxx insert end $old;
.wxx insert end " identical pair identified !!!" ;
.wxx insert end " xxx old $old xxx new xxx $new ";
.wxx insert end $new;
.wxx insert end "obj_tilex obj_$tilex "
regexp {colorit_(\d+)} $numberx -> colorxxx
regexp {colorit_(\d+)} $previous_tile -> colorzzz
if { $colorxxx == $colorzzz } {
.c delete "$previous_tile+1";
.c delete "obj_$tilex+1" ;
.c delete obj_$tilex ;
.c delete $previous_tile;
}
}
}
#.wxx delete 1.0 end;
set $selected_tile $tags;
.wxx insert end $tags ;
.wxx insert end " selected_tile equals $new ";
if { $previous_tile != $selected_tile } {
set previous_tile [.c gettags current]
set indexer [string first "mv" $previous_tile ];
set indexer [ expr { $indexer - 1 } ]
set old [string range $previous_tile 0 $indexer ];
.wxx insert end " previous_tile equals $old ";
}
#.c itemconfigure $curnode -width 2 ;
set previous_tile obj_$tilex
set firstnode obj_$tilex;
if { $firstnode != $curnode } {
set curnode obj_$tilex;}
.wxx insert end " current equals $curnode ";
.wxx insert end " first equals $firstnode ";
return }
proc initialize {w x y} {
global tile
global xhistory firstnode curnode
global ind movesit
set tile [.c find withtag current]
set number 2
set numberx 2
set ::_x $x; set ::_y $y;
set firstnode [.c find withtag current]
set number [$w gettags current]
set indexer [string first "mv" $number ];
set numberx [string range $number 0 $indexer];
# this card deletes previous history in tank
# reduces tank verbage but loses history
# .wxx delete 1.0 end;
# general reporting line
.wxx insert 1.0 " xxx $number xxx $numberx xxx \
indexer xxx $indexer xxx number of tiles xxxx \
$ind xxxx object xxx $tile xxx $ind xxx number of \
straight moves xxx $movesit xxx ";
#.wxxccc delete 1.0 end;
# general reporting line
.wxxccc insert end " xxx $number xxx $numberx xxx \
indexer xxx $indexer xxx number of tiles xxxx \
$ind xxxx object xxx $tile xxx $ind xxx number of \
straight moves xxx $movesit xxx ";
incr movesit
}
proc lpick L {lindex $L [expr int(rand()*[llength $L])]; \
#suchenwirth_subroutine;}
proc stringxxx s {
#suchenwirth_subroutine;
set res {}
foreach line [split $s \n] {
for {set i 0} {$i<[string length $line]} {incr i} {
if {$i==[string wordstart $line $i]} {
set w [string range $line $i [expr {[string wordend $line $i]-1}]]
#if {$w!=" "} {lappend res $w}
#if {$w!=" " && $w!="\{" && $w!="\}"} {lappend res $w}
if {$w!=" " && $w!="\{" && $w!="\}" && $w!="\," && $w!="\\" && $w!="\/"} {lappend res $w}
#if {$w!="\}"} {lappend res $w}
#if {$w!="\{"} {lappend res $w}
incr i [expr {[string length $w]-1}];
# always loop incr
}
}
}
set res
}
proc xpop { topper } {
global liner
global ind
global baseline
set poetsey aaaaa
set liner [poemsorts $poetsey];
set goofy [stringxxx $liner] ;
set topper [ lindex $goofy $ind ];
set ind [ expr { $ind + 1}]
lappend $baseline $topper;
return $topper;
}
proc helptext {stringxxx} {
set text_texas {
# Refrigerator magnet poetry
# Refrigerator magnet poetry
# program is mainly TCL8.0 and
# Windows Expect5.2 offshoot of
# Suchenwirth's Domino.tcl, circa 2004.
# Tried to note which Suchenwirth subroutines
# were mostly unchanged.
# 5/7/5 words per line is
# setting for Japanese Haiku poetry.
# Other procedures working
# on windows98 and old PC.
# from goldshell7 on 10jun2006.}
return $text_texas;}
proc poemsorts {poetsey} {
global liner
#set liner [list q w e r]
# alpha liner for test purposes
set liner [list aaaa bbbb cccc dddd eeee fffff gggg hhhh ]
set liner [list ]
set adjective_poetic {
{red} {sad} {blue} {blue}
{glad} {glad} {deep} {black}
{wild } { green } {pale } {bright}
{rough } {gray } {brown } {long}
{high } {thin} {brown } {lush}
{dry } {poor} {lone } {far}
{flat } {broad} {thick } {hard}
{flat } {broad} {cool } {hard}
}
set noun_subject {
cat mouse reed { pear }
{quince } { peach } {hare } {bird}
{ smoke } { rain} { ice} { snow}
{cloud} { home} { flower } {sky}
{rice} { pine} { mist} {door}
{wind} { cricket} { year } {moon}
{crane } {grass } {rose} { ink}
{thaw} { bloom } {lake} { cedar }
{dusk} { autumn } {stone} { dawn}
{stream} { tree } {heart} { boat}
{grief} { tree } {boat} { boat}
{rock} {town} {tear} {pool}
{silk} {deer} {song} {barge}
{moss} {night} {gate} {fence}
{dove} {dream} {frost} {peace}
{shade} {ghost} {road } {path}
{root} {horse} {eve } {sound}
{sleep} {leaves} {sea } {sail}
{peak} {stem} {field} {wave}
{slope} {bark} {crest} {weed}
{moth} {wasp} {pond} {soil}
{snail} {worm} {ant} {kelp}
{cave} {month} {head} {jade}
{branch} {bone} {head} {smile}
{pea} {bone} {head} {smile}
{elm} { morn} {carp} {nest}
{oak} { bone} {perch} {breeze}
mount plum storm hill
}
set verb_transitive {falls
{snow} { burns} { flips} { flys }
{lies} { walk } {flow } {fall} {fly}
{know } {come} { meet } { drift}
{shine } {soak} { cry } {dance}
{ lost} {cheer} {float } {dance}
{roost} { move} { fade} { loves}
{sleeps} {move} {takes } {sail}
{sits} {leaps} {sits } {sit}
{sits} {leaps} {grows } {waits}
{loses} {hears} {wants } {watch}
}
set noun_objective {
cloud {old home} flower { sky } rice {cricket}
}
set silly_propostion {
for {by} towards { to } at {bygone}
{to} {in} {in } {to }
{to} {in} {fore } through
}
set poetsey "The , [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic], [? $adjective_poetic], [? $noun_subject],The , [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic], [? $adjective_poetic], [? $noun_subject],The , [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic] , [? $adjective_poetic] ,[? $noun_subject],The , [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic], [? $adjective_poetic], [? $noun_subject],The [? $adjective_poetic],[? $noun_subject], [? $verb_transitive], [? $silly_propostion], [? $adjective_poetic], [? $adjective_poetic], [? $noun_subject],"
lappend liner $poetsey
lappend liner $poetsey
lappend liner $poetsey
set poetsey $liner
return $poetsey
}
#-- Activate F-keys (optional):
bind . <Escape> { exit}
bind . <F1> {destroy .}
bind . <F2> { set colorground LightBlue1; \
.c configure -bg $colorground}
bind . <F3> {set colorground Bisque;.c \
configure -bg $colorground }
bind . <F4> {set backcolor [lpick {AntiqueWhite3
Bisque1 Bisque2 Bisque3 Bisque4 \
SlateBlue3 RoyalBlue1 SteelBlue2 \
DeepSkyBlue3 LightBlue1 DarkSlateGray1 \
Aquamarine2 DarkSeaGreen2 SeaGreen1 Bisque \
Yellow1 IndianRed1 IndianRed2 Tan1 \
Tan4 gray}];
set colorground $backcolor;
.c configure -bg $colorground }
bind . <F4> {set backcolor [lpick {AntiqueWhite3
Bisque1 Bisque2 Bisque3 Bisque4 \
SlateBlue3 RoyalBlue1 SteelBlue2 \
DeepSkyBlue3 LightBlue1 DarkSlateGray1 \
Aquamarine2 DarkSeaGreen2 SeaGreen1 Bisque \
Yellow1 IndianRed1 IndianRed2 Tan1 \
Tan4 gray}];
set colorground $backcolor;
.c configure -bg $colorground }
bind . <F5> {set backcolor [lpick {
Bisque Aquamarine }];
set colorground $backcolor;
.c configure -bg $colorground }
bind . <F6> {set backcolor [lpick {AntiqueWhite3
Bisque}];
set colorground $backcolor;
.c configure -bg $colorground }
bind . <F7> {set backcolor [lpick {SeaGreen1
Bisque}];
set colorground $backcolor;
.c configure -bg $colorground }
bind . <F8> {set backcolor [lpick {AntiqueWhite3
Bisque}];
set colorground $backcolor;
.c configure -bg $colorground }
# some words/meanings from 8th century poems
# english articles dumped for asterisk
# reduced volcabulary
array set en_chinese {
The *
the *
bird naio
water shui
cloud yun
smoke yan
come lai
rain yu
red hong
sad nanguo
blue lan
glad gaoxing
deep shen
black hei
wild yesheng
green luse
pale cangbai
bright ming
rough buping
gray cangbai
brown zongse
long chang
high gao
thin shou
lush duo
dry gan
poor qiong
lone dandu
far yuan
flat ping
broad kuan
thick hou
hard ying
cool liang
cat mao
mouse laoshu
reed cao
pear li
quince yingtao
peach tao
hare tuzhu
bird naio
smoke yan
rain yu
ice xue
snow xue
cloud yun
home home
flower hua
sky tian
rice mi
pine song
mist wu
door men
wind feng
cricket kunchong
year nian
moon yue
crane niao
grass cao
rose meigui
ink moshui
thaw thaw
bloom hua
lake he
cedar song
dusk heitian
autumn qiu
stone shi
dawn liming
stream he
tree shu
heart xin
boat zhou
grief nanguo
rock shi
town zhen
tear lei
pool chitang
silk si
deer lu
song cedar
barge bochuan
moss lu
night ye
gate men
fence liba
dove naio
dream meng
frost shuang
peace heping
shade si
ghost ti
road li
path xiaodao
root gen
horse ma
eve wan
sound sheng
sleep shuimian
leaves shu
sea hai
sail fan
peak peak
stem stem
field yuan
wave bolang
slope shan
bark shu
crest xia
weed zhiwu
moth kunchong
wasp huangfeng
pond chitang
soil du
snail wongnui
worm wongnu
ant kunchong
kelp haizhiwu
cave shandong
month yue
head tou
jade yu
branch shuzhi
bone gu
smile xiao
pea xiaodou
elm shu
morn zaochen
carp yu
nest chang
oak shu
perch yu
breeze xiaofeng
mount shan
plum lizi
storm fengbao
hill shan
falls liu
burns huo
flips zhou
flys fei
lies zhi
walk zou
flow liu
fall liu
fly fei
know zhu
come lai
meet meet
drift zhou
shine guang
soak shui
cry ti
dance tiaowu
lost milu
cheer guoxing
float piao
roost chang
move zhou
fade fade
loves ai
sleeps shuimian
takes you
sits zuo
leaps tiao
sit zuo
grows sheng
waits zhou
loses loses
hears ting
wants yao
watch kan
old lao
for wei
by yu
towards zai
to ge
at zai
bygone yu
in zai
}array set en_romanji {
The *
the *
red aka
sad kanashii
blue aoi_ao
glad glad
deep deep
black kuroi
wild yasee
green midori-iro
pale usui
bright akarui_taiyoo
rough rough
gray guree
brown chairo
long long
high takai
thin thin
lush subishii
dry kawaite_iru
poor bimboo
lone subishii
far far
flat flat
broad broad
thick thick
hard hard
cool cool
cat cat
mouse mouse
reed reed
pear pear
quince quince
peach peach
hare hare
bird bird
smoke smoke
rain rain
ice ice
snow snow
cloud cloud
home home
flower flower
sky sky
rice rice
pine pine
mist mist
door door
wind wind
cricket cricket
year year
moon moon
crane crane
grass grass
rose rose
ink ink
thaw thaw
bloom bloom
lake lake
cedar cedar
dusk dusk
autumn autumn
stone stone
dawn dawn
stream stream
tree tree
heart heart
boat boat
grief grief
rock rock
town town
tear tear
pool pool
silk silk
deer deer
song song
barge barge
moss moss
night night
gate gate
fence fence
dove dove
dream dream
frost frost
peace peace
shade shade
ghost ghost
road road
path path
root root
horse horse
eve eve
sound sound
sleep sleep
leaves leaves
sea sea
sail sail
peak peak
stem stem
field field
wave wave
slope slope
bark bark
crest crest
weed weed
moth moth
wasp wasp
pond pond
soil soil
snail snail
worm worm
ant ant
kelp kelp
cave cave
month month
head head
jade jade
branch branch
bone bone
smile smile
pea pea
elm elm
morn morn
carp carp
nest nest
oak oak
perch perch
breeze breeze
mount mount
plum plum
storm storm
hill hill
falls falls
burns burns
flips flips
flys flys
lies lies
walk walk
flow flow
fall fall
fly fly
know know
come come
meet meet
drift drift
shine shine
soak soak
cry cry
dance dance
lost lost
cheer cheer
float float
roost roost
move move
fade fade
loves loves
sleeps sleeps
takes takes
sits sits
leaps leaps
sit sit
grows grows
waits waits
loses loses
hears hears
wants wants
watch watch
old old
for for
by by
towards towards
to to
at at
bygone bygone
in in
The *
the *
}
proc phonesort2 { list } {
#KBK (14 February 2001)
foreach name $list {
regsub {Ma?c ?([A-Z])} $name {M_\1} key
lappend list2 [list $key $name]
}
foreach pair [lsort -index 0 -ascii $list2] {
lappend list3 [lindex $pair 1]
}
return $list3
}
global baseline
global en_chinese
set topa [stringxxx [poemsorts "aaaaa"]] ;
.wxx insert 1.0 $topa;
.wxx insert 1.0 [lcount $topa];
set baseline [list man goose foot woman dives];
foreach oppie $baseline {
set letter "string";
set letter [string range $oppie end end];
set letterx "s";
if { $letter != $letterx } {
lappend baseline [plural $oppie];
} else {
lappend baseline $oppie; }
}
.wxx insert 1.0 " $baseline xxx";
.wxx insert 1.0 "man xxx [plural "man"] xxx";
set baseline [list water bird smoke come];
.wxx insert 1.0 "xxx $baseline xxx";
set stringj [list ];
set stringj [translationx "water bird smoke come" en_chinese]
.wxx insert 1.0 $stringj ;
.wxx insert 1.0 "xxxx trans [translationx $baseline en_chinese]" ;
set listxxx [list MacDonald McArthur McEwan Lyttle Mabbs Jones]
.wxx insert 1.0 "xxxx sort xxxx $listxxx xxx [phonesort2 "$listxxx"]" ;
proc down(canvas) {w x y} {global colorground; set colorground $::Fill; \
.c configure -bg $colorground}
proc move(canvas) {w x y} {}
proc down(exit) {w x y} {
exit;
}
proc move(exit) {w x y} {}
proc down(help) {w x y} {
set tile [expr {int(rand()*1000000000.)}]
set poof "help" ;
global helpx
if {$helpx > 0} {return}
set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y];
set base "help";
set helpx 0;
set baseline [helptext $base];
#if {![info exists L]} {set L {}}
set ::ID [$w create text $x $y -text $baseline -tags $tagx -fill $::Fill ]
set helpx 1;
}
proc move(help) {w x y} {}
proc down(clear) {w x y} {
global helpx
$w delete "all";
set helpx 0;
}
proc reset {w} {
global helpx
$w delete "all"
set helpx 0;
}
proc down(hairs) {w x y} {
global helpx
if {$helpx > 0} {return}
set tile [expr {int(rand()*1000000000.)}]
set poof "cross hair" ;
set maximumxxxx 400
set maximumyyyy 400
set middlexxxx [expr { (400 + $x)/ 2 }]
set middleyyyy [expr { (400 + $y)/ 2 }]
set xx1 20;
set xx2 15;
set yy1 20;
set yy2 10;
set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y];
set base "help";
set helpx 0;
set baseline $base;
#if {![info exists L]} {set L {}}
#set ::ID [$w create text $x $y -text $baseline -tags $tagx -fill $::Fill ]
set ::ID [ $w create line $x $middleyyyy $maximumxxxx $middleyyyy -tags $tagx]
set ::ID [$w create line $middlexxxx $y $middlexxxx $maximumyyyy -tags tagx ]
bind ::ID [ $w create line $x $middleyyyy $maximumxxxx $middleyyyy -tags $tagx][$w create line $middlexxxx $y $middlexxxx $maximumyyyy -tags tagx ]
set helpx 1;
}
proc move(hairs) {w x y} {
set ::ID [$w find withtag hair ]
$w coords $::ID [lreplace [$w coords $::ID] 2 3 $x $y]
set ::X $x; set ::Y $y
}
proc down(zone) {w x y} {
global helpx
if {$helpx > 0} {return}
set xx1 20;
set xx2 15;
set yy1 20;
set yy2 10;
set tile [expr {int(rand()*1000000000.)}];
set poof "zone" ;
set tagx [list $poof mv "obj_$tile" "colorit_$::Fill" d-$x$y];
set base "help";
#$w create rect 50 10 100 60 -tags "box"
#$w create rect $xx1 $yy1 $xx2 $yy2 -tags "box"
set ::ID [$w create rect $x $y [expr { $x + $xx1 }] [expr { $y + $yy1 }] -tags $tagx -fill $::Fill ]
set helpx 1
}
proc move(zone) {w x y} {}
#end of deck
#end of deck
#end of deck
#end of deck
#end of deck
#end of deck
#end of deck
#end of deck
#end of deck- Code Reuse
- Tcl's package system makes it easy to write code that can be reused.
Many other people have made their code available for reuse.
''Q. from goldshell7'':I am trying to load a feature or subroutine "select&pair_then_die" , where one selects two equal pieces in color,text, or tags. If the two pieces are equal , both pairs disappear from the screen ( or to a hockey safety zone on the screen). Kind of like the old Microsoft Mahjong game, which was an elimination process of equal pairs.
''A. received''
You should make up unique tags
and assign them to both the rect
and the text inside it, and for convenience,
another one for the text only.
incr n
$w create rect ... -tags [list mv obj$n]
$w create text ... -tags [list mv obj$n text$n]
For moving, specify the obj.. tag so both move together.
To get the tags of the current selection, try something like:
set tags [$w gettags current]
In the returned list, locate the tag with the obj number,
e.g. like this
regexp {obj(\d+)} $tags -> number
You can retrieve the text by giving the tag
set text [$w itemcget text$number -text]
end of record.''Q. from goldshell7'':28jul2006,would like selected tiles to have a red, blue, or colored outline. However commented ".c itemconfigure tile_number -outline red" colored outine but reverts text font to vertical arranged text. Maybe somebody can figure how to keep text horizontal.
# test & extra chinese pinyin volcabulary
# acrobatics zájì
# acting yanchu
# advance jìn
# after ránhòu
# after yihòu
# afternoon xiàwu
# again zài
# all dou
# also ye
# although sui
# always zongshì
# among mínjian
# and hé
# appearance xiàng
# appearance xiàng
# approximately dàyue
# army yíng
# as rú
# ask ràng
# ask wèn
# aspect guo
# assist bang
# assistance bangzhù
# automatic zìdòng
# autumn qiutian
# axle zhóu
# ballast_trackbed_ suìshí
# ban shàng
# ban yì
# bank yínháng
# banker_fire buji
# basketball lánqiú
# be shì
# be_able huì
# beat da
# because yinwèi
# beef niúròu
# before qián
# begin kaishi
# between jian
# bill dan
# bill fapiào
# birthday shengrì
# blow gua
# blow gua
# bó Shànghai
# board ban
# bogie zhuanxiàngjià
# book shu
# book shu
# both liang
# both liang
# box xiang
# boxcar péngche
# brake zhá
# branch_line zhixiàn
# bridge qiáo
# bridge qiáo
# bridge qiáo
# bright cai
# bright cai
# brilliant jingcai
# brother_younger dìdi
# brothers xiongdì
# bu duì
# bù pao
# builder_plate míngpái
# bus gonggòngqìche
# business míngpiàn
# business shengyì
# business yè
# business_card míngpiàn
# busy máng
# but dànshì
# but keshì
# buy mai
# caboose shouche
# call jiào
# can hòu
# can ke
# can néng
# capacity dù
# carriage kèche
# carriage kèche
# cash duì
# category shu
# catenary jiàkongshì_jiechùwang
# certainly bì
# chinese chén
# chinese hànyu
# chinese hànzì
# class xiàkè
# classics jing
# clear qing
# clear qingchu
# climate qìhòu
# clip jia
# clock zhong
# close jìnnear
# coal méi_tàn
# coalmine méikuàng
# cold leng
# college dàgài
# colour_light_signal sèdeng_xìnhàoji
# come lái
# commerce shang
# company gongsi
# compare bijiào
# competition bisài
# complete zhou
# continue jìxù
# convenient fangbiàn
# conveniently shùnbiàn
# convert duìhuàn
# cordial rèqíng
# correct búcuò
# correct rán
# country guó
# craft shouyì
# cross_tie guizhen
# curve quxiàn
# cutting lùqiàn
# dance wu
# dance wudao
# daughter nuér
# day tian
# deep shen
# deliver jiao
# depot jiwùduàn
# device zhuangzhì
# dialect yu
# dictionary cídian
# diesel cháiyóu
# diesel_electric_locomotiv diànchuándòng_nèirán_jiche
# diesel_hydraulic_locomoti yèlìchuándòng_nèirán_jiche
# diesel_locomotive nèirán_jiche
# different chà
# difficult nán
# difficult nán
# dining_car canche
# direct zhíjie
# dish cài
# display bai
# distinct chu
# divide fen
# do duànliàn
# do yíngyè
# do zuò
# domestic guónèi
# double_track fùxiàn
# dragon lóng
# draw chou
# drink he
# driver siji
# dumplings jiaozi
# dynasty yuán
# early xian
# early xian
# east dong
# east
# eat bao
# eat chi
# elder gege
# elder jiejie
# electric_locomotive diànlì_jiche
# electricity diàn
# electrification diànqìhuà
# embankment lùdi
# empty kong
# end mò
# energy jing
# English yingyu
# enter jìnadvance
# especially tèbié
# etween jian
# even entirely
# evening bàngwan
# every mei
# every meitian
# everyday jingcháng
# express_train gaosù
# express_train kuàisù
# express_train tèkuài
# express_train kuàiche
# extremely jí
# eye mù
# family jia
# far yuan
# fast kuài
# father bàba
# father fùmu
# festival jié
# fill man
# Finland Fenlán
# fire huo
# first xiàn
# fish yú
# fishplate yúweiban
# flat píng
# fluent liúlì
# football zúqiú
# for gei
# for gei
# forecast yùbào
# foreign wàiyu
# fowl ji
# frame jià
# freight_car huòche
# freight_train huòche
# French fayu
# friend péngyou
# from cóng
# from zì
# fruit guo
# fruit shuiguo
# fuel cháiyóu
# gas qì
# gauge biao
# generous dàfang
# German déyu
# Germany déguó
# get jiéhun
# gether yìqi
# give qingkè
# glut chán
# go chu
# go chuqù
# go dào
# go shàngban
# go wang
# gondola changche
# gong bàn
# gong gù
# good hao
# goodbye zàijiàn
# goods_train huòche
# goods_van péngche
# gradient podù
# graduation bìyè
# guai kidnap
# guan can
# guàn xí
# guards_van shouche
# guest kèrén
# habit xíguàn
# half bàn
# ham huotui
# happy gaoxìng
# happy kuàilè
# happy lè
# hard_sleeper yìngwò
# have you
# heat rè
# heat rè
# heater nuanqì
# helper buji
# high gao
# hill shan
# hog zhu
# hot là
# hot rè
# house lóu
# how duodà
# how ji
# how zenmeshuo
# how_old duodà
# however dànshì
# hundred bai
# I wo
# ice bingqiú
# if rúguo
# if yàoshì
# import jìnchukou
# impression yìnxiàng
# inn diàn
# joyous huan
# kick ti
# kidnap guai
# kind zhong
# know liao
# language wén
# last shànggeyuè
# leave lí
# leave líkai
# leave liú
# length cháng
# letter xìn
# level_crossing dàokou
# library túshuguan
# light_rail qinggui
# like xihuan
# listen ting
# loco_shed jiwùduàn
# locomotive huochetóu
# long jiu
# look canguan
# look see
# lose yí
# lóu Zhong
# lower di
# lunch wufàn
# machine ji
# machine ji
# máfan trouble
# main_line ganxiàn
# make dadiànhuà
# manager jingli
# map dìtú
# marshalling_yard bianzuchang
# may keyi
# may qingwèn
# measure mi
# meat ròu
# mechanism qì
# mechanism jigòu
# medical yi
# metering_device biao
# middle zhong
# might kenéng
# minute fenzhong
# mister xiansheng
# mixed zá
# mixed_train kèhuòhùnhé_lièche
# money bì
# month yuè
# more yuèláiyuè
# morrow míngtian
# mother mama
# mother ma
# mountain shan
# move gandòng
# movement yùndòng
# Mr. xiansheng
# Mrs. tàitai
# multiple_track fùxiàn
# multiple_unit_train dòngchezu
# my wode
# name_personal míngzi
# narrow_gauge_railway xiaohuoche
# narrow_gauge_railway zhaigui_tielù
# near jìn
# necessary bìyào
# negative méi
# next míngnián
# nice liángkuai
# no búguò
# no nali
# Nokia Nuòjíyà
# noon zhongwu
# north bei
# not bù
# not bùshao
# now xiànzài
# number hào
# observe obey
# office bàngongshì
# often cháng
# oil yóu
# one yi
# one's xìng
# only shiyou
# only zhi
# open_wagon changche
# opportunity jihuì
# ordinary píngcháng
# ordinary_passenger_train putongche
# ordinary_stopping_train putongche
# ought gai
# outside wài
# overhead_wires jiàkongshì_jiechùwang
# overpraise guòjiang
# ox niú
# pair duì
# panfry chaosaute
# pang ping
# pantograph shòudiàngong
# pass chuán
# passenger lukè
# passenger_train kèche
# people mín
# person rén
# physical tiyù
# pipe guan
# plan dasuàn
# plate ban
# platform zhàntái
# play wán
# please qing
# please qingbiàn
# plural men
# points dàochà
# porch láng
# pork zhuròu
# present jièshào
# profound shenkè
# program jiémù
# pronunciation fayin
# quarterhour kè
# question ne
# rail ganggui
# railroad tielù
# railway tiedào
# railway_track guidào
# rain xiàyu
# rank deng
# read niàn
# real zhen
# really shízài
# receipt fapiào
# receive shou
# receive zhaodài
# regard suàn
# regard suàn
# regiment tuán
# regret hàn
# regret yíhàn
# release fàng
# release fàng
# rén kè
# rest xiuxi
# return huí
# return zhao
# ride qí
# right yòubian
# road_formation dàochuáng
# roadbed lùji
# roadbed dàochuáng
# roughly dàgài
# roughly dàgài
# route lù
# run paobù
# safety anquán
# salad sèla
# same yìban
# saute chao
# school xuéxiào
# seat zuòwei
# seat_hard yìngzuò
# seat_soft ruanzuò
# section kuan
# see jiàn
# self zìji
# sell mài
# semaphore_signal bìban_xìnhàoji
# send fa
# should gai
# shrimp xia
# shutter chuang
# si gong
# Sichuan Sìchuan
# side cè
# signal xìnhào_ji
# silk sichóu
# single_track danxiàn
# sister_younger mèimei
# sisters jiemèi
# sit zuò
# skill jì
# sleeper tie_guizhen
# sleeping_berth wòpù
# slow màn
# smoke chouyan
# smoke yan
# snow xiàxue
# soft_sleeper ruanwò
# son érzi
# sorry_I_am duìbuqi
# south nán
# spare kòngr
# speak shuo
# spicey là
# spoken kouyu
# spring chuntian
# stamp yìn
# standard biaozhun
# standard_gauge biaozhun_guijù
# start chufa
# station zhàn
# station zhàntái
# station huoche_zhàn
# stay dai
# steam zhengqì
# steam_locomotive zhengqì_jiche
# straight zhí
# streetcar yougui_diànche
# structual de
# student xuésheng
# study xué
# suàn da
# suburban_train shìjiao_lièche
# subway dìtie
# summer xiàtian
# sunny qíngtian
# Sweden Ruìdian
# swim yóuyong
# switch dàochà
# table zhuozi
# take qu
# talk tán
# talk tán
# tank_car guànche
# tanker guànche
# taste cháng
# tasty haochi
# tasty haochi
# tea chá
# teach jiao
# teacher laoshi
# temple tiantán
# tennis wangqiú
# terms search
# thank_you xièxie
# that nà
# the zuì
# there have
# this jinnián
# this zhè
# through_train zhídá
# through_train zhítong_che
# ticket chepiào
# time shíhou
# timetable shíkèbiao
# train huoche
# train huoche
# train lièche
# tram yougui_diànche
# tread dao
# trip luyóu
# trolley_bus wúgui_diànche
# truck_rail changche
# tunnel suìdào
# turntable zhuanpán
# unable bùliao
# underground_railway dìtie
# understand dong
# understand dong
# unit kuàiyuan
# university dàxué
# useful youyòng
# vacation jià
# valve fá
# vegetables shucài
# vehicle che
# very hen
# volleyball páiqiú
# wagon_car huòche
# walk yóu
# walk zou
# want yào
# warm nuan
# water shui
# water shui
# water_crane shuihè
# water_tower shuita
# we women
# we zánmen
# weather tianqì
# week xingqi
# weekend zhoumò
# welcome huanyíng
# welcome yíng
# west xi
# west xi
# Western-style xican
# what shénme
# what shénmeshíhou
# what's guìxìng
# wheel lún
# where nali
# which na
# whistle míng
# why wèishénme
# wind feng
# window chuangkou
# wine jiu
# wish zhù
# with gen
# word huà
# work gongzuò
# worksplate míngpái
# write xie
# year nián
# yesterday zuótian
# you_formal nín
# zero líng
# zhuangzhì
# above shang
# arrive daoda
# author zuiozhe
# bank yinhang
# bathtub lahncheo
# battery dianchi
# bay haiwan
# cat mao
# cloud yun
# come lai
# girl nuer
# he ta
# horse ma
# it ta
# one yi
# rain yu
# smoke yan
# two lian
# water shui
# aches tong
# add jia
# admiral haijunshang
# air kongqi
# airplane feiji
# airport feijichang
# alley hutong
# apart lu
# apple pingguo
# apricot xing
# arm gebo
# armchair fushiuyi
# arrow jian
# ask wen
# asparagus lusun
# atlas dituji
# attic gelou
# autumn qiu
# axe futou
# axle lunzhou
# baby yinger
# bag bao
# ball qiu
# ballet baleiwu
# barge bochuan
# barley damai
# barracks yingfang
# beach haitan
# bead jhuzi
# beak hui
# bean dou
# bear xlong
# beard huzi
# beautiful meili
# bed chuang
# beehive fengxiang
# beer pijiu
# bell leeng
# big da
# bike zixingche
# bird naio
# biscuit binggan
# black hei
# blanket tanzi
# blonde jinse
# blood xue
# bloom hua
# blossom hua
# blue lan
# boat zhou
# bone gu
# book shu
# bottle pingzi
# bow gong
# branch shuzhi
# bright ming
# broad kuan
# brown zongse
# by yu
# bygone yu
# carriage che
# cup bei
# cut duan
# dance tiaowu
# dark hei
# deer lu
# door men
# dream meng
# dry gan
# duck ya
# eve wan
# fall liu
# field yuan
# fire huo
# first xian
# flat ping
# frost shuang
# gate men
# goose yan
# grass cao
# green luse
# guang shine
# hard ying
# head tou
# hear ting
# heart xin
# high gao
# hill shan
# in zai
# lamp deng
# long chang
# look kan
# moon yue
# night ye
# not bu
# open kai
# path xiaodao
# pear li
# pearl zhenzhu
# pine song
# red hong
# rice mi
# river jiang
# rock shi
# root gen
# sand sha
# sea hai
# see kan
# she ta
# shore an
# sit zuo
# sky tian
# small xiao
# snow xue
# song ge
# sound sheng
# star xing
# stove lu
# sun ri
# tear lei
# The *
# the *
# to ge
# tomarrow mingtian
# town zhen
# wants yao
# wasp huangfeng
# watch kan
# white bai
# wide kuan
# wild yesheng
# wind feng
# year nian
# yellow huang
# cave shandong
# cedar song
# dawn liming
# jumps tiao
# leaps tiao
# lone dandu
# moth kunchong
# rose meigui
# soak shui
# tree shu
# walk zou
# wave bolang
# ant kunchong
# at zai
# bark shu
# before zai
# breeze xiaofeng
# burns huo
# carp yu
# cheer guoxing
# cherry yingtao
# cool liang
# crane niao
# crest xia
# cricket kunchong
# cry ti
# deep shen
# deer lu
# dove naio
# drift zhou
# drifts zhou
# dusk heitian
# elm shu
# falls liu
# far yuan
# fence liba
# flips zhou
# float piao
# flow liu
# flower hua
# fly fiji
# flys fiji
# for wei
# fore zai
# ghost ti
# glad gaoxing
# gray cangbai
# grief nanguo
# grows sheng
# hare tuzhu
# has you
# hear ting
# hears ting
# ice xue
# ink moshui
# insect kunchong
# is zhi
# jade yu
# kelp haizhiwu
# know zhu
# lake he
# leaf shu
# leaves shu
# lies zhi
# lost milu
# loves ai
# lush duo
# mist wu
# month yue
# morn zaochen
# morning zaochen
# mosquito wenzi
# moss lu
# moss lu
# mount shan
# mouse laoshu
# move zhou
# move zhou
# nest chang
# oak shu
# pale cangbai
# pea xiaodou
# peace heping
# peach tao
# perch yu
# plant zhiwu
# plum lizi
# pond chitang
# pool chitang
# poor qiong
# quince yingtao
# rabbit tuzhu
# reed cao
# river he
# road li
# roost chang
# rough buping
# sad nanguo
# sail fan
# salt yan
# serpent she
# shade si
# shine zhaoyao
# shoe xie
# silk si
# sits zuo
# sleep shuimian
# sleeps shuimian
# slope shan
# smile xiao
# snail wongnui
# snake she
# soil du
# stone shi
# storm fengbao
# strean he
# takes you
# tea chai
# thick hou
# thin shou
# through zai
# towards zai
# waits zho
# waits zhou
# weed zhiwu
# worm wongnu
# zero ling
# 0 ling
# 1 yi
# one yi
# 2 er
# 3 san
# three san
# 4 si
# four si
# 5 wu
# five wu
# 6 liu
# six liu
# 7 ci
# seven ci
# 8 ba
# eight ba
# 9 jiu
# nine jiu
# 10 shi
# ten shi
# 11 shi_yi
# eleven shi_yi
# twelve shi_er
# 20 er_shi
# twenty er_shi
# 21 er_shi_yi
# twenty_two er_shi_yi
# 100 bai_bye_yi_bai
# hundred bai_bye_yi_bai
# 300 san_bai
# three_hundred san_bai
# 1000 cian
# thousand cian
# 10000 yi_wan
# ten_thousand yi_wan
# 100000 shi_wan
# hundred_thousand shi_wan
# 1000000 yi_bai_wan
# thousand_thousand yi_bai_wan
# above shang
# aches tong
# add jia
# admiral haijunshang
# air kongqi
# airplane feiji
# airport feijichang
# alley hutong
# ant kunchong
# apart lu
# apple pingguo
# apricot xing
# arm gebo
# armchair fushiuyi
# arrive daoda
# arrow jian
# ask wen
# asparagus lusun
# at zai
# atlas dituji
# attic gelou
# author zuiozhe
# autumn qiu
# axe futou
# axle lunzhou
# baby yinger
# bag bao
# ball qiu
# ballet baleiwu
# bank yinhang
# barge bochuan
# bark shu
# barley damai
# barracks yingfang
# bathtub lahncheo
# battery dianchi
# bay haiwan
# beach haitan
# bead jhuzi
# beak hui
# bean dou
# bear xlong
# beard huzi
# beautiful meili
# bed chuang
# beehive fengxiang
# beer pijiu
# before zai
# bell leeng
# big da
# bike zixingche
# bird naio
# biscuit binggan
# black hei
# blanket tanzi
# blonde jinse
# blood xue
# bloom hua
# blossom hua
# blue lan
# boat zhou
# bone gu
# book shu
# bottle pingzi
# bow gong
# branch shuzhi
# breeze xiaofeng
# bright ming
# broad kuan
# brown zongse
# burns huo
# by yu
# bygone yu
# carp yu
# carriage che
# cat mao
# cave shandong
# cedar song
# cheer guoxing
# cherry yingtao
# cloud yun
# come lai
# cool liang
# crane niao
# crest xia
# cricket kunchong
# cry ti
# cup bei
# cut duan
# dance tiaowu
# dark hei
# dawn liming
# deep shen
# deer lu
# deer lu
# door men
# dove naio
# dream meng
# drift zhou
# drifts zhou
# dry gan
# duck ya
# dusk heitian
# elm shu
# eve wan
# fall liu
# falls liu
# far yuan
# fence liba
# field yuan
# fire huo
# first xian
# flat ping
# flips zhou
# float piao
# flow liu
# flower hua
# fly fiji
# flys fiji
# for wei
# fore zai
# frost shuang
# gate men
# ghost ti
# girl nuer
# glad gaoxing
# goose yan
# grass cao
# gray cangbai
# green luse
# grief nanguo
# grows sheng
# guang shine
# hard ying
# hare tuzhu
# has you
# he ta
# head tou
# hear ting
# hear ting
# hears ting
# heart xin
# high gao
# hill shan
# horse ma
# ice xue
# in zai
# ink moshui
# insect kunchong
# is zhi
# it ta
# jade yu
# jumps tiao
# kelp haizhiwu
# know zhu
# lake he
# lamp deng
# leaf shu
# leaps tiao
# leaves shu
# lies zhi
# lone dandu
# long chang
# look kan
# lost milu
# loves ai
# lush duo
# mist wu
# month yue
# moon yue
# morn zaochen
# morning zaochen
# mosquito wenzi
# moss lu
# moss lu
# moth kunchong
# mount shan
# mouse laoshu
# move zhou
# move zhou
# nest chang
# night ye
# not bu
# oak shu
# one yi
# open kai
# pale cangbai
# path xiaodao
# pea xiaodou
# peace heping
# peach tao
# pear li
# pearl zhenzhu
# perch yu
# pine song
# plant zhiwu
# plum lizi
# pond chitang
# pool chitang
# poor qiong
# quince yingtao
# rabbit tuzhu
# rain yu
# red hong
# reed cao
# rice mi
# river jiang
# river he
# road li
# rock shi
# roost chang
# root gen
# rose meigui
# rough buping
# sad nanguo
# sail fan
# salt yan
# sand sha
# sea hai
# see kan
# serpent she
# shade si
# she ta
# shine zhaoyao
# shoe xie
# shore an
# silk si
# sit zuo
# sits zuo
# sky tian
# sleep shuimian
# sleeps shuimian
# slope shan
# small xiao
# smile xiao
# smoke yan
# snail wongnui
# snake she
# snow xue
# soak shui
# soil du
# song ge
# sound sheng
# star xing
# stone shi
# storm fengbao
# stove lu
# strean he
# sun ri
# takes you
# tea chai
# tear lei
# The *
# the *
# thick hou
# thin shou
# through zai
# to ge
# tomarrow mingtian
# towards zai
# town zhen
# tree shu
# two lian
# waits zho
# waits zhou
# walk zou
# wants yao
# wasp huangfeng
# watch kan
# water shui
# wave bolang
# weed zhiwu
# white bai
# wide kuan
# wild yesheng
# wind feng
# worm wongnu
# year nian
# yellow huang
# optional japanese romanji words
array set en_romanji {
red aka
sad kanashii
blue aoi_ao
glad glad
deep deep
black kuroi
wild yasee
green midori-iro
pale usui
bright akarui_taiyoo
rough rough
gray guree
brown chairo
long long
high takai
thin thin
lush subishii
dry kawaite_iru
poor bimboo
lone subishii
far far
flat flat
broad broad
thick thick
hard hard
cool cool
cat cat
mouse mouse
reed reed
pear pear
quince quince
peach peach
hare hare
bird bird
smoke smoke
rain rain
ice ice
snow snow
cloud cloud
home home
flower flower
sky sky
rice rice
pine pine
mist mist
door door
wind wind
cricket cricket
year year
moon moon
crane crane
grass grass
rose rose
ink ink
thaw thaw
bloom bloom
lake lake
cedar cedar
dusk dusk
autumn autumn
stone stone
dawn dawn
stream stream
tree tree
heart heart
boat boat
grief grief
rock rock
town town
tear tear
pool pool
silk silk
deer deer
song song
barge barge
moss moss
night night
gate gate
fence fence
dove dove
dream dream
frost frost
peace peace
shade shade
ghost ghost
road road
path path
root root
horse horse
eve eve
sound sound
sleep sleep
leaves leaves
sea sea
sail sail
peak peak
stem stem
field field
wave wave
slope slope
bark bark
crest crest
weed weed
moth moth
wasp wasp
pond pond
soil soil
snail snail
worm worm
ant ant
kelp kelp
cave cave
month month
head head
jade jade
branch branch
bone bone
smile smile
pea pea
elm elm
morn morn
carp carp
nest nest
oak oak
perch perch
breeze breeze
mount mount
plum plum
storm storm
hill hill
falls falls
burns burns
flips flips
flys flys
lies lies
walk walk
flow flow
fall fall
fly fly
know know
come come
meet meet
drift drift
shine shine
soak soak
cry cry
dance dance
lost lost
cheer cheer
float float
roost roost
move move
fade fade
loves loves
sleeps sleeps
takes takes
sits sits
leaps leaps
sit sit
grows grows
waits waits
loses loses
hears hears
wants wants
watch watch
old old
for for
by by
towards towards
to to
at at
bygone bygone
in in
acorn donguri
add tasu
afraid kowai
africa afurika
agate menou
ain_t jyanai
airplane hikooki
alley roji
alligator arigeta
alligator wani
alphabet arufabetto
also mo
always itsumo
ambulance kyukyusha
anchor ikari
angel tenshi
angelfish enzerufisshu
angle kakudo
angry_mad ikatte_iru
angry_mad okotte_iru
animal doubutsu
ankle ashikubi
ant ari
antartica nankyoku_tairiku
antelope kamoshika
ape saru
apple ringo
apron epuron
aquarium suiso
arch aachi
archer syasyu
are_you _ok
arithmetic_problem sansu_no_mondai
arm ude
armchair hijikake_isu
arrow ya
art e
artichoke aatichooku
artist gaka
asia ajia
asleep nemuru
assasin hitokiri
asteroid showakusei
astronaut uchuu_hikushi
at ni
athlete supotsuman
atom genshi
attention kiyo_tsuke
australia osutoraria
autumn_fall aki
avacado abocado
awesome saiko
ax ono
baby akanbo
baddie mazui
bag fukuro
ball buru
ballerina bareriina
balloon gomu_fuusen
bamboo_shoots takenoko
bamboo_sword shinai
banana banana
barley mugi
barn naya
barrel taru
baseball yakyu_boru
baseball_bat batto
baseball_cap boushi
basket basuketto
basket zaru
bat_animal kumori
bathing_swimming_s mizugi
bathroom mitarai
bathroom otearai
bathtub yubune
beach hama
beach kaigan
beak kuchibushi
bear kuma
beautiful kirei
beautiful utsukushii
beaver biiba
bed beddo
bee hachi
bee_hive mitsubachi_no_su
beehive hachi_no_su
beetle kabutomushi
begin_start hajime
bell kane
bellflower kikyo
bicycle jitensha
bird tori
black kuro_kuroi
blackbird burakku_berii
blocks tsumiki
bloomers bulma
blouse burausu
boat buto
boat fune
body karada
bon_appetite itadakimasu
bone hone
book hon
bookcase honbako
boots butsu
bottle bin
bouquet hanataba
bow chomusubi
bowl boru
box hako
boy shonen
boy bozu
bracelet buresuretto
brain nu
brat gaki
bread pan
breakfast choshoku
breast oppai
bright ake
broccoli burokkorii
broom hoki
brown chairo
bucket baketsu
buckwhe soba
buffalo buffaru
bug mushi
building tatemono
bull ushi
bulldozer buruduzaa
bun ban
burdockroot gobo
burn moeru
bus basu
but demo
butter bataa
butterfly cho
button botan
bye_parting_greeti ja_ne_ja
cab takushii
cabbage kyabetsu
cactus saboten
cake keeki
calender karenda
camel rakuda
camera kamera
camp kyampu_suru
camper kyanpingu_ka
can kanzume
canary kanaria
candle rusoku
candy kyande
cane tsue
canoe kanue
canyon kureyon
car jidusha
car kuruma
carnation kaaniishon
carpet kaapeto
carrot ninjin
cart niguruma
castle shiro
cat neko
caterpiller kemushi
cave hora_ana
cave drawings
celary serori
cell_anatomy saibu
chain kusari
chair isu
cheap chinke
cheek_anatomy hoho
cheese chiizu
cherry sakurambo
cherry_blossom flower
chest mune
chick hiyoko
chicken niwatori
child kodomo
chimpanzee chimpanjii
chin ago
chopstick hashi
church kyokai
circle maru
circus sakasu
city toshi
clam hamaguri
claw tsume
clay nendo
clock tokei
clothes fuku
cloud kumo
clown piero
coat uwagi
cobweb kumo
coffin hitsugi
coin koka
color iro
comb kushi
comet suisei
compass konpasu
computer konpyuta
cone ensuikei
cookie kukkii
cool kakoii
cool suge
coral sango
corn tomorokoshi
corner katsumi
cotton_candy watagashi
couch sofa
cow meushi
crab kani
crane tsuru
crap kuso
crater kureta
crazy_insane reijuu
crocodile waniacorn donguri
add tasu
afraid kowai
africa afurika
agate menou
ain_t jyanai
airplane hikooki
alley roji
alligator arigeta
alphabet arufabetto
also mo
always itsumo
ambulance kyukyusha
anchor ikari
angel tenshi
angelfish enzerufisshu
angle kakudo
angry_mad ikatte_iru
angry_mad okotte_iru
animal doubutsu
ankle ashikubi
ant ari
antartica nankyoku_tairiku
antelope kamoshika
ape saru
apple ringo
apron epuron
aquarium suiso
arch aachi
archer syasyu
are_you _ok
arithmetic_problem sansu_no_mondai
arm ude
armchair hijikake_isu
arrow ya
art e
artichoke aatichooku
artist gaka
asia ajia
asleep nemuru
assasin hitokiri
asteroid showakusei
astronaut uchuu_hikushi
at ni
athlete supotsuman
atom genshi
attention kiyo_tsuke
australia osutoraria
autumn_fall aki
avacado abocado
awesome saiko
ax ono
baby akanbo
baddie mazui
bag fukuro
ball buru
ballerina bareriina
balloon gomu_fuusen
bamboo_shoots takenoko
bamboo_sword shinai
banana banana
barley mugi
barn naya
barrel taru
baseball yakyu_boru
baseball_bat batto
baseball_cap boushi
basket basuketto
basket zaru
bat_animal kumori
bathing_swimming_s mizugi
bathroom mitarai
bathroom otearai
bathtub yubune
beach hama
beach kaigan
beak kuchibushi
bear kuma
beautiful kirei
beautiful utsukushii
beaver biiba
bed beddo
bee hachi
bee_hive mitsubachi_no_su
beehive hachi_no_su
beetle kabutomushi
begin_start hajime
bell kane
bellflower kikyo
bicycle jitensha
bird tori
black kuro_kuroi
blackbird burakku_berii
blocks tsumiki
bloomers bulma
blouse burausu
boat buto
boat fune
body karada
bon_appetite itadakimasu
bone hone
book hon
bookcase honbako
boots butsu
bottle bin
bouquet hanataba
bow chomusubi
bowl boru
box hako
boy shonen
boy bozu
bracelet buresuretto
brain nu
brat gaki
bread pan
breakfast choshoku
breast oppai
bright ake
broccoli burokkorii
broom hoki
brown chairo
bucket baketsu
buckwhe soba
buffalo buffaru
bug mushi
building tatemono
bull ushi
bulldozer buruduzaa
bun ban
burdockroot gobo
burn moeru
bus basu
but demo
butter bataa
butterfly cho
button botan
bye_parting_greeti ja_ne_ja
cab takushii
cabbage kyabetsu
cactus saboten
cake keeki
calender karenda
camel rakuda
camera kamera
camp kyampu_suru
camper kyanpingu_ka
can kanzume
canary kanaria
candle rusoku
candy kyande
cane tsue
canoe kanue
canyon kureyon
car jidusha
car kuruma
carnation kaaniishon
carpet kaapeto
carrot ninjin
cart niguruma
castle shiro
cat neko
caterpiller kemushi
cave hora_ana
cave drawings
celary serori
cell_anatomy saibu
chain kusari
chair isu
cheap chinke
cheek_anatomy hoho
cheese chiizu
cherry sakurambo
cherry_blossom flower
chest mune
chick hiyoko
chicken niwatori
child kodomo
chimpanzee chimpanjii
chin ago
chopstick hashi
church kyokai
circle maru
circus sakasu
city toshi
clam hamaguri
claw tsume
clay nendo
clock tokei
clothes fuku
cloud kumo
clown piero
coat uwagi
cobweb kumo
coffin hitsugi
coin koka
color iro
comb kushi
comet suisei
compass konpasu
computer konpyuta
cone ensuikei
cookie kukkii
cool kakoii
cool suge
coral sango
corn tomorokoshi
corner katsumi
cotton_candy watagashi
couch sofa
cow meushi
crab kani
crane tsuru
crap kuso
crater kureta
crazy_insane reijuu
crop_land sakumotsu
crow karasu
crown ookan
cry naku
crystal suishu
cube ripputai
cuckoo kakkoo
cucumber kyuuri
cucumber_and_rice kappa_maki
cup kappu
cupboard shokkidana
curtain_drape katen
cute kawaii
cylinder enchu
daisy hinagiku
dance odoru
dancer odorite
danger kiken
dangerous abunai
dark sky
day nichi
deep fukai
deer shika
demon mazoku
desert sabaku
desk tsukue
dessert dezaato
devil akuma
devil oni
diamond daiyamondo
dice saikoro
die shin
dinner yushoku
dinosaur kyoryu
dirt tsuchi
dish sara
doctor isha
does_have nai
dog aiken
dog aikenka
dog inu
doll ningyo
dollhouse ningyo_no_ie
dolphin dorufin
dolphin iruka
donkey roba
door doa
dough kiji
dove hato
down shita
dozen daasu
dragon ryu
dragonfly tombo
draw kaku
dream yume
drill_tool doriru
drum doramu
duck ahiru
duckling ahiru_no_go
dude toko
dump_truck dampu_kaa
eagle washi
ear mimi
earmuffs mimiate
earring iyaringu
earth chikyuu
easel iizeru
eclipse nisshoku
eel unagi
egg tamago
eggplant nasu
elbow hiji
elegant kotan
elephant zo
elevator erebeta
elk shoyosei
elk ujika
elm nire
emotion_feeling kanji
energetic genki
energy _power
envelope fuutu
equal byudu
equalivent onaji
equator sekidu
eraser keshigomu
europe yoroppa
everyday mainichi
everything subete
evil_fortune akkun
exclamation_mark kantanfu
exercise undu_suru
express tsutawaru
eye hitomi
eye me
eyebrow mayu
face kao
family kazoku
family_tree ikka_no_keizu
far away
farm nuju
feather hane
feeling kimochi
fence kakoi
fern shida
feudal_era sengoku_jidai
final saigo
finger yubi
fingernail yubi_no_tsume
fire hi
fire_hydrant shokasen
firefighter shoboshi
firetruck shobosha
fireworks hanabi
fish sakana
fishbowl suizokukan
fishing tsuri
flag hata
flame hono
flame recca
flamingo furamingo
flashlight kaichuu
flipper ashihire
flour komugiko
flour kona
flower hana
flower flower
flower_stalk miki
flowerbed kaden
flute furuto
fly tobu
fly_insect hae
food shokumotsu
fool aho
foot_feet ashi
football amerikan_futtoboru
footprint ashiato
footstool sutsuru
forehead hitai
forest mori
fossil kaeseki
four yon
fox kitsune
friend tomodachi
frog kaeru
fruit furuutsu
fruit kudamono
fruit_juice furuutsu_jusu
full_demon youkai
funnel ruto
furniture kagu
future mirai
galaxy gingakei
game gemmu
garbage gomi
gate geto
gem huseki
geography chiri
gerbil jaabiru
ghost obake
gift okurimono
gill era
giraffe kirin
girl shojo
glass_cutlery gurasu
glass_cutlery koppu
glasses_optical megane
globe chikyugi
glove tebukuro
go_away ache_kaere
goat yagi
goldfish kingyo
good_evening konbanwa
good_fortune un
good_morning ohayo_u_gozaimasu_gozaimash
goodbye sayonara
goose_geese gacho
gorilla gorira
grandfather_inform jijii
grape budo
grapefruit gurepufurutsu
grass kusa
grasshopper kirigirisu
grasshopper batta
gray haiiro
green midori
green_tea ocha
greenhouse gurin_hausu
guest kyaku
guitar gita
haiku haiku
hair kaminoke
hairbrush burashi
half hanyo
ham hamu
hamburger hanbaga
hammer kanazuchi
hamster hamusutaa
hand te
handsome bishounen
hanger hangaa
happy shiawase
happy ureshii
harbor wave
harp haapu
hat bushi
hate kirai
hay hoshikusa
haze moyatta
head atama
hear kikoeru
heart_emotional kokoro
heart_organ shinzou
hedgehog harinezumi
heel kakato
hell naraku
hello moshi_moshi
helmet herumetto
hemisphere hankyuu
hen mendori
hexagon shichikaki
hey ne
hi_hello konnichiwa
hill oka
hip koshi
hippotomous kaba
hire fin
holly_plant hiragi
home xx
horn kiteki
horse uma
horseshoe titetsu
hot_spring onsen
hot_tub furo
hour ji
how do
how ikaga
how_are_you hajimemashite
how_are_you o_genki)desu_ka
how_many ikutsu
how_much ikura
human ningen
hummingbird hachidori
hungry onaka_ga_suiteiru
hurricane harikiin
hut koya
i_ll_kill_you omae_o_korosu
i_me_feminine watashi
i_me_masculine ore
i_me_masculine boku
i_me_you_feminine anata
iamfeminine watashi_wa
ice kori
ice_cream aisu_kuriimu
ice_skate suketo_gutsu
iceberg kyozan
icicle tsurara
idiot baka
if to
iloveyou daisuki
iloveyou_formal aishiteru
iloveyou_informal boku_ai
ink inku
insect konchuu
international kokusai
iris_flower ayame
iron airon
island shima
ivy tsuta
japanese_type kotatsu
jerk bakayaro
jewel tama
leaf yoh
letter tegami
light yukata
light denkyuu
light hikari
like konomi
little_wolf syaoran
lonely sabashii
lord tono
lotus root
magic moho
man otoko
martial_arts_train dojo
mat_mattress futon
midnight mayonaka
military_ruler shogun
minute fun
miracle kiseki
mist kasumi
monk houshi
monster kaijuu
moon usa
moonlight gekko
morning asa
mountain yama
my wa
mysterious fushigi
oops totto_totto
passionate_love ai
robe kimono
rock_garden kare_san_sui
romantic_love koi
sexual_love seiai
sorry sumimasen
watashi atashi
}
# optional help notes
set text_texas {
# Refrigerator magnet poetry
# Refrigerator magnet poetry
# program is mainly TCL8.0 and
# Windows Expect5.2 offshoot of
# Suchenwirth's Domino.tcl, circa 2004.
# Tried to note which Suchenwirth subroutines
# were mostly unchanged.
# This was the first TCL canvas code I
# saw that one could create easy gamepieces.
# Writing grouped designs
# on top of canvas shape, so basic canvas
# shape and "grouped" design would move
# by mouse. "grouped" design is used
# extensively in Microsoft powerpoint
# and Harvard Graphics, etc.
# This first effort is refrigerator
# magnet poetry in English.
# Believe a similar select & die could
# be used for a computer Mahjong game
# or coin&card games.
# Could use TCL8.4 chinese charactors
# on top of tiles for Chinese magnetic
# poetry or colored Mahjong tiles.
# Various Esc and F-keys activate
# to exit program or change background color.
# Sliding right mouse across piece
# should delete same.
# Pick and Sliding left mouse across piece
# should move same.
# Selecting piece with middle mouse
# should delete same piece.
# Selecting pair of [same text] pieces
# [in sequence] with right mouse
# should delete same piece.
# Right mouse uses initialization from
# left mouse, so one has to pick
# one tile with left mouse for
# game start.
# 5/7/5 words per line is
# setting for Japanese Haiku poetry.
# Other procedures working
# on windows98 and old PC.
# from goldshell7 on 10jun2006.}
Refrigerator_Magnetic_Poetry冷却装置磁気詩歌を開発するのにこのページは窓のためにTCL8/Expect 5.2 を使用する。例えば、私達はテキストと捺印される任意色および任意に適用される記号のタイルを広げて置いている。またこれらのサブルーチンのいくつかを使用してMahjong 粗野なプログラムを開発することを望む。
テスト映像及びスクリーンの打撃
強さ
可能なサブルーチン使用whereever 。 この1 つ
[ Refrigerator_Magnetic_Poetry ]
# Refrigerator_Magnetic_Poetry # デッキ# Refrigerator_Magnetic_Poetry # デッキ# Refrigerator_Magnetic_Poetry # デッキ# Refrigerator_Magnetic_Poetry # デッキのパッケージの開始の開始の開始の開始はTk のproc のdown(reset) を{w x y} {調整$w 要求する} proc のmove(reset) の{w x y} {} proc のラジオ{w var の価値{col 0}} {フレーム$w の一定のタイプ[ expr {# か。"- 背景": "- $col {# 設定- selectcolor $value - borderwidth 3}} [ lindex $values 0 ] テキスト" の} ] foreach の価値$values {- radiobutton $w.v$value $type $value 可変的な$var - $value を\評価しなさい- indicatoron 0 eval パック[ winfo の子供# ] - 側面の左一定の::$var はw の} proc のdown(Draw) の{w x y} {::ID を[ # ライン$x $y $x $y を作成しなさい- $::fill を満たしなさい]} 置きなさいproc のmove(Draw) を{w x y} {concat $w のcoords $::id [ [ # coords $::id ] $x # ]} # - - 項目proc のdown(Move) の動き置いた{w x y} {::ID を[ # 発見のwithtag の流れ] 置く::X # 置きなさい; ::Y $y の} proc のmove(Move) の{w x y} {expr $w 移動$::id [ {#} ] [ expr を{#} ] 置きなさい::X # 置きなさい; ::Y $y の} proc のluniq {L} {# 入力リスト一定のtの{} foreach I 分類しないで複写を$L を取除く{{lsearch - [ 厳密$t #} {lappend t #} 置きなさい} 帰りの$t は}; # RS は# - - 既存の項目proc のserializeCanvasItem {c 項目} {データ[ concat を[ # タイプ# # coords # ] 置きなさいforeach のOPT をクローンとして作る# itemconfigure # {# デフォルトから逸脱する構成を含みなさい{lindex $opt の端は! = lindex $opt の終り1} {lindex $opt 0 ] lindex $opt の端 lappend データ}} 帰りの$data の} proc のdown(Clone) は{w x y} {流れを[ # 発見のwithtag の流れ 置きなさい{ひもの長さ# > 0} {itemData serializeCanvasItem $w を[ # 発見のwithtag の流れ置きなさい ]::ID をeval $w は# 作成する 置いた::X は# 置いた; ::Y $y の}} interp の別名で{} move(Clone) の{} move(Move) を# - - 置き長方形のproc のdown(Rect) を引く{w x y} {タイルexpr {int(rand()*1000000000 を。) 置きなさい} poof "長方形" を置きなさい; tagx リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y 置きなさい; ::ID の# rect $x $y $x $y を満たし$::fill を作成し札$tagx -} proc のmove(Rect) {w x y} {lreplace $w のcoords $::id [ # coords $::id 2 3 $x # ]} # - - 置き注意したら楕円形の(または円を、) proc のdown(Oval) を引く{w x y} {タイルexpr {int(rand()*1000000000 を。) 置きなさい} poof "楕円形" を置きなさい; tagx リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y 置きなさい; ::ID の# 楕円形の$x $y $x $y を満たす$::fill を作成しなさい札$tagx -} proc のmove(Oval) の{w x y} {lreplace $w のcoords $::id [ # coords $::id 2 3 $x # ]} proc のdown(circle) を置きなさい{w x y} {タイルexpr {int(rand()*1000000000 を。) 置きなさい} poof "楕円形" を置きなさい; tagx リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y 置きなさい; dx 50 セットのdy 50 セットの::ID の# 楕円形[ expr を{# 作成しなさい} expr {#} expr を{#} 置きなさいexpr {#} - # $tagx に付ける- # 盛り土$::fill の]} proc のmove(circle) の{w x y} {lreplace ## のcoords $::id [ # coords $::id 2 3 $x # ]} proc のdown(Poly) {w x y} {インフォメーションは::Poly ある{タイルexpr {int(rand()*1000000000 を。) 置きなさい} poof を"多" 置きなさい; tagx リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y 置きなさい; coords の# coords $::poly foreach {x0 y0} $coords の壊れ目を置きなさい{hypot($y-$y0 、$x-$x0)<10} {$w の削除$::poly $w は多lrange $coords 2 の端 - 盛り土$::fill 外した::Poly を} 作成する他に{concat $coords $w のcoords $::poly $x #}} 他に{::Poly を置きなさい# ライン$x $y $x $y を作成しなさい- 札の"obj_[expr {int(rand()*1000000000.)}" は- $::fill の]}} proc を満たしなさいか。L {expr lindex $L int(rand()*[llength は{#)} ] # suchenwirth_subroutine; } proc のmove(Poly) は{w x y} {# 何も} # - - 少しより多くのコーディングの…、盛り土モード項目の盛り土色を変えることを割り当てる: proc のdown(Fill) {w x y} {# itemconfig の流れ- 盛り土$::fill} proc のmove(Fill) の{w x y} {} proc のlcount のリスト{lappend arr($x) foreach X $list {{}} RES の{} foreach の名前lappend RES 配列名のarr {llength [ #) ]} リスト$name 帰りの$res を} # lcount {はい否の現在無しはいはいはいはいはいはい否の現在無し否無し} # {NO 6} {はい7} {現在2} 置いたproc のtranslationx {ひものdictName} {# suchenwirth_subroutine; インフォメーションはdict($word) ある {単語を# 置きなさい)} upvar 1 つの$dictName のdict 一定のRES の{} foreach の単語$string の{lappend RES $word は} RES の} proc の複数単語{スイッチ-- $word {人{帰りの人の} フィート{帰りのフィートの} ガチョウ{帰りのガチョウの} 寄生虫{帰りの寄生虫の} マウス{帰りのマウスの} ウシ{帰りのウシの} 歯{帰りの歯の} 子牛- 半分エルフ- - ひづめ- 葉- 塊- スカーフ- 自己- 束- 盗人- オオカミ{リターンひもの範囲$word 0 の終り1ves} ナイフ- 生命- リターン妻{置いたひもの範囲$word 0 の終り2ves の} 自動車は- カンガルー- キロ- メモ- 写真- ピアノ- ピメント- プロ- 単独- ソプラノ- スタジオ- 入れ墨- ビデオ- 動物園{帰りの${word}s} タラ- シカ- 魚- 子孫- とまり木- ヒツジ- マス- 種{リターン#} 属{スイッチ帰り属} 門{帰り門} 半径{帰りの半径} 天使{帰りのcherubim} mythos {帰りのmythoi} 現象{帰り現象} 方式{帰りの方式}} - regexp -- $word {{eix$} {終り2]ices リターンひもの範囲$word 0 の} {[ sch$} - {soxz$} {帰りの${word}es} {bcdfghjklmnprstvwxzy$} {リターンひもの範囲$word 0 の終り1ies} {child$} {帰りの${word}ren} {eau$} {帰りの${word}x} {リターンis$} {終り2]es} {リターンwoman$} ひもの範囲$word 0 の{終り2en ひもの範囲$word 0 の}} [ 等しいひも$lkey # {リターン#}}} 帰りの${word}s の} proc のkeyget {foreach リストのキー} {価値} $list {lkey の{; # RS # keyget % の{fnm のジョンのlnm のブラウンの電話(123)456-7890 電子メール[email protected]} 電話# (123)456-7890 # % のkeyget {fnm のジョンのlnm のブラウンの電話(123)456-7890 電子メール[email protected]} ファクシミリのproc のlswap のリスト{RES の{} foreach {lappend RES b} $list を{$b は#} 置くRES を置きなさい}; # RS # lswap % は{b c d e f g h} リストに# b d c f e h g # 要素を付加する(前部で加えなさい): proc のlprepend {var のargs} {upvar 1 $var V セットのv eval [ リストのlinsert $v 0 # ]}; # DKF のproc のkvsearch {kvlist 項目} {pos lsearch を$kvlist # 置きなさい{#! = -1} {expr lindex $kvlist {#)}}}; # RS の## のkvsearch {1 1 2 2 3 3} 4; # リターンはstring/list # kvsearch {1 1 2 2 3 3} 1 # 1 # kvsearch % の{1 1 2 2 3 3} 1 #1 # - - 空け造るUI の一定モードを{引くこと移動クローンの盛り土のRect の楕円形の多円のキャンバスの詩歌の毛の地帯の助けのゆとりは出口を再調節した} 置く色{blue3 白いマゼンタの茶色の赤いオレンジ黄色緑green3 green4 の青緑色の青blue2 の紫色} 置いたcolorz {黒いbrown2 LightGoldenrod1 LightGoldenrod2 LightGoldenrod3 LightGoldenrod4 LightYellow2 LightYellow3 LightYellow4 yellow2 yellow3 yellow4 gold2 gold3 gold4 goldenrod1 goldenrod2 goldenrod3 goldenrod4 DarkGoldenrod1 DarkGoldenrod2 DarkGoldenrod3 orange3 orange4 DarkOrange1 DarkOrange2 DarkOrange3 DarkOrange4 coral1 coral2 coral3 coral4 tomato2 tomato3 tomato4 OrangeRed2 OrangeRed3 OrangeRed4 red2 red3 red4 DeepPink2 DeepPink3 DeepPink4 をHotPink1 HotPink2 HotPink3 HotPink4 pink1 pink2 は} colorx {blue4 AntiqueWhite3 \Bisque1 Bisque2 Bisque3 Bisque4 \SlateBlue3 RoyalBlue1 SteelBlue2 \DeepSkyBlue3 LightBlue1 DarkSlateGray1 \Aquamarine2 DarkSeaGreen2 SeaGreen1 のBisque \Yellow1 IndianRed1 IndianRed2 Tan1 \lemonchiffon の貝殻の糖液のmintcream の紺碧\peachpuff のnavajowhite のmoccasin のcornsilk \IndianRed3 IndianRed4 sienna1 sienna2 sienna3 sienna4 burlywood1 \burlywood2 burlywood3 burlywood4 wheat1 wheat2 wheat3 wheat4 \tan2 tan4 chocolate1 chocolate2 chocolate3 firebrick1 firebrick2 \firebrick3 firebrick4 \} 全体的なhelpx 全体的なはさみ金の全体的なind の一定のind 0 の全体的なmovesit の一定のhelpx 0 のセットのmovesit 1 のセットのcolorground のbisque の一定のcurnode が"" firstnode を"" 置いたxhistory 置いた全体的なxhistory firstnode のcurnode を置いたリストのAAA はbbb ccc のddd のeee のfff のggg は 置いたxhistory リスト colorground のbisque の全体的なselected_tile previous_tile セットのselected_tile "指定タイル" を置きなさい; previous_tile "前のタイル" を置きなさい; 全体的な反対の全体的なはさみ金の全体的なind の一定のind 0 一定のtilex が"obj_66666test" tagx を"obj_77777test" 置いたセットはさみ金のb c d e f g をリストしなさい 全体的なtilex のtagx のtagz はtagz "obj_55555test" の全体的な記入項目を反対に置かれて0 の格子無線の1 モード# - 粘着性があるnw 格子無線の2 の盛り土$colors 1 - 置いた粘着性があるnw の格子- 無線の3 の盛り土$colorx 2 無線の4 の盛り土$colorz 3 粘着性があるnw の格子粘着性があるnw の格子- キャンバスのc 上がる救助borderwidth 1 の- bg # - - 粘着性があるニュースの格子rowconfig 。0 - 0 の格子rowconfig を重くしなさい。1 - 1 つの格子rowconfig を重くしなさい。2 - 重量2 の格子rowconfig 。3 つは- 重量3 ボタンのb2 - テキスト退去する- 命令は"破壊する。" ボタンのb3 - テキストの出口- "出口" ボタンb5 - テキスト"にDel_tank" - - 幅2 の- {wxx の削除1.0 の端} ボタンのb6 に命じなさい- テキスト"lt_bg" の- bg の灰色- 幅2 \命じる命じなさい{colorground LightBlue1 を置きなさい; c は- bg $colorground} ボタンのb7 - テキスト"bis_bg" を- - 幅3 \命じる形成する{colorground のBisque を置きなさい; \c は- bg $colorground の} 格子b2 のb3 のb5 のb6 のb7 の格子rowconfig を形成する。0 - 0 の格子rowconfig を重くしなさい。選択の歴史の1 つの- 重量1 の格子ラベルのwcc - テキスト"リスト" 格子記入項目のwxxccc - textvar e - はちょうど残された- bg ベージュ色- 幅50 # wxxccc の挿入物の端"# " ワウc の発見のwithtag の流れ 置いた; wxxccc の挿入物の端"xxx 始動機xxx $wow xxx" の焦点のwxxccc; # キーボード入力に一定のlabelx インフォメーションのtclversion 与えなさい; 格子テキスト"保有物タンク、版$labelx" - ラベルのww 置いた粘着性があるニュースの焦点のwxx は- txt テキストのwxx の- 幅20 の- 高さ3 - bg ベージュ色 格子$txt を; # キーボード入力に一定のワウc の発見のwithtag の流れ 与えなさい; wxx の挿入物1.0 "xxx 始動機xxx $wow xxx"; # - - 現在のモードは全体的なモード変数からランタイムに取り出される: 縛りのc < 1 つの> {firstnode のc の発見のwithtag は%W %x %y;down($Mode) %W %x %y をcurrent;initialize} 縛りのc < B1 動き> {move($Mode) %W %x %y を置きなさい} 縛りのc < 2 > の{%W の削除の流れ} 縛りのc < 3 > {# firstnode c の発見のwithtag の緑を 置くfirstnode c の発見のwithtag の流れを 置くcurnode c の発見のwithtag の流れを 置くタイルc の発見のwithtag の流れを # 置くcurnode c の発見のwithtag の赤を 置きなさい{($firstnode! = "") && (#! = "")} {dualcheck $tile $firstnode $curnode}} proc のmove(Poetry) の{w x y} {インフォメーションは::X {expr $w 移動$::id {# ある} expr {#}::X # 置きなさい; ::Y #}} proc のdown(exit) {w x y} {出口置きなさい} proc のdown(Poetry) {w x y} {一定ベースラインリスト baseline2 リスト baseline3 リスト 置いたdy 40 セットのdx 40 のセットのdk 10 のセットのpoof "テスター" を置いた全体的なベースライン全体的なen_chinese 全体的なen_romanji は置いた; 一定のlooky "stringx"; タイル"タイル" を置くtagx リストのaaaa のbbbb cccc のdddd のeeee のfffff のgggg のhhhh 置くtagx リスト # 置く札リストmv d-$val1$val2 置きなさい; # 置きなさいタイルexpr {int(rand()*1000000000 は。) を} # looky "stringx" を置きなさい; # poof xpop $looky 置きなさい; # 札リスト$poof mv obj_$tile d-$val1$val2 置きなさい; # 札リスト$poof mv "obj_$tile+1" d-$val1$val2 置きなさい; # tagx リスト$poof mv "obj_$tile+1" d-$x$y 置きなさい; のため{i 0 を置きなさい; y expr {4+$y};set X 置きなさいexpr {10+$dx}; } {#} {incr I; incr X #} {state1 1 を置きなさい; 置きなさいタイルexpr {int(rand()*1000000000 は。) を} looky "stringx" を置きなさい; poof xpop $looky 置きなさい; lappend ベースライン#; lappend のcaseline #; tagx リスト$poof mv "obj_$tile" d-$x$y 置きなさい; ::ID を# テキスト$x $y を札$tagx 作成しなさいテキスト$poof - - $::fill を満たしなさい} のための置きなさい{i 0 を置きなさい; y expr {8+$y};set X expr {10+$dx は}; 置きなさい} {#} {incr I は; incr X #} {state1 1 を置きなさい; 置きなさいタイルexpr {int(rand()*1000000000 は。) を} looky "stringx" を置きなさい; poof xpop $looky 置きなさい; lappend baseline2 #; lappend caseline2 #; tagx リスト$poof mv "obj_$tile" d-$x$y 置きなさい; ::ID を# テキスト$x $y を札$tagx 作成しなさいテキスト$poof - - $::fill を満たしなさい} のための置きなさい{i 0 を置きなさい; y expr {12+$y};set X expr {15+$dx は}; 置きなさい} {#} {incr I は; incr X #} {state1 1 を置きなさい; 置きなさいタイルexpr {int(rand()*1000000000 は。) を} looky "stringx" を置きなさい; poof xpop $looky 置きなさい; lappend baseline3 #; lappend caseline3 #; tagx リスト$poof mv "obj_$tile" d-$x$y 置きなさい; ::ID を# テキスト$x $y を盛り土$::fill - 札$tagx 作成しなさいテキスト$poof -} 置くtopa concat $baseline stringxxx [ $baseline2 # ] 置きなさい; wxx の挿入物1.0 #; lcount wxx の挿入物1.0 #; topat en_chinese translationx $topa 置きなさい; lcount wxx の挿入物1.0 #; concat $topa wxx の挿入物1.0 lcount # $topat lcount [ # ]; k 20 を置きなさい; ベースラインen_chinese translationx $baseline 置きなさい; k expr {20+$y} 置きなさい; ::ID を# テキスト$x $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - 置くベースラインen_chinese translationx $baseline2 置きなさい; k expr {30+$y} 置きなさい; ::ID を# テキスト$x $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - 置くベースラインen_chinese translationx $baseline3 置きなさい; k expr {40+$y} 置きなさい; ::ID を# テキスト$x $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - 置くk 30 を置きなさい; j 20 を置きなさい; ベースラインtranslationx $caseline のen_romanji 置きなさい; k expr {60+$y} 置きなさい; j expr {20+$x} 置きなさい; ::ID を# テキスト$j $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - 置くベースラインtranslationx $caseline2 のen_romanji 置きなさい; k expr {70+$y} 置きなさい; j expr {20+$x} 置きなさい; ::ID を# テキスト$j $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - 置くベースラインtranslationx $caseline3 のen_romanji 置きなさい; k expr {80+$y} 置きなさい; j expr {20+$x} 置きなさい; {xhistory}::ID の# テキスト$j $k を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline -} proc の歴史を置きなさい{リストの目的の歴史@ 置きなさいxhistory; 全体的なxhistory firstnode のcurnode の全体的なind のmovesit の一定の第2 セットの第2 セットのfirstnode c の発見のwithtag の流れ lappend $xhistory $firstnode; ::ID のc はテキストを作成する100 つは200 枚の- テキスト$xhistory - 札"歴史" - 盛り土$::fill - 黒い 満たす} proc のdualcheck {タイルのfirstnode のcurnode} 置きなさい{全体的なmatch_id のselected_tile tiles_left のジャッキの全体的なnewy oldy マッチのoldx のxhistory 全体的なselected_tile previous_tile 全体的なxhistory 全体的なtilex は# 全体的なfirstnode のcurnode の一定のselected_tile "タイル" を選んだ; colorxxx "テスト" を置くcolorzzz "テスト" を# 置くprevious_tile "前のタイル" を置きなさい; numberx c のgettags の流れ 置きなさい; regexp {obj_(\d+)} $numberx - > tilex のregexp {colorit_(\d+)} $numberx - > colorxxx のregexp {colorit_(\d+)} $numberx - > colorzzz の一定インデクサー最初にひも"mv" $numberx; インデクサーexpr {$indexer - 1} 置く新しく置きなさいひもの範囲$numberx 0 $indexer; 札c のgettags の流れ # 幅2 - c のitemconfigure obj_$tilex 輪郭を描く赤の置きなさい; # 幅2 - c のitemconfigure $previous_tile 緑の輪郭を描きなさい; # 幅3 - c のitemconfigure obj_$tilex; # 幅3 - c のitemconfigure $previous_tile; 一定の古い"テスト" はkkk c のgettags $previous_tile 置いたインデクサー最初にひも"mv" $kkk 置いた; ; インデクサーexpr {$indexer - 1} 置く古く置きなさいひもの範囲$kkk 0 $indexer; {# == ""} {古い"poof を#" 置きなさい} tx ひもの範囲$tilex 0 の端 置きなさい; rx ひもの範囲$previous_tile 4 の端 置きなさい; {$tx は! = $rx} {wxx の削除1.0 の端は; wxx の挿入物の端"識別される組間違い等しくないテキストは!!!" の; } {$old の== $new} {tx ひもの範囲$tilex 0 の端を置きなさい; rx ひもの範囲$previous_tile 4 の端 置きなさい; {$tx の== $rx} {wxx の削除1.0 の端; wxx の挿入物の端"識別される組間違い同じタイルの二重接触!!!" の; } {$tx は! = $rx} {# 幅2 - c のitemconfigure obj_$tilex 青の輪郭を描きなさい; # 幅2 - c のitemconfigure $previous_tile 青の輪郭を描きなさい; wxx の削除1.0 の端; wxx の挿入物の端"xxx $tilex xxx $tx xxx $rx xxx $previous_tile xxxx"; wxx の挿入物の端#; wxx の挿入物の端"古い$old"; wxx の挿入物の端#; wxx の挿入物の端"同一の組識別した!!!" は; wxx の挿入物の端"xxx 古い$old xxx 新しいxxx $new" は; wxx の挿入物の端は#; wxx の挿入物の端の"obj_tilex obj_$tilex" のregexp {colorit_(\d+)} $numberx - > colorxxx のregexp {colorit_(\d+)} $previous_tile - > colorzzz {削除は$colorxxx の== $colorzzz} {c の"# "; c の削除"obj_$tilex+1" は; c の削除obj_$tilex は; c の削除は#; }}} # wxx の削除1.0 の端; $selected_tile # 置きなさい; wxx の挿入物の端$tags; wxx の挿入物の端"selected_tile 同輩$new"; {$previous_tile は! = $selected_tile} {c のgettags の流れ 置くインデクサー最初にひも"mv" $previous_tile を置きなさいprevious_tile; インデクサーexpr {$indexer - 1} 置く古く置きなさいひもの範囲$previous_tile 0 $indexer; wxx の挿入物の端"previous_tile 同輩$old"; } # 幅2 - c のitemconfigure $curnode; 一定のprevious_tile obj_$tilex の一定のfirstnode obj_$tilex; {$firstnode は! = $curnode} {curnode obj_$tilex を; 置きなさい} wxx の挿入物の端"流れ$curnode" に匹敵する; wxx の挿入物の端"第1 $firstnode" に匹敵する; リターン} proc は初期設定する{w x y} {全体的なタイルの全体的なxhistory firstnode のcurnode の全体的なind のmovesit の一定のタイルc の発見のwithtag の流れは 第2 セットの第2 をセット::_x # 置いた; ::_y # 置きなさい; firstnode c の発見のwithtag の流れ 置く数を# gettags の流れ 置くインデクサー最初にひも"mv" $number 置きなさい; numberx ひもの範囲$number 0 # 置きなさい; # このカードはタンクの前の歴史を# 減らしたりタンクverbage を失う歴史# wxx の削除1.0 の端を削除するが; # 一般的な報告ラインwxx の挿入物はタイルxxxx \$ind xxxx の目的xxx $tile xxx $ind xxx 数の\まっすぐにの1.0 "インデクサーxxx $indexer xxx xxx $number xxx $numberx xxx \数xxx $movesit xxx" を動かす; # wxxccc の削除1.0 の端; # 一般的な報告ラインタイルxxxx \$ind xxxx の目的xxx $tile xxx $ind xxx 数の\まっすぐにのwxxccc の挿入物の終わり"インデクサーxxx $indexer xxx xxx $number xxx $numberx xxx \数はxxx $movesit xxx" を動かす; lindex $L incr のmovesit の} proc のlpick L {int(rand()*llength [ expr の#) ]; \# suchenwirth_subroutine は;} proc のstringxxx s {# suchenwirth_subroutine; {# wordstart $line # ]} RES の{} foreach ラインを$s の\n を裂きなさい {{i 0 を置きなさい} {# 長さ# ]} {incr I のために} {{w expr ひもの範囲$line $i を[ 置きなさい{[ ひものwordend $line は#} ] # 置きなさい{#! = " "} {lappend RES #} # {#! =" "&& # "&& #!="\}"} は{lappend RES は#} {#! = " "&& # "&& #!="\}" && #!="\," は&& #!="\\" && #!="\/"} は{lappend RES #} # {#!="\}"} は{lappend RES #} # {# "} {lappend RES #} expr incr I {[ ひもの長さは#}; # 常にループincr は}}} RES の} proc のxpop {一定はさみ金上層} {poemsorts 全体的なはさみ金の全体的なind 全体的なベースライン一定のpoetsey のaaaaa の# 置いた; 一定の間抜けstringxxx #; 上層lindex $goofy $ind 置きなさい; ind expr {$ind + 1} lappend を$baseline # 置きなさい; リターン#; } proc のhelptext {stringxxx} {text_texas を置きなさい{# 冷却装置磁石の詩歌# 冷却装置磁石は詩歌# プログラム主にTCL8.0 であり、# Windows Expect5.2 の支流はの# Suchenwirth どのサブルーチンを# ワード大抵1 ラインにつき不変の# 5/7/5 があったか2004. 頃Suchenwirth のDomino.tcl 、# 注意することを試みられて# Haiku の日本の詩歌のための設定# 10jun2006 のgoldshell7 からのwindows98 そして古いPC に# # 取り組む他のプロシージャは。ある} リターンは#;} proc のpoemsorts {poetsey} {全体的なはさみ金は# はさみ金リストq w e r を # テストの目的の置かれたはさみ金リストのaaaa のbbbb cccc のdddd のeeee のfffff のgggg のhhhh のためのアルファはさみ金置いたはさみ金リストを 置いたadjective_poetic 置いた{{{悲しい} 赤} {青} {{嬉しい} 青を} {嬉しい} {深く} {黒} {{薄い} 野生の} {{薄い} 緑} {明るい} {荒い} {灰色} {{長い} 茶色の} {最高} {茶色} {酒} {乾燥した} {{単独} 貧乏人} {遠い} {平たい箱} {広い} {厚い} {堅い} {{広い} 平たい箱} {涼しい} {堅い}} 置きなさいnoun_subject {ナシ猫のマウスのリード{quince} {モモ} {ノウサギ} {鳥} {煙} {雨} {氷} {雪} {雲} {家} {花} {空} {米} {マツ} {霧} {ドア} {風} {コオロギ} {年}} {{月} {{草} クレーン} {上がった} {インク} {花雪解け} {湖} {ヒマラヤスギ} {薄暗がり} {秋} { } {石} {流れ夜明け} {木} {中心} {ボート} {悲しみ} {木} {ボート} {ボート} {石} {町} {破損} {プール} {絹} {シカ} {歌} {はしけ} {コケ} {夜} {ゲート} {塀} {鳩} {夢} {霜} {平和} {陰} {幻影} {道} {道} {根} {馬} {イブ} {音} {睡眠} {海葉}} {{帆} {ピーク} {{茎は}} {分野} {斜面波} {吠え声} {頂上} {雑草} {ガ} {スズメバチ} {池} {土} {かたつむり} {みみず} {蟻} {ケルプ} {洞窟} {頭部月}} {{ヒスイ} {枝} {骨} {頭部} {微笑} {エンドウ豆} {骨} {頭部} {微笑} {ニレ} {コイ曉}} {{巣} {カシ} {骨} {とまり木} {{微風}} 台紙のプラム嵐の丘は} verb_transitive 置いた{落下{焼跡雪} {{フリップは}} {flys} {歩行うそ} {{流れ}} {落下} {はえ} {来られて} {大会} {{輝やき} 漂流の} {浸しなさい} {叫び} {{失われる} ダンス} {喝采} {ダンス浮遊物} {ねぐら} {{移動}} {愛} {移動睡眠} {取得} {{帆}} {坐る} {跳躍} {坐る} {坐らせなさい} {坐る} {跳躍} {育つ} {待ち時間} {失う} {聞く} {ほしい{衰退しなさい}} {腕時計}} 置くnoun_objective {知りなさい} {雲は{古い家の} 花{空} 米{コオロギ}} silly_propostion を{のために{によって} の方に{へ} {へ} {で} {} {{へ} {} {前部} {に} 既往}} 置いたpoetsey を"置いた、か。# 、[ か。# 、か。# 、か。# 、か。# 、か。# 、か。$noun_subject,The 、か。# 、[ か。# 、か。# 、か。# 、か。# 、か。# 、か。$noun_subject,The 、か。# 、[ か。# 、か。# 、か。# 、か。# 、か。# 、か。$noun_subject,The 、か。# 、[ か。# 、か。# 、か。# 、か。# 、か。# 、か。$noun_subject,The か。# 、[ か。# のか。# 、か。# 、か。# 、か。# 、か。# 、"lappend はさみ金$poetsey のlappend はさみ金$poetsey のlappend はさみ金$poetsey の一定のpoetsey $liner 帰りの$poetsey} # - - (任意) F キーを活動化させなさい: 縛り。< 脱出> の{出口} 縛り。< F1 > {。破壊しなさい} 縛り。< F2 > {colorground LightBlue1 を置きなさい; \c は- bg を#} 縛り形成する。< F3 > {colorground Bisque;.c を置きなさい\- bg $colorground を形成しなさい} 縛り。< F4 > {backcolor lpick {AntiqueWhite3 Bisque1 Bisque2 Bisque3 Bisque4 を\SlateBlue3 RoyalBlue1 SteelBlue2 \DeepSkyBlue3 LightBlue1 DarkSlateGray1 \Aquamarine2 DarkSeaGreen2 SeaGreen1 のBisque \Yellow1 IndianRed1 IndianRed2 のTan1 \Tan4 灰色} 置きなさい; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F4 > {backcolor lpick {AntiqueWhite3 Bisque1 Bisque2 Bisque3 Bisque4 を\SlateBlue3 RoyalBlue1 SteelBlue2 \DeepSkyBlue3 LightBlue1 DarkSlateGray1 \Aquamarine2 DarkSeaGreen2 SeaGreen1 のBisque \Yellow1 IndianRed1 IndianRed2 のTan1 \Tan4 灰色} 置きなさい; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F5 > {backcolor アクアマリンlpick を{Bisque の} 置きなさい; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F6 > {backcolor Bisque lpick を{AntiqueWhite3} 置きなさい; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F7 > {backcolor Bisque lpick を{SeaGreen1} 置きなさい; colorground を# 置きなさい; c は- bg $colorground の} 縛りを形成する。< F8 > {backcolor Bisque lpick を{AntiqueWhite3} 置きなさい; colorground を# 置きなさい; c は- bg $colorground は星じるしのために} # 第8 世紀の詩からのwords/meanings # 英国の記事# 減らされたvolcabulary 配列の一定のen_chinese 投げ出した{* 形成する* 鳥のnaio 水shui の雲のyun の煙yan は青いLAN 嬉しいgaoxing 深いshen 黒いhei の野生のyesheng の緑のluse の薄いcangbai の明るいming 荒いbuping 灰色のcangbai の茶色のzongse の長いchang 高い高のshou の緑豊かなデュオの乾燥したgan 悪いqiong の単独dandu の遠いyuan の平らなポーンの広いkuan 厚いhou は薄く来るlai 雨于赤い洪の悲しいnanguo の懸命に涼しい梁猫の毛のマウスのlaoshu のリードcao ナシのリチウムのquince のyingtao のモモのtao のノウサギのtuzhu の鳥のnaio の煙のyan 雨于の氷のxue の雪のxue の雲のyun をying 家の家の花の華の空のtian 米mi のマツ歌の霧のウーのドアの人の風のfeng のコオロギのkunchong 年のnian 月のユェクレーンniao の草cao のばら色のmeigui インクmoshui の雪解けの雪解けの花の華湖彼ヒマラヤスギの歌の薄暗がりの流れを石灰で消毒するheitian 秋のqiu の石のshi の夜明け彼木のshu の中心のxin のボートのzhou の悲しみのnanguo の石のshi の町のzhen の破損のlei のプールのchitang 絹のsi のシカlu の歌のヒマラヤスギのはしけのbochuan コケlu 夜ye のゲートの人の塀のliba の鳩のnaio の夢のmeng の霜のshuang の平和heping 陰si の幻影のチタニウムの道のリチウム道のxiaodao の根のGEN の馬のma イブの弱々しく健全なシェングの睡眠のshuimian 葉のshu の海のhai の帆ファンのピークのピークの茎の茎分野のyuan の波のbolang は斜面のシャン族の吠え声のshu の頂上のxia の雑草のzhiwu のガのkunchong のスズメバチのhuangfeng の池のchitang soil du snail のwongnui みみずのwongnu の蟻のkunchong のケルプのhaizhiwu の洞窟のshandong 月のユェのヘッドtou のヒスイの于の枝shuzhi の骨のグウの微笑のxiao のエンドウ豆のxiaodou のニレのshu の曉は朱は漂流zhou 輝やきguang がshui の叫びのチタニウムのダンスの浮遊物のpiao のねぐらのchang 移動zhou をguoxing tiaowu によって失われるmilu の喝采を衰退するshuimian 取得衰退するあなたがtiao がzuo を坐らせるzuo の跳躍を坐らせる愛ai 睡眠の浸すlai の大会の大会の来ることをfei が知っているコイの于の巣のchang のカシのshu のとまり木の于の微風のxiaofeng の台紙のシャン族のプラムlizi の嵐のfengbao の丘のシャン族の落下劉の焼跡のhuo フリップzhou のflys のfei のうそのzhi の歩行のzou の流れの劉の落下劉のはえをzaochen ting はzai のzai 既往の于でGE にzai の方の于によってwei のためのyao の腕時計のkan 古いラオス人がほしいと思うことを} zhou が失う聞く失うシェングの待ち時間を育てる 配列の一定のen_romanji {
- * 赤いaka の悲しいkanashii の青いaoi_ao の嬉しく嬉しく深く深く黒いkuroi の野生のyasee の緑のmidori-iro の薄いusui の明るいakarui_taiyoo の荒く荒い灰色のguree の茶色のchairo
の長く長く高いtakai の薄く薄く緑豊かなsubishii の乾燥したkawaite_iru の貧しいbimboo の単独subishii ずっとずっときっかりきっかり広く広く厚く厚く堅く堅く涼しく涼しい猫猫のマウスのマウスのリードリードナシのナシのquince のquince のモモのモモのノウサギのノウサギの鳥の鳥の煙の煙雨雨氷の氷の雪の雪の雲の雲の家の家の花の花の空の空の米の米のマツマツ霧の霧のドアのドアの風の風のコオロギのコオロギ年年の月の月クレーンクレーン草の草のばらばら色インクインク雪解けの雪解けの花の花湖湖のヒマラヤスギはヒマラヤスギの薄暗がりの薄暗がりの秋の秋の石の石の夜明けの夜明けの流れの流れの木の木の中心の中心のボートのボートの悲しみの悲しみの石の石の町の町の破損の破損のプールのプールの絹の絹のシカのシカの歌の歌のはしけのはしけのコケのコケ夜夜ゲートのゲートの塀の塀の鳩の鳩の夢の夢の霜の霜の平和平和陰の陰の幻影の幻影の道の道道道の根の根の馬の馬イブイブの音の音の睡眠の睡眠は残す葉の海の海の帆帆ピークのピークの茎の茎分野分野の波の波斜面斜面の吠え声の吠え声の頂上の頂上の雑草の雑草のガのガのスズメバチのスズメバチの池の池の土の土のかたつむりのかたつむりみみずみみずの蟻の蟻のケルプのケルプの洞窟の洞窟月月の頭部の頭部のヒスイのヒスイの枝枝骨の骨の微笑を微笑のエンドウ豆のエンドウ豆のニレのニレの曉の曉のコイのコイの巣の巣のカシのカシのとまり木のとまり木の微風の微風の台紙の台紙のプラムプラム嵐の嵐の丘の丘はうそうそがはえ来られた来られた大会の大会の漂流の漂流の輝やきの輝やきは浸す叫びの叫びのダンスのダンスによって失われる失われた喝采の喝采の浮遊物の浮遊物のねぐらのねぐら移動移動を衰退する取得衰退する取得が坐らせる跳躍が坐る育つ育てる待ち時間は* *} proc phonesort2 {の既往の既往ででににの方にの方に失う聞く聞くほしいほしいと思うのためののための腕時計の腕時計の古い古いがリストは失う待ち時間を坐らせる跳躍を坐らせる愛愛睡眠の睡眠の浸ることをはえが知っている知っている歩行の流れの流れの落下落下歩かせる落下焼跡の焼跡フリップフリップflys のflys の落ちる} {# regsub {Ma?c?(A-Z KBK (2001 年の2 月14 日) foreach の名前$list {)} リスト$name {M_\1} 主lappend list2 の$key #} foreach の組索引0 - lsort ascii # {lindex $pair 1 lappend list3} 帰りの$list3} 全体的なベースライン全体的なen_chinese セットのtopa poemsorts stringxxx [ "aaaaa" ]; wxx の挿入物1.0 #; lcount wxx の挿入物1.0 #; ベースラインを置きなさいリストの人のガチョウのフィートの女性は潜る; foreach のoppie $baseline {手紙"ひも" を置きなさい; 手紙ひもの範囲$oppie の端の端 置きなさい; letterx "s" を置きなさい; {$letter は! = $letterx} {複数はlappend ベースライン#; } 他に{lappend ベースライン#; }} wxx の挿入物1.0 "$baseline xxx"; wxx の挿入物1.0 "人xxx 複数" 人" xxx"; ベースラインを置きなさいリスト水鳥の煙は来る; wxx の挿入物1.0 "xxx $baseline xxx"; stringj リスト 置きなさい; stringj のtranslationx "水鳥煙" はen_chinese 来る wxx の挿入物1.0 $stringj を置きなさい; wxx の挿入物1.0 "xxxx translationx $baseline TRANS en_chinese"; listxxx リストMacDonald McArthur McEwan Lyttle Mabbs ジョーンズ wxx の挿入物1.0 "xxxx 種類xxxx $listxxx xxx phonesort2" # "" を置きなさい; proc のdown(canvas) {w x y} {全体的なcolorground; colorground $::fill を置きなさい; \c は- bg を#} proc のmove(canvas) の{w x y} {} proc のdown(exit) 形成する{w x y} {出口; } proc のmove(exit) の{w x y} {} proc のdown(help) {w x y} {タイルexpr {int(rand()*1000000000 を。) 置きなさい} poof "助け" を置きなさい; 全体的なhelpx {# > 0} {リターンは} tagx リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y を置いた; 基盤"助け" を置きなさい; helpx 0 を置きなさい; ベースラインhelptext # 置きなさい; {!info はL ある} {L を{置きなさい}} 置きなさい#::ID は# テキスト$x $y を盛り土$::fill - 札$tagx 作成しなさいテキスト$baseline - helpx 1 を置いた; } proc のmove(help) の{w x y} {} proc のdown(clear) {w x y} {全体的なhelpx $w の削除"すべて"; helpx 0 を置きなさい; } proc は再調節した{w} {"すべて全体的なhelpx の$w は削除" helpx 0 を置いた; } proc のdown(hairs) {w x y} {全体的なhelpx {# > 0} {リターンは} タイルexpr {int(rand()*1000000000 を。) 置いた} poof "十字毛" を置きなさい; セットのmiddlexxxx expr {(400 + # 2} middleyyyy expr {(400 + # 2} 置いたxx1 20 を置いたmaximumxxxx 400 セットのmaximumyyyy 400 を置きなさい; xx2 15 を置きなさい; yy1 20 を置きなさい; yy2 10 を置きなさい; tagx リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y 置きなさい; 基盤"助け" を置きなさい; helpx 0 を置きなさい; ベースラインを# 置きなさい; {!info はL ある} {L を{置きなさい}} # 置きなさい#::ID は# テキスト$x $y を盛り土$::fill - 札$tagx::ID を$w はライン$x $middleyyyy $maximumxxxx $middleyyyy を作成する- 札# 作成しなさいテキスト$baseline - 置いた::ID の# ライン$middlexxxx $y $middlexxxx $maximumyyyy を- 札の 縛り::ID を$w はライン$x $middleyyyy $maximumxxxx $middleyyyy を作成する- $tagx$w がライン$middlexxxx $y $middlexxxx $maximumyyyy を- 札の作成するtagx 札作成しなさいtagx 置いたhelpx 1 を置いた; } proc のmove(hairs) は{w x y} {::ID # 発見のwithtag の毛 $w のcoords $::id を[ # coords $::id 2 3 $x # 置きなさいlreplace ]::X # 置いた; ::Y $y の} proc のdown(zone) を置きなさい{w x y} {全体的なhelpx {# > 0} {リターンは} xx1 20 を置いた; xx2 15 を置きなさい; yy1 20 を置きなさい; yy2 10 を置きなさい; 置きなさいタイルexpr {int(rand()*1000000000.)}; をpoof "地帯" を置きなさい; tagx リスト$poof mv "obj_$tile" "colorit_$::Fill" d-$x$y 置きなさい; 基盤"助け" を置きなさい; ## はrect 50 を10 枚の100 枚の60 枚の- 札"箱" の## はrect $xx1 $yy1 $xx2 $yy2 を作成する- 札"箱" が::ID を# 作成するexpr rect $x $y を[ {$x + $xx1} 置いた作成するexpr {$y + $yy1} - 札$tagx - 盛り土$::fill は] helpx 1 の} proc のmove(zone) を{w x y} {} # デッキ# デッキ# デッキ# デッキ# デッキ# デッキ# デッキ# デッキ# デッキの端の端の端の端の端の端の端の端の端置いた
コード再使用 Tcl's のパッケージシステムは再使用することができるコードを書くことを容易にする。
多くの他の人々は彼らのコードを再使用のために使用できるようにした。
' ' 1 つが色、テキスト、または札の2 つの等しい部分を選ぶところ特徴かサブルーチン"select&pair_then_die" に荷を積むことを試みるgoldshell7'':I AM からのQ. 。2 部分が等しければ、組は両方ともスクリーンから消える(またはスクリーンのホッケーの安全地帯へ) 。ちょっと等しい組の除去プロセスだったマイクロソフト古いMahjong のゲームのように。
' ' 受け取られる"A. はテキストincr ただn $w のためのもう1 作成する移動のためのrect の... - 札[ リストmv obj$n ] $w はテキストを... 作成する- 札[ リストmv obj$n text$n ] 、指定するobj. の。札を独特な札を構成し、それの中のrect そしてテキスト両方に、そして便宜上割り当てるべきであるそう両方とも一緒に動かす。現在の選択の札を得るためには、何かをのような試みなさい: 戻されたリストの札を[ # gettags の流れ] 置きなさい、このregexp {obj(\d+)} のようなobj 数を用いる札を、例えば$tags - > 数札にレコード終端一定のテキストの[ # itemcget text$number - テキスト] 見つけなさい与えることによってテキストを取り出すことができる。' ' 赤、青いかまたは着色された輪郭を備えるためにgoldshell7'':28jul2006 からのQ. は、指定タイルを望む。どんなにコメントされた"c itemconfigure tile_number -" の赤い輪郭はoutine
を着色したが、縦の整理されたテキストにテキストの壷を戻す。テキストを横保つ方法を多分誰かは計算できる。
yinw2ei # ビーフのni3ur2ou がのでr3u が# r2ang を# 頼むと同時にsui が# 常にm3injian の中のzongsh2i # # およびh3e # 出現のxi2ang # 出現のxi2ang
# およそd2ayue # # y3ing 軍隊頼むが# volcabulary テスト及び余分中国のpinyin は# 曲芸のz3aj2i # 代理のyanchu # yih2ou # 午後のxi2awu の後のr3anh2ou の後の先発のj2in # # # 再度z2ai # すべてのdou # またye # # 面guo # 援助の強打# 援助のbangzh2u # 自動z2id2ong # qiutian 秋# 車軸zh3ou # ballast_trackbed _ su2ish3i # 禁止のsh2ang # 禁止のy2i # 銀行y3inh3ang # banker_fire のbuji # バスケットボールのl3anqi3u を# であるsh2i # be_able hu2i # 音da # w2en qi3an # jian 間のkaishi を# # 手形ダン# 手形のfapi2ao # 誕生日のshengr2i # 打撃のgua # 打撃のgua # b3o Sh2anghai # 板禁止# ボギーzhuanxi2angji2a # 本のshu # 本のshu # 両方梁# 両方梁# 箱のxiang # 有蓋貨車のp3engche # zhixi2an ブレーキzh3a # branch_line # 橋qi3ao # 橋qi3ao # 橋qi3ao # 明るいCAI # 明るいCAI # m3ingpi2an 華麗なjingcai # brother_younger のd2idi # 兄弟のxiongd2i # Bu のdu2i # b2u のpao # builder_plate のm3ingp3ai # バスgongg2ongq2iche # ビジネス# ビジネスshengy2i # ビジネスy2e # business_card のm3ingpi2an # 使用中のm3ang # d2ansh2i # kesh2i # 買物のmai # caboose のshouche 始めなさい前に# # 呼出しji2ao は# できるh2ou # できるKe # できるn3eng # 容量のd2u # キャリッジk2eche # キャリッジk2eche # 現金du2i # 部門のshu # 懸垂線状のji2akongsh2i_jiech2uwang # 確かにb2i # 中国語ch3en # 中国のh2anyu # 中国のh2anz2i # クラスのxi2ak2e # 古典jing # 明確なqing # 明確なqingchu # 気候のq2ih2ou # クリップjia # 時計のzhong # 近いj2innear # m3ei_t2an 石炭# coalmine のm3eiku2ang # 冷たいleng # 大学d2ag2ai # colour_light_signal のs2edeng_x2inh2aoji # 来られたl3ai # 商業のshang # 会社のgongsi # 比較するbiji2ao # 競争のbis2ai を# 完全なzhou # 続けるj2ix2u を# 便利なfangbi2an # 便利にsh2unbi2an # du2ihu2an 改宗者# r2eq3ing 強壮剤# 正しいb3ucu2o # 正しいr3an # 国のgu3o # 技術のshouy2i # cross_tie はguizhen # quxi2an カーブ# l2uqi2an 切断# ダンスウー# ダンスのwudao # tian 娘nu3er # 日# 深くshen # 渡すjiw2udu2an jiao # ターミナルを# 装置zhuangzh2i # 方言于# 辞書のc3idian # ディーゼルch3aiy3ou # diesel_electric_locomotiv のdi2anchu3and2ong_n2eir3an_jiche # diesel_hydraulic_locomoti のy2el2ichu3and2ong_n2eir3an_jiche # diesel_locomotive n2eir3an_jiche # 別のch2a # 困難なn3an # 困難なn3an # dining_car canche # 直接zh3ijie # 皿のc2ai # 表示bai # 明瞭な儲# 分けるfen を# するdu2anli2an # するy3ingy2e を# するzu2o を# 国内gu3on2ei # f2uxi2an double_track # ドラゴンのl3ong # 引くことのロゼット# 飲み物彼# 運転者のsiji # yu3an ゆで団子のjiaozi # 王朝# 早くxian # 早くxian は# 東にdong # 東# 食べるバオを# 食べるχを# より古いgege # より古いjiejie # electric_locomotive di2anl2i_jiche # di2an 電気# 帯電di2anq2ihu2a # 堤防のl2udi # 空のkong # 終わりのm2o # エネルギーjing # 英国のyingyu # 入るj2inadvance に# 特にt2ebi3e # etween jian # 完全に# b2angwan 夕方# あらゆるmei # あらゆるmeitian # 毎日のjingch3ang # express_train のgaos2u # express_train のku2ais2u # express_train のt2eku2ai # express_train のku2aiche # 非常にj3i # 目のm2u # 家族jia # ずっとyuan # 速いku2ai # 父のb2aba # 父のf2umu # 祝祭のji3e # 盛り土の人# フィンランドFenl3an # 火のhuo # 最初にxi2an # 魚のy3u # fishplate のy3uweiban # 平らなp3ing は# gei のgei のための流暢なli3ul2i # フットボールのz3uqi3u # # # 予測したy2ub2ao を# 外国のw2aiyu # 家禽季# フレームのji2a # freight_car hu2oche # freight_train のhu2oche # z2i # フルーツguo # フルーツのshuiguo # 燃料のch3aiy3ou # ガスのq2i # ゲージのbiao からのc3ong からのフランスのfayu # 友人のp3engyou # # # 寛大なd2afang # ドイツドイツのd3eyu # d3egu3o # 得るji3ehun # gether のy2iqi # ch3an 弾力性のqingk2e # 供給過剰を# 行く儲# chuq2u 行く# d2ao 行く# 行くsh2angban # 行くWang # b2an gondola のchangche # どら# どらのg2u # よいhao # さようならz2aiji2an # goods_train のhu2oche # goods_van p3engche # しかしy2aosh2i # 輸入のj2inchukou # 印象のy2inxi2ang # インのdi2an # 嬉しいhuan # 蹴りのチタニウムが# r3uguo # zenmeshuo # how_old のduod2a # d2ansh2i # 百bai # I wo # 氷のbingqi3u # かいかに季# かいかにduod2a # かいかに勾配のpod2u # 卒業のb2iy2e # guai は# guan 缶# gu2an x3i # guards_van shouche # ゲストk2er3en # x3igu2an 習慣# 半分b2an # ハムのhuotui # 幸せなgaox2ing # 幸せなku2ail2e # 幸せなl2e # hard_sleeper のy2ingw2o # 持っている# 熱r2e # 熱r2e # ヒーターのnuanq2i # 助手のbuji # 高く高# 丘のシャン語# ブタ朱# 熱いl2a # 熱いr2e # 家のl3ou # 誘拐する# y3i # l3ou Zhong を失うために# より低いディディミアム# wuf2an 昼食が# 機械季# 機械季# m3afan 悩み# ganxi2an main_line # dadi2anhu2a # マネージャーのjingli # 地図のd2it3u # marshalling_yard のbianzuchang を# かもしれないkeyi # かもしれないqingw2en # 測定mi # 肉r2ou # メカニズムのq2i # メカニズムのjig2ou # yi # metering_device の医学のbiao # 作ることをliao # 言語が# 最後のsh2anggeyu2e # 許可のl3i # 許可のl3ikai # 許可のli3u # 長さのch3ang # 手紙のx2in # level_crossing d2aokou # t3ushuguan 図書館# xihuan のようなlight_rail のqinggui # # ting 聞く# loco_shed jiw2udu2an # locomotive huochet3ou を# 長くjiu # canguan 一見# 一見見るw3en ことをguai を# 親切なzhong # 知っている誘拐しなさい中間のzhong は# かもしれなかったken3eng # 微細なfenzhong # 氏のxiansheng # 混合したz3a # mixed_train のk2ehu2oh2unh3e_li2eche # お金のb2i # 月のyu2e を# より多くのyu2el3aiyu2e # 翌日にm3ingtian # 母mama # 母ma # 山のシャン語# 移動gand2ong # 動きのy2und2ong # t2aitai # multiple_track j2in の近くで# multiple_unit_train のd2ongchezu # 私のwode # name_personal のm3ingzi # narrow_gauge_railway xiaohuoche # narrow_gauge_railway zhaigui_tiel2u # f2uxi2an 氏xiansheng # 夫人# 必要なb2iy2ao # 否定的なm3ei # 次にm3ingni3an # 素晴らしいli3angkuai # b3ugu2o # nali # Nokia Nu2oj3iy2a # 正午のzhongwu # 北にベイ# ないb2u # ないb2ushao # 今xi2anz2ai # 数h2ao # 従うために観察する# オフィスのb2angongsh2i # 頻繁にch3ang # オイルのy3ou は# 1 yi # x2ing # shiyou ただ# zhi ただ# open_wagon のchangche # 機会のjihu2i # 通常のp3ingch3ang # ordinary_passenger_train のputongche # ordinary_stopping_train のputongche # べきであるgai # 外側のw2ai # overhead_wires のji2akongsh2i_jiech2uwang # gu2ojiang # ウシのni3u # 組のdu2i をoverpraise ために# panfry chaosaute # 激痛のポーン# chu3an パンタグラフのsh2oudi2angong # パス# 乗客のluk2e # passenger_train のk2eche # 人々m3in # 人r3en # 物理的なtiy2u # guan 管# dasu2an 計画# 版の禁止# w3an プラットホームのzh2ant3ai # 演劇# qing # qingbi2an # 複数人# ポイントd2aoch2a # ポーチのl3ang # ポークzhur2ou # 現在のji2esh2ao # 深遠なshenk2e # プログラムji3em2u # 発音のfayin # quarterhour のk2e # 質問はne # 柵のganggui # 鉄道tiel2u # railway tied2ao # railway_track のguid2ao # 雨xi2ayu # 臭いdeng # 読んだni2an # 実質のzhen を# 実際にsh3iz2ai # レシートfapi2ao # 受け取るshou を# 受け取るsu2an zhaod2ai # 点を# su2an 点# tu3an 連隊# h2an 後悔# y3ih2an 後悔# 解放のf2ang # 解放のf2ang # r3en k2e # 残りのxiuxi を# 帰りのhu3i # zhao # 乗車の帰りのq3i # 右のy2oubian # road_formation のd2aochu3ang # 路床のl2uji # 路床のd2aochu3ang # 大体d2ag2ai # 大体d2ag2ai # ルートのl2u # 動かされたpaob2u # anqu3an 安全# サラダs2ela # 同じy2iban # saute chao # 学校のxu3exi2ao # 座席zu2owei を# # sleeping_berth のw2op2u # 遅いm2an # chouyan 煙# 煙yan # 雪のxi2axue # soft_sleeper のruanw2o # 息子の3erzi # sorry_I_am のdu2ibuqi # 南にn3an # 予備のk2ongr # 話せばshuo # spicey のl2a を# 話されていたkouyu # chuntian ばね# スタンプのy2in # 標準的なbiaozhun # standard_gauge のbiaozhun_guij2u # 開始のchufa が# tie_guizhen gai # エビxia # シャッターchuang # si のどら# 四川S2ichuan # 側面のc2e # 信号のx2inh2ao_ji # 絹のsich3ou # danxi2an single_track # sister_younger のm2eimei # 姉妹のjiem2ei # zu2o を坐らせるために# 技術のj2i # 眠る人もし# 自己のz2iji # 販売法のm2ai # semaphore_signal のb2iban_x2inh2aoji # 送るためfa # ことをji2an ことをseat_hard のy2ingzu2o # kuan seat_soft ruanzu2o # セクションは# 見るzh2an 場所は# 場所のzh2ant3ai # huoche_zh2an 場所# 滞在戴# 蒸気のzhengq2i # steam_locomotive zhengq2i_jiche # まっすぐにzh3i # streetcar のyougui_di2anche # structual de # 学生のxu3esheng # 調査のxu3e # su2an da # suburban_train のsh2ijiao_li2eche # 地下鉄のd2itie # 夏のxi2atian # 明るいq3ingtian # スウェーデンRu2idian # 水泳のy3ouyong # スイッチd2aoch2a # テーブルのzhuozi # 取得qu # t3an 話# 話のt3an # tank_car gu2anche # タンカーのgu2anche # 好みのch3ang # 風味がよいhaochi # 風味がよいhaochi # 茶ch3a # 教えるjiao # tiant3an 教師のlaoshi # 寺院を# テニスのwangqi3u # 言葉の調査# thank_you のxi2exie # そのn2a # zu2i # そこに持っている# このjinni3an # このzh2e # dong は# ku2aiyuan 単位が# 大学d2axu3e # 有用なyouy2ong # 休暇のji2a # 弁のf3a # 野菜のshuc2ai # 車のche # 非常に雌鶏# バレーボールのp3aiqi3u # wagon_car hu2oche # 歩行のy3ou # 歩行zou # y2ao が# 暖かいnuan # 水shui # 水shui # water_crane のshuih2e # water_tower のshuita # 私達女性# 私達z3anmen # 天候のtianq2i # ほしいと思うことをdong が# 理解することをthrough_train のzh3id3a # through_train のzh3itong_che # 切符のchepi2ao # 時間のsh3ihou # タイムテーブルのsh3ik2ebiao # 列車のhuoche # 列車のhuoche # 列車のli2eche # 市街電車のyougui_di2anche # 踏面のdao # 旅行のluy3ou # trolley_bus のw3ugui_di2anche # truck_rail のchangche # トンネルのsu2id2ao # 回転盤のzhuanp3an # ないb2uliao は# underground_railway d2itie # 理解するw2eish3enme # 風のfeng # 窓のchuangkou # ワインのjiu # の願いのzh2u が# GEN # 単語のhu2a # 仕事のgongzu2o # worksplate のm3ingp3ai # ni3an xie # 年を# 昨日zu3otian # you_formal n3in # l3ing ゼロ# shang の上のzhuangzh2i # # なぜ書くかnali # na # m3ing 笛# ところで# 車輪のl3un # gu2ix2ing 何が週のxingqi # huany3ing 週末のzhoum2o # 歓迎は# y3ing 歓迎# 西のXI # 西のXI # xican 西部様式# どんなsh3enme # どんなsh3enmesh3ihou # 着くdaoda # 著者のzuiozhe # 銀行yinhang # 浴槽のlahncheo # haiwan 電池dianchi # 湾# 猫毛# 雲のyun # 来られたlai # 女の子のnuer # 彼はta # 馬ma # それはta # 1 yi # 雨于# 煙yan # lian 2 # 水shui # 痛みはさみ# 加えるjia # 海軍大将のhaijunshang # 空気kongqi # 飛行機のfeiji # 空港feijichang # 細道のhutong を# 離れてlu # xing りんごのpingguo # 杏子# 腕のgebo # jian 肘掛け椅子のfushiuyi # 矢# 頼むwen # アスパラガスのlusun # 地図書のdituji # アチックのgelou # 秋のqiu # 斧のfutou # 車軸lunzhou # 赤ん坊のyinger # 袋バオ# 球のqiu # bochuan バレエのbaleiwu # はしけ# オオムギのdamai # haitan バラックyingfang # 浜# ビードのjhuzi # くちばしホイ# 豆dou # くまのxlong # ひげhuzi は# 美しいmeili # ベッドchuang # ミツバチの巣のfengxiang # ビールpijiu # 鐘のleeng # 大きいda # バイクのzixingche # 鳥のnaio # ビスケットのbinggan # 黒いhei # 総括的なtanzi # ブロンドのjinse # 血のxue # 花華# 花華# LAN # ボートzhou # 骨グウ# 本のshu # びんのpingzi # 弓どら# 枝shuzhi # 明るいming # 広いkuan # 茶色のzongse # 于によって青い# 于# キャリッジ既往のche # コップベイ# 切ったduan # ダンスのtiaowu を# 暗いhei # シカlu # ドアの人# dream meng # 乾燥したgan # 弱々しいアヒルya # イブ# 落下劉# 分野yuan # 火のhuo は# 最初にxian # 平らなポーン# 霜のshuang # ゲートの人# ガチョウyan # 草cao # guang の緑のluse # 輝やき# 懸命にying # ヘッドtou # 聞くting # 中心xin を# 高くzai # ランプdeng の高# 丘のシャン語# # 長くchang # kan 一見# 月ユェ# 夜ye # ないBu # 開いたkai # 道のxiaodao # ナシのリチウム# 真珠のzhenzhu # マツ歌# 赤い洪# 米mi # 川江# 石のshi # 根GEN # 砂シャ# 海のhai # kan 見るために# 彼女ta # 海岸# 坐らせるためにtian # 小さいzuo # 空をxiao は# 雪のxue # 歌はzai # 吠え声のshu でGE # 健全なシェング# xing 星# ストーブlu # 太陽のri # 破損のlei # * # * # にGE # mingtian tomarrow # 町zhen # zai # 微風xiaofeng が# huo # コイを燃やす前にyao # kan # 白いスズメバチのhuangfeng # 腕時計がbai # 広くnian # 石灰で消毒する黄色い黄# 洞窟shandong # ヒマラヤスギの歌# 夜明けkuan # 野生のyesheng # 風feng # 年# ジャンプのtiao # 跳躍のtiao # 単独dandu # ガのkunchong # ばら色のmeigui # 浸すshui # 木のshu # 歩行zou # 波のbolang # 蟻のkunchong を# # ほしいと思うting # 氷がxue # インクmoshui # 昆虫のkunchong # zhi # ヒスイ于# ケルプであることを于# guoxing 喝采は# チェリーのyingtao # 梁# クレーン涼しいniao # 頂上xia # コオロギのkunchong # 叫びのチタニウム# 深くshen # シカlu # 鳩のnaio # zhou # 薄暗がりheitian 漂流zhou # 漂流# ニレのshu # 落下劉# ずっとyuan # 塀のliba # フリップzhou # 浮遊物のpiao # 華# はえフィージー# flys フィージーwei のための流れ劉# 花# # 前部にzai # 幻影のチタニウム# 嬉しいgaoxing # 灰色のcangbai # 悲しみのnanguo # シェング# ノウサギのtuzhu を# 持っている# ting を聞くために# 聞く育てるhaizhiwu は# 朱# 湖が彼# 葉のshu # 葉のshu # うそのzhi # milu # 愛をai # 緑豊かなデュオ# 霧ウー# 月ユェ# 曉zaochen # 朝zaochen # カのwenzi # コケlu # コケlu # 台紙のシャン語# マウスのlaoshu # zhou # 巣chang # カシのshu 移動zhou # 移動# heping 薄いcangbai # エンドウ豆のxiaodou # 平和# モモtao # とまり木于# 植物のzhiwu # プラムlizi # 池のchitang # プールのchitang # 悪いqiong # quince のyingtao # ウサギのtuzhu # リードcao # 川彼# 道のリチウム# ねぐらchang # 荒いbuping # 悲しいnanguo # 帆失ったことを知っているファン# 塩yan # 蛇彼女はzai # 待ち時間のzho # 待ち時間zhou # 雑草のzhiwu # みみずのwongnu の方のzai によって# 陰si # 輝やきのzhaoyao # 靴のxie # 絹si # 坐らせるshuimian zuo # 睡眠を# shuimian 睡眠# 斜面のシャン語# 微笑xiao # かたつむりのwongnui # ヘビ彼女# 土DU # 石造りのshi # 嵐のfengbao # strean 彼# 取る# 茶シェ# 厚くhou # 薄いshou # # # ゼロヒース# 0 本のヒース# 1 yi # 1 yi # 2 えー# 3 サン# 3 サン# 4 si # 4 si # 5 ウー# 5 ウー# 6 劉# 6 劉は# 7 CI # 7 CI # 8 Ba # 8 Ba # 9 jiu # 9 jiu # 10 shi # 10 shi # 11 shi_yi # 11 shi_yi # 12 shi_er # 20 er_shi # 20 er_shi # 21 er_shi_yi # twenty_two のer_shi_yi # 100 bai_bye_yi_bai # 百bai_bye_yi_bai # 300 san_bai # three_hundred san_bai を# yi_wan 1000 cian # 千cian # 10000 # shi_wan ten_thousand yi_wan # 100000 # yi_bai_wan hundred_thousand shi_wan # 1000000 # shang # 痛みはさみの上で# yi_bai_wan thousand_thousand # 加えるjia # 海軍大将のhaijunshang # 空気kongqi # 飛行機のfeiji # 空港feijichang # 細道のhutong # 蟻のkunchong を# 離れてlu # xing りんごのpingguo # 杏子# 腕gebo # 肘掛け椅子のfushiuyi はzai # 地図書のdituji で# daoda # jian 矢着く# 頼むwen # アスパラガスのlusun # # アチックのgelou # 著者のzuiozhe # 秋のqiu # 斧のfutou # 車軸lunzhou # 赤ん坊のyinger # 袋バオ# 球のqiu # バレエのbaleiwu # bochuan 銀行yinhang # はしけ# 吠え声のshu # オオムギのdamai # バラックのyingfang # 浴槽のlahncheo # haiwan 電池dianchi # 湾# zai # 鐘のleeng の前に# ビードのjhuzi # くちばしホイ# 豆dou # くまのxlong # ひげのhuzi # 美しいmeili # ベッドchuang # ミツバチの巣のfengxiang # ビールpijiu # haitan 浜# 大きいda # バイクのzixingche # 鳥のnaio # ビスケットbinggan # 黒いhei は# 総括的なtanzi # ブロンドのjinse # 血のxue # 花華# 花華# LAN # ボートzhou # 骨グウ# 本のshu # びんのpingzi # 弓どら# 枝shuzhi # 微風xiaofeng # 明るいming # 広いkuan # 茶色のzongse # 焼跡のhuo # 于によって青い# guoxing 既往の于# コイ于# キャリッジche # 猫毛# 洞窟shandong # ヒマラヤスギの歌# 喝采# チェリーのyingtao # 雲のyun # lai 来る# 梁# クレーン涼しいniao # 頂上xia # コオロギのkunchong # 叫びのチタニウム# コップベイ# duan # ダンスの切られたtiaowu # 暗いhei # 石灰で消毒する夜明け# 深くshen # シカはlu # シカlu # ドアの人# 鳩のnaio # dream meng # 漂流zhou # 漂流zhou # 乾燥したgan # heitian アヒルのya # 薄暗がり# 弱々しいニレshu # イブ# 落下劉# 落下劉# ずっとyuan # 塀のliba # 分野yuan # 火のhuo # 最初にxian # 華# はえフィージー# flys フィージーwei のための平らなポーン# フリップzhou # 浮遊物のpiao # 流れ劉# 花# # 前部にzai # 霜のshuang # ゲートの人# 幻影のチタニウム# 女の子のnuer # 嬉しいgaoxing # ガチョウyan # 草cao # 灰色のcangbai # 緑のluse # 悲しみのnanguo # 育てるシェング# guang を朱# 湖が彼# ランプdeng # 葉のshu # 跳躍のtiao # 葉のshu # うそのzhi # 単独dandu # 長くchang # kan 一見# 失われたmilu # 愛ai # 緑豊かなデュオ# ユェ# 月ユェ# 曉霧ウー# 月# 朝zaochen # カzaochen ことをting # 中心xin が# 高く高# 丘のシャン語# 馬ma # zai # インクmoshui の氷のxue # # 昆虫のkunchong # zhi # それta # ヒスイ于# ジャンプのtiao # ケルプのhaizhiwu # 知っているであることを輝やきに# 懸命にying # ノウサギのtuzhu # # 彼ta # ヘッドtou # ting を聞くために# ting を聞くために# 聞くあるwenzi # コケlu # コケlu # ガのkunchong # 台紙のシャン語# マウスのlaoshu # zhou # 巣chang # 夜ye 移動zhou # 移動# ないBu # カシのshu # 1 yi # 開いたkai # 薄いcangbai # 道のxiaodao # heping エンドウ豆のxiaodou # 平和# モモtao # ナシのリチウム# 真珠のzhenzhu # とまり木于# マツ歌# 植物のzhiwu # プラムlizi # 池のchitang # プールのchitang # 悪いqiong # quince のyingtao # ウサギのtuzhu # 雨于# 赤い洪# リードcao # 米mi # 川江# 川彼は# 道のリチウム# 石のshi # ねぐらchang # 根GEN # 上がったmeigui は# 荒いbuping # 悲しいnanguo # 帆ファン# 塩yan # 砂シャ# 海のhai # 見るkan # 蛇彼女# 陰si # 彼女ta # 輝やきのzhaoyao # 靴のxie # 海岸# 絹si # zuo を坐らせるために# 坐らせるtian zuo # 空を# shuimian 睡眠# shuimian 睡眠# 斜面のシャン語# 小さいxiao # 微笑xiao # 煙yan # かたつむりのwongnui # ヘビ彼女# 雪のxue # 浸すshui # 土をDU # 歌GE # 健全なシェング# xing 星# 石造りのshi # 嵐のfengbao # ストーブlu # strean 彼# 太陽のri # 取得# 茶シェ# 破損のlei # * # * # 厚くhou は# zai による薄いshou # # へのGE # zai # 町zhen # 木のshu の方に# mingtian tomarrow # lian 2 # 待ち時間のzho # 待ち時間zhou # 歩行zou # ほしいと思うyao # kan スズメバチのhuangfeng # 腕時計が# 水shui # 波のbolang # 雑草のzhiwu # 白いbai # 広くkuan # 野生のyesheng # 風のfeng # みみずのwongnu # 年のnian # 黄色い黄# 任意日本のromanji の単語の配列の一定のen_romanji {赤いaka の悲しいkanashii の青いaoi_ao の嬉しく嬉しく深く深く黒いkuroi の野生のyasee の緑のmidori-iro の薄いusui の明るいakarui_taiyoo の荒く荒い灰色のguree の茶色のchairo の長く長く高いtakai 薄く薄く緑豊かなsubishii の乾燥したkawaite_iru の悪いbimboo の単独subishii ずっとずっときっかりきっかり広く広く厚く厚く堅く堅く涼しく涼しい猫猫のマウスのマウスのリードリードナシのナシのquince のquince のモモのモモのノウサギのノウサギの鳥の鳥の煙の煙雨雨氷の氷の雪の雪の雲の雲の家の家の花の花の空の空の米の米のマツマツ霧の霧のドアのドアの風の風のコオロギのコオロギ年年の月の月クレーンクレーン草の草のばらばら色インクインク雪解けの雪解けの花の花湖湖のヒマラヤスギのヒマラヤスギの薄暗がりの薄暗がりの秋の秋の石の石の夜明けの夜明けの流れの流れの木の木の中心の中心のボートのボートの悲しみの悲しみの石の石の町の町の破損の破損のプールのプールの絹の絹のシカのシカの歌の歌のはしけのはしけのコケのコケは夜夜ゲートのゲートの塀の塀の鳩の鳩の夢の夢の霜の霜の平和平和陰の陰の幻影の幻影の道の道道道の根の根の馬の馬イブイブの音の音の睡眠の睡眠は残す葉の海の海の帆帆ピークのピークの茎の茎分野分野の波の波斜面斜面の吠え声の吠え声の頂上の頂上の雑草の雑草のガのガのスズメバチのスズメバチの池の池の土の土のかたつむりのかたつむりみみずみみずの蟻の蟻のケルプのケルプの洞窟の洞窟月月の頭部の頭部のヒスイのヒスイの枝枝骨の骨の微笑の微笑のエンドウ豆のエンドウ豆のニレのニレの曉の曉のコイのコイの巣の巣のカシのカシのとまり木のとまり木の微風の微風の台紙の台紙のプラムプラム嵐の嵐の丘の丘の落下落下焼跡の焼跡フリップフリップflys のflys のうそのうその歩行の歩行を流れの流れの落下落下はえのはえは来られた来られた大会の大会の漂流の漂流の輝やきの輝やきが浸す叫びの叫びのダンスのダンスによって失われる失われた喝采の喝采の浮遊物の浮遊物のねぐらのねぐら移動移動を衰退する取得衰退する取得が坐らせる跳躍が坐る育つ育てる待ち時間は失う聞く聞くほしいほしいと思うのためののための古い古いドングリのdonguri の既往の既往ででへへの方にの方にtasu の恐れているkowai のアフリカのafurika の瑪瑙のmenou のain_t のjyanai の飛行機のhikooki の細道のroji のわにarigeta のわにwani のアルファベットのarufabetto のmo のitsumo の救急車のkyukyusha のアンカーikari の天使のtenshi のangelfish のenzerufisshu の角度のkakudo のangry_mad のikatte_iru のangry_mad のokotte_iru の動物のdoubutsu の足首のashikubi の蟻のari を常にまた加える腕時計の腕時計が失う待ち時間を坐らせる跳躍を坐らせる愛愛睡眠の睡眠の浸ることを知っている知っているantartica のnankyoku_tairiku のカモシカのkamoshika のサルのsaru のりんごのringo のエプロンepuron のアクアリウムのsuiso のアーチのaachi の射手のsyasyu のare_you の_ 良いarithmetic_problem のsansu_no_mondai の腕のude の肘掛け椅子のhijikake_isu の矢のya の芸術e のアーティチョークのaatichooku の芸術家のgaka のアジアのajia の眠ったnemuru のassasin のhitokiri のNI の運動選手supotsuman 原子のgenshi の注意のkiyo_tsuke のオーストラリアのosutoraria のautumn_fall のaki のavacado のabocado の驚くばかりのsaiko の斧のono の赤ん坊のakanbo の不良のmazui 袋のfukuro の球のburu のバレリーナのbareriina の気球の星状のshowakusei の宇宙飛行士のuchuu_hikushi はgomu_fuusen bamboo_shoots のtakenoko のbamboo_sword のshinai のバナナのバナナのオオムギのmugi の納屋のnaya のバレルのtaru の野球のyakyu_boru のbaseball_bat のbatto のbaseball_cap のboushi のバスケットのbasuketto のバスケットのzaru のbat_animal kumori のbathing_swimming_s のmizugi の浴室のmitarai の浴室のotearai の浴槽のyubune 浜のhama 浜のkaigan くちばしのkuchibushi くまのkuma の美しいkirei の美しいutsukushii のビーバーのbiiba のベッドをbeddo の蜂のhachi のbee_hive mitsubachi_no_su のミツバチの巣のhachi_no_su のカブトムシのkabutomushi のbegin_start のhajime の鐘のkane のホタルブクロのkikyo の自転車のjitensha の鳥のトルスの黒いkuro_kuroi のクロドリのburakku_berii のブロックのtsumiki のbloomers のbulma のブラウスのburausu のボートのbuto のボートのfune ボディkarada のbon_appetite のitadakimasu の骨の砥石の本のhon の本箱のhonbako のブーツのbutsu のびんの大箱の花束のhanataba の弓chomusubi ボールのboru 箱のhako の男の子は男の子のbozu のブレスレットのburesuretto の頭脳のnu のbrat のgaki のパン焼皿の朝食のchoshoku 胸のoppai の明るいブロッコリーのburokkorii のほうきのhoki の茶色のchairo のバケツのbaketsu のbuckwhe のsoba の水牛のbuffaru の虫のmushi の建物のtatemono の雄牛のushi のブルドーザーのburuduzaa のパンの禁止のburdockroot のgobo の焼跡のmoeru バスbasu をake shonen が、デモのバターbataa の蝶cho ボタンのbotan bye_parting_greeti のja_ne_ja のタクシーのtakushii のキャベツkyabetsu のサボテンはsaboten ケーキのkeeki をカレンダーにかけるkarenda のラクダのrakuda のカメラのkamera のキャンプのkyampu_suru のキャンピングカーのkyanpingu_ka の缶のkanzume のcanary kanaria の蝋燭のrusoku キャンデーのkyande の杖のtsue のカヌーのkanue 渓谷のkureyon 車のjidusha 車のkuruma のカーネーションのkaaniishon のカーペットのkaapeto のにんじんのninjin のカートのniguruma の城のshiro 猫のneko のcaterpiller のkemushi の洞窟のhora_ana の洞窟のデッサンのcelary serori のcell_anatomy saibu の鎖のkusari の椅子のisu の安いchinke のcheek_anatomy hoho のチーズchiizu のチェリーのsakurambo のcherry_blossom の花の箱のmune のひよこのhiyoko の鶏のniwatori の子供のkodomo のチンパンジーのchimpanjii の顎の前にchopstick のhashi 教会kyokai の円のmaru のサーカスのsakasu 都市toshi のハマグリのhamaguri の爪のtsume の粘土のnendo の時計のtokei は着せるfuku の雲のkumo の道化師のpiero のコートのuwagi のクモの巣のkumo の棺のhitsugi の硬貨のkoka 色のiro の櫛のkushi の彗星のsuisei のコンパスのkonpasu コンピュータkonpyuta の円錐形のensuikei のクッキーにkukkii の涼しいkakoii の涼しいsuge の珊瑚のsango のトウモロコシのtomorokoshi のコーナーのkatsumi のcotton_candy watagashi のソファのソファー牛meushi のカニのkani クレーンtsuru のがらくたのkuso の噴火口のkureta のcrazy_insane のreijuu のワニのwaniacorn のdonguri はNI の運動選手のsupotsuman 原子で常にまた加えるtasu の恐れているkowai のアフリカのafurika の瑪瑙のmenou のain_t のjyanai の飛行機のhikooki の細道のroji のわにarigeta のアルファベットのarufabetto のmo のitsumo の救急車のkyukyusha のアンカーikari の天使のtenshi のangelfish のenzerufisshu の角度のkakudo のangry_mad のikatte_iru のangry_mad のokotte_iru の動物のdoubutsu の足首のashikubi の蟻のari のantartica のnankyoku_tairiku のカモシカのkamoshika のサルのsaru のりんごのringo のエプロンepuron のアクアリウムのsuiso のアーチのaachi の射手のsyasyu のare_you の_ 良いarithmetic_problem のsansu_no_mondai の腕のude の肘掛け椅子のhijikake_isu の矢のya の芸術e のアーティチョークのaatichooku の芸術家のgaka のアジアのajia の眠ったnemuru のassasin のhitokiri の星状のshowakusei の宇宙飛行士のuchuu_hikushi をgenshi の注意のkiyo_tsuke のオーストラリアのosutoraria のautumn_fall のaki のavacado のabocado の驚くばかりのsaiko の斧のono の赤ん坊のakanbo の不良のmazui 袋のfukuro の球のburu のバレリーナのbareriina の気球はgomu_fuusen bamboo_shoots のtakenoko のbamboo_sword のshinai のバナナのバナナのオオムギのmugi の納屋のnaya のバレルのtaru の野球のyakyu_boru のbaseball_bat のbatto のbaseball_cap のboushi のバスケットのbasuketto のバスケットのzaru のbat_animal kumori のbathing_swimming_s のmizugi の浴室のmitarai の浴室のotearai の浴槽のyubune 浜のhama 浜のkaigan くちばしのkuchibushi くまのkuma の美しいkirei の美しいutsukushii のビーバーのbiiba のベッドのbeddo の蜂のhachi のbee_hive mitsubachi_no_su のミツバチの巣のhachi_no_su のカブトムシのkabutomushi のbegin_start のhajime の鐘のkane のホタルブクロのkikyo の自転車のjitensha の鳥のトルスの黒いkuro_kuroi のクロドリのburakku_berii のブロックのtsumiki のbloomers のbulma のブラウスのburausu のボートのbuto のボートのfune ボディkarada のbon_appetite のitadakimasu の骨の砥石の本のhon の本箱のhonbako のブーツのbutsu のびんの大箱の花束をhanataba の弓chomusubi ボールのboru 箱のhako の男の子は男の子のbozu のブレスレットのburesuretto の頭脳のnu のbrat のgaki のパン焼皿の朝食のchoshoku 胸のoppai の明るいブロッコリーのburokkorii のほうきのhoki の茶色のchairo のバケツのbaketsu のbuckwhe のsoba の水牛のbuffaru の虫のmushi の建物のtatemono の雄牛のushi のブルドーザーのburuduzaa のパンの禁止のburdockroot のgobo の焼跡のmoeru バスbasu をake shonen が、デモのバターbataa の蝶cho ボタンのbotan bye_parting_greeti のja_ne_ja のタクシーのtakushii のキャベツkyabetsu のサボテンはsaboten ケーキのkeeki をカレンダーにかけるkarenda のラクダのrakuda のカメラのkamera のキャンプのkyampu_suru のキャンピングカーのkyanpingu_ka の缶のkanzume のcell_anatomy canary kanaria の蝋燭のrusoku キャンデーのkyande の杖のtsue のカヌーのkanue 渓谷のkureyon 車のjidusha 車のkuruma のカーネーションのkaaniishon のカーペットのkaapeto のにんじんのninjin のカートのniguruma の城のshiro 猫のneko のcaterpiller のkemushi の洞窟のhora_ana の洞窟のデッサンのcelary serori をsaibu のチェーンkusari の椅子のisu の安いchinke のcheek_anatomy hoho のチーズchiizu のチェリーのsakurambo のcherry_blossom の花の箱のmune のひよこのhiyoko の鶏のniwatori の子供のkodomo のチンパンジーのchimpanjii の顎の前にchopstick のhashi 教会kyokai の円のmaru のサーカスのsakasu 都市toshi のハマグリのhamaguri の爪のtsume の粘土のnendo の時計のtokei の衣服のfuku の雲のkumo の道化師のpiero のコートのuwagi のクモの巣のkumo の棺のhitsugi の硬貨のkoka 色のiro の櫛のkushi の彗星のsuisei のコンパスのkonpasu コンピュータkonpyuta の円錐形のensuikei のクッキーのkukkii の涼しいkakoii の涼しいsuge の珊瑚のsango のトウモロコシのtomorokoshi のコーナーのkatsumi のcotton_candy watagashi のソファのソファー牛meushi のカニのkani クレーンtsuru のがらくたのkuso の噴火口のkureta のcrazy_insane のreijuu のcrop_land のsakumotsu のカラスのkarasu の王冠のookan 叫びのnaku の水晶suishu の立方体のripputai のかっこうのkakkoo のきゅうりのkyuuri のcucumber_and_rice のkappa_maki のコップのkappu の食器棚はshokkidana のcurtain_drape はかわいいkawaii シリンダーenchu のヒナギクのhinagiku のダンスのodoru のダンサーをkaten odorite の危険が危ないabunai の暗い空日のnichi の深いfukai のシカのshika の鬼のmazoku の砂漠のsabaku の机のtsukue のデザートのdezaato の悪魔のakuma の悪魔のoni のダイヤモンドのdaiyamondo のダイスをkiken saikoro のダイスが夕食のyushoku の恐竜のkyoryu の土のtsuchi の皿のsara の医者をshin isha のdoes_have のnai 犬がaiken 犬のaikenka 犬のinu の人形のningyo のdollhouse のningyo_no_ie のイルカのdorufin のイルカのiruka のろばのroba のドアのdoa のこね粉のkiji の鳩のhato のshita をダースつのdaasu のドラゴンのryu のトンボのtombo の引くことのkaku の夢のyume のdrill_tool のdoriru のドラムdoramu のアヒルのahiru の子ガモのahiru_no_go の男のtoko のdump_truck のdampu_kaa のワシのwashi の耳mimi のイヤーマフのmimiate のイヤリングのiyaringu の地球のchikyuu のイーゼルのiizeru 食のnisshoku のウナギのunagi の卵のtamago のナスnasu の肘のhiji 優雅なkotan 象のzo のエレベーターのerebeta のオオシカのshoyosei のオオシカのujika のニレのnire のemotion_feeling 漢字の精力的なgenki エネルギー_ 力の封筒のfuutu の同輩のbyudu のequalivent onaji 赤道sekidu の消す物のkeshigomu のヨーロッパのyoroppa の毎日のmainichi はすべてsubete のevil_fortune のakkun のexclamation_mark のkantanfu の練習のundu_suru の明白なtsutawaru の目のhitomi の目私遠くの眉毛のmayu の表面kao 家族のkazoku のfamily_tree のikka_no_keizu nuju の羽のhane の感じのkimochi の塀のkakoi のシダのshida のfeudal_era のsengoku_jidai の高いfire_hydrant 消防士のshoboshi のfiretruck のshobosha の花火のhanabi の魚のsakana のfishbowl suizokukan 釣tsuri の旗のhata の炎のhono の炎のrecca のフラミンゴをshokasen 最終的なsaigo 指のyubi の指の爪のyubi_no_tsume の火を耕作するfuramingo の懐中電燈のkaichuu の足ひれのashihire の小麦粉のkomugiko の小麦粉のkona の花のhana の花の花のflower_stalk のmiki の花壇がkaden フルートのfuruto をはえのtobu のfly_insect のhae の食糧shokumotsu の愚か者のaho のfoot_feet のashi のフットボールのamerikan_futtoboru の足跡のashiato のfootstool のsutsuru の額のhitai の森林mori の化石のkaeseki 4 のyon 孤のkitsune の友人のtomodachi のカエルのkaeru のフルーツのfuruutsu のフルーツのkudamono のfruit_juice のfuruutsu_jusu のfull_demon のyoukai の漏斗のruto の家具のkagu の未来のmirai ギャラクシーgingakei のゲームのgemmu の廃物のgomi のゲートのgeto の宝石のhuseki の地理学のchiri のgerbil のjaabiru の幻影のobake のギフトのokurimono のえら時代のキリンのkirin の女の子のshojo のglass_cutlery のgurasu のglass_cutlery のkoppu のglasses_optical megane の地球のchikyugi の手袋のtebukuro のgo_away ache_kaere のヤギのyagi の金魚のkingyo のohayo_u_gozaimasu_gozaimash のさようならsayonara のgoose_geese gacho のゴリラのgorira のgrandfather_inform のjijii のブドウのbudo のグレープフルーツのgurepufurutsu の草のkusa のバッタのkirigirisu のバッタのbatta の灰色のhaiiro の緑のmidori のgreen_tea のocha の温室のgurin_hausu のゲストのkyaku のギターのgita をgood_morning good_evening konbanwa のgood_fortune 国連はhaiku のhaiku の毛のkaminoke のhairbrush のburashi のハンサムな半分のhanyo のハムのhamu のハンバーガーのhanbaga のハンマーのkanazuchi のハムスターのhamusutaa 手のte はいかにikaga のhow_are_you のhajimemashite のhow_are_you のo_genki)desu_ka のhow_many ikutsu のhow_much のikura の人間のningen のhummingbird のhachidori の空腹なonaka_ga_suiteiru のハリケーンのharikiin 小屋のkoya のi_ll_kill_you のomae_o_korosu のi_me_feminine のwatashi のi_me_masculine の鉱石のi_me_masculine のboku がかいかにかkikoeru はheart_emotional のkokoro のhot_spring heart_organ shinzou のhedgehog のharinezumi のかかとのkakato の地獄のnaraku のこんにちはmoshi_moshi のヘルメットのherumetto 半球のhankyuu の雌鶏のmendori の六角形のshichikaki のちょっとne のhi_hello のkonnichiwa の丘のoka のhip koshi のhippotomous kaba の賃借りのひれのholly_plant hiragi の家XX の角のkiteki の馬のuma のU 字形のtitetsu hot_tub のfuro 時間季をonsen ことをハンガーのhangaa の幸せなshiawase のatama が聞く幸せなureshii 港の波のハープのhaapu の帽子のbushi の憎悪のkirai の干し草のhoshikusa の霞のmoyatta の頭部をbishounen iloveyou のdaisuki のiloveyou_formal aishiteru のiloveyou_informal boku_ai インクinku の昆虫のkonchuu のkonomi のlittle_wolf のsyaoran の孤独なsabashii の主のtono のはす根の魔法のmoho の人のotoko のmartial_arts_train のdojo のmat_mattress のfuton の真夜中のmayonaka のmilitary_ruler のshogun の微細な楽しみの奇跡のkiseki の霧のkasumi の修道士のhoushi モンスターのkaijuu の月の米国の月光のgekko の朝asa 山のyama のような国際的なkokusai のiris_flower のayame の鉄のairon の島のshima のキヅタのtsuta のjapanese_type のkotatsu の急な動きのbakayaro の宝石のtama の葉のyoh の手紙のtegami ライトyukata ライトdenkyuu ライトhikari に私のwa の神秘的なfushigi のoops のtotto_totto のpassionate_love ai ローブの着物が残念なkare_san_sui のromantic_love のkoi のsexual_love のseiai をrock_garden i_me_you_feminine のanata のiamfeminine のwatashi_wa の氷のkori のice_cream のaisu_kuriimu のice_skate のsuketo_gutsu の氷山のkyozan つららのtsurara の馬鹿のbaka はsumimasen watashi のatashi を} # 置かれる任意助けのノートはキャンバスの形、従って基本的なキャンバス# 形の上にgamepieces. # 分かれた執筆設計する# 容易作成でき、"分けられた" 設計はマウスによって# 動くことをtext_texas {# 冷却装置磁石の詩歌# 冷却装置磁石は詩歌# プログラム主にTCL8.0 及び# Windows Expect5.2 の支流の# 2004. 頃Suchenwirth のDomino.tcl 、# Suchenwirth どのサブルーチン# 大抵不変# これがだった最初のTCL のキャンバスコードI # 見ただったか注意することを試みられてである。設計を使用されマイクロソフトのpowerpoint で# 広く# "分け、" ハーバードグラフィック、等は# この最初努力英語の冷却装置# 磁石の詩歌# 信じであり類似したの同じを動かすべきであることを及びダイスが# コンピュータMahjong のゲームに使用するために# できるか、ことをまたはcoin&card が中国磁気のためにタイルの上にゲーム# # 詩歌TCL8.4 中国のcharactors を# 使用できるか、ことをまたは着色されたMahjong が# 様々なEsc タイルを張り、ことをF キーが# プログラムを出るために活動化するか、ことをまたは変更が背景色# 滑らせて部分を渡る右のマウスを# # 一突き選ぶ部分を渡る左のマウスを滑らせることが# # 同じを削除するべきで、ことを中間のマウスが付いている部分を# 同じ部分を削除するべきである# 選び組をの選ぶ同じテキストは右のマウスと # 順に # 同じ部分を# 右のマウスの使用初期設定から削除するべきである# 残マウス継ぎ合わさる、従って1 つは# ゲームの開始# 1 ラインにつきワード5/7/5 のある# Haiku の日本の詩歌のための設定# 10jun2006 のgoldshell7 からのwindows98 そして古いPC に# # 取り組む他のプロシージャは。# 左のマウスが付いている1 のタイルをのための選ばなければならない} 部門のおもちゃ
更新済 2006 年8 月28 日、16:15 のGMT - Refrigerator_Magnetic_Poetry を 編集しなさい - 修正 調査 - 最近の変更 - Wikit についての… - Tcler の Wiki に行きなさい - 助け