The Wonderland Board

Code: Select all

image_angle=point_direction(x,y,mouse_x,mouse_y);

Code: Select all

Information about object: obj_vermilionflask
Sprite: sprite3
Solid: false
Visible: true
Depth: 0
Persistent: false
Parent: 
Mask: 

Destroy Event:

create a small effect of type explosion relative at (16,16) of  color 85502 above objects
Step Event:

COMMENT: check whether in air
if relative position (0,1) is collision free for Only solid objects
      set the gravity to .5 in direction 270
else
      set the gravity to 0 in direction 270
COMMENT: limit vertical speed
if vspeed is larger than 20
      set the vertical speed to 20
COMMENT: conveyor controls
execute code:

//going right
if place_meeting(x,y+26,obj_conveyright)
x+=6

execute code:

//going left
if place_meeting(x,y+26,obj_conveyleft)
x-=6

execute code:

//going right
if place_meeting(x,y+26,obj_conveyrights)
x+=6

execute code:

//going left
if place_meeting(x,y+26,obj_conveylefts)
x-=6

Collision Event with object obj_voidy:

destroy the instance
Collision Event with object obj_bluewall:

move in direction direction at most 12 till a contact with solid objects
set the vertical speed to 0
Collision Event with object obj_conveyright:

move in direction direction at most 12 till a contact with solid objects
set the vertical speed to 0
Collision Event with object obj_conveyleft:

move in direction direction at most 12 till a contact with solid objects
set the vertical speed to 0
Collision Event with object obj_conveylefts:

move in direction direction at most 12 till a contact with solid objects
set the vertical speed to 0
Collision Event with object obj_conveyrights:

move in direction direction at most 12 till a contact with solid objects
set the vertical speed to 0
Collision Event with object obj_vermilionflask:

destroy the instance

Code: Select all

Information about object: obj_glass
Sprite: sprite44
Solid: true
Visible: true
Depth: -1
Persistent: false
Parent: 
Mask: 

Code: Select all

Step Event:

COMMENT: check whether in air
if at relative position (0,1) there is object obj_glass
      set the gravity to .5 in direction 270
else
      if relative position (0,1) is collision free for Only solid objects
            set the gravity to .5 in direction 270
      else
            set the gravity to 0 in direction 270