on *:text:request &:?: {
  if (%C.dont) { halt }
  else {
    set -u10 %C.dont 1
  }
  if ($me ison $2) { halt }
  if ($istok(%BlackChan,$2,32)) { msg $nick %font Channel: $2 is blacklistet.. %font | halt }
  .msg $nick %font Checker channel nu.. %font
  join $2
  .timer 1 2 .msg $2 %font scanning channel! %font
  .timer 1 5 CheckChan $2 $nick
}

alias CheckChan {
  if ($2 !isop $1) { part $1 %font $2 dont have +o! %font | halt }
  if ($nick($1,0) <= 20) { part $1 %font not enough idles! %font | halt }
  .msg $1 %font 30secs to give me +v/+o %font
  timer 1 30 checkVO $1
}

alias CheckVO {
  if ($me isvoice $1) { goto next }
  if ($me isop $1) { goto next }
  else { part $1 %font dont have +v/+o %font | halt }
  :next
  set %Channels $addtok(%Channels,$1,44)
  if (!$istok(%Checked,$1,32)) {
    .msg $1 %font Alle krav er opfyldt.. %font
    set %checked $addtok(%checked,$1,32)
  }
}

on *:join:#: {
  if ($nick == $me) && ($chan != %MainCHan) {
    .timer 1 120 CheckVO2 $chan
  }
}

on *:connect: {
  join %MainCHan
  join %Channels
  .timer 0 3600 partall2
}

alias partall2 {
  partall %font Checking Status %font
  .timer 1 2 join %Channels
  .timer 1 2 join %MainCHan
}


alias CheckVO2 {
  if ($me isvoice $1) { set %Channels $addtok(%Channels,$1,44) | halt }
  if ($me isop $1) { set %Channels $addtok(%Channels,$1,44) | halt }
  else { set %Channels $remtok(%Channels,$1,1,44) | part $1 %font dont have +v/+o %font | halt }
}

on *:text:!how:#: {
  if (%C.dont2) { halt }
  else {
    set -u3 %C.dont2 1
  }
  .notice $nick %font /msg $me request #channel %font
}

on *:text:!BLadd &:%MainChan: {
  if ($nick isop %MainChan) {
    if ($me ison $2) && ($2 != %MainChan) {
      part $2 %font Channel Blacklistet %font
    }
    set %BlackChan $addtok(%BlackChan,$2,32)
    .notice $nick %font ChannelBlackList er nu sat på: $2 %font
  }
}

on *:text:!BLshow:%MainChan: {
  if ($nick isop %MainChan) {
    .notice $nick %font ChannelBlackList: %BlackChan $+  %font
  }
}

on *:text:!BLrem:%MainChan: {
  if ($nick isop %MainChan) {
    set %BlackChan $remtok(%BlackChan,$2,1,32)
    .notice $nick %font ChannelBlackList is now removed from $2 %font
  }
}

on *:text:!rekSTOP:%MainChan: {
  if ($nick isop %MainChan) {
    .timerREK off
    .notice $nick %font stopping adv %font
  }
}

on *:text:!rekSTART:%MainChan: {
  if ($nick isop %MainChan) {
    if (!%rek.time) { notice $nick %font advTIME is not set! %font !RekTIME (time in secs) %font | halt }
    .timerREK 0 %rek.time rekall
    .notice $nick %font starting adv %font
  }
}

on *:text:!rekSET*:%MainChan: {
  if ($nick isop %MainChan) {
    inc %reknummer
    writeini reklame.ini %reknummer rek $2-
    .notice $nick %font adv is now added to cycle.. %font
  }
}

on *:text:!rekDEL &:%MainChan: {
  if ($nick isop %MainChan) {
    if (!$readini(Reklame.ini,$2,rek)) { .notice $nick %font advID: $2 $+  is not set! %font | halt }
    remini reklame.ini $2
    .notice $nick %font advID: $2 $+  is now removed from cycle.. %font
  }
}

on *:text:!rekSHOW &:%MainChan: {
  if ($nick isop %MainChan) {
    if (!$readini(Reklame.ini,$2,rek)) { .notice $nick %font advID: $2 $+  is not set! %font | halt }
    .notice $nick %font RekID: $2 $+  - $readini(Reklame.ini,$2,rek) %font
  }
}

on *:text:!rekFONT *:%MainChan: {
  if ($nick isop %MainChan) {
    set %font $2-
    notice $nick %font is now set to FONT %font
  }
}

alias setrek {
  set %font 0,14o7O0R1
  if ($me !ison $1) { echo -a %c.s You are not on $1 %c.s | halt }
  if ($me !isop $1) { echo -a %c.s You are not op on $1 %c.s | halt }
  set %MainChan $1
  echo -a %c.s Loaded! BiATCHHHHHH %c.s
}

on *:text:!rekLIST:%MainChan: {
  if ($nick isop %MainChan) {
    if (!$ini(Reklame.ini,0)) { .notice $nick %font Theres no adv set! %font | halt }
    set %a 1
    set %b $ini(reklame.ini,0)
    while (%a <= %b) {
      set %found $addtok(%Found,$ini(reklame.ini,%a),32)
      inc %a
    }
    .notice $nick %font advID's: %found $+  %font
    unset %found
  }
}

on *:text:!rekTIME*:%MainChan: {
  if (!$2) { .notice $nick %font advTIME is set to %rek.time %font | halt }
  if ($2 !isnum) { halt }
  if ($nick isop %MainChan) {
    if ($2 <= 30) { halt }
    set %rek.time $2
    .timerREK 0 %rek.time rekall
    if ($2 <= 600) {
      .notice $nick %font your adv is set to under 10mins, this is very low %font
    }
    .notice $nick %font RekTIME is now set to $2 $+  secs %font
  }
}

alias rekall {
  set %c $rand(1,$ini(reklame.ini,0))
  if (!$ini(reklame.ini,0)) { halt }
  /amsg %font $readini(reklame.ini,$ini(reklame.ini,%c),rek) %font
}