Removed waterworld.

collects/meta/props

@@ -2051,7 +2051,6 @@ path/s is either such a string or a list of them.
 "collects/unstable/temp-c" responsible (jay)
 "collects/version" responsible (eli)
 "collects/version/tool.rkt" drdr:command-line (gracket-text "-t" *)
-"collects/waterworld/waterworld.rkt" drdr:command-line (mzc *)
 "collects/web-server" responsible (jay)
 "collects/web-server/default-web-root/configuration-table.rkt" drdr:command-line #f
 "collects/web-server/default-web-root/htdocs/servlets/examples/add-dispatch.rkt" drdr:command-line (mzc *)

collects/waterworld/README

@@ -1,6 +0,0 @@
-This is WaterWorld, a MineSweeper-like game played on a triangular
-grid.  The game will be used in an undergraduate logic course.
-
-The game was designed by Ian Barland, and coded by Paul Steckler,
-with some implementation ideas taken from Robby Findler's MineSweeper
-game in the games collection.

collects/waterworld/wwdoc.rkt

@@ -1,70 +0,0 @@
-(module wwdoc mzscheme
-  (require xml/xml)
-
-  (define *the-file* "ww.html")
-  (define *the-page* 
-    `(html 
-      (body 
-       "You are exploring WaterWorld, where each location is either "
-       "empty sea, or contains pirates. "
-       "When you enter a location, you must "
-       (em "correctly") " "
-       "anticipate whether or not it contains pirates:"
-       (ul 
-	(li 
-	 "If you anticipate pirates, shift-click on the location, "
-	 "meaning you've brought gold "
-	 "to appease them with."
-	 (ul 
-	  (li 
-	   "If you are correct, the pirates relieve you of your burden "
-	   "before it pulls you down, and let you live.")
-	  (li 
-	   "However, if you are incorrect and there were no pirates, "
-	   "then the gold "
-	   "weighs you down, and you drown.")))
-	(li 
-	 "If you anticipate the location is empty, just click on the "
-	 "location, meaning you "
-	 (em  "haven't") " "
-	 "brought gold"
-	 (ul 
-	  (li 
-	   "If you are correct, you can measure the "
-	   "pollution content of the water, "
-	   "and find out how many neighboring locations have pirates "
-	   "(though not which ones).")
-	  (li 
-	   "However, if you are incorrect and there are pirates, "
-	   "they will keel-haul you, then impress you into slavery."))))
-       (p)
-       "Note the asymmetry of the situation: you get further information "
-       "only after exploring empty locations."
-       (hr)
-       (h2 "Format of games")
-       "WaterWorld games are stored as S-expressions in the following format:"
-       (pre 
-	"(game" (br)
-	" (rows n)" (br)
-	" (columns m)" (br) 
-	" (locations" (br)
-	"  (location (row p) (column q) (safe? b) (concealed? c))" (br)
-	"   ..." (br)
-	" ))")
-       "where " 
-       (tt "n" ) ", "
-       (tt "m" ) ", "
-       (tt "p" ) ", and "
-       (tt "q" ) " are numbers, and "
-       (tt "b" ) " and "
-       (tt "c" ) " are Scheme booleans. "
-       "The locations must be enumerated in row-major order.  That is, "
-       "all columns within a row are given, in order, before listing the "
-       "next row.  Both rows and columns are enumerated from 0.")))
-
-  (when (file-exists? *the-file*)
-	(delete-file *the-file*))
-  (let ([html-port (open-output-file *the-file*)])
-    (write-xml/content
-     (xexpr->xml *the-page*) html-port)
-    (close-output-port html-port)))