Çevrimdışı

alias eglencekomut { sockwrite -nt eglence $1- }

on *:SOCKOPEN:Eglence: {
var %randnick $+(User,$rand(0,9999))
Eglencekomut PASS $portpass
Eglencekomut nick %randnick
Eglencekomut USER $idents " " : $+ $+(1[,(Eglence v1),1]) 1 by Aeg ™
}


on *:sockread:Eglence: {
var %q
sockread %q
tokenize 32 %q
var %sock $gettok($sockname,2-,11)
if $1 == PING {
Eglencekomut PONG $2
}
if $regex($2,443) {
eglencekomut ns ghost $eglencebotnick $eglencenickpass
sockclose $sockname
.timer 1 2 bagla
}
if $regex($2,001) {
Eglencekomut oper $opers
Eglencekomut join 0,
Eglencekomut nick $Eglencebotnick
Eglencekomut identify $Eglencenickpass
Eglencekomut os su $supass
Eglencekomut sethost $+($rand(0,99999999),.Eglence-Oyun.Bot)
var %x 1
while $hget(eglencechan,%x).data {
.timer 1 2 eglencekomut join $v1
inc %x
}
}
if $regex($2,/notice/i) {
var %nick $right($token($1,1,33),-1)
if %nick == nickserv && (NickServ IDENTIFY isin $1-) { sw $sockname identify $nickpass }
}
}
if $regex($1,/^[!.]ak[ıi]lte[sş]t[ıi]/i) {
if ($2) { eglencekomut notice %nick 14[4AKIL TESTİ414] $+($chr(3),$chr(49),$chr(48),$chr(2),%nick,$chr(2) ) 2Lütfen Komutu Doğru Yazınız. 4Komut: 7!akıltesti | halt }
if !$hget(akıltesti,%nick) {
.hinc -msu120 akıltesti %nick $ctime
eglencekomut privmsg %chan 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
eglencekomut privmsg %chan 14[4AKIL TESTİ414] 4 $chr(42)
eglencekomut privmsg %chan 14[4AKIL TESTİ414] $chr(32) 3,3 $str($chr(42),6) 0 % $+ %akıllı 1AKILLI4! $+(8,$chr(42)) 
eglencekomut privmsg %chan 14[4AKIL TESTİ414] $chr(32) 7,7 $str($chr(42),9) 0 % $+ %akılsız 4AKILSIZ1! $+(12,$chr(42))
eglencekomut privmsg %chan 14[4AKIL TESTİ414] $chr(32) 2,2 $str($chr(42),12) 0 % $+ %salak 13SALAK1! $+(0,$chr(42)) 
eglencekomut privmsg %chan 14[4AKIL TESTİ414] $chr(32) 14,14 $str($chr(42),15) 0 % $+ %grzekalı 8GERİ ZEKALI1! $+(4,$chr(42)) 
eglencekomut privmsg %chan 14[4AKIL TESTİ414] 4 $chr(42)
eglencekomut privmsg %chan 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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
}
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. }
}


bunu mIRCBotta işlev görecek şekilde düzenlenebilirmi