Untitled

on *:text:`Info *:%chan,?:{
  chklog $nick
  if ($target == %chan) { var %send = bnotice }
  if ($target == $me) { var %send = bmsg }

  if ($2 !isnum) { tokenize 32 $orep($2-) }
  else {
    if ($data($nick,Data,Command;Menu) == Chocolina) {

      var %tier = $data($nick,Data,Tier)
      var %shops = Items Weapons Accessories Monster;Materials
      var %z = 0
      var %totitem = 0
      ;This loop goes through each type of shop
      while (%z != $numtok(%shops,32)) {
        inc %z
        var %shop = $gettok(%shops,%z,32)
        var %complement = $gettok(%complements,%z,32)
        var %columns = $gettok(%scolumns,%z,32)
        var %x = 0
        var %q = 0
        var %totaltiers = $gdata(Chocolina,%shop,0)
        ;This loop goes through each section in a category
        while (%x != %totaltiers) {
          inc %x
          var %shoptier = $gdata(Chocolina,%shop,%x)
          if (%shoptier > %tier) { break }
          var %items = $data(Chocolina,%shop,%shoptier)
          var %w = 0
          ;This loop goes through each token in each section
          while (%w != $numtok(%items,32)) {
            inc %w
            inc %totitem
            if (%totitem == $2) { tokenize 32 $gettok(%items,%w,32) | break }
          }
        }
      }
    }
    elseif ($data($nick,Data,Command;Menu) == Inventory) {
      var %item;types = Items Weapons Accessories Monster;Materials Monster;Components
      var %x = 0
      var %totitems = 0
      while (%x != $numtok(%item;types,32)) {
        inc %x
        var %cat = $gettok(%item;types,%x,32)
        var %color = $gettok(%colors,%x,32)
        var %w = 0
        while (%w != $gdata($nick,%cat,0)) && ($v2) {
          inc %w
          inc %totitems
          var %item = $gdata($nick,%cat,%w)
          if (%totitems == $2) { tokenize 32 %item | break }
        }
      }
    }
  }
  if (!$exist($1)) { %send $nick Unknown parameter. | halt }
  %send $nick ———— $+ $bu(INFORMATION FOR $upper($1),9) $+ ————
  var %info = $leinfo($nick,$1)
  var %req = $areq($nick,$1)
  %send $nick %info
  if (%req) { %send $nick $u(Required Items,11) $+ : $p(%req) }
}