#PsyScope 1.0  
# Script template, Version 1.0

# Written by Victor Ortega <vor+@pitt.edu> on 3/99

Experiments:: "CPT-AX Letter Practice"
	Current: 1

#> ExperimentDefinitions

CPT-AX Letter Practice::
	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

letters:: C D E F G I J L M N O P Q R S T U Z
	AccessType: Random
	SaveCurrents: 2

#> LevelDefinitions

#> TemplateDefinitions

instructions trial::
	Events: instructions pause

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(letters)
				1___BY_:>>> Access(letters)
		ISI:>
			Duration:>>
				1_long___:>>> Durations.5
		probe:>
			Stimulus:>>
				1___AY_:>>> Access(letters)
				1___BY_:>>> Access(letters)
		ITI:>
			Duration:>>
				1_short___:>>> Durations.4
		"cue trap":>
			EventTag:>>
				1___BX_:>>> GetCurrent(letters)
				1___BY_:>>> GetPrevCurrent(letters 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(letters)
				1___BY_:>>> GetCurrent(letters)
	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, an A will
  be followed by an X."
	Degradation: 0 0
	Port: PortName("instport")
	Style: Helvetica 48 "" "" Default

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

ISI::
	EventType: Null
	Duration: Durations.3

probe::
	EventType: Text
	Duration: Durations.2
	Stimulus: X
	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

#> StimulusDefinitions

#> TrialManagerVariables

#> PortDefinitions

PortNames:: "Entire Screen" instport

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

instport:: 50% 600 50% 150 0

#> PositionDefinitions

#> SubjectInfo

SubjectNumber:: 1000
#	Type: Integer
	RunAfter: AutoDataFile

RunNumber:: 1
	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 500 4500 4000 1000 1500 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:: 5 2 2 1 (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:: 4
	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:: Helvetica 60 "Bold " "" 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

RunStart:: LogRunStart AutoDataFile

AutoDataFile:: "PracticeLetterCPT.R @ :Data:"
	Dialog: MakeFileName
	Strings: Practice "LetterCPT." @"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 Letter Practice": "(There are no notes for this experiment.)"

#> BuilderData
#  This information is used by the graphic interface - do not delete it!

BuilderData::
	"CPT-AX Letter Practice":
		LayoutWindow:> 42 226 575 200
			Zoomed:>> False
		ObjectType:> Experiment
		LayoutPos:> 152 0
		ExpAttribs:>
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
	"instructions block":
		Links:> "CPT-AX standard"
		ObjectType:> Block
		LayoutPos:> 42 40
	BlocksInScript: "instructions block" "long block"
	"instructions trial":
		Links:> "instructions block" "long block"
		ObjectType:> Template
		LayoutPos:> 42 80
	TemplatesInScript: "instructions trial" "short table" "short one" "long one" "long table"
	instructions:
		Links:> "instructions trial"
		ObjectType:> Event
		LayoutPos:> 0 120
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
	EventsInScript: instructions pause cue ISI probe ITI "cue trap" "probe trap"
		DisplayData:> 366 278 291 232
			Zoomed:>> False
	pause:
		Links:> "instructions trial"
		ObjectType:> Event
		LayoutPos:> 85 120
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
		EventActions:>
			ActionDisplayData:>> 317 256 390 275
				Zoomed:>>> False
			Conditions:>>
				DurationDisplayData:>>>
				EventDisplayData:>>> 345 297
	"short block":
		Links:> "CPT-AX Letter Practice"
		ObjectType:> Block
		LayoutPos:> 131 38
		BlockDisplayData:> 378 256
		OnDesk:> False
		InTrash:> False
	"short table":
		Links:> "short block"
		ObjectType:> Template
		LayoutPos:> 225 81
		GridDisplayData:> 312 272 400 244
			Zoomed:>> False
		TrialDisplayData:> 63 193 864 393 0 0 8000 90
			Zoomed:>> False
		FactorTable:>
			"%sSetInfoDisdlayData":>> 363 328
		OnDesk:> False
		InTrash:> False
	cue:
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 141 120
		ConditionsPosition:> 5 7
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
		short_tablePosition:> 5 7
	ISI:
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 187 120
		ConditionsPosition:> 4 29
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
		short_tablePosition:> 5 44
	probe:
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 230 120
		ConditionsPosition:> 4 52
		short_tablePosition:> 5 81
	ITI:
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 286 120
		ConditionsPosition:> 5 75
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
		short_tablePosition:> 5 118
	"cue trap":
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 329 120
		ConditionsPosition:> 5 100
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
		short_tablePosition:> 5 155
	"probe trap":
		Links:> "long one" "long table" "short one" "short table"
		ObjectType:> Event
		LayoutPos:> 391 120
		ConditionsPosition:> 5 124
		AttribDisplayData:> 296 258 431 272
			Zoomed:>> False
		short_tablePosition:> 5 192
	Desk:
	Trash:
	ExperimentsInScript: "CPT-AX Letter Practice"
	"× EventActions for Event1":
		ActionDisplayData:> 317 256 390 275
			Zoomed:>> False
		Conditions:>
			DurationDisplayData:>>
			EventDisplayData:>> 345 297
		Actions:>
			Beep:>>
				AttribDisplayData:>>> 296 258 431 272
					Zoomed:>>>> False
			EndEvent:>>
				AttribDisplayData:>>> 296 258 431 272
					Zoomed:>>>> False
			RT:>>
				AttribDisplayData:>>> 296 258 431 272
					Zoomed:>>>> False
	"× EventActions for Event2":
		ActionDisplayData:> 317 256 392 288
			Zoomed:>> False
		Conditions:>
			DurationDisplayData:>>
			EventDisplayData:>> 345 297
		Actions:>
			EndEvent:>>
				AttribDisplayData:>>> 296 258 431 272
					Zoomed:>>>> False
			RT:>>
				AttribDisplayData:>>> 296 258 431 272
					Zoomed:>>>> False
			Beep:>>
				AttribDisplayData:>>> 296 258 431 272
					Zoomed:>>>> False
	"× EventActions for cue trap":
		ActionDisplayData:> 317 256 390 275
			Zoomed:>> False
		Conditions:>
		Actions:>
			RT:>>
				AttribDisplayData:>>> 296 258 431 272
					Zoomed:>>>> False
			ScriptEval:>>
				AttribDisplayData:>>> 296 258 431 272
					Zoomed:>>>> False
	SubjectInfo: SubjectInitials ; SubjectNumber ; RunNumber ; RunType ; PracticeTrialType
	ExecTimesDisplayData: 392 274 240 240
		Zoomed:> False
	GroupingInfoDisplayData:
		"":> 290 259
	StimuliInScript:
		DisplayData:> 340 174 291 232
			Zoomed:>> False
	BuilderData:
	"short one":
		Links:> "short block"
		ObjectType:> Template
		LayoutPos:> 149 78
		OnDesk:> False
		InTrash:> False
	runner:
		ObjectType:> Block
		OnDesk:> False
		LayoutPos:> 269 9
		Links:> "CPT-AX standard"
	"long block":
		Links:> "CPT-AX Letter Practice"
		ObjectType:> Block
		LayoutPos:> 219 38
		BlockDisplayData:> 186 112
	"long one":
		Links:> "long block"
		ObjectType:> Template
		LayoutPos:> 306 80
	"long table":
		Links:> "long block"
		ObjectType:> Template
		LayoutPos:> 372 81
		GridDisplayData:> 120 128 400 244
			Zoomed:>> False
	"Entire Screen":
		Display:> TRUE
	instport:
		PosWindowPos:> 396 266
		Display:> TRUE