stratagus-cvs
[Top][All Lists]
Advanced

[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")




reply via email to

[Prev in Thread] Current Thread [Next in Thread]