|
|
@@ -394,11 +394,35 @@ end
|
|
|
if $ARGS[0] = 'modgrup':
|
|
|
*clr & cla
|
|
|
'Your current social group is <<$soc_grup>>.'
|
|
|
- act 'Nerd, Geek, Student': $soc_grup = 'nerd' & grupTipe = 3 & gt 'preSYS2','modgrup'
|
|
|
- act 'Athlete, Jock':$soc_grup = 'jock'& grupTipe = 2 & gt 'preSYS2','modgrup'
|
|
|
- act 'Popular, Cool, Beautiful':$soc_grup = 'cool' & grupTipe = 1 & gt 'preSYS2','modgrup'
|
|
|
- act 'Gopnik, Rebel, Punk, Troublemaker':$soc_grup = 'gopnik' & grupTipe = 4 & gt 'preSYS2','modgrup'
|
|
|
- act 'Outcast, Loser, Goth, Ugly':$soc_grup = 'outcast' & grupTipe = 5 & gt 'preSYS2','modgrup'
|
|
|
+ act 'Nerd, Geek, Student':
|
|
|
+ killvar 'grupvalue'
|
|
|
+ grupvalue[3] = 600
|
|
|
+ grupTipe = 3
|
|
|
+ gt 'preSYS2','modgrup'
|
|
|
+ end
|
|
|
+ act 'Athlete, Jock':
|
|
|
+ killvar 'grupvalue'
|
|
|
+ grupvalue[2] = 600
|
|
|
+ grupTipe = 2
|
|
|
+ gt 'preSYS2','modgrup'
|
|
|
+ end
|
|
|
+ act 'Popular, Cool, Beautiful':
|
|
|
+ killvar 'grupvalue'
|
|
|
+ grupvalue[1] = 600
|
|
|
+ grupTipe = 1
|
|
|
+ gt 'preSYS2','modgrup'
|
|
|
+ end
|
|
|
+ act 'Gopnik, Rebel, Punk, Troublemaker':
|
|
|
+ killvar 'grupvalue'
|
|
|
+ grupvalue[4] = 600
|
|
|
+ grupTipe = 4
|
|
|
+ gt 'preSYS2','modgrup'
|
|
|
+ end
|
|
|
+ act 'Outcast, Loser, Goth, Ugly':
|
|
|
+ killvar 'grupvalue'
|
|
|
+ grupTipe = 5
|
|
|
+ gt 'preSYS2','modgrup'
|
|
|
+ end
|
|
|
act 'Return':gt 'preSYS2','start'
|
|
|
end
|
|
|
|
