Kod: Kodu kopyalamak için üzerine çift tıklayın!
alias soru {
if $sock(TestBot) {
.timersüremk 1 30 sockwrite -nt testbot privmsg $conf(get,BotKanal) 0,2Süreniz Dolmuştur Bir Sonraki Soru İçin Hazır Olun!
.timersürebitti 1 30 unset %Bonus*
inc %top
if %Top == 10 { sockwrite -nt Testbot privmsg $conf(get,BotKanal) $toplist(Puanx) | sockwrite -nt Testbot privmsg $conf(get,BotKanal) $conf(get,$+($chr(66),$chr(111),$chr(116),$chr(82))) | unset %Top }
.unset %Nick*
.unset %Cvp
.timersüre 1 35 Soru
.timersyasakkaldır 1 30 unset %Nick*
.set %Sıra $rand(1,$lines(Test/Sorular.txt))
.set %Cvp $remove($gettok($read(Test/Sorular.txt,%Sıra),3,$asc(>)),$chr(32))
.set %Soru! $gettok($read(Test/Sorular.txt,%Sıra),1,$asc(>))
.timers1 1 5 sockwrite -nt Testbot privmsg $conf(get,BotKanal) 0,4Soru %Sıra : $gettok($read(Test/Sorular.txt,%Sıra),1,$asc(>)) 0,2 Toplam Süre : 30 Saniye.
.timers2 1 5 sockwrite -nt Testbot privmsg $conf(get,BotKanal) 4,4 $gettok($gettok($read(Test/Sorular.txt,%Sıra),2,$asc(>)),1,$asc(|))
.timers3 1 5 sockwrite -nt Testbot privmsg $conf(get,BotKanal) 4,4 $gettok($gettok($read(Test/Sorular.txt,%Sıra),2,$asc(>)),2,$asc(|))
.timers4 1 5 sockwrite -nt Testbot privmsg $conf(get,BotKanal) 4,4 $gettok($gettok($read(Test/Sorular.txt,%Sıra),2,$asc(>)),3,$asc(|))
.timers5 1 5 sockwrite -nt Testbot privmsg $conf(get,BotKanal) 4,4 $gettok($gettok($read(Test/Sorular.txt,%Sıra),2,$asc(>)),4,$asc(|))
set -u8 %Beklebiraz !
set -u5 %Botiptal X
}
}
Soru alias'ını yukarıda ki alias'la değiştirirseniz sorun yaşamazsanız.