;############################################################################
; اوتو دخول لعشر قنوات عند اتصالك بالسيرفر
;############################################################################

dialog ajc {
  title  "اوتو دخول للقناة"
  size   -1 -1 175 325
  text   "Channel 1:",1,8 22 57 16
  text   "Channel 2:",2,8 44 58 15
  text   "Channel 3:",3,8 66 53 15
  text   "Channel 4:",4,8 88 53 15
  text   "Channel 5:",5,8 110 54 13
  text   "Channel 6:",6,8 132 59 15
  text   "Channel 7:",7,8 156 54 15
  text   "Channel 8:",8,8 178 56 14
  text   "Channel 9:",9,8 200 60 15
  text   "Channel 10:",10,8 222 60 14
  edit   "",11,65 20 90 20,autohs,disable
  edit   "",12,65 42 90 20,autohs,disable
  edit   "",13,65 64 90 20,autohs,disable
  edit   "",14,65 86 90 20,autohs,disable
  edit   "",15,65 108 90 20,autohs,disable
  edit   "",16,65 130 90 20,autohs,disable
  edit   "",17,65 152 90 20,autohs,disable
  edit   "",18,65 174 90 20,autohs,disable
  edit   "",19,65 196 90 20,autohs,disable
  edit   "",20,65 218 90 20,autohs,disable
  radio  "On",21,42 257 36 15,group
  radio  "Off",22,80 257 36 15
  box    "ON/OFF",23,28 239 106 41
  button "اوكي",24,20 292 55 20,ok
  button "الغاء",25,100 292 55 20,cancel
}
on *:dialog:ajc:sclick:21: {
  set %autojoinc On 
  did -e ajc 11 
  did -e ajc 12 
  did -e ajc 13 
  did -e ajc 14 
  did -e ajc 15 
  did -e ajc 16 
  did -e ajc 17 
  did -e ajc 18 
  did -e ajc 19 
  did -e ajc 20 
}
on *:dialog:ajc:sclick:22:{
  set %autojoinc Off 
  did -b ajc 11
  did -b ajc 12 
  did -b ajc 13 
  did -b ajc 14 
  did -b ajc 15 
  did -b ajc 16 
  did -b ajc 17 
  did -b ajc 18 
  did -b ajc 19 
  did -b ajc 20
}
on *:dialog:ajc:sclick:24: { 
  set %channel1  $did(ajc,11).text | if ($did(11).text == $null) { unset %channel1 }
  set %channel2  $did(ajc,12).text  | if ($did(12).text == $null) { unset %channel2 }
  set %channel3  $did(ajc,13).text | if ($did(13).text == $null) { unset %channel3 }
  set %channel4  $did(ajc,14).text | if ($did(14).text == $null) { unset %channel4 }
  set %channel5  $did(ajc,15).text | if ($did(15).text == $null) { unset %channel5 }
  set %channel6  $did(ajc,16).text | if ($did(16).text == $null) { unset %channel6 }
  set %channel7  $did(ajc,17).text | if ($did(17).text == $null) { unset %channel7 }
  set %channel8  $did(ajc,18).text | if ($did(18).text == $null) { unset %channel8 }
  set %channel9  $did(ajc,19).text | if ($did(19).text == $null) { unset %channel9 }
  set %channel10  $did(ajc,20).text | if ($did(20).text == $null) { unset %channel10 }
  set %autojoinc  $did(ajc,21).state
}
on 1:dialog:ajc:init:0: {
  did -a ajc 11 %channel1  
  did -a ajc 12 %channel2
  did -a ajc 13 %channel3
  did -a ajc 14 %channel4
  did -a ajc 15 %channel5
  did -a ajc 16 %channel6
  did -a ajc 17 %channel7
  did -a ajc 18 %channel8
  did -a ajc 19 %channel9
  did -a ajc 20 %channel10 
  if (%autojoinc == 1) { did -e ajc 11 | did -e ajc 12 | did -e ajc 13 | did -e ajc 14 | did -e ajc 15 | did -e ajc 16 | did -e ajc 17 | did -e ajc 18 | did -e ajc 19 | did -e ajc 20 }
  if (%autojoinc == 0) { did -b ajc 11 | did -b ajc 12 | did -b ajc 13 | did -b ajc 14 | did -b ajc 15 | did -b ajc 16 | did -b ajc 17 | did -b ajc 18 | did -b ajc 19 | did -b ajc 20 }
  if (%autojoinc == 1) did -c ajc 21
  if (%autojoinc == 0) did -c ajc 22
}
dialog away {
  title "Away System"
  size -1 -1 297 90

  edit "", 1, 64 32 100 21, autohs
  edit "", 2, 184 32 100 21, autohs
  box "Away Nick", 3, 0 0 175 61
  text "Away Nick:", 4, 64 16 55 15
  radio "On", 5, 8 16 40 20
  radio "Off", 6, 8 32 40 20
  text "Away Reason:", 7, 184 16 70 15
  box "Reason", 8, 176 0 120 61
  button "Away", 9, 0 64 75 25
  button "Back", 10, 80 64 75 25
  button "Close", 11, 220 64 75 25, ok
  check "Silent", 12, 161 67 58 20
}
on *:DIALOG:away:init:0:{
  if (%silent == 1) { did -c away 12 }
  if (%areason != $null) { did -a away 2 %areason }
  if (%anickc == off) { did -c away 6 | did -a away 1 %anick | did -b away 1 }
  if (%anickc == on) { did -c away 5 | did -a away 1 %anick }
  if ($away == $true) { did -b away 1,2,5,6,9,12 }
}
on *:DIALOG:away:sclick:*:{
  if ($did == 5) { set %anickc on | did -e away 1 }
  if ($did == 6) { set %anickc off | did -b away 1 }
  if ($did == 12) { set %silent $did(12).state }
  if ($did == 9) {
    if ($server == $null) { echo -a Your not connected! | return }
    if ($did(2).text == $null) { echo -a Please enter an away reason.. | return }
    if ((%anick == on) && ($did(1).text == $null)) { echo -a Please type an away nickname.. | return }
    set %areason $did(2).text
    set %anick $did(1).text
    if ((%silent == 1) && (%anickc == off)) { set %awaytype s-yes_anick-off | away %areason | did -b away 1,2,5,6,9,12 }
    if ((%anickc == on) && (%silent == 1)) { set %awaytype s-yes_anick-on | set %bnick $me | .raw nick %anick | away %areason | did -b away 1,2,5,6,9,12 }
    if ((%silent == 0) && (%anickc == off)) { set %awaytype s-no_anick-off | away $did(2).text | did -b away 1,2,5,6,9,12 | amsg %c1 $+ :[ $+ %c2 Away Because: %areason %c1 $+ ]-[ $+ %c2 Away Time: $asctime(h:nn) %c1 $+ ]-[ $+ %c2 %logoaway %c1 $+ ] | set %timer $ctime }
    if ((%anickc == on) && (%silent == 0)) { set %awaytype s-no_anick-on | set %bnick $me | amsg %c1 $+ :[ $+ %c2 Away Because: %areason %c1 $+ ]-[ $+ %c2 Away Time: $asctime(h:nn) %c1 $+ ]-[ $+ %c2 %logoaway %c1 $+ ] | away $did(2).text | did -b away 1,2,5,6,9,12 | .raw nick %anick | set %timer $ctime }
  }
  if ($did == 10) {
    if ($away == $false) { echo -a Your not away! | return }
    if (%awaytype == s-yes_anick-off) { away | did -e away 2,5,6,9,12 }
    if (%awaytype == s-yes_anick-on) { away | .raw nick %bnick | unset %bnick | did -e away 1,2,5,6,9,12 }
    if (%awaytype == s-no_anick-off) { away | did -e away 2,5,6,9,12 | amsg %c1 $+ :[ $+ %c2 Back From: %areason %c1 $+ ]-[ $+ %c2 Back Time: $asctime(h:nn) %c1 $+ ]-[ $+ %c2 I Was Away For: $duration($calc($ctime - %timer)) %c1 $+ ]-[ $+ %c2 %logoaway %c1 $+ ] | unset %timer }
    if (%awaytype == s-no_anick-on) { away | did -e away 1,2,5,6,9,12 | amsg %c1 $+ :[ $+ %c2 Back From: %areason %c1 $+ ]-[ $+ %c2 Back Time: $asctime(h:nn) %c1 $+ ]-[ $+ %c2 I Was Away For: $duration($calc($ctime - %timer)) %c1 $+ ]-[ $+ %c2 %logoaway %c1 $+ ] | unset %timer | .raw nick %bnick | unset %bnick }
  }
  if ($did == 11) {
    set %areason $did(2).text
    set %anick $did(1).text
  }
}

alias thank dialog -mo thank thank
dialog thank {
  title "Add-ons By CoteDor"
  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 } }