Advertisement
fastman92

Testing script for LCS main.scm

Mar 9th, 2014
191
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pascal 1.03 KB | None | 0 0
  1. DEFINE NUMBER_OF_GLOBAL_VARIABLES 56
  2. DEFINE SAVED_VARIABLES
  3. DEFINE SAVED_VARIABLE $6
  4.  
  5. DEFINE OBJECTS 0
  6.  
  7. DEFINE MISSION_VARIABLE_START_ID $50
  8. DEFINE MISSION_NUMBER_OF_VARIABLES 6
  9.  
  10. DEFINE MISSIONS 1
  11. DEFINE MISSION 0 AT @dummy
  12.  
  13. // main file
  14. 03A9: name_thread 'MAIN'
  15. 016F: do_fade 1 fade 1
  16. 00C0: set_time_of_day 8 0
  17. 0185: declare_mission_flag $ONMISSION
  18.  
  19. 0053: create_player 0 at 1250.07 11.0 store_to $PLAYER_CHAR
  20. 0176: set_player_heading $PLAYER_CHAR to 180.0
  21. 01FA: get_player_char $PLAYER_CHAR store_to $PLAYER_ACTOR
  22. 009C: set_deatharrest_state 0
  23. 01B9: set_player_control $PLAYER_ACTOR to 0
  24. 03C4: set_everyone_ignore_player $PLAYER_ACTOR to 0
  25.  
  26. 0006: 0@ = 0
  27.  
  28. :loop
  29. 0001: wait 0
  30. 05AB: get_pad_state actionID 0 store_to 1@
  31.  
  32. 0019:   1@ > 0
  33. 004D: goto_if_false @loop
  34.  
  35. 0019:   0@ > 0
  36. 004D: goto_if_false @setTrue
  37. 0006: 0@ = 0
  38. 0002: goto @loop_continue
  39.  
  40. :setTrue
  41. 0006: 0@ = 1
  42.  
  43. :loop_continue
  44. 01EA: print_with_number_now 'NUMBER' number 0@ time 1000 flag 1  // ~1~
  45. 066E:  0@
  46. 0001: wait 3000
  47. 0002: goto @loop
  48.  
  49. :dummy
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement