Dim $action, $time, $numactions, $time2
While True
   Sleep(Random(257432,554236,1))
   for $numactions = Random(1,4,1) to 4
     $action = Random(1,6,1)
     $time = Random(20,1500,1)
     $time2 = Random(20,300,1)
     Switch $action
       Case 1
         $action = "{w}"
       Case 2
         $action = "{s}"
       Case 3
         $action = "{q}"
       Case 4
         $action = "{e}"
       Case 5
         $action = "{Left}"
       Case 6
         $action = "{Right}"
       Case Else
         $action = "{Left}"
     EndSwitch
     Opt("SendKeyDownDelay", $time)
     Opt("SendKeyDelay", $time2)
     ControlSend( "World of Warcraft", "", "", $action)
   Next
WEnd