;============================================================
;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. 2.

dialog targets {
  title Targets
  icon Wavestorm.ico
  size -1 -1 200 120
  option dbu
  box Allies, 1, 1 1 199 33
  text Teammate 1, 2, 5 9 30 7
  combo 3, 5 17 60 50, drop
  text Teammate 2, 4, 70 9 30 7
  combo 5, 70 17 60 50, drop
  text Teammate 3, 6, 135 9 30 7
  combo 7, 135 17 60 50, drop
  box Opponents, 8, 1 37 199 56
  text Enemy 1, 9, 28 45 30 7
  combo 10, 28 53 60 50, drop
  text Enemy 2, 11, 113 45 30 7
  combo 12, 113 53 60 50, drop
  text Enemy 3, 13, 28 67 30 7
  combo 14, 28 75 60 50, drop
  text Enemy 4, 15, 113 67 30 7
  combo 16, 113 75 60 50, drop
  text "", 17, 1 97 125 20
  button "OK", 18, 130 101 30 10, default
  button "Cancel", 19, 165 101 30 10, default
  button ok, 20, 1 1 0 0, ok
}

on *:DIALOG:targets:init:*: { targetsrefresh }

alias targetsrefresh {
  did -e targets 1,2,3,4,6,8,9,10,11,13,15,17
  did -r targets 3,5,7,10,12,14,16
  set %targetsid 3
  :loop1
  set %addnick 1
  did -a targets %targetsid None
  :loop2
  if ($nick(%wavechat,%addnick) != $me) { did -a targets %targetsid $nick(%wavechat,%addnick) }
  inc %addnick 1
  if (%addnick <= $nick(%wavechat,0)) { 
    goto loop2
  }
  set %checknick 2
  :loop3
  if ((%targetsid == 3) && (%wavestorm-friend1 == $did(%targetsid,%checknick).text)) { did -c targets %targetsid %checknick }
  elseif ((%targetsid == 5) && (%wavestorm-friend2 == $did(%targetsid,%checknick).text)) { did -c targets %targetsid %checknick }
  elseif ((%targetsid == 7) && (%wavestorm-friend3 == $did(%targetsid,%checknick).text)) { did -c targets %targetsid %checknick }
  elseif ((%targetsid == 10) && (%wavestorm-enemy1 == $did(%targetsid,%checknick).text)) { did -c targets %targetsid %checknick }
  elseif ((%targetsid == 12) && (%wavestorm-enemy2 == $did(%targetsid,%checknick).text)) { did -c targets %targetsid %checknick }
  elseif ((%targetsid == 14) && (%wavestorm-enemy3 == $did(%targetsid,%checknick).text)) { did -c targets %targetsid %checknick }
  elseif ((%targetsid == 16) && (%wavestorm-enemy4 == $did(%targetsid,%checknick).text)) { did -c targets %targetsid %checknick }
  else {
    inc %checknick 1
    if (%checknick >= $nick(%wavechat,0)) {
      if (%targetsid == 3) { unset %wavestorm-friend1 }
      elseif (%targetsid == 5) { unset %wavestorm-friend2 }
      elseif (%targetsid == 7) { unset %wavestorm-friend3 }
      elseif (%targetsid == 10) { unset %wavestorm-enemy1 }
      elseif (%targetsid == 12) { unset %wavestorm-enemy2 }
      elseif (%targetsid == 14) { unset %wavestorm-enemy3 }
      elseif (%targetsid == 16) { unset %wavestorm-enemy4 }
      did -c targets %targetsid 1
    }
    else { goto loop3 }
  }
  if ((%targetsid isnum 3 - 5) || (%targetsid isnum 10 - 14)) {
    inc %targetsid 2
    goto loop1
  }
  if (%targetsid == 7) {
    inc %targetsid 3
    goto loop1
  }
  unset %addnick
  unset %targetsid
  unset %checknick
  did -r targets 17
  did -i targets 17 1 Set allies and enemies here.  Please note that you're only obligated to choose one enemy, all other slots are optional.  Click Cancel to reset to Melee mode.
}

on *:DIALOG:targets:sclick:*: {
  if ($did == 3) {
    if ($did(3).seltext != None) {
      set %wavestorm-friend1 $did(3).seltext
      .notice %wavestorm-friend1 Wavestorm targetcheck 1
      .timertarget1 off
      .timertarget1 1 30 targetcheck 1
    }
    else { unset %wavestorm-friend1 }
  }
  if ($did == 5) {
    if ($did(5).seltext != None) {
      set %wavestorm-friend2 $did(5).seltext
      .notice %wavestorm-friend2 Wavestorm targetcheck 2
      .timertarget2 off
      .timertarget2 1 30 targetcheck 2
    }
    else { unset %wavestorm-friend2 }
  }
  if ($did == 7) {
    if ($did(7).seltext != None) {
      set %wavestorm-friend3 $did(7).seltext
      .notice %wavestorm-friend3 Wavestorm targetcheck 3
      .timertarget3 off
      .timertarget3 1 30 targetcheck 3
    }
    else { unset %wavestorm-friend3 }
  }
  if ($did == 10) {
    if ($did(10).seltext != None) {
      set %wavestorm-enemy1 $did(10).seltext
      .notice %wavestorm-enemy1 Wavestorm targetcheck 4
      .timertarget4 off
      .timertarget4 1 30 targetcheck 4
    }
    else { unset %wavestorm-enemy1 }
  }
  if ($did == 12) {
    if ($did(12).seltext != None) {
      set %wavestorm-enemy2 $did(12).seltext
      .notice %wavestorm-enemy2 Wavestorm targetcheck 5
      .timertarget5 off
      .timertarget5 1 30 targetcheck 5
    }
    else { unset %wavestorm-enemy2 }
  }
  if ($did == 14) {
    if ($did(14).seltext != None) {
      set %wavestorm-enemy3 $did(14).seltext
      .notice %wavestorm-enemy3 Wavestorm targetcheck 6
      .timertarget6 off
      .timertarget6 1 30 targetcheck 6
    }
    else { unset %wavestorm-enemy3 }
  }
  if ($did == 16) {
    if ($did(16).seltext != None) {
      set %wavestorm-enemy4 $did(16).seltext
      .notice %wavestorm-enemy4 Wavestorm targetcheck 7
      .timertarget7 off
      .timertarget7 1 30 targetcheck 7
    }
    else { unset %wavestorm-enemy4 }
  }
  if ($did == 18) {
    if ($did(10).seltext == None) { goto warning2 }
    if (($did(3).seltext != None) && (($did(3).seltext == $did(5).seltext) || ($did(3).seltext == $did(7).seltext) || ($did(3).seltext == $did(10).seltext) || ($did(3).seltext == $did(12).seltext) || ($did(3).seltext == $did(14).seltext) || ($did(3).seltext == $did(16).seltext))) { goto warning1 }
    if (($did(5).seltext != None) && (($did(5).seltext == $did(7).seltext) || ($did(5).seltext == $did(10).seltext) || ($did(5).seltext == $did(12).seltext) || ($did(5).seltext == $did(14).seltext) || ($did(5).seltext == $did(16).seltext))) { goto warning1 }
    if (($did(7).seltext != None) && (($did(7).seltext == $did(10).seltext) || ($did(7).seltext == $did(12).seltext) || ($did(7).seltext == $did(14).seltext) || ($did(7).seltext == $did(16).seltext))) { goto warning1 }
    if (($did(10).seltext != None) && (($did(10).seltext == $did(12).seltext) || ($did(10).seltext == $did(14).seltext) || ($did(10).seltext == $did(16).seltext))) { goto warning1 }
    if (($did(12).seltext != None) && (($did(12).seltext == $did(14).seltext) || ($did(12).seltext == $did(16).seltext))) { goto warning1 }
    if (($did(14).seltext != None) && ($did(14).seltext == $did(16).seltext)) { goto warning1 }
    dialog -x targets
    return
    :warning1
    did -r targets 17
    did -i targets 17 1 One or more of the targets are conflicting!  Please set each teammate and opponent to a different nick.  Click Cancel to go back to Melee mode.
    return
    :warning2
    did -r targets 17
    did -i targets 17 1 Enemy 1 MUST be set to a person, or you will have no-one to fight!  Click Cancel to go back to Melee mode.
    return
  }
  if ($did == 19) {
    unset %wavestorm-friend*
    unset %wavestorm-enemy*
    set %wavestorm-melee 1
    if ($dialog(Options)) {
      did -u options 10
      did -cf options 9
    }
    dialog -x targets
} }

alias targetcheck {
  if ($1 == 1) {
    if (!$dialog(Targets)) { targetsdialog }
    did -c targets 3 1
    did -r targets 17
    did -i targets 17 1 %wavestorm-friend1 does not have the Wavestorm script ver. %waveversion or later.  Please choose another teammate.
    unset %wavestorm-friend1
  }
  elseif ($1 == 2) {
    if (!$dialog(Targets)) { targetsdialog }
    did -c targets 5 1
    did -r targets 17
    did -i targets 17 1 %wavestorm-friend2 does not have the Wavestorm script ver. %waveversion or later.  Please choose another teammate.
    unset %wavestorm-friend2
  }
  elseif ($1 == 3) {
    if (!$dialog(Targets)) { targetsdialog }
    did -c targets 7 1
    did -r targets 17
    did -i targets 17 1 %wavestorm-friend3 does not have the Wavestorm script ver. %waveversion or later.  Please choose another teammate.
    unset %wavestorm-friend3
  }
  elseif ($1 == 4) {
    if (!$dialog(Targets)) { targetsdialog }
    did -c targets 10 1
    did -r targets 17
    did -i targets 17 1 %wavestorm-enemy1 does not have the Wavestorm script ver. %waveversion or later.  Please choose another opponent.
    unset %wavestorm-enemy1
  }
  elseif ($1 == 5) {
    if (!$dialog(Targets)) { targetsdialog }
    did -c targets 12 1
    did -r targets 17
    did -i targets 17 1 %wavestorm-enemy2 does not have the Wavestorm script ver. %waveversion or later.  Please choose another opponent.
    unset %wavestorm-enemy2
  }
  elseif ($1 == 6) {
    if (!$dialog(Targets)) { targetsdialog }
    did -c targets 14 1
    did -r targets 17
    did -i targets 17 1 %wavestorm-enemy3 does not have the Wavestorm script ver. %waveversion or later.  Please choose another opponent.
    unset %wavestorm-enemy3
  }
  elseif ($1 == 7) {
    if (!$dialog(Targets)) { targetsdialog }
    did -c targets 16 1
    did -r targets 17
    did -i targets 17 1 %wavestorm-enemy4 does not have the Wavestorm script ver. %waveversion or later.  Please choose another opponent.
    unset %wavestorm-enemy4
} }

on *:ACTIVE:*: {
  if ($active == @Wavestorm) { 
    if ((!$dialog(Datascope)) && (!$dialog(Options))) { wavedialog }
  }
  else {
    if ($dialog(Datascope)) { dialog -x datascope }
    if ($dialog(Options)) { dialog -x options }
    if ($dialog(OpCommands)) { dialog -x OpCommands }
} }

dialog stageselect {
  title Stage Select
  icon Wavestorm.ico
  size -1 -1 300 295
  option dbu
  box Stage Select, 1, 1 1 298 291
  button "Stage 1: Volcano", 2, 15 9 80 10
  text "Boiling magma snakes its way across the floor in this flaming cauldron.  Watch out for sudden eruptions!", 3, 5 20 90 40, center
  button "Stage 2: Airship", 4, 109 9 80 10
  text "Flying through the sky at a torpid pace, this mighty battleship is easy to get knocked off of!  Try not to be the brunt of any fierce attacks!", 5, 102 20 90 40, center
  button "Stage 3: Grassy Field", 6, 203 9 80 10
  text "Wind-blown grasses cover the ground, and make for better dodging.  Don't get caught in any brushfires!", 7, 200 20 90 40, center
  button "Stage 4: Battered Building", 8, 15 65 80 10
  text "This decrepid high-rise has 5 floors to use in running from attacks!  Make sure you don't get caught by the demolishing ball outside though!", 9, 5 76 90 40, center
  button "Stage 5: Space Station", 10, 109 65 80 10
  text "Outside even the planet's atmosphere, this huge construct of metals is perfect for building spaceships.  But the gravity can go crazy any second, so be careful!", 11, 102 76 90 40, center
  button "Stage 6: Mine", 12, 203 65 80 10
  text "The underground cave system is huge, and railways connect the various areas.  Try to use the mine carts to your advantage!", 13, 200 76 90 40, center
  button "Stage 7: Temple", 14, 15 121 80 10
  text "This ancient Aztec building is littered with traps galore!  Make sure to have a White Wavestorm Knight nearby; you're gonna need 'em!", 15, 5 132 90 40, center
  button "Stage 8: Wind Tunnel", 16, 109 121 80 10
  text "The streamlined tunnel offers a small fighting ground, but the fan at the end can cause some trouble if it comes on!", 17, 102 132 90 40, center
  button "Stage 9: Highway", 18, 203 121 80 10
  text "Everybody hops on motorcycles and takes off down the road!  Try not to get knocked off your cycle, and watch out for accidents and traps along the way!", 19, 200 132 90 40, center
  button "Stage 10: Factory", 20, 15 177 80 10
  text "Various powered machines and tools litter the massive halls of this warehouse.  Keep an eye out for various sundry traps.", 21, 5 188 90 40, center
  button "Stage 11: Holostation", 22, 109 177 80 10
  text "This stage is a standard fighting arena with no obstacles.  Go all out!", 23, 102 188 90 40, center
  button "Stage 12: Repulsor Arena", 24, 203 177 80 10
  text "Inside this weird cube, wall cannons fire at you constantly to keep your health low!  Luckily, winning brings twice the awards.", 25, 200 188 90 40, center
  button "Stage 13: No Man's Land", 26, 15 233 80 10
  text "Condors keep you from using items, and heat flares burn everyone in this dangerous desert!", 27, 5 244 90 30, center
  button "Stage 14: Photon Accelerator", 28, 109 233 80 10
  text "This technologically advanced room can make your magic cost only half MP or keep you from using magic at all!  Stay on your toes here...", 29, 102 244 90 30, center
  button "Stage 15: Space Romp", 30, 203 233 80 10
  text "Not just an arena, this stage is an experience!  Fight on a shuttle, in deep space, or on three dangerous planets!", 31, 200 244 90 30, center
  button "Random", 32, 15 279 268 10
  button ok, 33, 1 1 0 0, ok
}

on *:DIALOG:stageselect:sclick:*: {
  unset %wavestorm-s0*
  unset %wavestorm-s1*
  if ($did == 2) { set %wavestorm-battleground s01 }
  if ($did == 4) { set %wavestorm-battleground s02 }
  if ($did == 6) { set %wavestorm-battleground s03 }
  if ($did == 8) { set %wavestorm-battleground s04 }
  if ($did == 10) { set %wavestorm-battleground s05 }
  if ($did == 12) { set %wavestorm-battleground s06 }
  if ($did == 14) { set %wavestorm-battleground s07 }
  if ($did == 16) { set %wavestorm-battleground s08 }
  if ($did == 18) { set %wavestorm-battleground s09 }
  if ($did == 20) { set %wavestorm-battleground s10 }
  if ($did == 22) { set %wavestorm-battleground s11 }
  if ($did == 24) { set %wavestorm-battleground s12 }
  if ($did == 26) { set %wavestorm-battleground s13 }
  if ($did == 28) { set %wavestorm-battleground s14 }
  if ($did == 30) { set %wavestorm-battleground s15 }
  if ($did == 32) {
    set %wavestorm-battleground $rand(1,15)
    if (%wavestorm-battleground isnum 1 - 9) { set %wavestorm-battleground s0 $+ %wavestorm-battleground }
    elseif (%wavestorm-battleground isnum 10 - 15) { set %wavestorm-battleground s $+ %wavestorm-battleground }
  }
  if (%wavemusic == 1) {
    if ($did isnum 1 - 18) { .timerwavemusic 1 5 wavestorm-music $+(0,$calc($did / 2)) }
    else { .timerwavemusic 1 5 wavestorm-music $calc($did / 2) }
  }
  dialog -x stageselect
  if (%wavestorm-battleon == 1) {
    set %wavestorm-stageselecttimer 1
    .timerstageselectblock 1 300 unset %wavestorm-stageselecttimer
    .notice %wavechat Wavestorm battleground %wavestorm-battleground
    if ($dialog(Datascope)) { did -b datascope 28 }
    if (%wavestorm-battleground == s01) {
      display2 %wavechat chooses the Volcano level!  Boiling magma snakes its way across the floor in this flaming cauldron.  Watch out for sudden eruptions!
    }
    elseif (%wavestorm-battleground == s02) {
      display2 %wavechat chooses the Airship level!  Flying through the sky at a torpid pace, this mighty battleship is easy to get knocked off of!  Try not to be the brunt of any fierce attacks!
    }
    elseif (%wavestorm-battleground == s03) {
      display2 %wavechat chooses the Grassy Field level!  Wind-blown grasses cover the ground, and make for better dodging.  Don't get caught in any brushfires!
    }
    elseif (%wavestorm-battleground == s04) {
      display2 %wavechat chooses the Battered Building level!  This decrepid high-rise has 5 floors to use in running from attacks!  Make sure you don't get caught by the demolishing ball outside though!
      set %wavestorm-s04level 1
    }
    elseif (%wavestorm-battleground == s05) {
      display2 %wavechat chooses the Space Station level!  Outside even the planet's atmosphere, this huge construct of metals is perfect for building spaceships.  But the gravity can go crazy any second, so be careful!
    }
    elseif (%wavestorm-battleground == s06) {
      display2 %wavechat chooses the Mine level!  The underground cave system is huge, and railways connect the various areas.  Try to use the mine carts to your advantage!
    }
    elseif (%wavestorm-battleground == s07) {
      display2 %wavechat chooses the Temple level!  This ancient Aztec building is littered with traps galore!  Make sure to have a White Wavestorm Knight nearby; you're gonna need 'em!
    }
    elseif (%wavestorm-battleground == s08) {
      display2 %wavechat chooses the Wind Tunnel level!  The streamlined tunnel offers a small fighting ground, but the fan at the end can cause some trouble if it comes on!
    }
    elseif (%wavestorm-battleground == s09) {
      display2 %wavechat chooses the Highway level!  Everybody hops on motorcycles and takes off down the road!  Try not to get knocked off your cycle, and watch out for accidents and traps along the way!
    }
    elseif (%wavestorm-battleground == s10) {
      display2 %wavechat chooses the Factory level!  Various powered machines and tools litter the massive halls of this warehouse.  Keep an eye out for various sundry traps.
    }
    elseif (%wavestorm-battleground == s11) {
      display2 %wavechat chooses the Holostation level!  This stage is a standard fighting arena with no obstacles.  Go all out!
    }
    elseif (%wavestorm-battleground == s12) {
      display2 %wavechat chooses the Repulsor Arena level!  Inside this weird cube, wall cannons fire at you constantly to keep your health low!  Luckily, winning brings twice the awards.
    }
    elseif (%wavestorm-battleground == s13) {
      display2 %wavechat chooses the No Man's Land level!  Condors keep you from using items, and heat flares burn everyone in this dangerous desert!
    }
    elseif (%wavestorm-battleground == s14) {
      display2 %wavechat chooses the Photon Accelerator level!  This technologically advanced room can make your magic cost only half MP or keep you from using magic at all!  Stay on your toes here...
    }
    elseif (%wavestorm-battleground == s15) {
      display2 %wavechat chooses the Space Romp level!  You're starting in a space shuttle.  Watch out for the armatures and sudden engine flares!
      .timers15 1 $rand(300,480) wavestorm-s15switch
  } }
  else { unset %wavestorm-battleground }
}

on *:DIALOG:options:scroll:18: {
  did -r options 13
  did -a options 13 $calc(101 - $did(18).sel)
  if (magic isin $left($did(options,12).seltext,9)) { return }
  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 1 - 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 (item isin $left($did(options,12).seltext,9)) {
    set %wavestorm-options12name Shop
    set %wavestorm-options12cost1 Credits
    set %wavestorm-options12cost2 Omnis
  }
  did -r options 14
  did -i options 14 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(%wavestorm-options12name,%wavestorm-options12num),Description) - Costs $calc($readini(" $+ $scriptdirWSInfo1.ini",$+(%wavestorm-options12name,%wavestorm-options12num),%wavestorm-options12cost1) * $calc(101 - $did(18).sel)) $+(%wavestorm-options12cost2,.)
}
on *:DIALOG:options:edit:*: {
  if ($did == 13) {
    did -c options 18 $calc(101 - $did(13).text)
    did -r options 13
    did -a options 13 $calc(101 - $did(18).sel)
    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 1 - 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,9)) { return }
    if (item isin $left($did(options,12).seltext,9)) {
      set %wavestorm-options12name Shop
      set %wavestorm-options12cost1 Credits
      set %wavestorm-options12cost2 Omnis
    }
    did -r options 14
    did -i options 14 1 $readini(" $+ $scriptdirWSInfo1.ini",$+(%wavestorm-options12name,%wavestorm-options12num),Description) - Costs $calc($readini(" $+ $scriptdirWSInfo1.ini",$+(%wavestorm-options12name,%wavestorm-options12num),%wavestorm-options12cost1) * $calc(101 - $did(18).sel)) $+(%wavestorm-options12cost2,.)
} }

dialog opcommands {
  title Wavestorm Op Control
  icon Wavestorm.ico
  ;size 752 460 133 82
  size $calc($window(-1).w / 1.307605) $calc($window(-1).w / 1.888525) $calc($window(-1).w / 8.661654) $calc($window(-1).w / 14.04878)
  option dbu
  box Level Changing, 1, 1 1 131 35
  button Op, 2, 5 9 60 10, default
  button Voice, 3, 68 9 60 10, default
  button Deop, 4, 5 21 60 10, default
  button Devoice, 5, 68 21 60 10, default
  box Authoritive Action, 6, 1 36 131 44
  button Kick, 7, 5 44 40 10, default
  button Ban, 8, 49 44 40 10, default
  edit "5:00", 9, 93 44 35 10, center
  edit "Please type a reason for kicking here:", 10, 5 56 124 20, multi
}

on *:DIALOG:opcommands:sclick:*: {
  if (%wavestorm-battleon == 1) { set -n %waveopnick $strip($sline(@Wavestorm,1)) }
  else { set -n %waveopnick $right($strip($sline(@Wavestorm,1)),-1) }
  if ($did == 2) { mode %wavechat +o %waveopnick }
  if ($did == 3) { mode %wavechat +v %waveopnick }
  if ($did == 4) { mode %wavechat -o %waveopnick }
  if ($did == 5) { mode %wavechat -v %waveopnick }
  if ($did == 7) {
    if (($did(opcommands,10).text) && ($did(opcommands,10).text != Please type a reason for kicking here:)) {
      kick %wavechat %waveopnick Wavestorm Op Control: $did(opcommands,10).text
    }
    else { kick %wavechat %waveopnick Wavestorm Op Control }
  }
  if ($did == 8) { 
    if ($did(opcommands,9).text == 0) { unset %waveopban }
    elseif (($count($did(opcommands,9).text,$chr(58)) == 1) && ($mid($did(opcommands,9).text,-3,1) == $chr(58))) {
      set %waveopban1 $gettok($did(opcommands,9).text,1,58)
      set %waveopban2 $gettok($did(opcommands,9).text,2,58)
      set %waveopban $calc((%waveopban1 * 60) + %waveopban2)
    }
    else { set %waveopban $did(opcommands,9).text }
    if (aol isin $address(%waveopnick,1)) { set %waveopbanaddress $+($left($address(%waveopnick,1),$pos($address(%waveopnick,1),$chr(64),1)),$chr(42)) }
    else { set %waveopbanaddress $address(%waveopnick,1) }
    mode %wavechat +b %waveopbanaddress
    if (($did(opcommands,10).text) && ($did(opcommands,10).text != Please type a reason for kicking here:)) {
      kick %wavechat %waveopnick Wavestorm Op Control: $did(opcommands,10).text
    }
    else { kick %wavechat %waveopnick Wavestorm Op Control }
    if (%waveopban) { .timer 1 %waveopban mode %wavechat -b %waveopbanaddress }
    unset %waveopban*
  }
  unset %waveopnick
  wavewindowreset
}

alias opcontrol {
  if (!$dialog(OpCommands)) {
    if ($me isop %wavechat) {
      dialog -mabh OpCommands opcommands
    }
    else { display3 %wavechat You cannot access the Op Control if you're not opped. }
} }

on ^*:HOTLINK:*:@Wavestorm: {
  if ((Terminus == $1) || (Datascope == $1) || ((Omega == $1) || (Omega Storm isin $hotline)) || ((Storm == $1) || (Omega Storm isin $hotline)) || (Euphometer == $1) || (Aurometer == $1) || (Wavelength == $1) || (Kenometer == $1) || (Dextometer == $1) || (Omni isin $1) || (Rescue == $1) || (Poisoned == $1) || (Fortified == $1) || (Asleep == $1) || (Hasted == $1) || (Slowed == $1) || (Stopped == $1) || (Weakened == $1) || (Regenerating == $1) || ((Dodge == $1) || (Dodge Up isin $hotline)) || ((Up == $1) || (Dodge Up isin $hotline)) || (Drained == $1) || (Energized == $1) || (Cloned == $1) || (Reflecting == $1) || (Teleporting == $1) || ((M. == $1) || (M. Fortified isin $hotline)) || (Frenzied == $1) || (Shadow == $1) || (Neutralized == $1) || (Barrier == $1) || (Void == $1) || (Confused == $1) || ($remove($1,$chr(60),$chr(62)) ison %wavechat)) { return }
  haltdef
}

on *:HOTLINK:*:@Wavestorm: {
  if ($remove($1,$chr(60),$chr(62)) ison %wavechat) {
    if (%wavestorm-battleon == 1) { 
      var %wavestorm-hotlink 9
      sline -l @Wavestorm 9
      attack $strip($remove($1,$chr(60),$chr(62)))
    }
    else {
      var %wavestorm-hotlink 14
      wavestat $strip($remove($1,$chr(60),$chr(62)))
    }
    :loop
    if ($remove($1,$chr(60),$chr(62)) isin $line(@Wavestorm,%wavestorm-hotlink,1)) { sline -l @Wavestorm %wavestorm-hotlink }
    else {
      inc %wavestorm-hotlink 1
      if (%wavestorm-hotlink > $line(@Wavestorm,0,1)) { return }
      goto loop
  } }
  else {
    if (($1 == Omega) || ($1 == Storm)) { .timer 0 1 var %wavestorm-hotlink $input(-=-Omega Storm-=- $crlf $crlf $readini(" $+ $scriptdirWSInfo1.ini",Definition,Omega Storm),o,Wavestorm) }
    else {
      if (((Rescue == $1) || (Poisoned == $1) || (Fortified == $1) || (Asleep == $1) || (Hasted == $1) || (Slowed == $1) || (Stopped == $1) || (Weakened == $1) || (Regenerating == $1) || ((Dodge == $1) || (Dodge Up isin $hotline)) || ((Up == $1) || (Dodge Up isin $hotline)) || (Drained == $1) || (Energized == $1) || (Cloned == $1) || (Reflecting == $1) || (Teleporting == $1) || ((M. == $1) || (M. Fortified isin $hotline)) || (Frenzied == $1) || (Shadow == $1) || (Neutralized == $1) || (Barrier == $1) || (Void == $1) || (Confused == $1)) && ($1 !isin $line(@Wavestorm,6,1))) { return }
      if ((($1 == M.) || ($1 == Fortified)) && (M. Fortified isin $hotline)) { .timer 0 1 var %wavestorm-hotlink $input(-=-Magically Fortified-=- $crlf $crlf $readini(" $+ $scriptdirWSInfo1.ini",Definition,M. Fortified),o,Wavestorm) }
      elseif ((($1 == Dodge) || ($1 == Up)) && (Dodge Up isin $hotline)) { .timer 0 1 var %wavestorm-hotlink $input(-=-Dodge Up-=- $crlf $crlf $readini(" $+ $scriptdirWSInfo1.ini",Definition,Dodge Up),o,Wavestorm) }
      else { .timer 0 1 var %wavestorm-hotlink $input($+(-=-,$1,-=-) $crlf $crlf $readini(" $+ $scriptdirWSInfo1.ini",Definition,$1),o,Wavestorm) }
} } }

alias wavebattleground { dialog -mabh StageSelect stageselect }

alias wavecustom { dialog -mabh WaveCustom wavecustom }

dialog wavecustom {
  title Customization
  icon Wavestorm.ico
  size -1 -1 171 104
  option dbu
  box "", 1, 1 1 169 100
  text Intro Poses, 2, 5 6 50 10
  text Intro Sayings, 3, 5 18 50 10
  text End Poses, 4, 5 30 50 10
  text End Sayings, 5, 5 42 50 10
  text Physical Attacks, 6, 5 54 50 10
  text Omega Storms, 7, 5 66 50 10
  text Dodges, 8, 5 78 50 10
  check Standard, 9, 60 5 50 10
  check Custom, 10, 115 5 50 10
  check Standard, 11, 60 17 50 10
  check Custom, 12, 115 17 50 10
  check Standard, 13, 60 29 50 10
  check Custom, 14, 115 29 50 10
  check Standard, 15, 60 41 50 10
  check Custom, 16, 115 41 50 10
  check Standard, 17, 60 53 50 10
  check Custom, 18, 115 53 50 10
  check Standard, 19, 60 65 50 10
  check Custom, 20, 115 65 50 10
  check Standard, 21, 60 77 50 10
  check Custom, 22, 115 77 50 10
  button Text Editor, 23, 5 88 161 10
}

on *:DIALOG:wavecustom:init:*: { wavecustomrefresh }

alias wavecustomrefresh {
  if (%wave-custom-iposes1 == 1) { did -c wavecustom 9 }
  if (%wave-custom-iposes2 == 1) { did -c wavecustom 10 }
  if (%wave-custom-isayings1 == 1) { did -c wavecustom 11 }
  if (%wave-custom-isayings2 == 1) { did -c wavecustom 12 }
  if (%wave-custom-eposes1 == 1) { did -c wavecustom 13 }
  if (%wave-custom-eposes2 == 1) { did -c wavecustom 14 }
  if (%wave-custom-esayings1 == 1) { did -c wavecustom 15 }
  if (%wave-custom-esayings2 == 1) { did -c wavecustom 16 }
  if (%wave-custom-physical1 == 1) { did -c wavecustom 17 }
  if (%wave-custom-physical2 == 1) { did -c wavecustom 18 }
  if (%wave-custom-omega1 == 1) { did -c wavecustom 19 }
  if (%wave-custom-omega2 == 1) { did -c wavecustom 20 }
  if (%wave-custom-dodge1 == 1) { did -c wavecustom 21 }
  if (%wave-custom-dodge2 == 1) { did -c wavecustom 22 }
}

on *:DIALOG:wavecustom:sclick:*: {
  if ($did == 9) {
    if ($did(9).state == 1) { set %wave-custom-iposes1 1 }
    elseif ($did(9).state == 0) { unset %wave-custom-iposes1 }
  }
  elseif ($did == 10) {
    if ($did(10).state == 1) {
      if (($exists(" $+ $scriptdirWSiposes.wvs") == $false) || ($lines(" $+ $scriptdirWSiposes.wvs") <= 0)) {
        var %wavestorm-custominput = $input(You must have a WSiposes.wvs file in $scriptdir with at least one intro pose in it before you can use this option.  Readme.txt has more information.,ow,Wavestorm)
        did -u wavecustom 10
        set %wavecustom2-load 1
        wavecustom2
        return
      }
      set %wave-custom-iposes2 1
    }
    elseif ($did(10).state == 0) { unset %wave-custom-iposes2 }
  }
  if ($did == 11) {
    if ($did(11).state == 1) { set %wave-custom-isayings1 1 }
    elseif ($did(11).state == 0) { unset %wave-custom-isayings1 }
  }
  elseif ($did == 12) {
    if ($did(12).state == 1) {
      if (($exists(" $+ $scriptdirWSisayings.wvs") == $false) || ($lines(" $+ $scriptdirWSisayings.wvs") <= 0)) {
        var %wavestorm-custominput = $input(You must have a WSisayings.wvs file in $scriptdir with at least one intro saying in it before you can use this option.  Readme.txt has more information.,ow,Wavestorm)
        did -u wavecustom 12
        set %wavecustom2-load 2
        wavecustom2
        return
      }
      set %wave-custom-isayings2 1
    }
    elseif ($did(12).state == 0) { unset %wave-custom-isayings2 }
  }
  if ($did == 13) {
    if ($did(13).state == 1) { set %wave-custom-eposes1 1 }
    elseif ($did(13).state == 0) { unset %wave-custom-eposes1 }
  }
  elseif ($did == 14) {
    if ($did(14).state == 1) {
      if (($exists(" $+ $scriptdirWSeposes.wvs") == $false) || ($lines(" $+ $scriptdirWSeposes.wvs") <= 0)) {
        var %wavestorm-custominput = $input(You must have a WSeposes.wvs file in $scriptdir with at least one end pose in it before you can use this option.  Readme.txt has more information.,ow,Wavestorm)
        did -u wavecustom 14
        set %wavecustom2-load 3
        wavecustom2
        return
      }
      set %wave-custom-eposes2 1
    }
    elseif ($did(14).state == 0) { unset %wave-custom-eposes2 }
  }
  if ($did == 15) {
    if ($did(15).state == 1) { set %wave-custom-esayings1 1 }
    elseif ($did(15).state == 0) { unset %wave-custom-esayings1 }
  }
  elseif ($did == 16) {
    if ($did(16).state == 1) {
      if (($exists(" $+ $scriptdirWSesayings.wvs") == $false) || ($lines(" $+ $scriptdirWSesayings.wvs") <= 0)) {
        var %wavestorm-custominput = $input(You must have a WSesayings.wvs file in $scriptdir with at least one end pose in it before you can use this option.  Readme.txt has more information.,ow,Wavestorm)
        did -u wavecustom 16
        set %wavecustom2-load 4
        wavecustom2
        return
      }
      set %wave-custom-esayings2 1
    }
    elseif ($did(16).state == 0) { unset %wave-custom-esayings2 }
  }
  if ($did == 17) {
    if ($did(17).state == 1) { set %wave-custom-physical1 1 }
    elseif ($did(17).state == 0) {
      if (%wave-custom-physical2 != 1) {
        var %wavestorm-custominput = $input(One of the two choices for Physical Attacks must be checked!,ow,Wavestorm)
        did -c wavecustom 17
        did -u wavecustom 18
        set %wave-custom-physical1 1
        return
      }
      unset %wave-custom-physical1
  } }
  elseif ($did == 18) {
    if ($did(18).state == 1) {
      if (($exists(" $+ $scriptdirWSphysical.wvs") == $false) || ($lines(" $+ $scriptdirWSphysical.wvs") <= 0)) {
        var %wavestorm-custominput = $input(You must have a WSphysical.wvs file in $scriptdir with at least one physical attack in it before you can use this option.  Readme.txt has more information.,ow,Wavestorm)
        did -u wavecustom 18
        set %wavecustom2-load 5
        wavecustom2
        return
      }
      set %wave-custom-physical2 1
    }
    elseif ($did(18).state == 0) {
      if (%wave-custom-physical1 != 1) {
        var %wavestorm-custominput = $input(One of the two choices for Physical Attacks must be checked!,ow,Wavestorm)
        did -c wavecustom 17
        did -u wavecustom 18
        set %wave-custom-physical1 1
        return
      }
      unset %wave-custom-physical2
  } }
  if ($did == 19) {
    if ($did(19).state == 1) { set %wave-custom-omega1 1 }
    elseif ($did(19).state == 0) {
      if (%wave-custom-omega2 != 1) {
        var %wavestorm-custominput = $input(One of the two choices for Omega Storms must be checked!,ow,Wavestorm)
        did -c wavecustom 19
        did -u wavecustom 20
        set %wave-custom-omega1 1
        return
      }
      unset %wave-custom-omega1
  } }
  elseif ($did == 20) {
    if ($did(20).state == 1) {
      if (($exists(" $+ $scriptdirWSomega.wvs") == $false) || ($lines(" $+ $scriptdirWSomega.wvs") <= 0)) {
        var %wavestorm-custominput = $input(You must have a WSomega.wvs file in $scriptdir with at least one Omega Storm in it before you can use this option.  Readme.txt has more information.,ow,Wavestorm)
        did -u wavecustom 20
        set %wavecustom2-load 6
        wavecustom2
        return
      }
      set %wave-custom-omega2 1
    }
    elseif ($did(20).state == 0) {
      if (%wave-custom-omega1 != 1) {
        var %wavestorm-custominput = $input(One of the two choices for Omega Storms must be checked!,ow,Wavestorm)
        did -c wavecustom 19
        did -u wavecustom 20
        set %wave-custom-omega1 1
        return
      }
      unset %wave-custom-omega2
  } }
  if ($did == 21) {
    if ($did(21).state == 1) { set %wave-custom-dodge1 1 }
    elseif ($did(21).state == 0) {
      if (%wave-custom-dodge2 != 1) {
        var %wavestorm-custominput = $input(One of the two choices for Dodges must be checked!,ow,Wavestorm)
        did -c wavecustom 21
        did -u wavecustom 22
        set %wave-custom-dodge1 1
        return
      }
      unset %wave-custom-dodge1
  } }
  elseif ($did == 22) {
    if ($did(22).state == 1) {
      if (($exists(" $+ $scriptdirWSdodge.wvs") == $false) || ($lines(" $+ $scriptdirWSdodge.wvs") <= 0)) {
        var %wavestorm-custominput = $input(You must have a WSdodge.wvs file in $scriptdir with at least one dodge in it before you can use this option.  Readme.txt has more information.,ow,Wavestorm)
        did -u wavecustom 22
        set %wavecustom2-load 7
        wavecustom2
        return
      }
      set %wave-custom-dodge2 1
    }
    elseif ($did(22).state == 0) {
      if (%wave-custom-dodge1 != 1) {
        var %wavestorm-custominput = $input(One of the two choices for Dodges must be checked!,ow,Wavestorm)
        did -c wavecustom 21
        did -u wavecustom 22
        set %wave-custom-dodge1 1
        return
      }
      unset %wave-custom-dodge2
  } }
  elseif ($did == 23) {
    wavecustom2
} }

alias wavecustom2 { dialog -mabh WaveCustom2 wavecustom2 }

dialog wavecustom2 {
  title Customization: Editor
  icon Wavestorm.ico
  size -1 -1 200 248
  option dbu
  box File Load, 1, 1 1 198 23
  combo 2, 5 9 140 10, drop
  button Load File, 3, 150 9 45 10
  box Text Editor, 4, 1 25 198 180
  list 5, 5 33 191 100, vsbar
  edit "", 8, 5 129 191 11, autohs limit 10000000
  text "", 6, 5 152 189 50, center
  button Update Selected, 9, 5 141 45 10
  button Add New Line, 10, 54 141 45 10
  button Remove Selected, 11, 103 141 45 10
  button Save File, 7, 152 141 45 10
  box Usable Identifiers, 14, 1 207 198 39
  text "", 12, 5 215 94 7
  text "", 13, 5 222 94 7
  text "", 15, 5 229 94 7
  text "", 16, 5 236 189 7, center
  text "", 17, 145 215 94 7
  text "", 18, 145 222 94 7
  text "", 19, 145 229 94 7
}

on *:DIALOG:wavecustom2:init:*: {
  wavecustom2refresh
}

alias wavecustom2refresh {
  did -r wavecustom2 12,13,15,16,17,18,19
  did -a wavecustom2 12 !target = The target of attacks
  did -a wavecustom2 13 !enemy = The defeated enemy
  did -a wavecustom2 15 !me = Your current nick
  did -a wavecustom2 16 !weapon = Your current weapon
  did -a wavecustom2 17 !gender1 = he/she
  did -a wavecustom2 18 !gender2 = him/her
  did -a wavecustom2 19 !gender3 = his/her
  did -r wavecustom2 2
  did -a wavecustom2 2 $scriptdirWSiposes.wvs
  did -a wavecustom2 2 $scriptdirWSisayings.wvs
  did -a wavecustom2 2 $scriptdirWSeposes.wvs
  did -a wavecustom2 2 $scriptdirWSesayings.wvs
  did -a wavecustom2 2 $scriptdirWSphysical.wvs
  did -a wavecustom2 2 $scriptdirWSomega.wvs
  did -a wavecustom2 2 $scriptdirWSdodge.wvs
  if (%wavecustom2-load isnum 1 - 7) {
    did -c wavecustom2 2 %wavecustom2-load
    unset %wavecustom2-load
  }
  else { did -c wavecustom2 2 1 }
  if ($exists($+(",$did(wavecustom2,2).seltext,")) == $true) {
    loadbuf $lines($+(",$did(wavecustom2,2).seltext,")) -or wavecustom2 5 $+(",$did(wavecustom2,2).seltext,")
  }
  did -c wavecustom2 5 1
  did -r wavecustom2 8
  did -a wavecustom2 8 $did(wavecustom2,5).seltext
  ;did -r wavecustom2 12
  ;did -a wavecustom2 12 Usable Identifiers/Variables $cr $+($chr(36),1) - The target of attacks $cr $+($chr(36),nick) - Your defeated enemy $cr $+($chr(36),me) - Your current nick
  ;did -r wavecustom2 13
  ;did -a wavecustom2 13 $+($chr(36),+) - Joins words on both sides $cr $+(%,wavestorm-gender1) - he/she $cr $+(%,wavestorm-gender2) - him/her $cr $+(%,wavestorm-gender3) - his/her
}

on *:DIALOG:wavecustom2:edit:*: {
  if ($did == 8) {
    did -r wavecustom2 6
    if ($hget(Player,Gender) == Female) {
      var %wavecustom2-6a = she
      var %wavecustom2-6b = her
      var %wavecustom2-6c = her
    }
    elseif ($hget(Player,Gender) == Male) {
      var %wavecustom2-6a = he
      var %wavecustom2-6b = him
      var %wavecustom2-6c = his
    }
    else {
      if ($rand(1,2) == 1) {
        var %wavecustom2-6a = she
        var %wavecustom2-6b = her
        var %wavecustom2-6c = her
      }
      else {
        var %wavecustom2-6a = he
        var %wavecustom2-6b = him
        var %wavecustom2-6c = his
    } }
    if ($hget(Player,Weapon)) { var %wavecustom2-6weapon = $hget(Player,Weapon) }
    else { var %wavecustom2-6weapon = $rand(1,10) }
    if ($hget(Player,Modifier)) { var %wavecustom2-6modifier = $hget(Player,Modifier) }
    else { var %wavecustom2-6modifier = a }
    if (($+(",$did(wavecustom2,2).seltext,") != " $+ $scriptdirWSisayings.wvs") && ($+(",$did(wavecustom2,2).seltext,") != " $+ $scriptdirWSesayings.wvs")) { var %wavecustom2-6 = $me }
    var %wavecustom2-6-replace = $replace($did(wavecustom2,8).text,!target,$1,!enemy,$nick,!me,$me)
    var %wavecustom2-6-replace = $replace(%wavecustom2-6-replace,!weapon,$readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+(%wavecustom2-6weapon,%wavecustom2-6modifier)),!gender1,%wavecustom2-6a,!gender2,%wavecustom2-6b,!gender3,%wavecustom2-6c,$+($chr(37),wavestorm-gender1),%wavecustom2-6a,$+($chr(37),wavestorm-gender2),%wavecustom2-6b,$+($chr(37),wavestorm-gender3),%wavecustom2-6c)
    var %wavecustom2-6-replace = $eval($strip($replace(%wavecustom2-6-replace,$+($chr(36),1),$nick(%wavechat,$rand(1,$nick(%wavechat,0))),$+($chr(36),chan),%wavechat)),2)
    did -a wavecustom2 6 %wavecustom2-6 %wavecustom2-6-replace
} }

on *:DIALOG:wavecustom2:sclick:*: {
  if ($did == 3) {
    if ($exists($+(",$did(wavecustom2,2).seltext,")) == $true) {
      loadbuf $lines($+(",$did(wavecustom2,2).seltext,")) -or wavecustom2 5 $+(",$did(wavecustom2,2).seltext,")
    }
    else {
      did -r wavecustom2 5
    }
    did -r wavecustom2 6,8
  }
  elseif ($did == 5) {
    did -r wavecustom2 6
    if ($hget(Player,Gender) == Female) {
      var %wavecustom2-6a = she
      var %wavecustom2-6b = her
      var %wavecustom2-6c = her
    }
    elseif ($hget(Player,Gender) == Male) {
      var %wavecustom2-6a = he
      var %wavecustom2-6b = him
      var %wavecustom2-6c = his
    }
    if (($+(",$did(wavecustom2,2).seltext,") != " $+ $scriptdirWSisayings.wvs") && ($+(",$did(wavecustom2,2).seltext,") != " $+ $scriptdirWSesayings.wvs")) { var %wavecustom2-6 = $me }
    var %wavecustom2-6-replace = $replace($eval($strip($replace($did(wavecustom2,5).seltext,%wavestorm-gender1,%wavecustom2-6a,%wavestorm-gender2,%wavecustom2-6b,%wavestorm-gender3,%wavecustom2-6c,$+($chr(36),1),$nick(%wavechat,$rand(1,$nick(%wavechat,0))),$+($chr(36),chan),%wavechat)),2),!target,$1,!enemy,$nick,!me,$me,!gender1,%wavestorm-gender1,!gender2,%wavestorm-gender2,!gender3,%wavestorm-gender3)
    did -a wavecustom2 6 %wavecustom2-6 $replace(%wavecustom2-6-replace,!weapon,$readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))))
    did -r wavecustom2 8
    did -a wavecustom2 8 $did(wavecustom2,5).seltext
  }
  elseif ($did == 7) {
    write -c $+(",$did(wavecustom2,2).seltext,")
    savebuf -o $did(wavecustom2,5).lines wavecustom2 5 $+(",$did(wavecustom2,2).seltext,")
    did -r wavecustom2 6
    did -a wavecustom2 6 $+(",$did(wavecustom2,2).seltext,") updated.
  }
  elseif ($did == 9) {
    var %wavecustom5-2 = $did(wavecustom2,5).sel
    did -o wavecustom2 5 %wavecustom5-2 $did(wavecustom2,8).text
    did -c wavecustom2 5 %wavecustom5-2
    did -r wavecustom2 6
    if ($hget(Player,Gender) == Female) {
      var %wavecustom2-6a = she
      var %wavecustom2-6b = her
      var %wavecustom2-6c = her
    }
    elseif ($hget(Player,Gender) == Male) {
      var %wavecustom2-6a = he
      var %wavecustom2-6b = him
      var %wavecustom2-6c = his
    }
    if (($+(",$did(wavecustom2,2).seltext,") != " $+ $scriptdirWSisayings.wvs") && ($+(",$did(wavecustom2,2).seltext,") != " $+ $scriptdirWSesayings.wvs")) { var %wavecustom2-6 = $me }
    var %wavecustom2-6-replace $replace($eval($strip($replace($did(wavecustom2,5,%wavecustom5-2).text,%wavestorm-gender1,%wavecustom2-6a,%wavestorm-gender2,%wavecustom2-6b,%wavestorm-gender3,%wavecustom2-6c,$+($chr(36),1),$nick(%wavechat,$rand(1,$nick(%wavechat,0))),$+($chr(36),chan),%wavechat)),2),!target,$1,!enemy,$nick,!me,$me,!gender1,%wavestorm-gender1,!gender2,%wavestorm-gender2,!gender3,%wavestorm-gender3)
    did -a wavecustom2 6 %wavecustom2-6 $replace(%wavecustom2-6-replace,!weapon,$readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))))
  }
  elseif ($did == 10) {
    did -a wavecustom2 5 $did(wavecustom2,8).text
    did -c wavecustom2 5 $did(wavecustom2,5).lines
    did -r wavecustom2 6
    if ($hget(Player,Gender) == Female) {
      var %wavecustom2-6a = she
      var %wavecustom2-6b = her
      var %wavecustom2-6c = her
    }
    elseif ($hget(Player,Gender) == Male) {
      var %wavecustom2-6a = he
      var %wavecustom2-6b = him
      var %wavecustom2-6c = his
    }
    if (($+(",$did(wavecustom2,2).seltext,") != " $+ $scriptdirWSisayings.wvs") && ($+(",$did(wavecustom2,2).seltext,") != " $+ $scriptdirWSesayings.wvs")) { var %wavecustom2-6 = $me }
    var %wavecustom2-6-replace = $replace($eval($strip($replace($did(wavecustom2,5,$did(wavecustom2,5).lines).text,%wavestorm-gender1,%wavecustom2-6a,%wavestorm-gender2,%wavecustom2-6b,%wavestorm-gender3,%wavecustom2-6c,$+($chr(36),1),$nick(%wavechat,$rand(1,$nick(%wavechat,0))),$+($chr(36),chan),%wavechat)),2),!target,$1,!enemy,$nick,!me,$me,!gender1,%wavestorm-gender1,!gender2,%wavestorm-gender2,!gender3,%wavestorm-gender3)
    did -a wavecustom2 6 %wavecustom2-6 $replace(%wavecustom2-6-replace,!weapon,$readini(" $+ $scriptdirWSInfo1.ini",Weapon,$+($hget(Player,Weapon),$hget(Player,Modifier))))
  }
  elseif ($did == 11) {
    did -d wavecustom2 5 $did(wavecustom2,5).sel
} }