larstvei/etype
1
0
Fork 0
mirror of https://github.com/larstvei/etype.git synced 2024-11-26 02:08:30 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Major changes, including name.

Browse Source 
Now the game is a grid of constant size (30 lines with fill-column
length). Words are moved individually (apposed to whole lines at the
time), still some bugs.
This commit is contained in:
larstvei 2013-11-25 13:14:28 +01:00
parent 8cc5bb5630
commit bf6faaf2c0
2 changed files with 0 additions and 185 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
type.el
View File

@ -1,66 +0,0 @@
(load-library "word-list")
(defvar type-timers nil)
(defvar banned-initials nil)
(defun init-game ()
;; Shuffle the vector of words and turn it in to a list.
(setq words (mapcar 'eval (shuffle-vector words)))
(type-loop))
(defun type-goto-char (point)
(if (< point (point-max))
(goto-char point)
(goto-char (point-max))
(insert (make-string (- point (point-max)) ? ))))
(defun type-insert-overwrite (point word)
(type-goto-char point)
(let* ((len (length word))
(bytes-to-delete
(if (< (point-max) (+ point len))
(- len (- (+ point len) (point-max)))
len)))
(when (type-fit-word word)
(delete-char bytes-to-delete)
(insert word))))
(defun type-fit-word (word)
(let ((space (make-string (length word) ? )))
(or (looking-at (concat space "|[^ ]+$"))
(search-backward space nil nil)
(search-forward space nil nil))))
(defun type-spawn-word ()
(save-excursion
(when (string= "Type" (buffer-name (current-buffer)))
(let* ((word (pop words))
(point (random (- fill-column (length word)))))
(type-insert-overwrite point (concat " " word " "))))))
(defun type-open-line ()
(save-excursion
(goto-char 1)
(open-line 1)
(insert (make-string fill-column ? ))))
(defun type-loop ()
(push (run-at-time "5 sec" 3 'type-open-line) type-timers)
(push (run-at-time "0 sec" 1.5 'type-spawn-word) type-timers))
(defun type ()
(interactive)
(switch-to-buffer "Type")
(type-mode)
(init-game))
(defun type-cleanup ()
(mapc 'cancel-timer type-timers))
(define-derived-mode type-mode nil "Type"
"A mode for playing Type."
(make-local-variable 'words)
(make-local-variable 'type-timers)
(overwrite-mode)
(add-hook 'kill-buffer-hook 'type-cleanup))

119
word-list.el
View File

@ -1,119 +0,0 @@
(defvar words
(vector "able" "about" "above" "according" "account" "across" "act" "action"
"activities" "activity" "actually" "added" "addition" "additional"
"administration" "after" "again" "against" "age" "ago" "ahead" "aid" "air"
"all" "almost" "alone" "along" "already" "also" "although" "always" "am"
"america" "american" "among" "amount" "an" "analysis" "and" "another"
"answer" "anti" "any" "anyone" "anything" "apparently" "appear" "appeared"
"approach" "are" "area" "areas" "arms" "army" "around" "art" "as" "ask"
"asked" "association" "at" "attack" "attention" "audience" "available"
"average" "away" "back" "bad" "ball" "based" "basic" "basis" "be"
"beautiful" "became" "because" "become" "bed" "been" "before" "began"
"beginning" "behind" "being" "believe" "below" "best" "better" "between"
"beyond" "big" "bill" "black" "blood" "blue" "board" "body" "book" "born"
"both" "boy" "boys" "bring" "british" "brought" "brown" "building" "built"
"business" "but" "by" "call" "called" "came" "can" "cannot" "cant" "car"
"care" "carried" "cars" "case" "cases" "cause" "cent" "center" "central"
"century" "certain" "certainly" "chance" "change" "changes" "character"
"charge" "chief" "child" "children" "choice" "christian" "church" "city"
"class" "clear" "clearly" "close" "closed" "club" "co" "cold" "college"
"color" "come" "comes" "coming" "committee" "common" "communist"
"community" "company" "complete" "completely" "concerned" "conditions"
"congress" "consider" "considered" "continued" "control" "corner" "corps"
"cost" "costs" "could" "couldnt" "countries" "country" "county" "couple"
"course" "court" "covered" "cut" "daily" "dark" "data" "day" "days" "de"
"dead" "deal" "death" "decided" "decision" "deep" "defense" "degree"
"democratic" "department" "described" "design" "designed" "determined"
"developed" "development" "did" "didnt" "difference" "different"
"difficult" "direct" "direction" "directly" "distance" "district" "do"
"does" "doing" "done" "dont" "door" "doubt" "down" "dr" "drive" "due"
"during" "each" "earlier" "early" "earth" "east" "easy" "economic"
"education" "effect" "effective" "effects" "effort" "efforts" "eight"
"either" "elements" "else" "end" "england" "english" "enough" "entire"
"equipment" "especially" "established" "europe" "even" "evening" "ever"
"every" "everything" "evidence" "example" "except" "existence" "expect"
"expected" "experience" "extent" "eye" "eyes" "face" "fact" "faith" "fall"
"family" "far" "farm" "father" "fear" "federal" "feed" "feel" "feeling"
"feet" "felt" "few" "field" "figure" "figures" "filled" "final" "finally"
"find" "fine" "fire" "firm" "first" "fiscal" "five" "floor" "followed"
"following" "food" "foot" "for" "force" "forces" "foreign" "form" "former"
"forms" "forward" "found" "four" "free" "freedom" "french" "friend"
"friends" "from" "front" "full" "function" "further" "future" "game"
"gave" "general" "generally" "george" "get" "getting" "girl" "girls"
"give" "given" "gives" "glass" "go" "god" "going" "gone" "good" "got"
"government" "great" "greater" "green" "ground" "group" "groups" "growing"
"growth" "gun" "had" "hair" "half" "hall" "hand" "hands" "happened" "hard"
"has" "have" "having" "he" "head" "hear" "heard" "heart" "heavy" "held"
"hell" "help" "her" "here" "herself" "hes" "high" "higher" "him" "himself"
"his" "history" "hit" "hold" "home" "hope" "horse" "hospital" "hot"
"hotel" "hour" "hours" "house" "how" "however" "human" "hundred" "husband"
"idea" "ideas" "if" "ill" "im" "image" "immediately" "important" "in"
"include" "including" "income" "increase" "increased" "indeed"
"individual" "industrial" "industry" "influence" "information" "inside"
"instead" "interest" "international" "into" "involved" "is" "island"
"issue" "it" "its" "itself" "ive" "job" "john" "just" "justice" "keep"
"kennedy" "kept" "kind" "knew" "know" "knowledge" "known" "labor" "lack"
"land" "language" "large" "larger" "last" "late" "later" "latter" "law"
"lay" "lead" "leaders" "learned" "least" "leave" "led" "left" "length"
"less" "let" "letter" "letters" "level" "life" "light" "like" "likely"
"line" "lines" "list" "literature" "little" "live" "lived" "living"
"local" "long" "longer" "look" "looked" "looking" "lost" "lot" "love"
"low" "lower" "made" "main" "major" "make" "makes" "making" "man" "manner"
"mans" "many" "march" "market" "married" "mass" "material" "matter" "may"
"maybe" "me" "mean" "meaning" "means" "medical" "meet" "meeting" "member"
"members" "men" "merely" "met" "method" "methods" "middle" "might" "miles"
"military" "million" "mind" "minutes" "miss" "modern" "moment" "money"
"month" "months" "moral" "more" "morning" "most" "mother" "move" "moved"
"movement" "moving" "mr" "mrs" "much" "music" "must" "my" "myself" "name"
"nation" "national" "nations" "natural" "nature" "near" "nearly"
"necessary" "need" "needed" "needs" "negro" "neither" "never" "new" "next"
"night" "no" "non" "nor" "normal" "north" "not" "note" "nothing" "now"
"nuclear" "number" "numbers" "obtained" "obviously" "of" "off" "office"
"often" "oh" "old" "on" "once" "one" "ones" "only" "open" "opened"
"operation" "opportunity" "or" "order" "organization" "other" "others"
"our" "out" "outside" "over" "own" "paid" "paper" "part" "particular"
"particularly" "parts" "party" "passed" "past" "pattern" "pay" "peace"
"people" "per" "performance" "perhaps" "period" "person" "personal"
"persons" "physical" "picture" "piece" "place" "placed" "plan" "plane"
"planning" "plans" "plant" "play" "point" "points" "police" "policy"
"political" "pool" "poor" "population" "position" "possible" "post"
"power" "present" "president" "press" "pressure" "price" "principle"
"private" "probably" "problem" "problems" "process" "production"
"products" "program" "programs" "progress" "property" "provide" "provided"
"public" "purpose" "put" "quality" "question" "questions" "quite" "race"
"radio" "ran" "range" "rate" "rather" "reached" "reaction" "read"
"reading" "ready" "real" "really" "reason" "received" "recent" "recently"
"record" "red" "religion" "religious" "remember" "report" "reported"
"required" "research" "respect" "responsibility" "rest" "result" "results"
"return" "returned" "right" "river" "road" "room" "run" "running" "said"
"sales" "same" "sat" "saw" "say" "saying" "says" "school" "schools"
"science" "season" "second" "secretary" "section" "see" "seem" "seemed"
"seems" "seen" "self" "sense" "sent" "series" "serious" "served" "service"
"services" "set" "seven" "several" "shall" "she" "short" "shot" "should"
"show" "showed" "shown" "side" "similar" "simple" "simply" "since"
"single" "situation" "six" "size" "slowly" "small" "so" "social" "society"
"some" "something" "sometimes" "somewhat" "son" "soon" "sort" "sound"
"south" "southern" "soviet" "space" "speak" "special" "specific" "spirit"
"spring" "square" "st" "staff" "stage" "stand" "standard" "start"
"started" "state" "statements" "states" "stay" "step" "steps" "still"
"stock" "stood" "stop" "stopped" "story" "straight" "street" "strength"
"strong" "student" "students" "study" "subject" "such" "suddenly" "summer"
"sun" "support" "sure" "surface" "system" "systems" "table" "take" "taken"
"taking" "talk" "tax" "technical" "tell" "temperature" "ten" "term"
"terms" "test" "th" "than" "that" "thats" "the" "their" "them"
"themselves" "then" "theory" "there" "therefore" "theres" "these" "they"
"thing" "things" "think" "thinking" "third" "thirty" "this" "those"
"thought" "three" "through" "through" "throughout" "thus" "time" "times"
"to" "today" "together" "told" "too" "took" "top" "total" "toward" "town"
"trade" "training" "treatment" "trial" "tried" "trouble" "true" "truth"
"try" "trying" "turn" "turned" "twenty" "two" "type" "types" "under"
"understand" "understanding" "union" "united" "university" "until" "up"
"upon" "us" "use" "used" "using" "usually" "value" "values" "various"
"very" "view" "voice" "volume" "waiting" "walked" "wall" "want" "wanted"
"war" "was" "washington" "wasnt" "water" "way" "ways" "we" "week" "weeks"
"well" "went" "were" "west" "western" "what" "whatever" "when" "where"
"whether" "which" "while" "white" "who" "whole" "whom" "whose" "why"
"wide" "wife" "will" "william" "window" "wish" "with" "within" "without"
"woman" "women" "word" "words" "work" "worked" "working" "works" "world"
"would" "wouldnt" "writing" "written" "wrong" "wrote" "year" "years" "yes"
"yet" "york" "you" "young" "your" "youre"))