if ( global.card_grabbed = true )
{
obj = global.card_grabbed_id;
if ( obj.image_index = 0 )
{
if ( global.card_withdraw = true )
{
obj_solitaire_deck.alarm[0] = 1;
global.card_withdraw = false;
}
obj.x = x;
obj.y = y;
obj.parent_moving = false;
obj.withdraw = false;
global.card_grabbed = false;
global.card_grabbed_id = false;
global.card_placed = true;
suite = obj.suite;
current_card = obj.id;
obj.follow_mouse = false;
obj.discarded = true;
with(obj.card_under)
{
top_stack = true;
moveok = true;
}
value = obj.image_index;

global.placed_parent_stack = obj.parent_stack;
obj.parent_stack = id;
with(obj_solitaire_card)
{
if ( parent_stack = global.placed_parent_stack )
{
top_stack = false;
if ( image_index < global.check_top_card )
{
global.check_top_card = image_index;
global.top_stack_switch = id;
}
}
}
with(global.top_stack_switch)
{
top_stack = true;
}
exit;
}
if ( obj.image_index = value + 1 ) && ( suite = suite )
{
if ( global.card_withdraw = true )
{
obj_solitaire_deck.alarm[0] = 1;
global.card_withdraw = false;
}
obj.x = x;
obj.y = y;
obj.withdraw = false;
obj.parent_moving = false;
obj.discarded = true;
global.card_grabbed = false;
global.card_grabbed_id = false;
global.card_placed = true;
current_card = obj.id;
obj.follow_mouse = false;
value = obj.image_index;
with(obj.card_under)
{
top_stack = true;
moveok = true;
}

global.placed_parent_stack = obj.parent_stack;
obj.parent_stack = id;
with(obj_solitaire_card)
{
if ( parent_stack = global.placed_parent_stack )
{
top_stack = false;
if ( image_index < global.check_top_card )
{
global.check_top_card = image_index;
global.top_stack_switch = id;
}
}
}
with(global.top_stack_switch)
{
top_stack = true;
}
exit;
}
}

if ( global.card_grabbed = true )
{
obj = global.card_grabbed_id;
if ( obj.image_index = 0 )
{
if ( global.card_withdraw = true )
{
obj_solitaire_deck.alarm[0] = 1;
global.card_withdraw = false;
}
obj.x = x;
obj.y = y;
obj.parent_moving = false;
obj.withdraw = false;
global.card_grabbed = false;
global.card_grabbed_id = false;
global.card_placed = true;
suite = obj.suite;
current_card = obj.id;
obj.follow_mouse = false;
obj.discarded = true;
with(obj.card_under)
{
top_stack = true;
moveok = true;
}
value = obj.image_index;

global.placed_parent_stack = obj.parent_stack;
obj.parent_stack = id;
with(obj_solitaire_card)
{
if ( parent_stack = global.placed_parent_stack )
{
top_stack = false;
if ( image_index < global.check_top_card )
{
global.check_top_card = image_index;
global.top_stack_switch = id;
}
}
}
with(global.top_stack_switch)
{
top_stack = true;
}
exit;
}
if ( obj.image_index = value + 1 ) && ( suite = suite )
{
if ( global.card_withdraw = true )
{
obj_solitaire_deck.alarm[0] = 1;
global.card_withdraw = false;
}
obj.x = x;
obj.y = y;
obj.withdraw = false;
obj.parent_moving = false;
obj.discarded = true;
global.card_grabbed = false;
global.card_grabbed_id = false;
global.card_placed = true;
current_card = obj.id;
obj.follow_mouse = false;
value = obj.image_index;
with(obj.card_under)
{
top_stack = true;
moveok = true;
}

global.placed_parent_stack = obj.parent_stack;
obj.parent_stack = id;
with(obj_solitaire_card)
{
if ( parent_stack = global.placed_parent_stack )
{
top_stack = false;
if ( image_index < global.check_top_card )
{
global.check_top_card = image_index;
global.top_stack_switch = id;
}
}
}
with(global.top_stack_switch)
{
top_stack = true;
}
exit;
}
}

image_angle=direction

if keyboard_check(vk_left)
direction+=10
if keyboard_check(vk_right)
direction-=10
if keyboard_check(vk_up)
speed=5
if keyboard_check(vk_down)
speed=-5

if speed=0 then object_get_sprite(stop) else object_get_sprite(shag)