Skip to content

Instantly share code, notes, and snippets.

@jmanikan

jmanikan/replgame_mod_v1_ottoman_battle.rb

Last active August 29, 2015 14:24
Show Gist options
  • Save jmanikan/9a5df741ef9209e3db8f to your computer and use it in GitHub Desktop.
Save jmanikan/9a5df741ef9209e3db8f to your computer and use it in GitHub Desktop.
Download ZIP
Raw
replgame_mod_v1_ottoman_battle.rb
module Constantinople
# Global variables for battle engines
$luck_factor = 0.20
$theodosian_walls = 15_000
$ottoman_army = 200_000
$eastern_roman_army = 15_000
$city_pop = 50_000
$western_reinforcements
$wall_damage
def game_intro # Introduces the game background
puts <<-END
Welcome to ROMA ETERNA!
Will you see Nova Roma remain in Christian hands up
to present or allow history to take its course to become today's Istanbul?
The year is 1453, and centuries-old Constantinople, capital of the
Eastern Roman Empire, grandest of all cities, Mistress of the East,
and guardian of Europe and Christendom for a thousand years, is but a shadow
of its former glory, and is being besieged by a powerful Turkish army,
hundreds-of-thousands strong.
By this time, what remains of the realm that once ruled most of the known
world has been reduced to a small sliver of land surrounding the immediate
environs of the city.
There are no more Roman legions - those armies that conquered powerful
empires and defended vast borders that kept the empire and its citizens
prosperous and secure.
They exist only in lore and legend.
Your objective, as either Roman Emperor Constantine XI or
Ottoman Sultan Memet II, is to ensure its survival or absolute conquest.
Your orders will be carried out by your most trusted advisors:
Count Nicopherus of Delos and Agha Izmir of Aleppo, respectively.
HOW TO PLAY: Just enter letter in parentheses of your choice! GOOD LUCK!
Begin!
Choose side: play as (R)oman or (O)ttoman?
END
end
def game_play # Game proper
case gets.chomp.downcase
when 'r' # Player has chosen to be Roman
puts <<-END
Stratego Solomon: My lord Constantine, the Turks are upon us,
and on you lies the destiny of our proud Roman race!
What is your command?
(N)egotiate, (f)ight, or (s)urrender the city?
END
case gets.chomp.downcase
when 'n' # Roman decides to negotiate
puts <<-END
Sending ambassador Nicopherus to the enemy camp. We should hear from
him shortly, that is, if he isn't beheaded sooner.
My lord, reports say Turkish demands are in. I am sending for their
representatives, and here they are!
(P)ay a large tribute in gold, submit as a (v)assal to Memet II, or
(c)onclude a treaty of friendship with him and give the hand of your
eldest daughter, the Princess Theodora Porphyrogenita, in marriage
to the Sultan's son and heir.
END
case gets.chomp.downcase
when 'p' # Roman will pay tribute
puts "How much of the treasury do we give? Enter a number
(do not underestimate what gold will do to change people's minds)."
gold_amount = gets.to_i # Sets condition based on input from player
if gold_amount < 1_000_000
puts <<-END
You see?! I told you so - the Sultan deemed your offer an insult
and has ordered his army to begin its assault! Your short-sightedness
has brought closer our doom!
You are a disgrace! I myself will go out to lead the defense,
and if through a miracle, we manage to win, I hope your
Imperial Bodyguards have had the sense to evacuate
you and your family from this place!
END
def constantinople_attack # Battle engine
$western_reinforcements = rand(50_000..75_000)
if $western_reinforcements > 50_000
puts "It is a good thing that reinforcements from
the West are here! They are forming up to join our attack!"
else puts "The West did send reinforcements. Let us hope they
will be enough. We need all the help we can get."
end
roman_attack = rand((150_000)..($ottoman_army)) - ($eastern_roman_army + $western_reinforcements) # Calculates battle results with randomizer for strengths of opposing armies due to reinforcements and casualties, etc., and based on theory of 3 attackers vs. 1 defender
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
if roman_attack > 100_000
puts <<-END
Praise God for this miracle! We have defeated the Turks!
They were broken on our walls and are fleeing in disarray!
The gates have opened and our cavalry are in pursuit of
survivors, and a detachment is right now searching for
the Sultan and members of his court.
The city is delivered from conquest!
GAME OVER. ROMA ETERNA!
END
else
puts <<-END
DISASTER! Our army has been defeated! The Turks will surely
breach our walls now and we have no more defenders left
to man them!
GAME OVER. YOU LOSE!
END
end
end
constantinople_attack() # Calls on battle engine to decide outcome
else
puts <<-END
Wise choice, Basileus. Because of your foresight, this Asiatic
have lifted the siege and are now breaking camp.
History will show that you will use this time wisely to
rebuild Constantinople's empire, army and morale!
Praise God that no more need die today.
Congratulations!
GAME OVER. YOU WIN! ROMA ETERNA!
END
end
when 'v' # Roman will submit as a vassal
puts <<-END
God help us! Constantinople never before has submitted to a
foreign ruler! The Sultan expects you to send your army to
fight for him whenever he calls. I am ashamed to call you Emperor!
There is a large body of men approaching the palace.
END
def coup_d_etat # Calculates chances of being deposed by unhappy Romans due to cowardice
rand((0.1)..(0.25))
end
overthrow = coup_d_etat # What happens to you next
puts "The chance of a palace coup is: #{overthrow}!"
if overthrow > 0.2
puts <<-END
You have been deposed by your Imperial bodyguards, The Varangians!
They will never bow to a foreign despot! You are about to be
blinded and stripped of the Imperial regalia.
GAME OVER. YOU LOSE!
END
else
puts "That mob is your people wanting refuge within the safest
place in the city when the Turks enter! Do you want to open
the armories for a last-ditch defense, (y) or (n)?"
final_defense = gets.chomp.downcase
if final_defense === "y"
citizen_army = ($city_pop * rand(0.0..0.25)) + $eastern_roman_army # Checks to see if can recruit from city_pop to add to eastern_roman_army and bolster city defense
if citizen_army > $ottoman_army / rand(6..12) # Checks to see if enough troops have been raised to stand a chance at successfully repelling invading ottoman_army
puts <<-END
A new levy has been successfully raised and it is
assembling in the main square, my lord Constantine.
The city may yet have hope!
Go out and lead them to victory!
END
def constantinople_attack # Battle engine
$western_reinforcements = rand(50_000..75_000)
if $western_reinforcements > 50_000
puts "Reinforcements from the West are here! They
are forming up to join our attack!"
else puts "The West did send reinforcements. Let us
hope they will be enough."
end
roman_attack = rand((150_000)..($ottoman_army)) - ($eastern_roman_army + $western_reinforcements) # Calculates battle results with randomizer for strengths of opposing armies due to reinforcements and casualties, etc., and based on theory of 3 attackers vs. 1 defender
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
if roman_attack > 100_000
puts <<-END
Praise God, my lord Constantine! We have defeated
the Turks! They were broken on the field and are fleeing
in disarray!
Our cavalry are in pursuit and a detachment is right
now searching for the Sultan and members of his court.
You have delivered our city from conquest! You will be
known to history forever!
GAME OVER. YOU WIN! ROMA ETERNA!
END
else
puts <<-END
DISASTER! Our army has been defeated! The Turks will
surely breach our walls now and we have no more
defenders left to man them!
GAME OVER. YOU LOSE!
END
end
end
constantinople_attack() # Calls on battle engine to decide outcome
else
puts <<-END
Alas! All is lost. Our citizens do not even care to fight
for their city anymore! There is no more hope!
GAME OVER. YOU LOSE!
END
end
elsif final_defense === "n"
puts <<-END
DISASTER!!
You do not have the will to fight?? You do not deserve to wear
the purple of Rome and are a disgrace to your namesake!
Reports are in that general Belisarius is sailing from Trebizond
with relief and is intent on deposing you!
I would not want to be you for all the gold in the world nor
here when the general arrives and annihilates the armies of Memet!
Stand aside, my lord, and I will lead our defense while we
wait for relief!
Guards, take the Emperor to his quarters and see to it that
he is not to be disturbed. Admit no one, and I mean nobody
is allowed to see him - not even the Empress herself!
Go!
GAME OVER. YOU LOSE!
END
end
end
when 'c' # Roman will conclude a treaty of friendship
puts <<-END
I think for now that is the wisest course of action. For more than
fifteen centuries, we Romans have been masters of our destiny.
We can bear this state of affairs for now.
The Sultan is most pleased by your decision and awaits the
Princess Theodora Porphyrogenita his camp and is proud to
call you brother! Let our two realms coexist peacefully
side-by side for all time!
My lord, The Turks are pulling down their siege towers and
are breaking camp. Well done!
History will show that you will use this time wisely to rebuild
Constantinople's empire, army and morale!
GAME OVER. YOU WIN! ROMA ETERNA!
END
else # Roman default
puts <<-END
What kind of choice is that? These are desperate times, my lord.
The fate of the city rests on your decision!
It cannot survive on indecision or incompetence.
GAME OVER. YOU LOSE!
END
end
when 'f' # Roman has decided to fight
puts <<-END
Very good, my lord, and we give battle at once! Sound the trumpets!
We may no longer have the troops to sally forth to meet and overwhelm
the enemy on the field, but we will make sure they never breach our walls!
I will see that all gates are barred shut and all towers and ramparts manned.
We have more than enough provisions to last us years, and the
West will surely send help!
END
def constantinople_attack # Battle engine
$western_reinforcements = rand(50_000..75_000)
if $western_reinforcements > 50_000
puts "Large reinforcements from the West are here! They are
forming up to join the attack!"
else puts "The West did send some reinforcements. Let us hope they
are enough."
end
roman_attack = rand((150_000)..($ottoman_army)) - ($eastern_roman_army + $western_reinforcements) # Calculates battle results with randomizer for strengths of opposing armies due to reinforcements and casualties, etc., and based on theory of 3 attackers vs. 1 defender
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
if roman_attack > 100_000
puts <<-END
Praise God, my lord Constantine! We have defeated the Turks!
They were broken on the field and are fleeing in disarray!
Our cavalry are in pursuit and a squadron is right now searching
for the Sultan and members of his court.
You have delivered our city from conquest! You will be be known
to history forever!
GAME OVER. YOU WIN! ROMA ETERNA!
END
else
puts <<-END
DISASTER! Our army has been defeated! The Turks will surely breach
our walls now and we have no more defenders left to man them!
I pray the invaders to be merciful, though I doubt it.
Make ready to flee through the catacombs!
Go! Quickly! There is a ship by the harbor waiting to take you to Italy!
Farewell, my Emperor!
GAME OVER. YOU LOSE!
END
end
end
constantinople_attack() # Calls on the attack
when 's' # Roman will surrender the city
puts <<-END
DISASTER!!
You do not have the will to fight?? You do not deserve to wear the
purple of Rome and are a disgrace to your namesake!
Reports are in that general Belisarius is sailing from Trebizond
with relief and is intent on deposing you!
I would not want to be you for all the gold in the world nor here
when the general arrives and annihilates the armies of Memet!
Stand aside, my lord, and I will lead our defense while we wait for relief!
Guards, take the Emperor to his quarters and see to it that he is not
to be disturbed. Admit no one, and I mean nobody is allowed to see him
- not even the Empress herself!
Go!
GAME OVER. YOU LOSE!
END
else # Roman default
puts <<-END
What kind of choice is that? These are desperate times, my lord.
The fate of the city rests on your decision!
It cannot survive on indecision or incompetence.
GAME OVER. YOU LOSE!
END
end
when 'o' # Player has chosen to be Ottoman
puts <<-END
Agha Izmir: My Sultan Memet, Sire! We are finally besieging the
greatest city in the world, and God-willing, it will soon belong to you!
What would you have us do?
(E)ntreat with the Emperor Constantine and have him submit to your authority,
(d)emand ranson, (a)ssault the Theodosian Walls?
END
case gets.chomp.downcase
when 'e' # Ottoman will entreat with Roman
puts <<-END
Very well. Their representative, Count Nicopherus and his retinue are
just outside the camp. I will tell the guards to admit them.
The Roman ambassador is here, Sire. While I do not necessarily agree
with it, diplomacy seems to be the order of the day.
I know Nicopherus quite well. He and I grew up together in his father's
estate near Adrianople when I was a hostage for my own father's
good behavior. I was well-treated and released after academy training
years later.
One can say I learned statecraft at his father's knee.
It is quite ironic to meet him again after all this time in vastly
different circumstances.
While crafty and shrewd, he is also very honorable.
I just pray the Romans have the good sense to accept our offer
- that we will withdraw from their former European territories if
they promise to abandon Asia Minor and Africa province.
Do we begin? (Y)es or (n)o?
END
case gets.chomp.downcase
when 'y'
never_on_tuesday = Time.now.strftime("%A") # Constantinople was conquered on a Tuesday and is the unluckiest day of the week in that part of the world
if never_on_tuesday === "Tuesday"
charm = 0
else charm = rand(0..50)
end
roman_pride = rand(0..50)
10.times { |neg|
puts "NEGOTIATIONS IN PROGRESS..."
sleep(1)
}
negotiation_proper = charm + roman_pride
if negotiation_proper > 50
puts <<-END
Sultan! They have agreed to everything we proposed!
We will hand over territory up to the Danube in the north,
near the Italian border to the west, and the Euxine Sea in the east.
They on the other hand relinquish claim and control
over Anatolia, Palestina, Aegyptus, and Africa.
Congratulations!
GAME OVER. YOU WIN!
END
else
puts <<-END
They said "NO" to everything! It beggars belief!
Constantinople is not what it once was!
I should have guessed this was a waste of time!
It is a pity Nicopherus allowed himself to be used by
Constantine this way. I knew this was nothing but a delaying
tactic on their part.
Guards! Escort my dear friend the Count, but the hold members
of his retinue and behead them. That will teach the
Romans to play games when their very survival is at stake!
We must attack at once!
END
def ottoman_attack # Battle engine
$western_reinforcements = rand(50_000..75_000)
if $western_reinforcements > 50_000
puts "Sire! Scouts bring word that reinforcements from
Europe have just landed. They are bolstering city defenses as
we speak!"
else puts "It seems as if reinforcements from the West have arrived,
but reports indicate their numbers are not what Constantine
had been promised. Ha!"
end
ottoman_army_attack = rand((150_000)..($ottoman_army)) - ($eastern_roman_army + $western_reinforcements) # Calculates battle results with randomizer for strengths of opposing armies due to reinforcements and casualties, etc., and based on theory of 3 attackers vs. 1 defender
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
if ottoman_army_attack > 100_000
puts <<-END
Praise God, Sultan! We have taken the city! The remnants of
heir army are fleeing through their tunnels.
Janissaries are attempting to storm the Imperial Palace,
and we should eliminate all further resistance in a day or two.
Then, we can let the customary three-day looting begin!
Congratulations, Memet II, Conqueror of The Roman Empire!
GAME OVER. YOU WIN!
END
else
puts <<-END
DISASTER!
Our assault has been has been repelled! It must surely
be those reinforcements.
Curse the Romans! We should order all surviving troops
to regroup and withdraw to safety in the west.
We will bring down this city once and for all,
but perhaps now is not yet the time.
GAME OVER. YOU LOSE!
END
end
end
ottoman_attack()
end
when 'n'
puts <<-END
Sultan, we must not resort to tricks and should show to be more honorable
than these infidels.
If you do not have any intentions of negotiating with their representatives,
let us release them and begin our assault at once!
Should we attack now? (Y)
END
case gets.chomp.downcase
when 'y'
puts <<-END
Excellent. Count Nicopherus and his party have left and orders are
now going out to our commanders.
The assault should commence at any moment.
END
def ottoman_attack # Battle engine
$western_reinforcements = rand(50_000..75_000)
if $western_reinforcements > 50_000
puts "Sire! Scouts bring word that reinforcements from
Europe have just landed. They are bolstering city defenses as
we speak!"
else puts "It seems as if reinforcements from the West have arrived,
but reports indicate their numbers are not what Constantine
had been promised. Ha!"
end
ottoman_army_attack = rand((150_000)..($ottoman_army)) - ($eastern_roman_army + $western_reinforcements) # Calculates battle results with randomizer for strengths of opposing armies due to reinforcements and casualties, etc., and based on theory of 3 attackers vs. 1 defender
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
if ottoman_army_attack > 100_000
puts <<-END
Praise God, Sultan! We have taken the city! The remnants of
heir army are fleeing through their tunnels.
Janissaries are attempting to storm the Imperial Palace,
and we should eliminate all further resistance in a day or two.
Then, we can let the customary three-day looting begin!
Congratulations, Memet II, Conqueror of The Roman Empire!
GAME OVER. YOU WIN!
END
else
puts <<-END
DISASTER!
Our assault has been has been repelled! It must surely
be those reinforcements.
Curse the Romans! We should order all surviving troops
to regroup and withdraw to safety in the west.
We will bring down this city once and for all,
but perhaps now is not yet the time.
GAME OVER. YOU LOSE!
END
end
end
ottoman_attack()
else
end
end
when 'd' # Ottoman will demand ransom
puts "Tell his Imperial Majesty, that the price of peace is we will
accept no less than 1,000,000 lbs. of minted bullion, and he has a
fortnight to reply. Let us await what they say."
roman_gold = rand(500_000..1_500_000) # Generate random amount Romans are willing to pay after demand is made
puts "Sultan, the Romans have sent" + " #{roman_gold} " + "pounds."
if roman_gold < 1_000_000
puts <<-END
Those misers! They insult us not with that amount but with their
arrogance to offer it. We attack at once!
Do we deploy cannon, Sire? (Y)es or (n)o?
END
deploy_cannon = gets.chomp.downcase
if deploy_cannon === "y"
puts <<-END
Yes! Move the cannon into position and shoot at will!
Let us see if that bronze is worth its weight in gold!
END
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
cannon_shot = rand(1..10_000) # Attempts to break down walls
$wall_damage = $theodosian_walls - cannon_shot - $luck_factor
if $wall_damage > 10_000
puts <<-END
Praise God, Sultan! A huge section has collapsed and the breach
is wide enough for hundreds of our troops to pour through
at once!
We have taken the city! The remnants of
their army are fleeing through their tunnels.
That Viennese cannon-maker has delivered. We must have him forge
us some more.
Janissaries are attempting to storm the Imperial Palace,
and we should eliminate all further resistance in a day or two.
Then, we can let the customary three-day looting begin!
Congratulations, Memet II, Conqueror of The Roman Empire!
GAME OVER. YOU WIN!
END
else
puts "These cannon are useless! Get the sappers!"
puts "Yes, Sire. Tunneling has commenced! Theodosius' walls are
not just stout, they are deep, and it will take time to burrow
underneath them and make sure we have packed enough powder to
bring down a section"
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
sappers_progress = rand(1..6_500) # Attempts to break down walls with different chance percentage
wall_damage_sappers = $theodosian_walls - sappers_progress - $luck_factor
if wall_damage_sappers > 7_500
puts <<-END
Praise God, Sultan! The sappers have managed to
undermine and bring down a large section of walls in
a light-defended area!
The breach is large enough that hundreds of our troops
can pour through at once!
We have taken the city! The remnants of their army are fleeing
through their tunnels.
Janissaries are attempting to storm the Imperial Palace, and
we should eliminate all further resistance in a day or two.
Then, we can let the customary three-day looting begin!
Congratulations, Memet II, Conqueror of The Roman Empire!
GAME OVER. YOU WIN!
END
else
puts <<-END
DISASTER!
Our assault has been has been repelled! How could this be?
Curse the Romans! We should order all surviving troops to
regroup and withdraw to safety in the west.
We will bring down this city once and for all, but perhaps
now is not yet the time.
And behead that useless Viennese cannon-maker when you
find him!
GAME OVER. YOU LOSE!
END
end
end
elsif deploy_cannon === "n"
puts "Very well. Siege towers are on their way!"
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
siege_towers = rand(1..8_500) # Attempts to bring down walls with different chance percentage
wall_damage_siege = $theodosian_walls - siege_towers - $luck_factor
if wall_damage_siege > 7_500
puts <<-END
Praise God, Sultan! Our men are over the walls!
They did not have enough to bring down many of our towers
and their defenders have been displaced near the gates.
We have taken the city! The remnants of their army are fleeing
through their tunnels.
Janissaries are attempting to storm the Imperial Palace, and
we should eliminate all further resistance in a day or two.
Then, we can let the customary three-day looting begin!
Congratulations, Memet II, Conqueror of The Roman Empire!
GAME OVER. YOU WIN!
END
else
puts <<-END
DISASTER!
Our assault has been has been repelled! How could this be?
Curse the Romans! We should order all surviving troops to
regroup and withdraw to safety in the west.
We will bring down this city once and for all, but perhaps
now is not yet the time.
GAME OVER. YOU LOSE!
END
end
end
else
puts <<-END
Ah! He is wise, that Constantine, much like his ancestors.
He must have sent us the entire contents of his treasury.
What will he have now to rebuild?!
In the meantime, we will use that gold to expand our fleet and block off
the city's access to the sea. Give them their relief for ten years
and we will come back.
Put out the word to lift the siege and break camp at once!
God be praised that no one must perish today.
And send my brother, the Emperor Constantine, a nice gift of thanks.
GAME OVER. YOU WIN!
END
end
when 'a' # Ottoman will order an assault
puts <<-END
God be praised! Our troops have been waiting for this day for so long!
We have come so far and very soon, the greatest city in the world shall be ours!
We go at once!
END
def ottoman_attack # Battle engine
$western_reinforcements = rand(50_000..75_000)
if $western_reinforcements > 50_000
puts "Sire! Scouts bring word that reinforcements from Europe have
just landed. They are bolstering city defenses as we speak!"
else puts "It seems as if reinforcements from the West have arrived,
but reports indicate their numbers are not what Constantine had
been promised. Ha!"
end
ottoman_army_attack = rand((150_000)..($ottoman_army)) - ($eastern_roman_army + $western_reinforcements) # Calculates battle results with randomizer for strengths of opposing armies due to reinforcements and casualties, etc., and based on theory of 3 attackers vs. 1 defender
10.times { |battle|
puts "BATTLE IN PROGRESS!"
sleep(1)
}
if ottoman_army_attack > 100_000
puts <<-END
Praise God, Sultan! We have taken the city! The remnants of their
army are fleeing through their tunnels.
Janissaries are attempting to storm the Imperial Palace, and
we should eliminate all further resistance in a day or two.
Then, we can let the customary three-day looting begin!
Congratulations, Memet II, Conqueror of The Roman Empire!
GAME OVER. YOU WIN!
END
else
puts <<-END
DISASTER!
Our assault has been has been repelled! It must surely be those
reinforcements.
Curse the Romans! We should order all surviving troops to regroup
and withdraw to safety in the west.
We will bring down this city once and for all, but perhaps
now is not yet the time.
GAME OVER. YOU LOSE!
END
end
end
ottoman_attack() # Calls on battle engine
else # Ottoman default
puts <<-END
Sire, I do not understand your command. There is not a moment to lose.
We have the greatest prize in the world right before us.
GAME OVER. YOU LOSE!
END
end
else # Player default
puts "Invalid choice. Again, please."
game_intro() # Loops to beginning of game
end
end
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment