You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
108 lines
2.4 KiB
108 lines
2.4 KiB
if tile_exists(tileid)
|
|
{
|
|
tile_delete(tileid)
|
|
tileid = -1
|
|
}
|
|
if tile_exists(tilesandcrn0)
|
|
{
|
|
tile_delete(tilesandcrn0)
|
|
tilesandcrn0 = -1
|
|
}
|
|
if tile_exists(tilesandcrn1)
|
|
{
|
|
tile_delete(tilesandcrn1)
|
|
tilesandcrn1 = -1
|
|
}
|
|
if tile_exists(tilesandcrn2)
|
|
{
|
|
tile_delete(tilesandcrn2)
|
|
tilesandcrn2 = -1
|
|
}
|
|
if tile_exists(tilesandcrn3)
|
|
{
|
|
tile_delete(tilesandcrn3)
|
|
tilesandcrn3 = -1
|
|
}
|
|
instance_activate_region((x - 32), (y - 32), 64, 64, true)
|
|
if instance_position(x, (y - 16), oBlockSand)
|
|
sandu = 1
|
|
else
|
|
sandu = 0
|
|
if instance_position((x + 16), y, oBlockSand)
|
|
sandr = 1
|
|
else
|
|
sandr = 0
|
|
if instance_position(x, (y + 16), oBlockSand)
|
|
sandd = 1
|
|
else
|
|
sandd = 0
|
|
if instance_position((x - 16), y, oBlockSand)
|
|
sandl = 1
|
|
else
|
|
sandl = 0
|
|
if instance_position((x + 16), (y - 16), oBlockSand)
|
|
sandur = 1
|
|
else
|
|
sandur = 0
|
|
if instance_position((x - 16), (y - 16), oBlockSand)
|
|
sandul = 1
|
|
else
|
|
sandul = 0
|
|
if instance_position((x + 16), (y + 16), oBlockSand)
|
|
sanddr = 1
|
|
else
|
|
sanddr = 0
|
|
if instance_position((x - 16), (y + 16), oBlockSand)
|
|
sanddl = 1
|
|
else
|
|
sanddl = 0
|
|
if (sandu && sandr && (!sandur))
|
|
sandcrn2 = 1
|
|
else
|
|
sandcrn2 = 0
|
|
if (sandu && sandl && (!sandul))
|
|
sandcrn3 = 1
|
|
else
|
|
sandcrn3 = 0
|
|
if (sandd && sandr && (!sanddr))
|
|
sandcrn0 = 1
|
|
else
|
|
sandcrn0 = 0
|
|
if (sandd && sandl && (!sanddl))
|
|
sandcrn1 = 1
|
|
else
|
|
sandcrn1 = 0
|
|
if (sandu && sandr && sandd && sandl)
|
|
image_index = 0
|
|
if ((!sandu) && sandr && sandd && sandl)
|
|
image_index = 1
|
|
if (sandu && (!sandr) && sandd && sandl)
|
|
image_index = 2
|
|
if (sandu && sandr && (!sandd) && sandl)
|
|
image_index = 3
|
|
if (sandu && sandr && sandd && (!sandl))
|
|
image_index = 4
|
|
if ((!sandu) && (!sandr) && sandd && sandl)
|
|
image_index = 5
|
|
if (sandu && (!sandr) && (!sandd) && sandl)
|
|
image_index = 6
|
|
if (sandu && sandr && (!sandd) && (!sandl))
|
|
image_index = 7
|
|
if ((!sandu) && sandr && sandd && (!sandl))
|
|
image_index = 8
|
|
if ((!sandu) && sandr && (!sandd) && sandl)
|
|
image_index = 9
|
|
if (sandu && (!sandr) && sandd && (!sandl))
|
|
image_index = 10
|
|
if ((!sandu) && sandr && (!sandd) && (!sandl))
|
|
image_index = 11
|
|
if ((!sandu) && (!sandr) && sandd && (!sandl))
|
|
image_index = 12
|
|
if ((!sandu) && (!sandr) && (!sandd) && sandl)
|
|
image_index = 13
|
|
if (sandu && (!sandr) && (!sandd) && (!sandl))
|
|
image_index = 14
|
|
if ((!sandu) && (!sandr) && (!sandd) && (!sandl))
|
|
image_index = 15
|
|
alarm[1] = 1
|