Mobile Home

,,,

<h1>(font: "tokanische")[MOBILE HOME]</h1> (display: "housecrab image") (font: "tokanische")[**[[BEGIN GAME|intro 1]]** [[CREDITS]]]

{ (set: $places to 1) (set: $outcome1 to (either: "city", "town", "village")) (if: $outcome1 is "city")[(set: $option1 to (either: ...$cityNames))] (elseif: $outcome1 is "town")[(set: $option1 to (either: ...$townNames))] (else:)[(set: $option1 to (either: ...$villageNames))] (set: $outcome2 to (either: "city", "town", "village")) (if: $outcome2 is "city")[(set: $option2 to (either: ...$cityNames))] (elseif: $outcome2 is "town")[(set: $option2 to (either: ...$townNames))] (else:)[(set: $option2 to (either: ...$villageNames))] (set: $outcome3 to (either: "city", "town", "village")) (if: $outcome3 is "city")[(set: $option3 to (either: ...$cityNames))] (elseif: $outcome3 is "town")[(set: $option3 to (either: ...$townNames))] (else:)[(set: $option3 to (either: ...$villageNames))] (set: _option1 to (either: ...$outcome1 + "names")) (set: _option2 to (either: ...$outcome2 + "names")) (set: _option3 to (either: ...$outcome3 + "names")) }(live:)[There (unless: $places < 2)[are (if: $places is 2)[two](else:)[three] places](else:)[is only one place] here that it could choose to visit:] [[$option1|$outcome1]](unless: $option2 is $option1)[ (set: $places to it + 1)[[$option2|$outcome2]]](unless: $option3 is $option1 or $option3 is $option2)[ (set: $places to it + 1)[[$option3|$outcome3]]]

{ (set: $houseValue to 50000) (set: $tenant1Income to 100000) (set: $distance to 0) (set: $places to 0) (set: $outcome1 to "none") (set: $outcome2 to "none") (set: $outcome3 to "none") (display: "place name array") (set: $cityNames to (a: ...$randomPlaceName)) (set: $townNames to (a: ...$randomPlaceName)) (set: $villageNames to (a: ...$randomPlaceName))  (display: "surname array") (display: "male name array") (display: "female name array") (set: $jobLevel to (a: "unemployed", "unemployed", "unemployed", "unemployed", "unemployed", "unemployed", "low", "low", "low", "low", "low", "low", "low", "low", "low", "low", "medium", "medium", "medium", "high")) (set: $randomLowJob to (a: "factory worker", "cashier", "author", "cleaner", "bus driver", "builder", "QA tester", "babysitter", "plumber")) (set: $randomMediumJob to (a: "police officer", "manager", "doctor", "journalist", "philosopher", "pilot" ,"train driver", "professor", "game developer", "accountant")) (set: $randomHighJob to (a: "engineer", "stock trader", "dentist", "entrepreneur", "lawyer", "real estate agent", "investor", "banker", "member of parlament", "judge")) (set: $randomAttribute to (a: "none", "none", "none", "none", "none", "disabled", "alcoholic", "miserly", "generous", "handy")) (display: "child name array") (set: $randomChildAttribute to (a: "none", "none", "naughty", "well behaved")) (set: $yearEvent to "none") (set: $tenantEvent to (a: )) }

{ (set: $location to "city") }(display: "location")

{ (set: $tenant1Type to (either: "single", "couple")) (set: $tenant1Kids to (either: true, false)) (if: $tenant1Type is "single")[(display: "tenant1 single")] (else:)[(display: "tenant1 couple")] (if: $tenant1Kids is true)[(display: "tenant1 kids")] (if: $tenant1Type is "single")[(display: "tenant1 single description")] (else:)[(display: "tenant1 couple description")] }(if: $tenant1Kids is true)[ (display: "tenant1 kids description")] [[Let them in.]]

(set: $randomSurname to (a: "Jeffrey", "Dalgleish", "Naylan", "Kennedy", "Burtwhistle", "Lamont", "Witham", "Picthall", "Guess", "Greenlees", "Ella", "Purdon", "Kilner", "Siddall", "Tidwell", "Flournoy", "Bobo", "Kane", "Sadlier", "Barber", "Bartyn", "Ryan", "Scoon", "Cozens", "Fairgray", "Keft", "Warburton", "Sherwin", "Meals", "Golborne", "Carradice", "Braddock", "Maynard", "Senkow", "Mcclellen", "Pilon", "Finkle", "Marler", "Hicks", "Peachy", "Wearing", "Pill", "Hixson", "Horncastle", "Lightbody", "Frank", "Rowland", "Mcruar", "Shufflebotham", "Macfarlane", "Muxlow", "Strong", "Gardiner", "Horsely", "Bigod", "Moor", "Wanger", "Allgreen-Ussing", "Housby", "Mack", "Goulthorpe", "Mcintyre", "Nellon", "Weldon", "Harvin", "Dibble", "Nyberg", "Pollitt", "Sitwell", "Breaker", "Hensley", "Royle", "Stopp", "Danby", "Gladstains", "Copley", "Acklam", "Whyatt", "Allison", "Meo", "Swidenbank", "Torr", "Bleasby", "Walsh", "Little", "Archibald", "Watters", "Wyatt", "Martindale", "Fitzgerald", "Mcfarlin", "De L'isle", "Earle", "Alcock", "Judith", "Waterhouse", "Prescott", "Fenn", "Baylis", "Catharina"))

(set: $randomMaleName to (a: "Carl", "Alban", "Alfonso", "Peter", "Clarence", "Stanley", "Daniel", "Joseph", "Andy", "Harold", "Douglas", "Lucas", "Alonso", "Robin", "Hardy", "Mathew", "Louis", "Sam", "Burt", "Oscar", "Ignatius", "Alec", "Allan", "Noel", "Cecil", "David", "Edmund", "Christopher", "Conan", "Michael", "Henry", "Lawrence", "Maurice", "Ralph", "Gerald", "Max", "Herbert", "Jim", "Larry", "Augusta", "Alexander", "Bruce", "Richard", "Bertram", "Arnold", "Jack", "Bertie", "Joe", "Frank", "Murphy", "Barnaby", "George", "Denis", "Perkin", "Casey", "Colin", "Benedict", "Randy", "Roland", "Melvin", "Gary", "Jeffrey"))

(set: $randomFemaleName to (a: "Harriet", "Alcyon", "Priscilla", "Karina", "Barbara", "Cinderalla", "Lilian", "Peggy", "Laura", "Michelle", "Adriana", "Molly", "Melody", "Eileen", "Nora", "Sheila", "Maggie", "Constance", "Jocelyn", "Claudia", "Alice", "Norma", "Mariam", "Matilda", "Brenda", "Monica", "Cora", "Doreen", "Claire", "Dolly", "Carol", "Gertrude", "Hazel", "Dawn", "Cheryl", "Diana", "Patricia", "Sharon", "Mabel", "Ruby", "Elaine", "Emily", "Bunny", "Rosemary", "Selina", "Shirley", "Geraldine", "Lora", "Alba", "Pauline", "Bertha", "Marilyn", "Lisa", "Jessie", "Andrea", "Adeline", "Florence", "Christine", "Mavis", "Lorna", "Bridget", "Evelyn"))

(set: $randomPlaceName to (a: "Aberdaan", "Abalano", "Akrun", "Albony", "Albuqeerqiu", "Aluxandrua", "Allintewn", "Amirillu", "Anahaum", "Anchurage", "Ann Arbir", "Anteech", "Appli Villiy", "Appliton", "Arlungtan", "Arvedi", "Ashavelli", "Athans", "Atlentu", "Atlontic Cuty", "Augosta", "Aurura", "Aestan", "Bakarsfeold", "Biltumora", "Burnsteblu", "Butun Rougo", "Boaimint", "Bol Aer", "Bollivoi", "Burkoley", "Bethluhom", "Billings", "Bormonghim", "Bluumengtin", "Boasu", "Beasu Cety", "Banite Sprangs", "Bustin", "Baildar", "Bredanten", "Brumirten", "Bridgopurt", "Brughtin", "Brownsvullu", "Bryen", "Biffole", "Burbink", "Birlangtun", "Cumbredgi", "Cunton", "Cipa Caral", "Corralltan", "Cery", "Cithudral Caty", "Cedar Rupeds", "Champeign", "Chandlar", "Chorloston", "Churlotte", "Chattenuagi", "Chosepeeki", "Checagu", "Chelo Viste", "Conconnatu", "Clarku Cuanty", "Clorksvalla", "Cleerwetur", "Clevaland", "Cullege Statein", "Culirodo Springs", "Calambuo", "Columbis", "Cencurd", "Cural Sprungs", "Corani", "Cirpis Chroste", "Casta Misi", "Dalles", "Daly Coty", "Denbury", "Davunpurt", "Dovudsin Ceinty", "Duytin", "Doytona Beoch", "Dalteno", "Duntan", "Dinver", "Dos Mounas", "Datruet", "Diwniy", "Duluth", "Dorham", "El Minti", "El Pase", "Elozebith", "Elk Grevi", "Elkhirt", "Erie", "Escondadu", "Eogine", "Evensvilla", "Fiirfeeld", "Firgu", "Fuyottovullo", "Fitchburg", "Flunt", "Fintenu", "Fart Cillons", "Fert Liudurdulu", "Firt Smuth", "Fart Wiltin Baich", "Fert Wuyne", "Fert Worth", "Froderock", "Fremont", "Frasnu", "Fellartan", "Gienesvalla", "Gordun Gruva", "Gorlund", "Gistenae", "Galbert", "Glandola", "Grind Praurii", "Grond Ripeds", "Griysleke", "Groon Biy", "GraenBuy", "Griansbari", "Gruenvulle", "Gulfpart-Bilaxi", "Higirstawn", "Hemptan", "Hirlingun", "Hirrusbirg", "Hurtfard", "Hivru de Grece", "Hoyward", "Humot", "Hundarson", "Haspiroa", "Heolioh", "Hackiry", "Hagh Paont", "Hillywoud", "Hunalala", "Huumu", "Huiston", "Hiwoll", "Hontongtan", "Hintongtan Baach", "Hontsvelle", "Indopundunca", "Indoinipelas", "Ingluwiod", "Irvina", "Irving", "Jackson", "Jacksonvulla", "Juffarson", "Jarsey Coty", "Juhnsen Coty", "Jilaot", "Kaolao", "Kolamezeo", "Kaneuhe", "Kunsas City", "Kannewick", "Koneshe", "Killoon", "Kessemmee", "Knexvelle", "Laciy", "Lifiyatti", "Liku Chirles", "Likelend", "Likowuad", "Lincoster", "Linsang", "Leridu", "Las Crocas", "Las Vegas", "Loytan", "Leimenstor", "Lowesvillo", "Laxengtun", "Lincoln", "Lottlu Rick", "Ling Booch", "Liraon", "Lus Angilus", "Loaasvallu", "Liwull", "Labbick", "Mocun", "Maduson", "Munchostur", "Moroni", "Marysvella", "McAllen", "McHanry", "Madfard", "Milbeurni", "Mimphos", "Marcad", "Mosi", "Mesqoitu", "Muima", "Molwaakei", "Munnaapolos", "Miremir", "Mussuun Viiju", "Muboli", "Mudastu", "Manroe", "Mantoray", "Montgimary", "Meruni Valluy", "Merfreesbara", "Murrouto", "Moskugin", "Myrtlu Bouch", "Nupurvulli", "Nuplos", "Nushaa", "Nashvolli", "Niw Bidferd", "Nuw Hivan", "New Londun", "Niw Orliins", "Naw Yark", "Naw York Caty", "Niwerk", "Nuwbergh", "Nawpert News", "Nurfolk", "Normol", "Narman", "Nurth Cherlastan", "Nurth Las Vegus", "Nurth Purt", "Narwulk", "Nurwach", "Oekland", "Ocala", "Oceensode", "Odessi", "Ogdon", "Okluhami Cety", "Oluthi", "Olympeu", "Omuhu", "Ontorua", "Orongi", "Orem", "Orlendo", "Overlond Perk", "Oxnird", "Palm Bay", "Pelm Sprangs", "Palmdalu", "Penemu Coty", "Pisudani", "Potirsun", "Pombrike Pones", "Pensicolo", "Pierue", "Philedilpheo", "Phaenox", "Pittsburgh", "Plonu", "Pomoni", "Pumpunu Baoch", "Pirt Arthar", "Pert Orangu", "Port Saont Lecuo", "Part St. Lecua", "Pertlind", "Pirtsmaath", "Peaghkoapsiu", "Prevadunco", "Preva", "Piublo", "Pente Girdi", "Ricene", "Ruliugh", "Ranchi Cucamengi", "Readeng", "Ridding", "Reno", "Rochlind", "Rochmend", "Rochmond Cuinty", "Ruversado", "Reeneku", "Richostor", "Rockferd", "Risovollo", "Raund Liku Buuch"))

{ (set: $tenant1 to (dm: "surname", "none", "partner1 gender", "none", "partner1 name", "none", "partner1 level", "none", "partner1 job", "none", "partner1 attribute", "none" )) (set: $tenant1's "surname" to (either: ...$randomSurname)) (set: $tenant1's "partner1 gender" to (either: "male", "female")) (if: $tenant1's "partner1 gender" is "male")[(set: $tenant1's "partner1 name" to (either: ...$randomMaleName))] (else:)[(set: $tenant1's "partner1 name" to (either: ...$randomFemaleName))] (set: $tenant1's "partner1 level" to (either: ...$jobLevel)) (if: $tenant1's "partner1 level" is "unemployed")[(set: $tenant1's "partner1 job" to "unemployed")] (elseif: $tenant1's "partner1 level" is "low")[(set: $tenant1's "partner1 job" to (either: ...$randomLowJob))] (elseif: $tenant1's "partner1 level" is "medium")[(set: $tenant1's "partner1 job" to (either: ...$randomMediumJob))] (else:)[(set: $tenant1's "partner1 job" to (either: ...$randomHighJob))] (set: $tenant1's "partner1 attribute" to (either: ...$randomAttribute)) }

{ (set: $tenant1 to (dm: "surname", "none", "partner1 gender", "none", "partner1 name", "none", "partner1 level", "none", "partner1 job", "none", "partner1 attribute", "none", "partner2 gender", "none", "partner2 name", "none", "partner2 level", "none", "partner2 job", "none", "partner2 attribute", "none" )) (set: $tenant1's "surname" to (either: ...$randomSurname)) (set: $tenant1's "partner1 gender" to (either: "male", "female")) (if: $tenant1's "partner1 gender" is "male")[(set: $tenant1's "partner1 name" to (either: ...$randomMaleName))] (else:)[(set: $tenant1's "partner1 name" to (either: ...$randomFemaleName))] (set: $tenant1's "partner1 level" to (either: ...$jobLevel)) (if: $tenant1's "partner1 level" is "unemployed")[(set: $tenant1's "partner1 job" to "unemployed")] (elseif: $tenant1's "partner1 level" is "low")[(set: $tenant1's "partner1 job" to (either: ...$randomLowJob))] (elseif: $tenant1's "partner1 level" is "medium")[(set: $tenant1's "partner1 job" to (either: ...$randomMediumJob))] (else:)[(set: $tenant1's "partner1 job" to (either: ...$randomHighJob))] (set: $tenant1's "partner1 attribute" to (either: ...$randomAttribute)) (set: $tenant1's "partner2 gender" to (either: "male", "female")) (if: $tenant1's "partner2 gender" is "male")[(set: $tenant1's "partner2 name" to (either: ...$randomMaleName))] (else:)[(set: $tenant1's "partner2 name" to (either: ...$randomFemaleName))] (set: $tenant1's "partner2 level" to (either: ...$jobLevel)) (if: $tenant1's "partner2 level" is "unemployed")[(set: $tenant1's "partner2 job" to "unemployed")] (elseif: $tenant1's "partner2 level" is "low")[(set: $tenant1's "partner2 job" to (either: ...$randomLowJob))] (elseif: $tenant1's "partner2 level" is "medium")[(set: $tenant1's "partner2 job" to (either: ...$randomMediumJob))] (else:)[(set: $tenant1's "partner2 job" to (either: ...$randomHighJob))] (set: $tenant1's "partner2 attribute" to (either: ...$randomAttribute)) }

The House finds someone in the $location. (display: "tenant1 generator") [[Move on.|travel]]

The House settles into place. (if: $tenant1Type is "single")[(print: $tenant1's "partner1 name") (print: $tenant1's "surname")](else:)[The (print: $tenant1's "surname")s] move(if: $tenant1Type is "single")[s] in(if: $tenant1Kids is true)[, as (if: $kids is 1)[does (print: $tenant1's "child1 name")](else:)[do their children]]. { (display: "tenant score") (display: "tenant event") (set: $yearEvent to (either: ...$tenantEvent)) (if: $yearEvent is "none")[(display: "generic year event")](else:)[(display: $yearEvent + " year event")] } (set: $houseValue to it + (round: ($tenant1Income - 100000) /2))When the year ends, the House is worth £$houseValue. [[Continue journey.|travel]] [[Choose to stay.|Let them stay.]]

{ (set: $kids to (random: 1,5)) (set: $tenant1 to it + (dm: "child1 name", "none")) (set: $tenant1's "child1 name" to (either: ...$randomChildName)) (set: $tenant1 to it + (dm: "child1 attribute", "none")) (set: $tenant1's "child1 attribute" to (either: ...$randomChildAttribute)) (if: $kids > 1)[(set: $tenant1 to it + (dm: "child2 name", "none")) (set: $tenant1's "child2 name" to (either: ...$randomChildName)) (set: $tenant1 to it + (dm: "child2 attribute", "none")) (set: $tenant1's "child2 attribute" to (either: ...$randomChildAttribute))] (if: $kids > 2)[(set: $tenant1 to it + (dm: "child3 name", "none")) (set: $tenant1's "child3 name" to (either: ...$randomChildName)) (set: $tenant1 to it + (dm: "child3 attribute", "none")) (set: $tenant1's "child3 attribute" to (either: ...$randomChildAttribute))] (if: $kids > 3)[(set: $tenant1 to it + (dm: "child4 name", "none")) (set: $tenant1's "child4 name" to (either: ...$randomChildName)) (set: $tenant1 to it + (dm: "child4 attribute", "none")) (set: $tenant1's "child4 attribute" to (either: ...$randomChildAttribute))] (if: $kids > 4)[(set: $tenant1 to it + (dm: "child5 name", "none")) (set: $tenant1's "child5 name" to (either: ...$randomChildName)) (set: $tenant1 to it + (dm: "child5 attribute", "none")) (set: $tenant1's "child5 attribute" to (either: ...$randomChildAttribute))] }

(set: $randomChildName to (a: "Carl", "Alban", "Alfonso", "Peter", "Clarence", "Stanley", "Daniel", "Joseph", "Andy", "Harold", "Douglas", "Lucas", "Alonso", "Robin", "Hardy", "Mathew", "Louis", "Sam", "Burt", "Oscar", "Ignatius", "Alec", "Allan", "Noel", "Cecil", "David", "Edmund", "Christopher", "Conan", "Michael", "Henry", "Lawrence", "Maurice", "Ralph", "Gerald", "Max", "Herbert", "Jim", "Larry", "Augusta", "Alexander", "Bruce", "Richard", "Bertram", "Arnold", "Jack", "Bertie", "Joe", "Frank", "Murphy", "Barnaby", "George", "Denis", "Perkin", "Casey", "Colin", "Benedict", "Randy", "Roland", "Melvin", "Gary", "Jeffrey", "Harriet", "Alcyon", "Priscilla", "Karina", "Barbara", "Cinderalla", "Lilian", "Peggy", "Laura", "Michelle", "Adriana", "Molly", "Melody", "Eileen", "Nora", "Sheila", "Maggie", "Constance", "Jocelyn", "Claudia", "Alice", "Norma", "Mariam", "Matilda", "Brenda", "Monica", "Cora", "Doreen", "Claire", "Dolly", "Carol", "Gertrude", "Hazel", "Dawn", "Cheryl", "Diana", "Patricia", "Sharon", "Mabel", "Ruby", "Elaine", "Emily", "Bunny", "Rosemary", "Selina", "Shirley", "Geraldine", "Lora", "Alba", "Pauline", "Bertha", "Marilyn", "Lisa", "Jessie", "Andrea", "Adeline", "Florence", "Christine", "Mavis", "Lorna", "Bridget", "Evelyn"))

(print: $tenant1's "partner1 name") (print: $tenant1's "surname") is (unless: $tenant1's "partner1 level" is "unemployed")[a(if: $tenant1's "partner1 job"'s 1st is "a" or $tenant1's "partner1 job"'s 1st is "e" or $tenant1's "partner1 job"'s 1st is "i" or $tenant1's "partner1 job"'s 1st is "o" or $tenant1's "partner1 job"'s 1st is "u")[n] (print: $tenant1's "partner1 job")](else:)[unemployed]. (unless: $tenant1's "partner1 attribute" is "none")[(if: $tenant1's "partner1 gender" is "male")[He](else:)[She] is (if: $tenant1's "partner1 attribute" is "alcoholic")[an] (print: $tenant1's "partner1 attribute").]

{ The (print: $tenant1's "surname")s are looking for a place to live. (print: $tenant1's "partner1 name") is (unless: $tenant1's "partner1 level" is "unemployed")[a(if: $tenant1's "partner1 job"'s 1st is "a" or $tenant1's "partner1 job"'s 1st is "e" or $tenant1's "partner1 job"'s 1st is "i" or $tenant1's "partner1 job"'s 1st is "o" or $tenant1's "partner1 job"'s 1st is "u")[n] (print: $tenant1's "partner1 job")](else:)[unemployed], and (if: $tenant1's "partner1 gender" is "male")[his](else:)[her] (if: $tenant1's "partner2 gender" is "male")[(either: "husband", "partner")](else:)[(either: "wife", "partner")] (print: $tenant1's "partner2 name") is (unless: $tenant1's "partner2 level" is "unemployed")[a(if: $tenant1's "partner2 job"'s 1st is "a" or $tenant1's "partner2 job"'s 1st is "e" or $tenant1's "partner2 job"'s 1st is "i" or $tenant1's "partner2 job"'s 1st is "o" or $tenant1's "partner2 job"'s 1st is "u")[n] (print: $tenant1's "partner2 job")](else:)[unemployed]. (unless: $tenant1's "partner1 attribute" is "none")[(print: $tenant1's "partner1 name") is (if: $tenant1's "partner1 attribute" is "alcoholic")[an] (print: $tenant1's "partner1 attribute").] (unless: $tenant1's "partner2 attribute" is "none")[(print: $tenant1's "partner2 name") is (if: $tenant1's "partner2 attribute" is "alcoholic")[an] (print: $tenant1's "partner2 attribute").] }

{ (display: "intro 2 audio") }The House was never meant to stay forever. Neither can it always move. It is a shell, a place of safety for the soft-skinned creatures that scurry underfoot. It must let them live within, or it must continue on its way. The House can stay in place for no more than one year, or no less than fifty. Once it has decided who will inhabit it, it must stand by that decision. [[Begin journey.|movement]]

{ (print: $tenant1's "partner1 name") (if: $tenant1Type is "couple")[and (print: $tenant1's "partner2 name") have](else:)[has] (if: $kids > 1)[(print: $kids)](else:)[one] child(if: $kids > 1)[ren]: (print: $tenant1's "child1 name")(if: $kids > 1)[, (print: $tenant1's "child2 name")](if: $kids > 2)[, (print: $tenant1's "child3 name")](if: $kids > 3)[, (print: $tenant1's "child4 name")](if: $kids > 4)[, (print: $tenant1's "child5 name")]. }

{ (display: "intro 1 audio") }The House has lain empty a long time. Perhaps once it was a dwelling, a home, but something in its mind of mortar and stone has come to recognise that this is no longer the case. The House stares out across the landscape it can no longer call its own, double-gazing at fields untended and overgrown. With great sound but little ceremony, the House lifts itself from its foundations. Its ten long legs unfurl. [[It is time to leave.|intro 2]]

{ (set: _miles to (random: 50, 500)) (set: $distance to it + _miles) (set: _damage to (random: (_miles * 2), ($distance * 6))) (set: $houseValue to it - _damage) }The House travels _miles miles. It has travelled $distance miles altogether. The journey takes its toll: the House suffers £_damage worth of damage along the way. It is worth £$houseValue now. [[The House pauses.|movement]]

{ (if: $tenant1's "partner1 level" is "unemployed")[(set: $tenant1Income to (random: 0, 20000))] (elseif: $tenant1's "partner1 level" is "low")[(set: $tenant1Income to (random: 50000, 100000))] (elseif: $tenant1's "partner1 level" is "medium")[(set: $tenant1Income to (random: 100000, 150000))] (else:)[(set: $tenant1Income to (random: 150000, 250000))] (if: $tenant1Type is "couple")[ (if: $tenant1's "partner2 level" is "unemployed")[(set: $tenant1Income to it + 0)] (elseif: $tenant1's "partner2 level" is "low")[(set: $tenant1Income to it + (random: 20000, 50000))] (elseif: $tenant1's "partner2 level" is "medium")[(set: $tenant1Income to it + (random: 50000, 150000))] (else:)[(set: $tenant1Income to it + (random: 150000, 200000))] ] (if: $tenant1Kids is true)[ (set: $tenant1Income to it + 10000) (if: $kids > 1)[(set: $tenant1Income to it + 0)] (if: $kids > 2)[(set: $tenant1Income to it - 10000)] (if: $kids > 3)[(set: $tenant1Income to it - 10000)] (if: $kids > 4)[(set: $tenant1Income to it - 10000)] ] }

{ (set: $tenantEvent to (a:)) (set: $tenantEvent to it + (a: $tenant1's "partner1 attribute")) (if: $tenant1Type is "couple")[(set: $tenantEvent to it + (a: $tenant1's "partner2 attribute"))] (if: $tenant1Kids is true)[ (set: $tenantEvent to it + (a: $tenant1's "child1 attribute")) (if: $kids > 1)[(set: $tenantEvent to it + (a: $tenant1's "child2 attribute"))] (if: $kids > 2)[(set: $tenantEvent to it + (a: $tenant1's "child3 attribute"))] (if: $kids > 3)[(set: $tenantEvent to it + (a: $tenant1's "child4 attribute"))] (if: $kids > 4)[(set: $tenantEvent to it + (a: $tenant1's "child5 attribute"))] ] }

(display: "neutral audio"){ }(either: "The months pass by without incident.", "The House enjoys a time of peace and rest.", "The House's time in this $location is quiet, but not boring.")

(display: "win audio"){ (set: _coin to (either: "heads", "tails")) (if: _coin is "heads")[(goto: "tenant leaves")] (else:)[ (set: _gain to 20000) (set: $houseValue to it + _gain) (if: $tenant1's "partner1 attribute" is "disabled")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] makes the house more accessible, raising its value by £_gain.] }

(display: "fired image")(display: "fail audio") { (set: _damage to (($distance * (random: 3, 5)) + (random: 90, 110))) (set: $houseValue to it - _damage) }(if: $tenant1's "partner1 attribute" is "alcoholic")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] is arrested for an incident at the local pub and subsequently fired. Without this income, the House suffers £_damage worth of damage.

(display: "fail audio"){ (set: _damage to (random: 50000, 150000)) (set: $houseValue to it - _damage) }(either: "The House's roof starts leaking", "A pipe bursts", "One of the House's walls develops a crack"), but (if: $tenant1's "partner1 attribute" is "miserly")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] is too (either: "miserly", "tight-fisted", "stingy") to fix it. This neglect causes £_damage worth of damage.

(display: "money graph image")(display: "win audio") { (set: _gain to (random: 10000, 60000)) (set: $houseValue to it + _gain) }(if: $tenant1's "partner1 attribute" is "generous")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] (either: "rennovates", "redecorates", "refurnishes", "buys a lavish painting for") the (either: "sitting room", "master bedroom", "dining room", "study", "library"). The House increases in value by _gain.

(display: "tools image")(display: "win audio") { (set: _gain to ($distance + (random: 90, 110))) (set: $houseValue to it + _gain) }(if: $tenant1's "partner1 attribute" is "handy")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] (either: "rennovates", "redecorates", "refurnishes", "buys a lavish painting for") the (either: "sitting room", "master bedroom", "dining room", "study", "library"). The House increases in value by £_gain.

(display: "hundred dollars image")(display: "win audio") { (set: _gain to (random: 950, 1050)) (set: $houseValue to it + _gain) (if: $tenant1's "child1 attribute" is "well behaved")[(print: $tenant1's "child1 name")] (if: $kids > 1)[(if: $tenant1's "child2 attribute" is "well behaved")[(print: $tenant1's "child2 name")]] (if: $kids > 2)[(if: $tenant1's "child3 attribute" is "well behaved")[(print: $tenant1's "child3 name")]] (if: $kids > 3)[(if: $tenant1's "child4 attribute" is "well behaved")[(print: $tenant1's "child4 name")]] (if: $kids > 4)[(if: $tenant1's "child5 attribute" is "well behaved")[(print: $tenant1's "child5 name")]] } finds £_gain in (either: "the garden", "a nearby field", "the woods") while (either: "exploring", "playing", "using a metal detector"), and it is put towards improving the House.

(display: "fail audio"){ (set: _damage to (random: 950, 1050)) (set: $houseValue to it - _damage) (if: $tenant1's "child1 attribute" is "naughty")[(print: $tenant1's "child1 name")] (if: $kids > 1)[(if: $tenant1's "child2 attribute" is "naughty")[(print: $tenant1's "child2 name")]] (if: $kids > 2)[(if: $tenant1's "child3 attribute" is "naughty")[(print: $tenant1's "child3 name")]] (if: $kids > 3)[(if: $tenant1's "child4 attribute" is "naughty")[(print: $tenant1's "child4 name")]] (if: $kids > 4)[(if: $tenant1's "child5 attribute" is "naughty")[(print: $tenant1's "child5 name")]] } (either: "draws on the walls", "starts a fire in the kitchen", "breaks the bed by jumping on it", "scuffs up the bannister"), causing £_damage worth of damage.

(display: "tenant1 end description") { (display: "tenant event") }(set: $endEvent to (either: ...$tenantEvent)) (if: $endEvent is "none")[(display: "generic end event")](else:)[(display: $endEvent + " end event")] The final value of the House is £$houseValue. ''THE END'' [[Restart?|Start]]

(either: "The House enjoys its new place in the $location, pleased that it has become a home once more.", "Its journey at an end, the House once again settles down to rest.")(either: " Perhaps it will rise again to wander, though certainly not soon.", "")

(if: $tenant1's "partner1 attribute" is "disabled")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] (either: "is happy to have such a nice place to stay", "is pleased that the House chose to stay").

(if: $tenant1's "partner1 attribute" is "alcoholic")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] (either: "is happy to have such a nice place to stay", "is pleased that the House chose to stay").

(if: $tenant1's "partner1 attribute" is "miserly")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] (either: "is happy to have such a nice place to stay", "is pleased that the House chose to stay").

(if: $tenant1's "partner1 attribute" is "generous")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] (either: "is happy to have such a nice place to stay", "is pleased that the House chose to stay").

(if: $tenant1's "partner1 attribute" is "handy")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] (either: "is happy to have such a nice place to stay", "is pleased that the House chose to stay").

{ (if: $tenant1's "child1 attribute" is "well behaved")[(print: $tenant1's "child1 name")] (if: $kids > 1)[(if: $tenant1's "child2 attribute" is "well behaved")[(print: $tenant1's "child2 name")]] (if: $kids > 2)[(if: $tenant1's "child3 attribute" is "well behaved")[(print: $tenant1's "child3 name")]] (if: $kids > 3)[(if: $tenant1's "child4 attribute" is "well behaved")[(print: $tenant1's "child4 name")]] (if: $kids > 4)[(if: $tenant1's "child5 attribute" is "well behaved")[(print: $tenant1's "child5 name")]] } grows up happily in the safety of the House.

{ (if: $tenant1's "child1 attribute" is "naughty")[(print: $tenant1's "child1 name")] (if: $kids > 1)[(if: $tenant1's "child2 attribute" is "naughty")[(print: $tenant1's "child2 name")]] (if: $kids > 2)[(if: $tenant1's "child3 attribute" is "naughty")[(print: $tenant1's "child3 name")]] (if: $kids > 3)[(if: $tenant1's "child4 attribute" is "naughty")[(print: $tenant1's "child4 name")]] (if: $kids > 4)[(if: $tenant1's "child5 attribute" is "naughty")[(print: $tenant1's "child5 name")]] } is kind of a nuisance for the first few years but thankfully grows out of it.

(display: "neutral audio"){ }(if: $tenant1's "partner1 attribute" is "disabled")[(print: $tenant1's "partner1 name")](else:)[(print: $tenant1's "partner2 name")] finds the House unsuitable and moves away. [[The House continues on its journey, heavy with regret.|travel]]

(display: "neutral audio"){ The House decides to stay, so that (print: $tenant1's "partner1 name") (if: $tenant1Type is "couple")[and (print: $tenant1's "partner2 name") ](print: $tenant1's "surname") can live within it(if: $tenant1Kids is true)[ with their child(unless: $kids is 1)[ren]]. }

(display: "hermit crab image") (font: "tokanische")[**MOBILE HOME** A GAME DESIGNED BY] (link-reveal: "DAMON L. WAKES - TEXT")[(open-url: "https://damonwakes.wordpress.com")] (text-style: "underline")[(text-style: "bold")[VIKTOR ROZENKO - ART]] (text-style: "underline")[(text-style: "bold")[MICHAEL CLARK - SOUND]] CREATED FOR SOUTHAMPTON GLOBAL GAME JAM 2019 (font: "tokanische")[**[[BACK|Start]]**]