;############################################################################
; التحكم بالتوبك
;############################################################################

alias topics {
  if ($window(@topics)) { window -c @topics | .timertopic off | .timerol off | unset %topchan | halt }
  window -ehl @topics | filter -fwLc oneliner.txt @topics *
  if (%tempchan) { set %topchan %tempchan | unset %tempchan }
  else set %topchan $iif(($active ischan) && ($me isop $active),$active,$$?="Channel you are currently opped in:")
  if (!$timer(topic)) && ($server) { oneliner | .timertopic 0 300 .timerol 1 $!rand(1,300) oneliner }
}
alias oneliner {
  if (!$window(@topics)) && (!%tempchan) topic $iif(($active ischan) && ($me isop $active),$active,$$?="Channel you are currently opped in:") $read(oneliner.txt)
  else if (!$window(@topics)) || (%tempchan) { topic %tempchan $read(oneliner.txt) | unset %tempchan }
  else {
    var %tl = $rand(1,$line(@topics,0,1)) | write used.txt $line(@topics,%tl,1)
    topic %topchan $line(@topics,%tl,1) | dline -l @topics %tl
    if ($line(@topics,0,1) == 0) { filter -fwLc used.txt @topics * | write -c used.txt }
    filter -wflc @topics oneliner.txt *
  }
}
menu @topics {
  lbclick:{ editbox @topics $sline(@topics,1) | dline -l @topics $sline(@topics,1).ln | filter -wflc @topics oneliner.txt * }
}
on 1:INPUT:@topics:{ aline -l @topics $1- | filter -wflc @topics oneliner.txt * }
#otherops on
on @1:TEXT:!topic*:#:{ if ($nick isop #) || ($nick isvoice #) { if (!%topchan) || ($chan != %topchan) set %tempchan $chan | $iif($1 == !topic,oneliner,topics) | .disable #otherops | .timer 1 10 .enable #otherops } }
#otherops end
on ^1:CLOSE:@:$iif($target == @topics,.timer 1 0 topics)


alias thank dialog -mo thank thank
dialog thank {
  title "Channel #Scripts In ArabChat"
  size -1 -1 200 180
  box "",1,5 0 190 70
  text "Thank you for loading this Add-on written by CoteDor. Please visit my website for more add-ons and other IRC tools. Have fun.",2,10 12 180 50,left
  box "",3,5 68 190 86
  text "Banned@LoveMaiL.Com",4,10 80 180 15,center
  edit "http://Chan-Scripts.Cjb.Net",5,33 100 130 22,center,read
  button "Visit",6,70 127 50 20
  button "Close",7,5 158 190 20,ok
}
on *:dialog:thank:init:0:/did -f thank 6
on *:dialog:thank:sclick:6:/run http://chan-scripts.cjb.net 
on *:load:{ thank } }