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 Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   !Zar kodu lazim (https://www.ircforumlari.net/mirc-parca-kodlar/809168-zar-kodu-lazim.html)

Ambargo41 23 Aralık 2018 12:12
!Zar kodu lazim
 
Arkadaşlar çalışan bir alias olan varsa paylaşabilirmi bendeki yazıları eksin çıkıyor

[11:24:21] <Guard> Senin sayın 5...
[11:24:22] <Guard> Üzgünüm Turk kazanamadın. Tekrar dene!
[11:24:23] <Guard> Bu şansızlıkla ancak

böyle sallıyoruz zarları felan demiyor

birde bomba kodu varsa bu ikiside çalışmıyor

KraLaz 26 Aralık 2018 15:20
Cevap: !Zar kodu lazim
 
Zar kodu mirc ana dizine hediyever.txt diye not defteri aç içine hediyelerini alt alta yaz.

PHP- Kodu:
on *:text:!zar:#: {
  var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt)
  if (%rand == %rand2) { goto kazandi }
  else { goto kaybetti }
  :kazandi
  msg # 4 $nick 2bugun sansli gününüz,4 Kazandiniz. 2Zarlariniz ->4 %rand - %rand2 
  msg # 4 $nick 2hediyeniz ->4 %hediye
  return
  :kaybetti
  msg # 4 $nick 2bugün şansınız yok,4 Kaybettiniz. 2Zarlariniz ->4 %rand - %rand2 
  msg # 4 $nick 2daha sonra tekrar deneyiniz.
} 

Ambargo41 26 Aralık 2018 22:39
Cevap: !Zar kodu lazim
 
Alıntı:
kralaz Nickli Üyeden Alıntı (Mesaj 1042014980)
Zar kodu mirc ana dizine hediyever.txt diye not defteri aç içine hediyelerini alt alta yaz.

PHP- Kodu:
on *:text:!zar:#: {
  var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt)
  if (%rand == %rand2) { goto kazandi }
  else { goto kaybetti }
  :kazandi
  msg # 4 $nick 2bugun sansli gününüz,4 Kazandiniz. 2Zarlariniz ->4 %rand - %rand2 
  msg # 4 $nick 2hediyeniz ->4 %hediye
  return
  :kaybetti
  msg # 4 $nick 2bugün şansınız yok,4 Kaybettiniz. 2Zarlariniz ->4 %rand - %rand2 
  msg # 4 $nick 2daha sonra tekrar deneyiniz.
} 

on *:text:!zar:#: {

var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt)

if (%rand == %rand2) { goto kazandi }

else { goto kaybetti }

:kazandi

msg # 4 $nick 2Sallıyoruz zarları

msg # 4 $nick 2Haydi Kemik

msg # 4 $nick 2bugun sansli gününüz,4 Kazandiniz. 2Zarlariniz ->4 %rand - %rand2

msg # 4 $nick 2hediyeniz ->4 %hediye

return

:kaybetti

msg # 4 $nick 2Sallıyoruz zarları

msg # 4 $nick 2Haydi Kemik

msg # 4 $nick 2bugün şansınız yok,4 Kaybettiniz. 2Zarlariniz ->4 %rand - %rand2

msg # 4 $nick 2daha sonra tekrar deneyiniz.

}
böyle yaptım ama buna aynı nick kullanırsa 1 dakika içinde zar sallayamazsınız nasıl ekleriz aynı nick 1 dk içinde peş peşe kullanmasın istiyorum ?
Yardımın için tşkler şimdiden

YouMyCure 27 Aralık 2018 09:46
Cevap: !Zar kodu lazim
 
Alıntı:
Ambargo41 Nickli Üyeden Alıntı (Mesaj 1042015177)
on *:text:!zar:#: {

var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt)

if (%rand == %rand2) { goto kazandi }

else { goto kaybetti }

:kazandi

msg # 4 $nick 2Sallıyoruz zarları

msg # 4 $nick 2Haydi Kemik

msg # 4 $nick 2bugun sansli gününüz,4 Kazandiniz. 2Zarlariniz ->4 %rand - %rand2

msg # 4 $nick 2hediyeniz ->4 %hediye

return

:kaybetti

msg # 4 $nick 2Sallıyoruz zarları

msg # 4 $nick 2Haydi Kemik

msg # 4 $nick 2bugün şansınız yok,4 Kaybettiniz. 2Zarlariniz ->4 %rand - %rand2

msg # 4 $nick 2daha sonra tekrar deneyiniz.

}
böyle yaptım ama buna aynı nick kullanırsa 1 dakika içinde zar sallayamazsınız nasıl ekleriz aynı nick 1 dk içinde peş peşe kullanmasın istiyorum ?
Yardımın için tşkler şimdiden
mirc için
Kod:
on *:text:*:#: {
  if $regex($1,/([.!]zar)/Si)  {
    if $hget(zar,$nick) { notice $nick 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
    var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt)
    hinc -mu1 zar $nick
    if (%rand == %rand2) { goto kazandi }
    else { goto kaybetti }
    :kazandi
    msg # 4 $nick 2Sallıyoruz zarları
    msg # 4 $nick 2Haydi Kemik
    msg # 4 $nick 2bugun sansli gününüz,4 Kazandiniz. 2Zarlariniz ->4 %rand - %rand2
    msg # 4 $nick 2hediyeniz ->4 %hediye
    return
    :kaybetti
    msg # 4 $nick 2Sallıyoruz zarları
    msg # 4 $nick 2Haydi Kemik
    msg # 4 $nick 2bugün şansınız yok,4 Kaybettiniz. 2Zarlariniz ->4 %rand - %rand2
    msg # 4 $nick 2daha sonra tekrar deneyiniz.
  }
}
socket;

Kod:
if $regex($remove($4,:),/([.!]zar)/Si)  {
  if $hget(zar,$_nick($1)) { swextrabot notice $_nick($1) 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
  swextrabot privmsg $3 Attığın zarı tarif et $+($_nick($1),...)
  swextrabot privmsg $_botchan $_nick($1) $3 kanalında .zar $5 komutunu kullandı.
  if !$hget(zar) { hmake zar }
  hinc -mu1 zar $_nick($1)
  var %dice $rand(1,6)
  var %dice2 $rand(1,6)
  swextrabot privmsg $3 2Senin zarların $+(%dice,-,%dice2)
  if (%dice == %dice2) {
    swextrabot privmsg $3 Kazandın! Tebrikler $+($_nick($1),!)
    swextrabot privmsg $3 4Hediyen: $+(2,$read(hediye.txt))
  }
  elseif (%dice != $dice2) {
    swextrabot privmsg $3 Üzgünüm $+($_nick($1),$chr(32)) kazanamadın. Tekrar dene!
  }
}
Bomba kodu için ->
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ambargo41 27 Aralık 2018 20:53
Cevap: !Zar kodu lazim
 
usta kod bir dk da gene aynı kişi kullanıyor olmadı sanırım

Alper 27 Aralık 2018 21:20
Cevap: !Zar kodu lazim
 
@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]


hinc -mu1 zar $nick



yukardaki ifadeyi



hinc -mu60 zar $nick



olarak değiştir


-u dan sonraki değer saniyeyi belirtir.

Ambargo41 27 Aralık 2018 21:42
Cevap: !Zar kodu lazim
 
usta yaptım ama gene yazıyor birdakika içinde ben yapamadım yada kodu tam yazarmısınız komple

YouMyCure 28 Aralık 2018 09:39
Cevap: !Zar kodu lazim
 
Alıntı:
Ambargo41 Nickli Üyeden Alıntı (Mesaj 1042015585)
usta yaptım ama gene yazıyor birdakika içinde ben yapamadım yada kodu tam yazarmısınız komple
Kod:
on *:text:*:#: {
  if $regex($1,/([.!]zar)/Si)  {
    if $hget(zar,$nick) { notice $nick 1 Dakika içersinde, Yalnız 1 defa [!]zar Komutunu Kullanabilirsiniz. | return }
    var %rand $rand(1,6), %rand2 $rand(1,6), %hediye $read(hediyever.txt)
    hinc -mu160 zar $nick
    msg # $nick Sallıyoruz zarları
    msg # $nick Haydi Kemik
    if (%rand == %rand2) { goto kazandi }
    else { goto kaybetti }
    :kazandi
    msg # $nick bugun sansli gününüz, Kazandiniz. 2Zarlariniz -> %rand - %rand2
    msg # $nick hediyeniz -> %hediye
    return
    :kaybetti
    msg #  $nick bugün şansınız yok, Kaybettiniz. Zarlariniz -> %rand - %rand2
    msg #  $nick daha sonra tekrar deneyiniz.
  }
}
renk karakterlerini tekrar düzenlemen gerekir..

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Ambargo41 28 Aralık 2018 20:07
Cevap: !Zar kodu lazim
 
tşk ederim eline saglık

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:07 -->-> Daha önceki mesaj 18:53 --

tşk ederim eline saglık uta birde bu bomba oyununda !kes mavi diyorum yanlış renk diyor sonra başka rengi seçiyorum gene yanliş renk diyor üçüncüye !kes yesil yaptıgımda bomba sizde değil diyor bombayı alanda yok patlatmıyorda buna bakabilirmisiniz



Kod:
on *:text:*:#: {
  if $regex($1,/([.!]bomba)/Si) {
    if %bombaci_nick {
      msg $chan $chr(3) $+ 4 $+ Bomba Şuanda Aktif Durumda.
      return
    }
    set %bomba_renkler altin gri mavi siyah yesil kirmizi
    set %bomba_renk $token(%bomba_renkler,$rand(1,6),32)
    if $istok($me $nick,$2,32) {
      msg $chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ $nick $+ $chr(2)
      return
    }
    if !$2 {
      msg $chan $chr(2) $+ $nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
      return
    }
    if $2 !ison $chan {
      msg $chan $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)
    }
    elseif $2 ison $chan {
      msg $chan $chr(2) $+ $nick $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ $2 $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
      msg $chan $chr(3) $+ 5 $+ Bomba Aktif. Son $+ $chr(3) $+ 4 30 $chr(3) $+ 5 $+ Saniye. $chr(3) $+ 4 $+ Zaman İşLiyor... Tik Tak Tik Tak...
      msg $chan $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
      msg $chan -
      msg $chan $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
      .set %dinchan $chan
      .timerbomba 1 30 patlat
      set %bomba_nick $2
      set %bombaci_nick $nick
      set %bombaci_nick $addtok(%bombaci_nick,$+($2),32)
    }
  }
  if $regex($1,/([.!]at)/Si) {
    if ($nick == %bomba_nick) {
      if $istok($me $nick,$2,32) {
        msg $chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ $nick $+ $chr(2)
        return
      }
      if !$2 {
        msg $chan $chr(2) $+ $nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
        return
      }
      if $2 !ison $chan {
        msg $chan $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)
      }
      elseif $2 ison $chan {
        if ($2 isin %bombaci_nick) {
          msg $chan $chr(2) $+ $2 $+ $chr(2) $chr(3) $+ 4 $+ Daha Önce Bombadan Kurtulmuş. Başkasına Doğru At $chr(2) $+ $nick $+ $chr(2)
          return
        }
        msg $chan $chr(2) $+ $nick $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ $2 $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
        msg $chan $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
        msg $chan -
        msg $chan $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
        set %bomba_nick $2
        set %bombaci_nick $addtok(%bombaci_nick,$+($2),32)
      }
    }
    else {
      msg $chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
    }
  }
  if $regex($1,/([.!]kes)/Si) {
    if ($nick == %bomba_nick) {
      if ($2 == %bomba_renk) {
        .timerbomba off
        msg $chan -
        msg $chan $chr(3) $+ 5 $+ Kanalın Kahramanı $+ $chr(3) $chr(2) $+ $nick $+ $chr(2) $+ . $chr(3) $+ 5 $+ Kendini Bombadan Kurtardı. Tebrikler, $+ $chr(3) $chr(2) $+ $nick $+ $chr(2) $+ . :) 
        msg $chan -
        unset %bomba_*
        unset %bombaci_*
        unset %dinchan
      }
      elseif $istok($remtok(%bomba_renkler,%bomba_renk,32),$2,32) {
        msg $chan $chr(2) $+ $nick $+ $chr(2) $+ .  $chr(3) $+ 4 $+ Yanlış Renk!
        msg $chan $chr(3) $+ 5 $+ Bombanın PatLamasına Saniyeler Kaldı.!
      }
    }
    else {
      msg $chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
    }
  }
}
alias -l patlat {
  .kick %dinchan %bomba_nick Seni Uyardım, Bomba Elinde PatLadı. $chr(2) $+ BOOOOM!
  .unset %bomba_*
  .unset %bombaci_*
  .unset %dinchan
}

YouMyCure 29 Aralık 2018 14:25
Cevap: !Zar kodu lazim
 
Alıntı:
Ambargo41 Nickli Üyeden Alıntı (Mesaj 1042015872)
tşk ederim eline saglık

--IRCForumlari.NET ; Flood Engellendi -->-> Yeni yazılan mesaj 19:07 -->-> Daha önceki mesaj 18:53 --

tşk ederim eline saglık uta birde bu bomba oyununda !kes mavi diyorum yanlış renk diyor sonra başka rengi seçiyorum gene yanliş renk diyor üçüncüye !kes yesil yaptıgımda bomba sizde değil diyor bombayı alanda yok patlatmıyorda buna bakabilirmisiniz



Kod:
on *:text:*:#: {
  if $regex($1,/([.!]bomba)/Si) {
    if %bombaci_nick {
      msg $chan $chr(3) $+ 4 $+ Bomba Şuanda Aktif Durumda.
      return
    }
    set %bomba_renkler altin gri mavi siyah yesil kirmizi
    set %bomba_renk $token(%bomba_renkler,$rand(1,6),32)
    if $istok($me $nick,$2,32) {
      msg $chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ $nick $+ $chr(2)
      return
    }
    if !$2 {
      msg $chan $chr(2) $+ $nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
      return
    }
    if $2 !ison $chan {
      msg $chan $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)
    }
    elseif $2 ison $chan {
      msg $chan $chr(2) $+ $nick $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ $2 $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
      msg $chan $chr(3) $+ 5 $+ Bomba Aktif. Son $+ $chr(3) $+ 4 30 $chr(3) $+ 5 $+ Saniye. $chr(3) $+ 4 $+ Zaman İşLiyor... Tik Tak Tik Tak...
      msg $chan $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
      msg $chan -
      msg $chan $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
      .set %dinchan $chan
      .timerbomba 1 30 patlat
      set %bomba_nick $2
      set %bombaci_nick $nick
      set %bombaci_nick $addtok(%bombaci_nick,$+($2),32)
    }
  }
  if $regex($1,/([.!]at)/Si) {
    if ($nick == %bomba_nick) {
      if $istok($me $nick,$2,32) {
        msg $chan $chr(3) $+ 4 $+ Bana Veya Kendinize Bomba Atamazsınız. $chr(2) $+ $nick $+ $chr(2)
        return
      }
      if !$2 {
        msg $chan $chr(2) $+ $nick $+ $chr(2) $chr(3) $+ 4 $+ Lütfen Nick Belirtin. $+ $chr(3)
        return
      }
      if $2 !ison $chan {
        msg $chan $chr(3) $+ 4 $+ Belirtilen Nick KanaLda Bulunmuyor. $+ $chr(3)
      }
      elseif $2 ison $chan {
        if ($2 isin %bombaci_nick) {
          msg $chan $chr(2) $+ $2 $+ $chr(2) $chr(3) $+ 4 $+ Daha Önce Bombadan Kurtulmuş. Başkasına Doğru At $chr(2) $+ $nick $+ $chr(2)
          return
        }
        msg $chan $chr(2) $+ $nick $+ $chr(2) $+ , $chr(3) $+ 5 $+ Bombayı Aldı. $+ $chr(3) $chr(2) $+ $2 $+ $chr(2) $+ $chr(3) $+ 5 $+ 'e Doğru Attı Ya Rengi Bil TeLi Kes, Ya At Kurtul.
        msg $chan $chr(3) $+ 7 $+ $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ at nick $+ $chr(93) $chr(3) $+ 7 $+ Birine Atıp KurtuL. $chr(41) - $chr(40) $chr(3) $+ 2 $+ $chr(91) $+ $chr(33) $+ kes renk $+ $chr(93) $chr(3) $+ 7 $+ Rengi BiL TeLi Kes KurtuL. $chr(41)
        msg $chan -
        msg $chan $chr(3) $+ 5 $+ Bombanın Üzerindeki TeL RenkLeri : $chr(3) $+ 7 $+ altin $chr(3) $+ 14 $+ gri $chr(3) $+ 12 $+ mavi $chr(3) $+ 1 $+ siyah $chr(3) $+ 3 $+ yesil $chr(3) $+ 4 $+ kirmizi
        set %bomba_nick $2
        set %bombaci_nick $addtok(%bombaci_nick,$+($2),32)
      }
    }
    else {
      msg $chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
    }
  }
  if $regex($1,/([.!]kes)/Si) {
    if ($nick == %bomba_nick) {
      if ($2 == %bomba_renk) {
        .timerbomba off
        msg $chan -
        msg $chan $chr(3) $+ 5 $+ Kanalın Kahramanı $+ $chr(3) $chr(2) $+ $nick $+ $chr(2) $+ . $chr(3) $+ 5 $+ Kendini Bombadan Kurtardı. Tebrikler, $+ $chr(3) $chr(2) $+ $nick $+ $chr(2) $+ . :) 
        msg $chan -
        unset %bomba_*
        unset %bombaci_*
        unset %dinchan
      }
      elseif $istok($remtok(%bomba_renkler,%bomba_renk,32),$2,32) {
        msg $chan $chr(2) $+ $nick $+ $chr(2) $+ .  $chr(3) $+ 4 $+ Yanlış Renk!
        msg $chan $chr(3) $+ 5 $+ Bombanın PatLamasına Saniyeler Kaldı.!
      }
    }
    else {
      msg $chan $chr(3) $+ 4 $+ Bomba Şuan Sizde Değil.
    }
  }
}
alias -l patlat {
  .kick %dinchan %bomba_nick Seni Uyardım, Bomba Elinde PatLadı. $chr(2) $+ BOOOOM!
  .unset %bomba_*
  .unset %bombaci_*
  .unset %dinchan
}
Kod:
elseif $istok($remtok(%bomba_renkler,%bomba_renk,32),$2,32) {
bu satırı

Kod:
else {
yap


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 07:54.
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 - 2026, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2025 IRCForumlari.Net Sparhawk