Gammon Forum

dim count
for count = 1 to world.getvariable ("SpellCount")
  world.queue "c " & world.getvariable("SpellName"), 1
next

# Command queue variables
@cmdQueue = ();
$pauseQueue = 0;

# Command queue code
sub processQueue() {
    my $cmd;
    
    # If we should not pause the queue and if the queue contains some commands...
    if ( ! $pauseQueue && scalar @cmdQueue ) {
        # Shift a command from the queue...
        # Since what we want is a FIFO queue we shift commands OFF the queue and push them ON.
        $cmd = shift @cmdQueue;
        
        # Use this if you want to be able to queue MUSHClient aliases and/or speedwalks etc...
        $world->Execute( $cmd );
        # ...or use this if you just want to send stuff to the MU*, this is quicker
        # coz it bypasses any command queues and speedwalk queues.
        # $world->SendImmediate( $cmd );
    }
}

sub queueCmds( $$$ ) {
    # We are just interested in the arguments so discard the other stuff.
    shift; shift;

    # Get the array reference from the call stack.
    my $arefArgs = shift;
    
    # Get the count from the args...
    my $count = shift @{$arefArgs};
    # ...and get the command string.
    my $cmdStr = shift @{$arefArgs};

    # Turn this on if you like confirmation msgs.
    #$world->note( "#Queueing ${count} x \'${cmdStr}\'." );

    while ( $count ) {
        push @cmdQueue, $cmdStr;
        $count--;
    }
}

<timers>
  <timer script="processQueue" enabled="y" second="0.50" >

  </timer>
</timers>

<aliases>
  <alias
   script="queueCmds"
   match="queue ([\d]+)\s(.+)"
   enabled="y"
   regexp="y"
   sequence="100"
  >
  </alias>
</aliases>

<aliases>
  <alias
   match="speedwalk (.+)"
   enabled="y"
   regexp="y"
   send_to="12"
   sequence="100"
  >
  <send>{
  my $arg = "%1";
  $arg =~ s/ //g;

  my @cmds = split //, $arg;
  my $count = undef;

  foreach my $cmd ( @cmds ) {
    if ( $cmd =~ /[0-9]/ ) {
      if ( $count == undef ) {
        $count = $cmd;
      } else {
        $count .= $cmd;
      }
    } else {
      $count = 1 if ( $count == undef);

      queueCmds( 0, 0, [ $count, $cmd ] );

      $count = undef;
    }
  }
}</send>
  </alias>
</aliases>

<aliases>
  <alias
   match="!*"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>do local t = coroutine.create (function (t)

local lines = {}

sw = EvaluateSpeedwalk ("%1")

if string.sub (sw, 1, 1) == "*" then
  ColourNote ("white", "red", string.sub (sw, 2))
  return
end -- if

rex.new ("(.+)"):gmatch (sw, 

-- build speedwalk lines into a table

function (m) 
  table.insert (lines, m)
end)


  pause_speedwalk = false  -- no pause yet
  abort_speedwalk = false  -- no abort yet
  speedwalk_thread = t     -- remember this thread

 -- iterate the table, sending each line to the MUD

 for i, line in ipairs (lines) do

 -- see if pausing wanted (global variable set)

  if pause_speedwalk then
    ColourNote ("white", "green", "Speedwalk paused.")
    ret = coroutine.yield ()
    if ret == "abort" then
      ColourNote ("black", "yellow", "Speedwalk abandoned.")
      speedwalk_thread = nil
      return
    end -- abort speedwalk wanted
    ColourNote ("white", "green", "Speedwalk resumed.")
    pause_speedwalk = false
  end -- if

 -- see if aborting wanted

  if abort_speedwalk then
    ColourNote ("black", "yellow", "Speedwalk abandoned.")
    speedwalk_thread = nil
    return
  end -- if

  -- send the speedwalk

   Send (line) 

  -- wait 1.5 seconds

  wait (t, 1.5)

  end  -- of iterating through each speedwalk line

  -- all done!

  ColourNote ("white", "blue", "Speedwalk done.")

  speedwalk_thread = nil

end) assert (coroutine.resume (t, t)) end

</send>
  </alias>

  <alias
   match="pause speedwalk"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>if speedwalk_thread then
  if pause_speedwalk then
    ColourNote ("black", "yellow", "The speedwalk is already paused.")
  else
    pause_speedwalk = true
  end  
else
  ColourNote ("black", "yellow", "No speedwalk is active.")
end


</send>
  </alias>
  <alias
   match="resume speedwalk"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>if speedwalk_thread then
  if pause_speedwalk then
    assert (coroutine.resume (speedwalk_thread, "resume"))
  else
    ColourNote ("black", "yellow", "The speedwalk is not paused.")
  end  
else
  ColourNote ("black", "yellow", "No speedwalk is active.")
end</send>
  </alias>

  <alias
   match="abort speedwalk"
   enabled="y"
   send_to="12"
   sequence="100"
  >
  <send>if speedwalk_thread then
  if pause_speedwalk then
    assert (coroutine.resume (speedwalk_thread, "abort"))
  else
    abort_speedwalk = true
  end  
else
  ColourNote ("black", "yellow", "No speedwalk is active.")
end</send>
  </alias>
</aliases>

<aliases>
  <alias
   match="pausequeue"
   enabled="y"
   send_to="12"
   sequence="500"
  >
  <send>$pauseQueue = 1;
$world-&gt;note( "#Queue: Paused." );</send>
  </alias>
</aliases>


<aliases>
  <alias
   match="resumequeue"
   enabled="y"
   send_to="12"
   sequence="500"
  >
  <send>$pauseQueue = 0;
$world-&gt;note( "#Queue: Resumed." );</send>
  </alias>
</aliases>


<aliases>
  <alias
   match="abortqueue"
   enabled="y"
   send_to="12"
   sequence="500"
  >
  <send>$pauseQueue = 1;
@cmdQueue = ();
$pauseQueue = 0;
$world-&gt;note( "#Queue: Aborted." );</send>
  </alias>
</aliases>