objects/oBoulder/collision_oSolid.gml

From spelunky.gmk, Spelunky Classic 1.1's source, © 2008, 2009 Derek Yu and Mossmouth, LLC, shown whole under the Spelunky User License v1.1b. Extracted by spelunky.ai's tools, an unofficial fan project, one file per script or event; the // ==== lines are the extractor's, naming each action of the event. Some scripts are others' work that Derek Yu credits in the source's readme.txt: Martin Piecyk's platform engine, ChevyRay's view scaling scripts and tsg1zzn's Super Sound System.

oBoulder's collision oSolid event, 30 lines of GML.

if (true){       if (other.invincible or abs(xVel) < 1)    {        xVel = -xVel * 0.5;    }    else    {        if (abs(xVel) < 1 or other.y > y+13)        {            y -= 1;            // nothing        }        else        {            with other            {                tile = tile_layer_find(3, x, y-16);                if (tile) tile_delete(tile);                tile = instance_position(x+8, y-1, oSpikes);                if (tile) with tile { instance_destroy(); }                instance_destroy();            }            playSound(global.sndCrunch);        }        if (xVel > 0) xVel -= 0.1;        else if (xVel < 0) xVel += 0.1;        if (abs(xVel) < 1) xVel = 0;    }}