File: loop.g

package info (click to toggle)
xconq 7.1.0-7
  • links: PTS
  • area: main
  • in suites: hamm
  • size: 7,056 kB
  • ctags: 7,960
  • sloc: ansic: 88,493; perl: 2,057; sh: 1,766; makefile: 1,110; csh: 81; awk: 47; lisp: 39
file content (93 lines) | stat: -rw-r--r-- 1,798 bytes parent folder | download | duplicates (3)
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
(game-module "loop"
  (blurb "Thrash the mplayer")
  (title "Put the mplayer into an endless loop")
  (variants
    (see-all true)
    (world-size (40 20 360)))
)

(unit-type i (name "infantry") (char "i"))
(unit-type / (name "base") (char "/"))
(unit-type @ (name "city") (char "@"))

(add i image-name "soldiers")
(add / image-name "airbase")
(add @ image-name "city20")

(material-type fuel)
(material-type ammo)

(terrain-type plains (color "green") (image-name "plains") (char "+"))
(add plains alt-percentile-min   0)
(add plains alt-percentile-max 100)
(add plains wet-percentile-min   0)
(add plains wet-percentile-max 100)

(add (i / @) start-with (8 4 4))
(table favored-terrain 
  (u* t* 100)
  (/ t* 0)
)
(set country-separation-min 15)
(set country-separation-max 30)
(set country-radius-min 2)

(table productivity (u* t* 100))
(table unit-initial-supply 
  (/ m* 999) 
  (i m* (10 6))
)
(table unit-storage-x
  ((/ i) fuel (200 20))
  ((/ i) ammo (100 6))
)
(table base-production 
  (/ fuel 20)
  (/ ammo 10)
)
(table base-consumption (i fuel 1))
(table hp-per-starve (i fuel 1.00))
(table in-length 
  (u* m* 0)
  (/ m* -1)
)
(table out-length 
  (u* m* 0)
  (i m* -1)
)

(add i acp-per-turn 2)
(add i speed 100)
(table mp-to-enter-terrain 
  (u* t* 99)
  (i plains 1)
)
(table material-to-move (i fuel 1))

(table unit-size-as-occupant
  (u* u* 9999)
  (i / 1)
  (/ @ 1)
)
(add / capacity 4)
(add @ capacity 1)
(table occupant-max 
  (u* u* 0)
  (/ i 4)
  (@ / 1)
)
(table unit-size-in-terrain
  ((i / @) t* (4 16 16))
)
(add t* capacity 16)

(table damage 
  (u* u* 1)
  (u* @ 0)
)
(add (i / @) hp-max (2 5 20))
(table hit-chance (u* u* 50))
(table capture-chance  (i (/ @) 50))
(table protection (u* u* 50))
(table consumption-per-attack (u* ammo 1))
(table hit-by (u* ammo 1))