# CamIntro.csm (formerly: Strt_xx.csm, CamInfo.csm)  Version 2.0.0000
# This routine will provide information on the features and capabilities of the KODAK 
# DC220,DC260,DC265 and DC290 cameras. The flow of the script is as follows:
#
# A. Get camera type. If not KODAK DC220/260/265/290 go to error processing.
# B. Present welcome text.
# C. Present and get "features" option:
# 	1. What the camera can do.
# 		a. Present initial message.
# 		b. Cycles through the series of messages about the camera's features
# 		c. The screens are presented for a fixed amount of time.
# 	2. Camera Specifications
# 		a. Present a menu to select the specification to display.
# 		b. Display the specification screen for a fixed amount of time and 
# 		   return to spec menu.
# 		c. "Return" to the features option.
# 	3. Take a Picture.
# 		a. Prompt the user to take a picture.
# 		b. Prompt the user how to view pictures.
# 	4. To get more information - prompt the user.
# 	5. End - exit routine with an exit prompt.
# D. Error processing if necessary.
# E. Done

# script menu setup
name "Camera Introduction"
mode 0
menu "Kodak Scripts"
label "Camera Introduction"

# variable declaration
declare u: uSelect, uPhotoSelect, uHouseSelect, uCameraType, uTemp
declare i: iFlagOn, iFlagOff, iErrorCode
declare s: sProductName, sVendorName, sCameraType, sTemp
declare b: bCameraType

# variable initialization
iFlagOn = 1
iFlagOff = 0
iErrorCode = 0
uCameraType = 0


# if script is used as startup routine:
# Uncomment out the lines below and rename to Startup.csm
# this will allow the script to be removed
#
# DisplayLine ("Setup startup script...")
# Wait (2000)
#
# # Ask to remove script
# SetOption (1, "Permanently remove script", iFlagOff)
# SetOption (2, "Continue", iFlagOff)
# GetOption(uSelect)
# if uSelect == 1
# 	EraseFile ("/System/", "Startup.csm")
# 	goto Done
# end


# get the camera type
GetProductInfo ("ptid", sProductName)
GetProductInfo ("vdid", sVendorName)

if sProductName == "KODAK DIGITAL SCIENCE DC220"
	uCameraType = 220
	sCameraType = "DC220"
end
if sProductName == "KODAK DIGITAL SCIENCE DC260"
	uCameraType = 260
	sCameraType = "DC260"
end
if sProductName == "KODAK DC265 ZOOM DIGITAL CAMERA"
	uCameraType = 265
	sCameraType = "DC265"
end
if sProductName == "KODAK DC290 Zoom Digital Camera"
	uCameraType = 290
	sCameraType = "DC290"
end
if uCameraType == 0
	iErrorCode = 10
	goto ErrorProc
end

# Welcome text display
DisplayLine ("   ")
if uCameraType != 290
	DisplayLine ("Welcome to the Kodak ", sCameraType, " Zoom Camera!")
end
if uCameraType == 290
	DisplayLine ("Welcome to the Kodak ", sCameraType, " Zoom Digital Camera!")
end
Wait (1000)

# Selection Catagories
GetSelection:
DisplayClear ()
SetOption (1, "- Valuable Features", iFlagOff)
SetOption (2, "- Automation with Scripts", iFlagOff)
SetOption (3, "- Take a Picture", iFlagOff)
SetOption (4, "- More Information", iFlagOff)
SetOption (5, "- End", iFlagOff)

GetOption(uSelect)

DisplayClear ()
if uSelect == 1
	goto ValFeatures
end
if uSelect == 2
	goto Scripts
end
if uSelect == 3
	goto TakePicture
end
if uSelect == 4
	goto MoreInfo
end
if uSelect == 5
	goto TheExit
end


# Camera Can Do Section ### BEGIN

ValFeatures:
#	DisplayLine ("Hi! I'm the ", sCameraType, "! ")
#	Wait (1000)
#	DisplayLine ("")
#	DisplayLine ("I have some cool features. Let's take a look...")
#	Wait (2000)

FeatureOpts:
	SetOption (1, "- Picture Quality", iFlagOff)
	SetOption (2, "- Zoom", iFlagOff)
	SetOption (3, "- Multi-Picture Capability", iFlagOff)
	SetOption (4, "- Connectivity", iFlagOff)
	SetOption (5, "- Picture Orientation", iFlagOff)
	SetOption (6, "- Watermarking", iFlagOff)
	SetOption (10, "- Return", iFlagOff)
	DisplayClear ()
	GetOption(uSelect)

	if uSelect == 10
		Wait (250)
		goto GetSelection
	end
	if uCameraType == 220
		if uSelect == 1
			Alert ("Your DC220 is able to capture enough detail for a photo up to 5\" x 7\" depending on your output device.")
			Alert ("Many photo retailers can also assist in getting high quality prints from your camera.")
		end
		if uSelect == 2
			Alert ("Equipped with an optical quality glass lens system, capable of 29mm 'wide angle' through 58mm 'telephoto' focal length.")
			Alert ("It even has 2x digital enhancement for greater zoom.")
		end
		if uSelect == 3
			Alert ("Capture individual still shots, a burst of shots in quick succession, or a series of shots over a given period of time.")
			Alert ("You can even add audio captions to your images!")
		end
		if uSelect == 4
			Alert ("Your DC220 is able to connect to the computer via USB, standard serial, IrDA 1.1, or via a PC Card or CompactFlash reader.")
			Alert ("Or simply hook up the audio/video out cable to your TV or VCR for instant display.")
		end
		if uSelect == 5
			Alert ("Your DC220 is able to automatically detect vertical and horizontal photos when you take them.")
			Alert ("It will even rotate them automatically, so you don't have to later.")
		end
		if uSelect == 6
			Alert ("Your DC220 is able to place text or date and time on each image you choose.")
			Alert ("See your user's guide for more details.")
		end
	end
	if uCameraType == 260
		if uSelect == 1
			Alert ("Your DC260 is able to capture enough detail for a photo up to 8\" x 10\" depending on your output device.")
			Alert ("Many photo retailers can also assist on getting high quality prints from your camera.")
		end
		if uSelect == 2
			Alert ("Equipped with an optical quality glass lens system, capable of 38mm 'wide angle' through 115mm 'telephoto' focal length.")
			Alert ("It even has 2x digital enhancement for greater zoom.")
		end
		if uSelect == 3
			Alert ("Capture individual still shots, a burst of shots in quick succession, or a series of shots over a given period of time.")
			Alert ("You can even add audio captions to your images!")
		end
		if uSelect == 4
			Alert ("Your DC260 is able to connect to the computer via USB, standard serial, IrDA 1.1, or via a PC Card or CompactFlash reader.")
			Alert ("Or simply hook up the audio/video out cable to your TV or VCR for instant display.")
		end
		if uSelect == 5
			Alert ("Your DC260 is able to automatically detect vertical and horizontal photos when you take them.")
			Alert ("It will even rotate them automatically, so you don't have to later.")
		end
		if uSelect == 6
			Alert ("Your DC260 is able to place text, date and time, or graphics on each image you choose.")
			Alert ("See your user's guide for more details.")
		end
	end
	if uCameraType == 265
		if uSelect == 1
			Alert ("Your DC265 is able to capture enough detail for a photo up to 8\" x 10\" depending on your output device.")
			Alert ("Many photo retailers can also assist on getting high quality prints from your camera.")
		end
		if uSelect == 2
			Alert ("Equipped with an optical quality glass lens system, capable of 38mm 'wide angle' through 115mm 'telephoto' focal length.")
			Alert ("It even has 2x digital enhancement for greater zoom.")
		end
		if uSelect == 3
			Alert ("Capture individual still shots, a burst of shots in quick succession, or a series of shots over a given period of time.")
			Alert ("You can even add audio captions to your images!")
		end
		if uSelect == 4
			Alert ("Your DC265 is able to connect to the computer via USB, standard serial, IrDA 1.1, or via a PC Card or CompactFlash reader.")
			Alert ("Or simply hook up the audio/video out cable to your TV or VCR for instant display.")
		end
		if uSelect == 5
			Alert ("Your DC265 is able to automatically detect vertical and horizontal photos when you take them.")
			Alert ("It will even rotate them automatically, so you don't have to later.")
		end
		if uSelect == 6
			Alert ("Your DC265 is able to place text, date and time, or graphics on each image you choose.")
			Alert ("See your user's guide for more details.")
		end
	end
	if uCameraType == 290
		if uSelect == 1
			Alert ("Your DC290 is able to capture enough detail for a photo up to 8\" x 10\" depending on your output device.")
			Alert ("Many photo retailers can also assist on getting high quality prints from your camera.")
		end
		if uSelect == 2
			Alert ("Equipped with an optical quality glass lens system, capable of 38mm 'wide angle' through 115mm 'telephoto' focal length.")
			Alert ("It even has 2x digital enhancement for greater zoom.")
		end
		if uSelect == 3
			Alert ("Capture individual still shots, a burst of shots in quick succession, or a series of shots over a given period of time.")
			Alert ("You can even add audio captions to your images!")
		end
		if uSelect == 4
			Alert ("Your DC290 is able to connect to the computer via USB, standard serial, IrDA 1.1, or via a PC Card or CompactFlash reader.")
			Alert ("Or simply hook up the audio/video out cable to your TV or VCR for instant display.")
		end
		if uSelect == 5
			Alert ("Your DC290 is able to automatically detect vertical and horizontal photos when you take them.")
			Alert ("It will even rotate them automatically, so you don't have to later.")
		end
		if uSelect == 6
			Alert ("Your DC290 is able to place text, date and time, or graphics on each image you choose.")
			Alert ("See your user's guide for more details.")
		end
	end
	Wait (200)
	goto FeatureOpts

# Camera Features Section ### END


# Camera Scripting section ### BEGIN

Scripts:
	DisplayClear ()
	Alert ("This camera is Digita (tm) scripting enabled.  Need to change camera settings often?  Automatically bracket exposures?") 
	DisplayClear ()
	Alert ("Need to automate a workflow to better use your images on the computer? Specify a series of shots in a sequence?")
	DisplayClear ()
	Alert ("Scripting allows you to do this and more, so you can concentrate on getting the right shot.")
	DisplayClear ()
	Alert ("We've included several sample scripts on your camera's memory card... like this intro script. Try them today!")
	DisplayClear ()
	Alert ("More info on scripts is available on the Kodak software CD you received with your camera, and in your User's Guide.")
	DisplayClear ()
	Alert ("Ask your Value Added Reseller (VAR) or System Integrator (SI) for assistance in development.")
	DisplayClear ()
	Alert ("    Or visit our web site at:      www.kodak.com/go/", sCameraType," ")
	DisplayClear ()
	Wait (250)
	goto GetSelection

# Camera Scripting section ### END


# Take Picture section ### BEGIN

TakePicture:
	DisplayClear ()
	DisplayLine ("Take a picture...")
	Wait (1000)
	SetCaptureMode (still)
	WaitForShutter ( "Take a Picture" )
	StartCapture ()
	EndCapture ()
	Alert ("When the script is completed, move dial setting to REVIEW to view picture.")
	Wait (250)
	goto GetSelection

# Take Picture section ### END

# More Info section ### BEGIN

MoreInfo:
	DisplayClear ()
	Alert ("See your Kodak dealer, or      Visit us on the Web at www.kodak.com/go/ ", sCameraType)
	Wait (500)

	goto GetSelection

# More Info section ### END

TheExit:
	DisplayClear ()
	DisplayLine ("For more information, ask your dealer or visit us on the Web at www.kodak.com/go/ ", sCameraType)
	Wait (4000)

ErrorProc:
	if iErrorCode == 10
		Alert ("Error: camera not supported.")
	end

Done:
exitscript