on *:notice:BOT*:*: {
  if $2 == PW {
    set %password. [ $+ [ $nick ] ] $3
  }
  if $2 == PW {
    set %weps. [ $+ [ $nick ] ] $3-
  }
}
alias sendoutput {
  notice $1 BOT Output %password. [ $+ [ $1 ] ] $2 $3-
}
alias dm {
  if $2 == on {
    set %dmingin. [ $+ [ $1 ] ] on
  }
  elseif $2 == off {
    set %dmingin. [ $+ [ $1 ] ] off
  }
}
alias setdmpartner {
  set %dmpartner $1
}
on *:text:*:#: {
  if %dmingin. [ $+ [ $chan ] ] == on {
    if iDM isin $nick && %dmingin. [ $+ [ $chan ] ] == on {
      set %message. [ $+ [ $chan ] ] $strip( $1- )
      if (*has received* iswm %message. [ $+ [ $chan ] ]) {
        unset %dming
        halt
      }
      if *has requested a DM!* iswm %message. [ $+ [ $chan ] ] {
        if $me isin %message. [ $+ [ $chan ] ] {
          timer 1 $rand(3, 5) /sendoutput %dmpartner $chan .dm
          set %dming true
          halt
        }
        if %dmpartner isin %message. [ $+ [ $chan ] ] {
          timer 1 $rand(3, 5) msg $chan .dm
          set %dming true
          halt
        }
      }
      if * $me gets the first move.* iswm %message. [ $+ [ $chan ] ] {
        set %dmturn. [ $+ [ $chan ] ] $me
        set %spec. [ $+ [ $me ] ] 100
        set %spec. [ $+ [ %dmpartner ] ] 100
        attack $chan
      }
      if * %dmpartner gets the first move.* iswm %message. [ $+ [ $chan ] ] {
        set %dmturn. [ $+ [ $chan ] ] %dmpartner
        set %spec. [ $+ [ $me ] ] 100
        set %spec. [ $+ [ %dmpartner ] ] 100
        attack $chan
      }
      if ($strip($2,burcmo) == $me && %dming) {
        set %dmturn. [ $+ [ $chan ] ] %dmpartner
        attack $chan
      }
      if ($strip($2,burcmo) == %dmpartner && %dming) {
        set %dmturn. [ $+ [ $chan ] ] $me
        attack $chan
      }
      if *Ready.* iswm %message. [ $+ [ $chan ] ] {
        if $rand(1, 2) == 1 {
          timer 1 $rand(4,8) msg $chan .dm
        }
        else {
          timer 1 $rand(4,8) /sendoutput %dmpartner $chan .dm
        }
      }
    }
  }
}
alias attack {
  if %dmturn. [ $+ [ $1 ] ] == $me {
    set %wep. [ $+ [ $1 ] ] $rand(1, 5)
    if $rand(1, 3) == 2 {
      if %spec. [ $+ [ $me ] ] == 100 {
        set %wep. [ $+ [ $1 ] ] $rand(6, 10)
      }
      if %spec. [ $+ [ $me ] ] == 75 {
        set %wep. [ $+ [ $1 ] ] 6
      }
      if %spec. [ $+ [ $me ] ] == 25 {
        set %wep. [ $+ [ $1 ] ] 6
      }
      if %spec. [ $+ [ $me ] ] == 50 {
        set %wep. [ $+ [ $1 ] ] $rand(6, 9)
      }
    }
    if %wep. [ $+ [ $1 ] ] == 6 {
      dec %spec. [ $+ [ $me ] ] 25
    }
    if %wep. [ $+ [ $1 ] ] >= 7 && %wep. [ $+ [ $1 ] ] <= 9 {
      dec %spec. [ $+ [ $me ] ] 50
    }
    if %wep. [ $+ [ $1 ] ] == 10 {
      dec %spec. [ $+ [ $me ] ] 100
    }
    timer 1 $rand(2, 5) msg $1 . $+ %weapon. [ $+ [ %wep. [ $+ [ $1 ] ] ] ]
  }
  if %dmturn. [ $+ [ $1 ] ] == %dmpartner {
    set %wep. [ $+ [ $1 ] ] $rand(1, 5)
    if $rand(1, 3) == 2 {
      if %spec. [ $+ [ %dmpartner ] ] == 100 {
        set %wep. [ $+ [ $1 ] ] $rand(6, 10)
      }
      if %spec. [ $+ [ %dmpartner ] ] == 75 {
        set %wep. [ $+ [ $1 ] ] 6
      }
      if %spec. [ $+ [ %dmpartner ] ] == 25 {
        set %wep. [ $+ [ $1 ] ] 6
      }
      if %spec. [ $+ [ %dmpartner ] ] == 50 {
        set %wep. [ $+ [ $1 ] ] $rand(6, 9)
      }
    }
    if %wep. [ $+ [ $1 ] ] == 6 {
      dec %spec. [ $+ [ %dmpartner ] ] 25
    }
    if %wep. [ $+ [ $1 ] ] >= 7 && %wep. [ $+ [ $1 ] ] <= 9 {
      dec %spec. [ $+ [ %dmpartner ] ] 50
    }
    if %wep. [ $+ [ $1 ] ] == 10 {
      dec %spec. [ $+ [ %dmpartner ] ] 100
    }
    timer 1 $rand(2, 5) /sendoutput %dmpartner $1 . $+ %weapon. [ $+ [ %wep. [ $+ [ $1 ] ] ] ]
  }
}