Çevrimdışı

TBtrivsendmsg 0,4 Yaz: 0,1 $lower($degistir(%TBtrivq)) ¿  $len(%TBtriva) krktr. 2Ekleyen:4 %TBtriv2a

%TBtrivq = Soru
%TBtriva = Cevap
%TBtriv2a = Nick

Soru textinde sorular; Soru*cevap*nick seklinde ekli.

Ama text baya eski oldugu icin bazi sorularin sonunda ekleyen nick yok.

Yani; Soru*cevap seklinde ekli ve ekleyen kisminda hic birsey yazmiyor o sorulara denk geldiginde..
Mesela botun klasorune nickler diye bir txt dosyasi acsak bu sonunda nick olmayan sorular geldiginde o txt dosyasindaki nickleri okutsak olabilirmi ?

 

Çevrimdışı

Cok mu zor birsey istedim yok mu yardim edecek biri ?

 

Çevrimdışı

Bu vermiş olduğun kodlar bahsettiğin şeyi yapabilmek için yeterli değil maalesef.. Yani Txt açıp oraya nick ekletirizde, sorunun sonunda nick olup olmadığını nasıl anlayacak kod? yani TEXT'n nickmi yoksa sorumu olduğunu ayırt edemez.. En azından bu verilen kodlarla. Tamamını copy edersen bakıp yardımcı olmaya çalışırım.

 

Çevrimdışı

alias TBtrivqnormal {
set %TBtrivqtype NORMAL
unset %TBtriv2a2
TBtrivw settings qtype normal
TBtrivw settings TBtrivstatus question
var %tmp = $TBtriv(settings, count)
inc %tmp
TBtrivw settings count %tmp
TBtrivgetpoints
if (%TBtrivforceq == 1) { set %TBtrivquest %TBtrivnextq $+ * $+ %TBtrivnexta }
else {
if (%TBtrivtype == MEGA) { set %TBtrivquest $TBtrivgetqmega }
else { set %TBtrivquest $TBtrivgetq }
}
set %TBtrivq $replace($gettok(%TBtrivquest,1,42),$chr(32),$chr( 160))
set %TBtriva $gettok(%TBtrivquest,2,42)
set %TBtriv2a $gettok(%TBtrivquest,3,42)

if (%TBtrivq == $NULL) {
set %TBtrivq
//echo 4 -s Error in question (no question): %TBtrivquest
//echo 4 -a Error in question (no question): %TBtrivquest
}
if (%TBtriva == $NULL) {
set %TBtriva Hatali text, lutfen siradaki metini bekleyin.. Duzeltmek icin Ornek; !duzelt Fatih sultan mehmet.
//echo 4 -s Error in question (no answer): %TBtrivquest
//echo 4 -a Error in question (no answer): %TBtrivquest
}
if ($TBtriv(settings, lenient) == 1) {
set %TBtriva2 $gettok(%TBtrivquest,2,42)
.echo -q $regsub(%TBtriva2,/([^a-zA-Z0-9])/ig,$NULL,%TBtriva2)
if (%TBtriv2a != $NULL) {
set %TBtriv2a2 $gettok(%TBtrivquest,3,42)
.echo -q $regsub(%TBtriv2a2,/([^a-zA-Z0-9])/ig,$NULL,%TBtriv2a2)
}
}
TBtrivw settings currentq %TBtriva
TBtrivsendmsg 0,4 Yaz: 0,1 $lower($degistir(%TBtrivq)) ¿  $len(%TBtriva) krktr. 2Ekleyen:4 %TBtriv2a
if ($TBtriv(settings, echoqa) == 1) {
//echo %TBtrivchannel Cevap: %TBtriva
}
set %TBtrivqstart $ticks
var %gap = $TBtriv(settings, hintpregap)
if (%gap < 1000) { TBtrivhint1 }
else {
.timerTBtrivprehint1 -m 1 %gap TBtrivhint1
}
}