IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası
Sayfa 1 Toplam 3 Sayfadan 1 23
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 Sorunları (https://www.ircforumlari.net/mirc-scripting-sorunlari/)
-   -   !bomba nick - !kes nick puanlı (https://www.ircforumlari.net/mirc-scripting-sorunlari/291448-bomba-nick-kes-nick-puanli.html)

fatal 10 Kasım 2009 15:20
!bomba nick - !kes nick puanlı
 
Merhaba, tasarladığım botta forumdan bir arkadaşın yazmış olduğu kodu kullaniyorum.

Kod:
;Kanala yazılan yazılarda
on *:text:*:#bomba:{
  ;Eğer 1. kelime !bomba ise VE 2. kelime kanalda varolan bir nick ise VE %bombarenk isminde bir variables yoksa(Neden olmamasını istedim:Aynı anda 2. kez başlatılmasını engellemek için)
  if $1 == !bomba && $2 ison $chan && !%bombarenk {
    ;%bombaNick isminde bir değişken oluştur(Sebebi:Yazacak olan diğer nicklerle karışmasın)
    set $+(%,bomba,$2) $2
    ;%bombarenkler oluştur
    set %bombarenkler altin lacivert mavi kahverengi yesil kirmizi
    ;%bombarenkler 'den rastgele(1 2 3 4 5 6)  bir renk seç
    set %bombarenk $token(%bombarenkler,$rand(1,6),32)
    ;Zamanlayıcıyı başlat süre sonunda(32 sn) bilemezse\yanıtlamazsa kanaldan atılsın ve değişkenler silinsin
    $+(.,timer,$2) 1 32 cs kick $chan $nick Geç kaldın! 4BOOOOOOOOOOOOOOMBA1 patladı! :) $(|) unset %bomba*
    ;Kanala Belirtilen mesajı geç
    msg $chan Bombayı $2 isimli arkadaşın eline tutuşturur!. [32] Saniye içinde patlayacak!
    ;Kanala belirtilen mesajı geç
    msg $chan Bombayı etkisiz hale getirmek için 6 kablodan doğru olanı kesmelisin. Kablolar : altin lacivert mavi kahverengi yesil ve kirmizi. !kes renk
  }
  ;Eğer kanala yazan nick adına bir değişken varsa(yazan kişiyi doğrulamak adına) VE 1. kelimesi !kes ise
  if $var($+(%,bomba,$nick)) && $1 == !kes {
    ;Eğer 2. kelime rastgele seçilen renk ise(ki bu durumda doğru bulmuştur) , zamanlayıcıyı durdur ve kanal tebrik mesajı geç ve değişkenleri sil
    if $2 == %bombarenk { $+(.,timer,$nick) off | msg $chan $nick şimdilik kurtuldun bi dahaki sefere şanslı olmayabilirsin :) | unset %bomba* }
    ;Şayet 2. kelime doğru seçenek değilse ve aynı zamanda kanala yazdığı 2. kelime diğer renklerden biriyse zamanlayıcıyı durdur , kanaldan at ve değişkenleri sil
    elseif $istok($remtok(%bombarenkler,%bombarenk,32),$2,32) { $+(.,timer,$nick) off | cs kick $chan $nick Yanlış Kablo. 4*BOOOOOOOOOOM!* | unset %bomba* }
  }
}
Buna puan ekleyebilir miyiz?

Örnek;

Kod:
<Gaffur> uNuTuLMaZ şimdilik kurtuldun bi dahaki sefere şanslı olmayabilirsin :) Puanın: 150


*** Mustafa_ ChanServ Tarafından Kanaldan Atıldı (KICK by Gaffur (Geç kaldın! BOOOOOOOOOOOOOOMBA patladı! :) Puan: -20))


*** uNuTuLMaZ ChanServ Tarafından Kanaldan Atıldı (KICK by Gaffur (Yanlış Kablo. *BOOOOOOOOOOM!* Puanın: 600))

Difuzyon 10 Kasım 2009 22:40
Cevap: !bomba nick - !kes nick puanlı
 
Kod:
on @*:text:*:#:{
  if $1 == !bomba && $2 == $chan && !%bombarenk {
    set %bombarenkler altin lacivert mavi kahverengi yesil kirmizi
    set %bombarenk $token(%bombarenkler,$rand(1,6),32)
    set %bombacı $nick
    msg $chan $nicks($chan)
    msg $chan -
    msg $chan $qt($nick) kanala bombayı bırakır!04 [30] 01Saniye içinde patlayacak!
    msg $chan Bombayı etkisiz hale getirmek için 6 kablodan doğru olanı kesmelisiniz. Kablolar : altin lacivert mavi kahverengi yesil ve kirmizi. !kes renk
    $+(.,timer,$chan) 1 30 msg $chan 01Doğru kablo $qt(%bombarenk) .Geç kaldınız 4bOoOoOoomba1 patladı! $(|) .enable #bombardıman $(|) who $chan 
  }
  if $1 == !kes && $timer($chan) && $nick != %bombacı {
    if $2 == %bombarenk { $+(.,timer,$chan) off | msg $chan - | inc $+(%,puan,+,$nick) 200 | msg $chan Kanalın kahramanı  $nick .Hepinizi o kurtardı,tebrikler $nick :) 12(Puanın: $($+(%,puan,+,$nick),2) ) | msg $chan - | unset %bomba* }
    elseif $istok($remtok(%bombarenkler,%bombarenk,32),$2,32) { dec $+(%,puan,+,$nick) 50 | kick $chan $nick 1Yanlış kabloyu kestin!4 14(Puanın: $($+(%,puan,+,$nick),2) | msg $chan Bomba halen aktif ! }
  }
  if $1 == !bomba && $2 ison $chan && !%bombarenk && $2 != $me {
    set $+(%,bomba,$2) $2
    set %bombarenkler altin lacivert mavi kahverengi yesil kirmizi
    set %bombarenk $token(%bombarenkler,$rand(1,6),32)
    $+(.,timer,$2) 1 30 dec $+(%,puan,+,$2) 50 $(|) kick $chan $2 1Geç kaldın 4bOoOoOoomba1 patladı! 14(Puanın: $+(%,puan,+,$2) $(|) unset %bomba*
    msg $chan Bombayı $2 isimli arkadaşın eline tutuşturur!. [30] Saniye içinde patlayacak!
    msg $chan Bombayı etkisiz hale getirmek için 6 kablodan doğru olanı kesmelisin. Kablolar : altin lacivert mavi kahverengi yesil ve kirmizi. !kes renk
  }
  if $var($+(%,bomba,$nick)) && $1 == !kes {
    if $2 == %bombarenk { $+(.,timer,$nick) off | inc $+(%,puan,+,$nick) 100 | msg $chan $nick şimdilik kurtuldun bi dahaki sefere şanslı olmayabilirsin :) 12(Puanın: $($+(%,puan,+,$nick),2) ) | unset %bomba* }
    elseif $istok($remtok(%bombarenkler,%bombarenk,32),$2,32) { dec $+(%,puan,+,$nick) 50 | kick $chan $nick 1Yanlış Kabloo 4*BOOOOOOOOOOM!* 14(Puanın: $($+(%,puan,+,$nick),2) }
  }
}
alias nicks {
  var %i = 1
  while ($nick($1,%i)) {
    var %cenk = %cenk $nick($1,%i)
    inc %i
  }
  return %cenk
}
#bombardıman off
raw 352:*:haltdef | if !$istok(%bombacı $me,$6,32) { dec $+(%,puan,+,$6) 50 | raw -q kick $2 $6 1Bomba patladı 4*BOOOOOOOOOOM!* 14(Puanın: $($+(%,puan,+,$6),2) }
raw 315:*:haltdef | unset %bomba* | .disable #bombardıman
#bombardıman end
Oyun iki türlü oynanıyor,hatırlatayım ( !bomba #kanal yada !bomba nick )
Amaç birazda puan olduğu için tek kişilik oyunuda süre sonuna kadar bilmesini zorunda haline getirdim.Ayrıca #kanal'da kazanan 200 , tek kişilikte bilen 100 , yanlış işlemde ise -50 puandır.

Bu şekilde gözlemleyebildiğim eksiklikleri giderdim,güle güle oynayabilirsiniz :)

İyi forumlar...

fatal 11 Kasım 2009 13:56
Cevap: !bomba nick - !kes nick puanlı
 
Selam Difüzyon, ilginizi için teşekkür ederim. Yalnız; kodda bir hata var.

PHP- Kodu:
<ParadisoLa> !kes kirmizi
*** ParadisoLa Gaffur Tarafından Kanaldan Atıldı (Yanlış Kabloo *BOOOOOOOOOOM!* (Puanın: -650)
*** Giriş: ParadisoLa (uus@GlobalOP.Sohbete.NET)
<StaticRhyme> -650 allahtan kork la
<StaticRhyme> :D
*** ParadisoLa Gaffur Tarafından Kanaldan Atıldı (Geç kaldın bOoOoOoomba patladı! (Puanın: -250) 

By-|Realist 11 Kasım 2009 14:08
Cevap: !bomba nick - !kes nick puanlı
 
eylenceli bişeye benziyo Paylaşım İçin tşkler. :)

hayvan 16 Ocak 2011 17:10
Cevap: !bomba nick - !kes nick puanlı
 
kodda, kırmızı kısım eksik yazılmıs.
difüzyona oyun için tşk.

Kod:
on @*:text:*:#:{
if $1 == !bomba && $2 == $chan && !%bombarenk {
set %bombarenkler altin lacivert mavi kahverengi yesil kirmizi
set %bombarenk $token(%bombarenkler,$rand(1,6),32)
set %bombacı $nick
msg $chan $nicks($chan)
msg $chan -
msg $chan $qt($nick) kanala bombayı bırakır!04 [30] 01Saniye içinde patlayacak!
msg $chan Bombayı etkisiz hale getirmek için 6 kablodan doğru olanı kesmelisiniz. Kablolar : altin lacivert mavi kahverengi yesil ve kirmizi. !kes renk
$+(.,timer,$chan) 1 30 msg $chan 01Doğru kablo $qt(%bombarenk) .Geç kaldınız 4bOoOoOoomba1 patladı! $(|) .enable #bombardıman $(|) who $chan
}
if $1 == !kes && $timer($chan) && $nick != %bombacı {
if $2 == %bombarenk { $+(.,timer,$chan) off | msg $chan - | inc $+(%,puan,+,$nick) 200 | msg $chan Kanalın kahramanı  $nick .Hepinizi o kurtardı,tebrikler $nick :) 12(Puanın: $($+(%,puan,+,$nick),2) ) | msg $chan - | unset %bomba* }
elseif $istok($remtok(%bombarenkler,%bombarenk,32),$2,32) { dec $+(%,puan,+,$nick) 50 | kick $chan $nick 1Yanlış kabloyu kestin!4 14(Puanın: $($+(%,puan,+,$nick),2) | msg $chan Bomba halen aktif ! }
}
if $1 == !bomba && $2 ison $chan && !%bombarenk && $2 != $me {
set $+(%,bomba,$2) $2
set %bombarenkler altin lacivert mavi kahverengi yesil kirmizi
set %bombarenk $token(%bombarenkler,$rand(1,6),32)
$+(.,timer,$2) 1 30 dec $+(%,puan,+,$2) 50 $(|) kick $chan $2 1Geç kaldın 4bOoOoOoomba1 patladı! 14(Puanın: $+(%,puan,+,$2) $(|) unset %bomba*
msg $chan Bombayı $2 isimli arkadaşın eline tutuşturur!. [30] Saniye içinde patlayacak!
msg $chan Bombayı etkisiz hale getirmek için 6 kablodan doğru olanı kesmelisin. Kablolar : altin lacivert mavi kahverengi yesil ve kirmizi. !kes renk
}
if $var($+(%,bomba,$nick)) && $1 == !kes {
if $2 == %bombarenk { $+(.,timer,$nick) off | inc $+(%,puan,+,$nick) 100 | msg $chan $nick şimdilik kurtuldun bi dahaki sefere şanslı olmayabilirsin :) 12(Puanın: $($+(%,puan,+,$nick),2) ) | unset %bomba* }
elseif $istok($remtok(%bombarenkler,%bombarenk,32),$2,32) { $+(.,timer,$nick) off { dec $+(%,puan,+,$nick) 50 | kick $chan $nick 1Yanlış Kabloo 4*BOOOOOOOOOOM!* 14(Puanın: $($+(%,puan,+,$nick),2) }
}
}
alias nicks {
var %i = 1
while ($nick($1,%i)) {
var %cenk = %cenk $nick($1,%i)
inc %i
}
return %cenk
}
#bombardıman off
raw 352:*:haltdef | if !$istok(%bombacı $me,$6,32) { dec $+(%,puan,+,$6) 50 | raw -q kick $2 $6 1Bomba patladı 4*BOOOOOOOOOOM!* 14(Puanın: $($+(%,puan,+,$6),2) }
raw 315:*:haltdef | unset %bomba* | .disable #bombardıman
#bombardıman end

SystemTeqniC 03 Nisan 2011 13:59
Cevap: !bomba nick - !kes nick puanlı
 
belli bir süre sonra kod kullanılmıyor :S işlemiyor.

Difuzyon 03 Nisan 2011 23:08
Cevap: !bomba nick - !kes nick puanlı
 
Görebildiğim kadarıyla bu oyun oynanıyor.Sadece bu başlık altında değil 1-2 konu başlığı altında bu oyun hakkında çeşitli düzenlemeler mevcut.

Şayet kod belli bir süre sonra kullanılamaz hale gelmişse yapmanız gerekenler (aklıma gelen) :

a) Scriptinizin remote kısmında çakışan başka bir TEXT event'ı vardır,buna önlem almalısınız.
b) Düzeneği bir bomba uzmanına göstermelisiniz.

unpainful 07 Nisan 2016 22:15
Cevap: !bomba nick - !kes nick puanlı
 
Peki hiç bu kadar teferruata girmeyip bombayı elden ele dolaştırsak nasıl olabilir?
<Ahmet>!bomba Ali
<Bot>Ahmet bombayı alinin eline tutuşturdu!
<Ali>!bomba Sinan
<Bot>Ali bombayı sinanın eline tutuşurdu , patlamaya az kaldı..

Şeklinde , !bombayı ilk atanın süresinden itibaren ilk 30 saniyede bomba patlasa , yapılabilir mi?

Feragat 07 Nisan 2016 23:55
Cevap: !bomba nick - !kes nick puanlı
 
İstediğin gibi gözüküyor.

Kod:
msg $chan $qt($nick) kanala bombayı bırakır!04 [30] 01Saniye içinde patlayacak!

unpainful 08 Nisan 2016 00:07
Cevap: !bomba nick - !kes nick puanlı
 
Alıntı:
Feragat Nickli Üyeden Alıntı (Mesaj 1041764272)
İstediğin gibi gözüküyor.

Kod:
msg $chan $qt($nick) kanala bombayı bırakır!04 [30] 01Saniye içinde patlayacak!
ilginiz için teşekkür ederim

PHP- Kodu:
on $*:text:/[!.]bomba\s+\S/SAi:#: {
msg $chan $qt($nick) kanala bombayı bırakır!04 [30] 01Saniye içinde patlayacak! 
şeklinde mi yapmam gerekiyor? böyle biraz saçma oldu sanki yapamadım ;s


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 11:09.
Sayfa 1 Toplam 3 Sayfadan 1 23
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