1
0

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. gs 'obj_din', 'old'
  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''">Above average</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 'Pharmacy 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] = 'modrel_setup2':
  137. dynamic 'if <<$ARGS[1]>> < 0: <<$ARGS[1]>> = 0'
  138. dynamic 'if <<$ARGS[1]>> > 100: <<$ARGS[1]>> = 100'
  139. dynamic 'x = <<$ARGS[1]>>'
  140. '<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>'
  141. end
  142. if $ARGS[0] = 'modite_cos':
  143. $metka = 'modite_cos'
  144. '<center><b>Cosmetic items</b></center>'
  145. *nl
  146. *nl
  147. '<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>'
  148. gs 'preSYS2', 'modrel_setup2', 'kosmetica', 'Cosmetics'
  149. gs 'preSYS2', 'modrel_setup2', 'stanok', 'Razors'
  150. gs 'preSYS2', 'modrel_setup2', 'krem', 'Sunblock'
  151. gs 'preSYS2', 'modrel_setup2', 'hscrunch', 'Hair scrunchies'
  152. gs 'preSYS2', 'modrel_setup2', 'hpingrip', 'Hair pins'
  153. '</table></center>'
  154. !act 'Shampoo (<<shampoo>>/100)': gs 'preSYS2','setval3' & shampoo = nstat & gt 'preSYS2','modite_cos'
  155. act 'Return': gt'preSYS2','modite'
  156. end
  157. if $ARGS[0] = 'modite_pha':
  158. $metka = 'modite_pha'
  159. '<center><b>Pharmaceutical items</b></center>'
  160. *nl
  161. *nl
  162. '<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>'
  163. gs 'preSYS2', 'modrel_setup2', 'prezik', 'Condoms'
  164. gs 'preSYS2', 'modrel_setup2', 'pregtest', 'Pregnancy tests'
  165. gs 'preSYS2', 'modrel_setup2', 'tabletki', 'Birth control pills'
  166. gs 'preSYS2', 'modrel_setup2', 'lekarstvo', 'Antibiotics'
  167. gs 'preSYS2', 'modrel_setup2', 'vitamin', 'Vitamins'
  168. gs 'preSYS2', 'modrel_setup2', 'painkiller', 'Painkillers'
  169. gs 'preSYS2', 'modrel_setup2', 'mosolmaz', 'Ointment for chafing'
  170. gs 'preSYS2', 'modrel_setup2', 'lubri', 'Lubricants'
  171. gs 'preSYS2', 'modrel_setup2', 'lipbalm', 'Lip balms'
  172. gs 'preSYS2', 'modrel_setup2', 'fatdel', 'Weight loss pills'
  173. gs 'preSYS2', 'modrel_setup2', 'tampon', 'Tampons'
  174. gs 'preSYS2', 'modrel_setup2', 'sanpad', 'Sanitary napkins'
  175. '</table></center>'
  176. act 'Return': gt'preSYS2','modite'
  177. end
  178. if $ARGS[0] = 'modite_mis':
  179. $metka = 'modite_mis'
  180. '<center><b>Misc items</b></center>'
  181. *nl
  182. *nl
  183. '<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>'
  184. gs 'preSYS2', 'modrel_setup2', 'siga', 'Cigarettes'
  185. gs 'preSYS2', 'modrel_setup2', 'dur', 'Cocaine'
  186. gs 'preSYS2', 'modrel_setup2', 'pranik', 'Tea Biscuits'
  187. '</table></center>'
  188. act 'Return': gt 'preSYS2','modite'
  189. end
  190. if $ARGS[0] = 'modpur':
  191. cls
  192. if $currentpursetype = '':
  193. 'You do not own a purse.'
  194. else
  195. '<center><img <<$set_imgh>> src="images/pc/purses/<<$currentpursetype>>/<<currentpursenumber>>.jpg"></center>'
  196. 'Your current purse is <<$currentpursetype>>_<<currentpursenumber>>.'
  197. end
  198. act 'Get cheap':
  199. nbag = input ("Please enter a value between 1 to 14")
  200. if nbag < 1 or nbag > 14:
  201. gt 'preSYS2','modpur'
  202. else
  203. bag = 1
  204. $currentpursetype = 'cheap'
  205. currentpursenumber = nbag
  206. gt 'preSYS2','modpur'
  207. end
  208. end
  209. act 'Get dolls':
  210. nbag = input 'Please enter a value between 1 to 22'
  211. if nbag < 1 or nbag > 22:
  212. gt 'preSYS2','modpur'
  213. else
  214. bag = 1
  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', 'Reaction'
  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. act 'Return': gt'preSYS2','start'
  368. end
  369. if $ARGS[0] = 'modskl':
  370. !cla
  371. act 'Mental skills':gt 'preSYS2','modskl_men'
  372. act 'Sport skills':gt 'preSYS2','modskl_spo'
  373. act 'Beauty skills':gt 'preSYS2','modskl_bea'
  374. act 'Artistic skills':gt 'preSYS2','modskl_art'
  375. act 'Job skills':gt 'preSYS2','modskl_job'
  376. act 'Return': gt 'preSYS2','start'
  377. end
  378. if $ARGS[0] = 'modskl_men':
  379. $metka = 'modskl_men'
  380. '<center><b>Mental Skills</b></center>'
  381. *nl
  382. *nl
  383. '<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>'
  384. if MagikDostup = 0: gs 'preSYS2', 'modrel_setup2', 'pcs_splcstng', 'Spell Casting'
  385. gs 'preSYS2', 'modrel_setup2', 'pcs_humint', 'People skills'
  386. gs 'preSYS2', 'modrel_setup2', 'pcs_persuas', 'Persuasion'
  387. gs 'preSYS2', 'modrel_setup2', 'pcs_observ', 'Observation'
  388. '</table></center>'
  389. nl
  390. act 'Return': gt 'preSYS2','modskl'
  391. end
  392. if $ARGS[0] = 'modskl_spo':
  393. $metka = 'modskl_spo'
  394. '<center><b>Sport Skills</b></center>'
  395. *nl
  396. *nl
  397. '<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>'
  398. gs 'preSYS2', 'modrel_setup2', 'pcs_jab', 'Jabs'
  399. gs 'preSYS2', 'modrel_setup2', 'pcs_punch', 'Power Strikes'
  400. gs 'preSYS2', 'modrel_setup2', 'pcs_kick', 'Kicks'
  401. gs 'preSYS2', 'modrel_setup2', 'pcs_def', 'Defence'
  402. gs 'preSYS2', 'modrel_setup2', 'pcs_run', 'Running'
  403. gs 'preSYS2', 'modrel_setup2', 'pcs_vball', 'Volleyball'
  404. gs 'preSYS2', 'modrel_setup2', 'pcs_ftball', 'Football'
  405. gs 'preSYS2', 'modrel_setup2', 'pcs_wrstlng', 'Wrestling'
  406. gs 'preSYS2', 'modrel_setup2', 'pcs_shoot', 'Marskmanship'
  407. gs 'preSYS2', 'modrel_setup2', 'pcs_chess', 'Chess'
  408. gs 'preSYS2', 'modrel_setup2', 'pcs_icesktng', 'Ice Skating'
  409. gs 'preSYS2', 'modrel_setup2', 'pcs_gaming', 'Gaming'
  410. '</table></center>'
  411. nl
  412. act 'Return': gt 'preSYS2','modskl'
  413. end
  414. if $ARGS[0] = 'modskl_bea':
  415. $metka = 'modskl_bea'
  416. '<center><b>Beauty skills</b></center>'
  417. *nl
  418. *nl
  419. '<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>'
  420. gs 'preSYS2', 'modrel_setup2', 'pcs_makupskl', 'Makeup Skills'
  421. gs 'preSYS2', 'modrel_setup2', 'pcs_danc', 'Modern Dancing'
  422. gs 'preSYS2', 'modrel_setup2', 'pcs_dancero', 'Erotic Dancing'
  423. gs 'preSYS2', 'modrel_setup2', 'pcs_dancpol', 'Pole Dancing'
  424. gs 'preSYS2', 'modrel_setup2', 'pcs_mdlng', 'Modelling'
  425. '</table></center>'
  426. nl
  427. act 'Return': gt 'preSYS2','modskl'
  428. end
  429. if $ARGS[0] = 'modskl_art':
  430. $metka = 'modskl_art'
  431. '<center><b>Artistic Skills</b></center>'
  432. *nl
  433. *nl
  434. '<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>'
  435. gs 'preSYS2', 'modrel_setup2', 'pcs_vokal', 'Singing'
  436. gs 'preSYS2', 'modrel_setup2', 'pcs_instrmusic', 'Instrumental Music'
  437. gs 'preSYS2', 'modrel_setup2', 'pcs_photoskl', 'Photography'
  438. gs 'preSYS2', 'modrel_setup2', 'pcs_artskl', 'Artistic Skills'
  439. gs 'preSYS2', 'modrel_setup2', 'pcs_perform', 'Performance'
  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 ---------------------------------