Kod : Kodu kopyalamak için üzerine çift tıklayın!
;#### Ayarlar #####
alias _ibot return You-Islam
alias _ichan return #islam
alias _oper return OPERNICK OPERPASS
alias _sunucu return irc.chat.tc
alias _port return 6667
alias _puan return 5
;#### Ayarlar #####
alias _nick return $remove($gettok($1,1,$asc(!)),:)
alias bagla {
if !$hget(ipuan) { hmake ipuan }
sockopen ibot $_sunucu $_port
if !%islam { set %islam 0 }
elseif %islam == 1 { set %islam == 0 }
}
on *:sockopen:ibot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
swibot NICK $_ibot
swibot USER YouMyCure * * İslam Soru Botu Coded by YouMyCure -
sockmark $sockname $_ibot
}
on *:sockread:ibot:{
if ($sockerr) { echo $color(info) -st Socket botun bağlantısı kesildi. | return }
var %; | sockread %; | tokenize 32 %;
;if !$window(@sdebug) { window -k0 @sdebug } | aline -p @sdebug $timestamp < $1-
swalias $1-
}
alias swibot { if $sock(ibot) { sockwrite -n ibot $1- } }
alias swalias {
if $sock(ibot) {
var %: = echo $color(info) -st > Socket ibot:
if :VERSION iswm $4- { swibot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }
if :FINGER iswm $4- { swibot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Recep Şentürk $+ $chr(1) }
if $1 == PING { swibot PONG $2- }
if $2 == 001 {
swibot oper $_oper
swibot join 0,0
swibot join $_ichan
}
if $2 == JOIN && $_nick($1) == $_ibot {
swibot mode $remove($3,:) +h $_ibot
}
if $2 == PRIVMSG && $3 == $_ichan {
if $regex($remove($4,:),/^([!.]puanlar)$/Si) || $regex($remove($4,:),/^([!.]top10)$/Si) { swibot privmsg $_ichan $toplist }
if $regex($remove($4,:),/^([!.]ba[sŞş]la)$/Si) {
if %islam == 1 { swibot privmsg $_ichan 3İslam Soru-Cevap Oyunu Zaten Aktif!!! | return }
elseif %islam == 0 {
set %islam 1
swibot privmsg $_ichan 3İslam Soru-Cevap Oyunu Aktif Duruma Getirilmiştir $_nick($1) $+ !!!
swibot privmsg $_ichan 6Oyun 3 Saniye İçinde Başlayacaktır. 5Socket Coded by YouMyCure !!!
.timerISLAMAC 1 4 isoru
}
}
if $regex($remove($4,:),/^([!.]dur)$/Si) {
if %islam == 0 { swibot privmsg $_ichan 3İslam Soru-Cevap Oyunu Zaten DeAktif!!! | return }
elseif %islam == 1 {
set %islam 0
.timerISLAMSORU off
.timerISLAMYARIM off
swibot privmsg $_ichan 3İslam Soru-Cevap Oyunu DeAktif Duruma Getirilmiştir $_nick($1) $+ !!!
}
}
if $remove($4-,:) == %icevap {
if !$hget(ipuan) { hmake ipuan }
hinc ipuan $_nick($1) $_puan
.timerISLAMSORU off
.timerISLAMYARIM off
swibot privmsg $_ichan 2Tebrikler4 $_nick($1) 2Cevabı Doğru Bildiniz.
isoru
}
}
}
}
alias isoru {
var %soruno $r(1,$lines(islam.txt))
var %soru $gettok($read(islam.txt,%soruno),1,$asc(*))
set %icevap $gettok($read(islam.txt,%soruno),2,$asc(*))
swibot privmsg $_ichan 0,4 Soru %soruno :9,1 %soru ?
.timerISLAMYARIM 1 15 ihaber
.timerISLAMSORU 1 30 isoru2
}
alias isoru2 {
swibot privmsg $_ichan 10Süre Doldu, Cevap04 %icevap 10. Bir sonraki icin hazirlanin...
isoru
}
alias ihaber {
swibot privmsg $_ichan 14Kalan Süre5 15 14Saniye!!!
swibot privmsg $_ichan 8,1 Ipucu: $replace(%icevap,$chr(160),$chr(32),b,*,c,*,d,*,f,*,g,*,h,*,j,*,k,*,l,*,m,*,n,*,p,*,q,*,r,*,s,*,t,*,v,*,w,*,x,*,y,*,z,*,1,*,2,*,3,*,4,*,5,*,6,*,7,*,8,*,9,*,0,*)
}
alias toplist {
hsave -a ipuan $qt($+($mdir,ipuan.data))
.hfree -sw ipuan | hmake ipuan | hload ipuan $qt($+($mdir,ipuan.data))
if (!$hget(top10puan)) { hmake top10puan }
var %xc = $hget(ipuan,0).data
while %xc {
set %top10puan $addtok(%top10puan,$hget(ipuan,%xc).data,46)
dec %xc
}
var %sira = $sorttok(%top10puan,46,nr)
var %1 = 1,%2 = 1,%3 = 1,%4 = 1,%5 = 1,%6 = 1,%7 = 1,%8 = 1,%9 = 1,%10 = 1
%1 = 0,10 $+ $fazlaise($gettok(%sira,1,46)) 0,6 $gettok(%sira,1,46)
%2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,6 $gettok(%sira,2,46)
%3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,6 $gettok(%sira,3,46)
%4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,6 $gettok(%sira,4,46)
%5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,6 $gettok(%sira,5,46)
%6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,6 $gettok(%sira,6,46)
%7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,6 $gettok(%sira,7,46)
%8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,6 $gettok(%sira,8,46)
%9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,6 $gettok(%sira,9,46)
%10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,6 $gettok(%sira,10,46)
return 0,10Top10 Puan $+(0,$chr(44),4,#10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,#20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,#30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,#40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,#50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,#60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,#70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,#80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,#90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,#100,$chr(44),10,$chr(32),%10)
}
alias -l fazlaise {
unset %y | unset %w
var %i = $hfind(ipuan,$1,0,w).data
while (%i) {
%y = $hfind(ipuan,$1,%i,w).data
%w = %y %w
dec %i
}
return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}