Forums Scripts & Popups More on variables help. Dynamically linking.

  var %i = 1
  while (%i <= $gettok($mid(%bannick,3),0,44)) {
    /set % $+ $gettok($mid(bannick,3),%i,44) $gettok($mid(%bannick,3),%i,44)
    /set %bnick $+ $gettok(%bannick,%i,44) $banmask
    inc %i
  }

set %banstring $addtok(%banstring,$+($iif(($bnick),$bnick,-none-),$chr(44),$bmask),32)

alias incvarname.demo {
  set %ban.5 bnick5 bmask5
  set %ban.3 bnick3 bmask3
  set %ban.1 bnick1 bmask1
  set %ban.2 bnick2 bmask2

  ; how many vars matching %ban.* do I have at all?
  var -s %total = $var(%ban.*,0)
  ; whats the name of the last variable? (mIRC sorts them: "last" means alphanumeric highest, not "last added")
  var -s %last = $var(%ban.*,%total)
  ; now I got that var's name, what was the number at the end of that variable?
  ; Note: that "6" depends on the variable name's length)
  var -s %num = $mid(%last,6)
  ; and what number do I need now?
  var -s %newnum = $calc(%num +1)
  ; so what new varname do I need?
  var -s %newvar = $+(%,ban.,%newnum) some new data

  unset %ban.*
}

; syntax: /incvarset variable-root varable-data
; e.g. /incvarset ban. $iif(($bnick,$ifmatch,-none-) $bmask

alias incvarset {
  if ($1) { set $+(%,$1,$calc($mid($var($+(%,$1,*),$var($+(%,$1,*),0)),$calc($len($1) +2)) +1)) $2- }
}

  echo $chan $gettok($mid(%bannick,3),1,44)
  echo $chan $gettok($mid(%bannick,3),2,44)
  echo $chan $gettok($mid(%bannick,3),3,44)
  echo $chan $gettok($mid(%bannick,3),0,44)
  var %i = 1
  while (%i <= $gettok($mid(%bannick,3),0,44)) {
    /set %bnick $+ $gettok($mid(%bannick,3),%i,44) $banmask
    inc %i
  }

On *:Ban:#: {
  var %x = 1
  while (%x <= $ialchan($banmask,$chan,0)) {
    echo -a $ialchan($banmask,$chan,%x).nick
    inc %x
  }
}

  var %x = 1
  while (%x <= $ialchan($banmask,$chan,0)) {
    echo $chan $ialchan($banmask,$chan,%x).nick
    /set %bnick $+ $ialchan($banmask,$chan,%x).nick $banmask
    inc %x
  }

on *:ban:#:{
  var %x = 1
  while ($ialchan($banmask,$chan,%x).nick) {
    set -s %bnick $+ $ifmatch $banmask
    inc %x
  }
}

on *:unban:#:{ 
  var %x = 1
  while ($ialchan($banmask,$chan,%x).nick) {
    unset -s $+(%,bnick,$ifmatch)
    inc %x
  }
}

  var %x = 1
  while ($ialchan($banmask,$chan,%x).nick) {
    /timernotice $+ %x 1 %x /notice $ialchan($banmask,$chan,%x).nick Unbanned in $chan
    /unset $+(%,bnick,$ifmatch)
    inc %x
  }