1
0

preSYS2.qsrc 32 KB

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