CLS
OBJ(1) = 6	' Pen
OBJ(2) = 2  ' Gold Coin
OBJ(3) = 0	' Purple Key
OBJ(4) = 8	' Drawer
OBJ(5) = 8	' Paper
OBJ(6) = 5	' Small brown chair
OBJ(7) = 4	' Gingerbread house

ROOM = 1
COL = 8
BCOL = 4
DRAWERLOCK = 1
BLOODSTAINCLEANED = 0
TYPEWRITERHINT = 0

PRINT "Christmas Game"
PRINT
PRINT "This is a game. It's fully played using text, and writing text."
PRINT "That meaning, if you're under 18 or just mentally retarded,"
PRINT "you will dislike this game."
PRINT
PRINT "Game made by Ran. His MSN and Email is currently realran_ at msn dot com."
PRINT "(There's also some stuff made with help from Kairi. But let's ignore that)."
PRINT
ACTION$ = "COMMANDS"
GOTO LOOK:

CLS
CL: ' Command Line
COLOR COL
PRINT "Please write in what you want to do."
INPUT "-"; ACTION$
ACTION$ = UCASE$(ACTION$)

LOOK:
SELECT CASE ACTION$

	CASE "LOOK"
	  SELECT CASE ROOM

		CASE 1
		  COLOR BCOL
		  PRINT "--- FIRST ROOM ---"
		  COLOR COL
		  PRINT "You're in the first room. To the left, there's a window. It's snowing a lot outside!"

		CASE 2
		  COLOR BCOL
		  PRINT "--- SECOND ROOM---"
		  COLOR COL
		  IF OBJ(2) = 2 THEN
		    PRINT "In this room, there is a golden coin laying on a table."
		  ELSE
		    PRINT "In this room, there is only a lonely table stationary"
		  END IF

		CASE 3
		  COLOR BCOL
		  PRINT "--- LIVING ROOM---"
		  COLOR COL
		  PRINT "You're in the living room. You see lots of books sorted alphabetically."
		  PRINT "On the floor, there is an type writer absent. Why not USE TYPEWRITER?"
		  IF OBJ(3) = 3 THEN PRINT "On the floor there's an Purple Key. Interesting."

		CASE 4
		  COLOR BCOL
		  PRINT "--- FOURTH ROOM---"
		  COLOR COL
		  PRINT "You're in the fourth room."
		  IF OBJ(7) <> 10 THEN PRINT "On a table, you see an gingerbread house."

		CASE 5
		  COLOR BCOL
		  PRINT "--- FIFTH ROOM---"
		  COLOR COL
		  SELECT CASE OBJ(6)
		    CASE 5
		        PRINT "Surprisingly, nothing else is in the room but a small, brown chair."
			CASE ELSE
			    PRINT "Surprisingly, there's absolutely nothing there!"
	      END SELECT

		CASE 6
		  COLOR BCOL
		  PRINT "--- SIXTH ROOM---"
		  COLOR COL
		  PRINT "In the room, there is a small barricaded window and a booklet filled with books."
		  SELECT CASE BLOODSTAINCLEANED
		    CASE 0
		      PRINT "In the ceiling, there is a small blood stain. Eerie!"
			CASE 1
			  PRINT "In the ceiling, there is a picture of a circle."
		  END SELECT

		CASE 8
		  COLOR BCOL
		  PRINT "---EIGTH ROOM---"
		  COLOR COL
		  PRINT "This room consists of nothing but a large drawer."

		CASE 9
		  COLOR BCOL
		  PRINT "--- NINTH ROOM---"
		  COLOR COL
		  PRINT "You're in the ninth room. To the rigth, there's a window. The snow is pouring down outside!"
	  END SELECT

	CASE "COLOR CHART"
		FOR I = 1 TO 15
		COLOR I
		PRINT I; "Color"
		NEXT I:
		COLOR COL

	CASE "INVENTORY"
	  COLOR BCOL
	  PRINT "--- INVENTORY ---"
	  COLOR COL
	  IF OBJ(1) = 10 THEN PRINT "One Pen"
	  IF OBJ(2) = 10 THEN PRINT "One Gold Coin"
	  IF OBJ(3) = 10 THEN PRINT "One Purple Key"
	  IF OBJ(5) = 10 THEN PRINT "One Paper"
	  IF OBJ(6) = 10 THEN PRINT "One Brown Chair"
	  IF OBJ(7) = 10 THEN PRINT "One Gingerbread House"

	CASE "COMMANDS"
	  COLOR BCOL
	  PRINT "--- COMMANDS ---"
      COLOR COL
	  PRINT "To interact: GET, USE, OPEN, UNLOCK, CLEAN
	  PRINT "Other: LOOK, COLOR CHART, INVENTORY, COMMANDS, MOVE R, MOVE L, EXIT

	CASE "EXIT"
	  PRINT "Really quit? Theres no saving function, you'll ruin christmas!"
	  PRINT "(Y/N) if you really want to ruin christmas and end this game."
	  INPUT TEMP$
	  TEMP$ = UCASE$(TEMP$)
	  IF LEFT$(TEMP$, 1) = "Y" THEN END

END SELECT



MELLANSLAG = 0
I = 0
' får fram positionen av mellanslaget
DO
	I = I + 1
	IF MID$(ACTION$, I, 1) = " " THEN MELLANSLAG = I
LOOP UNTIL MELLANSLAG <> 0 OR I = 30
IF I = 30 THEN GOTO CL:

' nollställer doaction
DOACTION$ = "NOTHING"
' läser kommando och skickar till datorn
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "GET" THEN DOACTION$ = "GET"
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "USE" THEN DOACTION$ = "USE"
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "COLOR" THEN DOACTION$ = "COLOR"
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "BCOLOR" THEN DOACTION$ = "BCOLOR"
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "MOVE" THEN DOACTION$ = "MOVE"
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "UNLOCK" THEN DOACTION$ = "UNLOCK"
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "OPEN" THEN DOACTION$ = "OPEN"
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "CLEAN" THEN DOACTION$ = "CLEAN"
IF LEFT$(ACTION$, (MELLANSLAG - 1)) = "EAT" THEN DOACTION$ = "EAT"

IF DOACTION$ = "GET" THEN
  DOITEM$ = "NOTHING"
  DOITEM$ = MID$(ACTION$, (MELLANSLAG + 1), (LEN(ACTION$) - MELLANSLAG))

  ' Kollar synonymer
  SELECT CASE DOITEM$
    CASE "KEY"
	  IF OBJ(3) = 3 THEN DOITEM$ = "PURPLE KEY"
	CASE "GINGER BREAD HOUSE"
	  DOITEM$ = "GINGERBREAD HOUSE"
	CASE "GINGERBREADHOUSE"
	  DOITEM$ = "GINGERBREAD HOUSE"
	CASE "COIN"
	  DOITEM$ = "GOLD COIN"
	CASE "GOLDEN COIN"
	  DOITEM$ = "GOLD COIN"
	CASE "GOLDENCOIN"
	  DOITEM$ = "GOLD COIN"
	CASE "GOLDCOIN"
	  DOITEM$ = "GOLD COIN"
	CASE "CHAIR"
	  DOITEM$ = "SMALL BROWN CHAIR"
	CASE "SMALL CHAIR"
	  DOITEM$ = "SMALL BROWN CHAIR"
	CASE "BROWN CHAIR"
	  DOITEM$ = "SMALL BROWN CHAIR"
  END SELECT


  SELECT CASE DOITEM$

    CASE "PURPLE KEY"
	  IF OBJ(3) = 3 THEN
	    IF ROOM = 3 THEN
		  OBJ(3) = 10
		  PRINT "You got the Purple Key."
		END IF
	  END IF

	CASE "SMALL BROWN CHAIR"
	  IF OBJ(6) = 5 THEN
	    IF ROOM = 5 THEN
		  OBJ(6) = 10
		  PRINT "You got the small brown chair."
		END IF
	  END IF

	CASE "GOLD COIN"
	  IF OBJ(2) = ROOM THEN OBJ(2) = 10
	  PRINT "You get one Gold Coin which was laying at the table."

	CASE "GINGERBREAD HOUSE"
	  IF OBJ(7) = ROOM THEN OBJ(7) = 10
	  PRINT "You get the Gingerbread House."

	CASE "TYPEWRITER"
	  IF ROOM = 3 THEN PRINT "The typewriter is way to heavy to lift!"

	CASE ELSE
		PRINT "Get what?"

  END SELECT
END IF

IF DOACTION$ = "EAT" THEN PRINT "Sorry, but eating isn't allowed in this game."


IF DOACTION$ = "USE" THEN
  DOITEM$ = "NOTHING"
  DOITEM$ = MID$(ACTION$, (MELLANSLAG + 1), (LEN(ACTION$) - MELLANSLAG))

  ' Kollar synonymer
  SELECT CASE DOITEM$
    CASE "TYPE WRITER"
	  DOITEM$ = "TYPEWRITER"
    CASE "PURPLE KEY"
	  PRINT "Please use the UNLOCK command."
	CASE "KEY"
	  PRINT "Please use the UNLOCK command."
  END SELECT

  SELECT CASE DOITEM$

	CASE "TYPEWRITER"
	  IF ROOM = 3 THEN
	  CLS
	  GOTO TYPEWRITERMODE:
	  END IF
	CASE "PAPER"
	  IF ROOM = 3 THEN
	    IF OBJ(5) = 10 THEN
		  PRINT "You fill the typewriter with your paper."
		  PRINT "The typewriter starts to cought... What's happening?"
		  PRINT "Suddenly, the typewriter is transformed into..."
		  PRINT "SANTA? WTF?"
		  PRINT
		  PRINT "Santa: Great, you did it! The beta version is completed."
		  PRINT "Please send 50 euros to Ran to play the rest of the game!
		  PRINT "... Or simply wait some days, and hopefully you'll be able"
		  PRINT "to play the rest of the game, since it's due to release"
		  PRINT "in late december 2006. Please spread the game!"
		  PRINT
		  PRINT "Press enter to quit."
		  INPUT I
		  END
		END IF
	  END IF

	CASE ELSE
		PRINT "Use what?"

  END SELECT
END IF


IF DOACTION$ = "UNLOCK" THEN
  DOITEM$ = "NOTHING"
  DOITEM$ = MID$(ACTION$, (MELLANSLAG + 1), (LEN(ACTION$) - MELLANSLAG))
  SELECT CASE DOITEM$

	CASE "DRAWER"

	  IF DRAWERLOCK = 1 THEN

	    IF OBJ(4) = ROOM THEN
	      IF OBJ(3) = 10 THEN
		    DRAWERLOCK = 0
		    PRINT "You unlocked the drawer with your Purple Key."
		  ELSE
		    PRINT "You don't have any key."
		  END IF
		END IF

	  ELSE

	    IF OBJ(4) = ROOM THEN
	      IF OBJ(3) = 10 THEN PRINT "It's already unlocked!"
		END IF
	  END IF

	CASE ELSE
	  PRINT "Unlock what?"

  END SELECT
END IF


IF DOACTION$ = "OPEN" THEN
  DOITEM$ = "NOTHING"
  DOITEM$ = MID$(ACTION$, (MELLANSLAG + 1), (LEN(ACTION$) - MELLANSLAG))
  SELECT CASE DOITEM$

	CASE "DRAWER"
	  IF OBJ(4) = ROOM THEN
	    IF DRAWERLOCK = 0 THEN
		  PRINT "You open the drawer."
		  IF OBJ(5) <> 10 THEN
		    PRINT "In the drawer, there's a paper."
		    PRINT "You take the paper."
		    OBJ(5) = 10
		  ELSE
		    PRINT "There's nothing there, really."
		  END IF
		ELSE
		  PRINT "The drawer is locked."
		END IF
	  END IF

  END SELECT
END IF


IF DOACTION$ = "CLEAN" THEN
  DOITEM$ = "NOTHING"
  DOITEM$ = MID$(ACTION$, (MELLANSLAG + 1), (LEN(ACTION$) - MELLANSLAG))

  SELECT CASE DOITEM$
    CASE "BLOOD"
	  DOITEM$ = "BLOOD"
	CASE "BLOODSTAIN"
	  DOITEM$ = "BLOOD"
	CASE "BLOOD STAIN"
	  DOITEM$ = "BLOOD"
  END SELECT

  SELECT CASE DOITEM$

	CASE "BLOOD"
	  IF ROOM = 6 THEN
	    IF BLOODSTAINCLEANED = 0 THEN
		  IF OBJ(6) = 10 THEN
		    PRINT "Thanks to the chair, you can reach up to the ceiling."
		    PRINT "You clean up the blood stain from the ceiling."
		    PRINT "Under the blood, you find a picture of a circle."
		    BLOODSTAINCLEANED = 1
		  ELSE
		    PRINT "You can't reach the blood stain!"
		  END IF

		ELSE
		  PRINT "You've already cleaned up the blood stain!"
		END IF
	  END IF

  END SELECT
END IF


IF DOACTION$ = "MOVE" THEN
  DOITEM$ = "NOTHING"
  DOITEM$ = MID$(ACTION$, (MELLANSLAG + 1), 1)
  SELECT CASE DOITEM$

	CASE "R"
	  SELECT CASE ROOM
	    CASE 9
		  PRINT "You can't go that way."
		CASE ELSE
		  ROOM = ROOM + 1
		  ACTION$ = "LOOK"
		  GOTO LOOK:
	  END SELECT

	CASE "L"
	  SELECT CASE ROOM
	    CASE 1
		  PRINT "You can't go that way."
		CASE ELSE
		  ROOM = ROOM - 1
		  ACTION$ = "LOOK"
		  GOTO LOOK:
	  END SELECT

  END SELECT
END IF


IF DOACTION$ = "COLOR" AND ACTION$ <> "COLOR CHART" THEN
  TEMP = VAL((MID$(ACTION$, (MELLANSLAG + 1), (LEN(ACTION$) - MELLANSLAG))))
  IF TEMP > 15 THEN TEMP = 16
  IF TEMP < 1 THEN TEMP = 0

  SELECT CASE TEMP
    CASE 16
	  PRINT "Only numbers 1 to 15 please!"
	CASE 0
	  PRINT "Only numbers 1 to 15 please!"
	CASE ELSE
	  COL = TEMP
	  COLOR COL
	  PRINT "Text color is changed."
  END SELECT
END IF


IF DOACTION$ = "BCOLOR" THEN
  TEMP = VAL((MID$(ACTION$, (MELLANSLAG + 1), (LEN(ACTION$) - MELLANSLAG))))
  IF TEMP > 15 THEN TEMP = 16
  IF TEMP < 1 THEN TEMP = 0

  SELECT CASE TEMP
    CASE 16
	  PRINT "Only numbers 1 to 15 please!"
	CASE 0
	  PRINT "Only numbers 1 to 15 please!"
	CASE ELSE
	  BCOL = TEMP
	  COLOR BCOL
	  PRINT "--- THE BIG TEXT COLOR IS CHANGED ---"
  END SELECT
END IF


GOTO CL:




TYPEWRITERMODE:

SELECT CASE TYPEWRITERHINT
  CASE 0
    TYPEWRITERTEXT$ = "Simply Under blood"
  CASE 1
    TYPEWRITERTEXT$ = " No hint here yet"
END SELECT

PRINT " /-------------------@"
PRINT " |                    |"
PRINT " |                    |"
PRINT " |                    |"
PRINT " |                    |"
PRINT " |                    |"
PRINT " |                    |"
PRINT "-@____________________@"
PRINT " |Q W E R T Y U I O P |"
PRINT " ||A S D F G H J K L <|"
PRINT " @||Z X C V B N M I . |"

LOCATE 2, 4
PRINT TYPEWRITERTEXT$
LOCATE 3, 4
INPUT "-", TYPEWRITERINPUT$

SELECT CASE TYPEWRITERINPUT$

  CASE "3"
    IF TYPEWRITERHINT = 0 THEN
	  LOCATE 4, 4
	  PRINT "Correct."
	  TYPEWRITERHINT = TYPEWRITERHINT + 1
	  LOCATE 12, 1
	  PRINT "A Purple Key pops out of the typewriter!"
	  OBJ(3) = 3
    END IF
END SELECT
LOCATE 13, 2
GOTO CL: