Shroomism

moverandom

Oct 29th, 2013
119
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.72 KB | None | 0 0
  1. if "$roomid" = "0" then GOSUB moveRandomDirection
  2.  
  3. moveRandomDirection:
  4. if $east then
  5. {
  6. put east
  7. return
  8. }
  9. if $north then
  10. {
  11. put north
  12. return
  13. }
  14. if $northeast then
  15. {
  16. put northeast
  17. return
  18. }
  19. if $southeast then
  20. {
  21. put southeast
  22. return
  23. }
  24. if $south then
  25. {
  26. put south
  27. return
  28. }
  29. if $southwest then
  30. {
  31. put southwest
  32. return
  33. }
  34. if $west then
  35. {
  36. put west
  37. return
  38. }
  39. if $northwest then
  40. {
  41. put northwest
  42. return
  43. }
  44. if $out then
  45. {
  46. put out
  47. return
  48. }
  49. if $up then
  50. {
  51. put up
  52. return
  53. }
  54. if $down then
  55. {
  56. put down
  57. return
  58. }
  59. echo no random direction possible? looking to attempt to reset room exit vars
  60. #might need a counter here to prevent infinite loops
  61. put look
  62. waitforre ^Obvious
  63. pause
  64. goto moveRandomDirection
Advertisement
Add Comment
Please, Sign In to add comment