018A: 16@ = create_checkpoint_at x y z
03BC: 17@ = create_sphere_at x y z radius 3.0

:M5
wait 0
00BC: show_text_highpriority GXT 'CM1' time 3000 flag 1
32@ = 0
while 32@ < 3000
    wait 0
    if
        not player.Defined(0)
    then
        goto @M0a
    end
    if
        00FE: actor $player_actor sphere true in_sphere x y z radius 3.0 3.0 3.0
    then
        goto @M6a
    end
end
00BC: show_text_highpriority GXT 'CM2' time 3000 flag 1
32@ = 0
while 32@ < 3000
    wait 0
    if
        not player.Defined(0)
    then
        goto @M0a
    end
    if
        00FE: actor $player_actor sphere true in_sphere x y z radius 3.0 3.0 3.0
    then
        goto @M6a
    end
end

:M6a
wait 0
if player.Defined(0)
jf @M0a
if 00FE: actor $player_actor sphere true in_sphere x y z radius 3.0 3.0 3.0
jf @M6a
Marker.Disable(16@)
03BD: destroy_sphere 17@
goto @M03a