IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

- mIRC Scripting Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)

- - Sınav Botu (https://www.ircforumlari.net/mirc-scripting-sorunlari/344822-sinav-botu.html)

Kod:

 

Bir Eğitim Botu Türetmek istiyorum 

 

 

Bota komut uygulaması Yapıldığında 

 

Bot 1. sorudan baslamalı 

 

örnek :

 

mIRCTurk Global Departmanına göre yazıyorum

 

1- F2 Alias'ının Görevi nedir kanalda hangi kural hatasında kullanırsınız

 

A) Argo/küfür B) Inviter C) vs D) vs

 

Cevap : A 

 

Eğerki A'yı bulursa doru cevap'la 2. Soruya Gecmeli 

 

eğerki Yanlıs cevap verirse  Yanlıs Cevap verdiğini belirtmeli.

Cevap: Sınav Botu

Türet , ozaman görelim ;-}

Cevap: Sınav Botu

benzerini yaptım ama şuan yazacak kadar vaktim yok :)

Cevap: Sınav Botu

Sorular sabit mi olacak, yoksa random mu?

Cevap: Sınav Botu

Kod:

alias kanal return #as

alias baslat {

  rands

  .timerbaslat 0 60 /rands

}

alias rands {

  set %:rand $rand(1,$lines(sorular.txt))

  soru 

}

alias soru {

  if (%:rand == %rand) {  var %:rand = $rand(1,$lines(sorular.txt)) }

  unset %cevaplayan

  set %rand %:rand

  var %sorulacak = $read(sorular.txt,%:rand)

  set %soru $gettok(%sorulacak,1,11)

  set %cevap.a $gettok(%sorulacak,2,11)

  set %cevap.b  $gettok(%sorulacak,3,11)

  set %cevap.c  $gettok(%sorulacak,4,11)

  set %cevap.d  $gettok($gettok(%sorulacak,1,153),5,11)

  if (%cevap.a ==  $gettok(%sorulacak,2,153)) { set %dogru A | set %yanlis  b c d }

  if (%cevap.b ==  $gettok(%sorulacak,2,153)) { set %dogru B |  set %yanlis a c d }

  if (%cevap.c ==  $gettok(%sorulacak,2,153)) { set %dogru C |  set %yanlis a b d }

  if (%cevap.d ==  $gettok(%sorulacak,2,153)) { set %dogru D |  set %yanlis a b c }

  msg $kanal 5 %:rand 4) SORU: %soru 

  msg $kanal  -

  msg $kanal A) %cevap.a

  msg $kanal B) %cevap.b

  msg $kanal C) %cevap.c

  msg $kanal D) %cevap.d

  msg $kanal -

  msg $kanal 5 Cevap Verme Sureniz 4 60 5Saniyedir..

  .timer20 1 20 msg $kanal 5Kalan Cevap Verme Suresi 4 40 5 Saniye.

  .timer40 1 40 msg $kanal 5Kalan Cevap Verme Suresi 4 20 5 Saniye.

  .timer59 1 59 msg $kanal 5Sure Bitmistir Dogru Cevap 4 %dogru 5 Sıkkıdır.

}

on *:text:*:#: {

  if ($chan == $kanal) {

    if ($istok(%cevaplayan,$nick,32)) { notice $nick  Onceden Yanlis Cevap Vermisdiniz Bu Soruda Cevap Hakkiniz Yok ! | halt }

    if ($istok(%yanlis,$1,32)) { msg # Yanlis Cevap $nick ! | %cevaplayan = $addtok(%cevaplayan,$nick,32) | halt }

    if ($1 == %dogru) { msg # Dogru Cevap $nick Tebrikler.. | baslat }

  }

}

Kod:

[00:45] <@Aeg>  3 ) SORU: Bir ChanServ Set Ozelligi

[00:45] <@Aeg> -

[00:45] <@Aeg> A) restricted

[00:45] <@Aeg> B) restricted

[00:45] <@Aeg> C) registera

[00:45] <@Aeg> D) restrictedb

[00:45] <@Aeg> -

[00:45] <@Aeg>  Cevap Verme Sureniz  60 Saniyedir..

Suanlik Bu kadar'ini Yapabildim Top10 kısmı eklemedim o kadar

Kullanimi :
#as kanali yerine oyun kanalini sececen
Sorular.txt dosyasinda sorulara Göre Ayarlarsin
/baslat Yazdiginda calişir.

Cevap: Sınav Botu

Benim , kodlarıma ortak çıkmış .Pp

Cevap: Sınav Botu

Alıntı:

Entrance Nickli Üyeden Alıntı (Mesaj 1040465280)

Türet , ozaman görelim ;-}

Türetecek olsam Zaten Buraya Yazmam Gülmek istiyorsan Komedi filmi izleyebilirsin.

Cevap: Sınav Botu

Alıntı:

Skys Nickli Üyeden Alıntı (Mesaj 1040466452)

Türetecek olsam Zaten Buraya Yazmam Gülmek istiyorsan Komedi filmi izleyebilirsin.

Armut piş ağzıma düş hesabı sizinki , bende bu sebeble. güldüm ne var bunda ? biraz kendinizde birşeyler yapmaya çalışsanız sizin açınızdan daha iyi olur diye düşünüyorum, sürekli konu açmakla olmuyor bu işler , amacım seni kötülemek falanda değil beni yanlış anlama sadece bu gibi konularda azda olsa bilgi edinmen için diyorum.

Cevap: Sınav Botu

Alıntı:

Set Nickli Üyeden Alıntı (Mesaj 1040465390)

Kod:

alias kanal return #as

alias baslat {

  rands

  .timerbaslat 0 60 /rands

}

alias rands {

  set %:rand $rand(1,$lines(sorular.txt))

  soru 

}

alias soru {

  if (%:rand == %rand) {  var %:rand = $rand(1,$lines(sorular.txt)) }

  unset %cevaplayan

  set %rand %:rand

  var %sorulacak = $read(sorular.txt,%:rand)

  set %soru $gettok(%sorulacak,1,11)

  set %cevap.a $gettok(%sorulacak,2,11)

  set %cevap.b  $gettok(%sorulacak,3,11)

  set %cevap.c  $gettok(%sorulacak,4,11)

  set %cevap.d  $gettok($gettok(%sorulacak,1,153),5,11)

  if (%cevap.a ==  $gettok(%sorulacak,2,153)) { set %dogru A | set %yanlis  b c d }

  if (%cevap.b ==  $gettok(%sorulacak,2,153)) { set %dogru B |  set %yanlis a c d }

  if (%cevap.c ==  $gettok(%sorulacak,2,153)) { set %dogru C |  set %yanlis a b d }

  if (%cevap.d ==  $gettok(%sorulacak,2,153)) { set %dogru D |  set %yanlis a b c }

  msg $kanal 5 %:rand 4) SORU: %soru 

  msg $kanal  -

  msg $kanal A) %cevap.a

  msg $kanal B) %cevap.b

  msg $kanal C) %cevap.c

  msg $kanal D) %cevap.d

  msg $kanal -

  msg $kanal 5 Cevap Verme Sureniz 4 60 5Saniyedir..

  .timer20 1 20 msg $kanal 5Kalan Cevap Verme Suresi 4 40 5 Saniye.

  .timer40 1 40 msg $kanal 5Kalan Cevap Verme Suresi 4 20 5 Saniye.

  .timer59 1 59 msg $kanal 5Sure Bitmistir Dogru Cevap 4 %dogru 5 Sıkkıdır.

}

on *:text:*:#: {

  if ($chan == $kanal) {

    if ($istok(%cevaplayan,$nick,32)) { notice $nick  Onceden Yanlis Cevap Vermisdiniz Bu Soruda Cevap Hakkiniz Yok ! | halt }

    if ($istok(%yanlis,$1,32)) { msg # Yanlis Cevap $nick ! | %cevaplayan = $addtok(%cevaplayan,$nick,32) | halt }

    if ($1 == %dogru) { msg # Dogru Cevap $nick Tebrikler.. | baslat }

  }

}

Kod:

[00:45] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]>  3 ) SORU: Bir ChanServ Set Ozelligi

[00:45] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> -

[00:45] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> A) restricted

[00:45] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> B) restricted

[00:45] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> C) registera

[00:45] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> D) restrictedb

[00:45] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]> -

[00:45] <@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]>  Cevap Verme Sureniz  60 Saniyedir..

Cevap verdiğimde

Doğru veya yanlış gibi bir Cevap vermiyor.

Cevap: Sınav Botu

Yazdıklarını Algılaması İçin,cevap verdiğin Kanal,

Alıntı:

alias kanal return #as

Belirtilen Kanal Olmalıdır.