ON 1:load {
  set %Scriptname Kirazimm v1
  set %version Version 1.01
  echo $color(info text) -se  * Auto Nick Identifier successfully loaded - %Scriptname %version
}

ON 1:unload {
  unset %auto.nickident.on %auto.nickident.nicks %auto.nickident.pws
  echo $color(info text) -se  * Auto Nick Identifier successfully Unloaded - %Scriptname %version
}

ON 1:start {
  set %Scriptname Kirazimm v1
  set %version Kirazimm v1
}


alias -l localhelp {
  if ($isfile($scriptdirautoident.help.txt)) { .run $scriptdirautoident.help.txt }
  else { echo $color(info text) * Help file not found - %Scriptname %version }
}


menu status,channel,query {
}

on 1:connect: {
  auto.nick.variable.error
  if (* $me * iswm %auto.nickident.nicks) && ($mid(%auto.nickident.on,11,1) != 0 ) {
    auto.indentify $me con
  }
}


alias auto.nick.variable.error {
  if ( %auto.nickident.on == $null ) || ($len(%auto.nickident.on) != 12 ) { set %auto.nickident.on 000000000000 }
  if ( %auto.nickident.nicks == $null ) || ($count(%auto.nickident.nicks,~) != 11 ) { set %auto.nickident.nicks ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ }
  if ( %auto.nickident.pws == $null ) || ($count(%auto.nickident.pws,~) != 11 ) { set %auto.nickident.pws ~ ~ ~ ~ ~ ~ ~ ~ ~ ~ }
}


on 1:NICK: {
  if ($nick == $me) && (* $newnick * iswm %auto.nickident.nicks ) {
    auto.indentify $newnick 
  }
}


alias ask.ident {
  if ($mid(%auto.nickident.on,12,1) != 0 ) {  if ( !$?!="Nickiniz İdentify Edilsin Mi?" ) { return $false }  }
  return $true
}


alias auto.indentify {
  if ($mid(%auto.nickident.on,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),1) != 0 ) && ( $remove($gettok(%auto.nickident.pws,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),126),$chr(32)) != $null ) {
    if ($2 == $null) || ($ask.ident == $true) {
      if ($isalias(dontdeletethisalias) == $true) {
        %nickservice IDENTIFY $gettok(%auto.nickident.pws,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),126)
      }
      else {
        nickserv IDENTIFY $gettok(%auto.nickident.pws,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),126)
      }
    }
    else {
      return
    }
    $remove($gettok(%auto.nickident.nicks,$findtok($replace(%auto.nickident.nicks,~,$chr(32)),$1,1,32),126),$chr(32))
  }
}

ON *:dialog:auto.nickident:init:*:{
  dialog  -t auto.nickident Kirazimm v1 .:. AutoIdentify
  auto.nick.variable.error
  if ( $mid(%auto.nickident.on,1,1) != 0 ) { did -c auto.nickident 21 }
  if ( $mid(%auto.nickident.on,2,1) != 0 ) { did -c auto.nickident 22 }
  if ( $mid(%auto.nickident.on,3,1) != 0 ) { did -c auto.nickident 23 }
  if ( $mid(%auto.nickident.on,4,1) != 0 ) { did -c auto.nickident 24 }
  if ( $mid(%auto.nickident.on,5,1) != 0 ) { did -c auto.nickident 25 }
  if ( $mid(%auto.nickident.on,6,1) != 0 ) { did -c auto.nickident 26 }
  if ( $mid(%auto.nickident.on,7,1) != 0 ) { did -c auto.nickident 27 }
  if ( $mid(%auto.nickident.on,8,1) != 0 ) { did -c auto.nickident 28 }
  if ( $mid(%auto.nickident.on,9,1) != 0 ) { did -c auto.nickident 29 }
  if ( $mid(%auto.nickident.on,10,1) != 0 ) { did -c auto.nickident 30 }
  if ( $mid(%auto.nickident.on,11,1) != 0 ) { did -c auto.nickident 13 }
  if ( $mid(%auto.nickident.on,12,1) != 0 ) { did -c auto.nickident 14 }


  did -ra auto.nickident 31 $gettok(%auto.nickident.nicks,1,126)
  did -ra auto.nickident 32 $gettok(%auto.nickident.nicks,2,126)
  did -ra auto.nickident 33 $gettok(%auto.nickident.nicks,3,126)
  did -ra auto.nickident 34 $gettok(%auto.nickident.nicks,4,126)
  did -ra auto.nickident 35 $gettok(%auto.nickident.nicks,5,126)
  did -ra auto.nickident 36 $gettok(%auto.nickident.nicks,6,126)
  did -ra auto.nickident 37 $gettok(%auto.nickident.nicks,7,126)
  did -ra auto.nickident 38 $gettok(%auto.nickident.nicks,8,126)
  did -ra auto.nickident 39 $gettok(%auto.nickident.nicks,9,126)
  did -ra auto.nickident 40 $gettok(%auto.nickident.nicks,10,126)
  did -ra auto.nickident 41 $gettok(%auto.nickident.pws,1,126)
  did -ra auto.nickident 42 $gettok(%auto.nickident.pws,2,126)
  did -ra auto.nickident 43 $gettok(%auto.nickident.pws,3,126)
  did -ra auto.nickident 44 $gettok(%auto.nickident.pws,4,126)
  did -ra auto.nickident 45 $gettok(%auto.nickident.pws,5,126)
  did -ra auto.nickident 46 $gettok(%auto.nickident.pws,6,126)
  did -ra auto.nickident 47 $gettok(%auto.nickident.pws,7,126)
  did -ra auto.nickident 48 $gettok(%auto.nickident.pws,8,126)
  did -ra auto.nickident 49 $gettok(%auto.nickident.pws,9,126)
  did -ra auto.nickident 50 $gettok(%auto.nickident.pws,10,126)
}

ON *:dialog:auto.nickident:sclick:*:{
  if ( $did == 51 ) { did -ru auto.nickident 21,31,41 }
  if ( $did == 52 ) { did -ru auto.nickident 22,32,42 }
  if ( $did == 53 ) { did -ru auto.nickident 23,33,43 }
  if ( $did == 54 ) { did -ru auto.nickident 24,34,44 }
  if ( $did == 55 ) { did -ru auto.nickident 25,35,45 }
  if ( $did == 56 ) { did -ru auto.nickident 26,36,46 }
  if ( $did == 57 ) { did -ru auto.nickident 27,37,47 }
  if ( $did == 58 ) { did -ru auto.nickident 28,38,48 }
  if ( $did == 59 ) { did -ru auto.nickident 29,39,49 }
  if ( $did == 60 ) { did -ru auto.nickident 30,40,50 }
  if ( $did == 99 ) { localhelp }
  if ( $did == 1 ) {
    set %auto.nickident.on $did(auto.nickident,21).state $+ $did(auto.nickident,22).state $+ $did(auto.nickident,23).state $+ $did(auto.nickident,24).state $+ $did(auto.nickident,25).state $+ $did(auto.nickident,26).state $+ $did(auto.nickident,27).state $+ $did(auto.nickident,28).state $+ $did(auto.nickident,29).state $+ $did(auto.nickident,30).state $+ $did(auto.nickident,13).state $+ $did(auto.nickident,14).state 
    set %auto.nickident.nicks ~ $did(auto.nickident,31) ~  $did(auto.nickident,32)  ~  $did(auto.nickident,33)  ~  $did(auto.nickident,34)  ~  $did(auto.nickident,35)  ~  $did(auto.nickident,36)  ~  $did(auto.nickident,37)  ~  $did(auto.nickident,38)  ~  $did(auto.nickident,39)  ~  $did(auto.nickident,40) ~
    set %auto.nickident.pws ~ $did(auto.nickident,41) ~  $did(auto.nickident,42)  ~  $did(auto.nickident,43)  ~  $did(auto.nickident,44)  ~  $did(auto.nickident,45)  ~  $did(auto.nickident,46)  ~  $did(auto.nickident,47)  ~  $did(auto.nickident,48)  ~  $did(auto.nickident,49)  ~  $did(auto.nickident,50) ~
  }
}

dialog auto.nickident {
  title ""
  size -1 -1 168 170
  option dbu
  box " Otomatik Nick Şifresi Ayarları ",11,4 3 160 150
  text "Sec              Nick                     Şifre",12,15 15 200 150
  check "Baglanınca Aktif Ol",13,15 140 66 10
  check "Şifreyi Girmek İçin Sor",14,90 140 66 10
  check "",21,15 25 10 10
  check "",22,15 36 10 10
  check "",23,15 47 10 10
  check "",24,15 58 10 10
  check "",25,15 69 10 10
  check "",26,15 80 10 10
  check "",27,15 91 10 10
  check "",28,15 102 10 10
  check "",29,15 113 10 10
  check "",30,15 124 10 10
  edit "",31,25 25 45 10,autohs
  edit "",32,25 36 45 10,autohs
  edit "",33,25 47 45 10,autohs
  edit "",34,25 58 45 10,autohs
  edit "",35,25 69 45 10,autohs
  edit "",36,25 80 45 10,autohs
  edit "",37,25 91 45 10,autohs
  edit "",38,25 102 45 10,autohs
  edit "",39,25 113 45 10,autohs
  edit "",40,25 124 45 10,autohs
  edit "",41,75 25 50 10,autohs
  edit "",42,75 36 50 10,autohs
  edit "",43,75 47 50 10,autohs
  edit "",44,75 58 50 10,autohs
  edit "",45,75 69 50 10,autohs
  edit "",46,75 80 50 10,autohs
  edit "",47,75 91 50 10,autohs
  edit "",48,75 102 50 10,autohs
  edit "",49,75 113 50 10,autohs
  edit "",50,75 124 50 10,autohs

  button "Reset",51,130 25 25 10
  button "Reset",52,130 36 25 10
  button "Reset",53,130 47 25 10
  button "Reset",54,130 58 25 10
  button "Reset",55,130 69 25 10
  button "Reset",56,130 80 25 10
  button "Reset",57,130 91 25 10
  button "Reset",58,130 102 25 10
  button "Reset",59,130 113 25 10
  button "Reset",60,130 124 25 10
  button İptal,2,107 157 25 10,cancel
  button Tamam,1,135 157 25 10,ok
}