[CB..]

for world war one fans this game is perfect...


can't really fault it at all...the ship models are worth it by them selves..
and with a bit of work the campaign can be as fully dynamic as SH3/4
so it becaomes endlessly replayable

here's the latest test i've been experimenting with for randomising elements of the missions..(and randomisation is the only thing that seperates SH3/4 from being purely scripted)

////////////////
# USchule 1
id mysim
id l1
id u2
int num
int num1
int num2
int num3
phase init
SetDescriptionMapTexture "ordermap_nordsee.jpg"
SetTimeLimit $0
StartTime 10.0,0.0
StartDate 1914,5,5

ChangeGeoPivot 10.312,54.554
irandom [num1],$1,$3
if
sameint [num1],$1
then
Weather "sun"
endif
if
sameint [num1],$2
then
Weather "mgrain"
endif
if
sameint [num1],$3
then
Weather "sunrise"
endif

CreateSceneObject [l1],"Zeppelin"
SceneSetPositionAndRotation [l1],200,500,0,0,0,0

CreateSceneObject [u2],"u35"
SceneSetPositionAndRotation [u2],50,0,0,0,0,0

CreateSimulationObject [mysim],"u35"
SetPositionGeo [mysim],10.312,54.554,0
BindToController [mysim]

irandom [num],$1,$3
if
sameint [num],$1
then
DefineMissionGoal $0,"StayArea", 10.446, 54.667, 5000, $1
SetMissionGoalText $0,"Go to Target Area 1",$1,"Target Area 1"
endif
if
sameint [num],$2
then
DefineMissionGoal $0,"StayArea", 10.446, 58.667, 15000, $1
SetMissionGoalText $0,"Go to Target Area 1",$1,"Target Area 1"
endif
if
sameint [num],$3
then
DefineMissionGoal $0,"StayArea", 10.446, 56.667, 15000, $1
SetMissionGoalText $0,"Go to Target Area 1",$1,"Target Area 1"
endif

DefineMissionGoal $1,"StayArea", 10.557, 54.538, 5000, $1
SetMissionGoalText $1,"Go To Target Area 2",$1,"Target Area 2"
DefineMissionGoal $2,"StayArea", 10.266, 54.485, 5000, $1,$3
SetMissionGoalText $2,"Go To Home Port",$1,"Home Port"

#Mission
ApplyStateEngine $0,"TradeRouteFour#Borneo,1#-1.698,56.719#1.593,53.601#6.840,54.450#-1.698,56.719#15"
ApplyStateEngine $0,"TradeRouteFour#Berberis,2#2.380,51.776#4.047,5 5.892#-2.069,58.676#5.218,54.278#7"
ApplyStateEngine $0, "Traderoutefour#Prometheus,3#-2.704,56.143#-0.795,56.081#0.858,53.377#1.975,52.607#10"
irandom [num2],$1,$3
if
sameint [num2],$1
then
AddPositionTracker $1,$030,"Von Admiralität.\\To .\U-Boote.\Hostile contact.\\Position: %s\Course: %d\\Instructions,\if possible.\Attack.\if current orders\allow!"
endif
if
sameint [num2],$2
then
AddPositionTracker $2,$030,"Von Admiralität.\\To .\U-Boote.\Enemy contact.\\Position: %s\Course: %d\\Instructions,\Confirm this contact.\ And Attack.\if current orders allow\Kaptain!"
endif
if
sameint [num2],$3
then
AddPositionTracker $3,$030,"Von Admiralität.\\To .\U-Boote.\British contact.\\Position: %s\Course: %d\\Instructions,\Confirm this contact.\ And Attack.\if current orders allow\Kaptain!"
endif
irandom [num3],$1,$3
if
sameint [num3],$1
then
AddRandomShips "Attack#E34#10.557,54.538,200000#20",120
endif
if
sameint [num3],$2
then
AddRandomShips "Attack#zerst2#10.557,54.538,200000#20",020
endif
if
sameint [num3],$3
then
AddRandomShips "Attack#Berberis#10.557,54.538,200000#20",020
endif


EveryFrame

CompleteOnGoal "Tutorial Mission ended.",$4
Endphase
end

////////////////



here the
weather
mission objectives
dynamic radio messages
and
enemy warship patrols
are each individualy randomised so that no two patrols are ever likely to be the same..

still testing ---but once i'm comfortable and a little more fluent in the codeand i get the time (and in the mood lol)
i'll run up an early war campaign with as much randomisation as i have the patience to incorporate...the testing side is the bore of all this

would love to see what an expert coder could do with this engine...it is superb