;
; Events text for Mars Colonization Scenario
; Copyright(c) 1997, MicroProse Studios Inc.
;
; Modified by Kestrel18@bigpond.com for Test-of-Time MARS Scenario - Vers 1.1
;

@BEGINEVENTS

@INITFLAG

@DEBUG

;
; Flags
; -----
;
; 0   not used
; 1   not used
; 2   not used
; 3   not used
; 4   not used
; 5   not used
; 6   not used
; 7   not used
; 8   not used
; 9   not used
; 10  not used
; 11  not used
; 12  not used
; 13  not used
; 14  not used
; 15  not used
; 16  not used
; 17  not used
; 18  not used
; 19  not used
; 20  not used
; 21  not used
; 22  not used
; 23  not used
; 24  not used
; 25  not used
; 26  not used
; 27  not used
; 28  not used
; 29  not used
; 30  not used
; 31  not used


;
;
;
;

@IF
SCENARIOLOADED
@THEN
PLAYCDTRACK
21
DONTPLAYWONDERS
@ENDIF

; @IF
; TURN
; Turn=1
; @THEN
; TEXT
; ^^Thanks you for volunteering to test this scenario.
; ^
; ^^WARNING ! This is a Version 1.0 BETA version only.
; ^
; ^^Whilst nothing catastrophic is likely to occur,
; ^^please note that Bug-testing is not necessarily complete.
; ^
; ^
; ENDTEXT
; @ENDIF


@IF
TURN
Turn=1
@THEN
TEXT
^^=The Situation=
^
^Five governments established bases on Mars. Working together, they managed to
^convert large portions of the Martian polar ice caps into a useable water supply,
^beginning the long process of changing Mars into a human friendly world.
^
^Just as they had completed the first steps, and were ready to begin the next step
^of creating a breathable atmosphere, something went wrong back home.
^
ENDTEXT
@ENDIF


@IF
TURN
Turn=2
@THEN
TEXT
^Communications with Earth have ceased without warning; even navigational telemetry
^from the Mars orbiters has stopped. Assuming the worst -- a major war, the end
^of civilization, or both -- the colonists have succumbed to irrationality. 
^
^Contact between the various bases has been cut off, and attitudes have 
^grown extremely cold between the various factions stranded on Mars.
^
^Dissident humans who believe that communications were cut off intentionally 
^have revolted and set up their own base. They refer to themselves as "Martians". 
^Yet other hostile, anarchic factions also roam the surface of the red planet.
ENDTEXT
@ENDIF


@IF
TURN
Turn=3
@THEN
TEXT
^As leader of one of the bases, you have a choice. You can seek to conquer your
^neighbors and unify Mars by force first and then strive to regain contact with 
^Earth and find out what has happened there, or you can try to return to Earth 
^to build up your forces there, if possible, before returning back again to Mars
^to ensure that no other "heretical" factions survive.
^
^^To win, your faction must reign supreme !
^
^^Good luck!
ENDTEXT
@ENDIF

;
; Unit build information
;
; when any of these special units are built
; notify the player of their special capabilities

@IF
CityProduction
builder=anybody
unit=Robot Engineer
@THEN
JustOnce
Text
The new Robot Engineer unit type works twice as quickly as
Colonists or Terraformer Crews in all ordinary tasks.
(Road building, Greenhouse Construction, Mining etc).
It can also use the Terraform ("o") order to drastically
change the terrain type in a square, 
once Terraforming has been discovered.
EndText
@ENDIF

@IF
CityProduction
builder=anybody
unit=Borer
@THEN
JustOnce
Text
The new Borer unit type can dig Tunnel-Entrances
to the Martian underground as well as convert underground
terrain to navigable "Tunnels". It can also cross "impassable"
terrain such as the Precipitous Crags of Mars.
EndText
@ENDIF

@IF
CityProduction
builder=anybody
unit=Auto Recon Unit
@THEN
JustOnce
Text
The new "Auto Recon Unit" can cross the Precipitous Crags of Mars.
EndText
@ENDIF

@IF
CityProduction
builder=anybody
unit=Terraformer Crew
@THEN
JustOnce
Text
The new Terraformer Crew unit can use the
Terraform ("o") order to drastically
change the terrain type in a square.
EndText
@ENDIF


@IF
CityProduction
builder=anybody
unit=Protector
@THEN
JustOnce
Text
The newly built Protector naval unit can attack enemy
shipping covertly as well as carry small numbers of
troops in relative secrecy.
EndText
@ENDIF

@IF
CityProduction
builder=anybody
unit=Submarine
@THEN
JustOnce
Text
The newly built Submarine naval unit can see other submarines,
It is capable of descending into the deep ocean and travelling
in the undersea realm, where it can sit
silent and hidden, waiting to destroy other submarines
or rise to the surface to harass enemy shipping
or to launch missiles against an unsuspecting enemy.
Use the "Transit Realm" order to cause it to 'dive'
and to return it to the sea's surface.
EndText
@ENDIF

; when the first shuttle is built, notify
; the player of its imminent intermap capability

@IF
CityProduction
builder=anybody
unit=Shuttle
@THEN
JustOnce
Text
The newly built Shuttle unit is capable of
travelling between the planets, carrying
certain units with it. Because it uses water
as reaction-mass it must take off and land
over sea or ocean. Use the "Transit Realm"
order to move it between the planets.
EndText
@ENDIF


@IF
CityProduction
builder=anybody
unit=Skimmer
@THEN
JustOnce
Text
The newly built Skimmer unit is capable of
travelling between the planets. Because it uses water
as reaction-mass it must take off and land
over sea or ocean. Use the "Transit Realm"
order to move it between the planets.
EndText
@ENDIF



@IF
CityProduction
builder=anybody
unit=AB Freight
@THEN
JustOnce
Text
The newly built AB Freight unit is the only unit
small enough to travel in underground tunnels
carrying Freight to, from and between any
underground cities you may build.
EndText
@ENDIF




;
; Let player know wheen certain units are available
;
;


@IF
RECEIVEDTECHNOLOGY
receiver=anybody
technology=95
@THEN
JustOnce
Text
With the discovery of the techniques of "Deep Tunnelling"
the new "Borer" unit can be constructed. This unit can dig
Tunnel-Entrances into the Martian underground as well as 
convert underground terrain to navigable "Tunnels", allowing
underground cities, safe from sandstorms and meteroids,
to be built. It also has the ability to cross "impassable"
terrain such as the Precipitous Crags of Mars.
EndText
@ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=anybody
technology=81
@THEN
JUSTONCE
TEXT
^
^^The discovery of the Thermo Suit allows the 
^^creation of wide-ranging, fast-moving Field Scientists.
^
ENDTEXT
@ENDIF


@IF
RECEIVEDTECHNOLOGY
receiver=anybody
technology=4
@THEN
JUSTONCE
TEXT
^
^^The discovery of Arean Geology allows the 
^^training of wide-ranging Geologists.
^^(This unit functions as a Diplomat.)
^
ENDTEXT
@ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=anybody
technology=62
@THEN
JUSTONCE
TEXT
^
^^The discovery of Self-Repairing Units gives Mechanics lots of
^^free time to get into trouble.
^^(This unit functions as a Spy.)
^
ENDTEXT
@ENDIF



;
;
;
;  When return to Earth accomplished allow certain units to travel there.
;
;

@IF
ReceivedTechnology
receiver=anybody
technology=93
@THEN
JustOnce
Transport
Unit=Shuttle
State=On
Mode=Native
Type=2
@ENDIF

@IF
ReceivedTechnology
receiver=anybody
technology=93
@THEN
JustOnce
Transport
Unit=Skimmer
State=On
Mode=Native
Type=2
@ENDIF

@IF
ReceivedTechnology
receiver=anybody
technology=93
@THEN
JustOnce
Transport
Unit=Hi-Die Tanker
State=On
Mode=Native
Type=2
@ENDIF

@IF
ReceivedTechnology
receiver=anybody
technology=93
@THEN
JustOnce
Transport
Unit=Shuttle
State=On
Mode=Native
Type=5
@ENDIF

@IF
ReceivedTechnology
receiver=anybody
technology=93
@THEN
JustOnce
Transport
Unit=Skimmer
State=On
Mode=Native
Type=5
@ENDIF

@IF
ReceivedTechnology
receiver=anybody
technology=93
@THEN
JustOnce
Transport
Unit=Hi-Die Tanker
State=On
Mode=Native
Type=5
@ENDIF


;
;
; Terrain changes
;
;

;
;
;
; Turn based events folow
;
;

@IF
TURN
turn=92
@THEN
JUSTONCE
TEXT
^Major Meteoric impact reported.
ENDTEXT
PlayWaveFile
Jetcrash.wav
CHANGETERRAIN
Map=2
terraintype=8
maprect
108,100,118,100,118,110,108,110
@ENDIF

@IF
TURN
turn=133
@THEN
JUSTONCE
TEXT
^Major Meteoric impacts reported near the Martian Equator.
ENDTEXT
PlayWaveFile
Dreadnought.Wav
CHANGETERRAIN
Map=2
terraintype=8
maprect
19,51,23,51,23,61,19,61
@ENDIF


@IF
TURN
turn=144
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
CHANGETERRAIN
Map=2
terraintype=0
maprect
47,11,51,11,51,17,47,17
@ENDIF


@IF
TURN
turn=182
@THEN
JUSTONCE
TEXT
^Major Meteoric impacts reported near the Martian Equator.
ENDTEXT
PlayWaveFile
Dreadnought.Wav
CHANGETERRAIN
Map=2
terraintype=8
maprect
19,51,23,51,23,61,19,61
@ENDIF

@IF
TURN
turn=220
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^A lingering dust storm has arisen
^^in the Northern temperate zone.
^
^^The data on this storm suggest that
^^topographical changes are likely.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
32,26,36,26,36,32,32,32
@ENDIF


@IF
TURN
turn=221
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
CHANGETERRAIN
Map=2
terraintype=0
maprect
36,28,38,28,38,34,36,34
@ENDIF


@IF
TURN
turn=222
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
CHANGETERRAIN
Map=2
terraintype=0
maprect
40,26,43,27,43,31,42,30
@ENDIF


@IF
TURN
turn=223
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
CHANGETERRAIN
Map=2
terraintype=0
maprect
35,19,39,19,39,21,35,21
@ENDIF




@IF
TURN
turn=242
@THEN
JUSTONCE
TEXT
^Meteorite showers near the Martian South Pole.
ENDTEXT
PlayWaveFile
Dreadnought.Wav
CHANGETERRAIN
Map=2
terraintype=8
maprect
77,107,83,107,83,113,77,113
@ENDIF


@IF
TURN
turn=268
@THEN
JUSTONCE
TEXT
^Meteoric impacts reported near the Martian South Pole.
ENDTEXT
PlayWaveFile
Jetcrash.wav
CHANGETERRAIN
Map=2
terraintype=8
maprect
51,99,58,100,58,108,51,107
@ENDIF



@IF
TURN
turn=279
@THEN
JUSTONCE
TEXT
^Meteorite showers in the Martian North Temperate Zone.
ENDTEXT
PlayWaveFile
Dreadnought.Wav
CHANGETERRAIN
Map=2
terraintype=8
maprect
58,26,68,26,68,34,58,34
@ENDIF

@IF
TURN
turn=328
@THEN
JUSTONCE
TEXT
^Meteorite showers near the Martian South Pole.
ENDTEXT
PlayWaveFile
Dreadnought.Wav
CHANGETERRAIN
Map=2
terraintype=8
maprect
138,84,146,84,146,94,138,94
@ENDIF

@IF
TURN
turn=359
@THEN
JUSTONCE
TEXT
^Meteoric impact reported near Marsopolis.
ENDTEXT
PlayWaveFile
Jetcrash.wav
CHANGETERRAIN
Map=2
terraintype=8
maprect
124,60,126,60,126,62,124,62
@ENDIF



@IF
TURN
turn=424
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^An intense lingering dust storm has arisen
^^in the general area of Kuiper crater.
^
^^Residents there are cautioned not to venture aboveground
^^until the anomalous conditions have abated.
^
^^The data on this storm suggest that topographical changes are likely.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
89,91,95,91,95,99,89,99
@ENDIF

;
; This is a big one, so also block undersea.
;

@IF
TURN
turn=444
@THEN
JUSTONCE
CHANGETERRAIN
Map=3
terraintype=0
maprect
89,91,95,91,95,99,89,99
@ENDIF


;
;
; Random events follow
;



@IF
RANDOMTURN
Denominator=375
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^A massive dust storm has arisen in the Vasitas Borealis,
^^near Agassiz crater.
^
^^Residents there are cautioned not to venture aboveground
^^until the anomalous conditions have abated.
^
^^The data on this storm suggest that topographical changes are likely.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
112,16,118,16,118,22,112,22
@ENDIF

@IF
RANDOMTURN
Denominator=375
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^A high-velocity dust storm has arisen north of the Utopia Planitia.
^
^^Residents there are cautioned not to venture aboveground
^^until the anomalous conditions have abated.
^
^^The data on this storm suggest that topographical changes are likely.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
43,19,51,19,51,27,43,27
@ENDIF

@IF
RANDOMTURN
Denominator=375
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^A moderate dust storm has arisen west of the Hellespontus Montes.
^
^^Residents there are cautioned not to venture aboveground
^^until the dangerous conditions have abated.
^
^^The data on this storm suggest that topographical changes are likely.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
10,82,16,82,16,90,10,90
@ENDIF


@IF
RANDOMTURN
Denominator=425
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Sandstorms
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
33,41,39,41,37,47,31,47
@ENDIF


@IF
RANDOMTURN
Denominator=375
@THEN
JUSTONCE
PLAYWAVEFILE
Jetcrash.wav
TEXT
^^=EMERGENCY ALERT=
^
^^Seismic instruments have detected a meterorite impact in the
^^northern reaches of the Amazonis Planitia.
^
^^The object was not massive enough to cause global repercussions,
^^but the local effects have been devastating.
^
^^Any equipment or personnel in that area must be assumed lost.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
85,45,87,45,87,47,85,47
@ENDIF


@IF
RANDOMTURN
Denominator=475
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
34,56,38,56,38,60,34,60
@ENDIF



@IF
RANDOMTURN
Denominator=475
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
20,46,22,46,22,52,20,52
@ENDIF


@IF
RANDOMTURN
Denominator=475
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
37,25,45,25,45,31,37,31
@ENDIF


@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
16,94,24,94,24,104,16,104
@ENDIF

@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
17,87,21,87,21,93,17,93
@ENDIF



@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
57,55,59,55,59,59,57,59
@ENDIF



@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
59,57,61,57,61,61,59,61
@ENDIF





@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
104,24,110,24,110,26,104,26
@ENDIF





@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Large Dust storms east of Marsopolis.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
109,25,111,25,111,31,109,31
@ENDIF





@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Dust storms east of Marsopolis.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
107,21,113,21,113,27,107,27
@ENDIF


@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Dust storms west of Marsopolis.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
32,22,44,22,44,30,32,30
@ENDIF




@IF
RANDOMTURN
Denominator=575
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
23,95,27,95,27,99,23,99
@ENDIF



@IF
TURN
Turn=420
@THEN
JUSTONCE
PLAYWAVEFILE
S-storm.wav
TEXT
^^=GLOBAL ALERT=
^
^^Moderate dust storms.
^
ENDTEXT
CHANGETERRAIN
Map=2
terraintype=0
maprect
51,17,59,17,59,27,51,27
@ENDIF


@IF
TURN
Turn=421
@THEN
JUSTONCE
CHANGETERRAIN
Map=3
terraintype=0
maprect
51,17,59,17,59,27,51,27
@ENDIF




;
;
;   *** RETURN TO EARTH - Land a number of Units randomly for the discovering tribe
;
;
;
;
;


; @IF
; RECEIVEDTECHNOLOGY
; receiver=French
; technology=93
; @THEN
; JUSTONCE
; PLAYWAVEFILE
; win.wav
; TEXT
; ^
; ^^The French have landed a functioning, manned ERV on Earth!
; ^
; ^The Earth Return Vehicle lands in Paris to find that massive volcanic activity has
; ^caused long-term turmoil in the ionosphere, preventing any contact with the Martian
; ^colonies. With all available resources funneled into the ongoing international
; ^relief efforts, spacecraft launches have been out of the question. Everyone is glad
; ^the colony has survived, but they still have their own problems.
; ^
; ^^Meanwhile, back on Mars...
; ^
; ^The French success in regaining contact with the home planet reminds the leaders of
; ^the other colonies that the work of settling Mars was once a cooperative international
; ^effort. In hopes that it's not too late to regain that lost glory, they meet and
; ^unanimously elect to combine all of their colonies and forces under the superior
; ^leadership of the French colony.
; ^
; ^^(You can continue playing, but the scenario is essentially over.)
; ENDTEXT
; @ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=Americans
technology=93
@THEN
JUSTONCE
TEXT
^
^^The Americans have landed a functioning, manned ERV on Earth!
^
^The Earth Return Vehicle lands in Washington to find that massive volcanic activity has
^caused long-term turmoil in the ionosphere, preventing any contact with the Martian
^colonies. With all available resources funneled into the ongoing international
^relief efforts, spacecraft launches have been out of the question. Everyone is glad
^the colony has survived, but they still have their own problems.
^
ENDTEXT
@ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=Brazilians
technology=93
@THEN
JUSTONCE
TEXT
^
^^The Brazilians have landed a functioning, manned ERV on Earth!
^
^The Earth Return Vehicle lands in Buenos Aries to find that massive volcanic activity has
^caused long-term turmoil in the ionosphere, preventing any contact with the Martian
^colonies. With all available resources funneled into the ongoing international
^relief efforts, spacecraft launches have been out of the question. Everyone is glad
^the colony has survived, but they still have their own problems.
^
ENDTEXT
@ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=Martians
technology=93
@THEN
JUSTONCE
TEXT
^
^^The Martians have landed a functioning, manned ERV on Earth!
^
^The Earth Return Vehicle lands to find that massive volcanic activity has caused
^long-term turmoil in the ionosphere, preventing any contact with the Martian
^colonies. With all available resources funneled into the ongoing international
^relief efforts, spacecraft launches have been out of the question. The dissident
^Martians are not satisfied, and they begin the systematic destruction of Earth's
^surviving population.
^
^^Meanwhile, back on Mars...
^
^The Martian revolutionaries' return to the home planet and their immediate attack
^reminds the other colonies that the work of settling Mars was once a cooperative
^international effort. In hopes that it's not too late to save their home planet,
^they meet and unanimously elect to combine forces to eradicate the Martians.
^
ENDTEXT
MAKEAGGRESSION
who=Americans
whom=Martians
@ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=Martians
technology=93
@THEN
JUSTONCE
MAKEAGGRESSION
who=Brazilians
whom=Martians
@ENDIF

; @IF
; RECEIVEDTECHNOLOGY
; receiver=Martians
; technology=93
; @THEN
; JUSTONCE
; MAKEAGGRESSION
; who=Indians
; whom=Martians
; @ENDIF

; @IF
; RECEIVEDTECHNOLOGY
; receiver=Martians
; technology=93
; @THEN
; JUSTONCE
; MAKEAGGRESSION
; who=French
; whom=Martians
; @ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=Martians
technology=93
@THEN
JUSTONCE
MAKEAGGRESSION
who=Australians
whom=Martians
@ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=Martians
technology=93
@THEN
JUSTONCE
MAKEAGGRESSION
who=Ukrainians
whom=Martians
@ENDIF

;
; @IF
; RECEIVEDTECHNOLOGY
; receiver=Indians
; technology=93
; @THEN
; JUSTONCE
; TEXT
; ^
; ^^The Indians have landed a functioning, manned ERV on Earth!
; ^
; ^The Earth Return Vehicle lands in New Delhi to find that massive volcanic activity has
; ^caused long-term turmoil in the ionosphere, preventing any contact with the Martian
; ^colonies. With all available resources funneled into the ongoing international
; ^relief efforts, spacecraft launches have been out of the question. Everyone is glad
; ^the colony has survived, but they still have their own problems.
; ^
; ENDTEXT
; @ENDIF
;

@IF
RECEIVEDTECHNOLOGY
receiver=Australians
technology=93
@THEN
JUSTONCE
TEXT
^
^^The Australians have landed a functioning, manned ERV on Earth!
^
^The Earth Return Vehicle lands in Sydney to find that massive volcanic activity has
^caused long-term turmoil in the ionosphere, preventing any contact with the Martian
^colonies. With all available resources funneled into the ongoing international
^relief efforts, spacecraft launches have been out of the question. Everyone is glad
^the colony has survived, but they still have their own problems.
^
ENDTEXT
@ENDIF

@IF
RECEIVEDTECHNOLOGY
receiver=Ukrainians
technology=93
@THEN
JUSTONCE
TEXT
^
^^The Ukrainians have landed a functioning, manned ERV on Earth!
^
^The Earth Return Vehicle lands in Kiev to find that massive volcanic activity has
^caused long-term turmoil in the ionosphere, preventing any contact with the Martian
^colonies. With all available resources funneled into the ongoing international
^relief efforts, spacecraft launches have been out of the question. Everyone is glad
^the colony has survived, but they still have their own problems.
^
ENDTEXT
@ENDIF

@IF
ReceivedTechnology
receiver=anybody
technology=92
@THEN
JustOnce
Transport
Unit=Robot Engineer
State=On
Mode=Build
Type=2
TEXT
^^Quantum Transport Discovered !
ENDTEXT
@ENDIF

; And they can also build Earth to Mars Transporters

@IF
ReceivedTechnology
receiver=anybody
technology=92
@THEN
JustOnce
Transport
Unit=Robot Engineer
State=On
Mode=Build
Type=5
@ENDIF

;
;
; TODO - Don't let the people on Earth talk with, trade with Mars until return to Earth
;

;
; Prevent Interplanetary Negotiations
; -----------------------------------

; prohibit negotiations between Mars and Earth Unitil contact re-established


@IF
Negotiation
talkermask=0b00000000000001111100111110011111
listenermask=0b00000000000110000011000001100000
@THEN
@ENDIF

; prohibit negotiations between aliens and humans

@IF
Negotiation
talkermask=0b00000000000110000011000001100000
listenermask=0b00000000000001111100111110011111
@THEN
@ENDIF


;
; A Faction has discovered "Return to Earth"
; ------------------------------------------

; when Trigger Tech (93) (X1) "Return to Earth" is discovered,
; allow the discovering tribe to negotiate
; with the other planet (as talker)

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
Negotiator
who=triggerreceiver
type=talker
state=clear
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
Negotiator
who=triggerreceiver
type=listener
state=clear
@ENDIF

; play appropriate sound effects
; create arriving units on Earth map

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
PLAYWAVEFILE
RocketMan.wav
CreateUnit
owner=TriggerAttacker
unit=Field Scientist
veteran=Yes
homecity=none
randomize
locations
80,50,0
75,51,0
81,45,0
75,45,0
70,40,0
70,44,0
75,41,0
65,35,0
65,41,0
70,36,0
endlocations
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Colonist
veteran=No
homecity=none
randomize
locations
78,48,0
73,43,0
68,38,0
77,43,0
72,38,0
67,47,0
73,49,0
68,42,0
77,37,0
72,46,0
endlocations
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Ultralight
veteran=No
homecity=none
randomize
locations
78,46,0
73,41,0
68,36,0
77,41,0
72,36,0
67,45,0
73,47,0
68,40,0
77,35,0
72,44,0
endlocations
@ENDIF


@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
CreateUnit
owner=TriggerAttacker
unit=Armoured Marines
veteran=No
homecity=none
randomize
locations
78,50,0
74,50,0
79,45,0
74,44,0
68,40,0
69,45,0
74,40,0
64,34,0
64,40,0
69,35,0
endlocations
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Armoured Marines
veteran=No
homecity=none
randomize
locations
77,47,0
72,42,0
67,37,0
76,42,0
71,37,0
67,47,0
72,48,0
67,43,0
76,36,0
71,45,0
endlocations
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Adapted Clones
veteran=No
homecity=none
randomize
locations
75,47,0
70,42,0
65,37,0
74,42,0
69,37,0
65,47,0
70,48,0
65,43,0
74,36,0
69,45,0
endlocations
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Droppers
veteran=Yes
homecity=none
randomize
locations
77,49,0
72,44,0
67,39,0
76,44,0
71,39,0
69,45,0
72,46,0
67,43,0
76,38,0
71,43,0
endlocations
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Envoy
veteran=Yes
homecity=none
randomize
locations
76,46,0
75,43,0
66,38,0
75,45,0
74,38,0
69,47,0
71,49,0
66,43,0
75,37,0
74,26,0
endlocations
@ENDIF

;
;  For larger Spacecraft ...
;
;

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Colonist
veteran=No
homecity=none
randomize
locations
74,36,0
67,35,0
70,48,0
79,41,0
73,41,0
65,45,0
66,48,0
63,37,0
60,44,0
60,08,0
endlocations
@ENDIF

@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Cyborg
veteran=No
homecity=none
randomize
locations
75,35,0
69,35,0
72,48,0
79,41,0
73,41,0
65,47,0
67,49,0
63,37,0
61,45,0
61,07,0
endlocations
@ENDIF


@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Armoured Marines
veteran=No
homecity=none
randomize
locations
70,20,0
54,24,0
49,41,0
47,03,0
41,31,0
41,45,0
32,38,0
56,40,0
38,08,0
48,24,0
endlocations
@ENDIF



@IF
ReceivedTechnology
Receiver=Anybody
Technology=93
@THEN
JustOnce
CreateUnit
owner=TriggerAttacker
unit=Mechanic
veteran=Yes
homecity=none
randomize
locations
70,22,0
54,28,0
49,43,0
47,05,0
41,33,0
41,47,0
32,36,0
56,40,0
39,09,0
48,24,0
endlocations
@ENDIF




@ENDEVENTS
