STRING* key_1 = "1";
/////////////////////////////
action WepShoppe_loadLvL() // attach this action to an entity at the weapons shoppes door 

{
       var key_1_off;
       while (vec_dist (player.x, my.x) > 100)  // wait until the player comes close to this entity
       {
               wait (1);        
       }

       wait (-1); // wait for a second
       level_load (WepShoppe_wmb); // now load the wepshoppe level
       mouse_mode = 4; // set courser on for this lvl
       mouse_map = cursor_pcx;
       key_1_off = 0;
       if(key_pressed(key_for_str(key_1)))
       {
       key_1_off = OFF; // or 0
       }
       ptr_remove(me);       

}

on_1 = NULL;

STRING* key_1off = "1";
      BMAP* cursor_pcx = "cursor.tga";
/////////////////////////////
action WepShoppe_loadLvL() // attach this action to an entity at the weapons shoppes door 

{
       var key_1off;
       while (vec_dist (player.x, my.x) > 100)  // wait until the player comes close to this entity
       {
               wait (1);        
       }

       wait (-1); // wait for a second
       level_load (WepShoppe_wmb); // now load the wepshoppe level
       mouse_mode = 4; // set courser on for this lvl
       mouse_map = cursor_pcx;
      
       if(key_pressed(key_for_str(key_1off)))
       {
       on_1 = NULL; 
       }
       ptr_remove(me);       

}

if(key_pressed(key_for_str(key_1off)))

void my_key_event()
{
	printf("my_key_event was called");
}

on_1 = my_key_event;

on_1 = NULL;

on_1 = NULL;
wait(1);
if (on_1)
	printf("Oh crap! on_1 got reassigned some place else!")

#include <acknex.h>

void foobar()
{
	beep();
}

void main()
{
	on_1 = foobar;
	wait(-10);
	on_1 = NULL;
}