Anonymous

on $*:TEXT:/^[!`@.](equip(p)?(ed)?|wear)/Si:#DM, #DM-bank, #DM-shop: {
  set %dmturnnick $nick 
  if ($network != TundraIRC) {
    notice $nick %c1 $+ You only can do this on the great $+ %c3 TundraIRC network $+ %c1 $+ , Type $+ %c6 /server irc.TundraIRC.net $+ %c1 to get there.
    halt
  }
  if ($chan == #DM-bank || $chan == #DM-shop) {
    notice $nick %c1 $+ You only can do this in $+ %c2 #DM $+ %c1 .
    halt
  }
  if (%dmid. [ $+ [ $nick ] ] == 1) {
    if (%dm.status == on) {
      if (!$2) {
        notice $nick %c1 $+ You currently have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped.
        halt
      }
      if ($2- == %dmweapon. [ $+ [ $nick ] ]) {
        notice $nick %c1 $+ You already have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped.
        halt
      }
      if (%dmweapon. [ $+ [ $nick ] ]) {
        set %unequip %dmweapon. [ $+ [ $nick ] ]
      }
      set %weaprequest $replace($2-,$chr(32),_)
      set %dm.equipitem $read(dmshopitems.txt, w, %weaprequest $+ *)
      if ($replace(%dmweapon. [ $+ [ $nick ] ],$chr(32),_) == $gettok(%dm.equipitem,1,64)) {
        notice $nick %c1 $+ You already have a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 equipped.
        halt
      }
      if (%dmweapon. [ $+ [ $nick ] ]) {
        set %unequip %dmweapon. [ $+ [ $nick ] ]
      }
      if (%dm.equipitem) {
        set %dmweapclass. [ $+ [ $nick ] ] $gettok(%dm.equipitem,3,64)
        if (%dmweapclass. [ $+ [ $nick ] ] != %dmclass. [ $+ [ $nick ] ]) {
          notice $nick %c1 $+ You only can equip weapons that belong to your class, $+ %c3 %dmclass. [ $+ [ $nick ] ] $+ %c1 $+ .
          halt 
        }
        set %dmcheckweap $gettok($replace(%dm.equipitem,$chr(32),_),1,64)
        if ($readini(dminv.ini,$nick,%dmcheckweap)) { 
          if ($gettok(%dm.equipitem,3,64) == melee || $gettok(%dm.equipitem,3,64) == range || $gettok(%dm.equipitem,3,64) == mage) {
            set %dmweapon. [ $+ [ $nick ] ] $replace(%dm.equipitem,_,$chr(32))
            set %dmweapon. [ $+ [ $nick ] ] $gettok(%dmweapon. [ $+ [ $nick ] ],1,64)
            if ($gettok(%dm.equipitem,3,64) == melee) {
              if (%dmlvl. [ $+ [ $nick ] ] >= $gettok(%dm.equipitem,5,64)) {
                if (%unequip) .msg %dm.chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ .
                set %dmweapmax. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64)
                msg %dm.chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , which has a max hit of $+ %c3 %dmweapmax. [ $+ [ $nick ] ] $+ %c1 $+ .
              }
              else {
                notice $nick %c1 $+ Sorry, you need $+ %c4 level $gettok(%dm.equipitem,5,64) $+ %c1 strength to equip a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , while you only have strength level $+ %c6 %dmlvl. [ $+ [ $nick ] ] $+ %c1 $+ .
                unset %dmweapon. [ $+ [ $nick ] ]
              }
            }
            if ($gettok(%dm.equipitem,3,64) == range) {
              if (%unequip) .msg %dm.chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ .
              set %dmweaparrows. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64)
              msg %dm.chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ .
            }
            if ($gettok(%dm.equipitem,3,64) == mage) {
              set %dmweapextra. [ $+ [ $nick ] ] $gettok($replace(%dm.equipitem,$chr(32),_),4,64)
              if (%dmweapextra. [ $+ [ $nick ] ] < 0) .set %dmextramage decreases
              if (%dmweapextra. [ $+ [ $nick ] ] > 0) .set %dmextramage increases
              if (%unequip) .msg %dm.chan %c2 $+ %dmturnnick %c1 $+ un-equips his $+ %c5 %unequip $+ %c1 $+ .
              msg %dm.chan %c2 $+ %dmturnnick %c1 $+ equipped a $+ %c5 %dmweapon. [ $+ [ $nick ] ] $+ %c1 $+ , which %dmextramage his spells max hit with $remove(%dmweapextra. [ $+ [ $nick ] ],-) $+ % $+ %c1 $+ .
            }
          }
          else {
            notice $nick %c1 $+ You can't equip a $+ %c3 $replace(%dmcheckweap,_,$chr(32)) $+ %c1 $+ .
          }
        } 
        else { 
          notice $nick %c1 $+ You dont have a $+ %c5 $replace(%dmcheckweap,_,$chr(32)) $+ %c1 $+ !
        }
      }
      else {
        notice $nick %c1 $+ Sorry! You don't have %c3 $+ " $+ $replace(%dm.equipitem,_,$chr(32)) $+ " $+ %c1 in your inventory. Maybe you spelled it wrong?
      }
    }
    else {
      notice $nick %c1 $+ You can only use this command when fighting.
    }
  }
  else {
    notice $nick %c1 $+ You need to identify first! Type $+ %c3 /msg $me !id(entify) yourpass $+ %c1 $+ .
  }
}