From: jch@netcom.com (Jack Hwang)
Subject: GameDirector: CIVCHEAT.DEF
Organization: Netcom - Online Communication Services (408 241-9760 guest)
Date: Thu, 31 Dec 1992 01:40:43 GMT


This JUDGE defintion does things similar to the well known
CIVCHEAT.EXE by Markus Baertschi, except for lacking the
range checking.

This is a scale-down from the Civ Map Info 1.3, which is
provided by Tom Kimball  tom@europa.lonestar.org

It has to be used with GameDirector V.1.1

Jack

==================== start from below ====================
#! GameDirector V. 1.1 or later

module "Civcheat Editor V.1.0" {
    desc "This JUDGE defintion does things similar to the well known"
    desc "CIVCHEAT.EXE by Markus Baertschi, except for lacking the"
    desc "range checking."
    desc " "
    desc "This is a scale-down from the Civ Map Info 1.3, which is"
    desc "provided by Tom Kimball  tom@europa.lonestar.org"
    desc " "
    desc "I implement this just for showing the power of GameDirector"
    desc "and JUDGE language.  Enjoy!"
    desc " "
    desc "                                    Jack Hwang 12/30/92"
    
    absolute "Game Progress Info" {
        desc "Game data for players' progress."
        
        field "Turn #" {
            data 0 2 uword
            entry 0 1 3 1 26 5 dec
        }
        
        field "Human player" {
            desc "Decimal, 0 - 7"
            desc " "
            desc "ID      COLORS          CIVILIZATION"
            desc "0       RED             Barbarians"
            desc "1       WHITE           Romans/Russians"
            desc "2       GREEN           Babylonians/Zulus"
            desc "3       DARK BLUE       Germans/French"
            desc "4       YELLOW          Aztecs/Egyptians"
            desc "5       LIGHT BLUE      Americans/Chinese"
            desc "6       PINK            English/Greek"
            desc "7       GREY            Indians/Mongols"
            data 2 1 ubyte
            entry 0 2 3 2 26 1 dec
        }
        
        field "Year" {
            desc "Negative means B.C.; positive means A.D."
            data 8 2 word
            entry 0 4 3 4 26 5 dec
        }
        
        field "Difficulty" {
            desc "Difficulty level"
            data 0x0a 2 uword
            entry 0 5 3 5 26 5 dec
        }
    }
        
    absolute "Red Civilization" {
        desc "Barbarians"

        field "Leader" {
            desc "Name of the leader of the civilization."
            data 0x10 14 ascii
            entry 0 2 3 2 28 14 asc
        }
        
        field "Plural Name" {
            desc "Plural name of the civilization."
            data 0x80 12 ascii
            entry 0 3 3 3 28 12 asc
        }
        
        field "Singular Name" {
            desc "Singular name of the civilization."
            data 0xe0 11 ascii
            entry 0 4 3 4 28 11 asc
        }
        
        field "Money" {
            desc "Treasury of the civilization."
            desc "0 - 65535"
            data 0x138 2 uword
            entry 0 5 3 5 28 5 dec
        }
        
        field "Bulbs" {
            desc "Resources for civilization advances"
            desc "0 - 65535"
            data 0x148 2 uword
            entry 0 6 3 6 28 5 dec
        }
    }

    absolute "White Civilization" {
        desc "Romans/Russians"
        
        field "Leader" {
            desc "Name of the leader of the civilization."
            data 0x1e 14 ascii
            entry 0 2 3 2 28 14 asc
        }
        
        field "Plural Name" {
            desc "Plural name of the civilization."
            data 0x8c 12 ascii
            entry 0 3 3 3 28 12 asc
        }
        
        field "Singular Name" {
            desc "Singular name of the civilization."
            data 0xeb 11 ascii
            entry 0 4 3 4 28 11 asc
        }
        
        field "Money" {
            desc "Treasury of the civilization."
            desc "0 - 65535"
            data 0x13a 2 uword
            entry 0 5 3 5 28 5 dec
        }
        
        field "Bulbs" {
            desc "Accumulated R&D for advances."
            desc "0 - 65535"
            data 0x14a 2 uword
            entry 0 6 3 6 28 5 dec
        }
    }

    absolute "Green Civilization" {
        desc "Babylonians/Zulus"
        field "Leader" {
            desc "Name of the leader of the civilization."
            data 0x2c 14 ascii
            entry 0 2 3 2 28 14 asc
        }
        
        field "Plural Name" {
            desc "Plural name of the civilization."
            data 0x98 12 ascii
            entry 0 3 3 3 28 12 asc
        }
        
        field "Singular Name" {
            desc "Singular name of the civilization."
            data 0xf6 11 ascii
            entry 0 4 3 4 28 11 asc
        }
        
        field "Money" {
            desc "Treasury of the civilization."
            desc "0 - 65535"
            data 0x13c 2 uword
            entry 0 5 3 5 28 5 dec
        }
        
        field "Bulbs" {
            desc "Accumulated R&D for advances."
            desc "0 - 65535"
            data 0x14c 2 uword
            entry 0 6 3 6 28 5 dec
        }
    }

    absolute "Dark Blue Civilization" {
        desc "Germans/French"
        
        field "Leader" {
            desc "Name of the leader of the civilization."
            data 0x3a 14 ascii
            entry 0 2 3 2 28 14 asc
        }
        
        field "Plural Name" {
            desc "Plural name of the civilization."
            data 0xa4 12 ascii
            entry 0 3 3 3 28 12 asc
        }
        
        field "Singular Name" {
            desc "Singular name of the civilization."
            data 0x101 11 ascii
            entry 0 4 3 4 28 11 asc
        }
        
        field "Money" {
            desc "Treasury of the civilization."
            desc "0 - 65535"
            data 0x13e 2 uword
            entry 0 5 3 5 28 5 dec
        }
        
        field "Bulbs" {
            desc "Accumulated R&D for advances."
            desc "0 - 65535"
            data 0x14e 2 uword
            entry 0 6 3 6 28 5 dec
        }
    }

    absolute "Yellow Civilization" {
        desc "Aztecs/Egyptians"
        
        field "Leader" {
            desc "Name of the leader of the civilization."
            data 0x48 14 ascii
            entry 0 2 3 2 28 14 asc
        }
        
        field "Plural Name" {
            desc "Plural name of the civilization."
            data 0xb0 12 ascii
            entry 0 3 3 3 28 12 asc
        }
        
        field "Singular Name" {
            desc "Singular name of the civilization."
            data 0x10c 11 ascii
            entry 0 4 3 4 28 11 asc
        }
        
        field "Money" {
            desc "Treasury of the civilization."
            desc "0 - 65535"
            data 0x140 2 uword
            entry 0 5 3 5 28 5 dec
        }
        
        field "Bulbs" {
            desc "Accumulated R&D for advances."
            desc "0 - 65535"
            data 0x150 2 uword
            entry 0 6 3 6 28 5 dec
        }
    }

    absolute "Light Blue Civilization" {
        desc "Americans/Chinese"
        field "Leader" {
            desc "Name of the leader of the civilization."
            data 0x56 14 ascii
            entry 0 2 3 2 28 14 asc
        }
        
        field "Plural Name" {
            desc "Plural name of the civilization."
            data 0xbc 12 ascii
            entry 0 3 3 3 28 12 asc
        }
        
        field "Singular Name" {
            desc "Singular name of the civilization."
            data 0x117 11 ascii
            entry 0 4 3 4 28 11 asc
        }
        
        field "Money" {
            desc "Treasury of the civilization."
            desc "0 - 65535"
            data 0x142 2 uword
            entry 0 5 3 5 28 5 dec
        }
        
        field "Bulbs" {
            desc "Accumulated R&D for advances."
            desc "0 - 65535"
            data 0x152 2 uword
            entry 0 6 3 6 28 5 dec
        }
    }

    absolute "Pink Civilization" {
        desc "English/Greek"
        
        field "Leader" {
            desc "Name of the leader of the civilization."
            data 0x64 14 ascii
            entry 0 2 3 2 28 14 asc
        }
        
        field "Plural Name" {
            desc "Plural name of the civilization."
            data 0xc8 12 ascii
            entry 0 3 3 3 28 12 asc
        }
        
        field "Singular Name" {
            desc "Singular name of the civilization."
            data 0x122 11 ascii
            entry 0 4 3 4 28 11 asc
        }
        
        field "Money" {
            desc "Treasury of the civilization."
            desc "0 - 65535"
            data 0x144 2 uword
            entry 0 5 3 5 28 5 dec
        }
        
        field "Bulbs" {
            desc "Accumulated R&D for advances."
            desc "0 - 65535"
            data 0x154 2 uword
            entry 0 6 3 6 28 5 dec
        }
    }

    absolute "Grey Civilization" {
        desc "Indians/Mongols"
        
        field "Leader" {
            desc "Name of the leader of the civilization."
            data 0x72 14 ascii
            entry 0 2 3 2 28 14 asc
        }
        
        field "Plural Name" {
            desc "Plural name of the civilization."
            data 0xd4 12 ascii
            entry 0 3 3 3 28 12 asc
        }
        
        field "Singular Name" {
            desc "Singular name of the civilization."
            data 0x12d 11 ascii
            entry 0 4 3 4 28 11 asc
        }
        
        field "Money" {
            desc "Treasury of the civilization."
            desc "0 - 65535"
            data 0x146 2 uword
            entry 0 5 3 5 28 5 dec
        }
        
        field "Bulbs" {
            desc "Accumulated R&D for advances."
            desc "0 - 65535"
            data 0x156 2 uword
            entry 0 6 3 6 28 5 dec
        }
    }
}


Newsgroups: comp.sys.ibm.pc.games