//--From Diotima
//------------------------------------------------------
// Place this in the file before the macro that uses this function.

randomDirection
       {
        random no-repeat
           "se"
        or
           "sw"
        or
           "s"
        or
           "n"
        or
           "nw"
        or
           "ne"
        or
           "w"
        or
           "e"
        end random
       }

//end function randomDirection

//The function is then called into this  macro.

option-shift-f12
      {
        set @env.click_interrupts true
        label mark
        random no-repeat
            "/pose walkright "
            call randomDirection
            "\r"
        or
            "/pose walkleft "
            call randomDirection
            "\r"
        or
            "/pose attack "
            call randomDirection
            "\r"
        or
            "/pose stand "
            call randomDirection
            "\r"
        or
            "/pose celebrate\r"
        or
            "/pose leanright\r"
        or
            "/pose leanleft\r"
        or
            "/pose angry\r"
        or
            "/pose bless\r"
        or
            "/pose akimbo\r"
        or
            "/pose kneel\r" 
        end random
        goto mark
      }

//end random pose.  Some poses were left out.
// Key Interrupts were left out so you can talk while you boogie.