preSYS2 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695
  1. # preSYS2
  2. if $ARGS[0] = 'start':
  3. if genbsize = '': genbsize = 22
  4. if $soc_grup = '':$soc_grup = 'none'
  5. act 'Pick a social group': gt 'preSYS2','modgrup'
  6. act 'Set attributes': gt 'preSYS2','modatt'
  7. act 'Set skills': gt 'preSYS2','modskl'
  8. act 'Set appearance':gt 'preSYS2','modapp'
  9. act 'Set relationships': gt 'preSYS2','modrel'
  10. act 'Set purse': gt 'preSYS2','modpur'
  11. act 'Set items': gt 'preSYS2','modite'
  12. act 'Set money (<<money>>₽)': money = input 'Set Cash Amount' & gt'preSYS2','start'
  13. act 'Return to preset character menu': gt 'preSYS', 'charselect'
  14. act 'Confirm these options':
  15. !!This line should get sveta to wear school uniform because she has no other clothing with >=40
  16. if pcs_exhibition >= 40: gs 'clothing', 'wear', 'school', 6
  17. if bag = 1:
  18. !!using current combination should prevent having more than 1 bag at the start of game.
  19. dynamic $currentpursetype + '_purses[<<currentpursenumber>>] = 1'
  20. if menu_option = 1:dynamic $menu_addoldmenu
  21. if menu_option = 0:gs 'obj_din', 'new'
  22. end
  23. gt 'preCUST', 'SGStart'
  24. end
  25. end
  26. if $ARGS[0] = 'modapp':
  27. if genbsize = 0:genbsize = 12
  28. 'Choose base genetic breast size:'
  29. nl
  30. if genbsize = 2:
  31. 'Very small - Currently set'
  32. else
  33. '<a href="exec:genbsize = 2 & gt ''preSYS2'',''modapp''">Very small</a>'
  34. end
  35. if genbsize = 7:
  36. 'Below average - Currently set'
  37. else
  38. '<a href="exec:genbsize = 7 & gt ''preSYS2'',''modapp''">Below average</a>'
  39. end
  40. if genbsize = 12:
  41. 'Average - Currently set'
  42. else
  43. '<a href="exec:genbsize = 12 & gt ''preSYS2'',''modapp''">Average</a>'
  44. end
  45. if genbsize = 17:
  46. 'Above average - Currently set'
  47. else
  48. '<a href="exec:genbsize = 17 & gt ''preSYS2'',''modapp''">Very small</a>'
  49. end
  50. if genbsize = 22:
  51. 'Large - Currently set'
  52. else
  53. '<a href="exec:genbsize = 22 & gt ''preSYS2'',''modapp''">Large</a>'
  54. end
  55. if genbsize = 27:
  56. 'Extra large - Currently set'
  57. else
  58. '<a href="exec:genbsize = 27 & gt ''preSYS2'',''modapp''">Extra large</a>'
  59. end
  60. if genbsize = 32:
  61. 'Really big - Currently set'
  62. else
  63. '<a href="exec:genbsize = 32 & gt ''preSYS2'',''modapp''">Really big</a>'
  64. end
  65. if genbsize = 37:
  66. 'Massive - Currently set'
  67. else
  68. '<a href="exec:genbsize = 37 & gt ''preSYS2'',''modapp''">Massive</a>'
  69. end
  70. if genbsize = 42:
  71. 'Getting silly - Currently set'
  72. else
  73. '<a href="exec:genbsize = 42 & gt ''preSYS2'',''modapp''">Getting silly</a>'
  74. end
  75. if genbsize = 47:
  76. 'Crazy big - Currently set'
  77. else
  78. '<a href="exec:genbsize = 47 & gt ''preSYS2'',''modapp''">Crazy big</a>'
  79. end
  80. if genbsize = 57:
  81. 'Freakishly big - Currently set'
  82. else
  83. '<a href="exec:genbsize = 57 & gt ''preSYS2'',''modapp''">Freakishly big</a>'
  84. end
  85. if genbsize = 67:
  86. 'Will struggle to open doors or see the ground big - Currently set'
  87. else
  88. '<a href="exec:genbsize = 67 & gt ''preSYS2'',''modapp''">Will struggle to open doors or see the ground big</a>'
  89. end
  90. if genbsize = 87:
  91. 'You''ve been eclipsed by 2 small moons - Currently set'
  92. else
  93. '<a href="exec:genbsize = 87 & gt ''preSYS2'',''modapp''">You''ve been eclipsed by 2 small moons</a>'
  94. end
  95. act 'Body fat (<<salo>>/200)': gs 'preSYS2','setsalo' & salo = nstat & gt 'preSYS2','modapp'
  96. act 'Return': gt'preSYS2','start'
  97. end
  98. if $ARGS[0] = 'setgenbsize':
  99. nstat = genbsize
  100. nstat = input 'Enter value that ends in a 2 or a 7. For example, 2, 7, 12 etc.'
  101. if nstat > 97:
  102. msg 'Please enter a value less than or equal to 97'
  103. gs 'preSYS2', 'setval2'
  104. elseif nstat < 2:
  105. msg 'Please enter a value greater than or equal to 2'
  106. gs 'preSYS2', 'setval2'
  107. elseif nstat mod 5 ! 2:
  108. msg 'Please enter a value that ends in 2, or a 7'
  109. gs 'preSYS2', 'setval2'
  110. else
  111. exit
  112. end
  113. end
  114. if $ARGS[0] = 'modite':
  115. act 'Fake passport (<<fakepassport>>/1)':
  116. if fakepassport = 0:
  117. fakepassport = 1
  118. else
  119. fakepassport = 0
  120. end
  121. gt 'preSYS2','modite'
  122. end
  123. act 'Laptop (<<komp>>/1)':
  124. if komp = 0:
  125. komp = 1
  126. else
  127. komp = 0
  128. end
  129. gt 'preSYS2','modite'
  130. end
  131. act 'Cosmetic items':gt 'preSYS2','modite_cos'
  132. act 'Pharmarcy items':gt 'preSYS2','modite_pha'
  133. act 'Miscellaneous items':gt 'preSYS2','modite_mis'
  134. act 'Return': gt 'preSYS2','start'
  135. end
  136. if $ARGS[0] = 'modite_cos':
  137. act 'Cosmetics (<<kosmetica>>/100)': gs 'preSYS2','setval3' & kosmetica = nstat & gt 'preSYS2','modite_cos'
  138. act 'Razors (<<stanok>>/100)': gs 'preSYS2','setval3' & stanok = nstat & gt 'preSYS2','modite_cos'
  139. act 'Sunblock (<<krem>>/100)': gs 'preSYS2','setval3' & krem = nstat & gt 'preSYS2','modite_cos'
  140. !act 'Shampoo (<<shampoo>>/100)': gs 'preSYS2','setval3' & shampoo = nstat & gt 'preSYS2','modite_cos'
  141. act 'Hair scrunchies (<<hscrunch>>/100)': gs 'preSYS2','setval3' & hscrunch = nstat & gt 'preSYS2','modite_cos'
  142. act 'Hair pins (<<hpingrip>>/100)': gs 'preSYS2','setval3' & hpingrip = nstat & gt 'preSYS2','modite_cos'
  143. act 'Return': gt'preSYS2','modite'
  144. end
  145. if $ARGS[0] = 'modite_pha':
  146. act 'Condoms (<<prezik>>/100)': gs 'preSYS2','setval3' & prezik = nstat & gt 'preSYS2','modite_pha'
  147. act 'Pregnancy tests (<<pregtest>>/100)': gs 'preSYS2','setval3' & pregtest = nstat & gt 'preSYS2','modite_pha'
  148. act 'Birth control pills (<<tabletki>>/100)': gs 'preSYS2','setval3' & tabletki = nstat & gt 'preSYS2','modite_pha'
  149. act 'Antibiotics (<<lekarstvo>>/100)': gs 'preSYS2','setval3' & lekarstvo = nstat & gt 'preSYS2','modite_pha'
  150. act 'Vitmain drinks (<<vitamin>>/100)': gs 'preSYS2','setval3' & vitamin = nstat & gt 'preSYS2','modite_pha'
  151. act 'Painkillers (<<painkiller>>/100)': gs 'preSYS2','setval3' & painkiller = nstat & gt 'preSYS2','modite_pha'
  152. act 'Ointment for chafing (<<mosolmaz>>/100)': gs 'preSYS2','setval3' & mosolmaz = nstat & gt 'preSYS2','modite_pha'
  153. act 'Lubricants (<<lubri>>/100)': gs 'preSYS2','setval3' & lubri = nstat & gt 'preSYS2','modite_pha'
  154. act 'Lip balms (<<lipbalm>>/100)': gs 'preSYS2','setval3' & lipbalm = nstat & gt 'preSYS2','modite_pha'
  155. act 'Weight loss pills (<<fatdel>>/100)': gs 'preSYS2','setval3' & fatdel = nstat & gt 'preSYS2','modite_pha'
  156. act 'Tampons (<<tampon>>/100)': gs 'preSYS2','setval3' & tampon = nstat & gt 'preSYS2','modite_pha'
  157. act 'Sanitary napkins (<<sanpad>>/100)': gs 'preSYS2','setval3' & sanpad = nstat & gt 'preSYS2','modite_pha'
  158. act 'Return': gt'preSYS2','modite'
  159. end
  160. if $ARGS[0] = 'modite_mis':
  161. act 'Cigarettes (<<siga>>/100)': gs 'preSYS2','setval3' & siga = nstat & gt 'preSYS2','modite_mis'
  162. act 'Cocaine (<<dur>>/100)': gs 'preSYS2','setval3' & dur = nstat & gt 'preSYS2','modite_mis'
  163. act 'Cookies (<<pranik>>/100)': gs 'preSYS2','setval3' & pranik = nstat & gt 'preSYS2','modite_mis'
  164. act 'Return': gt 'preSYS2','modite'
  165. end
  166. if $ARGS[0] = 'modpur':
  167. cls
  168. if $currentpursetype = '':
  169. 'You do not own a purse.'
  170. else
  171. '<center><img <<$set_imgh>> src="images/pc/purses/<<$currentpursetype>>/<<currentpursenumber>>.jpg"></center>'
  172. 'Your current purse is <<$currentpursetype>>_<<currentpursenumber>>.'
  173. end
  174. act 'Get cheap':
  175. nbag = input ("Please enter a value between 1 to 14")
  176. if nbag < 1 or nbag > 14:
  177. gt 'preSYS2','modpur'
  178. else
  179. bag = 1
  180. $currentpursetype = 'cheap'
  181. currentpursenumber = nbag
  182. gt 'preSYS2','modpur'
  183. end
  184. end
  185. act 'Get dolls':
  186. nbag = input 'Please enter a value between 1 to 22'
  187. if nbag < 1 or nbag > 22:
  188. gt 'preSYS2','modpur'
  189. else
  190. $currentpursetype = 'dolls'
  191. currentpursenumber = nbag
  192. gt 'preSYS2','modpur'
  193. end
  194. end
  195. act 'Get fashionista':
  196. nbag = input 'Please enter a value between 1 to 15'
  197. if nbag < 1 or nbag > 15:
  198. gt 'preSYS2','modpur'
  199. else
  200. bag = 1
  201. $currentpursetype = 'fashionista'
  202. currentpursenumber = nbag
  203. gt 'preSYS2','modpur'
  204. end
  205. end
  206. act 'Get kats':
  207. nbag = input 'Please enter a value between 1 to 14'
  208. if nbag < 1 or nbag > 14:
  209. gt 'preSYS2','modpur'
  210. else
  211. bag = 1
  212. $currentpursetype = 'kats'
  213. currentpursenumber = nbag
  214. gt 'preSYS2','modpur'
  215. end
  216. end
  217. act 'Get moncheri':
  218. nbag = input 'Please enter a value between 1 to 17'
  219. if nbag < 1 or nbag > 17:
  220. gt 'preSYS2','modpur'
  221. else
  222. bag = 1
  223. $currentpursetype = 'moncheri'
  224. currentpursenumber = nbag
  225. gt 'preSYS2','modpur'
  226. end
  227. end
  228. act 'I do not want a purse':
  229. bag = 0
  230. $currentpursetype = ''
  231. currentpursenumber = ''
  232. gt 'preSYS2','modpur'
  233. end
  234. act 'Return': gt'preSYS2','start'
  235. end
  236. !!This is used to set value, is used to avoid any values that go below 5.
  237. if $ARGS[0] = 'setval':
  238. nstat = 0
  239. nstat = input 'Enter value in multiples of 5. For example, 5, 10, 15 etc.'
  240. if nstat > 100:
  241. msg 'Please enter a value less than or equal to 100'
  242. gs 'preSYS2', 'setval'
  243. elseif nstat < 5:
  244. msg 'Please enter a value greater than or equal to 5'
  245. gs 'preSYS2', 'setval'
  246. elseif nstat mod 5 ! 0:
  247. msg 'Please enter a value in multiples of 5'
  248. gs 'preSYS2', 'setval'
  249. else
  250. gs 'stat'
  251. exit
  252. end
  253. end
  254. !!This is used to set values, that can go below 5 and ranges from 100 to -100.
  255. if $ARGS[0] = 'setval2':
  256. nstat = 0
  257. nstat = input 'Enter value in multiples of 5. For example, 5, 0, -5 etc.'
  258. if nstat > 100:
  259. msg 'Please enter a value less than or equal to 100'
  260. gs 'preSYS2', 'setval2'
  261. elseif nstat < -100:
  262. msg 'Please enter a value greater than or equal to -100'
  263. gs 'preSYS2', 'setval2'
  264. elseif nstat mod 5 ! 0:
  265. msg 'Please enter a value in multiples of 5'
  266. gs 'preSYS2', 'setval2'
  267. else
  268. exit
  269. end
  270. end
  271. !!This is used to set values, that can go to 0 and ranges from 0 to 100.
  272. if $ARGS[0] = 'setval3':
  273. nstat = 0
  274. nstat = input 'Enter value in multiples of 5. For example, 0, 5, 10 etc.'
  275. if nstat > 100:
  276. msg 'Please enter a value less than or equal to 100'
  277. gs 'preSYS2', 'setval3'
  278. elseif nstat < 0:
  279. msg 'Please enter a value greater than or equal to 0'
  280. gs 'preSYS2', 'setval3'
  281. elseif nstat mod 5 ! 0:
  282. msg 'Please enter a value in multiples of 5'
  283. gs 'preSYS2', 'setval3'
  284. else
  285. exit
  286. end
  287. end
  288. if $ARGS[0] = 'setsalo':
  289. nstat = salo
  290. nstat = input 'Enter value in multiples of 20. For example, 20, 40, 60 etc.'
  291. if nstat > 200:
  292. msg 'Please enter a value less than 200'
  293. gs 'preSYS2', 'setval'
  294. elseif nstat < 20:
  295. msg 'Please enter a value greater than 20'
  296. gs 'preSYS2', 'setval'
  297. elseif nstat mod 20 ! 0:
  298. msg 'Please enter a value in multiples of 20'
  299. gs 'preSYS2', 'setval'
  300. else
  301. exit
  302. end
  303. end
  304. if $ARGS[0] = 'modgrup':
  305. cls
  306. 'Your current social group is <<$soc_grup>>.'
  307. act 'Nerd, Geek, Student': $soc_grup = 'nerd'& gt 'preSYS2','modgrup'
  308. act 'Athlete, Jock':$soc_grup = 'jock'& gt 'preSYS2','modgrup'
  309. act 'Popular, Cool, Beautiful':$soc_grup = 'cool'& gt 'preSYS2','modgrup'
  310. act 'Gopnik, Rebel, Punk, Troublemaker':$soc_grup = 'gopnik'& gt 'preSYS2','modgrup'
  311. act 'Outcast, Loser, Goth, Ugly':$soc_grup = 'outcast'& gt 'preSYS2','modgrup'
  312. act 'None, Unaffiliated, Blank': $soc_grup = 'none'& gt 'preSYS2','modgrup'
  313. act 'Return':
  314. if $soc_grup ! 'none':
  315. gs 'preSYS2', 'none'
  316. gs 'preSYS', $soc_grup
  317. else
  318. gs 'preSYS2', $soc_grup
  319. end
  320. gt 'preSYS2','start'
  321. end
  322. end
  323. if $ARGS[0] = 'modatt':
  324. if pcs_dom >= 0 and sub = 0:
  325. act 'Dominance (<<pcs_dom>>/100)': gs 'preSYS2','setval2' & pcs_dom = nstat & gt 'preSYS2','modatt'
  326. elseif sub >= 0 and pcs_dom = 0:
  327. act 'Submissiveness (<<sub>>/100)': gs 'preSYS2','setval2' & sub = nstat & gt 'preSYS2','modatt'
  328. elseif pcs_dom < 0:
  329. sub = pcs_dom * -1
  330. pcs_dom = 0
  331. gt 'preSYS2','modatt'
  332. elseif sub < 0:
  333. pcs_dom = sub * -1
  334. sub = 0
  335. gt 'preSYS2','modatt'
  336. end
  337. act 'Strength (<<pcs_stren>>/100)': gs 'preSYS2','setval' & pcs_stren = nstat & gt 'preSYS2','modatt'
  338. act 'Agility (<<pcs_agil>>/100)': gs 'preSYS2','setval' & pcs_agil = nstat & gt 'preSYS2','modatt'
  339. act 'Endurance (<<pcs_vital>>/100)': gs 'preSYS2','setval' & pcs_vital = nstat & gt 'preSYS2','modatt'
  340. act 'Intelligence (<<pcs_intel>>/100)': gs 'preSYS2','setval' & pcs_intel = nstat & gt 'preSYS2','modatt'
  341. act 'Spirit (<<pcs_sprt>>/100)': gs 'preSYS2','setval' & pcs_sprt = nstat & gt 'preSYS2','modatt'
  342. act 'Mental Agility (<<pcs_react>>/100)': gs 'preSYS2','setval' & pcs_react = nstat & gt 'preSYS2','modatt'
  343. act 'Charisma (<<pcs_chrsm>>/100)': gs 'preSYS2','setval' & pcs_chrsm = nstat & gt 'preSYS2','modatt'
  344. act 'Perception (<<pcs_prcptn>>/100)': gs 'preSYS2','setval' & pcs_prcptn = nstat & gt 'preSYS2','modatt'
  345. if MagikDostup = 0:
  346. act 'Magic (<<pcs_magik >>/100)': gs 'preSYS2','setval' & pcs_magik = nstat & gt 'preSYS2','modatt'
  347. end
  348. act 'Grades (<<pcs_grades>>/100)': gs 'preSYS2','setval3' & pcs_grades = nstat & gt 'preSYS2','modatt'
  349. act 'Exhibitionism (<<pcs_exhibition>>/100)': gs 'preSYS2','setval3' & pcs_exhibition = nstat & gt 'preSYS2','modatt'
  350. act 'Heels (<<pcs_heels>>/100)': gs 'preSYS2','setval3' & pcs_heels = nstat & gt 'preSYS2','modatt'
  351. act 'Return': gt'preSYS2','start'
  352. end
  353. if $ARGS[0] = 'modskl':
  354. !cla
  355. act 'Mental skills':gt 'preSYS2','modskl_men'
  356. act 'Sport skills':gt 'preSYS2','modskl_spo'
  357. act 'Beauty skills':gt 'preSYS2','modskl_bea'
  358. act 'Artistic skills':gt 'preSYS2','modskl_art'
  359. act 'Job skills':gt 'preSYS2','modskl_job'
  360. act 'Return': gt 'preSYS2','start'
  361. end
  362. if $ARGS[0] = 'modskl_men':
  363. if MagikDostup = 0:
  364. act 'Spell Casting (<<pcs_splcstng>>/100)': gs 'preSYS2','setval' & pcs_splcstng = nstat & gt 'preSYS2','modskl_men'
  365. end
  366. act 'People Skills (<<pcs_humint>>/100)': gs 'preSYS2','setval' & pcs_humint = nstat & gt 'preSYS2','modskl_men'
  367. act 'Persuasion (<<pcs_persuas>>/100)': gs 'preSYS2','setval' & pcs_persuas = nstat & gt 'preSYS2','modskl_men'
  368. act 'Observation (<<pcs_observ>>/100)': gs 'preSYS2','setval' & pcs_observ = nstat & gt 'preSYS2','modskl_men'
  369. act 'Return': gt 'preSYS2','modskl'
  370. end
  371. if $ARGS[0] = 'modskl_spo':
  372. act 'Jabs (<<pcs_jab>>/100)': gs 'preSYS2','setval' & pcs_jab = nstat & gt 'preSYS2','modskl_spo'
  373. act 'Power Strikes (<<pcs_punch>>/100)': gs 'preSYS2','setval' & pcs_punch = nstat & gt 'preSYS2','modskl_spo'
  374. act 'Kicks (<<pcs_kick>>/100)': gs 'preSYS2','setval' & pcs_kick = nstat & gt 'preSYS2','modskl_spo'
  375. act 'Defence (<<pcs_def>>/100)': gs 'preSYS2','setval' & pcs_def = nstat & gt 'preSYS2','modskl_spo'
  376. act 'Running (<<pcs_run>>/100)': gs 'preSYS2','setval' & pcs_run = nstat & gt 'preSYS2','modskl_spo'
  377. act 'Volleyball (<<pcs_vball>>/100)': gs 'preSYS2','setval' & pcs_vball = nstat & gt 'preSYS2','modskl_spo'
  378. act 'Football (<<pcs_ftball>>/100)': gs 'preSYS2','setval' & pcs_ftball = nstat & gt 'preSYS2','modskl_spo'
  379. act 'Wrestling (<<pcs_wrstlng>>/100)': gs 'preSYS2','setval' & pcs_wrstlng = nstat & gt 'preSYS2','modskl_spo'
  380. act 'Marskmanship (<<pcs_shoot>>/100)': gs 'preSYS2','setval' & pcs_shoot = nstat & gt 'preSYS2','modskl_spo'
  381. act 'Chess (<<pcs_chess>>/100)': gs 'preSYS2','setval' & pcs_chess = nstat & gt 'preSYS2','modskl_spo'
  382. act 'Ice Skating (<<pcs_icesktng>>/100)': gs 'preSYS2','setval' & pcs_icesktng = nstat & gt 'preSYS2','modskl_spo'
  383. act 'Gaming (<<pcs_ttgmng>>/100)': gs 'preSYS2','setval' & pcs_ttgmng = nstat & gt 'preSYS2','modskl_spo'
  384. act 'Return': gt 'preSYS2','modskl'
  385. end
  386. if $ARGS[0] = 'modskl_bea':
  387. act 'Makeup Skills (<<pcs_makupskl>>/100)': gs 'preSYS2','setval' & pcs_makupskl = nstat & gt 'preSYS2','modskl_bea'
  388. act 'Modern Dancing (<<pcs_danc>>/100)': gs 'preSYS2','setval' & pcs_danc = nstat & gt 'preSYS2','modskl_bea'
  389. act 'Erotic Dancing (<<pcs_dancero>>/100)': gs 'preSYS2','setval' & pcs_dancero = nstat & gt 'preSYS2','modskl_bea'
  390. act 'Pole Dancing (<<pcs_dancpol>>/100)': gs 'preSYS2','setval' & pcs_dancpol = nstat & gt 'preSYS2','modskl_bea'
  391. act 'Modelling (<<pcs_mdlng>>/100)': gs 'preSYS2','setval' & pcs_mdlng = nstat & gt 'preSYS2','modskl_bea'
  392. act 'Return': gt 'preSYS2','modskl'
  393. end
  394. if $ARGS[0] = 'modskl_art':
  395. act 'Singing (<<pcs_vokal>>/100)': gs 'preSYS2','setval' & pcs_vokal = nstat & gt 'preSYS2','modskl_art'
  396. act 'Instrumental Music (<<pcs_instrmusic>>/100)': gs 'preSYS2','setval' & pcs_instrmusic = nstat & gt 'preSYS2','modskl_art'
  397. act 'Photography (<<pcs_photoskl>>/100)': gs 'preSYS2','setval' & pcs_photoskl = nstat & gt 'preSYS2','modskl_art'
  398. act 'Artistic Skills (<<pcs_artskl>>/100)': gs 'preSYS2','setval' & pcs_artskl = nstat & gt 'preSYS2','modskl_art'
  399. act 'Return': gt 'preSYS2','modskl'
  400. end
  401. if $ARGS[0] = 'modskl_job':
  402. act 'Computer Skills (<<pcs_compskl>>/100)': gs 'preSYS2','setval' & pcs_compskl = nstat & gt 'preSYS2','modskl_job'
  403. act 'Hacking (<<pcs_comphckng>>/100)': gs 'preSYS2','setval' & pcs_comphckng = nstat & gt 'preSYS2','modskl_job'
  404. act 'Handy-work (<<pcs_hndiwrk>>/100)': gs 'preSYS2','setval' & pcs_hndiwrk = nstat & gt 'preSYS2','modskl_job'
  405. act 'Tailoring (<<pcs_sewng>>/100)': gs 'preSYS2','setval' & pcs_sewng = nstat & gt 'preSYS2','modskl_job'
  406. act 'Serving (<<pcs_servng>>/100)': gs 'preSYS2','setval' & pcs_servng = nstat & gt 'preSYS2','modskl_job'
  407. act 'Medicine (<<pcs_medcn>>/100)': gs 'preSYS2','setval' & pcs_medcn = nstat & gt 'preSYS2','modskl_job'
  408. act 'Return': gt 'preSYS2','modskl'
  409. end
  410. if $ARGS[0] = 'none':
  411. !!Attributes Reset - I know most of these att&skl are not in need of reset, but I dont know how to use loops and I wanted this to clear all changes made by choosing social group and/or player choices.
  412. pcs_dom = 0
  413. pcs_stren = 30
  414. pcs_agil = 30
  415. pcs_vital = 30
  416. pcs_intel = 30
  417. pcs_react = 30
  418. pcs_sprt = 30
  419. pcs_chrsm = 30
  420. pcs_prcptn = 30
  421. pcs_grade = 75
  422. pcs_exhibition = 0
  423. pcs_heel = 5
  424. !!Mental Skills Reset
  425. pcs_humint = 0
  426. pcs_persuas = 0
  427. pcs_observ = 0
  428. !!Sport Skills Reset
  429. pcs_jab = 0
  430. pcs_punch = 0
  431. pcs_kick = 0
  432. pcs_def = 0
  433. pcs_run = 0
  434. pcs_vball = 0
  435. pcs_ftball = 0
  436. pcs_wrstlng = 0
  437. pcs_shoot = 0
  438. pcs_chess = 0
  439. pcs_icesktng = 0
  440. pcs_ttgmng = 0
  441. !!Beauty Skills Reset
  442. pcs_makupskl = 20
  443. pcs_danc = 0
  444. pcs_dancero = 0
  445. pcs_dancpol = 0
  446. pcs_mdlng = 0
  447. !!Artistic Skills Reset
  448. pcs_vokal = 0
  449. pcs_instrmusic = 0
  450. pcs_photoskl = 0
  451. pcs_artskl = 0
  452. !!Job Skills Reset
  453. pcs_compskl = 0
  454. pcs_comphckng = 0
  455. pcs_hndiwrk = 0
  456. pcs_sewng = 0
  457. pcs_servng = 0
  458. pcs_medcn = 0
  459. !!social group Reset
  460. grupTipe = 0
  461. grupvalue[1] = 0
  462. grupvalue[2] = 0
  463. grupvalue[3] = 0
  464. grupvalue[4] = 0
  465. grupvalue[6] = 0
  466. gs 'preSYS', 'socialgroup_setting', 0, 0, 0, 0, 0, 0
  467. !!npc relationship Reset
  468. npc_rel['A11'] = 60
  469. npc_rel['A129'] = 30
  470. npc_rel['A133'] = 30
  471. npc_rel['A28'] = 50
  472. npc_rel['A29'] = 50
  473. npc_rel['A33'] = 70
  474. npc_rel['A34'] = 50
  475. !!items Reset
  476. money = 2000
  477. fakepassport = 0
  478. fantasybook = 0
  479. glass = 0
  480. hscrunch = 0
  481. kosmetica = 0
  482. pirsC = 0
  483. PirsC1_owned = 0
  484. shampoo = 0
  485. siga = 0
  486. stanok = 0
  487. swim_start = 0
  488. tampon = 0
  489. !!apprnc & sex stat reset
  490. genbsize = 22
  491. pcs_skin = 40
  492. salo = 80
  493. pcs_tan = 0
  494. pcs_throat = 0
  495. pcs_vag = 0
  496. stat['bj'] = 0
  497. stat['hj'] = 0
  498. stat['vaginal'] = 0
  499. end
  500. if $ARGS[0] = 'modrel':
  501. act 'Family':gt 'preSYS2','modrel_fam'
  502. act 'Popular Kids':gt 'preSYS2','modrel_pop'
  503. act 'Athletes':gt 'preSYS2','modrel_ath'
  504. act 'Nerds':gt 'preSYS2','modrel_ner'
  505. act 'Gopniks':gt 'preSYS2','modrel_gop'
  506. act 'Outcasts/Loners':gt'preSYS2','modrel_out'
  507. act 'Teachers/Coaches':gt'preSYS2','modrel_tea'
  508. act 'Others':gt'preSYS2','modrel_oth'
  509. act 'Return':gt 'preSYS2','start'
  510. end
  511. if $ARGS[0] = 'modrel_fam':
  512. act 'Stepfather: <<npc_rel[''A28'']>>': gs 'preSYS2','setval2' & npc_rel['A28'] = nstat & gt 'preSYS2','modrel_fam'
  513. act 'Mother: <<npc_rel[''A29'']>>': gs 'preSYS2','setval2' & npc_rel['A29'] = nstat & gt 'preSYS2','modrel_fam'
  514. act 'Sister: <<npc_rel[''A33'']>>': gs 'preSYS2','setval2' & npc_rel['A33'] = nstat & gt 'preSYS2','modrel_fam'
  515. act 'Brother: <<npc_rel[''A34'']>>': gs 'preSYS2','setval2' & npc_rel['A34'] = nstat & gt 'preSYS2','modrel_fam'
  516. act 'Return': gt 'preSYS2','modrel'
  517. end
  518. if $ARGS[0] = 'modrel_pop':
  519. act '<<$npc_firstname[''A1'']>> <<$npc_lastname[''A1'']>>: <<npc_rel[''A1'']>>' : gs 'preSYS2','setval2' & npc_rel['A1'] = nstat & gt 'preSYS2','modrel_pop'
  520. act '<<$npc_firstname[''A4'']>> <<$npc_lastname[''A4'']>>: <<npc_rel[''A4'']>>' : gs 'preSYS2','setval2' & npc_rel['A4'] = nstat & gt 'preSYS2','modrel_pop'
  521. act '<<$npc_firstname[''A14'']>> <<$npc_lastname[''A14'']>>: <<npc_rel[''A14'']>>' : gs 'preSYS2','setval2' & npc_rel['A14'] = nstat & gt 'preSYS2','modrel_pop'
  522. act '<<$npc_firstname[''A15'']>> <<$npc_lastname[''A15'']>>: <<npc_rel[''A15'']>>' : gs 'preSYS2','setval2' & npc_rel['A15'] = nstat & gt 'preSYS2','modrel_pop'
  523. act '<<$npc_firstname[''A17'']>> <<$npc_lastname[''A17'']>>: <<npc_rel[''A17'']>>' : gs 'preSYS2','setval2' & npc_rel['A17'] = nstat & gt 'preSYS2','modrel_pop'
  524. act '<<$npc_firstname[''A23'']>> <<$npc_lastname[''A23'']>>: <<npc_rel[''A23'']>>' : gs 'preSYS2','setval2' & npc_rel['A23'] = nstat & gt 'preSYS2','modrel_pop'
  525. act '<<$npc_firstname[''A146'']>> <<$npc_lastname[''A146'']>>: <<npc_rel[''A146'']>>' : gs 'preSYS2','setval2' & npc_rel['A146'] = nstat & gt 'preSYS2','modrel_pop'
  526. act '<<$npc_firstname[''A147'']>> <<$npc_lastname[''A147'']>>: <<npc_rel[''A147'']>>' : gs 'preSYS2','setval2' & npc_rel['A147'] = nstat & gt 'preSYS2','modrel_pop'
  527. act '<<$npc_firstname[''A148'']>> <<$npc_lastname[''A148'']>>: <<npc_rel[''A148'']>>' : gs 'preSYS2','setval2' & npc_rel['A148'] = nstat & gt 'preSYS2','modrel_pop'
  528. act '<<$npc_firstname[''A25'']>> <<$npc_lastname[''A25'']>>: <<npc_rel[''A25'']>>' : gs 'preSYS2','setval2' & npc_rel['A25'] = nstat & gt 'preSYS2','modrel_pop'
  529. act '<<$npc_firstname[''A139'']>> <<$npc_lastname[''A139'']>>: <<npc_rel[''A139'']>>' : gs 'preSYS2','setval2' & npc_rel['A139'] = nstat & gt 'preSYS2','modrel_pop'
  530. act '<<$npc_firstname[''A140'']>> <<$npc_lastname[''A140'']>>: <<npc_rel[''A140'']>>' : gs 'preSYS2','setval2' & npc_rel['A140'] = nstat & gt 'preSYS2','modrel_pop'
  531. act 'Boys only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 0, 1, nstat & gt 'preSYS2','modrel_pop'
  532. act 'Girls only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 1, 1, nstat & gt 'preSYS2','modrel_pop'
  533. act 'Return': gt 'preSYS2','modrel'
  534. end
  535. if $ARGS[0] = 'modrel_ath':
  536. act '<<$npc_firstname[''A3'']>> <<$npc_lastname[''A3'']>>: <<npc_rel[''A3'']>>' : gs 'preSYS2','setval2' & npc_rel['A3'] = nstat & gt 'preSYS2','modrel_ath'
  537. act '<<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>>: <<npc_rel[''A4'']>>' : gs 'preSYS2','setval2' & npc_rel['A5'] = nstat & gt 'preSYS2','modrel_ath'
  538. act '<<$npc_firstname[''A8'']>> <<$npc_lastname[''A8'']>>: <<npc_rel[''A8'']>>' : gs 'preSYS2','setval2' & npc_rel['A8'] = nstat & gt 'preSYS2','modrel_ath'
  539. act '<<$npc_firstname[''A13'']>> <<$npc_lastname[''A13'']>>: <<npc_rel[''A13'']>>' : gs 'preSYS2','setval2' & npc_rel['A13'] = nstat & gt 'preSYS2','modrel_ath'
  540. act '<<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>>: <<npc_rel[''A18'']>>' : gs 'preSYS2','setval2' & npc_rel['A18'] = nstat & gt 'preSYS2','modrel_ath'
  541. act '<<$npc_firstname[''A19'']>> <<$npc_lastname[''A19'']>>: <<npc_rel[''A19'']>>' : gs 'preSYS2','setval2' & npc_rel['A19'] = nstat & gt 'preSYS2','modrel_ath'
  542. act '<<$npc_firstname[''A22'']>> <<$npc_lastname[''A22'']>>: <<npc_rel[''A22'']>>' : gs 'preSYS2','setval2' & npc_rel['A22'] = nstat & gt 'preSYS2','modrel_ath'
  543. act '<<$npc_firstname[''A149'']>> <<$npc_lastname[''A149'']>>: <<npc_rel[''A149'']>>' : gs 'preSYS2','setval2' & npc_rel['A149'] = nstat & gt 'preSYS2','modrel_ath'
  544. act '<<$npc_firstname[''A150'']>> <<$npc_lastname[''A150'']>>: <<npc_rel[''A150'']>>' : gs 'preSYS2','setval2' & npc_rel['A150'] = nstat & gt 'preSYS2','modrel_ath'
  545. act '<<$npc_firstname[''A141'']>> <<$npc_lastname[''A141'']>>: <<npc_rel[''A141'']>>' : gs 'preSYS2','setval2' & npc_rel['A141'] = nstat & gt 'preSYS2','modrel_ath'
  546. act 'Boys only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 0, 2, nstat & gt 'preSYS2','modrel_ath'
  547. act 'Girls only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 1, 2, nstat & gt 'preSYS2','modrel_ath'
  548. act 'Return': gt 'preSYS2','modrel'
  549. end
  550. if $ARGS[0] = 'modrel_ath':
  551. act '<<$npc_firstname[''A3'']>> <<$npc_lastname[''A3'']>>: <<npc_rel[''A3'']>>' : gs 'preSYS2','setval2' & npc_rel['A3'] = nstat & gt 'preSYS2','modrel_ath'
  552. act '<<$npc_firstname[''A5'']>> <<$npc_lastname[''A5'']>>: <<npc_rel[''A5'']>>' : gs 'preSYS2','setval2' & npc_rel['A5'] = nstat & gt 'preSYS2','modrel_ath'
  553. act '<<$npc_firstname[''A8'']>> <<$npc_lastname[''A8'']>>: <<npc_rel[''A8'']>>' : gs 'preSYS2','setval2' & npc_rel['A8'] = nstat & gt 'preSYS2','modrel_ath'
  554. act '<<$npc_firstname[''A13'']>> <<$npc_lastname[''A13'']>>: <<npc_rel[''A13'']>>' : gs 'preSYS2','setval2' & npc_rel['A13'] = nstat & gt 'preSYS2','modrel_ath'
  555. act '<<$npc_firstname[''A18'']>> <<$npc_lastname[''A18'']>>: <<npc_rel[''A18'']>>' : gs 'preSYS2','setval2' & npc_rel['A18'] = nstat & gt 'preSYS2','modrel_ath'
  556. act '<<$npc_firstname[''A19'']>> <<$npc_lastname[''A19'']>>: <<npc_rel[''A19'']>>' : gs 'preSYS2','setval2' & npc_rel['A19'] = nstat & gt 'preSYS2','modrel_ath'
  557. act '<<$npc_firstname[''A22'']>> <<$npc_lastname[''A22'']>>: <<npc_rel[''A22'']>>' : gs 'preSYS2','setval2' & npc_rel['A22'] = nstat & gt 'preSYS2','modrel_ath'
  558. act '<<$npc_firstname[''A149'']>> <<$npc_lastname[''A149'']>>: <<npc_rel[''A149'']>>' : gs 'preSYS2','setval2' & npc_rel['A149'] = nstat & gt 'preSYS2','modrel_ath'
  559. act '<<$npc_firstname[''A150'']>> <<$npc_lastname[''A150'']>>: <<npc_rel[''A150'']>>' : gs 'preSYS2','setval2' & npc_rel['A150'] = nstat & gt 'preSYS2','modrel_ath'
  560. act '<<$npc_firstname[''A141'']>> <<$npc_lastname[''A141'']>>: <<npc_rel[''A141'']>>' : gs 'preSYS2','setval2' & npc_rel['A141'] = nstat & gt 'preSYS2','modrel_ath'
  561. act 'Boys only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 0, 2, nstat & gt 'preSYS2','modrel_ath'
  562. act 'Girls only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 1, 2, nstat & gt 'preSYS2','modrel_ath'
  563. act 'Return': gt 'preSYS2','modrel'
  564. end
  565. if $ARGS[0] = 'modrel_ner':
  566. act '<<$npc_firstname[''A2'']>> <<$npc_lastname[''A2'']>>: <<npc_rel[''A2'']>>' : gs 'preSYS2','setval2' & npc_rel['A2'] = nstat & gt 'preSYS2','modrel_ner'
  567. act '<<$npc_firstname[''A6'']>> <<$npc_lastname[''A6'']>>: <<npc_rel[''A6'']>>' : gs 'preSYS2','setval2' & npc_rel['A6'] = nstat & gt 'preSYS2','modrel_ner'
  568. act '<<$npc_firstname[''A12'']>> <<$npc_lastname[''A12'']>>: <<npc_rel[''A12'']>>' : gs 'preSYS2','setval2' & npc_rel['A12'] = nstat & gt 'preSYS2','modrel_ner'
  569. act '<<$npc_firstname[''A16'']>> <<$npc_lastname[''A16'']>>: <<npc_rel[''A16'']>>' : gs 'preSYS2','setval2' & npc_rel['A16'] = nstat & gt 'preSYS2','modrel_ner'
  570. act '<<$npc_firstname[''A151'']>> <<$npc_lastname[''A151'']>>: <<npc_rel[''A151'']>>' : gs 'preSYS2','setval2' & npc_rel['A151'] = nstat & gt 'preSYS2','modrel_ner'
  571. act '<<$npc_firstname[''A152'']>> <<$npc_lastname[''A152'']>>: <<npc_rel[''A152'']>>' : gs 'preSYS2','setval2' & npc_rel['A152'] = nstat & gt 'preSYS2','modrel_ner'
  572. act '<<$npc_firstname[''A153'']>> <<$npc_lastname[''A153'']>>: <<npc_rel[''A153'']>>' : gs 'preSYS2','setval2' & npc_rel['A153'] = nstat & gt 'preSYS2','modrel_ner'
  573. act '<<$npc_firstname[''A142'']>> <<$npc_lastname[''A142'']>>: <<npc_rel[''A142'']>>' : gs 'preSYS2','setval2' & npc_rel['A142'] = nstat & gt 'preSYS2','modrel_ner'
  574. act 'Boys only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 0, 3, nstat & gt 'preSYS2','modrel_ner'
  575. act 'Girls only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 1, 3, nstat & gt 'preSYS2','modrel_ner'
  576. act 'Return': gt 'preSYS2','modrel'
  577. end
  578. if $ARGS[0] = 'modrel_gop':
  579. act '<<$npc_firstname[''A9'']>> <<$npc_lastname[''A9'']>>: <<npc_rel[''A9'']>>' : gs 'preSYS2','setval2' & npc_rel['A9'] = nstat & gt 'preSYS2','modrel_ner'
  580. act '<<$npc_firstname[''A10'']>> <<$npc_lastname[''A10'']>>: <<npc_rel[''A10'']>>' : gs 'preSYS2','setval2' & npc_rel['A10'] = nstat & gt 'preSYS2','modrel_ner'
  581. act '<<$npc_firstname[''A11'']>> <<$npc_lastname[''A11'']>>: <<npc_rel[''A11'']>>' : gs 'preSYS2','setval2' & npc_rel['A11'] = nstat & gt 'preSYS2','modrel_ner'
  582. act '<<$npc_firstname[''A20'']>> <<$npc_lastname[''A20'']>>: <<npc_rel[''A20'']>>' : gs 'preSYS2','setval2' & npc_rel['A20'] = nstat & gt 'preSYS2','modrel_ner'
  583. act '<<$npc_firstname[''A21'']>> <<$npc_lastname[''A21'']>>: <<npc_rel[''A21'']>>' : gs 'preSYS2','setval2' & npc_rel['A21'] = nstat & gt 'preSYS2','modrel_ner'
  584. act '<<$npc_firstname[''A24'']>> <<$npc_lastname[''A24'']>>: <<npc_rel[''A24'']>>' : gs 'preSYS2','setval2' & npc_rel['A24'] = nstat & gt 'preSYS2','modrel_ner'
  585. act '<<$npc_firstname[''A154'']>> <<$npc_lastname[''A154'']>>: <<npc_rel[''A154'']>>' : gs 'preSYS2','setval2' & npc_rel['A154'] = nstat & gt 'preSYS2','modrel_ner'
  586. act '<<$npc_firstname[''A155'']>> <<$npc_lastname[''A155'']>>: <<npc_rel[''A155'']>>' : gs 'preSYS2','setval2' & npc_rel['A155'] = nstat & gt 'preSYS2','modrel_ner'
  587. act '<<$npc_firstname[''A156'']>> <<$npc_lastname[''A156'']>>: <<npc_rel[''A156'']>>' : gs 'preSYS2','setval2' & npc_rel['A156'] = nstat & gt 'preSYS2','modrel_ner'
  588. act '<<$npc_firstname[''A157'']>> <<$npc_lastname[''A157'']>>: <<npc_rel[''A157'']>>' : gs 'preSYS2','setval2' & npc_rel['A157'] = nstat & gt 'preSYS2','modrel_ner'
  589. act '<<$npc_firstname[''A158'']>> <<$npc_lastname[''A158'']>>: <<npc_rel[''A158'']>>' : gs 'preSYS2','setval2' & npc_rel['A158'] = nstat & gt 'preSYS2','modrel_ner'
  590. act '<<$npc_firstname[''A143'']>> <<$npc_lastname[''A143'']>>: <<npc_rel[''A143'']>>' : gs 'preSYS2','setval2' & npc_rel['A143'] = nstat & gt 'preSYS2','modrel_ner'
  591. act '<<$npc_firstname[''A144'']>> <<$npc_lastname[''A144'']>>: <<npc_rel[''A144'']>>' : gs 'preSYS2','setval2' & npc_rel['A144'] = nstat & gt 'preSYS2','modrel_ner'
  592. act '<<$npc_firstname[''A145'']>> <<$npc_lastname[''A145'']>>: <<npc_rel[''A145'']>>' : gs 'preSYS2','setval2' & npc_rel['A145'] = nstat & gt 'preSYS2','modrel_ner'
  593. act 'Boys only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 0, 4, nstat & gt 'preSYS2','modrel_ner'
  594. act 'Girls only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 1, 4, nstat & gt 'preSYS2','modrel_ner'
  595. act 'Return': gt 'preSYS2','modrel'
  596. end
  597. if $ARGS[0] = 'modrel_out':
  598. act '<<$npc_firstname[''A7'']>> <<$npc_lastname[''A7'']>>: <<npc_rel[''A7'']>>' : gs 'preSYS2','setval2' & npc_rel['A7'] = nstat & gt 'preSYS2','modrel_out'
  599. act '<<$npc_firstname[''A159'']>> <<$npc_lastname[''A159'']>>: <<npc_rel[''A159'']>>' : gs 'preSYS2','setval2' & npc_rel['A159'] = nstat & gt 'preSYS2','modrel_out'
  600. act 'Boys only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 0, 5, nstat & gt 'preSYS2','modrel_out'
  601. !act 'Girls only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 1, 5, nstat & gt 'preSYS2','modrel_out'
  602. act 'Return': gt 'preSYS2','modrel'
  603. end
  604. if $ARGS[0] = 'modrel_tea':
  605. act '<<$npc_firstname[''A26'']>> <<$npc_lastname[''A26'']>>: <<npc_rel[''A26'']>>' : gs 'preSYS2','setval2' & npc_rel['A26'] = nstat & gt 'preSYS2','modrel_tea'
  606. act '<<$npc_firstname[''A128'']>> <<$npc_lastname[''A128'']>>: <<npc_rel[''A128'']>>' : gs 'preSYS2','setval2' & npc_rel['A128'] = nstat & gt 'preSYS2','modrel_tea'
  607. act '<<$npc_firstname[''A129'']>> <<$npc_lastname[''A129'']>>: <<npc_rel[''A129'']>>' : gs 'preSYS2','setval2' & npc_rel['A129'] = nstat & gt 'preSYS2','modrel_tea'
  608. act '<<$npc_firstname[''A130'']>> <<$npc_lastname[''A130'']>>: <<npc_rel[''A130'']>>' : gs 'preSYS2','setval2' & npc_rel['A130'] = nstat & gt 'preSYS2','modrel_tea'
  609. act '<<$npc_firstname[''A131'']>> <<$npc_lastname[''A131'']>>: <<npc_rel[''A131'']>>' : gs 'preSYS2','setval2' & npc_rel['A131'] = nstat & gt 'preSYS2','modrel_tea'
  610. act '<<$npc_firstname[''A132'']>> <<$npc_lastname[''A132'']>>: <<npc_rel[''A132'']>>' : gs 'preSYS2','setval2' & npc_rel['A132'] = nstat & gt 'preSYS2','modrel_tea'
  611. act '<<$npc_firstname[''A133'']>> <<$npc_lastname[''A133'']>>: <<npc_rel[''A133'']>>' : gs 'preSYS2','setval2' & npc_rel['A133'] = nstat & gt 'preSYS2','modrel_tea'
  612. act '<<$npc_firstname[''A134'']>> <<$npc_lastname[''A134'']>>: <<npc_rel[''A134'']>>' : gs 'preSYS2','setval2' & npc_rel['A134'] = nstat & gt 'preSYS2','modrel_tea'
  613. act '<<$npc_firstname[''A135'']>> <<$npc_lastname[''A135'']>>: <<npc_rel[''A135'']>>' : gs 'preSYS2','setval2' & npc_rel['A135'] = nstat & gt 'preSYS2','modrel_tea'
  614. act '<<$npc_firstname[''A136'']>> <<$npc_lastname[''A136'']>>: <<npc_rel[''A136'']>>' : gs 'preSYS2','setval2' & npc_rel['A136'] = nstat & gt 'preSYS2','modrel_tea'
  615. act '<<$npc_firstname[''A137'']>> <<$npc_lastname[''A137'']>>: <<npc_rel[''A137'']>>' : gs 'preSYS2','setval2' & npc_rel['A137'] = nstat & gt 'preSYS2','modrel_tea'
  616. act '<<$npc_firstname[''A138'']>> <<$npc_lastname[''A138'']>>: <<npc_rel[''A138'']>>' : gs 'preSYS2','setval2' & npc_rel['A138'] = nstat & gt 'preSYS2','modrel_tea'
  617. act 'Men only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 0, 6, nstat & gt 'preSYS2','modrel_tea'
  618. act 'Women only': gs 'preSYS2','setval2' & gs 'preSYS2', 'pol_grup_set', 1, 6, nstat & gt 'preSYS2','modrel_tea'
  619. act 'Return': gt 'preSYS2','modrel'
  620. end
  621. if $ARGS[0] = 'modrel_oth':
  622. !!Volleyball Coach is here because it wasnt being controlled by grup6 the teachers/coaches.
  623. act '<<$npc_firstname[''A69'']>> <<$npc_lastname[''A69'']>>: <<npc_rel[''A69'']>>' : gs 'preSYS2','setval2' & npc_rel['A69'] = nstat & gt 'preSYS2','modrel_oth'
  624. act '<<$npc_firstname[''A112'']>> <<$npc_lastname[''A112'']>>: <<npc_rel[''A112'']>>' : gs 'preSYS2','setval2' & npc_rel['A112'] = nstat & gt 'preSYS2','modrel_oth'
  625. act 'Return': gt 'preSYS2','modrel'
  626. end
  627. if $ARGS[0] = 'pol_grup_set':
  628. !!ARGS[1] 0 is boys, 1 is girls. ARGS[2] 1nerd 2jock 3cool 4gopnik 5outcast 6teachers. ARGS[3] is changes to value
  629. r = 1
  630. :pol_grup_set_loop
  631. $school_static_num = $school_static_num[r]
  632. if npcPol[r] = ARGS[1] and grupTipe[r] = ARGS[2]:
  633. npc_rel[$school_static_num] = ARGS[3]
  634. end
  635. r += 1
  636. if r <= 61:jump 'pol_grup_set_loop'
  637. end
  638. --- preSYS2 ---------------------------------