Etiketlenen üyelerin listesi

+ Yeni Konu aç
1 sonuçtan 1 ile 1 arası

Konu: Sise cevirme oyunu

  1. #1
    Surreal - ait Kullanıcı Resmi (Avatar)
    Üyelik tarihi
    23.03.2019
    Mesajlar
    124
    Mentioned
    14 Post(s)
    Tagged
    7 Thread(s)

    Standart Sise cevirme oyunu

    PHP- Kodu:
    on *:text:*:#Cevirmece: {
      
    if $== !Kurallar || $== !Kurallar {
        
    msg $chan 4 $nick 6Oyun Kuralları Ve Oynamma Sekli10 Kanalda 4!Varım10Yazarak Oyuna Dahil Olabilirsiniz4!yokum 10Yazarak Oyundan Ayrılabilirsiniz..12 Oynama Sekli;  4!Çevir 10Yazmanız Yeterli OlacaktırBot Size 4!Dogruluk 64!Cesaret 10Sıklarını Sunacaktır Siz Keyfinize Göre Cevaplayınız  Ardından 4!s 10Seklinde Soru Sorabilir 4!c 10Seklinde Cevaplayabilirsiniz..
      }
      if $
    == !varim || $== !varim {
        if %
    disc. [ $+ [ $nick ] ] {  msg4 $chan 2Oyundan uzaklaştırıldınızlütfen ceza sürenizin dolmasını bekleyiniz. | return }
        if (!
    $istok($hget(Oyun,Başlayanlar),$nick,32))  { 
          
    hadd -ms Oyun Başlayanlar $hget(Oyun,Başlayanlar$nick 
          msg $chan 4 $nick 2oyuna dahil oldu

        }
      else { 
    msg $chan 4 $nick  10zaten oyuna dahil olmuşsunuz. } }
      if $
    == !yokum 
        if (!
    $istok($hget(Oyun,Başlayanlar),$nick,32))  {  msg $chan Siz zaten oyuna dahil olmamışsınız. | return }
        var %. 
    $remtok($hget(oyun,Başlayanlar),$nick,32
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %. 
        
    msg $chan 2 $nick oyundan ayrıldı
        if (
    $istok($hget(Oyun,SoruNick),$nick,32))  { msg4 $chan 2Oyun sıfırlandışişeyi tekrar çevirebilirsiniz. | hdel -ms Oyun SoruNick hdel -ms Oyun SoruCevap  |  hadd -ms Oyun Durum 0 |  hadd -ms Oyun Soruldu 0 | $+(timer,soruoff | return }
        if (
    $istok($hget(Oyun,SoruCevap),$nick,32))  { msg 4$chan 2Oyun sıfırlandışişeyi tekrar çevirebilirsiniz. | hdel -ms Oyun SoruNick hdel -ms Oyun SoruCevap  |  hadd -ms Oyun Durum 0 |  hadd -ms Oyun Soruldu 0 | $+(timer,soruoff | return }
      }
      if $
    == !cevir || $== !çevir {
        if (!
    $istok($hget(Oyun,Başlayanlar),$nick,32)) { msg $chan 2Oyuna dahil olmadığınız için 4!cevir 2yapamazsınız. | return }
        if (
    $token($hget(oyun,Başlayanlar),0,32) == $null) { msg $chan 2Oyuncu bulunmadığı için 4!cevir 2komutunu kullanamazsınız. | return }
        if (
    $token($hget(Oyun,Başlayanlar),0,32) == 1) { msg $chan 2Şuan oyunda sadece bir kişi dahil olmuştur ve oyun en az iki kişi ile oynanmaktadır. | return }
        if 
    $hget(Oyun,Durum) == {  msg $chan 2Soru ve cevap işlemi tamamlanmadıkça şişe tekrar çevrilemez! | return }
        
    msg $chan 10Şişe dönüyor bekleyiniz..
        var %
    tab $hget(oyun,başlayanlar)
        var %
    $numtok(%tab,32
        var %
    $token(%tab,$r(1,$(%s,2)),32)
        var %
    $remtok(%tab,%q,32)
        var %
    $token(%a,$r(1,$calc($(%s,2) -1)),32)
        
    msg $chan 4 %q 2soracak ---> %k 2cevap verecek.
        
    msg $chan 4  %k 10Doğruluk mu5Cesaret mi?
        
    mode $chan +vv %%k
        mode $chan 
    +m
        hadd 
    -m Oyun Durum 1
        hadd 
    -m Oyun SoruNick %q
        hadd 
    -m Oyun SoruCevap %k
        
    .$+(timer,soru1 180 sıfırla $chan 
      
    }
      ;-- 
    ekleyelim bakalim
      
    if ($== !dogruluk) {
        if 
    $hget(Oyun,Durum) != {  msg 2$chan 4!s 2ve 4!c2 komutları şişe çevrilmeden kullanılamaz. | return }
        if (
    $hget(Oyun,yanit)) { msg $chan2 Zaten bu komutlardan biri $hget(Oyun,SoruCevap)4 tarafından kullanılmış lütfen soru bekleyiniz. | return }
        if (
    $nick isin $hget(Oyun,SoruCevap)) { hadd -m Oyun yanit $hget(Oyun,SoruCevap) }
        else { 
    msg4 $chan 2Siz bu komutu kullanamazsınızsadece 4$hget(Oyun,SoruCevap2kullanabilir. | return }
        
    msg $chan 4 $nick 6dogruluk dedi bakalımne kadar dürüst olabilecek.
      }
      if ($
    == !cesaret) {
        if 
    $hget(Oyun,Durum) != {  msg 2$chan 4!s 2ve 4!c2 komutları şişe çevrilmeden kullanılamaz. | return }
        if (
    $hget(Oyun,yanit)) { msg $chan 2Zaten bu komutlardan biri $hget(Oyun,SoruCevap2tarafından kullanılmış lütfen soru bekleyiniz. | return }   
        if (
    $nick isin $hget(Oyun,SoruCevap)) { hadd -m Oyun yanit $hget(Oyun,SoruCevap) }
        else { 
    msg4 $chan 2Siz bu komutu kullanamazsınızsadece $hget(Oyun,SoruCevap2kullanabilir. | return }
        
    msg $chan 4 $nick 6cesaret dedibakalım ne kadar cesur olabilecek.
      }

      if $
    == !{
        if 
    $hget(Oyun,Durum) != {  msg 6$chan  4!s 2 ve 4 !c 2 komutları şişe çevrilmeden kullanılamaz. | return }
        if (!
    $hget(Oyun,yanit)) { msg 4$chan2 henüz4!dogruluk2 veya 4!cesaret 2kullanılmamışLütfen bekleyiniz. | return }
        if (!
    $istok($hget(Oyun,SoruNick),$nick,32))  { msg $chan 2Sadece 4 $hget(Oyun,SoruNick2soru sorabilir ve 4 $hget(Oyun,SoruCevap2cevap verebilir. | return }
        if 
    $hget(Oyun,Soruldu) == {  msg 4$chan 2 Sadece bir defa soru sorabilirsiniz. | return }
        if !$
    msg 4$chan  2Sorunuzu tam olarak belirtiniz. | return }
      else { $+(
    timer,soru1 180 sıfırla $chan msg $chan 4Soru $hget(Oyun,SoruNick) :$2- | hadd -m Oyun Soruldu 1 } }
      if $
    == !{
        if 
    $hget(Oyun,Durum) != {  msg6 $chan 4 !s  2ve 4 !c 2 komutları şişe çevrilmeden kullanılamaz. | return }
        if (!
    $hget(Oyun,yanit)) { msg 5$chan 2henüz4!dogruluk 2veya 4!cesaret2 kullanılmamışLütfen öncekullanınız. | return }
        if (!
    $istok($hget(Oyun,SoruCevap),$nick,32))  { msg4 $chan 2Sadece 4 $hget(Oyun,SoruNick2soru sorabilir ve 4 $hget(Oyun,SoruCevap2cevap verebilir. | return }
        if 
    $hget(Oyun,Soruldu) != {  msg2 $chan  4Sorunuz henüz sorulmadılütfen bekleyiniz. | return }
        if !$
    msg4 $chan 2 Cevapınızı tam olarak belirtiniz. | return }
        else {
          $+(
    timer,soruoff
          msg $chan 2Cevap 
    -5 $hget(Oyun,SoruCevap) :$2-
          
    msg $chan 10 Soru ve cevap işlemi tamamlandışişeyi tekrar çevirebilirsiniz.
          var %
    tab $hget(oyun,başlayanlar)
          var %
    $numtok(%tab,32
          var %
    $token(%tab,$r(1,$(%s,2)),32)
          var %
    $remtok(%tab,%q,32)
          var %
    $token(%a,$r(1,$calc($(%s,2) -1)),32)
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    mode $chan -m
          hdel 
    -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0 
          hdel Oyun yanit
        
    }
      }
      if $
    == !oyuncular {
        if !%
    oyuncular. [ $+ [ $chan ] ] {
          
    inc -u60 %oyuncular. [ $+ [ $chan ] ]
          if (
    $token($hget(oyun,başlayanlar),0,32) == $null) { msg $chan  Oyuna dahil olan hiç kimse yoktur. | return }
          
    msg $chan 5 $replace($hget(oyun,başlayanlar),$chr(32),$+($chr(32),-,$chr(32))) 2şuan oyundadır.
        }
        else {
          
    msg $chan 5!oyuncular komutunu sürekli kullanamazsınız.  ( 1 dakikada bir defa oyuncular listelenir. )
        }
      }
      if $
    == !dis {
        if 
    $nick !isop $chan && $nick !ishop $chan msg 10$chan  4!dis 2 ve 4 !reset 2 komutunu sadece kanal yetkilileri kullanabilir. | return }
        if !$
    msg 4$chan 2Lütfen diskalifiye edeceğiniz nicki belirtinizKullanımı 10 !dis 4nick | return }
        if (
    $token($hget(oyun,başlayanlar),0,32) == $null) { msg $chan Şuan oyun listesinde kimse bulunmamaktadir. | return }
        if (!
    $istok($hget(Oyun,Başlayanlar),$2,32)) { msg $chan $2 Oyuncular listesinde bulunmamaktadir. | return }
        var %. 
    $remtok($hget(oyun,Başlayanlar),$2,32)
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %.
        
    msg $chan   $2 2nicki4 $nick  2tarafından oyundan diskalifiye edildi ve 6 52 dakika boyunca  4!varim 2 komutuyla oyuna dahil olamayacak.
        
    inc -u300 %disc. [ $+ [ $] ]
        if (
    $istok($hget(Oyun,SoruNick),$2,32))  { 
          
    msg $chan  Oyun sıfırlandışişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    mode $chan -m
          hdel 
    -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          
    $+(timer,soruoff
          
    return 
        }
        if (
    $istok($hget(Oyun,SoruCevap),$2,32))  { 
          
    msg $chan  10Oyun sıfırlandışişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }
      }
      if $
    == !reset {
        if 
    $nick !isop $chan && $nick !ishop $chan msg 2$chan  4!dis  2ve 4 !reset 2 komutunu sadece kanal yetkilileri kullanabilir. | return }
        else {
          
    msg $chan 10 Oyun sıfırlanmıştır4!varim 10komutu ile oyuna tekrar dahil olupşişeyi çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun Başlayanlar
          hdel 
    -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    unset %disc.*
          unset %
    oyuncular*
        }
      }
    }

    on *:quit: { 
      if (
    $istok($hget(Oyun,Başlayanlar),$nick,32))  {
        var %. 
    $remtok($hget(oyun,Başlayanlar),$nick,32)
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %.
        
    msg #Cevirmece 2 $nick 2oyundan ayrıldı.
        
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
          
    msg #Cevirmece  10Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }
        if (
    $istok($hget(Oyun,SoruCevap),$nick,32))  { 
          
    msg  #Cevirmece  10Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }
      }
    }
    on *:part:#Cevirmece: { 
      
    if $nick == $me {
        
    hdel -ms Oyun Başlayanlar
        hdel 
    -ms Oyun SoruNick 
        hdel 
    -ms Oyun SoruCevap  
        hadd 
    -ms Oyun Durum 0 
        hadd 
    -ms Oyun Soruldu 0
        hdel Oyun yanit
        
    $+(timer,soruoff
        
    unset %disc.*
        unset %
    oyuncular*
      }
      if (
    $istok($hget(Oyun,Başlayanlar),$nick,32))  {
        var %. 
    $remtok($hget(oyun,Başlayanlar),$nick,32)
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %.
        
    msg #Cevirmece 2 $nick oyundan ayrıldı.
        
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
          
    msg #Cevirmece 10 Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }
        if (
    $istok($hget(Oyun,SoruCevap),$nick,32))  { 
          
    msg  #Cevirmece 10 Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }    
      }
    }
    on *:nick: {
      if (
    $istok($hget(Oyun,Başlayanlar),$nick,32))  {
        var %. 
    $remtok($hget(oyun,Başlayanlar),$nick,32)
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %.
        
    hadd -ms 2Oyun Başlayanla4r $hget(Oyun,Başlayanlar$newnick
        msg 
    #Cevirmece 2 $nick oyundan ayrıldı.
        
    msg #Cevirmece 4 $newnick oyuna dahil oldu.
        
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
          
    hadd -ms Oyun SoruNick  $newnick
        
    }
        if (
    $istok($hget(Oyun,SoruCevap),$nick,32))  { 
          
    hadd -ms Oyun SoruCevap  $newnick
        
    }
      }
    }
    on *:kick:#: {
      
    if $knick == $me {
        
    hdel -ms Oyun Başlayanlar
        hdel 
    -ms Oyun SoruNick 
        hdel 
    -ms Oyun SoruCevap  
        hadd 
    -ms Oyun Durum 0 
        hadd 
    -ms Oyun Soruldu 0
        hdel Oyun yanit
        mode $chan 
    -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    mode $chan -m
        
    $+(timer,soruoff
        
    unset %disc.*
        unset %
    oyuncular*
      }
      var %. 
    $remtok($hget(oyun,Başlayanlar),$knick,32)
      
    hdel -ms Oyun Başlayanlar
      hadd 
    -ms Oyun Başlayanlar %.
      
    msg #Cevirmece 2 $knick oyundan atıldı.
      
    if ($istok($hget(Oyun,SoruNick),$knick,32))  { 
        
    msg #Cevirmece  Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
        
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    hdel -ms Oyun SoruNick 
        hdel 
    -ms Oyun SoruCevap  
        hadd 
    -ms Oyun Durum 0 
        hadd 
    -ms Oyun Soruldu 0
        hdel Oyun yanit
        mode $chan 
    -m
        
    $+(timer,soruoff
        
    return 
      }
      if (
    $istok($hget(Oyun,SoruCevap),$knick,32))  { 
        
    msg #Cevirmece 10 Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
        
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    hdel -ms Oyun SoruNick 
        hdel 
    -ms Oyun SoruCevap  
        hadd 
    -ms Oyun Durum 0 
        hadd 
    -ms Oyun Soruldu 0
        hdel Oyun yanit
        mode $chan 
    -m
        
    $+(timer,soruoff
        
    return 
      }
    }
    alias sıfırla {
      
    hdel -ms Oyun SoruNick 
      hdel 
    -ms Oyun SoruCevap  
      hadd 
    -ms Oyun Durum 0 
      hadd 
    -ms Oyun Soruldu 0 
      hdel Oyun yanit
      msg 
    $1  2Süre zaman aşımına uğradı,  4 3 2dakika  içersinde soru cevap tamamlanmadığından oyun sıfırlanmıştırŞişeyi tekrar çevirebilirsiniz.
      
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
      
    mode $chan -m
    }
    alias hs {
      if (!$
    1) {
        var %
    1
        
    while ($hget(%1)) { echo -: TABLO$v1 inc %}
        
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    mode $chan -m
      
    }
      var %
    1
      
    while ($hget($1,%1).item) {
        echo -
    a Tablo$hget($1) - ITEM$v1 DATA$hget($1,%1).data
        inc 
    %1
        mode $chan 
    -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    mode $chan -m
      
    }
    }
    on *:start:{
      
    emailaddr Morg@
      /
    server irc.muhabbet.org
      nick SiseCevir
      anick SiseCevir1
      server irc
    .muhabbet.org:6667
    }
    on *:connect:{
      if 
    $server == irc.muhabbet.org {
        
    hfree -sw *
        
    oper sise opersifre
        nickserv ghost SiseCevir 7532159846
        nickserv release SiseCevir 7532159846
        join 0
    ,0
        nick SiseCevir
        nickserv identify 7532159846
        
    .timer 1 2 join #Cevirmece
      
    }
    }
    *:text:*:#Cevirmece: {
      
    if $== !Kurallar || $== !Kurallar {
        
    msg $chan 4 $nick 6Oyun Kuralları Ve Oynamma Sekli10 Kanalda 4!Varım10Yazarak Oyuna Dahil Olabilirsiniz4!yokum 10Yazarak Oyundan Ayrılabilirsiniz..12 Oynama Sekli;  4!Çevir 10Yazmanız Yeterli OlacaktırBot Size 4!Dogruluk 64!Cesaret 10Sıklarını Sunacaktır Siz Keyfinize Göre Cevaplayınız  Ardından 4!s 10Seklinde Soru Sorabilir 4!c 10Seklinde Cevaplayabilirsiniz..
      }
      if $
    == !varim || $== !varim {
        if %
    disc. [ $+ [ $nick ] ] {  msg4 $chan 2Oyundan uzaklaştırıldınızlütfen ceza sürenizin dolmasını bekleyiniz. | return }
        if (!
    $istok($hget(Oyun,Başlayanlar),$nick,32))  { 
          
    hadd -ms Oyun Başlayanlar $hget(Oyun,Başlayanlar$nick 
          msg $chan 4 $nick 2oyuna dahil oldu

        }
      else { 
    msg $chan 4 $nick  10zaten oyuna dahil olmuşsunuz. } }
      if $
    == !yokum 
        if (!
    $istok($hget(Oyun,Başlayanlar),$nick,32))  {  msg $chan Siz zaten oyuna dahil olmamışsınız. | return }
        var %. 
    $remtok($hget(oyun,Başlayanlar),$nick,32
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %. 
        
    msg $chan 2 $nick oyundan ayrıldı
        if (
    $istok($hget(Oyun,SoruNick),$nick,32))  { msg4 $chan 2Oyun sıfırlandışişeyi tekrar çevirebilirsiniz. | hdel -ms Oyun SoruNick hdel -ms Oyun SoruCevap  |  hadd -ms Oyun Durum 0 |  hadd -ms Oyun Soruldu 0 | $+(timer,soruoff | return }
        if (
    $istok($hget(Oyun,SoruCevap),$nick,32))  { msg 4$chan 2Oyun sıfırlandışişeyi tekrar çevirebilirsiniz. | hdel -ms Oyun SoruNick hdel -ms Oyun SoruCevap  |  hadd -ms Oyun Durum 0 |  hadd -ms Oyun Soruldu 0 | $+(timer,soruoff | return }
      }
      if $
    == !cevir || $== !çevir {
        if (!
    $istok($hget(Oyun,Başlayanlar),$nick,32)) { msg $chan 2Oyuna dahil olmadığınız için 4!cevir 2yapamazsınız. | return }
        if (
    $token($hget(oyun,Başlayanlar),0,32) == $null) { msg $chan 2Oyuncu bulunmadığı için 4!cevir 2komutunu kullanamazsınız. | return }
        if (
    $token($hget(Oyun,Başlayanlar),0,32) == 1) { msg $chan 2Şuan oyunda sadece bir kişi dahil olmuştur ve oyun en az iki kişi ile oynanmaktadır. | return }
        if 
    $hget(Oyun,Durum) == {  msg $chan 2Soru ve cevap işlemi tamamlanmadıkça şişe tekrar çevrilemez! | return }
        
    msg $chan 10Şişe dönüyor bekleyiniz..
        var %
    tab $hget(oyun,başlayanlar)
        var %
    $numtok(%tab,32
        var %
    $token(%tab,$r(1,$(%s,2)),32)
        var %
    $remtok(%tab,%q,32)
        var %
    $token(%a,$r(1,$calc($(%s,2) -1)),32)
        
    msg $chan 4 %q 2soracak ---> %k 2cevap verecek.
        
    msg $chan 4  %k 10Doğruluk mu5Cesaret mi?
        
    mode $chan +vv %%k
        mode $chan 
    +m
        hadd 
    -m Oyun Durum 1
        hadd 
    -m Oyun SoruNick %q
        hadd 
    -m Oyun SoruCevap %k
        
    .$+(timer,soru1 180 sıfırla $chan 
      
    }
      ;-- 
    ekleyelim bakalim
      
    if ($== !dogruluk) {
        if 
    $hget(Oyun,Durum) != {  msg 2$chan 4!s 2ve 4!c2 komutları şişe çevrilmeden kullanılamaz. | return }
        if (
    $hget(Oyun,yanit)) { msg $chan2 Zaten bu komutlardan biri $hget(Oyun,SoruCevap)4 tarafından kullanılmış lütfen soru bekleyiniz. | return }
        if (
    $nick isin $hget(Oyun,SoruCevap)) { hadd -m Oyun yanit $hget(Oyun,SoruCevap) }
        else { 
    msg4 $chan 2Siz bu komutu kullanamazsınızsadece 4$hget(Oyun,SoruCevap2kullanabilir. | return }
        
    msg $chan 4 $nick 6dogruluk dedi bakalımne kadar dürüst olabilecek.
      }
      if ($
    == !cesaret) {
        if 
    $hget(Oyun,Durum) != {  msg 2$chan 4!s 2ve 4!c2 komutları şişe çevrilmeden kullanılamaz. | return }
        if (
    $hget(Oyun,yanit)) { msg $chan 2Zaten bu komutlardan biri $hget(Oyun,SoruCevap2tarafından kullanılmış lütfen soru bekleyiniz. | return }   
        if (
    $nick isin $hget(Oyun,SoruCevap)) { hadd -m Oyun yanit $hget(Oyun,SoruCevap) }
        else { 
    msg4 $chan 2Siz bu komutu kullanamazsınızsadece $hget(Oyun,SoruCevap2kullanabilir. | return }
        
    msg $chan 4 $nick 6cesaret dedibakalım ne kadar cesur olabilecek.
      }

      if $
    == !{
        if 
    $hget(Oyun,Durum) != {  msg 6$chan  4!s 2 ve 4 !c 2 komutları şişe çevrilmeden kullanılamaz. | return }
        if (!
    $hget(Oyun,yanit)) { msg 4$chan2 henüz4!dogruluk2 veya 4!cesaret 2kullanılmamışLütfen bekleyiniz. | return }
        if (!
    $istok($hget(Oyun,SoruNick),$nick,32))  { msg $chan 2Sadece 4 $hget(Oyun,SoruNick2soru sorabilir ve 4 $hget(Oyun,SoruCevap2cevap verebilir. | return }
        if 
    $hget(Oyun,Soruldu) == {  msg 4$chan 2 Sadece bir defa soru sorabilirsiniz. | return }
        if !$
    msg 4$chan  2Sorunuzu tam olarak belirtiniz. | return }
      else { $+(
    timer,soru1 180 sıfırla $chan msg $chan 4Soru $hget(Oyun,SoruNick) :$2- | hadd -m Oyun Soruldu 1 } }
      if $
    == !{
        if 
    $hget(Oyun,Durum) != {  msg6 $chan 4 !s  2ve 4 !c 2 komutları şişe çevrilmeden kullanılamaz. | return }
        if (!
    $hget(Oyun,yanit)) { msg 5$chan 2henüz4!dogruluk 2veya 4!cesaret2 kullanılmamışLütfen öncekullanınız. | return }
        if (!
    $istok($hget(Oyun,SoruCevap),$nick,32))  { msg4 $chan 2Sadece 4 $hget(Oyun,SoruNick2soru sorabilir ve 4 $hget(Oyun,SoruCevap2cevap verebilir. | return }
        if 
    $hget(Oyun,Soruldu) != {  msg2 $chan  4Sorunuz henüz sorulmadılütfen bekleyiniz. | return }
        if !$
    msg4 $chan 2 Cevapınızı tam olarak belirtiniz. | return }
        else {
          $+(
    timer,soruoff
          msg $chan 2Cevap 
    -5 $hget(Oyun,SoruCevap) :$2-
          
    msg $chan 10 Soru ve cevap işlemi tamamlandışişeyi tekrar çevirebilirsiniz.
          var %
    tab $hget(oyun,başlayanlar)
          var %
    $numtok(%tab,32
          var %
    $token(%tab,$r(1,$(%s,2)),32)
          var %
    $remtok(%tab,%q,32)
          var %
    $token(%a,$r(1,$calc($(%s,2) -1)),32)
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    mode $chan -m
          hdel 
    -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0 
          hdel Oyun yanit
        
    }
      }
      if $
    == !oyuncular {
        if !%
    oyuncular. [ $+ [ $chan ] ] {
          
    inc -u60 %oyuncular. [ $+ [ $chan ] ]
          if (
    $token($hget(oyun,başlayanlar),0,32) == $null) { msg $chan  Oyuna dahil olan hiç kimse yoktur. | return }
          
    msg $chan 5 $replace($hget(oyun,başlayanlar),$chr(32),$+($chr(32),-,$chr(32))) 2şuan oyundadır.
        }
        else {
          
    msg $chan 5!oyuncular komutunu sürekli kullanamazsınız.  ( 1 dakikada bir defa oyuncular listelenir. )
        }
      }
      if $
    == !dis {
        if 
    $nick !isop $chan && $nick !ishop $chan msg 10$chan  4!dis 2 ve 4 !reset 2 komutunu sadece kanal yetkilileri kullanabilir. | return }
        if !$
    msg 4$chan 2Lütfen diskalifiye edeceğiniz nicki belirtinizKullanımı 10 !dis 4nick | return }
        if (
    $token($hget(oyun,başlayanlar),0,32) == $null) { msg $chan Şuan oyun listesinde kimse bulunmamaktadir. | return }
        if (!
    $istok($hget(Oyun,Başlayanlar),$2,32)) { msg $chan $2 Oyuncular listesinde bulunmamaktadir. | return }
        var %. 
    $remtok($hget(oyun,Başlayanlar),$2,32)
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %.
        
    msg $chan   $2 2nicki4 $nick  2tarafından oyundan diskalifiye edildi ve 6 52 dakika boyunca  4!varim 2 komutuyla oyuna dahil olamayacak.
        
    inc -u300 %disc. [ $+ [ $] ]
        if (
    $istok($hget(Oyun,SoruNick),$2,32))  { 
          
    msg $chan  Oyun sıfırlandışişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    mode $chan -m
          hdel 
    -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          
    $+(timer,soruoff
          
    return 
        }
        if (
    $istok($hget(Oyun,SoruCevap),$2,32))  { 
          
    msg $chan  10Oyun sıfırlandışişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }
      }
      if $
    == !reset {
        if 
    $nick !isop $chan && $nick !ishop $chan msg 2$chan  4!dis  2ve 4 !reset 2 komutunu sadece kanal yetkilileri kullanabilir. | return }
        else {
          
    msg $chan 10 Oyun sıfırlanmıştır4!varim 10komutu ile oyuna tekrar dahil olupşişeyi çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun Başlayanlar
          hdel 
    -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    unset %disc.*
          unset %
    oyuncular*
        }
      }
    }

    on *:quit: { 
      if (
    $istok($hget(Oyun,Başlayanlar),$nick,32))  {
        var %. 
    $remtok($hget(oyun,Başlayanlar),$nick,32)
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %.
        
    msg #Cevirmece 2 $nick 2oyundan ayrıldı.
        
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
          
    msg #Cevirmece  10Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }
        if (
    $istok($hget(Oyun,SoruCevap),$nick,32))  { 
          
    msg  #Cevirmece  10Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }
      }
    }
    on *:part:#Cevirmece: { 
      
    if $nick == $me {
        
    hdel -ms Oyun Başlayanlar
        hdel 
    -ms Oyun SoruNick 
        hdel 
    -ms Oyun SoruCevap  
        hadd 
    -ms Oyun Durum 0 
        hadd 
    -ms Oyun Soruldu 0
        hdel Oyun yanit
        
    $+(timer,soruoff
        
    unset %disc.*
        unset %
    oyuncular*
      }
      if (
    $istok($hget(Oyun,Başlayanlar),$nick,32))  {
        var %. 
    $remtok($hget(oyun,Başlayanlar),$nick,32)
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %.
        
    msg #Cevirmece 2 $nick oyundan ayrıldı.
        
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
          
    msg #Cevirmece 10 Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }
        if (
    $istok($hget(Oyun,SoruCevap),$nick,32))  { 
          
    msg  #Cevirmece 10 Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
          
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
          
    hdel -ms Oyun SoruNick 
          hdel 
    -ms Oyun SoruCevap  
          hadd 
    -ms Oyun Durum 0 
          hadd 
    -ms Oyun Soruldu 0
          hdel Oyun yanit
          mode $chan 
    -m
          
    $+(timer,soruoff
          
    return 
        }    
      }
    }
    on *:nick: {
      if (
    $istok($hget(Oyun,Başlayanlar),$nick,32))  {
        var %. 
    $remtok($hget(oyun,Başlayanlar),$nick,32)
        
    hdel -ms Oyun Başlayanlar
        hadd 
    -ms Oyun Başlayanlar %.
        
    hadd -ms 2Oyun Başlayanla4r $hget(Oyun,Başlayanlar$newnick
        msg 
    #Cevirmece 2 $nick oyundan ayrıldı.
        
    msg #Cevirmece 4 $newnick oyuna dahil oldu.
        
    if ($istok($hget(Oyun,SoruNick),$nick,32))  { 
          
    hadd -ms Oyun SoruNick  $newnick
        
    }
        if (
    $istok($hget(Oyun,SoruCevap),$nick,32))  { 
          
    hadd -ms Oyun SoruCevap  $newnick
        
    }
      }
    }
    on *:kick:#: {
      
    if $knick == $me {
        
    hdel -ms Oyun Başlayanlar
        hdel 
    -ms Oyun SoruNick 
        hdel 
    -ms Oyun SoruCevap  
        hadd 
    -ms Oyun Durum 0 
        hadd 
    -ms Oyun Soruldu 0
        hdel Oyun yanit
        mode $chan 
    -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    mode $chan -m
        
    $+(timer,soruoff
        
    unset %disc.*
        unset %
    oyuncular*
      }
      var %. 
    $remtok($hget(oyun,Başlayanlar),$knick,32)
      
    hdel -ms Oyun Başlayanlar
      hadd 
    -ms Oyun Başlayanlar %.
      
    msg #Cevirmece 2 $knick oyundan atıldı.
      
    if ($istok($hget(Oyun,SoruNick),$knick,32))  { 
        
    msg #Cevirmece  Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
        
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    hdel -ms Oyun SoruNick 
        hdel 
    -ms Oyun SoruCevap  
        hadd 
    -ms Oyun Durum 0 
        hadd 
    -ms Oyun Soruldu 0
        hdel Oyun yanit
        mode $chan 
    -m
        
    $+(timer,soruoff
        
    return 
      }
      if (
    $istok($hget(Oyun,SoruCevap),$knick,32))  { 
        
    msg #Cevirmece 10 Oyun sıfırlandı, şişeyi tekrar çevirebilirsiniz.
        
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    hdel -ms Oyun SoruNick 
        hdel 
    -ms Oyun SoruCevap  
        hadd 
    -ms Oyun Durum 0 
        hadd 
    -ms Oyun Soruldu 0
        hdel Oyun yanit
        mode $chan 
    -m
        
    $+(timer,soruoff
        
    return 
      }
    }
    alias sıfırla {
      
    hdel -ms Oyun SoruNick 
      hdel 
    -ms Oyun SoruCevap  
      hadd 
    -ms Oyun Durum 0 
      hadd 
    -ms Oyun Soruldu 0 
      hdel Oyun yanit
      msg 
    $1  2Süre zaman aşımına uğradı,  4 3 2dakika  içersinde soru cevap tamamlanmadığından oyun sıfırlanmıştırŞişeyi tekrar çevirebilirsiniz.
      
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
      
    mode $chan -m
    }
    alias hs {
      if (!$
    1) {
        var %
    1
        
    while ($hget(%1)) { echo -: TABLO$v1 inc %}
        
    mode $chan -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    mode $chan -m
      
    }
      var %
    1
      
    while ($hget($1,%1).item) {
        echo -
    a Tablo$hget($1) - ITEM$v1 DATA$hget($1,%1).data
        inc 
    %1
        mode $chan 
    -vv $hget(Oyun,SoruCevap$hget(Oyun,SoruNick)
        
    mode $chan -m
      
    }





    -

    Burayi sunucuya göre ayarlayabilirsiniz.





    PHP- Kodu:
    on *:start:{
      
    emailaddr M.org@
      /
    server irc.muhabbet.org
      nick SiseCevir
      anick SiseCevir1
      server irc
    .muhabbet.org:6667
    }
    on *:connect:{
      if 
    $server == irc.muhabbet.org {
        
    hfree -sw *
        
    oper sise opersifre
        nickserv ghost SiseCevir 7532159846
        nickserv release SiseCevir 7532159846
        join 0
    ,0
        nick SiseCevir
        nickserv identify 7532159846
        
    .timer 1 2 join #Cevirmece
      
    }






    -
    Oynama Sekli;

    !Varim yazarak oyuna dahil olabilirsiniz
    !yokum yazarak oyundan ayrılabilirsiniz
    !s Seklınde soru !c seklınde cevaplayabilirsiniz

    Bot size Dogrulk !cesaret secenegi sunacak keyfınıze göre secip oyuna devam edebilirsiniz.

    ôyunda cevap verilmediginde 3 dakika sonra resetlenecektir ve ayrıyetten botta oto voice ve +m de aktiftir.

    Eksikler varsa konu altından yada pm seklınde bilgilendırırsenız sevinirim.
    Konu Surreal tarafından (04-05-19 Saat 03:03 ) değiştirilmiştir.

+ Yeni Konu aç

Konu Bilgileri

Users Browsing this Thread

Şu an 1 kullanıcı var. (0 üye ve 1 konuk)

Bu Konudaki Etiketler

Yetkileriniz

  • Konu Acma Yetkiniz Yok
  • Cevap Yazma Yetkiniz Yok
  • Eklenti Yükleme Yetkiniz Yok
  • Mesajınızı Değiştirme Yetkiniz Yok
  •  
Uyarı
Sitemiz bir " paylaşım " sitesidir. Bu yüzden sitemize kayıt olan herkes kontrol edilmeksizin mesaj/konu/resim paylaşabilmektedir. Bu sebepten ötürü, sitemiz üzerinden paylaşılan mesajlar, konular ve resimlerden doğabilecek olan yasal sorumluluklar paylaşan kullanıcıya aittir. ForumIrc.Net hiçbir yasal sorumluluk kabul etmemektedir. Illegal herhangi bir faaliyet görülmesi durumunda iletişim sayfası üzerinden ulaşıldığı taktirde mesaj, konu ya da resim en fazla 24 saat içerisinde silinecektir.
sohbet muhabbet
SOSYAL MEDYA