[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Stratagus-CVS] stratagus/data/ccl stratagus.lua
From: |
address@hidden |
Subject: |
[Stratagus-CVS] stratagus/data/ccl stratagus.lua |
Date: |
2 Jan 2004 11:37:27 +1100 |
CVSROOT: /home/strat
Module name: stratagus
Changes by: <address@hidden> 04/01/02 11:37:26
Modified files:
data/ccl : stratagus.lua
Log message:
Removed unit name
Patches:
Index: stratagus/data/ccl/stratagus.lua
diff -u stratagus/data/ccl/stratagus.lua:1.8
stratagus/data/ccl/stratagus.lua:1.9
--- stratagus/data/ccl/stratagus.lua:1.8 Thu Jan 1 10:29:20 2004
+++ stratagus/data/ccl/stratagus.lua Fri Jan 2 11:37:26 2004
@@ -26,7 +26,7 @@
-- along with this program; if not, write to the Free Software
-- Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
USA
--
--- $Id: stratagus.lua,v 1.8 2003/12/31 23:29:20 jsalmon3 Exp $
+-- $Id: stratagus.lua,v 1.9 2004/01/02 00:37:26 jsalmon3 Exp $
-- For documentation see stratagus/doc/ccl/ccl.html
--[[
@@ -435,35 +435,5 @@
Load("ccl/ranks.lua")
Load("ccl/menus.lua")
Load("ccl/cheats.lua")
-
--------------------------------------------------------------------------------
-
--- Test code to create male orc names.
---(define orc-first (list "B" "Er" "G" "Gr" "H" "P" "Pr" "R" "V" "Vr"))
---(define orc-middle (list "a" "i" "o" "u"))
---(define orc-last (list "dash" "dish" "dush" "gar" "gor" "gdush" "lo" "gdish"
--- "k" "lg" "nak" "rag" "rbag" "rg" "rk" "ng" "nk" "rt" "ol" "urk" "shnak"))
-
---(define (orc-name)
--- (string-append (nth (rand (length orc-first)) orc-first)
--- (nth (rand (length orc-middle)) orc-middle)
--- (nth (rand (length orc-last)) orc-last)))
-
--- Test code to create male human names.
---(define human-first (list "Au" "Gar" "Bo" "Natha" "Gwë" "Ann" "Ma"
--- "Ygd" "Ni" "Lau" "Fra" "O'" "Sul"))
---(define human-middle (list "ba" "ga" "ro" "na" "ji" "ria" "da" "li" "re"
"va"))
---(define human-last (list "nel" "mel" "mir" "ël" "len" "ll" "ril" "van"
--- "lin" "lien"))
-
---(define (human-name)
--- (string-append (nth (rand (length human-first)) human-first)
--- (nth (rand (length human-middle)) human-middle)
--- (nth (rand (length human-last)) human-last)))
-
---(define (gen-unit-name ut)
--- (orc-name))
-
--------------------------------------------------------------------------------
print("... ready!\n")
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Stratagus-CVS] stratagus/data/ccl stratagus.lua,
address@hidden <=