(if:$ShowStats is 1)[***$FirstNameChar $SecondNameChar***
Age: $Age
Office: $Office
Rank: $Rank
---
**POLITICAL**
Oratory : $Oratory
Clients : $Clients
---
**WEALTH**
Gold : $Gold
]
"And yet excessive achievement, to the Romans, might be a cause for alarm as well as celebration."
-Tom Hollad, Rubicon
[[Continue->Reroll]]
{
(set: $HP to 20)
(set: $MaxHP to 20)
(set: $Combat to 0)
(set: $Command to 0)
(set: $Auctoritas to 0)
(set: $Honestas to 0)
(set: $Felicitas to 0)
(set: $Land to 0)
(set: $Gold to 0)
(set: $Slaved to 0)
(set: $Oratory to 0)
(set: $Clients to 0)
(set: $Roll to 5)
(set: $Year to 272)
(set: $ShowStats to 1)
(set: $Age to 69)
(set: $LastPassage to "")
(set:$Office to "None")
(set:$Rank to 0)
(set:$OfficeTime to 0)
}
You were born
**$FirstNameChar $SecondNameChar**
to a Roman Patrician family.
[[Reroll]]
[[Live]] (display: "RollFortuna")
(display:"AuspicesText")
Do you wish to ask the augur again?
This will cost **-1 Gold**.
[[Yes->Retry]]
[[No->Live]]
(display: "Success")(display: "SuccessMessage")
(if:$Gold>0)[ [[Bribe judge->Bribe]] (set: $LastPassage to "Trial")
]\
[[The die is cast!->TrialResult]]
{
(display: "SuccessCheck")
(set:$Reward to (random: (round:$Difficulty / 4),(round:$Difficulty / 2) ) )
(if: $Result is "Good")[(go-to: "Victory")]
(else:)[(go-to: "Defeat") ]
}
(if:$ShowStats is 1)[**INFO**
Year : $Year BC
Auspices : (display:"AuspicesString")
---
**MILITARY**
Health : $HP/$MaxHP
Combat : $Combat
---
**VIRTUES**
Auctoritas : $Auctoritas
Honestas : $Honestas
Felicitas : $Felicitas
]
(set:$Num to (random: 5,10))\
Victory!
**+$Reward Oratory (set: $Oratory += $Reward)
+$Reward Clients (set: $Clients += $Reward)**
[[Continue->New Year]]
Defeat!
**-1 Oratory** (set: $Oratory -= 1)
[[Return->New Year]]
A year passes.
{
(set:$Year -= 1)(set:$Age += 1)
(if: $OfficeTime is 0 and $Office is not "None")[(set:$Office to "Ex-" + $Office)]
(if: $OfficeTime >= 0)[(set:$OfficeTime -= 1)]
}\
[[**$Year BC**->Live]] (display: "RollFortuna")
(if:$HP<=0 or $Age >=70)[
(go-to:"Dead")
]
{
**
(if:$Luck <= -2)[terrible]
(if:$Luck is -1)[bad]
(if:$Luck is 0)[uncertain]
(if:$Luck is 1)[good]
(if:$Luck >= 2)[great]
**
}
Clique duas vezes nessa passagem para editá-la.
Clique duas vezes nessa passagem para editá-la.
Clique duas vezes nessa passagem para editá-la.
{
(set:$Skill to 50)(set:$Difficulty to 100)
(display: "Success")(display: "SuccessCheck")
(set:$Num to (random: 5,10) )
}\
(if: $Result is "Good")[(set:$Oratory += $Num) **+$Num Oratory**]\
(else:)[(set:$Oratory += 3) **+3 Oratory**]
[[Return->New Year]]
{
(set: $FirstNameChar to (either:"Appivs","Avlvs","Caivs","Cnaevs","Decimvs","Kaeso","Lvcivs","Manivs","Marcvs","Nvmerivs","Pvblivs",
"Qvintvs","Servivs","Sextvs","Spvrivs","Tiberivs","Titvs",) )
(set: $SecondNameChar to (either:"Valerivs Flaccvs","Valerivs Maximvs","Valerivs Messalla","Ivnivs Brvtvs","Ivnivs Bvbvlcvs","Ivnivs Pera","Ivnivs Silanvs","Aemilivs Papvs","Aemilivs Lepidvs","Aemilivs Pavllvs","Fabivs Maximvs","Fabivs Ambvstvs","Fabivs Licinvs","Cornelivs Scipio","Cornelivs Blasio","Cornelivs Arvina","Cornelivs Cinna","Cornelivs Dolabella","Cornelivs Svlla","Cornelivs Rvfinvs","Cornelivs Scapvla","Ivlivs Caesar","Ivlivs Ivlvs","Ivlivs Mento","Clavdivs Nero","Clavdivs Pvlcher","Clavdivs Crassvs","Clavdivs Sabinvs","Papirivs Crassvs","Papirivs Cvrsor","Papirivs Mvgillanvs","Sergivs Catilina","Sergivs Esqvilinvs","Sergivs Orata","Sergivs Pavlvs","Sergivs Silvs"
))}
{
(set: $min to 5)
(set: $max to 10)
(set: $MaxHP to (random:$min,$max) )
(set: $HP to $MaxHP)
(set: $Combat to (random:$min,$max) )
(set: $Command to (random:$min,$max) )
(set: $Auctoritas to (random:$min,$max) )
(set: $Honestas to (random:$min,$max) )
(set: $Felicitas to (random:$min,$max) )
(set: $Land to (random:$min,$max) )
(set: $Gold to (random:$min,$max) )
(set: $Slaves to (random:$min,$max) )
(set: $Oratory to (random:$min,$max) )
(set: $Clients to (random:$min,$max) )
(set: $Roll to 5)
(set: $Year to 272)
(set: $ShowStats to 1)
(set: $Age to 15)
(set: $lastPassage to "")
}
(go-to: "Continue")
Clique duas vezes nessa passagem para editá-la.
The auspices (luck) are (display:"AuspicesString").
This will cost **-1 Gold** and **-1 Honestas**.
[[Confirm]]
(set: $Luck += 1)
(set: $Gold -= 1)
(set: $Honestas -= 1)
(go-to: $LastPassage)
{
(set: $RandomCheck to Math.round(Math.random() * 100))
(if: $RandomCheck <= $SuccessChance)[(set:$Result = "Good")]
(else:)[(set:$Result = "Bad")]
}
(display: "RollFortuna")\
(display:"AuspicesText")
(set: $Gold -= 1)
[[Continue->Live]]
{(set: $Roll to 5)
(set: $Random to Math.round(Math.random() * $Roll))
(if: $Random is 0)[(set: $Random to 3)]
(set: $Luck to (random:-2,2))
}
[[The case of (display:"FirstName"), a young and unimportant senator.->EasyTrial]]
[[The case of (display:"FirstName"), a dishonest Propraetor.->MediumTrial]]
[[The case of (display:"FirstName"), a corrupt Proconsul.->HardTrial]]
{
(set: $Skill to ($Oratory + $Clients) / 2)
}
{
(set: $Part1 to ($Skill / $Difficulty))
(if: $Part1 > 1)[(set: $Part1 to 1)]
(set: $SuccessChance to Math.round( $Part1 *100 ) + ($Luck * 10) )
(if: $SuccessChance <= 0)[(set: $SuccessChance to 1)]
(if: $SuccessChance >= 100)[(set: $SuccessChance to 99)]
}
You have **$SuccessChance %** chance to succeed.
You are in Rome.
(display:"AuspicesText")
(if:$Gold>0 and $Luck<2)[ [[Take the auspices->Consult the Augures]]
]\
[[Practice a speech]]
(if:$Age>=19)[ [[Take a case at court->Pre-trial]]
]\
(if:$Age<18)[ [[Wrestle]]
]\
(if:$Age>=20 and $Rank <1)[ [[Run for office: Tribune->Tribune]]
]\
(if:$Age>=28 and $Rank <2 and $Rank >=1)[ [[Run for office: Quaestor->Quaestor]]
]\
(if:$Age>=36 and $Rank <3 and $Rank >=2)[ [[Run for office: Aedile->Aedile]]
]\
(if:$Age>=39 and $Rank <4 and $Rank >=2)[ [[Run for office: Praetor->Praetor]]
]\
(if:$Age>=40 and $Rank >=3)[ [[Run for office: Consul->Consul]]
]\
(if:$Age>=18)[ [[Military Duty->Campaign]]
]\
(if:$Age>=17)[ [[Gamble->Legio]]
]\
(if:$Gold>0 and $HP<$MaxHP)[ [[Heal]]
]
[[Younger sibling]]
[[Older sibling]]
[[Retired centurion->Greek trainer]]
[[Gallic slave]]
[[Germanic gladiator]]
(set:$Skill to $Combat)
(set:$Difficulty to 5)
(go-to: "WrestleResult")
(set:$Difficulty to 10)
(go-to: "WrestleResult")
(set:$Difficulty to 40)
(go-to: "WrestleResult")
(set:$Difficulty to 25)
(go-to: "WrestleResult")
(set:$Difficulty to 60)
(go-to: "WrestleResult")
{
(set:$Num to (random:0,2) )
(display: "Success")(display: "SuccessCheck")
(set:$Reward to (random: (round:$Difficulty / 4),(round:$Difficulty / 2) ) )
(if: $Result is "Good")[(set:$Combat += $Reward ) **+$Reward Combat**]\
(else:)[You lost.
]
}
**-$Num HP**(set:$HP -= $Num)
[[Continue->New Year]]
{
(set: $LegionsPlayer to 5)
(set: $LegionsEnemy to 5)
(set: $ScorePlayer to 0)
(set: $ScoreEnemy to 0)
}\
[[Play->PlayLegio]]
*SCORE:*
You - **$ScorePlayer** x **$ScoreEnemy** - Opponent
---
You have **$LegionsPlayer** legions.
Your opponent has **$LegionsEnemy** legions.
Send **[[-]] $LegionsPlayerCom [[+]]** legions to battle.
[[Go]]
(if:$LegionsPlayerCom > 0)[
(set:$LegionsPlayer += 1)
(set:$LegionsPlayerCom -= 1)
]
(go-to:"PlayLegio")
(if:$LegionsPlayer > 0)[
(set:$LegionsPlayer -= 1)
(set:$LegionsPlayerCom += 1)
]
(go-to:"PlayLegio")
You sent **$LegionsPlayerCom** legions.
{
(set:$LegionsEnemyCom to (random:0,$LegionsEnemy))
(if: $ScorePlayer is 2)[(set:$LegionsEnemyCom to $LegionsEnemy)]
(if: $ScoreEnemy is 2)[(set:$LegionsEnemyCom to $LegionsEnemy)]
}\
The opponent sent **$LegionsEnemyCom** legions.
{
(if:$LegionsPlayerCom > $LegionsEnemyCom)[You win a point!(set: $ScorePlayer +=1)]
(if:$LegionsEnemyCom > $LegionsPlayerCom)[Opponent wins a point!(set: $ScoreEnemy +=1)]
(if:$LegionsEnemyCom is $LegionsPlayerCom)[Tie!]
(set:$LegionsEnemy -= $LegionsEnemyCom)
(set:$LegionsEnemy += 1)
(set:$LegionsPlayer += 1)
(set:$LegionsPlayerCom to 0)
}\
(if: $ScorePlayer < 3 and $ScoreEnemy < 3)[
[[Continue->PlayLegio]] ]
(if: $ScorePlayer >= 3)[[[Victory!->New Year]]
**+1 Gold**(set:$Gold +=1)]
(if: $ScoreEnemy >= 3)[ [[Defeat!->New Year]] ]
(set: $Difficulty to 200)(set: $Skill to ($Oratory + $Clients) / 2)
(display: "Success")(display: "SuccessMessage")
(set:$NewOffice to "Quaestor")
(if:$Gold>0)[ [[Bribe voters->Bribe]] (set: $LastPassage to $NewOffice)(set:$Rank += 1)
]\
[[The die is cast!->ElectionResult]]
(display: "SuccessCheck")
(if:$Result is "Good")[Victory!
(set:$Num to (random:1,10) )
**+Office: $NewOffice (set: $Office to $NewOffice)**
**+$Num Clients (set: $Clients += $Num)**
(set:$Rank += 1)(set:$OfficeTime to 1)
]
(else:)[Defeat!
]
[[Continue->New Year]]
Which of these legions would you like to join?
[[Legio (display:"LegioName") Macedonica -> CampaignEasy]]
[[Legio (display:"LegioName") Gallica -> CampaignMedium]]
[[Legio (display:"LegioName") Germanica -> CampaignHard]]
(set:$Skill to $Combat)
(either:"I","II","III","IV","V","VI","VII","VIII","IX","X","XI","XII","XIII","XIV","XV","XXX")
(set:$Difficulty to 50)
(go-to: "WrestleResult")
(set:$Difficulty to 100)
(go-to: "WrestleResult")
(set:$Difficulty to 200)
(go-to: "WrestleResult")
**HP Restored**(set:$HP to $MaxHP)
**-1 Gold**(set:$Gold -= 1)
[[Ok->New Year]]
You died.
[[Play again ->Start]]
(set: $Difficulty to 100)(set: $Skill to ($Combat + $Oratory + $Clients) / 3)
(display: "Success")(display: "SuccessMessage")
(set:$NewOffice to "Tribune")
(if:$Gold>0)[ [[Bribe voters->Bribe]] (set: $LastPassage to $NewOffice)
]\
[[The die is cast!->ElectionResult]]
(set: $Difficulty to 300)(set: $Skill to ($Oratory + $Clients) / 2)
(display: "Success")(display: "SuccessMessage")
(set:$NewOffice to "Aedile")
(if:$Gold>0)[ [[Bribe voters->Bribe]] (set: $LastPassage to $NewOffice)
]\
[[The die is cast!->ElectionResult]]
(set: $Difficulty to 400)(set: $Skill to ($Oratory + $Clients + $Combat) / 3)
(display: "Success")(display: "SuccessMessage")
(set:$NewOffice to "Praetor")
(if:$Gold>0)[ [[Bribe voters->Bribe]] (set: $LastPassage to $NewOffice)
]\
[[The die is cast!->ElectionResult]]
(set: $Difficulty to 500)(set: $Skill to ($Oratory + $Clients + $Combat) / 3)
(display: "Success")(display: "SuccessMessage")
(set:$NewOffice to "Consul")
(if:$Gold>0)[ [[Bribe voters->Bribe]] (set: $LastPassage to $NewOffice)
]\
[[The die is cast!->ElectionResult]]
(set: $Difficulty to 60)
(go-to:"Trial")
(either:"Appivs","Avlvs","Caivs","Cnaevs","Decimvs","Kaeso","Lvcivs","Manivs","Marcvs","Nvmerivs","Pvblivs",
"Qvintvs","Servivs","Sextvs","Spvrivs","Tiberivs","Titvs",) (either:"Valerivs Flaccvs","Valerivs Maximvs","Valerivs Messalla","Ivnivs Brvtvs","Ivnivs Bvbvlcvs","Ivnivs Pera","Ivnivs Silanvs","Aemilivs Papvs","Aemilivs Lepidvs","Aemilivs Pavllvs","Fabivs Maximvs","Fabivs Ambvstvs","Fabivs Licinvs","Cornelivs Scipio","Cornelivs Blasio","Cornelivs Arvina","Cornelivs Cinna","Cornelivs Dolabella","Cornelivs Svlla","Cornelivs Rvfinvs","Cornelivs Scapvla","Ivlivs Caesar","Ivlivs Ivlvs","Ivlivs Mento","Clavdivs Nero","Clavdivs Pvlcher","Clavdivs Crassvs","Clavdivs Sabinvs","Papirivs Crassvs","Papirivs Cvrsor","Papirivs Mvgillanvs","Sergivs Catilina","Sergivs Esqvilinvs","Sergivs Orata","Sergivs Pavlvs","Sergivs Silvs")
(set: $Difficulty to 100)
(go-to:"Trial")
(set: $Difficulty to 200)
(go-to:"Trial")