glife/locations/gschool_socialchg.qsrc

# gschool_socialchg
!2021/05/02
 !!Changing social groups
if $ARGS[0] = 'test':
	if grupvalue[1] > 450 and grupwarning[1] = 1:
		grupwarning[1] = 0
	elseif grupvalue[1] < 400 and grupvalue[1] > 350 and grupwarning[1] > 1:
		grupwarning[1] = 1
	elseif grupvalue[2] > 450 and grupwarning[2] = 1:
		grupwarning[2] = 0
	elseif grupvalue[2] < 400 and grupvalue[2] > 350 and grupwarning[1] > 1:
		grupwarning[2] = 1
	elseif grupvalue[3] > 450 and grupwarning[3] = 1:
		grupwarning[3] = 0
	elseif grupvalue[3] < 400 and grupvalue[3] > 350 and grupwarning[1] > 1:
		grupwarning[3] = 1
	elseif grupvalue[4] > 450 and grupwarning[4] = 1:
		grupwarning[4] = 0
	elseif grupvalue[4] < 400 and grupvalue[4] > 350 and grupwarning[1] > 1:
		grupwarning[4] = 1
	end
	if fame['pav_slut'] > 225 and grupTipe = 1:
		gt 'gschool_socialchg', 'Pavlovsk slut'
	elseif fame['pav_slut'] > 250 and grupTipe = 2:
		gt 'gschool_socialchg', 'Pavlovsk slut'
	elseif fame['pav_slut'] > 175 and grupTipe = 3:
		gt 'gschool_socialchg', 'Pavlovsk slut'
	elseif fame['pav_slut'] > 300 and grupTipe = 4:
		gt 'gschool_socialchg', 'Pavlovsk slut'
	elseif grupvalue[1] < 200 and grupTipe = 1:
		gt 'gschool_socialchg', 'coolkid outcast'
	elseif grupvalue[1] < 400 and grupTipe = 1 and grupwarning[1] = 0:
		gt 'gschool_socialchg', 'coolkid warn 1'
	elseif grupvalue[1] < 300 and grupTipe = 1 and grupwarning[1] >= 0:
		gt 'gschool_socialchg', 'coolkid warn 2'
	elseif fame['pav_slut'] > 175 and grupTipe = 1 and grupslutwarning[1] = 0:
		gt 'gschool_socialchg', 'coolkid slut warn'
	elseif grupvalue[2] < 200 and grupTipe = 2:
		gt 'gschool_socialchg', 'jock outcast'
	elseif grupvalue[2] < 400 and grupTipe = 2 and grupwarning[2] = 0:
		gt 'gschool_socialchg', 'jock warn 1'
	elseif grupvalue[2] < 300 and grupTipe = 2 and grupwarning[2] >= 0:
		gt 'gschool_socialchg', 'jock warn 2'
	elseif fame['pav_slut'] > 200 and grupTipe = 2 and grupslutwarning[2] = 0:
		gt 'gschool_socialchg', 'jock slut warn'
	elseif grupvalue[3] < 200 and grupTipe = 3:
		gt 'gschool_socialchg', 'nerd outcast'
	elseif grupvalue[3] < 400 and grupTipe = 3 and grupwarning[3] = 0:
		gt 'gschool_socialchg', 'nerd warn 1'
	elseif grupvalue[3] < 300 and grupTipe = 3 and grupwarning[3] >= 0:
		gt 'gschool_socialchg', 'nerd warn 2'
	elseif fame['pav_slut'] > 125 and grupTipe = 3 and grupslutwarning[3] = 0:
		gt 'gschool_socialchg', 'nerd slut warn'
	elseif grupvalue[4] < 200 and grupTipe = 4:
		gt 'gschool_socialchg', 'gopnik outcast'
	elseif grupvalue[4] < 400 and grupTipe = 4 and grupwarning[4] = 0:
		gt 'gschool_socialchg', 'gopnik warn 1'
	elseif grupvalue[4] < 300 and grupTipe = 4 and grupwarning[4] >= 0: 
		gt 'gschool_socialchg', 'gopnik warn 2'
	elseif fame['pav_slut'] > 250 and grupTipe = 4 and grupslutwarning[4] = 0:
		gt 'gschool_socialchg', 'gopnik slut warn'
	elseif fame['pav_slut'] < 175 and grupvalue[1] > 800 and grupTipe ! 1:
		gt 'gschool_socialchg', 'coolkid'
	elseif fame['pav_slut'] < 200 and grupvalue[2] > 800 and grupTipe ! 2:
		gt 'gschool_socialchg', 'jock'
	elseif fame['pav_slut'] < 125 and grupvalue[3] > 800 and grupTipe ! 3:
		gt 'gschool_socialchg', 'nerd'
	elseif fame['pav_slut'] < 250 and grupvalue[4] > 800 and grupTipe ! 4:
		gt 'gschool_socialchg', 'gopnik'
	end
	if gopnik_initiation = 1 and gopnik_initiation_day ! daystart:
		killvar 'gopnik_initiation'
		killvar 'gopnik_initiation_day'
		gt 'gschool_socialchg', 'gopnik miss'
	end
end

if $ARGS[0] = 'Pavlovsk slut':
	cla & *clr
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/shamewalk.jpg"></center>'
	'Walking down the school hallway, you notice almost everyone is eying you. Some sneer at you, others laugh, and others turn away in disgust. You are used to this treatment with your sexual escapades, but not to this level. No one wants to greet you and most actively avoid you. You are starting to feel a bit uncomfortable at all the staring eyes. As you approach your locker, you see someone has spray painted ''Slut'' on it in big red letters. You hear someone walking up behind you before you turn around to see who it might be.'

	grupvalue[1] = min(100,grupvalue[1])
	grupvalue[2] = min(150,grupvalue[2])
	grupvalue[3] = 0
	grupvalue[4] = min(200,grupvalue[4])
	old_grupvalue[1] = grupvalue[1]
	old_grupvalue[2] = grupvalue[2]
	old_grupvalue[3] = grupvalue[3]
	old_grupvalue[4] = grupvalue[4]
	grupslutwarning[1] = 0
	grupslutwarning[2] = 0
	grupslutwarning[3] = 0
	grupslutwarning[4] = 0
	
	gs 'gschool_socialchg', 'group_rel_change','cool kids', -30
	gs 'gschool_socialchg', 'group_rel_change','jocks', -25
	gs 'gschool_socialchg', 'group_rel_change','gopniks', -20
	gs 'gschool_socialchg', 'group_rel_change','nerds', -35

	if grupTipe = 1:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/coolslut.jpg"></center>'
		if soniaPS = 0:
			'Irina and Dimka walk up to you. Dimka is smirking at you while Irina looks you over from head to toe in complete disgust. Just as you''re about to ask what''s going on, Irina cuts you off. "Shut your cum hole, slut! I don''t want to smell your cum breath. We''ve all heard about what you''ve been up to, and your ass is out. You''re no longer welcome around us. Find some dick to suck, and maybe they will pretend to care about you." With that, Irina turns and walks away as Dimka gives you a final look and shakes his head.'
		else	
			'Irina and Dimka walk up to you. Dimka is smirking at you while Irina looks you over from head to toe in complete disgust. Then, just as you''re about to ask what''s going on, Irina cuts you off. "Shut your cum hole, slut! I don''t want to smell your cum breath. We''ve all heard about what you''ve been up to, and your ass is out. You''re no longer welcome around us. Go and find Sonia. I''m sure you two have a lot in common now." With that, Irina turns and walks away as Dimka gives you a final look and shakes his head.'
		end	
		'"What a waste, you fucking slut." He then spits at your feet before leaving as well. You hear many of the students around you laughing as you look around. Having been publicly shamed and disavowed by your clique, the other students are ready to prey on your weakness and either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
	elseif grupTipe = 2:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/jockslut.jpg"></center>'
		if christinaQW['fight'] < 1 or christinaQW['blackmail'] < 2:
			'Christina, Lariska, and Lina walk up to you. Lariska and Lina are looking at you in disgust while Christina is smirking. She shoves you hard up against your locker. "What are you doing here slut? Shouldn''t you be in the boys'' bathroom sucking a bunch of cocks? We all heard that''s all you do now. At least sluts know to get paid, but you just give it away for free, " she laughs mockingly. Lariska, Lina and several other students nearby join in, openly mocking you.'
		else
			'Albina and Lazar walk up to you with looks of disgust on their face. "What are you doing here? Shouldn''t you be in the boys'' bathroom sucking dick like the whore that you are?" Lazar says mockingly. Albina opens her mouth to say something but chooses to remain quiet and stares at the floor. Christina smirks at you from behind them, not daring to challenge you directly but enjoying the moment.'
		end
		if soniaPS = 0:
			'"Go hang out with the other losers because none of us gives a shit about you anymore," Lazar says before turning and walking away. Albina looks at you with what you think is disappointment before she shakes her head and follows Lazar. Having been publicly shamed and disavowed by your clique, the other students are ready to prey on your weakness and either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
		else	
			'"Go hang out with the other losers because none of us gives a shit about you anymore. I''m sure you and Sonia have a lot in common now." Lazar says mockingly before walking away. Albina looks at you with what you think is disappointment before she shakes her head and follows Lazar. Having been publicly shamed and disavowed by your clique, the other students are ready to prey on your weakness and either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
		end	
	elseif grupTipe = 3:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/nerdslut.jpg"></center>'
		'A group of students stand in front of you, wanting a better look at what''s written on your locker. They start laughing when you look at them and quickly hurry away from you as if you have the plague. You turn and try to find some of your friends, but most seem to be hiding or hurrying off when you approach. You finally manage to catch up to Gerasim, but he turns to you just as you''re about to say something. "Please go away! I don''t know what you''ve gotten yourself into, but the things they say you''ve done..." He looks disgusted. "I''m sorry, but I can''t be seen hanging out with you anymore. I''ve got enough problems without you making them worse."'
		'He pauses for a second to stare at the dejected look on your face, realizing that you are now an outcast. He then lets out a short sigh. "I''m sorry, I really am, but this is your fault. What were you thinking doing all that.. sex stuff? Just leave me alone." The last part he says loudly enough for others to hear, which causes some of the other students to laugh at you as he wheels himself away from you decidedly. You take a second to look around as most other students either start mocking you or actively look away. Finally, you grab your stuff and hurry to your next class.'
	elseif grupTipe = 4:
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/gopnikslut.jpg"></center>'
		'You turn and see Pauline, Lera and Lena standing next to you. Lera is snickering. Pauline looks like she''s preparing to beat you up, and Lera looks at you with disgust. Pauline shakes her head at you and finally speaks up. "I don''t know what your problem is, but apparently, hanging out, partying and having a good time wasn''t enough for you. Noooo, you had to go around and be the town bicycle! Don''t act all surprised. We''ve all heard about how you let any guy fuck you in whatever hole they desire. Spineless sluts have no place with us, so stay away from us, or I will beat the living shit out of you." With that, Pauline shoves you against your locker and walks away.'
		'Lena gives you a final look of disgust and shoves you again while Lera gives you a few parting words before walking away. "If you ever try to approach us, we''ll take you to nasty guys who will fuck you so hard that your holes will be loose enough to stick a watermelon inside them!" Having been publicly shamed and disavowed by your clique, the other students are ready to prey on your weakness and either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
	end
	'<font color = red>You have been kicked out of your social group and become an outcast.</font>'
	grupTipe = 5

	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'coolkid':
	cla & *clr
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing behind you and turn to see Vicky, Andrey and Stasya giving you friendly smiles. "Hey, <<$pcs_nickname>>, we''ve been talking, and you seem to have the right attitude to be one of us. So what do you say? Do you want to join the popular clique?" Vicky asks, and the three of them just wait for your response.'
	act 'No':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/nerdslut.jpg"></center>'
		'You shake your head. "I like hanging out with you guys, but I don''t think that''s a good idea."'
		'Vicky frowns but nods. "Suit yourself then." With that, she turns and leaves. Andrey just shakes his head at you and does the same.'
		'Stasya gives you a once-over. "I told you guys she wasn''t cool enough! What a loser!" With that, she follows the others, leaving you behind to wonder if you made the right choice.'

		grupvalue[1] = rand(600,650)
		old_grupvalue[1] = grupvalue[1]
		gs 'gschool_socialchg', 'group_rel_change','cool kids', -5
		gs 'stat'

		act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
	end
	act 'Yes':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
		'You nod your head. "Yes, I would love to! I love hanging out with you guys!"'
		'Vicky gives you a hug. Once she lets go, Andrey wraps an arm around your shoulder and starts leading you to your next class. "From now on, you''re one of us." Stasya gives you a friendly smile as the four of you walk to your next class.'
		
		grupvalue[2] = min(rand(675,725),grupvalue[2])
		grupvalue[3] = min(rand(625,675),grupvalue[3])
		grupvalue[4] = min(rand(600,650),grupvalue[4])
		
		if grupTipe = 2: grupvalue[2] = rand(500,600)
		if grupTipe = 3: grupvalue[3] = rand(500,600)
		if grupTipe = 4: grupvalue[4] = rand(500,600)

		old_grupvalue[1] = grupvalue[1]
		old_grupvalue[2] = grupvalue[2]
		old_grupvalue[3] = grupvalue[3]
		old_grupvalue[4] = grupvalue[4]
		
		grupTipe = 1
		grupTipe['joined_cool'] = 1
		
		gs 'gschool_socialchg', 'group_rel_change','cool kids', 5
		gs 'stat'

		act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
	end
end

if $ARGS[0] = 'coolkid warn 1':
	cla & *clr
	grupwarning[1] = 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing behind you and turn to see Vicky, Andrey and Stasya giving you friendly smiles. "Hey, <<$pcs_nickname>>, is everything okay?"'
	'Before you can answer, Stasya chimes in. "You haven''t been setting the right example of late. You''re acting more like the losers than us, so do you want to keep hanging around with us?"'
	'You are again interrupted before you can speak. "Cool it, Stasya! Look, <<$pcs_nickname>>, if you want to hang out with us, just act like you normally do, okay? That''s all we''re saying." Vicky says before the bell rings, and you all hurry to class. You can''t help but worry. Your recent activity has made the other cool kids question whether you belong in the group or not...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'coolkid warn 2':
	cla & *clr
	grupwarning[1] = 2
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Vicky, Andrey and Stasya. "Hey, <<$pcs_nickname>>, we talked about this before, but you still seem to be not getting with the program," Vicky says with disdain.'
	'Before you can answer, Stasya chimes in. "I told you she doesn''t want to be one of us! I don''t know why we ever let her hang out with us in the first place."'
	'You are again interrupted before you can speak. "<<$pcs_nickname>>, you need to get your act together, or you''re out, simple as that," Andrey says before the bell rings and you all hurry to class. You can''t help but worry. Your recent activity has made the other cool kids question whether you belong in the group. You need to improve your standing with them or risk being kicked out...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'coolkid slut warn':
	cla & *clr
	grupslutwarning[1] = 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Vicky, Andrey and Stasya. "What''s going on with you, <<$pcs_nickname>>? We''ve all heard the rumours about your sexual exploits. Of course, we all like sex but come on, this is getting out of hand." Vicky says with a hint of disdain.'
	'Before you can answer, Stasya chimes in. "Maybe she just wants to be a slut."'
	'You are again interrupted before you can speak. "<<$pcs_nickname>>, you need to start using a little discretion, or you''re out," Andrey says before the bell rings and you all hurry to class. You can''t help but worry. Your recent activity has made the other cool kids question whether you belong in the group. You better fix things fast, or you risk being kicked out...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'jock':
	cla & *clr
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joinjock.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Lariska and Lina giving you friendly smiles. "Hey, <<$pcs_nickname>>, we''ve been talking, and you seem to have the right attitude to be one of us. So what do you say? Do you want to join us and become a jock?" They seem to be waiting on your response.'
	act 'No':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/nerdslut.jpg"></center>'
		'You shake your head. "I like hanging out with you guys, but I don''t think that''s a good idea."'
		'Lariska frowns, then nods. "Suit yourself." With that, she turns and leaves.'
		'Lina gives you a once-over. "Well, at least Christina will be happy." With that, she follows after Lariska, leaving you behind to wonder if you made the right choice.'
		grupvalue[2] = rand(600,650)
		old_grupvalue[2] = grupvalue[2]
		gs 'gschool_socialchg', 'group_rel_change','jocks', -5
		gs 'stat'

		act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
	end
	act 'Yes':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joinjock.jpg"></center>'
		'You nod your head. "Yes, I would love to! I love hanging out with you guys!"'
		'Lariska gives you a hug. "From now on, you are one of us." Lina gives you a friendly smile, and you all walk to your next class.'

		grupvalue[1] = min(rand(675,725),grupvalue[1])
		grupvalue[3] = min(rand(600,650),grupvalue[3])
		grupvalue[4] = min(rand(650,700),grupvalue[4])
		
		if grupTipe = 1: grupvalue[1] = rand(500,600)
		if grupTipe = 3: grupvalue[3] = rand(500,600)
		if grupTipe = 4: grupvalue[4] = rand(500,600)

		old_grupvalue[1] = grupvalue[1]
		old_grupvalue[2] = grupvalue[2]
		old_grupvalue[3] = grupvalue[3]
		old_grupvalue[4] = grupvalue[4]

		grupTipe = 2
		grupTipe['joined_jock'] = 1
		
		gs 'gschool_socialchg', 'group_rel_change','jocks', 5
		gs 'stat'

		act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
	end
end

if $ARGS[0] = 'jock warn 1':
	cla & *clr
	grupwarning[2] = 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Lariska and Lina giving you friendly smiles. "Hey, <<$pcs_nickname>>, is everything okay with you?" Lariska asks.'
	'Before you can answer, Lina chimes in. "You haven''t been putting your all into sports, and you''re starting to act like some others, so does that mean you don''t want to hang around with us anymore?"'
	'The bell rings, and you all hurry to class, but you can''t help but worry. It seems your recent activity has made the other jocks question whether you belong in the group or not...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'jock warn 2':
	cla & *clr
	grupwarning[2] = 2
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Lariska and Lina giving you friendly smiles. "<<$pcs_nickname>>, we talked about this before, but you still seem to be not getting the idea." Lariska scoffs.'
	'Before you can answer, Lina chimes. "Christina says she doesn''t want you to be one of us and that we should have never let you hang out with us in the first place."'
	'You are again interrupted before you can speak. "<<$pcs_nickname>>, you need to get your act together, or you''re out, simple as that," Lina says before the bell rings and you all hurry to class. You can''t help but worry. Your recent activity has made the other jocks question whether you belong in the group. You better fix things fast or risk becoming kicked out...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'jock slut warn':
	cla & *clr
	grupslutwarning[2] = 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Lariska and Lina giving you friendly smiles. "What''s going on with you, <<$pcs_nickname>>? We''ve all heard the rumours about your sexual exploits. Sex is fun, but what are you going to do next? Fuck the whole football team?"'
	'Before you can answer, Lina chimes. "You need to start using a little discretion, or you''re out." The bell then rings, and you all hurry to class, but you can''t help but worry. Your recent activity has made the other jocks question whether you belong in the group. So you better fix things fast or risk being kicked out...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'nerd':
	cla & *clr
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joinnerd.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see a group of nerds bunched up, all giving you friendly smiles. "Hey, <<$pcs_nickname>>, we''ve been talking, and we like you. We were wondering if you would like to hang out with us at our game night?" They seem to be waiting on your response.'
	act 'No':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/nerdslut.jpg"></center>'
		'You shake your head. "I like hanging out with you guys, but I''m just not interested in doing a game night. Sorry."'
		'Artem frowns and then nods. "Oh, okay. Well, maybe some other time then..." With that, he turns, and the rest follow, looking a little disappointed. Looks like they were hoping you would join them. It makes you feel a little bad and wonder if you made the right choice.'
		grupvalue[3] = rand(600,650)
		old_grupvalue[3] = grupvalue[3]
		gs 'gschool_socialchg', 'group_rel_change','nerds', -5
		gs 'stat'

		act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
	end
	act 'Yes':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joinnerd.jpg"></center>'
		'You nod your head. "Yes, I would love to hang out with you guys! A game night sounds like a lot of fun."'
		'They all start speaking at once, excited about you joining them. Feofan then speaks up. "That''s great, <<$pcs_nickname>>! Meet us at the community centre library tonight at 20:00. See you then." Then, they all start leaving and going to class, saying they look forward to seeing you tonight.'
		
		grupvalue[1] = min(rand(600,650),grupvalue[1])
		grupvalue[2] = min(rand(625,625),grupvalue[2])
		grupvalue[4] = min(rand(600,650),grupvalue[4])
		
		if grupTipe = 1: grupvalue[1] = rand(500,600)
		if grupTipe = 2: grupvalue[2] = rand(500,600)
		if grupTipe = 4: grupvalue[4] = rand(500,600)

		old_grupvalue[1] = grupvalue[1]
		old_grupvalue[2] = grupvalue[2]
		old_grupvalue[3] = grupvalue[3]
		old_grupvalue[4] = grupvalue[4]
				
		grupTipe = 3
		grupTipe['joined_nerd'] = 1
		
		nerd_game['invite_day'] = daystart
		nerd_game['game_day'] = daystart
		
		gs 'gschool_socialchg', 'group_rel_change','nerds', 5
		gs 'stat'

		act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
	end
end

if $ARGS[0] = 'nerd warn 1':
	cla & *clr
	grupwarning[3] = 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see a group of nerds bunched up and giving you friendly smiles. "Hey, <<$pcs_nickname>>, is everything okay with you?"'
	'Before you can answer, Julia chimes in. "You''re acting a lot like the others. Does that mean you don''t want to hang out with us anymore?"'
	'You are again interrupted before you can speak. "Look, <<$pcs_nickname>>. We like you and want you to stay, but if you want to hang out with us, just act like you want to hang out with us? That''s all we''re saying." Feofan says before the bell rings, and you all hurry to class. You can''t help but worry. It seems your recent activity has made the other nerds question whether you belong in the group or not...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'nerd warn 2':
	cla & *clr
	grupwarning[3] = 2
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see a group of nerds bunched up and giving you friendly smiles. "<<$pcs_nickname>>, we talked about this, but you''re still acting out," Artem says with disdain.'
	'Before you can answer, Julia chimes in. "Yeah, we''re all worried about you. What''s wrong? Is there anything we can do to help? Please just ask."'
	'You are again interrupted before you can speak. "<<$pcs_nickname>>, I don''t know what''s wrong, but if you don''t want to hang out with us, just say so. In any case, we hope things get better for you." Deofan says before the bell rings, and you all hurry to class. You can''t help but worry. Your recent activity has made the other nerds question whether you belong in the group. You better fix things fast or risk being kicked out...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'nerd slut warn':
	cla & *clr
	grupslutwarning[3] = 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see a group of nerds bunched up and giving you friendly smiles. "Hey, <<$pcs_nickname>>, what''s going on with you? We''ve all heard some pretty disturbing rumours about you... If they''re even half true... I just don''t know what to say. You always seemed like such a nice girl." Feofan says with a hint of disappointment.'
	'Before you can answer, Petka chimes in. "<<$pcs_nickname>>, you need to get yourself under control, or you won''t be able to hang out with us anymore." The bell rings, and you all hurry to class, but you can''t help but worry. Your recent activity has made the other nerds question whether you belong in the group. You better fix things fast or risk being kicked out...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'gopnik':
	cla & *clr
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joingopnik.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Vitek and Lena. Vitek gives you a hungry once-over, and Lena gives you a smirk. "Hey, <<$pcs_nickname>>, we''ve been talking, and you seem like you have the right attitude to hang with us. So what do you say? Want to come to one of our exclusive parties tonight?" They seem to be waiting on your response.'
	act 'No':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/nerdslut.jpg"></center>'
		'You shake your head. "I like hanging out with you guys, but I''m just not in the partying mood tonight."'
		'Vitek''s eyes darken. "What, are you too good for us all of a sudden? Well, fuck you then!" With that, he storms away. Lena looks at you with a derogatory stare before following her brother, leaving you behind to wonder if you made the right choice.'
		grupvalue[4] = rand(600,650)
		gs 'gschool_socialchg', 'group_rel_change','gopniks', -5
		gs 'stat'

		act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
	end
	act 'Yes':
		cla & *clr
		'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joingopnik.jpg"></center>'
		'You nod your head. "Yeah, that sounds great. I love hanging out and maybe getting a little wasted."'
		'Vitek smirks and glances at Lena, leaving you wondering what they mean. "Lena will let you know where and when." With that, he turns and walks off, but you can''t help but feel you missed something, which makes you feel a little nervous.'
		'Lena leans over. "Meet Lera and me after school at the apartment garages at eight this evening." She smiles like she knows something you don''t, but she briskly walks away without a further word or letting you ask anything.'
		gopnik_initiation = 1
		gopnik_initiation_day = daystart
		gs 'stat'
		act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
	end
end

if $ARGS[0] = 'gopnik warn 1':
	cla & *clr
	grupwarning[4] = 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Vitek, Lena, Lera and Dan. Vitek gives you a once-over. "What the fuck is up with you, <<$pcs_nickname>>?"'
	'Before you can answer, Lena chimes in. "You''ve been acting like a little submissive bitch lately. Grow a fucking pair and get your shit together!"'
	'You are again interrupted before you can speak. "Look, <<$pcs_nickname>>. If you want to hang out with us, just act like it, okay? That''s all we''re saying." Lera says before the bell rings, and the group disperses. You can''t help but worry. It seems your recent activity has made the other Gopnik question whether you belong in the group or not...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'gopnik warn 2':
	cla & *clr
	grupwarning[4] = 2
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Vitek, Lena, Lera and Dan. Lena shoves you into your locker. "What the fuck bitch? You deaf or something, or do you just think you''re too good for us?"'
	'Before you can answer, Dan chimes in. "I told you she didn''t belong. This bitch is too soft," he says as he plays with your hair. "I don''t know why we let Vasily talk us into letting her hang out with us anyways. I mean, maybe if she sucked a few more cocks we could look the other way..." he laughs.'
	'You are again interrupted before you can speak. "Cool it, Dan. <<$pcs_nickname>>, get your shit together, or you''re out, simple as that." Vitek says before the bell rings, and the group disperses. You can''t help but worry. Your recent activity has made the other Gopnik question whether you belong in the group. You better fix things fast, or you risk being kicked out...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'gopnik slut warn':
	cla & *clr
	grupslutwarning[4] = 1
	menu_off = 1
	gs 'stat'
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/joincool.jpg"></center>'
	'You walk down the hallway and stop at your locker. You sense someone standing next to you and turn to see Pauline, Lena, Lera and Dan. Dan stands uncomfortably close and wraps an arm around your hip before pulling you closer. "Hey, slut. Sucked any cocks today? I can give you another one..." he says with a laugh.'
	'Before you can answer, Lera chimes in. "Maybe she just wants to be a slut."'
	'You are again interrupted before you can speak. "We don''t need another Nush. One slut is enough." Pauline says in reply.'
	'Lera fires back. "Hey, she isn''t a slut! She just likes to fuck. It''s not like she lets just anyone fuck her. Not like <<$pcs_nickname>> here." She gives Dan a pointed look, which makes him give Lera a sour look in return.'
	*nl
	'Pauline rolls her eyes. "Whatever. If you want to lick her ass so bad, go ahead and do it, you carpet muncher."'
	'Before Lera can reply, Lena steps between the girls. "That''s enough. We''re not here to bitch about this shit." She then turns to you. "And you, chill the fuck out and stop being the town bicycle, or you''re out, got it?" They then turn and walk off, still chatting as the bell rings. You can''t help but worry. Your recent activity has made the other Gopnik question whether you belong in the group. You better fix things fast, or you risk being kicked out...'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'coolkid outcast':
	cla & *clr
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/outcast.jpg"></center>'
	'Irina and Dimka walk up to you. Dimka is smirking at you while Irina looks you over from head to toe shaking her head. Just as you''re about to speak, Irina cuts you off. "Save it. We don''t care. I don''t know what happened, but you used to be cool. Now? Well, you made your choice. You''re no longer welcome to hang out with us." With that, Irina turns and walks away as Dimka gives you a final look and shakes his head.'
	'"Now you''re where you always belonged. With the other losers." he says before leaving as well. You hear the other students laughing as you look around. Having been publicly disavowed by your clique, the other students are ready to prey on your weakness and either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
	'<font color = red>You have been kicked out of your social group and become an outcast.</font>'

	grupvalue[1] = 0
	grupvalue[2] = min(rand(600,650),grupvalue[2])
	grupvalue[3] = min(rand(650,700),grupvalue[3])
	grupvalue[4] = min(rand(700,750),grupvalue[4])
		
	old_grupvalue[1] = grupvalue[1]
	old_grupvalue[2] = grupvalue[2]
	old_grupvalue[3] = grupvalue[3]
	old_grupvalue[4] = grupvalue[4]

	grupTipe = 5
	grupTipe['before_outcast'] = 1
	
	gs 'gschool_socialchg', 'group_rel_change','cool kids', -20
	gs 'stat'

	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'jock outcast':
	cla & *clr
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/outcast.jpg"></center>'
	if christinaQW['blackmail'] = 2 or christinaQW['fight'] = 1:
		'Lazar and Albina walk up to you, and she scoffs at you dismissively. "It seems like you care more about being a social reject than anything else, so fuck off and go hang out with the other losers where you belong. We''re not your friends anymore, and don''t try to pretend otherwise." She gives you a pitiful once-over before forcefully shoving you aside and walking away. A disappointed-looking Lazar just shakes his head at you before catching up with Albina, where you hear them clearly mocking you. Having been publicly disavowed by your clique, the other students are ready to prey on your weakness, and either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
	else
		'Christina, Lariska and Lina walk up to you. Lariska and Lina look at you like you did something wrong while Christina smirks. She shoves you hard up against your locker. "What are you doing here bitch? You belong with the loser crowd now, so fuck off." She laughs, and Lariska and Lina join in openly mocking you. "Stay away from us, or I''ll show you what happens to little bitches who don''t know their place," Christina warns before they turn and walk away. Having been publicly disavowed by your clique, the other students are ready to prey on your weakness, and either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
	end
	'<font color = red>You have been kicked out of your social group and become an outcast.</font>'
	
	grupvalue[1] = min(rand(600,650),grupvalue[1])
	grupvalue[2] = 0
	grupvalue[3] = min(rand(650,700),grupvalue[3])
	grupvalue[4] = min(rand(675,725),grupvalue[4])
		
	old_grupvalue[1] = grupvalue[1]
	old_grupvalue[2] = grupvalue[2]
	old_grupvalue[3] = grupvalue[3]
	old_grupvalue[4] = grupvalue[4]

	grupTipe = 5
	grupTipe['before_outcast'] = 2
	
	gs 'gschool_socialchg', 'group_rel_change','jocks', -20
	gs 'stat'

	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'nerd outcast':
	cla & *clr
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/outcast.jpg"></center>'
	'You try to find your friends, but most seem to be hiding or hurry off when you approach. You finally manage to catch up to Gerasim, but as you''re about to say something, he turns to you. "Please go away. I can''t be seen hanging out with you. I''ve got enough problems without you making them worse. None of us wants to be around you anymore." He sighs when he sees the dejected look on your face. "I''m sorry, I really am, but this is your fault. Please just leave me alone." The last part he says loudly enough for others to hear, which causes some of the other students to laugh at you as he wheels himself away from you decidedly. As you look around, most of the other students either start mocking you or actively look away. Finally, you grab your stuff and hurry to your next class.'
	'<font color = red>You have been kicked out of your social group and become an outcast.</font>'
	
	grupvalue[1] = min(rand(600,650),grupvalue[1])
	grupvalue[2] = min(rand(650,700),grupvalue[2])
	grupvalue[3] = 0
	grupvalue[4] = min(rand(625,675),grupvalue[4])
		
	old_grupvalue[1] = grupvalue[1]
	old_grupvalue[2] = grupvalue[2]
	old_grupvalue[3] = grupvalue[3]
	old_grupvalue[4] = grupvalue[4]

	grupTipe = 5
	grupTipe['before_outcast'] = 3
	
	gs 'gschool_socialchg', 'group_rel_change','nerds', -20
	gs 'stat'

	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'gopnik outcast':
	cla & *clr
	menu_off = 1
	'<center><img <<$set_imgh>> src="images/locations/pavlovsk/school/events/outcast.jpg"></center>'
	'As you approach your locker, Pauline, Lera, and Lena walk up next to you. Pauline looks like she''s preparing to beat you up, while Lera looks at you with disgust. Pauline shakes her head at you and finally speaks up. "I don''t know what your problem is, but apparently, hanging out, partying and having a good time wasn''t enough for you. Nooo, you had to become a spineless cunt afraid of her own shadow, so stay the fuck away from us, or I''ll beat the shit out of you!" With that, Pauline shoves you against your locker and walks away. Lena gives you a final look of disgust and pushes you again while Lera gives you a few parting words before walking away. "You''re so pathetic. Even the nerds will kick your ass now." Having been publicly disavowed by your clique, the other students are ready to prey on your weakness, and either start mocking you or actively look away. You grab your stuff and hurry to your next class.'
	'<font color = red>You have been kicked out of your social group and become an outcast.</font>'
	
	grupvalue[1] = min(rand(625,675),grupvalue[1])
	grupvalue[2] = min(rand(650,700),grupvalue[2])
	grupvalue[3] = min(rand(600,650),grupvalue[3])
	grupvalue[4] = 0
		
	old_grupvalue[1] = grupvalue[1]
	old_grupvalue[2] = grupvalue[2]
	old_grupvalue[3] = grupvalue[3]
	old_grupvalue[4] = grupvalue[4]

	grupTipe = 5
	grupTipe['before_outcast'] = 4
	
	gs 'gschool_socialchg', 'group_rel_change','gopniks', -20
	gs 'stat'

	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

if $ARGS[0] = 'gopnik miss':
	*clr & cla
	'<center><b><font color = maroon>School Hall</font></b></center>'
	'<center><img <<$set_imgh>> src="images/characters/shared/headshots_main/big20.jpg"></center>'
	'Just as you approach your locker, Lena shoves you against it. "Where the fuck were you bitch? We waited almost an hour for you!"'
	'You start to answer, but she shoves you again before you can even get a single word out. "It doesn''t matter. We changed our mind about you. You''re not welcome. So get lost." she snarls before storming off. If you try to earn their respect again, they will give you a second chance.'
	minut += 1
	grupvalue[4] = rand(675,725)
	old_grupvalue[4] = grupvalue[4]
	gs 'stat'
	act 'Go to class': school_period = 0 & gt 'gschool_lessons', 'schedule'
end

!! gs 'gschool_socialchg', 'group_rel_change', '<social group>', <amount> [, '<gender (optional)>']
if $ARGS[0] = 'group_rel_change':
	if $ARGS[1] = 'cool kids': ntemp = 1
	if $ARGS[1] = 'jocks': ntemp = 2
	if $ARGS[1] = 'nerds': ntemp = 3
	if $ARGS[1] = 'gopniks': ntemp = 4
	if $ARGS[1] = 'outcasts': ntemp = 5
	if $ARGS[1] = 'teachers': ntemp = 6
	if $ARGS[3] = 'male' or $ARGS[3] = 'boy': gtemp = 1
	if $ARGS[3] = 'female' or $ARGS[3] = 'girl': gtemp = 2
	temp = arrsize('npc_dna')
	
	:gs_socloop
	if npc_grupTipe['A<<temp>>'] = ntemp and (gtemp = 0 or npc_gender['A<<temp>>'] = gtemp - 1):
		npc_rel['A<<temp>>'] += ARGS[2]
		npc_rel['A<<temp>>'] = min(npc_rel['A<<temp>>'],100)
		npc_rel['A<<temp>>'] = max(npc_rel['A<<temp>>'],0)
	end
	temp -= 1
	if temp > 1: jump 'gs_socloop'
	killvar 'gtemp' & killvar 'ntemp'
end

if $ARGS[0] = 'group_student_rel_change':
	if grupvalue_student_day ! daystart:
		if npc_rel['A1'] >= 60: grupvalue[1] += 1
		if npc_rel['A1'] <= 20: grupvalue[1] -= 1 
		if npc_rel['A2'] >= 60: grupvalue[3] += 1
		if npc_rel['A2'] <= 20: grupvalue[3] -= 1
		if npc_rel['A3'] >= 60: grupvalue[2] += 1     
		if npc_rel['A3'] <= 20: grupvalue[2] -= 1   
		if npc_rel['A4'] >= 60: grupvalue[1] += 1     
		if npc_rel['A4'] <= 20: grupvalue[1] -= 1   
		if fedormasha = 0 and npc_rel['A5'] >= 60: grupvalue[3] += 1     
		if fedormasha = 0 and npc_rel['A5'] <= 20: grupvalue[3] -= 1   
		if npc_rel['A6'] >= 60: grupvalue[3] += 1     
		if npc_rel['A6'] <= 20: grupvalue[3] -= 1   
		if npc_rel['A7'] >= 60: grupvalue[5] += 1     
		if npc_rel['A7'] <= 20: grupvalue[5] -= 1   
		if npc_rel['A8'] >= 60: grupvalue[2] += 1     
		if npc_rel['A8'] <= 20: grupvalue[2] -= 1   
		if npc_rel['A9'] >= 60: grupvalue[4] += 1     
		if npc_rel['A9'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A10'] >= 60: grupvalue[4] += 1     
		if npc_rel['A10'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A11'] >= 60: grupvalue[4] += 1     
		if npc_rel['A11'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A12'] >= 60: grupvalue[3] += 1     
		if npc_rel['A12'] <= 20: grupvalue[3] -= 1   
		if npc_rel['A13'] >= 60: grupvalue[2] += 1     
		if npc_rel['A13'] <= 20: grupvalue[2] -= 1   
		if npc_rel['A14'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A14'] >= 60: grupvalue[1] += 1     
		if npc_rel['A15'] >= 60: grupvalue[1] += 1     
		if npc_rel['A15'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A16'] >= 60: grupvalue[3] += 1     
		if npc_rel['A16'] <= 20: grupvalue[3] -= 1   
		if npc_rel['A17'] >= 60: grupvalue[1] += 1     
		if npc_rel['A17'] <= 20: grupvalue[1] -= 1
		if npc_rel['A19'] >= 60: grupvalue[2] += 1     
		if npc_rel['A19'] <= 20: grupvalue[2] -= 1   
		if npc_rel['A200'] >= 60: grupvalue[4] += 1     
		if npc_rel['A200'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A21'] >= 60: grupvalue[4] += 1     
		if npc_rel['A21'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A22'] >= 60: grupvalue[1] += 1     
		if npc_rel['A22'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A23'] >= 60: grupvalue[2] += 1     
		if npc_rel['A23'] <= 20: grupvalue[2] -= 1   
		if npc_rel['A24'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A24'] >= 60: grupvalue[4] += 1     
		if soniaPS = 0 and npc_rel['A25'] >= 60: grupvalue[1] += 1     
		if soniaPS = 0 and npc_rel['A25'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A139'] >= 60: grupvalue[1] += 1  
		if npc_rel['A139'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A140'] >= 60: grupvalue[1] += 1     
		if npc_rel['A140'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A141'] <= 20: grupvalue[2] -= 1   
		if npc_rel['A141'] >= 60: grupvalue[2] += 1     
		if npc_rel['A142'] >= 60: grupvalue[3] += 1     
		if npc_rel['A142'] <= 20: grupvalue[3] -= 1   
		if npc_rel['A143'] >= 60: grupvalue[4] += 1     
		if npc_rel['A143'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A144'] >= 60: grupvalue[4] += 1     
		if npc_rel['A144'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A145'] >= 60: grupvalue[4] += 1     
		if npc_rel['A145'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A146'] >= 60: grupvalue[1] += 1     
		if npc_rel['A146'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A147'] >= 60: grupvalue[1] += 1     
		if npc_rel['A147'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A148'] >= 60: grupvalue[1] += 1     
		if npc_rel['A148'] <= 20: grupvalue[1] -= 1   
		if npc_rel['A149'] >= 60: grupvalue[2] += 1     
		if npc_rel['A149'] <= 20: grupvalue[2] -= 1   
		if npc_rel['A150'] >= 60: grupvalue[2] += 1     
		if npc_rel['A150'] <= 20: grupvalue[2] -= 1   
		if npc_rel['A151'] >= 60: grupvalue[3] += 1     
		if npc_rel['A151'] <= 20: grupvalue[3] -= 1   
		if npc_rel['A152'] >= 60: grupvalue[3] += 1     
		if npc_rel['A152'] <= 20: grupvalue[3] -= 1   
		if npc_rel['A153'] >= 60: grupvalue[3] += 1     
		if npc_rel['A153'] <= 20: grupvalue[3] -= 1   
		if npc_rel['A154'] >= 60: grupvalue[4] += 1     
		if npc_rel['A154'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A155'] >= 60: grupvalue[4] += 1     
		if npc_rel['A155'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A156'] >= 60: grupvalue[4] += 1     
		if npc_rel['A156'] <= 20: grupvalue[4] -= 1   
		if npc_rel['A157'] >= 60: grupvalue[4] += 1
		if npc_rel['A157'] <= 20: grupvalue[4] -= 1
		if npc_rel['A158'] >= 60: grupvalue[4] += 1
		if npc_rel['A158'] <= 20: grupvalue[4] -= 1
		if npc_rel['A159'] >= 60: grupvalue[5] += 1
		if npc_rel['A159'] <= 20: grupvalue[5] -= 1
		if npc_rel['A165'] >= 60: grupvalue[2] += 1
		if npc_rel['A165'] <= 20: grupvalue[2] -= 1
		if npc_grupTipe['A189'] = 4 and npc_rel['A189'] >= 60: grupvalue[4] += 1
		if npc_grupTipe['A189'] = 4 and npc_rel['A189'] <= 20: grupvalue[4] -= 1
		grupvalue_student_day = daystart
		if grupvalue[1] < 0: grupvalue[1] = 0
		if grupvalue[2] < 0: grupvalue[2] = 0
		if grupvalue[3] < 0: grupvalue[3] = 0
		if grupvalue[4] < 0: grupvalue[4] = 0
	end
end	


--- gschool_socialchg ---------------------------------