#whois off

on *:join:#: { 
  $binnekomer
  set %kamer #
  whois $nick 
}
raw 319:*: { 
  if ( %kamer !=$null ) { echo %kamer 3 ** $2 zit in kamers $3- ** }
  unset %kamer
}

#whois end
alias Sounds { dialog -m Sounds Sounds }
dialog Sounds {
  title "»»A_C-script interne geluids opties««"
  size -1 -1 133 107
  option dbu
  icon $icodir(vol.ico), 0
  box "", 1, 5 3 123 21
  radio "Aan", 2, 77 10 22 10
  radio "Uit", 3, 104 10 19 10, group
  text "A_C-Script Geluiden:", 4, 10 11 64 8
  box "Interne Geluids Optie's", 5, 5 26 123 75
  check "Start ", 6, 10 33 50 10
  check "Connect", 7, 10 44 50 10
  check "Disconnect ", 8, 10 55 50 10
  check "Player Load ", 9, 10 66 55 10
  check "Script Reload", 10, 10 77 60 10
  check "Beveiliging", 11, 70 88 50 10
  check "Error", 12, 70 33 50 10
  check "Away Set", 13, 70 44 50 10
  check "Away Back", 14, 70 55 50 10
  check "Recycle", 15, 70 77 50 10
  check "Klik", 16, 10 88 50 10
  check "Away Adepted", 17, 70 66 50 10
}
on *:dialog:sounds:sclick:*:{
  if ($did == 2) { if (%sounds = 0) { set %sounds 1 | did -e $dname 6,7,8,9,10,11,12,13,14,15,16,17 } | else { set %sounds 0 | did -b $dname 6,7,8,9,10,11,12,13,14,15,16,17 } }
  if ($did == 3) { if (%sounds = 1) { set %sounds 0 | did -b $dname 6,7,8,9,10,11,12,13,14,15,16,17 } | else { set %sounds 1 | did -e $dname 6,7,8,9,10,11,12,13,14,15,16,17 } }
  if ($did == 6) { if (%start.s = 0) { set %start.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %start.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 7) { if (%con.s = 0) { set %con.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %con.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 8) { if (%discon.s = 0) { set %discon.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %discon.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 9) { if (%mload.s = 0) { set %mload.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %mload.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 10) { if (%reload = 0) { set %reload 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %reload 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 11) { if (%straf = 0) { set %straf 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %straf 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } } 
  if ($did == 12) { if (%error.s = 0) { set %error.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %error.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 13) { if (%aset.s = 0) { set %aset.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %aset.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 14) { if (%aback.s = 0) { set %aback.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %aback.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 15) { if (%recycle.s = 0) { set %recycle.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %recycle.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
  if ($did == 16) { if (%klik.s = 0) { set %klik.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %klik.s 0 | $rs(klik.wav) } }
  if ($did == 17) { if (%adept.s = 0) { set %adept.s 1 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } | else { set %adept.s 0 | $iif(((%sounds = 1) && (%klik.s = 1)),$rs(klik.wav)) } }
}

on *:dialog:sounds:init:*:{
  if (%sounds == 1) { did -c $dname 2 | did -e $dname 6,7,8,9,10,11,12,13,14,15,16,17 } | else { did -c $dname 3 | did -b $dname 6,7,8,9,10,11,12,13,14,15,16,17 } 
  if (%start.s == 1) { did -c $dname 6 } 
  if (%con.s == 1) { did -c $dname 7 }
  if (%discon.s == 1) { did -c $dname 8 }
  if (%mload.s == 1) { did -c $dname 9 }
  if (%reload == 1) { did -c $dname 10 }
  if (%straf == 1) { did -c $dname 11 }
  if (%error.s == 1) { did -c $dname 12 }
  if (%aset.s == 1) { did -c $dname 13 }
  if (%aback.s == 1) { did -c $dname 14 }
  if (%recycle.s == 1) { did -c $dname 15 }
  if (%klik.s == 1) { did -c $dname 16 }
  if (%adept.s == 1) { did -c $dname 17 }
}
alias onstart { dialog -m onstart onstart } 
dialog onstart {
  title "Instellingen"
  option dbu
  icon $icodir(2544.ico), 0
  size -1 -1 200 225
  text "Nickname:" 2, 20 30 40 10
  text "Awaynick:" 3, 20 42 40 10
  text "Wachtwoord *:" 4, 20 55 40 10,passwd
  edit "" 22, 65 29 110 10,autovs autohs
  edit "" 33, 65 41 110 10, autohs autovs
  edit "" 44, 65 53 110 10, autohs autovs passwd
  text "* Alleen voor geregistreerde nicknames" 100, 48 70 130 10,disable
  box "Nick instellingen" 5, 15 20 170 62
  box "Geslacht" 6, 15 85 170 40
  radio "Man" 60, 55 95 30 10
  radio "Vrouw" 61, 105 95 30 10
  icon 62, 30 93 20 15, male.png , 0 
  icon 63, 85 93 20 15, female.png , 0 
  text "Geslacht veranderd de status van uw popups :)" 101, 20 110 110 10,disable 
  box "Algemeen" 102, 15 128 170 50
  button "Clear" 103, 30 142 35 10,flat
  button "Annuleren" 104, 70 142 35 10,cancel
  button "Opslaan" 1, 110 142 35 10,flat oke
  check "Open dit scherm bij elke Opstart" 105, 30 157 100 10,flat
  box "Aanmelden IRC" 106, 5 5 190 210
}

on *:dialog:onstart:init:*: {
  did -a $dname 22 %nick
  did -a $dname 33 %awayn
  did -a $dname 44 %cpnnpasswd
  if (%ojstdlg == On) { did -c $dname 105 }
  if (%ojstdlg == Off) { did -u $dname 105 }
  if (%gender == male) { did -c $dname 60 }
  if (%gender == female) { did -c $dname 61 }
}

on *:dialog:onstart:sclick:1: {
  if ($did($dname,22) == $null) { echo -a 6Geen Nickname ingevuld ! }
  else {
    set %nick $did($dname,22)
    did -ra $dname 22 %nick
  }
  if ($did($dname,33) == $null) { echo -a 6Geen Away Nick ingevuld ! }
  else {
    set %awayn $did($dname,33)
    did -ra $dname 33 %awayn
  }
  if ($did($dname,44) == $null) { echo -a 6Je kunt je nickname registreren met:  /msg nickserv register eenwwdiejewilt aapje@aapje.nl }
  else {
    set %cpnnpasswd $did($dname,44)
    did -ra $dname 44 %cpnnpasswd
  }
  if ($did(105).state == 1) { set %ojstdlg On }
  if ($did(105).state == 0) { set %ojstdlg Off }

  if ($did(60).state) { set %gender male | .unload -rs PFCP.mrc | .load -rs PMCP.mrc }
  if ($did(61).state) { set %gender female | .unload -rs PMCP.mrc | .load -rs PFCP.mrc }
}

On *:start: {
  if (%ojstdlg == On ) { dialog -m onstart onstart }
  else { halt }
}

on *:connect: {
  if (%cpnnpasswd != $null) { /gotost }
  if (%cpnnpasswd == $null) { halt }
}
alias gotost {
  nick %cpnn
  .msg nickserv identify %cpnnpasswd
}

alias ab { dialog -m ab ab }
dialog ab {
  title " Over A_C-script {Voor IRC} "
  size -1 -1 162 159
  option dbu
  icon $icodir(1.ico), 0
  icon 2, 8 8 16 16, $icodir(1.ico), 0, noborder
  box "Autor", 3, 28 5 126 45
  icon 4, 40 20 100 37, $icodir(banner.png), 0, noborder 
  text "Real Name", 5, 31 13 28 8
  text "Nick Name", 6, 31 22 28 8
  text "postje", 9, 59 13 50 8, center
  text "postje", 10, 59 22 50 8, center
  box "Hartelijk welkom", 13, 9 51 145 57
  text "                                Welkom Gebruiker                                        Bedankt dat u dit  A_C-Script Gebruikt                         Het Chatscriptje voor op uw site                                             Ik hoop dat Uw er veel Plezier aan beleeft !                                                                                                                                                                                                         Shagoth", 14, 12 59 139 38, center
  text "A_C-script is een script voor", 15, 26 117 77 8
  box "mIRC", 16, 9 109 145 34
  link "http://www.mIRC.com", 18, 52 133 57 8
  text "m", 19, 100 117 5 8
  text "I", 20, 104 117 5 8
  text "R", 21, 106 117 5 8
  text "C", 22, 110 117 5 8
  text "® v6.21", 23, 115 117 22 8
  text "Written by ", 24, 42 125 27 8
  text "Khaled Mardan_Bey", 26, 69 125 50 8
  icon 27, 8 32 16 16, $icodir(rinus.jpg), 0, noborder
  link "http://www.clotje.be", 28, 50 97 74 8
}

on *:dialog:ab:sclick:*:{
  if ($did == 18) { run http://www.mirc.com }
  if ($did == 28) { run http://www.clotje.be }
}

on *:dialog:ab:init:*:{
  mdxinit
  mdx SetFont $dname 17 -12 400 arial
  mdx SetFont $dname 9,10,11,12,25,26 -11 400 arial
  mdx SetColor 9,10,11,12,20,21,25,26 text $rgb(255,0,0)
  mdx SetColor 19 text $rgb(0,0,102)
  mdx SetColor 22 text $rgb(255,255,0)
}
