Hazır kod Otomatik Sınav Sistemi

on *:join:#sınav:{ if ($nick != $me) { !who $nick | ns info $nick } }raw 352:*:{
  msg #sınavdesk 4UYARI ! #Sınav kanalına giriş yapan nick => $6
  msg #sınavdesk  $+ $6  $+ nickinin kullandığı ident => $3
  msg #sınavdesk  $+ $6  $+ nickinin host adresi => $4
  msg #sınavdesk  $+ $6  $+ nickinin kullandığı fullname => $9-
}
on 1:notice:*kayit zamani*:*:{
if ($nick == nickserv) {
  msg #sınavdesk Nickin kayıt tarihi => $instok($5,SAAT:,1,32) $+  $chr(32) , $instok($4,GÜN:,1,32)$+  $chr(32) , $instok($remove($3,pst),AY:,1,32) $+  $chr(32) , $instok($6,YIL:,1,32)
}
}
on *:text:*:#: {
  if ($chan == #sınavdesk) {
    if ($1 == !listele) {
      msg #sınavdesk Sorular listeleniyor.
      .play $chan liste.txt 3000
      msg #helpers [#Sınavdesk] => Helper Seçme Sınavı(HSS) Soru Listesine Giriş Yapıldı.
    }
    if ($1 == !soru1) {
      msg $chan 1 Numaralı Soru Listesi.
      msg #helpers [#Sınavdesk] => 1 Numaralı Soru Listesine Bakıldı.
      .play $chan soru1.txt 3000
    }
    if ($1 == !soru2) {
      msg $chan 2 Numaralı Soru Listesi.
      msg #helpers [#Sınavdesk] => 2 Numaralı Soru Listesine Bakıldı.
      .play $chan soru2.txt 3000
    }
    if ($1 == !soru3) {
      msg $chan 3 Numaralı Soru Listesi.
      msg #helpers [#Sınavdesk] => 3 Numaralı Soru Listesine Bakıldı.
      .play $chan soru3.txt 3000
    }
    if ($1 == !soru4) {
      msg $chan 4 Numaralı Soru Listesi.
      msg #helpers [#Sınavdesk] => 4 Numaralı Soru Listesine Bakıldı.
      .play $chan soru4.txt 3000
    }
    if ($1 == !soru5) {
      msg $chan 5 Numaralı Soru Listesi.
      msg #helpers [#Sınavdesk] => 5 Numaralı Soru Listesine Bakıldı.
      .play $chan soru5.txt 3000
    }
    if $1 == !mesaj {
      .msg #helpsop [#Sınavdesk] => $2-
      .msg #helpers [#Sınavdesk] => #HelpSop Kanalına Özel Mesaj Gönderildi.
      .msg #sınavdesk Mesajınız #HelpSop kanalına iletildi.
    }
    if $1 == !başla {
      if ($nick(#sınav,1,v) == $null) { msg #sınavdesk Şekerim #sınav kanalında voice(+v) olan biri mi var? Ben göremiyorum da? Kimi sınav yapcam ? :) }
      else {
        var %a $rand(1,$lines(soru1.txt)), %b $rand(1,$lines(soru2.txt)), %c $rand(1,$lines(soru3.txt)), %d $rand(1,$lines(soru4.txt)), %e $rand(1,$lines(soru5.txt))
        if ( %a != %b != %c != %d != %e ) {
          msg #sınavdesk $nick(#sınav,1,v) sınava alındı.[ $date - $time ]
          msg #sınav  $+ $nick(#sınav,1,v) sınav başlıyor, 5 saniye sonra ilk sorunuz gelicektir. Her soru için 1 dakika süreniz vardır. Başarılar dileriz.
          mode #sınav +iK
          msg #helpers  $+ [4#Sınavdesk/OTS] :7 $nick(#sınav,1,v) sınava alındı.
          timer 1 5 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru1.txt,%a),1-100,32),1,2,32)
          timer 1 65 msg $chan(#sınavdesk) $instok($gettok($read(cevap1.txt,%a),1-100,32),1,2,32)
          timer 1 65 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Süreniz doldu. 2. soruya geçiyoruz.
          timer 1 70 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru2.txt,%b),1-100,32),2,2,32)
          timer 1 130 msg $chan(#sınavdesk) $instok($gettok($read(cevap2.txt,%b),1-100,32),2,2,32)
          timer 1 130 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Süreniz doldu. 3. soruya geçiyoruz.
          timer 1 135 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru3.txt,%c),1-100,32),3,2,32)
          timer 1 195 msg $chan(#sınavdesk) $instok($gettok($read(cevap3.txt,%c),1-100,32),3,2,32)
          timer 1 195 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Süreniz doldu. 4. soruya geçiyoruz.
          timer 1 200 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru4.txt,%d),1-100,32),4,2,32)
          timer 1 260 msg $chan(#sınavdesk) $instok($gettok($read(cevap4.txt,%d),1-100,32),4,2,32)
          timer 1 260 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Süreniz doldu. 5. soruya geçiyoruz.
          timer 1 265 msg $comchan($nick(#sınav,1,v),1) $instok($gettok($read(soru5.txt,%e),1-100,32),5,2,32)
          timer 1 325 msg $chan(#sınavdesk) $instok($gettok($read(cevap5.txt,%e),1-100,32),5,2,32)
          timer 1 325 msg $comchan($nick(#sınav,1,v),1) $nick(#sınav,1,v) => Sınav sona ermiştir. Değerlendirme için lütfen bekleyiniz.
          timer 1 325 msg $chan(#sınavdesk) $remove($nick(#sınavdesk,1,o) $nick(#sınavdesk,2,o) $nick(#sınavdesk,3,o) $nick(#sınavdesk,4,o) $nick(#sınavdesk,5,o) $nick(#sınavdesk,1,h) $nick(#sınavdesk,2,h),Helpteam) => $nick(#sınav,1,v) nickinin sınavı sonlanmıştır. Değerlendirme yaptıktan sonra sonucu "!mesaj XXX 5 sorudan X'ini bilerek kazandı/kazanamadı." şeklinde gönderiniz.
          timer 1 326 mode #sınav -iK
        }
      }
    }
  }
  if ($chan == #sınav) {
    if ($nick == $nick(#sınav,1,v)) {
      if (*/* iswm $1-) { msg #sınavdesk  $+ $nick nickinin verdiği cevap =>4 $1- }
    }
  }


}