Markus Armbruster
cf942fbf1b
To make setup scripting more similar to test scripting. Also permits use of countries other than POGO there, but that isn't necessary right now. Setup scripts renamed from init_script to setup-POGO. Signed-off-by: Markus Armbruster <armbru@pond.sub.org>
34 lines
566 B
Text
34 lines
566 B
Text
edit c 0 T 400
|
|
des * -
|
|
des -12:11,0 .
|
|
des -1:0,-8:7 .
|
|
add 1 1 1 p
|
|
add 2 2 2 p
|
|
add 3 3 3 p
|
|
add 4 4 4 p
|
|
add 5 5 5 p
|
|
add 6 6 6 v
|
|
add 7 7 7 v
|
|
add 98 98 98 g
|
|
give m * 1
|
|
setsect ow * ?xloc>0&yloc>0 1
|
|
setsect ow * ?xloc<-1&yloc>0 2
|
|
setsect ow * ?xloc>0&yloc<0 3
|
|
give m * ?own=0 -1
|
|
give c * ?own#0 1
|
|
des 1,-1 h
|
|
setse av 1,-1 9999
|
|
give l 1,-1 9999
|
|
give h 1,-1 9999
|
|
give o 1,-1 9999
|
|
give r 1,-1 9999
|
|
give m 1,-1 999
|
|
buil s 1,-1 cs 5 100
|
|
des 1,-1 *
|
|
buil p 1,-1 f1 5 100
|
|
des 1,-1 !
|
|
buil l 1,-1 sup 5 100
|
|
des 1,-1 n
|
|
buil n 1,-1 10kt 5
|
|
edit l 3,-1 L 1,-1
|
|
edit c 1/2/3/4/5 t 0 s 4
|