' "Sim Political Career" ' Created with QDK Lite 4.1.2 !include define game asl-version <410> start game author game version <1.0> game copyright <© 2010 Aidan Neal> game info define variable type numeric value <2000> display end define define variable type numeric value <0> display end define define variable type string display nozero end define define variable type numeric value <10> display onchange { if ( %age% >= 60 ) and ( $rand (1;100)$ = 1 ) and ( #children?# = off ) then { msg <|s20|n%year% - You have died age %age%. It's a shame you never had a son or daughter to follow in your footsteps.|s00> timeroff timeroff timeroff timeroff timeroff stop } if ( %age% = 75 ) and ( #children?# = off ) then { msg <|s20|n%year% - You decide to retire so you can write your memoirs and enjoy a life of peace and tranquility. It's a shame you never had a son or daughter to follow in your footsteps.|s00> timeroff timeroff timeroff timeroff timeroff stop } if ( %age% >= 60 ) and ( $rand (1;100)$ = 1 ) and ( #children?# = on ) then { msg <|s20|n%year% - You have died age %age%. However, the good news is you have been able to give your child political advantages in life you never enjoyed yourself. Although you never made it to be Prime Minister yourself, sometimes it takes a family, and not just a great individual, to make it to the very top job. Would you like to take over playing #child full name#?|s00> choose } if ( %age% = 75 ) and ( #children?# = on ) then { msg <|s20|n%year% - You decide to retire so you can write your memoirs and enjoy a life of peace and tranquility. Your ambitions now transfer to your child, who you have been able to give political advantages in life you never enjoyed yourself. Although you never made it to be Prime Minister, sometimes it takes a family, and not just a great individual, to make it to the very top job. Would you like to take over playing #child full name#?|s00> choose } } end define define variable type numeric value <0> display end define define variable type string display end define end define define options debug on panes on abbreviations on end define define synonyms male; man = boy female; woman = girl end define define room script { msg <|nYou are a 10-year old hoping to make a career for yourself in the politics of the Democrat Party. Ready to test how far you can climb up the ladder? Think you can climb the ladder, rung by rung, from tuck shop supervisor to Prime Minister? Good.|n|nWhat's your first name?> enter msg <|nWhat is your surname?> enter msg <|nAnd are you a little boy or a little girl?> enter if not ( #gender# = boy ) and not ( #gender# = girl ) then { msg <|nEnter "boy" or "girl".> enter } if ( #gender# = boy ) then set string if ( #gender# = girl ) then set string set string set string set string set string wait <|clPress any key to begin your career|cb> set string set numeric set numeric msg <|nYou begin your career as a member of the Democrat Kidz Klub earning 1PP/turn.> set string set numeric set numeric set numeric set numeric set numeric set numeric set string set string set string set string set numeric set string set string timeron timeron timeron timeron timeron set string set string set string set string set string set string set numeric set numeric set numeric set numeric set string set string set string set string } end define define procedure set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric if ( %age% <= 25 ) then set numeric else set numeric set numeric msg <|nYour local constituency party is holding its %year% Annual General Meeting. Are you interested in running for any of the following positions, which all serve for a year? Next to each position is listed the percentage chance you estimate you have of being able to win it.|n|nYouth Officer - enter 1 ($round (%youth officer chance out of 100%; 1)$) |nTreasurer - enter 2 ($round (%treasurer chance out of 100%; 1)$) |nSecretary - enter 3 ($round (%secretary chance out of 100%; 1)$)|nVice-chair - enter 4 ($round (%vice-chair chance out of 100%; 1)$)|nChair - enter 5 ($round (%chair chance out of 100%; 1)$)|n|nAlternatively, you could challenge for the more powerful party positions below, which each serve for a year...|n|nRegional Executive Committee member - enter 6 ($round (%regional executive committee member chance out of 100%; 1)$)|nNational Executive Committee member - enter 7 ($round (%national executive committee member chance out of 100%; 1)$)|n> enter set numeric if ( %constituency party challenge% = 1 ) and ( %age% <= 25 ) then do if ( %constituency party challenge% = 1 ) and ( %age% > 25 ) then msg <|nSorry, you are too old to be in the youth section now.> if ( %constituency party challenge% = 2 ) then do if ( %constituency party challenge% = 3 ) then do if ( %constituency party challenge% = 4 ) then do if ( %constituency party challenge% = 5 ) then do if ( %constituency party challenge% = 6 ) then do if ( %constituency party challenge% = 7 ) then do end define define procedure if ( %youth officer chance out of 100% >= $rand (1;100)$ ) then { msg <|nThe youth section of your local constituency party has elected you to serve as its |byouth officer|xb. You receive a 20PP bonus and will earn 10PP/quarter.> set string inc set numeric } else msg <|nBad luck, somebody else got the job. You return to being a plain old |bconstituency activist|xb earning 5PP/quarter.> end define define procedure if ( %treasurer chance out of 100% >= $rand (1;100)$ ) then { msg <|nYour local constituency party has elected you to serve as its |btreasurer|xb. You receive a 40PP bonus and will earn 20PP/quarter.> set string inc set numeric } else msg <|nBad luck, somebody else got the job. You return to being a plain old |bconstituency activist|xb earning 5PP/quarter.> end define define procedure if ( %secretary chance out of 100% >= $rand (1;100)$ ) then { msg <|nYour local constituency party has elected you to serve as its |bsecretary|xb. You receive a 50PP bonus and will earn 25PP/quarter.> set string inc set numeric } else msg <|nBad luck, somebody else got the job. You return to being a plain old |bconstituency activist|xb earning 5PP/quarter.> end define define procedure if ( %vice-chair chance out of 100% >= $rand (1;100)$ ) then { msg <|nYour local constituency party has elected you to serve as its |bvice-chair|xb. You receive an 80PP bonus and will earn 40PP/quarter.> set string inc set numeric } else msg <|nBad luck, somebody else got the job. You return to being a plain old |bconstituency activist|xb earning 5PP/quarter.> end define define procedure if ( %chair chance out of 100% >= $rand (1;100)$ ) then { msg <|nYour local constituency party has elected you to serve as its |bchair|xb. You receive a 200PP bonus and will earn 100PP/quarter.> set string inc set numeric } else msg <|nBad luck, somebody else got the job. You return to being a plain old |bconstituency activist|xb earning 5PP/quarter.> end define define procedure if ( #role# = councillor ) and ( #council party# = democrat ) and ( %council experience% >= 16 ) then do if ( #role# = councillor ) and ( #council party# = national ) and ( %council experience% >= 16 ) then do if ( #role# = council cabinet member ) and ( #council party# = democrat ) and ( %council experience% >= 20 ) then do if ( #role# = council shadow cabinet member ) and ( #council party# = national ) and ( %council experience% >= 20 ) then do end define define procedure set numeric set numeric if ( %council cabinet chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed as a |bCouncil Cabinet Member|xb. You receive a 1000PP bonus and will earn 500PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %council shadow cabinet chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed as a |bCouncil Shadow Cabinet Member|xb. You receive a 400PP bonus and will earn 200PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %council leader chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed as |bLeader of the Council|xb. You receive a 4000PP bonus and will earn 2000PP/quarter.|n> set string inc set numeric } end define define procedure set numeric set numeric if ( %council opposition leader chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed as |bCouncil Opposition Leader|xb. You receive an 800PP bonus and will earn 400PP/quarter.|n> set string inc set numeric } end define define procedure if ( #role# = MEP ) and ( %euro experience% >= 20 ) then do if ( #role# = euro party leader ) and ( %euro experience% >= 24 ) then do if ( #role# = euro group leader ) and ( %euro experience% >= 30 ) then do end define define procedure set numeric set numeric if ( %euro party leader chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - The Democrat Party in the European Parliament has appointed you as its |bEuropean|xb |bParty Leader|xb. You receive a 4000PP bonus and will earn 2000PP/quarter. > set string inc set numeric } end define define procedure set numeric set numeric if ( %euro group leader chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - The European Democrats group in the European Parliament, to which your Democrat Party is affiliated, has appointed you as its |bEuropean|xb |bGroup Leader|xb. You receive a 10000PP bonus and will earn 5000PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %euro group leader chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed to the prestigious and influential position of |bPresident of the European Parliament|xb. You receive a 40000PP bonus and will earn 20000PP/quarter.> set string inc set numeric } end define define procedure if ( #role# = kidz klub member ) then do if ( #role# = tuck shop supervisor ) then do if ( #role# = games cupboard captain ) then do if ( #role# = trips and events officer ) then do end define define procedure set numeric set numeric if ( %tuck shop supervisor chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - Your local Democrat Kidz Klub has appointed you to be its |btuck shop supervisor|xb. You receive 4PP bonus and will earn 2PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %games cupboard captain chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - Your local Democrat Kidz Klub has appointed you to be its |bgames cupboard captain|xb. You receive a 6PP bonus and will earn 3PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %trips and events officer chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - Your local Democrat Kidz Klub has appointed you to be its |btrips and events officer|xb. You receive an 8PP bonus and will earn 4PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %kidz klub chair chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - Your local Democrat Kidz Klub has appointed you to be its |bchair|xb. You receive a 10PP bonus and will earn 5PP/quarter.> set string inc set numeric } end define define procedure if ( %regional executive committee member chance out of 100% >= $rand (1;100)$ ) then { msg <|nYour regional party has elected you to serve as a |bregional executive committee member|xb. You receive a 400PP bonus and will earn 200PP/quarter.> set string inc set numeric } else msg <|nBad luck, somebody else got the job. You return to being a plain old |bconstituency activist|xb earning 5PP/quarter.> end define define procedure if ( %national executive committee member chance out of 100% >= $rand (1;100)$ ) then { msg <|nDemocrat Party members have elected you to serve as a |bnational executive committee member|xb. You receive a 2000PP bonus and will earn 1000PP/quarter.> set string inc set numeric } else msg <|nBad luck, somebody else got the job. You return to being a plain old |bconstituency activist|xb earning 5PP/quarter.> end define define procedure if ( #role# = university student activist ) then do if ( #role# = campus democrat students officer ) then do if ( #role# = campus chair democrat students ) then do if ( #role# = campus president student union ) then do if ( #role# = national chair democrat students ) then do end define define procedure set numeric set numeric if ( %campus democrat students officer chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed a |bcampus Democrat Students officer|xb. You receive a 40PP bonus and will earn 20PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %campus chair democrat students chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed |bcampus Chair of Democrat Students|xb. You receive a 60PP bonus and will earn 30PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %campus president student union chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been elected |bcampus President of the Student Union|xb. You receive a 100PP bonus and will earn 50PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %national chair democrat students chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed |bNational Chair of Democrat Students|xb. Party leaders will have to take note of you now! You receive a 200PP bonus and will earn 100PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %national president student union chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - Congratulations! You have been elected to the prestigious position of |bNational President of the Student Union|xb. Observers are already touting you as a future political superstar. You receive a 400PP bonus and will earn 200PP/quarter.> set string inc set numeric } end define define procedure if ( #role# = mp ) and ( %mp experience% >= 12 ) then do if ( #role# = all-party group chair ) and ( %mp experience% >= 24 ) then do set numeric if ( %select committee chair chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed as a |bselect committee chair|xb. You receive a 40000PP bonus and will earn 20000PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %chair public accounts committee chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - You have been appointed to the influential position of |bChair of the Public Accounts Committee.|xb You receive a 60000PP bonus and will earn 30000PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %chair parliamentary democrat party chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - Your Democrat colleagues in Parliament have elected you |bChair of the Parliamentary Democrat Party|xb. You receive a 200000PP bonus and will earn 100000PP/quarter.> set string inc set numeric } end define define procedure set numeric set numeric if ( %speaker chance out of 100% >= $rand (1;100)$ ) then { msg <|n%year% - Parliament has elected you as its |bSpeaker|xb. You receive a 400000PP bonus and will earn 200000PP/quarter.> set string inc set numeric } end define define procedure set numeric if ( #gender# = boy ) then { msg <|n%year% - You have fallen in love with a woman. She has political connections, and a marriage to her would boost your political career by %marriage boost%PP as well as giving you the chance to have children and build a political dynasty. Do you offer to marry her, or do you repress your romantic urges in order to hold out for the prospect of a more politically beneficial marriage in the future?> choose } if ( #gender# = girl ) and ( %age% <= 50 ) then { msg <|n%year% - You have fallen in love with a man. He has political connections, and a marriage to him would boost your political career by %marriage boost%PP as well as giving you the chance to have children and build a political dynasty. Do you offer to marry him, or do you repress your romantic urges in order to hold out for the prospect of a more politically beneficial marriage in the future?> choose } if ( #gender# = girl ) and ( %age% > 50 ) then { msg <|n%year% - You have fallen in love with a man. He has political connections, and a marriage to him would boost your political career by %marriage boost%PP, although you are too old to have children now. Do you offer to marry him, or do you repress your romantic urges in order to hold out for the prospect of a more politically beneficial marriage in the future?> choose } end define define procedure if ( $rand (1;2)$ = 1 ) then { set string set string set string set numeric msg <|n%year% - Congratulations! You have had a baby boy. What should his first name be?> enter set string msg <|nYour boy's full name is #child full name#. You are enormously proud of him and will raise him to be as fine a politician as yourself.> } else { set string set string set string set numeric msg <|n%year% - Congratulations! You have had a baby girl. What should her first name be?> enter set string msg <|nYour girl's full name is #child full name#. You are enormously proud of her and will raise her to be as fine a politician as yourself.> } end define define procedure set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric if ( %champion total votes% > %perceval total votes% ) then { msg <|nHenry Champion has successfully challenged Florence Perceval for the leadership of the National Party, winning by %champion total votes% votes to %perceval total votes%. > set string set string set string } else msg <|nFollowing her General Election defeat, Florence Perceval fended off a leadership challenge from Henry Champion. In a ballot of the parliamentary National Party she won %perceval total votes% votes to Champion's %champion total votes%.> end define define procedure set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric if ( %perceval total votes% > %champion total votes% ) then { msg <|nFlorence Perceval has successfully challenged Henry Champion for the leadership of the National Party, winning by %perceval total votes% votes to %champion total votes%.> set string set string set string } else msg <|nFollowing his General Election defeat, Henry Champion has fended off a leadership challenge from Florence Perceval. In a ballot of the parliamentary National Party he won %champion total votes% votes to Perceval's %perceval total votes%.> end define define procedure set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric if ( #serving MP?# = on ) then { msg <|nFollowing your party's General Election defeat, there will now be a leadership election. As a Democrat MP you must choose whether to support Bojangles, O'Connor or give an appearance of neutrality whilst keeping your vote a secret. This choice will affect how your allegiances are perceived, and will influence your prospects of climbing up the frontbench promotion ladder under whoever is in control of the party after this election is over.> choose } if ( %bojangles total votes% > %o'connor total votes% ) and ( #serving MP?# = off ) then { msg <|nStephen Bojangles has successfully challenged Michael O'Connor for the leadership of the Democrat Party, winning by %bojangles total votes% votes to %o'connor total votes%.> set string set string set string } else { if ( #serving MP?# = off ) then msg <|nFollowing his General Election defeat, Michael O'Connor fended off a leadership challenge from Stephen Bojangles. In a ballot of the parliamentary Democrat Party he won %o'connor total votes% votes to Bojangles's %bojangles total votes%.> } end define define procedure set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric set numeric if ( #serving MP?# = on ) then { msg <|nFollowing your party's General Election defeat, there will now be a leadership contest. As a Democrat MP you must choose whether to support Bojangles, O'Connor or give an appearance of neutrality whilst keeping your vote a secret. This choice will affect how your allegiances are perceived, and will influence your prospects of climbing up the frontbench promotion ladder under whoever is in control of the party after this election is over.> choose } if ( %o'connor total votes% > %bojangles total votes% ) and ( #serving MP?# = off ) then { msg <|nMichael O'Connor has successfully challenged Stephen Bojangles for the leadership of the Democrat Party, winning by %o'connor total votes% votes to %bojangles total votes%.> set string set string set string } else { if ( #serving MP?# = off ) then msg <|nFollowing his General Election defeat, Stephen Bojangles fended off a leadership challenge from Michael O'Connor. In a ballot of the parliamentary Democrat Party he won %bojangles total votes% votes to O'Connor's %o'connor total votes%.> } end define define procedure if ( #governing party# = democrat ) then do else do end define define procedure if ( %mp experience% >= 4 ) and not ( #role# = government whip ) and not ( #role# = parliamentary under-secretary ) and not ( #role# = minister of state ) and not ( #role# = parliamentary private secretary ) and ( #in cabinet?# = off ) then do if ( %mp experience% >= 8 ) and not ( #role# = parliamentary under-secretary ) and not ( #role# = minister of state ) and not ( #role# = government whip ) and ( #in cabinet?# = off ) then do if ( %mp experience% >= 12 ) and not ( #role# = minister of state ) and not ( #role# = parliamentary under-secretary ) and ( #in cabinet?# = off ) then do if ( %mp experience% >= 16 ) and not ( #role# = minister of state ) and ( #in cabinet?# = off ) then do if ( %mp experience% >= 20 ) and ( #in cabinet?# = off ) then do if ( #in cabinet?# = on ) then do end define define procedure if ( #faction# = #democrat leader# ) then set numeric if ( #faction# = neutral ) then set numeric if ( #faction# = #democrat rival# ) then set numeric set numeric set numeric if ( %parliamentary private secretary chance out of 100% >= $rand (1;100)$ ) then { msg <|nPrime Minister #democrat leader# has offered you an opportunity to become a |bparliamentary private secretary|xb. Do you accept the offer?> choose } end define define procedure if ( #faction# = #democrat leader# ) then set numeric if ( #faction# = neutral ) then set numeric if ( #faction# = #democrat rival# ) then set numeric set numeric set numeric if ( %government whip chance out of 100% >= $rand (1;100)$ ) then { msg <|nPrime Minister #democrat leader# has offered you an opportunity to become a |bgovernment whip|xb. Do you accept the offer?> choose } end define define procedure if ( #faction# = #democrat leader# ) then set numeric if ( #faction# = neutral ) then set numeric if ( #faction# = #democrat rival# ) then set numeric set numeric set numeric if ( %parliamentary under-secretary chance out of 100% >= $rand (1;100)$ ) then { msg <|nPrime Minister #democrat leader# has offered you an opportunity to become a |bparliamentary under-secretary|xb. Do you accept the offer?> choose } end define define procedure if ( #faction# = #democrat leader# ) then set numeric if ( #faction# = neutral ) then set numeric if ( #faction# = #democrat rival# ) then set numeric set numeric set numeric if ( %minister of state chance out of 100% >= $rand (1;100)$ ) then { msg <|nPrime Minister #democrat leader# has offered you an opportunity to become a |bminister of state|xb. Do you accept the offer?> choose } end define define procedure if ( %mp experience% >= 8 ) and not ( #role# = opposition whip ) and not ( #role# = opposition junior spokesperson ) and not ( #role# = opposition senior spokesperson ) then do if ( %mp experience% >= 12 ) and not ( #role# = opposition junior spokesperson ) and not ( #role# = opposition senior spokesperson ) then do if ( %mp experience% >= 16 ) and not ( #role# = opposition senior spokesperson ) then do end define define procedure if ( #faction# = #democrat leader# ) then set numeric if ( #faction# = neutral ) then set numeric if ( #faction# = #democrat rival# ) then set numeric set numeric set numeric if ( %opposition whip chance out of 100% >= $rand (1;100)$ ) then { msg <|nOpposition leader #democrat leader# has offered you an opportunity to become an |bopposition whip|xb. Do you accept the offer?> choose } end define define procedure if ( #faction# = #democrat leader# ) then set numeric if ( #faction# = neutral ) then set numeric if ( #faction# = #democrat rival# ) then set numeric set numeric set numeric if ( %opposition junior spokesperson chance out of 100% >= $rand (1;100)$ ) then { msg <|nOpposition Leader #democrat leader# has offered you an opportunity to become an |bopposition junior spokesperson|xb. Do you accept the offer?> choose } end define define procedure msg <|nYou have been offered a peerage. If you accept, you will no longer be eligible to be an MP, and will not be able to compete for the top positions of Prime Minister and Chancellor of the Exchequer. On the plus side, Lords do not have to bother about the petty business of getting elected, and they can serve in many government or opposition roles. These include 2 roles, Leader of the Lords and Lord Chancellor, for which only Lords are eligible.> choose end define define procedure if ( #faction# = #democrat leader# ) then set numeric if ( #faction# = neutral ) then set numeric if ( #faction# = #democrat rival# ) then set numeric set numeric set numeric if ( %cabinet chance out of 100% >= $rand (1;100)$ ) then do end define define procedure set numeric if ( %cabinet number% = 1 ) then do if ( %cabinet number% >= 2 ) and ( %cabinet number% <= 3 ) then do if ( %cabinet number% >= 4 ) and ( %cabinet number% <= 6 ) then do if ( %cabinet number% >= 6 ) and ( %cabinet number% <= 10 ) then do if ( %cabinet number% >= 11 ) and ( %cabinet number% <= 15 ) then do if ( %cabinet number% >= 16 ) and ( %cabinet number% <= 21 ) then do if ( %cabinet number% >= 22 ) and ( %cabinet number% <= 29 ) then do if ( %cabinet number% >= 30 ) and ( %cabinet number% <= 37 ) then do if ( %cabinet number% >= 38 ) and ( %cabinet number% <= 46 ) then do if ( %cabinet number% >= 47 ) and ( %cabinet number% <= 56 ) then do if ( %cabinet number% >= 57 ) and ( %cabinet number% <= 68 ) then do if ( %cabinet number% >= 69 ) and ( %cabinet number% <= 81 ) then do if ( %cabinet number% >= 82 ) and ( %cabinet number% <= 95 ) then do if ( %cabinet number% >= 96 ) and ( %cabinet number% <= 110 ) then do if ( %cabinet number% >= 111 ) and ( %cabinet number% <= 126 ) then do if ( %cabinet number% >= 127 ) and ( %cabinet number% <= 143 ) then do if ( %cabinet number% >= 144 ) and ( %cabinet number% <= 161 ) then do if ( %cabinet number% >= 162 ) and ( %cabinet number% <= 180 ) then do if ( %cabinet number% >= 181 ) and ( %cabinet number% <= 200 ) then do if ( %cabinet number% >= 201 ) and ( %cabinet number% <= 221 ) then do if ( %cabinet number% >= 222 ) and ( %cabinet number% <= 243 ) then do end define define procedure if ( #serving mp?# = on ) and not ( #role# = chancellor ) then { set string set string inc set numeric set string set string if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bChancellor of the Exchequer|xb. You receive a 60,000,000PP bonus and will earn 30,000,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bForeign Secretary|xb. You receive a 50,000,000PP bonus and will earn 25,000,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bHome Secretary|xb. You receive a 40,000,000PP bonus and will earn 20,000,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and ( #peerage?# = on ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bLord Chancellor|xb. You receive a 10,000,000PP bonus and will earn 5,000,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bDefence Secretary|xb. You receive a 4,200,000PP bonus and will earn 2,100,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bHealth Secretary|xb. You receive a 4,000,000PP bonus and will earn 2,000,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bEducation Secretary|xb. You receive a 3,800,000PP bonus and will earn 1,900,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bBusiness Secretary|xb. You receive a 3,600,000PP bonus and will earn 1,800,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bChief Secretary to the Treasury|xb. You receive a 3,400,000PP bonus and will earn 1,700,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bWork & Pensions Secretary|xb. You receive a 3,200,000PP bonus and will earn 1,600,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bEnergy & Climate Change Secretary|xb. You receive a 3,000,000PP bonus and will earn 1,500,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bLocal Government Secretary|xb. You receive a 2,800,000PP bonus and will earn 1,400,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bTransport Secretary|xb. You receive a 2,600,000PP bonus and will earn 1,300,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) and not ( #role# = environment secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bEnvironment Secretary|xb. You receive a 2,400,000PP bonus and will earn 1,200,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) and not ( #role# = environment secretary ) and not ( #role# = international development secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bInternational Development Secretary|xb. You receive a 2,200,000PP bonus and will earn 1,100,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) and not ( #role# = environment secretary ) and not ( #role# = international development secretary ) and not ( #role# = northern ireland secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bNorthern Ireland Secretary|xb. You receive a 2,000,000PP bonus and will earn 1,000,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) and not ( #role# = environment secretary ) and not ( #role# = international development secretary ) and not ( #role# = northern ireland secretary ) and not ( #role# = scottish secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bScottish Secretary|xb. You receive an 1,800,000PP bonus and will earn 900,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) and not ( #role# = environment secretary ) and not ( #role# = international development secretary ) and not ( #role# = northern ireland secretary ) and not ( #role# = scottish secretary ) and not ( #role# = welsh secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bWelsh Secretary|xb. You receive a 1,600,000PP bonus and will earn 800,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) and not ( #role# = environment secretary ) and not ( #role# = international development secretary ) and not ( #role# = northern ireland secretary ) and not ( #role# = scottish secretary ) and not ( #role# = welsh secretary ) and not ( #role# = culture secretary ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bCulture Secretary|xb. You receive a 1,400,000PP bonus and will earn 700,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) and not ( #role# = environment secretary ) and not ( #role# = international development secretary ) and not ( #role# = northern ireland secretary ) and not ( #role# = scottish secretary ) and not ( #role# = welsh secretary ) and not ( #role# = culture secretary ) and not ( #role# = leader of the lords ) and ( #peerage?# = on ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bLeader of the Lords|xb. You receive a 1,200,000PP bonus and will earn 600,000PP/per quarter.> } end define define procedure if not ( #role# = chancellor ) and not ( #role# = foreign secretary ) and not ( #role# = home secretary ) and not ( #role# = lord chancellor ) and not ( #role# = defence secretary ) and not ( #role# = health secretary ) and not ( #role# = education secretary ) and not ( #role# = business secretary ) and not ( #role# = chief secretary ) and not ( #role# = work & pensions secretary ) and not ( #role# = energy & climate change secretary ) and not ( #role# = local government secretary ) and not ( #role# = transport secretary ) and not ( #role# = environment secretary ) and not ( #role# = international development secretary ) and not ( #role# = northern ireland secretary ) and not ( #role# = scottish secretary ) and not ( #role# = welsh secretary ) and not ( #role# = culture secretary ) and not ( #role# = leader of the lords ) and not ( #role# = minister without portfolio ) then { set string set string inc set numeric if ( #peerage?# = off ) then { set string set string } msg <|nPrime Minister #democrat leader# has appointed you |bMinister Without Portfolio|xb. You receive a 1,000,000PP bonus and will earn 500,000PP/per quarter.> } end define define procedure if ( #faction# = #democrat leader# ) then set numeric if ( #faction# = neutral ) then set numeric if ( #faction# = #democrat rival# ) then set numeric set numeric set numeric if ( %opposition senior spokesperson chance out of 100% >= $rand (1;100)$ ) then { msg <|nOpposition Leader #democrat leader# has offered you an opportunity to become an |bopposition senior spokesperson|xb. Do you accept the offer?> choose } end define define function set numeric set numeric set numeric if ( %round.decimalpos% = 0 ) then { return <%round.number%> } else { set string set string set string return <#round.beforedp#.#round.afterdp#> } end define define timer interval <1> action { inc inc inc set string if ( #serving councillor?# = on ) then inc if ( #serving mep?# = on ) then inc if ( #serving mp?# = on ) then inc set numeric if ( %opinion poll% = 1 ) and ( %dem polling% <= 55 ) then { inc dec } if ( %opinion poll% = 2 ) and ( %dem polling% <= 55 ) then { inc dec } if ( %opinion poll% = 3 ) and ( %dem polling% <= 55 ) then { inc dec } if ( %opinion poll% = 4 ) and ( %nats polling% <= 55 ) then { inc dec } if ( %opinion poll% = 5 ) and ( %nats polling% <= 55 ) then { inc dec } if ( %opinion poll% = 6 ) and ( %nats polling% <= 55 ) then { inc dec } } disabled end define define timer interval <4> action { if ( #role# = constituency activist ) or ( #role# = youth officer ) or ( #role# = secretary ) or ( #role# = treasurer ) or ( #role# = vice-chair ) or ( #role# = chair ) or ( #role# = rec member ) or ( #role# = nec member ) then { set string set numeric do } if ( #serving councillor?# = on ) then do if ( #serving mep?# = on ) then do if ( #role# = kidz klub member ) or ( #role# = tuck shop supervisor ) or ( #role# = games cupboard supervisor ) or ( #role# = trips and events officer ) or ( #role# = kidz klub chair ) then do if ( %age% = 18 ) then { msg <|n%year% - You have done well enough at college to go to university, which would give you an opportunity to dive head-first into the world of student politics. On the other hand, you could get a job whilst dedicating your spare time to volunteering for your local constituency party. Which path will you choose?> choose } if ( #role# = campus democrat students officer ) or ( #role# = campus chair democrat students ) or ( #role# = campus president student union ) or ( #role# = national chair democrat students ) or ( #role# = national president student union ) or ( #role# = university student activist ) then do if ( %age% = 21 ) and ( #go to university?# = university ) then { msg <|nYou have finished studying for your university degree, and greatly impressed your tutors with your aptitude. Now you must consider whether to study for a doctorate, which would allow you to continue your career in student politics. On the other hand, you could get a job and spend your spare time volunteering for your local constituency association.> choose } if ( %age% = 24 ) and ( #work or doctorate?# = doctorate ) then { msg <|nYou have completed your doctorate. After spending years immersed in student politics, it is now time to leave university and get a job.> if not ( #title# = Councillor ) then set string set string if ( #suffix# = BA (Hons) ) then set string if ( #role# = university student activist ) or ( #role# = democrat students officer ) or ( #role# = chair democrat students ) or ( #role# = campus president student union ) or ( #role# = national chair democrat students ) or ( #role# = national president student union ) then { set string set numeric } } if ( %age% = 16 ) then { msg <|n%year% - You leave school and begin college. You are now a |bcollege student activist|xb earning 10PP/quarter.> set string set numeric } if ( #role# = mp ) or ( #role# = all-party group chair ) or ( #role# = select committee chair ) or ( #role# = chair public accounts committee ) or ( #role# = chair parliamentary democrat party ) or ( #role# = Speaker ) then do if ( #role# = mp ) or ( #role# = all-party group chair ) or ( #role# = select committee chair ) or ( #role# = chair public accounts committee ) or ( #role# = chair parliamentary democrat party ) or ( #role# = Speaker ) or ( #role# = parliamentary private secretary ) or ( #role# = government whip ) or ( #role# = parliamentary under-secretary ) or ( #role# = minister of state ) or ( #peerage?# = on ) or ( #in cabinet?# = on ) then do if ( %age% >= 25 ) and ( $rand (1;5)$ = 1 ) and ( #married?# = off ) then do if ( #married?# = on ) and ( #children?# = off ) and ( $rand (1;4)$ = 1 ) and ( %age% <= 50 ) then do if ( #married?# = on ) and ( #children?# = off ) and ( $rand (1;4)$ = 1 ) and ( #gender# = boy ) and ( %age% > 50 ) then do if ( %age% >= 60 ) and ( %political power% >= 15000000 ) and ( $rand (1;5)$ = 1 ) and ( #peerage?# = off ) and not ( #role# = chancellor ) and not ( #role# = prime minister ) then do if ( #serving mp?# = on ) and ( %political power% >= 100000000 ) and ( #governing party# = democrat ) then { msg <|n|s20Prime Minister #democrat leader# has decided, after years of public service, to stand down from office. #democrat rival# considered running for office to replace him, but the tide of popularity was so heavily in your favour that in the end you were crowned Prime Minister without a contest.|n|nCongratulations, you have made it to the top - the very top! I could let you carry on playing, but as the saying goes, "All political careers end in failure" - so it's best to end the game here and celebrate your achievement.|n|nOnce again, congratulations, Prime Minister #your name#!|s00> set string timeroff timeroff timeroff timeroff timeroff stop } } disabled end define define timer interval <12> action { set numeric set numeric if ( %candidate for councillor chance out of 100% >= $rand (1;100)$ ) and ( #serving councillor?# = off ) and ( #serving mep?# = off ) and ( #serving mp?# = off ) and ( %age% >= 24 ) and ( #peerage?# = off ) then { msg <|nYour local constituency party has offered to select you as a candidate for the council elections. If you are successful, you will be expected to give a 3 year commitment to the role during which you will not apply for other political offices. Do you accept the invitation?> choose } if ( #serving councillor?# = on ) and not ( %year began last period on council% = %year% ) then { msg <|nYour local constituency party invites you to stand again for your seat as councillor. As before, if you are successful you will be expected to commit for 3 years during which you will not apply for other political offices. Do you accept the invitation, or would you rather stand down in hope of achieving greater things? You estimate your chances of being selected as a candidate for the European Parliament are $round (%candidate for mep chance out of 100%; 1)$ percent and your chances for being selected as a General Election candidate are $round (%candidate for mp chance out of 100%; 1)$ percent.> choose } if ( %dem polling% >= %nats polling% ) then { set string if ( #democrat leader# = Stephen Bojangles ) then inc else inc if ( #national rival# = Henry Champion ) then inc else inc msg <|n|clThe Democrat Party won the majority of the seats in the %year% local elections.|cb> } else { msg <|n|clThe National Party won the majority of the seats in the %year% local elections.|cb> set string } if ( #role# = council cabinet member ) and ( #council party# = national ) then { msg <|nThe Democrat Party has lost control of the council, and with it your position as a cabinet member. Now in opposition, you continue as a |b Council Shadow Cabinet Member|xb, earning 200PP/quarter.> set string set numeric } if ( #role# = council shadow cabinet member ) and ( #council party# = democrat ) then { msg <|nThe Democrat Party has won control of the council and you have been promoted to a |bCouncil Cabinet Member|xb. You receive a 1000PP bonus and will earn 500PP/quarter.> inc set numeric set string } if ( #role# = council leader ) and ( #council party# = national ) then { msg <|nThe Democrat Party group you lead has lost its majority on the council. You become |bCouncil Opposition Leader |xbearning 400PP/quarter.> set string set numeric } if ( #role# = council opposition leader ) and ( #council party# = democrat ) then { msg <|nThe Democrat Party has taken over the local council. You are now |bCouncil Leader|xb. You receive a 4000PP bonus and will earn 2000PP/quarter.> set string inc set numeric } } disabled end define define timer interval <16> action { set numeric set numeric if ( %candidate for mep chance out of 100% >= $rand (1;100)$ ) and ( #serving MEP?# = off ) and ( #serving councillor?# = off ) and ( #serving MP?# = off ) and ( %age% >= 24 ) and ( #peerage?# = off ) then { msg <|nYour regional party has offered to select you as a candidate for elections to the European Parliament. If successful, you will be expected to give a 4 year commitment during which you will not apply for other political offices. Do you accept the invitation?> choose } if ( #serving MEP?# = on ) and not ( %year began last period in european parliament% = %year% ) then { msg <|nYour regional party has invited you to stand again for your European Parliament seat. Do you accept? As with last time, if you are successful, you will be expected to commit for 4 years during which you will not apply for other political offices. Do you accept the invitation, or do you stand down in hope of achieving greater things? You estimate your percentage chance of being selected as a General Election candidate at $round (%candidate for MP chance out of 100%; 1)$.> choose } if ( %dem polling% >= %nats polling% ) then { if ( #democrat leader# = Stephen Bojangles ) then inc else inc if ( #national rival# = Henry Champion ) then inc else inc msg <|n|clThe Democrat Party won the majority of your country's seats in the %year% European Parliament election.|cb> } else { if ( #national leader# = Henry Champion ) then inc else inc if ( #democrat rival# = Stephen Bojangles ) then inc else inc msg <|n|clThe National Party won the majority of your country's seats in the %year% European Parliament election.|cb> } } disabled end define define timer interval <20> action { set numeric set numeric if ( %candidate for mp chance out of 100% >= $rand (1;100)$ ) and ( #serving MEP?# = off ) and ( #serving councillor?# = off ) and ( #serving MP?# = off ) and ( %age% >= 24 ) and ( #peerage?# = off ) then { msg <|nYour constituency party has offered to select you as a candidate for election to the House of Commons. If successful, you will be expected to give a 5 year commitment during which you will not apply for other political offices. Do you accept the invitation?> choose } if ( #serving MP?# = on ) and not ( %year began last period in commons% = %year% ) then { msg <|nYour constituency party has invited you to stand again for your House of Commons seat. Do you accept? As with last time, if you are successful you will be expected to commit for 4 years during which you will not apply for other political offices.|n> choose } if ( %dem polling% >= %nats polling% ) then { pause <3000> clear set string set numeric set numeric set string if ( #democrat leader# = Stephen Bojangles ) then inc else inc msg <|s36#democrat leader#'s Democrat Party has won the %year% General Election, taking %dem seats% seats to the National Party's %nats seats% seats.|s00> if ( #national rival# = Henry Champion ) then { inc do } else { inc do } if ( #role# = opposition whip ) or ( #role# = opposition junior spokesperson ) then { set string set numeric msg <|nYour party has won the election, so your previous opposition job is now redundant. Perhaps you can win a place in the new government?> } if ( #role# = opposition senior spokesperson ) then { set string set numeric do } } else { pause <3000> clear set string set numeric set numeric set string if ( #national leader# = Henry Champion ) then inc else inc msg <|s36#national leader#'s National Party has won the %year% General Election, taking %nats seats% seats to the Democrat Party's %dem seats% seats.|s00> if ( #democrat rival# = Stephen Bojangles ) then { inc do } else { inc do } if ( #role# = parliamentary private secretary ) or ( #role# = government whip ) or ( #role# = parliamentary under-secretary ) or ( #role# = minister of state ) then { set string set numeric msg <|nYour party has lost the election, so you have lost the position of power you previously enjoyed.> } if ( #in cabinet?# = on ) then { set string set numeric msg <|nNow your party is in oposition, you are serving as a |bsenior oppositon spokesperson|xb earning 200,000PP/quarter.> } } } disabled end define define selection choice { set numeric set numeric set numeric if ( %council seat chance out of 100% >= $rand (1;100)$ ) and ( #serving councillor?# = off ) then { msg set string set string set string set numeric inc set numeric } else msg <|nThe National Party candidate defeated you in your race to win a council seat. > } choice msg <> end define define selection choice { set numeric set numeric set numeric if ( %council seat chance out of 100% >= $rand (1;100)$ ) then { msg inc if ( #role# = council cabinet member ) and ( #council party# = national ) then { msg <|nThe Democrat Party has lost control of the council, and with it your position as a cabinet member. Now in opposition, you continue as a |b council shadow cabinet member|xb, earning 200PP/quarter.> set string set numeric } if ( #role# = council shadow cabinet member ) and ( #council party# = democrat ) then { msg <|nThe Democrat Party has won control of the council and you have been promoted to a |bcouncil cabinet member|xb. You receive a 1000PP bonus and will earn 500PP/quarter.> inc set numeric set string } if ( #role# = council leader ) and ( #council party# = national ) then { msg <|nThe Democrat Party group you lead has lost its majority on the council. You become |bcouncil opposition leader |xbearning 400PP/quarter.> set string set numeric } if ( #role# = council opposition leader ) and ( #council party# = democrat ) then { msg <|nThe Democrat Party has taken over the local council. You are now |bcouncil leader|xb. You receive a 4000PP bonus and will earn 2000PP/quarter.> set string inc set numeric } } else { msg <|nYou have lost your seat to the National Party candidate. > set string set string set string set numeric } } choice { msg <|nYou stand down as a councillor and return to being a |bconstituency activist|xb earning 5PP/quarter.> set string set string set string set numeric } end define define selection choice { set numeric set numeric set numeric if ( %euro seat chance out of 100% >= $rand (1;100)$ ) and ( #serving MEP?# = off ) then { msg set string set string set string set numeric inc set numeric } else msg <|nYou failed to win a seat in the European Parliament.> } choice msg <> end define define selection choice { set numeric set numeric set numeric if ( %euro seat chance out of 100% >= $rand (1;100)$ ) then { msg inc } else { msg <|nYou have lost your European Parliament seat to the National Party candidate.> set string set string set string set numeric } } choice { msg <|nYou stand down as an MEP and return to being a |bconstituency activist|xb earning 5PP/quarter.> set string set string set string set numeric } end define define selection choice { set numeric set numeric set numeric if ( %MP chance out of 100% >= $rand (1;100)$ ) and ( #serving MP?# = off ) then { msg set string set string set string set numeric inc set numeric } else { msg <|nYou failed to win a seat in the House of Commons. Nevermind, you receive a 5000PP bonus for the prestige of having been a candidate.> inc } } choice msg <> end define define selection choice { set numeric set numeric set numeric if ( %mp chance out of 100% >= $rand (1;100)$ ) then { msg inc } else { msg <|nYou have lost your House of Commons seat to the National Party candidate.> set string set string set string set numeric } } choice { msg <|nYou stand down as an MP and return to being a |bconstituency activist|xb earning 5PP/quarter.> set string set string set string set numeric } end define define selection choice { msg <|nYou are now a |buniversity student activist|xb earning 15PP/quarter.> set string set numeric set string } choice { set string set string set numeric } end define define selection choice { set string set string set numeric } choice set string end define define selection choice { msg <|nCongratulations, you are now a married man!> set string inc } choice end define define selection choice { msg <|nCongratulations, you are now a married woman! You retain your maiden name because you consider yourself to be more important than your husband.> set string inc set string if not ( #title# = Councillor ) then set string } choice msg <> end define define selection choice { set string if ( #child gender# = boy ) then { set string set string } else { set string set string } set string set numeric set numeric set numeric set numeric set numeric set string set string set string set string set string set numeric set numeric set numeric set string set string set string set string set string set string set string if ( %age% >= 16 ) then { msg <|nYou are a |bconstituency activist|xb earning 5PP/quarter.> set string set numeric } else { msg <|nYou are a |bkidz klub member|xb earning 1PP/quarter.> set string set numeric } } choice { msg <|nGame over. Thanks for playing!> timeroff timeroff timeroff timeroff timeroff stop } end define define selection choice { msg <|nStephen Bojangles warmly welcomes you aboard his campaign team and hints you will have a great political career ahead of you under his leadership.> set string if ( %bojangles total votes% > %o'connor total votes% ) then { msg <|nStephen Bojangles defeated Michael O'Connor by %bojangles total votes% to %o'connor total votes% votes.> set string set string set string } else { msg <|nMichael O'Connor defeated Stephen Bojangles by %o'connor total votes% to %bojangles total votes% votes.> set string set string set string } } choice { msg <|nMichael O'Connor warmly welcomes you aboard his campaign team and hints you will have a great political career ahead of you under his leadership.> set string if ( %bojangles total votes% > %o'connor total votes% ) then { msg <|nStephen Bojangles defeated Michael O'Connor by %bojangles total votes% to %o'connor total votes% votes.> set string set string set string } else { msg <|nMichael O'Connor defeated Stephen Bojangles by %o'connor total votes% to %bojangles total votes% votes.> set string set string set string } } choice { msg <|nSupporters of both candidates eagerly court your vote, but you refuse to announce a preference one way or the other. Nobody knows how you voted in the end (not even me!). You haven't made any friends, but you haven't made any enemies either.> if ( %bojangles total votes% > %o'connor total votes% ) then { msg <|nStephen Bojangles defeated Michael O'Connor by %bojangles total votes% to %o'connor total votes% votes.> set string set string set string } else { msg <|nMichael O'Connor defeated Stephen Bojangles by %o'connor total votes% to %bojangles total votes% votes.> set string set string set string } } end define define selection choice { set string inc set numeric msg <|nYou are now a |bparliamentary private secretary|xb. You receive a 14000PP bonus and will earn 7000PP/quarter.> } choice msg <> end define define selection choice { set string inc set numeric msg <|nYou are now a |bgovernment whip|xb. You receive a 20000PP bonus and will earn 10000PP/quarter.> } choice msg <> end define define selection choice { set string inc set numeric msg <|nYou are now a |bparliamentary under-secretary|xb. You receive a 200000PP bonus and will earn 100000PP/quarter.> } choice msg <> end define define selection choice { set string inc set numeric msg <|nYou are now a |bminister of state|xb. You receive a 400000PP bonus and will earn 200000PP/quarter.> } choice msg <> end define define selection choice { set string inc set numeric msg <|nYou are now an |bopposition whip|xb. You receive a 14000PP bonus and will earn 7000PP/quarter.> } choice msg <> end define define selection choice { set string inc set numeric msg <|nYou are now an |bopposition junior spokesperson|xb. You receive a 200000PP bonus and will earn 100000PP/quarter.> } choice msg <> end define define selection info choice { if ( #gender# = boy ) then { set string set string } else { set string set string } set string if ( #suffix# = MP ) or ( #suffix# = MEP ) then set string set string set string inc msg <|nThe day you are sworn in, you overhear some of the old hereditary peers muttering about how common the House of Lords is becoming these days and how being a Lord doesn't mean what it used to.> set string set string if ( #role# = MP ) or ( #role# = parliamentary private secretary ) or ( #role# = government whip ) or ( #role# = parliamentary under-secretary ) or ( #role# = minister of state ) or ( #role# = opposition whip ) or ( #role# = junior opposition spokesperson ) or ( #role# = senior opposition spokesperson ) or ( #role# = speaker ) and ( #role# = select committee chair ) then set string } choice { msg <|nYou casually let slip to journalists that you turned down an offer of a peerage, and since turning down a peerage is at least as prestigious as accepting one, you gain 100000PP.> inc } end define define selection choice { set string inc set numeric msg <|nYou are now an |bopposition senior spokesperson|xb. You receive a 400000PP bonus and will earn 200000PP/quarter.> } choice msg <> end define