## TMS_stuff
pulse_width = indefinite_port_code;
write_codes = true;
response_port_output =  false;# this is very important (and silly!!)
active_buttons = 7;
button_codes = 1, 2, 3, 4, 5, 6, 7;


begin;

trial {
   trial_type = first_response;
   trial_duration = forever;
   
   stimulus_event {
      picture {
         text { caption = "0%\nNot Armed\nNot Connected"; font_size = 50;} level_text;
         x = 0; y = 100;
         text { caption = "A arms/disarms the TMS, C connects/disconnects the coil,
T triggers the TMS, Up and Down arrow keys increase/decrease
the strength by 1%, and PageUp and PageDown keys increase/decrease
the strength by 10%"; font_size = 25;} directions_text;
         x = 0; y = -150;
      };
   } event1;
} get_response;
 
begin_pcl;
include "nafi's_TMS_library.pcl"

string arm_string = "Not Armed";
string con_string = "Not Connected";


loop int level = 0 until 0 == 1 begin

	set_TMS_strength(level);
	get_response.present();
	
	if ((response_manager.last_response() == 1) && (armed == 0)) then
		arm_TMS(); arm_string = "Armed";
	elseif ((response_manager.last_response() == 1) && (armed == 1)) then
		disarm_TMS(); arm_string = "Not Armed";
	elseif ((response_manager.last_response() == 2) && (connected == 0)) then
		connect_coil(); con_string = "Connected";
	elseif ((response_manager.last_response() == 2) && (connected == 1)) then
		disconnect_coil(); con_string = "Not Connected";
	elseif ((response_manager.last_response() == 3) && (armed == 1) && (connected == 1)) then
		trigger_TMS();
	elseif ((response_manager.last_response() == 4) && (level < 100)) then
		level = level + 1;  set_TMS_strength(level);
	elseif ((response_manager.last_response() == 5) && (level > 0)) then
		level = level - 1;  set_TMS_strength(level);
	elseif ((response_manager.last_response() == 6) && (level < 91)) then
		level = level + 10;  set_TMS_strength(level);
	elseif ((response_manager.last_response() == 6) && (level >= 91)) then
		level = 100;  set_TMS_strength(level);
	elseif ((response_manager.last_response() == 7) && (level > 9)) then
		level = level - 10;  set_TMS_strength(level);
	elseif ((response_manager.last_response() == 7) && (level <= 9)) then
		level = 0;  set_TMS_strength(level);

	end; #end outermost if
	
	level_text.set_caption(string(level) + "%\n" + arm_string + "\n" + con_string);
	level_text.redraw();
end;