Overview
| SHA1 Hash: | 54e5f1b915778aadbdef13f0f6c1fec34d6ce74e |
|---|---|
| Date: | 2010-10-25 18:29:01 |
| User: | crc |
| Comment: | update to 11.0-2010.10.24 image |
| Timelines: | family | ancestors | descendants | both | trunk |
| Other Links: | files | manifest |
Tags And Properties
- branch=trunk inherited from [dc67bca1f3]
- sym-trunk inherited from [dc67bca1f3]
Changes
[hide diffs]
[patch]Modified hangman/files.retro from [753d69c1eb8b6f20] to [f6d2b7cfcfa53f79].
@@ -6,6 +6,6 @@ with files' : fread! ( ha-f ) swap read dup rot ! ; : >file ( $h- ) push repeat @+ dup 0 =if rdrop 2drop ;then - r write 0 =if rdrop 2drop ;then again ; + tors write 0 =if rdrop 2drop ;then again ;
Modified hangman/hangman.retro from [0597c0b2c0e1a172] to [09c240d5451d94f2].
@@ -80,14 +80,14 @@ : foul+ ( c- ) foul-addr foul-count @ + ! 1 foul-count +! ; : guess ( - ) .prompt key >lower dup emit push - guessed @ r has if .already else - target @ r has if r guessChar .correct else - foul-addr r has if .already else - r foul+ lifeline -- .wrong then then then rdrop ; + guessed @ tors has if .already else + target @ tors has if tors guessChar .correct else + foul-addr tors has if .already else + tors foul+ lifeline -- .wrong then then then rdrop ; ( --[ Game Logic ]-------------------------------------------- ) : _string ( n-$ ) here swap for '_ , next 0 , ;
Modified retroImage from [226bc448151dafcf] to [6e01279bb4e5a688].
cannot compute difference between binary files