chain alias

chain {

  if ( %grpname !isin %nevertrade ) {
    set %sites_in_chain $numtok($1-,32)
    set %loopnumber 1
    while ( %loopnumber <= %sites_in_chain ) {
      set %dest $ [ $+ [ gettok($1-,%loopnumber,32) ] ]
      if ( !% [ $+ [ %dest ] $+ [ _maxsends ] ] ) { 
        set % [ $+ [ %dest ] $+ [ _maxsends ] ] 1 


      }
      if ( !% [ $+ [ %dest ] $+ [ _ ] $+ [ %rls ] $+ [ _sends ] ] ) {
        set % [ $+ [ %dest ] $+ [ _ ] $+ [ %rls ] $+ [ _sends ] ] 0
        .timer 1 3600 unset % [ $+ [ %dest ] $+ [ _ ] $+ [ %rls ] $+ [ _sends ] ]

      }

      if ( % [ $+ [ %section ] $+ [ _ok_for_ ] $+ [ %dest ] ] == 1 && %sourcesite !== %dest && %grpname !== $null && %grpname !isin % [ $+ [ %dest ] $+ [ _affils ] ] && %grpname !isin % [ $+ [ %dest ] $+ [ _banned ] ] && %rls_age < % [ $+ [ %dest ] $+ [ _ ] $+ [ %section ] $+ [ _pretime ] ] && %dest !isin %passedquota  && %dest !isin %never_dest && %sourcesite !isin %never_source && % [ $+ [ %dest ] $+ [ _ ] $+ [ %rls ] $+ [ _sends ] ] < % [ $+ [ %dest ] $+ [ _maxsends ] ] ) {

        if ( %dest !isin %no-auto ) {
          fxp %sourcesite %dest %section %rls
          inc % [ $+ [ %dest ] $+ [ _ ] $+ [ %rls ] $+ [ _sends ] ]
 $+ [ _sends ] ]
          break
        }
        else {
          if ( %section == 0day || %section == mp3 ) {
            echo @spam_activity 4 $timestamp  /send %sourcesite %dest %section %rls
            break
          }
          else {
            echo @site_activity 4 $timestamp  /send %sourcesite %dest %section %rls
            break
          }
        }
      }
      else {
        inc %loopnumber
      }
    }
  }
}