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

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/)

- - Acil bakarmısınız arkadaşlar [IRC Reklam bot] (https://www.ircforumlari.net/mirc-scripting-sorunlari/445112-acil-bakarmisiniz-arkadaslar-irc-reklam-bot.html)

sedar

20 Ocak 2012 09:36

Acil bakarmısınız arkadaşlar [IRC Reklam bot]

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 ;s10

SiLuet

20 Ocak 2012 10:55

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Kod:

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

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Teşekkür ederim.

sedar

20 Ocak 2012 11:12

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Peki ".addadvert" YeniReklam1 şeklinde reklam ekliyebilirmiyim ben

SiLuet

20 Ocak 2012 14:52

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Kod:

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

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

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

KivanC

30 Mart 2012 18:53

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Alıntı:

SiLuet Nickli Üyeden Alıntı (Mesaj 1041002479)

Kod:

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) }

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

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Alıntı:

Sky-bLue Nickli Üyeden Alıntı (Mesaj 1041076630)

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:

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

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

pl.txt anlamı nedir usta?

SiLuet

30 Mart 2012 20:13

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Alıntı:

Sky-bLue Nickli Üyeden Alıntı (Mesaj 1041076701)

pl.txt anlamı nedir usta?

Anlamı dalgınlık :) O reklam.txt Olacak Kusura Bakmayın. Yaşlanıyoruz Galiba :)

KivanC

30 Mart 2012 20:47

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Estafurullah :) list 'de cvp vermedi Comut

SiLuet

31 Mart 2012 00:31

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Alıntı:

Sky-bLue Nickli Üyeden Alıntı (Mesaj 1041076736)

Estafurullah :) list 'de cvp vermedi Comut

List derken Anlamadım mevcut reklam metinlerinin listelenmesinemi?

KivanC

31 Mart 2012 11:02

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Alıntı:

SiLuet Nickli Üyeden Alıntı (Mesaj 1041002479)

Kod:

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) }

.Reklamlar komut kısmı çalışmadı

SiLuet

31 Mart 2012 11:56

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Alıntı:

Sky-bLue Nickli Üyeden Alıntı (Mesaj 1041077420)

.Reklamlar komut kısmı çalışmadı

Önceki Eklediğin Kodları Kaldırıp Bunu ekle.

Sadece .Başla Yazdığında reklam.txt İçerisindeki Reklamları 2 dakika Arayla tek tek global atar.

Kod:

on *:text:*:#kanal:{

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

  if (.reklamlar == $1) { if (!$read(reklam.txt)) { msg # Gösterilecek Reklam Metni Yok. } | else { msg # Reklam Metinleri Listeleniyor. | play # reklam.txt 1000 } }

  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 { inc %1. | .os global $read(reklam.txt,%1.) | if (%1. == $lines(reklam.txt)) unset %1. }

KivanC

31 Mart 2012 12:39

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Alıntı:

SiLuet Nickli Üyeden Alıntı (Mesaj 1041077475)

Önceki Eklediğin Kodları Kaldırıp Bunu ekle.

Sadece .Başla Yazdığında reklam.txt İçerisindeki Reklamları 2 dakika Arayla tek tek global atar.

Kod:

on *:text:*:#kanal:{

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

  if (.reklamlar == $1) { if (!$read(reklam.txt)) { msg # Gösterilecek Reklam Metni Yok. } | else { msg # Reklam Metinleri Listeleniyor. | play # reklam.txt 1000 } }

  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 { inc %1. | .os global $read(reklam.txt,%1.) | if (%1. == $lines(reklam.txt)) unset %1. }

os Global işlevi olmadı yani atmıyor dilerseniz " AMSG " Yada tüm sunucudaki kullanıcılara atalım.

Rodrigo

01 Nisan 2012 11:23

Cevap: Acil bakarmısınız arkadaşlar [IRC Reklam bot]

Kod:

on *:connect: { if (%gmesaj == on) {  timergmesaj 0 1800 /gmesaj } }

on *:text:!gmesaj*:#opers: {

  if ($2 == on) { 

    if (%gmesaj == on) { msg # 4[12BILGI4] 1Global mesaj reklami zaten acik! | halt }

    set %gmesaj on | msg # 4[12BILGI4] 1Global mesaj reklami acilmistir. | timergmesaj 0 1800 /gmesaj 

    halt

  }

  if ($2 == off) { 

    if (%gmesaj == off) { msg # 4[12BILGI4] 1Global mesaj reklami zaten kapali! | halt }

    set %gmesaj off | msg # 4[12BILGI4] 1Global mesaj reklami kapatilmistir. | timergmesaj off

    halt

  }

  if ($2 == ekle) { 

    gmesajekle $3-

  }

  if ($2 == sil) { 

    gmesajsil $3-

  } 

  if ($2 == list) {

    gmesajlist 

  }

}

alias gmesajekle { if $1 { if $read(gmesaj.txt,w,$1-) { msg $chan - $1- -  4[12BILGI4] 1mesaj zaten listede. | halt } | else { write gmesaj.txt $1- | msg $chan - $1 - 4[12BILGI4] 1mesaj listeye eklendi. } } }

alias gmesajlist { 

  var %s = 1,%ss = $lines(gmesaj.txt) 

  if (%ss == 0) { msg # 4[12BILGI4] 1Listede kayit bulunmamaktadir. | halt }

  msg $chan Global mesaj listesi... 

  while %s <= %ss { 

    msg $chan %s - $read(gmesaj.txt,%s) 

    inc %s 

  }

  msg $chan  Global mesaj listesi sonu...

}

alias gmesajsil { if $1 { if !$read(gmesaj.txt,w,$1-) { msg $chan - $1- - 4[12BILGI4] 1mesaj listesinde yok. | halt } | else { write $+(-dl,$readn) gmesaj.txt | msg $chan - $1- - 4[12BILGI4] 1mesaj listesinden silindi. } } }

alias gmesaj {

  var %kac $rand(1,$lines(gmesaj.txt))

  .describe $+($,$server) $read(gmesaj.txt,%kac)

}

!gmesaj on/off şeklinde açıp kapanma özelliği...

!gmesaj ekle/sil/list özelliği...

NOT: Kod'u bir korumadan alıp, ekleme ve biraz düzenleme ile bu hale getirdim. 30 dakika'da bir eklediğiniz global'leri rastgele/karışık olarak sunucuda ki kullanıcıların özellerine atar, süreyi siz belirleyebilirsiniz...

DİPNOT: Bu arada moderatör arkadaşlar kusura bakmasın, burası ''hazır kodlar'' bölümü değil, sanırım tam uyanamadım daha: )

Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 16:06.