alias RyuTsuiSen {
  if ($hget($1)) {
    if ($hget($2)) {
      if ($istok(Katana Sakabatou,$get.weap($1),32)) {
        var %stamina = $_get($1,ryutsuisen,stamina)
        if ($get.stm($1) >= %stamina) {
          var %damage = $_get($1,Ryutsuisen,damage)
          var %1 = $calc(%damage + $get.wdmg($1)),%2 = $calc($get.def($2) / 2)
          var %dmg = $int($calc((%1 - %2) + $get.style($1))) 
          var %name = $_get($1,Ryutsuisen,logo),%weapon = $iif($get.weap($1) == Katana,04tears15,11smashes15),%pc = $r(1,5)
          if (%pc == 1) var %part = foot
          elseif (%pc == 2) var %part = leg
          elseif (%pc == 3) var %part = arm
          elseif (%pc == 4) var %part = chest
          elseif (%pc == 5) var %part = head
          var %_dmg = $calc(%dmg * $+(.,%pc))
          var %dmg = $int($calc(%dmg + %_dmg)) 
          if (%dmg <= 0) var %dmg = $r(1,10)
          var %exp = $r(25,75)
          hadd $1 stats.exp $calc($get.exp($1) + %exp)
          hadd $2 stats.dmg $calc($get.dmg($2) + %dmg)
          hadd $1 stats.stamina $calc($get.stm($1) - %stamina)
          .timerrts. $+ $1 1 60 _msg $1 You can use $replace(%name,&,) again!
          _msg %chan $replace(%name,&,) $_nick($1) %weapon into $_nick($2) $+ 's %part $+ ; $_nick($2) gains $+(04,$iif(%dmg < 10,0 $+ %dmg,%dmg),$chr($asc(%))) 15damage! 04(00 $+ $iif($get.dmg($2) < 10,0 $+ $get.dmg($2),$get.dmg($2))) $+ % $+ 04)15; $_nick($1) gains10 %exp 15exp!
        }
      }
    }
  }
}
alias BattouJutsu {
  if ($hget($1)) {
    if ($hget($2)) {
      if ($istok(Katana Sakabatou,$get.weap($1),32)) {
        var %stamina = $_get($1,battoujutsu,stamina)
        if ($get.stm($1) >= %stamina) {
          var %1 = $calc(%damage + $get.wdmg($1)),%2 = $calc($get.def($2) / 8)
          var %dmg = $int($calc((%1 - %2) + $get.style($1) + $calc($get.agl($1) * 2))) 
          var %name = $_get($1,BattouJutsu,logo)
          if (%dmg <= 0) var %dmg = $r(1,10)
          var %exp = $r(25,75)
          hadd $1 stats.exp $calc($get.exp($1) + %exp) 
          hadd $2 stats.dmg $calc($get.dmg($2) + %dmg)
          hadd $1 stats.stamina $calc($get.stm($1) - %stamina)
          .timerbj. $+ $1 1 60 _msg $1 You can use $replace(%name,&,) again!
          _msg %chan $replace(%name,&,) $_nick($1) strikes $_nick($2) faster than the eye can see; $_nick($2) gains $+(04,$iif(%dmg < 10,0 $+ %dmg,%dmg),$chr($asc(%))) 15damage! 04(00 $+ $iif($get.dmg($2) < 10,0 $+ $get.dmg($2),$get.dmg($2))) $+ % $+ 04)15; $_nick($1) gains10 %exp 15exp!
        }
      }
    }
  }
}
alias RyuSouSen {
  if ($hget($1)) {
    if ($hget($2)) {
      if ($istok(Katana Sakabatou,$get.weap($1),32)) {  
        var %stamina = $_get($1,ryusousen,stamina)
        if ($get.stm($1) >= %stamina) {
          var %damage = $_get($1,Ryusousen,damage)
          var %1 = $calc(%damage + $get.wdmg($1)),%2 = $calc(($get.def($2) / 4))
          var %dmg = $int($calc((%1 - %2) + $get.style($1))),%name = $_get($1,Ryusousen,logo)
          var %pc = $r(1,3)
          if (%pc == 1) var %part = abdomen
          elseif (%pc == 2) var %part = chest
          elseif (%pc == 3) var %part = head
          var %_dmg = $calc(%dmg * ($+(.,%pc) * 2))
          var %dmg = $int($calc(%dmg + %_dmg))
          if (%dmg <= 0) var %dmg = $r(1,10)
          var %exp = $r(25,75)
          hadd $1 stats.exp $calc($get.exp($1) + %exp)
          hadd $2 stats.dmg $calc($get.dmg($2) + %dmg)
          hadd $1 stats.stamina $calc($get.stm($1) - %stamina)
          .timerrss. $+ $1 1 60 _msg $1 You can use $replace(%name,&,) again!
          _msg %chan $replace(%name,&,) $_nick($1) strikes at $_nick($2) $+ 's %part $+ ; $_nick($2) gains $+(04,$iif(%dmg < 10,0 $+ %dmg,%dmg),$chr($asc(%))) 15damage! 04(00 $+ $iif($get.dmg($2) < 10,0 $+ $get.dmg($2),$get.dmg($2))) $+ % $+ 04)15; $_nick($1) gains10 %exp 15exp!
        }
      }
    }
  }
}
alias KiwamiHazushi {
  if ($hget($1)) {
    if ($hget($2)) {
      if (!$get.weap($1)) {
        var %stamina = $_get($1,FutaeNoKiwami,stamina)
        if ($get.stm($1) >= %stamina) {
          var %damage = $_get($1,FutaeNoKiwami,damage),%name = $_get($1,KiwamiHazushi,logo)
          var %dmg = $calc(%damage + $get.style($1)),%recoil = $int($calc(%dmg * $+(.,$r(1,9))))
          var %dmg = $calc(%dmg + $calc(%recoil * .5))
          if (%dmg <= 0) var %dmg = $r(1,10)
          var %exp = $r(25,75)
          hadd $1 stats.exp $calc($get.exp($1) + %exp)
          hadd $2 stats.dmg $calc($get.dmg($2) + %dmg)
          hadd $1 stats.stamina $calc($get.stm($1) - %stamina)
          hadd $1 stats.dmg $calc($get.dmg($1) + %recoil)
          .timerkh. $+ $nick 1 60 _msg $1 You can use $replace(%name,&,) again!
          _msg %chan $replace(%name,&,) $_nick($1) strikes himself; $_nick($1) gains $+(04,$iif(%recoil < 10,0 $+ %recoil,%recoil),$chr($asc(%))) 15damage! 04(00 $+ $iif($get.dmg($1) < 10,0 $+ $get.dmg($1),$get.dmg($1))) $+ % $+ 04)15
          .timer 1 4 _msg %chan $replace(%name,&,) $_nick($1) 04cracks15 $_nick($2) $+ ; $_nick($2) gains $+(04,$iif(%dmg < 10,0 $+ %dmg,%dmg),$chr($asc(%))) 15damage! 04(00 $+ $iif($get.dmg($2) < 10,0 $+ $get.dmg($2),$get.dmg($2))) $+ % $+ 04)15; $_nick($1) gains10 %exp 15exp!
        }
      }
    }
  }
}

alias FutaeNoKiwami {
  if ($hget($1)) {
    if ($hget($2)) {
      if (!$get.weap($1)) {
        var %stamina = $_get($1,FutaeNoKiwami,stamina)
        if ($get.stm($1) >= %stamina) {
          var %damage = $_get($1,FutaeNoKiwami,damage)
          var %1 = $calc(%damage + $get.style($1)),%2 = $calc(($get.def($2) / 8))
          var %dmg = $int($calc((%1 - %2) + $get.style($1))),%name = $_get($1,FutaeNoKiwami,logo)
          var %pc = $r(1,5)
          if (%pc == 1) var %part = fist
          elseif (%pc == 2) var %part = foot
          elseif (%pc == 3) var %part = head
          elseif (%pc == 4) var %part = elbow
          elseif (%pc == 5) var %part = knee
          var %_dmg = $calc(%dmg * ($+(.,%pc) * 2))
          var %dmg = $int($calc(%dmg + %_dmg))
          if (%dmg <= 0) var %dmg = $r(1,10)
          var %exp = $r(25,75)
          hadd $1 stats.exp $calc($get.exp($1) + %exp)
          hadd $2 stats.dmg $calc($get.dmg($2) + %dmg)
          hadd $1 stats.stamina $calc($get.stm($1) - %stamina)
          .timerfnk. $+ $1 1 60 _msg $1 You can use $replace(%name,&,) again!
          _msg %chan $replace(%name,&,) $_nick($1) crushes into $_nick($2) %part $+ -first $+ ; $_nick($2) gains $+(04,$iif(%dmg < 10,0 $+ %dmg,%dmg),$chr($asc(%))) 15damage! 04(00 $+ $iif($get.dmg($2) < 10,0 $+ $get.dmg($2),$get.dmg($2))) $+ % $+ 04)15; $_nick($1) gains10 %exp 15exp!
        }
      }
    }
  }
}
alias SanjuuNoKiwami {
  if ($hget($1)) {
    if ($hget($2)) {
      if (!$get.weap($1)) {
        var %stamina = $_get($1,SanjuuNoKiwami,stamina)
        if ($get.stm($1) >= %stamina) {
          var %damage = $_get($1,SanjuuNoKiwami,damage)
          var %1 = $calc(%damage + $get.style($1)),%2 = $calc(($get.def($2) / 8))
          var %dmg = $int($calc((%1 - %2) + $get.style($1))),%name = $_get($1,SanjuuNoKiwami,logo)
          var %exp = $r(25,75)
          if (%dmg <= 0) var %dmg = $r(1,10)
          hadd $2 stats.dmg $calc($get.dmg($2) + %dmg)
          hadd $1 stats.stamina $calc($get.stm($1) - %stamina)
          hadd $1 stats.exp $calc($get.exp($1) + %exp)
          .timersnk. $+ $1 1 60 _msg $1 You can use $replace(%name,&,) again!
          _msg %chan $replace(%name,&,) $_nick($1) $+ 's fist explodes into $_nick($2) $+ ...
          .timer 1 3 _msg %chan $replace(%name,&,) $_nick($1) snaps his fingers out crushing into $_nick($2) $+ ; $_nick($2) gains $+(04,$iif(%dmg < 10,0 $+ %dmg,%dmg),$chr($asc(%))) 15damage! 04(00 $+ $iif($get.dmg($2) < 10,0 $+ $get.dmg($2),$get.dmg($2))) $+ % $+ 04)15; $_nick($1) gains10 %exp 15exp!
          ; if (!%x) || (!%y) var %x = $r(1,5),%y = $r(1,5)
          ; if (%x == %y)

          .timer 1 4 //stun $2

        }
      }
    }
  }
}
alias RyuKanSen {
  if ($hget($1)) {
    if ($hget($2)) {
      if ($get.guard($1)) {
        if ($timer(attack. $+ $2)) {
          var %stamina = $_get($1,ryukansen,stamina)
          if ($get.stm($1) >= %stamina) {
            var %damage = $_get($1,RyuKanSen,damage)
            var %1 = $calc(%damage + $get.wdmg($1)),%2 = $calc($get.def($2) / 2)
            var %dmg = $int($calc((%1 - %2) + $get.style($1)))
            var %name = $_get($1,Ryukansen,logo)
            var %exp = $r(25,75)
            hadd $2 stats.dmg $calc($get.dmg($2) + %dmg)
            hadd $1 stats.stamina $calc($get.stm($1) - %stamina)
            hadd $1 stats.exp $calc($get.exp($1) + %exp)
            .timerrks. $+ $1 1 60 _msg $1 You can use $replace(%name,&,) again!
            _msg %chan $replace(%name,&,) $_nick($1) counters $_nick($2) with a swift hit to the neck; $_nick($2) gains $+(04,$iif(%dmg < 10,0 $+ %dmg,%dmg),$chr($asc(%))) 15damage! 04(00 $+ $iif($get.dmg($2) < 10,0 $+ $get.dmg($2),$get.dmg($2))) $+ % $+ 04)15; $_nick($1) gains10 %exp 15exp!
            stun $2 
          }
        }
      }
    }
  }
}
alias ShunTenSatsu {
  if ($hget($1)) {
    var %stamina = $_get($1,shuntensatsu,stamina)
    if ($get.stm($1) >= %stamina) {
      var %damage = $_get($1,shuntensatsu,damage),%name = $_get($1,ShunTenSatsu,logo)
      hadd $1 stats.agility $calc($get.agl($1) + %damage)
      hadd $1 stats.stamina $calc($get.stm($1) - %stamina)
      .timersts. $+ $1 1 60 _msg $1 You can use $replace(%name,&,) again!
      .timer 1 240 unsts $1 %damage
      _msg %chan $replace(%name,&,) $_nick($1) raises agility09 %damage 15points 
    }
  }
}
alias unsts {
  if ($hget($1)) {
    hadd $1 stats.agility $iif($calc($get.agl($1) - $$2) > 0,$v1,0)
    _msg $1 Your agility has dropped09 $2 15points
  }
}
alias lcheck {
  if ($get.exp($1) > $get.nexp($1)) level_check $1
}
alias stun {
  if ($hget($1)) {
    if (!$get.guard($1)) {
      if (!$_get($1,stats,stunned)) {
        if ($get.ats($1)) {
          .timerattack. $+ $1 off
          if ($timer($+(attackagain.,$1))) .timerattackagain. $+ $1 off
          hadd $1 stats.attacking $false
        }
        var %time = $iif($2 isnum 1-60,$2,$r(1,60))
        .timerunstun. $+ $1 1 %time unstun $1
        _msg %chan $_nick($1) is now 07stunned15 for04 %time 15seconds
        hadd $1 stats.stunned $true
      }
    }
  }
}
alias unstun {
  if ($hget($1)) {
    if ($_get($1,stats,stunned)) {
      if ($timer($+(unstun.,$1))) .timerunstun. $+ $1 off
      hadd $1 stats.stunned $false
      _msg %chan $_nick($1) is no longer 07stunned15
      if ($get.npc($1)) && (!$_get($1,stats,paused)) npc_attack $1
    }
  }
}
alias replenish_stamina { 
  if ($hget($1)) {
    if (!$_get($1,stats,paused)) {
      if (!$_get($1,stats,stunned)) {
        if ($get.stm($1) <= $get.fstm($1)) { hadd $1 stats.stamina $get.fstm($1) | _msg $1 Your stamina is replenished }
      }
    }
  }
}
on *:TEXT:*:%chan:{
  var (%trig == $left($1,1)) 
  if (%trig !isalnum) var %1 = $right($1,-1),%t = $left($1,1)
  if (%1 == RyuTsuiSen) { 
    if ($istok($get.techs($nick),RyuTsuiSen,44)) {
      if (!$get.guard($nick)) {
        if (!$timer($+(rts.,$nick))) {
          _msg %chan $_nick($nick) leaps 04high15 into the air
          .timer 1 3 RyuTsuiSen $nick $2- 
        }
      }
    }
  }
  if (%1 == RyuKanSen) {
    if ($istok($get.techs($nick),RyuKanSen,44)) {
      if ($get.guard($nick)) {
        if (!$timer($+(rks.,$nick))) RyuKanSen $nick $2-
      }
    }
  }
  if (%1 == RyuSouSen) {
    if ($istok($get.techs($nick),RyuSouSen,44)) {
      if (!$get.guard($nick)) {
        if (!$timer($+(rss.,$nick))) RyuSouSen $nick $2-
      }
    }
  }
  if (%1 == SanjuuNoKiwami) {
    if ($istok($get.techs($nick),SanjuuNoKiwami,44)) {
      if (!$get.guard($nick)) {
        if (!$timer($+(snk.,$nick))) SanjuuNoKiwami $nick $2-
      }
    }
  }
  if (%1 == FutaeNoKiwami) {
    if ($istok($get.techs($nick),FutaeNoKiwami,44)) {
      if (!$get.guard($nick)) {
        if (!$timer($+(fnk.,$nick))) FutaeNoKiwami $nick $2-
      }
    }
  }
  if (%1 == KiwamiHazushi) {
    if ($istok($get.techs($nick),KiwamiHazushi,44)) {
      if (!$get.guard($nick)) {
        if (!$timer($+(fnk.,$nick))) KiwamiHazushi $nick $2-
      }
    }
  }
  if (%1 == BattouJutsu) {
    if ($istok($get.techs($nick),BattouJutsu,44)) {
      if (!$get.guard($nick)) {
        if (!$timer($+(bj.,$nick))) BattouJutsu $nick $2-
      }
    }
  }
  if (%1 == ShunTenSatsu) {
    if ($istok($get.techs($nick),ShunTenSatsu,44)) {
      if (!$timer($+(sts.,$nick))) ShunTenSatsu $nick $2-
    }
  }
  if (%1 == lcheck) lcheck $nick
  if (%1 == replenish) { .timer 1 15 replenish_stamina $nick | _msg $nick Your stamina will be full in 041515 seconds }
}
