Mikey

menu * {
  .WillScape
  ..Combat Goals
  ...Show:/wsshowcmb
  ...Update:/wscmbupdate
}
alias wsshowcmb {
  msg $active [WillScape Combat Goals for Mikey]:
  msg $active [Attack] $+(%wsatt,$chr(47),99,$chr(160),.:.) [Strength] $+(%wsstr,$chr(47),99,$chr(160),.:.) [Defense] $+(%wsdef,$chr(47),99,$chr(160),.:.) [Hitpoints] $+(%wshp,$chr(47),99,$chr(160),.:.) [Range] $+(%wsrange,$chr(47),99,$chr(160),.:.) [Magic] $+(%wsmage,$chr(47),99,$chr(160),.:.) [Prayer] $+(%wspray,$chr(47),99,$chr(160),.:.) [Slayer] $+(%wsslay,$chr(47),99)                                                                  
}
alias wscmbupdate {
  set %wsatt $?="Attack:"
  set %wsstr $?="Strength:"
  set %wsdef $?="Defense:"
  set %wshp $?="Hitpoints:"
  set %wsrange $?="Range:"
  set %wsmage $?="Magic:"
  set %wspray $?="Prayer:"
  set %wsslay $?="Slayer:"
}


menu * {
  .WillScape
  ..Other Goals
  ...Show:/wsshowother
  ...Update:/wsotherupdate
}
alias wsshowother {
  msg $active [WillScape Other Goals for Mikey]:
  msg $active [Smithing] $+(%wssmith,$chr(47),99,$chr(160),.:.) [Woodcutting] $+(%wswc,$chr(47),99)
}
alias wsotherupdate {
  set %wssmith $?="Smithing:"
  set %wswc $?="Woodcutting:"
}


menu * {
  .WillScape
  ..Level
  ...+:/lvlup
  ...-:/lvldown
}
alias lvlup {
  set %wsskill+ $?="Skill:"
  lvlup2
}
alias lvlup2 {
  if (%wsskill+ == att) || (%wsskill+ == attack) {
    inc %wsatt 1
  }
  if (%wsskill+ == str) || (%wsskill+ == strength) {
    inc %wsstr 1
  }
  if (%wsskill+ == def) || (%wsskill+ == defense) {
    inc %wsdef 1
  }
  if (%wsskill+ == hp) || (%wsskill+ == hitpoints) {
    inc %wshp 1
  }
  if (%wsskill+ == range) || (%wsskill+ == arch) {
    inc %wsrange 1
  }
  if (%wsskill+ == mage) || (%wsskill+ == magic) {
    inc %wsmage 1
  }
  if (%wsskill+ == pray) || (%wsskill+ == prayer) {
    inc %wspray 1
  }
  if (%wsskill+ == slay) || (%wsskill+ == slayer) {
    inc %wsslay 1
  }
  if (%wsskill+ == wc) || (%wsskill+ == woodcutting) || (%wsskill+ == woodcut) {
    inc %wswc 1
  }
  if (%wsskill+ == smith) || (%wsskill+ == smithing) {
    inc %wssmith 1
  }
}
alias lvldown {
  set %wsskill- $?="Skill:"
  lvldown2
}
alias lvldown2 {
  if (%wsskill- == att) || (%wsskill- == attack) {
    dec %wsatt 1
  }
  if (%wsskill- == str) || (%wsskill- == strength) {
    dec %wsstr 1
  }
  if (%wsskill- == def) || (%wsskill- == defense) {
    dec %wsdef 1
  }
  if (%wsskill- == hp) || (%wsskill- == hitpoints) {
    dec %wshp 1
  }
  if (%wsskill- == range) || (%wsskill- == arch) {
    dec %wsrange 1
  }
  if (%wsskill- == mage) || (%wsskill- == magic) {
    dec %wsmage 1
  }
  if (%wsskill- == pray) || (%wsskill- == prayer) {
    dec %wspray 1
  }
  if (%wsskill- == slay) || (%wsskill- == slayer) {
    dec %wsslay 1
  }
  if (%wsskill- == wc) || (%wsskill- == woodcutting) || (%wsskill+ == woodcut) {
    dec %wswc 1
  }
  if (%wsskill- == smith) || (%wsskill- == smithing) {
    dec %wssmith 1
  }
}


menu * {
  .WillScape
  ..Other
  ...Show Both Goals:/wsbothshow
}
alias wsbothshow {
  msg $active [WillScape Goals for Mikey]:
  msg $active [Attack] $+(%wsatt,$chr(47),99,$chr(160),.:.) [Strength] $+(%wsstr,$chr(47),99,$chr(160),.:.) [Defense] $+(%wsdef,$chr(47),99,$chr(160),.:.) [Hitpoints] $+(%wshp,$chr(47),99,$chr(160),.:.) [Range] $+(%wsrange,$chr(47),99,$chr(160),.:.) [Magic] $+(%wsmage,$chr(47),99,$chr(160),.:.) [Prayer] $+(%wspray,$chr(47),99,$chr(160),.:.) [Slayer] $+(%wsslay,$chr(47),99,$chr(160),.:.) [Smithing] $+(%wssmith,$chr(47),99,$chr(160),.:.) [Woodcutting] $+(%wswc,$chr(47),99) 
}