!bomba nick - !kes nick puanlı - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

fatal · 10 Kasım 2009, 15:20

Merhaba, tasarladığım botta forumdan bir arkadaşın yazmış olduğu kodu kullaniyorum.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

;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: Kodu kopyalamak için üzerine çift tıklayın!

<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

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

İyi forumlar...

fatal · 11 Kasım 2009, 13:56

Selam Difüzyon, ilginizi için teşekkür ederim. Yalnız; kodda bir hata var.

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


<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

eylenceli bişeye benziyo Paylaşım İçin tşkler.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

hayvan · 16 Ocak 2011, 17:10

kodda, kırmızı kısım eksik yazılmıs.
difüzyona oyun için tşk.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

belli bir süre sonra kod kullanılmıyor :S işlemiyor.

Difuzyon · 03 Nisan 2011, 23:08

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

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

İstediğin gibi gözüküyor.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

unpainful · 08 Nisan 2016, 00:07

Feragat Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

İstediğin gibi gözüküyor.

Kod: Kodu kopyalamak için üzerine çift tıklayın!

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

ilginiz için teşekkür ederim

PHP Kod: Kodu kopyalamak için üzerine çift tıklayın!


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

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
!rootekle nick !rootsil nick !root bot'a üzerinde nasil uygularım?	ircmsn	mIRC Scripting Sorunları	30	20 Temmuz 2012 18:15
!bomba nick	COMBOMAX	mIRC Scripting Sorunları	46	22 Şubat 2011 22:06
!bomba nick user kullanamasın	Voodo0183	mIRC Scripting Sorunları	12	02 Temmuz 2010 03:31
Nick renklendirici addon lazım sunucu sahibi nin nick rengi renkli olcak mesela	iCe-t	mIRC Scripting Sorunları	10	10 Kasım 2009 23:36
özelime gelen kayıtsız nick'e oto nick kaydetme komutu	aRiF	mIRC Scripting Sorunları	10	05 Mart 2009 23:14

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.