Sorry your browser is not supported!

REM Project:	Tron
REM Assignment: Behavior
REM Author: 	Sam Weddington
REM Created:    05/26/11

REM ***** Included Source File *****

REM ----- Behavior Routines
Game_Behavior:
	checkMovement()
	RETURN

REM ----- Behavior Functions
FUNCTION resolveDirection(A, direction$)
	IF direction$ = "LEFT" AND player(A).Direction = "UP"     THEN player(A).Direction = "RIGHT"
	IF direction$ = "LEFT" AND player(A).Direction = "DOWN"   THEN player(A).Direction = "LEFT"
	IF direction$ = "LEFT" AND player(A).Direction = "LEFT"   THEN player(A).Direction = "DOWN"
	IF direction$ = "LEFT" AND player(A).Direction = "RIGHT"  THEN player(A).Direction = "UP"
	 
	IF direction$ = "RIGHT" AND player(A).Direction = "UP"    THEN player(A).Direction = "RIGHT"
	IF direction$ = "RIGHT" AND player(A).Direction = "DOWN"  THEN player(A).Direction = "LEFT"
	IF direction$ = "RIGHT" AND player(A).Direction = "LEFT"  THEN player(A).Direction = "UP"
	IF direction$ = "RIGHT" AND player(A).Direction = "RIGHT" THEN player(A).Direction = "DOWN"	
ENDFUNCTION

FUNCTION resolveMovement()
	FOR T = 1 TO 2
		checkMovement()
		IF
			IF player(T).Direction = "LEFT"  THEN player(T).XPos = player(T).XPos - 1 : grid(player(T).XPos)(player(T).XPos) = player(T).Beam
			IF player(T).Direction = "RIGHT" THEN player(T).XPos = player(T).XPos + 1 : grid(player(T).XPos)(player(T).XPos) = player(T).Beam
			IF player(T).Direction = "UP"    THEN player(T).YPos = player(T).XPos + 1 : grid(player(T).XPos)(player(T).XPos) = player(T).Beam
			IF player(T).Direction = "DOWN"  THEN player(T).YPos = player(T).YPos - 1 : grid(player(T).XPos)(player(T).XPos) = player(T).Beam
		ENDIF
	NEXT T
ENDFUNCTION

FUNCTION checkMovement()
	FOR T = 1 TO 2
		IF
			IF player(T).Direction = "LEFT"  AND grid(player(T).XPos - 1)(player(T).YPos) = "A" OR grid(player(T).XPos - 1)(player(T).YPos - 1) = "B" OR grid(player(T).XPos - 1)(player(T).YPos - 1) = "W" THEN endGame("Crash")
			IF player(T).Direction = "RIGHT" AND grid(player(T).XPos + 1)(player(T).YPos) = "A" OR grid(player(T).XPos - 1)(player(T).YPos - 1) = "B" OR grid(player(T).XPos - 1)(player(T).YPos - 1) = "W" THEN endGame("Crash")
			IF player(T).Direction = "DOWN"  AND grid(player(T).XPos)(player(T).YPos + 1) = "A" OR grid(player(T).XPos - 1)(player(T).YPos - 1) = "B" OR grid(player(T).XPos - 1)(player(T).YPos - 1) = "W" THEN endGame("Crash")
			IF player(T).Direction = "UP"    AND grid(player(T).XPos)(player(T).YPos - 1) = "A" OR grid(player(T).XPos - 1)(player(T).YPos - 1) = "B" OR grid(player(T).XPos - 1)(player(T).YPos - 1) = "W" THEN endGame("Crash")
			
			IF player(1).Direction = "LEFT"  AND player(2).Direction = "RIGHT" THEN endGame("Draw")
			IF player(1).Direction = "RIGHT" AND player(2).Direction = "LEFT"  THEN endGame("Draw")
			IF player(1).Direction = "UP"    AND player(2).Direction = "DOWN"  THEN endGame("Draw")
			IF player(1).Direction = "DOWN"  AND player(2).Direction = "UP"    THEN endGame("Draw")
		ENDIF
	NEXT T
ENDFUNCTION

if
    answer=1
endif

if input=1
    answer=1
endif