blob: c5362c4b354f68a2c6e1fc615301a716e7eb527f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
(in-package :ouat)
(defvar *english-scrabble-bag*
#.(format nil
"AAAAAAAAABBCCDDDDEEEEEEEEEEEEFFGGGHHJKLLLLMMNNNNNN~
OOOOOOOOPPQRRRRRRSSSSTTTTTTUUUUVVWWXYYZ??"))
(defvar *standard-board-eighth*
(list "3W"
".. 2W"
".. .. 2W"
"2L .. .. 2W"
".. .. .. .. 2W"
".. 3L .. .. .. 3L"
".. .. 2L .. .. .. 2L"
"3W .. .. 2L .. .. .. 2W"))
(defvar *standard*
(new-symmetric-square-layout *standard-board-eighth*))
(defvar *english-tile-list*
'(("A" 9 1 :VOWEL)
("B" 2 3 :CONSONANT)
("C" 2 3 :CONSONANT)
("D" 4 2 :CONSONANT)
("E" 12 1 :VOWEL)
("F" 2 4 :CONSONANT)
("G" 3 2 :CONSONANT)
("H" 2 4 :CONSONANT)
("I" 9 1 :VOWEL)
("J" 1 8 :CONSONANT)
("K" 1 5 :CONSONANT)
("L" 4 1 :CONSONANT)
("M" 2 3 :CONSONANT)
("N" 6 1 :CONSONANT)
("O" 8 1 :VOWEL)
("P" 2 3 :CONSONANT)
("Q" 1 10 :CONSONANT)
("R" 6 1 :CONSONANT)
("S" 4 1 :CONSONANT)
("T" 6 1 :CONSONANT)
("U" 4 1 :VOWEL)
("V" 2 4 :CONSONANT)
("W" 2 4 :CONSONANT)
("X" 1 8 :CONSONANT)
("Y" 2 4 :SOMETIMES)
("Z" 1 10 :CONSONANT)
("?" 2 0 :BLANK :name "blank")))
(defun create-tile-distribution (tile-list)
(let* ((num-tiles (length tile-list))
(tile-array (make-array (list (i1+ num-tiles))
:initial-element nil)))
(loop
for tile in tile-list
for index from 1 do
(destructuring-bind (text quantity score type
&key blank-text name)
tile
(setf blank-text (or blank-text
(and text (string-downcase text)))
name (or name text)
(aref tile-array index)
(make-tile :text text
:blank-text blank-text
:quantity quantity
:score score
:type type
:name name))))
tile-array))
(defvar *english*
(create-tile-distribution *english-tile-list*))
(defvar *standard-letter-mul-texts* #(nil nil "'" "\"" "^" "`"))
(defvar *standard-word-mul-texts* #(nil "." "-" "=" "~" "+"))
(defvar *twl-dawg* (new-dawg *twl-dawg-nodes*))
(defvar *twl-filldawg-nodes* nil)
(open-dawg *twl-filldawg-nodes*
(string-append *data-directory* "twl-2to8.filldawg"))
(defvar *twl-filldawg* (make-filldawg
:nodes *twl-filldawg-nodes*))
(defvar *twl* (make-lexicon :dawg *twl-dawg*
:filldawg *twl-filldawg*))
(defvar *vanilla* (make-rules :bingo-bonus 50
:max-scoreless-turns 6
:challenge-rule :double
:overdraw-rule :naspa
:time-limit '(25 . 0)
:time-penalty-duration '(1 . 0)
:time-penalty 10))
|
