preSYS2.qsrc 35 KB

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