alias _bot return Eglence
alias _pass return 123321
alias _oper return Eggdrop 1243434
alias _sunucu return irc.Hobichat.net
alias _port return 6667
alias _opers return #Opers
alias _kanal return #Yarisma,#Kelime,#Oyun,#Radyo,#Sohbet
;--------------------------------------------------------

alias bagla sockopen bot $_sunucu $_port
alias _nick return $remove($gettok($1,1,33),:)
alias swbot $iif($sock(bot).status == active,sockwrite -nt bot $1-)
on *:sockclose:bot:sockclose bot | sockopen bot $_sunucu $_port
on *:sockopen:bot:{
  if ($sockerr) { sockclose bot | sockopen bot $_sunucu $_port | returnex }
  swbot NICK $+($_bot,$r(10,99999)) 
  swbot USER Paradox "" " $+ $iif($host,$host,$ip) 4Coder By Toprak
  sockmark $sockname $_bot
}
on *:sockread:bot:{
  if ($sockerr) { sockclose bot | sockopen bot $_sunucu $_port | returnex }
  var %;bot | sockread %;bot | tokenize 32 %;bot
  if ($1 = ping) swbot pong $remove($2,:) 
  elseif $regex($2,/(001|433)/) { swbot oper $_oper | swbot ns ghost $_bot $_pass | swbot ns release $_bot $_pass | swbot join #0,0 | $+(.timer,botnck) 1 3 swbot nick $_bot }
  elseif $1 == error && $2 == :closing { sockclose bot | sockopen bot $_sunucu $_port }   
  elseif $regex($2,/(473|475|471|474)/) { swbot sajoin $_bot $4 }
  elseif $regex($2,/(481|411)/) { swbot oper $_oper | swbot nick $_bot | swbot nickserv identify $_pass }
  elseif ($2 == NICK) { 
    if ($_nick($1) == $_bot) { swbot ns ghost $_bot $_pass | swbot ns release $_bot $_pass | $+(.timer,botnck) 1 3 swbot nick $_bot }
    elseif ($right($3,-1) == $_bot) {
      swbot nickserv identify $_pass      
      swbot oper $_oper
      swbot join 0,0
      swbot mode $right($3,-1) +qHp-h
      swbot sajoin $_bot $+($_kanal,$chr(44),$_opers)
    }
  }
  elseif $regex($2,/366/) && !$istok($+($_kanal,$chr(44),$_opers),$4,44) { swbot part $4 }  
  elseif $regex($2,/^PART$/i) {
    if $regex($_nick($1),/ $+ $+(^,$_bot,$) $+ /Si) && $istok($+($_kanal,$chr(44),$_opers),$3,44) { swbot sajoin $_nick($1) $3 }
  }
  elseif $regex($2,/^KICK$/i) {
    if $regex($4,/ $+ $+(^,$_bot,$) $+ /Si) && $istok($+($_kanal,$chr(44),$_opers),$3,44) { swbot sajoin $4 $3 }
  }
  elseif $regex($2,/^JOIN$/i) {
    if $regex($_nick($1),/ $+ $+(^,$_bot,$) $+ /Si) {
      if $istok($+($_kanal,$chr(44),$_opers),$right($3,-1),44) {
        swbot mode $right($3,-1) -qao+h $str($+($_nick($1),$chr(32)),5)
        swbot mode $_nick($1) +qHp-h
      }
    }
    if $istok($_kanal,$right($3,-1),44) && !$hget(Bldr,$_nick($1)) {
      swbot notice $_nick($1) Eglence Kanal genelinde 6!akıltesti yazmanız yeterlidir..
      .hinc -msu10 Bldr $_nick($1)
    }
  }
  if $regex($1,/^[!.]ak[ıi]lte[sş]t[ıi]/i) {
    if !$hget(akıltesti,$_nick($1) {
      .hinc -msu120 akıltesti $_nick($1) $ctime
      swbot privmsg $3 14[4AKIL TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),%nick,$chr(2) ) 2Nick'inin 4AKIL TESTİ 2Sonuçları Gösteriliyor.. 4Bekleyiniz.
      var %çarp $r(85,100), %akıllı $calc(%çarp - $r(1,79)), %akılsız $calc(%çarp - $r(1,78)), %salak $calc(%çarp - $r(1,77)), %grzekalı $calc(%çarp - $r(1,76))
      var %akltop $sorttok(%akıllı %akılsız %salak %grzekalı,32,nr)
      var %aklsnç $gettok($sorttok(%akltop,32,nr),1,32)
      set %akılno $r(1,9)
      var %komuts $replace(%aklsnç, %akıllı,/akilli, %akılsız,/aklsız, %salak,/slks, %grzekalı,/grzklı)
      %komuts %akılno
      swbot privmsg $3 14[4AKIL TESTİ414] 4 $chr(42)
      swbot privmsg $3 14[4AKIL TESTİ414] $chr(32) 3,3 $str($chr(42),6) 0 % $+ %akıllı 1AKILLI4! $+(8,$chr(42)) 
      swbot privmsg $3 14[4AKIL TESTİ414] $chr(32) 7,7 $str($chr(42),9) 0 % $+ %akılsız 4AKILSIZ1! $+(12,$chr(42))
      swbot privmsg $3 14[4AKIL TESTİ414] $chr(32) 2,2 $str($chr(42),12) 0 % $+ %salak 13SALAK1! $+(0,$chr(42)) 
      swbot privmsg $3 14[4AKIL TESTİ414] $chr(32) 14,14 $str($chr(42),15) 0 % $+ %grzekalı 8GERİ ZEKALI1! $+(4,$chr(42)) 
      swbot privmsg $3 14[4AKIL TESTİ414] 4 $chr(42)
      swbot privmsg $3 14[4AKIL TESTİ414] 10 %nick 4Sonuçlarınız: %akılcvp
      unset %akılcvp %akılno
    }
    else {
      var %testsay $calc(120 - $calc($ctime - $hget(akıltesti,%nick)))
      eglencekomut notice %nick 14[4AKIL TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),%nick,$chr(2) ) 2Akıl Testini4 2 2Dakikada Bir Kez Kullanabilirsiniz4..
      eglencekomut notice %nick 14[4AKIL TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),%nick,$chr(2) ) 4(1 %testsay 4) 7Saniye 2Sonra Tekrardan 4!akıltesti 2Komutunu Yazarak Akıl Testinizi Yapabilirsiniz4..
    }
  }
}
alias akilli {
  if 1 == %akılno { set %akılcvp 2Tebrikler. Çok 3AKILLISINIZ }
  if 2 == %akılno { set %akılcvp 2Akıllı adam aklını kullanır. Daha akıllı adam başkalarının da aklını kullanır. }
  if 3 == %akılno { set %akılcvp 2Akıllı olmak da bir şey değil, mühim olan o aklı yerinde kullanmaktır. }
  if 4 == %akılno { set %akılcvp 2Akıllı kişilerin en büyük talihsizliği, salakların abuk subukluklarıyla başa çıkmak zorunda olmalarıdır. }
  if 5 == %akılno { set %akılcvp 2Sunucudaki En 3AKILLI 2Kişisiniz. }
  if 6 == %akılno { set %akılcvp 2Maşallah 3AKIL 2Küpü 3AKIL! }
  if 7 == %akılno { set %akılcvp 2Yeteneğinizden Belli 3AKILLI 2Olduğunuz. }
  if 8 == %akılno { set %akılcvp 2Tebrikler 10Üstün 3AKILLI 2Çıktınız. }
  if 9 == %akılno { set %akılcvp 2Akıllığınız 3AKILLI 2Olmanızdandır. 4AKİL İNSAN 2Seçildiniz. }
}
alias aklsız {
  if 1 == %akılno { set %akılcvp 2Akıllı insanın ağzı kalbinde, 4AKILSIZ 2insanın kalbi ağzındadır. }
  if 2 == %akılno { set %akılcvp 2Zaten Belliydi 4AKILSIZ 2Olduğun }
  if 3 == %akılno { set %akılcvp 2Gurur Duymalısınız 4AKILSIZ 2Çıktınız. }
  if 4 == %akılno { set %akılcvp 2Kafanızın Boş Olmasından Belliydi 4AKILSIZ 2Olmanız }
  if 5 == %akılno { set %akılcvp 2Akıl noksanlığı iki türlü olur; biri delilikten, öbürü cahillikten. }
  if 6 == %akılno { set %akılcvp 2Her 4akılsıza 2hayran olacak, başka bir 4akılsız 2bulunur. }
  if 7 == %akılno { set %akılcvp 4Akılsız 2başın cezasını halklar çeker. }
  if 8 == %akılno { set %akılcvp 4Akılsız, 2aklı içinde kalandır. }
  if 9 == %akılno { set %akılcvp 4Akılsızlar 2ev yapar, 3akıllılar 2satın alır. }
}
alias slks {
  if 1 == %akılno { set %akılcvp 2Zaten AKILLI Çıksaydın Şaşırırdım 14SALAK }
  if 2 == %akılno { set %akılcvp 2Zaten 14SALAK 2Olmana Biz Alıştık Sende Alış. }
  if 3 == %akılno { set %akılcvp 14SALAK 2Olabilirsin Üzülme Oda Bir Başarı. }
  if 4 == %akılno { set %akılcvp 2Herkez 14SALAK 2Olamaz Sen Hariç. 14SALAK }
  if 5 == %akılno { set %akılcvp 2Kanaldakiler Bune 14SALAK 2Haberiniz Olsun }
  if 6 == %akılno { set %akılcvp 2ikinci seferde kazamazsan hile yap, üçüncü seferde kazanamazsan vazgeç, 14Salakligin 2alemi yok. }
  if 7 == %akılno { set %akılcvp 2Dokuz parmaginda dokuz marifet var.Bir parmagiyla hep burnunu karistiriyor 14SALAK }
  if 8 == %akılno { set %akılcvp 2Ey yükselen yeni nesil... in ulan asagi 14SALAK }
  if 9 == %akılno { set %akılcvp 2Son gülen hep sen olacaksın. Çünkü herşeyi geç anlıyorsun. 14SALAK }
}
alias grzklı {
  if 1 == %akılno { set %akılcvp 2Muhteşem 7GERİ ZEKALI 2Çıktınız. }
  if 2 == %akılno { set %akılcvp 7GERİ ZEKALI 2Olsanda Süper 7GERİ ZEKALI 2Ünvanı Senindir. }
  if 3 == %akılno { set %akılcvp 7GERİ ZEKALI 2Çıktınız. Ne Düşünüyorsunuz Acaba Bu Konuda. }
  if 4 == %akılno { set %akılcvp 2Üzülme 7GERİ ZEKALI 2Olmak Herkese Nasip Olmaz. }
  if 5 == %akılno { set %akılcvp 2Küçük hesaplarla rezil olursun, zengin değil. 7GERİ ZEKALI }
  if 6 == %akılno { set %akılcvp 2Aşırı 7GERİ ZEKALI 2Çıktınız. }
  if 7 == %akılno { set %akılcvp 2Sorunlu 7GERİ ZEKALI 2Çıktınız. }
  if 8 == %akılno { set %akılcvp 2Yufka Yürekli Ama 7GERİ ZEKALI 2Çıktınız. }
  if 9 == %akılno { set %akılcvp 2Olmayan Beyinde Akıl Yoksa 7GERİ ZEKALI 2Derler. }
}