objects/oHawkman/step.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.

oHawkman's step event, 218 lines of GML.

// ==== action 0: lib 1 id 604: action_inherited() ====// ==== action 1: lib 1 id 603: code ====if ((x > view_xview[0]-20 and x < view_xview[0] + view_wview[0]+4 and        y > view_yview[0]-20 and y < view_yview[0] + view_hview[0]+4)){moveTo(xVel,yVel);if (not held) yVel += myGrav;if (yVel > yVelLimit) yVel = yVelLimit;colLeft = false;colRight = false;colBot = false;colTop = false;if (isCollisionLeft(1)) colLeft = true;if (isCollisionRight(1)) colRight = true;if (isCollisionBottom(1)) colBot = true;if (isCollisionTop(1)) colTop = true;if (status >= STUNNED){    if (collision_point(x+8, y+12, oSolid, 0, 0))    {        scrCreateBlood(x+8, y+8, 3);        playSound(global.sndCavemanDie);        instance_destroy();    }}else if (not held){    if (collision_point(x+8, y+8, oSolid, 0, 0))    {        scrCreateBlood(x+8, y+8, 3);        playSound(global.sndCavemanDie);        instance_destroy();    }}if (status != DEAD and status != STUNNED and hp < 1){    status = DEAD;}if (isCollisionBottom(1) and status != STUNNED) yVel = 0;if (status == IDLE){    if (isCollisionBottom(1) and        (collision_point(x-1, y, oSolid, -1, -1) or collision_point(x+16, y, oSolid, -1, -1)))    {        yVel = -6;        if (facing == LEFT) xVel = -1;        else xVel = 1;        counter -= 10;    }        if (yVel < 0 and isCollisionTop(1))    {        yVel = 0;    }    if (isCollisionBottom(1) and counter > 0) counter -= 1;        if (counter < 1)    {        facing = rand(0,1);        status = WALK;    }    if (sightCounter > 0) sightCounter -= 1;    else    {        sight = instance_create(x, y, oEnemySight);        if (facing == LEFT) sight.direction = 180;        else sight.direction = 0;        sight.speed = 10;        sight.owner = instance_place(x, y, oHawkman);        sightCounter = 5;    }}else if (status == WALK){    if (isCollisionLeft(1) or isCollisionRight(1))    {        if (facing == LEFT) facing = RIGHT;        else facing = LEFT;    }        if (facing == LEFT)    {        xVel = -1.5;        if (not collision_point(x-1, y+16, oSolid, -1, -1))        {            status = IDLE;            counter = rand(20,50);            xVel = 0;        }    }    else    {        xVel = 1.5;        if (not collision_point(x+16, y+16, oSolid, -1, -1))        {            status = IDLE;            counter = rand(20,50);            xVel = 0;        }     }        if (rand(1,100) == 1)    {        status = IDLE;        counter = rand(20,50);        xVel = 0;    }        if (sightCounter > 0) sightCounter -= 1;    else    {        sight = instance_create(x, y, oEnemySight);        if (facing == LEFT) sight.direction = 180;        else sight.direction = 0;        sight.speed = 10;        sight.owner = instance_place(x, y, oHawkman);        sightCounter = 5;    }}else if (status == ATTACK){    image_speed = 1;    if (isCollisionLeft(1) or isCollisionRight(1))    {        if (facing == LEFT) facing = RIGHT;        else facing = LEFT;    }    if (facing == LEFT) xVel = -3;    else xVel = 3;        if (isCollisionBottom(1) and not collision_point(x, y-16, oSolid, 0, 0))    {        yVel = -6;    }}else if (status == STUNNED){    if (xVel == 0 and hp > 0) sprite_index = sHawkStunL;    else if (bounced)    {        if (yVel < 0) sprite_index = sHawkBounceL;        else sprite_index = sHawkFallL;    }    else    {        if (abs(xVel) > 0) sprite_index = sHawkDieLL;        else sprite_index = sHawkDieLR;    }        if (colBot and not bounced)    {        bounced = true;        scrCreateBlood(x+8, y+8, 1);    }        if (held or colBot)    {              if (counter > 0) counter -= 1;        else if (hp > 0)        {            status = IDLE;            if (held)            {                held = false;                with oPlayer1 { holdItem = 0; pickupItemType = ""; }            }        }    }}else if (status == DEAD){    if (not dead)    {        if (countsAsKill)        {            if (isRealLevel()) global.enemyKills[18] += 1;            global.hawkmen += 1;            global.kills += 1;        }        playSound(global.sndCavemanDie);        dead = true;    }    sprite_index = sHawkDeadL;        if (abs(xVel) > 0 or abs(yVel) > 0) status = STUNNED;}if (status >= STUNNED){    scrCheckCollisions();        if (xVel == 0 and yVel == 0 and hp < 1) status = DEAD;}//if (isCollisionSolid()) y -= 2;if (xVel > 0) xVel -= 0.1;if (xVel < 0) xVel += 0.1;if (abs(xVel) < 0.5) xVel = 0;if (status < STUNNED and status != THROW){    if (abs(xVel) > 0) sprite_index = sHawkRunLeft;    else sprite_index = sHawkLeft;}if (held){    if (hp > 0) sprite_index = sHawkHeldL;    else sprite_index = sHawkDHeldL;}}