glife/locations/chessplay

# chessplay

if $ARGS[0] = '':
	if $chess_name='':$chess_name='girl'
	gs'stat'
	chess_GG = 20
	chess_com = 20
	
	chess_ind = (chessV - chess) / 100
	chess += rand(intel/20,intel/10)
	intel += 1
	minut += 60

	gt 'chessplay', 'game'
end

if $ARGS[0] = 'game':

	if chess_GG <= 0:
		gt 'chessplay', 'lose'
	elseif chess_com <= 0:
		gt 'chessplay', 'win'
	else
		gs 'chessplay', 'moves'
	end
end

if $ARGS[0] = 'moves':
	cla
	act 'Go defensive':
		chessM = rand (0,5)
		if chessM = 0:
			'Your opponent tries to trap you, but you avoid it and gain some advantage.'
			if chess_ind < 2:
				chess_GG += 2 - chess_ind
				chess_com -= 2 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		elseif chessM = 1:
			'Your opponent goes offensive much to their advantage.'
			if chess_ind > -4:
				chess_GG -= 4 + chess_ind
				chess_com += 4 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 2:
			'Your opponent goes aggressive you absorb some of it, but still lose some advantage.'
			if chess_ind > -2:
			chess_GG -= 2 + chess_ind
				chess_com += 2 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 3:
			'Your opponent tries to manoeuvre the game pieces, but your defensive actions expose all their efforts, much to your advantage.'
			if chess_ind < 4:
				chess_GG += 4 - chess_ind
				chess_com -= 4 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		else
			'Your opponent also goes defensive and neither of you gain any advantage.'
		end

		gs 'chessplay', 'game'
	end

	act 'Heavy defense':
		chessM = rand (0,5)
		if chessM = 0:
			'Your opponent tries to trap you, but you easily avoid it and gain a good advantage.'
			if chess_ind < 4:
				chess_GG += 4 - chess_ind
				chess_com -= 4 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		elseif chessM = 1:
			'Your opponent goes offensive you absorb some of it, but still lose some advantage.'
			if chess_ind > -2:
			chess_GG -= 2 + chess_ind
				chess_com += 2 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 2:
			'Your opponent goes aggressive much to their advantage.'
			if chess_ind > -4:
				chess_GG -= 4 + chess_ind
				chess_com += 4 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 3:
			'Your opponent tries to manoeuvre the game pieces, but your defensive actions expose some of their efforts, to your advantage.'
			if chess_ind < 2:
				chess_GG += 2 - chess_ind
				chess_com -= 2 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		else
			'Your opponent also goes defensive and neither of you gain any advantage.'
		end

		gs 'chessplay', 'game'
	end

	act 'Go offensive':
		chessM = rand (0,5)
		if chessM = 0:
			'Your opponent tries to trap you, gaining some advantage.'
			if chess_ind > -2:
			chess_GG -= 2 + chess_ind
				chess_com += 2 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 1:
			'Your opponent goes offensive much to your advantage.'
			if chess_ind < 4:
				chess_GG += 4 - chess_ind
				chess_com -= 4 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		elseif chessM = 2:
			'Your opponent goes aggressive you easily absorb it, and gain some advantage.'
			if chess_ind < 2:
				chess_GG += 2 - chess_ind
				chess_com -= 2 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		elseif chessM = 3:
			'Your opponent tries to manoeuvre the game pieces, your offensive actions leave you exposed, and they take advantage.'
			if chess_ind > -4:
				chess_GG -= 4 + chess_ind
				chess_com += 4 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		else
			'Your opponent also goes on the attack and neither of you gain any advantage.'
		end

		gs 'chessplay', 'game'
	end

	act 'Be aggressive':
		chessM = rand (0,5)
		if chessM = 0:
			'Your opponent tries to trap you, and you are playing right into their hands.'
			if chess_ind > -4:
				chess_GG -= 4 + chess_ind
				chess_com += 4 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 1:
			'Your opponent goes defensive to your advantage.'
			if chess_ind < 2:
				chess_GG += 2 - chess_ind
				chess_com -= 2 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		elseif chessM = 2:
			'Your opponent goes heavily defensive very much to your advantage.'
			if chess_ind < 4:
				chess_GG += 4 - chess_ind
				chess_com -= 4 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		elseif chessM = 3:
			'Your opponent tries to manoeuvre the game pieces, gaining some advantage.'
			if chess_ind > -2:
			chess_GG -= 2 + chess_ind
				chess_com += 2 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		else
			'Your opponent also goes on the attack and neither of you gain any advantage.'
		end

		gs 'chessplay', 'game'
	end

	act 'Bait trap':
		chessM = rand (0,5)
		if chessM = 0:
			'Your opponent goes offensive to your advantage.'
			if chess_ind < 2:
				chess_GG += 2 - chess_ind
				chess_com -= 2 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		elseif chessM = 1:
			'Your opponent goes defensive to their advantage.'
			if chess_ind > -2:
				chess_GG -= 2 + chess_ind
				chess_com += 2 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 2:
			'Your opponent goes heavily defensive exposing your tactics much to their advantage.'
			if chess_ind > -4:
				chess_GG -= 4 + chess_ind
				chess_com += 4 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 3:
			'Your opponent goes aggressive much to your advantage.'
			if chess_ind < 4:
				chess_GG += 4 - chess_ind
				chess_com -= 4 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		else
			'Your opponent also goes tactical and neither of you gain any advantage.'
		end

		gs 'chessplay', 'game'
	end

	act 'Manoeuvre the game pieces':
		chessM = rand (0,5)
		if chessM = 0:
			'Your opponent goes offensive, much to your advantage.'
			if chess_ind < 4:
				chess_GG += 4 - chess_ind
				chess_com -= 4 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		elseif chessM = 1:
			'Your opponent goes defensive much to their advantage.'
			if chess_ind > -4:
				chess_GG -= 4 + chess_ind
				chess_com += 4 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 2:
			'Your opponent goes heavily defensive exposing your tactics to their advantage.'
			if chess_ind > -2:
			chess_GG -= 2 + chess_ind
				chess_com += 2 - chess_ind
			else
				'However your superior skill negates that advantage.'
			end
		elseif chessM = 3:
			'Your opponent goes aggressive to your advantage.'
			if chess_ind < 2:
				chess_GG += 2 - chess_ind
				chess_com -= 2 + chess_ind
			else
				'However their superior skill negates that advantage.'
			end
		else
			'Your opponent also goes tactical and neither of you gain any advantage.'
		end

		gs 'chessplay', 'game'
	end
end


if $ARGS[0] = 'win':
	cls
	gs 'stat'
	chess_win += 1
	'You have won this game.'
	act 'Return': gt $loc
end

if $ARGS[0] = 'lose':
	cls
	gs 'stat'
	'You have lost this game.'
	act 'Return': gt $loc
end


--- chessplay ---------------------------------