Asklepian staff clickmacro

macros macros macros

Moderators: Phineas, noivad

Post Reply
User avatar
Borzon
Arilon Legacy
Arilon Legacy
Posts: 670
Joined: Sat Aug 28, 2010 5:29 am
Profession: Bloodmage
Race: Sylvan
Player Status: Inactive

Asklepian staff clickmacro

Post by Borzon » Sat Nov 20, 2010 12:07 pm

Pretty sure a thousand of these excist already but I'm bored :P

Mine is super simple, but it works =)

Click on person to cad him/her, click on yourself to start radius.

Code: Select all

click2
{
if @my.right_item != "asklepian staff"
"/equip asklepian staf\r"
end if
if @click.name == @my.name
"/use\r"
else if @click.name == @click.name
"/use " @click.name "\r"
message "* Cadding: " @click.name " "
end if
} 

User avatar
noivad
Order of the White Elephant
Order of the White Elephant
Posts: 3333
Joined: Wed Oct 08, 2003 4:04 pm
Profession: Fighter
Race: Sylvan
Player Status: Active
Location: SF Bay Area
Contact:

Re: Asklepian staff clickmacro

Post by noivad » Wed Nov 24, 2010 10:22 pm

Derived from moonstonefunctions.txt <--- available on the http://clump2.noivad.net/
This one heals and sets control-clicked character to be the target so that F4 heals them again.
click on ground to heal self for 4 bursts.
click on self to start radius healing.

Code: Select all

set healingDevice "moonstone"
set auraHDevice "Asklepian Staff"

F3 
{
if @my.right_item != rightItem
	"/equip " rightItem "\r"
else
	"/equip " healingDevice "\r"
end if
}
F4 
{
call cadSwap
if cadTarget[0] != ""
     "/use " cadTarget[0] "\r"
else
     "/use " @selplayer.simple_name "\r"
end if
}

control-click
{
"/select " @click.simple_name "\r"
if @selplayer.simple_name == ""
     call cadSwap
     "/use 4\r"
else if @selplayer.simple_name == @my.simple_name
     call useAsklepian
else
      call cadSwap
      setglobal cadTarget[0] @selplayer.simple_name
      "/use " cadTarget[0] "\r"
end if
}
/* ------------------------------- Asklepian 1.0 ---------------------------- */

useAsklepian
{
call equip auraHD
"/use\r"
"/pose bless\r"
}
/* ------------------------------- Switcheroos ---------------------------- */
auraHD 
{
if @my.right_item != auraHDevice
        setglobal rightItem @my.right_item
	"/equip " auraHDevice "\r"
end if
}

cadSwap
{ 
if @my.right_item != healingDevice
         setglobal rightItem @my.right_item
	"/equip " healingDevice "\r"
end if
}
http://www.clanlord.net/
Org Du Lac's bestiary: http://bestiary.clanlord.net/index.html
Gil Galad’s Pirates http://pirates.clanlord.net/ & Ranger Studies: http://studies.clanlord.net/
?security warning:View cert•CL players assess valid by refs

User avatar
Borzon
Arilon Legacy
Arilon Legacy
Posts: 670
Joined: Sat Aug 28, 2010 5:29 am
Profession: Bloodmage
Race: Sylvan
Player Status: Inactive

Re: Asklepian staff clickmacro

Post by Borzon » Thu Nov 25, 2010 7:11 am

allright yours rock :P

User avatar
noivad
Order of the White Elephant
Order of the White Elephant
Posts: 3333
Joined: Wed Oct 08, 2003 4:04 pm
Profession: Fighter
Race: Sylvan
Player Status: Active
Location: SF Bay Area
Contact:

Re: Asklepian staff clickmacro

Post by noivad » Thu Nov 25, 2010 9:42 am

Thanks, I just wrote it pretty quickly so there's a trivial bug I found that I haven't bothered to correct. There's also a part where I can set people to be healed on FKeys that I added to mine, but I couldn't get it working quickly enough to inlcude it.

The raw code is:

Code: Select all


set cadTarget[1] ""
set cadTarget[2] ""
set cadTarget[3] ""
set cadTarget[4] ""
set cadTarget[5] ""

f8 						call staticTarget1
shift-f8				call staticTarget1Set
f9						call staticTarget2
shift-f9				call staticTarget2Set
f10						call staticTarget3
shift-f10				call staticTarget3Set
f11						call staticTarget4
shift-f11				call staticTarget4Set
f12						call staticTarget5
shift-f12				call staticTarget5Set

/* **************************** CadTargetter 2.0.3 *****************************
 As of version 2.0.3 you can now set cad targets of up to 5 people.
 Setting Cad targets is easy, you right click on a player and hit F8-F12
 the first time you set this.
 To reset it to a new person hit shift-F8(-12)
***************************************************************************** */

staticTarget1 
{
call cadswap
if cadTarget[1] == ""
	setglobal cadTarget[1] @selplayer.simple_name
	message "*Set " cadTarget[1] " as cad target F8."
end if
"/select " cadTarget[1] "\r"
"/use " @selplayer.simple_name "\r"
}

staticTarget1Set
{
call cadswap
setglobal  cadTarget[1]  @selplayer.simple_name
"/use " cadTarget[1] "\r"
message "*Set " cadTarget[1] " as cad target F8."
}

staticTarget2 
{
call cadswap
if cadTarget[2] == ""
	setglobal cadTarget[2] @selplayer.simple_name
	message "*Set " cadTarget[2] " as cad target F9."
end if
"/select " cadTarget[2] "\r"
"/use " @selplayer.simple_name "\r"
}

staticTarget2Set 
{
call cadswap
setglobal cadTarget[2]  @selplayer.simple_name
"/use " cadTarget[2] "\r"
message "*Set " cadTarget[2] " as cad target F9."
}

staticTarget3 
{
call cadswap
if cadTarget[3] == ""
	setglobal cadTarget[3] @selplayer.simple_name
	message "*Set " cadTarget[3] " as cad target F10."
end if
"/select " cadTarget[3] "\r"
"/use " @selplayer.simple_name "\r"
}

staticTarget3Set
{
call cadswap
setglobal  cadTarget[3]  @selplayer.simple_name
"/use "  cadTarget[3] "\r"
message "*Set " cadTarget[3] " as cad target F10."
}

staticTarget4 
{
call cadswap
if cadTarget[4] == ""
	setglobal cadTarget[4] @selplayer.simple_name
	message "*Set " cadTarget[4] " as cad target F11."
end if
"/select " cadTarget[4] "\r"
"/use " @selplayer.simple_name "\r"
}

staticTarget4Set 
{
call cadswap
setglobal  cadTarget[4]  @selplayer.simple_name
"/use "  cadTarget[4] "\r"
message "*Set " cadTarget[4] " as cad target F11."
}

staticTarget5
{
call cadswap
if cadTarget[5] == ""
	setglobal cadTarget[5] @selplayer.simple_name
	message "*Set " cadTarget[5] " as cad target F12."
end if
"/select " cadTarget[5] "\r"
"/use " @selplayer.simple_name "\r"
}

staticTarget5Set 
{
call cadswap
setglobal  cadTarget[5]  @selplayer.simple_name
"/use "  cadTarget[5] "\r"
message "*Set " cadTarget[5] " as cad target F12."
}
http://www.clanlord.net/
Org Du Lac's bestiary: http://bestiary.clanlord.net/index.html
Gil Galad’s Pirates http://pirates.clanlord.net/ & Ranger Studies: http://studies.clanlord.net/
?security warning:View cert•CL players assess valid by refs

Post Reply