;============================================================
;Wavestorm - By Jarel Jones (http://wavestorm.rangerwiki.com)
;============================================================
;
;Information on file usage in Readme.txt.
;This file contains the following:
;Script load/unload sequences.
;Battle start and end sequences.

on *:LOAD: {
  if ($version < 6.1) {
    echo -a You must have mIRC version 6.1 or higher to run Wavestorm.
    unset %wave*
    unload -rs " $+ $scriptdirWavestorm1.mrc"
    return
  }
  .load -rs " $+ $scriptdirWavestorm2.mrc"
  .load -rs " $+ $scriptdirWavestorm3.mrc"
  .load -rs " $+ $scriptdirWavestorm4.mrc"
  .load -rs " $+ $scriptdirWavestorm5.mrc"
  .load -rs " $+ $scriptdirWavestorm6.mrc"
  .load -rs " $+ $scriptdirWavestorm7.mrc"
  set %wavestorm-melee 1
  set %wave-custom-iposes1 1
  set %wave-custom-isayings1 1
  set %wave-custom-eposes1 1
  set %wave-custom-esayings1 1
  set %wave-custom-physical1 1
  set %wave-custom-omega1 1
  set %wave-custom-dodge1 1
  if (%waveversion != 0.943) { set %waveversion 0.943 }
  if (($exists(" $+ $scriptdirStart.wvs") == $true) && ($exists(" $+ $scriptdirWSisayings.wvs") == $false)) {
    rename " $+ $scriptdirStart.wvs" " $+ $scriptdirWSisayings.wvs"
  }
  if (($exists(" $+ $scriptdirVictory1.wvs") == $true) && ($exists(" $+ $scriptdirWSeposes.wvs") == $false)) {
    rename " $+ $scriptdirVictory1.wvs" " $+ $scriptdirWSeposes.wvs"
  }
  if (($exists(" $+ $scriptdirVictory2.wvs") == $true) && ($exists(" $+ $scriptdirWSesayings.wvs") == $false)) {
    rename " $+ $scriptdirVictory2.wvs" " $+ $scriptdirWSesayings.wvs"
  }
  if (($exists(" $+ $scriptdirCustom.wvs") == $true) && ($exists(" $+ $scriptdirWSphysical.wvs") == $false)) {
    rename " $+ $scriptdirCustom.wvs" " $+ $scriptdirWSphysical.wvs"
  }
  if (($exists(" $+ $scriptdirOmega.wvs") == $true) && ($exists(" $+ $scriptdirWSomega.wvs") == $false)) {
    if ($lines(" $+ $scriptdirOmega.wvs") > 36) {
      window -ahn Wavestorm2
      loadbuf $calc($lines(" $+ $scriptdirOmega.wvs") - 36) @Wavestorm2 " $+ $scriptdirOmega.wvs"
      savebuf $+(1-,$calc($lines(" $+ $scriptdirOmega.wvs") - 36)) @Wavestorm2 " $+ $scriptdirWSomega.wvs"
      window -c Wavestorm2
    }
    remove " $+ $scriptdirOmega.wvs"
  }
  if (!%wavechat) { set -n %wavechat #wavestorm }
  if ($me !ison %wavechat) { join %wavechat }
  wavewindow
}

on *:UNLOAD: {
  if (%wavestorm-battleon == 1) {
    .notice %wavechat Wavestorm quit $hget(Player,Level)
    display2 %wavechat quits out of battle
  }
  .timerbattle* off
  .timerstop* off
  .timers15 off
  .timerwavemusic off
  .remove " $+ $scriptdirWSInfo3.ini"
  wavestorm-music stop
  wave-sendstats
  unset %wave-statuse
  unset %wavestorm-*
  if ($hget(Player)) { if ($hget(Player)) { hfree Player } }
  if ($window(@Wavestorm)) { window -c @Wavestorm }
  if ($dialog(Options)) { dialog -x Options }
  if ($dialog(Datascope)) { dialog -x Datascope }
  if ($dialog(Refresh)) { dialog -x Refresh }
  if ($dialog(Targets)) { dialog -x Targets }
  if ($dialog(StageSelect)) { dialog -x StageSelect }
  if ($dialog(WaveCustom)) { dialog -x WaveCustom }
  if ($dialog(OpCommands)) { dialog -x OpCommands }
  .unload -rs " $+ $scriptdirWavestorm2.mrc"
  .unload -rs " $+ $scriptdirWavestorm3.mrc"
  .unload -rs " $+ $scriptdirWavestorm4.mrc"
  .unload -rs " $+ $scriptdirWavestorm5.mrc"
  .unload -rs " $+ $scriptdirWavestorm6.mrc"
  .unload -rs " $+ $scriptdirWavestorm7.mrc"
}

alias switch {
  if ((%wavestorm-battleon == 1) && (!%wavestorm-battletimer) && (%wavestorm-battleground == s04)) {
    if ($1 == up) {
      .timeridleoff off
      if (%wavestorm-s04level isnum 1 - 4) { inc %wavestorm-s04level 1 | display2 %wavechat hops up to Level %wavestorm-s04level }
      elseif (%wavestorm-s04level == 5) { display3 %wavechat You are already at Level 5 in the building; you can't go up any further. | return }
    }
    if ($1 == down) {
      .timeridleoff off
      if (%wavestorm-s04level == 1) { display3 %wavechat You are already at Level 1 in the building; you can't go down any further. | return }
      elseif (%wavestorm-s04level isnum 2 - 5) { dec %wavestorm-s04level 1 | display2 %wavechat hops down to Level %wavestorm-s04level }
} } }
alias F3 { switch up }
alias sF3 { switch down }

alias wavestart {
  if (!$hget(Player)) {
    display3 %wavechat You have no stats to battle with!  Please create a character or select character stats before fighting.
    return
  }
  if (%wavestorm-battleon != 1) {
    if (%wavechat == $null) {
      set %wavechat $input(What chat room do you want to run Wavestorm in?  #wavestorm is the $+(default,$chr(44)) but you can type any chat you want down below.,65,Wavestorm,#wavestorm)
      if ($left(%wavechat,1) != $chr(35)) { set %wavechat $+($chr(35),%wavechat) }
    }
    ws-menuadd
    set %wavestorm-battlegroundtimer $rand(1,30)
    set %wavestorm-battleon 1
    set %wavestorm-omega 0
    set %wavestorm-levelsend $hget(Player,Level)
    if ($hget(Player,Gender) == Female) {
      set %wavestorm-gender1 she
      set %wavestorm-gender2 her
      set %wavestorm-gender3 her
    }
    elseif ($hget(Player,Gender) == Male) {
      set %wavestorm-gender1 he
      set %wavestorm-gender2 him
      set %wavestorm-gender3 his
    }
    set %wavestorm-hp $hget(Player,HealthPoints)
    if ($hget(Player,MagicPoints)) { set %wavestorm-mp $hget(Player,MagicPoints) }
    display2 %wavechat - Wavestorm Battle Script - %waveversion
    display2 %wavechat - Wavestorm Knight: Wavelength - $hget(Player,Wavelength) : Level $hget(Player,Level)
    if (%wavestorm-mp != $null) { display2 %wavechat - Euphometer (HP) - %wavestorm-hp : Aurometer (MP) - %wavestorm-mp }
    else { display2 %wavechat - Euphometer (HP) - %wavestorm-hp }
    if ((%wave-custom-iposes1 != 1) && (%wave-custom-iposes2 != 1)) { goto custom-iposes-skip }
    if ($exists(" $+ $scriptdirWSiposes.wvs") == $false) { goto custom-iposes1 }
    elseif ((%wave-custom-iposes1 == 1) && (%wave-custom-iposes2 != 1)) { goto custom-iposes1 }
    elseif ((%wave-custom-iposes2 == 1) && (%wave-custom-iposes1 != 1)) { goto custom-iposes2 }
    elseif ((%wave-custom-iposes1 == 1) && (%wave-custom-iposes2 == 1)) {
      var %wave-custom-iposes3 = $rand(1,$calc(18 + $lines(" $+ $scriptdirWSiposes.wvs")))
      if (%wave-custom-iposes3 <= 18) { goto custom-iposes1 }
      else { goto custom-iposes2 }
    }
    :custom-iposes1
    if (($hget(Player,Wavelength) == 0) || ($rand(1,2) == 2)) {
      if ($hget(Player,Weapon) == 1) { display2 %wavechat holds %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(1,$hget(Player,Modifier))) at %wavestorm-gender3 hip, the point unerringly aimed towards the enemies, and prepares for battle }
      elseif ($hget(Player,Weapon) == 2) { display2 %wavechat holds %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(2,$hget(Player,Modifier))) in a double grip and twirls it a few times, preparing to fight the enemy }
      elseif ($hget(Player,Weapon) == 3) { display2 %wavechat clicks the selector off 'Stun', loads a new magazine, cocks the slide, and prepares for battle, aiming %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(3,$hget(Player,Modifier))) at the enemy }
      elseif ($hget(Player,Weapon) == 4) { display2 %wavechat swings a pair of $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(4,$hget(Player,Modifier))) wildly while taking a standard combat pose, preparing for battle }
      elseif ($hget(Player,Weapon) == 5) { display2 %wavechat swings %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(5,$hget(Player,Modifier))) straight at the ground, slightly shaking the area, then holds it upright, preparing for the battle }
      elseif ($hget(Player,Weapon) == 6) { display2 %wavechat violently shoves %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(6,$hget(Player,Modifier))) into the ground, pulls it out and twirls it, then lets it rest in aim at the enemy, preparing for the battle }
      elseif ($hget(Player,Weapon) == 7) { display2 %wavechat swings %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(7,$hget(Player,Modifier))) through the air, the twin blades whistling, and stops with one end pointing at the enemy for battle }
      elseif ($hget(Player,Weapon) == 8) { display2 %wavechat brandishes %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(8,$hget(Player,Modifier))) and fits an arrow to it, aiming directly for the enemy and preparing for battle }
      elseif ($hget(Player,Weapon) == 9) { display2 %wavechat swings %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(9,$hget(Player,Modifier))) around, the ball and chain screaming through the air in a circle, and slams it to the floor, before holding it back upright and preparing for battle }
      elseif ($hget(Player,Weapon) == 10) { display2 %wavechat takes a standard fighting stance - left foot forward, weight centered, $+($readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(10,$hget(Player,Modifier))),-brandished) fists up - and prepares for combat }
    }
    else {
      if ($hget(Player,Wavelength) == 1) { display2 %wavechat burns with a fierce of aura of flames and prepares to battle }
      elseif ($hget(Player,Wavelength) == 2) { display2 %wavechat energizes the air with slashing volts of electricity and prepares to battle }
      elseif ($hget(Player,Wavelength) == 3) { display2 %wavechat frowns intensely, and the ground slowly rumbles with a vengence.  $+($upper($left(%wavestorm-gender1,1)),$right(%wavestorm-gender1,-1)) prepares for battle... }
      elseif ($hget(Player,Wavelength) == 4) { display2 %wavechat covers the battlefield with a foggy mist, deadly focused, and prepares for battle... }
      elseif ($hget(Player,Wavelength) == 5) { display2 %wavechat crystalizes the surrounding air and prepares for battle; the cold, ice diamonds lending an air of frosty concentration to %wavestorm-gender3 mind }
      elseif ($hget(Player,Wavelength) == 6) { display2 %wavechat focuses gently and is enveloped in a mind-clearing aura of white energy, preparing $+(%wavestorm-gender2,self) for the battle }
      elseif ($hget(Player,Wavelength) == 7) { display2 %wavechat causes time itself to discreetly become more acute, allowing the oncoming battle full ability to run its course }
      elseif ($hget(Player,Wavelength) == 8) { display2 %wavechat melts into reality from the dark shadows, silently preparing for battle }
      elseif ($hget(Player,Wavelength) == 9) { display2 %wavechat glows with a mysterious bright light, preparing for battle as the air hums around %wavestorm-gender2 }
      elseif ($hget(Player,Wavelength) == 10) { display2 %wavechat allows the frigid air to blow around %wavestorm-gender2 as %wavestorm-gender1 prepares for battle }
    }
    goto custom-iposes-skip
    :custom-iposes2
    var %custom-iposes-replace = $replace($read(" $+ $scriptdirWSiposes.wvs"),!me,$me,!gender1,%wavestorm-gender1,!gender2,%wavestorm-gender2,!gender3,%wavestorm-gender3)
    display2 %wavechat $replace(%custom-iposes-replace,!weapon,$readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))))
    :custom-iposes-skip
    if ((%wave-custom-isayings1 != 1) && (%wave-custom-isayings2 != 1)) { goto custom-isayings-skip }
    if ($exists(" $+ $scriptdirWSisayings.wvs") == $false) { goto custom-isayings1 }
    elseif ((%wave-custom-isayings1 == 1) && (%wave-custom-isayings2 != 1)) { goto custom-isayings1 }
    elseif ((%wave-custom-isayings2 == 1) && (%wave-custom-isayings1 != 1)) { goto custom-isayings2 }
    elseif ((%wave-custom-isayings1 == 1) && (%wave-custom-isayings2 == 1)) {
      var %wave-custom-isayings3 = $rand(1,$calc(9 + $lines(" $+ $scriptdirWSisayings.wvs")))
      if (%wave-custom-isayings3 <= 9) { goto custom-isayings1 }
      else { goto custom-isayings2 }
    }
    :custom-isayings1
    var %custom-isayings1 = $rand(1,9)
    if (%custom-isayings1 == 1) { display1 %wavechat You're going down. }
    elseif (%custom-isayings1 == 2) { display1 %wavechat Time to crash this party! }
    elseif (%custom-isayings1 == 3) { display1 %wavechat I don't remember anyone inviting you. }
    elseif (%custom-isayings1 == 4) { display1 %wavechat Get ready to get smacked! }
    elseif (%custom-isayings1 == 5) { display1 %wavechat Time for a beatdown! }
    elseif (%custom-isayings1 == 6) { display1 %wavechat You can't possibly defeat me! }
    elseif (%custom-isayings1 == 7) { display1 %wavechat I'm gonna dance on your grave! }
    elseif (%custom-isayings1 == 8) { display1 %wavechat You are SO about to get rocked. }
    elseif (%custom-isayings1 == 9) { display1 %wavechat How hot do you want it?  Hiroshima or Pearl Harbor? }
    goto custom-isayings-skip
    :custom-isayings2
    var %custom-isaying-replace = $replace($read(" $+ $scriptdirWSisayings.wvs"),!me,$me,!gender1,%wavestorm-gender1,!gender2,%wavestorm-gender2,!gender3,%wavestorm-gender3)
    display1 %wavechat $replace(%custom-isaying-replace,!weapon,$readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))))
    :custom-isayings-skip
    .wavesend %wavechat
    .notice %wavechat Wavestorm send
    wavewindowreset
    if ($dialog(Options)) { dialog -x Options }
    if (!$dialog(Wavestorm)) { wavedialog }
    startbattletimer
} }

alias startbattletimer {
  if ((%wavestorm-z01 != 1) && (%wavestorm-z04 != 1) && ((%wavestorm-z07 != 1) || ((%wavestorm-z07 == 1) && (%wavestorm-z07mode == 4)))) {
    .timeridleoff off
    if ($dialog(Datascope)) { datascoperefresh 1 }
    if ($hget(Player,Modifier) isletter hj) {
      if ((%wavestorm-z17 == 1) || (%wavestorm-s05mode == 2) || (%wavestorm-z05 isnum 1 - 2)) {
        set %wavestorm-battletimer 3
        .timerbattle 3 1 battletimer
      }
      else {
        set %wavestorm-battletimer 5
        .timerbattle 5 1 battletimer
    } }
    elseif ((%wavestorm-z05 !isnum 1 - 2) && (%wavestorm-z06 !isnum 1 - 2) && (%wavestorm-z17 !isnum 1 - 2) && (%wavestorm-s05mode !isnum 1 - 2) && (%wavestorm-b12 != 1) && (%wavestorm-b14 != 1) && (%wavestorm-b27 != 1)) {
      if ($hget(Player,Weapon) == 1) { var %wavestorm-tempbattletimer = 10 }
      elseif ($hget(Player,Weapon) == 2) { var %wavestorm-tempbattletimer = 8 }
      elseif ($hget(Player,Weapon) == 3) { var %wavestorm-tempbattletimer = 13 }
      elseif ($hget(Player,Weapon) == 4) { var %wavestorm-tempbattletimer = 8 }
      elseif ($hget(Player,Weapon) == 5) { var %wavestorm-tempbattletimer = 12 }
      elseif ($hget(Player,Weapon) == 6) { var %wavestorm-tempbattletimer = 9 }
      elseif ($hget(Player,Weapon) == 7) { var %wavestorm-tempbattletimer = 15 }
      elseif ($hget(Player,Weapon) == 8) { var %wavestorm-tempbattletimer = 7 }
      elseif ($hget(Player,Weapon) == 9) { var %wavestorm-tempbattletimer = 10 }
      elseif ($hget(Player,Weapon) == 10) { var %wavestorm-tempbattletimer = 7 }
      else { var %wavestorm-tempbattletimer = 10 }
      set %wavestorm-battletimer %wavestorm-tempbattletimer
      .timerbattle %wavestorm-tempbattletimer 1 battletimer
    }
    elseif (%wavestorm-battleground == s16) {
      set %wavestorm-battletimer 5
      .timerbattle 5 1 battletimer
    }
    elseif (%wavestorm-z17 == 1) {
      if (%wavestorm-z17haste == 1) {
        if ($hget(Player,Modifier) isletter hj) {
          set %wavestorm-battletimer 1
          .timerbattle 1 1 battletimer
        }
        else {
          set %wavestorm-battletimer 3
          .timerbattle 3 1 battletimer
      } }
      else {
        if ($hget(Player,Modifier) isletter hj) {
          set %wavestorm-battletimer 2
          .timerbattle 2 1 battletimer
        }
        else {
          set %wavestorm-battletimer 5
          .timerbattle 5 1 battletimer
    } } }
    elseif (%wavestorm-z17 == 2) {
      if (%wavestorm-z17haste == 1) {
        set %wavestorm-battletimer 18
        .timerbattle 18 1 battletimer
      }
      else {
        set %wavestorm-battletimer 7
        .timerbattle 7 1 battletimer
    } }
    elseif (%wavestorm-s05mode == 2) {
      set %wavestorm-battletimer 5
      .timerbattle 5 1 battletimer
      unset %wavestorm-s05
      unset %wavestorm-z05*
    }
    elseif (%wavestorm-z05 isnum 1 - 2) {
      set %wavestorm-battletimer 5
      .timerbattle 5 1 battletimer
      dec %wavestorm-z05turn 1
      if (%wavestorm-z05turn < 1) {
        set %wavestorm-z05turn 0
        set %wavestorm-z05off 1
    } }
    elseif (%wavestorm-s05mode == 1) {
      set %wavestorm-battletimer 25
      .timerbattle 25 1 battletimer
      unset %wavestorm-s05
      unset %wavestorm-z06*
    }
    elseif (%wavestorm-b14 == 1) {
      set %wavestorm-battletimer 25
      .timerbattle 25 1 battletimer
      if (%wavestorm-s08mode != 1) { unset %wavestorm-s08 }
      unset %wavestorm-z06*
      unset %wavestorm-b14
    }
    elseif (%wavestorm-b12 == 1) {
      set %wavestorm-battletimer 25
      .timerbattle 25 1 battletimer
      dec %wavestorm-z06turn 1
      unset %wavestorm-z06*
      unset %wavestorm-b12
    }
    elseif (%wavestorm-b27 == 1) {
      set %wavestorm-battletimer 25
      .timerbattle 25 1 battletimer
      dec %wavestorm-z06turn 1
      unset %wavestorm-z06*
      unset %wavestorm-b27
    }
    elseif (%wavestorm-z06 isnum 1 - 2) {
      set %wavestorm-battletimer 25
      .timerbattle 25 1 battletimer
      dec %wavestorm-z06turn 1
      if (%wavestorm-z06turn < 1) {
        set %wavestorm-z06turn 0
        set %wavestorm-z06off 1
      }
    }
    if ($dialog(Datascope)) { did -i datascope 15 1 Time left to next turn: %wavestorm-battletimer seconds }
} }

alias battletimer {
  if (%wavestorm-battleon == 1) {
    if ((%wavestorm-z07 == 1) && (%wavestorm-z07mode == 4)) { goto s02drop }
    dec %wavestorm-battletimer 1
    if ((%wavestorm-battletimer >= 1) && ($dialog(Datascope))) {
      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 { if ($dialog(Datascope)) { did -r datascope 15 } }
    if (%wavestorm-battletimer < 1) {
      if ((%wavestorm-z17 == 1) || (%wavestorm-wavebeast-21 == 1)) {
        if ($dialog(Datascope)) { did -b datascope 2,3,4,8,12,17,18,19,24,25,26,27 }
        if (%wavestorm-melee != 1) {
          if ($rand(1,10) == 1) {
            set %wavestorm-frenzyteamcheck 0
            if (%wavestorm-friend1) { inc %wavestorm-frenzyteamcheck 1 }
            if (%wavestorm-friend2) { inc %wavestorm-frenzyteamcheck 1 }
            if (%wavestorm-friend3) { inc %wavestorm-frenzyteamcheck 1 }
            if (%wavestorm-frenzyteamcheck == 0) { unset %wavestorm-frenzyteamcheck | goto frenzyenemycheck }
            if (%wavestorm-frenzyteamcheck == 1) { set -n %wavestorm-frenzyattacknick $eval(%wavestorm-friend1) }
            elseif (%wavestorm-frenzyteamcheck == 2) { set -n %wavestorm-frenzyattacknick $eval(%wavestorm-friend2) }
            elseif (%wavestorm-frenzyteamcheck == 3) { set -n %wavestorm-frenzyattacknick $eval(%wavestorm-friend3) }
            unset %wavestorm-frenzyteamcheck
          }
          else {
            :frenzyenemycheck
            set %wavestorm-frenzyenemycheck 0
            if (%wavestorm-enemy1) { inc %wavestorm-frenzyenemycheck 1 }
            if (%wavestorm-enemy2) { inc %wavestorm-frenzyenemycheck 1 }
            if (%wavestorm-enemy3) { inc %wavestorm-frenzyenemycheck 1 }
            if (%wavestorm-enemy4) { inc %wavestorm-frenzyenemycheck 1 }
            if (%wavestorm-frenzyenemycheck == 1) { set -n %wavestorm-frenzyattacknick $eval(%wavestorm-enemy1) }
            elseif (%wavestorm-frenzyenemycheck == 2) { set -n %wavestorm-frenzyattacknick $eval(%wavestorm-enemy2) }
            elseif (%wavestorm-frenzyenemycheck == 3) { set -n %wavestorm-frenzyattacknick $eval(%wavestorm-enemy3) }
            elseif (%wavestorm-frenzyenemycheck == 4) { set -n %wavestorm-frenzyattacknick $eval(%wavestorm-enemy4) }
            unset %wavestorm-frenzyenemycheck
        } }
        else {
          if (($rand(1,10) isnum 1 - 9) && ($ini(" $+ $scriptdirWSInfo3.ini",1))) {
            set -n %wavestorm-frenzyattacknick $ini(" $+ $scriptdirWSInfo3.ini",$rand(1,$ini(" $+ $scriptdirWSInfo3.ini",0)))
          }
          else {
            goto frenzyloop
        } }
        else {
          :frenzyloop
          if ($nick(%wavechat,%wavestorm-frenzynickrand) != $me) { inc %wavestorm-frenzycount 1 }
          set %wavestorm-frenzynickrand $rand(1,$nick(%wavechat,0))
          if ($nick(%wavechat,%wavestorm-frenzynickrand) == $me) { goto frenzyloop }
          if ($readini(" $+ $scriptdirWSInfo3.ini",$nick(%wavechat,%wavestorm-frenzynickrand),z01)) {
            if (%wavestorm-frenzycount > $calc($nick(%wavechat,0) * 2)) { goto frenzyloopon }
            goto frenzyloop
          }
          set -n %wavestorm-frenzyattacknick $nick(%wavechat,%wavestorm-frenzynickrand)
        }
        :frenzyloopon
        if (%wavestorm-z17haste == 1) {
          set %wavestorm-levelsend2 $hget(Player,Level)
          set %wavestorm-frenzyloss $int($rand($calc((%wavestorm-levelsend2 * 680 / 396) - %wavestorm-levelsend2),$calc((%wavestorm-levelsend2 * 680 / 396) + %wavestorm-levelsend2)))
          if ($hget(Player,Modifier) isletter hj) {
            set %wavestorm-levelsend2 $calc($hget(Player,Level) * 20)
            set %wavestorm-frenzyloss $int($calc(%wavestorm-hp / 2))
          }
          unset %wavestorm-levelsend2
          dec %wavestorm-hp %wavestorm-frenzyloss
          if (%wavestorm-hp < 0) { set %wavestorm-hp 0 }
          display2 %wavechat overexerts $+(%wavestorm-gender2,self) from the frenzy and loses %wavestorm-frenzyloss HP!
          if (%wavestorm-hp <= 0) {
            if (%wavestorm-z17nick) { nohp %wavestorm-z17nick }
            else { nohp }
        } }
        if ((%wavestorm-omega == 100) || (%wavestorm-hp <= $int($calc($hget(Player,HealthPoints) * 0.07)))) { omega %wavestorm-frenzyattacknick }
        else { attack %wavestorm-frenzyattacknick }
        unset %wavestorm-frenzynickrand
        unset %wavestorm-frenzycount
        unset %wavestorm-frenzyattacknick
        if ($hget(Player,Modifier) isletter hj) { wavestorm-frenzycool }
        return
      }
      if (%wavestorm-z22 == 1) {
        if ($dialog(Datascope)) { did -b datascope 2,3,4,8,12,17,18,19,24,25,26,27 }
        if (%wavestorm-melee != 1) {
          if ($rand(1,10) == 1) {
            set %wavestorm-confuseteamcheck 0
            if (%wavestorm-friend1) { inc %wavestorm-confuseteamcheck 1 }
            if (%wavestorm-friend2) { inc %wavestorm-confuseteamcheck 1 }
            if (%wavestorm-friend3) { inc %wavestorm-confuseteamcheck 1 }
            if (%wavestorm-confuseteamcheck == 0) { unset %wavestorm-confuseteamcheck | goto confuseenemycheck }
            if (%wavestorm-confuseteamcheck == 1) { set -n %wavestorm-confuseattacknick $eval(%wavestorm-friend1) }
            elseif (%wavestorm-confuseteamcheck == 2) { set -n %wavestorm-confuseattacknick $eval(%wavestorm-friend2) }
            elseif (%wavestorm-confuseteamcheck == 3) { set -n %wavestorm-confuseattacknick $eval(%wavestorm-friend3) }
            unset %wavestorm-confuseteamcheck
          }
          else {
            :confuseenemycheck
            set %wavestorm-confuseenemycheck 0
            if (%wavestorm-enemy1) { inc %wavestorm-confuseenemycheck 1 }
            if (%wavestorm-enemy2) { inc %wavestorm-confuseenemycheck 1 }
            if (%wavestorm-enemy3) { inc %wavestorm-confuseenemycheck 1 }
            if (%wavestorm-enemy4) { inc %wavestorm-confuseenemycheck 1 }
            if (%wavestorm-confuseenemycheck == 1) { set -n %wavestorm-confuseattacknick $eval(%wavestorm-enemy1) }
            elseif (%wavestorm-confuseenemycheck == 2) { set -n %wavestorm-confuseattacknick $eval(%wavestorm-enemy2) }
            elseif (%wavestorm-confuseenemycheck == 3) { set -n %wavestorm-confuseattacknick $eval(%wavestorm-enemy3) }
            elseif (%wavestorm-confuseenemycheck == 4) { set -n %wavestorm-confuseattacknick $eval(%wavestorm-enemy4) }
            unset %wavestorm-confuseenemycheck
        } }
        else {
          if (($rand(1,10) isnum 1 - 9) && ($ini(" $+ $scriptdirWSInfo3.ini",1))) {
            set -n %wavestorm-confuseattacknick $ini(" $+ $scriptdirWSInfo3.ini",$rand(1,$ini(" $+ $scriptdirWSInfo3.ini",0)))
          }
          else {
            goto confuseloop
        } }
        else {
          :confuseloop
          if ($nick(%wavechat,%wavestorm-confusenickrand) != $me) { inc %wavestorm-confusecount 1 }
          set %wavestorm-confusenickrand $rand(1,$nick(%wavechat,0))
          if ($nick(%wavechat,%wavestorm-confusenickrand) == $me) { goto confuseloop }
          if ($readini(" $+ $scriptdirWSInfo3.ini",$nick(%wavechat,%wavestorm-confusenickrand),z01)) {
            if (%wavestorm-confusecount > $calc($nick(%wavechat,0) * 2)) { goto confuseloopon }
            goto confuseloop
          }
          set -n %wavestorm-confuseattacknick $nick(%wavechat,%wavestorm-confusenickrand)
        }
        :confuseloopon
        if ((%wavestorm-omega == 100) || (%wavestorm-hp <= $int($calc($hget(Player,HealthPoints) * 0.07)))) { omega %wavestorm-confuseattacknick }
        else { attack %wavestorm-confuseattacknick }
        unset %wavestorm-confusenickrand
        unset %wavestorm-confusecount
        unset %wavestorm-confuseattacknick
        return
      }
      unset %wavestorm-battletimer
      .timerbattle off
      .timeridleoff 1 300 wavequit3
      if ($dialog(Datascope)) {
        did -i datascope 15 1 Your turn; you may now perform any action.  Current $+($lower($left($line(@Wavestorm,6,1),1)),$right($line(@Wavestorm,6,1),-1))
        if ((%wavestorm-z01 != 1) && ((%wavestorm-z04 < 1) || (!%wavestorm-z04)) && ((%wavestorm-z07 < 1) || (!%wavestorm-z07))) {
          did -e datascope 2
          if (%wavestorm-mp < 50) { did -b datascope 17 }
          else { did -e datascope 17 }
          if (%wavestorm-fuse1) { did -e datascope 18,24 }
          else { did -b datascope 18,24 }
          if (%wavestorm-fuse2) { did -e datascope 19,25 }
          else { did -b datascope 19,25 }
          if (%wavestorm-modifier) { did -e datascope 26 }
          else { did -b datascope 26 }
          if (((%wavestorm-mp < 50) && (%wavestorm-omega < 2)) || ($hget(Player,Wavelength) == %wavestorm-modifier) || ($hget(Player,Modifier) != e)) { did -b datascope 27 }
          else { did -e datascope 27 }
          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
          }
          if (($hget(Player,Item1) > 0) || ($hget(Player,Item2) > 0) || ($hget(Player,Item3) > 0) || ($hget(Player,Item4) > 0) || ($hget(Player,Item5) > 0) || ($hget(Player,Item6) > 0)) { goto itemtest }
          if (($hget(Player,Item7) > 0) || ($hget(Player,Item8) > 0) || ($hget(Player,Item9) > 0) || ($hget(Player,Item10) > 0) || ($hget(Player,Item11) > 0) || ($hget(Player,Item12) > 0)) { goto itemtest }
          goto itemskip
          :itemtest
          did -e datascope 12
          :itemskip
      } }
      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-hp <= $int($calc($hget(Player,HealthPoints) * 0.07))) {
        display2 %wavechat goes Terminus!  $me can now perform a hyper attack!
        did -e datascope 4
      }
      elseif (%wavestorm-omega == 100) {
        display2 %wavechat goes Omega Storm!  $me can now perform a hyper attack!
        did -e datascope 4
      }
      if (%wavestorm-z02 isnum 1 - 5) {
        set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
        dec %wavestorm-hp %wavestorm-hpdummy
        if (%wavestorm-z02 == 1) { display2 %wavechat has heatstroke!  $me loses %wavestorm-hpdummy HP }
        if (%wavestorm-z02 == 2) { display2 %wavechat is trapped in a bubble!  $me loses %wavestorm-hpdummy HP }
        if (%wavestorm-z02 == 3) { display2 %wavechat is poisoned by toxic gas!  $me loses %wavestorm-hpdummy HP }
        if (%wavestorm-z02 == 4) { display2 %wavechat is poisoned!  $me loses %wavestorm-hpdummy HP }
        if (%wavestorm-z02 == 5) { display2 %wavechat has sunpoisoning!  $me loses %wavestorm-hpdummy HP }
        unset %wavestorm-hpdummy
        if (%wavestorm-hp < 1) {
          if (%wavestorm-z02 == 2) {
            set %wavestorm-hp 0 | nohp %wavestorm-z02nick | return
          }
          else {
            set %wavestorm-hp 0 | nohp | return
      } } }
      elseif ((%wavestorm-z09 == 1) && (%wavestorm-hp < $hget(Player,HealthPoints))) {
        set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
        inc %wavestorm-hp %wavestorm-hpdummy
        display2 %wavechat is vigorized!  $me gains %wavestorm-hpdummy HP
        unset %wavestorm-hpdummy
        if (%wavestorm-hp > $hget(Player,HealthPoints)) { set %wavestorm-hp $hget(Player,HealthPoints) }
      }
      if (($hget(Player,Modifier) isletter fj) && (%wavestorm-hp < $hget(Player,HealthPoints))) {
        set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
        inc %wavestorm-hp %wavestorm-hpdummy
        display2 %wavechat is given energy by %wavestorm-gender3 $+($readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))),!)  $me gains %wavestorm-hpdummy HP
        unset %wavestorm-hpdummy
        if (%wavestorm-hp > $hget(Player,HealthPoints)) { set %wavestorm-hp $hget(Player,HealthPoints) }
      }
      if (($hget(Player,Modifier) isletter gj) && (%wavestorm-mp < $hget(Player,MagicPoints)) && (%wavestorm-hp > $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0))) {
        set %wavestorm-mpdummy $round($rand($calc(1 * $hget(Player,Level)),$calc(1.5 * $hget(Player,Level))),0)
        inc %wavestorm-mp %wavestorm-mpdummy
        if ($hget(Player,Modifier) == g) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          dec %wavestorm-hp %wavestorm-hpdummy
          display2 %wavechat watches as %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))) shifts health energy into magic energy!  $me loses %wavestorm-hpdummy HP!  $me gains %wavestorm-mpdummy MP
        }
        else {
          display2 %wavechat watches as %wavestorm-gender3 $readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))) shifts over more health energy!  $me gains %wavestorm-mpdummy MP
        }
        unset %wavestorm-hpdummy
        unset %wavestorm-mpdummy
        if (%wavestorm-mp > $hget(Player,MagicPoints)) { set %wavestorm-mp $hget(Player,MagicPoints) }
      }
      if ((%wavestorm-z05turn == 0) && (%wavestorm-z05off == 1) && (%wavestorm-s05mode !isnum 1 - 2)) {
        if (%wavestorm-z05 == 1) { display2 %wavechat slows down to regular rate as the energy speed casings on the arms dissipate }
        elseif (%wavestorm-z05 == 2) { display2 %wavechat slows back down to %wavestorm-gender3 regular speed }
        unset %wavestorm-z05*
      }
      if ((%wavestorm-z06turn == 0) && (%wavestorm-z06off == 1) && (%wavestorm-s05mode !isnum 1 - 2) && (%wavestorm-s07dummy1 != 1) && (%wavestorm-s08dummy1 != 1) && (%wavestorm-s10dummy1 != 1)) {
        if (%wavestorm-z06 == 1) { display2 %wavechat speeds back up as the bombardment of energy particles cease }
        elseif (%wavestorm-z06 == 2) { display2 %wavechat shifts back up to %wavestorm-gender3 regular speed }
        unset %wavestorm-z06*
      }
      if ((%wavestorm-z18 == 1) && ((%wavestorm-z18turn < 1) || (%wavestorm-z18turn == $null))) {
        display2 %wavechat prepares to fight as %wavestorm-gender3 shadow abilities vanish
        unset %wavestorm-z18*
      }
      if ((%wavestorm-z19 == 1) && ((%wavestorm-z19turn < 1) || (%wavestorm-z19turn == $null))) {
        display2 %wavechat prepares to fight as %wavestorm-gender3 neutralization powers fades
        unset %wavestorm-z19*
      }
      if (%wavestorm-z21 == 1) {
        if ((%wavestorm-z21turn < 1) || (%wavestorm-z21turn == $null)) {
          display2 %wavechat gasps as light flows in around %wavestorm-gender3 body, allowing %wavestorm-gender2 to use magic spells once again
          unset %wavestorm-z21*
        }
        else {
          dec %wavestorm-z21turn 1
      } }
      if (%wavestorm-z23 == 1) {
        if ((%wavestorm-z23turn < 1) || (%wavestorm-z23turn == $null)) {
          display2 %wavechat rubs %wavestorm-gender3 eyes clear, allowing %wavestorm-gender2 to see his targets again
          unset %wavestorm-z23*
        }
        else {
          dec %wavestorm-z23turn 1
      } }
      if (%wavestorm-z24 == 1) {
        if ((%wavestorm-z24turn < 1) || (%wavestorm-z24turn == $null)) {
          display2 %wavechat grimaces as the useful light shield vanishes
          unset %wavestorm-z24*
        }
        else {
          dec %wavestorm-z24turn 1
      } }
      unset %wavestorm-s07dummy1
      unset %wavestorm-s08dummy1
      unset %wavestorm-s10dummy1
      if ((%wavestorm-wavebeast == 1) && (%wavestorm-wavebeast-8 == 1)) {
        display2 %wavechat watches as the asteroids floating around the arena drive inwards and barrage all of %wavestorm-gender3 opponents
        .notice %wavechat Wavestorm %wavestorm-battleground %wavechat $+(w,%wavestorm-magicnum) %wavestorm-levelsend
      }
      wavewindowreset



      if (%wavestorm-z04 == 1) { display3 %wavechat You're asleep!  You cannot perform any actions until a teammate heals you or an opponent attacks you and wakes you up. }
      else {
        if (%wavestorm-z07 != 1) {
          if (!$dialog(Datascope)) { display3 %wavechat Timer halted; $+($me,'s) turn.  You may now perform any action. }
          unset %wavestorm-z07*
        }
        if ((%wavestorm-battleground == s01) && ($rand(1,10) == 10)) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          if ($hget(Player,WaveLegnth) == 5) { set %wavestorm-hpdummy $round($calc(%wavestorm-hpdummy * 6 / 5),0) }
          dec %wavestorm-hp %wavestorm-hpdummy
          display2 %wavechat gets burned by falling fireballs as the volcano suddenly erupts!  $me loses %wavestorm-hpdummy HP!
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        }
        if ((%wavestorm-battleground == s02) && ($rand(1,10) == 10)) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          dec %wavestorm-hp %wavestorm-hpdummy
          display2 %wavechat gets shot by a nearby cannon!  $me loses %wavestorm-hpdummy HP!
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        }
        goto s02skip
        :s02drop
        if ((%wavestorm-battleground == s02) && (%wavestorm-z07 == 1) && (%wavestorm-z07mode == 4)) {
          if ($rand(1,10) == 5) {
            set %wavestorm-s02dummy $rand(1,2)
            if (%wavestorm-s02dummy == 1) { set %wavestorm-s02back 1 }
            else { set %wavestorm-s02back 2 }
            unset %wavestorm-s02dummy
            wavestop2
            return
        } }
        :s02skip
        if (%wavestorm-battleground == s04) {
          if (%wavestorm-s04level == 1) { 
            display3 %wavechat You are on Level %wavestorm-s04level in the building.  Type "/switch up" (F3) to move up a level.  You may switch as many levels as you want before you actually take your turn.
          }
          elseif (%wavestorm-s04level isnum 2 - 4) { 
            display3 %wavechat You are on Level %wavestorm-s04level in the building.  Type "/switch up" (F3) or "/switch down" (Shift+F3) to move up or down a level.  You may switch as many levels as you want before you actually take your turn.
          }
          elseif (%wavestorm-s04level == 5) { 
            display3 %wavechat You are on Level %wavestorm-s04level in the building.  Type "/switch down" (Shift+F3) to move down a level.  You may switch as many levels as you want before you actually take your turn.
          }
          if (($rand(1,10) == 5) && (!%wavestorm-s04test)) {
            set %wavestorm-s04test 1
            .timer 1 20 unset %wavestorm-s04test 
            set %wavestorm-hpdummy $round($rand($calc(25 * $hget(Player,Level)),$calc(30 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets smashed as the demolition ball swings into Level $+(%wavestorm-s04level,!)  $me loses %wavestorm-hpdummy HP!
            .notice %wavechat Wavestorm %wavestorm-s04level %wavestorm-battleground $me b04 $hget(Player,Level)
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        } }
        if ((%wavestorm-battleground == s05) && ($rand(1,10) == 10)) {
          if ($rand(1,5) == 5) {
            if (%wavestorm-s05mode !isnum 1 - 2) { set %wavestorm-s05mode $rand(1,2) }
            elseif (%wavestorm-s05mode == 1) {
              set %wavestorm-s05mode $rand(1,2)
              if (%wavestorm-s05mode == 1) { unset %wavestorm-s05mode }
            }
            elseif (%wavestorm-s05mode == 2) {
              set %wavestorm-s05mode $rand(1,2)
              if (%wavestorm-s05mode == 2) { unset %wavestorm-s05mode }
            }
            if (%wavestorm-s05mode == 1) { display2 %wavechat blinks as the gravity around %wavestorm-gender2 decreases to .5x, enabling faster movement, but clumsier attacks }
            elseif (%wavestorm-s05mode == 2) {
              if ($hget(Player,Modifier) isletter hj) { goto s05skip }
              display2 %wavechat sinks into %wavestorm-gender3 stance as the gravity around %wavestorm-gender2 increases to 2x; slowing movement, but increasing attack power
            }
            else { display2 %wavechat smiles as the gravity returns to 1x around $+(%wavestorm-gender2,$chr(44)) giving %wavestorm-gender2 back regular speed and attack power }
            :s05skip
        } }
        if ((%wavestorm-battleground == s06) && ($rand(1,5) == 5)) {
          if (%wavestorm-s06mode == 1) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets run over by a runaway mine cart!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s06mode == 2) {
            set %wavestorm-s06cart 1
            display2 %wavechat watches as a mine cart rolls up the tracks and stops next to %wavestorm-gender2
        } }
        if ((%wavestorm-battleground == s07) && ($rand(1,10) == 7)) {
          set %wavestorm-s07dummy $rand(1,8)
          if (%wavestorm-s07dummy == 1) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets crushed by a falling column!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s07dummy == 2) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets run over by a gigantic boulder!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s07dummy == 3) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets pierced in the feet by spikes that suddenly pop out of the floor!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s07dummy == 4) {
            set %wavestorm-z07mode 5
            display2 %wavechat falls into a huge pitfall
            .notice %wavechat Wavestorm %wavestorm-battleground $me b09 $hget(Player,Level)
            wavestop
          }
          elseif (%wavestorm-s07dummy == 5) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets overrun by several arrows shooting from nearby totem pole mouths!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s07dummy == 6) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets caught in a chamber with closing walls and gets flattened!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s07dummy == 7) {
            if ($hget(Player,Modifier) isletter hj) { goto s07skip }
            set %wavestorm-b12 1
            set %wavestorm-s07dummy1 1
            display2 %wavechat gets slowed down by an ominous pit of quicksand
            :s07skip
          }
          elseif (%wavestorm-s07dummy == 8) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets knocked over by a screaming native tribesman swinging on a vine!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          unset %wavestorm-s07dummy
        }
        if ((%wavestorm-battleground == s08) && ($rand(1,10) == 10)) {
          if ($hget(Player,Modifier) isletter hj) { goto s08skip }
          set %wavestorm-s08dummy $rand(1,3)
          if (%wavestorm-s08dummy == 1) { 
            if ($hget(Player,WaveLegnth) = 10) {
              display2 %wavechat blinks as the fan at the end of the tunnel cuts on, but %wavestorm-gender1 manages to keep fighting at full speed
            }
            else {
              set %wavestorm-b14 1
              set %wavestorm-s08dummy1 1
              display2 %wavechat gets slowed down as the fan at the end of the tunnel cuts on
            }
            :s08skip
          }
          elseif (%wavestorm-s08dummy == 2) {
            if (($hget(Player,WaveLegnth) = 10) && (%wavestorm-mp < $hget(Player,MagicPoints))) {
              set %wavestorm-mpdummy $round($rand($calc(.10 * $hget(Player,MagicPoints)),$calc(.20 * $hget(Player,MagicPoints))),0)
              inc %wavestorm-mp %wavestorm-mpdummy
              display2 %wavechat watches as the fan cuts on, and uses the blowing wind as power!    $me gains %wavestorm-mpdummy MP!
              unset %wavestorm-mpdummy
            }
            else {
              set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
              dec %wavestorm-hp %wavestorm-hpdummy
              display2 %wavechat watches as the fan cuts on, and suddenly %wavestorm-gender1 gets blown into the wall!  $me loses %wavestorm-hpdummy HP!
              unset %wavestorm-hpdummy
              if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          } }
          elseif (%wavestorm-s08dummy == 3) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat watches as the fan cuts on, and suddenly %wavestorm-gender1 gets blown into everyone else!  $me loses %wavestorm-hpdummy HP!
            .notice %wavechat Wavestorm %wavestorm-battleground $me b16 $hget(Player,Level)
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          unset %wavestorm-s08dummy
        }
        if ((%wavestorm-battleground == s09) && ($rand(1,10) == 7)) {
          set %wavestorm-s09dummy $rand(1,6)
          if (%wavestorm-s09dummy == 1) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat crashes to the ground after running over a stinky piece of roadkill!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s09dummy == 2) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat hits a pothole and crashes to the ground!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s09dummy == 3) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets smacked by an oncoming car and flies into the air!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s09dummy == 4) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets hit by a drunk driver on the wrong side of the road!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s09dummy == 5) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat takes a sharp turn too lose and rams into the side rails!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s09dummy == 6) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            inc %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat pulls into a gas station and grabs a bite to eat!  $me gains %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp > $hget(Player,HealthPoints)) { set %wavestorm-hp $hget(Player,HealthPoints) }
          }
          unset %wavestorm-s09dummy
        }
        if ((%wavestorm-battleground == s10) && ($rand(1,10) == 7)) {
          set %wavestorm-s10dummy $rand(1,8)
          if (%wavestorm-s10dummy == 1) {
            set %wavestorm-z07mode 7
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            if ($hget(Player,WaveLegnth) = 4) { set %wavestorm-hpdummy $round($calc(%wavestorm-hpdummy * 6 / 5),0) }
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets caught on an electric floor and is paralyzed!  $me loses %wavestorm-hpdummy HP!
            .notice %wavechat Wavestorm %wavestorm-battleground $me b24 $hget(Player,Level)
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
            wavestop
          }
          elseif (%wavestorm-s10dummy == 2) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets crushed by a huge piston!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s10dummy == 3) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets knocked down by a moving crane!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s10dummy == 4) { 
            if ($hget(Player,Modifier) isletter hj) { goto s10skip }
            set %wavestorm-b27 1
            set %wavestorm-s10dummy1 1
            display2 %wavechat gets slowed down by an oil spill!
            :s10skip
          }
          elseif (%wavestorm-s10dummy == 5) {
            set %wavestorm-z02 3
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat inhales toxic gas and gets posioned!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s10dummy == 6) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets run over by a runaway hand truck!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s10dummy == 7) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat gets popped in the back of the head by a swinging mechanical armature!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          elseif (%wavestorm-s10dummy == 8) {
            set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(20 * $hget(Player,Level))),0)
            dec %wavestorm-hp %wavestorm-hpdummy
            display2 %wavechat is drowned in a pile of gears that explode out of a nearby faulty machine!  $me loses %wavestorm-hpdummy HP!
            unset %wavestorm-hpdummy
            if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
          }
          unset %wavestorm-s10dummy
        }
        if ((%wavestorm-battleground == s12) && (%wavestorm-hp > $int($calc($hget(Player,HealthPoints) / 9)))) {
          set %wavestorm-hpdummy $int($calc($hget(Player,HealthPoints) / 9))
          display2 %wavechat gets popped by ricocheting bouncy balls!  $me loses $calc(%wavestorm-hp - %wavestorm-hpdummy) HP!
          set %wavestorm-hp %wavestorm-hpdummy
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        }
        if ((%wavestorm-battleground == s13) && ($rand(1,10) == 10)) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          if ($hget(Player,WaveLegnth) == 4) { set %wavestorm-hpdummy $round($calc(%wavestorm-hpdummy * 6 / 5),0) }
          if ($hget(Player,WaveLegnth) == 1) { set %wavestorm-hpdummy $round($calc(%wavestorm-hpdummy * 4 / 5),0) }
          dec %wavestorm-hp %wavestorm-hpdummy
          display2 %wavechat flinches as the ground beneath %wavestorm-gender3 feet heats up unbearably!  $me loses %wavestorm-hpdummy HP!
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        }
        if ((%wavestorm-battleground == s14) && ($rand(1,10) == 10)) {
          set %wavestorm-s14dummy $rand(1,3)
          if (%wavestorm-s14dummy == 1) { 
            display2 %wavechat blinks as the photon accelerator cuts off
          }
          elseif (%wavestorm-s14dummy == 2) {
            display2 %wavechat raises %wavestorm-gender3 eyebrows as the photon accelerator barrages the arena with a mass of light photons!
          }
          elseif (%wavestorm-s14dummy == 3) {
            display2 %wavechat feels woozy as the photon accelerator sucks all the light from around $+(%wavestorm-gender2,$chr(44)) temporarily disabling %wavestorm-gender3 powers
        } }
        if ((%wavestorm-battleground == s15) && ($rand(1,10) == 10)) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          dec %wavestorm-hp %wavestorm-hpdummy
          if ($rand(1,2) == 1) { display2 %wavechat gets popped in the head by a swinging armature!  $me loses %wavestorm-hpdummy HP! }
          else { display2 %wavechat falls to the floor as the shuttle engines flare!  $me loses %wavestorm-hpdummy HP! }
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        }
        if ((%wavestorm-battleground == s16) && ($rand(1,10) == 10)) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          dec %wavestorm-hp %wavestorm-hpdummy
          display2 %wavechat gets hit by a spinning asteroid!  $me loses %wavestorm-hpdummy HP!
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        }
        if ((%wavestorm-battleground == s17) && ($rand(1,10) == 10)) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          dec %wavestorm-hp %wavestorm-hpdummy
          set %wavestorm-s17dummystage $rand(1,4)
          if (%wavestorm-s17dummystage == 1) { display2 %wavechat gets slashed by a tiger!  $me loses %wavestorm-hpdummy HP! }
          elseif (%wavestorm-s17dummystage == 2) { display2 %wavechat gets divebombed by an eagle!  $me loses %wavestorm-hpdummy HP! }
          elseif (%wavestorm-s17dummystage == 3) { display2 %wavechat gets trampled by an elephant!  $me loses %wavestorm-hpdummy HP! }
          else { display2 %wavechat gets kicked by a bitten by a snake!  $me loses %wavestorm-hpdummy HP! }
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        }
        if ((%wavestorm-battleground == s18) && ($rand(1,10) == 10)) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          dec %wavestorm-hp %wavestorm-hpdummy
          if ($rand(1,2) == 1) { display2 %wavechat gets blown away in a sudden sandstorm!  $me loses %wavestorm-hpdummy HP! }
          else { display2 %wavechat gets chomped by a gigantic sandworm!  $me loses %wavestorm-hpdummy HP! }
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
        }
        if ((%wavestorm-battleground == s19) && ($rand(1,10) == 10)) {
          set %wavestorm-hpdummy $round($rand($calc(10 * $hget(Player,Level)),$calc(15 * $hget(Player,Level))),0)
          dec %wavestorm-hp %wavestorm-hpdummy
          display2 %wavechat gets washed away by a gigantic tidal wave!  $me loses %wavestorm-hpdummy HP!
          unset %wavestorm-hpdummy
          if (%wavestorm-hp < 1) { set %wavestorm-hp 0 | nohp | return }
} } } } }

alias statshow {
  if (!$hget(Player)) {
    .notice $1 Wavestorm statshow 2
    haltdef
  }
  set %wavestorm-statsend-version %waveversion
  set %wavestorm-statsend-maxhp $hget(Player,HealthPoints)
  set %wavestorm-statsend-maxmp $hget(Player,MagicPoints)
  if (%wavestorm-battleon == 1) {
    set %wavestorm-statsend-curhp %wavestorm-hp
    set %wavestorm-statsend-curmp %wavestorm-mp
    set %wavestorm-statsend-omega %wavestorm-omega
    if (%wavestorm-z01 == 1) { set -n %wavestorm-statsend-status Unconscious- }
    else {
      if ((%wavestorm-z02) || (%wavestorm-z02 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Poisoned- }
      if ((%wavestorm-z03) || (%wavestorm-z03 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Foritified- }
      if ((%wavestorm-z04) || (%wavestorm-z04 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Asleep- }
      if ((%wavestorm-z05) || (%wavestorm-z05 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Hasted- }
      if ((%wavestorm-z06) || (%wavestorm-z06 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Slowed- }
      if ((%wavestorm-z07) || (%wavestorm-z07 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Stopped- }
      if ((%wavestorm-z08) || (%wavestorm-z08 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Weakened- }
      if ((%wavestorm-z09) || (%wavestorm-z09 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Regenerating- }
      if ((%wavestorm-z10) || (%wavestorm-z10 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status DodgeUp- }
      if ((%wavestorm-z11) || (%wavestorm-z11 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Drained- }
      if ((%wavestorm-z12) || (%wavestorm-z12 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Energized- }
      if ((%wavestorm-z13) || (%wavestorm-z13 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Cloned- }
      if ((%wavestorm-z14) || (%wavestorm-z14 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Reflecting- }
      if ((%wavestorm-z15) || (%wavestorm-z15 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Teleporting- }
      if ((%wavestorm-z16) || (%wavestorm-z16 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status M.Fortified- }
      if ((%wavestorm-z17) || (%wavestorm-z17 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Frenzied- }
      if ((%wavestorm-z18) || (%wavestorm-z18 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Shadow- }
      if ((%wavestorm-z19) || (%wavestorm-z19 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Neutralized- }
      if ((%wavestorm-z20) || (%wavestorm-z20 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Barrier- }
      if ((%wavestorm-z21) || (%wavestorm-z21 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Void- }
      if ((%wavestorm-z22) || (%wavestorm-z22 == 0)) { set -n %wavestorm-statsend-status %wavestorm-status Confused- }
    }
    set -n %wavestorm-statsend-status $left(%wavestorm-statsend-status,-1)
    if (%wavestorm-statsend-status == $null) { set -n %wavestorm-statsend-status Normal }
  }
  set %wavestorm-statsend-level $hget(Player,Level)
  set %wavestorm-statsend-weapon $hget(Player,Weaponname)
  set %wavestorm-statsend-wins $hget(Player,Wins)
  set %wavestorm-statsend-losses $hget(Player,Losses)
  set %wavestorm-statsend-color $hget(Player,Color)
  set %wavestorm-statsend-gender $hget(Player,Gender)
  if (%wavestorm-battleon != 1) {
    .notice $1 Wavestorm statshow 0 %wavestorm-statsend-maxhp %wavestorm-statsend-maxmp %wavestorm-statsend-level %wavestorm-statsend-weapon %wavestorm-statsend-wins %wavestorm-statsend-losses %wavestorm-statsend-color %wavestorm-statsend-gender %wavestorm-statsend-version
  }
  else {
    .notice $1 Wavestorm statshow 1 %wavestorm-statsend-curhp %wavestorm-statsend-maxhp %wavestorm-statsend-curmp %wavestorm-statsend-maxmp %wavestorm-statsend-omega %wavestorm-statsend-level %wavestorm-statsend-weapon %wavestorm-statsend-wins %wavestorm-statsend-losses %wavestorm-statsend-color %wavestorm-statsend-gender %wavestorm-statsend-status %wavestorm-statsend-version
  }
  unset %wavestorm-statsend-*
}

on *:CLOSE:@Wavestorm: {
  if ($dialog(Datascope)) { dialog -x Datascope }
  if ($dialog(Options)) { dialog -x Options }
  if ($dialog(OpCommands)) { dialog -x OpCommands }
}

alias nohp {
  if ((%wavestorm-battleon == 1) && (%wavestorm-hp == 0)) {
    if (%wavestorm-z00 == 1) {
      unset %wavestorm-battletimer
      .timerbattle off
      .timers15 off
      display2 %wavechat falls to %wavestorm-gender3 knees, but gasps as the bluish white energy from Power Vigorize explodes from inside %wavestorm-gender3 body and envelopes $+(%wavestorm-gender2,!)  $me shakily regains %wavestorm-gender3 footing, energized, and prepares to continue fighting
      .notice %wavechat Wavestorm %wavestorm-battleground %wavechat r01 %wavestorm-levelsend
      set %wavestorm-hp $round($rand($calc($hget(Player,HealthPoints) / 2),$calc($hget(Player,HealthPoints) * 2 / 3)),0)
      unset %wavestorm-s*
      unset %wavestorm-z*
      wavewindowreset
      set %wavestorm-battletimer 7
      .timerbattle 1 7 battletimer
    }
    else {
      unset %wavestorm-battletimer
      .timerbattle off
      set %wavestorm-z01 1
      hadd -m Player Losses $calc($hget(Player,Losses) + 1)
      wavesound 2
      display2 %wavechat has fallen!
      if ($2 != 1) { .notice %wavechat Wavestorm $1 z01 $hget(Player,Level) }
      else { .notice %wavechat Wavestorm $+($1,$3) z01 $hget(Player,Level) }
      if (%wavestorm-melee != 1) {
        if (((%wavestorm-friend1 != $null) && (%wavestorm-friend1status != 1)) || ((%wavestorm-friend2 != $null) && (%wavestorm-friend2status != 1)) || ((%wavestorm-friend3 != $null) && (%wavestorm-friend3status != 1)) || ((%wavestorm-friend4 != $null) && (%wavestorm-friend4status != 1))) {
          display3 %wavechat The battle will continue until all your teammates have fallen.  If you would like to quit and forgo the chance of being brought back however, click "Quit Battle" in the Datascope or type "/wavequit".
        }
        if ((((%wavestorm-friend1status == 1) && (!%wavestorm-friend2) && (!%wavestorm-friend3) && (!%wavestorm-friend4)) || ((%wavestorm-friend1status == 1) && (%wavestorm-friend2status == 1) && (!%wavestorm-friend3) && (!%wavestorm-friend4)) || ((%wavestorm-friend1status == 1) && (%wavestorm-friend2status == 1) && (%wavestorm-friend3status == 1) && (!%wavestorm-friend4)) || ((%wavestorm-friend1status == 1) && (%wavestorm-friend2status == 1) && (%wavestorm-friend3status == 1) && (%wavestorm-friend4status == 1))) || ((!%wavestorm-friend1) && (!%wavestorm-friend2) && (!%wavestorm-friend3) && (!%wavestorm-friend4))) {
          display3 %wavechat Your team has lost the battle.  The script will now turn off and reset.
          unset %wavestorm-*
          wavequit2
          return
      } }
      else {
        wavereset 2
} } } }