I just figured I should post the updated version of my cleric script.
It's still under development and far far from finished.
I have made a guesstimate subroutine to guess the hp's of group members, but it's not actually in use yet, I need to rewrite the heal routines first. Also redone the buff_request routine completely, making it check if group buffs would be better or not and saving who got what buffs and so on...
What still needs to be finished; well this is a huge list really... I need to add autofollow, more commands for various things, redo how it listens to commands such. I've been trying to eliminate hardcoded things like buff names and things. Need to redo heals, buff_check, remove uneeded parts.
Maybe I should just say i'm posting it here for people to comment on, and see if anyone would have any request or the like.
Here's the script;
Code: Select all
#turbo
#Chat group
| Simple cleric script by Sarah/Eloasti
#event Fizzle "Your spell fizzles!"
#event Interrupt "Your casting has been interrupted!"
#event Interrupt "Your spell is interrupted."
#event Recover "You haven't recovered yet..."
#event Recover "Spell recovery time not yet met."
#event Stunned "You cannot cast while stunned"
#event Collapse "Your gate is too unstable, and collapses."
#event Healed "You have healed"
|#####################################################################################################|
Sub MAIN
/echo Calling declare variables, set variables and set spells sub routines.
/call DECLARE_VARIABLES
/call SET_VARIABLES
/call SET_SPELLS
/echo Starting script for real!!
:MainLoop
/delay 0
/if n @Combat==0 {
/if n @Group_ID_array==0 {
/echo Calling group array routine.
/call GROUP_ID_ARRAY
}
/if n @Spell_memorize==0 {
/echo Calling memorize spells routine.
/call MEMORIZE_SPELLS
}
/if n @Initial_buffs==0 {
| echo Doing initial buffs.
| call Initial_buffs
}
/if n @Buffs_done==0 {
/echo Calling buff-check routine.
/call BUFF_CHECK
}
/if n @Buffs_requested==1 {
/echo Calling routine to do requested buffs.
/varset Buff_hitpoints_done 0
/call BUFFS_REQUESTED_CAST
}
/if n $char(mana,pct)<50 {
/gsay Low mana, need to meditate.
/sit
/call MEDITATE
/gsay Full mana now.
/stand
}
}
/doevents Chat
/if "$return"=="FIGHT_START" {
/varset Combat 1
/echo Got call. Watching...
/echo Calling subroutine to get this Combats target.
/press ESC
/call GET_TARGET
/echo Got Target, entering Combat loop.
/call COMBAT
}
/goto :MainLoop
|#####################################################################################################|
Sub COMBAT
:grouphpcheck
/for Group_member_number 1 to $group(count)
/doevents Chat
/if "$return"=="FIGHT_STOP" {
/echo Got call, resetting varaibles and returning to Main loop.
/varset Combat 0
/varset Buff_hitpoints_done 0
/varset Buffs_done 0
/varset Got_target 0
/return
}
/if $spawn(@Fight_target,state)==DEAD {
/echo Combat over, resetting varaibles and returning to Main loop.
/varset Combat 0
/varset Buffs_done 0
/varset Buff_hitpoints_done 0
/varset Got_target 0
/return
}
/varset Player $group($calc(@Group_member_number-1))
/if n @Player>0 {
/if n $spawn(@Player,hp,pct)<50 {
/tar id @Player
/delay 1s
/call HEAL_FAST
}
/if n $spawn(@Player,hp,pct)<70 {
/tar id @Player
/delay 1s
/call HEAL
}
}
/next Group_member_number
/goto :grouphpcheck
/return
|---------------------------=================================================-------------------------|
Sub HEAL_FAST
/varset Spell_name "@Fast_heal"
/call SPELL_CAST
/return
Sub HEAL
/varset Spell_name "@Heal"
/call SPELL_CAST
/return
Sub MEDITATE
/sit
/echo Medding...
:medloop
/if n $char(mana,pct)==100 {
/echo Done medding, returning.
/return
}
/goto :medloop
Sub GATE
/cast Gate
/return
|---------------------------=================================================-------------------------|
Sub SPELL_CAST
:castcast
/stand
/cast "@Spell_name"
/varset Spelldelay $spell("@Spell_name",casttime)
/echo Casting @Spell_name on %t, landing in @Spelldelay seconds.
:WaitCast
/if "$char(casting)"=="TRUE" {
/delay 1
/goto :WaitCast
}
/if n @Bad_spell==0 {
/doevents Recover
/if "$return"=="RECOVER" {
/varset Bad_spell 1
/goto :castcast
}
/doevents Stunned
/if "$return"=="STUNNED" {
/varset Bad_spell 1
/goto :castcast
}
/doevents Interrupt
/if "$return"=="INTERRUPT" {
/varset Bad_spell 1
/goto :castcast
}
/doevents Fizzle
/if "$return"=="FIZZLE" {
/varset Bad_spell 1
/goto :castcast
}
}
/varset Bad_spell 0
/sit
/return
|---------------------------=================================================-------------------------|
Sub Event_Fizzle
/echo I fizzled, re-casting spell.
/return FIZZLE
Sub Event_Recover
/echo I need to recover, pausing then trying again.
/delay 2s
/return RECOVER
Sub Event_Interrupt
/echo I was interrupted, re-casting spell.
/return INTERRUPT
Sub Event_Stunned
/echo I was stunned, pausing then trying again.
/delay 3s
/return STUNNED
Sub Event_Collapse
/echo Gate collapsed, re-trying.
/call SPELL_CAST
/return
Sub Event_Healed
/varset Healamount $arg(6,"@Param0")
/return
|---------------------------=================================================-------------------------|
Sub Event_Chat(ChatType,Sender,ChatText)
/if "@ChatText"=="Combat over" /return FIGHT_STOP
/if $arg(1,"@ChatText")=="Assist" {
/varset Puller "@Sender"
/return FIGHT_START
}
/if $arg(1,"@ChatText")==@My_name {
/if "@ChatText"!="@Last_buff_request" {
/if $arg(2,"@ChatText")=="buff" {
/if n @Maximum_buffs_requested==0 {
/varset Last_buff_request "@ChatText"
/varset Buffs_requested 1
/varadd Buff_counting 1
/varset ANeed_buffs(@Buff_counting,0) @Sender
/varset ANeed_buffs(@Buff_counting,1) $arg(3,"@ChatText")
/if n @Buff_counting==$group(count) {
/varset Maximum_buffs_requested 1
}
}
}
}
}
| Outdated atm. |if "@ChatText"=="List array buff" /call BUFFS_REQUESTED_LIST
/if "@ChatText"=="List array group" /call GROUP_REQUESTED_LIST
/return
|---------------------------=================================================-------------------------|
|
| Outdated code atm.
|
| Sub BUFFS_REQUESTED_LIST
| /echo Listing array...
| :listlist
| /for TCounter 1 to @Buff_counting
| /echo -- @NeedBuffName(TCounter) needs @NeedBuff(TCounter)
| /next TCounter
| /echo End of listing, returning.
| /return
|
|
|---------------------------=================================================-------------------------|
Sub GROUP_REQUESTED_LIST
/echo Listing array...
/varset TCounter 1
/for TCounter 1 to $group(count)
/echo
Name(@Group_member(@TCounter,2)(@Group_member(@TCounter,0))),Class(@Group_member(@TCounter,1)),HP(@Group_member(@TCounter,3)),HPBuff(@Group_member(@TCounter,
4)),SH(@Group_member(@TCounter,5)),AC(@Group_member(@TCounter,6)),Symbol(@Group_member(@TCounter,7))
/next TCounter
/echo End of listing, returning.
/return
|---------------------------=================================================-------------------------|
Sub BUFFS_REQUESTED_CAST
/declare tcounter local
/declare ttcounter local
/declare group_member_number local
/declare buff_type local
/declare do_group_hitpoints local
/declare do_group_symbol local
/declare do_group_spell_haste local
/varset do_group_hitpoints 0
/varset do_group_symbol 0
/varset do_group_spell_haste 0
/for Buff_count 1 to @Buff_counting
/for tcounter 1 to $group(count)
/if @Group_member(@tcounter,2)==@ANeed_buffs(@Buff_count,0) {
/varset group_member_number @tcounter
}
/next tcounter
/if @ANeed_buffs(@Buff_count,1)==@Hitpoint_buff {
/varset Group_member(@group_member_number,4)==2
} else /if @ANeed_buffs(@Buff_count,1)==@Symbol_buff {
/varset Group_member(@group_member_number,7)==2
} else /if @ANeed_buffs(@Buff_count,1)==@AC_buff {
/varset Group_member(@group_member_number,6)==2
} else /if @ANeed_buffs(@Buff_count,1)==@Spell_haste_buff {
/varset Group_member(@group_member_number,5)==2
} else {
/varset Buffs_requested 0
/return
}
/next Buff_count
/for tcounter 1 to $group(count)
/if @Group_member(@tcounter,4)==2 {
/varadd do_group_hitpoints 1
}
/if @Group_member(@tcounter,7)==2 {
/varadd do_group_symbol 1
}
/if @Group_member(@tcounter,5)==2 {
/varadd do_group_spell_haste 1
}
/next tcounter
/if @do_group_hitpoints>=3 {
/if @do_group_symbol<=3 {
/if "@ACurrent_Spells(@Buff_spell_number)"!="@Group_hitpoint" {
/varset ASpells(@Buff_spell_number) "@Group_hitpoint"
/call MEMORIZE_SPELLS
/delay 4s
}
/varset Spell_name "@Group_hitpoint"
/for tcounter 1 to $group(count)
/if @Group_member(@tcounter,4)==2 /varset Group_member(@tcounter,4) 1
/if @ANeed_buffs(@tcounter,1)=="@Hitpoint_buff" {
/varset @ANeed_buffs(@tcounter,1) "NotABuff"
}
/next tcounter
/tar Myself
/call SPELL_CAST
}
}
/if @do_group_symbol>=3 {
/if @do_group_hitpoints<=3 {
/if "@ACurrent_Spells(@Buff_spell_number)"!="@Group_symbol" {
/varset ASpells(@Buff_spell_number) "@Group_symbol"
/call MEMORIZE_SPELLS
/delay 4s
}
/varset Spell_name "@Group_symbol"
/for tcounter 1 to $group(count)
/if @Group_member(@tcounter,7)==2 /varset Group_member(@tcounter,7) 1
/if @ANeed_buffs(@tcounter,1)=="@Symbol_buff" {
/varset @ANeed_buffs(@tcounter,1) "NotABuff"
}
/next tcounter
/tar Myself
/call SPELL_CAST
}
}
/if @do_group_spell_haste>=3 {
/if "@ACurrent_Spells(@Buff_spell_number)"!="@Group_haste" {
/varset ASpells(@Buff_spell_number) "@Group_haste"
/call MEMORIZE_SPELLS
/delay 4s
}
/varset Spell_name "@Group_haste"
/for tcounter 1 to $group(count)
/if @Group_member(@tcounter,5)==2 /varset Group_member(@tcounter,5) 1
/if @ANeed_buffs(@tcounter,1)=="@Spell_haste_buff" {
/varset @ANeed_buffs(@tcounter,1) "NotABuff"
}
/next tcounter
/echo I'm doing something wrong!!
/tar Myself
/call SPELL_CAST
}
/for Buff_count 1 to @Buff_counting
/for tcounter 1 to $group(count)
/if @Group_member(@tcounter,2)==@ANeed_buffs(@Buff_count,0) {
/varset group_member_number @tcounter
}
/next tcounter
/if "@ANeed_buffs(@Buff_count,1)"!="NotABuff" {
/if "@ANeed_buffs(@Buff_count,1)"=="@Hitpoint_buff" {
/tar "@ANeed_buffs(@Buff_count,0)"
/delay 1s
/if "@ACurrent_Spells(@Buff_spell_number)"!="@ANeed_buffs(@Buff_count,1)" {
/varset ASpells(@Buff_spell_number) "@ANeed_buffs(@Buff_count,1)"
/call MEMORIZE_SPELLS
/delay 4s
}
/varset Spell_name "@ANeed_buffs(@Buff_count,1)"
/varset Group_member(@group_member_number,4)==1
/call SPELL_CAST
} else /if "@ANeed_buffs(@Buff_count,1)"=="@Symbol_buff" {
/tar "@ANeed_buffs(@Buff_count,0)"
/delay 1s
/if "@ACurrent_Spells(@Buff_spell_number)"!="@ANeed_buffs(@Buff_count,1)" {
/varset ASpells(@Buff_spell_number) "@ANeed_buffs(@Buff_count,1)"
/call MEMORIZE_SPELLS
/delay 4s
}
/varset Spell_name "@ANeed_buffs(@Buff_count,1)"
/varset Group_member(@group_member_number,7)==1
/call SPELL_CAST
} else /if "@ANeed_buffs(@Buff_count,1)"=="@AC_buff" {
/tar "@ANeed_buffs(@Buff_count,0)"
/delay 1s
/if "@ACurrent_Spells(@Buff_spell_number)"!="@ANeed_buffs(@Buff_count,1)" {
/varset ASpells(@Buff_spell_number) "@ANeed_buffs(@Buff_count,1)"
/call MEMORIZE_SPELLS
/delay 4s
}
/varset Spell_name "@ANeed_buffs(@Buff_count,1)"
/varset Group_member(@group_member_number,6)==1
/call SPELL_CAST
} else /if "@ANeed_buffs(@Buff_count,1)"=="@Spell_haste_buff" {
/tar "@ANeed_buffs(@Buff_count,0)"
/delay 1s
/if "@ACurrent_Spells(@Buff_spell_number)"!="@ANeed_buffs(@Buff_count,1)" {
/varset ASpells(@Buff_spell_number) "@ANeed_buffs(@Buff_count,1)"
/call MEMORIZE_SPELLS
/delay 4s
}
/varset Spell_name "@ANeed_buffs(@Buff_count,1)"
/varset Group_member(@group_member_number,5)==1
/call SPELL_CAST
} else {
/echo Something is very wrong here!
}
}
/next Buff_count
/varset do_group_spell_haste 0
/varset do_group_hitpoints 0
/varset do_group_symbol 0
/varset Buffs_requested 0
/varset Buff_counting 0
/varset Maximum_buffs_requested 0
/echo Done buffing, returning to main loop.
/return
|---------------------------=================================================-------------------------|
Sub MEMORIZE_SPELLS
/declare counter local
/declare currentspell local
/varset counter 1
/for counter 1 to 8
/varset currentspell "$char(gem,@counter)"
/if "@currentspell"!="@ASpells(@counter)" {
/memspell @counter "@ASpells(@counter)"
:memloop
/if $char(spellbook)==TRUE {
/goto :memloop
}
}
/next counter
/varset counter 1
/for counter 1 to 8
/varset ACurrent_spells(@counter) "$char(gem,@counter)"
/next counter
/varset Spell_memorize 1
/echo Done memorizing and saving spells. Returning to calling sub routine
/return
|---------------------------=================================================-------------------------|
Sub BUFF_CHECK
/if n $char(buff,"@Hitpoint_buff")==0 {
/echo Buffing @Hitpoint_buff .
/varset Buff_hitpoints_done 0
/varset Spell_name "@Hitpoint_buff"
/tar MySelf
/call SPELL_CAST
/varset Buff_hitpoints_done 1
}
/if n $char(buff,"@Self_buff")==0 {
/echo Buffing @Self_buff .
/varset Spell_name "@Self_buff"
/tar MySelf
/call SPELL_CAST
}
/if n @Buffs_requested==1 {
/echo Buffs has been requested, checking who and what.
/call BUFFS_REQUESTED_CAST
}
/echo Buff-Check routine finished, returning.
/varset Buffs_done 1
/return
|---------------------------=================================================-------------------------|
Sub GET_TARGET
/echo Simple assist call to get target.
:gettarget
/assist @Puller
/varset Fight_target $target(id)
/if n @Fight_target>0 {
/varset Got_target 1
} else {
/varset Got_target 0
/goto :gettarget
}
/return
|---------------------------=================================================-------------------------|
Sub GROUP_ID_ARRAY
/declare groupsize local
/varset groupsize $group(count)
/varset Group_member_number 1
/if n @groupsize>1 {
/echo Adding group members ID, HP and class to group array.
/echo -- Groupsize @groupsize --
/for Group_member_number 1 to @groupsize
/echo -- Groupmember number @Group_member_number is being processed. --
/varset PlayerN $group($calc(@Group_member_number-1))
/if n @PlayerN>0 {
/delay 1
/varset Group_member(@Group_member_number,0) $spawn(@PlayerN,id)
/varset Group_member(@Group_member_number,1) $spawn(@PlayerN,class)
/varset Group_member(@Group_member_number,2) $spawn(@PlayerN,name,clean)
/varset Group_member(@Group_member_number,3) 0
/varset Group_member(@Group_member_number,4) 0
/if $spawn(@PlayerN,class)==Warrior {
/varset Group_member(@Group_member_number,5) 3
} else /if $spawn(@PlayerN,class)==Monk {
/varset Group_member(@Group_member_number,5) 3
} else /if $spawn(@PlayerN,class)==Rogue {
/varset Group_member(@Group_member_number,5) 3
} else {
/varset Group_member(@Group_member_number,5) 0
}
/varset Group_member(@Group_member_number,6) 0
/varset Group_member(@Group_member_number,7) 0
}
/next Group_member_number
/varset Group_ID_array 1
/echo Added all group members to group array, returning.
} else {
/echo Just me here, adding myself to group array.
/tar MySelf
/delay 1s
/varset Group_member(1,0) $target(id)
/varset Group_member(1,3) $target(hp,max)
/varset Group_member(1,1) $target(class)
/varset Group_member(1,2) $target(name,clean)
/varset Group_member(1,4) 0
/varset Group_member(1,5) 0
/varset Group_member(1,6) 0
/varset Group_member(1,7) 0
/varset Group_ID_array 1
}
/return
|---------------------------=================================================-------------------------|
Sub GUESSTIMATE
/echo Setting variables for Guesstimate.
/declare playername local
/declare playerhpstart local
/declare playerhpend local
/declare playermaxhp local
/declare healamountpct local
/declare tempvariable local
/declare maxhp local
/varset playername $spawn(@PlayerN,name,clean)
/varset playerhpstart $spawn(@PlayerN,hp,pct)
/varset playerhpend 0
/varset playermaxhp 0
/varset healamountpct 0
/varset tempvariable 0
/varset maxhp 0
/varset Spell_name "@Fast_heal"
/call SPELL_CAST
/doevents
/varset playerhpend $spawn(@PlayerN,hp,pct)
/varcalc healamountpct @playerhpend-@playerhpstart
/varcalc tempvariable @healamount/@healamountpct
/varcalc maxhp @tempvariable*100
/echo Max hitpoints for @playername should be @maxhp, saving that.
/varset Group_member(@Group_member_number,3) @maxhp
/return
|---------------------------=================================================-------------------------|
| Variables; global start with CAPITAL letter, local start with lower case letter.
| Array start with CAPITAL A for global, local start with lower case a.
| Variables that are only temporary and used in several routines start with CAPITAL T if they are
| global, else they start with lower case t.
| (This organization still need to be put in when cleaning up the code, some are done some are not.)
|-----------------------------------------------------------------------------------------------------|
Sub DECLARE_VARIABLES
/declare Spell_name global
/declare Spelldelay global
/declare Fast_heal global
/declare Heal global
/declare Hot_heal global
/declare Hot_group_heal global
/declare Group_member_number global
/declare Owner global
/declare Player global
/declare Combat global
/declare Bad_spell global
/declare Spell_memorize global
/declare Hitpoint_buff global
/declare Symbol_buff global
/declare Self_buff global
/declare AC_buff global
/declare Spell_haste_buff global
/declare Group_hitpoint global
/declare Group_symbol global
/declare Group_haste global
/declare Buffs_done global
/declare Puller global
/declare Fight_target global
/declare ANeed_buffs array2
/declare PlayerN global
/declare Buff_count global
/declare Buffs_requested global
/declare Maximum_buffs_requested global
/declare Buff_hitpoints_done global
/declare Got_target global
/declare Buff_counting global
/declare AHeal_order array
/declare Heal_set global
/declare Group_ID_array global
/declare Group_member array2
/declare TCounter global
/declare ASpells array
/declare ACurrent_spells array
/declare Healamount global
/declare Buff_spell_number global
/declare I_called global
/declare My_name global
/declare Last_buff_request global
/declare Initial_buffs global
/return
|---------------------------=================================================-------------------------|
Sub SET_VARIABLES
/varset I_called 0
/varset Spell_name " "
/varset Fast_heal "Ethereal Remedy"
/varset Heal "Complete Healing"
/varset Hot_heal "Supernal Elixir"
/varset Hot_group_heal "Ethereal Elixir"
/varset Spelldelay 0
/varset Group_member_number 0
/varset Combat 0
/varset Bad_spell 0
/varset Spell_memorize 0
/varset Hitpoint_buff "Hand of Virtue"
/varset Self_buff "Armor of the Zealot"
/varset Buffs_done 1
/varset Puller " "
/varset Fight_target 0
/varset Buff_count 0
/varset Buffs_requested 0
/varset Maximum_buffs_requested 0
/varset Buff_hitpoints_done 0
/varset Got_target 0
/varset Buff_counting 0
/varset AHeal_order(1) 0
/varset Heal_set 0
/varset Group_ID_array 0
/varset TCounter 0
/varset Healamount 0
/varset Initial_buffs 0
/tar Myself
/varset My_name $target(name,clean)
/echo My name : @My_name
/return
|---------------------------=================================================-------------------------|
Sub SET_SPELLS
/varset Hitpoint_buff "Virtue"
/varset Symbol_buff "Symbol of Kazaad"
/varset Self_buff "Armor of the Zealot"
/varset AC_buff "Bulwark of Faith"
/varset Spell_haste_buff "Blessing of Reverence"
/varset Group_hitpoint "Hand of Virtue"
/varset Group_symbol "Kazaad`s Mark"
/varset Group_haste "Aura of Reverence"
/varset Buff_spell_number 5
/varset ASpells(1) "Complete Healing"
/varset ASpells(2) "Ethereal Remedy"
/varset ASpells(3) "Supernal Elixir"
/varset ASpells(4) "Ethereal Elixir"
/varset ASpells(5) "Hand of Virtue"
/varset ASpells(6) "Armor of the Zealot"
/varset ASpells(7) "Gate"
/varset ASpells(8) "Divine Barrier"
/for TCounter 1 to 8
/varset ACurrent_spells(@TCounter) "$char(gem,@TCounter)"
/next TCounter
/return
Sub End
/endmacro
Enjoy!!
