preSYS2.qsrc 34 KB

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