CaptainLepidus

Mouse Scrolling

Apr 2nd, 2012
189
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. //obj_controller step
  2. if view_current == 0
  3.     {
  4.         x = mouse_x;
  5.         y = mouse_y;
  6.         if keyboard_check( vk_left )
  7.         {
  8.             view_xview -= 10;
  9.         }
  10.         if keyboard_check( vk_right )
  11.         {
  12.             view_xview += 10;
  13.         }
  14.         if keyboard_check( vk_up )
  15.         {
  16.             view_yview -= 10;
  17.         }
  18.         if keyboard_check( vk_down )
  19.         {
  20.            view_yview += 10;
  21.         }
  22.     }
  23. //view[0]
  24. view_wview[ 0 ] = 2000;
  25. view_hview[ 0 ] = 2000;
  26. view_object[ 0 ] = obj_controller;
  27. view_hspeed[ 0 ] = 8;
  28. view_vspeed[ 0 ] = 8;
Advertisement
Add Comment
Please, Sign In to add comment