Remaning on buffs

[|| Napolion ||]

I have done this so it works now.

Code: Select all

| Buffs.mac
| List the buffs you have and the time left on them

#Turbo

Sub Main
   /declare time_sec local
   /declare time_min local
   /declare time_hou local
   /declare loop local
   /for loop 1 to 15
      /if "$char(buff,@loop,spellid)"!="NULL" {
         /varset time_sec $char(buff,@loop,duration)
         /varcalc time_sec @time_sec*6
         /varcalc time_min $int(@time_sec/60)
         /varsub time_sec $calc(@time_min*60)
         /varcalc time_hou $int(@time_min/60)
         /varsub time_min $calc(@time_hou*60)
         /varset time_sec $int(@time_sec)
         /varset time_min $int(@time_min)
         /varset time_hou $int(@time_hou)
         /echo $char(buff,@loop,spellid) (Level $char(buff,@loop,level)) @time_hou hrs @time_min mins @time_sec secs remaining
      }
   /next loop
/return

|| Napolion ||

[wassup]

I sent you a PM with some cleaner time calcs. Didn't want to post it here unless you wanted me to.

[Furiousness]

If you could post it that would be handy, I was wondering if you could find that out about buffs.

Cheers

Fury

[|| Napolion ||]

Tanks to Wassup. Here are his modify code.

Code: Select all

| Buffs.mac 
| List the buffs you have and the time left on them 

#Turbo 

Sub Main 
   /declare time_sec local 
   /declare time_min local 
   /declare time_hou local 
   /declare loop local 
   /for loop 1 to 15 
      /if "$char(buff,@loop,spellid)"!="NULL" { 

         /varcalc time_sec $char(buff,@loop,duration)*6 

         /varcalc time_hou @time_sec\3600 
         /varcalc time_min @time_sec%3600\60 
         /varcalc time_sec @time_sec%60 

         /echo $char(buff,@loop,spellid) (Level $char(buff,@loop,level)) @time_hou hrs @time_min mins @time_sec secs remaining 
      } 
   /next loop 
/return

|| Napolion ||

[blueninja]

Adding the line in red will make it only show the buffs with a name containing the string passed as an argument.

/macro buffs kazad

will show how much time you have left on symbol of kazad or kazad's mark.

Code: Select all

| Buffs.mac 
| List the buffs you have and the time left on them 

#Turbo 

Sub Main 
   /declare time_sec local 
   /declare time_min local 
   /declare time_hou local 
   /declare loop local 
   /for loop 1 to 15 
      /if "$char(buff,@loop,spellid)"!="NULL" { 

[color=red]         /if $defined(Param0)==true /if "$char(buff,@loop,spellid)"!~"@Param0" /next loop[/color]

         /varcalc time_sec $char(buff,@loop,duration)*6 

         /varcalc time_hou @time_sec\3600 
         /varcalc time_min @time_sec%3600\60 
         /varcalc time_sec @time_sec%60 

         /echo $char(buff,@loop,spellid) (Level $char(buff,@loop,level)) @time_hou hrs @time_min mins @time_sec secs remaining 
      } 
   /next loop 
/return