T3 Test Code

Information about object: surveyButton
Sprite: sprite0
Solid: false
Visible: true
Depth: -1000
Persistent: false
Parent:
Children:
Mask:

No Physics Object
Create Event:

execute code:

c_n3 = c_white
c_n2 = c_white
c_n1 = c_white
c_0 = c_white
c_1 = c_white
c_2 = c_white
c_3 = c_white
questionSide = 0
myscale = 1
isHovering = false
finish = false

Step Event:

execute code:

if global.disableBubble = 1
{
visible = false
exit
}

if distance_to_point(mouse_x,mouse_y) <= 0
{
image_xscale = myscale+2.2
image_yscale = myscale+2.2
isHovering = true
}
else
{
image_xscale = myscale+1
image_yscale = myscale+1
isHovering = false
}

switch(questionSide)
    {
    case -3: myscale = 1.6; image_blend = c_n3; break;
    case -2: myscale = 1.4; image_blend = c_n2; break;
    case -1: myscale = 1.2; image_blend = c_n1; break;
    case 0: myscale = 1; image_blend = c_0; break;
    case 1: myscale = 1.2; image_blend = c_1; break;
    case 2: myscale = 1.4; image_blend = c_2; break;
    case 3: myscale = 1.6; image_blend = c_3; break;
    }

var leftclick = mouse_check_button_pressed(mb_left);

if leftclick && isHovering = true
{
global.qDV[global.q] = questionSide
}

switch(global.qDV[global.q])
    {
    case -3:
    c_n3 = c_yellow; c_n2 = c_white; c_n1 = c_white; c_0 = c_white; c_1 = c_white; c_2 = c_white; c_3 = c_white; break;
    case -2:
    c_n3 = c_white; c_n2 = c_yellow; c_n1 = c_white; c_0 = c_white; c_1 = c_white; c_2 = c_white; c_3 = c_white; break;
    case -1:
    c_n3 = c_white; c_n2 = c_white; c_n1 = c_yellow; c_0 = c_white; c_1 = c_white; c_2 = c_white; c_3 = c_white; break;
    case 0:
    c_n3 = c_white; c_n2 = c_white; c_n1 = c_white; c_0 = c_yellow; c_1 = c_white; c_2 = c_white; c_3 = c_white; break;
    case 1:
    c_n3 = c_white; c_n2 = c_white; c_n1 = c_white; c_0 = c_white; c_1 = c_yellow; c_2 = c_white; c_3 = c_white; break;
    case 2:
    c_n3 = c_white; c_n2 = c_white; c_n1 = c_white; c_0 = c_white; c_1 = c_white; c_2 = c_yellow; c_3 = c_white; break;
    case 3:
    c_n3 = c_white; c_n2 = c_white; c_n1 = c_white; c_0 = c_white; c_1 = c_white; c_2 = c_white; c_3 = c_yellow; break;
    }


Draw Event:

execute code:

draw_self()
draw_set_font(font0)

var sd = "Strongly Disagree"
var md = "Mostly Disagree"
var d = "Somewhat Disagree"
var na = "Neither Agree or Disagree"
var a = "Somewhat Agree"
var ma = "Mostly Agree"
var sa = "Strongly Agree"

if global.disableBubble = 1 {exit}

draw_set_font(font4)

if isHovering = true
{
switch(questionSide)
    {
    case -3: text_draw(x-(string_width(sd)/2),y+50*1.55,string(sd),c_n3); break;
    case -2: text_draw(x-(string_width(md)/2),y+50*1.45,string(md),c_n2); break;
    case -1: text_draw(x-(string_width(d)/2),y+50*1.35,string(d),c_n1); break;
    case 0: text_draw(x-(string_width(na)/2),y+50*1.25,string(na),c_0); break;
    case 1: text_draw(x-(string_width(a)/2),y+50*1.35,string(a),c_1); break;
    case 2: text_draw(x-(string_width(ma)/2),y+50*1.45,string(ma),c_2); break;
    case 3: text_draw(x-(string_width(sa)/2),y+50*1.55,string(sa),c_3); break;
    }
}

______________________________________________________

Information about object: debug
Sprite:
Solid: false
Visible: true
Depth: 0
Persistent: false
Parent:
Children:
Mask:

No Physics Object
Create Event:

execute code:

debugger = false

Draw Event:

execute code:

debugkey = keyboard_check(ord('D'))

if (debugkey) {
switch(debugger) {
    case false: debugger = true;
    case true: debugger = false;
    }
}

if debugger = true {
    text_draw(view_xview+64,view_yview+128,"",c_white)
    }


______________________________________________________

Information about object: surveyDummy
Sprite:
Solid: false
Visible: true
Depth: 0
Persistent: false
Parent:
Children:
Mask:

No Physics Object
Create Event:

execute code:

///CUSTOM PERSONALITY TEST

global.q = 1 // What question are you on?
global.qtotal = 28 // How many questions are there in total?
global.qDecisionValue = 0
global.disableBubble = 0
submitTest = 0
finish = false

/*

    Methodical vs Visceral // MV (Plan then act or act then plan?)
    Interpersonal vs Solitary // IS (Like working with people or like working alone?)
    Concrete vs Abstract // CA (Down to earth or hypothetical?)
    Grandiose vs Bashful // GB (Prideful or Humble?)

*/

var i;
i = global.qtotal;
repeat(global.qtotal+1)
   {
   global.resultMV[i] = 0
   global.resultIS[i] = 0
   global.resultCA[i] = 0
   global.resultGB[i] = 0
   global.qDV[i] = 0
   global.qstring[i] = ""
   i -= 1;
   }

///////////////////////////////

//////// THE QUESTIONS ////////     //MV //IS //CA //GB

///////////////////////////////

global.qstring[1] = "You would consider yourself#to be a risk-taker." //MV
global.qstring[2] = "You have a large circle of friends." //IS (Reverse)
global.qstring[3] = "You do not daydream." //CA (Reverse)
global.qstring[4] = "You like to be in the spot light." //GB (Reverse)
global.qstring[5] = "You come up with a plan rather than#figuring it out as you go." //MV (Reverse)
global.qstring[6] = "You learn better with people than#you do on your own." //IS (Reverse)
global.qstring[7] = "You like to think about theories and philosophies." //CA
global.qstring[8] = "You like to have plenty of recognition." //GB (Reverse)
global.qstring[9] = "You write a lot of notes for class#or a meeting." //MV (Reverse)
global.qstring[10] = "You consider yourself to have a large#personal space bubble." //IS
global.qstring[11] = "You often think about dreams or the future." //CA
global.qstring[12] = "You are open with the things you like and do." //GB (Reverse)
global.qstring[13] = "You prefer to explore instead of taking a#pre-determined route." //MV
global.qstring[14] = "You look to others before making a decision." //IS (Reverse)
global.qstring[15] = "You think of the present instead of the big picture." //CA (Reverse)
global.qstring[16] = "You think highly of yourself." //GB (Reverse)
global.qstring[17] = "You like to use a planner." //MV
global.qstring[18] = "You get drained easily from socializing." //IS
global.qstring[19] = "You focus more on your physical state#rather than your mental state." //CA (Reverse)
global.qstring[20] = "People consider you to be a leader." //GB (Reverse)
global.qstring[21] = "You prefer to work on a few large projects#instead of many smaller ones." //MV (Reverse)
global.qstring[22] = "When you're designing art, you do so#in steps instead of improvizing." //MV (Reverse)
global.qstring[23] = "You care about having your clothes match." //MV (Reverse)
global.qstring[24] = "You like to have plenty of privacy." //IS

///////////////////////////////

///////////////////////////////

///////////////////////////////

global.resultMV = 0
global.resultIS = 0
global.resultCA = 0
global.resultGB = 0
global.MV = ""
global.IS = ""
global.CA = ""
global.GB = ""

///////////////////////////////

// NO NEED TO EDIT!!! /////////

///////////////////////////////



// CREATING THE ANSWER BUBBLES

xoff = 0
qSide = -3

repeat(7)
{
with(instance_create(view_xview+view_wview/8+xoff,view_yview+view_hview/1.3,surveyButton))
    {
    questionSide = other.qSide
    }
qSide += 1
xoff += view_wview/8
}

Step Event:

execute code:


display_reset(0,true);

/////////////////////////////
/////////////////////////////
/////////////////////////////

if finish = true && keyboard_check(vk_control) && keyboard_check(ord('C'))
{
clipboard_set_text(string_copy(global.MV,1,1)+string_copy(global.IS,1,1)+string_copy(global.CA,1,1)+string_copy(global.GB,1,1);
}

if keyboard_check_pressed(vk_left) && global.q > 1
{ global.q -= 1 }

if keyboard_check_pressed(vk_right) && global.q < global.qtotal
{ global.q += 1 }

if keyboard_check_pressed(vk_enter) && global.q = global.qtotal
{ global.disableBubble = 1; submitTest = 1; }

/* global.qDV[] */

if (submitTest = 1 && finish = false)
{


global.resultMV += ( // MV RESULT
(global.qDV[1]
+ -(global.qDV[5])
+ -(global.qDV[9])
+ global.qDV[13])
+ global.qDV[17]
+ -(global.qDV[21])
+ -(global.qDV[22])
+ -(global.qDV[23])
)

global.resultIS += ( // IS RESULT
-(global.qDV[2])
+ -(global.qDV[6])
+ global.qDV[10]
+ -(global.qDV[14])
+ global.qDV[18]
+ global.qDV[24]
)

global.resultCA += ( // CA RESULT
(global.qDV[3]
+ global.qDV[7]
+ global.qDV[11])
+ -(global.qDV[15])
+ -(global.qDV[19])
)

global.resultGB += ( // GB RESULT
-(global.qDV[4])
+ -(global.qDV[8])
+ -(global.qDV[12])
+ -(global.qDV[16])
+ -(global.qDV[20])
)

/*
    1 MV
    2 IS
    3 CA
    4 GB
    5 MV
    6 IS
    7 CA
    8 GB
    9 MV
    10 IS
    11 CA
    12 GB
    13 MV
    14 IS
*/

    if global.resultMV < 0 { global.MV = "M-"+string(abs(global.resultMV)) }
    if global.resultMV > 0 { global.MV = "V-"+string(abs(global.resultMV)) }
    if global.resultMV = 0 { global.MV = "X-"+string(abs(global.resultMV)) }

    if global.resultIS < 0 { global.IS = "I-"+string(abs(global.resultIS)) }
    if global.resultIS > 0 { global.IS = "S-"+string(abs(global.resultIS)) }
    if global.resultIS = 0 { global.IS = "X-"+string(abs(global.resultIS)) }

    if global.resultCA < 0 { global.CA = "C-"+string(abs(global.resultCA)) }
    if global.resultCA > 0 { global.CA = "A-"+string(abs(global.resultCA)) }
    if global.resultCA = 0 { global.CA = "X-"+string(abs(global.resultCA)) }

    if global.resultGB < 0 { global.GB = "G-"+string(abs(global.resultGB)) }
    if global.resultGB > 0 { global.GB = "B-"+string(abs(global.resultGB)) }
    if global.resultGB = 0 { global.GB = "X-"+string(abs(global.resultGB)) }

    //audio_play_sound(lol,0,false) NO SOUND >:)

    finish = true

}

if keyboard_check(ord('R')) { game_restart() }




Draw Event:

execute code:

var col = c_aqua
var title = "/* Temperament Type Test */"
var testResults = "/* Your Score */##"+string(global.MV)+"#"+string(global.IS)+"#"+string(global.CA)+"#"+string(global.GB)+"##Press R to Restart Test."

draw_set_font(font1)
if submitTest = 0
{
text_draw(view_xview+32,view_yview+view_hview/1.85,string(global.q)+". "+string(global.qstring[global.q]),col)
}

draw_set_font(font3)

text_draw_ext(view_xview+84,view_yview+70,"

[Methodical/Visceral]       [M-V]   (Plan then act or act then plan?)
[Interpersonal/Solitary]    [I-S]   (Like working with people or like working alone?)
[Concrete/Abstract]         [C-A]   (Down to earth or hypothetical?)
[Grandiose/Bashful]         [G-B]   (Prideful or Humble?)

",c_yellow,-1,1000,1,1)

draw_set_font(font2)

text_draw(view_xview+(view_wview/6),view_yview+16,string(title),col)

if (global.q = global.qtotal && submitTest = 0)
{
text_draw(view_xview+32,view_yview+view_hview/1.1,"Press ENTER to Submit Test",c_white)
}

draw_set_font(font4)
if submitTest = 1
{
text_draw(view_xview+view_wview/3-string_width(testResults)/2,view_yview+view_hview/2.375,string(testResults),c_white)
}


______________________________________________________