#PsyScope 1.0  
# Script template, Version 1.0

# Written by Victor Ortega <vor+@pitt.edu> on 3/99
# Modified by ANgus MacDonald 1/01

Experiments:: "CPT-AX Spatial"
	Current: 1

#> ExperimentDefinitions

CPT-AX Spatial::
	Format: Factor
	InputDevices: Key Mouse
	Timer: Macintosh
	Flags: NO_SAVE_SCREEN
	DataFile: @AutoDataFile
	ScaleBlocks: 1
	Blocks: @if(@Order ["long block"] ["long block"])
	Cycles: 1
	DefaultColor: White
	BackColor: Black
	Style: @Style
	Degradation: @Degradation/100 0
	DataHeader: SubjectNumber RunNumber Durations Frequencies Degradation Style "Cue Color" "Probe Color" Feedback
	DataFields: EVENT_TAG RESPONSE_LABEL
	BBoxInitialOutput: LIGHT1_ON LIGHT2_ON
	ExpVariables:
#	Precompile: All
	BBoxPort: Printer

#> GroupDefinitions

#> BlockDefinitions

instructions block::
	Templates: "instructions trial"
	Cycles: 1

long block::
	Templates: "instructions trial" "long one" "long table"
		Weights:> 1 1 (Frequencies.5 - 1)
	Cycles: ((1 + Frequencies.5) * @Cycles)

#> FactorDefinitions

cuelure:: r v p v s "<"
	AccessType: Random
	SaveCurrents: 2

probelure:: d f j m u
	AccessType: Random
	SaveCurrents: 2

#> LevelDefinitions

#> TemplateDefinitions

instructions trial::
	Events: instructions pause letter

short one::
	FactorTable: delay "trial type"
		Sets:> 2
		delay:> short
			AccessType:>> Random
			Weights:>> 1
		"trial type":> AX
			AccessType:>> Random
			Weights:>> 1
		SetNames:> 1
	CrossingValues:
	Events: cue ISI probe ITI "cue trap" "probe trap"
	Factors:
		Sets:>
		SetNames:>

short table::
	FactorTable: delay "trial type"
		Sets:> 2
		delay:> short
			AccessType:>> Random
			Weights:>> 1
		"trial type":> AX AY BX BY
			AccessType:>> Random
			Weights:>> (Frequencies.1 - 1) Frequencies.2 Frequencies.3 Frequencies.4
		SetNames:> 1
	CrossingValues:
	Events: cue ISI probe ITI "cue trap" "probe trap"
	Factors:
		Sets:>
		SetNames:>

long table::
	FactorTable: delay "trial type"
		Sets:> 2
		delay:> long
			AccessType:>> Random
			Weights:>> 1
		"trial type":> AX AY BX BY
			AccessType:>> Random
			Weights:>> (Frequencies.1 - 1) Frequencies.2 Frequencies.3 Frequencies.4
		SetNames:> 1
	CrossingValues:
		cue:>
			Stimulus:>>
				1___BX_:>>> Access(cuelure)
				1___BY_:>>> Access(cuelure)
		ISI:>
			Duration:>>
				1_long___:>>> Durations.5
		probe:>
			Stimulus:>>
				1___AY_:>>> Access(probelure)
				1___BY_:>>> Access(probelure)
		ITI:>
			Duration:>>
				1_short___:>>> Durations.4
		"cue trap":>
			EventTag:>>
				1___BX_:>>> GetCurrent(cuelure)
				1___BY_:>>> GetPrevCurrent(cuelure 2)
		"probe trap":>
			EventActions:>>
				1___AX_:>>> Conditions[ Key[ 1 ] BBox[ BUTTON1 ] ] => Actions[ RT[ "PROBE CORRECT" ] If(@Feedback Beep[]) AbortEvent[] ] Conditions[ Key[ 2 ] BBox[ BUTTON2 ] ] => Actions[ RT[ "PROBE WRONG" ] If(@Feedback Beep[ "Incorrect Beep" ]) AbortEvent[] ] Conditions[ End[] ] => Actions[ RT[ "PROBE NO_RESP" ] Beep[ Bloop ] ]
			EventTag:>>
				1___AY_:>>> GetCurrent(probelure)
				1___BY_:>>> GetCurrent(probelure)
	Events: cue ISI probe ITI "cue trap" "probe trap"
	Factors:
		Sets:>
		SetNames:>

long one::
	FactorTable: delay "trial type"
		Sets:> 2
		delay:> long
			AccessType:>> Random
			Weights:>> 1
		"trial type":> AX
			AccessType:>> Random
			Weights:>> 1
		SetNames:> 1
	CrossingValues:
		cue:>
		ISI:>
			Duration:>>
				1_long___:>>> Durations.5
		probe:>
		ITI:>
		"cue trap":>
		"probe trap":>
			EventActions:>>
				1___AX_:>>> Conditions[ Key[ 1 ] BBox[ BUTTON1 ] ] => Actions[ RT[ "PROBE CORRECT" ] If(@Feedback Beep[]) AbortEvent[] ] Conditions[ Key[ 2 ] BBox[ BUTTON2 ] ] => Actions[ RT[ "PROBE WRONG" ] If(@Feedback Beep[ "Incorrect Beep" ]) AbortEvent[] ] Conditions[ End[] ] => Actions[ RT[ "PROBE NO_RESP" ] Beep[ Bloop ] ]
	Events: cue ISI probe ITI "cue trap" "probe trap"
	Factors:
		Sets:>
		SetNames:>

#> EventDefinitions

instructions::
	EventType: Paragraph
	Duration: Mouse[ Click ]
	Stimulus: "Note: Usually,     
will be followed by"
	Degradation: 0 0
	Port: PortName("instport")
	Style: Helvetica 48 "" "" Default

cue::
	EventType: Text
	Duration: Durations.1
	Stimulus: l
	Color: @"Cue Color"
	StartRef: "0 after end of START"

ISI::
	EventType: Null
	Duration: Durations.3

probe::
	EventType: Text
	Duration: Durations.2
	Stimulus: h
	Color: @"Probe Color"

ITI::
	EventType: Null
	Duration: Durations.6

cue trap::
	EventTag: A
	EventType: Input
	Duration: Durations.7
	StartRef: "0 after start of cue"
	EventActions: Conditions[ Key[ 1 ] BBox[ BUTTON1 ] ] => Actions[ RT[ "CUE WRONG" ] If(@Feedback Beep[ "Incorrect Beep" ]) AbortEvent[] ] Conditions[ Key[ 2 ] BBox[ BUTTON2 ] ] => Actions[ RT[ "CUE CORRECT" ] If(@Feedback Beep[]) AbortEvent[] ] Conditions[ End[] ] => Actions[ RT[ "CUE NO_RESP" ] Beep[ Bloop ] ]

probe trap::
	EventTag: X
	EventType: Input
	Duration: Durations.8
	StartRef: "0 after start of probe"
	EventActions: Conditions[ Key[ 1 ] BBox[ BUTTON1 ] ] => Actions[ RT[ "PROBE WRONG" ] If(@Feedback Beep[ "Incorrect Beep" ]) AbortEvent[] ] Conditions[ Key[ 2 ] BBox[ BUTTON2 ] ] => Actions[ RT[ "PROBE CORRECT" ] If(@Feedback Beep[]) AbortEvent[] ] Conditions[ End[] ] => Actions[ RT[ "PROBE NO_RESP" ] Beep[ Bloop ] ]

pause::
	EventType: Null
	Duration: Durations.9

letter::
	EventType: Paragraph
	Duration: Mouse[ Click ]
	StartRef: "1 after end of START"
	Stimulus: "l
  h"
	Port: PortName("symbolport")
	Size: 48

#> StimulusDefinitions

#> TrialManagerVariables

#> PortDefinitions

PortNames:: "Entire Screen" instport symbolport

Entire Screen:: Center 100% Center 100% 0
	Points:

instport:: 295 500 212 180 0

symbolport:: 526 150 203 180 0
	Points: "New Position 1"

#> PositionDefinitions

New Position 1:: 73 Port Center 90 Port Center

SubjectNumber:: 9999
#	Type: Integer
	RunAfter: AutoDataFile

SubjectNumber:: 00
#	Type: Integer
	RunAfter: AutoDataFile

RunNumber:: 0
	Type: Integer

RunType:: if(@Session P R)

DataFile:: @AutoDataFile

#> InterfaceDefinition

Console:: SubjectNumber DataFile

Options:: 

#> MenuDefinitions

Menus:: Experiment "CPT Options"

Experiment::
	@StandardPsyScopeMenuItems

CPT Options::
	Durations
	Frequencies
	Cycles
	Degradation
	Style
	Colors
	Feedback
	Order
	Session

#> DialogDefinitions

UserLevel:: 2

Durations:: 500 500 0 5000 4000 1000 1000 1500 1000 (THIS.1 + THIS.2 + THIS.3 + THIS.4) ((THIS.9 + Frequencies.5 * THIS.10)/1000)
	Prompts: "Cue Stimulus" "Probe Stimulus" "Short ISI" "Short ITI" "Long ISI" "Long ITI" "Cue Response Window" "Probe Response Window" "Instructions Pause" "Trial Duration (ms)" "Block Duration (sec)"
	Defaults: 1000 500 0 9000 8000 1000 1000 1500 1000
	PromptWidth: 200
	Width: 40

Frequencies:: 28 5 5 2 (THIS.1 + THIS.2 + THIS.3 + THIS.4)
	Prompts: "AX Frequency" "AY Frequency" "BX Frequency" "BY Frequency" "Trials Per Block"
	Defaults: 8 1 1 1
	PromptWidth: 150
	Width: 20

Cycles:: 3
	Prompts: "Number of short/long cycles"
	Default: 12
	PromptWidth: 200
	Width: 30

Degradation:: 0
	Prompts: "Percent Degradation (0-100)"
	Default: 0
	PromptWidth: 200
	Width: 30

Style:: Braille 80 "" "" Default
	Dialog: Style

Colors::
	Dialog: Custom
	Parts: "Cue Prompt" "Cue Color" "Probe Prompt" "Probe Color"

Cue Prompt:: ""
	Prompts: "Cue Color"
	Static: True
	Width: 50

Cue Color:: White
	PartType: PopUp
	PopUpItems: White Red Blue Green Cyan Magenta Yellow
	NewLine: False

Probe Prompt:: ""
	Prompts: "Probe Color"
	Static: True
	Width: 50

Probe Color:: White
	PartType: PopUp
	PopUpItems: White Red Blue Green Cyan Magenta Yellow
	NewLine: False

Feedback:: True
	Dialog: Buttons
	Buttons: True False
	Prompts: On Off

Order:: False
	Dialog: Buttons
	Buttons: True False
	Prompts: "short/long" "long/short"

Session:: False
	Dialog: Buttons
	Buttons: True False
	Prompts: "Pre-practice" Run

#> LogFile

LogRunStart:: SubjectNumber
	Dialog: LogInfo

#> OtherConfiguration

StartUp:: SubjectNumber

AutoDataFile:: "9999.SpatialCPT.R @ :Data:"
	Dialog: MakeFileName
	Strings: Make3Digits(@SubjectNumber) ".SpatialCPT." @"RunType"
	Folder: ":Data:"
	UseDir: True

#> OtherEntries

Make3Digits:: `a
	Result: if(strlen(a)==2,
			   strcat(0, a),
			   if(strlen(a)==1,
			      strcat(00, a),
			      a))

#> ExperimentNotes

Notes::
	"CPT-AX Spatial": "(There are no notes for this experiment.)"

#> BuilderData
#  This information is used by the graphic interface - do not delete it!
BuilderData::
	Trash:
	"CPT-AX Spatial":
		LayoutWindow:> 71 178 479 246
			Zoomed:>> False
		ObjectType:> Experiment
		LayoutPos:> 274 0
		BlockAttribs:>
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
	"short block":
		Links:> "CPT-AX Spatial"
		ObjectType:> Block
		LayoutPos:> 234 40
		BlockDisplayData:> 378 256
		OnDesk:> False
		InTrash:> False
	BlocksInScript: "long block"
	"instructions trial":
		Links:> "long block"
		ObjectType:> Template
		LayoutPos:> 70 80
		TrialDisplayData:> 286 247 452 293 0 0 2000 90
			Zoomed:>> False
	TemplatesInScript: "instructions trial" "short one" "short table" "long one" "long table"
	instructions:
		Links:> "instructions trial"
		ObjectType:> Event
		LayoutPos:> 0 120
		Duration:>
		instructions_trialPosition:> 5 7
		AttribDisplayData:>
	EventsInScript: instructions pause letter cue ISI probe ITI "cue trap" "probe trap"
	pause:
		Links:> "instructions trial"
		ObjectType:> Event
		LayoutPos:> 85 120
		instructions_trialPosition:> 5 44
	letter:
		Links:> "instructions trial"
		ObjectType:> Event
		LayoutPos:> 141 120
		Duration:>
		instructions_trialPosition:> 5 81
	"short one":
		Links:> "short block"
		ObjectType:> Template
		LayoutPos:> 326 80
		OnDesk:> False
		InTrash:> False
	cue:
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 198 120
	ISI:
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 244 120
	probe:
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 287 120
	ITI:
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 343 120
	"cue trap":
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 386 120
	"probe trap":
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 454 120
	"short table":
		Links:> "short block"
		ObjectType:> Template
		LayoutPos:> 399 80
		OnDesk:> False
		InTrash:> False
	"long block":
		Links:> "CPT-AX Spatial"
		ObjectType:> Block
		LayoutPos:> 315 40
	"long one":
		Links:> "long block"
		ObjectType:> Template
		LayoutPos:> 486 80
	"long table":
		Links:> "long block"
		ObjectType:> Template
		LayoutPos:> 553 80
	Desk:
	"Entire Screen":
		Display:> TRUE
	instport:
		Display:> TRUE
	symbolport:
		Display:> TRUE
	"New Position 1":
		Display:> TRUE
	ExperimentsInScript: "CPT-AX Spatial"