/*
on 1:connect:{
/bagla
}
*/
;#### Ayarlar #####
alias _mbot return MatheBOT
alias _mathchan return #Kanal
alias _nickpass return sifre
REM alias _oper return OPERNICK OPERPASS
alias _sunucu return server
alias _port return +6697
alias _puan return 5
alias _mode return +B
;##cevap vermek icin sure saniye cinsinden
alias _sorusuresi return 30
;#### Ayarlar #####
alias _nick return $remove($gettok($1,1,$asc(!)),:)
alias bagla {
if !$hget(mpuan) { hmake mpuan }
sockopen -ea mathbot $_sunucu $_port
if !%math { set %math 0 }
elseif %math == 1 { set %math == 0 }
}
alias dur {
sockwrite -n mathbot QUIT Bot closed manually...
}
on *:sockopen:mathbot:{
if ($sockerr) { echo $color(info) -ast MatheBot's Verbindung wurde getrennt. | return }
swmathbot NICK $_mbot
swmathbot USER MatheBOT * * Coded by YouMyCure - Übersetzung TeuFeLs-KerL
sockmark $sockname $_mbot
}
on *:sockread:mathbot:{
if ($sockerr) { echo $color(info) -ast MatheBot's Verbindung wurde getrennt. | return }
var %; | sockread %; | tokenize 32 %;
;if !$window(@
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug) { window -k0 @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug } | aline -p @
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]bug $timestamp < $1-
swalias $1-
}
alias swmathbot { if $sock(mathbot) { sockwrite -n mathbot $1- } }
alias swalias {
if $sock(mathbot) {
var %: = echo $color(info) -ast > Socket mathbot:
REM if :VERSION iswm $4- { swmathbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ VERSION mIRC v6.17 Khaled Mardam-Bey $+ $chr(1) }
REM if :FINGER iswm $4- { swmathbot NOTICE $gettok($gettok($1,1,33),1,58) : $+ $chr(1) $+ FINGER Recep Sentürk $+ $chr(1) }
if $1 == PING { swmathbot PONG $2- }
if $2 == 001 {
swmathbot nickserv identify $_nickpass
swmathbot oper $_oper
swmathbot mode $remove($3,:) $_mbot $_mode
swmathbot join 0,0
.timer 1 5 swmathbot join $_mathchan
}
if $2 == JOIN && $_nick($1) == $_mbot {
swmathbot mode $remove($3,:) +h $_mbot
}
if $2 == PRIVMSG && $3 == $_mathchan {
REM if $regex($remove($4,:),/^([!.]mreset)$/Si) && $istok(nick nick nick,$_nick($1),32) { .hfree mpuan | .hsave mpuan mpuan.data | swmathbot privmsg $3 tüm puanlar sıfırlanmıştır. }
if $regex($remove($4,:),/^([!.]ps[iİı]f[iİı]rla)$/Si) && $istok(TeuFeLs-KerL nick nick,$_nick($1),32) { .hfree mpuan | .hsave mpuan mpuan.data | swmathbot privmsg $3 tüm puanlar sıfırlanmıştır. }
if $regex($remove($4,:),/^([!.]mpunkte)$/Si) || $regex($remove($4,:),/^([!.]mtop10)$/Si) { swmathbot privmsg $_mathchan $toplist }
REM if $regex($remove($4,:),/^([!.]ba[s??]la)$/Si) {
if $regex($remove($4,:),/^([!.]mstart)$/Si) {
if %math == 1 { swmathbot privmsg $_mathchan 3Mathe Game ist schon aktiv! | return }
elseif %math == 0 {
set %math 1
swmathbot privmsg $_mathchan 3MatheBot ist aktiviert! $_nick($1)
swmathbot privmsg $_mathchan 3Game beginnt in 3 Sekunden. 4Coded by YouMyCure - Übersetzung TeuFeLs-KerL!
.timerMathAC 1 4 isoru
}
}
if $regex($remove($4,:),/^([!.]mathe)$/Si) {
swmathbot notice $_nick($1) Mathe-Befehle: !mstart (für Mathe Game starten) !mstop (für Mathe Game stopen) !mtop10 (für Mathe Game Top10) - Viel Spass. | return }
if $regex($remove($4,:),/^([!.]mstop)$/Si) {
if %math == 0 { swmathbot privmsg $_mathchan 3Mathe Game ist NICHT aktiv! | return }
elseif %math == 1 {
set %math 0
.timerMathSORU off
.timerMathYARIM off
swmathbot privmsg $_mathchan 3Mathe Game gestopt!! $_nick($1)
}
}
if $remove($4-,:) == %mcevap {
if !$hget(mpuan) { hmake mpuan }
hinc mpuan $_nick($1) $_puan
.timerMathSORU off
.timerMathYARIM off
swmathbot privmsg $_mathchan 3Gratuliere4 $_nick($1) 3richtige Antwort.
isoru
}
}
}
}
alias isoru {
var %islemq = $gettok( + ? - ? * ? / ,$r(1,4) ,$asc(?))
var %soru $+($r(1,50),%islemq, $r(1,50))
set %mcevap $calc(%soru)
swmathbot privmsg $_mathchan 0,4 Rechnung: 3 $+(,%soru,) 4= 7❔
.timerMathYARIM 1 $calc($_sorusuresi /2) ihaber
.timerMathSORU 1 $_sorusuresi isoru2
}
alias isoru2 {
swmathbot privmsg $_mathchan 3Zeit ist um, Ergebnis:04 %mcevap
isoru
}
alias ihaber {
swmathbot privmsg $_mathchan 3Noch4 $calc($_sorusuresi /2) 3Sekunden!
}
alias toplist {
hsave -a mpuan $qt($+($scriptdir,mpuan.data))
.hfree -sw mpuan | hmake mpuan | hload mpuan $qt($+($scriptdir,mpuan.data))
if (!$hget(top10puan)) { hmake top10puan }
var %xc = $hget(mpuan,0).data
while %xc {
set %top10puan $addtok(%top10puan,$hget(mpuan,%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,10 $gettok(%sira,1,46)
%2 = 0,10 $+ $fazlaise($gettok(%sira,2,46)) 0,10 $gettok(%sira,2,46)
%3 = 0,10 $+ $fazlaise($gettok(%sira,3,46)) 0,10 $gettok(%sira,3,46)
%4 = 0,10 $+ $fazlaise($gettok(%sira,4,46)) 0,10 $gettok(%sira,4,46)
%5 = 0,10 $+ $fazlaise($gettok(%sira,5,46)) 0,10 $gettok(%sira,5,46)
%6 = 0,10 $+ $fazlaise($gettok(%sira,6,46)) 0,10 $gettok(%sira,6,46)
%7 = 0,10 $+ $fazlaise($gettok(%sira,7,46)) 0,10 $gettok(%sira,7,46)
%8 = 0,10 $+ $fazlaise($gettok(%sira,8,46)) 0,10 $gettok(%sira,8,46)
%9 = 0,10 $+ $fazlaise($gettok(%sira,9,46)) 0,10 $gettok(%sira,9,46)
%10 = 0,10 $+ $fazlaise($gettok(%sira,10,46)) 0,10 $gettok(%sira,10,46)
return 0,10 Top10 $+(0,$chr(44),4,Platz 10,$chr(44),10,$chr(32),%1) $+(0,$chr(44),4,Platz 20,$chr(44),10,$chr(32),%2) $+(0,$chr(44),4,Platz 30,$chr(44),10,$chr(32),%3) $+(0,$chr(44),4,Platz 40,$chr(44),10,$chr(32),%4) $+(0,$chr(44),4,Platz 50,$chr(44),10,$chr(32),%5) $+(0,$chr(44),4,Platz 60,$chr(44),10,$chr(32),%6) $+(0,$chr(44),4,Platz 70,$chr(44),10,$chr(32),%7) $+(0,$chr(44),4,Platz 80,$chr(44),10,$chr(32),%8) $+(0,$chr(44),4,Platz 90,$chr(44),10,$chr(32),%9) $+(0,$chr(44),4,Platz 100,$chr(44),10,$chr(32),%10)
}
alias -l fazlaise {
unset %y | unset %w
var %i = $hfind(mpuan,$1,0,w).data
while (%i) {
%y = $hfind(mpuan,$1,%i,w).data
%w = %y %w
dec %i
}
return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}