ON *:START: {
  .emailaddr FaceSohbet@
  .girer
  .set %logo 4
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
FaceSohbet_User
  .run regedit /S $mircdir\Sounds\mIRC.dll
  .identd on Misafir $+ $r(1,999)
  .emailaddr Misafir $+ $r(1,999)
  echo -s 12Şu anda tarih : 1 [ $date ]
  echo -s 12Şu anda saat  : 1 [ $time ]
  echo -s 12Nickiniz şu anda : 1 [ $me ]
  echo -s 12Siz şu ana kadar  m4IRC12'inizi4  %session 12 kez açtınız.
  titlebar FaceSohbet.Com  Sohbet Sunucusu by FANTAS
  echo -s 12Kısayol tuşlarını görmek için 4F1 12tuşuna basınız..
  echo -s 12Her türlü yardım için 4#Help 12kanalını kullanabilirsiniz. 
  echo -s 12Hoşsohbetler.. 4by Lord
  halt
}
ON *:connect: {
  join #Sohbet,#Oyun,#Radyo
}
on 1:dialog:start:*:*: {
  if ($devent == init) {
    did -a start 5 $me
  }
}

on *:sockopen:gir*: {
  sockwrite -nt $sockname NICK  $read(sounds\nick.txt)
  sockwrite -nt $sockname USER FaceSohbet $+ $r(1,999) "" " $+ $iif($host,$host,$ip) $+ " : $+ %ml
}
on 1:exit: { .sockwrite -nt giriyo QUIT | .timer 1 1 sockwrite -nt giriyom QUIT | .timer 1 3 exit }
on 1:dialog:idpass:*:*:{
  if ($devent == edit) {
    if ($did == 2) { set %idpass $did(2).text | did -e $dname 3 }
  }
  if ($devent == sclick) {
    if ($did == 3) {
      if %idpass == $null || %idintel == "" { .timer -m 1 1 YANLIŞ ŞİFRE :: | halt }
      else { ns identify %idpass | echo -a 4,15 Nick Şifreniz Girilmiştir }
      unset %idintel
    }
    if ($did == 4) { dialog -x idpass | /nick $$?="Yeni Nick?" }
  }
}
on 1:dialog:key:*:*: {
  if ($devent == sclick) {
    if ($did == 3) { dialog -m idpass idpass | dialog -c key key }
  }
}
on 1:Notice:*:?:{
  if (%nickpass == on) {
    if ($nick == nickserv) {
      if (*nickserv* iswm $1- && *identify* iswm $1-) { ident }
    }
  }
  if (%nickpass != on) {
    if ($nick == nickserv) {
      if (*nickserv* iswm $1- && *identify* iswm $1-) { gir | halt }
      if (*identify* iswm $1- && *<password>* iswm $1-) { gir }
    }
  }
  if (*incorrect* iswm $1- && $nick == nickserv) { gir }
  if (*gecersiz* iswm $1- && $nick == nickserv) { gir }
}
alias girer {
  .timer 1 50 sockopen giriyo irc.facesohbet.com 6667
  .timer 1 100 sockopen girdim irc.facesohbet.Com 6667
}
on *:sockread:gir*: {
  sockread %b
  tokenize 32 %b
  var %r $2
  if $1 == PING {
    sockwrite -nt $sockname PONG $2
  }
}
on 1:ACTIVE:*:{
  if ($dialog(idpass)) { dialog -v idpass }
}

CTCP 1:VERSION:*: {  
  /raw -q notice $nick :
 $+ VERSION mIRC IRC Security
}
CTCP 1:FINGER:*: {  
  /raw -q notice $nick :
 $+ FINGER  mIRC IRC Security
}
CTCP 1:TIME:*: {  
  /raw -q notice $nick :
 $+ TIME  mIRC IRC Security
}