glife/locations/DH_Quest_NB.qsrc

# DH_Quest_NewBeginnings
$dhQst_Current = 'NewBeginnings'

if $ARGS[0] = 'Start':	
	$dhQst_Title['NewBeginnings'] = 'New Beginnings'
	
	$dhQst_Started['NewBeginnings']  = True
	$dhQst_Finished['NewBeginnings'] = False
	
	$dhQst_QstLine['NewBeginnings_0'] = 'So Cold'
	$dhQst_QstLine['NewBeginnings_1'] = 'Alive?'
	$dhQst_QstLine['NewBeginnings_2'] = 'Part3'
	
	$dhQst_Progress['NewBeginnings'] = ''
	
	gt 'DH_Quest_<<$dhQst_Current>>', 'So Cold'
end

if $ARGS[0] = 'Complete':
	$dhQst_Finished['NewBeginnings'] = True
end

if $ARGS[0] = 'So Cold':
	$dhQst_Progress['<<$dhQst_Current>>'] = $ARGS[0]
	
	'It all starts with a shiver. The shiver wakes you up, and, all of a sudden, you feel. You feel cold. So cold.'
	'Then the pain sets in. The shiver makes you hit the ground, and the ground hurts! It hurts so much.'
	'But that''s all there is, cold and pain. Pain and cold.'
	'No, that isn''t right. There''s one more feeling. But it''s slipping away. Fast.'
	'Oh! Another feeling, is it... laughter? Right, you feel like laughing! Haha, that''s right, the one slipping away is your sanity. Haha.'
	'Desperately, you try to latch onto something. Anything. Oh, your name! Err... What was your name, again?'
	
	$act_GetName = {
		$_playerName = input("What was my name?")
		$_playerName = iif($_playerName = '', 'Ash', $_playerName) &! Default name.
		!! Check if valid name
		
		FUNC('DH_Character', 'Delete', 'Player')
		FUNC('DH_Character', 'Create', 'Player', $_playerName)
		
		gt 'DH_Quest_NewBeginnings', 'Alive?'
	}
	
	ACT 'My name..?': DYNAMIC $act_GetName
	ACT 'Exit Game': gt 'Komp', 'start'
end

if $ARGS[0] = 'Alive?':
	$dhQst_Progress['<<$dhQst_Current>>'] = $ARGS[0]
	
	!!TODO: Give a different response for special names
	$_specialNameMsg = 'Yes. Your name was <<$_playerName>>. Not that it matters though, you''re already half-mad, after all.'
	$_specialNameMsg_[0] = 'WinkyFace ;)'
	
	if     $_playerName = 'WinkyFace': $_specialNameMsg = $_specialNameMsg_[0] & end
	
	$_specialNameMsg
	'Really, if it weren''t for that incessant ringing, you''d have long lost your- Wait, ringing..?'
	'A burst of white light appears, the ringing gets louder and you finally feel. You feel alive.'
	'You struggle to open your eyes just a bit wider, but the more you see, the more pain you feel. And the more your head aches.'
	'Without warning you feel something drop onto your left eye. The sudden attack makes you flinch, and you knock your head against something hard.'
	'Mentally, you shout in pain, but all that escapes your parched throat is a weak groan.'
	'When you open your eyes once again, the left''s vision is slightly red, and you feel a wetness just above your brow.'
	'Reaching up you find your hand covered in blood. A head injury, is it the cause of your amnesia? Or something else...'
	'You try looking around but there''s too much dust. On top of is a wooden beam, did it fall from the ceiling?'
	'You are trapped.'
	
	!! Warrior
	_pushBeamCount = 0
	act 'Attempt to push the beam.':
		_pushBeamCount += 1
		if     _pushBeamCount = 3 and dhCh_Str['Player'] = 1:
			'Despite your pain, you clench your teeth hard, and hope for the best in what can only be described as a retarded decision.'
			'But against all odds, you succeed! It''s hard to believe it, and even you''re not quite sure where you pulled that last ounce of strength from, but you did it.'
			'With haste, you push the sturdy beam off of you, freeing yourself from captivity.'
			
			gs 'DH_Classes', 'ChangeClass', 'Player', 'Warrior'
			
			CLA
			ACT 'Stand Up': gt 'DH_Quest_NewBeginnings', 'Path of the Warrior'
		
		elseif _pushBeamCount = 1 and dhCh_Str['Player'] >= 2:
			'You didn''t notice it before but you feel... strong. Powerful. Nothing can get in your way!'
			'It must be some sort of miracle, an huge feat of strength, but with a single hand you pick up and toss the heavy beam across the room.'
			'The large movement causes more destruction in your surroundings, but you simply don''t care.'
			'When a loosened stone block falls towards you, you just knock it away with a casual swipe.'
			'You''re not sure why, but you get the feeling you''d look even cooler with a pair of Sunglasses right now.'
			'With the beam gone, you''ve freed yourself from captivity.'
			
			gs 'DH_Classes', 'ChangeClass', 'Player', 'Warrior'
			
			CLA
			ACT 'Stand Up': gt 'DH_Quest_NewBeginnings', 'Path of the Warrior'
		
		elseif _pushBeamCount = 100:
			'They say perseverance is also a type of strength, and it seems to be true.'
			'Through sheer effort, you manage to push the wooden beam off of you, freeing yourself from captivity.'
			''
			'Strength + 1'
			
			gs 'DH_Character', 'AddStat', 'Player', 'Strength', 1
			gs 'DH_Classes', 'ChangeClass', 'Player', 'Warrior'
			
			CLA
			ACT 'Stand Up': gt 'DH_Quest_NewBeginnings', 'Path of the Warrior'
		
		else
			'You attempt to push the beam away.'
		end
	end
	
	!! Ranger
	_waitDustCount = 0
	ACT 'Wait for the dust to settle.': gt 'Komp', 'start'
	
	!! Mage
	_shoutHelpCount = 0
	ACT 'You could also try calling for help.': gt 'Komp', 'start'
	
	ACT 'Exit Game': gt 'Komp', 'start'
end

if $ARGS[0] = 'Path of the Warrior':
	$dhQst_Progress['<<$dhQst_Current>>'] = $ARGS[0]
	'I AM WARRIOR'
end


--- DH_Quest_NewBeginnings ---------------------------------