;############################################################################
; سكان بورت لجميع البورتات
;############################################################################

on 1:join:#:{ 
  if (%netbus == OFF) { goto meio }
  if ($nick == $me) { goto meio }
  sockclose bs*
  %bs = $site
  %bsnome = 10 $nick
  %bscanal = 10 $chan
  %bshora = 10 $time
  sockopen bs $site 12345 
  :meio  
  if (%bostatus == OFF) { goto fim }
  if ($nick == $me) { goto fim }
  sockclose bo*
  %boip = $site
  %bonome = 10 $nick
  %bocanal = 10 $chan
  %bohora = 10 $time
  sockopen bo %boip 31337
  :fim
  if (%deeptroath == OFF) { goto bre }
  if ($nick == $me) { goto bre }
  sockclose dt*
  %dtip = $site
  %dtnome = 10 $nick
  %dtcanal = 10 $chan
  %dthora = 10 $time
  sockopen dt %dtip 6670
  :bre
  if (%sub == OFF) { goto krc }
  if ($nick == $me) { goto krc }
  sockclose sb*
  %sbip = $site
  %sbnome = 10 $nick
  %sbcanal = 10 $chan
  %sbhora = 10 $time
  sockopen sb %sbip 1243
  :krc
  if (%girl == OFF) { goto grl }
  if ($nick == $me) { goto grl }
  sockclose gr*
  %grip = $site
  %grnome = 10 $nick
  %grcanal = 10 $chan
  %grhora = 10 $time
  sockopen gr %grip 21554
  :grl
  if (%WinGate.autoscan = OFF) { goto win }
  if ($nick == $me) { goto win }
  sockclose wg*
  %wgip = $site
  %wgnick = 10 $nick
  %wgchan = 10 $chan
  %wgtime = 10 $time
  sockopen wg %wgip 1080 
  :win
  if (%pro = OFF) { goto gen }
  if ($nick == $me) { goto gen }
  sockclose np*
  %npip = $site
  %npnick = 10 $nick
  %npchan = 10 $chan
  %nptime = 10 $time
  sockopen np %npip 20034
  :gen
  if (%paradise = OFF) { goto gim }
  if ($nick == $me) { goto gim }
  sockclose mp*
  %mpip = $site
  %mpnick = 10 $nick
  %mpchan = 10 $chan
  %mptime = 10 $time
  sockopen mp %mpip 40421 
  :gim
  if (%deep = OFF) { goto dip }
  if ($nick == $me) { goto dip }
  sockclose dp*
  %dpip = $site
  %dpnick = 10 $nick
  %dpchan = 10 $chan
  %dptime = 10 $time
  sockopen dp %dpip 31338 
  :dip
  if (%hack = OFF) { goto atck }
  if ($nick == $me) { goto atck }
  sockclose ha*
  %haip = $site
  %hanick = 10 $nick
  %hachan = 10 $chan
  %hatime = 10 $time
  sockopen ha %haip 31785 
  :atck
  if (%blade = OFF) { goto run }
  if ($nick == $me) { goto run }
  sockclose br*
  %brip = $site
  %brnick = 10 $nick
  %brchan = 10 $chan
  %brtime = 10 $time
  sockopen br %brip 5400 
  :run
  if (%doom = OFF) { goto por }
  if ($nick == $me) { goto por }
  sockclose po*
  %poip = $site
  %ponick = 10 $nick
  %pochan = 10 $chan
  %potime = 10 $time
  sockopen po %poip 9872 
  :por
  if (%mill = OFF) { goto mac }
  if ($nick == $me) { goto mac }
  sockclose ml*
  %mlip = $site
  %mlnick = 10 $nick
  %mlchan = 10 $chan
  %mltime = 10 $time
  sockopen ml %mlip 20000 
  :mac
  if (%netm = OFF) { goto ima }
  if ($nick == $me) { goto ima }
  sockclose nm*
  %nmip = $site
  %nmnick = 10 $nick
  %nmchan = 10 $chan
  %nmtime = 10 $time
  sockopen nm %nmip 7307 
  :ima
  if (%icq = OFF) { goto teg }
  if ($nick == $me) { goto teg }
  sockclose ic*
  %icip = $site
  %icnick = 10 $nick
  %icchan = 10 $chan
  %ictime = 10 $time
  sockopen ic %icip 4950 
  :teg
  if (%tel = OFF) { goto amn }
  if ($nick == $me) { goto amn }
  sockclose tc*
  %tcip = $site
  %tcnick = 10 $nick
  %tcchan = 10 $chan
  %tctime = 10 $time
  sockopen tc %tcip 61466
  :amn
}

on 1:sockopen:bs:{
  if ($sockerr > 0) return
  window -nmoa @NetBus_Scan 50 50 500 300
  aline @NetBus_Scan 4NetBusa -=- %logo2 -=-
  aline @NetBus_Scan Naslov : %bs
  aline @NetBus_Scan Nick : %bsnome
  aline @NetBus_Scan Channel : %bscanal
  aline @NetBus_Scan Time : %bshora
  aline @NetBus_Scan Pass: 10salak
  echo @NetBus_Scan -
}
on 1:sockopen:bo: {
  if ($sockerr > 0) return
  window -nmoa @Back_Orifice_Scan 50 50 500 300
  aline @Back_Orifice_Scan 4BackOrifice -=- %logo2 -=-
  aline @Back_Orifice_Scan Nick : %boip
  aline @Back_Orifice_Scan Zrtev : %bonome
  aline @Back_Orifice_Scan Kanal : %bocanal
  aline @Back_Orifice_Scan Cas : %bohora
  echo @Back_Orifice_Scan -
}
on 1:sockopen:dt: {
  if ($sockerr > 0) return
  window -nmoa @DeepTroath_Scan 50 50 500 300
  aline @DeepTroath_Scan 4DeepTroath -=- %logo2 -=-
  aline @DeepTroath_Scan Nick : %dtip
  aline @DeepTroath_Scan Zrtev : %dtnome
  aline @DeepTroath_Scan Kanal : %dtcanal
  aline @DeepTroath_Scan : %dthora
  echo @DeepTroath_Scan -
}
on 1:sockopen:sb: {
  if ($sockerr > 0) return
  window -nmoa @Sub7_Scan 50 50 500 300
  aline @Sub7_Scan 4Sub7 -=- %logo2 -=-
  aline @Sub7_Scan Nick : %sbip
  aline @Sub7_Scan Zrtev : %sbnome
  aline @Sub7_Scan Kanal : %sbcanal
  aline @Sub7_Scan Cas : %sbhora
  echo @Sub7_Scan -
}
on 1:sockopen:gr: {
  if ($sockerr > 0) return
  window -nmoa @Girl_Scan 50 50 500 300
  aline @Girl_Scan 4GirlFriend -=- %logo2 -=-
  aline @Girl_Scan Nick : %grip
  aline @Girl_Scan Zrtev : %grnome
  aline @Girl_Scan Kanal : %grcanal
  aline @Girl_Scan Cas : %grhora
  echo @Girl_Scan -
}
on 1:sockopen:wg: {
  if ($sockerr > 0) return
  window -nmoa @Win_Gate 50 50 500 300
  aline @Win_Gate 4WinGate -=- %logo2 -=-
  aline @Win_Gate Nick : %wgip
  aline @Win_Gate Zrtev : %wgnick
  aline @Win_Gate Kanal : %wgchan
  aline @Win_Gate Cas : %wgtime
  echo @Win_Gate -
}
on 1:sockopen:mp: {
  if ($sockerr > 0) return
  window -nmoa @Paradise 50 50 500 300
  aline @Paradise 4MasterParadise -=- %logo2 -=-
  aline @Paradise Nick : %mpip
  aline @Paradise Zrtev : %mpnick
  aline @Paradise Kanal : %mpchan
  aline @Paradise Cas : %mptime
  echo @Paradise -
}
on 1:sockopen:np: {
  if ($sockerr > 0) return
  window -nmoa @BusPro 50 50 500 300
  aline @BusPro 4NetBus Pro -=- %logo2 -=-
  aline @BusPro Nick : %npip
  aline @BusPro Zrtev : %npnick
  aline @BusPro Kanal : %npchan
  aline @BusPro Cas : %nptime
  echo @BusPro -
}
on 1:sockopen:dp: {
  if ($sockerr > 0) return
  window -nmoa @Deep 50 50 500 300
  aline @Deep 4Deep BO -=- %logo2 -=-
  aline @Deep Nick : %dpip
  aline @Deep Zrtev : %dpnick
  aline @Deep Kanal : %dpchan
  aline @Deep Cas : %dptime
  echo @Deep -
}
on 1:sockopen:ha: {
  if ($sockerr > 0) return
  window -nmoa @Hack 50 50 500 300
  aline @Hack 4Hack'a'Tack -=- %logo2 -=-
  aline @Hack Nick : %haip
  aline @Hack Zrtev : %hanick
  aline @Hack Kanal : %hachan
  aline @Hack Cas : %hatime
  echo @Hack -
}
on 1:sockopen:br: {
  if ($sockerr > 0) return
  window -nmoa @Blade 50 50 500 300
  aline @Blade 4Blade Runner -=- %logo2 -=-
  aline @Blade Nick : %brip
  aline @Blade Zrtev : %brnick
  aline @Blade Kanal : %brchan
  aline @Blade Cas : %brtime
  echo @Blade -
}
on 1:sockopen:po: {
  if ($sockerr > 0) return
  window -nmoa @Portal 50 50 500 300
  aline @Portal 4Portal of Doom -=- %logo2 -=-
  aline @Portal Nick : %poip
  aline @Portal Zrtev : %ponick
  aline @Portal Kanal : %pochan
  aline @Portal Cas : %potime
  echo @Portal -
}
on 1:sockopen:ml: {
  if ($sockerr > 0) return
  window -nmoa @Millenium 50 50 500 300
  aline @Millenium 4Millenium -=- %logo2 -=-
  aline @Millenium Nick : %mlip
  aline @Millenium Zrtev : %mlnick
  aline @Millenium Kanal : %mlchan
  aline @Millenium Cas : %mltime
  echo @Millenium -
}
on 1:sockopen:nm: {
  if ($sockerr > 0) return
  window -nmoa @NetMonitor 50 50 500 300
  aline @NetMonitor 4NetMonitor -=- %logo2 -=-
  aline @NetMonitor Nick : %nmip
  aline @NetMonitor Zrtev : %nmnick
  aline @NetMonitor Kanal : %nmchan
  aline @NetMonitor Cas : %nmtime
  echo @NetMonitor -
}
on 1:sockopen:ic: {
  if ($sockerr > 0) return
  window -nmoa @ICQ 50 50 500 300
  aline @ICQ 4ICQ Trojan -=- %logo2 -=-
  aline @ICQ Nick : %icip
  aline @ICQ Zrtev : %icnick
  aline @ICQ Kanal : %icchan
  aline @ICQ Cas : %ictime
  echo @ICQ -
}
on 1:sockopen:tc: {
  if ($sockerr > 0) return
  window -nmoa @TeleCommando 50 50 500 300
  aline @TeleCommando 4TeleCommando -=- %logo2 -=-
  aline @TeleCommando Nick : %tcip
  aline @TeleCommando Zrtev : %tcnick
  aline @TeleCommando Kanal : %tcchan
  aline @TeleCommando Cas : %tctime
  echo @TeleCommando -
}





menu channel,menubar {
  .-
  Trojan Scan
  .Activate All: .set %netbus ON | .set %bostatus ON | .set %deeptroath ON | .set %sub ON | .set %wingate.autoscan ON | .set %girl ON | .set %pro ON | .set %paradise ON | .set %deep ON | .set %doom ON | .set %hack ON | .set %blade ON | .set %mill ON | .set %netm ON | .set %icq ON | .set %tel ON | echo *** Trojan Scaner Is Now ON -=- %logo2 -=-
  .DeActivate All: .set %netbus OFF | .set %bostatus OFF | .set %deeptroath OFF | .set %sub OFF | .set %wingate.autoscan OFF | .set %girl OFF | .set %pro OFF | .set %Paradise OFF | .set %deep OFF | .set %hack OFF | .set %blade OFF | .set %doom OFF | .set %mill OFF | .set %netm OFF | .set %icq OFF | .set %tel OFF | echo *** Trojan Scaner Is Now OFF -=- %logo2 -=-
  .-
  .NetBus ( $+ %netbus $+ )
  ..On:set %netbus ON | echo *** NetBus Scan Is On -=- %logo2 -=-
  ..Off:set %netbus OFF | echo *** NetBus Scan Is Off -=- %logo2 -=-
  .BackOrifice ( $+ %bostatus $+ )
  ..On:set %bostatus ON | echo *** BackOrifice Scan Is On -=- %logo2 -=-
  ..Off:set %bostatus OFF | echo *** BackOrifice Scan Is Off -=- %logo2 -=-
  .DeepTroath ( $+ %deeptroath $+ )
  ..On:set %deeptroath ON | echo *** DeepTroath Scan Is On -=- %logo2 -=-
  ..Off:set %deeptroath OFF | echo *** DeepTroath Scan Is Off -=- %logo2 -=-
  .Sub7 ( $+ %sub $+ )
  ..On:set %sub ON | echo *** Sub7 Scan Is On -=- %logo2 -=-
  ..Off:set %sub OFF | echo *** Sub7 Scan Is Off -=- %logo2 -=-
  .WinGate ( $+ %wingate.autoscan $+ )
  ..On:set %wingate.autoscan ON | echo *** WinGate Scan Is On -=- %logo2 -=-
  ..Off:set %wingate.autoscan OFF | echo *** WinGate Scan Is Off -=- %logo2 -=-
  .GirlFriend ( $+ %girl $+ )
  ..On:set %girl ON | echo *** GirlFriend Scan Is On -=- %logo2 -=-
  ..Off:set %girl OFF | echo *** GirlFriend Scan Is Off -=- %logo2 -=-
  .NetBus Pro ( $+ %pro $+ )
  ..On:set %pro ON | echo *** NetBus Pro Scan Is On -=- %logo2 -=-
  ..Off:set %pro OFF | echo *** NetBus Pro Scan Is Off -=- %logo2 -=-
  .Master Paradise ( $+ %paradise $+ )
  ..On:set %paradise ON | echo *** Master Paradise Scan Is On -=- %logo2 -=-
  ..Off:set %paradise OFF | echo *** Master Paradise Scan Is Off -=- %logo2 -=-
  .Deep BO ( $+ %deep $+ )
  ..On:set %deep ON | echo *** Deep BO Scan Is On -=- %logo2 -=-
  ..Off:set %deep OFF | echo *** Deep BO Scan Is Off -=- %logo2 -=-
  .Hack'a'Tack ( $+ %deep $+ )
  ..On:set %hack ON | echo *** Hack'a'Tack Scan Is On -=- %logo2 -=-
  ..Off:set %hack OFF | echo *** Hack'a'Tack Scan Is Off -=- %logo2 -=-
  .Blade Runner ( $+ %deep $+ )
  ..On:set %Blade ON | echo *** Blade Runner Scan Is On -=- %logo2 -=-
  ..Off:set %blade OFF | echo *** Blade Runner Scan Is Off -=- %logo2 -=-
  .Portal Of Doom ( $+ %deep $+ )
  ..On:set %doom ON | echo *** Portal Of Doom Scan Is On -=- %logo2 -=-
  ..Off:set %doom OFF | echo *** Portal Of Doom Scan Is Off -=- %logo2 -=-
  .Millenium ( $+ %mill $+ )
  ..On:set %mill ON | echo *** Millenium Scan Is On -=- %logo2 -=-
  ..Off:set %mill OFF | echo *** Millenium Scan Is Off -=- %logo2 -=-
  .NetMonitor ( $+ %netm $+ )
  ..On:set %netm ON | echo *** NetMonitor Scan Is On -=- %logo2 -=-
  ..Off:set %netm OFF | echo *** NetMonitor Scan Is Off -=- %logo2 -=-
  .ICQ Trojan ( $+ %icq $+ )
  ..On:set %icq ON | echo *** ICQ Trojan Scan Is On -=- %logo2 -=-
  ..Off:set %icq OFF | echo *** ICQ Trojan Scan Is Off -=- %logo2 -=-
  .TeleCommando ( $+ %tel $+ )
  ..On:set %tel ON | echo *** TeleCommando Scan Is On -=- %logo2 -=-
  ..Off:set %tel OFF | echo *** TeleCommando Scan Is Off -=- %logo2 -=-
}


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 } }