objects/oRadioBox/mouse_left_press.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.
oRadioBox's mouse left press event, 16 lines of GML.
if (not on){ with oRadioBox { on = false; sprite_index = sBox; } on = true; sprite_index = sBoxMarked; if (y == 24) global.screenScale = 1; else if (y == 32) global.screenScale = 2; else if (y == 40) global.screenScale = 3; else if (y == 48) global.screenScale = 4;}