![]() |
![]() |
|
![]() | #1 | |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | mIRCBota uyarlama 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 | |
| ![]() |
![]() | #2 | ||||
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: mIRCBota uyarlama
yapılabilir hemen yapabilirim istersen --IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 21:38 -->-> Daha önceki mesaj 21:23 -- @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] buyrun Kod: Kodu kopyalamak için üzerine çift tıklayın!
| ||||
| ![]() |
![]() | #3 |
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0) | Cevap: mIRCBota uyarlama mircbota dedim ama botun oper yetkisi yok ben normal aop bot özel kanal için kullanılacak oper girisi olmayan normal mirc on $*:text:/[!.]a(ş|s)kte(s|ş)t(i|ı)\s+\S+$/SAi:#: { if !$istok(Geveze-ANALIZ NoMercy $Nick, $2 ,32) { if $hget(kmt,$nick) { notice $nick Bu Komutu (10) saniye icerisinde, sadece 1 Kez Kullanabilirsiniz.. | return } if ($2 ison $chan) { msg $chan 12[13AŞK UYUMU12] 4* 4 $nick 2ve 4 $2 2Nick'lerin 4AŞK Uyumu 2Sonuçları Gösteriliyor.. | %karakter = $rand(10,100) | %dostluk = $rand(10,100) | %dusman = $rand(10,100) | %sev = $rand(10,100) } if ($2 ison $chan) { msg $chan 12[13AŞK UYUMU12] 4** } if ($2 ison $chan) { msg $chan 12[13AŞK UYUMU12] 12,12******0,12 SEVİYOR % %sev 12,12****** } if ($2 ison $chan) { msg $chan 12[13AŞK UYUMU12] 3,3*********0,3 SEVMİYOR % $calc(100-%sev)) 3,3**** } if ($2 ison $chan) { msg $chan 12[13AŞK UYUMU12] 13,13***********0,13 KARARSIZ % %dostluk 13,13**** } if ($2 ison $chan) { msg $chan 12[13AŞK UYUMU12] 7,7*************0,7 UMURSAMIYOR % $calc(100-%dostluk)) 7,7* } if ($2 ison $chan) { msg $chan 12[13AŞK UYUMU12] 4** } if ($2 ison $chan) { msg $chan 12[13AŞK UYUMU12] 4** 12Sevgili Olma ihtimali 4% 12 %karakter } else { msg $chan $2 Nicki Kanalda Bulunmuyor. } .hinc -msu10 kmt $nick } } buna benzer bişey |
| ![]() |
![]() | #4 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: mIRCBota uyarlama Kod: Kodu kopyalamak için üzerine çift tıklayın!
Az biraz ayarlama yaptım. Biraz daha ayarlama gerekiyor sebebi ise aynı oran gelme ihtimali var. Toplam da %100 üzerinden işlem yapması için ayarladım. Not: 6.35 versionunda denenmiştir. Örnek: Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Konu Alper tarafından (09 Eylül 2019 Saat 18:48 ) değiştirilmiştir. |
| ![]() |
![]() | #7 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: mIRCBota uyarlama Kod: Kodu kopyalamak için üzerine çift tıklayın!
Bu kod calışmıyor neden ola bilir birde yanlış kullanımda uyarı vermesi mümkün mü Konu Zalimsin tarafından (12 Eylül 2019 Saat 23:04 ) değiştirilmiştir. |
| ![]() |
![]() | #8 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: mIRCBota uyarlama Neden çalışmadığı ile ilgili her hangi bir uyarı alıyor musun? şu ihtimalde olabilir; mIRC versionun text eventı içinde $regex() kabul etmiyordur.
__________________ TurkSohbet.NET | #XPass |
| ![]() |
![]() | #9 |
Çevrimdışı ![]() IF Ticaret Sayısı: (0) | Cevap: mIRCBota uyarlama @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Kod: Kodu kopyalamak için üzerine çift tıklayın!
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir. Konu Emrehan tarafından (13 Eylül 2019 Saat 01:50 ) değiştirilmiştir. |
| ![]() |
![]() |
Etiketler |
mırcbota uyrarlama |
Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir) | |
| |
![]() | ||||
Konu | Konuyu Başlatan | Forum | Cevaplar | Son Mesaj |
Elimdeki komutu İstedigim nike uyarlama | Dahaka | mIRC Scripting Sorunları | 4 | 25 Kasım 2015 19:41 |
Parapsikoloji (Derleme ve Uyarlama) | Sevda | Felsefe | 0 | 25 Ocak 2012 04:33 |
kanal takip bot'a uyarlama | QkLa | mIRC Scripting Sorunları | 6 | 04 Mart 2009 15:47 |