1
0

preSYS2.qsrc 31 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802
  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_bushcraft', 'Bushcraft'
  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. gs 'preSYS2', 'modrel_setup2', 'pcs_perform', 'Performance'
  441. '</table></center>'
  442. nl
  443. act 'Return': gt 'preSYS2','modskl'
  444. end
  445. if $ARGS[0] = 'modskl_job':
  446. $metka = 'modskl_job'
  447. '<center><b>Job Skills</b></center>'
  448. *nl
  449. *nl
  450. '<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>'
  451. gs 'preSYS2', 'modrel_setup2', 'pcs_compskl', 'Computer Skills'
  452. gs 'preSYS2', 'modrel_setup2', 'pcs_comphckng', 'Hacking'
  453. gs 'preSYS2', 'modrel_setup2', 'pcs_hndiwrk', 'Handy-work'
  454. gs 'preSYS2', 'modrel_setup2', 'pcs_sewng', 'Tailoring'
  455. gs 'preSYS2', 'modrel_setup2', 'pcs_servng', 'Serving'
  456. gs 'preSYS2', 'modrel_setup2', 'pcs_medcn', 'Medicine'
  457. '</table></center>'
  458. nl
  459. act 'Return': gt 'preSYS2','modskl'
  460. end
  461. if $ARGS[0] = 'none':
  462. !!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.
  463. pcs_dom = 0
  464. pcs_stren = 30
  465. pcs_agil = 30
  466. pcs_vital = 30
  467. pcs_intel = 30
  468. pcs_react = 30
  469. pcs_sprt = 30
  470. pcs_chrsm = 30
  471. pcs_prcptn = 30
  472. pcs_grade = 75
  473. pcs_inhib = 100
  474. pcs_heel = 5
  475. !!Mental Skills Reset
  476. pcs_humint = 0
  477. pcs_persuas = 0
  478. pcs_observ = 0
  479. !!Sport Skills Reset
  480. pcs_jab = 0
  481. pcs_punch = 0
  482. pcs_kick = 0
  483. pcs_def = 0
  484. pcs_run = 0
  485. pcs_vball = 0
  486. pcs_ftball = 0
  487. pcs_wrstlng = 0
  488. pcs_shoot = 0
  489. pcs_bushcraft = 0
  490. pcs_chess = 0
  491. pcs_icesktng = 0
  492. pcs_gaming = 0
  493. !!Beauty Skills Reset
  494. pcs_makupskl = 20
  495. pcs_danc = 0
  496. pcs_dancero = 0
  497. pcs_dancpol = 0
  498. pcs_mdlng = 0
  499. !!Artistic Skills Reset
  500. pcs_vokal = 0
  501. pcs_instrmusic = 0
  502. pcs_photoskl = 0
  503. pcs_artskl = 0
  504. !!Job Skills Reset
  505. pcs_compskl = 0
  506. pcs_comphckng = 0
  507. pcs_hndiwrk = 0
  508. pcs_sewng = 0
  509. pcs_servng = 0
  510. pcs_medcn = 0
  511. !!social group Reset
  512. grupTipe = 0
  513. grupvalue[1] = 0
  514. grupvalue[2] = 0
  515. grupvalue[3] = 0
  516. grupvalue[4] = 0
  517. grupvalue[6] = 0
  518. gs 'preSYS', 'socialgroup_setting', 0, 0, 0, 0, 0, 0
  519. !!npc relationship Reset
  520. npc_rel['A11'] = 60
  521. npc_rel['A129'] = 30
  522. npc_rel['A133'] = 30
  523. npc_rel['A28'] = 50
  524. npc_rel['A29'] = 50
  525. npc_rel['A33'] = 70
  526. npc_rel['A34'] = 50
  527. !!items Reset
  528. money = 2000
  529. fakepassport = 0
  530. fantasybook = 0
  531. glass = 0
  532. hscrunch = 0
  533. kosmetica = 0
  534. pirsC = 0
  535. PirsC1_owned = 0
  536. shampoo = 0
  537. siga = 0
  538. stanok = 0
  539. swim_start = 0
  540. tampon = 0
  541. !!apprnc & sex stat reset
  542. genbsize = 22
  543. pcs_skin = 40
  544. salo = 80
  545. pcs_tan = 0
  546. pcs_throat = 0
  547. pcs_vag = 0
  548. stat['bj'] = 0
  549. stat['hj'] = 0
  550. stat['vaginal'] = 0
  551. $soc_grup = 'outcast'
  552. gs 'preSYS2', $soc_grup
  553. end
  554. if $ARGS[0] = 'modrel':
  555. act 'Family':gt 'preSYS2','modrel_fam'
  556. act 'Popular Kids':gt 'preSYS2','modrel_pop'
  557. act 'Athletes':gt 'preSYS2','modrel_ath'
  558. act 'Nerds':gt 'preSYS2','modrel_ner'
  559. act 'Gopniks':gt 'preSYS2','modrel_gop'
  560. act 'Outcasts/Loners':gt'preSYS2','modrel_out'
  561. act 'Teachers/Coaches':gt'preSYS2','modrel_tea'
  562. act 'Others':gt'preSYS2','modrel_oth'
  563. act 'Return':gt 'preSYS2','start'
  564. end
  565. if $ARGS[0] = 'modrel_fam':
  566. if npc_rel['A28'] < 0: npc_rel['A28'] = 0
  567. if npc_rel['A29'] < 0: npc_rel['A29'] = 0
  568. if npc_rel['A33'] < 0: npc_rel['A33'] = 0
  569. if npc_rel['A34'] < 0: npc_rel['A34'] = 0
  570. if npc_rel['A28'] > 100: npc_rel['A28'] = 100
  571. if npc_rel['A29'] > 100: npc_rel['A29'] = 100
  572. if npc_rel['A33'] > 100: npc_rel['A33'] = 100
  573. if npc_rel['A34'] > 100: npc_rel['A34'] = 100
  574. '<center><b>Family relationship levels</b></center>'
  575. *nl
  576. *nl
  577. '<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>'
  578. '<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>'
  579. '<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>'
  580. '<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>'
  581. '<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>'
  582. '</table></center>'
  583. act 'Return': gt 'preSYS2','modrel'
  584. end
  585. if $ARGS[0] = 'modrel_setup':
  586. if npc_rel['<<$ARGS[1]>>'] < 0: npc_rel['<<$ARGS[1]>>'] = 0
  587. if npc_rel['<<$ARGS[1]>>'] > 100: npc_rel['<<$ARGS[1]>>'] = 100
  588. '<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>'
  589. end
  590. if $ARGS[0] = 'modrel_pop':
  591. $metka = 'modrel_pop'
  592. '<center><b>Popular kids relationship levels</b></center>'
  593. *nl
  594. *nl
  595. '<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>'
  596. gs 'preSYS2', 'modrel_setup', 'A1'
  597. gs 'preSYS2', 'modrel_setup', 'A4'
  598. gs 'preSYS2', 'modrel_setup', 'A14'
  599. gs 'preSYS2', 'modrel_setup', 'A15'
  600. gs 'preSYS2', 'modrel_setup', 'A17'
  601. gs 'preSYS2', 'modrel_setup', 'A23'
  602. gs 'preSYS2', 'modrel_setup', 'A146'
  603. gs 'preSYS2', 'modrel_setup', 'A147'
  604. gs 'preSYS2', 'modrel_setup', 'A148'
  605. gs 'preSYS2', 'modrel_setup', 'A25'
  606. gs 'preSYS2', 'modrel_setup', 'A139'
  607. gs 'preSYS2', 'modrel_setup', 'A140'
  608. '<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>'
  609. '<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>'
  610. '</table></center>'
  611. act 'Return': gt 'preSYS2','modrel'
  612. end
  613. if $ARGS[0] = 'modrel_ath':
  614. $metka = 'modrel_ath'
  615. '<center><b>Jocks relationship levels</b></center>'
  616. *nl
  617. *nl
  618. '<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>'
  619. gs 'preSYS2', 'modrel_setup', 'A3'
  620. gs 'preSYS2', 'modrel_setup', 'A5'
  621. gs 'preSYS2', 'modrel_setup', 'A8'
  622. gs 'preSYS2', 'modrel_setup', 'A13'
  623. gs 'preSYS2', 'modrel_setup', 'A18'
  624. gs 'preSYS2', 'modrel_setup', 'A19'
  625. gs 'preSYS2', 'modrel_setup', 'A22'
  626. gs 'preSYS2', 'modrel_setup', 'A149'
  627. gs 'preSYS2', 'modrel_setup', 'A150'
  628. gs 'preSYS2', 'modrel_setup', 'A141'
  629. '<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>'
  630. '<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>'
  631. '</table></center>'
  632. act 'Return': gt 'preSYS2','modrel'
  633. end
  634. if $ARGS[0] = 'modrel_ner':
  635. $metka = 'modrel_ner'
  636. '<center><b>Nerds relationship levels</b></center>'
  637. *nl
  638. *nl
  639. '<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>'
  640. gs 'preSYS2', 'modrel_setup', 'A2'
  641. gs 'preSYS2', 'modrel_setup', 'A6'
  642. gs 'preSYS2', 'modrel_setup', 'A12'
  643. gs 'preSYS2', 'modrel_setup', 'A16'
  644. gs 'preSYS2', 'modrel_setup', 'A151'
  645. gs 'preSYS2', 'modrel_setup', 'A152'
  646. gs 'preSYS2', 'modrel_setup', 'A153'
  647. gs 'preSYS2', 'modrel_setup', 'A142'
  648. '<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>'
  649. '<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>'
  650. '</table></center>'
  651. act 'Return': gt 'preSYS2','modrel'
  652. end
  653. if $ARGS[0] = 'modrel_gop':
  654. $metka = 'modrel_gop'
  655. '<center><b>Gopnik kids relationship levels</b></center>'
  656. *nl
  657. *nl
  658. '<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>'
  659. gs 'preSYS2', 'modrel_setup', 'A9'
  660. gs 'preSYS2', 'modrel_setup', 'A10'
  661. gs 'preSYS2', 'modrel_setup', 'A11'
  662. gs 'preSYS2', 'modrel_setup', 'A20'
  663. gs 'preSYS2', 'modrel_setup', 'A21'
  664. gs 'preSYS2', 'modrel_setup', 'A24'
  665. gs 'preSYS2', 'modrel_setup', 'A154'
  666. gs 'preSYS2', 'modrel_setup', 'A155'
  667. gs 'preSYS2', 'modrel_setup', 'A156'
  668. gs 'preSYS2', 'modrel_setup', 'A157'
  669. gs 'preSYS2', 'modrel_setup', 'A158'
  670. gs 'preSYS2', 'modrel_setup', 'A143'
  671. gs 'preSYS2', 'modrel_setup', 'A144'
  672. gs 'preSYS2', 'modrel_setup', 'A145'
  673. '<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>'
  674. '<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>'
  675. '</table></center>'
  676. act 'Return': gt 'preSYS2','modrel'
  677. end
  678. if $ARGS[0] = 'modrel_out':
  679. $metka = 'modrel_out'
  680. '<center><b>Outcast kids relationship levels</b></center>'
  681. *nl
  682. *nl
  683. '<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>'
  684. gs 'preSYS2', 'modrel_setup', 'A7'
  685. gs 'preSYS2', 'modrel_setup', 'A159'
  686. '<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>'
  687. !! '<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>'
  688. '</table></center>'
  689. act 'Return': gt 'preSYS2','modrel'
  690. end
  691. if $ARGS[0] = 'modrel_tea':
  692. $metka = 'modrel_tea'
  693. '<center><b>Teacher relationship levels</b></center>'
  694. *nl
  695. *nl
  696. '<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>'
  697. gs 'preSYS2', 'modrel_setup', 'A26'
  698. gs 'preSYS2', 'modrel_setup', 'A128'
  699. gs 'preSYS2', 'modrel_setup', 'A129'
  700. gs 'preSYS2', 'modrel_setup', 'A130'
  701. gs 'preSYS2', 'modrel_setup', 'A131'
  702. gs 'preSYS2', 'modrel_setup', 'A132'
  703. gs 'preSYS2', 'modrel_setup', 'A133'
  704. gs 'preSYS2', 'modrel_setup', 'A134'
  705. gs 'preSYS2', 'modrel_setup', 'A135'
  706. gs 'preSYS2', 'modrel_setup', 'A136'
  707. gs 'preSYS2', 'modrel_setup', 'A137'
  708. gs 'preSYS2', 'modrel_setup', 'A138'
  709. '<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>'
  710. '<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>'
  711. '</table></center>'
  712. act 'Return': gt 'preSYS2','modrel'
  713. end
  714. if $ARGS[0] = 'modrel_oth':
  715. $metka = 'modrel_oth'
  716. '<center><b>Others relationship levels</b></center>'
  717. *nl
  718. *nl
  719. '<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>'
  720. gs 'preSYS2', 'modrel_setup', 'A69'
  721. gs 'preSYS2', 'modrel_setup', 'A112'
  722. '</table></center>'
  723. !!Volleyball Coach is here because it wasnt being controlled by grup6 the teachers/coaches.
  724. act 'Return': gt 'preSYS2','modrel'
  725. end
  726. if $ARGS[0] = 'pol_grup_set':
  727. !!ARGS[1] 0 is boys, 1 is girls. ARGS[2] 1nerd 2jock 3cool 4gopnik 5outcast 6teachers. ARGS[3] is changes to value
  728. r = 1
  729. :pol_grup_set_loop
  730. $school_static_num = $school_static_num[r]
  731. if npcPol[r] = ARGS[1] and grupTipe[r] = ARGS[2]:
  732. npc_rel[$school_static_num] = ARGS[3]
  733. end
  734. r += 1
  735. if r <= 61:jump 'pol_grup_set_loop'
  736. end
  737. --- preSYS2 ---------------------------------