dedikodu , paparazzi botu - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

PoweR · 21 Mart 2009, 13:01

Selamlar . Eğlenceli ve güzel birşey gibi.

Bir server'de gördüğüm paparazzi botunu uygulamak istedim.

[12:42] <Bot> Bot, kullanma talimatı
[12:42] <Bot> !start
[12:42] <Bot> !stop
[12:42] <Bot> !list
[12:42] <Bot> !ekle mesaj gir
[12:42] <Bot> !sil Sıranumarası

#paparazzi@ kanalında !ekle mesaj yazınca Bir mesaj yazıyor ve bu mesajı #paparazzi kanalına yoluyor ve tabi numaralı birşekilde
mesela
#paparazzi@ kanalında

!ekle X ile W evlendi yazıyor
#paparazzi kanalına

[12:43] <@Bot> Sırano: 3/10: X ile W evlendi
[12:44] <@Bot> -
[12:44] <@Bot> Sırano: 4/10: A nicki B Nickine Çıkma teklif etti

falan yazıyor.

Bot #paparazzi@ kanalına giren nickin özeline
[12:42] <Bot> Bot, kullanma talimatı
[12:42] <Bot> !start
[12:42] <Bot> !stop
[12:42] <Bot> !list
[12:42] <Bot> !ekle mesaj gir
[12:42] <Bot> !sil Sıranumarası

yazacak

!stop deyince #paparazzi kanalına yazı yazmayacak !start deyince başlayacak

!list deyince haberleri listeleyecek..

Şimdiden teşekkürler.

Difuzyon · 21 Mart 2009, 19:12

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

on !*:join:#paparazzi@:{
  msg $nick Bot, kullanma talimatı
  msg $nick !start
  msg $nick !stop
  msg $nick !list
  msg $nick !ekle mesaj gir
  msg $nick !sil Sırano (ilk rakamı)
}
on *:text:*:#paparazzi@:{
  if $1 == !start { .timermagazin 0 5 magazinoku }
  if $1 == !stop { unset %magazin | .timermagazin off }
  if $1 == !list { play $chan magazin.txt 800 }
  if $1 == !ekle { msg $chan msj girildi. | write magazin.txt $2- }
  if $1 == !sil { msg $chan $2 nolu msj silindi. | write $+(-,dl,$2) magazin.txt }
}
alias magazinoku {
  if $lines(magazin.txt) == 0 { msg #paparazzi@ Hiç mesaj yok-mesaj ekle | .timermagazin off | halt }
  if !%magazin { Sırano: $+(1,/,$lines(magazin.txt),:,) msg #paparazzi $read(magazin.txt,1) | goto zıpzıp }
  msg #paparazzi Sırano: $+(%magazin,/,$lines(magazin.txt),:,) $read(magazin.txt,%magazin)
  :zıpzıp
  if %magazin == $lines(magazin.txt) { set -e %magazin 0 }
  msg #paparazzi -
  inc %magazin
}

Her !ekle , !sil komutlarını uyguladığında sıralama değişir.Ona göre hem !list ile hemde geçtiği mesajda durumu takip edersin.

İyi forumlar...

PoweR · 21 Mart 2009, 20:14

[19:58] <Ben> !list
[19:58] <b0t> selam falan
[19:58] <b0t> Bunla bu cıkıyor
[19:58] <b0t> bu buna aşık
herşey tamamda list yaparken numaraları yazmıyor ?

Difuzyon · 21 Mart 2009, 20:44

!list komutunun satırını aşağıdaki ile değiştirmelisin.

if $1 == !list { var %a 1 | while %a <= $lines(magazin.txt) { msg #paparazzi@ %a $+ ) $read(magazin.txt,%a) | inc %a } }

PoweR · 22 Mart 2009, 07:30

[07:14] <beN> !list
[07:14] <b0t> 1) selam falan
[07:14] <b0t> 2) Bunla bu cıkıyor
[07:14] <b0t> 3) bu buna aşık
[07:15] <ben> !sil 2
[07:15] <b0t> 2 nolu Haber silindi
[07:15] <Esrar> !sil 3
[07:15] <b0t> 3 nolu Haber silindi
[07:15] <Esrar> !list
[07:15] <b0t> 1) selam falan
[07:15] <b0t> 2) bu buna aşık

Bu düzeltilemezmi :s

CesuryureK · 22 Mart 2009, 09:09

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


on !*:join:#paparazzi@:{
  msg $nick Bot, kullanma talimatı
  msg $nick !start
  msg $nick !stop
  msg $nick !list
  msg $nick !ekle mesaj gir
  msg $nick !sil Sırano (ilk rakamı)
}
on *:text:*:#paparazzi@:{
  if $1 == !start { .timermagazin 0 5 magazinoku }
  if $1 == !stop { unset %magazin | .timermagazin off }
  if $1 == !list { 
    if ($lines(magazin.txt) == 0) { msg #paparazzi@ Liste Boş | /remove magazin.txt }
    else {
  var %a 1 | while %a <= $lines(magazin.txt) { msg #paparazzi@ %a $+ ) $read(magazin.txt,%a) | inc %a } } }
  if $1 == !ekle { msg $chan msj girildi. | write magazin.txt $2-  }
  if $1 == !sil { msg $chan $2 nolu msj silindi. | write -dl $2 magazin.txt   }
}
alias magazinoku {
  if $lines(magazin.txt) == 0 { msg #paparazzi@ Hiç mesaj yok-mesaj ekle | .timermagazin off | halt }
  if !%magazin { Sırano: $+(1,/,$lines(magazin.txt),:,) msg #paparazzi $read(magazin.txt,1) | goto zıpzıp }
  msg #paparazzi Sırano: $+(%magazin,/,$lines(magazin.txt),:,) $read(magazin.txt,%magazin)
  :zıpzıp
  if %magazin == $lines(magazin.txt) { set -e %magazin 0 }
  msg #paparazzi -
  inc %magazin
}

PoweR · 22 Mart 2009, 09:12

Teşekkürler CesuryureK
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

I Love you
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

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.