// A very fine cad macro from Phineas

control-option-click
{
// 
// Phineas "borrows" a cad and
// annoys the townsfolk with it!
//
// ===OVERVIEW===
// Control-option-click will equip the
// cad (if not already selected)
// and heal the target.  Control-option-click
// on that same target
// to stop healing, or click on
// a new target to begin healing that target.
//
// ===CAD EQUIP===
// Check my right hand;
// IF I am NOT holding a CADUCEUS
// THEN EQUIP the CADUCEUS
//
        if @my.right_item != "caduceus"
                "\equip \"caduceus\"\r"
        end if
//
// ===USE THE CAD===
// "current_heal" holds the name of the current
// exile that the caduceus is targeting.
//
// IF the current target is NOT the same
// as the target I clicked on,
// THEN set the new target
// to the target name I clicked
// AND use the caduceus
// on the new target;
// OTHERWISE stop using the caduceus,
// and forget the current target's name.
//
        if current_heal != @click.simple_name
                set current_heal @click.simple_name
                "\use " current_heal ".\r"
        else
                "\use /off\r"
                        set current_heal ""
        end if
}

=== Same macro, less comments ===

control-option-click
// by Phineas
{
        if @my.right_item != "caduceus"
                "\equip \"caduceus\"\r"
        end if
//
        if current_heal != @click.simple_name
                set current_heal @click.simple_name
                "\use " current_heal ".\r"
        else
                "\use /off\r"
                        set current_heal ""
        end if
}

//******************************************


// Greetings all!  Zephyr wrote a macro a while back for caduceus, and it
// simply kicks ass.  But it was only useful for he and I cause it was mouse
// specific (kensington orbit trac ball...if you have mouseworks, e-mail me
// at tarf@cet.com for an even better macro than this!)  So, I was bored one
// day, and knew it was possible to make it work with a shift-click or
// something.  So I did some research and got it to work.  If you shift-
// click an exile with this macro, it selects caduceus and begins healing
// the exile you shift-clicked.  But, and heres the kicker!, if you shift-
// click either yourself or the ground, it equips moonstone and self heals
// ;0)  To use it though, please replace "Papa" with your characters name.

shift-click
{
$any_click
"/select " @clicksplayer "\r"
call button

}

button
{

if @selplayer.name == ""
                label moonstone
                if @my.right_item == "moonstone"
                        "/use 5\r"
                else if @my.right_item == "Nothing"
                        equip "moonstone"
                        "/use 5\r"
                        unequip right
                else
                        equip "moonstone"
                        "/use 5\r"
                end if
        else
                if @selplayer.name == "Papa"
                        goto moonstone
                else
                        "/select " @clicksplayer "\r"
                        message "You are healing " @selplayer.name
                        if @my.right_item != "caduceus"
                                equip "caduceus"
                        end if
                        "/use " @selplayer.name "\r"

                end if
        end if
}


//Tarf, with special thanks to Zephyr



//  -- Wisher
// Cadeuceus stuff:
//   Control-shift-click cads a player, messages you that you're doing it
//   and notes it for other macros to use.
control-shift-click
   {
   equip "Caduceus"
   pause 2
   "/use " @clicksplayer "\r"
   message "ее Cadding " @clicksplayer
   setglobal @LastCadded @clicksplayer
   }


// f1 Cads the last person cadded with control-shift-click and
// remembers who it is. So you can control-shift-click and 
// then f1 repeatedly and the same exile will get cadded.
f1    
   {
   if @LastCadded != "" 
      setglobal @f1CadTarget @LastCadded
      setglobal @LastCadded ""
   end if
   if @f1CadTarget != ""
      equip "Caduceus"
      pause 2
      "/use " @f1CadTarget "\r"
      message "ее Cadding " @f1CadTarget
   Else
      message "ее Not Cadding anyone"
   End if
   }

// Same as f1, but it uses an independent memory of who it cads, so you
// can remember a couple of exiles to easily switch
//  More can be added, just change the xxCadTarget varaible name.
f2    
   {
   if @LastCadded != "" 
      setglobal @f2CadTarget @LastCadded
      setglobal @LastCadded ""
   end if
   if @f2CadTarget != ""
      equip "Caduceus"
      pause 2
      "/use " @f2CadTarget "\r"
      message "ее Cadding " @f2CadTarget
   Else
      message "ее Not Cadding anyone"
   End if
   }