on *:load: {
  set %kehoraes $$?="Skriv support-kanlen typ : #hack.support"
  .timertest 1 1 { testa }
}

alias testa {
  if (!%kehoraes) {
    set %kehoraes $$?="Skriv support-kanlen typ : #hack.support"
    .timertest 1 1 { testa }
  }
}

on *:join:#bottd.support: {
  inc %flood1234
  if ($nick ison %kehoraes) {
    if (%flood1234 == 3) { halt }
    var %o = 1
    while (%kö [ $+ [ %o ] ] != $null) {
      if (%kö [ $+ [ %o ] ] == $nick) {
        if (%knick. [ $+ [ $nick ] ]) {
          kick %kehoraes $nick
          ban %kehoraes $nick
          unset %knick. [ $+ [ $nick ] ]
          halt
        }
        elseif (!%knick. [ $+ [ $nick ] ]) {
          set %knick. [ $+ [ $nick ] ] $nick
          /notice $nick Du står nu i kön.
          halt
        }
      }
      inc %o 1
    }
    if (!%kö1) { set %kö1 $nick
      notice $nick Du är först i kön.
    }
    elseif (%kö1 != $null) {
      var %i = 1
      while (%kö [ $+ [ %i ] ] != $null) {
        inc %i 1 {
          if (!%kö [ $+ [ %i ] ]) {
            set %kö [ $+ [ %i ] ] $nick
            notice $nick Du är på plats %i i kön!
            halt
          }
        }
      }
    }
  }
  unset %flood1234
}

on *:TEXT:!acc:%kehoraes: {
  set %nicket $nick
  set %helpnick %kö1
  if ($nick isop $chan) {
    if (%kö1) {
      .notice %nicket När du besvarat frågan, skriv !done i %kehoraes!
    }
    /mode $chan +v %kö1
    notice %kö1 Var god ställ din fråga i %kehoraes kanalen nu!
    var %i = 1
    while (%i < 50) {
      unset %kö [ $+ [ %i ] ]
      if (%kö [ $+ [ $calc(%i + 1) ] ] != $null) {
        set %kö [ $+ [ %i ] ] %kö [ $+ [ $calc(%i + 1) ] ]
        notice %kö [ $+ [ $calc(%i + 1) ] ] Du är nu på plats %i i kön, vi hjälper dig så fort vi kan!
        inc %i 1
      }
      elseif (%kö [ $+ [ $calc(%i + 1) ] ] == $null) {
        halt
      }
    }
  }
}
on *:TEXT:!done:%kehoraes: {
  if ($nick isop $chan) {
    /mode $chan -v %helpnick
    unset %helpnick {
      if (%kö1 != $null) {
        /notice %kehoraes Det är fortfarande folk i kö. %kö1 behöver hjälp!
      }
    }
  }
}

on *:Part:%kehoraes: {
  if ($nick != $me) {
    unset %knick. [ $+ [ $nick ] ]
    var %i = 1
    while (%i < 50) {
      if (%kö [ $+ [ %i ] ] == $nick) {
        while (%i < 20) {
          unset %kö [ $+ [ %i ] ]
          if (%kö [ $+ [ $calc(%i + 1) ] ] != $null) {
            set %kö [ $+ [ %i ] ] %kö [ $+ [ $calc(%i + 1) ] ]
            notice %kö [ $+ [ $calc(%i + 1) ] ] Du är nu på plats %i i kön, vi hjälper dig så fort vi kan!
            inc %i 1
          }
          elseif (%kö [ $+ [ $calc(%i + 1) ] ] == $null) {
            halt
          }
        }
      }
      elseif (%kö [ $+ [ %i ] ] != $nick) {
        inc %i 1
      }
    }
    unset %i
  }
  elseif ($nick == $me) {
    unset %kö* %knick* %hjälpnick %kehoraes
  }
}

on *:OP:%kehoraes: {
  if ($nick != $me) {
    unset %knick. [ $+ [ $nick ] ]
    var %i = 1
    while (%i < 50) {
      if (%kö [ $+ [ %i ] ] == $nick) {
        while (%i < 20) {
          unset %kö [ $+ [ %i ] ]
          if (%kö [ $+ [ $calc(%i + 1) ] ] != $null) {
            set %kö [ $+ [ %i ] ] %kö [ $+ [ $calc(%i + 1) ] ]
            notice %kö [ $+ [ $calc(%i + 1) ] ] Du är nu på plats %i i kön, vi hjälper dig så fort vi kan!
            inc %i 1
          }
          elseif (%kö [ $+ [ $calc(%i + 1) ] ] == $null) {
            halt
          }
        }
      }
      elseif (%kö [ $+ [ %i ] ] != $nick) {
        inc %i 1
      }
    }
    unset %i
  }
  elseif ($nick == $me) {
    unset %kö* %knick* %hjälpnick
  }
}

on *:nick: {
  if ($nick ison %kehoraes) {
    var %i = 1
    while (%kö [ $+ [ %i ] ]) {
      if (%kö [ $+ [ %i ] ] == $nick) {
        set %kö [ $+ [ %i ] ] $newnick
        halt
      }
      inc %i 1
    }
  }
}

on *:QUIT: {
  if ($nick != $me) && ($nick ison %kehoraes) {
    unset %knick. [ $+ [ $nick ] ]
    var %i = 1
    while (%i < 50) {
      if (%kö [ $+ [ %i ] ] == $nick) {
        while (%i < 50) {
          unset %kö [ $+ [ %i ] ]
          if (%kö [ $+ [ $calc(%i + 1) ] ] != $null) {
            set %kö [ $+ [ %i ] ] %kö [ $+ [ $calc(%i + 1) ] ]
            notice %kö [ $+ [ $calc(%i + 1) ] ] Du är nu på plats %i i kön, vi hjälper dig så fort vi kan!
            inc %i 1
          }
          elseif (%kö [ $+ [ $calc(%i + 1) ] ] == $null) {
            halt
          }
        }
      }
      elseif (%kö [ $+ [ %i ] ] != $nick) {
        inc %i 1
      }
    }
    unset %i
  }
  elseif ($nick == $me) {
    unset %kö* %knick* %hjälpnick
  }
}


on *:KICK:%kehoraes: {
  unset %knick. [ $+ [ $nick ] ]
  var %i = 1
  while (%i < 50) {
    if (%kö [ $+ [ %i ] ] == $knick) {
      while (%i < 50) {
        unset %kö [ $+ [ %i ] ]
        if (%kö [ $+ [ $calc(%i + 1) ] ] != $null) {
          set %kö [ $+ [ %i ] ] %kö [ $+ [ $calc(%i + 1) ] ]
          notice %kö [ $+ [ $calc(%i + 1) ] ] Du är nu på plats %i i kön, vi hjälper dig så fort vi kan!
          inc %i 1
        }
        elseif (%kö [ $+ [ $calc(%i + 1) ] ] == $null) { halt
        }
      }
    }
    elseif (%kö [ $+ [ %i ] ] != $knick) {
      inc %i 1
    }
  }
  unset %i
  elseif ($knick == $me) {
    unset %kö* %knick* %hjälpnick
  }
}

on *:text:!list:%kehoraes: {
  if ($nick isop %kehoraes) {
    if (!%h. [ $+ [ $nick ] ]) {
      set -u20 %h. [ $+ [ $nick ] ]
      if (!%kö1) {
        msg %kehoraes Det står ingen i kö just nu!
        halt
      }
      elseif (!%kö2) {
        msg %kehoraes Det står 1 person i kö just nu!
        halt
      }
      var %i = 1
      while (%kö [ $+ [ 1 ] ]) {
        inc %i 1
        if (!%kö [ $+ [ %i ] ]) {
          /msg %kehoraes Det är just nu $calc(%i - 1) personer i kön!
          halt
        }
      }
    }
  }
}

on *:text:!Removeall:%kehoraes: {
  if ($nick isop %kehoraes) {
    notice $nick Done..
    unset %kö*
  }
}

on *:unload: {
  unset %kö* %knick* %hjälpnick %kehoraes
}