Acil bakarmısınız arkadaşlar [IRC Reklam bot] - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

sedar · 20 Ocak 2012, 09:36

Merhaba arkadaşlar benim sizden ufak bir ricam olucaktı..
Bir reklam botu lazım bana Şunun gibi
Reklam1 [Hosting falan 20$]
Reklam2 [Ts3 Server 20$]
Reklam3
Reklam4
Reklam5

Bunları belirlediğim bir kanala Saat'te bir defa olarak kanala yazıcak
Ama Hepsini bianda yazmasın yani ;

Reklam1'i yazıyor 1 saniye sonra Reklam2 yi yazıyor şeklinde Aradım bulamadım lütfen yardım edermisiniz arkadaşlar
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

SiLuet · 20 Ocak 2012, 10:55

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

on 1:connect:$iif(!$timer(reklam),timerreklam 0 3600 reklam)

alias reklam {
  .msg #kanal reklam1 
  .timer 1 1 .msg #kanal reklam2
  .timer 1 2 .msg #kanal reklam3
  .timer 1 3 .msg #kanal reklam4
}

Gerekli yerleri Ayarlayıp reklam metni,Kanal vs. Kullanabilirsin.

sedar · 20 Ocak 2012, 11:09

Teşekkür ederim.

sedar · 20 Ocak 2012, 11:12

Peki ".addadvert" YeniReklam1 şeklinde reklam ekliyebilirmiyim ben

SiLuet · 20 Ocak 2012, 14:52

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

on 1:connect:$iif(!$timer(reklam),timerreklam 0 3600 reklam)
on *:text:*:#kanal:{
  if (.başla == $1) { $iif(!$timer(reklam),timerreklam 0 3600 reklam) }
  if (.reklamlar == $1) { if (!$read(reklam.txt)) { msg # Gösterilecek Reklam Metni Yok. } | else { msg # Reklam Metinleri Listeleniyor. | reklam # } }
  if (.Rekle == $1) { if $read(reklam.txt,w,$+(*,$2-,*)) { msg # Bu reklam Metni Zaten Var. } | else { msg # Yeni Reklam Metni Eklendi. |  write -il1 reklam.txt $2- } }
  if (.Rsil == $1) { if ($2 == all) { msg # Tüm Reklam Metinleri Silindi. | write -c reklam.txt | halt } | elseif !$read(reklam.txt,w,$+(*,$2-,*)) { msg # Bu reklam Metni Zaten Yok. } | else { msg # Reklam Metni Silindi  | .write -d reklam.txt $2- } }
}

alias reklam { $iif(!$1,play #kanal reklam.txt 1000,play $1 reklam.txt 1000) }

Öncelikle Reklam Metinlerini İstersen !rekle Komutuyla Ekle İstersen Manuel Olarak mirc Klasorunde reklam isminde metin belgesi oluşturup içine At.Sonradan <!rekle Metin> Şeklinde Eklediğin Reklamlar 1. Sıraya Eklenerek Gösterilecektir.
Reklamın Yapılacagı Kanal'ı Kırmızı Olan Yerden
Komutların Kullanılacagı Kanalıda Mavi Olan Yerden Değiştirebilirsin.

Kullanabileceğin Komutlar;
.başla : Reklam Gönderimini Başlatır.
.Reklamlar : Reklam Metinlerini Kanala Listeler.
.Rekle : .Rekle <Reklam Metni > Şeklinde Yeni Bir Reklam Metni Ekler.
.RSil : .Rsil <all> Tüm Reklam Metinlerini Siler. | .Rsil <Reklam Metni> Belirtilen Reklam Metnini Dosyadan Siler.

Hayırlı Cumalar.

sedar · 21 Ocak 2012, 02:11

Hocam eline sağlık güzel bi çalışma oldu

KivanC · 30 Mart 2012, 18:53

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

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

on 1:connect:$iif(!$timer(reklam),timerreklam 0 3600 reklam)
on *:text:*:#kanal:{
  if (.başla == $1) { $iif(!$timer(reklam),timerreklam 0 3600 reklam) }
  if (.reklamlar == $1) { if (!$read(reklam.txt)) { msg # Gösterilecek Reklam Metni Yok. } | else { msg # Reklam Metinleri Listeleniyor. | reklam # } }
  if (.Rekle == $1) { if $read(reklam.txt,w,$+(*,$2-,*)) { msg # Bu reklam Metni Zaten Var. } | else { msg # Yeni Reklam Metni Eklendi. |  write -il1 reklam.txt $2- } }
  if (.Rsil == $1) { if ($2 == all) { msg # Tüm Reklam Metinleri Silindi. | write -c reklam.txt | halt } | elseif !$read(reklam.txt,w,$+(*,$2-,*)) { msg # Bu reklam Metni Zaten Yok. } | else { msg # Reklam Metni Silindi  | .write -d reklam.txt $2- } }
}

alias reklam { $iif(!$1,play #kanal reklam.txt 1000,play $1 reklam.txt 1000) }

Öncelikle Reklam Metinlerini İstersen !rekle Komutuyla Ekle İstersen Manuel Olarak mirc Klasorunde reklam isminde metin belgesi oluşturup içine At.Sonradan <!rekle Metin> Şeklinde Eklediğin Reklamlar 1. Sıraya Eklenerek Gösterilecektir.
Reklamın Yapılacagı Kanal'ı Kırmızı Olan Yerden
Komutların Kullanılacagı Kanalıda Mavi Olan Yerden Değiştirebilirsin.

Kullanabileceğin Komutlar;
.başla : Reklam Gönderimini Başlatır.
.Reklamlar : Reklam Metinlerini Kanala Listeler.
.Rekle : .Rekle <Reklam Metni > Şeklinde Yeni Bir Reklam Metni Ekler.
.RSil : .Rsil <all> Tüm Reklam Metinlerini Siler. | .Rsil <Reklam Metni> Belirtilen Reklam Metnini Dosyadan Siler.

Hayırlı Cumalar.

Cok Güzel Bir Codlama peki .Başla dediğimizde Bot Tüm Sunucuya Reklam.txt 'inde Bulunduğu reklamları 10 satır varsa tek tek 2 Dakika Ara ile atsa diyorum olabilirmi ?

SiLuet · 30 Mart 2012, 19:52

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

Cok Güzel Bir Codlama peki .Başla dediğimizde Bot Tüm Sunucuya Reklam.txt 'inde Bulunduğu reklamları 10 satır varsa tek tek 2 Dakika Ara ile atsa diyorum olabilirmi ?

Mevcut Koddaki,

if (.başla == $1) { $iif(!$timer(reklam),timerreklam 0 3600 reklam) }

Bu satırı Aşağıdaki şekilde değiştirin,ve Verdiğim Aliası Ekleyin.

if (.başla == $1) { $iif(!$timer(reklam),.timerreklam $lines(reklam.txt) 120 reklamm) }

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

alias reklamm { inc %1. | .os global $read(reklam.txt,%1.) | if (%1. == $lines(reklam.txt)) unset %1. }

Reklamları Gönderme Şeklini Global olarak Yaptım O Kısmı İstersen değişebilirsin.
.başla Yazdığında 2 dakika Arayla reklam.txt içerisindekileri global olarak atar. txt Bittiğinde Durur.

KivanC · 30 Mart 2012, 20:11

pl.txt anlamı nedir usta?

SiLuet · 30 Mart 2012, 20:13

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

pl.txt anlamı nedir usta?

Anlamı dalgınlık
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
O reklam.txt Olacak Kusura Bakmayın. Yaşlanıyoruz Galiba
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
IRCServices Toplam Online Süresi Sorunu Acil Bakarmısınız Arkadaşlar.	yiLmaz691	IRCServices	1	07 Ocak 2011 18:33
Arkadaşlar Bi bakarmısınız ?	Spy	Google	12	16 Ocak 2010 22:02
Arkadaşlar bakarmısınız anlamadım?	Xadd1	Eggdrop, NeoStats, BNC	0	19 Ocak 2009 19:57
Bi bakarmısınız arkadaşlar	Xadd1	Eggdrop, NeoStats, BNC	3	24 Aralık 2008 19:30
arkadaşlar acil bakarmısınız:(	KnOuCK	Eggdrop, NeoStats, BNC	10	07 Eylül 2007 00:00

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.