IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
  sohbet

 Kayıt ol  Topluluk
6Beğeni(ler)

Yeni Konu aç Cevapla
 
LinkBack Seçenekler Stil
Alt 07 Eylül 2019, 21:36   #1
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklam ver Benimmekan Mobil Sohbet
Alt 08 Eylül 2019, 21:38   #2
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRCBota uyarlama




mys_35 Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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

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!
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. } }


 
Alıntı ile Cevapla

Alt 09 Eylül 2019, 07:41   #3
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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

 
Alıntı ile Cevapla

Alt 09 Eylül 2019, 18:45   #4
Çevrimiçi
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRCBota uyarlama




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/^[!.]ak[ıi]lte[sş]t[ıi]$/Si:#: { if !$hget(akıltesti,$nick) { .hinc -mu120 akıltesti $nick $ctime msg $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 %akıllı $r(1,100), %akılsız $r(1,$calc(100 - %akıllı)), %salak $r(1,$calc(100 - (%akıllı + %akılsız))), %grzekalı $calc(100 - $calc(%akıllı + %akılsız + %salak)), $& %akltop $sorttok(%akıllı %akılsız %salak %grzekalı,32,nr), %aklsnç $gettok($sorttok(%akltop,32,nr),1,32) $iif(%aklsnç == %akıllı,akilli $r(1,9),$iif(%aklsnç == %akılsız,aklsız $r(1,9)) $iif(%aklsnç == %salak,slks $r(1,9)) $iif(%aklsnç == %grzekalı,grzklı $r(1,9))) msg $chan 14[4AKIL TESTİ414] 4 $chr(42) msg $chan 14[4AKIL TESTİ414] $chr(32) 03,03 00 % $+ %akıllı 03 $str($chr(42),%akıllı) $+(0,$chr(42))  10AKILLI4! msg $chan 14[4AKIL TESTİ414] $chr(32) 07,07 00 % $+ %akılsız 07 $str($chr(42),%akılsız) $+(0,$chr(42))  10AKILSIZ1! msg $chan 14[4AKIL TESTİ414] $chr(32) 02,02 00 % $+ %salak 02 $str($chr(42),%salak) $+(0,$chr(42))  10SALAK1! msg $chan 14[4AKIL TESTİ414] $chr(32) 14,14 00 % $+ %grzekalı 14 $str($chr(42),%grzekalı) $+(0,$chr(42))  10GERİ ZEKALI1! msg $chan 14[4AKIL TESTİ414] 4 $chr(42) msg $chan 14[4AKIL TESTİ414] 10 $nick 4Sonuçlarınız: %akılcvp unset %akılcvp } else { var %testsay $calc(120 - $calc($ctime - $hget(akıltesti,$nick))) 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.. 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 == 1 { set %akılcvp 2Tebrikler. Çok 3AKILLISINIZ } if $1 == 2 { set %akılcvp 2Akıllı adam aklını kullanır. Daha akıllı adam başkalarının da aklını kullanır. } if $1 == 3 { set %akılcvp 2Akıllı olmak da bir şey değil, mühim olan o aklı yerinde kullanmaktır. } if $1 == 4 { 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 $1 == 5 { set %akılcvp 2Sunucudaki En 3AKILLI 2Kişisiniz. } if $1 == 6 { set %akılcvp 2Maşallah 3AKIL 2Küpü 3AKIL! } if $1 == 7 { set %akılcvp 2Yeteneğinizden Belli 3AKILLI 2Olduğunuz. } if $1 == 8 { set %akılcvp 2Tebrikler 10Üstün 3AKILLI 2Çıktınız. } if $1 == 9 { set %akılcvp 2Akıllığınız 3AKILLI 2Olmanızdandır. 4AKİL İNSAN 2Seçildiniz. } } alias aklsız { if $1 == 1 { set %akılcvp 2Akıllı insanın ağzı kalbinde, 4AKILSIZ 2insanın kalbi ağzındadır. } if $1 == 2 { set %akılcvp 2Zaten Belliydi 4AKILSIZ 2Olduğun } if $1 == 3 { set %akılcvp 2Gurur Duymalısınız 4AKILSIZ 2Çıktınız. } if $1 == 4 { set %akılcvp 2Kafanızın Boş Olmasından Belliydi 4AKILSIZ 2Olmanız } if $1 == 5 { set %akılcvp 2Akıl noksanlığı iki türlü olur; biri delilikten, öbürü cahillikten. } if $1 == 6 { set %akılcvp 2Her 4akılsıza 2hayran olacak, başka bir 4akılsız 2bulunur. } if $1 == 7 { set %akılcvp 4Akılsız 2başın cezasını halklar çeker. } if $1 == 8 { set %akılcvp 4Akılsız, 2aklı içinde kalandır. } if $1 == 9 { set %akılcvp 4Akılsızlar 2ev yapar, 3akıllılar 2satın alır. } } alias slks { if $1 == 1 { set %akılcvp 2Zaten AKILLI Çıksaydın Şaşırırdım 14SALAK } if $1 == 2 { set %akılcvp 2Zaten 14SALAK 2Olmana Biz Alıştık Sende Alış. } if $1 == 3 { set %akılcvp 14SALAK 2Olabilirsin Üzülme Oda Bir Başarı. } if $1 == 4 { set %akılcvp 2Herkez 14SALAK 2Olamaz Sen Hariç. 14SALAK } if $1 == 5 { set %akılcvp 2Kanaldakiler Bune 14SALAK 2Haberiniz Olsun } if $1 == 6 { set %akılcvp 2ikinci seferde kazamazsan hile yap, üçüncü seferde kazanamazsan vazgeç, 14Salakligin 2alemi yok. } if $1 == 7 { set %akılcvp 2Dokuz parmaginda dokuz marifet var.Bir parmagiyla hep burnunu karistiriyor 14SALAK } if $1 == 8 { set %akılcvp 2Ey yükselen yeni nesil... in ulan asagi 14SALAK } if $1 == 9 { set %akılcvp 2Son gülen hep sen olacaksın. Çünkü herşeyi geç anlıyorsun. 14SALAK } } alias grzklı { if $1 == 1 { set %akılcvp 2Muhteşem 7GERİ ZEKALI 2Çıktınız. } if $1 == 2 { set %akılcvp 7GERİ ZEKALI 2Olsanda Süper 7GERİ ZEKALI 2Ünvanı Senindir. } if $1 == 3 { set %akılcvp 7GERİ ZEKALI 2Çıktınız. Ne Düşünüyorsunuz Acaba Bu Konuda. } if $1 == 4 { set %akılcvp 2Üzülme 7GERİ ZEKALI 2Olmak Herkese Nasip Olmaz. } if $1 == 5 { set %akılcvp 2Küçük hesaplarla rezil olursun, zengin değil. 7GERİ ZEKALI } if $1 == 6 { set %akılcvp 2Aşırı 7GERİ ZEKALI 2Çıktınız. } if $1 == 7 { set %akılcvp 2Sorunlu 7GERİ ZEKALI 2Çıktınız. } if $1 == 8 { set %akılcvp 2Yufka Yürekli Ama 7GERİ ZEKALI 2Çıktınız. } if $1 == 9 { set %akılcvp 2Olmayan Beyinde Akıl Yoksa 7GERİ ZEKALI 2Derler. } }

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.
 
Alıntı ile Cevapla

Alt 09 Eylül 2019, 21:44   #5
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRCBota uyarlama




Sen Bir Harikasın Adamım Kaç Gündür Uyuyamıyordum Tebrikler Süpersin.

 
Alıntı ile Cevapla

Alt 12 Eylül 2019, 20:52   #6
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRCBota uyarlama




bunun aşk ölceri de olurmu sitelerde görüyorum ama burada baktım bulamadım

 
Alıntı ile Cevapla

Alt 12 Eylül 2019, 22:59   #7
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRCBota uyarlama




Kod:   Kodu kopyalamak için üzerine çift tıklayın!
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 } }

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.
 
Alıntı ile Cevapla

Alt 13 Eylül 2019, 00:39   #8
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
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
 
Alıntı ile Cevapla

Alt 13 Eylül 2019, 01:47   #9
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRCBota uyarlama




@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:   Kodu kopyalamak için üzerine çift tıklayın!
on $*:text:/^[!.]a[sşŞ]ktest[ıiİ]/Si:#: { 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 { msg $chan Lütfen Nick Belirtiniz. | 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 } }


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.
 
Alıntı ile Cevapla

Alt 13 Eylül 2019, 19:20   #10
Çevrimdışı
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: mIRCBota uyarlama




güzel olmuş eline saglık ama oranlar 100 üzerinden bölse olurmu

 
Alıntı ile Cevapla

Cevapla

Etiketler
mırcbota uyrarlama


Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)
 

Yetkileriniz
Konu Acma Yetkiniz Yok
Cevap Yazma Yetkiniz Yok
Eklenti Yükleme Yetkiniz Yok
Mesajınızı Değiştirme Yetkiniz Yok

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodu Kapalı
Trackbacks are Kapalı
Pingbacks are Açık
Refbacks are Açık


Benzer Konular
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