Tekil Mesaj gösterimi
Alt 27 Ocak 2010, 15:08   #6
Çevrimdışı
Azad
Kullanıcıların profil bilgileri misafirlere kapatılmıştır.
IF Ticaret Sayısı: (0)
IF Ticaret Yüzdesi:(%)
Cevap: !ipucu vermesi mümkünmü? Yardim edermisiniz?




XcLusive Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
kodu bir eklenti şeklinde koyarsan düzeltebilirim ama saten multi cevap olduğu için ipucu biraz abartılı hangi kelime için ipucu verecek ki?
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

345. soru gibi eklenti olabilir. ama dediğim gibi bu kod bende yok foruma koyarsan bişiler yapmaya çalışırız..
(php modunda eklemişsin ve bazı yerler eksik çıkmış)

Halil, multi cevap islemini iptal ettim, Su örnek ile göstereyim..
[13:52] <QscaR> !basla
[13:52] <@islamisoru> « Islami SoruBot, "QscaR" tarafindan baslatildi. Hazirlanin.. »
[13:52] <@islamisoru> Soru: Islâmiyet'te akilli ve bâlig (ergen ve evlenecek yasa gelmis) olan kimsenin namaz kilarken açmasi veya her zaman baskasina göstermesi ve baskasinin bakmasi haram (günâh) olan yerleri?
[13:52] <@islamisoru> Dogru Cevapa: 20 Puan
[13:53] <@islamisoru> ipucu: Cevaplanan: 0 Toplam : 1 20 Saniye kaldi!
[13:53] <@islamisoru> ipucu: ****** 10 Puan - 10 Sn. kaldi!
[13:53] <@islamisoru> Sorunun Cevabi: « avret »

Umarim yeterli bir sekilde acikladim, Her sorunun tek cevapi var, örnekte de oldugu gibi, Fakat ipucu vermesini yapamadim, ipucu verdiginde saniye ve puanida azaltsin. Kodu tekrardan yaziyorum, insAllah sorunu cözersin Halil :-)

Konu acarkende belirtmistim, kendimce editledim örnek; !gec komutu ile bir sonra ki soruya geciyor :p

;Kod

Coded by: XcLusive(HaLiL)
;###### de&eth;i&thorn;tirilecek bölümler ######
alias -l botnick return islamisoru
alias -l kanal return %Oyunkanali
;#### de&eth;i&thorn;tirilecek bölüm sonu #####
alias mdir return $remove($mircexe,$nopath($mircexe))
alias -l puan return 20
alias -l sorular { return $shortfn($mdir $+ sorular.txt) }
alias -l sorusira { set %sorusira $rand(1,$lines($sorular)) }
alias -l soru { return $gettok($read($sorular,%sorusira),1,42) }
alias -l cevaplar { set %cevaplar $gettok($read($sorular,%sorusira),2-,42) }
alias -l toplucevap { return $regsubex(%cevaplar,/(\*)/g,$+($chr(32),$chr(124),$chr(32))) }
alias -l 10 { msg $kanal 4&Yacute;pucu: 08,02Cevaplanan: $calc($numtok($gettok($read($sorular,%sorusira),2-,42),42) - $numtok(%cevaplar,42)) Toplam : $numtok($gettok($read($sorular,%sorusira),2-,42),42) 12 20 1Saniye kald&yacute;! }
alias -l 20 { msg $kanal 4&Yacute;pucu: ******3 10 6Puan 14-3 10 6Sn.1 kald&yacute;! }
alias -l sor {
sorusira
cevaplar
msg $kanal 0,4Soru:9,1 $soru $+ ?
msg $kanal 4Do&eth;ru Cevapa: 3 20 6Puan
.timer15 1 10 10
.timer30 1 20 20
.timer45 1 30 sorukapat
}
alias -l sorukapat {
msg $kanal 6Sorunun Cevab&yacute;: 14«1 $toplucevap 14»
.timerssoru 1 5 msg $kanal 3Haz&yacute;rlan&yacute;n s&yacute;radaki soru geliyor...
.timersor 1 8 sor
}
alias -l sorupuanlar&yacute; {
if (!$hget(toplist)) { hmake toplist }
unset %sorupuanlar
var %i = $hget(puanlar,0).data,%x
while (%i) {
%x = 0,10 $hget(puanlar,%i).item 0,6 $hget(puanlar,%i).data
var %nick = $hget(puanlar,%i).item,%puan = $hget(puanlar,%i).data
set %sorupuanlar $addtok(%sorupuanlar,%x,32)
if ($hget(toplist,%nick)) { hadd toplist %nick $calc($hget(toplist,%nick) + %puan) }
else { hadd toplist %nick %puan }
dec %i
}
.hfree -sw puanlar | hsave -a toplist $qt($+($mdir,toplist.data))
return 0,6Puanlar: $+ $iif(%sorupuanlar == $null,0 $+ $chr(44) $+ 6Yok,%sorupuanlar)
}
on *:start:{
hmake toplist
if $isfile($+($mdir,toplist.data)) { hload toplist $qt($+($mdir,toplist.data)) }
else { hsave -a toplist $qt($+($mdir,toplist.data)) }
server $sunucu
}
on *:text:*:#:{
if $chan != $kanal halt
if $1 == !tekrar msg $kanal 0,4Soru tekrar&yacute;:9,1 $soru $+ ?
if $1 == !top10 { msg $kanal $toplist }
if $1 == !puan {
if ($2) { msg $kanal 6 $+ $nick $+ 1 $qt($2) $+  1Nickli ki&thorn;inin puan&yacute;:6 $iif($hget(toplist,$2),$hget(toplist,$2),Yok) }
else { msg $kanal 6 $+ $nick $+ 1 Sizin puan&yacute;n&yacute;z:6 $iif($hget(toplist,$nick),$hget(toplist,$nick),Yok ) }
}
if $1 == !basla && $nick ison $chan && %bot != on { msg $kanal 6«1 &Yacute;slami SoruBot, 6 $+ $qt($nick) $+  1 taraf&yacute;ndan ba&thorn;lat&yacute;ld&yacute;. Haz&yacute;rlan&yacute;n.. 6» | .timerbot 1 5 sor | set %bot on | halt }
elseif $1 == !gec && %bot != off { msg $kanal 6!gec1 Komutu ile bir sonraki soruya gecildi. 3Sorunun cavabi : 14«6 $toplucevap 14» | .set %bot on | .timerbot 1 2 sor | halt }
elseif $1 == !dur && %bot != off { msg $kanal 6«1 &Yacute;slami SoruBot, 6 $+ $qt($nick) $+  1 taraf&yacute;ndan durduruldu!6 » | set %bot off | .timers off | hsave -a toplist $qt($+($mdir,toplist.data)) | halt }
if %bot == on && $findtok(%cevaplar,$1-,0,42) {
set %cevaplar $remtok(%cevaplar,$1-,$v1,42)
msg # 4Tebrikler1 $nick $+ 3 $puan 6Puan kazand&yacute;n&yacute;z!4 Dogru cevap: 3 $+ $qt($1-)
if !$hget(puanlar) { hmake puanlar }
if $hget(puanlar,$nick) { hadd puanlar $nick $calc($hget(puanlar,$nick) + $puan) }
else { hadd puanlar $nick $puan }
if !$numtok(%cevaplar,42) {
msg $kanal $sorupuanlar&yacute;
.timer15 off | .timer30 off | .timer45 off | .timerssoru off | .timersor off
.timer 1 5 msg $kanal 3Bir sonraki soru için haz&yacute;rlan&yacute;n...
.timer 1 8 sor
}
}
}
on *:exit:hsave -a toplist $qt($+($mdir,toplist.data))
on *:disconnect:set %bot off | hsave -a toplist $qt($+($mdir,toplist.data))
alias -l toplist {
hsave -a toplist $qt($+($mdir,toplist.data))
.hfree -sw toplist | hmake toplist | hload toplist $qt($+($mdir,toplist.data))
if (!$hget(top10puan)) { hmake top10puan }
var %xc = $hget(toplist,0).data
while %xc {
set %top10puan $addtok(%top10puan,$hget(toplist,%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,6Top10 Puan Listesi $+(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(toplist,$1,0,w).data
while (%i) {
%y = $hfind(toplist,$1,%i,w).data
%w = %y %w
dec %i
}
return $replace($sorttok(%w,32,a),$chr(32),$chr(44))
}

iyi ve hayrli, Forumlar dilerim
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
.


Konu Azad tarafından (27 Ocak 2010 Saat 15:14 ) değiştirilmiştir.
 
Alıntı ile Cevapla

IRCForumlari.NET Reklamlar
sohbet odaları reklamver bizimmekan