alias _nickm {
  if ($2 == NICK) { if !%degişdi { if !$regex($right($3,-1),/(away|mesgul)/i) && !$regex($remove($gettok($1,1,33),:),/(away|mesgul)/i) { set -u2 %opnickdeg oke! | set -u2 %enickop $remove($gettok($1,1,33),:) | _sw $sockname who +cn #Staff $right($3,-1) } } }
  if $2 == 352 { if (%opnickdeg == oke!) { set -u1 %degişdi oke! | _sw $sockname os raw svsnick $8 %enickop 0:1 |  _sw $sockname privmsg #Staff %enickop $+ : Mesgul-Away-Disarda  gibi takı'larda Operhelp'ten part yapınız.  } }
}

_sw $sockname os raw svsnick $8 %enickop 0:1

set -u2 %enickop $remove($gettok($1,1,33),:)

[22:32:18] Ident Oturumu:  Vagrant ([email protected])
[22:32:18] <Vagrant> GhoSt
[22:32:26] <02GhoSt> efendim
[22:32:28] <Vagrant> üstad musayit misin.
[22:32:33] <02GhoSt> evet
[22:32:33] <Vagrant> yine bi kod isticem senden 
[22:32:45] <Vagrant> Forumdada goruyon kendı capımda bırsey yapmaya calısıyom.
[22:32:57] <Vagrant> 1 kod yapayım dedım beceremedım.
[22:33:00] <Vagrant> Yardımcı olur musun
[22:33:04] <02GhoSt> elbette
[22:33:07] <02GhoSt> elimden gelen birşeyse
[22:33:12] <Vagrant> Baştan analtım ozaman.
[22:33:16] <02GhoSt> tm
[22:33:25] <Vagrant> Opers < Kanal'ı ıcın Misal
[22:33:42] <Vagrant> GhoSt[dısarda]/[gelecem] < gibi takı alıyorlar.
[22:33:53] <02GhoSt> evet
[22:33:59] <Vagrant> Ben istiyorum ki ; GhoSt[Away]/[MesguL] < Gibi alsınlar.
[22:34:24] <02GhoSt> peki sock bot degilmi ?
[22:34:25] <Vagrant> Bu ( away,mesgul ) takısı hariç takı alırlarsa , tekrardan ana nick'lerine cevrilsin istiyorum.
[22:34:42] <Vagrant> 1'i socket. Dierleri mIRC'ten giriş yapıyor.
[22:34:50] <Vagrant> Bu konuda yardımcı olur musun.
[22:35:05] <02GhoSt> olurum'da socket'e yapcan degilmi
[22:35:20] <Vagrant> Evet.
[22:35:35] <Vagrant> Lakin Sıfırdan yazılması lazım. Ben 1-2 deneme yaptım ama.Beceremedim.
[22:35:51] <02GhoSt> nick eventi'^ne
[22:36:12] <02GhoSt> if *[gelecem]* iswm $remove($gettok($1,1,33),:) { 
[22:36:12] <Vagrant> GhoSt ; Hocam istersen team vereyım ?
[22:36:18] <02GhoSt> 1dk :)
[22:36:22] <Vagrant> pardon.
[22:36:24] <02GhoSt> anlatıyım sonra yaparız
[22:36:31] <Vagrant> peki hocam.
[22:36:49] <02GhoSt> mesala; sadece [gelecem] olarak yapalım
[22:37:23] <02GhoSt> if $2 == NICK  { if *[gelecem]* iswm $right($3,-1) {  sw $sockname whois $right($3,-1) } }
[22:37:30] <02GhoSt> ekliycez sonra;
[22:37:36] <02GhoSt> 319'rawda
[22:37:50] <02GhoSt> kanalları saydırcaz eger icinde #Opers' varsa komut uygulatcan bu kadar :)
[22:38:15] <02GhoSt> yardımcı oluyummu yoksa sen yaparmısın 
[22:38:19] <02GhoSt> fikri söyledim ben
[22:38:31] <Vagrant> abim sen yapsan
[22:38:35] <02GhoSt> yada
[22:38:39] <Vagrant> ben beceremicem biliom 
[22:38:41] <02GhoSt> kısaca whois cekmeyek
[22:38:46] <02GhoSt> who +cn #opers nick
[22:38:52] <02GhoSt> 352'de biter
[22:38:53] <02GhoSt> oke
[22:39:03] <02GhoSt> dur hatta' botum acık benım
[22:39:09] <02GhoSt> onun üzerinde yapıyım
[22:40:14] <02GhoSt> away takıları soylermısın
[22:40:59] <Vagrant> Mesgul / Away < bu kadar
[22:41:10] <02GhoSt> yok diger istenilmeyen takılar
[22:41:22] <Vagrant> oo o epey var
[22:41:31] <Vagrant> Mesgul / Away <  farklı alırsa değissin olmaz mı
[22:42:01] <02GhoSt> hım olmaz işte :)
[22:42:11] <02GhoSt> adam /nick ibrahim yaparsa
[22:42:14] <02GhoSt> yine degişir :)
[22:42:17] <Vagrant> Aynen
[22:42:29] <Vagrant> Opers'de hangı nıckıyle operse o nıckte kalsın
[22:42:38] <Vagrant> mıllet cocukca nıckler degısıor.
[22:42:44] <Vagrant> anlasınlar ıstıyorum.
[22:43:06] <02GhoSt> ozaman nick degişdirdimi tekrar eski nickinemi geçsin
[22:43:49] <Vagrant> Aynen. Oper nicki neyse ona gecsın
[22:44:33] <02GhoSt> aslında söyle yapmak daha mantıklı olur
[22:44:36] <02GhoSt> adam oper girdiginde
[22:44:44] <02GhoSt> girdigi oper nick ile nick aynı degilse
[22:44:52] <02GhoSt> kill atsın yada o nick'e gecirsin
[22:45:04] <Vagrant> onu yaptım: Farklı nıckle girip Oper giriyorsa oper nickine cevırıyor.
[22:45:12] <Vagrant> ama : Ornek
[22:45:16] <Vagrant> GhoSt nıckı
[22:45:25] <Vagrant> GhoSt[yemekteyım]
[22:45:29] <Vagrant> gıbı nıckler alan var
[22:45:43] <Vagrant> Away/mesgul takı haric alan oto oper nickine gecsın ıstıorum.
[22:46:02] <02GhoSt> hım söyle yapalım ozaman
[22:46:09] <02GhoSt> nickin icinde [ ] gecerse
[22:46:17] <02GhoSt> eski nickine geri geçsin
[22:46:25] <02GhoSt> yada takıları belirliyelim 
[22:46:29] <Vagrant> GhoSt[away]
[22:46:33] <Vagrant> yaparsa da ıslıcek 
[22:46:36] <Vagrant> ozaman muaf tutmamız lazım.
[22:47:16] <02GhoSt> away ile mesgul'u
[22:47:20] <02GhoSt> muaf tutarız
[22:47:33] <Vagrant> tmm hocam
[22:47:36] <Vagrant> uygundur.
[22:48:45] <02GhoSt> tmm o halde öyle yapalım
[22:49:22] <Vagrant> Tamam bekliyorum.
[22:55:15] <02GhoSt> Vagrant
[22:55:24] <02GhoSt> peki hangi nick'e alcak takıyı sildircekmiyiz ?
[22:56:47] <02GhoSt> buyur
[22:56:48] <02GhoSt> 
[22:56:48] <02GhoSt>       if ($2 == NICK) { if $regex($right($3,-1),/(dısarda|yemekteyım)/i) || !$regex($right($3,-1),/(away|mesgul)/i) { set -u2 %opnickdeg oke! | set -u2 %enickop $botfnick($1) | sw $sockname who +cn #Opers $right($3,-1) } }
[22:56:49] <02GhoSt>   if $2 == 352 { if (%opnickdeg == oke!) { sw $sockname os raw svsnick $8 %enickop } }
[22:56:54] <02GhoSt> denemedim :)
[22:57:05] <Vagrant> başı ne olcak
[22:57:08] <Vagrant> direk bumu hocam
[22:57:12] <02GhoSt> evet
[22:57:26] <02GhoSt> $botfnick($1) yerine $remove($gettok($1,1,33),:) yaz 
[22:58:08] <Vagrant> if ($2 == NICK) { if $regex($right($3,-1),/(dısarda|yemekteyım)/i) || !$regex($right($3,-1),/(away|mesgul)/i) { set -u2 %opnickdeg oke! | set -u2 %enickop $remove($gettok($1,1,33),:) | sw $sockname who +cn #Opers $right($3,-1) } }
[22:58:08] <Vagrant> if $2 == 352 { if (%opnickdeg == oke!) { sw $sockname os raw svsnick $8 %enickop } }
[22:58:14] <Vagrant> bumudur
[22:58:30] <02GhoSt> evet
[22:58:45] <02GhoSt> $botfnick($1) alias kısaltması sende kullan aklında kalır :)
[22:58:51] <02GhoSt> alias botfnick { return $remove($gettok($1,1,33),:) }
[22:59:07] <Vagrant> [22:59:51] *** Vagrant Nick değişerek Deneme-123 Oldu
[22:59:12] <Vagrant> Olmadı sanırsam
[22:59:20] <02GhoSt> $regex($right($3,-1),/(dısarda|yemekteyım)/i)
[22:59:30] <02GhoSt> away takılarını ekledim sadece
[22:59:43] <02GhoSt> hım 1 dk yanlııs anlamısım
[22:59:46] <02GhoSt> hemen ayarlayım
[22:59:50] <Vagrant> Hanı abim. Away/mesgul'den baska takı alırsa. değişcekti :D
[22:59:55] <Vagrant> tmm tmm sorun deıl bekliyorum ustad.
[23:01:33] <02GhoSt> 
[23:01:33] <02GhoSt>   if ($2 == NICK) { if !$regex($right($3,-1),/(away|mesgul)/i) { set -u2 %opnickdeg oke! | set -u2 %enickop $remove($gettok($1,1,33),:) | sw $sockname who +cn #Opers $right($3,-1) } }
[23:01:33] <02GhoSt>   if $2 == 352 { if (%opnickdeg == oke!) { sw $sockname os raw svsnick $8 %enickop } }
[23:01:35] <02GhoSt> buyur
[23:01:38] <02GhoSt> nickin icen'de
[23:01:45] <02GhoSt> away/mesgul geçmiyorsa
[23:01:52] <02GhoSt> eski nick'e geri geçer
[23:02:41] <Vagrant> [23:03:09] *** Vagrant Nick değişerek Vagrant[deneme] Oldu
[23:02:47] <02GhoSt> degişmedimi ?
[23:02:59] <Vagrant> yok hocam
[23:03:32] <Vagrant> Team vereyim mi ? isterseniz.
[23:06:15] <02GhoSt> Vagrant
[23:06:19] <02GhoSt> hata yok ama esik var 
[23:06:21] <Vagrant> buyur abim.
[23:06:22] <02GhoSt> nerde biliyonmu :)
[23:06:27] <Vagrant> :D nirde.
[23:06:48] <02GhoSt> 0:1 esik
[23:06:48] <02GhoSt> :)
[23:07:35] <02GhoSt> ufak birşey daha esik bot nick degişdirdigi için onuda algılıyor ufak bi if ekleyelim 1 dk
[23:08:44] <Vagrant> tmm hocam.
[23:09:45] <02GhoSt> «23:09:39» Nickiniz suan deneme olarak değiştirildi.
[23:09:45] <02GhoSt> «23:09:39» Nickiniz suan GhoSt olarak değiştirildi.
[23:09:46] <02GhoSt> :)
[23:09:58] <Vagrant> tmm'dır :D
[23:10:01] <Vagrant> Alayım üstad :D
[23:10:16] <02GhoSt> 
[23:10:16] <02GhoSt>       if ($2 == NICK) { if !%degişdi { if !$regex($right($3,-1),/(away|mesgul)/i) { set -u2 %opnickdeg oke! | set -u2 %enickop $remove($gettok($1,1,33),:) | swbot who +cn #Yönetim $right($3,-1) } } }
[23:10:16] <02GhoSt>   if $2 == 352 { if (%opnickdeg == oke!) { set -u1 %degişdi oke! | swbot os raw svsnick $8 %enickop 0:1 } }
[23:11:14] <Vagrant> #yönetimi < #Opers
[23:11:16] <Vagrant> yapıyorum
[23:11:18] <02GhoSt> evet
[23:11:24] <02GhoSt> bizim orda #yönetim'de
[23:11:27] <02GhoSt> unutmusum

[22:56:48] <02GhoSt>       if ($2 == NICK) { if $regex($right($3,-1),/(dısarda|yemekteyım)/i) || !$regex($right($3,-1),/(away|mesgul)/i) { set -u2 %opnickdeg oke! | set -u2 %enickop $botfnick($1) | sw $sockname who +cn #Opers $right($3,-1) } }
[22:56:49] <02GhoSt>   if $2 == 352 { if (%opnickdeg == oke!) { sw $sockname os raw svsnick $8 %enickop } }
[22:56:54] <02GhoSt> denemedim :)