IF YOU HAVEN'T GOT THE 2.5 MINUTE SELOS DON'T TRY, DON'T BITCH IT WON'T
Note, since the lvl 49 Selo's lasts 2.5 minutes, this macro WONT WORK
IF YOU HAVEN'T GOT THE 2.5 MINUTE SELOS DON'T TRY, DON'T BITCH IT WON'T
Like it says
| /mac Chantkite <GEM> <GEM> <GEM> <SELOS GEM> <XLOC>
Make sure you put Selos in the 4th arguement, if you die and you didn't read this, tough smurf. This will default to the loc of the current target with a radius of 100 if you only give it spell gems. Anyhow, good luck, if you die, not my fault, if you AFK and get banned, not my fault. If you're an idiot, not my fault.
Now that that's clear....
Code: Select all
| - ChantKite.mac -
| /mac Chantkite <GEM> <GEM> <GEM> <SELOS GEM> <XLOC> <YLOC> <RADIUS>
| Note, since the lvl 49 Selo's lasts 2.5 minutes, this macro WONT WORK
| IF YOU HAVEN'T GOT THE 2.5 MINUTE SELOS DON'T TRY, DON'T BITCH IT WON'T
#event MissedNote "You miss a note, bringing your song to a close!"
#event Recovered "You haven't recovered yet..."
#event NeedTarget "You must first select a target for this spell!"
#event Slow "You slow down"
#event Exp "You gain "
#event Outran "out of range"
#event Outran "You cannot see"
#define CASTTIME 32
#define cursong v1
#define nsongs v2
#define exper V3
#define targcount v4
#define xloc v5
#define yloc v6
#define radius v7
#define chorus v8
#define prevsong v9
#define aaexp v10
#define SELOS 5
Sub Main
/varset cursong 1
/varset aaexp $char(aa,exp)
/varset exper $char(exp)
/if $p5!="" /if $p5!=NULL {
/varset xloc $p5
} else /varset xloc $target(y)
/if $p6!="" /if $p6!=NULL {
/varset yloc $p6
} else /varset yloc $target(x)
/if $p7!="" /if $p7!=NULL {
/varset radius $p7
} else /varset radius 100
/varset targcount 0
/varset nsongs 4
/varset t1 0
/if $p0!="" /if $p0!=NULL {
/varset a(0,1) $p0 | First song
} else /varset a(0,1) 1
/echo Song 1: $char(gem,$a(0,1))
/if $p1!="" /if $p1!=NULL {
/varset a(0,2) $p1
} else /varset a(0,2) 2
/echo Song 2: $char(gem,$a(0,2))
/if $p2!="" /if $p2!=NULL {
/varset a(0,3) $p2
} else /varset a(0,3) 3
/echo Song 3: $char(gem,$a(0,3))
/if $p3!="" /if $p3!=NULL {
/varset a(0,4) $p3
} else /varset a(0,4) 4
/echo Song 4: $char(gem,$a(0,4))
/if $p4!="" /if $p4!=NULL {
/varset a(0,5) $p4
} else /varset a(0,5) 5
/echo Song 5: $char(gem,$a(0,5))
:Loop
/if n $t1<=$calc($t0+CASTTIME) {
/varset cursong SELOS
}
/if n $t1<=CASTTIME {
/varset t0 1
}
/if n $t0<=0 /call Sing $int($a(0,$cursong))
/call circ $xloc $yloc $radius
/doevents
/goto :Loop
/return
Sub Sing
/varset t0 CASTTIME
/if n $cursong==SELOS /varset t1 1500
/stopsong
/cast $p0
/varset prevsong $cursong
/varadd cursong 1
/if n $cursong>$nsongs /varset cursong 1
/call circ $xloc $yloc $radius
/doevents
/return
sub circ
/if n $distance($p0,$p1)<($p2/2){
/face heading $calc($heading($p0,$p1)+180)
} else {
/face heading $calc($heading($p0,$p1)+$calc(90*$calc($p2/$distance($p0,$p1))))
}
/return
Sub Event_MissedNote
/varset cursong $prevsong
/varset t0 0
/doevents
/return
Sub Event_Slow
/varset cursong SELOS
/varset t0 0
/return
Sub Event_Outran
/varset t0 0
/varadd targcount 1
/if n $targcount>=4 {
/varset targcount 0
/tar npc
}
/call circ $xloc $yloc $radius
/doevents
/return
Sub Event_Recovered
/varset t0 0
/varset cursong $prevsong
/doevents
/return
Sub Event_NeedTarget
/varadd targcount 1
/if n $targcount>=2 {
/varset targcount 0
/tar npc
}
/call circ $xloc $yloc $radius
/doevents
/return
Sub Event_Exp
/varset aaexp $calc($char(aa,exp)-$aaexp)
/varset exper $calc($char(exp)-$exper)
/echo Running time $calc($running/60) minutes
/echo $exper% regular exp $aaexp% AA exp
/varset exper $char(exp)
/varset aaexp $char(aa,exp)
/tar npc
/call circ $xloc $yloc $radius
/doevents
/return
