6
« on: May 14, 2006, 11:29:30 am »
Its the engine that i made for Sage of Darkness.
Give Credit for Silverlink for this engine.. Its the first engine wrote evah.
/*----------------------------------
Prioritized movement
by silverlink
Give credit please
----------------------------------*/
// assigning the keys
kup = keyboard_check(vk_up); // kup is keyboard_check(vk_up)
kdown = keyboard_check(vk_down); // kdown is keyboard_check(vk_down)
kleft = keyboard_check(vk_left); // kleft is keyboard_check(vk_left)
kright = keyboard_check(vk_right); // kright is keyboard_check(vk_right)
//Direction setup
if (direction=0){sprite_index = spr_link_right; image_speed=0.5;}
if (direction=90){sprite_index = spr_link_up; image_speed=0.5;}
if (direction=180){sprite_index = spr_link_left; image_speed=0.5;}
if (direction=270){sprite_index = spr_link_down; image_speed=0.5;}
//Walking setup with collision checking
if (kright = true && !kdown && !kup && !kleft && place_free(x+5,y)){direction=0; speed=5;}
if (kup = true && !kleft && !kright && !kdown && place_free(x,y-5)){direction=90; speed=5;}
if (kleft = true && !kright && !kdown && !kup && place_free(x-5,y)){direction=180; speed=5;}
if (kdown = true && !kup && !kleft && !kright && place_free(x,y+5)){direction=270; speed=5;}
if (kup && kright = true && !kdown && !kleft && place_free(x+5,y-5)){direction=45; speed=5;}
if (kup && kleft = true && !kdown && !kright && place_free(x-5,y-5)){direction=135; speed=5;}
if (kleft && kdown = true && !kup && !kright && place_free(x-5,y+5)){direction=225; speed=5;}
if (kright && kdown = true && !kup && !kleft && place_free(x+5,y+5)){direction=315; speed=5;}
//activating collision checking
if !place_free(x+5,y) && !place_free(x-5,y) && !place_free(x,y+5) && !place_free(x,y-5){image_speed=0; image_index=0; speed=0;}
if !place_free(x+5,y+5) && !place_free(x-5,y-5) && !place_free(x-5,y+5) && !place_free(x+5,y-5){image_speed=0; image_index=0; speed=0;}
//Standing still
if !kright && !kup && !kleft && !kdown{image_speed=0; image_index=0; speed=0;}
// When all buttons are pushed
if kright && kup && kleft && kdown{image_speed=0; image_index=0; speed=0;}