/ScriptServ

alias takingovah {
  .dialog -m takingovah takingovah
}
dialog takingovah {
  title "TakeOver Control!"
  size -1 -1 140 30
  option dbu
  text Victim Channel: %takeoverchan, 11, 2 2 100 35, ok tab 1
  text Status: %takeoverstatus, 12, 2 9 100 35, ok tab 1
  button "Change" 22, 112 1 25 10
  button "Takeover",15, 48 20 25 9, ok
  button "Exit",16, 80 20 25 9, 
}
alias takeref {
  dialog -c takingovah takingovah
  dialog -m takingovah takingovah
}
on 1:dialog:takingovah:sclick:*: {
  if ($did == 22) { .set %takeoverchan $$?="Enter Channel Name" | .set %takeoverstatus Target Changed to " $+ %takeoverchan $+ ". | takeref }
  if ($did == 15) { .takeover %takeoverchan | .set %takeoverstatus Taking over... %takeoverchan | .takeref }
  if ($did == 16) { .dialog -c takingovah takingovah }
}
alias takeover {
  .set %takeoverchan $1
  if ($me !isop %takeoverchan) { . Takeover %takeoverchan $+ ? ...In your Dreams! (you are not an channel op) }
  else {
    . Takeover in progress... 
    if (X ison %takeoverchan) { .set %xbotstop $$?="X@Staff.Dal.Net is on the %takeover chan do you want to continue?" }
    if (%xbotstop == yes) { 
      .preparetakeover
      .proccedtakeover
      .lastquestion
      if (%lastquestion == yes) {
        .showtakeover
      }
    }
    if (X !ison %takeoverchan) {
      .preparetakeover
      .proccedtakeover
      .lastquestion
      if (%lastquestion == yes) {
        .showtakeover
      }
    }
  }
}
alias preparetakeover {
  set %firstlinedeops $nick(%takeoverchan,1) $nick(%takeoverchan,2) $nick(%takeoverchan,3) $nick(%takeoverchan,4) $nick(%takeoverchan,5) $nick(%takeoverchan,6)
  set %secondlinedeops $nick(%takeoverchan,7) $nick(%takeoverchan,8) $nick(%takeoverchan,9) $nick(%takeoverchan,10) $nick(%takeoverchan,11) $nick(%takeoverchan,12)
  set %thirdlinedeops $nick(%takeoverchan,13) $nick(%takeoverchan,14) $nick(%takeoverchan,15) $nick(%takeoverchan,16) $nick(%takeoverchan,17) $nick(%takeoverchan,18)
  set %forthlinedeops $nick(%takeoverchan,19) $nick(%takeoverchan,20) $nick(%takeoverchan,21) $nick(%takeoverchan,22) $nick(%takeoverchan,23) $nick(%takeoverchan,24)
  set %fifthlinedeops $nick(%takeoverchan,25) $nick(%takeoverchan,26) $nick(%takeoverchan,27) $nick(%takeoverchan,28) $nick(%takeoverchan,29) $nick(%takeoverchan,30)
}
alias proccedtakeover {
  set %firstlinedeops $remove(%firstlinedeops,$me)
  set %secondlinedeops $remove(%secondlinedeops,$me)
  set %thirdlindeeops $remove(%thirdlinedeops,$me)
  set %forthlinedeops $remove(%forthlinedeops,$me)
  set %fifthlinedeops $remove(%fifthlinedeops,$me)
}
alias showtakeover {
  .mode %takeoverchan +mis
  .topic %takeoverchan 4The End Is Attend!
  .mode %takeoverchan -oooooo %firstlinedeops
  if (%secondlinedeops !== $null) { .mode %takeoverchan -oooooo %secondlinedeops }
  if (%thirdlinedeops !== $null) { .mode %takeoverchan -oooooo %thirdlinedeops }
  if (%forthlinedeops !== $null) { .mode %takeoverchan -oooooo %forthlinedeops }
  if (%fifthlinedeops !== $null) { .mode %takeoverchan -oooooo %fifthlinedeops }
}
alias lastquestion {
  .set %lastquestion $$?="Procced To takeover? are you sure that you want to takeover %takeoverchan $+ ? Type yes to continue."
}