Sense Heading macro

hardarac · Post by **hardarac** » Sat Nov 30, 2002 2:56 pm

Hi Looking for a macro to up sense heading skill ... or for that matter anything that just need to be run over and over ..... no ingredients ....

can anyone help )

L124RD · Post by **L124RD** » Sat Nov 30, 2002 3:20 pm

Salutations,

Code: Select all

sub main
:loop
 /if n $char(ability,"$p0")>0 /doability "$p0"
 /doevents
 /goto :loop
/return

call this with something like

/macro doability.mac "Sense Heading"

hardarac · Post by **hardarac** » Sat Nov 30, 2002 4:14 pm

Many thanks dude

Slight refinement

Can u make it display when it works ... and when skill goes up ?

Cheers

L124RD · Post by **L124RD** » Sun Dec 01, 2002 4:28 am

Salutations,
for making it work, It'd take a whole lot of work I don't think i can do by hand right now... as for skill ups, that is (pretty) simple:

Code: Select all

sub main
/varset p1 $char(skill,"$p0")
:loop
/if n $char(ability,"$p0")>0 /doability "$p0"
/if n $p1!=$char(skill,"$p0") {
 /echo You've gained a level in $p0 ($char(skill,"$p0"))
 /varset p1 $char(skill,"$p0")
}
/doevents
/goto :loop
/return