Fizzle... ARGH

Help section from before the user variable changes that broke all macros

Moderator: MacroQuest Developers

yocal
a lesser mummy
a lesser mummy
Posts: 43
Joined: Fri Jun 14, 2002 12:28 pm
Location: Denmark
Contact:

Fizzle... ARGH

Post by yocal » Sun Aug 18, 2002 5:28 pm

Etulas...

Im having a minor problem (or actually two :))...

1: My GF keeps fizzle with her mage :P
2: The macro to make her stop :)

...this works fine... except that if it fizzles it would last the time it takes to originally cast the spell, before it recasts... And that sux a bit :P

Could anyone create it so it wouldnt? I tried to make the /doevents just after cast, but then it seems to ignore everything else i try...

Heads up, post some code...

Code: Select all

| - Fizzle.mac -
|
|  By:
| __    __                       ___      
| /\ \  /\ \                     /\_ \     
| \ `\`\\/'/ ___     ___     __  \//\ \    
|  `\ `\ /' / __`\  /'___\ /'__`\  \ \ \   
|    `\ \ \/\ \L\ \/\ \__//\ \L\.\_ \_\ \_ 
|      \ \_\ \____/\ \____\ \__/.\_\/\____\
|       \/_/\/___/  \/____/\/__/\/_/\/____/
|_______________________________________________

#event Fizzle "Your spell fizzles!"


#Define SpellBuff    1
#Define SpellNuke    2
#Define SpellHeal    3

|***********************************************

sub Main

 /stand
 /varset v50 0
 /target pet
 /face nopredict

:Loop

 /call CheckMana

  /varset v50 0

 /call CastBuff

  /varset v50 0

 /call CastNuke

  /varset v50 0

 /call CastHeal

/goto :Loop

/return

|***********************************************

Sub CheckMana

   /if n $char(mana,pct)==100 /return

   /sit

:ManaRecoverLoop

   /if n $char(mana,pct)==100 {
				/stand
				/return
			      }

   /delay 1s

   /goto :ManaRecoverLoop

/return


Sub CastBuff

  :RecastBuff

     /echo Casting Buff
     /cast SpellBuff
     /delay 8s
     /doevents
     /if n $v50==1 {
			/delay 1s
			/varset v50 0
			/goto :RecastBuff
		   }

/return


Sub CastNuke

  :RecastNuke

     /echo Casting Nuke
     /cast SpellNuke
     /delay 5s
     /doevents
     /if n $v50==1 {
			/delay 1s
			/varset v50 0
			/goto :RecastNuke
		   }

/return


Sub CastHeal

  :RecastHeal

    /echo Casting Heal
    /cast SpellHeal
    /delay 4s
    /doevents
    /if n $v50==1 {
			/delay 1s
			/varset v50 0
			/goto :RecastHeal
		  }

/return


sub Event_Fizzle

  /varset v50 1
  /delay 5

/return

// Yoc.

powerspike
a ghoul
a ghoul
Posts: 80
Joined: Sun Aug 11, 2002 11:40 pm
Location: Australia
Contact:

Post by powerspike » Mon Aug 19, 2002 2:46 am

have a look at subspells.mac (or is it spellsub.mac) easy to use, and it'll automatic recast on fizzle.

Edgy
orc pawn
orc pawn
Posts: 14
Joined: Wed Aug 21, 2002 8:28 pm

Post by Edgy » Thu Sep 05, 2002 7:11 pm

This is what I use for my level 13 drood. Of course you'll need to adjust for whatever character you use. It is something I patched together myself from code posted here. Removes spam, recasts on fizzle, stops casting whatever discipline once it is maxed. Kudos to everyone whose code I "borrowed". I just couldn't find anything here that did the whole lot.
NB. You will also need to use spellsub.mac

Code: Select all


| Casting.mac 
|  --Casting Practice Macro -- 
| Put your 5 smallest spells for each discipline in slots 1-5 in the following order Divination, 
| Evocation,Conjuration,Abjuration,Alteration 
| Find a nice lonely place where you can just hang out and practice casting your spells 
| Don't go AFK while using this macro, you have been warned 

#include SpellSub.mac 
#Event MedTime "Insufficient Mana to cast this spell" 
#define maxiskill v55

Sub Main
/filter name add you begin
/filter name add you feel
/filter name add your skin
/filter name add part of your
/filter name add your image

/varcalc maxiskill $char(level)*5+5 
/target myself 
   :Loop 
      /if n $char(skill,divination)<$maxiskill /call Divination 
      /if n $char(skill,evocation)<$maxiskill /call Evocation 
      /if n $char(skill,conjuration)<$maxiskill /call Conjuration 
      /if n $char(skill,abjuration)<$maxiskill /call Abjuration 
      /if n $char(skill,alteration)<$maxiskill /call Alteration 
      /doevents 
   /goto :Loop 
/return 

Sub Divination 
  /call SpellSub 1 5s 
/return 

Sub Evocation 
  /call SpellSub 2 4s 
/return 

Sub Conjuration 
   /call SpellSub 3 4s
   /if "$cursor(name)"=="Summoned: Globe of Stars" /click left destroy 
/return 

Sub Abjuration 
   /call SpellSub 4 5s 
/return 

Sub Alteration 
   /call SpellSub 5 4s 
/return 

Sub Event_MedTime 
   /sit 
   :GetMana 
   /if n $char(mana,pct)<95 /goto :GetMana 
   /sit off 
/return