Healing Macros

 

 

 

command-space call showcad

control-command-space call cadclear

 

"/cclear" call cadclear

"/cecho" call showcad

"cclear" call cadclear

"cecho" call showcad

 

 

 

//////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////

// Click-caduceus by Phineas Nov 02 v258

//

// Use the right mouse button to:

// * Equip the caduceus and heal the right-clicked player

// * Stop using the caduceus if the ground is right-clicked

// * Equip the moonstone and heal yourself if you are right-clicked

//

// Merlisk: Modified to use control-click on 03/22/03

//

 

control-click

{

$any_click

if @click.simple_name == ""

if @my.right_item == "Mercurial Staff"

"\use /off\r"

end if

else if @click.simple_name == @my.simple_name

if @my.right_item != "moonstone"

"\equip \"moonstone\"\r"

end if

"\use 3\r"

else

if @my.right_item != "Mercurial Staff"

call equipcad

end if

"\use " @click.simple_name "\r"

message " * Healing" @clicksplayer "."

end if

}

//////////////////////////////////////////////////////////////////////

//////////////////////////////////////////////////////////////////////

 

 

 

 

set cadTarget1 ""

set cadTarget2 ""

set cadTarget3 ""

set cadTarget4 ""

set cadTarget5 ""

set cadTarget6 ""

set cadTarget7 ""

set cadTarget8 ""

//set lastTarget ""

 

 

"c1" setglobal cadTarget1 @text

"c2" setglobal cadTarget2 @text

"c3" setglobal cadTarget3 @text

"c4" setglobal cadTarget4 @text

"c5" setglobal cadTarget5 @text

"c6" setglobal cadTarget6 @text

"c7" setglobal cadTarget7 @text

"c8" setglobal cadTarget8 @text

 

cadclear

{

call cadclear1

call cadclear2

call cadclear3

call cadclear4

call cadclear5

call cadclear6

call cadclear7

call cadclear8

// call cadclearlast

call showcad

}

 

cadclear1

{

setglobal cadTarget1 ""

}

 

cadclear2

{

setglobal cadTarget2 ""

}

 

cadclear3

{

setglobal cadTarget3 ""

}

 

cadclear4

{

setglobal cadTarget4 ""

}

 

cadclear5

{

setglobal cadTarget5 ""

}

 

cadclear6

{

setglobal cadTarget6 ""

}

 

cadclear7

{

setglobal cadTarget7 ""

}

 

cadclear8

{

setglobal cadTarget8 ""

}

 

 

showcad

{

message "* Mercurial staff targets:"

call showcad1

call showcad2

call showcad3

call showcad4

call showcad5

call showcad6

call showcad7

call showcad8

}

 

showcad1

{

message "* Cad1: " cadTarget1

}

 

showcad2

{

message "* Cad2: " cadTarget2

}

 

showcad3

{

message "* Cad3: " cadTarget3

}

 

showcad4

{

message "* Cad4: " cadTarget4

}

 

showcad5

{

message "* Cad5: " cadTarget5

}

 

showcad6

{

message "* Cad6: " cadTarget6

}

 

showcad7

{

message "* Cad7: " cadTarget7

}

 

showcad8

{

message "* Cad8: " cadTarget8

}

 

"d1"

{

if cadTarget1 != ""

call equipmoonstone

"/use 3\r"

pause 3

call equipcad

message " * Healing" cadTarget1 "."

"/use " cadTarget1 "\r"

end if

}

 

"d2"

{

if cadTarget2 != ""

call equipmoonstone

"/use 3\r"

pause 3

call equipcad

message " * Healing" cadTarget2 "."

"/use " cadTarget2 "\r"

end if

}

 

"d3"

{

if cadTarget3 != ""

call equipmoonstone

"/use 3\r"

pause 3

call equipcad

message " * Healing" cadTarget3 "."

"/use " cadTarget3 "\r"

end if

}

 

"d4"

{

if cadTarget4 != ""

call equipmoonstone

"/use 3\r"

pause 3

call equipcad

message " * Healing" cadTarget4 "."

"/use " cadTarget4 "\r"

end if

}

 

"d5"

{

if cadTarget5 != ""

call equipmoonstone

"/use 3\r"

pause 3

call equipcad

message " * Healing" cadTarget5 "."

"/use " cadTarget5 "\r"

end if

}

 

"d6"

{

if cadTarget6 != ""

call equipmoonstone

"/use 3\r"

pause 3

call equipcad

message " * Healing" cadTarget6 "."

"/use " cadTarget6 "\r"

end if

}

 

"d7"

{

if cadTarget7 != ""

call equipmoonstone

"/use 3\r"

pause 3

call equipcad

message " * Healing" cadTarget7 "."

"/use " cadTarget7 "\r"

end if

}

 

"d8"

{

if cadTarget8 != ""

call equipmoonstone

"/use 3\r"

pause 3

call equipcad

message " * Healing" cadTarget8 "."

"/use " cadTarget8 "\r"

end if

}

f1

{

if @my.right_item != "moonstone"

call equipmoonstone

end if

"/use 3\r"

}

 

"cad"

{

if @my.right_item != "moonstone"

call equipmoonstone

end if

"/use 3\r"

 

if @my.right_item != "Mercurial Staff"

call equipcad

end if

 

if @text.num_words > 0

message " * Healing" @text "."

pause 3

"/use " @text "\r"

 

else if @selplayer.name.num_words > 0

 

message " * Healing" @splayer "."

pause 3

"/use " @splayer "\r"

 

end if

}

 

 

equipcad

{

set @waitCount 0

if @my.right_item != "Mercurial Staff"

"\equip mercurialstaff\r"

end if

 

label waitforcad

if @my.right_item != "Mercurial Staff"

pause 1

set @waitCount + 1

if @waitCount < 20

goto waitforcad

else

message " * I can not equip the Mercurial staff."

end if

end if

}

 

 

"sr"

{

if @my.finger_item != "sylphstone ring"

call equipsylphstonering

else

"\unequip sylphstone ring\r"

end if

}

 

 

equipsylphstonering

{

set @waitCount 0

if @my.finger_item != "sylphstone ring"

"\equip sylphstone ring\r"

end if

 

label waitforring

if @my.finger_item != "sylphstone ring"

pause 1

set @waitCount + 1

if @waitCount < 20

goto waitforring

else

message " * I can not equip the sylphstone ring."

end if

end if

}

 

 

equipmoonstone

{

set @waitCount 0

if @my.right_item != "moonstone"

"\equip moonstone\r"

end if

label waitformoon

if @my.right_item != "moonstone"

pause 1

set @waitCount + 1

if @waitCount < 20

goto waitformoon

else

message " * I can not equip the moonstone."

end if

end if

}

 

"/selfh"

{

call @selfh

}

 

@selfh

{

set @env.key_interrupts "true"

call equipmoonstone

 

label start

"/use 3\r"

pause 20

goto start

}

 

"/purg"

{

"/equip purgatory pendant \r"

pause 2

"/useitem \"purgatory pendant\" \r"

pause 60

"/unequip purgatory pendant \r"

}

 

"/unpurg"

{

"\unequip purgatory pendant\r"

}

 

 

 Return to Merlisk's Scrolls