preSYS2.qsrc 31 KB

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