{------------------------------COLOR.ORL--------------------------------
 This script builds a color palette, and lets you adjust the colors in
 it. It is called from DEMO.ORL.
 -----------------------------------------------------------------------}

{Set Environment}
	SetWindow(MAXIMIZE)
	DrawBackground
	UseCoordinates(METRIC)
	UseCaption("Color Palette")

{Set Variables}
	Set Red=255
	Set Green=255
	Set Blue=255
	Set OLD_SAVE_X1=5
	Set OLD_SAVE_Y1=5
	Set OLD_SAVE_X2=18
	Set OLD_SAVE_Y2=20
	Set Save_Red=255
	Set Save_Green=255
	Set Save_Blue=255
	Set Modify_Red=255
	Set Modify_Green=255
	Set Modify_Blue=255

{Draw Colors}
	UsePen(SOLID,2,0,0,0)
	UseBrush(SOLID,255,255,255)		{White}
	DrawRoundRectangle(5,5,18,20,2,2)
	UsePen(SOLID,1,0,0,0)
	UseBrush(SOLID,192,192,192)		{Lite_Grey}
	DrawRoundRectangle(19,5,32,20,2,2)
	UseBrush(SOLID,255,0,0)			{Red}
	DrawRoundRectangle(33,5,46,20,2,2)
	UseBrush(SOLID,255,255,0)		{Yellow}
	DrawRoundRectangle(47,5,60,20,2,2)
	UseBrush(SOLID,0,255,0)			{Green}
	DrawRoundRectangle(61,5,74,20,2,2)
	UseBrush(SOLID,0,255,255)		{Lite_Blue}
	DrawRoundRectangle(75,5,88,20,2,2)
	UseBrush(SOLID,0,0,255)			{Dark_Blue}
	DrawRoundRectangle(89,5,102,20,2,2)
	UseBrush(SOLID,255,0,255)		{Pink}
	DrawRoundRectangle(103,5,116,20,2,2)
	UseBrush(SOLID,255,255,128)		{Lite_Yellow}
	DrawRoundRectangle(117,5,130,20,2,2)
	UseBrush(SOLID,0,255,128)		{Lite_Green}
	DrawRoundRectangle(131,5,144,20,2,2)
	UseBrush(SOLID,128,255,255)		{Sky_Blue}
	DrawRoundRectangle(145,5,158,20,2,2)
	UseBrush(SOLID,128,128,255)		{Purple}
	DrawRoundRectangle(159,5,172,20,2,2)
	UseBrush(SOLID,255,0,128)		{Lite_Red}
	DrawRoundRectangle(173,5,186,20,2,2)
	UseBrush(SOLID,255,128,64)		{Orange}
	DrawRoundRectangle(187,5,200,20,2,2)
	UseBrush(SOLID,0,0,0)			{Black}
	DrawRoundRectangle(5,22,18,37,2,2)
	UseBrush(SOLID,128,128,128)		{Dark_Grey}
	DrawRoundRectangle(19,22,32,37,2,2)
	UseBrush(SOLID,128,0,0)			{Dark Red}
	DrawRoundRectangle(33,22,46,37,2,2)
	UseBrush(SOLID,128,128,0)		{Olive}
	DrawRoundRectangle(47,22,60,37,2,2)
	UseBrush(SOLID,0,128,0)			{Dark_Green}
	DrawRoundRectangle(61,22,74,37,2,2)
	UseBrush(SOLID,0,128,128)		{Aqua_Green}
	DrawRoundRectangle(75,22,88,37,2,2)
	UseBrush(SOLID,0,0,128)			{Dark_Purple}
	DrawRoundRectangle(89,22,102,37,2,2)
	UseBrush(SOLID,128,0,128)		{Dark_Pink}
	DrawRoundRectangle(103,22,116,37,2,2)
	UseBrush(SOLID,128,128,64)		{Army_Tank}
	DrawRoundRectangle(117,22,130,37,2,2)
	UseBrush(SOLID,0,64,64)			{Hunter_Green}
	DrawRoundRectangle(131,22,144,37,2,2)
	UseBrush(SOLID,0,128,255)		{Another_Blue}
	DrawRoundRectangle(145,22,158,37,2,2)
	UseBrush(SOLID,0,64,128)		{Title_Blue}
	DrawRoundRectangle(159,22,172,37,2,2)
	UseBrush(SOLID,64,0,128)		{Another_Purple}
	DrawRoundRectangle(173,22,186,37,2,2)
	UseBrush(SOLID,128,64,0)		{Rust}
	DrawRoundRectangle(187,22,200,37,2,2)

{Set up the mouse}
	SetMouse(5,5,18,20,WHITE,Temp,Temp,
		19,5,32,20,LITE_GREY,Temp,Temp,
		33,5,46,20,RED,Temp,Temp,
		47,5,60,20,YELLOW,Temp,Temp,
		61,5,74,20,GREEN,Temp,Temp,
		75,5,88,20,LITE_BLUE,Temp,Temp,
		89,5,102,20,DARK_BLUE,Temp,Temp,
		103,5,116,20,PINK,Temp,Temp,
		117,5,130,20,LITE_YELLOW,Temp,Temp,
		131,5,144,20,LITE_GREEN,Temp,Temp,
		145,5,158,20,SKY_BLUE,Temp,Temp,
		159,5,172,20,PURPLE,Temp,Temp,
		173,5,186,20,LITE_RED,Temp,Temp,
		187,5,200,20,ORANGE,Temp,Temp,
		5,22,18,37,BLACK,Temp,Temp,
		19,22,32,37,DARK_GREY,Temp,Temp,
		33,22,46,37,DARK_RED,Temp,Temp,
		47,22,60,37,OLIVE,Temp,Temp,
		61,22,74,37,DARK_GREEN,Temp,Temp,
		75,22,88,37,AQUA_GREEN,Temp,Temp,
		89,22,102,37,DARK_PURPLE,Temp,Temp,
		103,22,116,37,DARK_PINK,Temp,Temp,
		117,22,130,37,ARMY_TANK,Temp,Temp,
		131,22,144,37,HUNTER_GREEN,Temp,Temp,
		145,22,158,37,ANOTHER_BLUE,Temp,Temp,	
		159,22,172,37,TITLE_BLUE,Temp,Temp,
		173,22,186,37,ANOTHER_PURPLE,Temp,Temp,
		187,22,200,37,RUST,Temp,Temp,
		110,50,120,60,RED_DOWN,Temp,Temp,
		110,70,120,80,GREEN_DOWN,Temp,Temp,
		110,90,120,100,BLUE_DOWN,Temp,Temp,
		140,50,150,60,RED_UP,Temp,Temp,
		140,70,150,80,GREEN_UP,Temp,Temp,
		140,90,150,100,BLUE_UP,Temp,Temp,
		85,115,105,125,End_It,Temp,Temp)

{Set up the keyboard}
	SetKeyboard("E",End_It,
		    "e",End_It)

{Draw the large color patch}
	UseBrush(SOLID,RED,GREEN,BLUE)
	DrawRoundRectangle(50,50,100,100,3,3)

{Draw the Red, Green, and Blue text}
	DrawText(125,44,"Red")
	DrawText(123,64,"Green")
	DrawText(125,84,"Blue")

{Draw the Grey Buttons}
	UseBrush(SOLID,192,192,192)
	DrawRoundRectangle(110,50,120,60,2,2)
	DrawRoundRectangle(110,70,120,80,2,2)
	DrawRoundRectangle(110,90,120,100,2,2)

	DrawRoundRectangle(140,50,150,60,2,2)
	DrawRoundRectangle(140,70,150,80,2,2)
	DrawRoundRectangle(140,90,150,100,2,2)

	UseBackground(TRANSPARENT,0,0,0)
	DrawText(112,52,"<--")
	DrawText(112,72,"<--")
	DrawText(112,92,"<--")

	DrawText(143,52,"-->")
	DrawText(143,72,"-->")
	DrawText(143,92,"-->")

	DrawRoundRectangle(85,115,105,125,2,2)
	UseFont("System",0,0,NOBOLD,NOITALIC,UNDERLINE,0,0,0)
	DrawText(90,117,"E")
	UseFont("System",0,0,NOBOLD,NOITALIC,NOUNDERLINE,0,0,0)
	DrawText(93,117,"xit")

{Draw numbers within boxes}
DRAW_NUMBERS:
	UseBrush(SOLID,255,255,255)
	DrawRoundRectangle(125,50,135,60,2,2)
	DrawRoundRectangle(125,70,135,80,2,2)
	DrawRoundRectangle(125,90,135,100,2,2)

	DrawNumber(126,52,RED)
	DrawNumber(126,72,GREEN)
	DrawNumber(126,92,BLUE)

	UseBrush(SOLID,RED,GREEN,BLUE)
	DrawRoundRectangle(50,50,100,100,3,3)

{Wait for input}
WAIT_FOR_INPUT:
	WaitInput()

WHITE:
	Gosub SAVE_COLOR
	Set Red=255
	Set Green=255
	Set Blue=255
	Gosub MODIFY_COLOR
	Set New_X1=5
	Set New_Y1=5
	Set New_X2=18
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

LITE_GREY:
	Gosub SAVE_COLOR
	Set Red=192
	Set Green=192
	Set Blue=192
	Gosub MODIFY_COLOR
	Set New_X1=19
	Set New_Y1=5
	Set New_X2=32
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

RED:
	Gosub SAVE_COLOR
	Set Red=255
	Set Green=0
	Set Blue=0
	Gosub MODIFY_COLOR
	Set New_X1=33
	Set New_Y1=5
	Set New_X2=46
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

YELLOW:
	Gosub SAVE_COLOR
	Set Red=255
	Set Green=255
	Set Blue=0
	Gosub MODIFY_COLOR
	Set New_X1=47
	Set New_Y1=5
	Set New_X2=60
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

GREEN:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=255
	Set Blue=0
	Gosub MODIFY_COLOR
	Set New_X1=61
	Set New_Y1=5
	Set New_X2=74
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

LITE_BLUE:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=255
	set Blue=255
	Gosub MODIFY_COLOR
	Set New_X1=75
	Set New_Y1=5
	Set New_X2=88
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

DARK_BLUE:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=0
	Set Blue=255
	Gosub MODIFY_COLOR
	Set New_X1=89
	Set New_Y1=5
	Set New_X2=102
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

PINK:
	Gosub SAVE_COLOR
	Set Red=255
	Set Green=0
	Set Blue=255
	Gosub MODIFY_COLOR
	Set New_X1=103
	Set New_Y1=5
	Set New_X2=116
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

LITE_YELLOW:
	Gosub SAVE_COLOR
	Set Red=255
	Set Green=255
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=117
	Set New_Y1=5
	Set New_X2=130
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

LITE_GREEN:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=255
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=131
	Set New_Y1=5
	Set New_X2=144
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

SKY_BLUE:
	Gosub SAVE_COLOR
	Set Red=128
	Set Green=255
	Set Blue=255
	Gosub MODIFY_COLOR
	Set New_X1=145
	Set New_Y1=5
	Set New_X2=158
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

PURPLE:
	Gosub SAVE_COLOR
	Set Red=128
	Set Green=128
	Set Blue=255
	Gosub MODIFY_COLOR
	Set New_X1=159
	Set New_Y1=5
	Set New_X2=172
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

LITE_RED:
	Gosub SAVE_COLOR
	Set Red=255
	Set Green=0
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=173
	Set New_Y1=5
	Set New_X2=186
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

ORANGE:
	Gosub SAVE_COLOR
	Set Red=255
	Set Green=128
	Set Blue=64
	Gosub MODIFY_COLOR
	Set New_X1=187
	Set New_Y1=5
	Set New_X2=200
	Set New_Y2=20
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

BLACK:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=0
	Set Blue=0
	Gosub MODIFY_COLOR
	Set New_X1=5
	Set New_Y1=22
	Set New_X2=18
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

DARK_GREY:
	Gosub SAVE_COLOR
	Set Red=128
	Set Green=128
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=19
	Set New_Y1=22
	Set New_X2=32
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

DARK_RED:
	Gosub SAVE_COLOR
	Set Red=128
	Set Green=0
	Set Blue=0
	Gosub MODIFY_COLOR
	Set New_X1=33
	Set New_Y1=22
	Set New_X2=46
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

OLIVE:
	Gosub SAVE_COLOR
	Set Red=128
	Set Green=128
	Set Blue=0
	Gosub MODIFY_COLOR
	Set New_X1=47
	Set New_Y1=22
	Set New_X2=60
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

DARK_GREEN:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=128
	Set Blue=0
	Gosub MODIFY_COLOR
	Set New_X1=61
	Set New_Y1=22
	Set New_X2=74
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

AQUA_GREEN:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=128
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=75
	Set New_Y1=22
	Set New_X2=88
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

DARK_PURPLE:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=0
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=89
	Set New_Y1=22
	Set New_X2=102
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

DARK_PINK:
	Gosub SAVE_COLOR
	Set Red=128
	Set Green=0
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=103
	Set New_Y1=22
	Set New_X2=116
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

ARMY_TANK:
	Gosub SAVE_COLOR
	Set Red=128
	Set Green=128
	Set Blue=64
	Gosub MODIFY_COLOR
	Set New_X1=117
	Set New_Y1=22
	Set New_X2=130
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

HUNTER_GREEN:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=64
	Set Blue=64
	Gosub MODIFY_COLOR
	Set New_X1=131
	Set New_Y1=22
	Set New_X2=144
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

ANOTHER_BLUE:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=128
	Set Blue=255
	Gosub MODIFY_COLOR
	Set New_X1=145
	Set New_Y1=22
	Set New_X2=158
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

TITLE_BLUE:
	Gosub SAVE_COLOR
	Set Red=0
	Set Green=64
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=159
	Set New_Y1=22
	Set New_X2=172
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

ANOTHER_PURPLE:
	Gosub SAVE_COLOR
	Set Red=64
	Set Green=0
	Set Blue=128
	Gosub MODIFY_COLOR
	Set New_X1=173
	Set New_Y1=22
	Set New_X2=186
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

RUST:
	Gosub SAVE_COLOR
	Set Red=128
	Set Green=64
	Set Blue=0
	Gosub MODIFY_COLOR
	Set New_X1=187
	Set New_Y1=22
	Set New_X2=200
	Set New_Y2=37
	Gosub MOVE_HIGHLIGHT
	Goto DRAW_NUMBERS

{Increase the Red number by 1}
RED_UP:
	If Modify_RED>=255 Then Beep | Goto WAIT_FOR_INPUT
	Set Modify_RED=Modify_RED+1
	UseBrush(SOLID,255,255,255)
	DrawRoundRectangle(125,50,135,60,2,2)
	DrawNumber(126,52,Modify_RED)
	UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
	DrawRoundRectangle(50,50,100,100,3,3)
	Goto WAIT_FOR_INPUT

{Decrease the Red number by 1}
RED_DOWN:
	If Modify_RED=0 Then Beep | Goto WAIT_FOR_INPUT
	Set Modify_RED=Modify_RED-1
	UseBrush(SOLID,255,255,255)
	DrawRoundRectangle(125,50,135,60,2,2)
	DrawNumber(126,52,Modify_RED)
	UseBrush(SOLID,Modify_RED,GREEN,BLUE)
	DrawRoundRectangle(50,50,100,100,3,3)
	Goto WAIT_FOR_INPUT

{Increase the Green number by 1}
GREEN_UP:
	If Modify_Green>=255 Then Beep | Goto WAIT_FOR_INPUT
	Set Modify_GREEN=Modify_GREEN+1
	UseBrush(SOLID,255,255,255)
	DrawRoundRectangle(125,70,135,80,2,2)
	DrawNumber(126,72,Modify_GREEN)
	UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
	DrawRoundRectangle(50,50,100,100,3,3)
	Goto WAIT_FOR_INPUT

{Decrease the Green number by 1}
GREEN_DOWN:
	If Modify_GREEN=0 Then Beep | Goto WAIT_FOR_INPUT
	Set Modify_GREEN=Modify_GREEN-1
	UseBrush(SOLID,255,255,255)
	DrawRoundRectangle(125,70,135,80,2,2)
	DrawNumber(126,72,Modify_GREEN)
	UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
	DrawRoundRectangle(50,50,100,100,3,3)
	Goto WAIT_FOR_INPUT

{Increase the Blue number by 1}
BLUE_UP:
	If Modify_BLUE>=255 Then Beep | Goto WAIT_FOR_INPUT
	Set Modify_BLUE=Modify_BLUE+1
	UseBrush(SOLID,255,255,255)
	DrawRoundRectangle(125,90,135,100,2,2)
	DrawNumber(126,92,Modify_BLUE)
	UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
	DrawRoundRectangle(50,50,100,100,3,3)
	Goto WAIT_FOR_INPUT

{Decrease the Blue number by 1}
BLUE_DOWN:
	If Modify_BLUE=0 Then Beep | Goto WAIT_FOR_INPUT
	Set Modify_BLUE=Modify_BLUE-1
	UseBrush(SOLID,255,255,255)
	DrawRoundRectangle(125,90,135,100,2,2)
	DrawNumber(126,92,Modify_BLUE)
	UseBrush(SOLID,Modify_RED,Modify_GREEN,Modify_BLUE)
	DrawRoundRectangle(50,50,100,100,3,3)
	Goto WAIT_FOR_INPUT

{Subroutine to move the highlight}
MOVE_HIGHLIGHT:
	UseBrush(NULL,0,0,0)
	UsePen(SOLID,2,0,0,0)
	DrawRoundRectangle(NEW_X1,NEW_Y1,NEW_X2,NEW_Y2,2,2)
	UsePen(SOLID,1,0,0,0)

	UseBrush(NULL,0,0,0)
	UsePen(SOLID,2,255,255,255)
	DrawRoundRectangle(OLD_SAVE_X1,OLD_SAVE_Y1,
		OLD_SAVE_X2,OLD_SAVE_Y2,2,2)
	UsePen(SOLID,1,0,0,0)
	UseBrush(SOLID,SAVE_RED,SAVE_GREEN,SAVE_BLUE)
	DrawRoundRectangle(OLD_SAVE_X1,OLD_SAVE_Y1,
		OLD_SAVE_X2,OLD_SAVE_Y2,2,2)

	Set OLD_SAVE_X1=NEW_X1
	Set OLD_SAVE_Y1=NEW_Y1
	Set OLD_SAVE_X2=NEW_X2
	Set OLD_SAVE_Y2=NEW_Y2

	Return

{Subroutine to save old color settings}
SAVE_COLOR:
	Set Save_Red=Red
	Set Save_Green=Green
	Set Save_Blue=Blue
	Return

{Subroutine to save the current color settings}
MODIFY_COLOR:
	Set Modify_Red=Red
	Set Modify_Green=Green
	Set Modify_Blue=Blue
	Return

{Exit}
END_IT:
	End