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

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   mIRCBota uyarlama (https://www.ircforumlari.net/mirc-scripting-sorunlari/836252-mircbota-uyarlama.html)

mys_35 07 Eylül 2019 21:36
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 :) }
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

Sadullah 08 Eylül 2019 21:38
Cevap: mIRCBota uyarlama
 
Alıntı:
mys_35 Nickli Üyeden Alıntı (Mesaj 1042151675)
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 :) }
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:
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. }
}

mys_35 09 Eylül 2019 07:41
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

Alper 09 Eylül 2019 18:45
Cevap: mIRCBota uyarlama
 
Kod:
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:


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

mys_35 09 Eylül 2019 21:44
Cevap: mIRCBota uyarlama
 
Sen Bir Harikasın Adamım Kaç Gündür Uyuyamıyordum Tebrikler Süpersin.

Zalimsin 12 Eylül 2019 20:52
Cevap: mIRCBota uyarlama
 
bunun aşk ölceri de olurmu sitelerde görüyorum ama burada baktım bulamadım

Zalimsin 12 Eylül 2019 22:59
Cevap: mIRCBota uyarlama
 
Kod:
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ü

diEfoRyoU 13 Eylül 2019 00:39
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.

Emrehan 13 Eylül 2019 01:47
Cevap: mIRCBota uyarlama
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Kod:
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
  }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Zalimsin 13 Eylül 2019 19:20
Cevap: mIRCBota uyarlama
 
güzel olmuş eline saglık ama oranlar 100 üzerinden bölse olurmu

Emrehan 13 Eylül 2019 20:21
Cevap: mIRCBota uyarlama
 
Alıntı:
off Nickli Üyeden Alıntı (Mesaj 1042154492)
güzel olmuş eline saglık ama oranlar 100 üzerinden bölse olurmu
Kod:
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) {
      var %toplam 100
      var %seviyor $r(0,%toplam)
      var %toplam $calc(%toplam - %seviyor)
      var %sevmiyor $r(0,%toplam)
      var %toplam $calc(%toplam - %sevmiyor)
      var %kararsız $r(0,%toplam)
      var %toplam $calc(%toplam - %kararsız)
      var %umursamıyor %toplam
      msg $chan 12[13AŞK UYUMU12] 4* 4 $nick 2ve 4 $2 2Nick'lerin 4AŞK Uyumu 2Sonuçları Gösteriliyor..
      msg $chan 12[13AŞK UYUMU12] 4**
      msg $chan 12[13AŞK UYUMU12] 12,12******0,12 SEVİYOR % %seviyor 12,12******
      msg $chan 12[13AŞK UYUMU12] 3,3*********0,3 SEVMİYOR % %sevmiyor 3,3****
      msg $chan 12[13AŞK UYUMU12] 13,13***********0,13 KARARSIZ % %kararsız 13,13****
      msg $chan 12[13AŞK UYUMU12] 7,7*************0,7 UMURSAMIYOR % %umursamıyor 7,7*
      msg $chan 12[13AŞK UYUMU12] 4**
      msg $chan 12[13AŞK UYUMU12] 4** 12Sevgili Olma ihtimali  4% 12 $calc(%seviyor - %sevmiyor + %kararsız + %umursamıyor)
    }
    else { msg $chan $2 Nicki Kanalda Bulunmuyor. }
    .hinc -msu10 kmt $nick
  }
}
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Zalimsin 13 Eylül 2019 21:10
Cevap: mIRCBota uyarlama
 
bunu mırc e kurdugumdan calışmadı neden ola bilir

mys_35 16 Eylül 2019 13:15
Cevap: mIRCBota uyarlama
 
Sevgili olma ihtimali yerine Sonuc $nick sizi seviyor sevmiyor gibi en yüksek cıkan rakama göre cevaplasa
SEVİYOR %89 ÇIKMIŞ
bu nick sizi cok seviyor yada sizi sevmiyo
hakkınızda kararsız yada sizi umursamıyor gibi sonuclar


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:05.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk