Help with this rogue mac please

[tranze204]

Rogueskills.mac
|Syntax /macro Rogueskills

#turbo

| Try to set the events that shall count the training effect.

#event SkillUpSneak "You have become better at Sneak"
#event SkillUpDisarm "You have become better at Disarm"
#event SkillUpHide "You have become better at Hide"
#event SkillUpPick "You have become better at Pick"
#event SkillUpSense "You have become better at Sense"
#event SkillUpInt "You have become better at Intimi"
#event skillups "You have become better at"

| Declare the variables with values and run the skilluse.

Sub Main
/echo I'm a rogue. Fear my skills...In about a few hours.

/declare SkillUpSneak global
/declare SkillUpDisarm global
/declare SkillUpHide global
/declare SkillUpPick global
/declare SkillUpSense global
/declare SkillUpInt global
/declare SkillUps global
/declare DurationHr global
/declare DurationMin global
/declare DurationSec global

/varset SkillUpSneak 0
/varset SkillUpDisarm 0
/varset SkillUpHide 0
/varset SkillUpPick 0
/varset SkillUpSense 0
/varset SkillUpInt 0
/varset SkillUps 0


:start
/call Hide
/delay 1s
/call Sneak
/delay 1s
/call SenseTraps
/delay 1s
/call Disarm
/delay 1s
/call Intimidate
/delay 1s
/call Pocket
/delay 2s
/doevents
/call Showstats
/goto :start

/return

Sub Sneak
/if n $char(ability,"Sneak")!=-2 {
/doability Sneak
/doability Sneak
}
/return

Sub Hide
/if n $char(ability,"Hide")!=-2 {
/doability Hide
/doability Hide
}
/return

Sub sensetraps
/if n $char(ability,"Sense traps")!=-2 {
/doability "Sense Traps"
}
/return

Sub Disarm
/if n $char(ability,"disarm")!=-2 {
/doability disarm
}
/return

Sub Intimidate
/if n $char(ability,"Intimidation")!=-2 {
/doability Intimidation
}
/return

Sub Pocket
/if n $char(ability,"Pick Pockets")!=-2 {
/doability "Pick Pockets"
}
/return

Sub ShowStats
/echo Test
/echo ! $int(@SkillupSneak) Sneak!
/echo ! $int(@SkillupDisarm) Disarm!
/echo ! $int(@SkillupHide) Hide!
/echo ! $int(@SkillupPick) Pick pocket!
/echo ! $int(@SkillupSense) Sense Trap!
/echo ! $int(@SkillupInt) Intimidate!
/echo ! $int(@SkillUps) skill ups!
/call GetDuration
/return

Sub GetDuration
/varset DurationSec $calc($running%60)
/varset DurationMin $calc($calc($running%3600)\60)
/varset DurationHr $calc($running\3600)
/echo Time Elapsed: $int(@DurationHr) Hours, $int(@DurationMin) Minutes, $int(@DurationSec) Seconds.
/return

Sub Event_SkillUpsneak
/varadd SkillUpsneak 1
/return
Sub Event_SkillUphide
/varadd SkillUphide 1
/return
Sub Event_SkillUpDisarm
/varadd SkillUpDisarm 1
/return
Sub Event_SkillUpSense
/varadd SkillUpsneak 1
/return
Sub Event_SkillUpInt
/varadd SkillUpInt 1
/return
Sub Event_SkillUpPick
/varadd SkillUpPick 1
/return


Sub Event_SkillUps
/varadd SkillUps 1
/return


-------------------------------------------------------------------------------------

Can someone help me its saying i dont seem to have that skill on /doability or something like that and i pasted exact code and everything...please

[Stix]

Try it like this.

Replace

Code: Select all

 /if n $char(ability,"disarm")!=-2 { 
/doability disarm 
} 

with

Code: Select all

/newif (${Me.AbilityReady[disarm]}) /doability "disarm" 

This is IF you are using the new MQ2Data.

[Oid]

wts code tags, cheap