Safety Room source code

Player movement script:
hsp = (keyboard_check(ord('D')) - keyboard_check(ord('A'))) * spd;

if place_meeting(x,y+1,obj_solid) {
    vsp = keyboard_check(vk_space) * -jsp;
}

if place_meeting(x+(hsp / 3.5),y,obj_solid) {
    vsp = (keyboard_check(vk_space) * -jsp)
}
if vsp < 10 {
    vsp += grav;
}

if place_meeting(x+hsp,y,obj_solid) {
    while !place_meeting(x+sign(hsp),y,obj_solid) {
        x += sign(hsp)
    }
    hsp = 0;
}
x += hsp;

if place_meeting(x,y+vsp,obj_solid) {
    while !place_meeting(x,y+sign(vsp),obj_solid) {
        y += sign(vsp)
        obj_camera.shake = vsp;
        sound_play(snd_hit)
    }
    vsp = 0;
}
y += vsp;

player animation script:
if place_meeting(x,y+1,obj_solid) {
    sprite_index = spr_player_walk;
    if hsp = 0 {
        sprite_index = spr_player_jump;
    }
}
else {
    if vsp > 0 {
        sprite_index = spr_player_jump;
    }
    else if vsp < 0 {
        sprite_index = spr_player_fall;
    }
}

if hsp < 0 {
    image_xscale = -1;
}
else if hsp > 0 {
    image_xscale = 1;
}

gun script:
if mouse_check_button_pressed(1) {
    instance_create(x,y,obj_bullet_p)
}

sound script:
if place_meeting(x+hsp / 3.5,y,obj_solid) && vsp < 0 {
    //sound_play(snd_slide);
}
if place_meeting(x,y+2,obj_solid) && vsp < 0 {
    sound_play(snd_jump);
}

player dead script:
//death animation (explosion?!?!)
//delete player object
//stop music (main_theme)
//play music (death_theme)
//create retry button (either this level or the first level... depends on difficulty nad length of the gmae...)
sprite_index = spr_player_death
instance_create(x,y,obj_retry)
instance_create(x,y,obj_explosion)
if death_timer = 0 {
    instance_destroy()
}
if death_timer > 0 {
    death_timer -=1;
}
sound_stop(main_theme)
sound_play(death_theme)

camera:
if instance_exists(obj_player) {
view_xview[0] = obj_player.x - (view_wview / 2)
view_yview[0] = obj_player.y - (view_hview / 2)
}
else {
    view_xview = view_xview;
    view_yview = view_yview;
}

if view_xview < 0 {
    view_xview = 0;
}
else if view_xview + view_wview > room_width {
    view_xview = room_width - view_wview
}

if view_yview < 0 {
    view_yview = 0;
}
else if view_yview + view_hview > room_height {
    view_yview = room_height - view_hview
}
view_xview += random_range(-shake,shake);
view_yview += random_range(-shake,shake);
shake *= 0.9;

turret:
if shoot_timer > 0 {
    shoot_timer -= 1;
}
if shoot_timer = 0 {
    if dir = 1 {
        instance_create(x,y,obj_bullet_t_d)
    }
    else if dir = 2{
        instance_create(x,y,obj_bullet_t_r)
    }
    else if dir = 3 {
        instance_create(x,y,obj_bullet_t_u)
    }
    else if dir = 4 {
        instance_create(x,y,obj_bullet_t_l)
    }
    else {
        instance_create(x,y,obj_bullet_t_d)
    }
    shoot_timer = 30;
}

//Managing the image rotation
if dir = 1 {
    image_angle = 0;
}
else if dir = 2 {
    image_angle = 90;
}
else if dir = 3 {
    image_angle = 180;
}
else if dir = 4 {
    image_angle = 270;
}

gun:
scr_gun_shoot()

direction = point_direction(x,y,mouse_x,mouse_y)
image_angle = direction;
if instance_exists(obj_player) {
x = obj_player.x;
y = obj_player.y;

if mouse_x > x {
    image_yscale = 1;
}
else {
    image_yscale = -1;
}
}
else {
    instance_destroy()
}

explosions:
if death_timer = 0 {
    instance_destroy()
}
else {
    death_timer -= 1;
}

Portraits:
portrait = irandom(7)

if portrait = 0 {
    sprite_index = spr_portrait_1;
}
else if portrait = 1 {
    sprite_index = spr_portrait_2;
}
else if portrait = 2 {
    sprite_index = spr_portrait_3;
}
else if portrait = 3 {
    sprite_index = spr_portrait_4;
}
else if portrait = 4 {
    sprite_index = spr_portrait_5;
}
else if portrait = 5 {
    sprite_index = spr_portrait_6;
}
else if portrait = 6 {
    sprite_index = spr_portrait_7;
}
else if portrait = 7 {
    sprite_index = spr_portrait_8;
}

title screen:
sound_play(title_theme);
screen = 0;

if keyboard_check_pressed(vk_enter || vk_space) {
    sprite_index = spr_titlescreen;
    screen = 1;
}