;============================================================
;Wavestorm - By Jarel Jones (http://wavestorm.rangerwiki.com)
;============================================================
;
;Information on file usage in Readme.txt.
;This file contains the following:
;Custom window and dialog code pt. 1.

alias wavewindow {
  if ((!$window(@Wavestorm)) && ($window(%wavechat))) {
    if (%wavestorm-fullscreen == 1) { window -adel30g2k0vx @Wavestorm "Verdana Ref" $round($calc($window(-1).w / 85),0) " $+ $scriptdirWavestorm.ico" }
    else { window -ael30g2k0vx @Wavestorm "Verdana Ref" $round($calc($window(-1).w / 85),0) " $+ $scriptdirWavestorm.ico" }
    wavedialog
    set %wavewindowtopic 1
    wavewindowreset
} }

alias wavewindowreset {
  if (($window(@Wavestorm)) && ($window(%wavechat))) {
    if (%wavewindowtopic == 1) {
      aline -p $color(topic) @Wavestorm * Now talking in %wavechat
      aline -p $color(topic) @Wavestorm * Topic is ' $+ $chan(%wavechat).topic $+ $+(,$color(topic)) $+ '
      unset %wavewindowtopic
      ;var %wavestorm-vcheck = $right($gettok($chan(%wavechat).topic,14,32),-1)
      ;if ((%wavestorm-vcheck isnum) && (%wavestorm-vcheck > %waveversion)) {
      ;  aline -p $color(text) @Wavestorm * According to the topic in %wavechat $+ , version %wavestorm-vcheck was released on $gettok($chan(%wavechat).topic,17-21,32) and is a newer version than the one you have, %waveversion $+ .  Please download it at $gettok($chan(%wavechat).topic,11,32)
      ;}
    }
    if ($sline(@Wavestorm,1).ln) { var %wavewindowresetline = $sline(@Wavestorm,1).ln }
    dline -l @Wavestorm $+(1-,$line(@Wavestorm,0,1))
    aline -l $color(text) @Wavestorm Wavestorm %waveversion - Stats
    aline -l $color(text) @Wavestorm ------------------------------
    if (%wavestorm-battleon != 1) {
      if (!$hget(Player)) {
        set %wavestorm-fakehash 1
        hmake Player 10
        hadd Player HealthPoints 0
        hadd Player MagicPoints 0
        hadd Player Color N/A
        hadd Player Weaponname N/A
        hadd Player Level 0
        hadd Player CurrentExperience 0
        hadd Player NeededExperience 0
        hadd Player AbilityPoints 0
        hadd Player Credits 0
      }
      aline -l $color(text) @Wavestorm Euphometer (HP) - $hget(Player,HealthPoints)
      aline -l $color(text) @Wavestorm Aurometer (MP) - $hget(Player,MagicPoints)
      aline -l $color(text) @Wavestorm Wavelength - $hget(Player,Color)
      aline -l $color(text) @Wavestorm Weapon - $hget(Player,Weaponname)
      aline -l $color(text) @Wavestorm Level - $hget(Player,Level)
      aline -l $color(text) @Wavestorm Kenometer (EXP) - $+($hget(Player,CurrentExperience),/,$hget(Player,NeededExperience))
      aline -l $color(text) @Wavestorm Dextometer (AP) - $hget(Player,AbilityPoints)
      aline -l $color(text) @Wavestorm Omnis (GP) - $hget(Player,Credits)
      if (%wavestorm-fakehash == 1) {
        hfree Player
        unset %wavestorm-fakehash
      }
      aline -l $color(text) @Wavestorm ------------------------------
      aline -l $color(text) @Wavestorm Nicklist
      aline -l $color(text) @Wavestorm ------------------------------
      set %wavestorm-windownicklist 1
      :loop
      if ($nick(%wavechat,%wavestorm-windownicklist) isop %wavechat) { set -n %wavestorm-windownickstatus $chr(64) }
      elseif ($nick(%wavechat,%wavestorm-windownicklist) isvoice %wavechat) { set -n %wavestorm-windownickstatus $chr(43) }
      else { set -n %wavestorm-windownickstatus $chr(45) }
      aline -l $color(text) @Wavestorm $+(%wavestorm-windownickstatus,$nick(%wavechat,%wavestorm-windownicklist))
      inc %wavestorm-windownicklist 1
      if (%wavestorm-windownicklist > $nick(%wavechat,0)) {
        unset %wavestorm-windownicklist
        unset -n %wavestorm-windownickstatus
        return
      }
      else { goto loop }
    }
    else {
      if (%wavestorm-hp <= $calc($hget(Player,HealthPoints) * .1)) { aline -l $color(text) @Wavestorm Euphometer (HP) -4 $+(%wavestorm-hp,/,$hget(Player,HealthPoints)) }
      else { aline -l $color(text) @Wavestorm Euphometer (HP) - $+(%wavestorm-hp,/,$hget(Player,HealthPoints)) }
      if (%wavestorm-mp <= $calc($hget(Player,MagicPoints) * .1)) { aline -l $color(text) @Wavestorm Aurometer (MP) -12 $+(%wavestorm-mp,/,$hget(Player,MagicPoints)) }
      else { aline -l $color(text) @Wavestorm Aurometer (MP) - $+(%wavestorm-mp,/,$hget(Player,MagicPoints)) }
      if (%wavestorm-omega >= 100) { aline -l $color(text) @Wavestorm Omega Meter - $+(%wavestorm-omega,/,100) }
      else { aline -l $color(text) @Wavestorm Omega Meter - $+(%wavestorm-omega,/,100) }
      if (%wavestorm-z01 == 1) { set -n %wavestorm-windowstatus Unconscious -  }
      else {
        if ((%wavestorm-z00) && (%wavestorm-z00 == 1)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Rescue -  }
        if ((%wavestorm-z02) || (%wavestorm-z02 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Poisoned -  }
        if ((%wavestorm-z03) || (%wavestorm-z03 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Foritified -  }
        if ((%wavestorm-z04) || (%wavestorm-z04 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Asleep -  }
        if ((%wavestorm-z05) || (%wavestorm-z05 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Hasted -  }
        if ((%wavestorm-z06) || (%wavestorm-z06 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Slowed -  }
        if ((%wavestorm-z07) || (%wavestorm-z07 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Stopped -  }
        if ((%wavestorm-z08) || (%wavestorm-z08 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Weakened -  }
        if ((%wavestorm-z09) || (%wavestorm-z09 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Regenerating -  }
        if ((%wavestorm-z10) || (%wavestorm-z10 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Dodge Up -  }
        if ((%wavestorm-z11) || (%wavestorm-z11 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Drained -  }
        if ((%wavestorm-z12) || (%wavestorm-z12 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Energized -  }
        if ((%wavestorm-z13) || (%wavestorm-z13 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Cloned -  }
        if ((%wavestorm-z14) || (%wavestorm-z14 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Reflecting -  }
        if ((%wavestorm-z15) || (%wavestorm-z15 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Teleporting -  }
        if ((%wavestorm-z16) || (%wavestorm-z16 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus M. Fortified -  }
        if ((%wavestorm-z17) || (%wavestorm-z17 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Frenzied -  }
        if ((%wavestorm-z18) || (%wavestorm-z18 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Shadow -  }
        if ((%wavestorm-z19) || (%wavestorm-z19 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Neutralized -  }
        if ((%wavestorm-z20) || (%wavestorm-z20 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Barrier -  }
        if ((%wavestorm-z21) || (%wavestorm-z21 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Void -  }
        if ((%wavestorm-z22) || (%wavestorm-z22 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Confused -  }
        if ((%wavestorm-z23) || (%wavestorm-z23 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Blurred -  }
        if ((%wavestorm-z24) || (%wavestorm-z24 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus L. Shielded -  }
      }
      set -n %wavestorm-windowstatus $left(%wavestorm-windowstatus,-2)
      if (%wavestorm-windowstatus == $null) { set -n %wavestorm-windowstatus Normal }
      aline -l $color(text) @Wavestorm Status - %wavestorm-windowstatus
      unset %wavestorm-windowstatus
      aline -l $color(text) @Wavestorm ------------------------------
      aline -l $color(text) @Wavestorm Allies
      wavecolor $hget(Player,Wavelength)
      aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,$me)
      unset %wavecolor*
      if (%wavestorm-melee != 1) {
        if (%wavestorm-friend1) {
          wavecolor $readini(" $+ $scriptdirWSInfo3.ini",%wavestorm-friend1,color)
          aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,%wavestorm-friend1)
          unset %wavecolor*
        }
        if (%wavestorm-friend2) {
          wavecolor $readini(" $+ $scriptdirWSInfo3.ini",%wavestorm-friend2,color)
          aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,%wavestorm-friend2)
          unset %wavecolor*
        }
        if (%wavestorm-friend3) {
          wavecolor $readini(" $+ $scriptdirWSInfo3.ini",%wavestorm-friend3,color)
          aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,%wavestorm-friend3)
          unset %wavecolor*
        }
        aline -l $color(text) @Wavestorm ------------------------------
        aline -l $color(text) @Wavestorm Opponents
        wavecolor $readini(" $+ $scriptdirWSInfo3.ini",%wavestorm-enemy1,color)
        aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,%wavestorm-enemy1)
        unset %wavecolor*
        if (%wavestorm-enemy2) {
          wavecolor $readini(" $+ $scriptdirWSInfo3.ini",%wavestorm-enemy2,color)
          aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,%wavestorm-enemy2)
          unset %wavecolor*
        }
        if (%wavestorm-enemy3) {
          wavecolor $readini(" $+ $scriptdirWSInfo3.ini",%wavestorm-enemy3,color)
          aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,%wavestorm-enemy3)
          unset %wavecolor*
        }
        if (%wavestorm-enemy4) {
          wavecolor $readini(" $+ $scriptdirWSInfo3.ini",%wavestorm-enemy4,color)
          aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,%wavestorm-enemy4)
          unset %wavecolor*
      } }
      else {
        aline -l $color(text) @Wavestorm ------------------------------
        aline -l $color(text) @Wavestorm Opponents
        set %addnick 1
        :loop1
        if (($readini(" $+ $scriptdirWSInfo3.ini",$nick(%wavechat,%addnick),z01) isnum 0 - 1) && ($nick(%wavechat,%addnick) != $me)) {
          wavecolor $readini(" $+ $scriptdirWSInfo3.ini",$nick(%wavechat,%addnick),color)
          aline -l $color(text) @Wavestorm $+(,%wavecolor1,$chr(44),%wavecolor2,$nick(%wavechat,%addnick))
          unset %wavecolor*
        }
        inc %addnick 1
        if (%addnick > $nick(%wavechat,0)) {
          if (!$line(@Wavestorm,12,1)) { aline -l $color(text) @Wavestorm None } 
          unset %addnick
        }
        else { goto loop1 }
      }
      aline -l $color(text) @Wavestorm ------------------------------
      aline -l $color(text) @Wavestorm Spectators
      set %wavestorm-spectatorloopnum 1
      :spectatorloop
      if (($nick(%wavechat,%wavestorm-spectatorloopnum) != $me) && ($readini(" $+ $scriptdirWSInfo3.ini",$nick(%wavechat,%wavestorm-spectatorloopnum),z01) !isnum 0 - 1)) {
        aline -l $color(text) @Wavestorm $nick(%wavechat,%wavestorm-spectatorloopnum)
      }
      inc %wavestorm-spectatorloopnum 1
      if (%wavestorm-spectatorloopnum <= $nick(%wavechat,0)) { goto spectatorloop }
      unset %wavestorm-spectatorloopnum
    }
    if (%wavewindowresetline isnum) { sline -l @Wavestorm %wavewindowresetline }
} }


on *:TEXT:*:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(text) @Wavestorm $+(<,$nick,>) $1- } }
on *:ACTION:*:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(action) @Wavestorm * $nick $1- } }
on *:TOPIC:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(topic) @Wavestorm * $nick changes topic to $+(',$1-,,$color(topic),') } }
on *:NOTICE:*:%wavechat: { 
  if ($left($1-,9) != Wavestorm) {
    if ($window(@Wavestorm)) { aline -ip $color(notice) @Wavestorm $+(-,$nick,- $1-) }
} }
on *:NOTICE:*:?: { 
  if (($left($1-,9) != Wavestorm) && ($nick ison %wavechat)) {
    if ($window(@Wavestorm)) { aline -ip $color(notice) @Wavestorm $+(-,$nick,- $1-) }
} }
CTCP *:*:%wavechat: { if ($window(@Wavestorm)) { 
    if ($1 == ping) {
      aline -ip $color(ctcp) @Wavestorm $+([,$nick,:) %wavechat $+($1,])
    }
    else {
      aline -ip $color(ctcp) @Wavestorm $+([,$nick,:) %wavechat $+($1,]) $2-
} } }
on *:JOIN:%wavechat: { 
  if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(join) @Wavestorm * $nick has joined %wavechat
    if ($dialog(Targets)) { targetsrefresh }
  }
  else {
    if ($nick == $me) {
      .timer 1 3 wavewindow
} } }
on *:PART:%wavechat: { 
  if ($dialog(Targets)) { targetsrefresh }
  if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(part) @Wavestorm * $nick has left %wavechat
} }
on *:KICK:%wavechat: { 
  if ($dialog(Targets)) { targetsrefresh }
  if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(kick) @Wavestorm * $knick was kicked by $nick $+($chr(40),$1-,$chr(41))
} }
on *:NICK: { 
  if ($dialog(Targets)) { targetsrefresh }  
  if ($window(@Wavestorm)) { 
    wavewindowreset
    if ($newnick ison %wavechat) { aline -ip $color(nick) @Wavestorm * $nick is now known as $newnick }
} }
on *:MODE:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(mode) @Wavestorm * $nick sets mode: $1- } }
on *:SERVERMODE:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(mode) @Wavestorm * $nick sets mode: $1- } }
on *:BAN:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(mode) @Wavestorm * $nick sets mode: $1- } }
on *:UNBAN:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(mode) @Wavestorm * $nick sets mode: $1- } }
on *:OP:%wavechat: { if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(mode) @Wavestorm * $nick sets mode: $1-
} }
on *:DEOP:%wavechat: { if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(mode) @Wavestorm * $nick sets mode: $1-
} }
on *:SERVEROP:%wavechat: { if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(mode) @Wavestorm * $nick sets mode: $1-
} }
on *:SERVERDEOP:%wavechat: { if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(mode) @Wavestorm * $nick sets mode: $1-
} }
on *:VOICE:%wavechat: { if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(mode) @Wavestorm * $nick sets mode: $1-
} }
on *:DEVOICE:%wavechat: { if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(mode) @Wavestorm * $nick sets mode: $1-
} }
on *:SERVERVOICE:%wavechat: { if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(mode) @Wavestorm * $nick sets mode: $1-
} }
on *:SERVERDEVOICE:%wavechat: { if ($window(@Wavestorm)) {
    wavewindowreset
    aline -ip $color(mode) @Wavestorm * $nick sets mode: $1-
} }
on *:HELP:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(mode) @Wavestorm * $nick sets mode: $1- } }
on *:DEHELP:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(mode) @Wavestorm * $nick sets mode: $1- } }
on *:SERVERHELP:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(mode) @Wavestorm * $nick sets mode: $1- } }
on *:SERVERDEHELP:%wavechat: { if ($window(@Wavestorm)) { aline -ip $color(mode) @Wavestorm * $nick sets mode: $1- } }
on *:QUIT: { 
  if ($dialog(Targets)) { targetsrefresh }
  if ($window(@Wavestorm)) {
    if (%wavestorm-battleon != 1) { set %quitcheck 14 }
    else { set %quitcheck 9 }
    :quitcheck
    if ($nick isin $line(@Wavestorm,%quitcheck,1)) {
      wavewindowreset
      aline -ip $color(quit) @Wavestorm * $nick has quit IRC $+($chr(40),$1-,$chr(41))
      unset %quitcheck
      return
    }
    else {
      inc %quitcheck 1
      if (%quitcheck > $line(@Wavestorm,0,1)) {
        unset %quitcheck
        return
      }
      goto quitcheck
} } }


on *:INPUT:%wavechat: {
  if ($left($1,1) != $chr(47)) { if ($window(@Wavestorm)) { aline -ip $color(text) @Wavestorm $+(<,$me,>) $1- } }
  elseif ($1 == $+($chr(47),say)) { if ($window(@Wavestorm)) { aline -ip $color(text) @Wavestorm $+(<,$me,>) $2- } }
  elseif ($1-2 == $+($chr(47),msg) %wavechat) { if ($window(@Wavestorm)) { aline -ip $color(text) @Wavestorm $+(<,$me,>) $3- } }
  elseif ($1 == $+($chr(47),me)) { if ($window(@Wavestorm)) { aline -ip $color(action) @Wavestorm * $me $2- } }
  elseif ($1-2 == $+($chr(47),describe) %wavechat) { if ($window(@Wavestorm)) { aline -ip $color(action) @Wavestorm * $me $3- } }
  elseif ($1 == $+($chr(47),amsg)) { if ($window(@Wavestorm)) { aline -ip $color(text) @Wavestorm $+(<,$me,>) $1- } }
  elseif ($1 == $+($chr(47),ame)) { if ($window(@Wavestorm)) { aline -ip $color(action) @Wavestorm * $me $1- } }
}

on *:INPUT:@Wavestorm: {
  if ($1 == $+($chr(47),me)) { haltdef }
  if (($left($1,1) == $chr(47)) && ($ctrlenter == $true)) {
    aline -ip $color(text) @Wavestorm $+(<,$me,>) $1-
    msg %wavechat $1-
  }
  if ($left($1,1) != $chr(47)) {
    aline -ip $color(text) @Wavestorm $+(<,$me,>) $1-
    msg %wavechat $1-
  }
  elseif ($1 == $+($chr(47),say)) {
    aline -ip $color(text) @Wavestorm $+(<,$me,>) $2-
    msg %wavechat $2-
  }
  elseif ($1-2 == $+($chr(47),msg) %wavechat) {
    aline -ip $color(text) @Wavestorm $+(<,$me,>) $3-
    msg %wavechat $3-
  }
  elseif ($1 == $+($chr(47),me)) {
    aline -ip $color(action) @Wavestorm * $me $2-
    describe %wavechat $2-
  }
  elseif ($1-2 == $+($chr(47),describe) %wavechat) {
    aline -ip $color(action) @Wavestorm * $me $3-
  }
  elseif ($1 == $+($chr(47),amsg)) { if ($window(@Wavestorm)) { aline -ip $color(text) @Wavestorm $+(<,$me,>) $2- } }
  elseif ($1 == $+($chr(47),ame)) { if ($window(@Wavestorm)) { aline -ip $color(action) @Wavestorm * $me $2- } }
  elseif (($me isop %wavechat) && ($1-3 == $+($chr(47),mode) %wavechat +o)) { if ($window(@Wavestorm)) { wavewindowreset } }
  elseif (($me isop %wavechat) && ($1-3 == $+($chr(47),mode) %wavechat -o)) { if ($window(@Wavestorm)) { wavewindowreset } }
  elseif (($me isop %wavechat) && ($1-3 == $+($chr(47),mode) %wavechat +v)) { if ($window(@Wavestorm)) { wavewindowreset } }
  elseif (($me isop %wavechat) && ($1-3 == $+($chr(47),mode) %wavechat -v)) { if ($window(@Wavestorm)) { wavewindowreset } }
}


on *:KEYUP:@Wavestorm:45: {
  if (%wavekeytoggle == 1) {
    if (%wavestorm-battleon == 1) { 
      sline -l @Wavestorm 9
    }
    else {
      set %wavestorm-windowkey45 14
      :loop
      if ($me isin $line(@Wavestorm,%wavestorm-windowkey45,1)) { sline -l @Wavestorm %wavestorm-windowkey45 }
      else {
        inc %wavestorm-windowkey45 1
        if (%wavestorm-windowkey45 > $line(@Wavestorm,0,1)) { return }
        goto loop
    } }
    unset %wavestorm-windowkey45
} }
on *:KEYUP:@Wavestorm:46: {
  if (%wavekeytoggle == 1) {
    if (%wavestorm-battleon == 1) {
      if (!%wavestorm-windowlasttarget) { return }
      set %wavestorm-windowkey46 1
      :loop
      if (%wavestorm-windowlasttarget isin $line(@Wavestorm,%wavestorm-windowkey46,1)) {
        sline -l @Wavestorm %wavestorm-windowkey46
      }
      else {
        inc %wavestorm-windowkey46 1
        if (%wavestorm-windowkey46 > $line(@Wavestorm,0,1)) {
          unset %wavestorm-windowkey46
          return
        }
        else {
          goto loop
} } } } }
on *:KEYUP:@Wavestorm:36: {
  if (%wavekeytoggle == 1) {
    set %wavestorm-windowkey36nick $calc($sline(@Wavestorm,1).ln - 1)
    :loop
    if (%wavestorm-battleon != 1) { set -n %wavestorm-windowkey36name $right($line(@Wavestorm,%wavestorm-windowkey36nick,1),-1) }
    else { set -n %wavestorm-windowkey36name $strip($line(@Wavestorm,%wavestorm-windowkey36nick,1)) }
    if (%wavestorm-windowkey36name !ison %wavechat) {
      dec %wavestorm-windowkey36nick 1
      if ((%wavestorm-windowkey36nick <= 0) || (!%wavestorm-windowkey36nick)) {
        set %wavestorm-windowkey36nick $line(@Wavestorm,0,1)
      }
      goto loop
    }
    else {
      sline -l @Wavestorm %wavestorm-windowkey36nick
    }
    unset %wavestorm-windowkey36*
} }
on *:KEYUP:@Wavestorm:35: {
  if (%wavekeytoggle == 1) {
    set %wavestorm-windowkey35nick $calc($sline(@Wavestorm,1).ln + 1)
    :loop
    if (%wavestorm-battleon != 1) { set -n %wavestorm-windowkey35name $right($line(@Wavestorm,%wavestorm-windowkey35nick,1),-1) }
    else { set -n %wavestorm-windowkey35name $strip($line(@Wavestorm,%wavestorm-windowkey35nick,1)) }
    if (%wavestorm-windowkey35name !ison %wavechat) {
      inc %wavestorm-windowkey35nick 1
      if (%wavestorm-windowkey35nick > $line(@Wavestorm,0,1)) {
        set %wavestorm-windowkey35nick 1
      }
      goto loop
    }
    else {
      sline -l @Wavestorm %wavestorm-windowkey35nick
    }
    unset %wavestorm-windowkey35*
} }


alias windowstatreset {
  if ($sline(@Wavestorm,1)) { var %wavewindowresetline = $sline(@Wavestorm,1) }
  if (%wavestorm-battleon == 1) {
    if ($line(@Wavestorm,3,1) != Euphometer (HP) - $+(%wavestorm-hp,/,$hget(Player,HealthPoints))) {
      if (%wavestorm-hp <= $calc($hget(Player,HealthPoints) * .1)) { rline -l $color(text) @Wavestorm 3 Current/Max HP -4 $+(%wavestorm-hp,/,$hget(Player,HealthPoints)) }
      else { rline -l $color(text) @Wavestorm 3 Euphometer (HP) - $+(%wavestorm-hp,/,$hget(Player,HealthPoints)) }
    }
    if ($line(@Wavestorm,4,1) != Aurometer (MP) - $+(%wavestorm-mp,/,$hget(Player,MagicPoints))) {
      if (%wavestorm-mp <= $calc($hget(Player,MagicPoints) * .1)) { rline -l $color(text) @Wavestorm 4 Current/Max MP -12 $+(%wavestorm-mp,/,$hget(Player,MagicPoints)) }
      else { rline -l $color(text) @Wavestorm 4 Aurometer (MP) - $+(%wavestorm-mp,/,$hget(Player,MagicPoints)) }
    }
    if ($line(@Wavestorm,5,1) != Omega Meter - $+(%wavestorm-omega,/,100)) {
      if (%wavestorm-omega >= 100) { rline -l $color(text) @Wavestorm 5 Omega Meter - $+(%wavestorm-omega,/,100) }
      else { rline -l $color(text) @Wavestorm 5 Omega Meter - $+(%wavestorm-omega,/,100) }
    }
    if (%wavestorm-z01 == 1) { set -n %wavestorm-windowstatus Unconscious -  }
    else {
      if ((%wavestorm-z02) || (%wavestorm-z02 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Poisoned -  }
      if ((%wavestorm-z03) || (%wavestorm-z03 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Foritified -  }
      if ((%wavestorm-z04) || (%wavestorm-z04 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Asleep -  }
      if ((%wavestorm-z05) || (%wavestorm-z05 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Hasted -  }
      if ((%wavestorm-z06) || (%wavestorm-z06 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Slowed -  }
      if ((%wavestorm-z07) || (%wavestorm-z07 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Stopped -  }
      if ((%wavestorm-z08) || (%wavestorm-z08 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Weakened -  }
      if ((%wavestorm-z09) || (%wavestorm-z09 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Regenerating -  }
      if ((%wavestorm-z10) || (%wavestorm-z10 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Dodge Up -  }
      if ((%wavestorm-z11) || (%wavestorm-z11 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Drained -  }
      if ((%wavestorm-z12) || (%wavestorm-z12 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Energized -  }
      if ((%wavestorm-z13) || (%wavestorm-z13 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Cloned -  }
      if ((%wavestorm-z14) || (%wavestorm-z14 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Reflecting -  }
      if ((%wavestorm-z15) || (%wavestorm-z15 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Teleporting -  }
      if ((%wavestorm-z16) || (%wavestorm-z16 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus M. Fortified -  }
      if ((%wavestorm-z17) || (%wavestorm-z17 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Frenzied -  }
      if ((%wavestorm-z18) || (%wavestorm-z18 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Shadow -  }
      if ((%wavestorm-z19) || (%wavestorm-z19 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Neutralized -  }
      if ((%wavestorm-z20) || (%wavestorm-z20 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Barrier -  }
      if ((%wavestorm-z20) || (%wavestorm-z20 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus Void -  }
      if ((%wavestorm-z20) || (%wavestorm-z20 == 0)) { set -n %wavestorm-windowstatus %wavestorm-windowstatus COnfused -  }
    }
    set -n %wavestorm-windowstatus $left(%wavestorm-windowstatus,-2)
    if (%wavestorm-windowstatus == $null) { set -n %wavestorm-windowstatus Normal }
    if ($line(@Wavestorm,6,1) != Status - %wavestorm-windowstatus) {
      rline -l $color(text) @Wavestorm 6 Status - %wavestorm-windowstatus
    }
    unset %wavestorm-windowstatus
  }
  if (%wavewindowresetline) { sline -l @Wavestorm %wavewindowresetline }
}

alias display1 {
  if ((!$1) || ($left($1,1) != $chr(35))) { return }
  msg $1-
  if ($window(@Wavestorm)) { 
    aline -ip $color(text) @Wavestorm $+(<,$me,>) $2-
  }
  wavewindowreset
}
alias display2 {
  if ((!$1) || ($left($1,1) != $chr(35))) { return }
  describe $1-
  if ($window(@Wavestorm)) { 
    aline -ip $color(action) @Wavestorm * $me $2-
  }
  wavewindowreset
}
alias display3 {
  if ($1 == %wavechat) { set %wavestorm-windowdisplay $2- }
  else { set %wavestorm-windowdisplay $1- }
  echo %wavechat %wavestorm-windowdisplay
  if ($window(@Wavestorm)) { 
    aline -ip $color(text) @Wavestorm %wavestorm-windowdisplay
  }
  wavewindowreset
  unset %wavestorm-windowdisplay
}

alias wavedialog {
  if ($active != $window(@Wavestorm)) { return }
  if ((%wavestorm-battleon == 1) && (!$dialog(Datascope))) {
    if ($window(@Wavestorm).mdi == $false) {
      set %wavestorm-dialogh $calc($window(-1).h / 29)
      dialog -mabh Datascope datascope1
      unset %wavestorm-dialogh
    }
    else { dialog -mabh Datascope datascope2 }
  }
  elseif ((%wavestorm-battleon != 1) && (!$dialog(Options))) {
    if ($window(@Wavestorm).mdi == $false) {
      set %wavestorm-dialogh $calc($window(-1).h / 29)
      dialog -mabh Options options1
      unset %wavestorm-dialogh
    }
    else { dialog -mabh Options options2 }
  }
  if ((!$dialog(OpCommands)) && ($me isop %wavechat)) { opcontrol }
}

alias targetsdialog {
  if (%wavestorm-battleon != 1) {
    if (%wavestorm-melee == 1) { unset %wavestorm-melee }
    if (!$dialog(Targets)) {
      dialog -mabh Targets targets
} } }

dialog datascope1 {
  title Datascope
  icon Wavestorm.ico
  size 0 %wavestorm-dialogh 363 95
  option dbu
  box Physical Attacks, 1, 1 1 130 23
  button Normal Attack, 2, 5 9 40 10, default
  button Mine Cart, 3, 46 9 40 10, default
  button Omega Storm, 4, 87 9 40 10, default
  box Magical Attacks, 5, 1 24 361 23
  combo 6, 5 32 100 50, drop
  text "", 7, 110 30 195 13
  button Cast, 8, 308 32 50 10, default
  box Backpack, 9, 1 48 361 23
  combo 10, 5 56 100 50, drop
  text "", 11, 110 54 195 13
  button Use, 12, 308 56 50 10, default
  box Battle Options, 13, 282 1 80 23
  button Quit Battle, 14, 323 9 35 10, default
  text "", 15, 203 4 77 23, center
  button ok, 16, 1 1 0 0, ok
  box Fuses, 20, 1 72 361 21
  button Send Fuse, 17, 5 80 49 9, default
  button Drop (1), 18, 55.83 80 49 9, default
  button Drop (2), 19, 106.66 80 49 9, default
  box Stats, 21, 135 1 66 23
  button Player, 22, 139 9 28 10, default
  button Channel, 23, 169 9 28 10, default
  button Weapon (1), 24, 208.33 80 49 9, default
  button Weapon (2), 25, 259.16 80 49 9, default
  button Drop Weapon, 26, 310 80 49 9, default
  button Weapon Fuse, 27, 157.5 80 49 9, default
  button Stage Select, 28, 286 9 35 10, default
}
dialog datascope2 {
  title Datascope
  icon Wavestorm.ico
  size 0 $window(-2).y 363 95
  option dbu
  box Physical Attacks, 1, 1 1 130 23
  button Normal Attack, 2, 5 9 40 10, default
  button Mine Cart, 3, 46 9 40 10, default
  button Omega Storm, 4, 87 9 40 10, default
  box Magical Attacks, 5, 1 24 361 23
  combo 6, 5 32 100 50, drop
  text "", 7, 110 30 195 13
  button Cast, 8, 308 32 50 10, default
  box Backpack, 9, 1 48 361 23
  combo 10, 5 56 100 50, drop
  text "", 11, 110 54 195 13
  button Use, 12, 308 56 50 10, default
  box Battle Options, 13, 282 1 80 23
  button Quit Battle, 14, 323 9 35 10, default
  text "", 15, 203 4 77 23, center
  button ok, 16, 1 1 0 0, ok
  box Fuses, 20, 1 72 361 21
  button Send Fuse, 17, 5 80 49 9, default
  button Drop (1), 18, 55.83 80 49 9, default
  button Drop (2), 19, 106.66 80 49 9, default
  box Stats, 21, 135 1 66 23
  button Player, 22, 139 9 28 10, default
  button Channel, 23, 169 9 28 10, default
  button Weapon (1), 24, 208.33 80 49 9, default
  button Weapon (2), 25, 259.16 80 49 9, default
  button Drop Weapon, 26, 310 80 49 9, default
  button Weapon Fuse, 27, 157.5 80 49 9, default
  button Stage Select, 28, 286 9 35 10, default
}
dialog options1 {
  title Datascope
  icon Wavestorm.ico
  size 0 %wavestorm-dialogh 362 101
  option dbu
  box Stats, 1, 1 1 216 23
  button Player Stats, 2, 5 9 61 10, default
  button Channel Stats, 3, 78 9 61 10, default
  button Stat Check, 4, 151 9 61 10, default
  box Toggles, 5, 1 24 360 23
  text Weapon:, 6, 5 83 23 50
  combo 7, 30 82 60 50, drop
  box Shop, 11, 1 48 360 23
  combo 12, 5 56 120 50, drop
  edit "", 13, 130 56 13 10, right
  scroll "", 18, 143 56 7 10, range 1 100
  text "", 14, 155 54 150 14
  button Buy, 15, 309 56 48 10, default
  box Battle Options, 16, 305 72 56 27
  button Start Battle, 17, 309 83 48 10, default
  box Chat Room, 19, 225 1 136 23
  edit "", 20, 230 9 70 10
  button ok, 21, 1 1 0 0, ok
  check Auto-Target, 22, 5 32 57 10, push
  button Customization, 8, 64.2 32 57 10, default
  check Music, 23, 123.4 32 57 10, push
  radio Melee Mode, 9, 182.6 32 57 10, push
  radio Team Mode, 10, 241.8 32 57 10, push
  check Fullscreen, 29, 301 32 57 10, push
  box Weapon, 24, 1 72 300 27
  button Set, 25, 309 9 48 10
  text Modifier:, 26, 96 83 23 50
  combo 27, 120 82 60 50, drop
  text "", 28, 185 77 112 21
}
dialog options2 {
  title Datascope
  icon Wavestorm.ico
  size 0 $window(-3).y 362 101
  option dbu
  box Stats, 1, 1 1 216 23
  button Player Stats, 2, 5 9 61 10, default
  button Channel Stats, 3, 78 9 61 10, default
  button Stat Check, 4, 151 9 61 10, default
  box Toggles, 5, 1 24 360 23
  text Weapon:, 6, 5 83 23 50
  combo 7, 30 82 60 50, drop
  box Shop, 11, 1 48 360 23
  combo 12, 5 56 120 50, drop
  edit "", 13, 130 56 13 10, right
  scroll "", 18, 143 56 7 10, range 1 100
  text "", 14, 155 54 150 14
  button Buy, 15, 309 56 48 10, default
  box Battle Options, 16, 305 72 56 27
  button Start Battle, 17, 309 83 48 10, default
  box Chat Room, 19, 225 1 136 23
  edit "", 20, 230 9 70 10
  button ok, 21, 1 1 0 0, ok
  check Auto-Target, 22, 5 32 57 10, push
  button Customization, 8, 64.2 32 57 10, default
  check Music, 23, 123.4 32 57 10, push
  radio Melee Mode, 9, 182.6 32 57 10, push
  radio Team Mode, 10, 241.8 32 57 10, push
  check Fullscreen, 29, 301 32 56 10, push
  box Weapon, 24, 1 72 300 27
  button Set, 25, 309 9 48 10
  text Modifier:, 26, 96 83 23 50
  combo 27, 120 82 60 50, drop
  text "", 28, 185 77 112 21
}

alias optionsrefresh {
  if (!$dialog(Options)) { return }
  did -e options 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,25,27,29
  did -r options 7
  if (!$hget(Player)) {
    did -a Options 7 N/A
    did -c Options 7 1
  }
  else {
    did -a options 7 1. Sword
    did -a options 7 2. Staff
    did -a options 7 3. Gun
    did -a options 7 4. Nunchakus
    did -a options 7 5. Club
    did -a options 7 6. Polearm
    did -a options 7 7. Axe
    did -a options 7 8. Crossbow
    did -a options 7 9. Flail
    did -a options 7 10. Knuckles
    did -c options 7 $hget(Player,Weapon)
  }
  if (%wavestorm-melee == 1) { did -c options 9 }
  else { did -c options 10 }
  did -r options 12
  if ($hget(Player,Wavelength) !isnum 1 - 10) { goto itemstart }
  set %wavestorm-optionsmagic 1
  :magicloop
  if ($hget(Player,$+(Spell,%wavestorm-optionsmagic)) != 1) {
    if ($hget(Player,Wavelength) == 1) { var %wavestorm-optionsmagic2 = %wavestorm-optionsmagic }
    elseif ($hget(Player,Wavelength) == 2) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 7) }
    elseif ($hget(Player,Wavelength) == 3) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 14) }
    elseif ($hget(Player,Wavelength) == 4) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 21) }
    elseif ($hget(Player,Wavelength) == 5) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 28) }
    elseif ($hget(Player,Wavelength) == 6) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 35) }
    elseif ($hget(Player,Wavelength) == 7) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 42) }
    elseif ($hget(Player,Wavelength) == 8) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 49) }
    elseif ($hget(Player,Wavelength) == 9) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 56) }
    elseif ($hget(Player,Wavelength) == 10) { var %wavestorm-optionsmagic2 = $calc(%wavestorm-optionsmagic + 63) }
    did -a options 12 $+(%wavestorm-optionsmagic,.) Magic Spell - $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,%wavestorm-optionsmagic2),Title)
  }
  inc %wavestorm-optionsmagic 1
  if (%wavestorm-optionsmagic <= 7) { goto magicloop }
  else { unset %wavestorm-optionsmagic }
  :itemstart
  set %wavestorm-optionsitem 1
  :itemloop
  did -a options 12 $+(%wavestorm-optionsitem,.) Item - $readini(" $+ $scriptdirWSInfo1.ini",$+(Shop,%wavestorm-optionsitem),Title)
  inc %wavestorm-optionsitem 1
  if (%wavestorm-optionsitem <= 56) { goto itemloop }
  else { unset %wavestorm-optionsitem }
  if ($hget(Player,Modifiera) != 1) { did -a options 12 a. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,aname) }
  if ($hget(Player,Modifierb) != 1) { did -a options 12 b. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,bname) }
  if ($hget(Player,Modifierc) != 1) { did -a options 12 c. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,cname) }
  if ($hget(Player,Modifierd) != 1) { did -a options 12 d. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,dname) }
  if ($hget(Player,Modifiere) != 1) { did -a options 12 e. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,ename) }
  if ($hget(Player,Modifierf) != 1) { did -a options 12 f. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,fname) }
  if ($hget(Player,Modifierg) != 1) { did -a options 12 g. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,gname) }
  if ($hget(Player,Modifierh) != 1) { did -a options 12 h. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,hname) }
  if ($hget(Player,Modifieri) != 1) { did -a options 12 i. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,iname) }
  if ($hget(Player,Modifierj) != 1) { did -a options 12 j. Modifier - $readini(" $+ $scriptdirWSInfo1.ini",Modifier,jname) }
  did -c options 12 1
  did -r options 14
  if (magic isin $left($did(options,12).seltext,9)) {
    set %wavestorm-options12name $hget(Player,Color)
    set %wavestorm-options12cost1 AP
    set %wavestorm-options12cost2 AP
    var %wavestorm-options12x = $calc(($hget(Player,Wavelength) * 7) - 7 + $left($did(options,12).seltext,1))
    did -i options 14 1 $readini(" $+ $scriptdirWSInfo1.ini",1Tier $+ %wavestorm-options12x,Description) - Costs $readini(" $+ $scriptdirWSInfo1.ini",1Tier $+ %wavestorm-options12x,%wavestorm-options12cost1) $+(%wavestorm-options12cost2,.)
  }
  elseif (item isin $left($did(options,12).seltext,9)) {
    set %wavestorm-options12name Shop
    set %wavestorm-options12cost1 Credits
    set %wavestorm-options12cost2 Omnis
    if (($left($did(options,12).seltext,1) isnum 1 - 9) && ($mid($did(options,12).seltext,2,1) !isnum 0 - 9)) { set %wavestorm-options12num $left($did(options,12).seltext,1) }
    else { set %wavestorm-options12num $left($did(options,12).seltext,2) }
    did -i options 14 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(%wavestorm-options12name,%wavestorm-options12num),Description) - Costs $readini(" $+ $scriptdirWSInfo1.ini",$+(%wavestorm-options12name,%wavestorm-options12num),%wavestorm-options12cost1) $+(%wavestorm-options12cost2,.)
  }
  unset %wavestorm-options12*
  did -r options 13
  did -a options 13 1
  did -c options 18 100
  did -r options 20
  did -i options 20 1 %wavechat
  if (%wavekeytoggle == 1) { did -c options 22 }
  else { did -u options 22 }
  if (%wavemusic == 1) { did -c options 23 }
  else { did -u options 23 }
  if (%wavestorm-fullscreen == 1) { did -c options 29 }
  else { did -u options 29 }
  did -r options 27
  if (!$hget(Player)) {
    did -a options 27 N/A
    did -c options 27 1
  }
  else {
    did -a options 27 a. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,aname)
    if ($hget(Player,Modifierb) == 1) { did -a options 27 b. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,bname) }
    if ($hget(Player,Modifierc) == 1) { did -a options 27 c. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,cname) }
    if ($hget(Player,Modifierd) == 1) { did -a options 27 d. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,dname) }
    if ($hget(Player,Modifiere) == 1) { did -a options 27 e. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,ename) }
    if ($hget(Player,Modifierf) == 1) { did -a options 27 f. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,fname) }
    if ($hget(Player,Modifierg) == 1) { did -a options 27 g. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,gname) }
    if ($hget(Player,Modifierh) == 1) { did -a options 27 h. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,hname) }
    if ($hget(Player,Modifieri) == 1) { did -a options 27 i. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,iname) }
    if ($hget(Player,Modifierj) == 1) { did -a options 27 j. $readini(" $+ $scriptdirWSInfo1.ini",Modifier,jname) }
    if ($hget(Player,Modifier) == a) { var %wavestorm-dummy = 1 }
    elseif ($hget(Player,Modifier) == b) { var %wavestorm-dummy = 2 }
    if ($hget(Player,Modifier) == c) { var %wavestorm-dummy = 3 }
    if ($hget(Player,Modifier) == d) { var %wavestorm-dummy = 4 }
    if ($hget(Player,Modifier) == e) { var %wavestorm-dummy = 5 }
    if ($hget(Player,Modifier) == f) { var %wavestorm-dummy = 6 }
    if ($hget(Player,Modifier) == g) { var %wavestorm-dummy = 7 }
    if ($hget(Player,Modifier) == h) { var %wavestorm-dummy = 8 }
    if ($hget(Player,Modifier) == i) { var %wavestorm-dummy = 9 }
    if ($hget(Player,Modifier) == j) { var %wavestorm-dummy = 10 }
    did -c options 27 %wavestorm-dummy
  }
  did -r options 28
  did -a options 28 $+($readini(" $+ $scriptdirWSInfo1.ini",Modifier,$+($hget(Player,Modifier),desc)),.)  Creates $+($readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))),.)
}

alias datascoperefresh {
  if (!$dialog(Datascope)) { return }
  if (%wavestorm-battleon == 1) {
    if ($1 == 1) { did -b datascope 2,3,4,8,12,17,18,19,24,25,26,27 }
    else {
      did -e datascope 1,3,5,6,7,9,10,11,13,14,15,28
      did -b datascope 2,3,4,8,12,24,25,26,27
    }
    if (%wavestorm-stageselecttimer) { did -b datascope 28 }
    else { did -e datascope 28 }
    if (%wavestorm-z21 == 1) { did -b datascope 8 }
    if (!%wavestorm-battletimer) {
      if ($1 != 1) {
        if (%wavestorm-mp < 50) { did -b datascope 17 }
        else { did -e datascope 17 }
        if (%wavestorm-fuse1) { did -e datascope 18 }
        else { did -b datascope 18 }
        if (($hget(Player,Modifier) == e) && (%wavestorm-fuse1)) { did -e datascope 24 }
        else { did -b datascope 24 }
      }
      did -r datascope 18,24
      if (%wavestorm-fuse1color) {
        did -i datascope 18 1 Drop (1 - $+(%wavestorm-fuse1color,$chr(41))
        did -i datascope 24 1 Weapon (1 - $+(%wavestorm-fuse1color,$chr(41))
      }
      else {
        did -i datascope 18 1 Drop (1)
        did -i datascope 24 1 Weapon (1)
      }
      if ($1 != 1) {
        if (%wavestorm-fuse2) { did -e datascope 19 }
        else { did -b datascope 19 }
        if (($hget(Player,Modifier) == e) && (%wavestorm-fuse2)) { did -e datascope 25 }
        else { did -b datascope 25 }
      }
      did -r datascope 19,25
      if (%wavestorm-fuse2color) {
        did -i datascope 19 1 Drop (2 - $+(%wavestorm-fuse2color,$chr(41))
        did -i datascope 25 1 Weapon (2 - $+(%wavestorm-fuse2color,$chr(41))
      }
      else {
        did -i datascope 19 1 Drop (2)
        did -i datascope 25 1 Weapon (2)
      }
      if (%wavestorm-modifiere isnum 1 - 10) {
        if ($1 != 1) {
          if ($hget(Player,Modifier) == e) { did -e datascope 26 }
          else { did -b datascope 26 }
        }
        did -r datascope 26
        if (%wavestorm-modifier == 1) { var %wavestorm-modifiere1 = Red }
        if (%wavestorm-modifier == 2) { var %wavestorm-modifiere1 = Yellow }
        if (%wavestorm-modifier == 3) { var %wavestorm-modifiere1 = Green }
        if (%wavestorm-modifier == 4) { var %wavestorm-modifiere1 = Blue }
        if (%wavestorm-modifier == 5) { var %wavestorm-modifiere1 = Purple }
        if (%wavestorm-modifier == 6) { var %wavestorm-modifiere1 = White }
        if (%wavestorm-modifier == 7) { var %wavestorm-modifiere1 = Beige }
        if (%wavestorm-modifier == 8) { var %wavestorm-modifiere1 = Black }
        if (%wavestorm-modifier == 9) { var %wavestorm-modifiere1 = Orange }
        if (%wavestorm-modifier == 10) { var %wavestorm-modifiere1 = Gray }
        did -i datascope 26 1 Drop W. $+($chr(40),%wavestorm-modifiere1,$chr(41))
      }
      else {
        did -b datascope 26
        did -r datascope 26
        did -i datascope 26 1 Drop Weapon
      }
      if ($1 != 1) {
        if (((%wavestorm-mp >= 50) || (%wavestorm-omega >= 2)) && ($hget(Player,Wavelength) != %wavestorm-modifier) && ($hget(Player,Modifier) == e)) { did -e datascope 27 }
        else { did -b datascope 27 }
        did -e datascope 2
        if (($hget(Player,Spell1) == 1) || ($hget(Player,Spell2) == 1) || ($hget(Player,Spell3) == 1) || ($hget(Player,Spell4) == 1) || ($hget(Player,Spell5) == 1) || ($hget(Player,Spell6) == 1) || ($hget(Player,Spell7) == 1)) {
          did -e datascope 8
      } }
      var %wavestorm-itemtest = 1
      :itemtest
      if (($hget(Player,$+(Item,%wavestorm-itemtest)) > 0) && ($1 != 1)) { did -e datascope 12 }
      inc %wavestorm-itemtest 1
      if (%wavestorm-itemtest <= 56) { goto itemtest }
      if ($1 != 1) {
        if ((%wavestorm-battleground == s06) && (%wavestorm-s06cart == 1)) { did -e datascope 3 }
        if ((%wavestorm-omega >= 100) || (%wavestorm-hp <= $int($calc($hget(Player,HealthPoints) * 0.07)))) { did -e datascope 4 }
      }
      if (%wavestorm-battletimer) {
        if (%wavestorm-battletimer > 1) { did -i datascope 15 1 Time left to next turn: %wavestorm-battletimer seconds }
        elseif (%wavestorm-battletimer == 1) { did -i datascope 15 1 Time left to next turn: %wavestorm-battletimer second }
      }
      else {
        did -r datascope 15
        did -a datascope 15 Your turn; you may now perform any action.  Current $+($lower($left($line(@Wavestorm,6,1),1)),$right($line(@Wavestorm,6,1),-1))
      }
  } }
  else {
    dialog -x Datascope
    wavedialog
  }
  did -r datascope 6
  if (%wavestorm-wavebeast == 1) {
    var %wavestorm-wavebeast-numcheck $calc((%wavestorm-wavebeast-color * 3) - 2)
    did -a datascope 6 $+(%wavestorm-datascope-t1,.) $readini(" $+ $scriptdirWSInfo1.ini",$+(Wavebeast,%wavestorm-wavebeast-numcheck),Title) - WB
    inc %wavestorm-wavebeast-numcheck 1
    did -a datascope 6 $+(%wavestorm-datascope-t1,.) $readini(" $+ $scriptdirWSInfo1.ini",$+(Wavebeast,%wavestorm-wavebeast-numcheck),Title) - WB
    inc %wavestorm-wavebeast-numcheck 1
    did -a datascope 6 $+(%wavestorm-datascope-t1,.) $readini(" $+ $scriptdirWSInfo1.ini",$+(Wavebeast,%wavestorm-wavebeast-numcheck),Title) - WB
    goto t4loopend
  }
  var %wavestorm-datascope-t1 = 1
  :t1loop
  var %wavestorm-datascope-t1x = %wavestorm-datascope-t1
  while (%wavestorm-datascope-t1x > 7) {
    var %wavestorm-datascope-t1x = $calc(%wavestorm-datascope-t1x - 7)
  }
  if ($hget(Player,$+(Spell,%wavestorm-datascope-t1x)) == 1) {
    if ($hget(Player,Wavelength) == $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,%wavestorm-datascope-t1),Wavelength)) {
      did -a datascope 6 $+(%wavestorm-datascope-t1,.) $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,%wavestorm-datascope-t1),Title) - T1
      goto t1continue
    }
    elseif ($readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,%wavestorm-datascope-t1),Wavelength) == %wavestorm-fuse1) {
      did -a datascope 6 $+(%wavestorm-datascope-t1,.) $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,%wavestorm-datascope-t1),Title) - T1
      goto t1continue
    }
    elseif ($readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,%wavestorm-datascope-t1),Wavelength) == %wavestorm-fuse2) {
      did -a datascope 6 $+(%wavestorm-datascope-t1,.) $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,%wavestorm-datascope-t1),Title) - T1
      goto t1continue
  } }
  :t1continue
  inc %wavestorm-datascope-t1 1
  if (%wavestorm-datascope-t1 <= 70) { goto t1loop }
  else { unset %wavestorm-datascope-t1 }
  did -r datascope 10
  if ((!%wavestorm-fuse1) && (!%wavestorm-fuse2)) { goto t4loopend }
  if ((%wavestorm-fuse1 == %wavestorm-fuse2) && (%wavestorm-fuse1 == $hget(Player,Wavelength))) { goto t4loopstart }
  set %wavestorm-datascope-t2 71
  :t2loop
  if (($readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc(%wavestorm-datascope-t2 - 71)),Color1) != $hget(Player,Color)) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc(%wavestorm-datascope-t2 - 71)),Color1) != %wavestorm-fuse1color) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc(%wavestorm-datascope-t2 - 71)),Color1) != %wavestorm-fuse2color)) { goto t2loopcont }
  if (($readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc(%wavestorm-datascope-t2 - 71)),Color2) != $hget(Player,Color)) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc(%wavestorm-datascope-t2 - 71)),Color2) != %wavestorm-fuse1color) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc(%wavestorm-datascope-t2 - 71)),Color2) != %wavestorm-fuse2color)) { goto t2loopcont }
  did -a datascope 6 $+(%wavestorm-datascope-t2,.) $readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc(%wavestorm-datascope-t2 - 70)),Title) - T2
  :t2loopcont
  inc %wavestorm-datascope-t2 1
  if (%wavestorm-datascope-t2 <= 205) { goto t2loop }
  unset %wavestorm-datascope-t2*
  if ((%wavestorm-fuse1 == %wavestorm-fuse2) || (%wavestorm-fuse1 == $hget(Player,Color)) || (%wavestorm-fuse2 == $hget(Player,Color))) { goto t4loopstart }
  if ((!%wavestorm-fuse1) || (!%wavestorm-fuse2)) { goto t4loopstart }

  ;set %wavestorm-datascope-t3 206
  ;:t3loop
  ;if (($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color1) != $hget(Player,Color)) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color1) != %wavestorm-fuse1color) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color1) != %wavestorm-fuse2color)) { goto t3loopcont }
  ;if (($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color2) != $hget(Player,Color)) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color2) != %wavestorm-fuse1color) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color2) != %wavestorm-fuse2color)) { goto t3loopcont }
  ;if (($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color3) != $hget(Player,Color)) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color3) != %wavestorm-fuse1color) && ($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Color3) != %wavestorm-fuse2color)) { goto t3loopcont }
  ;did -a datascope 6 $+(%wavestorm-datascope-t3,.) $readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc(%wavestorm-datascope-t3 - 205)),Title) - T3
  ;:t3loopcont
  ;inc %wavestorm-datascope-t3 1
  ;if (%wavestorm-datascope-t3 <= 445) { goto t3loop }
  ;unset %wavestorm-datascope-t3*

  :t4loopstart
  set %wavestorm-datascope-t4 446
  :t4loop
  if (((%wavestorm-fuse1 == $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Wavelength)) && (%wavestorm-fuse2 == $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Wavelength))) || ((%wavestorm-fuse1 == $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Wavelength)) && ($hget(Player,Wavelength) == $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Wavelength))) || ((%wavestorm-fuse2 == $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Wavelength)) && ($hget(Player,Wavelength) == $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Wavelength)))) {
    did -a datascope 6 $+(%wavestorm-datascope-t4,.) $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Title) - T4
  }
  if ((%wavestorm-fuse1 == %wavestorm-fuse2) && (%wavestorm-fuse1 == $hget(Player,Wavelength)) && (%wavestorm-fuse1 == $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Wavelength))) {
    did -a datascope 6 $+($calc(%wavestorm-datascope-t4 + 1),.) $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc(%wavestorm-datascope-t4 - 445)),Title) - T4
  }
  inc %wavestorm-datascope-t4 2
  if (%wavestorm-datascope-t4 <= 465) { goto t4loop }
  :t4loopend
  if (!$did(datascope,6,1).text) {
    did -a datascope 6 No spells available
    did -c datascope 6 1
    did -r datascope 7
  }
  else {
    if (%wavestorm-dialog6text1) {
      did -c datascope 6 %wavestorm-dialog6text1
      unset %wavestorm-dialog6text*
    }
    else { did -c datascope 6 1 }
    if (($left($did(datascope,6).seltext,1) isnum 1 - 9) && ($midt($did(datascope,6).seltext,2,1) !isnum 0 - 9)) {
      did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,$left($did(datascope,6).seltext,1)),Description) - Uses $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,$left($did(datascope,6).seltext,1)),MP) MP.
    }
    if ($left($did(datascope,6).seltext,2) isnum 10 - 70) {
      did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,$left($did(datascope,6).seltext,2)),Description) - Uses $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,$left($did(datascope,6).seltext,1)),MP) MP.
  } }
  set %wavestorm-datascope-item 1
  :itemloop
  if ($hget(Player,$+(Item,%wavestorm-datascope-item)) > 0) { did -a datascope 10 $+(%wavestorm-datascope-item,.) $readini(" $+ $scriptdirWSInfo1.ini",$+(Shop,%wavestorm-datascope-item),Title) }
  inc %wavestorm-datascope-item 1
  if (%wavestorm-datascope-item <= 56) { goto itemloop }
  else { unset %wavestorm-datascope-item }
  if (($left($did(datascope,10).seltext,1) isnum 0 - 9) && ($mid($did(datascope,10).seltext,2,1) !isnum 0 - 9)) { set %wavestorm-dialog12num $left($did(datascope,10).seltext,1) }
  else { set %wavestorm-dialog12num $left($did(datascope,10).text,2) }
  if (!%wavestorm-dialog12num) {
    set %wavestorm-dialog12num 1
    did -c datascope 10 1
  }
  else { did -c datascope 10 %wavestorm-dialog12num }
  if (($left($did(datascope,10).seltext,1) isnum 1 - 9) && ($mid($did(datascope,10).seltext,2,1) !isnum 0 - 9)) { set %wavestorm-dialogitem $left($did(datascope,10).seltext,1) }
  else { set %wavestorm-dialogitem $left($did(datascope,10).seltext,2) }
  if ($hget(Player,$+(Item,%wavestorm-dialog12num)) > 0) { set %wavestorm-dialogitemnum $hget(Player,$+(Item,%wavestorm-dialog12num)) }
  else { set -n %wavestorm-dialogitemnum none }
  did -i datascope 11 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(Shop,%wavestorm-dialog12num),Description) - You have %wavestorm-dialogitemnum of these.
  if (!$did(datascope,10,1).text) {
    did -i datascope 10 1 No items available
    did -c datascope 10 1
    did -r datascope 11
  }
  if ((%wavestorm-dialog6text1) && (%wavestorm-dialog6text2)) {
    if ($did(datascope,6,%wavestorm-dialog8text1).text == %wavestorm-dialog8text2) {
      did -c datascope 6 %wavestorm-dialog8text1
      unset %wavestorm-dialog6text*
} } }

on *:DIALOG:options:init:*: { optionsrefresh }

on *:DIALOG:datascope:init:*: { datascoperefresh }

alias wavekeytoggle {
  if (%wavekeytoggle == 1) {
    unset %wavekeytoggle
    if ($dialog(Options)) { did -u options 22 }
    display3 %wavechat Auto-targeting disabled.
  }
  elseif (%wavekeytoggle != 1) {
    set %wavekeytoggle 1
    if ($dialog(Options)) { did -c options 22 }
    display3 %wavechat Auto-targeting enabled.
} }

dialog statshow0 {
  title Wavestorm $+(v,%wavestorm-statshow-version,:) $+(%wavestorm-statshow-nick,'s) Stats
  icon Wavestorm.ico
  size $calc(0 + $int($calc($window(-3).w / 20)) * %statshow) $calc(101 + $int($calc($window(-3).h / 30)) * %statshow) 158 108
  option dbu
  box Class, 1, 1 1 137 39
  text "Level:", 2, 3 11 20 10, center
  edit %wavestorm-statshow-level , 3, 25 9 15 10, center
  text "Weapon:", 4, 50 11 25 10, center
  edit %wavestorm-statshow-weapon , 5, 77 9 50 10, center
  text "Color:", 6, 3 26 20 10, center
  edit %wavestorm-statshow-color , 7, 25 24 30 10, center
  text "Gender:", 8, 70 26 25 10, center
  edit %wavestorm-statshow-gender , 9, 97 24 30 10, center
  box Vitals, 10, 1 42 137 23
  text "Euphometer:", 11, 5 52 32 10, center
  edit %wavestorm-statshow-maxhp , 12, 39 50 30 10, center
  text "Aurometer:", 13, 72 52 30 10, center
  edit %wavestorm-statshow-maxmp , 14, 104 50 30 10, center
  box Extra, 15, 1 68 137 23
  text "Wins:", 16, 3 78 20 10, center
  edit %wavestorm-statshow-wins , 17, 25 76 30 10, center
  text "Losses:", 18, 70 78 25 10, center
  edit %wavestorm-statshow-losses , 19, 97 76 30 10, center
  button "OK", 20, 141 95 15 10, ok
  icon 21, 133 4 30 101, %wavestorm-statshow-scriptdir $+ Stat- $+ %wavestorm-statshow-color $+ 0.png, 0, top, noborder
}

dialog statshow1 {
  title $+(%wavestorm-statshow-nick,'s) Stats
  icon Wavestorm.ico
  size $calc(0 + $int($calc($window(-3).w / 20)) * %statshow) $calc(101 + $int($calc($window(-3).h / 30)) * %statshow) 158 142
  option dbu
  box Class, 1, 1 1 137 39
  text "Level:", 2, 3 11 20 10, center
  edit %wavestorm-statshow-level , 3, 25 9 15 10, center
  text "Weapon:", 4, 50 11 25 10, center
  edit %wavestorm-statshow-weapon , 5, 77 9 50 10, center
  text "Color:", 6, 3 26 20 10, center
  edit %wavestorm-statshow-color , 7, 25 24 30 10, center
  text "Gender:", 8, 70 26 25 10, center
  edit %wavestorm-statshow-gender , 9, 97 24 30 10, center
  box Vitals, 10, 1 42 137 57
  text "Euphometer:", 11, 6 52 31 10, center
  edit %wavestorm-statshow-curhp $+ / $+ %wavestorm-statshow-maxhp , 12, 39 50 32 10, center
  text "Aurometer:", 13, 73 52 29 10, center
  edit %wavestorm-statshow-curmp $+ / $+ %wavestorm-statshow-maxmp , 14, 103 50 32 10, center
  text "Omega Meter:", 15, 3 67 40 10, center
  edit %wavestorm-statshow-omega $+ / $+ 100 , 16, 43 65 30 10, center
  text "Status:", 17, 3 82 23 10, center
  edit %wavestorm-statshow-status , 18, 28 80 97 10, center
  box Extra, 19, 1 102 137 23
  text "Wins:", 20, 3 112 20 10, center
  edit %wavestorm-statshow-wins , 21, 25 110 30 10, center
  text "Losses:", 22, 70 112 25 10, center
  edit %wavestorm-statshow-losses , 23, 97 110 30 10, center
  button "OK", 24, 141 129 15 10, ok
  icon 25, 133 4 30 122, %wavestorm-statshow-scriptdir $+ Stat- $+ %wavestorm-statshow-color $+ 1.png, 0, top, noborder
}

on *:DIALOG:datascope:sclick:*: {
  if ($did == 2) { attack $strip($sline(@Wavestorm,1)) }
  if ($did == 3) { attack $strip($sline(@Wavestorm,1)) cart }
  if ($did == 4) { omega $strip($sline(@Wavestorm,1)) }
  if ($did == 6) {
    if ($right($did(datascope,6).seltext,2) == WB) {
      if (($left($did(datascope,6).seltext,1) isnum 1 - 9) && ($midt($did(datascope,6).seltext,2,1) !isnum 0 - 9)) {
        did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(Wavebeast,$left($did(datascope,6).seltext,1)),Description)
      }
      elseif ($left($did(datascope,6).seltext,2) isnum 10 - 56) {
        did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(Wavebeast,$left($did(datascope,6).seltext,2)),Description)
    } }
    elseif (($left($did(datascope,6).seltext,1) isnum 1 - 9) && ($left($did(datascope,6).seltext,3) !isnum 10 - 99)) {
      did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,$left($did(datascope,6).seltext,1)),Description) - Uses $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,$left($did(datascope,6).seltext,1)),MP) MP.
    }
    elseif (($left($did(datascope,6).seltext,2) isnum 10 - 70) && ($left($did(datascope,6).seltext,3) !isnum 100 - 282)) {
      did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,$left($did(datascope,6).seltext,2)),Description) - Uses $readini(" $+ $scriptdirWSInfo1.ini",$+(1Tier,$left($did(datascope,6).seltext,2)),MP) MP.
    }
    elseif (($left($did(datascope,6).seltext,2) isnum 71 - 99) && ($left($did(datascope,6).seltext,3) !isnum 100 - 282)) {
      did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc($left($did(datascope,6).seltext,2) - 70)),Description) - Targets $+($readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc($left($did(datascope,6).seltext,2) - 70)),TargetName),.)  Uses $readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc($left($did(datascope,6).seltext,2) - 70)),MP) MP.
    }
    elseif ($left($did(datascope,6).seltext,3) isnum 100 - 154) {
      did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc($left($did(datascope,6).seltext,3) - 70)),Description) - Targets $+($readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc($left($did(datascope,6).seltext,3) - 70)),TargetName),.)  Uses $readini(" $+ $scriptdirWSInfo2.ini",$+(2Tier,$calc($left($did(datascope,6).seltext,3) - 70)),MP) MP.
    }
    elseif ($left($did(datascope,6).seltext,3) isnum 155 - 266) {
      did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc($left($did(datascope,6).seltext,3) - 154)),Description) - Targets $+($readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc($left($did(datascope,6).seltext,3) - 154)),TargetName),.)  Uses $readini(" $+ $scriptdirWSInfo2.ini",$+(3Tier,$calc($left($did(datascope,6).seltext,3) - 154)),MP) MP.
    }
    elseif ($left($did(datascope,6).seltext,3) isnum 267 - 286) {
      did -i datascope 7 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc($left($did(datascope,6).seltext,3) - 266)),Description) - Uses $readini(" $+ $scriptdirWSInfo1.ini",$+(4Tier,$calc($left($did(datascope,6).seltext,3) - 266)),MP) MP.
  } }
  if ($did == 8) {
    set %wavestorm-dialog6text1 $did(datascope,6).sel
    set -n %wavestorm-dialog6text2 $did(datascope,6).seltext
    if (($left($did(datascope,6).seltext,1) isnum 0 - 9) && ($mid($did(datascope,6).seltext,2,1) !isnum)) { set %wavestorm-dialog8num $left($did(datascope,6).seltext,1) }
    elseif (($left($did(datascope,6).seltext,2) isnum 10 - 99) && ($mid($did(datascope,6).seltext,3,1) !isnum)) { set %wavestorm-dialog8num $left($did(datascope,6).seltext,2) }
    else { set %wavestorm-dialog8num $left($did(datascope,6).seltext,3) }
    if ((%wavestorm-dialog8num isnum 1 - 24) && ($right($did(datascope,6).seltext,2) == WB)) {
      wavebeast $strip($sline(@Wavestorm,1)) %wavestorm-dialog8num
    }
    elseif (%wavestorm-dialog8num isnum 1 - 70) {
      if (%wavestorm-dialog8num isin 9 13 20 32 34 36 37 38 39 40 41 43 54 55 67 68) {
        magic $strip($sline(@Wavestorm,1)) %wavestorm-dialog8num
      }
      else {
        .timer 1 1 magic $strip($sline(@Wavestorm,1)) %wavestorm-dialog8num
    } }
    elseif (%wavestorm-dialog8num isnum 71 - 154) {
      if ($strip($sline(@Wavestorm,1))) {
        .timer 1 2 magic2 $strip($sline(@Wavestorm,1)) $calc(%wavestorm-dialog8num - 70)
      }
      else { 
        .timer 1 2 magic2 1 $calc(%wavestorm-dialog8num - 70)
    } }
    elseif (%wavestorm-dialog8num isnum 155 - 266) {
      if ($strip($sline(@Wavestorm,1))) {
        .timer 1 4 magic3 $strip($sline(@Wavestorm,1)) $calc(%wavestorm-dialog8num - 154)
      }
      else { 
        .timer 1 4 magic3 1 $calc(%wavestorm-dialog8num - 154)
    } }
    elseif (%wavestorm-dialog8num isnum 267 - 282) {
      if (%wavestorm-dialog8num isin 267 269 271 273 275 277 279 281) {
        if ($strip($sline(@Wavestorm,1))) {
          .timer 1 2 magic4 $strip($sline(@Wavestorm,1)) $calc(%wavestorm-dialog8num - 266)
        }
        else { 
          .timer 1 2 magic4 1 $calc(%wavestorm-dialog8num - 266)
      } }
      else {
        if ($strip($sline(@Wavestorm,1))) {
          .timer 1 4 magic4 $strip($sline(@Wavestorm,1)) $calc(%wavestorm-dialog8num - 266)
        }
        else { 
          .timer 1 4 magic4 1 $calc(%wavestorm-dialog8num - 266)
  } } } }
  if ($did == 10) {
    if (($left($did(datascope,10).seltext,1) isnum 1 - 9) && ($mid($did(datascope,10).seltext,2,1) !isnum 0 - 9)) { set %wavestorm-dialogitem $left($did(datascope,10).seltext,1) }
    else { set %wavestorm-dialogitem $left($did(datascope,10).seltext,2) }
    if ($hget(Player,$+(Item,%wavestorm-dialogitem)) > 0) { set %wavestorm-dialogitemnum $hget(Player,$+(Item,%wavestorm-dialogitem)) }
    else { set -n %wavestorm-dialogitemnum none }
    did -i datascope 11 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(Shop,%wavestorm-dialogitem),Description) - You have %wavestorm-dialogitemnum of these.
  }
  if ($did == 12) {
    if (($left($did(datascope,10).seltext,1) isnum 0 - 9) && ($mid($did(datascope,10).seltext,2,1) !isnum 0 - 9)) { set %wavestorm-dialog12num $left($did(datascope,10).seltext,1) }
    else { set %wavestorm-dialog12num $left($did(datascope,10).seltext,2) }
    item %wavestorm-dialog12num $strip($sline(@Wavestorm,1))
    datascoperefresh
  }
  if ($did == 14) {
    if (%wavestorm-battleon == 1) { wavequit }
  }
  if ($did == 17) { .timer 1 2 fuse $strip($sline(@Wavestorm,1)) }
  if ($did == 18) { drop 1 }
  if ($did == 19) { drop 2 }
  if ($did == 22) { if ($strip($sline(@Wavestorm,1)) ison %wavechat) { wavestat $strip($sline(@Wavestorm,1)) } }
  if ($did == 23) { wavestat }
  if ($did == 24) { drop 3 }
  if ($did == 25) { drop 4 }
  if ($did == 26) { drop 5 }
  if ($did == 27) { fuse weapon }
  if ($did == 28) { wavebattleground }
}

on *:DIALOG:options:sclick:*: {
  if ($did == 2) { if ($strip($right($sline(@Wavestorm,1),-1)) ison %wavechat) { wavestat $strip($right($sline(@Wavestorm,1),-1)) } }
  if ($did == 3) { wavestat }
  if ($did == 4) { wavestorm-statcheck }
  if ($did == 7) {
    if (($left($did(options,7).seltext,1) isnum 1 - 9) && ($mid($did(options,7).seltext,2,1) !isnum 0 - 9)) { set %wavestorm-options7num $left($did(options,7).seltext,1) }
    else { set %wavestorm-options7num $left($did(options,7).seltext,2) }
    hadd -m Player Weapon %wavestorm-options7num
    if ($hget(Player,Weapon) = 1) { hadd -m Player Weaponname Sword }
    elseif ($hget(Player,Weapon) = 2) { hadd -m Player Weaponname Staff }
    elseif ($hget(Player,Weapon) = 3) { hadd -m Player Weaponname Gun }
    elseif ($hget(Player,Weapon) = 4) { hadd -m Player Weaponname Nunchakus }
    elseif ($hget(Player,Weapon) = 5) { hadd -m Player Weaponname Club }
    elseif ($hget(Player,Weapon) = 6) { hadd -m Player Weaponname Polearm }
    elseif ($hget(Player,Weapon) = 7) { hadd -m Player Weaponname Axe }
    elseif ($hget(Player,Weapon) = 8) { hadd -m Player Weaponname Crossbow }
    elseif ($hget(Player,Weapon) = 9) { hadd -m Player Weaponname Flail }
    elseif ($hget(Player,Weapon) = 10) { hadd -m Player Weaponname Knuckles }
    unset %wavestorm-options7num
    did -r options 28
    did -a options 28 $+($readini(" $+ $scriptdirWSInfo1.ini",Modifier,$+($hget(Player,Modifier),desc)),.)  Creates $+($readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))),.)
    set %wave-update 1
  }
  if ($did == 8) { wavecustom }
  if ($did == 9) { set %wavestorm-melee 1 }
  if ($did == 10) {
    unset %wavestorm-melee
    targetsdialog
  }
  if ($did == 12) {
    if (($left($did(options,12).seltext,1) isnum 1 - 9) && ($mid($did(options,12).seltext,2,1) !isnum 0 - 9)) { set %wavestorm-options12num $left($did(options,12).seltext,1) }
    elseif (($left($did(options,12).seltext,2) isnum 10 - 99) && ($mid($did(options,12).seltext,3,1) !isnum 0 - 9)) { set %wavestorm-options12num $left($did(options,12).seltext,2) }
    else { set %wavestorm-options12num $left($did(options,12).seltext,3) }
    if (magic isin $left($did(options,12).seltext,12)) {
      set %wavestorm-options12name 1Tier
      set %wavestorm-options12cost1 AP
      set %wavestorm-options12cost2 AP
      if ($hget(Player,Wavelength) == 2) { inc %wavestorm-options12num $calc(7 * 1) }
      elseif ($hget(Player,Wavelength) == 3) { inc %wavestorm-options12num $calc(7 * 2) }
      elseif ($hget(Player,Wavelength) == 4) { inc %wavestorm-options12num $calc(7 * 3) }
      elseif ($hget(Player,Wavelength) == 5) { inc %wavestorm-options12num $calc(7 * 4) }
      elseif ($hget(Player,Wavelength) == 6) { inc %wavestorm-options12num $calc(7 * 5) }
      elseif ($hget(Player,Wavelength) == 7) { inc %wavestorm-options12num $calc(7 * 6) }
      elseif ($hget(Player,Wavelength) == 8) { inc %wavestorm-options12num $calc(7 * 7) }
      elseif ($hget(Player,Wavelength) == 9) { inc %wavestorm-options12num $calc(7 * 8) }
      elseif ($hget(Player,Wavelength) == 10) { inc %wavestorm-options12num $calc(7 * 9) }
    }
    elseif (item isin $left($did(options,12).seltext,12)) {
      set %wavestorm-options12name Shop
      set %wavestorm-options12cost1 Credits
      set %wavestorm-options12cost2 Omnis
    }
    elseif (modifier isin $left($did(options,12).seltext,12)) {
      did -r options 14
      did -i options 14 1 $readini(" $+ $scriptdirWSInfo1.ini",Modifier,$+($left($did(options,12).seltext,1),desc)) - Costs $readini(" $+ $scriptdirWSInfo1.ini",Modifier,$+($left($did(options,12).seltext,1),omni)) Omnis.
      goto options14skip
    }
    did -r options 14
    did -i options 14 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(%wavestorm-options12name,%wavestorm-options12num),Description) - Costs $readini(" $+ $scriptdirWSInfo1.ini",$+(%wavestorm-options12name,%wavestorm-options12num),%wavestorm-options12cost1) $+(%wavestorm-options12cost2,.)
    :options14skip
  }
  if ($did == 15) {
    if (!$hget(Player)) {
      display3 %wavechat You have no stats to shop with!  Please create a character before shopping.
      return
    }
    if (magic isin $left($did(options,12).seltext,12)) {
      set %wavestorm-options15name Magic
    }
    elseif (item isin $left($did(options,12).seltext,12)) {
      set %wavestorm-options15name Item
    }
    elseif (modifier isin $left($did(options,12).seltext,12)) {
      if ($left($did(options,12).seltext,1) == a) { var %wavestorm-options15num = 64 }
      elseif ($left($did(options,12).seltext,1) == b) { var %wavestorm-options15num = 65 }
      elseif ($left($did(options,12).seltext,1) == c) { var %wavestorm-options15num = 66 }
      elseif ($left($did(options,12).seltext,1) == d) { var %wavestorm-options15num = 67 }
      elseif ($left($did(options,12).seltext,1) == e) { var %wavestorm-options15num = 68 }
      elseif ($left($did(options,12).seltext,1) == f) { var %wavestorm-options15num = 69 }
      elseif ($left($did(options,12).seltext,1) == g) { var %wavestorm-options15num = 70 }
      elseif ($left($did(options,12).seltext,1) == h) { var %wavestorm-options15num = 71 }
      elseif ($left($did(options,12).seltext,1) == i) { var %wavestorm-options15num = 72 }
      elseif ($left($did(options,12).seltext,1) == j) { var %wavestorm-options15num = 73 }
      shop %wavestorm-options15num
      return
    }
    if (($left($did(options,12).seltext,1) isnum 1 - 9) && ($mid($did(options,12).seltext,2,1) !isnum 0 - 9)) { set %wavestorm-options15num $left($did(options,12).seltext,1) }
    else { set %wavestorm-options15num $left($did(options,12).seltext,2) }
    if (%wavestorm-options15name == Magic) {
      var %wavestorm-options15num2 = %wavestorm-options15num
      :d14loop2
      if (%wavestorm-options15num2 > 7) {
        var %wavestorm-options15num2 = $calc(%wavestorm-options15num2 - 7)
        goto d14loop2
      }
      shop %wavestorm-options15num2
    }
    else {
      inc %wavestorm-options15num 7
      shop %wavestorm-options15num $calc(101 - $did(18).sel)
  } }
  if ($did == 17) { wavestart }
  if ($did == 22) { wavekeytoggle }
  if ($did == 23) { wavemusictoggle }
  if ($did == 25) {
    if ($left($did(20).text,1) != $chr(35)) {
      var %wavestorm-dummy $input(IRC chatrooms begin with the $chr(35) character!,ow,Wavestorm)
      did -o options 20 1 %wavechat
      return
    }
    else { set %wavechat $did(20).text }
    if ($window(@Wavestorm)) {
      close -@ Wavestorm
      close -c %wavechatold
      join %wavechat
      wavewindow
    }
    unset %wavechatold
  }
  if ($did == 27) {
    set %wavestorm-options27let $left($did(options,27).seltext,1)
    hadd -m Player Modifier %wavestorm-options27let
    unset %wavestorm-options7num
    did -r options 28
    did -a options 28 $+($readini(" $+ $scriptdirWSInfo1.ini",Modifier,$+($hget(Player,Modifier),desc)),.)  Creates $+($readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))),.)
    set %wave-update 1
  }
  if ($did == 29) {
    if (%wavestorm-fullscreen != 1) { set %wavestorm-fullscreen 1 }
    else { unset %wavestorm-fullscreen }
    window -c @Wavestorm
    if ($dialog(Datascope)) { dialog -x Datascope }
    if ($dialog(Options)) { dialog -x Options }
    wavewindow
} }

dialog statcheck {
  title Stat Check
  icon Wavestorm.ico
  size -1 -1 215 24
  option dbu
  box , 1, 1 1 213 22
  button "Create new character", 2, 5 9 100 10, ok
  button "Select existing character", 3, 110 9 100 10, ok
}

alias wavestorm-statcheck {
  dialog -mabh Statcheck statcheck
}

on *:DIALOG:Statcheck:sclick:*: {
  if ($did == 2) { wavestorm-charcreate }
  if ($did == 3) { wave-grabstats }
}

dialog charcreate {
  title Character Creation
  icon Wavestorm.ico
  size -1 -1 230 55
  option dbu
  box , 1, 1 1 228 53
  text "Select Wavelength", 2, 5 9 70 10, center
  combo 3, 5 20 70 10, drop
  text "Select Weapon", 4, 80 9 70 10, center
  combo 5, 80 20 70 10, drop
  text "Select Gender", 6, 155 9 70 10, center
  combo 7, 155 20 70 10, drop
  button "Save Stats", 8, 95 40 40 10
}

alias wavestorm-charcreate {
  if ($dialog(Statcheck)) { dialog -x Statcheck }
  dialog -mabh Charcreate charcreate
  did -a charcreate 3 Red - Fire
  did -a charcreate 3 Yellow - Electricity
  did -a charcreate 3 Green - Earth/Space
  did -a charcreate 3 Blue - Water
  did -a charcreate 3 Purple - Ice
  did -a charcreate 3 White - Cure/Holy
  did -a charcreate 3 Beige - Time/Blast
  did -a charcreate 3 Black - Gravity/Shadow
  did -a charcreate 3 Orange - Light/Sound
  did -a charcreate 3 Gray - Wind
  did -a charcreate 3 None
  did -c charcreate 3 1
  did -a charcreate 5 Sword
  did -a charcreate 5 Quarterstaff
  did -a charcreate 5 Laser Rifle
  did -a charcreate 5 Nunchakus
  did -a charcreate 5 Club
  did -a charcreate 5 Spear
  did -a charcreate 5 Axe
  did -a charcreate 5 Crossbow
  did -a charcreate 5 Flail
  did -a charcreate 5 Knuckles
  did -c charcreate 5 1
  did -a charcreate 7 Male
  did -a charcreate 7 Female
  did -c charcreate 7 1
}

on *:DIALOG:charcreate:sclick:8: {
  :start
  var %wave-charnew = $input(Please enter a filename for this character,eoi,Wavestorm,New1.ini)
  if (!%wave-charnew) { goto start }
  set -n %wave-statuse $scriptdir $+ %wave-charnew
  writeini -n " $+ %wave-statuse $+ " Stats Player $me
  writeini -n " $+ %wave-statuse $+ " Stats Password temp
  if ($did(charcreate,7).sel == 1) { writeini -n " $+ %wave-statuse $+ " Stats Gender Male }
  else { writeini -n " $+ %wave-statuse $+ " Stats Gender Female }
  writeini -n " $+ %wave-statuse $+ " Stats Level 1
  if ($did(charcreate,3).sel isnum 1 - 10) { writeini -n " $+ %wave-statuse $+ " Stats Wavelength $did(charcreate,3).sel }
  elseif ($did(charcreate,3).sel == 11) { writeini -n " $+ %wave-statuse $+ " Stats Wavelength 0 }
  if ($did(charcreate,3).sel == 1) { writeini -n " $+ %wave-statuse $+ " Stats Color Red }
  elseif ($did(charcreate,3).sel == 2) { writeini -n " $+ %wave-statuse $+ " Stats Color Yellow }
  elseif ($did(charcreate,3).sel == 3) { writeini -n " $+ %wave-statuse $+ " Stats Color Green }
  elseif ($did(charcreate,3).sel == 4) { writeini -n " $+ %wave-statuse $+ " Stats Color Blue }
  elseif ($did(charcreate,3).sel == 5) { writeini -n " $+ %wave-statuse $+ " Stats Color Purple }
  elseif ($did(charcreate,3).sel == 6) { writeini -n " $+ %wave-statuse $+ " Stats Color White }
  elseif ($did(charcreate,3).sel == 7) { writeini -n " $+ %wave-statuse $+ " Stats Color Beige }
  elseif ($did(charcreate,3).sel == 8) { writeini -n " $+ %wave-statuse $+ " Stats Color Black }
  elseif ($did(charcreate,3).sel == 9) { writeini -n " $+ %wave-statuse $+ " Stats Color Orange }
  elseif ($did(charcreate,3).sel == 10) { writeini -n " $+ %wave-statuse $+ " Stats Color Gray }
  elseif ($did(charcreate,3).sel == 0) { writeini -n " $+ %wave-statuse $+ " Stats Color None }
  writeini -n " $+ %wave-statuse $+ " Stats HealthPoints $int($rand(79.99,119.99))
  if ($did(charcreate,3).sel isnum 1 - 10) { writeini -n " $+ %wave-statuse $+ " Stats MagicPoints $int($rand(4.99,14.99)) }
  writeini -n " $+ %wave-statuse $+ " Stats AbilityPoints 0
  writeini -n " $+ %wave-statuse $+ " Stats CurrentExperience 0
  writeini -n " $+ %wave-statuse $+ " Stats NeededExperience $int($rand(481,521))
  writeini -n " $+ %wave-statuse $+ " Stats Credits 0
  writeini -n " $+ %wave-statuse $+ " Stats Weapon $did(charcreate,5).sel
  writeini -n " $+ %wave-statuse $+ " Stats Weaponname $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$did(charcreate,5).sel $+ a)
  writeini -n " $+ %wave-statuse $+ " Stats Modifier a
  writeini -n " $+ %wave-statuse $+ " Stats Modifiera 1
  writeini -n " $+ %wave-statuse $+ " Stats Modifierb 0
  writeini -n " $+ %wave-statuse $+ " Stats Modifierc 0
  writeini -n " $+ %wave-statuse $+ " Stats Modifierd 0
  writeini -n " $+ %wave-statuse $+ " Stats Modifiere 0
  writeini -n " $+ %wave-statuse $+ " Stats Modifierf 0
  writeini -n " $+ %wave-statuse $+ " Stats Modifierg 0
  writeini -n " $+ %wave-statuse $+ " Stats Modifierh 0
  writeini -n " $+ %wave-statuse $+ " Stats Modifieri 0
  writeini -n " $+ %wave-statuse $+ " Stats Modifierj 0
  writeini -n " $+ %wave-statuse $+ " Stats Wins 0
  writeini -n " $+ %wave-statuse $+ " Stats Losses 0
  writeini -n " $+ %wave-statuse $+ " Stats Item1 0
  writeini -n " $+ %wave-statuse $+ " Stats Item2 0
  writeini -n " $+ %wave-statuse $+ " Stats Item3 0
  writeini -n " $+ %wave-statuse $+ " Stats Item4 0
  writeini -n " $+ %wave-statuse $+ " Stats Item5 0
  writeini -n " $+ %wave-statuse $+ " Stats Item6 0
  writeini -n " $+ %wave-statuse $+ " Stats Item7 0
  writeini -n " $+ %wave-statuse $+ " Stats Item8 0
  writeini -n " $+ %wave-statuse $+ " Stats Item9 0
  writeini -n " $+ %wave-statuse $+ " Stats Item10 0
  writeini -n " $+ %wave-statuse $+ " Stats Item11 0
  writeini -n " $+ %wave-statuse $+ " Stats Item12 0
  writeini -n " $+ %wave-statuse $+ " Stats Item13 0
  writeini -n " $+ %wave-statuse $+ " Stats Item14 0
  writeini -n " $+ %wave-statuse $+ " Stats Item15 0
  writeini -n " $+ %wave-statuse $+ " Stats Item16 0
  writeini -n " $+ %wave-statuse $+ " Stats Item17 0
  writeini -n " $+ %wave-statuse $+ " Stats Item18 0
  writeini -n " $+ %wave-statuse $+ " Stats Item19 0
  writeini -n " $+ %wave-statuse $+ " Stats Item20 0
  writeini -n " $+ %wave-statuse $+ " Stats Item21 0
  writeini -n " $+ %wave-statuse $+ " Stats Item22 0
  writeini -n " $+ %wave-statuse $+ " Stats Item23 0
  writeini -n " $+ %wave-statuse $+ " Stats Item24 0
  writeini -n " $+ %wave-statuse $+ " Stats Item25 0
  writeini -n " $+ %wave-statuse $+ " Stats Item26 0
  writeini -n " $+ %wave-statuse $+ " Stats Item27 0
  writeini -n " $+ %wave-statuse $+ " Stats Item28 0
  writeini -n " $+ %wave-statuse $+ " Stats Item29 0
  writeini -n " $+ %wave-statuse $+ " Stats Item30 0
  writeini -n " $+ %wave-statuse $+ " Stats Item31 0
  writeini -n " $+ %wave-statuse $+ " Stats Item32 0
  writeini -n " $+ %wave-statuse $+ " Stats Item33 0
  writeini -n " $+ %wave-statuse $+ " Stats Item34 0
  writeini -n " $+ %wave-statuse $+ " Stats Item35 0
  writeini -n " $+ %wave-statuse $+ " Stats Item36 0
  writeini -n " $+ %wave-statuse $+ " Stats Item37 0
  writeini -n " $+ %wave-statuse $+ " Stats Item38 0
  writeini -n " $+ %wave-statuse $+ " Stats Item39 0
  writeini -n " $+ %wave-statuse $+ " Stats Item40 0
  writeini -n " $+ %wave-statuse $+ " Stats Item41 0
  writeini -n " $+ %wave-statuse $+ " Stats Item42 0
  writeini -n " $+ %wave-statuse $+ " Stats Item43 0
  writeini -n " $+ %wave-statuse $+ " Stats Item44 0
  writeini -n " $+ %wave-statuse $+ " Stats Item45 0
  writeini -n " $+ %wave-statuse $+ " Stats Item46 0
  writeini -n " $+ %wave-statuse $+ " Stats Item47 0
  writeini -n " $+ %wave-statuse $+ " Stats Item48 0
  writeini -n " $+ %wave-statuse $+ " Stats Item49 0
  writeini -n " $+ %wave-statuse $+ " Stats Item50 0
  writeini -n " $+ %wave-statuse $+ " Stats Item51 0
  writeini -n " $+ %wave-statuse $+ " Stats Item52 0
  writeini -n " $+ %wave-statuse $+ " Stats Item53 0
  writeini -n " $+ %wave-statuse $+ " Stats Item54 0
  writeini -n " $+ %wave-statuse $+ " Stats Item55 0
  writeini -n " $+ %wave-statuse $+ " Stats Item56 0
  writeini -n " $+ %wave-statuse $+ " Stats Spell1 0
  writeini -n " $+ %wave-statuse $+ " Stats Spell2 0
  writeini -n " $+ %wave-statuse $+ " Stats Spell3 0
  writeini -n " $+ %wave-statuse $+ " Stats Spell4 0
  writeini -n " $+ %wave-statuse $+ " Stats Spell5 0
  writeini -n " $+ %wave-statuse $+ " Stats Spell6 0
  writeini -n " $+ %wave-statuse $+ " Stats Spell7 0
  set -n %wavestorm-password $+($readini($+(",%wave-statuse-,"),Stats,Gender),$readini($+(",%wave-statuse-,"),Stats,Level),$readini($+(",%wave-statuse-,"),Stats,Wavelength),$readini($+(",%wave-statuse-,"),Stats,Color),$readini($+(",%wave-statuse-,"),Stats,HealthPoints),$readini($+(",%wave-statuse-,"),Stats,MagicPoints),$readini($+(",%wave-statuse-,"),Stats,AbilityPoints),$readini($+(",%wave-statuse-,"),Stats,CurrentExperience),$readini($+(",%wave-statuse-,"),Stats,NeededExperience),$readini($+(",%wave-statuse-,"),Stats,Credits),$readini($+(",%wave-statuse-,"),Stats,Weapon),$readini($+(",%wave-statuse-,"),Stats,Weaponname),$readini($+(",%wave-statuse-,"),Stats,Modifier))
  set -n %wavestorm-password $+(%wavestorm-password,$readini($+(",%wave-statuse-,"),Stats,Item51),$readini($+(",%wave-statuse-,"),Stats,Item52),$readini($+(",%wave-statuse-,"),Stats,Item53),$readini($+(",%wave-statuse-,"),Stats,Item54),$readini($+(",%wave-statuse-,"),Stats,Item55),$readini($+(",%wave-statuse-,"),Stats,Item56),$readini($+(",%wave-statuse-,"),Stats,Spell1),$readini($+(",%wave-statuse-,"),Stats,Spell2),$readini($+(",%wave-statuse-,"),Stats,Spell3),$readini($+(",%wave-statuse-,"),Stats,Spell4),$readini($+(",%wave-statuse-,"),Stats,Spell5),$readini($+(",%wave-statuse-,"),Stats,Spell6),$readini($+(",%wave-statuse-,"),Stats,Spell7))
  writeini -n " $+ %wave-statuse $+ " Stats Password $right($dll(" $+ $scriptdirblowfish.dll",Encrypt,29560619 %wavestorm-password),-4)
  unset %wavestorm-password  dialog -x Charcreate
  wave-grabstats %wave-statuse  
}