///STEP EVENT
//---- Animation ----//
//State 1: Normal
if (naked == false && cum == false) {
    if (blow == false) {
        if (lick == false) {
            if (naked == false) {
                if (nakedst == false) {
                    sprite_index=spr_pink;
                    image_speed = 1;
                }
            }
        }
    } else {// else Blow is True
        sprite_index = spr_blow;
        image_speed = 1;
        climax = climax - 0.1
    }
}// End State 1: NORMAL
//State 2: Naked TShirt Off
if (naked == true && cum == false) {
    if (blow == false) {
        if (nakedst== true) {   // Skirt off Naked
            sprite_index = spr_nakedst;
            image_speed = 1;
        } else {                // End ShIRT OFF NAKED
            sprite_index = spr_naked;
            image_speed =1;
        }
    } else { // else Blow is True
        if (nakedst == true) {//Shirt Less BJ
            sprite_index= spr_nakedstblow;
            image_speed = 1;
        } else {// Else nakedst is false but still naked
            sprite_index= spr_nakedblow;
            image_speed = 1;
        }
    }
}//End State 2: Naked TShirt Off

///LICKING
 if (lick == true && cum == false) {
    sprite_index = spr_licking;
    image_speed = 1;
} /// End LICKING

// ---- Logic ----//
if (climax == 0 or climax < 0) {
    cum = true;
}

if (climax > 0) {
    cum = false;
}


if (cum == true) {
    if (blow == true) {
        sprite_index = spr_cumblow;
        image_speed=0.5;
//        if  (image_index >= image_number - 1) {
//            sprite_index = spr_pink;
//            image_index = 0;
//            if (sprite_index == spr_cumblow) {
//                climax=maxclimax;
//                blow=false;
//            }
//        }
    }
}////////////////////////////////////

///ANIMATION END
switch(sprite_index) {
  case spr_cumblow:
    sprite_index = spr_pink;
    climax=maxclimax;
    blow=false;
    show_debug_message("Animation End Event Cumblow Triggered");
    break;

}


//CREATE EVENT
lick        = false;
blow        = false;
naked       = false;
nakedst     = false;
maxclimax   = 100;
climax      = maxclimax;
cum         = false;