IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Scripting Hazır Kodlar (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/)
-   -   !sor Nick - mIRC Eğlence (https://www.ircforumlari.net/mirc-scripting-hazir-kodlar/771743-sor-nick-mirc-eglence.html)

Mecnun 21 Nisan 2017 04:50
!sor Nick - mIRC Eğlence
 
Merhabalar arkadaşlar tamamiyle bana ait olan bir kodu paylaşmak istedim. Birazcık sallamasyon ama idare edersiniz artık. Bu kod için birazcık acemi kaldım @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] ve önerileri sağolsunlar beni yine yanıltmadılar gerçekten teşekkür ederim kendisine. Bende emeği fazladır, bunu yapmamda yol gösterenim kendisidir. Fazla söze gerek yok, kodun işlevi;

[04:43:38] <Luke> !sor Mecnun
[04:43:39] <Channel> Mecnun Luke tarafından sana soru soruldu.
[04:43:39] <Channel> Yapmanız gereken tek şey !tek ya da !cift yazmak. Tabii ödlekseniz !pas yazma imkanınız var.
[04:43:43] <Mecnun> !tek
[04:43:44] <Channel> Cevap yanlış.
[04:43:44] <Channel> Luke hadi yine iyisin şimdilik şanslısın.


Biraz yüzeysel paylaşsamda üzerinde oynama yaparak kullanabilirsiniz. Hayırlı IFLer.


Kod:
on *:text:*:#: {
  if $1 == !sor {
    set %sormk $nick
    set %srmk $2
    if !$2 { msg $chan $nick 2Hatalı Kullanım; Nick Belirtmediniz... "!sor Mecnun" | return }
    if $2 == $me { msg $chan 2Bana soru soramazsın $+ 4 $nick | return }
    if $2 == $nick { msg $chan 2Kendine neden soru sormaya çalışıyorsun deli misin $+ 4 $nick | return }
    if $2 ison $chan {
      msg $chan $2 $nick 2tarafından sana soru soruldu.
      msg $chan 2Yapmanız gereken tek şey 4!tek 2ya da 4!cift 2yazmak. Tabii ödlekseniz 4!pas 2yazma imkanınız var.
    }
    else { msg $chan $nick Hatalı Kullanım; $2 Nicki Şuan Kanalda Bulunmuyor.... }
  }
  if $1 == !tek {
    if $nick == %srmk {
      var %hea = $iif(2 // $rand(1,6),cift,degil), %heaa = cift
      if (%hea == %heaa) { goto skt }
      else { goto tbr }
      :skt
      msg $chan 2Cevap yanlış.
      msg $chan %sormk 2hadi yine iyisin şimdilik şanslısın.
      sapart $chan %srmk
      mode $chan +v %sormk
      unset %sira %sormk %srmk %x
      return
      :tbr
      msg $chan  2Doğru bildin. 4 %srmk
      mode $chan +v %srmk
      sapart $chan %1
      unset %sira %sormk %srmk %x
    }
    else { msg $chan $nick 4Size sorulan bir soru yok. }
  }
  if $1 == !cift {
    if $nick == %srmk {
      var %hea = $iif(2 // $rand(1,6),cift,degil), var %heaa = cift
      if (%hea == %heaa) { goto tbr }
      else { goto skt }
      :tbr
      msg $chan 2Doğru sayın 4 $v2
      msg $chan 2hadi yine iyisin şimdilik şanslısın.
      sapart $chan %sormk
      mode $chan +v %srmk
      unset %sira %sormk %srmk %x
      return
      :skt
      msg $chan  2Yanlış 4 %srmk
      sapart $chan %srmk
      unset %sira %sormk %srmk %x
    }
    else { msg $chan $nick 4Size sorulan bir soru yok. }
  }

Set 22 Nisan 2017 17:25
Cevap: !sor Nick - mIRC Eğlence
 
Eline saglik @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] :)

Mecnun 22 Nisan 2017 18:46
Cevap: !sor Nick - mIRC Eğlence
 
Teşekkürler @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sayende :)

Kerem 23 Nisan 2017 02:40
Cevap: !sor Nick - mIRC Eğlence
 
Eline Saglik @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] abicigim

Mecnun 23 Nisan 2017 04:02
Cevap: !sor Nick - mIRC Eğlence
 
@Kerem teşekkür ederim abi ;o

KivanC 25 Nisan 2017 02:03
Cevap: !sor Nick - mIRC Eğlence
 
Ellerine Saglik kardesim.. (KivanC)

Mecnun 25 Nisan 2017 05:49
Cevap: !sor Nick - mIRC Eğlence
 
@Sky-bLue sağolasın toprağım.

Kodun son hali;

Kod:
on *:text:*:#: {
  if $regex($1,/^([.!]sor)/Si) {
    if %sormk || %srmk { msg $chan Şuan %sormk nicki %srmk nicki ile oyunda.... | return }
    if !$2 { msg $chan $nick 2Hatalı Kullanım; Nick Belirtmediniz... "!sor Mecnun" | return }
    if $2 == $me { msg $chan 2Bana soru soramazsın $+ 4 $nick | return }
    if $2 == Mecnun { msg $chan 4 $2 2reyiz soru kabul etmiyor. | return }
    if $2 == $nick { msg $chan 2Kendine neden soru sormaya çalışıyorsun deli misin $+ 4 $nick | return }
    if $2 ison $chan {
      set %sormk $nick
      set %srmk $2
      msg $chan $2 - $+ 4 $nick 2tarafından sana soru soruldu.
      msg $chan 2Yapmanız gereken tek şey 4!tek 2ya da 4!cift 2yazmak. Tabii ödlekseniz 4!pas(Aktiftir.) 2yazma imkanınız var.
    }
    else { msg $chan 4 $+ $nick 2Hatalı Kullanım; $+ 4 $2 2Nicki Şuan Kanalda Bulunmuyor.... }
  }
  if $regex($1,/^([.!]tek)/Si) {
    if $nick == %srmk {
      var %hea = $iif(2 // $rand(1,6),cift,degil), %heaa = cift, %heaaa = tek
      if (%hea == %heaa) { goto skt }
      else { goto tbr }
      :skt
      msg $chan 2Tahminin yanlış sayı $v2 ti $+ 4 %srmk
      msg $chan %sormk 2Hadi yine iyisin şimdilik şanslısın.
      sapart %srmk $chan | msg %srmk 2Yanlış cevap verdin biliyorsun dimi4? | sajoin %srmk $chan
      mode $chan +v %sormk
      unset %sira %sormk %srmk %x
      return
      :tbr
      msg $chan  2Tebrikler $+ 4 %srmk $+ . 2Cevabın doğru.
      sapart %sormk $chan | msg %sormk 2Doğru cevap verildi biliyorsun dimi4? | sajoin %sormk $chan
      mode $chan +v %srmk
      unset %sira %sormk %srmk %x
    }
    else { msg $chan $nick 4Size sorulan bir soru yok. }
  }
  if $regex($1,/^([.!][çc][iIıİ]ft)/Si) {
    if $nick == %srmk {
      var %hea = $iif(2 // $rand(1,6),cift,degil), var %heaa = cift, %heaaa = tek
      if (%hea == %heaa) { goto tbr }
      else { goto skt }
      :tbr
      msg $chan 2Tahminin doğ sayın $v2 ti $+ 4 %srmk
      msg $chan 2Hadi yine iyisin şimdilik şanslısın.
      sapart %sormk $chan | msg %sormk 2Yanlış cevap verdiğini biliyorsun dimi4? | sajoin %sormk $chan | mode $chan +v %srmk
      unset %sira %sormk %srmk %x
      return
      :skt
      msg $chan 2Tahminin yanlış sayı $v2 ti $+ 4 %srmk
      msg $chan %sormk 2Hadi yine iyisin şimdilik şanslısın.
      sapart %srmk $chan | msg %srmk 2Cevap doğru değildi biliyorsun dimi4? | sajoin %srmk $chan
      unset %sira %sormk %srmk %x
    }
    else { msg $chan $nick 4Size sorulan bir soru yok. }
  }
  if $regex($1,/^([.!]pas)/Si) {
    if $nick == %srmk {
      unset %sira %sormk %srmk %x
      msg $chan $nick 2tam bir ödleksin. cezanı çek şimdi. | msg $nick 2Tarih korkakları yazmaz. | sapart $nick $chan | sajoin $nick $chan
      msg $chan 2Oyun sıfırlanmıştır. Bot ile alakalı 4sorun, istek, öneri 2gibi dileklerinizi 4Mecnun 2nickine iletebilirsiniz.
    }
    else { msg $chan $nick 4Daha soru bile sormamışlar korkak tavuk seni. }
  }

Syst3m 25 Nisan 2017 07:30
Cevap: !sor Nick - mIRC Eğlence
 
Mecnun eline sağlık kardeşim.

Che 25 Nisan 2017 17:55
Cevap: !sor Nick - mIRC Eğlence
 
Eline sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mecnun 25 Nisan 2017 17:56
Cevap: !sor Nick - mIRC Eğlence
 
@Syst3m seni bu bölümde görmek güzel abi. Hoş geldin, teşekkürler :d @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] sağolasın kardeşim.


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:40.
Sayfa 1 Toplam 2 Sayfadan 1 2
Konuya ait 40 Mesajı başka Sayfada göster

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk